module Nethttp:sig..end
typeprotocol_version =int * int
typeprotocol_attribute =[ `Secure_https ]
typeprotocol =[ `Http of protocol_version * protocol_attribute list
| `Other ]
`Http((0,9),_) is the ancient HTTP version 0.9`Http((1,n),_) is the HTTP protocol 1.n.  It is expected that
                     all these versions are compatible to each other
                     except negotiable features.`Http((m,_),_) for m>1 is regarded as unknown protocol,
                     incompatible to any `Http((1,n),_)`Other is anything else (unrecognizes protocol)val string_of_protocol : protocol -> string`Otherval protocol_of_string : string -> protocol`Other
  for unrecognized stringstypehttp_status =[ `Accepted
| `Bad_gateway
| `Bad_request
| `Conflict
| `Continue
| `Created
| `Expectation_failed
| `Forbidden
| `Found
| `Gateway_timeout
| `Gone
| `Http_version_not_supported
| `Internal_server_error
| `Length_required
| `Method_not_allowed
| `Moved_permanently
| `Multiple_choices
| `No_content
| `Non_authoritative
| `Not_acceptable
| `Not_found
| `Not_implemented
| `Not_modified
| `Ok
| `Partial_content
| `Payment_required
| `Precondition_failed
| `Proxy_auth_required
| `Request_entity_too_large
| `Request_timeout
| `Request_uri_too_long
| `Requested_range_not_satisfiable
| `Reset_content
| `See_other
| `Service_unavailable
| `Switching_protocols
| `Temporary_redirect
| `Unauthorized
| `Unsupported_media_type
| `Use_proxy ]
Informational (1xx):
`Continue`Switching_protocols`Ok`Created`Accepted`Non_authoritative`No_content`Reset_content`Partial_content`Multiple_choices`Moved_permanently`Found`See_other`Not_modified`Use_proxy`Temporary_redirect`Bad_request`Unauthorized`Payment_required`Forbidden`Not_found`Method_not_allowed`Not_acceptable`Proxy_auth_required`Request_timeout`Conflict`Gone`Length_required`Precondition_failed`Request_entity_too_large`Request_uri_too_long`Unsupported_media_type`Request_range_not_satisfiable`Expectation_failed`Internal_server_error`Not_implemented`Bad_gateway`Service_unavailable`Gateway_timeout`Http_version_not_supportedval int_of_http_status : http_status -> intval http_status_of_int : int -> http_statusNot_foundval string_of_http_status : http_status -> stringval base_code : int -> inthttp_status_of_int:  let st =
    try Nethttp.http_status_of_int code
    with Not_found ->
      Nethttp.http_status_of_int (Nethttp.base_code code)
      typehttp_method =string * string
typecache_control_token =[ `Extension of string * string option
| `Max_age of int
| `Max_stale of int option
| `Min_fresh of int
| `Must_revalidate
| `No_cache of string list
| `No_store
| `No_transform
| `Only_if_cached
| `Private of string list
| `Proxy_revalidate
| `Public
| `S_maxage of int ]
Cache-control headertypeetag =[ `Strong of string | `Weak of string ]
val weak_validator_match : etag -> etag -> boolval strong_validator_match : etag -> etag -> boolexception Bad_header_field of string
class type http_header = Netmime.mime_headerclass type http_header_ro = Netmime.mime_header_roclass type http_trailer = Netmime.mime_headerclass type http_trailer_ro = Netmime.mime_header_roval status_of_cgi_header : http_header -> int * stringStatus header = {|    |  : | (* | The name of the cookie | *) | 
|    |  : | (* | The value of the cookie. There are no restrictions on the value of the cookie | *) | 
|    |  : | (* | Expiration: 
 | *) | 
|    |  : | (* | Cookies are bound to a certain domain, i.e. the browser sends
 them only when web pages of the domain are requested: 
 
 | *) | 
|    |  : | (* | Cookies are also bound to certain path prefixes, i.e. the browser
 sends them only when web pages at the path or below are requested. 
 
 | *) | 
|    |  : | (* | Cookies are also bound to the type of the web server: falsemeans servers without SSL,truemeans servers with
 activated SSL ("https"). | *) | 
Nethttp.Cookie
        module.
        This type is kept for now (and is also not considered as deprecated),
        as the access functions in the Nethttp.Header module are more
        complete than those for Nethttp.Cookie.
 = netscape_cookie 
val decode_query : string -> string * stringval split_host_port : string -> string * int optionHost header in hostname and optional port number.
 Fails on syntax errorval uripath_encode : string -> stringval uripath_decode : string -> stringmodule Cookie:sig..end
module Header:sig..end