#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use POSIX;
my $yesterday = strftime("%d/%b/%Y",localtime(time()-86400));
open(LOGFILE,"<", "access.log")or die"Could not open log file.";
my $yesterdayHits=0;
my $IPcount=0;
my $totalhits=0;
my $webPage='log.html';
my $startDate;
open(WEBPAGE,">",$webPage);
print WEBPAGE ("Access Counts");
print WEBPAGE ("");
print WEBPAGE (" Today is: ",scalar(localtime), "
");
print WEBPAGE ("Yesterday was $yesterday
");
print WEBPAGE ("There are $IPcount unique vistors in the log
");
print WEBPAGE ("");
print WEBPAGE ("| IP | LOGFILE |
\n\n");
foreach my $line () {
my %ips=();
$totalhits++;
my $w = "(.+?)";
$line =~ m/^$w $w $w \[$w:$w $w\] "$w $w $w" $w $w$/;
my @sort=$line;
my $site = $1;
my $logName = $2;
my $fullName = $3;
my $date = $4;
my $time = $5;
my $gmt = $6;
my $req = $7;
my $file = $8;
my $proto = $9;
my $status = $10;
my $length = $11;
$ips{$site} = $line;
#print %ips;
#foreach my $key ( sort keys %ips ) {
# print $key, " => ", $ips{$key}, "\n";
#}
my ($day,$month,$year)=split"\/",$date;
my %dates = (
'Jan' => '01',
'Feb' => '02',
'Mar' => '03',
'Apr' => '04',
'May' => '05',
'Jun' => '06',
'Jul' => '07',
'Aug' => '08',
'Sep' => '09',
'Oct' => '10',
'Nov' => '11',
'Dec' => '12',
);
print WEBPAGE ("| $site | $line |
\n\n")
}
close(LOGFILE);
#print WEBPAGE ("Start Date is $startDate
");
print WEBPAGE ("Total hits: $totalhits
");
print WEBPAGE ("Hits Yesterday: $yesterdayHits
");
print WEBPAGE ("
");
print WEBPAGE ("