#!/usr/bin/perl $date = `date "+%a %B %d %Y"`; print ""; print ""; print "
Make your own free website on Tripod.com

Firewall log for $date



"; print ""; open (STDIN); @firewall = ; $length = scalar @firewall; for($i=0;$i<$length;$i++){ if(@firewall[$i] =~ / *(\d+) +([\d\.]+) +(\d+) +([^ ]+)/) { if($i == ($length - 1)){ print ""; } print "\n"; } } print "
HitsIPUNQHost
Total HitsTotal IPsTotal UNQTotal Bytes Blocked:
$1$2$3$4
";