cowboy/examples/echo_post/src/toppage_h.erl

%% Feel free to use, reuse and abuse the code in this file.

%% @doc POST echo handler.
-module(toppage_h).

-export([init/2]).

init(Req0, Opts) ->
	Method = cowboy_req:method(Req0),
	HasBody = cowboy_req:has_body(Req0),
	Req = maybe_echo(Method, HasBody, Req0),
	{ok, Req, Opts}.

maybe_echo(<<"POST">>, true, Req0) ->
	{ok, PostVals, Req} = cowboy_req:read_urlencoded_body(Req0),
	Echo = proplists:get_value(<<"echo">>, PostVals),
	echo(Echo, Req);
maybe_echo(<<"POST">>, false, Req) ->
	cowboy_req:reply(400, [], <<"Missing body.">>, Req);
maybe_echo(_, _, Req) ->
	%% Method not allowed.
	cowboy_req:reply(405, 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).
Add a POST echo example 2012-07-21 22:19:13 +02:00			`%% Feel free to use, reuse and abuse the code in this file.`

			`%% @doc POST echo handler.`
Rename handler modules to _h 2018-09-07 13:48:43 -04:00			`-module(toppage_h).`
Add a POST echo example 2012-07-21 22:19:13 +02:00
Unify the init and terminate callbacks This set of changes is the first step to simplify the writing of handlers, by removing some extraneous callbacks and making others optional. init/3 is now init/2, its first argument being removed. rest_init/2 and rest_terminate/2 have been removed. websocket_init/3 and websocket_terminate/3 have been removed. terminate/3 is now optional. It is called regardless of the type of handler, including rest and websocket. The return value of init/2 changed. It now returns {Mod, Req, Opts} with Mod being either one of the four handler type or a custom module. It can also return extra timeout and hibernate options. The signature for sub protocols has changed, they now receive these extra timeout and hibernate options. Loop handlers are now implemented in cowboy_long_polling, and will be renamed throughout the project in a future commit. 2014-09-26 15:58:44 +03:00			`-export([init/2]).`
Add a POST echo example 2012-07-21 22:19:13 +02:00
Make reply functions return Req 2016-08-10 17:15:02 +02:00			`init(Req0, Opts) ->`
			`Method = cowboy_req:method(Req0),`
			`HasBody = cowboy_req:has_body(Req0),`
			`Req = maybe_echo(Method, HasBody, Req0),`
			`{ok, Req, Opts}.`
Add a POST echo example 2012-07-21 22:19:13 +02:00
Make reply functions return Req 2016-08-10 17:15:02 +02:00			`maybe_echo(<<"POST">>, true, Req0) ->`
			`{ok, PostVals, Req} = cowboy_req:read_urlencoded_body(Req0),`
Add a POST echo example 2012-07-21 22:19:13 +02:00			`Echo = proplists:get_value(<<"echo">>, PostVals),`
Make reply functions return Req 2016-08-10 17:15:02 +02:00			`echo(Echo, Req);`
Don't use decode_packet/3 for parsing the request-line First step in making all methods and header names binaries to get rid of many inconsistencies caused by decode_packet/3. Methods are all binary now. Note that since they are case sensitive, the usual methods become <<"GET">>, <<"POST">> and so on. 2012-09-20 06:22:51 +02:00			`maybe_echo(<<"POST">>, false, Req) ->`
Make reply functions return Req 2016-08-10 17:15:02 +02:00			`cowboy_req:reply(400, [], <<"Missing body.">>, Req);`
Add a POST echo example 2012-07-21 22:19:13 +02:00			`maybe_echo(_, _, Req) ->`
			`%% Method not allowed.`
Make reply functions return Req 2016-08-10 17:15:02 +02:00			`cowboy_req:reply(405, Req).`
Add a POST echo example 2012-07-21 22:19:13 +02:00
			`echo(undefined, Req) ->`
Rename cowboy_http_req to cowboy_req 2012-08-27 13:28:57 +02:00			`cowboy_req:reply(400, [], <<"Missing echo parameter.">>, Req);`
Add a POST echo example 2012-07-21 22:19:13 +02:00			`echo(Echo, Req) ->`
Fix echo_post example 2016-06-08 23:35:02 +02:00			`cowboy_req:reply(200, #{`
			`<<"content-type">> => <<"text/plain; charset=utf-8">>`
			`}, Echo, Req).`