package dns-certify
-
dns-certify
Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
package dns-certify
Legend:
Library
Module
Module type
Parameter
Class
Class type
Library
Module
Module type
Parameter
Class
Class type
val letsencrypt_name :
'a Domain_name.t ->
([ `raw ] Domain_name.t, [> `Msg of string ]) resultletsencrypt_name host is the service name at which we store let's encrypt certificates for the host.
type u_err = [ | `Tsig of Dns_tsig.e| `Bad_reply of Dns.Packet.mismatch * Dns.Packet.t| `Unexpected_reply of Dns.Packet.reply
]The type of update errors.
val nsupdate :
(int -> Cstruct.t) ->
(unit -> Ptime.t) ->
host:[ `host ] Domain_name.t ->
keyname:'b Domain_name.t ->
zone:[ `host ] Domain_name.t ->
Dns.Dnskey.t ->
X509.Signing_request.t ->
(Cstruct.t * (Cstruct.t -> (unit, [> u_err ]) result), [> `Msg of string ])
resultnsupdate rng now ~host ~keyname ~zone dnskey csr is a buffer with a DNS update that removes all TLSA records from the given host, and adds a single TLSA record containing the certificate signing request. It also returns a function which decodes a given answer, checks it to be a valid reply, and returns either unit or an error. The outgoing packet is signed with the provided dnskey, the answer is checked to be signed by the same key. If the sign operation fails, nsupdate returns an error.
type q_err = [ | `Decode of Dns.Packet.err| `Bad_reply of Dns.Packet.mismatch * Dns.Packet.t| `Unexpected_reply of Dns.Packet.reply| `No_tlsa
]The type for query errors.
val query :
(int -> Cstruct.t) ->
X509.Public_key.t ->
[ `host ] Domain_name.t ->
(Cstruct.t * (Cstruct.t -> (X509.Certificate.t, [> q_err ]) result),
[> `Msg of string ])
resultquery rng pubkey name is a buffer with a DNS TLSA query for the given name, and a function that decodes a given answer, either returning a X.509 certificate or an error.