use Net::LDAP;
use Net::LDAP::Constant qw(LDAP_SUCCESS LDAP_CANCELED)
use Net::LDAP::Extension::Cancel;
$ldap = Net::LDAP->new( 'ldap.mydomain.eg' );
$ldap->bind('cn=Joe User,cn=People,dc=example,dc=com',
password => 'secret');
$search = $ldap->search(
base => 'c=US',
filter => '(&(sn=Barr) (o=Texas Instruments))',
callback => \&process_entry, # Call this sub for each entry
);
$mesg = $ldap->cancel($search);
die "error :", $mesg->code(), ": ", $mesg->error()
if ($mesg->code() != LDAP_CANCELED && mesg->code() != LDAP_SUCCESS);
The "Cancel" extended operation is very similar to the "Abandon" standard operation, and has the same call signature. Unlike the "Abandon" operation, it has a response which provides an indication of its outcome.
It implements no object by itself but extends the Net::LDAP object by another method:
OPTIONS is a list of key/value pairs. The following keys are recognized:
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>