mirror of
https://github.com/ninenines/cowboy.git
synced 2025-07-14 12:20:24 +00:00
ae0dd61673
This is a large commit. The cowboy_req interface has largely changed, and will change a little more. It's possible that some examples or tests have not been converted to the new interface yet. The documentation has not yet been updated. All of this will be fixed in smaller subsequent commits. Gotta start somewhere...
32 lines
941 B
Erlang
32 lines
941 B
Erlang
%% Feel free to use, reuse and abuse the code in this file.
|
|
|
|
-module(http_body_qs).
|
|
|
|
-export([init/2]).
|
|
|
|
init(Req, Opts) ->
|
|
Method = cowboy_req:method(Req),
|
|
HasBody = cowboy_req:has_body(Req),
|
|
{ok, maybe_echo(Method, HasBody, Req), Opts}.
|
|
|
|
maybe_echo(<<"POST">>, true, Req) ->
|
|
case cowboy_req:read_urlencoded_body(Req) of
|
|
{badlength, Req2} ->
|
|
echo(badlength, Req2);
|
|
{ok, PostVals, Req2} ->
|
|
echo(proplists:get_value(<<"echo">>, PostVals), Req2)
|
|
end;
|
|
maybe_echo(<<"POST">>, false, Req) ->
|
|
cowboy_req:reply(400, #{}, <<"Missing body.">>, Req);
|
|
maybe_echo(_, _, Req) ->
|
|
%% Method not allowed.
|
|
cowboy_req:reply(405, Req).
|
|
|
|
echo(badlength, Req) ->
|
|
cowboy_req:reply(413, #{}, <<"POST body bigger than 16000 bytes">>, Req);
|
|
echo(undefined, Req) ->
|
|
cowboy_req:reply(400, #{}, <<"Missing echo parameter.">>, Req);
|
|
echo(Echo, Req) ->
|
|
cowboy_req:reply(200, #{
|
|
<<"content-type">> => <<"text/plain; charset=utf-8">>
|
|
}, Echo, Req).
|