#!/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 "<br><br><center>|$error|\n";
  print "<br><br><a href=\"javascript\:history.go\(-1\)\">[ Retour au formulaire ]</a></center>\n";
  exit;
}