#!/usr/local/bin/perl

#use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser carpout);
use Time::Local;

# Grab information returned by web page
$hour = param ("hour");
$minute = param ("minute");

# Allow perl to write to browser window
print "Content-type: text/html\n\n";

# Current time in seconds
$now = time;

# Convert submitted time to seconds
$compare_time = ($hour * 3600) + ($minute * 60);

# Times extracted by logs must be >= to $target
$target = $now - $compare_time;

open LOGFILE, "datafile.html" || die "Can't open file";
@log_data =<LOGFILE>;

# Grab useful information from each line of the web log
foreach $log_line(@log_data) {
   # Grab date/time and referer
   ($date_string, $referrer) = ($log_line =~ /\[([^\]]+)\] "[^"]+"[^"]+"([^"]+)"/);
   # Replace / and : with spaces
   $date_string =~ s!/! !g;
   $date_string =~ s!:! !g;
   # Dump junk at end of line
   $date_string =~ s! -[0-9]+!!;
   # Split date/time into useful information
   ($day, $month, $year, $hhour, $min, $sec) = split(' ', $date_string);
   # Convert month from text to number
   if ($month == 'Jan') {$month = 0}
   elsif ($month == 'Feb') {$month = 1}
   elsif ($month == 'Mar') {$month = 2}
   elsif ($month == 'Apr') {$month = 3}
   elsif ($month == 'May') {$month = 4}
   elsif ($month == 'Jun') {$month = 5}
   elsif ($month == 'Jul') {$month = 6}
   elsif ($month == 'Aug') {$month = 7}
   elsif ($month == 'Sep') {$month = 8}
   elsif ($month == 'Oct') {$month = 9}
   elsif ($month == 'Nov') {$month = 10}
   else {$month = 11}
   # Calculate time on the log line in seconds
   $log_time = timelocal($sec,$min,$hhour,$day,$month,$year);

   if ($log_time >= $target) {
       push @refers, $referrer;
   }
   
}