fun describeOne arg = String.concat (map (fn f => f arg) (rev (!describers)))
-val line = "-------------------------------\n"
-val dline = "===============================\n"
+val line = "--------------------------------------------------------------\n"
+val dline = "==============================================================\n"
fun describe dom =
String.concat (List.mapPartial
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
else
())
+val () = Domain.registerDescriber (Domain.considerAll
+ [Domain.Filename {filename = "mailman",
+ heading = "Mailman web host mapping",
+ showEmpty = false}])
+
end
^ Config.Webalizer.configDir ^ "/"
^ node ^ "/*"))) Config.nodeIps)
+val () = Domain.registerDescriber (Domain.considerAll
+ [Domain.Extension {extension = "wbl",
+ heading = fn host => "Webalizer config for " ^ host}])
+
end