[Fwd] Authen::SASL problems

[Graham B. <gb...@po...>]

----- Forwarded message from Adam Saltsman <asa...@us...> -----

Date: Mon, 18 Jun 2001 12:10:55 -0700
To: gb...@po...
From: Adam Saltsman <asa...@us...>
Subject: Authen::SASL problems

Hi Graham, my name's Adam, and i was wondering if
you had a spare minute - if not, thats cool, but
its probably a pretty simple problem i've got
here.  I've tried multiple times now get the
Authen::SASL module to work, and all to no avail;
i've checked and double-checked that running
straight off the command line the username i'm
testing works with the CRAM-MD5 method - no
problems there.  Unfortunately, when i try to bind
using Authen::SASL, i get an error 80 - that is,
my 'die' message gives me a 'failed with 80'.  I'm
pretty new to this stuff, so i can well imagine
i'm missing something blatantly obvious...in any
case, here's my sample program, i would really
appreciate it if you could help me out (like i
said, though, if you can't thats totally fine, i
can imagine you stay pretty busy) - thanks again!

#!/usr/bin/perl                                    

use Net::LDAP qw(:all);
use Net::LDAP::Util qw(ldap_error_name
                       ldap_error_text);
use Authen::SASL;

$pass = "secret";
$DN = "uid=asaltsma";

my $ldap = new Net::LDAP('www.myserver.com');

$sasl = Authen::SASL->new('CRAM-MD5', password =>
$pass);

my $mesg = $ldap->bind( $DN, sasl => $sasl,
version => 3);

die ("failed to bind with ",$mesg->code(),"\n") if
$mesg->code();

$ldap>unbind( $DN );


Thanks again,
Adam Saltsman


----- End forwarded message -----