From e107e78773e80e60787b5a29d6ebc6531abb618f Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 2 Jan 2014 16:10:19 +0100
Subject: Fix auth verification in ejabberd_xmlrpc (thanks to Vicis)

---
 src/ejabberd_xmlrpc.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index 40223f77e..acda0c7f9 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -345,8 +345,10 @@ build_fault_response(Code, ParseString, ParseArgs) ->
 do_command(AccessCommands, Auth, Command, AttrL, ArgsF,
 	   ResultF) ->
     ArgsFormatted = format_args(AttrL, ArgsF),
+    {UserT, ServerT, PasswordT} = Auth,
+    AuthBin = {list_to_binary(UserT), list_to_binary(ServerT), list_to_binary(PasswordT)},
     Result =
-	ejabberd_commands:execute_command(AccessCommands, Auth,
+	ejabberd_commands:execute_command(AccessCommands, AuthBin,
 					  Command, ArgsFormatted),
     ResultFormatted = format_result(Result, ResultF),
     {command_result, ResultFormatted}.
-- 
cgit v1.2.3