Re: ldapsearch in perl

[ravi6289]

Hello Jose , You need to bind to the ldap server from there on , and use the count method to get the number of entries . Try including the below piece of code inside your subroutine,changing the $ldapserver to point to each of your hosts . The filter filter => "(objectClass=*)" , will get all of the entries Hope this helps !!!

#!/usr/bin/perl
use Net::LDAP;

my $ldapserver = "<Server Name>"; 
my $ldapbase = "ou=people,ou=Urania,ou=Eng,dc=example,dc=com"; 
my $ldap = Net::LDAP->new( $ldapserver ) or die "$@"; 
my $mesg = $ldap->bind("cn=user>,ou=people,ou=Urania,ou=Eng,dc=example
+,dc=com", password=>'<user>');

$mesg = $ldap->search( base => $ldapbase, filter => "(objectClass=*)")
+;
my @entries = $mesg->count;
print "@entries\n";
$mesg = $ldap->unbind;

[jose_m]

thanks Ravi. that seemed to help, but the error has changed, i am not getting connection refused.

Connection refused at ldap_process.pl line 15, <DATA> line 225

[jose_m]

ok folks so i decided to dump the module. all i needed was to make sure that i can bind so i settled for this: hope it helps someone:

use IO::Socket;
use Socket;

my $port='3000';
       $socket = new IO::Socket::INET->new(PeerAddr => $ip,
       PeerPort => $port,
       Proto    => 'tcp',
       Timeout  => 2,
       )
       or print "could not create bind to $_. port $port: $@\n" and $e
+xit_status=2 ;
       close($socket);

you have to use gethostbyname to resolve the ip address for the given array of hosts. any questions, just ask.. thanks -jose.