2007-05-21 05:41:13 +02:00
|
|
|
#!/bin/sh
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# define default configuration
|
|
|
|
POLL=true
|
|
|
|
SMP=auto
|
|
|
|
ERL_MAX_PORTS=32000
|
|
|
|
ERL_PROCESSES=250000
|
|
|
|
ERL_MAX_ETS_TABLES=1400
|
|
|
|
|
|
|
|
# define default environment variables
|
2007-05-21 05:41:13 +02:00
|
|
|
NODE=ejabberd
|
|
|
|
HOST=localhost
|
2007-10-17 04:33:19 +02:00
|
|
|
ERLANG_NODE=$NODE@$HOST
|
2008-07-13 00:02:16 +02:00
|
|
|
ERL=@erl@
|
|
|
|
INSTALLUSER=@installuser@
|
2007-05-21 05:41:13 +02:00
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# parse command line parameters
|
|
|
|
ARGS=
|
|
|
|
while [ $# -ne 0 ] ; do
|
|
|
|
PARAM=$1
|
|
|
|
shift
|
|
|
|
case $PARAM in
|
|
|
|
--) break ;;
|
2009-05-16 00:08:00 +02:00
|
|
|
--node) ERLANG_NODE_ARG=$1; shift ;;
|
2008-11-23 17:41:50 +01:00
|
|
|
--config-dir) ETCDIR=$1 ; shift ;;
|
2008-01-01 11:53:05 +01:00
|
|
|
--config) EJABBERD_CONFIG_PATH=$1 ; shift ;;
|
2008-07-16 12:55:50 +02:00
|
|
|
--ctl-config) EJABBERDCTL_CONFIG_PATH=$1 ; shift ;;
|
|
|
|
--logs) LOGS_DIR=$1 ; shift ;;
|
2008-07-13 21:10:01 +02:00
|
|
|
--spool) SPOOLDIR=$1 ; shift ;;
|
2010-06-07 20:28:18 +02:00
|
|
|
--erlargs) ERL_ARGS=$1 ; shift ;;
|
2008-01-01 11:53:05 +01:00
|
|
|
*) ARGS="$ARGS $PARAM" ;;
|
|
|
|
esac
|
|
|
|
done
|
2007-05-21 05:41:13 +02:00
|
|
|
|
2008-11-23 17:41:50 +01:00
|
|
|
# Define ejabberd variable if they have not been defined from the command line
|
|
|
|
if [ "$ETCDIR" = "" ] ; then
|
|
|
|
ETCDIR=@SYSCONFDIR@/ejabberd
|
|
|
|
fi
|
|
|
|
if [ "$EJABBERD_CONFIG_PATH" = "" ] ; then
|
|
|
|
EJABBERD_CONFIG_PATH=$ETCDIR/ejabberd.cfg
|
|
|
|
fi
|
2008-11-26 19:02:41 +01:00
|
|
|
if [ "$EJABBERDCTL_CONFIG_PATH" = "" ] ; then
|
|
|
|
EJABBERDCTL_CONFIG_PATH=$ETCDIR/ejabberdctl.cfg
|
|
|
|
fi
|
|
|
|
[ -f "$EJABBERDCTL_CONFIG_PATH" ] && . "$EJABBERDCTL_CONFIG_PATH"
|
2008-11-23 17:41:50 +01:00
|
|
|
if [ "$LOGS_DIR" = "" ] ; then
|
|
|
|
LOGS_DIR=@LOCALSTATEDIR@/log/ejabberd
|
|
|
|
fi
|
|
|
|
if [ "$SPOOLDIR" = "" ] ; then
|
|
|
|
SPOOLDIR=@LOCALSTATEDIR@/lib/ejabberd
|
|
|
|
fi
|
2009-01-20 20:42:08 +01:00
|
|
|
if [ "$EJABBERD_DOC_PATH" = "" ] ; then
|
|
|
|
EJABBERD_DOC_PATH=@DOCDIR@
|
|
|
|
fi
|
2009-05-16 00:08:00 +02:00
|
|
|
if [ "$ERLANG_NODE_ARG" != "" ] ; then
|
|
|
|
ERLANG_NODE=$ERLANG_NODE_ARG
|
|
|
|
fi
|
2008-11-23 17:41:50 +01:00
|
|
|
|
2008-07-13 00:02:16 +02:00
|
|
|
# check the proper system user is used
|
2010-07-22 18:41:53 +02:00
|
|
|
if [ `uname -s` = "SunOS" ]; then IDCMD=/usr/xpg4/bin/id; else IDCMD=id; fi
|
|
|
|
ID=`$IDCMD -g`
|
|
|
|
EJID=`$IDCMD -g $INSTALLUSER`
|
2008-07-13 00:02:16 +02:00
|
|
|
EJID=`id -g $INSTALLUSER`
|
|
|
|
EXEC_CMD="false"
|
2010-01-12 19:13:30 +01:00
|
|
|
for GID in $GIDS; do
|
|
|
|
if [ $GID -eq 0 ] ; then
|
2010-01-05 21:31:19 +01:00
|
|
|
EXEC_CMD="su ${INSTALLUSER} -p -c"
|
2010-01-12 19:13:30 +01:00
|
|
|
fi
|
|
|
|
done
|
2008-07-13 00:02:16 +02:00
|
|
|
if [ "$ID" -eq "$EJID" ] ; then
|
|
|
|
EXEC_CMD="sh -c"
|
|
|
|
fi
|
|
|
|
if [ "$EXEC_CMD" = "false" ] ; then
|
|
|
|
echo "This command can only be run by root or the user $INSTALLUSER" >&2
|
2010-02-16 16:04:37 +01:00
|
|
|
exit 4
|
2008-07-13 00:02:16 +02:00
|
|
|
fi
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
NAME=-name
|
|
|
|
[ "$ERLANG_NODE" = "${ERLANG_NODE%.*}" ] && NAME=-sname
|
2011-01-17 17:28:12 +01:00
|
|
|
NODE=${ERLANG_NODE%@*}
|
|
|
|
HOST=${ERLANG_NODE#*@}
|
2007-10-17 04:33:19 +02:00
|
|
|
|
2010-07-22 18:41:53 +02:00
|
|
|
KERNEL_OPTS=""
|
|
|
|
if [ "$FIREWALL_WINDOW" != "" ] ; then
|
|
|
|
KERNEL_OPTS="${KERNEL_OPTS} -kernel inet_dist_listen_min ${FIREWALL_WINDOW%-*} inet_dist_listen_max ${FIREWALL_WINDOW#*-}"
|
|
|
|
fi
|
2011-02-16 23:53:29 +01:00
|
|
|
if [ "$INET_DIST_INTERFACE" != "" ] ; then
|
2011-03-09 16:23:44 +01:00
|
|
|
KERNEL_OPTS="${KERNEL_OPTS} -kernel inet_dist_use_interface \"${INET_DIST_INTERFACE}\""
|
2011-02-16 23:53:29 +01:00
|
|
|
fi
|
|
|
|
|
2010-06-24 12:12:13 +02:00
|
|
|
ERLANG_OPTS="+K $POLL -smp $SMP +P $ERL_PROCESSES $ERL_OPTIONS"
|
2008-01-01 11:53:05 +01:00
|
|
|
|
|
|
|
# define additional environment variables
|
2009-03-19 22:28:34 +01:00
|
|
|
if [ "$EJABBERDDIR" = "" ]; then
|
|
|
|
EJABBERDDIR=@LIBDIR@/ejabberd
|
|
|
|
fi
|
|
|
|
if [ "$EJABBERD_EBIN_PATH" = "" ]; then
|
|
|
|
EJABBERD_EBIN_PATH=$EJABBERDDIR/ebin
|
|
|
|
fi
|
|
|
|
if [ "$EJABBERD_PRIV_PATH" = "" ]; then
|
|
|
|
EJABBERD_PRIV_PATH=$EJABBERDDIR/priv
|
|
|
|
fi
|
2010-01-25 19:24:59 +01:00
|
|
|
if [ "$EJABBERD_BIN_PATH" = "" ]; then
|
2009-03-19 22:28:34 +01:00
|
|
|
EJABBERD_BIN_PATH=$EJABBERD_PRIV_PATH/bin
|
|
|
|
fi
|
|
|
|
if [ "$EJABBERD_SO_PATH" = "" ]; then
|
|
|
|
EJABBERD_SO_PATH=$EJABBERD_PRIV_PATH/lib
|
|
|
|
fi
|
|
|
|
if [ "$EJABBERD_MSGS_PATH" = "" ]; then
|
|
|
|
EJABBERD_MSGS_PATH=$EJABBERD_PRIV_PATH/msgs
|
|
|
|
fi
|
2008-07-16 12:55:50 +02:00
|
|
|
|
|
|
|
EJABBERD_LOG_PATH=$LOGS_DIR/ejabberd.log
|
2009-08-31 10:41:56 +02:00
|
|
|
SASL_LOG_PATH=$LOGS_DIR/erlang.log
|
2008-01-01 11:53:05 +01:00
|
|
|
DATETIME=`date "+%Y%m%d-%H%M%S"`
|
2008-07-16 12:55:50 +02:00
|
|
|
ERL_CRASH_DUMP=$LOGS_DIR/erl_crash_$DATETIME.dump
|
2008-07-13 21:10:01 +02:00
|
|
|
ERL_INETRC=$ETCDIR/inetrc
|
|
|
|
HOME=$SPOOLDIR
|
|
|
|
|
|
|
|
# create the home dir with the proper user if doesn't exist, because it stores cookie file
|
|
|
|
[ -d $HOME ] || $EXEC_CMD "mkdir -p $HOME"
|
2007-10-17 04:33:19 +02:00
|
|
|
|
2010-03-18 12:57:21 +01:00
|
|
|
# Change to a directory readable by INSTALLUSER to
|
|
|
|
# prevent "File operation error: eacces." messages
|
|
|
|
cd $HOME
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# export global variables
|
|
|
|
export EJABBERD_CONFIG_PATH
|
2008-07-16 12:55:50 +02:00
|
|
|
export EJABBERD_MSGS_PATH
|
2008-01-13 23:46:00 +01:00
|
|
|
export EJABBERD_LOG_PATH
|
2008-07-16 12:55:50 +02:00
|
|
|
export EJABBERD_SO_PATH
|
|
|
|
export EJABBERD_BIN_PATH
|
2009-01-20 20:42:08 +01:00
|
|
|
export EJABBERD_DOC_PATH
|
2009-08-24 23:21:04 +02:00
|
|
|
export EJABBERD_PID_PATH
|
2008-01-13 23:46:00 +01:00
|
|
|
export ERL_CRASH_DUMP
|
2011-05-31 12:26:44 +02:00
|
|
|
export ERL_EPMD_ADDRESS
|
2008-01-13 23:46:00 +01:00
|
|
|
export ERL_INETRC
|
2008-01-01 11:53:05 +01:00
|
|
|
export ERL_MAX_PORTS
|
|
|
|
export ERL_MAX_ETS_TABLES
|
|
|
|
export HOME
|
2008-07-13 00:02:16 +02:00
|
|
|
export EXEC_CMD
|
2007-10-17 04:33:19 +02:00
|
|
|
|
|
|
|
|
2007-11-26 08:59:35 +01:00
|
|
|
# Compatibility in ZSH
|
|
|
|
#setopt shwordsplit 2>/dev/null
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# start server
|
2007-11-26 08:59:35 +01:00
|
|
|
start ()
|
2007-05-21 05:41:13 +02:00
|
|
|
{
|
2010-07-20 14:05:18 +02:00
|
|
|
check_start
|
2008-07-13 00:02:16 +02:00
|
|
|
$EXEC_CMD "$ERL \
|
2008-01-01 11:53:05 +01:00
|
|
|
$NAME $ERLANG_NODE \
|
2007-05-21 05:41:13 +02:00
|
|
|
-noinput -detached \
|
2008-07-16 12:55:50 +02:00
|
|
|
-pa $EJABBERD_EBIN_PATH \
|
2008-07-13 21:10:01 +02:00
|
|
|
-mnesia dir \"\\\"$SPOOLDIR\\\"\" \
|
2010-06-24 12:12:13 +02:00
|
|
|
$KERNEL_OPTS \
|
2007-05-21 05:41:13 +02:00
|
|
|
-s ejabberd \
|
2008-07-13 00:02:16 +02:00
|
|
|
-sasl sasl_error_logger \\{file,\\\"$SASL_LOG_PATH\\\"\\} \
|
2010-07-22 18:41:53 +02:00
|
|
|
$ERLANG_OPTS -- $ARGS \"$@\" $ERL_ARGS"
|
2007-05-21 05:41:13 +02:00
|
|
|
}
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# attach to server
|
2007-11-26 08:59:35 +01:00
|
|
|
debug ()
|
2007-05-21 05:41:13 +02:00
|
|
|
{
|
2007-10-17 04:33:19 +02:00
|
|
|
echo "--------------------------------------------------------------------"
|
|
|
|
echo ""
|
|
|
|
echo "IMPORTANT: we will attempt to attach an INTERACTIVE shell"
|
|
|
|
echo "to an already running ejabberd node."
|
2010-02-12 20:25:20 +01:00
|
|
|
echo "If an ERROR is printed, it means the connection was not successful."
|
2007-10-17 04:33:19 +02:00
|
|
|
echo "You can interact with the ejabberd node if you know how to use it."
|
|
|
|
echo "Please be extremely cautious with your actions,"
|
|
|
|
echo "and exit immediately if you are not completely sure."
|
|
|
|
echo ""
|
|
|
|
echo "To detach this shell from ejabberd, press:"
|
|
|
|
echo " control+c, control+c"
|
|
|
|
echo ""
|
|
|
|
echo "--------------------------------------------------------------------"
|
2009-12-11 20:43:57 +01:00
|
|
|
echo "To bypass permanently this warning, add to ejabberdctl.cfg the line:"
|
|
|
|
echo " EJABBERD_BYPASS_WARNINGS=true"
|
2007-11-26 08:59:35 +01:00
|
|
|
echo "Press any key to continue"
|
2009-12-11 20:43:57 +01:00
|
|
|
if [ "$EJABBERD_BYPASS_WARNINGS" != "true" ] ; then
|
|
|
|
read foo
|
|
|
|
fi
|
2007-10-17 04:33:19 +02:00
|
|
|
echo ""
|
2010-02-12 22:11:15 +01:00
|
|
|
TTY=`tty | sed -e 's/.*\///g'`
|
2008-07-13 00:02:16 +02:00
|
|
|
$EXEC_CMD "$ERL \
|
2010-02-12 20:50:56 +01:00
|
|
|
$NAME debug-${TTY}-${ERLANG_NODE} \
|
2008-01-01 11:53:05 +01:00
|
|
|
-remsh $ERLANG_NODE \
|
2010-06-24 12:12:13 +02:00
|
|
|
$KERNEL_OPTS \
|
2010-07-22 18:41:53 +02:00
|
|
|
$ERLANG_OPTS -- $ARGS \"$@\" $ERL_ARGS"
|
2007-10-17 04:33:19 +02:00
|
|
|
}
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# start interactive server
|
2007-11-26 08:59:35 +01:00
|
|
|
live ()
|
2007-10-17 04:33:19 +02:00
|
|
|
{
|
2010-07-20 14:05:18 +02:00
|
|
|
check_start
|
2007-10-17 04:33:19 +02:00
|
|
|
echo "--------------------------------------------------------------------"
|
|
|
|
echo ""
|
|
|
|
echo "IMPORTANT: ejabberd is going to start in LIVE (interactive) mode."
|
|
|
|
echo "All log messages will be shown in the command shell."
|
|
|
|
echo "You can interact with the ejabberd node if you know how to use it."
|
|
|
|
echo "Please be extremely cautious with your actions,"
|
|
|
|
echo "and exit immediately if you are not completely sure."
|
|
|
|
echo ""
|
|
|
|
echo "To exit this LIVE mode and stop ejabberd, press:"
|
|
|
|
echo " q(). and press the Enter key"
|
|
|
|
echo ""
|
|
|
|
echo "--------------------------------------------------------------------"
|
2009-12-11 20:43:57 +01:00
|
|
|
echo "To bypass permanently this warning, add to ejabberdctl.cfg the line:"
|
|
|
|
echo " EJABBERD_BYPASS_WARNINGS=true"
|
2007-11-26 08:59:35 +01:00
|
|
|
echo "Press any key to continue"
|
2009-12-11 20:43:57 +01:00
|
|
|
if [ "$EJABBERD_BYPASS_WARNINGS" != "true" ] ; then
|
|
|
|
read foo
|
|
|
|
fi
|
2007-10-17 04:33:19 +02:00
|
|
|
echo ""
|
2008-07-13 00:02:16 +02:00
|
|
|
$EXEC_CMD "$ERL \
|
2008-01-01 11:53:05 +01:00
|
|
|
$NAME $ERLANG_NODE \
|
2008-07-16 12:55:50 +02:00
|
|
|
-pa $EJABBERD_EBIN_PATH \
|
2008-07-13 21:10:01 +02:00
|
|
|
-mnesia dir \"\\\"$SPOOLDIR\\\"\" \
|
2010-06-24 12:12:13 +02:00
|
|
|
$KERNEL_OPTS \
|
2008-01-01 11:53:05 +01:00
|
|
|
-s ejabberd \
|
2010-07-22 18:41:53 +02:00
|
|
|
$ERLANG_OPTS -- $ARGS \"$@\" $ERL_ARGS"
|
2007-05-21 05:41:13 +02:00
|
|
|
}
|
|
|
|
|
2010-07-16 16:24:55 +02:00
|
|
|
etop()
|
|
|
|
{
|
|
|
|
$EXEC_CMD "$ERL \
|
|
|
|
$NAME debug-${TTY}-${ERLANG_NODE} \
|
|
|
|
-hidden -s etop -s erlang halt -output text -node $ERLANG_NODE"
|
|
|
|
}
|
|
|
|
|
2008-10-12 14:00:20 +02:00
|
|
|
help ()
|
|
|
|
{
|
|
|
|
echo ""
|
|
|
|
echo "Commands to start an ejabberd node:"
|
|
|
|
echo " start Start an ejabberd node in server mode"
|
|
|
|
echo " debug Attach an interactive Erlang shell to a running ejabberd node"
|
|
|
|
echo " live Start an ejabberd node in live (interactive) mode"
|
|
|
|
echo ""
|
|
|
|
echo "Optional parameters when starting an ejabberd node:"
|
2008-11-23 17:41:50 +01:00
|
|
|
echo " --config-dir dir Config ejabberd: $ETCDIR"
|
2008-10-12 14:00:20 +02:00
|
|
|
echo " --config file Config ejabberd: $EJABBERD_CONFIG_PATH"
|
|
|
|
echo " --ctl-config file Config ejabberdctl: $EJABBERDCTL_CONFIG_PATH"
|
|
|
|
echo " --logs dir Directory for logs: $LOGS_DIR"
|
|
|
|
echo " --spool dir Database spool dir: $SPOOLDIR"
|
|
|
|
echo " --node nodename ejabberd node name: $ERLANG_NODE"
|
2010-06-07 20:28:18 +02:00
|
|
|
echo " --erlargs \"\" erl arguments: $ERL_ARGS"
|
2008-10-12 14:00:20 +02:00
|
|
|
echo ""
|
|
|
|
}
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# common control function
|
2007-11-26 08:59:35 +01:00
|
|
|
ctl ()
|
2007-05-21 05:41:13 +02:00
|
|
|
{
|
2008-07-15 23:43:22 +02:00
|
|
|
COMMAND=$@
|
2010-01-24 14:39:15 +01:00
|
|
|
|
2010-02-12 20:25:20 +01:00
|
|
|
# Control number of connections identifiers
|
|
|
|
# using flock if available. Expects a linux-style
|
|
|
|
# flock that can lock a file descriptor.
|
|
|
|
MAXCONNID=100
|
|
|
|
CONNLOCKDIR=@LOCALSTATEDIR@/lock/ejabberdctl
|
|
|
|
FLOCK='/usr/bin/flock'
|
2010-07-12 18:53:16 +02:00
|
|
|
if [ ! -x "$FLOCK" ] || [ ! -d "$CONNLOCKDIR" ] ; then
|
2010-02-12 20:50:56 +01:00
|
|
|
JOT='/usr/bin/jot'
|
|
|
|
if [ ! -x "$JOT" ] ; then
|
|
|
|
# no flock or jot, simply invoke ctlexec()
|
|
|
|
CTL_CONN="ctl-${ERLANG_NODE}"
|
|
|
|
ctlexec $CTL_CONN $COMMAND
|
|
|
|
result=$?
|
|
|
|
else
|
|
|
|
# no flock, but at least there is jot
|
|
|
|
RAND=`jot -r 1 0 $MAXCONNID`
|
|
|
|
CTL_CONN="ctl-${RAND}-${ERLANG_NODE}"
|
|
|
|
ctlexec $CTL_CONN $COMMAND
|
|
|
|
result=$?
|
|
|
|
fi
|
2010-01-24 14:39:15 +01:00
|
|
|
else
|
|
|
|
# we have flock so we get a lock
|
|
|
|
# on one of a limited number of
|
|
|
|
# conn names -- this allows
|
2010-02-12 20:25:20 +01:00
|
|
|
# concurrent invocations using a bound
|
2010-01-24 14:39:15 +01:00
|
|
|
# number of atoms
|
|
|
|
for N in $(seq 1 $MAXCONNID); do
|
|
|
|
CTL_CONN="ejabberdctl-$N"
|
|
|
|
CTL_LOCKFILE="$CONNLOCKDIR/$CTL_CONN"
|
|
|
|
(
|
|
|
|
exec 8>"$CTL_LOCKFILE"
|
|
|
|
if flock --nb 8; then
|
|
|
|
ctlexec $CTL_CONN $COMMAND
|
|
|
|
ssresult=$?
|
|
|
|
# segregate from possible flock exit(1)
|
|
|
|
ssresult=$(expr $ssresult \* 10)
|
|
|
|
exit $ssresult
|
|
|
|
else
|
|
|
|
exit 1
|
|
|
|
fi
|
|
|
|
)
|
|
|
|
result=$?
|
|
|
|
if [ $result -eq 1 ]; then
|
|
|
|
# means we errored out in flock
|
|
|
|
# rather than in the exec - stay in the loop
|
|
|
|
# trying other conn names...
|
|
|
|
badlock=1
|
|
|
|
else
|
|
|
|
badlock=""
|
|
|
|
break;
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
result=$(expr $result / 10)
|
|
|
|
fi
|
|
|
|
|
|
|
|
if [ "$badlock" ];then
|
2010-02-12 20:25:20 +01:00
|
|
|
echo "Ran out of connections to try. Your ejabberd processes" >&2
|
|
|
|
echo "may be stuck or this is a very busy server. For very" >&2
|
|
|
|
echo "busy servers, consider raising MAXCONNID in ejabberdctl">&2
|
|
|
|
exit 1;
|
2010-01-24 14:39:15 +01:00
|
|
|
fi
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
case $result in
|
2010-02-12 20:25:20 +01:00
|
|
|
0) :;;
|
|
|
|
1) :;;
|
|
|
|
2) help;;
|
|
|
|
3) help;;
|
2007-10-17 04:33:19 +02:00
|
|
|
esac
|
2008-01-01 11:53:05 +01:00
|
|
|
return $result
|
2007-05-21 05:41:13 +02:00
|
|
|
}
|
|
|
|
|
2010-01-24 14:39:15 +01:00
|
|
|
ctlexec ()
|
|
|
|
{
|
|
|
|
CONN_NAME=$1; shift
|
|
|
|
COMMAND=$@
|
2011-02-09 13:30:01 +01:00
|
|
|
|
|
|
|
CTLEXEC="$ERL \
|
2010-01-24 14:39:15 +01:00
|
|
|
$NAME ${CONN_NAME} \
|
|
|
|
-noinput \
|
|
|
|
-hidden \
|
|
|
|
-pa $EJABBERD_EBIN_PATH \
|
2010-06-24 12:12:13 +02:00
|
|
|
$KERNEL_OPTS \
|
2011-02-09 13:30:01 +01:00
|
|
|
-s ejabberd_ctl -extra $ERLANG_NODE"
|
|
|
|
|
|
|
|
# quote input from the command line
|
|
|
|
for i in $COMMAND; do
|
|
|
|
CTLEXEC="$CTLEXEC '$i'";
|
|
|
|
done
|
|
|
|
|
|
|
|
$EXEC_CMD "$CTLEXEC"
|
2010-01-24 14:39:15 +01:00
|
|
|
}
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
# display ctl usage
|
2007-11-26 08:59:35 +01:00
|
|
|
usage ()
|
2007-05-21 05:41:13 +02:00
|
|
|
{
|
|
|
|
ctl
|
|
|
|
exit
|
|
|
|
}
|
|
|
|
|
2009-08-24 21:43:52 +02:00
|
|
|
# stop epmd if there is no other running node
|
|
|
|
stop_epmd()
|
|
|
|
{
|
|
|
|
epmd -names | grep -q name || epmd -kill
|
|
|
|
}
|
|
|
|
|
2010-07-20 14:05:18 +02:00
|
|
|
# make sure node not already running and node name unregistered
|
|
|
|
check_start()
|
|
|
|
{
|
|
|
|
epmd -names | grep -q $NODE && {
|
2011-01-17 16:55:00 +01:00
|
|
|
ps ux | grep -v grep | grep -q $ERLANG_NODE && {
|
2011-01-17 17:28:12 +01:00
|
|
|
echo "ejabberd in node $ERLANG_NODE is already running."
|
2010-07-20 14:05:18 +02:00
|
|
|
exit 4
|
|
|
|
} || {
|
|
|
|
ps ux | grep beam | grep -v "grep beam" && {
|
|
|
|
echo "ejabberd node is registered, but no ejabberd process has been found."
|
|
|
|
echo "can not kill epmd as other erlang nodes are running."
|
|
|
|
echo "please stop all erlang nodes, and call 'epmd -kill'."
|
|
|
|
exit 5
|
|
|
|
} || {
|
|
|
|
epmd -kill
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2009-08-24 21:43:52 +02:00
|
|
|
# allow sync calls
|
|
|
|
wait_for_status()
|
|
|
|
{
|
|
|
|
# args: status try delay
|
|
|
|
# return: 0 OK, 1 KO
|
|
|
|
timeout=$2
|
|
|
|
status=4
|
|
|
|
while [ $status -ne $1 ]; do
|
|
|
|
sleep $3
|
2010-02-11 11:02:07 +01:00
|
|
|
timeout=$(($timeout - 1))
|
2009-08-24 21:43:52 +02:00
|
|
|
[ $timeout -eq 0 ] && {
|
|
|
|
status=$1
|
|
|
|
} || {
|
|
|
|
ctl status > /dev/null
|
|
|
|
status=$?
|
|
|
|
}
|
|
|
|
done
|
|
|
|
[ $timeout -eq 0 ] && {
|
|
|
|
status=1
|
|
|
|
} || {
|
|
|
|
status=0
|
|
|
|
}
|
|
|
|
return $status
|
|
|
|
}
|
|
|
|
|
2008-01-01 11:53:05 +01:00
|
|
|
case $ARGS in
|
|
|
|
' start') start;;
|
|
|
|
' debug') debug;;
|
|
|
|
' live') live;;
|
2010-07-16 16:24:55 +02:00
|
|
|
' etop') etop;;
|
2009-08-24 21:43:52 +02:00
|
|
|
' started') wait_for_status 0 30 2;; # wait 30x2s before timeout
|
|
|
|
' stopped') wait_for_status 3 15 2; stop_epmd;; # wait 15x2s before timeout
|
2008-01-01 11:53:05 +01:00
|
|
|
*) ctl $ARGS;;
|
2007-05-21 05:41:13 +02:00
|
|
|
esac
|