From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Fri, 7 Dec 2012 16:42:32 +0000 (-0500)
Subject: Read ACL in slave service loop
X-Git-Tag: release_20121207~4
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/e251d3cbbd3950c5487b2e66c3b27f04c820e521

Read ACL in slave service loop
At least the firewall needs to query permissions. Acl.read has the
handy attribute of clearing the current ACL. I think the main service
function sould also be re-reading the permissions on each loop, or
perhaps not because it may call setupUser instead? Investigate.
---

diff --git a/src/main.sml b/src/main.sml
index f2beee8..28834af 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -1626,7 +1626,8 @@ fun slave () =
 	val _ = print ("Slave server starting at " ^ now () ^ "\n")
 
 	fun loop () =
-	    (case OpenSSL.accept sock of
+	    (Acl.read Config.aclFile;
+	     case OpenSSL.accept sock of
 		 NONE => ()
 	       | SOME bio =>
 		 let