--On Tuesday, August 09, 2005 11:47 AM -0700 Larry Lile
<[EMAIL PROTECTED]> wrote:
I'm still unable to get Net::LDAP and Authen::SASL::Cyrus to play
nice. I'm using perl-ldap 0.33 and Authen-SASL-Cyrus-0.12-server
with perl-5.8.6.
I get a slightly different result "Use of uninitialized value" but
I have elicited the "Local error" message before.
Using the test script:
# !/opt/perl-5.8.6/bin/perl -w
use Net::LDAP;
use Authen::SASL;
my $slavesasl = Authen::SASL->new(mechanism=>'GSSAPI',
'user' => " ", # empty callback, so Net::LDAP don't overrides it
);
my $ldap = Net::LDAP->new('ldap1', version=>3, async=>1, debug =>3) ||
die "$@";
my $mesg = $ldap->bind("", sasl=>$slavesasl, async=>1);
$mesg->code && die $mesg->error;
$mesg =
$ldap->search(async=>1,filter=>"(uid=lile)",base=>"dc=anim,dc=dreamworks,
dc=com");
@entries = $mesg->entries;
foreach $entry (@entries) {
$entry->dump;
}
Just out of curiosity, have you looked at or tried my abstracted perl
module that goes on top of Net::LDAP and Authen::SASL?
<http://www.stanford.edu/services/directory/clients/perl.html>
I use it to make SASL/GSSAPI connections to our OpenLDAP servers all the
time...
--Quanah
--
Quanah Gibson-Mount
Principal Software Developer
ITSS/Shared Services
Stanford University
GnuPG Public Key: http://www.stanford.edu/~quanah/pgp.html
"These censorship operations against schools and libraries are stronger
than ever in the present religio-political climate. They often focus on
fantasy and sf books, which foster that deadly enemy to bigotry and blind
faith, the imagination." -- Ursula K. Le Guin
