val dnsDefaultText = \to -> dns (dnsTXT srv_default to);
val dnsWildcardIP = \to -> dns (dnsA wildcard to);
+
+val addDefaultSPF = dnsDefaultText "v=spf1 mx -all";
{{Configure your domain to have its Mailman mailing lists served on the web at
lists.hcoop.net.}}
-val fritz_ip : (ip) = "69.90.123.75";
-val hopper_ip : (ip) = "69.90.123.74";
val deleuze_ip : (ip) = "69.90.123.67";
val mire_ip : (ip) = "69.90.123.68";
val navajos_ip : (ip) = "69.90.123.70";
-val outpost_ip : (ip) = "74.115.254.28";
+val bog_ip : (ip) = "69.90.123.72";
+val hopper_ip : (ip) = "69.90.123.74";
+val fritz_ip : (ip) = "69.90.123.75";
+
+val outpost_ip : (ip) = "151.236.216.192";
(* val fyodor_ip : (ip) = "64.20.38.170"; *)
{{Create a WordPress blog with just the standard set-up code. The WordPress blog should
be rooted at the vhost's <tt>DocumentRoot</tt>.}}
+val moin_default_htdocs : (location) = "/moin_static196";
+{{Alias for static content used by the system-wide MoinMoin.}}
+
val addMoinMoin = begin
htdocs <- Htdocs;
prefix <- Prefix;
script <- Script;
- alias htdocs "/usr/share/moin/htdocs";
+ alias htdocs "/afs/hcoop.net/common/app/moin/installed/moin19/lib/python2.6/site-packages/MoinMoin/web/static/htdocs";
scriptAlias prefix (end_in_slash script)
end;
{{Add a MoinMoin wiki to a vhost.}}
val moinMoin = \ host : (host) ->
web host with
addMoinMoin where
- Htdocs = "/moin";
+ Htdocs = moin_default_htdocs;
Prefix = "/"
end
end;
{{Create a new vhost with just a MoinMoin wiki.}}
+
+(* Legacy version of moin macros *)
+
+val addMoinMoinOld = begin
+ htdocs <- Htdocs;
+ prefix <- Prefix;
+ script <- Script;
+
+ alias htdocs "/usr/share/moin/htdocs";
+ scriptAlias prefix (end_in_slash script)
+end;
+{{Add a MoinMoin wiki to a vhost.}}
+
+val moinMoinOld = \ host : (host) ->
+ webAt "mire" host with
+ addMoinMoinOld where
+ Htdocs = "/moin";
+ Prefix = "/"
+ end
+ end;
+{{Create a new vhost with just a MoinMoin wiki.}}
\ No newline at end of file