From 75448d953dbbe058f2dcdc22283274909e10959f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?= Date: Thu, 26 Jul 2007 09:49:23 +0000 Subject: * src/mod_configure.erl: One ACL call was not virtual host compliant. SVN Revision: 829 --- src/mod_configure.erl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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, []}; _ -> -- cgit v1.2.3