diff options
| author | Mickaël Rémond <mickael.remond@process-one.net> | 2007-07-26 09:49:23 +0000 |
|---|---|---|
| committer | Mickaël Rémond <mickael.remond@process-one.net> | 2007-07-26 09:49:23 +0000 |
| commit | 75448d953dbbe058f2dcdc22283274909e10959f (patch) | |
| tree | 3961217fe84b90d0e0e41fbc6b5ba561246a46f9 /src/mod_configure.erl | |
| parent | * src/ejabberd_auth_odbc.erl: Fixed wrong call preventing user removal with r... (diff) | |
* src/mod_configure.erl: One ACL call was not virtual host compliant.
SVN Revision: 829
Diffstat (limited to '')
| -rw-r--r-- | src/mod_configure.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mod_configure.erl b/src/mod_configure.erl index b0b0c360..e93b658e 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, []}; _ -> |