cp scripts/domtool-addacl /usr/local/bin/
cp scripts/domtool-rmuser /usr/local/bin/
cp scripts/domtool-admin-sudo /usr/local/bin/
- cp scripts/domtool-admin-sudo-noisy /usr/local/bin/
cp scripts/domtool-server-logged /usr/local/bin/
cp scripts/domtool-slave-logged /usr/local/bin/
cp scripts/domtool-server /etc/init.d/
val args = rev args
in
case args of
- [vhost] =>
+ [vhost, kind] =>
let
+ val () = case kind of
+ "access" => ()
+ | "error" => ()
+ | "rewrite" => ()
+ | _ => (print "Unsupported logfile kind. Use 'access', 'error', or 'rewrite'.\n";
+ OS.Process.exit OS.Process.failure)
+
val uid = Posix.ProcEnv.getuid ()
val uname = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid)
- val proc = Unix.execute ("/usr/local/bin/domtool-admin-sudo-noisy", ["perms", uname])
+ val proc = Unix.execute ("/usr/local/bin/domtool-admin", ["perms", uname])
val inf = Unix.textInstreamOf proc
fun allowed () =
^ "/apache/log/"
^ hostname ()
^ "/"
- ^ vhost]
+ ^ vhost
+ ^ "/"
+ ^ kind
+ ^ ".log"]
val tailArgs =
if f then