#!/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 = `cat /var/log/httpd/access.log | grep chucky`;
analyze(@today);
@zero = `gzcat /var/log/httpd/access.log.0.gz | grep chucky`;
analyze(@zero);
@one = `gzcat /var/log/httpd/access.log.1.gz | grep chucky`;
analyze(@one);
@two = `gzcat /var/log/httpd/access.log.2.gz | grep chucky`;
analyze(@two);
@three = `gzcat /var/log/httpd/access.log.3.gz | grep chucky`;
analyze(@three);
@four = `gzcat /var/log/httpd/access.log.4.gz | grep chucky`;
analyze(@four);
@five = `gzcat /var/log/httpd/access.log.5.gz | grep chucky`;
analyze(@five);
@six = `gzcat /var/log/httpd/access.log.6.gz | grep chucky`;
analyze(@six);
print "\n";
print "\n";