This repository has been archived by the owner on Oct 30, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
arizona_server.erl
83 lines (68 loc) · 2.28 KB
/
arizona_server.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
%% @author William Fank Thomé <willilamthome@hotmail.com>
%% @copyright 2023 William Fank Thomé
%% @doc Server.
%% Copyright 2023 William Fank Thomé
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
-module(arizona_server).
%% API
-export([ start/0
, stop/1
, get_headers/1
, set_headers/2
, set_status_code/2
, get_body/1
, set_body/2
, normalize_path/1
]).
%% Macros
-define(ADAPTER, (arizona_env:get_server(adapter))).
%%%=====================================================================
%%% API
%%%=====================================================================
start() ->
Args = arizona_env:get_server(args),
case ?ADAPTER:start(Args) of
ok ->
URL = url_to_string(maps:get(url, Args)),
io:format("Arizona is running at ~s~n", [URL]),
ok;
{error, Reason} ->
{error, Reason}
end.
stop(State) ->
?ADAPTER:stop(State).
get_headers(Req) ->
?ADAPTER:get_headers(Req).
set_headers(Headers, Req) ->
?ADAPTER:set_headers(Headers, Req).
set_status_code(StatusCode, Req) ->
?ADAPTER:set_status_code(StatusCode, Req).
get_body(Req) ->
?ADAPTER:get_body(Req).
set_body(Body, Req) ->
?ADAPTER:set_body(Body, Req).
normalize_path(Path) ->
binary:split(Path, <<"/">>, [global, trim_all]).
%%%=====================================================================
%%% Internal functions
%%%=====================================================================
url_to_string(#{schema := Schema, ip := IP, port := Port}) ->
io_lib:format("~w://~s:~p", [Schema, ip_to_string(IP), Port]).
ip_to_string(IP) ->
case inet:ntoa(IP) of
{error, einval} ->
error({invalid_ip, IP});
String ->
String
end.