#! c:\apachefriends\xampp\perl\bin\perl.exe
als (lengte ($ENV {„QUERY_STRING“}) > 0) {
$buffer = $ENV {„QUERY_STRING“};
@pairs = verdeel (/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = verdeel (/=/, $pair);
$value =~ s/% ([a-FA-F0-9] [a-FA-F0-9]) /pack („C“, hexuitdraai ($1))/b.v.;
$in {$name} = $value;
}
}
druk „tevreden-Type: tekst/HTML \ n \ n“;
druk '
';
$id = $in {„identiteitskaart“};
$proxy = $in {„volmacht“};
$proxyport = $in {„proxyport“};
$proxyuser = $in {„proxyuser“};
$proxypass = $in {„proxypass“};
druk ' SSL Javaviewer
'positie
';