From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105])
	by walapai.inria.fr (8.13.6/8.13.6) with ESMTP id p6SFoqSN011203
	for <caml-list@sympa-roc.inria.fr>; Thu, 28 Jul 2011 17:50:52 +0200
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: ArAFAKmEMU7UGyoCkWdsb2JhbABoCwEacEAFHZkmjwsUAQEBAQkLCwcUAyIPAYhuowCJNpZEhkEEmB6LQQ
X-IronPort-AV: E=Sophos;i="4.67,282,1309730400"; 
   d="scan'208";a="104134614"
Received: from smtp2-g21.free.fr ([212.27.42.2])
  by mail4-smtp-sop.national.inria.fr with ESMTP; 28 Jul 2011 17:50:46 +0200
Received: from UNKNOWN (unknown [172.20.243.137])
	by smtp2-g21.free.fr (Postfix) with ESMTP id 373984B0153
	for <caml-list@inria.fr>; Thu, 28 Jul 2011 17:50:40 +0200 (CEST)
Received: by UNKNOWN (Postfix, from userid 0)
	id 31EF064752CDF; Thu, 28 Jul 2011 17:50:39 +0200 (CEST)
Received: from  ([216.200.217.234]) 
	by imp.free.fr (IMP) with HTTP 
	for <pierrchp@172.20.243.55>; Thu, 28 Jul 2011 17:50:39 +0200
Message-ID: <1311868239.4e31854f15812@imp.free.fr>
Date: Thu, 28 Jul 2011 17:50:39 +0200
From: pierrchp@free.fr
To: caml-list@inria.fr
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
User-Agent: Internet Messaging Program (IMP) 3.2.8
X-Originating-IP: 216.200.217.234
Subject: [Caml-list] Ocamlnet Netclient SSl

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