39 lines
2 KiB
OCaml
39 lines
2 KiB
OCaml
|
(*
|
||
|
|
* Copyright (c) 2005-2006 Tim Deegan <tjd@phlegethon.org>
|
||
|
|
* Copyright (c) 2017 Hannes Mehnert <hannes@mehnert.org>
|
||
|
|
*
|
||
|
|
* Permission to use, copy, modify, and distribute this software for any
|
||
|
|
* purpose with or without fee is hereby granted, provided that the above
|
||
|
|
* copyright notice and this permission notice appear in all copies.
|
||
|
|
*
|
||
|
|
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||
|
|
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||
|
|
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||
|
|
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||
|
|
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||
|
|
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||
|
|
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||
|
|
*
|
||
|
|
*)
|
||
|
|
|
||
|
|
val parse : string -> (Dns.Name_rr_map.t, [> `Msg of string ]) result
|
||
|
|
(** [parse data] attempts to parse the [data], given in [zone file format].
|
||
|
|
It either returns the content as a map, or an error. *)
|
||
|
|
|
||
|
|
val decode_keys : 'a Domain_name.t -> string -> Dns.Dnskey.t Domain_name.Map.t
|
||
|
|
(** [decode_keys zone data] decodes DNSKEY in [data], and ensure that all are
|
||
|
|
within [zone]. Errors are logged via the logs library. *)
|
||
|
|
|
||
|
|
val decode_zones : (string * string) list -> Domain_name.Set.t * Dns_trie.t
|
||
|
|
(** [decode_zones (name, data)] parses the zones [data] with the names
|
||
|
|
[name], and constructs a trie that has been checked for consistency.
|
||
|
|
The set of zones are returned, together with the constructed trie.
|
||
|
|
Errors and inconsistencies are logged via the logs library, and the
|
||
|
|
respective zone data is ignored. *)
|
||
|
|
|
||
|
|
val decode_zones_keys : (string * string) list ->
|
||
|
|
Domain_name.Set.t * Dns_trie.t * ([`raw] Domain_name.t * Dns.Dnskey.t) list
|
||
|
|
(** [decode_zones_keys (name, data)] is [decode_zones], but also if a [name]
|
||
|
|
ends with "_keys", the Dnskey records are decoded (using [decode_keys] and
|
||
|
|
are added to the last part of the return value. *)
|