[Netpass-devel] NetPass-Snort/bin npsnortd.pl,1.1.1.1,1.2

[Matt <mt...@us...>]

Update of /cvsroot/netpass/NetPass-Snort/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4698

Modified Files:
	npsnortd.pl 
Log Message:


Index: npsnortd.pl
===================================================================
RCS file: /cvsroot/netpass/NetPass-Snort/bin/npsnortd.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- npsnortd.pl	10 Aug 2005 20:14:50 -0000	1.1.1.1
+++ npsnortd.pl	16 Aug 2005 21:23:28 -0000	1.2
@@ -70,8 +70,9 @@
 my $DEFAULTPORT		= 20008;
 my $DEFAULTSNORTLOG	= "/opt/snort/logs/snort.log";
 my $TIMEOUT		= 300;
+my $DEFAULTSNORTPID     = "/var/run/snort_dag0.pid";
 
-getopts('s:S:p:P:r:l:f:t:qDh?', \%opts);
+getopts('s:S:p:P:r:l:f:t:b:qDh?', \%opts);
 pod2usage(2) if exists $opts{'h'}  || exists $opts{'?'};
 pod2usage(2) if !exists $opts{'s'} || !exists $opts{'S'};
 
@@ -98,7 +99,21 @@
 
 # process snort logs from here on in
 my $logfile = (exists $opts{'l'}) ? $opts{'l'} : $DEFAULTSNORTLOG;
-die "Unable to open $logfile" unless -e $logfile;
+
+if (!-e $logfile) {
+	# if logfile doesnt exist touch it
+	my $fh = new FileHandle("> $logfile");
+	$fh->close();
+
+	my $pidfile = (exists $opts{'p'}) ? $opts{'p'} : $DEFAULTSNORTPID;
+	if (-e $pidfile) {
+		my $fh = new FileHandle($pidfile);
+		my $pid = $fh->getline;
+		$fh->close;
+		chomp $pid;
+		kill(0, $pid) if $pid =~ /^\d+$/;
+	}
+}
 
 my $fh = new File::Tail (
 				name        => $logfile,