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


1.1
date	2003.09.16.10.24.11;	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;

my $cgi = new CGI;

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

my $cookies = [];
push(@@{$cookies}, $cgi->cookie(
    -name => "com",
    -value => "april1",
    -expires => '+7d',
    -domain => ".openpkg.org",
    -secure => 0
));

print STDOUT 
    "URI: http://www.openpkg.org$url\n" .
    "Location: http://www.openpkg.org$url\n" .
    $cgi->header(-cookie => $cookies, -expires => '+1s');

exit(0);

@