type protocol_version = int * int
type protocol_attribute = [ `Secure_https ]
type protocol =
    [ `Http of protocol_version * protocol_attribute list | `Other ]
val string_of_protocol : protocol -> string
val protocol_of_string : string -> protocol
type http_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 ]
val int_of_http_status : http_status -> int
val http_status_of_int : int -> http_status
val string_of_http_status : http_status -> string
type http_method = string * string
type cache_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 ]
type etag = [ `Strong of string | `Weak of string ]
val weak_validator_match : etag -> etag -> bool
val strong_validator_match : etag -> etag -> bool
exception Bad_header_field of string
class type http_header = Netmime.mime_header
class type http_header_ro = Netmime.mime_header_ro
class type http_trailer = Netmime.mime_header
class type http_trailer_ro = Netmime.mime_header_ro
val status_of_cgi_header : http_header -> int * string
type cookie =
  Nethttp.cookie = {
  cookie_name : string;
  cookie_value : string;
  cookie_expires : float option;
  cookie_domain : string option;
  cookie_path : string option;
  cookie_secure : bool;
}
val decode_query : string -> string * string
val split_host_port : string -> string * int option
val uripath_encode : string -> string
val uripath_decode : string -> string
module Header :
  sig
    val get_accept :
      #http_header_ro ->
      (string * (string * string) list * (string * string) list) list
    val best_media_type :
      #http_header_ro -> string list -> string * (string * string) list
    val set_accept :
      #http_header ->
      (string * (string * string) list * (string * string) list) list -> unit
    val get_accept_charset :
      #http_header_ro -> (string * (string * string) list) list
    val best_charset : #http_header_ro -> string list -> string
    val set_accept_charset :
      #http_header -> (string * (string * string) list) list -> unit
    val get_accept_encoding :
      #http_header_ro -> (string * (string * string) list) list
    val best_encoding : #http_header_ro -> string list -> string
    val set_accept_encoding :
      #http_header -> (string * (string * string) list) list -> unit
    val get_accept_language :
      #http_header_ro -> (string * (string * string) list) list
    val set_accept_language :
      #http_header -> (string * (string * string) list) list -> unit
    val get_accept_ranges : #http_header_ro -> string list
    val set_accept_ranges : #http_header -> string list -> unit
    val get_age : #http_header_ro -> float
    val set_age : #http_header -> float -> unit
    val get_allow : #http_header_ro -> string list
    val set_allow : #http_header -> string list -> unit
    val get_authorization :
      #http_header_ro -> string * (string * string) list
    val set_authorization :
      #http_header -> string * (string * string) list -> unit
    val get_cache_control : #http_header_ro -> cache_control_token list
    val set_cache_control : #http_header -> cache_control_token list -> unit
    val get_connection : #http_header_ro -> string list
    val set_connection : #http_header -> string list -> unit
    val get_content_encoding : #http_header_ro -> string list
    val set_content_encoding : #http_header -> string list -> unit
    val get_content_language : #http_header_ro -> string list
    val set_content_language : #http_header -> string list -> unit
    val get_content_length : #http_header_ro -> int64
    val set_content_length : #http_header -> int64 -> unit
    val get_content_location : #http_header_ro -> string
    val set_content_location : #http_header -> string -> unit
    val get_content_md5 : #http_header_ro -> string
    val set_content_md5 : #http_header -> string -> unit
    val get_content_range :
      #http_header_ro -> [ `Bytes of (int64 * int64) option * int64 option ]
    val set_content_range :
      #http_header ->
      [ `Bytes of (int64 * int64) option * int64 option ] -> unit
    val get_content_type : #http_header_ro -> string * (string * string) list
    val set_content_type :
      #http_header -> string * (string * string) list -> unit
    val get_date : #http_header_ro -> float
    val set_date : #http_header -> float -> unit
    val get_etag : #http_header_ro -> etag
    val set_etag : #http_header -> etag -> unit
    val get_expect :
      #http_header_ro ->
      (string * string option * (string * string) list) list
    val set_expect :
      #http_header ->
      (string * string option * (string * string) list) list -> unit
    val get_expires : #http_header_ro -> float
    val set_expires : #http_header -> float -> unit
    val get_from : #http_header_ro -> string
    val set_from : #http_header -> string -> unit
    val get_host : #http_header_ro -> string * int option
    val set_host : #http_header -> string * int option -> unit
    val get_if_match : #http_header_ro -> etag list option
    val set_if_match : #http_header -> etag list option -> unit
    val get_if_modified_since : #http_header_ro -> float
    val set_if_modified_since : #http_header -> float -> unit
    val get_if_none_match : #http_header_ro -> etag list option
    val set_if_none_match : #http_header -> etag list option -> unit
    val get_if_range : #http_header_ro -> [ `Date of float | `Etag of etag ]
    val set_if_range :
      #http_header -> [ `Date of float | `Etag of etag ] -> unit
    val get_if_unmodified_since : #http_header_ro -> float
    val set_if_unmodified_since : #http_header -> float -> unit
    val get_last_modified : #http_header_ro -> float
    val set_last_modified : #http_header -> float -> unit
    val get_location : #http_header_ro -> string
    val set_location : #http_header -> string -> unit
    val get_max_forwards : #http_header_ro -> int
    val set_max_forwards : #http_header -> int -> unit
    val get_pragma : #http_header_ro -> (string * string option) list
    val set_pragma : #http_header -> (string * string option) list -> unit
    val get_proxy_authenticate :
      #http_header_ro -> (string * (string * string) list) list
    val set_proxy_authenticate :
      #http_header -> (string * (string * string) list) list -> unit
    val get_proxy_authorization :
      #http_header_ro -> string * (string * string) list
    val set_proxy_authorization :
      #http_header -> string * (string * string) list -> unit
    val get_range :
      #http_header_ro -> [ `Bytes of (int64 option * int64 option) list ]
    val set_range :
      #http_header ->
      [ `Bytes of (int64 option * int64 option) list ] -> unit
    val get_referer : #http_header_ro -> string
    val get_referrer : #http_header_ro -> string
    val set_referer : #http_header -> string -> unit
    val set_referrer : #http_header -> string -> unit
    val get_retry_after :
      #http_header_ro -> [ `Date of float | `Seconds of int ]
    val set_retry_after :
      #http_header -> [ `Date of float | `Seconds of int ] -> unit
    val get_server : #http_header_ro -> string
    val set_server : #http_header -> string -> unit
    val get_te :
      #http_header_ro ->
      (string * (string * string) list * (string * string) list) list
    val set_te :
      #http_header ->
      (string * (string * string) list * (string * string) list) list -> unit
    val get_trailer : #http_header_ro -> string list
    val set_trailer : #http_header -> string list -> unit
    val get_transfer_encoding :
      #http_header_ro -> (string * (string * string) list) list
    val set_transfer_encoding :
      #http_header -> (string * (string * string) list) list -> unit
    val get_upgrade : #http_header_ro -> string list
    val set_upgrade : #http_header -> string list -> unit
    val get_user_agent : #http_header_ro -> string
    val set_user_agent : #http_header -> string -> unit
    val get_vary : #http_header_ro -> [ `Fields of string list | `Star ]
    val set_vary : #http_header -> [ `Fields of string list | `Star ] -> unit
    val get_www_authenticate :
      #http_header_ro -> (string * (string * string) list) list
    val set_www_authenticate :
      #http_header -> (string * (string * string) list) list -> unit
    val get_cookie : #http_header_ro -> (string * string) list
    val set_cookie : #http_header -> (string * string) list -> unit
    val set_set_cookie : #http_header -> cookie list -> unit
  end