diff options
Diffstat (limited to 'control')
| l---------[-rwxr-xr-x] | control | 75 |
1 files changed, 1 insertions, 74 deletions
@@ -1,74 +1 @@ -#!/usr/bin/env sh -# PerlDaemon (c) 2010, 2011, 2015 Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org) - -export ARG=$1 -export LIBPATHS="./lib ../lib /lib /usr/lib /usr/local/lib /opt/lib" - -for libpath in $LIBPATHS; do - if [ -f $libpath/PerlDaemon/PerlDaemon.pl ]; then - LIBDIR=$libpath - break - fi -done - -if [ -z "$LIBDIR" ]; then - echo No PerlDaemon module path found - exit 1 -fi - -function start_it { - echo Starting daemon now... - perl -I$LIBDIR $LIBDIR/PerlDaemon/PerlDaemon.pl config=./conf/perldaemon.conf $@ -} - -function stop_it { - if [ -f ./run/perldaemon.pid ]; then - echo "Stopping daemon now..." - kill `cat ./run/perldaemon.pid`; - else - echo "No pidfile found (not running?) " - fi -} - -function logrotate_it { - echo Triggering a logrotate - kill -HUP $(cat ./run/perldaemon.pid) -} - -function keys { - perl -I$LIBDIR $LIBDIR/PerlDaemon/PerlDaemon.pl config=./conf/perldaemon.conf keys=1 $@ -} - -case $ARG in - start) - shift - start_it $@ - ;; - - stop) - stop_it - ;; - - restart) - shift - stop_it - start_it $@ - ;; - - logrotate) - logrotate_it - ;; - - foreground) - start_it daemon.daemonize=no $@ - ;; - - keys) - keys $@ - ;; - - *) - echo "Usage: $0 <start|stop|restart|logrotate|foreground|keys> [key1=val1 [[key2=val2] ...]]" - exit 1 - ;; -esac +bin/perldaemon
\ No newline at end of file |