nicht angemeldet
Hallo,
könnte jemand schauen ob in diesem Perlscript ein Fehler vorliegt?!:
#!/usr/bin/perl
if($ENV{'REQUEST_METHOD'} eq 'GET')
{
$Daten = $ENV{'QUERY_STRING'}
}
else
{
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
}
print "Content-type: text/html\n\n";
print "<html><head><title>Willkommen</title>\n";
@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/<!--(.|\n)*-->//g;
$Formular{$name} = $name;
$Formular{$value} = $value;
}
print "<script language='JavaScript'> Ziel ='";
print "$Formular{$name}";
print "'
</script>
<script language='JavaScript'>
location.href='http://'+Ziel
</script>
</head>
<body>
</body>
</html>\n";
Danke!
Gruß
Tom