[Caml-list] Ocamlnet Netclient SSl

[pierrchp@free.fr]

Hello,

I am trying to use SSl with the Ocamlnet Http_client. When I use the run method
on the pipeline,the call executes well, and when it is empty, the program stalls
for 30 sec before encountering an ssl error an continuing.

The same thing happens when using convenience.

I'm using ocaml 3.12.1 and ocamlnet 3.3.5

Code :



Debug.enable:=true;

Ssl.init();
  Http_client.Convenience.configure_pipeline
      (fun p ->
         let ctx = Ssl.create_context Ssl.TLSv1 Ssl.Client_context in
         let tct = Https_client.https_transport_channel_type ctx in
         p # configure_transport Http_client.https_cb_id tct
      );
http_get "https://www.wellsfargo.com/"

Debug information:


[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: HTTP connection:
creating direct connection to www.wellsfargo.com:443
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - HTTP direct
connection to www.wellsfargo.com:443: Connected!
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: HTTP Connection: adding
call 32
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: Call 32: initialize
transmitter
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - Call 32 - HTTP
request: GET / HTTP/1.1
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - HTTP connection:
Got Call 32!
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - HTTP connection:
pipelining=true persistency=false close_connection=false->false
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: Call 32 -
postprocessing
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - HTTP connection:
Shutdown!
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: FD 3 - HTTP connection:
Closing socket!
[Thu Jul 28 15:17:25 2011] [debug] [6261:0] Http_client: HTTP connection:
checking remaining pipeline requests
[Thu Jul 28 15:17:55 2011] [debug] [6261:0] Http_client: FD 3 - Shutdown error:
Uq_ssl.Ssl_error(Ssl.Error_syscall)


Cheers

 -Pierre