Parent Directory | Revision Log
more-or-less copy/paste from Net::LDAP pod
1 | dpavlin | 5 | #!/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 |