#!/usr/local/bin/perl

$referer = $ENV{'HTTP_REFERER'};
$user = $ENV{'REMOTE_ADDR'};
$usercomp = $ENV{'REMOTE_HOST'};
$url = $ENV{'REDIRECT_URL'};
$gmt = gmtime(time);

print "Content-type: text/html\n\n";
if($url =~ m/jpg|gif/ig){
print "<img src=\"http://www.queenfans.com/none.gif\">";
}else{

print "<h1>Whoops!</h1><h3>$url</h3>That page does not exist. Please press your back button and try again.";

}

if($referer ne ''){
open(FILE2,">>public/404.txt");
print FILE2 "$url|$referer|$user|$usercomp|$gmt\n";
close(FILE2);
}