Menu
▾
▴
Re: NEW: chasing referrals
|
From: Roland S. <rol...@ep...> - 2001-04-23 07:53:45
|
Hi!
Graham Barr wrote:
> A debug trace is the only way we are going to be able to help you
Sorry:
-----
Net::LDAP=HASH(0x80f1538) sending:
30 0C 02 01 01 60 07 02 01 03 04 00 80 00 __ __ 0....`........
0000 30 12: SEQUENCE {
0002 02 1: INTEGER = 1
0005 60 7: [APPLICATION 0] {
0007 02 1: INTEGER = 3
000A 04 0: STRING = ''
000C 80 0: [CONTEXT 0]
000E : }
000E : }
Net::LDAP=HASH(0x80f1538) received:
30 0C 02 01 01 61 07 0A 01 00 04 00 04 00 __ __ 0....a........
0000 30 12: SEQUENCE {
0002 02 1: INTEGER = 1
0005 61 7: [APPLICATION 1] {
0007 0A 1: ENUM = 0
000A 04 0: STRING = ''
000C 04 0: STRING = ''
000E : }
000E : }
Net::LDAP=HASH(0x80f1538) sending:
30 29 02 01 02 63 24 04 0D 6F 3D 65 70 69 67 65 0)...c$..o=epige
6E 6F 6D 69 63 73 0A 01 02 0A 01 03 02 01 00 02 nomics..........
01 00 01 01 00 87 02 63 6E 30 00 __ __ __ __ __ .......cn0.
0000 30 41: SEQUENCE {
0002 02 1: INTEGER = 2
0005 63 36: [APPLICATION 3] {
0007 04 13: STRING = 'o=epigenomics'
0016 0A 1: ENUM = 2
0019 0A 1: ENUM = 3
001C 02 1: INTEGER = 0
001F 02 1: INTEGER = 0
0022 01 1: BOOLEAN = FALSE
0025 87 2: [CONTEXT 7]
0027 : 63 6E __ __ __ __ __ __ __ __ __ __ __ __ __ __ cn
0029 30 0: SEQUENCE {
002B : }
002B : }
002B : }
Net::LDAP=HASH(0x80f1538) received:
30 56 02 01 02 64 51 04 16 63 6E 3D 61 64 6D 69 0V...dQ..cn=admi
6E 2C 6F 3D 65 70 69 67 65 6E 6F 6D 69 63 73 30 n,o=epigenomics0
37 30 17 04 0B 6F 62 6A 65 63 74 43 6C 61 73 73 70...objectClass
31 08 04 06 70 65 72 73 6F 6E 30 0D 04 02 63 6E 1...person0...cn
31 07 04 05 61 64 6D 69 6E 30 0D 04 02 73 6E 31 1...admin0...sn1
07 04 05 61 64 6D 69 6E __ __ __ __ __ __ __ __ ...admin
0000 30 86: SEQUENCE {
0002 02 1: INTEGER = 2
0005 64 81: [APPLICATION 4] {
0007 04 22: STRING = 'cn=admin,o=epigenomics'
001F 30 55: SEQUENCE {
0021 30 23: SEQUENCE {
0023 04 11: STRING = 'objectClass'
0030 31 8: SET {
0032 04 6: STRING = 'person'
003A : }
003A : }
003A 30 13: SEQUENCE {
003C 04 2: STRING = 'cn'
0040 31 7: SET {
0042 04 5: STRING = 'admin'
0049 : }
0049 : }
0049 30 13: SEQUENCE {
004B 04 2: STRING = 'sn'
004F 31 7: SET {
0051 04 5: STRING = 'admin'
0058 : }
0058 : }
0058 : }
0058 : }
0058 : }
Net::LDAP=HASH(0x80f1538) received:
30 5C 02 01 02 64 57 04 18 63 6E 3D 75 70 64 61 0\...dW..cn=upda
74 65 64 2C 6F 3D 65 70 69 67 65 6E 6F 6D 69 63 ted,o=epigenomic
73 30 3B 30 17 04 0B 6F 62 6A 65 63 74 43 6C 61 s0;0...objectCla
73 73 31 08 04 06 70 65 72 73 6F 6E 30 0F 04 02 ss1...person0...
63 6E 31 09 04 07 75 70 64 61 74 65 64 30 0F 04 cn1...updated0..
02 73 6E 31 09 04 07 75 70 64 61 74 65 64 __ __ .sn1...updated
0000 30 92: SEQUENCE {
0002 02 1: INTEGER = 2
0005 64 87: [APPLICATION 4] {
0007 04 24: STRING = 'cn=updated,o=epigenomics'
0021 30 59: SEQUENCE {
0023 30 23: SEQUENCE {
0025 04 11: STRING = 'objectClass'
0032 31 8: SET {
0034 04 6: STRING = 'person'
003C : }
003C : }
003C 30 15: SEQUENCE {
003E 04 2: STRING = 'cn'
0042 31 9: SET {
0044 04 7: STRING = 'updated'
004D : }
004D : }
004D 30 15: SEQUENCE {
004F 04 2: STRING = 'sn'
0053 31 9: SET {
0055 04 7: STRING = 'updated'
005E : }
005E : }
005E : }
005E : }
005E : }
Net::LDAP=HASH(0x80f1538) received:
30 28 02 01 02 73 23 04 21 6C 64 61 70 3A 2F 2F 0(...s#.!ldap://
64 65 6C 65 64 64 61 2F 63 3D 75 73 2C 6F 3D 65 deledda/c=us,o=e
70 69 67 65 6E 6F 6D 69 63 73 __ __ __ __ __ __ pigenomics
0000 30 40: SEQUENCE {
0002 02 1: INTEGER = 2
0005 73 35: [APPLICATION 19] {
0007 04 33: STRING = 'ldap://deledda/c=us,o=epigenomics'
002A : }
002A : }
Net::LDAP=HASH(0x80f1538) received:
30 0C 02 01 02 65 07 0A 01 00 04 00 04 00 __ __ 0....e........
0000 30 12: SEQUENCE {
0002 02 1: INTEGER = 2
0005 65 7: [APPLICATION 5] {
0007 0A 1: ENUM = 0
000A 04 0: STRING = ''
000C 04 0: STRING = ''
000E : }
000E : }
Net::LDAP=HASH(0x80f1538) sending:
30 05 02 01 03 42 00 __ __ __ __ __ __ __ __ __ 0....B.
0000 30 5: SEQUENCE {
0002 02 1: INTEGER = 3
0005 42 0: [APPLICATION 2]
0007 : }
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
-----
The referral seems to be transferred but not returned by Net::LDAP.
> > 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
|
