[Caml-list] ocamlnet, netclient and closing connection after every http client request

[Caml-list] ocamlnet, netclient and closing connection after every http client request

[Joel Reymont]

I'm using netclient from ocamlnet 3.2.1 to issue thousands of http requests.

This leaves me with thousands of sockets hanging around open, until I run out of sockets.

Is there a way to tell netclient that I want a single connection open to my server at any given time, no more?

I tried copying Http_client.Convenience to add the following settings but this didn't solve my problem.

let http_realistic =
  serialize
	  (fun () ->
	    let p = Lazy.force pipe in
	    let opt = p # get_options in
	    p # set_options
	      { opt with 
          synchronization = Sync;
          connection_timeout = 30.0; (* seconds *)
	        number_of_parallel_connections = 1;
          inhibit_persistency = true;
        };
	  )

What am I doing wrong?

	Thanks, Joel

--------------------------------------------------------------------------
- for hire: mac osx device driver ninja, kernel extensions and usb drivers
---------------------+------------+---------------------------------------
http://wagerlabs.com | @wagerlabs | http://www.linkedin.com/in/joelreymont
---------------------+------------+---------------------------------------

Re: [Caml-list] ocamlnet, netclient and closing connection after every http client request

[Gerd Stolpmann]

Am Samstag, den 11.06.2011, 18:11 +0400 schrieb Joel Reymont:
> I'm using netclient from ocamlnet 3.2.1 to issue thousands of http requests.
> 
> This leaves me with thousands of sockets hanging around open, until I run out of sockets.

This should not happen - the expected behavior is that the connection is
closed.

> Is there a way to tell netclient that I want a single connection open to my server at any given time, no more?

That should be controlled by number_of_parallel_connections.

> I tried copying Http_client.Convenience to add the following settings but this didn't solve my problem.
> 
> let http_realistic =
>   serialize
> 	  (fun () ->
> 	    let p = Lazy.force pipe in
> 	    let opt = p # get_options in
> 	    p # set_options
> 	      { opt with 
>           synchronization = Sync;
>           connection_timeout = 30.0; (* seconds *)
> 	        number_of_parallel_connections = 1;
>           inhibit_persistency = true;
>         };
> 	  )
> 
> What am I doing wrong?

No idea. Do you have a sample program demonstrating the effect?

Also, in ocamlnet-3.3.1 (released on Friday) large parts of the
Http_client were rewritten. Maybe your bug goes away by simply
upgrading.

Gerd


> 
> 	Thanks, Joel
> 
> --------------------------------------------------------------------------
> - for hire: mac osx device driver ninja, kernel extensions and usb drivers
> ---------------------+------------+---------------------------------------
> http://wagerlabs.com | @wagerlabs | http://www.linkedin.com/in/joelreymont
> ---------------------+------------+---------------------------------------
> 
> 
> 
> 
>