#!/usr/bin/perl -w
#
# rcportsentry.pl
# Script zum Starten und Stoppen von PortSentry
#
# R.Schulze, 29.8.2002

use strict;

###############################################################################

my $PORTSENTRY_PROG="/usr/local/portsentry/portsentry";

###############################################################################

if(!defined($ARGV[0]))
	{
	&PrintUsage();
	}
else
	{
	if($ARGV[0] eq "start")
		{
		system("$PORTSENTRY_PROG -atcp");
		system("$PORTSENTRY_PROG -audp");
		}
	elsif($ARGV[0] eq "stop")
		{
		system("killall $PORTSENTRY_PROG");
		}
	else
		{
		&PrintUsage();
		}
	}

exit(0);

sub PrintUsage
{
print<<EOU;

Benutzung:
	(start|stop)
EOU
}