HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Slave catches all exceptions, to avoid dying
[hcoop/domtool2.git]
/
lib
/
easy_domain.dtl
diff --git
a/lib/easy_domain.dtl
b/lib/easy_domain.dtl
index
cb63932
..
c4b3d4f
100644
(file)
--- a/
lib/easy_domain.dtl
+++ b/
lib/easy_domain.dtl
@@
-10,13
+10,26
@@
val webAt =
(dns (dnsA host (ip_of_node (web_node_to_node n)));
vhost host where
(dns (dnsA host (ip_of_node (web_node_to_node n)));
vhost host where
- Web
Nodes = [
n]
+ Web
Places = [web_place_default
n]
with
config
end);
val web = webAt web_node;
with
config
end);
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
val addDefaultAlias = begin
mailbox <- Mailbox;
defaultAlias mailbox