From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 9 Dec 2006 19:29:17 +0000 (+0000)
Subject: Proper username determination in requests
X-Git-Tag: release_2010-11-19~339
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/a56cc2c38a02c9476672666e4879af7e38e60335?hp=51be7da6b88fb5c93db9b03dc7f5abc710590be2

Proper username determination in requests
---

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