#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'} eq 'GET')
{
$Daten = $ENV{'QUERY_STRING'}
}
else
{
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
}
@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$Formular[$i] = $name;
$i = $i + 1;
$Formular[$i] = $value;
$i = $i + 1;
}
if ($Formular[0] eq "Ziel")
{
$Ziel = $Formular[1];
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "dive2paradise.de\n";
print '', "\n";
print '', "\n";
print '\n";
print "<![CDATA[Ihr Browser unterstützt leider keine Frames!]]>";
print "\n";
print "";
print "\n";
print "\n";
print "\n";
}
else
{
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "Advent\n";
print '', "\n";
print '', "\n";
print '';
print "\n";
print "\n";
print 'Sollten Sie nicht automatisch weitergeleitet werden klicken Sie bitte hier
', "\n";
print "\n";
print "\n";
}