val {dir, file} = OS.Path.splitDirFile (#file fs)
fun dnsChanged () =
- if #domain fs = !didDomain orelse Slave.hostname () <> Config.masterNode then
+ if #domain fs = !didDomain orelse Slave.hostname () <> Config.Bind.masterNode then
()
else if Slave.isDelete (#action fs) then
let
val min = readILine inf
val () = TextIO.closeIn inf
- val serialPath = OS.Path.joinDirFile {dir = Config.serialDir,
+ val serialPath = OS.Path.joinDirFile {dir = Config.Bind.serialDir,
file = #domain fs}
val oldSerial = let
validSrvDomain
val _ = Env.registerFunction ("dns_master_node",
- fn [] => SOME (EString Config.masterNode, dl)
+ fn [] => SOME (EString Config.Bind.masterNode, dl)
| _ => NONE)
val _ = Env.registerFunction ("dns_slave_nodes",
- fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.slaveNodes), dl)
+ fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.Bind.slaveNodes), dl)
| _ => NONE)
end