diff options
| author | Loïc Hoguin <[email protected]> | 2011-10-20 14:11:17 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2011-10-20 14:11:17 +0200 |
| commit | 381c1780738cbb02f0065f92991bc43ccd53a0c5 (patch) | |
| tree | 275dd6e201fbd97725b4b74c156e69a0db52a939 /src/cowboy_http_req.erl | |
| parent | d4088e7a46ef696e91fdea5d15f2ae35282b1b99 (diff) | |
| download | cowboy-381c1780738cbb02f0065f92991bc43ccd53a0c5.tar.gz cowboy-381c1780738cbb02f0065f92991bc43ccd53a0c5.tar.bz2 cowboy-381c1780738cbb02f0065f92991bc43ccd53a0c5.zip | |
Add a cowboy_http_req:upgrade_reply/3 function and use it for websockets
This function doesn't try to add any additional header besides the
Connection: Upgrade header. It also doesn't accept a body.
It should be used for the intermediate reply to an upgrade process,
before the real reply is sent (if any, for example when using TLS).
Diffstat (limited to 'src/cowboy_http_req.erl')
| -rw-r--r-- | src/cowboy_http_req.erl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl index da7c16f..06f1e6b 100644 --- a/src/cowboy_http_req.erl +++ b/src/cowboy_http_req.erl @@ -38,7 +38,8 @@ -export([ reply/2, reply/3, reply/4, - chunked_reply/2, chunked_reply/3, chunk/2 + chunked_reply/2, chunked_reply/3, chunk/2, + upgrade_reply/3 ]). %% Response API. -export([ @@ -374,6 +375,17 @@ 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">>]). +%% @doc Send an upgrade reply. +-spec upgrade_reply(http_status(), http_headers(), #http_req{}) + -> {ok, #http_req{}}. +upgrade_reply(Status, Headers, Req=#http_req{socket=Socket, transport=Transport, + resp_state=waiting}) -> + Head = response_head(Status, Headers, [ + {<<"Connection">>, <<"Upgrade">>} + ]), + Transport:send(Socket, Head), + {ok, Req#http_req{resp_state=done}}. + %% Misc API. %% @doc Compact the request data by removing all non-system information. |