Net::LDAP::ReferenceSection: User Contributed Perl Documentation (3)Updated: 2003-05-09 |
Net::LDAP::ReferenceSection: User Contributed Perl Documentation (3)Updated: 2003-05-09 |
use Net::LDAP;
$ldap->search( @search_args, callback => \&process);
sub process {
my $mesg = shift;
my $obj = shift;
if (!$obj) {
# Search complete
}
elsif ($obj->isa('Net::LDAP::Reference')) {
my $ref;
foreach $ref ($obj->references) {
# process ref
}
}
else {
# Process Net::LDAP::Entry
}
}
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>.
$Id: Reference.pod,v 1.4 2003/05/07 11:14:22 chrisridd Exp $