Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 166 lines (141 sloc) 3.43 KB
#!/bin/sh
# Start a Catalyst app under FastCGI
# Copyright (c) 2009-2010, Andrew Rodland
# See LICENSE for redistribution conditions.
#
### BEGIN INIT INFO
# Provides: webapp
# Required-Start: $local_fs $network $named
# Required-Stop: $local_fs $network $named
# Default-Start: 2 3 4 5
# Default-Stop: 0 1 6
# Short-Description: A Catalyst Application
### END INIT INFO
. /lib/lsb/init-functions
APPNAME=MyApp
APPDIR=/home/myapp/MyApp
UNIXNAME=$(echo $APPNAME | perl -pe 's/::/_/;$_=lc')
PLACKUP="plackup"
PSGI="$APPDIR/script/$UNIXNAME.psgi"
PLACK_SERVER=Starman
PLACK_SERVER_OPTS="--workers 5 --preload-app"
SOCKET=127.0.0.1:3001
# Leave these unset and we won't try to setuid/setgid.
USER=myapp
GROUP=myapp
# Set this if you have more than one instance of the app and you don't want
# them to step on each other's pidfile.
PIDSUFFIX=
# local::lib path, if you want to use it.
LOCALLIB=
if [ -f "/etc/default/"$UNIXNAME ]; then
. "/etc/default/"$UNIXNAME
fi
if [ $(id -u) -eq 0 ] ; then
PIDDIR=/var/run/$UNIXNAME
mkdir $PIDDIR >/dev/null 2>&1
chown $USER:$GROUP $PIDDIR
chmod 775 $PIDDIR
else
PIDDIR=/tmp
fi
PIDFILE=$PIDDIR/$UNIXNAME${PIDSUFFIX:+"-$PIDSUFFIX"}.pid
if [ -n "$LOCALLIB" ] ; then
eval `perl -I"$LOCALLIB/lib/perl5" -Mlocal::lib="$LOCALLIB"`
fi
PERL5LIB="$APPDIR/lib"${PERL5LIB:+":"}$PERL5LIB
export PERL5LIB
getpid() {
awk '{ print $1 }' "$PIDFILE"
}
check_running() {
[ -s $PIDFILE ] && kill -0 $(getpid) >/dev/null 2>&1
}
check_compile() {
if [ -n "$USER" ] ; then
if su $USER -c "cd $APPDIR ; perl -Ilib -M$APPNAME -c $PSGI" ; then
return 0
fi
return 1
else
if ( cd $APPDIR ; perl -Ilib -M$APPNAME -c $PSGI ) ; then
return 0
fi
return 1
fi
}
_start() {
start-stop-daemon --start --quiet --pidfile $PIDFILE --chdir $APPDIR \
${USER:+"--chuid"} $USER ${GROUP:+"--group"} $GROUP --background \
--startas "$PLACKUP" -- \
-MFile::Pid::Quick="$PIDFILE" \
--listen "$SOCKET" ${PLACK_SERVER:+"-s"} $PLACK_SERVER $PLACK_SERVER_OPTS \
--app "$PSGI"
for i in 1 2 3 4 5 6 7 8 9 10; do
sleep 1
if check_running ; then
return 0
fi
done
return 1
}
start() {
log_daemon_msg "Starting $APPNAME" $UNIXNAME
if check_running; then
log_progress_msg "already running"
log_end_msg 0
exit 0
fi
rm -f $PIDFILE 2>/dev/null
_start
log_end_msg $?
return $?
}
_stop() {
start-stop-daemon --stop --user $USER --quiet --oknodo --pidfile $PIDFILE \
--retry TERM/5/TERM/30/KILL/30 \
|| log_failure_message "It won't die!"
}
stop() {
log_daemon_msg "Stopping $APPNAME" $UNIXNAME
_stop
log_end_msg $?
return $?
}
restart() {
log_daemon_msg "Restarting $APPNAME" $UNIXNAME
check_compile && _stop && _start
log_end_msg $?
return $?
}
reload() {
log_daemon_msg "Reloading $APPNAME" $UNIXNAME
[ -s $PIDFILE ] && kill -HUP $(getpid) >/dev/null 2>&1
log_end_msg $?
return $?
}
# See how we were called.
case "$1" in
start)
start
;;
stop)
stop
;;
restart)
restart
;;
reload)
reload
;;
force-reload)
check_running && reload || restart
;;
check|check-compile)
check_compile
;;
*)
echo $"Usage: $0 {start|stop|restart|reload|force-reload|check}"
exit 1
esac
exit $?
Jump to Line
Something went wrong with that request. Please try again.