#!/usr/bin/perl

$temp=$ENV{'QUERY_STRING'};
@pairs=split(/&/,$temp);
foreach $item(@pairs) {
	($key,$content)=split (/=/,$item,2);
	$content=~tr/+/ /;
	$content=~ s/%(..)/pack("c",hex($1))/ge;
	$fields{$key}=$content;
}

#read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
#@pairs = split(/&/, $buffer);
#foreach $pair (@pairs) {
#	($name, $value) = split(/=/, $pair);
#	$value =~ tr/+/ /;
#	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#	if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}." ".$value; }
#	else { $INPUT{$name} = $value; };
#};
print "Location: http://click.top50.to/in?oldid=$fields{'ID'}\n\n";
exit;