Parent Directory | Revision Log
more-or-less copy/paste from Net::LDAP pod
1 | #!/usr/bin/perl |
2 | |
3 | use warnings; |
4 | use strict; |
5 | |
6 | use lib 'lib'; |
7 | |
8 | use Jifty; |
9 | use Net::LDAP; |
10 | |
11 | BEGIN { Jifty->new; }; |
12 | |
13 | my $ldap = Net::LDAP->new( 'ldap1.skole.local' ) or die "$@"; |
14 | |
15 | # an anonymous bind |
16 | my $mesg = $ldap->bind; |
17 | |
18 | # perform a search |
19 | $mesg = $ldap->search( |
20 | base => "dc=skole,dc=hr", |
21 | # filter => "(&(sn=Barr) (o=Texas Instruments))", |
22 | filter => "(objectClass=hrEduPerson)", |
23 | sizelimit => 0, # off |
24 | ); |
25 | |
26 | if ( $mesg->code ) { |
27 | warn $mesg->code, ": ", $mesg->error, "\n"; |
28 | } |
29 | |
30 | foreach my $entry ( $mesg->entries ) { |
31 | $entry->dump; |
32 | } |
33 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |