From: Per <per...@un...> - 2000-07-14 12:32:42
|
I have tried to use the Net::LDAP::Paged module to do paged searches towards an LDAP v3 with this ext. control enabled. I have tried the following code: use Net::LDAP; use Net::LDAP::Control; use Net::LDAP::Control::Paged; $ldap = Net::LDAP->new('myhost') or die "$@"; $ldap->bind( version => 3); $ctrl = Net::LDAP::Control::Paged->new( size => 2, cookie => "", critical =>1 ); $mesg = $ldap->search ( base => "c=DK", filter => "(o=*)", control => $ctrl ); $mesg->code && die $mesg->error; print $mesg->count,"\n"; The debug output shows, that I receive the first page, but is not able to decode the pagedResultsControl. Perhaps it is a problem in Convert::ASN ? Net::LDAP=HASH(0x80cd61c) sending: Net::LDAP=HASH(0x80cd61c) received: 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(0x80cd61c) sending: Net::LDAP=HASH(0x80cd61c) received: 0000 30 362: SEQUENCE { 0004 02 1: INTEGER = 2 0007 64 355: [APPLICATION 4] { 000B 04 32: STRING = 'o=Deutsche Schule Feldstedt,c=dk' 002D 30 317: SEQUENCE { 0031 30 52: SEQUENCE { 0033 04 11: STRING = 'objectClass' 0040 31 37: SET { 0042 04 3: STRING = 'top' 0047 04 12: STRING = 'organization' 0055 04 16: STRING = 'snetOrganization' 0067 : } 0067 : } 0067 30 40: SEQUENCE { 0069 04 6: STRING = 'street' 0071 31 30: SET { 0073 04 28: STRING 0075 : 53 C3 B8 6E 64 65 72 62 6F 72 67 76 65 6A 20 31 S..nderborgvej 1 0085 : 32 31 20 2D 20 46 65 6C 73 74 65 64 __ __ __ __ 21 - Felsted 0091 : } 0091 : } 0091 30 32: SEQUENCE { 0093 04 1: STRING = 'o' 0096 31 27: SET { 0098 04 25: STRING = 'Deutsche Schule Feldstedt' 00B3 : } 00B3 : } 00B3 30 27: SEQUENCE { 00B5 04 13: STRING = 'postalAddress' 00C4 31 10: SET { 00C6 04 8: STRING 00C8 : C3 85 62 65 6E 72 C3 A5 __ __ __ __ __ __ __ __ ..benr.. 00D0 : } 00D0 : } 00D0 30 20: SEQUENCE { 00D2 04 10: STRING = 'postalCode' 00DE 31 6: SET { 00E0 04 4: STRING = '6200' 00E6 : } 00E6 : } 00E6 30 29: SEQUENCE { 00E8 04 15: STRING = 'telephoneNumber' 00F9 31 10: SET { 00FB 04 8: STRING = '74685407' 0105 : } 0105 : } 0105 30 38: SEQUENCE { 0107 04 24: STRING = 'facsimileTelephoneNumber' 0121 31 10: SET { 0123 04 8: STRING = '74685407' 012D : } 012D : } 012D 30 33: SEQUENCE { 012F 04 21: STRING = 'snetInstitutionNumber' 0146 31 8: SET { 0148 04 6: STRING = '519006' 0150 : } 0150 : } 0150 30 28: SEQUENCE { 0152 04 19: STRING = 'snetInstitutionType' 0167 31 5: SET { 0169 04 3: STRING = '121' 016E : } 016E : } 016E : } 016E : } 016E : } Net::LDAP=HASH(0x80cd61c) received: 0000 30 410: SEQUENCE { 0004 02 1: INTEGER = 2 0007 64 403: [APPLICATION 4] { 000B 04 20: STRING 000D : 6F 3D 56 65 64 62 C3 A6 6B 20 53 6B 6F 6C 65 2C o=Vedb..k Skole, 001D : 63 3D 64 6B __ __ __ __ __ __ __ __ __ __ __ __ c=dk 0021 30 377: SEQUENCE { 0025 30 33: SEQUENCE { 0027 04 4: STRING = 'mail' 002D 31 25: SET { 002F 04 23: STRING = 'ved...@po...' 0048 : } 0048 : } 0048 30 52: SEQUENCE { 004A 04 11: STRING = 'objectClass' 0057 31 37: SET { 0059 04 3: STRING = 'top' 005E 04 12: STRING = 'organization' 006C 04 16: STRING = 'snetOrganization' 007E : } 007E : } 007E 30 31: SEQUENCE { 0080 04 6: STRING = 'street' 0088 31 21: SET { 008A 04 19: STRING = 'Henriksholms Alle 2' 009F : } 009F : } 009F 30 20: SEQUENCE { 00A1 04 1: STRING = 'o' 00A4 31 15: SET { 00A6 04 13: STRING 00A8 : 56 65 64 62 C3 A6 6B 20 53 6B 6F 6C 65 __ __ __ Vedb..k Skole 00B5 : } 00B5 : } 00B5 30 26: SEQUENCE { 00B7 04 13: STRING = 'postalAddress' 00C6 31 9: SET { 00C8 04 7: STRING 00CA : 56 65 64 62 C3 A6 6B __ __ __ __ __ __ __ __ __ Vedb..k 00D1 : } 00D1 : } 00D1 30 20: SEQUENCE { 00D3 04 10: STRING = 'postalCode' 00DF 31 6: SET { 00E1 04 4: STRING = '2950' 00E7 : } 00E7 : } 00E7 30 29: SEQUENCE { 00E9 04 15: STRING = 'telephoneNumber' 00FA 31 10: SET { 00FC 04 8: STRING = '45893355' 0106 : } 0106 : } 0106 30 38: SEQUENCE { 0108 04 24: STRING = 'facsimileTelephoneNumber' 0122 31 10: SET { 0124 04 8: STRING = '45893350' 012E : } 012E : } 012E 30 33: SEQUENCE { 0130 04 21: STRING = 'snetInstitutionNumber' 0147 31 8: SET { 0149 04 6: STRING = '181007' 0151 : } 0151 : } 0151 30 28: SEQUENCE { 0153 04 19: STRING = 'snetInstitutionType' 0168 31 5: SET { 016A 04 3: STRING = '121' 016F : } 016F : } 016F 30 45: SEQUENCE { 0171 04 12: STRING = 'snetHomePage' 017F 31 29: SET { 0181 04 27: STRING = 'http://www.vedbaekskole.dk/' 019E : } 019E : } 019E : } 019E : } 019E : } Net::LDAP=HASH(0x80cd61c) received: 0000 30 51: SEQUENCE { 0002 02 1: INTEGER = 2 0005 65 7: [APPLICATION 5] { 0007 0A 1: ENUM = 11 000A 04 0: STRING = '' 000C 04 0: STRING = '' 000E : } 000E A0 37: [CONTEXT 0] { 0010 30 35: SEQUENCE { 0012 04 22: STRING = '1.2.840.113556.1.4.319' 002A 04 9: STRING 002C : 30 07 02 01 00 04 02 33 30 __ __ __ __ __ __ __ 0......30 0035 : } 0035 : } 0035 : } decode error at /usr/lib/perl5/site_perl/5.005/Convert/ASN1/_decode.pm line 63 -- Per Møgelhøj UNI-C Vermundsgade 5 DK 2100 Kbn Ø Phone: +45 35 87 88 63 Fax: +45 35 87 88 90 Email: Per...@un... |