[hcoop-cvs] domtool2/lib bind.dtl, 1.6, 1.7 easy_domain.dtl, 1.23, 1.24

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};