31 lines
1.7 KiB
OCaml
31 lines
1.7 KiB
OCaml
|
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
|
||
|
|
|
||
|
|
module Make (S : Tcpip.Stack.V4V6) : sig
|
||
|
|
|
||
|
|
val primary :
|
||
|
|
?on_update:(old:Dns_trie.t -> authenticated_key:[`raw] Domain_name.t option -> update_source:Ipaddr.t -> Dns_server.Primary.s -> unit Lwt.t) ->
|
||
|
|
?on_notify:([ `Notify of Dns.Soa.t option | `Signed_notify of Dns.Soa.t option ] ->
|
||
|
|
Dns_server.Primary.s ->
|
||
|
|
(Dns_trie.t * ([ `raw ] Domain_name.t * Dns.Dnskey.t) list) option Lwt.t) ->
|
||
|
|
?timer:int -> ?port:int -> S.t -> Dns_server.Primary.s -> unit
|
||
|
|
(** [primary ~on_update ~timer ~port stack primary] starts a primary server on
|
||
|
|
[port] (default 53, both TCP and UDP) with the given [primary]
|
||
|
|
configuration. [timer] is the DNS notify timer in seconds, and defaults to
|
||
|
|
2 seconds. [on_update ~old ~authenticated_key ~update_source s] is a
|
||
|
|
callback if the data served by the primary server [s] got updated by a
|
||
|
|
potentially authenticated nsupdate packet, the used [authenticated_key]
|
||
|
|
and source [update_source] are passed to the callback. The
|
||
|
|
[on_notify notify s] callback is executed when a notify request is received
|
||
|
|
by the primary DNS server (may be used for signaling of a (hidden) DNS
|
||
|
|
secondary server). *)
|
||
|
|
|
||
|
|
val secondary :
|
||
|
|
?on_update:(old:Dns_trie.t -> Dns_server.Secondary.s -> unit Lwt.t) ->
|
||
|
|
?timer:int -> ?port:int -> S.t -> Dns_server.Secondary.s ->
|
||
|
|
unit
|
||
|
|
(** [secondary ~on_update ~timer ~port stack secondary] starts a secondary
|
||
|
|
server on [port] (default 53). The [on_update] callback is executed when
|
||
|
|
the zone changes. The [timer] (in seconds, defaults to 5 seconds) is used
|
||
|
|
for refreshing zones. *)
|
||
|
|
end
|