Update to version 1.13. Make it support large requests/replies, and

deliver the proper Content-type required by some clients (like the
ruby xmlrpc implementation).

1 files changed, 20 insertions, 0 deletions

diff --git a/net/erlang_xmlrpc/files/patch-src_xmlrpc.erl b/net/erlang_xmlrpc/files/patch-src_xmlrpc.erl
new file mode 100644
index 000000000000..5cfb3e1878d8
--- /dev/null
+++ b/net/erlang_xmlrpc/files/patch-src_xmlrpc.erl
@@ -0,0 +1,20 @@
+
+$FreeBSD$
+
+--- src/xmlrpc.erl.orig	Fri May 23 10:47:55 2003
++++ src/xmlrpc.erl	Fri May 23 10:47:57 2003
+@@ -164,7 +164,14 @@
+ 
+ get_payload(Socket, Timeout, ContentLength) ->
+     inet:setopts(Socket, [{packet, raw}]),
+-    gen_tcp:recv(Socket, ContentLength, Timeout).
++    get_payload(Socket, Timeout, ContentLength, []).
++
++get_payload(Socket, Timeout, 0, Payload) ->
++    {ok, lists:concat(lists:reverse(Payload))};
++
++get_payload(Socket, Timeout, ContentLength, Payload) ->
++    {ok, Bin} = gen_tcp:recv(Socket, 0, Timeout),
++    get_payload(Socket, Timeout, ContentLength - length(Bin), [Bin|Payload]).
+ 
+ %% Exported: start_link/{1,5,6}