val _ = Domain.registerBefore
(fn _ => dns := Option.map (fn node => Domain.domainsFile {node = node,
- name = "dns"})
+ name = "dns.conf"})
(Domain.dnsMaster ()))
val _ = Domain.registerAfter
else
let
val inf = TextIO.openIn (OS.Path.joinDirFile {dir = #dir fs,
- file = "soa"})
+ file = "soa.conf"})
val kind = readLine inf
val ttl = readILine inf
val ns = readLine inf
val _ = TextIO.closeOut outf
val dns = OS.Path.joinDirFile {dir = #dir fs,
- file = "dns"}
+ file = "dns.conf"}
val fname = OS.Path.joinBaseExt {base = #domain fs,
ext = SOME "zone"}
end
in
case file of
- "soa" => dnsChanged ()
- | "dns" => dnsChanged ()
+ "soa.conf" => dnsChanged ()
+ | "dns.conf" => dnsChanged ()
| "named.conf" => namedChanged := true
| _ => ()
end)
[Domain.Filename {filename = "named.conf",
heading = "named.conf addition:",
showEmpty = false},
- Domain.Filename {filename = "dns",
+ Domain.Filename {filename = "dns.conf",
heading = "DNS zonefile contents:",
showEmpty = false}])