umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 12:20:24 +00:00
Code Issues Wiki Activity

Do not send chunked Transfer-Encoding replies for HTTP/1.0

Browse source 
Fixes compatibility issue #140 reported by @majek.
This commit is contained in:
Loïc Hoguin 2012-03-13 03:00:05 +01:00
parent e87f51e542
commit 36a6823e50
3 changed files with 31 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/http_SUITE.erl
View file

@ -28,7 +28,7 @@
-export([http_200/1, http_404/1, handler_errors/1,
file_200/1, file_403/1, dir_403/1, file_404/1,
file_400/1]). %% http and https.
-export([http_10_hostless/1]). %% misc.
-export([http_10_hostless/1, http_10_chunkless/1]). %% misc.
-export([rest_simple/1, rest_keepalive/1, rest_keepalive_post/1,
rest_nodelete/1, rest_resource_etags/1]). %% rest.
@ -47,7 +47,7 @@ groups() ->
static_mimetypes_function, static_attribute_etag,
static_function_etag, multipart] ++ BaseTests},
{https, [], BaseTests},
{misc, [], [http_10_hostless]},
{misc, [], [http_10_hostless, http_10_chunkless]},
{rest, [], [rest_simple, rest_keepalive, rest_keepalive_post,
rest_nodelete, rest_resource_etags]}].
@ -89,6 +89,7 @@ init_per_group(misc, Config) ->
{ok,_} = cowboy:start_listener(misc, 100,
cowboy_tcp_transport, [{port, Port}],
cowboy_http_protocol, [{dispatch, [{'_', [
{[<<"chunked_response">>], chunked_handler, []},
{[], http_handler, []}
]}]}]),
[{port, Port}|Config];
@ -562,12 +563,24 @@ file_400(Config) ->
httpc:request(build_url("/static/%2e", Config)),
{ok, {{"HTTP/1.1", 400, "Bad Request"}, _Headers2, _Body2}} =
httpc:request(build_url("/static/%2e%2e", Config)).
%% misc.
http_10_hostless(Config) ->
Packet = "GET / HTTP/1.0\r\n\r\n",
{Packet, 200} = raw_req(Packet, Config).
http_10_chunkless(Config) ->
{port, Port} = lists:keyfind(port, 1, Config),
{ok, Socket} = gen_tcp:connect("localhost", Port,
[binary, {active, false}, {packet, raw}]),
Packet = "GET /chunked_response HTTP/1.0\r\nContent-Length: 0\r\n\r\n",
ok = gen_tcp:send(Socket, Packet),
{ok, Data} = gen_tcp:recv(Socket, 0, 6000),
nomatch = binary:match(Data, <<"Transfer-Encoding">>),
{_, _} = binary:match(Data, <<"chunked_handler\r\nworks fine!">>),
ok = gen_tcp:close(Socket).
%% rest.
rest_simple(Config) ->