From 2d09cf8a39fd63f588133b6c5f458344a876cc87 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Thu, 14 Jul 2005 23:48:57 +0000
Subject: * src/acl.erl: Slightly changed "access" option processing

SVN Revision: 377
---
 src/acl.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/acl.erl b/src/acl.erl
index c7ffb874c..61c997f88 100644
--- a/src/acl.erl
+++ b/src/acl.erl
@@ -102,7 +102,15 @@ match_rule(Host, Rule, JID) ->
 			undefined ->
 			    match_acls(GACLs, JID, Host);
 			ACLs ->
-			    match_acls(GACLs ++ ACLs, JID, Host)
+			    case lists:reverse(GACLs) of
+				[{allow, all} | Rest] ->
+				    match_acls(
+				      lists:reverse(Rest) ++ ACLs ++
+				      [{allow, all}],
+				      JID, Host);
+				_ ->
+				    match_acls(GACLs ++ ACLs, JID, Host)
+			    end
 		    end
 	    end
     end.
-- 
cgit v1.2.3