Make (dns-resolver.Dns_resolver

Parameters

module S : Tcpip.Stack.V4V6

Signature

type t

val resolver : 
  S.t ->
  ?root:bool ->
  ?timer:int ->
  ?udp:bool ->
  ?tcp:bool ->
  ?tls:Tls.Config.server ->
  ?port:int ->
  ?tls_port:int ->
  Dns_resolver.t ->
  t

resolver stack ~root ~timer ~udp ~tcp ~tls ~port ~tls_port resolver registers a caching resolver on the provided protocols udp, tcp, tls using port for udp and tcp (defaults to 53), tls_port for tls (defaults to 853) using the resolver configuration. The timer is in milliseconds and defaults to 500 milliseconds.

include Dns_resolver_mirage_shared.S with type t := t

val resolve_external : 
  t ->
  (Ipaddr.t * int) ->
  string ->
  (int32 * string) Lwt.t

resolve_external t (ip, port) data resolves for (ip, port) the query data and returns a pair of the minimum TTL and a response.

val primary_data : t -> Dns_trie.t

primary_data t is the DNS trie of the primary for the resolver t.

val update_primary_data : t -> Dns_trie.t -> unit

update_primary_data t data updates the primary for the resolver t with the DNS trie data. Any 'notify's to secondaries are discarded - secondary name servers are not supported in this setup.

val update_tls : t -> Tls.Config.server -> unit

update_tls t tls_config updates the tls configuration to tls_config. If the resolver wasn't already listening for TLS connections it will start listening.

val queries : t -> Dns_resolver_mirage_shared.query_info Lwt_condition.t

queries t returns the stream of resolved DNS queries and their replies.