From ce255ff5a1257db57424603caac2b4bfca3c7694 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Thu, 21 Apr 2022 23:45:23 +0200 Subject: release v1.3 --- control | 75 +---------------------------------------------------------------- 1 file changed, 1 insertion(+), 74 deletions(-) mode change 100755 => 120000 control (limited to 'control') diff --git a/control b/control deleted file mode 100755 index c7a6dde..0000000 --- a/control +++ /dev/null @@ -1,74 +0,0 @@ -#!/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 [key1=val1 [[key2=val2] ...]]" - exit 1 - ;; -esac diff --git a/control b/control new file mode 120000 index 0000000..187e168 --- /dev/null +++ b/control @@ -0,0 +1 @@ +bin/perldaemon \ No newline at end of file -- cgit v1.2.3