#!/bin/sh

# /etc/init.d/hunchentoot : my lisp http server

case "$1" in
  start)
        echo -n "Starting Lisp Hunchentoot Server process..."
        echo ""

        su - hunchentoot -c ~hunchentoot/start-hunchentoot
        ;;

   stop)
        echo -n "Stopping Lisp Hunchentoot Server process..."
        echo ""

        # 6200 is the port to signal end of lisp process
        (telnet 127.0.0.1 6200 &) > /dev/null
        (sleep 7)
        ;;

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

exit 0