#! /bin/sh
# $Id: tkl-web-harvester.init,v 1.1 2003/08/14 08:17:05 marc Exp $
# Start and stop tkl's tclrobot web harvester
# change runlevels using update-rc.d 

# What robot to start 
BINDIR=/home/heikki/index/tclharv/tklite-utils/tcl/robot
ROBOT=$BINDIR/robot.tcl
# Where to find tkl default values
DEFAULTS="./tkl.default"  ## "/etc/default/tkl" when in production!!!

DISPLAYNAME="web harvester"
ROBOTNAME="tcl-webrobot"  # file name base for logs etc

test -x $ROBOT || exit 0
test -f $DEFAULTS || exit 0

source $DEFAULTS

# Now sourced from /etc/default/tkl 
#TKL_USER="www-data"
#TKL_GROUP=www-data
#TKL_CONF_FILE=/etc/tkl.conf
#TKL_SPOOL_DIR=/var/spool/tkl
#TKL_LOG_DIR=/var/log/tkl
#TKL_PID_DIR=/var/pid/tkl
#TKL_TMP_DIR=/var/tmp/tkl
#TKL_PORTAL_DIRS

# Specific paths
LOGFILE=$TKL_LOG_DIR/$ROBOTNAME.log
PIDFILE=$TKL_PID_DIR/$ROBOTNAME.PID
ROBOTOPTIONS=" \
               -o $LOGFILE \
               -p $PIDFILE \
               -T $TKL_TMP_DIR \
               -L $BINDIR \
               -D $TKL_SPOOL_DIR"

# perform usual init.d daemon services
case "$1" in
  start)
      echo "Starting $DISPLAYNAME: "
      if [ "$TKL_DEBUG" ]
      then
        echo Starting $ROBOT
        echo with args $ROBOTOPTIONS
      fi
      cd $BINDIR # tcl needs to load a .so or two, from the same place...
	  start-stop-daemon --start \
         --pidfile $PIDFILE \
         --chuid $TKL_USER:$TKL_GROUP \
         --background \
         --exec $ROBOT -- $ROBOTOPTIONS 
         # disabling --quiet and --background makes debugging *much* easier!
         # but they are nice to have in production
	  sleep 1
      if [ -f $PIDFILE ]
      then
        echo OK `cat $PIDFILE`
      else
        echo "Error - did not start"
      fi
	;;

  stop)
      echo  "Stopping $DISPLAYNAME: "
	  start-stop-daemon --stop  \
         --pidfile $PIDFILE \
         # --quiet 
      rm -f $PIDFILE
      # -f more to keep silent if it isn't there!
	;;

  restart|reload|force-reload)
	$0 stop
	sleep 1
	$0 start
	;;

  *)
	echo "Usage: /etc/init.d/tkl {start|stop|restart}"
	exit 1
esac

exit 0