25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-11-22 16:20:52 +01:00

Fix 'request_handlers' transformation

Fixes #2925
This commit is contained in:
Evgeny Khramtsov 2019-07-03 09:54:56 +03:00
parent 9f9e308241
commit 0fc190e2ef

View File

@ -267,22 +267,26 @@ replace_request_handlers(Opts) ->
(PathMod) -> (PathMod) ->
PathMod PathMod
end, Handlers1), end, Handlers1),
lists:filtermap( Opts1 = lists:filtermap(
fun({captcha, _}) -> false; fun({captcha, _}) -> false;
({register, _}) -> false; ({register, _}) -> false;
({web_admin, _}) -> false; ({web_admin, _}) -> false;
({http_bind, _}) -> false; ({http_bind, _}) -> false;
({xmlrpc, _}) -> false; ({xmlrpc, _}) -> false;
({http_poll, _}) -> ({http_poll, _}) ->
?WARNING_MSG("Listening option 'http_poll' is " ?WARNING_MSG("Listening option 'http_poll' is "
"ignored: HTTP Polling support was " "ignored: HTTP Polling support was "
"removed in ejabberd 15.04. ~s", "removed in ejabberd 15.04. ~s",
[adjust_hint()]), [adjust_hint()]),
false; false;
({request_handlers, _}) -> ({request_handlers, _}) ->
{true, {request_handlers, Handlers2}}; false;
(_) -> true (_) -> true
end, Opts). end, Opts),
case Handlers2 of
[] -> Opts1;
_ -> [{request_handlers, Handlers2}|Opts1]
end.
remove_xmlrpc_access_commands(Opts) -> remove_xmlrpc_access_commands(Opts) ->
lists:filter( lists:filter(