|
@ -3,10 +3,10 @@ |
|
|
%% ex: ft=erlang ts=4 sw=4 et |
|
|
%% ex: ft=erlang ts=4 sw=4 et |
|
|
|
|
|
|
|
|
main(_) -> |
|
|
main(_) -> |
|
|
application:start(crypto), |
|
|
|
|
|
application:start(asn1), |
|
|
|
|
|
application:start(public_key), |
|
|
|
|
|
application:start(ssl), |
|
|
|
|
|
|
|
|
ensure_app(crypto), |
|
|
|
|
|
ensure_app(asn1), |
|
|
|
|
|
ensure_app(public_key), |
|
|
|
|
|
ensure_app(ssl), |
|
|
inets:start(), |
|
|
inets:start(), |
|
|
inets:start(httpc, [{profile, rebar}]), |
|
|
inets:start(httpc, [{profile, rebar}]), |
|
|
set_httpc_options(), |
|
|
set_httpc_options(), |
|
@ -57,6 +57,17 @@ main(_) -> |
|
|
%% Done with compile, can turn back on error logger |
|
|
%% Done with compile, can turn back on error logger |
|
|
error_logger:tty(true). |
|
|
error_logger:tty(true). |
|
|
|
|
|
|
|
|
|
|
|
ensure_app(App) -> |
|
|
|
|
|
case application:start(App) of |
|
|
|
|
|
ok -> |
|
|
|
|
|
ok; |
|
|
|
|
|
{error, _} -> |
|
|
|
|
|
io:format("OTP Application ~p not available. Please fix " |
|
|
|
|
|
"your Erlang install to support it and try " |
|
|
|
|
|
"again.~n", [App]), |
|
|
|
|
|
halt(1) |
|
|
|
|
|
end. |
|
|
|
|
|
|
|
|
fetch_and_compile({Name, ErlFirstFiles}, Deps) -> |
|
|
fetch_and_compile({Name, ErlFirstFiles}, Deps) -> |
|
|
case lists:keyfind(Name, 1, Deps) of |
|
|
case lists:keyfind(Name, 1, Deps) of |
|
|
{Name, Vsn} -> |
|
|
{Name, Vsn} -> |
|
|