Expanding TXT support

[hcoop/domtool2.git] / lib / easy_domain.dtl

diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl
index 2f8c0ab..1d845d5 100644 (file)
--- a/lib/easy_domain.dtl
+++ b/lib/easy_domain.dtl
@@ -80,5 +80,7 @@ val dnsMail = \num -> \host -> dns (dnsMX num host);
 val dnsAlias = \from -> \to -> dns (dnsCNAME (literal from) to);
 val dnsDefault = \to -> dns (dnsA default to);
 val dnsDefaultv6 = \to -> dns (dnsAAAA default to);
-val dnsText = \from -> \to -> dns (dnsTXT (literal from) to);
-val dnsDefaultText = \to -> dns (dnsTXT default to);
+val dnsText = \from -> \to -> dns (dnsTXT (srv_literal from) to);
+val dnsDefaultText = \to -> dns (dnsTXT srv_default to);
+
+val dnsKerberos = \to -> dns (dnsTXT (srv_literal "_kerberos") to);