perl-ldap-dev

Re: install Bundle::Net::LDAP bugginess?

[Chris R. <Chr...@me...>]

On Wed, 17 May 2000 09:30:30 BST, Graham Barr wrote:
> Damn, I wish I had not named it with the 1, I forget it more
> than I add it.
> 
> Thanks,
> Graham.

You'll be glad you did when ASN.2 comes out :-)

Chris

PS: there's no such thing.

Re: install Bundle::Net::LDAP bugginess?

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

Damn, I wish I had not named it with the 1, I forget it more
than I add it.

Thanks,
Graham.

On Wed, May 17, 2000 at 02:34:21PM +1000, Brett Morgan wrote:
> inside CPAN.pm (y'know perl -MCPAN -e shell) if I issue a 
> 
> cpan> install Bundle::Net::LDAP
> 
> I get the following error:
> 
> Bundle summary: The following items in bundle Bundle::Net::LDAP had
> installation problems:
>   Convert::ASN 
> 
> Having a look through cpan shows the following modules:
> 
> cpan> i /ASN/
> Distribution    G/GB/GBARR/Convert-ASN1-0.05.tar.gz
> Module          Convert::ASN    (N/A)
> Module          Convert::ASN1   (G/GB/GBARR/Convert-ASN1-0.05.tar.gz)
> Module          Convert::ASN1::parser (G/GB/GBARR/Convert-ASN1-0.05.tar.gz)
> Module          Net::LDAP::ASN  (G/GB/GBARR/perl-ldap-0.17.tar.gz)
> 
> Net::LDAP works happily after Convert-ASN1-0.05.tar.gz is installed, so
> i suspect the bundle file is broken w.r.t. dependencies.

install Bundle::Net::LDAP bugginess?

[Brett M. <mo...@ne...>]

inside CPAN.pm (y'know perl -MCPAN -e shell) if I issue a 

cpan> install Bundle::Net::LDAP

I get the following error:

Bundle summary: The following items in bundle Bundle::Net::LDAP had
installation problems:
  Convert::ASN 

Having a look through cpan shows the following modules:

cpan> i /ASN/
Distribution    G/GB/GBARR/Convert-ASN1-0.05.tar.gz
Module          Convert::ASN    (N/A)
Module          Convert::ASN1   (G/GB/GBARR/Convert-ASN1-0.05.tar.gz)
Module          Convert::ASN1::parser (G/GB/GBARR/Convert-ASN1-0.05.tar.gz)
Module          Net::LDAP::ASN  (G/GB/GBARR/perl-ldap-0.17.tar.gz)

Net::LDAP works happily after Convert-ASN1-0.05.tar.gz is installed, so
i suspect the bundle file is broken w.r.t. dependencies.

brett

-- 
email: mo...@ne...
phone: (612) 9004 5588

Random Fortune Follows:

The Roman Rule:
	The one who says it cannot be done should never interrupt the
	one who is doing it.

Re: LWP::Protocol::ldap

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

On Tue, May 16, 2000 at 03:47:43PM -0500, Mark Wilcox wrote:
> I haven't seen it. Does it parse LDAP URLs?

No, that would be URI::ldap which used to be in the dist, but I gave it
to Gisle to include in the URI dist.

LWP::Protocol::ldap is a protocol handler package for LWP so LWP can
handle ldap: URLs.

> What I would propose is two interfaces. One would simply return an array 
> of Net::LDAP::Entry objects. Second would be a callback interface. The
> user could take care of displaying the information as they see fit.

This is an LWP protocol module. LWP is expecting a string for the content.

You could consider it as a client-side cgi script if you wanted a twisted
definition.

Graham.

Re: LWP::Protocol::ldap

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

On Tue, May 16, 2000 at 06:19:22PM +0100, Steve Haslam wrote:
> Has anyone else tried to use this? I had to make several changes to it
> to get it to work (enclosed)...

I am not sure anyone has. I think I got sidetracked before I finished it.

> I'm not entirely sure how useful it is. Maybe if it output the results
> as LDIF rather than HTML...

You might be right, I did not think about that much when I wrote
it originally. However there maybe a need in future for it to return
dsml.

I am certainly not attached to the current code in any way, and as you have
pointed out it does not really work well. So feel free to make any changes
you like.

Graham.

Re: LWP::Protocol::ldap

[Mark W. <mew...@un...>]

I haven't seen it. Does it parse LDAP URLs?

What I would propose is two interfaces. One would simply return an array 
of Net::LDAP::Entry objects. Second would be a callback interface. The
user could take care of displaying the information as they see fit.

Mark

On Tue, 16 May 2000, Steve Haslam wrote:

> Has anyone else tried to use this? I had to make several changes to it
> to get it to work (enclosed)...
> 
> I'm not entirely sure how useful it is. Maybe if it output the results
> as LDIF rather than HTML...
> 
> SRH
> 

LWP::Protocol::ldap

[Steve H. <ste...@ex...>]

Has anyone else tried to use this? I had to make several changes to it
to get it to work (enclosed)...

I'm not entirely sure how useful it is. Maybe if it output the results
as LDIF rather than HTML...

SRH
-- 
Steve Haslam, Production Engineer, Excite UK     ste...@ex...
                               i sit and stare at the gun pointed at my head
                                       and think about all the possibilities

(no subject)

[SHANNON C. <sha...@sd...>]

UNSUBCRIBE

Shannon Crews
HOSPITAL SYSTEMS SUPPORT
SDHC
TEL: EXT 

Re: as_struct changes from 0.13 => 0.17?

[Paul H. <hei...@cs...>]

On Mon, 15 May 2000, Graham Barr wrote:

> Try the attached patch

That did it!

> On Mon, May 15, 2000 at 08:34:37PM +0100, Graham Barr wrote:
> > On Mon, May 15, 2000 at 12:04:07PM -0700, Paul Heinlein wrote:
> > > I poked around the archives looking for any reference to changes in the
> > > as_struct method in ::Search, but found none -- so I come a-beggin' :-(
> > 
> > Ooops, there should have been no difference. I will look into it

Paul Heinlein
hei...@cs...

Re: as_struct changes from 0.13 => 0.17?

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

Try the attached patch

Graham.

On Mon, May 15, 2000 at 08:34:37PM +0100, Graham Barr wrote:
> On Mon, May 15, 2000 at 12:04:07PM -0700, Paul Heinlein wrote:
> > I poked around the archives looking for any reference to changes in the
> > as_struct method in ::Search, but found none -- so I come a-beggin' :-(
> 
> Ooops, there should have been no difference. I will look into it
> 
> Graham

Re: as_struct changes from 0.13 => 0.17?

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

On Mon, May 15, 2000 at 12:04:07PM -0700, Paul Heinlein wrote:
> I poked around the archives looking for any reference to changes in the
> as_struct method in ::Search, but found none -- so I come a-beggin' :-(

Ooops, there should have been no difference. I will look into it

Graham

as_struct changes from 0.13 => 0.17?

[Paul H. <hei...@cs...>]

I poked around the archives looking for any reference to changes in the
as_struct method in ::Search, but found none -- so I come a-beggin' :-(

Here's the central part of the code in question:

  #
  # start perl
  #
  my $l = Net::LDAP->new( 'directory.ogi.edu' ) or die "$@";
  $l->bind();

  my $mesg = $l->search(
    base   => $base,
    filter => $filter,
    attrs  => \@fields,
  );

  $mesg->code && die $mesg->error;

  my $href = $mesg->as_struct();

  print map { "$_ : $href->{$_}\n" } keys %$href;
  #
  # end perl
  #

I've run the code on two fairly identical Linux boxes, the first equipped
with perl-ldap 0.13, the second 0.17.

On the box with 0.13, I get what I'd come to expect:

  [heinlein@redbone heinlein]$ perl ~/ldap/z.pl
  employeeNumber=0001058, dc=ogi, dc=edu : HASH(0x81a75b4)
  employeeNumber=0001383, dc=ogi, dc=edu : HASH(0x82c8668)
  employeeNumber=0001025, dc=ogi, dc=edu : HASH(0x82c8770)
  employeeNumber=0001384, dc=ogi, dc=edu : HASH(0x82c86bc)
  employeeNumber=0001745, dc=ogi, dc=edu : HASH(0x82c871c)
  employeeNumber=0001152, dc=ogi, dc=edu : HASH(0x82c86a4)
  employeeNumber=0001810, dc=ogi, dc=edu : HASH(0x82c86e0)

On the box with 0.17, however, I get the DNs just fine, but it looks for
all the world that the as_struct() hash has only keys, no values:

  [heinlein@roadkill heinlein]$ perl ~/ldap/z.pl
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  Use of uninitialized value at /home/users/heinlein/ldap/z.pl line 28.
  employeeNumber=0001058, dc=ogi, dc=edu : 
  employeeNumber=0001383, dc=ogi, dc=edu : 
  employeeNumber=0001025, dc=ogi, dc=edu : 
  employeeNumber=0001384, dc=ogi, dc=edu : 
  employeeNumber=0001745, dc=ogi, dc=edu : 
  employeeNumber=0001152, dc=ogi, dc=edu : 
  employeeNumber=0001810, dc=ogi, dc=edu : 

Interestingly, the same search() works well on both machines if I unravel
the results using all_entries():

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

Clues welcome.

Paul Heinlein
hei...@cs...

RE: [Fwd] Quick question

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

That worked great!!!  Thanks!

K


> -----Original Message-----
> From: Mark Wilcox [mailto:mew...@un...]
> Sent: Friday, May 12, 2000 3:31 PM
> To: LDAP Mailing List
> Cc: Kevin Konowalec
> Subject: Re: [Fwd] Quick question
> 
> 
> Try something like this:
> my $status  = @{$entry->get('affiliationcode')}->[0];
> 
> or 
> my $codes  = $entry->get('affiliationcode');
> my $status = $codes->[0];
> 
> 
> Mark
> 
> 
> On Fri, 12 May 2000, Graham Barr wrote:
> 
> > ----- Forwarded message from "Kevin Konowalec" 
> <kev...@ua...> -----
> > 
> > From: "Kevin Konowalec" <kev...@ua...>
> > To: "Graham Barr" <gb...@po...>
> > Subject: Quick question
> > Date: Fri, 12 May 2000 11:41:53 -0600
> > X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
> > In-Reply-To: <200...@po...>
> > 
> > 
> > Hi again...
> > 
> > Quick question:  what is the syntax for grabbing individual 
> fields out of a
> > returned record?  None of the docs really show how to use the 
> get() method.
> > Is there anywhere that I can find simple example programs that uses the
> > perl-ldap modules?
> > 
> > For example, in perldap, I'd do something like this:
> > 
> > 
> > $entry = $conn->search("$BASEDN","ONE","($filter)");
> > if (!$entry) {
> >         die "Unable to find any records matching $filter\n";
> > }
> > 
> > $status = $entry->{affiliationcode}[0];
> > 
> > 
> > What would the equivilant syntax be in perl-ldap?
> > 
> > Thanks!!
> > 
> > Kevin
> > 
> > 
> > ----- End forwarded message -----
> > 
> > 
> 
> 

Re: [Fwd] Quick question

[Mark W. <mew...@un...>]

Try something like this:
my $status  = @{$entry->get('affiliationcode')}->[0];

or 
my $codes  = $entry->get('affiliationcode');
my $status = $codes->[0];


Mark


On Fri, 12 May 2000, Graham Barr wrote:

> ----- Forwarded message from "Kevin Konowalec" <kev...@ua...> -----
> 
> From: "Kevin Konowalec" <kev...@ua...>
> To: "Graham Barr" <gb...@po...>
> Subject: Quick question
> Date: Fri, 12 May 2000 11:41:53 -0600
> X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
> In-Reply-To: <200...@po...>
> 
> 
> Hi again...
> 
> Quick question:  what is the syntax for grabbing individual fields out of a
> returned record?  None of the docs really show how to use the get() method.
> Is there anywhere that I can find simple example programs that uses the
> perl-ldap modules?
> 
> For example, in perldap, I'd do something like this:
> 
> 
> $entry = $conn->search("$BASEDN","ONE","($filter)");
> if (!$entry) {
>         die "Unable to find any records matching $filter\n";
> }
> 
> $status = $entry->{affiliationcode}[0];
> 
> 
> What would the equivilant syntax be in perl-ldap?
> 
> Thanks!!
> 
> Kevin
> 
> 
> ----- End forwarded message -----
> 
> 

[Fwd] Quick question

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

----- Forwarded message from "Kevin Konowalec" <kev...@ua...> -----

From: "Kevin Konowalec" <kev...@ua...>
To: "Graham Barr" <gb...@po...>
Subject: Quick question
Date: Fri, 12 May 2000 11:41:53 -0600
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
In-Reply-To: <200...@po...>


Hi again...

Quick question:  what is the syntax for grabbing individual fields out of a
returned record?  None of the docs really show how to use the get() method.
Is there anywhere that I can find simple example programs that uses the
perl-ldap modules?

For example, in perldap, I'd do something like this:


$entry = $conn->search("$BASEDN","ONE","($filter)");
if (!$entry) {
        die "Unable to find any records matching $filter\n";
}

$status = $entry->{affiliationcode}[0];


What would the equivilant syntax be in perl-ldap?

Thanks!!

Kevin


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

Re: PerlEx -- Net::LDAP

[Mark W. <mew...@un...>]

It's like mod_perl but is for IIS and is developed by ActiveState. This is
one of the extras you get when you purchase the Perl kit from ActiveState.

Mark

On Fri, 12 May 2000, Chris Ridd wrote:

> On Fri, 12 May 2000 18:50:00 +0200, Stefan Poschenrieder wrote:
> > 
> > Hi there,
> > 
> > are there any known problems running scripts
> > including Net::LDAP with PerlEx ?
> > 
> > cheers,
> > stefan
> > 
> 
> What's PerlEx?
> 
> Chris
> 
> 
> 

Re: PerlEx -- Net::LDAP

[Mark W. <mew...@un...>]

I don't think many (any) of us have ever tried it. Are you experiencing
problems? If so what kind?

Mark
On Fri, 12 May 2000, Stefan Poschenrieder wrote:

> 
> Hi there,
> 
> are there any known problems running scripts
> including Net::LDAP with PerlEx ?
> 
> cheers,
> stefan
> 
> 

Re: PerlEx -- Net::LDAP

[Chris R. <Chr...@me...>]

On Fri, 12 May 2000 18:50:00 +0200, Stefan Poschenrieder wrote:
> 
> Hi there,
> 
> are there any known problems running scripts
> including Net::LDAP with PerlEx ?
> 
> cheers,
> stefan
> 

What's PerlEx?

Chris

PerlEx -- Net::LDAP

[Stefan P. <st...@me...>]

Hi there,

are there any known problems running scripts
including Net::LDAP with PerlEx ?

cheers,
stefan

Re: Abou

[Mark W. <mew...@un...>]

#now connect to LDAP server
my $ldap = new Net::LDAP('ldap.acme.com');
my $mesg = $ldap->bind("my_dn", password=>"password");
die ("failed to bind with ",$mesg->code(),"\n") if $mesg->code();

#update entry
$mesg = $ldap->modify("cn=cmex,ou=software,dc=acme,dc=com", add => {
'resource' => 'value1'});

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

$ldap->unbind();

Mark
  
On Fri, 12 May 2000, Reda Bouarich wrote:

> Hello,
> I tried this program that you wrote but it doesn't seem to work , surely due
> to a bad using from me!!
> Could you explain me please.
> regards,
> 		Reda.                  
> 
> here is the program
> 
> 
>  #!/usr/local/bin/perl
> 
> use lib '.';
> use lib 'lib';
> use Net::LDAP;
> 
> 
> 
> $host='cmix.vbe.cpqcorp.net';
>   $ldap = Net::LDAP->new($host);
>   
>   $filter='(cn=cmix)';
>   $mesg = $ldap->search(
>   		base   => "ou=equipments,ou=Test3,o=temip.com",
> 		filter => $filter,
> 		attr  => \@_,
>     );
>     
>   my $max = $mesg->count;
>   for($i = 0 ; $i < $max ; $i++) {
>     my $entry = $mesg->entry($i);
>     foreach my $attr ($entry->attributes) {
>       print join("\n ",$attr, $entry->get($attr)),"\n";
>     }
>   }
> 
>   # or
> 
>   use Net::LDAP::Entry;
> 
> 
>   $entry = Net::LDAP::Entry->new;
> print $entry ;
> print "\n HELLO>>>>>>>>>>>>>>\n";
>   $entry->add(
>     resource => 'cn=value1'
>   );
> 
> 
>   #$entry->delete( 'unwanted' );
> 
> 
>   #$entry->replace(
>    # attr1 => 'newvalue',
>     #attr2 => [qw(new values)]
>   #);
> 
> 
>   $entry->update( $ldap ); # update directory server  
> 
> 
> I have this error message:
> 
> use of uninitialized value at Convert/Ber.pm line 1224
> use of uninitialized value at Convert/Ber.pm line 1225
> 
> 
> I'm just trying to add a value to the attribute "resource" in the following
> entry cn=cmix.
> 
> 
> 
> 
> 
> 
> 
> 
> 

Abou

[Reda B. <Red...@di...>]

Hello,
I tried this program that you wrote but it doesn't seem to work , surely due
to a bad using from me!!
Could you explain me please.
regards,
		Reda.                  

here is the program


 #!/usr/local/bin/perl

use lib '.';
use lib 'lib';
use Net::LDAP;



$host='cmix.vbe.cpqcorp.net';
  $ldap = Net::LDAP->new($host);
  
  $filter='(cn=cmix)';
  $mesg = $ldap->search(
  		base   => "ou=equipments,ou=Test3,o=temip.com",
		filter => $filter,
		attr  => \@_,
    );
    
  my $max = $mesg->count;
  for($i = 0 ; $i < $max ; $i++) {
    my $entry = $mesg->entry($i);
    foreach my $attr ($entry->attributes) {
      print join("\n ",$attr, $entry->get($attr)),"\n";
    }
  }

  # or

  use Net::LDAP::Entry;


  $entry = Net::LDAP::Entry->new;
#$entry='cn=cmix,ou=equipments,ou=Test3,o=temip.com';
print $entry ;
print "\n HELLO>>>>>>>>>>>>>>\n";
  $entry->add(
    resource => 'cn=value1'
  );


  #$entry->delete( 'unwanted' );


  #$entry->replace(
   # attr1 => 'newvalue',
    #attr2 => [qw(new values)]
  #);


  $entry->update( $ldap ); # update directory server  


I have this error message:

use of uninitialized value at Convert/Ber.pm line 1224
use of uninitialized value at Convert/Ber.pm line 1225


I'm just trying to add a value to the attribute "resource" in the following
entry cn=cmix.

CPAN Upload:

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

These releases are also avaliable at http://download.sourceforge.net/perl-ldap/




The uploaded file

    Convert-ASN1-0.05.tar.gz

has entered CPAN as

  file: $CPAN/authors/id/GBARR/Convert-ASN1-0.05.tar.gz
  size: 34526 bytes
   md5: 1ecc4a02de6410e36434591965196c3c


The uploaded file

    perl-ldap-0.17.tar.gz

has entered CPAN as

  file: $CPAN/authors/id/GBARR/perl-ldap-0.17.tar.gz
  size: 114413 bytes
   md5: 8113b0d2860d00905ee66f9ec12760d4

Re: found a weird bug....

[Pythagoras W. <py...@ec...>]

On Thu, May 11, 2000 at 09:22:14AM +0100, Graham Barr wrote:
:On Thu, May 11, 2000 at 07:11:22AM +0100, Graham Barr wrote:
:> It would seem the bug is in Convert::ASN1, I will try to look into
:> this today.
:
:And here is a patch, it will be on sourceforge shortly. If people can
:test this and if all is OK I will do a perl-ldap and Convert::ASN
:release to CPAN

My test cases pass now.  The output looks good to me.

:-  $len++ unless not($msb) == not($neg);
:+  $len++ if $neg ? !$msb : $msb;

It took running this through perl a few times for me to figure out
what the difference was.  Truly insidious.  I almost never use the
"named" versions of operators, so I had forgotten about their lower
precedence.

-- 
Py (Amateur Radio: KF6WFP) -- 3.141592653589793238462643383...
Pythagoras Watson -- "Live long and may all your kernels pop."
=== py...@cs... ==== http://www.ecst.csuchico.edu/~py/ ===

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

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