fun writeRecord (evs, r) =
case !dns of
- NONE => print ("Warning: DNS directive for " ^ Domain.currentDomain ()
- ^ " ignored because no master DNS server is configured for this domain\n")
+ NONE => () (* print ("Warning: DNS directive for " ^ Domain.currentDomain ()
+ ^ " ignored because no master DNS server is configured for this domain\n") *)
| SOME files =>
let
fun write s = #write files s
val {dir, file} = OS.Path.splitDirFile (#file fs)
fun dnsChanged () =
- if #domain fs = !didDomain then
+ if #domain fs = !didDomain orelse Slave.hostname () <> Config.masterNode then
()
else if Slave.isDelete (#action fs) then
let
Env.string
validSrvDomain
+val _ = Env.registerFunction ("dns_master_node",
+ fn [] => SOME (EString Config.masterNode, dl)
+ | _ => NONE)
+
+val _ = Env.registerFunction ("dns_slave_nodes",
+ fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.slaveNodes), dl)
+ | _ => NONE)
+
end