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, "/");
file = base}
in
case #action fs of
- Slave.Delete =>
+ Slave.Delete _ =>
(ignore (OS.Process.system (Config.rm
^ " -f "
^ Config.Webalizer.configDir
end)
val () = Domain.registerResetLocal (fn () =>
- app (fn (node, _) =>
+ app (fn (node, _, _) =>
ignore (OS.Process.system (Config.rm ^ " -rf "
^ Config.Webalizer.configDir ^ "/"
^ node ^ "/*"))) Config.nodeIps)
val () = Domain.registerDescriber (Domain.considerAll
[Domain.Extension {extension = "wbl",
- heading = fn host => "Webalizer config for " ^ host}])
+ heading = fn host => "Webalizer config for " ^ host ^ ":"}])
end