Fix bug 294

This commit is contained in:
Tuncer Ayaz 2011-01-20 18:56:42 +01:00
parent 926baa1c31
commit b894682ba9

View file

@ -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] ->