perlbal.init

   1 #!/bin/sh
   2 #
   3 # perlbal       Perlbal - Reverse-proxy load balancer and webserver
   4 #
   5 # chkconfig:    345 86 13
   6 #
   7 # description:  Perlbal - Reverse-proxy load balancer and webserver
   8 #
   9 # processname:  perlbal
  10 #
  11 # $Id$
  12
  13 # Source function library
  14 . /etc/rc.d/init.d/functions
  15
  16 # Get network config
  17 . /etc/sysconfig/network
  18
  19 [ -f /etc/sysconfig/perlbal ] && . /etc/sysconfig/perlbal
  20
  21 # Check that networking is up.
  22 if is_yes "${NETWORKING}"; then
  23         if [ ! -f /var/lock/subsys/network -a "$1" != stop -a "$1" != status ]; then
  24                 msg_network_down perlbal
  25                 exit 1
  26         fi
  27 else
  28         exit 0
  29 fi
  30
  31 start() {
  32         # Check if the service is already running?
  33         if [ ! -f /var/lock/subsys/perlbal ]; then
  34                 msg_starting perlbal
  35                 daemon perlbal $PERLBAL_OPTS
  36                 RETVAL=$?
  37                 [ $RETVAL -eq 0 ] && touch /var/lock/subsys/perlbal
  38         else
  39                 msg_already_running perlbal
  40         fi
  41 }
  42
  43 stop() {
  44         if [ -f /var/lock/subsys/perlbal ]; then
  45                 # Stop daemons.
  46                 msg_stopping perlbal
  47                 killproc perlbal
  48                 rm -f /var/lock/subsys/perlbal
  49         else
  50                 msg_not_running perlbal
  51         fi
  52 }
  53
  54 condrestart() {
  55         if [ -f /var/lock/subsys/perlbal ]; then
  56                 stop
  57                 start
  58         else
  59                 msg_not_running perlbal
  60                 RETVAL=$1
  61         fi
  62 }
  63
  64 reload() {
  65         if [ -f /var/lock/subsys/perlbal ]; then
  66                 msg_reloading perlbal
  67                 killproc perlbal -HUP
  68                 RETVAL=$?
  69         else
  70                 msg_not_running perlbal
  71                 RETVAL=7
  72         fi
  73 }
  74
  75 RETVAL=0
  76 # See how we were called.
  77 case "$1" in
  78   start)
  79         start
  80         ;;
  81   stop)
  82         stop
  83         ;;
  84   restart)
  85         stop
  86         start
  87         ;;
  88   try-restart)
  89         condrestart 0
  90         ;;
  91   reload|force-reload)
  92         reload
  93         ;;
  94   status)
  95         status perlbal
  96         RETVAL=$?
  97         ;;
  98   *)
  99         msg_usage "$0 {start|stop|restart|try-restart|reload|force-reload|status}"
 100         exit 3
 101 esac
 102
 103 exit $RETVAL