fun saveSoa (kind, soa : soa) node =
let
- val {write, writeDom, close} = domainsFile {node = node, name = "soa"}
+ val {write, writeDom, close} = domainsFile {node = node, name = "soa.conf"}
in
write kind;
write "\n";
""
end
-val () = registerDescriber (considerAll [Filename {filename = "soa",
+val () = registerDescriber (considerAll [Filename {filename = "soa.conf",
heading = "DNS SOA:",
showEmpty = false}])
aliasesD := openInAll "aliases.default")
val _ = Domain.registerBefore
- (fn _ => (aliases := openInAll "aliases";
+ (fn _ => (aliases := openInAll "aliases.base";
reopenAliasesD ()))
val _ = Domain.registerAfter
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}])
let
val spl = OS.Path.splitDirFile (#file fs)
in
- if #file spl = "aliases" then
+ if #file spl = "aliases.base" then
aliasesChanged := true
else if #file spl = "aliases.default" then
aliasesDefaultChanged := true
- else if #file spl = "mail" then
+ else if #file spl = "mail.handle" then
hostsChanged := true
else if #file spl = "mail.relay" then
relayHostsChanged := true
val () = Slave.registerPostHandler
(fn () =>
(if !aliasesChanged then
- Slave.concatTo (fn s => s = "aliases") Config.Exim.aliases
+ Slave.concatTo (fn s => s = "aliases.base") Config.Exim.aliases
else
();
if !aliasesDefaultChanged then
else
();
if !hostsChanged then
- Slave.enumerateTo (fn s => s = "mail") ":" Config.Exim.handleDomains
+ Slave.enumerateTo (fn s => s = "mail.handle") ":" Config.Exim.handleDomains
else
();
if !relayHostsChanged then
in
app (fn node => #close
(Domain.domainsFile {node = node,
- name = "mail"}) ()) nodes
+ name = "mail.handle"}) ()) nodes
end)
val () = Env.actionV_none "relayMail"
end)
val () = Domain.registerDescriber (Domain.considerAll
- [Domain.Filename {filename = "aliases",
+ [Domain.Filename {filename = "aliases.base",
heading = "E-mail aliases:",
showEmpty = false},
Domain.Filename {filename = "aliases.default",
heading = "Default e-mail alias:",
showEmpty = false},
- Domain.Filename {filename = "mail",
+ Domain.Filename {filename = "mail.handle",
heading = "E-mail handling is on.",
showEmpty = true},
Domain.Filename {filename = "mail.relay",
(fn host =>
let
val {write, writeDom, close} = Domain.domainsFile {node = Config.Mailman.node,
- name = "mailman"}
+ name = "mailman.conf"}
in
write "\t'";
write host;
val spl = OS.Path.splitDirFile (#file fs)
in
case #file spl of
- "mailman" => mailmanChanged := true
+ "mailman.conf" => mailmanChanged := true
| _ => ()
end)
val () = Slave.registerPostHandler (fn () =>
if !mailmanChanged then
- (Slave.concatTo (fn s => s = "mailman")
+ (Slave.concatTo (fn s => s = "mailman.conf")
Config.Mailman.mapFile;
- Slave.enumerateTo (fn s => s = "mailman") ":"
+ Slave.enumerateTo (fn s => s = "mailman.conf") ":"
Config.Mailman.handleDomains;
Slave.shellF ([Config.Mailman.reload],
fn cl => "Error reloading Mailman with " ^ cl))
())
val () = Domain.registerDescriber (Domain.considerAll
- [Domain.Filename {filename = "mailman",
+ [Domain.Filename {filename = "mailman.conf",
heading = "Mailman web host mapping:",
showEmpty = false}])