val dnsNodes_all = ["deleuze", "mire"]
val dnsNodes_admin = []
+val mailNodes_all = ["deleuze"]
+val mailNodes_admin = ["mire"]
+
val aclFile = "/afs/hcoop.net/common/etc/domtool/acl"
val testUser = "test"
val dnsNodes_all : string list
val dnsNodes_admin : string list
+
+val mailNodes_all : string list
+val mailNodes_admin : string list
Env.string
validNode
-val _ = Env.registerFunction ("web_node_to_node",
+val _ = Env.registerFunction ("dns_node_to_node",
+ fn [e] => SOME e
+ | _ => NONE)
+
+val _ = Env.registerFunction ("mail_node_to_node",
fn [e] => SOME e
| _ => NONE)
open Ast
orelse (hasPriv "dns"
andalso List.exists (fn x => x = node) Config.dnsNodes_admin))
+val _ = Env.type_one "mail_node"
+ Env.string
+ (fn node =>
+ List.exists (fn x => x = node) Config.mailNodes_all
+ orelse (hasPriv "mail"
+ andalso List.exists (fn x => x = node) Config.mailNodes_admin))
+
end
val dl = ErrorMsg.dummyLoc
val _ = Defaults.registerDefault ("MailNodes",
- (TList (TBase "node", dl), dl),
+ (TList (TBase "mail_node", dl), dl),
(fn () => (EList (map (fn s => (EString s, dl)) Config.Exim.aliasTo), dl)))
val aliasesChanged = ref false