[hcoop-cvs] domtool2/lib easy_domain.dtl, 1.26, 1.27 hcoop.dtl, 1.5, 1.6

Update of /cvsroot/hcoop/domtool2/lib
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv23676/lib

Modified Files:
	easy_domain.dtl hcoop.dtl 
Log Message:
New vhost shortcut

Index: easy_domain.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/easy_domain.dtl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** easy_domain.dtl	24 Feb 2008 21:40:26 -0000	1.26
--- easy_domain.dtl	24 Feb 2008 22:03:29 -0000	1.27
***************
*** 94,95 ****
--- 94,96 ----
  val dnsText = \from -> \to -> dns (dnsTXT (srv_literal from) to);
  val dnsDefaultText = \to -> dns (dnsTXT srv_default to);
+ 

Index: hcoop.dtl
===================================================================
RCS file: /cvsroot/hcoop/domtool2/lib/hcoop.dtl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** hcoop.dtl	18 Feb 2008 17:17:43 -0000	1.5
--- hcoop.dtl	24 Feb 2008 22:03:30 -0000	1.6
***************
*** 19,20 ****
--- 19,24 ----
  val krunk_ip : (ip) = "69.90.123.70";
  val fyodor_ip : (ip) = "64.20.38.170";
+ 
+ val simple_web = \host -> \docroot -> web host where
+   DocumentRoot = home docroot
+ with end;