diff options
Diffstat (limited to 'test/http_SUITE_data/http_req_attr.erl')
-rw-r--r-- | test/http_SUITE_data/http_req_attr.erl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/test/http_SUITE_data/http_req_attr.erl b/test/http_SUITE_data/http_req_attr.erl index 2a4a55d..9c5acba 100644 --- a/test/http_SUITE_data/http_req_attr.erl +++ b/test/http_SUITE_data/http_req_attr.erl @@ -1,18 +1,19 @@ %% Feel free to use, reuse and abuse the code in this file. +%% @todo That module was clearly meant to do more than one +%% thing and yet doesn't. -module(http_req_attr). --behaviour(cowboy_http_handler). --export([init/3, handle/2, terminate/3]). -init({_, http}, Req, _) -> - #{attr := Attr} = cowboy_req:match_qs(Req, [attr]), - {ok, Req, Attr}. +-export([init/2]). +-export([handle/2]). + +init(Req, Opts) -> + {http, Req, Opts}. -handle(Req, <<"host_and_port">> = Attr) -> +handle(Req, State) -> + #{attr := Attr} = cowboy_req:match_qs(Req, [attr]), + <<"host_and_port">> = Attr, Host = cowboy_req:host(Req), Port = cowboy_req:port(Req), Value = [Host, "\n", integer_to_list(Port)], - {ok, cowboy_req:reply(200, [], Value, Req), Attr}. - -terminate(_, _, _) -> - ok. + {ok, cowboy_req:reply(200, [], Value, Req), State}. |