Re: New to Perl-LDAP

[Mark W. <mew...@un...>]

How are you printing out your results,

They should be something like this:
while (my $entry = $results->shift_entry())
{
   $entry->dump();
}

You can also find out if the LDAP server returned an error by using :

print $result->code();

anything NOT 0 (zero) is an error.

Mark

Cliff Cloyd wrote:

> Jim, thanks fo rthe input butI still can't seem to return any results. Are there any mechanisms in place for error checking that I may be missing? It seems like it should work, but I don't have any idea what's actually taking place when the script runs. Thanks again for your help.
>
> Cliff Cloyd
> Systems Administrator
> Hillcrest Healthcare Systems
> 918.579.7781
> cc...@hi...
>
> >>> Jim Harle <ha...@us...> 07/13/00 01:39PM >>>
> Cliff, here are at least some problems:
>
>          if (!$base ) { $base = "his.hhs"; {
> this should be something like $base = "ou=his,o=hhs"
>
>           my $result = $ldap->search (
>                 base    => "$base",
>                 scope   => "sub",
>                 filter  => "$last",
> s.b. filter => "(sn=$last)"
>                 attrs   =>  "$attrs",
> s.b.  attrs   =>  $attrs,
>                 );
>
>   --Jim Harle
>   US Naval Academy
>