let
val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
in
- app (fn node => TextIO.closeOut
- (Domain.domainFile {node = node,
- name = "mail"})) nodes
+ app (fn node => #close
+ (Domain.domainsFile {node = node,
+ name = "mail"}) ()) nodes
end)
val () = Env.actionV_none "relayMail"
let
val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
in
- app (fn node => TextIO.closeOut
- (Domain.domainFile {node = node,
- name = "mail.relay"})) nodes
+ app (fn node => #close
+ (Domain.domainsFile {node = node,
+ name = "mail.relay"}) ()) nodes
end)
+val () = Domain.registerDescriber (Domain.considerAll
+ [Domain.Filename {filename = "aliases",
+ heading = "E-mail aliases:",
+ showEmpty = false},
+ Domain.Filename {filename = "aliases.default",
+ heading = "Default e-mail alias:",
+ showEmpty = false},
+ Domain.Filename {filename = "mail",
+ heading = "E-mail handling is on.",
+ showEmpty = true},
+ Domain.Filename {filename = "mail.relay",
+ heading = "E-mail relaying is on.",
+ showEmpty = true}])
+
end