#!/usr/bin/perl
##############################################################################
# Redorect
$baseurl = "http://www.w10.ca/kayakdemer";
#############
&getcookie;
print "Location: $baseurl/cgi-bin2/wwwboard.pl?filter=$filter\n\n";
#&error($filter);
#################################
sub getcookie
{
$cookies=$ENV{'HTTP_COOKIE'};
@couples=split(/\; /,$cookies);
foreach $couple (@couples)
{
($cook_name,$cook_val)=split(/=/,$couple);
$cookies{$cook_name}=$cook_val;
}
$filter=$cookies{"filter"};
if(!($filter))
{
$filter = "active";
}
}
########
sub error
{
$error = $_[0];
print "Content-type: text/html\n\n";
print "