On 2003-06-16 10:55:15 +0000, Ziya Suzen wrote:
> 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.
> 
> 

More on this issue:
(Although I am not sure if it is appropriate to carry on perl-ldap list since
it looks like Authen::SASL::Cyrus problem)

After applying the patch seen in
http://www.xray.mpe.mpg.de/mailing-lists/perl-ldap/2003-02/msg00014.html
to Authen::SASL::Cyrus, search starts working but then it hangs untill
I stop slapd (OpenLDAP Daemon)

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";

print $ldap->search (base=>"dc=suezen,dc=org",
                     filter=>'(objectclass=*)')->error, "\n";


~ $ ./net_ldap_sasl_bind.pl 
  Net::LDAP=HASH(0x3cf720) 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 77 19 FF .............w..
3F CA F4 1C 11 50 43 1C 62 4B AA 19 34 B0 27 2A ?....PC.bK..4.'*
97 26 ED 38 60 99 D9 7A C5 83 42 88 85 55 FB 46 .&.8`..z..B..U.F
44 00 2F A6 73 03 4F 9F 9B CD 2F B2 31 1D EB 31 D./.s.O.../.1..1
AD 17 D5 09 8C 36 55 AB 7E A5 DB D6 AD 61 9C FD .....6U.~....a..
20 E4 AE 63 F6 DE 37 0A FE F9 9D 9F 14 4B 30 C1  ..c..7......K0.
A0 74 40 61 8D F6 69 C0 EB 82 A4 CB C1 3B 36 71 [EMAIL PROTECTED];6q
E8 92 96 43 CD D3 D8 D1 4A DC 9B 71 7C E5 DF 71 ...C....J..q|..q
7F 70 77 F4 75 9B 30 EE 03 8C 77 B0 F4 6D 9D D0 .pw.u.0...w..m..
43 E6 5F BA 79 4B 0D 4D CB 8C 6F DE 81 C1 B6 CF C._.yK.M..o.....
91 89 5C C2 CF E1 D9 AF 56 42 C6 80 11 32 B4 2C ..\.....VB...2.,
EE 13 26 9F CF A4 81 9E 30 81 9B A0 03 02 01 01 ..&.....0.......
A2 81 93 04 81 90 7F 52 A3 17 D4 D3 FD 16 34 53 .......R......4S
61 A1 73 E9 CA 58 56 8C 47 FC CD 13 5E 42 D6 2F a.s..XV.G...^B./
4A 71 35 94 0A A0 8F 87 54 E7 D8 14 6A B0 58 70 Jq5.....T...j.Xp
64 89 F1 91 9D 11 E0 E9 7C CA FB 0A DC DA 7B AA d.......|.....{.
F5 9E B6 B6 F4 0E B9 D9 83 25 D6 71 A2 C7 66 87 .........%.q..f.
68 46 83 8B 37 FC 1C C1 BD 89 0B 99 98 FB 60 74 hF..7.........`t
5B 4D F7 64 42 4B C4 4E C2 DD E7 4E 7F C7 DE 6B [M.dBK.N...N...k
7C A7 CC 14 1E 77 7C 65 78 14 71 23 32 09 B1 6E |....w|ex.q#2..n
91 24 D2 D4 1F 45 A4 8F B9 99 CF D0 08 15 C0 7D .$...E.........}
0D 24 94 FB 7B 15 __ __ __ __ __ __ __ __ __ __ .$..{.

Net::LDAP=HASH(0x3cf720) 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 00 16 8A 3D 11 11 A......:.8...=..
DE B3 67 03 5C 77 06 0F 37 61 1B B6 3F CB 71 8E ..g.\w..7a..?.q.
11 7C 9A FE 93 68 AC 62 62 EB 01 91 C1 CA E3 E0 .|...h.bb.......
E5 7A 8F 0A 09 A4 43 5D 27 6F CD 6E 54 D3 3E AC .z....C]'o.nT.>.
EE D6 __ __ __ __ __ __ __ __ __ __ __ __ __ __ ..

  Net::LDAP=HASH(0x121e04) 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(0x121e04) 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 2E 6B D9 3E 84 71 A7 0D 6E E9 60 ......k.>.q..n.`
4B 33 7B B8 D8 F9 A1 50 AD 0A E1 B5 F2 07 01 00 K3{....P........
00 04 04 04 04 __ __ __ __ __ __ __ __ __ __ __ .....

Net::LDAP=HASH(0x4136c8) 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 B7 D6 7A ...............z
5F 36 F2 5A 1C 05 9A 01 9E 77 02 0B 38 EC 32 C7 _6.Z.....w..8.2.
4D B2 26 CB A6 04 00 FF FF 75 3A 7A 69 79 61 06 M.&......u:ziya.
06 06 06 06 06 __ __ __ __ __ __ __ __ __ __ __ .....

Net::LDAP=HASH(0x4136c8) received:

30 0C 02 01 03 61 07 0A 01 00 04 00 04 00 __ __ 0....a........

Success
Net::LDAP=HASH(0x3cf720) sending:

30 35 02 01 04 63 30 04 10 64 63 3D 73 75 65 7A 05...c0..dc=suez
65 6E 2C 64 63 3D 6F 72 67 0A 01 02 0A 01 02 02 en,dc=org.......
01 00 02 01 00 01 01 00 87 0B 6F 62 6A 65 63 74 ..........object
63 6C 61 73 73 30 00 __ __ __ __ __ __ __ __ __ class0.

Net::LDAP=HASH(0x3cf720) received:

30 61 02 01 04 64 5C 04 10 64 63 3D 73 75 65 7A 0a...d\..dc=suez
65 6E 2C 64 63 3D 6F 72 67 30 48 30 27 04 0B 6F en,dc=org0H0'..o
62 6A 65 63 74 43 6C 61 73 73 31 18 04 0C 6F 72 bjectClass1...or
67 61 6E 69 7A 61 74 69 6F 6E 04 08 64 63 6F 62 ganization..dcob
6A 65 63 74 30 0D 04 01 6F 31 08 04 06 73 75 65 ject0...o1...sue
7A 65 6E 30 0E 04 02 64 63 31 08 04 06 73 75 65 zen0...dc1...sue
7A 65 6E __ __ __ __ __ __ __ __ __ __ __ __ __ zen

Net::LDAP=HASH(0x3cf720) received:

30 58 02 01 04 64 53 04 1A 6F 75 3D 70 65 6F 70 0X...dS..ou=peop
6C 65 2C 64 63 3D 73 75 65 7A 65 6E 2C 64 63 3D le,dc=suezen,dc=
6F 72 67 30 35 30 23 04 0B 6F 62 6A 65 63 74 43 org050#..objectC
6C 61 73 73 31 14 04 12 6F 72 67 61 6E 69 7A 61 lass1...organiza
74 69 6F 6E 61 6C 75 6E 69 74 30 0E 04 02 6F 75 tionalunit0...ou
31 08 04 06 70 65 6F 70 6C 65 __ __ __ __ __ __ 1...people

Net::LDAP=HASH(0x3cf720) received:

30 61 02 01 04 64 5C 04 22 63 6E 3D 7A 69 79 61 0a...d\."cn=ziya
2C 6F 75 3D 70 65 6F 70 6C 65 2C 64 63 3D 73 75 ,ou=people,dc=su
65 7A 65 6E 2C 64 63 3D 6F 72 67 30 36 30 17 04 ezen,dc=org060..
0B 6F 62 6A 65 63 74 43 6C 61 73 73 31 08 04 06 .objectClass1...
70 65 72 73 6F 6E 30 0C 04 02 63 6E 31 06 04 04 person0...cn1...
7A 69 79 61 30 0D 04 02 73 6E 31 07 04 05 73 75 ziya0...sn1...su
7A 65 6E __ __ __ __ __ __ __ __ __ __ __ __ __ zen

<----- HANGS RIGHT HERE, UNTILL slapd IS STOPPED (Ctrl-C on slapd -d-1)

Net::LDAP=HASH(0x3cf720) received:

30 0C 02 01 04 65 07 0A 01 00 04 00 04 00 __ __ 0....e........

Success
~ $ 


And here is Some slapd -d-1 output:

......
ldap_write: want=99, written=99
  0000:  30 61 02 01 04 64 5c 04  22 63 6e 3d 7a 69 79 61   0a...d\."cn=ziya  
  0010:  2c 6f 75 3d 70 65 6f 70  6c 65 2c 64 63 3d 73 75   ,ou=people,dc=su  
  0020:  65 7a 65 6e 2c 64 63 3d  6f 72 67 30 36 30 17 04   ezen,dc=org060..  
  0030:  0b 6f 62 6a 65 63 74 43  6c 61 73 73 31 08 04 06   .objectClass1...  
  0040:  70 65 72 73 6f 6e 30 0c  04 02 63 6e 31 06 04 04   person0...cn1...  
  0050:  7a 69 79 61 30 0d 04 02  73 6e 31 07 04 05 73 75   ziya0...sn1...su  
  0060:  7a 65 6e                                           zen               
conn=0 op=3 ENTRY dn="cn=ziya,ou=people,dc=suezen,dc=org"
<= send_search_entry
====> bdb_cache_return_entry_r( 4 ): created (0)
send_search_result: err=0 matched="" text=""
send_ldap_response: msgid=4 tag=101 err=0
ber_flush: 14 bytes to sd 12
  0000:  30 0c 02 01 04 65 07 0a  01 00 04 00 04 00         0....e........    
sasl_write: want=65, written=65
  0000:  00 00 00 3d 60 3b 06 09  2a 86 48 86 f7 12 01 02   ...=`;..*.H.....  
  0010:  02 02 01 00 00 00 00 ff  ff f9 86 88 47 e4 ac 4c   ............G..L  
  0020:  4c 00 66 67 77 c0 33 23  89 ab 0b f2 35 2d 22 6c   L.fgw.3#....5-"l  
  0030:  03 e6 74 1f 46 3a 8c b2  ee 55 ce 71 2e 17 fe 54   ..t.F:...U.q...T  
  0040:  ab                                                 .                 
 ldap_write: want=14, written=14
  0000:  30 0c 02 01 04 65 07 0a  01 00 04 00 04 00         0....e........    
conn=0 op=3 SEARCH RESULT tag=101 err=0 nentries=3 text=
 daemon: select: listen=6 active_threads=0 tvp=NULL

<----- WAITS HERE WHEN SEARCH HANGS

 daemon: shutdown requested and initiated.
 daemon: closing 6
 connection_closing: readying conn=0 sd=12 for close
 connection_close: conn=0 sd=12
 daemon: removing 12
conn=0 fd=12 closed
slapd shutdown: waiting for 0 threads to terminate
slapd shutdown: initiated
====> bdb_cache_release_all
slapd shutdown: freeing system resources.
====> bdb_cache_release_all
slapd stopped.


And last perl -d  net_ldap_sasl_bind.pl output when I ctrl-C when it hangs:

7A 65 6E __ __ __ __ __ __ __ __ __ __ __ __ __ zen

  
^CAuthen::SASL::Cyrus::Security::read(/usr/local/lib/perl5/site_perl/5.8.0/sun4-solaris/Authen/SASL/Cyrus/Security.pm:55):
  55:       return($didread) if ($rc <= 0);
  DB<1> 

Thank you for any help or clue,

Ziya.



Reply via email to