From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 17 Nov 2007 15:49:12 +0000 (+0000)
Subject: More describers
X-Git-Tag: release_2010-11-19~144
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/d300166d083192ef3d4242013adcef345b0126f3

More describers
---

diff --git a/src/domain.sml b/src/domain.sml
index 969d957..642f71c 100644
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -798,8 +798,8 @@ fun registerDescriber f = describers := f :: !describers
 
 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
diff --git a/src/plugins/apache.sml b/src/plugins/apache.sml
index 5e7e1f9..be0e4f2 100644
--- a/src/plugins/apache.sml
+++ b/src/plugins/apache.sml
@@ -892,8 +892,8 @@ val () = Domain.registerResetLocal (fn () =>
 
 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
diff --git a/src/plugins/mailman.sml b/src/plugins/mailman.sml
index 236909c..43c56c0 100644
--- a/src/plugins/mailman.sml
+++ b/src/plugins/mailman.sml
@@ -62,4 +62,9 @@ val () = Slave.registerPostHandler (fn () =>
 				       else
 					   ())
 
+val () = Domain.registerDescriber (Domain.considerAll
+				   [Domain.Filename {filename = "mailman",
+						     heading = "Mailman web host mapping",
+						     showEmpty = false}])
+
 end
diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index b344165..d708dba 100644
--- a/src/plugins/webalizer.sml
+++ b/src/plugins/webalizer.sml
@@ -116,4 +116,8 @@ val () = Domain.registerResetLocal (fn () =>
 									  ^ Config.Webalizer.configDir ^ "/"
 									  ^ node ^ "/*"))) Config.nodeIps)
 
+val () = Domain.registerDescriber (Domain.considerAll
+				   [Domain.Extension {extension = "wbl",
+						      heading = fn host => "Webalizer config for " ^ host}])
+
 end