diff options
Diffstat (limited to 'test/old_http_SUITE_data/http_req_attr.erl')
| -rw-r--r-- | test/old_http_SUITE_data/http_req_attr.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/old_http_SUITE_data/http_req_attr.erl b/test/old_http_SUITE_data/http_req_attr.erl new file mode 100644 index 0000000..c6a940e --- /dev/null +++ b/test/old_http_SUITE_data/http_req_attr.erl @@ -0,0 +1,15 @@ +%% 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). + +-export([init/2]). + +init(Req, Opts) -> + #{attr := Attr} = cowboy_req:match_qs([attr], Req), + <<"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), Opts}. |