Re: NEW: chasing referrals

[Roland S. <rol...@ep...>]

Hi all,

Clif Harden wrote:
> > Is it the old (stable) version of OpenLDAP? (1.2.11)
> > Do you suggest updating to 2.0.7?
> If you are going to use version 3 ldap you must upgrade
> to 2.0.7.  1.2.11 is version 2 only.

I upgraded to the new version, now using perl-ldap 0.22, OpenLDAP 2.0.7.
Still I don't get the referrals:

-----
$ldap = Net::LDAP->new("eigen");
$bindresult = $ldap->bind(version => 3, anonymous => 1);
print "Bind result: ",$bindresult->code,", Message:
",$bindresult->error,"\n";
print "LDAP Version: ",$ldap->version,"\n";
print "Search: ";

$mesg = $ldap->search( base => "o=epigenomics",
                       filter => '(cn=*)',
                       deref => 3,
                     );
@referrals = $mesg->referrals;

foreach $ref (@referrals) {
  print "Referral: ",$ref,"\n";
}

print "Return code: ",$mesg->code,"\n";
print "Error message: \"",$mesg->error,"\"\n";

$n = $mesg->all_entries;
print "Number of Entries: ".$n."\n";

foreach $entry ($mesg->entries) {
  print "dn: ",$entry->dn,"\n";
}
-----

output:
-----
Bind result: 0, Message: Success
LDAP Version: 3
Search: Return code: 0
Error message: "Success"
Number of Entries: 2
dn: cn=admin,o=epigenomics
dn: cn=updated,o=epigenomics
-----

Where is the referral? Do I use the array in the right way?

ldapsearch finds it:
-----
# search reference
ref: ldap://deledda/c=us,o=epigenomics
----- 

Thank you in advance!

bye,
-- 
Roland Stigge
 
Epigenomics AG                              Kastanienallee 24
www.epigenomics.com                              10435 Berlin