From: Graham B. <gb...@po...> - 2000-05-11 20:29:17
|
Now this is going to sound like I am just asking a lot of questions, but what versions of Net::LDAP and Convert::ASN1 are you using ? Are you using those from CPAN or the patch releases from sourceforge ? The version that are currently on sourceforge will be loaded onto CPAN as soon as I hear a few more successes. I also noticed that you had debug => 3, but the output only showed packets that were sent. Did you delete any ? Graham. On Thu, May 11, 2000 at 10:51:16AM -0600, Kevin Konowalec wrote: > > > -----Original Message----- > > From: Graham Barr [mailto:gb...@po...] > > Sent: Thursday, May 11, 2000 10:40 AM > > To: Kevin Konowalec > > Cc: per...@li... > > Subject: Re: Perl-LDAP problem > > > > > Can you turn on debug with > > > > $ldap = Net::LDAP->new('smtp.srv.ualberta.ca',port=>1389, debug > > => 3) or die "$@"; > > > > And send us the outout around where the problem seems to be. > > > > Graham. > > > > > Okay, I took Charlie's original code example and tried it on my system. > Here's what happened: > > #!/usr/local/bin/perl -w > use Net::LDAP; > $ldap = Net::LDAP->new('fudd.srv.ualberta.ca',port => 1389, debug=>3) or die > "$@"; > $ldap->bind ( 'cn=Manager,dc=ualberta,dc=ca' ); > $mesg = $ldap->search ( > base => "dc=ualberta,dc=ca", > filter => "uid=kkonowal" > ); > $mesg->code && die "LDAP error: " . $mesg->error; > foreach $entry ($mesg->all_entries) { > $entry->dump; > } > $ldap->unbind; > > Output: > > Net::LDAP=HASH(0x27e690) sending: > > 30 28 02 01 01 60 23 02 01 02 04 1C 63 6E 3D 4D 0(...`#.....cn=M > 61 6E 61 67 65 72 2C 64 63 3D 75 61 6C 62 65 72 anager,dc=ualber > 74 61 2C 64 63 3D 63 61 80 00 __ __ __ __ __ __ ta,dc=ca.. > > Net::LDAP=HASH(0x27e690) sending: > > 30 3A 02 01 02 63 35 04 11 64 63 3D 75 61 6C 62 0:...c5..dc=ualb > 65 72 74 61 2C 64 63 3D 63 61 0A 01 02 0A 01 02 erta,dc=ca...... > 02 01 00 02 01 00 01 01 00 A3 0F 04 03 75 69 64 .............uid > 04 08 6B 6B 6F 6E 6F 77 61 6C 30 00 __ __ __ __ ..kkonowal0. > > LDAP error: at ./test2 line 9. > > just as an aside, when I use ldapsearch to look for that uid it returns a > complete and unique record. > > > > Thanks, > > K > > |