RE: Perl-LDAP problem

[Kevin K. <kev...@ua...>]

> -----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