`sig
type host = {
server_pref_name : string option;
server_pref_port : int option;
server_names : (string * int) list;
server_addresses : (Unix.inet_addr * int) list;
}
type 'a host_distributor =
(Nethttpd_services.host * 'a Nethttpd_types.http_service) list
val host_distributor :
'a Nethttpd_services.host_distributor ->
[> `Host_distributor of 'a Nethttpd_services.host_distributor ]
Nethttpd_types.http_service
val default_host :
?pref_name:string -> ?pref_port:int -> unit -> Nethttpd_services.host
val options_service :
unit -> [> `Options_service ] Nethttpd_types.http_service
type 'a uri_distributor = (string * 'a Nethttpd_types.http_service) list
val uri_distributor :
'a Nethttpd_services.uri_distributor ->
[> `Uri_distributor of 'a Nethttpd_services.uri_distributor ]
Nethttpd_types.http_service
type 'a linear_distributor =
((Nethttpd_types.extended_environment -> bool) *
'a Nethttpd_types.http_service)
list
val linear_distributor :
'a Nethttpd_services.linear_distributor ->
[> `Linear_distributor of 'a Nethttpd_services.linear_distributor ]
Nethttpd_types.http_service
type method_filter =
[ `Limit of string list | `Limit_except of string list ]
type 'a method_distributor =
(Nethttpd_services.method_filter * 'a Nethttpd_types.http_service) list
val method_distributor :
'a Nethttpd_services.method_distributor ->
[> `Method_distributor of 'a Nethttpd_services.method_distributor ]
Nethttpd_types.http_service
type file_option =
[ `Enable_cooked_compression
| `Enable_gzip
| `Enable_index_file of string list
| `Enable_listings of
Nethttpd_types.extended_environment ->
Netcgi.cgi_activation -> Nethttpd_services.file_service -> unit
| `Override_compression_suffixes of (string * string) list ]
and file_service = {
file_docroot : string;
file_uri : string;
file_suffix_types : (string * string) list;
file_default_type : string;
file_options : Nethttpd_services.file_option list;
}
val file_service :
Nethttpd_services.file_service ->
[> `File_service of Nethttpd_services.file_service ]
Nethttpd_types.http_service
val file_translator : Nethttpd_services.file_service -> string -> string
val simple_listing :
?hide:string list ->
Nethttpd_types.extended_environment ->
Netcgi.cgi_activation -> Nethttpd_services.file_service -> unit
type std_activation_options = {
stdactv_processing : Netcgi.arg_store option;
stdactv_operating_type : Netcgi.output_type option;
}
type std_activation =
[ `Std_activation of Nethttpd_services.std_activation_options
| `Std_activation_buffered
| `Std_activation_tempfile
| `Std_activation_unbuffered ]
type 'a dynamic_service = {
dyn_handler : Nethttpd_types.extended_environment -> 'a -> unit;
dyn_activation : Nethttpd_types.extended_environment -> 'a;
dyn_uri : string option;
dyn_translator : string -> string;
dyn_accept_all_conditionals : bool;
} constraint 'a = #Netcgi.cgi_activation
val std_activation :
Nethttpd_services.std_activation ->
Nethttpd_types.extended_environment -> Netcgi.cgi_activation
val dynamic_service :
(#Netcgi.cgi_activation as 'a) Nethttpd_services.dynamic_service ->
[> `Dynamic_service of 'a Nethttpd_services.dynamic_service ]
Nethttpd_types.http_service
type ac_by_host_rule = [ `Allow of string list | `Deny of string list ]
type 'a ac_by_host =
Nethttpd_services.ac_by_host_rule * 'a Nethttpd_types.http_service
val ac_by_host :
'a Nethttpd_services.ac_by_host ->
[> `Ac_by_host of 'a Nethttpd_services.ac_by_host ]
Nethttpd_types.http_service
val read_media_types_file : string -> (string * string) list
module Debug : sig val enable : bool Pervasives.ref end
end`