From 6b65a0a6084938602e0c63ed251ee26bbe437646 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 24 Feb 2008 22:03:29 +0000 Subject: [PATCH] New vhost shortcut --- lib/easy_domain.dtl | 1 + lib/hcoop.dtl | 4 ++++ 2 files changed, 5 insertions(+) diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl index db27d29..1c1b5d8 100644 --- a/lib/easy_domain.dtl +++ b/lib/easy_domain.dtl @@ -93,3 +93,4 @@ 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); + diff --git a/lib/hcoop.dtl b/lib/hcoop.dtl index b4b3109..f538e7e 100644 --- a/lib/hcoop.dtl +++ b/lib/hcoop.dtl @@ -18,3 +18,7 @@ val deleuze_ip : (ip) = "69.90.123.67"; val mire_ip : (ip) = "69.90.123.68"; 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; -- 2.20.1