ranch_sup.erl (1456B)
1 %% Copyright (c) 2011-2018, Loïc Hoguin <essen@ninenines.eu> 2 %% 3 %% Permission to use, copy, modify, and/or distribute this software for any 4 %% purpose with or without fee is hereby granted, provided that the above 5 %% copyright notice and this permission notice appear in all copies. 6 %% 7 %% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 8 %% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 9 %% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 10 %% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 11 %% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 12 %% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 13 %% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 14 15 -module(ranch_sup). 16 -behaviour(supervisor). 17 18 -export([start_link/0]). 19 -export([init/1]). 20 21 -spec start_link() -> {ok, pid()}. 22 start_link() -> 23 supervisor:start_link({local, ?MODULE}, ?MODULE, []). 24 25 init([]) -> 26 Intensity = case application:get_env(ranch_sup_intensity) of 27 {ok, Value1} -> Value1; 28 undefined -> 1 29 end, 30 Period = case application:get_env(ranch_sup_period) of 31 {ok, Value2} -> Value2; 32 undefined -> 5 33 end, 34 ranch_server = ets:new(ranch_server, [ 35 ordered_set, public, named_table]), 36 Procs = [ 37 {ranch_server, {ranch_server, start_link, []}, 38 permanent, 5000, worker, [ranch_server]} 39 ], 40 {ok, {{one_for_one, Intensity, Period}, Procs}}.