mirror of
https://github.com/WordPress/WordPress.git
synced 2024-12-23 01:27:36 +01:00
b43564cb29
git-svn-id: http://svn.automattic.com/wordpress/trunk@3 1a063a9b-81f0-0310-95a4-ce76da25c4cd
42 lines
666 B
Perl
42 lines
666 B
Perl
#!/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;
|
|
|