perl-ldap-dev

RE: Displaying Search Results

[Bouarich, R. <Red...@co...>]

Hello, 
After performing a search operation like the following for instance
 $mesg = $ldap->search(
		base   => BASEDN,
		filter => $filter,
		cn  => \@_,
    );
    die $mesg->error if $mesg->code;

  

 my $entry;
   while ($entry = $mesg->pop_entry()) {
   
   #get the returned entry 
   my $entry = $mesg->pop_entry();
   
   #to print out the dn of the returned entry:
   print "dn:",$entry->dn(),"\n\n";
  
   #to print out for instance the sn of the returned entry:

	my $v;
     foreach $v ($entry->get("sn"))
     {
          print "value of the sn is $v\n";
     }
}
   
   
Hope it will help.
Reda.   
   

-----Original Message-----
From: spencer [mailto:sp...@co...]
Sent: Monday, July 24, 2000 11:06 AM
To: per...@li...
Subject: Displaying Search Results


Hi,
I am new to perldap. Can someone show me how I can print out search results
after calling the ldap->search?

Thanks.

spencer

Re: Displaying Search Results

[Chris R. <Chr...@me...>]

On Mon, 24 Jul 2000 17:05:33 +0800, spencer wrote:
> Hi,
> I am new to perldap. Can someone show me how I can print out search results
> after calling the ldap->search?
> 
> Thanks.
> 
> spencer
> 
> 

$res = $ldap->search(....);

foreach my $entry ($res->entries) {
    print "Entry returned with DN: ", entry->dn, "\n";
    foreach my $attr ($entry->attributes) {
        foreach my $val ($entry->get($attr)) {
            print "Attribute \"$attr\" with value \"$value\"\n";
        }
    }
}

This assumes that all attribute values will be printable, which is an 
incorrect assumption. JPEG photographs are not, X.509 certificates are 
not, etc, so the output will be odd if you have any of these attributes.

Cheers,

Chris

Displaying Search Results

[spencer <sp...@co...>]

Hi,
Thanks Chris, Reda for the suggestion. I just realised that the failure to
display results might actually lie elsewhere. Reading a previous email,
Cliff seemed to have the same problem too. The script runs without error,
but without results too(sadly).

Does the following code look 'buggy'?

use Net::LDAP qw(:all);
use Net::LDAP::Util qw(ldap_error_name ldap_error_text);

$ldap=Net::LDAP->new('coriander.mail.abs.com.my') or die "$@";
$mesg=$ldap->bind;

$result=$ldap->search(
  base=>"o=abs,c=my",
  filter=>"sn=Jones",
  attrs=>['cn','sn']
  );
print $result->entries;            #print statement
foreach $entry ($result->entries)
{
 print "Entry returned with DN:",$entry->dn,"\n";
 foreach $attr($entry->attributes)
 {
  foreach $val($entry->get($attr))
  {
   print "Attribute \"$attr\" with value \"$val\"\n";
  }
 }
}

My print statement to display $result->entries prints blank. I am very sure
that there are such entries that I am looking for in this script.

By the way, I am using perl-ldap-0.19 with Convert ASN1 module and Active
Perl v5.6.0. Any problem with this, possibly?

Please help.

Many thank.

spencer

Re: Displaying Search Results

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

On Tue, Jul 25, 2000 at 05:52:50PM +0800, spencer wrote:
> By the way, I am using perl-ldap-0.19 with Convert ASN1 module and Active
> Perl v5.6.0. Any problem with this, possibly?

Perl v5.6.0 may be causing a problem. Can you possibly try it with
5.005_03 ?

Graham.

Re: Displaying Search Results

[Chris R. <Chr...@me...>]

On Tue, 25 Jul 2000 17:52:50 +0800, "spencer" wrote:
> Hi,
> Thanks Chris, Reda for the suggestion. I just realised that the failure to
> display results might actually lie elsewhere. Reading a previous email,
> Cliff seemed to have the same problem too. The script runs without error,
> but without results too(sadly).
> 
> Does the following code look 'buggy'?
> 
> use Net::LDAP qw(:all);
> use Net::LDAP::Util qw(ldap_error_name ldap_error_text);
> 
> $ldap=Net::LDAP->new('coriander.mail.abs.com.my') or die "$@";
> $mesg=$ldap->bind;
> 
> $result=$ldap->search(
>   base=>"o=abs,c=my",
>   filter=>"sn=Jones",
>   attrs=>['cn','sn']
>   );

You ought to check the result code at this point, in case the server 
returned an error.

$code = $result->code;
die "Error " . ldap_error_name($code) . "\n" if $code;

> By the way, I am using perl-ldap-0.19 with Convert ASN1 module and Active
> Perl v5.6.0. Any problem with this, possibly?

As Graham has noted, that's highly likely.

Cheers,

Chris