summaryrefslogtreecommitdiff
path: root/net/erlang-xmlrpc/files
diff options
context:
space:
mode:
Diffstat (limited to 'net/erlang-xmlrpc/files')
-rw-r--r--net/erlang-xmlrpc/files/patch-src_xmlrpc.erl18
-rw-r--r--net/erlang-xmlrpc/files/patch-src_xmlrpc__decode.erl11
-rw-r--r--net/erlang-xmlrpc/files/patch-src_xmlrpc__http.erl26
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",