Plasma GitLab Archive
Projects Blog Knowledge

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 * 'Nethttpd_types.http_service) list
  val host_distributor :
    'Nethttpd_services.host_distributor ->
    [> `Host_distributor of '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 * 'Nethttpd_types.http_service) list
  val uri_distributor :
    'Nethttpd_services.uri_distributor ->
    [> `Uri_distributor of 'Nethttpd_services.uri_distributor ]
    Nethttpd_types.http_service
  type 'a linear_distributor =
      ((Nethttpd_types.extended_environment -> bool) *
       'Nethttpd_types.http_service)
      list
  val linear_distributor :
    'Nethttpd_services.linear_distributor ->
    [> `Linear_distributor of '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 * 'Nethttpd_types.http_service) list
  val method_distributor :
    'Nethttpd_services.method_distributor ->
    [> `Method_distributor of 'Nethttpd_services.method_distributor ]
    Nethttpd_types.http_service
  type file_option =
      [ `Enable_gzip
      | `Enable_index_file of string list
      | `Enable_listings of
          Nethttpd_types.extended_environment ->
          Netcgi.cgi_activation -> Nethttpd_services.file_service -> unit ]
  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 -> '-> 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 '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 * 'Nethttpd_types.http_service
  val ac_by_host :
    'Nethttpd_services.ac_by_host ->
    [> `Ac_by_host of 'Nethttpd_services.ac_by_host ]
    Nethttpd_types.http_service
  val read_media_types_file : string -> (string * string) list
end
This web site is published by Informatikbüro Gerd Stolpmann
Powered by Caml