Plasma GitLab Archive
Projects Blog Knowledge

sig
  type config_log_error = Nethttpd_types.request_info -> string -> unit
  type config_log_access = Nethttpd_types.full_info -> unit
  type config_error_response = Nethttpd_types.error_response_params -> string
  val std_log_error :
    Netplex_types.container -> Nethttpd_plex.config_log_error
  val std_log_access :
    ?debug:bool -> Netplex_types.container -> Nethttpd_plex.config_log_access
  val std_error_response : Nethttpd_plex.config_error_response
  val restrict_file_service_config :
    Netplex_types.config_file -> Netplex_types.address -> unit
  val read_file_service_config :
    Netplex_types.config_file ->
    Netplex_types.address -> string -> Nethttpd_services.file_service
  val restrict_dynamic_service_config :
    Netplex_types.config_file -> Netplex_types.address -> unit
  val read_dynamic_service_config :
    (string *
     (Netplex_types.config_file ->
      Netplex_types.address ->
      string ->
      (#Netcgi.cgi_activation as 'a) Nethttpd_services.dynamic_service))
    list ->
    Netplex_types.config_file ->
    Netplex_types.address -> string -> 'Nethttpd_services.dynamic_service
  type encap = [ `Engine | `Reactor ]
  val nethttpd_processor :
    ?hooks:Netplex_types.processor_hooks ->
    ?encap:Nethttpd_plex.encap ->
    (Netplex_types.container -> #Nethttpd_reactor.http_reactor_config) ->
    'Nethttpd_types.http_service -> Netplex_types.processor
  type ('a, 'b) service_factory =
      (string * 'Nethttpd_services.dynamic_service) list ->
      Netplex_types.config_file ->
      Netplex_types.address -> string -> 'Nethttpd_types.http_service
    constraint 'a = #Netcgi.cgi_activation
    constraint 'b =
      [ `Dynamic_service of 'Nethttpd_services.dynamic_service
      | `File_service of Nethttpd_services.file_service ]
  val default_services :
    (string *
     (#Netcgi.cgi_activation as 'a,
      [ `Dynamic_service of 'Nethttpd_services.dynamic_service
      | `File_service of Nethttpd_services.file_service ])
     Nethttpd_plex.service_factory)
    list
  type httpd_factory = {
    httpd_factory :
      'a.
        (Netplex_types.container -> Nethttpd_reactor.http_reactor_config) ->
        'Nethttpd_types.http_service -> Netplex_types.processor;
  }
  val nethttpd_factory :
    ?name:string ->
    ?hooks:Netplex_types.processor_hooks ->
    ?encap:Nethttpd_plex.encap ->
    ?config_cgi:Netcgi.config ->
    ?handlers:(string *
               (#Netcgi.cgi_activation as 'a)
               Nethttpd_services.dynamic_service)
              list ->
    ?services:(string *
               ('a,
                [ `Dynamic_service of 'Nethttpd_services.dynamic_service
                | `File_service of Nethttpd_services.file_service ])
               Nethttpd_plex.service_factory)
              list ->
    ?log_error:(Netplex_types.container -> Nethttpd_plex.config_log_error) ->
    ?log_access:(?debug:bool ->
                 Netplex_types.container -> Nethttpd_plex.config_log_access) ->
    ?error_response:Nethttpd_plex.config_error_response ->
    ?processor_factory:Nethttpd_plex.httpd_factory ->
    ?tls:(module Netsys_crypto_types.TLS_PROVIDER->
    unit -> Netplex_types.processor_factory
end
This web site is published by Informatikbüro Gerd Stolpmann
Powered by Caml