#!/usr/local/bin/perl
sub analyze
{
my @rows = @_;
my $row;
print "";
foreach $row (@rows)
{
next if ($row =~ /^cying\.rdsl\.lmi\.net/);
print $row;
}
print "";
}
print "Content-type: text/html\n\n";
print "\n";
print "Web Page Stats\n";
print "\n";
@today = `gzcat /var/log/httpd/access.log.4.gz | grep chucky`;
analyze(@today);
print "\n";
print "\n";