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
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)