#!/usr/bin/perl
######################################################################
# Zuweisung der notwendigen Perlmodule
######################################################################
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
######################################################################
 sub parse_input  {
	local $buffer;
	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else {
		$buffer = $ENV{'QUERY_STRING'};
	}
	local $pair;
      local @pairs = split(/&/, $buffer);
      foreach $pair (@pairs)
      {
        ($name, $value) = split(/=/, $pair);
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FIELD{$name} = $value;
#        $value =~ s/\cM|\n|\r\n|\|//g;
        if ($FORM{$name}) {$FORM{$name} .= ",$value";}
        else {$FORM{$name} = $value;}
      }
 }
######################################################################
&parse_input;
#$ziel = "http://pp3.kmo1.de/go.php?paid=$FORM{'pa'}&subcode=$FORM{'subcode'}";
$ziel = "http://www.partneranmeldung.sex-click.com/go.php?paid=$FORM{'pa'}&subcode=$FORM{'subcode'}";
print "Location: $ziel\n\n";
exit;