The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! /bin/sh

### BEGIN INIT INFO
# Provides:          vw
# Required-Start:    $all
# Required-Stop:     $all
# Default-Start:     2 3 4 5
# Default-Stop:      0 1 6
# Short-Description: starts the vw web server
# Description:       starts vw using start-stop-daemon
### END INIT INFO

PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
DAEMON=/usr/local/bin/vw-bus
NAME=vw
DESC=vw
PIDFILE=/var/run/$NAME.pid
PERL=/usr/bin/perl

test -x $DAEMON || exit 0

# Include vw defaults if available
if [ -f /etc/default/vw ] ; then
        . /etc/default/vw
fi

set -e

case "$1" in
  start)
        echo -n "Starting $DESC: "
        start-stop-daemon --start --quiet --pidfile $PIDFILE \
                --exec $PERL --startas $DAEMON -- $DAEMON_OPTS
        echo "$NAME."
        ;;
  stop)
        echo -n "Stopping $DESC: "
        start-stop-daemon --stop --signal 2 --quiet --pidfile $PIDFILE \
                --exec $PERL --startas $DAEMON
        echo "$NAME."
        ;;

  restart|force-reload)
        echo -n "Restarting $DESC: "
        start-stop-daemon --stop --signal 2 --quiet --pidfile $PIDFILE \
                --exec $PERL --startas $DAEMON
        sleep 1
        start-stop-daemon --start --quiet --pidfile $PIDFILE \
                --exec $PERL --startas $DAEMON -- $DAEMON_OPTS
        echo "$NAME."
        ;;
  reload)
        echo -n "Reloading $DESC configuration: "
        start-stop-daemon --stop --signal HUP --quiet --pidfile $PIDFILE \
            --exec $PERL --startas $DAEMON
        echo "$NAME."
        ;;
  *)
        N=/etc/init.d/$NAME
        echo "Usage: $N {start|stop|restart|reload|force-reload}" >&2
        exit 1
        ;;
esac

exit 0