|
@ -7,6 +7,7 @@ |
|
|
%% ------------------------------------------------------------------- |
|
|
%% ------------------------------------------------------------------- |
|
|
|
|
|
|
|
|
main(Args) -> |
|
|
main(Args) -> |
|
|
|
|
|
ok = start_epmd(), |
|
|
%% Extract the args |
|
|
%% Extract the args |
|
|
{RestArgs, TargetNode} = process_args(Args, [], undefined), |
|
|
{RestArgs, TargetNode} = process_args(Args, [], undefined), |
|
|
|
|
|
|
|
@ -73,6 +74,27 @@ process_args([Arg | Rest], Acc, Opts) -> |
|
|
process_args(Rest, [Arg | Acc], Opts). |
|
|
process_args(Rest, [Arg | Acc], Opts). |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
start_epmd() -> |
|
|
|
|
|
[] = os:cmd(epmd_path() ++ " -daemon"), |
|
|
|
|
|
ok. |
|
|
|
|
|
|
|
|
|
|
|
epmd_path() -> |
|
|
|
|
|
ErtsBinDir = filename:dirname(escript:script_name()), |
|
|
|
|
|
Name = "epmd", |
|
|
|
|
|
case os:find_executable(Name, ErtsBinDir) of |
|
|
|
|
|
false -> |
|
|
|
|
|
case os:find_executable(Name) of |
|
|
|
|
|
false -> |
|
|
|
|
|
io:format("Could not find epmd.~n"), |
|
|
|
|
|
halt(1); |
|
|
|
|
|
GlobalEpmd -> |
|
|
|
|
|
GlobalEpmd |
|
|
|
|
|
end; |
|
|
|
|
|
Epmd -> |
|
|
|
|
|
Epmd |
|
|
|
|
|
end. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
nodename(Name) -> |
|
|
nodename(Name) -> |
|
|
case string:tokens(Name, "@") of |
|
|
case string:tokens(Name, "@") of |
|
|
[_Node, _Host] -> |
|
|
[_Node, _Host] -> |
|
|