WordPress/sproxy.pl

42 lines
666 B
Perl
Raw Normal View History

#!/usr/bin/perl
print "Content-type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} ne 'POST')
{
print <<"HTML";
<HTML>
<BODY>
only method POST is supported here.
</BODY>
</HTML>
HTML
exit;
}
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print $value;
if($name eq "f")
{
print "<textarea name=TextBox1>"
}
if($name eq "g")
{
print "</textarea><textarea name=TextBox2>"
}
if($name eq "h")
{
print "</textarea>"
}
}
exit;