aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE_data/http_req_attr.erl
blob: c6a940e6640b73f67b956475edc57a7977cbfcdb (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([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}.