[Fwd] LDAP Help

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

----- 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 -----