use strict;
use warnings;
use Date::Manip;
use CGI qw/:standard/;

# Make sure security is not compromised by calling unpathed programs.
$ENV{PATH} = "/bin:/usr/bin:/usr/local/bin:";
$ENV{IFS}="";

# Use CGI to print the header
print header;

# Make variables local only
my %referers = ();
my $row = 0;
my $counter = 0;

# Retrieve and security-check parameters
my $site = param('site');
my $hour = param('hour');
my $minute = param('minute');

if ($hour !~ /^\d\d?$/) { die('Invalid hour'); }
if ($minute !~ /^\d\d?$/) { die('Invalid minute'); }

# Get date object for the checkpoint
my $check_date = ParseDate("${hour}hours ${minute}minutes ago");

# Select the server log - current 12/19/02
my $data = '';
if ($site eq 'star') {$data = 'indystar/access_log'} 
elsif ($site eq 'topics') {$data = 'topics/access_log'}
else {$data = 'noblesville/access_log'}

# Create headline for web page
print "<h1>Referrers in the past $hour hours and $minute minutes</h1>"; 

# File handling, one line at a time; if can't open, say why
open(FH,"$data") || die('Could not open $data: $!');
while (my $line = <FH>) {

    next if ($line !~ /^\S+ \S \S \[(\S+) \S+\] "[^"]+" \d+ \d+ "([^"]+)"/);
    
    my $line_date = ParseDate($1);

    # Check to see if the line date is in the range we're after
    next unless Date_Cmp($line_date, $check_date)>0;

    # If the referer is new, set to 1 entry, otherwise increment
    if (!$referers{$2}) {
        $referers{$2}=1;
    } else {
        $referers{$2}++;
    }
}
close(FH);

# Sort and print
for (sort {$referers{$b} <=> $referers{$a}} keys %referers) {
    print "$_ - $referers{$_}<p>";
    unless (++$counter % 10) { print "Press Enter"; <STDIN> }
}