viewvc.cgi/ldap/find.pl

#!/usr/local/bin/perl -w

use Net::LDAP;
use Net::LDAP::LDIF;

$ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) || die "$@";

$ldap->bind;    # anonymous

$mesg = $ldap->search (
        base    => 'o=pliva.hr',
#       filter  => 'sn=Pavlinusic'
        filter  => 'sn=*'
        );

Net::LDAP::LDIF->new(\*STDOUT,"w")->write($mesg->entries);

1	#!/usr/local/bin/perl -w
2
3	use Net::LDAP;
4	use Net::LDAP::LDIF;
5
6	$ldap = Net::LDAP->new('ldap.pliva.hr',port=>389) \|\| die "$@";
7
8	$ldap->bind; # anonymous
9
10	$mesg = $ldap->search (
11	base => 'o=pliva.hr',
12	# filter => 'sn=Pavlinusic'
13	filter => 'sn=*'
14	);
15
16	Net::LDAP::LDIF->new(\*STDOUT,"w")->write($mesg->entries);
17