Make (letsencrypt-mirage.LE.Make)

Parameters

module Stack : Tcpip.Stack.V4V6

Signature

type nonrec configuration = configuration = {

email : Emile.mailbox option;
certificate_seed : string option;
certificate_key_type : X509.Key_type.t;
certificate_key_bits : int option;
hostname : [ `host ] Domain_name.t;
account_seed : string option;
account_key_type : X509.Key_type.t;
account_key_bits : int option;

}

module Acme : sig ... end

val request_handler : (Ipaddr.t * int) -> H1.Server_connection.request_handler

val provision_certificate : 
  ?tries:int ->
  ?production:bool ->
  configuration ->
  Http_mirage_client.t ->
  (Tls.Config.own_cert, [> `Msg of string | `HTTP of Client.error ])
    Stdlib.result
    Lwt.t

val initialise : 
  ctx:Http_mirage_client.t ->
  endpoint:string ->
  ?email:string ->
  X509.Private_key.t ->
  (Letsencrypt.Client.t, [> `Msg of string | `HTTP of Client.error ])
    Stdlib.result
    Lwt.t

initialise ~ctx ~endpoint ~email priv constructs a Letsencrypt.Client.t by looking up the directory and account of priv at endpoint. If no account is registered yet, a new account is created with contact information of email. The terms of service are agreed on.

val sign_certificate : 
  ctx:Http_mirage_client.t ->
  Acme.solver ->
  Letsencrypt.Client.t ->
  (int -> unit Lwt.t) ->
  X509.Signing_request.t ->
  (X509.Certificate.t list, [> `Msg of string | `HTTP of Client.error ])
    Stdlib.result
    Lwt.t

sign_certificate ~ctx solver t sleep csr orders a certificate for the names in the signing request csr, and solves the requested challenges.