From: Mickaël Rémond <mickael.remond@process-one.net>
Date: Thu, 26 Jul 2007 09:49:23 +0000 (+0000)
Subject: * src/mod_configure.erl: One ACL call was not virtual host compliant.
X-Git-Tag: v2.0.0~325
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=75448d953dbbe058f2dcdc22283274909e10959f;p=ejabberd

* src/mod_configure.erl: One ACL call was not virtual host compliant.

SVN Revision: 829
---

diff --git a/src/mod_configure.erl b/src/mod_configure.erl
index b0b0c3600..e93b658ee 100644
--- a/src/mod_configure.erl
+++ b/src/mod_configure.erl
@@ -1210,7 +1210,7 @@ set_form(_Host, ["config", "hostname"], _Lang, XData) ->
 	    {error, ?ERR_BAD_REQUEST}
     end;
 
-set_form(_Host, ["config", "acls"], _Lang, XData) ->
+set_form(Host, ["config", "acls"], _Lang, XData) ->
     case lists:keysearch("acls", 1, XData) of
 	{value, {_, Strings}} ->
 	    String = lists:foldl(fun(S, Res) ->
@@ -1220,7 +1220,7 @@ set_form(_Host, ["config", "acls"], _Lang, XData) ->
 		{ok, Tokens, _} ->
 		    case erl_parse:parse_term(Tokens) of
 			{ok, ACLs} ->
-			    case acl:add_list(ACLs, true) of
+			    case acl:add_list(Host, ACLs, true) of
 				ok ->
 				    {result, []};
 				_ ->