hcoop: add new server shelob.hcoop.net

[hcoop/domtool2.git] / lib / hcoop.dtl

diff --git a/lib/hcoop.dtl b/lib/hcoop.dtl
index d2e4673..d06cb60 100644 (file)
--- a/lib/hcoop.dtl
+++ b/lib/hcoop.dtl
@@ -1,5 +1,49 @@
 {{HCoop-specific stuff}}
 
-extern val home : string -> string
+extern type homedir_path;
+{{Some relative subdirectory of your home directory}}
+
+extern val home : homedir_path -> your_path;
 {{Shortcut to denote a subdirectory of your home directory}}
 
+extern val homeS : no_spaces -> no_spaces;
+{{Use this version when it doesn't matter if the output is a real filesystem
+  path.}}
+
+val mailmanHcoop = mailmanWebHost "lists.hcoop.net";
+{{Configure your domain to have its Mailman mailing lists served on the web at
+  lists.hcoop.net.}}
+
+(* Peer 1 *)
+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 bog_ip : (ip) = "69.90.123.72";
+val mccarthy_ip : (ip) = "69.90.123.73";
+val hopper_ip : (ip) = "69.90.123.74";
+val fritz_ip : (ip) = "69.90.123.75";
+
+(* Linode *)
+val outpost_ip : (ip) = "151.236.216.192";
+
+(* Digital Ocean *)
+val gibran_ip : (ip) = "159.203.101.102";
+val gibran_private_ip : (ip) = "10.132.94.132";
+val gibran_ipv6 : (ipv6) = "2604:a880:800:a1::c6:f001";
+
+val marsh_ip : (ip) = "165.227.79.103";
+val marsh_private_ip : (ip) = "10.132.53.183";
+val marsh_ipv6 : (ipv6) = "2604:a880:800:a1::8dc:4001";
+
+val minsky_ip : (ip) = "138.197.104.192";
+val minsky_private_ip : (ip) = "10.132.150.187";
+val minsky_ipv6 : (ipv6) = "2604:a880:800:a1::1232:e001";
+
+val shelob_ip : (ip) = "165.227.126.167";
+val shelob_private_ip : (ip) = "10.132.10.58";
+val shelob_ipv6 : (ipv6) = "2604:a880:800:a1::14a3:7001";
+(* val fyodor_ip : (ip) = "64.20.38.170"; *)
+
+val simpleWeb = \host -> \docroot -> web host where
+  DocumentRoot = home docroot
+with end;