Proper username determination in requests

diff --git a/src/main.sml b/src/main.sml
index afd0ce9..59607bb 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -63,12 +63,6 @@ fun basis () =
 
 fun check fname =
     let
 
 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 ()
 
        val _ = ErrorMsg.reset ()
        val _ = Env.preTycheck ()
 


@@ -139,6 +133,12 @@ fun hostname () =
 
 fun request fname =
     let
 
 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 ()
        val _ = check fname
 
        val uid = Posix.ProcEnv.getuid ()