#!/usr/bin/perl
$date = `date "+%a %B %d %Y"`;
print "";
print "
";
print "
Firewall log for $date
";
print "Hits | IP | UNQ | Host |
";
open (STDIN);
@firewall = ;
$length = scalar @firewall;
for($i=0;$i<$length;$i++){
if(@firewall[$i] =~ / *(\d+) +([\d\.]+) +(\d+) +([^ ]+)/) {
if($i == ($length - 1)){
print "Total Hits | Total IPs | Total UNQ | Total Bytes Blocked: |
";
}
print "$1 | $2 | $3 | $4 |
\n";
}
}
print "
";