From ad98d4a5150dd6c4701c6cdb08c934754f34e477 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 19 Jun 2019 09:19:13 +0200
Subject: [PATCH] Fix support for nonexistent or empty access_commands in
 ejabberd_xmlrpc

---
 src/ejabberd_xmlrpc.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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