From: Badlop <badlop@process-one.net>
Date: Wed, 8 Jun 2016 19:16:30 +0000 (+0200)
Subject: push_roster must convert read strings to binaries (#1075)
X-Git-Tag: 16.06~39
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=4ccc40b;p=ejabberd

push_roster must convert read strings to binaries (#1075)
---

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index 5aebd3ff2..562087d96 100644
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -1166,7 +1166,8 @@ subscribe_roster({Name, Server, Group, Nick}, [{Name, Server, _, _} | Roster]) -
     subscribe_roster({Name, Server, Group, Nick}, Roster);
 %% Subscribe Name2 to Name1
 subscribe_roster({Name1, Server1, Group1, Nick1}, [{Name2, Server2, Group2, Nick2} | Roster]) ->
-    subscribe(Name1, Server1, Name2, Server2, Nick2, Group2, <<"both">>, []),
+    subscribe(Name1, Server1, list_to_binary(Name2), list_to_binary(Server2),
+	list_to_binary(Nick2), list_to_binary(Group2), <<"both">>, []),
     subscribe_roster({Name1, Server1, Group1, Nick1}, Roster).
 
 push_alltoall(S, G) ->