lib/hcoop.dtl

   1 {{HCoop-specific stuff}}
   2
   3 extern type homedir_path;
   4 {{Some relative subdirectory of your home directory}}
   5
   6 extern val home : homedir_path -> your_path;
   7 {{Shortcut to denote a subdirectory of your home directory}}
   8
   9 extern val homeS : no_spaces -> no_spaces;
  10 {{Use this version when it doesn't matter if the output is a real filesystem
  11   path.}}
  12
  13 val mailmanHcoop = mailmanWebHost "lists.hcoop.net";
  14 {{Configure your domain to have its Mailman mailing lists served on the web at
  15   lists.hcoop.net.}}
  16
  17 (* Peer 1 *)
  18 val deleuze_ip : (ip) = "69.90.123.67";
  19 val mire_ip : (ip) = "69.90.123.68";
  20 val navajos_ip : (ip) = "69.90.123.70";
  21 val bog_ip : (ip) = "69.90.123.72";
  22 val mccarthy_ip : (ip) = "69.90.123.73";
  23 val hopper_ip : (ip) = "69.90.123.74";
  24 val fritz_ip : (ip) = "69.90.123.75";
  25
  26 (* Linode *)
  27 val outpost_ip : (ip) = "151.236.216.192";
  28 val outpost_ipv6 : (ipv6) = "2a01:7e00::f03c:91ff:fe70:7c62";
  29
  30 (* Digital Ocean *)
  31 val gibran_ip : (ip) = "142.93.177.82";
  32 val gibran_private_ip : (ip) = "10.132.5.78";
  33 val gibran_ipv6 : (ipv6) = "2604:a880:800:c1::99:5001";
  34
  35 val lovelace_ip : (ip) = "68.183.58.241";
  36 val lovelace_private_ip : (ip) = "10.132.27.211";
  37 val lovelace_ipv6 : (ipv6)  = "2604:a880:800:c1::c2:7001";
  38
  39 val marsh_ip : (ip) = "45.55.52.66";
  40 val marsh_private_ip : (ip) = "10.132.96.182";
  41 val marsh_ipv6 : (ipv6) = "2604:a880:800:a1::13a3:f001";
  42
  43 val minsky_ip : (ip) = "104.248.1.95";
  44 val minsky_private_ip : (ip) = "10.132.154.5";
  45 val minsky_ipv6 : (ipv6) = "2604:a880:800:c1::b1:5001";
  46
  47 val shelob_ip : (ip) = "68.183.54.165";
  48 val shelob_private_ip : (ip) = "10.132.7.249";
  49 val shelob_ipv6 : (ipv6) = "2604:a880:800:c1::d:3001";
  50
  51 val simpleWeb = \host -> \docroot -> web host where
  52   DocumentRoot = home docroot
  53 with end;