HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Domain alias support for Mailman
[hcoop/domtool2.git]
/
src
/
plugins
/
mailman.sml
diff --git
a/src/plugins/mailman.sml
b/src/plugins/mailman.sml
index
8cf9873
..
236909c
100644
(file)
--- a/
src/plugins/mailman.sml
+++ b/
src/plugins/mailman.sml
@@
-27,15
+27,15
@@
val () = Env.action_one "mailmanWebHost"
("hostname", Env.string)
(fn host =>
let
("hostname", Env.string)
(fn host =>
let
- val
outf = Domain.domain
File {node = Config.Mailman.node,
- name = "mailman"}
+ val
{write, writeDom, close} = Domain.domains
File {node = Config.Mailman.node,
+
name = "mailman"}
in
in
-
TextIO.output (outf, "\t'")
;
-
TextIO.output (outf, host)
;
-
TextIO.output (outf, "' : '")
;
-
TextIO.output (outf, Domain.currentDomain ()
);
-
TextIO.output (outf, "',\n")
;
- TextIO.closeOut outf
+
write "\t'"
;
+
write host
;
+
write "' : '"
;
+
writeDom (
);
+
write "',\n"
;
+ close ()
end)
val mailmanChanged = ref false
end)
val mailmanChanged = ref false
@@
-55,7
+55,9
@@
val () = Slave.registerPostHandler (fn () =>
if !mailmanChanged then
(Slave.concatTo (fn s => s = "mailman")
Config.Mailman.mapFile;
if !mailmanChanged then
(Slave.concatTo (fn s => s = "mailman")
Config.Mailman.mapFile;
- Slave.shellF ([Config.Mailman.reload],
+ Slave.enumerateTo (fn s => s = "mailman") ":"
+ Config.Mailman.handleDomains;
+ Slave.shellF ([Config.Mailman.reload],
fn cl => "Error reloading Mailman with " ^ cl))
else
())
fn cl => "Error reloading Mailman with " ^ cl))
else
())