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	dpavlin	1.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