val dl = ErrorMsg.dummyLoc
+val () = Env.registerFunction ("mailman_web_node",
+ fn [] => SOME (EString Config.Mailman.node, dl)
+ | _ => NONE)
+
+val () = Env.registerFunction ("mailman_web_node_to_node",
+ fn [e] => SOME e
+ | _ => NONE)
+
val () = Defaults.registerDefault
("MailmanWebNodes",
(TList (TBase "mailman_web_node", dl), dl),
print " Order allow,deny\n";
print " Allow from all\n";
print " </Directory>\n";
+
+ Apache.doPre {user = user, nodes = nodes, id = vhostId, hostname = fullHost};
+
print "</VirtualHost>\n";
- TextIO.closeOut file
+ TextIO.closeOut file;
+
+ Apache.doPost ()
end) nodes
end)