Date: Tue, 22 Mar 2005 09:44:58 -0800 From: perikillo <perikillo@gmail.com> To: freebsd-questions@freebsd.org Subject: plog for ipfilter is not working? Message-ID: <51d7a516050322094423a7f83b@mail.gmail.com>
next in thread | raw e-mail | index | archive | help
Hi all.
I want to analize my logs of ipfilter on my freebsd box, i dont want
to use any X stuff, because i dont any of that on my firewall.
Them i have read about scripts that we can found under:
/usr/src/contrib/ipfilter/perl/ (:-? i think)
On the google, i see that plog is recomend, i dont have much
experience on perl, but i give the try, i copy that file under the
root dir
/root/
Them i make the test:
test# sh /root/plog -AF block,log < /var/log/firewall.log.0
And perl send to me this error:
---> unexpected '(' on line 159.
thie is the code where appear this error:
use strict;
use Socket;
use IO::File;
select STDOUT; $| = 1;
my %hosts;
my $me = $0;
$me =~ s/^.*\///;
# Map of log codes for various actions. Not all of these can occur, but
# I've included everything in print_ipflog() from ipmon.c.
my %acts = ( <------------------------Here
'p' => 'pass',
'P' => 'pass',
'b' => 'block',
'B' => 'block',
'L' => 'log',
'S' => 'short',
'n' => 'nomatch',
);
For me is correct the code, maybe the mistake is on me?
I forget or miss something?
Any help i will apreciate or another program to analize my logs?
Freebsd 4.11 Release ipfilter on the kernel. Thanks.
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?51d7a516050322094423a7f83b>