`sig
exception Standard_response of Nethttp.http_status *
Nethttp.http_header option * string option
type output_state = [ `End | `Sending | `Start ]
val string_of_output_state : Nethttpd_types.output_state -> string
class type virtual v_extended_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_request_uri : 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 : Netcgi.config
method cookie : string -> Netcgi.Cookie.t
method cookies : Netcgi.Cookie.t list
method input_body_size : int64
method input_channel : Netchannels.in_obj_channel
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 log_props : (string * string) list -> 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 virtual output_state :
Nethttpd_types.output_state Pervasives.ref
method protocol : Nethttp.protocol
method virtual remote_socket_addr : Unix.sockaddr
method request_body_rejected : bool
method send_file : Unix.file_descr -> int64 -> unit
method send_output_header : unit -> unit
method virtual server_socket_addr : Unix.sockaddr
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
class type extended_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_request_uri : 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 : Netcgi.config
method cookie : string -> Netcgi.Cookie.t
method cookies : Netcgi.Cookie.t list
method input_body_size : int64
method input_channel : Netchannels.in_obj_channel
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 log_props : (string * string) list -> 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 output_state : Nethttpd_types.output_state Pervasives.ref
method protocol : Nethttp.protocol
method remote_socket_addr : Unix.sockaddr
method request_body_rejected : bool
method send_file : Unix.file_descr -> int64 -> unit
method send_output_header : unit -> unit
method server_socket_addr : Unix.sockaddr
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
class virtual empty_environment :
object
val mutable config : Netcgi.config
val mutable in_channel : Netchannels.in_obj_channel
val mutable in_header : Nethttp.http_header
val mutable out_channel : Netchannels.out_obj_channel
val mutable out_header : Nethttp.http_header
val mutable properties : (string * string) list
val mutable protocol : Nethttp.protocol
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_request_uri : 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 : Netcgi.config
method cookie : string -> Netcgi.Cookie.t
method cookies : Netcgi.Cookie.t list
method input_body_size : int64
method input_channel : Netchannels.in_obj_channel
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 log_props : (string * string) list -> 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 virtual output_state : output_state ref
method protocol : Nethttp.protocol
method virtual remote_socket_addr : Unix.sockaddr
method request_body_rejected : bool
method send_file : Unix.file_descr -> int64 -> unit
method send_output_header : unit -> unit
method virtual server_socket_addr : Unix.sockaddr
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
class redirected_environment :
?in_header:Nethttp.http_header ->
?properties:(string * string) list ->
?in_channel:Netchannels.in_obj_channel ->
Nethttpd_types.extended_environment -> extended_environment
val output_static_response :
#Nethttpd_types.extended_environment ->
Nethttp.http_status -> Nethttp.http_header option -> string -> unit
val output_file_response :
#Nethttpd_types.extended_environment ->
Nethttp.http_status ->
Nethttp.http_header option -> string -> int64 -> int64 -> unit
class type request_info =
object
method cgi_properties : (string * string) list
method input_body_size : int64
method input_header : Nethttp.http_header
method remote_socket_addr : Unix.sockaddr
method request_method : string
method request_uri : string
method server_socket_addr : Unix.sockaddr
end
class type full_info =
object
method cgi_properties : (string * string) list
method input_body_size : int64
method input_header : Nethttp.http_header
method output_body_size : int64
method output_header : Nethttp.http_header
method remote_socket_addr : Unix.sockaddr
method request_body_rejected : bool
method request_method : string
method request_uri : string
method response_status_code : int
method server_socket_addr : Unix.sockaddr
end
class create_full_info :
response_status_code:int ->
request_body_rejected:bool ->
output_header:Nethttp.http_header ->
output_body_size:int64 -> Nethttpd_types.request_info -> full_info
class type error_response_params =
object
method cgi_properties : (string * string) list
method error_message : string
method input_body_size : int64
method input_header : Nethttp.http_header
method remote_socket_addr : Unix.sockaddr
method request_method : string
method request_uri : string
method response_status_code : int
method server_socket_addr : Unix.sockaddr
end
class type min_config =
object
method config_error_response :
Nethttpd_types.error_response_params -> string
method config_log_error : Nethttpd_types.request_info -> string -> unit
end
val output_std_response :
#Nethttpd_types.min_config ->
#Nethttpd_types.extended_environment ->
Nethttp.http_status ->
Nethttp.http_header option -> string option -> unit
exception Redirect_request of string * Nethttp.http_header
exception Redirect_response of string * Nethttp.http_header
class type http_service_generator =
object
method generate_response : Nethttpd_types.extended_environment -> unit
end
class type http_service_receiver =
object
method process_body :
Nethttpd_types.extended_environment ->
Nethttpd_types.http_service_generator
end
type http_service_reaction =
[ `Accept_body of Nethttpd_types.http_service_receiver
| `File of
Nethttp.http_status * Nethttp.http_header option * string *
int64 * int64
| `Reject_body of Nethttpd_types.http_service_generator
| `Static of Nethttp.http_status * Nethttp.http_header option * string
| `Std_response of
Nethttp.http_status * Nethttp.http_header option * string option ]
class type ['a] http_service =
object
method def_term : 'a
method name : string
method print : Format.formatter -> unit
method process_header :
Nethttpd_types.extended_environment ->
Nethttpd_types.http_service_reaction
end
val update_alist : ('a * 'b) list -> ('a * 'b) list -> ('a * 'b) list
end`