package mehari-eio

You can search for identifiers within the package.

in-package search v0.2.0

On This Page

Net
Entry point

package mehari-eio

mehari-eio
- Mehari_eio
  - Addr
  - Direct
  - S

Legend:
Library
Module
Module type
Parameter
Class
Class type

An IO module Mehari implementation based on Eio library.

module Addr : sig ... end

module Direct : sig ... end

module type S = Mehari.NET with module IO := Direct and type addr = Addr.t

Net

include S

type addr = Addr.t

Type for IP address.

type handler = addr Mehari.request -> Mehari.response Direct.t

Handlers are asynchronous functions from Mehari.request to Mehari.response.

type route

Routes tell router which handler to select for each request. See Routing.

type rate_limiter

Rate limiter. See Rate limit.

type middleware = handler -> handler

Middlewares take a handler, and run some code before or after — producing a “bigger” handler. See Middleware.

Middleware

val no_middleware : middleware

Does nothing but call its inner handler. Useful for disabling middleware conditionally during application startup:

if development then
  my_middleware
else
  Mehari.no_middleware

val pipeline : middleware list -> middleware

Combines a list of middlewares into one, such that these two lines are equivalent: Mehari.pipeline [ mw1 ; mw2 ] @@ handler mw1 @@ mw2 @@ handler.

Routing

val router : route list -> handler

Creates a router. If none of the routes match the Mehari.request, the router returns Mehari.not_found.

val route : 
  ?rate_limit:rate_limiter ->
  ?mw:middleware ->
  ?typ:[ `Raw | `Regex ] ->
  string ->
  handler ->
  route

route ~rate_limit ~mw ~typ path handler forwards requests for path to handler. path can be a string literal or a regex in Perl style depending of typ. If rate limit is in effect, handler is not executed and a respond with Mehari.status Mehari.slow_down is sended.

val scope : 
  ?rate_limit:rate_limiter ->
  ?mw:middleware ->
  string ->
  route list ->
  route

scope ~rate_limit ~mw prefix routes groups routes under the path prefix, rate_limit and mw.

val no_route : route

A dummy value of type route that is completely ignored by the router. Useful for disabling routes conditionally during application start.

Rate limit

val make_rate_limit : 
  ?period:int ->
  int ->
  [ `Second | `Minute | `Hour | `Day ] ->
  rate_limiter

make_rate_limit ~period n unit creates a rate_limiter which limits client to n request per period * unit. For example,

make_rate_limit ~period:2 5 `Hour

limits client to 5 requests every 2 hours.

Virtual hosting

val virtual_hosts : 
  ?meth:[ `ByURL | `SNI ] ->
  (string * handler) list ->
  handler

virtual_hosts ?meth [(domain, handler); ...] produces a handler which enables virtual hosting at the TLS-layer using SNI.

meth can be used to choose which source to match the hostnames against. Defaults to `SNI.

Logging

val set_log_lvl : Logs.level -> unit

Set Mehari's logger to the given log level.

val logger : handler -> handler

Logs and times requests. Time spent logging is included.

val debug : 'a Logs.log

val info : 'a Logs.log

val warning : 'a Logs.log

val error : 'a Logs.log

Entry point

val run : 
  ?port:int ->
  ?backlog:int ->
  ?timeout:(float * Eio.Time.clock) ->
  ?addr:addr ->
  ?verify_url_host:bool ->
  ?config:Tls.Config.server ->
  certchains:(Eio.Fs.dir Eio.Path.t * Eio.Fs.dir Eio.Path.t) list ->
  Eio.Net.t ->
  handler ->
  unit

run ?port ?backlog ?addr ?verify_url_host ?config ~certchains net handler runs the server using handler.

port is the port to listen on. Defaults to 1965.
backlog is the the number of pending connections that can be queued up. Defaults to 4096.
timeout is a couple of form (duration, eio_clock). duration is the maximum waiting time in seconds for the client to write a request after TLS handshake. Unset by default.
addr is the socket addresses. Defaults to Eio.Net.Ipaddr.V4.loopback.
verify_url_host, if true (by default), will verify if the URL hostname corresponds to the server's certificate (chosen according to ocaml-tls sni.md).
config is the TLS server configuration. Defaults to
```
Tls.Config.server ~certificates
    ~authenticator:(fun ?ip:_ ~host:_ _ -> Ok None)
    ()
```
To support client certificates, specify the authenticator.
certchains is the list of form [(cert_path, private_key_path); ...], the last one is considered default.

raises Invalid_argument
if certchains is empty.