X-Git-Url: https://git.hcoop.net/hcoop/zz_old/domtool2-proto.git/blobdiff_plain/7cfb21d80b8b5247cb2c94600c048abacb882c5f..746b3c047dd6c32ab04bb11d02e6bd4d943578ff:/lib/easy_domain.dtl

diff --git a/lib/easy_domain.dtl b/lib/easy_domain.dtl
index 82c66bf..c4b3d4f 100644
--- a/lib/easy_domain.dtl
+++ b/lib/easy_domain.dtl
@@ -17,6 +17,19 @@ val webAt =
 
 val web = webAt web_node;
 
+val webAtIp =
+	\ ip : (your_ip) ->
+	\ host : (host) ->
+	\\ config : Vhost -> begin
+	  dns (dnsA host (your_ip_to_ip ip));
+
+	  vhost host where
+	    WebPlaces = [web_place web_node ip]
+	  with
+	    config
+	  end
+	end;
+
 val addDefaultAlias = begin
   mailbox <- Mailbox;
   defaultAlias mailbox