Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-22 16:20:52 +01:00
Code Releases Activity

Add ability to disable timeout for ejabberdctl command

Browse Source
This commit is contained in:
Paweł Chmielowski 2015-12-08 11:25:26 +01:00
parent 5ce0b062ff
commit 7a69dab596
2 changed files with 37 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ejabberdctl.template
View File

@ -48,6 +48,7 @@ while [ $# -ne 0 ] ; do
shift shift
case $PARAM in case $PARAM in
--) break ;; --) break ;;
--no-timeout) EJABBERD_NO_TIMEOUT="--no-timeout" ;;
--node) ERLANG_NODE_ARG=$1 ; shift ;; --node) ERLANG_NODE_ARG=$1 ; shift ;;
--config-dir) ETC_DIR="$1" ; shift ;; --config-dir) ETC_DIR="$1" ; shift ;;
--config) EJABBERD_CONFIG_PATH="$1" ; shift ;; --config) EJABBERD_CONFIG_PATH="$1" ; shift ;;
@ -418,7 +419,7 @@ ctlexec()
-hidden \ -hidden \
-pa $EJABBERD_EBIN_PATH \ -pa $EJABBERD_EBIN_PATH \
$KERNEL_OPTS \ $KERNEL_OPTS \
-s ejabberd_ctl -extra $ERLANG_NODE $COMMAND" -s ejabberd_ctl -extra $ERLANG_NODE $EJABBERD_NO_TIMEOUT $COMMAND"
} }
# stop epmd if there is no other running node # stop epmd if there is no other running node

21
src/ejabberd_ctl.erl
View File

@ -63,8 +63,15 @@
%%----------------------------- %%-----------------------------
start() -> start() ->
case init:get_plain_arguments() of [SNode, Timeout, Args] = case init:get_plain_arguments() of
[SNode | Args] -> [SNode2, "--no-timeout" | Args2] ->
[SNode2, infinity, Args2];
[SNode3 | Args3] ->
[SNode3, 10000, Args3];
_ ->
print_usage(),
halt(?STATUS_USAGE)
end,
SNode1 = case string:tokens(SNode, "@") of SNode1 = case string:tokens(SNode, "@") of
[_Node, _Server] -> [_Node, _Server] ->
SNode; SNode;
@ -80,7 +87,7 @@ start() ->
end end
end, end,
Node = list_to_atom(SNode1), Node = list_to_atom(SNode1),
Status = case rpc:call(Node, ?MODULE, process, [Args], 60000) of Status = case rpc:call(Node, ?MODULE, process, [Args], Timeout) of
{badrpc, Reason} -> {badrpc, Reason} ->
print("Failed RPC connection to the node ~p: ~p~n", print("Failed RPC connection to the node ~p: ~p~n",
[Node, Reason]), [Node, Reason]),
@ -89,11 +96,7 @@ start() ->
S -> S ->
S S
end, end,
halt(Status); halt(Status).
_ ->
print_usage(),
halt(?STATUS_USAGE)
end.
init() -> init() ->
ets:new(ejabberd_ctl_cmds, [named_table, set, public]), ets:new(ejabberd_ctl_cmds, [named_table, set, public]),
@ -470,7 +473,7 @@ print_usage(HelpMode, MaxC, ShCode) ->
get_list_ctls(), get_list_ctls(),
print( print(
["Usage: ", ?B("ejabberdctl"), " [--node ", ?U("nodename"), "] [--auth ", ["Usage: ", ?B("ejabberdctl"), " [--no-timeout] [--node ", ?U("nodename"), "] [--auth ",
?U("user"), " ", ?U("host"), " ", ?U("password"), "] ", ?U("user"), " ", ?U("host"), " ", ?U("password"), "] ",
?U("command"), " [", ?U("options"), "]\n" ?U("command"), " [", ?U("options"), "]\n"
"\n" "\n"