The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#!/bin/sh
#
# stat_agent-service 
#
LD_LIBRARY_PATH=/etc/STATsrv/lib:$LD_LIBRARY_PATH
export LD_LIBRARY_PATH
port=5000
log=/var/STATsrv/log/stat-agent.log

case "$1" in
  'start')
            echo "Start stat_agent.pl..."
            echo "   Port: $port"
            echo "   Log file: $log"

            /etc/STATsrv/bin/stat_agent.pl -f /etc/STATsrv/access -p $port -d -l $log 

            ;;

  'stop')
            echo "Stop stat_agent.pl..."
            kill `cat /tmp/stat_agent_$port.pid`
            ;;

  'stop-all')
            echo "Stoping all stat_agent servers..."
            PIDS=`find /tmp/ -name stat_agent_* 2>/dev/null -exec cat {} \;`
            kill $PIDS
            ;;

   *)
            echo "Usage: $0 { start | stop | stop-all}"
            exit 1

esac
exit 0