diff options
Diffstat (limited to 'net/erlang-xmlrpc/files')
-rw-r--r-- | net/erlang-xmlrpc/files/patch-src_xmlrpc.erl | 18 | ||||
-rw-r--r-- | net/erlang-xmlrpc/files/patch-src_xmlrpc__decode.erl | 11 | ||||
-rw-r--r-- | net/erlang-xmlrpc/files/patch-src_xmlrpc__http.erl | 26 |
3 files changed, 0 insertions, 55 deletions
diff --git a/net/erlang-xmlrpc/files/patch-src_xmlrpc.erl b/net/erlang-xmlrpc/files/patch-src_xmlrpc.erl deleted file mode 100644 index 6e2ee005302e..000000000000 --- a/net/erlang-xmlrpc/files/patch-src_xmlrpc.erl +++ /dev/null @@ -1,18 +0,0 @@ ---- src/xmlrpc.erl.orig 2003-04-23 19:06:45 UTC -+++ src/xmlrpc.erl -@@ -164,7 +164,14 @@ handle_payload(Socket, KeepAlive, Timeou - - 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} - diff --git a/net/erlang-xmlrpc/files/patch-src_xmlrpc__decode.erl b/net/erlang-xmlrpc/files/patch-src_xmlrpc__decode.erl deleted file mode 100644 index 6186d57c8f27..000000000000 --- a/net/erlang-xmlrpc/files/patch-src_xmlrpc__decode.erl +++ /dev/null @@ -1,11 +0,0 @@ ---- src/xmlrpc_decode.erl.orig 2003-04-23 19:06:45 UTC -+++ src/xmlrpc_decode.erl -@@ -28,7 +28,7 @@ - -author('jocke@gleipnir.com'). - -export([payload/1]). - ---include("xmerl.hrl"). -+-include_lib("xmerl/include/xmerl.hrl"). - - payload(Payload) -> - case xmerl_scan:string(Payload) of diff --git a/net/erlang-xmlrpc/files/patch-src_xmlrpc__http.erl b/net/erlang-xmlrpc/files/patch-src_xmlrpc__http.erl deleted file mode 100644 index 417a03305e61..000000000000 --- a/net/erlang-xmlrpc/files/patch-src_xmlrpc__http.erl +++ /dev/null @@ -1,26 +0,0 @@ ---- src/xmlrpc_http.erl.orig 2003-04-23 19:06:45 UTC -+++ src/xmlrpc_http.erl -@@ -142,7 +142,14 @@ handle_payload(Socket, Timeout, Handler, - - 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]). - - eval_payload(Socket, Timeout, {M, F} = Handler, State, Connection, Payload) -> - case catch M:F(State, Payload) of -@@ -190,6 +197,7 @@ send(Socket, StatusCode, ExtraHeader, Pa - Response = - ["HTTP/1.1 ", integer_to_list(StatusCode), " ", - reason_phrase(StatusCode), "\r\n", -+ "Content-Type: text/xml\r\n", - "Content-Length: ", integer_to_list(lists:flatlength(Payload)), - "\r\n", - "Server: Erlang/1.13\r\n", |