X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/cfedb9220fc5a849df6d5d85cc929d1f72ac0326..30a16a203b3615f98ad2a66354b0adabc2c9069f:/lib/bind.dtl?ds=sidebyside

diff --git a/lib/bind.dtl b/lib/bind.dtl
index 8515154..f781633 100644
--- a/lib/bind.dtl
+++ b/lib/bind.dtl
@@ -14,13 +14,19 @@ extern val default : bind_pattern;
 extern val wildcard : bind_pattern;
 {{A rule applies to every host within the current domain.}}
 
+extern type srv_pattern;
+{{Like <tt>bind_pattern</tt>, but for SRV and TXT records, where underscores are allowed in hostnames}}
+extern val srv_literal : srv_domain -> srv_pattern;
+extern val srv_default : srv_pattern;
+extern val srv_wildcard : srv_pattern;
+
 extern val dnsA : bind_pattern -> ip -> dnsRecord;
 extern val dnsAAAA : bind_pattern -> ipv6 -> dnsRecord;
 extern val dnsAFSDB : domain -> dnsRecord;
 extern val dnsCNAME : bind_pattern -> domain -> dnsRecord;
 extern val dnsMX : int -> domain -> dnsRecord;
 extern val dnsNS : domain -> dnsRecord;
-extern val dnsSRV : srv_domain -> int -> int -> int -> domain -> dnsRecord;
-extern val dnsTXT : bind_pattern -> no_newlines -> dnsRecord;
+extern val dnsSRV : srv_pattern -> int -> int -> int -> domain -> dnsRecord;
+extern val dnsTXT : srv_pattern -> no_newlines -> dnsRecord;
 
 extern val dns : dnsRecord -> [Domain] {TTL : int};