case d of
Filename {filename, heading, showEmpty} =>
if fname = filename then
- entries := readFile showEmpty ("\n" :: line :: ":\n" :: heading :: line :: !entries)
+ entries := readFile showEmpty ("\n" :: line :: "\n" :: heading :: line :: !entries)
else
()
| Extension {extension, heading} =>
NONE => ()
| SOME extension' =>
if extension' = extension then
- entries := readFile true ("\n" :: line :: ":\n" :: heading base :: line :: !entries)
+ entries := readFile true ("\n" :: line :: "\n" :: heading base :: line :: !entries)
else
()
end
end
val () = registerDescriber (considerAll [Filename {filename = "soa",
- heading = "DNS SOA",
+ heading = "DNS SOA:",
showEmpty = false}])
val () = Env.registerAction ("domainHost",
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Extension {extension = "vhost",
- heading = fn host => "Web vhost " ^ host},
+ heading = fn host => "Web vhost " ^ host ^ ":"},
Domain.Extension {extension = "vhost_ssl",
- heading = fn host => "SSL web vhost " ^ host}])
+ heading = fn host => "SSL web vhost " ^ host ^ ":"}])
end
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "named.conf",
- heading = "named.conf addition",
+ heading = "named.conf addition:",
showEmpty = false},
Domain.Filename {filename = "dns",
- heading = "DNS zonefile contents",
+ heading = "DNS zonefile contents:",
showEmpty = false}])
end
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "aliases",
- heading = "E-mail aliases",
+ heading = "E-mail aliases:",
showEmpty = false},
Domain.Filename {filename = "aliases.default",
- heading = "Default e-mail alias",
+ heading = "Default e-mail alias:",
showEmpty = false},
Domain.Filename {filename = "mail",
- heading = "E-mail handling",
- showEmpty = false},
+ heading = "E-mail handling is on.",
+ showEmpty = true},
Domain.Filename {filename = "mail.relay",
- heading = "E-mail relaying",
- showEmpty = false}])
+ heading = "E-mail relaying is on.",
+ showEmpty = true}])
end
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Filename {filename = "mailman",
- heading = "Mailman web host mapping",
+ heading = "Mailman web host mapping:",
showEmpty = false}])
end
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Extension {extension = "wbl",
- heading = fn host => "Webalizer config for " ^ host}])
+ heading = fn host => "Webalizer config for " ^ host ^ ":"}])
end