type representation =
    [ `MIME of Netmime.mime_message | `Simple of Netmime.mime_body ]
type store = [ `File of string | `Memory ]
exception Oversized
class type cgi_argument =
  object
    method charset : string
    method content_type : unit -> string * (string * Mimestring.s_param) list
    method filename : string option
    method finalize : unit -> unit
    method name : string
    method open_value_rd : unit -> Netchannels.in_obj_channel
    method representation : representation
    method store : store
    method value : string
  end
class type rw_cgi_argument =
  object
    method charset : string
    method content_type : unit -> string * (string * Mimestring.s_param) list
    method filename : string option
    method finalize : unit -> unit
    method name : string
    method open_value_rd : unit -> Netchannels.in_obj_channel
    method open_value_wr : unit -> Netchannels.out_obj_channel
    method representation : representation
    method ro : bool
    method set_value : string -> unit
    method store : store
    method value : string
  end
class simple_arg : ?ro:bool -> string -> string -> rw_cgi_argument
class mime_arg :
  ?work_around_backslash_bug:bool ->
  ?name:string -> Netmime.mime_message -> rw_cgi_argument
module Cookie :
  sig
    type t = Netcgi_common.Cookie.t
    val make :
      ?max_age:int ->
      ?domain:string ->
      ?path:string ->
      ?secure:bool ->
      ?comment:string ->
      ?comment_url:string -> ?ports:int list -> string -> string -> t
    val name : t -> string
    val value : t -> string
    val max_age : t -> int option
    val domain : t -> string option
    val path : t -> string option
    val secure : t -> bool
    val comment : t -> string
    val comment_url : t -> string
    val ports : t -> int list option
    val set_value : t -> string -> unit
    val set_max_age : t -> int option -> unit
    val set_domain : t -> string option -> unit
    val set_path : t -> string option -> unit
    val set_secure : t -> bool -> unit
    val set_comment : t -> string -> unit
    val set_comment_url : t -> string -> unit
    val set_ports : t -> int list option -> unit
    val set : #Netmime.mime_header -> t list -> unit
    val get : #Netmime.mime_header -> t list
    val of_record : Nethttp.cookie -> t
    val to_record : t -> Nethttp.cookie
  end
type config =
  Netcgi_common.config = {
  tmp_directory : string;
  tmp_prefix : string;
  permitted_http_methods : [ `DELETE | `GET | `HEAD | `POST | `PUT ] list;
  permitted_input_content_types : string list;
  input_content_length_limit : int;
  workarounds :
    [ `Backslash_bug
    | `MSIE_Content_type_bug
    | `Work_around_MSIE_Content_type_bug
    | `Work_around_backslash_bug ] list;
  default_exn_handler : bool;
}
type output_type =
    [ `Direct of string
    | `Transactional of
        config ->
        Netchannels.out_obj_channel -> Netchannels.trans_out_obj_channel ]
val fix_MSIE_Content_type_bug : string -> string
val is_MSIE : string -> bool
class cgi_environment :
  config:config ->
  properties:(string * string) list ->
  input_header:(string * string) list ->
  Netchannels.out_obj_channel ->
  object
    val mutable header_not_sent : bool
    method cgi_auth_type : string
    method cgi_gateway_interface : string
    method cgi_https : bool
    method cgi_path_info : string
    method cgi_path_translated : string
    method cgi_properties : (string * string) list
    method cgi_property : ?default:string -> string -> string
    method cgi_query_string : string
    method cgi_remote_addr : string
    method cgi_remote_host : string
    method cgi_remote_ident : string
    method cgi_remote_user : string
    method cgi_request_method : string
    method cgi_script_name : string
    method cgi_server_name : string
    method cgi_server_port : int option
    method cgi_server_protocol : string
    method cgi_server_software : string
    method config : config
    method cookie : string -> Cookie.t
    method cookies : Cookie.t list
    method input_content_length : int
    method input_content_type :
      unit -> string * (string * Mimestring.s_param) list
    method input_content_type_string : string
    method input_header : Netmime.mime_header
    method input_header_field : ?default:string -> string -> string
    method input_header_fields : (string * string) list
    method log_error : string -> unit
    method multiple_input_header_field : string -> string list
    method multiple_output_header_field : string -> string list
    method out_channel : Netchannels.out_obj_channel
    method output_ch : Netchannels.out_obj_channel
    method output_header : Netmime.mime_header
    method output_header_field : ?default:string -> string -> string
    method output_header_fields : (string * string) list
    method protocol : Nethttp.protocol
    method send_output_header : unit -> unit
    method set_multiple_output_header_field : string -> string list -> unit
    method set_output_header_field : string -> string -> unit
    method set_output_header_fields : (string * string) list -> unit
    method set_status : Nethttp.http_status -> unit
    method user_agent : string
  end
type other_url_spec = [ `Env | `None | `This of string ]
type query_string_spec =
    [ `Args of rw_cgi_argument list
    | `Env
    | `None
    | `This of cgi_argument list ]
type cache_control = [ `Max_age of int | `No_cache | `Unspecified ]
type request_method =
    [ `DELETE | `GET | `HEAD | `POST | `PUT of cgi_argument ]
val string_of_request_method : request_method -> string
type arg_store_type =
    [ `Automatic
    | `Automatic_max of float
    | `Discard
    | `File
    | `File_max of float
    | `Memory
    | `Memory_max of float ]
type arg_store =
    cgi_environment -> string -> Netmime.mime_header_ro -> arg_store_type
class cgi :
  cgi_environment ->
  output_type ->
  request_method ->
  cgi_argument list ->
  object
    method argument : string -> cgi_argument
    method argument_exists : string -> bool
    method argument_value : ?default:string -> string -> string
    method arguments : cgi_argument list
    method at_exit : (unit -> unit) -> unit
    method environment : cgi_environment
    method finalize : unit -> unit
    method multiple_argument : string -> cgi_argument list
    method out_channel : Netchannels.trans_out_obj_channel
    method output : Netchannels.trans_out_obj_channel
    method request_method : request_method
    method set_header :
      ?status:Nethttp.http_status ->
      ?content_type:string ->
      ?content_length:int ->
      ?set_cookie:Nethttp.cookie list ->
      ?set_cookies:Cookie.t list ->
      ?cache:cache_control ->
      ?filename:string ->
      ?language:string ->
      ?script_type:string ->
      ?style_type:string ->
      ?fields:(string * string list) list -> unit -> unit
    method set_redirection_header :
      ?set_cookies:Cookie.t list ->
      ?fields:(string * string list) list -> string -> unit
    method url :
      ?protocol:Nethttp.protocol ->
      ?with_authority:other_url_spec ->
      ?with_script_name:other_url_spec ->
      ?with_path_info:other_url_spec ->
      ?with_query_string:query_string_spec -> unit -> string
  end
val cgi_with_args :
  (cgi_environment ->
   output_type -> request_method -> cgi_argument list -> 'a) ->
  cgi_environment ->
  output_type -> Netchannels.in_obj_channel -> arg_store -> 'a
exception HTTP of Nethttp.http_status * string
val exn_handler_default :
  cgi_environment ->
  exn_handler:(cgi_environment -> (unit -> unit) -> unit) ->
  finally:(unit -> unit) -> (unit -> exn option) -> unit
val update_props_inheader :
  string * string ->
  (string * string) list * (string * string) list ->
  (string * string) list * (string * string) list
val rm_htspace : (char -> bool) -> string -> int -> int -> string
val rev_split : (char -> bool) -> string -> string list
val is_prefix : string -> string -> bool