How to fix LDAP search ERROR using perl ?

[santhanalakshmi]

Hi,

Please help me out. I have successfully binded to my ADSI server(windows 2003 machine) from my windows XP machine?

#LDAP SEARCHING

my $ldapSearch = $ldap->search(base => $ldapbase,
                filter => "uid=$login");
 
 
die "There was an error during search:\n\t" .ldap_error_name($ldapSearch->code)."   ". ldap_error_text($ldapSearch->code) 
    if $ldapSearch->code;
 
print "No results returned\n" and exit 
    if( (!$ldapSearch) || ($ldapSearch->count == 0) );
 
my $ldif = Net::LDAP::LDIF->new(\*STDOUT, "a");
while(my $ldapEntry = $ldapSearch->pop_entry() )
{
    $ldif->write_entry($ldapEntry);
}
 

ERROR in LOG FILE:
[Tue Mar 15 16:40:43 2011] [error] [client 127.0.0.1] There was an error during search:
[Tue Mar 15 16:40:43 2011] [error] [client 127.0.0.1] LDAP_OPERATIONS_ERROR Server encountered an internal error


How to solve this error? I am not getting any idea. I think so, i am going in correct path. Please help me out.