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 :
      [ `MIME of Netmime.mime_message | `Simple of Netmime.mime_body ]
    method store : [ `File of string | `Memory ]
    method value : string
  end
module Argument :
  sig
    exception Oversized
    val simple : string -> string -> cgi_argument
    val mime :
      ?work_around_backslash_bug:bool ->
      ?name:string -> Netmime.mime_message -> cgi_argument
    val clone :
      ?name:string ->
      ?value:string ->
      ?msg:Netmime.mime_message -> cgi_argument -> cgi_argument
    val set : cgi_argument list -> cgi_argument list -> cgi_argument list
  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 :
      [ `MIME of Netmime.mime_message | `Simple of Netmime.mime_body ]
    method ro : bool
    method set_value : string -> unit
    method store : [ `File of string | `Memory ]
    method value : string
  end
class simple_argument : ?ro:bool -> string -> string -> rw_cgi_argument
class mime_argument :
  ?work_around_backslash_bug:bool ->
  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 domain : t -> string option
    val path : t -> string option
    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
  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;
}
val default_config : config
class type cgi_environment =
  object
    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 ]
class type cgi =
  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 :
      [ `DELETE | `GET | `HEAD | `POST | `PUT of cgi_argument ]
    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
class type cgi_activation = cgi
type output_type =
    [ `Direct of string
    | `Transactional of
        config ->
        Netchannels.out_obj_channel -> Netchannels.trans_out_obj_channel ]
type arg_store =
    cgi_environment ->
    string ->
    Netmime.mime_header_ro ->
    [ `Automatic
    | `Automatic_max of float
    | `Discard
    | `File
    | `File_max of float
    | `Memory
    | `Memory_max of float ]
type exn_handler = cgi_environment -> (unit -> unit) -> unit
type connection_directive =
    [ `Conn_close
    | `Conn_close_linger
    | `Conn_error of exn
    | `Conn_keep_alive ]