#!/bin/sh
#
# login_sentry:	Starts login_sentry
#
# chkconfig: 345 99 01
# description:  Perl daemon that automatically adds hosts that \
#		repeatedly fail ssh login attempts to /etc/hosts.deny.
#
# processname: login_sentry
# pidfile: /var/run/login_sentry.pid
#

# Sanity checks.
[ -x /usr/sbin/login_sentry ] || exit 0

# Source function library.
. /etc/rc.d/init.d/functions

RETVAL=0
PIDFILE="/var/run/login_sentry.pid"

start() {
    echo -n $"Starting login_sentry: "
    daemon login_sentry
    RETVAL=$?
    echo
    [ $RETVAL -eq 0 ] && touch /var/lock/subsys/login_sentry
}

stop() {
    echo -n $"Stopping login_sentry: "
    killproc login_sentry
    RETVAL=$?
    echo
    if [ $RETVAL -eq 0 ]; then
        rm -f /var/lock/subsys/login_sentry
    fi
}

# See how we were called.
case "$1" in
    start)
	start
	;;
    stop)
	stop
	;;
    status)
        status login_sentry
	RETVAL=$?
        ;;
    restart)
	stop
	start
	;;
    condrestart)
	if [ -f /var/lock/subsys/login_sentry ]; then
	    stop
	    start
	fi
	;;
    *)
	echo $"Usage: $0 {start|stop|status|restart|condrestart}"
	;;
esac
exit $RETVAL