On 2003-06-16 08:07:17 +0000, Graham Barr wrote:
> On Saturday, Jun 14, 2003, at 23:03 Europe/London, Ziya Suzen wrote:
> >When I try with Net::LDAP 0.28 It says 'Decoding error' and looks like
> >its coming from Bind.pm line 43. And following search operation says
> >'SASL bind in progress'
>
> It would be useful if you could uncomment the debug=>3 in you code
> and send the result.
>
> Graham.
Here it is:
~ $ cat net_ldap_sasl_bind.pl
#!/usr/local/bin/perl5.8.0
use Net::LDAP; #0.28
use Authen::SASL; #0.07
use Carp 'verbose';
my $sasl = Authen::SASL->new(mechanism=>'GSSAPI',callback=>{user=>'u:ziya'});
my $ldap = Net::LDAP->new(
'l3',
onerror=>'die',
debug=>3,
);
print $ldap->bind(sasl=>$sasl)->error, "\n";
~ $ ./net_ldap_sasl_bind.pl
Net::LDAP=HASH(0x1131a4) sending:
30 82 01 D2 02 01 01 60 82 01 CB 02 01 03 04 00 0......`........
A3 82 01 C2 04 06 47 53 53 41 50 49 04 82 01 B6 ......GSSAPI....
60 82 01 B2 06 09 2A 86 48 86 F7 12 01 02 02 01 `.....*.H.......
00 6E 82 01 A1 30 82 01 9D A0 03 02 01 05 A1 03 .n...0..........
02 01 0E A2 07 03 05 00 20 00 00 00 A3 81 E6 61 ........ ......a
81 E3 30 81 E0 A0 03 02 01 05 A1 04 1B 02 4C 33 ..0...........L3
A2 15 30 13 A0 03 02 01 01 A1 0C 30 0A 1B 04 6C ..0........0...l
64 61 70 1B 02 6C 33 A3 81 BB 30 81 B8 A0 03 02 dap..l3...0.....
01 01 A1 03 02 01 01 A2 81 AB 04 81 A8 2E 46 F3 ..............F.
8C 4C 2D 1A 4E 20 69 26 28 14 F0 59 22 B3 DF A4 .L-.N i&(..Y"...
61 DF 2B 08 5F 2B F1 BA D0 92 63 17 C3 53 AE 3F a.+._+....c..S.?
44 5E 0B 33 D0 C0 E8 F8 8C 91 BC 15 A2 91 A5 0C D^.3............
A8 01 B9 45 BB 07 68 22 BE D1 AA 93 CA 5B 36 89 ...E..h".....[6.
3D 2C D7 C9 5F 15 AE 74 84 18 8D ED 1F A2 EF F9 =,.._..t........
39 17 BB 06 7D DA A4 3D 4F E9 FF AA DC F2 92 27 9...}..=O......'
9C B3 B3 BF A8 14 20 73 DB E5 75 0D C0 16 15 CD ...... s..u.....
EA 8E 1B 25 D0 96 7B 91 9C F6 F2 8A 52 5A 36 D7 ...%..{.....RZ6.
9C 0F 0B 56 BC C2 D0 94 82 C9 7C 8D 80 49 23 FD ...V......|..I#.
02 3C D5 2F AE 6C A0 BB 54 B9 84 1E 19 50 DB B0 .<./.l..T....P..
64 6D D0 59 DA A4 81 9E 30 81 9B A0 03 02 01 01 dm.Y....0.......
A2 81 93 04 81 90 B6 67 AB 4C A9 2C B4 4F 36 DC .......g.L.,.O6.
AA 77 D7 53 F6 67 45 C1 72 29 80 01 E8 EF 97 9D .w.S.gE.r)......
C3 30 FE 3D 90 60 57 6E D1 E0 D2 2B B6 59 6A 56 .0.=.`Wn...+.YjV
20 60 F8 AC 5C 81 84 17 25 46 9E 09 EF 61 31 A3 `..\...%F...a1.
11 D3 AB 79 60 CB 4A B2 51 39 6D B9 81 28 D1 FF ...y`.J.Q9m..(..
18 40 BB BD AF 15 56 23 EB 3D 66 2E 7C A7 C3 A1 [EMAIL PROTECTED]|...
19 D7 75 04 0A CC 66 BE 48 76 83 56 EC C4 55 B3 ..u...f.Hv.V..U.
B3 8F A9 10 93 E2 37 71 41 DD E6 2E E1 69 65 21 ......7qA....ie!
71 8E 72 C2 FD 7C 5E B0 1A 80 90 1D 6B 40 1C 50 q.r..|[EMAIL PROTECTED]
0E 0F A3 81 F6 56 __ __ __ __ __ __ __ __ __ __ .....V
Net::LDAP=HASH(0x1131a4) received:
30 70 02 01 01 61 6B 0A 01 0E 04 00 04 00 87 62 0p...ak........b
60 60 06 09 2A 86 48 86 F7 12 01 02 02 02 00 6F ``..*.H........o
51 30 4F A0 03 02 01 05 A1 03 02 01 0F A2 43 30 Q0O...........C0
41 A0 03 02 01 01 A2 3A 04 38 D3 70 E6 79 20 79 A......:.8.p.y y
1F 40 82 3C 98 FB 2C AD F2 30 06 97 3A 12 AD 93 [EMAIL PROTECTED]<..,..0..:...
C8 B9 BC 10 52 7E 13 92 9C 15 9D C3 A0 D1 CA 00 ....R~..........
D9 3E 4C 01 0E 70 D4 51 8C 02 5D DD 73 A2 B6 6E .>L..p.Q..].s..n
22 A8 __ __ __ __ __ __ __ __ __ __ __ __ __ __ ".
Decoding error at /usr/local/lib/perl5/site_perl/5.8.0/Net/LDAP.pm line 80
Net::LDAP::__ANON__('Net::LDAP::Bind=HASH(0x11f78c)') called at
/usr/local/lib/perl5/site_perl/5.8.0/Net/LDAP.pm line 91
Net::LDAP::_error('undef','undef',84,'') called at
/usr/local/lib/perl5/site_perl/5.8.0/Net/LDAP.pm line 739
Net::LDAP::_sendmesg('Net::LDAP=HASH(0x1131a4)','Net::LDAP::Bind=HASH(0x11f78c)')
called at /usr/local/lib/perl5/site_perl/5.8.0/Net/LDAP.pm line 362
Net::LDAP::bind('Net::LDAP=HASH(0x1131a4)','sasl','Authen::SASL=HASH(0x122b94)')
called at ./net_ldap_sasl_bind.pl line 15
~ $
And after this patch :
Index: lib/Net/LDAP/Bind.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Bind.pm,v
retrieving revision 1.4
diff -u -r1.4 Bind.pm
--- lib/Net/LDAP/Bind.pm 6 May 2003 16:45:20 -0000 1.4
+++ lib/Net/LDAP/Bind.pm 16 Jun 2003 08:17:10 -0000
@@ -40,8 +40,8 @@
my $resp = $sasl->client_step($bind->{serverSaslCreds});
- $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return
- unless defined $resp;
+ $self->set_error(LDAP_DECODING_ERROR,$sasl->error), return
+ if $sasl->code;
$self->encode(
bindRequest => {
~ $ ./net_ldap_sasl_bind.pl
Net::LDAP=HASH(0x3cf618) sending:
30 82 01 D2 02 01 01 60 82 01 CB 02 01 03 04 00 0......`........
A3 82 01 C2 04 06 47 53 53 41 50 49 04 82 01 B6 ......GSSAPI....
60 82 01 B2 06 09 2A 86 48 86 F7 12 01 02 02 01 `.....*.H.......
00 6E 82 01 A1 30 82 01 9D A0 03 02 01 05 A1 03 .n...0..........
02 01 0E A2 07 03 05 00 20 00 00 00 A3 81 E6 61 ........ ......a
81 E3 30 81 E0 A0 03 02 01 05 A1 04 1B 02 4C 33 ..0...........L3
A2 15 30 13 A0 03 02 01 01 A1 0C 30 0A 1B 04 6C ..0........0...l
64 61 70 1B 02 6C 33 A3 81 BB 30 81 B8 A0 03 02 dap..l3...0.....
01 01 A1 03 02 01 01 A2 81 AB 04 81 A8 2E 46 F3 ..............F.
8C 4C 2D 1A 4E 20 69 26 28 14 F0 59 22 B3 DF A4 .L-.N i&(..Y"...
61 DF 2B 08 5F 2B F1 BA D0 92 63 17 C3 53 AE 3F a.+._+....c..S.?
44 5E 0B 33 D0 C0 E8 F8 8C 91 BC 15 A2 91 A5 0C D^.3............
A8 01 B9 45 BB 07 68 22 BE D1 AA 93 CA 5B 36 89 ...E..h".....[6.
3D 2C D7 C9 5F 15 AE 74 84 18 8D ED 1F A2 EF F9 =,.._..t........
39 17 BB 06 7D DA A4 3D 4F E9 FF AA DC F2 92 27 9...}..=O......'
9C B3 B3 BF A8 14 20 73 DB E5 75 0D C0 16 15 CD ...... s..u.....
EA 8E 1B 25 D0 96 7B 91 9C F6 F2 8A 52 5A 36 D7 ...%..{.....RZ6.
9C 0F 0B 56 BC C2 D0 94 82 C9 7C 8D 80 49 23 FD ...V......|..I#.
02 3C D5 2F AE 6C A0 BB 54 B9 84 1E 19 50 DB B0 .<./.l..T....P..
64 6D D0 59 DA A4 81 9E 30 81 9B A0 03 02 01 01 dm.Y....0.......
A2 81 93 04 81 90 3E 0C D3 E7 D5 98 73 3B 87 4F ......>.....s;.O
6C 14 42 9E 27 84 1E 64 15 F8 3E 4C CC 6E BF 3E l.B.'..d..>L.n.>
8E 8E 13 D9 23 CD F8 3E 70 4F 93 EF AC D8 02 A5 ....#..>pO......
45 90 C0 09 B6 E3 22 C4 86 47 81 5F D2 96 17 CC E....."..G._....
43 9D B7 10 E4 F9 8B 9E AE FC 78 50 B0 DE 0D F9 C.........xP....
04 78 64 31 42 B9 71 B6 2A 8C 94 C8 02 61 65 4A .xd1B.q.*....aeJ
4F 6F 46 62 FD 30 CC 43 F0 A7 52 B9 4A 14 48 B9 OoFb.0.C..R.J.H.
7A A5 F6 20 2A 55 F0 28 3D DA 74 E6 85 09 87 4F z.. *U.(=.t....O
30 C0 F8 CE 3A CA 02 61 49 D1 6C 34 D8 A7 87 7A 0...:..aI.l4...z
07 0C 44 38 86 F3 __ __ __ __ __ __ __ __ __ __ ..D8..
Net::LDAP=HASH(0x3cf618) received:
30 70 02 01 01 61 6B 0A 01 0E 04 00 04 00 87 62 0p...ak........b
60 60 06 09 2A 86 48 86 F7 12 01 02 02 02 00 6F ``..*.H........o
51 30 4F A0 03 02 01 05 A1 03 02 01 0F A2 43 30 Q0O...........C0
41 A0 03 02 01 01 A2 3A 04 38 11 A1 7B 8D 58 AB A......:.8..{.X.
55 AE 94 4C DF 02 AE 91 3E 25 CF 64 70 02 78 D3 U..L....>%.dp.x.
1A CA B9 70 1A 4F DF EC 31 8B D1 86 14 61 53 7E ...p.O..1....aS~
D4 29 B8 A2 27 C3 CC 08 B5 CC 0E 68 02 D2 74 BE .)..'......h..t.
64 57 __ __ __ __ __ __ __ __ __ __ __ __ __ __ dW
Net::LDAP=HASH(0x1200f4) sending:
30 14 02 01 02 60 0F 02 01 03 04 00 A3 08 04 06 0....`..........
47 53 53 41 50 49 __ __ __ __ __ __ __ __ __ __ GSSAPI
Net::LDAP=HASH(0x1200f4) received:
30 43 02 01 02 61 3E 0A 01 0E 04 00 04 00 87 35 0C...a>........5
60 33 06 09 2A 86 48 86 F7 12 01 02 02 02 01 00 `3..*.H.........
00 FF FF FF FF C8 CD 23 52 2F 42 DC 2F D9 2B 79 .......#R/B./.+y
62 DA 0B 15 82 4D 46 9A 69 F8 71 BF A0 07 01 00 b....MF.i.q.....
00 04 04 04 04 __ __ __ __ __ __ __ __ __ __ __ .....
Net::LDAP=HASH(0x40f3d4) sending:
30 53 02 01 03 60 4E 02 01 03 04 00 A3 47 04 06 0S...`N......G..
47 53 53 41 50 49 04 3D 60 3B 06 09 2A 86 48 86 GSSAPI.=`;..*.H.
F7 12 01 02 02 02 01 00 00 FF FF FF FF 5F 33 8C ............._3.
AD 44 D8 B4 68 20 19 29 3B 60 54 A0 41 F0 2D 48 .D..h .);`T.A.-H
04 CD A7 F6 56 04 00 FF FF 75 3A 7A 69 79 61 06 ....V....u:ziya.
06 06 06 06 06 __ __ __ __ __ __ __ __ __ __ __ .....
Net::LDAP=HASH(0x40f3d4) received:
30 0C 02 01 03 61 07 0A 01 00 04 00 04 00 __ __ 0....a........
Success
~ $
I hope it helps,
Thanks,
Ziya.
