Update of /cvsroot/hcoop/domtool2/lib
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv12848/lib
Modified Files:
bind.dtl easy_domain.dtl
Log Message:
bind_patterns
Index: easy_domain.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/easy_domain.dtl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** easy_domain.dtl 1 Jan 2008 23:13:35 -0000 1.22
--- easy_domain.dtl 18 Feb 2008 16:40:08 -0000 1.23
***************
*** 8,12 ****
\ host : (host) ->
\\ config : Vhost -> begin
! dns (dnsA host (ip_of_node (web_node_to_node n)));
vhost host where
--- 8,12 ----
\ host : (host) ->
\\ config : Vhost -> begin
! dns (dnsA (literal host) (ip_of_node (web_node_to_node n)));
vhost host where
***************
*** 23,27 ****
\ host : (host) ->
\\ config : Vhost -> begin
! dns (dnsA host (your_ip_to_ip ip));
vhost host where
--- 23,27 ----
\ host : (host) ->
\\ config : Vhost -> begin
! dns (dnsA (literal host) (your_ip_to_ip ip));
vhost host where
***************
*** 52,56 ****
dns (dnsNS "ns3.hcoop.net");
! dns (dnsDefaultA (ip_of_node (web_node_to_node web_node)));
handleMail;
--- 52,56 ----
dns (dnsNS "ns3.hcoop.net");
! dns (dnsA default (ip_of_node (web_node_to_node web_node)));
handleMail;
***************
*** 75,84 ****
val nameserver = \host -> dns (dnsNS host);
! val dnsIP = \from -> \to -> dns (dnsA from to);
! val dnsIPv6 = \from -> \to -> dns (dnsAAAA from to);
val dnsMail = \num -> \host -> dns (dnsMX num host);
! val dnsAlias = \from -> \to -> dns (dnsCNAME from to);
! val dnsDefault = \to -> dns (dnsDefaultA to);
! val dnsDefaultv6 = \to -> dns (dnsDefaultAAAA to);
! val dnsText = \from -> \to -> dns (dnsTXT from to);
! val dnsDefaultText = \to -> dns (dnsDefaultTXT to);
--- 75,84 ----
val nameserver = \host -> dns (dnsNS host);
! val dnsIP = \from -> \to -> dns (dnsA (literal from) to);
! val dnsIPv6 = \from -> \to -> dns (dnsAAAA (literal from) to);
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);
Index: bind.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/bind.dtl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** bind.dtl 1 Jan 2008 23:07:50 -0000 1.5
--- bind.dtl 18 Feb 2008 16:40:08 -0000 1.6
***************
*** 6,21 ****
{{Like <tt>domain</tt>, but may contain underscores}}
! extern val dnsA : host -> ip -> dnsRecord;
! extern val dnsAAAA : host -> ipv6 -> dnsRecord;
extern val dnsAFSDB : domain -> dnsRecord;
! extern val dnsCNAME : host -> 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 : host -> no_newlines -> dnsRecord;
!
! extern val dnsDefaultA : ip -> dnsRecord;
! extern val dnsDefaultAAAA : ipv6 -> dnsRecord;
! extern val dnsDefaultTXT : no_newlines -> dnsRecord;
extern val dns : dnsRecord -> [Domain] {TTL : int};
--- 6,26 ----
{{Like <tt>domain</tt>, but may contain underscores}}
! extern type bind_pattern;
! {{Ways of describing in which cases a DNS mapping applies}}
! extern val literal : host -> bind_pattern;
! {{A rule applies only to this particular host.}}
! extern val default : bind_pattern;
! {{A rule applies directly to the domain for the current <tt>vhost</tt>
block.}}
! extern val wildcard : bind_pattern;
! {{A rule applies to every host within the current domain.}}
!
! 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 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
