From a56cc2c38a02c9476672666e4879af7e38e60335 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 9 Dec 2006 19:29:17 +0000 Subject: [PATCH 1/1] Proper username determination in requests --- src/main.sml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/main.sml b/src/main.sml index afd0ce9..59607bb 100644 --- a/src/main.sml +++ b/src/main.sml @@ -63,12 +63,6 @@ fun basis () = fun check fname = let - (*val uid = Posix.ProcEnv.getuid () - val user = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid) - - val () = Acl.read Config.aclFile - val () = Domain.setUser user*) - val _ = ErrorMsg.reset () val _ = Env.preTycheck () @@ -139,6 +133,12 @@ fun hostname () = fun request fname = let + val uid = Posix.ProcEnv.getuid () + val user = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid) + + val () = Acl.read Config.aclFile + val () = Domain.setUser user + val _ = check fname val uid = Posix.ProcEnv.getuid () -- 2.20.1