Re: start_tls generating 0x01 LDAP_OPERATIONS_ERROR

[Graham B. <gb...@po...>]

Clang!!!!

The start_tls extended operation is working, its that actual
changing the socket to SSL that is failing in this code

  require Net::LDAPS;
  $arg->{sslversion} = 'tlsv1' unless defined $arg->{sslversion};
  IO::Socket::SSL::context_init( { Net::LDAPS::SSL_context_init_args($arg) } );
  (IO::Socket::SSL::socketToSSL($sock) and tie *{$sock}, 'IO::Socket::SSL', $sock)
    ? $mesg
    : _error($ldap, $mesg, LDAP_OPERATIONS_ERROR, $@);

Do you have the latest IO::Socket::SSL and Net::SSLeay packages ?

Graham.

On Thu, Jan 24, 2002 at 09:36:37AM -0600, Drew Raines wrote:
> Graham Barr <gb...@po...>:
> >
> > Can you do a debug=15 and send that, it may be a decoding problem.
> 
> Net::LDAP=HASH(0x333a4c) sending:
> 
> 30 1D 02 01 01 77 18 80 16 31 2E 33 2E 36 2E 31 0....w...1.3.6.1
> 2E 34 2E 31 2E 31 34 36 36 2E 32 30 30 33 37 __ .4.1.1466.20037
> 
> 0000   29: SEQUENCE {
> 0002    1:   INTEGER = 1
> 0005   24:   [APPLICATION 23] {
> 0007   22:     [CONTEXT 0]
> 0009     :       31 2E 33 2E 36 2E 31 2E 34 2E 31 2E 31 34 36 36 1.3.6.1.4.1.1466
> 0019     :       2E 32 30 30 33 37 __ __ __ __ __ __ __ __ __ __ .20037
> 001F     :   }
> 001F     : }
> Net::LDAP=HASH(0x333a4c) received:
> 
> 30 0C 02 01 01 78 07 0A 01 00 04 00 04 00 __ __ 0....x........
> 
> 0000   12: SEQUENCE {
> 0002    1:   INTEGER = 1
> 0005    7:   [APPLICATION 24] {
> 0007    1:     ENUM = 0
> 000A    0:     STRING = ''
> 000C    0:     STRING = ''
> 000E     :   }
> 000E     : }
> 
> > WHat version of Convert::ASN1 do you have installed ?
> 
> 0.14
> 
> -- 
> Drew
>