aboutsummaryrefslogtreecommitdiffstats
path: root/src/cowboy_http_req.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2011-05-08 17:26:21 +0200
committerLoïc Hoguin <[email protected]>2011-05-08 17:26:21 +0200
commit420f5baf98cb1b19209977e5552107ab3222767f (patch)
tree1e2d55bda35efd7e4cb68a3da525afe46ffe4c2b /src/cowboy_http_req.erl
parent18582a7a39e3c45231c7d9a09f5fc7e84299ee3e (diff)
downloadcowboy-420f5baf98cb1b19209977e5552107ab3222767f.tar.gz
cowboy-420f5baf98cb1b19209977e5552107ab3222767f.tar.bz2
cowboy-420f5baf98cb1b19209977e5552107ab3222767f.zip
Add chunked reply support.
Send the status line and headers using cowboy_http_req:chunked_reply/3, and individual chunks with cowboy_http_req:chunk/2.
Diffstat (limited to 'src/cowboy_http_req.erl')
-rw-r--r--src/cowboy_http_req.erl18
1 files changed, 17 insertions, 1 deletions
diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl
index c430020..60f0b55 100644
--- a/src/cowboy_http_req.erl
+++ b/src/cowboy_http_req.erl
@@ -30,7 +30,7 @@
]). %% Request Body API.
-export([
- reply/4
+ reply/4, chunked_reply/3, chunk/2
]). %% Response API.
-include("include/http.hrl").
@@ -192,6 +192,22 @@ reply(Code, Headers, Body, Req=#http_req{socket=Socket,
Transport:send(Socket, [Head, Body]),
{ok, Req#http_req{resp_state=done}}.
+-spec chunked_reply(Code::http_status(), Headers::http_headers(),
+ Req::#http_req{}) -> {ok, Req::#http_req{}}.
+chunked_reply(Code, Headers, Req=#http_req{socket=Socket, transport=Transport,
+ resp_state=waiting}) ->
+ Head = response_head(Code, Headers, [
+ {<<"Connection">>, <<"close">>},
+ {<<"Transfer-Encoding">>, <<"chunked">>}
+ ]),
+ Transport:send(Socket, Head),
+ {ok, Req#http_req{resp_state=chunks}}.
+
+-spec chunk(Data::iodata(), Req::#http_req{}) -> ok.
+chunk(Data, #http_req{socket=Socket, transport=Transport, resp_state=chunks}) ->
+ Transport:send(Socket, [integer_to_list(iolist_size(Data), 16),
+ <<"\r\n">>, Data, <<"\r\n">>]).
+
%% Internal.
-spec parse_qs(Qs::binary()) -> list({Name::binary(), Value::binary() | true}).