head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2003.09.16.10.24.12;	author rse;	state Exp;
branches;
next	;


desc
@@


1.1
log
@flush pending First April Fool stuff
@
text
@#!/e/openpkg/sw/bin/perl

use IO;
use CGI;

#   switch to unbuffered I/O
$|++;

#  read HTML page
my $io = new IO::File "<index.html" || die;
my $html; { local $/ = undef; $html = <$io>; }
$io->close;

my $cgi = new CGI;

my $url = $cgi->param("url") || "/";
$url = "/" if ($url !~ m|^/.*|);

my $text = '';

my $count = $cgi->cookie('com') || 0;
if ($count > 0) {
    $text = "<blink><font color=\"#cc3333\"><b>Hey, it's unbelievable: you came back $count times!?<br>" .
            "Believe us, this is <u>really</u> just a fake, Dude!</blink></b></font>";
}

$html =~ s|%URL%|$url|sg;
$html =~ s|%TEXT%|$text|sg;

print STDOUT $cgi->header . $html;

exit(0);

@