From owner-freebsd-questions@FreeBSD.ORG  Tue Mar 22 17:44:58 2005
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id C5D1D16A4CE
	for <freebsd-questions@freebsd.org>;
	Tue, 22 Mar 2005 17:44:58 +0000 (GMT)
Received: from rproxy.gmail.com (rproxy.gmail.com [64.233.170.197])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 5C77343D1F
	for <freebsd-questions@freebsd.org>;
	Tue, 22 Mar 2005 17:44:58 +0000 (GMT)
	(envelope-from perikillo@gmail.com)
Received: by rproxy.gmail.com with SMTP id c16so1235701rne
	for <freebsd-questions@freebsd.org>;
	Tue, 22 Mar 2005 09:44:58 -0800 (PST)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
	s=beta; d=gmail.com;
	h=received:message-id:date:from:reply-to:to:subject:mime-version:content-type:content-transfer-encoding;
	b=LOy7AE1Eg5jqKqoM6t00csIiL+l9EABgFWf7en6VEEZMyQXcl3I6F/1mrEP7t82d3dGOnKCE5ne8oLUrjFaM2Zn1aFkn7AQLz89SIiw8ed5UcV+wbeZ/NuBx3gtlCuOV0UolA/iZJwVTtjUvWbeyUUh90ptlHH6Bn+b3DJ882Dw=
Received: by 10.38.207.18 with SMTP id e18mr5506322rng;
        Tue, 22 Mar 2005 09:44:58 -0800 (PST)
Received: by 10.38.98.28 with HTTP; Tue, 22 Mar 2005 09:44:58 -0800 (PST)
Message-ID: <51d7a516050322094423a7f83b@mail.gmail.com>
Date: Tue, 22 Mar 2005 09:44:58 -0800
From: perikillo <perikillo@gmail.com>
To: freebsd-questions@freebsd.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Subject: plog for ipfilter is not working?
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: perikillo <perikillo@gmail.com>
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>,
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Tue, 22 Mar 2005 17:44:58 -0000

   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.