From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 10 Dec 2006 23:35:17 +0000 (+0000)
Subject: Change Webalizer config to live in AFS
X-Git-Tag: release_2010-11-19~322
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/6bacfc5de947d3dbb8c2543d52bef5854148841c

Change Webalizer config to live in AFS
---

diff --git a/configDefault/webalizer.cfg b/configDefault/webalizer.cfg
index cf087ea..4f1c83a 100644
--- a/configDefault/webalizer.cfg
+++ b/configDefault/webalizer.cfg
@@ -1,6 +1,6 @@
 structure Webalizer :> WEBALIZER_CONFIG = struct
 
-val configDir = "/etc/webalizer"
-val outputDir = "/afs/hcoop.net/common/etc/domtool/webalizer"
+val configDir = "/afs/hcoop.net/common/etc/domtool/webalizer/config"
+val outputDir = "/afs/hcoop.net/common/etc/domtool/webalizer/output"
 
 end
diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index 313a582..61d2b08 100644
--- a/src/plugins/webalizer.sml
+++ b/src/plugins/webalizer.sml
@@ -102,12 +102,7 @@ val () = Slave.registerFileHandler (fn fs =>
 							 if Posix.FileSys.access (dir, []) then
 							     ()
 							 else
-							     Posix.FileSys.mkdir (dir, Posix.FileSys.S.flags
-											   [Posix.FileSys.S.iroth,
-											    Posix.FileSys.S.ixoth,
-											    Posix.FileSys.S.irwxu,
-											    Posix.FileSys.S.irgrp,
-											    Posix.FileSys.S.iwgrp])
+							     OS.FileSys.mkDir dir
 						     end))
 					     | _ => ()
 				       end)