From: Badlop <badlop@process-one.net>
Date: Wed, 19 Jun 2019 07:19:13 +0000 (+0200)
Subject: Fix support for nonexistent or empty access_commands in ejabberd_xmlrpc
X-Git-Tag: 19.08~191
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ad98d4a5150dd6c4701c6cdb08c934754f34e477;p=ejabberd

Fix support for nonexistent or empty access_commands in ejabberd_xmlrpc
---

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index 2c299d7f1..3552e766f 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -201,7 +201,7 @@ accept(Pid) ->
 %% HTTP interface
 %% -----------------------------
 process(_, #request{method = 'POST', data = Data, opts = Opts, ip = {IP, _}}) ->
-    AccessCommands = proplists:get_value(access_commands, Opts),
+    AccessCommands = proplists:get_value(access_commands, Opts, []),
     GetAuth = true,
     State = #state{access_commands = AccessCommands, get_auth = GetAuth, ip = IP},
     case fxml_stream:parse_element(Data) of