25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-24 17:29:28 +01:00

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

SVN Revision: 829
This commit is contained in:
Mickaël Rémond 2007-07-26 09:49:23 +00:00
parent b1a3c639cb
commit 75448d953d

View File

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