Put 'RewriteEngine on' in the right places; print domain name upon encountering a...

[hcoop/domtool2.git] / src / plugins / webalizer.sml

diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index 034e043..c73ed98 100644 (file)
--- a/src/plugins/webalizer.sml
+++ b/src/plugins/webalizer.sml
@@ -77,7 +77,7 @@ val () = Slave.registerFileHandler (fn fs =>
                                                                           file = base}
                                               in
                                                   case #action fs of
-                                                      Slave.Delete =>
+                                                      Slave.Delete _ =>
                                                       (ignore (OS.Process.system (Config.rm
                                                                                   ^ " -f "
                                                                                   ^ Config.Webalizer.configDir
@@ -124,6 +124,6 @@ val () = Domain.registerResetLocal (fn () =>
 
 val () = Domain.registerDescriber (Domain.considerAll
                                   [Domain.Extension {extension = "wbl",
-                                                     heading = fn host => "Webalizer config for " ^ host}])
+                                                     heading = fn host => "Webalizer config for " ^ host ^ ":"}])
 
 end