#!/usr/bin/perl

    use strict;
    use warnings;

################################################################################
####[ scan the Apache log ]#####################################################
################################################################################
open FIN, "</var/log/apache/interiot/paperlined.org-combined.log" or die;
seek(FIN, -10*1024*1024, 2);     # `tail`
$_ = <FIN>;  # skip first (cut in half) line

while (<FIN>) {
    next unless /cheating_simple\.html/;
    next if /^99\.140\.212\.193/;
    next if /^99\.73\.158\.62/;
    next if m#GET /favicon.ico#;
    my $useragent = (split /"/, $_)[5];

    next if ($useragent =~ /bitlybot|Baiduspider|Googlebot|Yahoo! Slurp|cuil\.com|Gigabot|puritysearch\.net|CatchBot/);
    print;
}


################################################################################
####[ confirm my hacked link is still on the highscore list ]###################
################################################################################
open PIN, "w3m 'http://www.gmhighscores.com/highscores.php?gameid=735'|" or die;
my $link_found;
while (<PIN>) {
    if (m#http://is.gd/bGomC.*123456#)  {
        $link_found++;
        last;
    }
}

if ($link_found) {
    print "\nLINK:  They haven't deleted it yet.\n";
} else {
    print "\nTHE HIGHSCORE LINK HAS BEEN DELETED.\n";
}