Parent Directory
|
Revision Log
početni import
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 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |