浏览代码

Update nodetool in upgrade_project

pull/3/head
Tuncer Ayaz 14 年前
父节点
当前提交
1ee21c523f
共有 1 个文件被更改,包括 22 次插入0 次删除
  1. +22
    -0
      test/upgrade_project/rel/files/nodetool

+ 22
- 0
test/upgrade_project/rel/files/nodetool 查看文件

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

正在加载...
取消
保存