#!/usr/local/bin/perl
# Randomize time delay
srand($$);
$delay = rand(5) + 2;
#if (($ENV{'HTTP_REFERER'}) =~ /everyday.se/) {
# print "Status: 200 Denied\n";
# print "Content-type: text/html\n\n";
#
# print "Denied";
# exit;
#}
if (($ENV{'HTTP_USER_AGENT'} =~ m#Mozilla/1.[^0]#) || ($ENV{'HTTP_USER_AGENT'} =~ m#Mozilla/[234].#)) {
print "Status: 200 Black Hole\n";
print "Content-type: text/html\n\n";
print qq|\n|;
print qq|Black Hole of the Web\n|;
if ($ENV{'QUERY_STRING'} <= 5) {
$number = $ENV{'QUERY_STRING'} + 1;
print qq|\n|;
# print "Refresh: 0; URL=http://www.ravenna.com/blackhole.cgi?$number\n\n";
}
else {
$number = $ENV{'QUERY_STRING'} + 1;
print qq|\n|;
# print "Refresh: $delay; URL=http://www.ravenna.com/blackhole.cgi?$number\n\n";
}
print qq|\n|;
print qq|\n| if ($number >= 6);
print qq|\n| if ($number == 5);
print qq|\n| if ($number == 4);
print qq|\n| if ($number == 3);
if ($number == 8) { print "We warned you
\n"; }
#if ($number == 8) { print "Hi there
\n"; }
if ($number == 10) { print "You had to go in
\n"; }
#if ($number == 10) { print "Did you arrive here from a chat room?
\n"; }
if ($number == 12) { print "I hope you're happy now
\n"; }
#if ($number == 12) { print "If so, then someone chatting with you sent you here
\n"; }
if ($number == 14) { print "It's lonely here, isn't it?
\n"; }
#if ($number == 14) { print "It's not our fault...they could have just as easily sent you to the White House home page
\n"; }
if ($number == 16) { print "This space for rent
\n"; }
#if ($number == 16) { print "Now wouldn't that be MORE boring?
\n"; }
if ($number == 18) { print "I bet you wish this would stop
\n"; }
if ($number == 20) { print "You still here?
\n"; }
if ($number == 22) { print "Move along...there is nothing to see here
\n"; }
print qq|\n|;
}
else {
print "Status: 200 Black Hole\n";
print "Content-type: text/html\n\n";
print qq|Black Hole of the Web\n|;
print qq|Sorry, you need to use Netscape Navigator v1.1 or later to get stuck in the Black Hole. I guess you're safe!\n|;
print qq|\n|;
print qq|If you haven't tried version 1.1 yet, you can find out more |;
print qq|here.\n|;
}