#! c:\apachefriends\xampp\perl\bin\perl.exe
wenn (Länge ($ENV {„QUERY_STRING“}) > 0) {
$buffer = $ENV {„QUERY_STRING“};
@pairs = spalteten auf sich (/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = spalten auf sich (/=/, $pair);
$value =~ s/% ([a-fA-F0-9] [a-fA-F0-9]) /pack („C“, Hexe ($1))/z.B.;
$in {$name} = $value;
}
}
Druck „Inhalt-Art: Text/HTML \ n \ n“;
Druck '
';
$id = $in {„Identifikation“};
$proxy = $in {„Vollmacht“};
$proxyport = $in {„proxyport“};
$proxyuser = $in {„proxyuser“};
$proxypass = $in {„proxypass“};
Druck ' SSL Javaviewer
';