HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix file paths for recursive rmdom
[hcoop/domtool2.git]
/
src
/
plugins
/
exim.sml
diff --git
a/src/plugins/exim.sml
b/src/plugins/exim.sml
index
ee4cf80
..
bb2743a
100644
(file)
--- a/
src/plugins/exim.sml
+++ b/
src/plugins/exim.sml
@@
-20,6
+20,14
@@
structure Exim :> EXIM = struct
structure Exim :> EXIM = struct
+open Ast
+
+val dl = ErrorMsg.dummyLoc
+
+val _ = Defaults.registerDefault ("MailNodes",
+ (TList (TBase "mail_node", dl), dl),
+ (fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
+
val aliasesChanged = ref false
val aliasesDefaultChanged = ref false
val hostsChanged = ref false
val aliasesChanged = ref false
val aliasesDefaultChanged = ref false
val hostsChanged = ref false
@@
-65,7
+73,14
@@
val () = Slave.registerPostHandler
()))
()))
-val () = Env.action_none "handleMail"
- (fn () => TextIO.closeOut (Domain.domainFile "mail"))
+val () = Env.actionV_none "handleMail"
+ (fn env =>
+ let
+ val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
+ in
+ app (fn node => TextIO.closeOut
+ (Domain.domainFile {node = node,
+ name = "mail"})) nodes
+ end)
end
end