diff --git a/lib/LDV/LDAP.pm b/lib/LDV/LDAP.pm index c60fbaf..b40807a 100644 --- a/lib/LDV/LDAP.pm +++ b/lib/LDV/LDAP.pm @@ -117,3 +117,50 @@ sub update { } 1; + +=pod + +=head1 NAME + +LDV::LDAP -- ldap routines + +=head1 METHODS + +=head2 C + + my $ldap = LDV::LDAP->new(\%opts); + +* server -- server to connect to (ip-address, default: localhost) +* binddn -- auth as this DB (like cn=admin,dc=example,dc=com, default: unset) +* bindpass -- auth with this password (string, default: unset) +* userbase -- where to search for users, (like dc=example,dc=com, default: unset) +* userfilter -- objects that pass the filter, considered as users (default : "(class=InetOrgPerson)" + +=head2 C + + my $ldap = LDV::LDAP->new(\%opts); + my $err = $ldap->create($username); + +Returns nothing on success or scalar with text of error. + +=head2 C + + my $ldap = LDV::LDAP->new(\%opts); + my $err = $ldap->delete($username); + +Returns nothing on success or scalar with text of error. + +=head2 C + + my $ldap = LDV::LDAP->new(\%opts); + my $attrs = $ldap->get($username); + +Get user attributes. Returns HASH on success or undef if not found. + +=head2 C + + my $ldap = LDV::LDAP->new(\%opts); + +TODO + +=cut