Change Webalizer config to live in AFS

diff --git a/configDefault/webalizer.cfg b/configDefault/webalizer.cfg
index cf087ea..4f1c83a 100644 (file)
--- a/configDefault/webalizer.cfg
+++ b/configDefault/webalizer.cfg
@@ -1,6 +1,6 @@
 structure Webalizer :> WEBALIZER_CONFIG = struct
 
 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
 
 end

diff --git a/src/plugins/webalizer.sml b/src/plugins/webalizer.sml
index 313a582..61d2b08 100644 (file)
--- 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
                                                         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)
                                                     end))
                                             | _ => ()
                                       end)