[Fwd] Bug in Net::LDAP?

[Graham B. <gb...@po...>]

----- Forwarded message from "Mouawad, Naji" <NAJ...@sa...> -----

From: "Mouawad, Naji" <NAJ...@sa...>
To: "'gb...@po...'" <gb...@po...>
Cc: "'Steve Misrack'" <st...@es...>
Subject: Bug in Net::LDAP?
Date: Fri, 21 Jul 2000 14:18:18 -0700
X-Mailer: Internet Mail Service (5.5.2650.21)

Graham:
  Consider the following code:

## ############### BEGIN PERL CODE #######################
#!/usr/bin/perl
use strict;
$| = 1; 
use Net::LDAP;
sub Get_Info {
    my $Name = shift;
    my $ldap = Net::LDAP->new('server_name'); 
    $ldap->bind;
    my $mesg = $ldap->search(base => 'o=The_Word',
			     filter=>'ou=' . $Name);
    foreach my $entry ($mesg->all_entries) { $entry->dump;}
    $ldap->unbind;
} ## Get_Info
			 
my $good_name    = 'Test Company 3';
my $bad_name = "International Technegroup, Inc. (ITI)";
print "Searching for $good_name\n";
Get_Info($good_name);

print "\nSearching for $bad_name\n";
Get_Info($bad_name);

### #################### END OF PERL CODE

The script hangs when it attempts to search for the bad name. I traced it
down to 
parenthesis. Even when the parenthesis are escaped, the problem persists.

Is this a bug or am I not using the package as it was intended to be used?

Naji.


Dr. Naji Mouawad, Ph.D.
Senior Systems Architect
Center for Advanced Information Technology
Science Applications International Corporation
4161 Campus Point Court, M/S E-2, San Diego CA 92121
Phone: 760-598-4095 -- 858-826-9417
Fax    : 209-844-8210 -- 858-826-5617
mou...@sa...




----- End forwarded message -----