Re^2: ldapsearch in perl

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
[download]

Comment on Re^2: ldapsearch in perl Download Code

Replies are listed 'Best First'.
Re^3: ldapsearch in perl by jose_m (Acolyte) on Jan 09, 2013 at 15:28 UTC
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);` [download] you have to use gethostbyname to resolve the ip address for the given array of hosts. any questions, just ask.. thanks -jose.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: ldapsearch in perl
by jose_m (Acolyte) on Jan 09, 2013 at 15:28 UTC

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);
[download]

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

[reply]
[d/l]