lib: add AAAA record for mailman hosts

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

diff --git a/lib/mailman.dtl b/lib/mailman.dtl
index 31cb02e..8de45ee 100644 (file)
--- a/lib/mailman.dtl
+++ b/lib/mailman.dtl
@@ -15,17 +15,18 @@ extern val mailman_node_to_node : mailman_node -> node;
 
 extern type mailman_place;
 extern val mailman_place_default : mailman_node -> mailman_place;
-extern val mailman_place : mailman_node -> your_ip -> mailman_place;
+extern val mailman_place : mailman_node -> your_ip -> your_ipv6 -> mailman_place;
 extern val mailman_place_to_web_node : mailman_place -> web_node;
 extern val mailman_place_to_node : mailman_place -> node;
 extern val mailman_place_to_ip : mailman_place -> ip;
+extern val mailman_place_to_ipv6 : mailman_place -> ipv6;
 {{Analogous to <tt>web_place</tt>, but based on <tt>mailman_node</tt>s}}
 
 extern val mailmanVhost : host -> [Domain]
-       {MailmanPlaces : [mailman_place],
-        SSL : ssl,
-        User : your_user,
-         ServerAdmin : email};
+  {MailmanPlaces : [mailman_place],
+  SSL : ssl,
+  User : your_user,
+  ServerAdmin : email};
 {{Create an Apache virtual host to serve as the web interface for some Mailman
   lists.}}
 
@@ -34,6 +35,7 @@ val mailman = \ host : (host) -> begin
     domainHost host;
   in
     dnsIP host (ip_of_node (mailman_node_to_node mailman_node));
+    dnsIPv6 host (ipv6_of_node (mailman_node_to_node mailman_node));
     mwh <- Hostname;
     mailmanWebHost mwh;
     mailmanVhost host where