#!/usr/bin/perl

#
#  REF: resooclick.pl
#  ResooSite v.0.9.5 -(p)Resoo 2002-2003
#  (c)2003 - pascal blain / GNU GPL - General Public License
#  http://www.resoo.org/resoosite
#  pascal@resoo.org
#

## usage: ########################################################
# <FORM METHOD="post" ACTION="resooclick.pl">
# <SELECT NAME="goto" SIZE="1">
# <OPTION>choisir la rubrique...</OPTION>
# <OPTION VALUE="www.resoo.com/index.html">- Homepage</OPTION>
# </SELECT>
# <INPUT TYPE="submit" value="OK"><BR>
##################################################################

# $domain = "http://www.resoo.com";
require "resooconf.pl";


&FormInput(*input);

if($input{'goto'} eq "")
   {
	print ("Location: $domain/\n\n");
   }
else
    {
	print ("Location: $input{'goto'}\n\n");
    }

exit;

sub FormInput
{
local (*qs) = @_ if @_;

if ($ENV{'REQUEST_METHOD'} eq "GET")
        {
        $qs = $ENV{'QUERY_STRING'};
        }
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
        {
        read(STDIN,$qs,$ENV{'CONTENT_LENGTH'});
        }

@qs = split(/&/,$qs);

foreach $i (0 .. $#qs)
        {
        $qs[$i] =~ s/\+/ /g;
        $qs[$i] =~ s/%(..)/pack("c",hex($1))/ge;

        ($name,$value) = split(/=/,$qs[$i],2);

        if($qs{$name} ne "")
                {
                $qs{$name} = "$qs{$name}:$value";
                }
        else
                {
                $qs{$name} = $value;
                }
        }

return 1;
}