Re: re: reading firewall logs

[Vladimir Parkhaev <vladimir () arobas net>]

Quoting SmallS () NCTAMSLANT NAVY MIL (SmallS () NCTAMSLANT NAVY MIL):
> I'm wondering if you could give me a little help. I trying to read my FW
> logs, what tools are available for use. If I must use a PERL or shell
> scripts could you give me and example. Sidney

#!/usr/bin/perl -w

$Log = shift || die "Usage: $0 filename\n";
open (FWL, $Log) or die "open $Log err :$!\n";
while (<FWL>) {
  print;
  # do what you need here one line at the time
  # check FAQs www.perl.com
  # and read 'perldoc -f split', 'perldoc -f grep', etc
  # for searching, try 'perldoc -q keyword'
}
close (FWL);








-- 
print chr hex for qw +
2D 2D 0A 76 6C 61 64 69 6D 69 72 40 61 72 6F 62 61 73 2E 6E 65 74 0A 44 38
37 44 20 44 32 46 42 20 46 31 36 33 20 46 31 43 31 20 34 32 30 41 20 20 31
44 31 46 20 36 43 42 39 20 31 46 38 39 20 38 35 30 42 20 30 38 44 44 0A +;
_______________________________________________
firewall-wizards mailing list
firewall-wizards () nfr com
http://list.nfr.com/mailman/listinfo/firewall-wizards