24 lines
746 B
Erlang
24 lines
746 B
Erlang
|
-module(test_h).
|
||
|
|
-behaviour(cowboy_handler).
|
||
|
|
|
||
|
|
-export([init/2]).
|
||
|
|
|
||
|
|
init(_, failure) ->
|
||
|
|
error(failure);
|
||
|
|
init(Req, success = Opts) ->
|
||
|
|
{ok, cowboy_req:reply(200, #{}, <<"Hello world!">>, Req), Opts};
|
||
|
|
init(Req, slow = Opts) ->
|
||
|
|
timer:sleep(200),
|
||
|
|
{ok, cowboy_req:reply(200, #{}, <<"I'm slow">>, Req), Opts};
|
||
|
|
init(Req0, chunked = Opts) ->
|
||
|
|
Req = cowboy_req:stream_reply(200, Req0),
|
||
|
|
cowboy_req:stream_body("Hello\r\n", nofin, Req),
|
||
|
|
cowboy_req:stream_body("World\r\n", fin, Req),
|
||
|
|
{ok, Req, Opts};
|
||
|
|
init(Req0, chunked_slow = Opts) ->
|
||
|
|
Req = cowboy_req:stream_reply(200, Req0),
|
||
|
|
cowboy_req:stream_body("Hello\r\n", nofin, Req),
|
||
|
|
timer:sleep(200),
|
||
|
|
cowboy_req:stream_body("World\r\n", fin, Req),
|
||
|
|
{ok, Req, Opts}.
|