aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE_data/http_req_attr.erl
blob: ce9c1851e96a63cfe48dec11817217ca9cb8419d (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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(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), Opts}.