#!/usr/bin/perl -w

$log=qr/(.*)\s+-\s+-\s+\[(\d+)\/(\w+)\/(\d+):(\d+):(\d+)/;

$log=qr/(\d+):(\d+):(\d+)\s+(\d+\.\d+\.\d+\.\d+)\s/ if $ARGV[2] eq 'iis';

$document=qr/report.html\?/;
$document2=qr/secret.html\?/;

# open the log file - the log file we want to check out
open(LOG, "<$ARGV[0]") || die("Could not open $ARGV[0] : $!");

# open our Report file - the file we will write out report to
open(REPORT, ">$ARGV[1]") || die("Could not open $ARGV[1] : $!");

while(<LOG>){
    if($_ =~ $document){
        ($ip, $day, $month, $year, $hr, $min) = ($_ =~ $log);
        $totaldoc++;
        print REPORT "Access on doc1 from: $ip on $month $day at $hr:$min\n";
    } elsif($document2){
        $totaldoc2++;
        print REPORT "Access on doc2 from: $ip on $month $day at $hr:$min\n";
    }
}

print REPORT "Total doc1: $totaldoc\n";
print REPORT "Total doc2: $totaldoc2\n";
close(LOG);
close(REPORT);