From e251d3cbbd3950c5487b2e66c3b27f04c820e521 Mon Sep 17 00:00:00 2001
From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Fri, 7 Dec 2012 11:42:32 -0500
Subject: [PATCH] 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.

---
 src/main.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
2.20.1