#!c:\apachefriends\xampp\perl\bin\perl.exe if (length ($ENV{'QUERY_STRING'}) > 0){ $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } } print "Content-type: text/html\n\n"; print ' '; $id = $in{'id'}; $proxy = $in{'proxy'}; $proxyport = $in{'proxyport'}; $proxyuser = $in{'proxyuser'}; $proxypass = $in{'proxypass'}; print ' SSL Javaviewer '; print ''; print ''; print ''; print ''; print ' ';