Module Http_client

module Http_client: sig .. end

HTTP 1.1 client

---

Note for beginners: There is a simplified interface called Http_client.Convenience.

Implements much of HTTP/1.1. Implements the following advanced features:

• chunked messages
• persistent connections
• connections in pipelining mode ("full duplex" connections)
• modular authentication methods, currently Basic and Digest
• event-driven implementation; allows concurrent service for several network connections

Left out:

• multipart messages, including multipart/byterange
• content encoding (compression) (1)
• content digests specified by RFC 2068 and 2069 (1)
• content negotiation (1)
• conditional and partial GET (1)
• following code 303 redirections automatically (1)
• client-side caching (1)
• HTTP/0.9 compatibility

(1) These features can be implemented on top of this module if really needed, but there is no special support for them.

If you are looking for WebDAV there is an extension of this module: Webdav, which is separately available.

Thread safety

The module can be compiled such that it is thread-safe. In particular, one has to link the http_client_mt.cmxo object, and thread-safety is restricted to the following kinds of usage:

• The golden rule is that threads must not share pipeline objects. If every thread uses its own pipeline, every thread will have its own set of state variables. It is not detected if two threads errornously share a pipeline, neither by an error message nor by implicit serialization. Strange things may happen.
• The same applies to the other objects, e.g. http_call objects
• The Convenience module even serializes; see below.

Types and Exceptions

exception Bad_message of string

exception No_reply

exception Too_many_redirections

exception Name_resolution_error of string

exception URL_syntax_error of string

exception Http_protocol of exn

exception Http_error of (int * string)

type status = [ `Client_error
       | `Http_protocol_error of exn
       | `Redirection
       | `Server_error
       | `Successful
       | `Unserved ] 

type 'a how_to_reconnect =

|	Send_again	(*	Send the request automatically again	*)
|	Request_fails	(*	Drop the request	*)
|	Inquire of ('a -> bool)	(*	If the function return true send again, otherwise drop the request.	*)
|	Send_again_if_idem	(*	Default behaviour: Send_again for idempotent methods (GET, HEAD), Request_fails for the rest	*)

type 'a how_to_redirect =

|	Redirect	(*	Perform the redirection	*)
|	Do_not_redirect	(*	No redirection	*)
|	Redirect_inquire of ('a -> bool)	(*	If the function return true redirect, otherwise do not redirect. It is legal to set the Location header as part of the action performed by the function. (Should be an absolute http URL.)	*)
|	Redirect_if_idem	(*	Default behaviour: Redirect for idempotent methods (GET, HEAD), Do_not_redirect for the rest	*)

type private_api 

type response_body_storage = [ `Body of unit -> Netmime.mime_body | `File of unit -> string | `Memory ] 

type synchronization =

|	Sync	(*	The next request begins after the response of the last request has been received.	*)
|	Pipeline of int	(*	The client is allowed to send several requests without waiting for responses. The number is the maximum number of unreplied requests that are allowed. A typical value: 5. If you increase this value, the risk becomes higher that requests must be repeatedly sent to the server in the case the connection crashes. Increasing is recommended if you send a bigger number of GET or HEAD requests to the server. Decreasing is recommended if you send large POST or PUT requests to the server. Values > 8 are interpreted as 8.	*)

type resolver = Unixqueue.unix_event_system ->
       string -> (Unix.inet_addr option -> unit) -> unit 

type http_options = {

	synchronization : synchronization;	(*	Default: Pipeline 5.	*)
	maximum_connection_failures : int;	(*	This option limits the number of connection attempts. Default: 2	*)
	maximum_message_errors : int;	(*	This option limits the number of protocol errors tolerated per request. If a request leads to a protocol error, the connection is shut down, the server is connected again, and the request is tried again (if the kind of the message allows retransmission). If a request repeatedly fails, this option limits the number of retransmissions. Default: 2	*)
	inhibit_persistency : bool;	(*	This option turns persistent connections off. Default: false It is normally not necessary to change this option.	*)
	connection_timeout : float;	(*	If there is no network transmission for this period of time, the connection is shut down, and tried again. Default: 300.0 (seconds) It may be necessary to increase this value if HTTP is used for batch applications that contact extremely slow services.	*)
	number_of_parallel_connections : int;	(*	The client keeps up to this number of parallel connections to a single content server or proxy. Default: 2 You may increase this value if you are mainly connected with an HTTP/1.0 proxy.	*)
	maximum_redirections : int;	(*	The maximum number of redirections per message	*)
	handshake_timeout : float;	(*	The timeout when waiting for "100 Continue". Default: 1.0	*)
	resolver : resolver;	(*	The function for name resolution	*)
	configure_socket : Unix.file_descr -> unit;	(*	A function to configure socket options	*)
	verbose_status : bool;
	verbose_request_header : bool;
	verbose_response_header : bool;
	verbose_request_contents : bool;
	verbose_response_contents : bool;
	verbose_connection : bool;	(*	Enable various debugging message types. verbose_status: reports about status of received documents verbose_request_header: prints the header sent to the server verbose_request_contents: prints the document sent to the server verbose_response_header: prints the header of the answer from the server verbose_response_contents: prints the document received from the server verbose_connection: reports many connection events; authentication, too. By default, verbose_status and verbose_connection are enabled. Note that you also have to set Debug.enable to true to see any log message at all!	*)

}

type header_kind = [ `Base | `Effective ] 

class type http_call = object .. end

HTTP methods

class virtual generic_call : object .. end

The following classes are implementations for the various HTTP methods. These classes do not initialize the call object.

class get_call : http_call

class trace_call : http_call

class options_call : http_call

class head_call : http_call

class post_call : http_call

class put_call : http_call

class delete_call : http_call

The following classes initialize the request message of the call (header and body). These classes are also backward compatible to the classes found in earlier versions of netclient.

class get : string -> http_call

class trace : string -> int -> http_call

class options : string -> http_call

class head : string -> http_call

class post : string -> (string * string) list -> http_call

class post_raw : string -> string -> http_call

class put : string -> string -> http_call

class delete : string -> http_call

Authentication

class type key = object .. end

class type key_handler = object .. end

class key_ring : ?uplink:#key_handler -> unit -> object .. end

class type auth_session = object .. end

class type auth_handler = object .. end

class basic_auth_handler : ?enable_auth_in_advance:bool -> #key_handler -> auth_handler

class digest_auth_handler : ?enable_auth_in_advance:bool -> #key_handler -> auth_handler

class basic_auth_method : object .. end

class digest_auth_method : basic_auth_method

Pipelines

A connection cache is an object that keeps connections open that are currently unused. A connection cache can be shared by several pipelines.

type connection_cache = Http_client_conncache.connection_cache 

val close_connection_cache : connection_cache -> unit

val create_restrictive_cache : unit -> connection_cache

val create_aggressive_cache : unit -> connection_cache

class pipeline : object .. end

Example using the pipeline:

 let call = new get "http://server/path" in
 let pipeline = new pipeline in
 pipeline # add call;
 pipeline # run();    (* Now the HTTP client is working... *)
 match call # status with
 | `Successful -> ...
 | ...
 

Convenience module for simple applications

Do open Http_client.Convenience for simple applications.

module Convenience: sig .. end

Debugging

module Debug: sig .. end

This web site is published by Informatikbüro Gerd Stolpmann