val {dir, file} = OS.Path.splitDirFile (#file fs)
fun dnsChanged () =
- if #domain fs = !didDomain orelse Slave.hostname () <> Config.Bind.masterNode then
+ if #domain fs = !didDomain then
()
else if Slave.isDelete (#action fs) then
let
()))
val () = Domain.registerResetLocal (fn () =>
- ignore (OS.Process.system (Config.rm ^ " -rf /var/domtool/zones/*")))
+ ignore (OS.Process.system (Config.rm ^ " -rf " ^ Config.Bind.zonePath ^ "/*")))
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "named.conf",
Env.string
validSrvDomain
-val _ = Env.registerFunction ("dns_master_node",
- fn [] => SOME (EString Config.Bind.masterNode, dl)
- | _ => NONE)
-
-val _ = Env.registerFunction ("dns_slave_nodes",
- fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.Bind.slaveNodes), dl)
- | _ => NONE)
-
end