#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "";
if($ENV{HTTP_REFERER} =~ /game-over.net/)
{
print "";
print "";
}
else
{
open(F_BAD, ">>/home/fkrueger/www/cgi-bin/bad.dat");
print F_BAD "$ENV{REMOTE_HOST} - $ENV{HTTP_REFERER}\n";
close(F_BAD);
print "pop is not bad - $ENV{HTTP_REFERER}";
}
open(F_ACCEPT, ">>accept.log");
print F_ACCEPT "$ENV{HTTP_USER_AGENT}:::$ENV{HTTP_ACCEPT}\n";
close(F_ACCEPT);
print "";