in
TextIO.output (fd, "LogFile\t");
TextIO.output (fd, Config.homeBase);
+ TextIO.output (fd, "/");
+ TextIO.output (fd, user);
TextIO.output (fd, "/apache/log/");
TextIO.output (fd, node);
TextIO.output (fd, "/");
^ " -f "
^ Config.Webalizer.configDir
^ "/"
+ ^ Slave.hostname ()
+ ^ "/"
^ base
^ ".conf"));
ignore (OS.Process.system (Config.rm
^ " -rf "
^ Config.Webalizer.outputDir
^ "/"
+ ^ Slave.hostname ()
+ ^ "/"
^ base)))
| _ =>
(ignore (OS.Process.system (Config.cp
^ " "
^ Config.Webalizer.configDir
^ "/"
+ ^ Slave.hostname ()
+ ^ "/"
^ base
^ ".conf"));
let
- val dir = Config.Webalizer.outputDir ^ "/" ^ base
+ val dir = Config.Webalizer.outputDir ^ "/" ^ Slave.hostname () ^ "/" ^ base
in
if Posix.FileSys.access (dir, []) then
()