umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-15 04:30:25 +00:00
Code Issues Wiki Activity

Conver the error hook example to a release

Browse source
This commit is contained in:
Loïc Hoguin 2013-09-08 11:30:47 +02:00
parent 57e6d1f416
commit 6b7b0efd24
8 changed files with 71 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

15
examples/error_hook/src/error_hook.erl
View file

@ -1,15 +0,0 @@
%% Feel free to use, reuse and abuse the code in this file.
-module(error_hook).
%% API.
-export([start/0]).
%% API.
start() ->
ok = application:start(crypto),
ok = application:start(cowlib),
ok = application:start(ranch),
ok = application:start(cowboy),
ok = application:start(error_hook).

19
examples/error_hook/src/error_hook_app.erl
View file

@ -16,9 +16,26 @@ start(_Type, _Args) ->
]),
{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [
{env, [{dispatch, Dispatch}]},
{onresponse, fun error_hook_responder:respond/4}
{onresponse, fun error_hook/4}
]),
error_hook_sup:start_link().
stop(_State) ->
ok.
error_hook(404, Headers, <<>>, Req) ->
{Path, Req2} = cowboy_req:path(Req),
Body = ["404 Not Found: \"", Path,
"\" is not the path you are looking for.\n"],
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
{<<"content-length">>, integer_to_list(iolist_size(Body))}),
{ok, Req3} = cowboy_req:reply(404, Headers2, Body, Req2),
Req3;
error_hook(Code, Headers, <<>>, Req) when is_integer(Code), Code >= 400 ->
Body = ["HTTP Error ", integer_to_list(Code), $\n],
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
{<<"content-length">>, integer_to_list(iolist_size(Body))}),
{ok, Req2} = cowboy_req:reply(Code, Headers2, Body, Req),
Req2;
error_hook(_Code, _Headers, _Body, Req) ->
Req.

21
examples/error_hook/src/error_hook_responder.erl
View file

@ -1,21 +0,0 @@
%% Feel free to use, reuse and abuse the code in this file.
-module(error_hook_responder).
-export([respond/4]).
respond(404, Headers, <<>>, Req) ->
{Path, Req2} = cowboy_req:path(Req),
Body = <<"404 Not Found: \"", Path/binary, "\" is not the path you are looking for.\n">>,
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
{<<"content-length">>, integer_to_list(byte_size(Body))}),
{ok, Req3} = cowboy_req:reply(404, Headers2, Body, Req2),
Req3;
respond(Code, Headers, <<>>, Req) when is_integer(Code), Code >= 400 ->
Body = ["HTTP Error ", integer_to_list(Code), $\n],
Headers2 = lists:keyreplace(<<"content-length">>, 1, Headers,
{<<"content-length">>, integer_to_list(iolist_size(Body))}),
{ok, Req2} = cowboy_req:reply(Code, Headers2, Body, Req),
Req2;
respond(_Code, _Headers, _Body, Req) ->
Req.