From dfa47556d1f592b592163d42d66c93c6f37fbb8f Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 20 Nov 2012 13:56:09 +0100
Subject: [PATCH] Add support for binary arguments and results to
 ejabberd_xmlrpc

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

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index 4e979c68d..3f4d2afc5 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -408,6 +408,8 @@ format_result(Int, {Name, integer}) ->
     {struct, [{Name, Int}]};
 format_result(String, {Name, string}) ->
     {struct, [{Name, lists:flatten(String)}]};
+format_result(Binary, {Name, binary}) ->
+    {struct, [{Name, binary_to_list(Binary)}]};
 format_result(Code, {Name, rescode}) ->
     {struct, [{Name, make_status(Code)}]};
 format_result({Code, Text}, {Name, restuple}) ->