From 5e70d4e2dbbaefcac582ca363f5ea39d91b84b65 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 12 Dec 2006 03:06:50 +0000 Subject: [PATCH] Fix Webalizer path generation --- src/plugins/webalizer.sml | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml index 2237fe5..c6043af 100644 --- a/src/plugins/webalizer.sml +++ b/src/plugins/webalizer.sml @@ -33,6 +33,8 @@ val () = Apache.registerPre 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, "/"); @@ -81,12 +83,16 @@ val () = Slave.registerFileHandler (fn fs => ^ " -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 @@ -95,10 +101,12 @@ val () = Slave.registerFileHandler (fn fs => ^ " " ^ 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 () -- 2.20.1