Add fritz as a dns node and enable as a slave

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

diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index 034e043..50ca6a9 100644 (file)
--- a/src/plugins/webalizer.sml
+++ b/src/plugins/webalizer.sml
@@ -32,7 +32,7 @@ val () = Apache.registerPre
                                                                   name = id ^ ".wbl"}
                                   in
                                       TextIO.output (fd, "LogFile\t");
-                                      TextIO.output (fd, Apache.logDir {user = user, node = node, vhostId = hostname});
+                                      TextIO.output (fd, Apache.realLogDir {user = user, node = node, vhostId = hostname});
                                       TextIO.output (fd, "/access.log\nOutputDir\t");
                                       TextIO.output (fd, Config.Webalizer.outputDir);
                                       TextIO.output (fd, "/");
@@ -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