On 4/7/03 5:54 pm, JPrimant <[EMAIL PROTECTED]> wrote:
>
> I have written a Perl/Tk program for Windows/UNIX clients that queries a
> Microsoft Active Directory (AD) domain controller running LDAP. Typical
> "ends with" type query filters, i.e. sAMAccountName\=*userid, can take
> several minutes to produce a result. Also, a user may attempt an
> unreasonable and lengthy search, querying all users in the company that
> begin with the letter 'a' (producing thousands of results) for example.
> The Tk program then looks like it is hung for several minutes. So, I am
> attempting to provide a configurable timeout that can be set on the
> Perl/Tk main window that is used in the search query. I have found that
> the timeout parameter does not function. Here is an example that takes
> several minutes to perform the query. The timeout parameter does not
> abort the query. Can anyone guide me on how to get the timeout parameter
> to work?
>
> Joe Primanti
>
>
>
> Example:
>
> use Net::LDAP;
> $base = "dc=aaa, dc=bbb, dc=com";
> $userid = "*userid";
>
> if ($ldap = Net::LDAP->new("aaa.bbb.com", port => 3268, timeout => 10))
> {
> $qry = "(&(sAMAccountName\=$userid))";
> $mesg = $ldap->search(
> base => $base,
> attrs => [
> attr => 'mail',
> ],
> filter => $qry,
> timeout => 10,
Try this:
timelimit => 10,
In the search argument list instead!
Cheers,
Chris
