From 6bacfc5de947d3dbb8c2543d52bef5854148841c Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 10 Dec 2006 23:35:17 +0000 Subject: [PATCH] Change Webalizer config to live in AFS --- configDefault/webalizer.cfg | 4 ++-- src/plugins/webalizer.sml | 7 +------ 2 files changed, 3 insertions(+), 8 deletions(-) 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) -- 2.20.1