Net::LDAP::Control::ProxyAuthSection: User Contributed Perl Documentation (3)Updated: 2003-05-09 |
Net::LDAP::Control::ProxyAuthSection: User Contributed Perl Documentation (3)Updated: 2003-05-09 |
use Net::LDAP; use Net::LDAP::Control::ProxyAuth;
$ldap = Net::LDAP->new( "ldap.mydomain.eg" );
$auth = Net::LDAP::Control::ProxyAuth->new( proxyDN => 'cn=me,ou=people,o=myorg.com' );
@args = ( base => "cn=subnets,cn=sites,cn=configuration,$BASE_DN",
scope => "subtree",
filter => "(objectClass=subnet)",
callback => \&process_entry, # Call this sub for each entry
control => [ $auth ],
);
while(1) { # Perform search my $mesg = $ldap->search( @args );
# Only continue on LDAP_SUCCESS $mesg->code and last;
}
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>
$Id: ProxyAuth.pm,v 1.3 2003/05/07 11:53:26 chrisridd Exp $