From: Graham B. <gb...@po...> - 2002-08-07 20:03:31
|
----- Forwarded message from Joshua Kahn <ka...@ma...> ----- Date: Wed, 07 Aug 2002 14:58:16 -0500 To: gb...@po... From: Joshua Kahn <ka...@ma...> Subject: LDAP Help Graham- I am working on a simple LDAP Search for our department site, however, I have encountered an error that I have not been able to solve. In the error log, I get the following message: decode error 15 17 at /Library/Perl/Convert/ASN1/_decode.pm line 196. I have not been able to determine what is causing this error, any ideas? We are using a Mac OS-9 server. It would seem to me that the server is returning information that the decoded is not prepared for. Any help you can give would be much appreciated. I have included my code below. Thank you, Josh Kahn University of Wisconsin-Madison Department of Human Oncology --------------------------------------------------------------------------------------------------------------- my $hostname = "mail.humonc.wisc.edu"; my $dn = "humonc"; my $port = 389; my $scope = "base"; my $filter = ""; my @attributes = ("cn" , "mail"); sub search { # Data from HTML form my $dfilter = $cgi->param('dfilter'); my $criteria = $cgi->param('criteria'); if ($dfilter = "Email") { $filter = "mail=$criteria"; } elsif ($dfilter = "Name") { $filter = "cn=$criteria"; } &connect; $ldap->bind; my $result = $ldap->search( base => $dn, scope => $scope, filter => $filter ); die $result->error if $result->code; &startHTMLpage; # display results &endHTMLpage; $ldap->unbind; } ################# sub connect { # Create new connection to mail server $ldap = Net::LDAP->new($hostname, port => $port, debug => 3, timeout => 30 ) || die ("Failed to open connection to mail server"); } ----- End forwarded message ----- |