perl-ldap-dev

Perl-LDAP problem

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

Hello!

Having just recently installed Perl-LDAP as a replacement for Mozilla's
Perldap, I've been trying to run the simplest of queries to see if it works.
Here's what I do:



!/usr/local/bin/perl

use Net::LDAP;
use Net::LDAP::Util qw( ldap_error_name
                        ldap_error_text) ;


$ldap = Net::LDAP->new('smtp.srv.ualberta.ca',port=>1389) or die "$@";
$ldap->bind( dn => 'cn=manager, dc=ualberta, dc=ca',
             password => 'NotVerySecret');

$mesg = $ldap->search(base => "dc=ualberta,dc=ca", filter =>
"(uid=dummyuser)");

if ($mesg->code) {
        LDAPerror("Searching",$mesg);
}

foreach $entry ($mesg->all_entries) {
        $entry->dump;
}




The output of this program is:

Return code: 1  Message: LDAP_OPERATIONS_ERROR :Server encountered an
internal error

When we sniff the packets going back and forth we can see that slapd is
returning a result, but perl-ldap doesn't seem to handle it.  Am I doing
something wrong or is this a bug?

Thanks in advance

Kevin Konowalec
Web Systems Analyst
University of Alberta
Kev...@ua...

Re: Perl-LDAP problem

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

On Thu, May 11, 2000 at 10:28:30AM -0600, Kevin Konowalec wrote:

> Return code: 1  Message: LDAP_OPERATIONS_ERROR :Server encountered an
> internal error
> 
> When we sniff the packets going back and forth we can see that slapd is
> returning a result, but perl-ldap doesn't seem to handle it.  Am I doing
> something wrong or is this a bug?


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.

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

Re: Perl-LDAP problem

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

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