Update of /cvsroot/hcoop/domtool2/lib
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv5551/lib
Modified Files:
bind.dtl easy_domain.dtl
Log Message:
Expanding TXT support
Index: easy_domain.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/easy_domain.dtl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** easy_domain.dtl 18 Feb 2008 16:40:08 -0000 1.23
--- easy_domain.dtl 24 Feb 2008 15:50:24 -0000 1.24
***************
*** 81,84 ****
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);
--- 81,86 ----
val dnsDefault = \to -> dns (dnsA default to);
val dnsDefaultv6 = \to -> dns (dnsAAAA 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);
Index: bind.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/bind.dtl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** bind.dtl 18 Feb 2008 16:40:08 -0000 1.6
--- bind.dtl 24 Feb 2008 15:50:24 -0000 1.7
***************
*** 15,18 ****
--- 15,24 ----
{{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;
***************
*** 21,26 ****
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 dns : dnsRecord -> [Domain] {TTL : int};
--- 27,32 ----
extern val dnsMX : int -> domain -> dnsRecord;
extern val dnsNS : domain -> 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};
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
