perl and net::ldap how to return dn from a search

jonlake · 02-24-2006, 09:53 AM

It seems like this should be so obvious that I'm looking right past it. What I'm trying to do is have a user enter their uid and password, and then bind to the directory server as themself. However, if I do a search for that person

Code:

my $ldap = Net::LDAP->new( '127.0.0.1:4389') or die "$@";
my $base = "ou=people,dc=usfccorp,dc=com";
my $filter = "(&(objectclass=usfperson)(uid=$user))";
$ldap ->bind;
my $user_search = $ldap->search( base=> $base,
                                 filter=> $filter,
);

and then try to get the dn (since nothing is returned, I'm guessing this is something that net::ldap doesn't return)

Code:

foreach my $entry ($user_search->entries) {
  my $userdn = $entry->get_value('dn');
  print "$userdn \n";
}
$ldap->unbind;

I have looked at the cpan pages and done some google searching and haven't found what I'm looking for. It seems to me that this should be so obvious that I'm looking right past it.

druuna · 02-24-2006, 12:02 PM

Hi,

Shouldn't this:

$ldap ->bind;

be something like this:

$ldap ->bind (dn=>$User, password=>$Passwd);

The reason why you don't get anything back ([login]error) is still unclear to me, but it also happens when using SUN's ldap (I'm guessing you are using openLDAP).

Hope this helps.

jonlake · 02-24-2006, 12:46 PM

Ok, I figured it out. I knew it was something obvious I was missing. The attribute name I needed was entrydn. I had to request it when doing the search. The code should look like this.

Code:

#!/usr/bin/perl

use Net::LDAP;
use strict;

#initialize variables
my $entry;
my @uids;
my $number;
my @sorted;


my $ldap = Net::LDAP->new('10.128.12.48:4389') or die "$@";
$ldap-> bind;

my $root = "dc=usfccorp,dc=com";
my $mesg = $ldap->search( base => $root,
             filter => '(uid=jlake)',
             attrs => ['*','entrydn'], # this is where I had to request to return the entrydn
             );
$mesg->code && die $mesg->error;

foreach $entry ($mesg->entries) {
        my $tmpnum = $entry->get_value('entrydn');
        @uids = (@uids,$tmpnum);
}