Packages

Erlang round-robin load balancer for Erlang processes based on ETS

Current section

Files

Jump to
erlpool src erlpool_app.erl
Raw

src/erlpool_app.erl

-module(erlpool_app).
-behaviour(application).
-export([
start/2,
stop/1
]).
start(_StartType, _StartArgs) ->
ok = erlpool_compile:compile_settings([]),
ok = erlpool_manager:init(),
{ok, Pid} = erlpool_sup:start_link(),
start_pools(),
{ok, Pid}.
stop(_State) ->
ok.
start_pools() ->
FunPool = fun({Name, Args}) ->
ok = erlpool:start_pool(Name, Args)
end,
lists:foreach(FunPool, get_pools()).
get_pools() ->
case erlpool_utils:env(pools) of
undefined ->
[];
Value ->
Value
end.