blob: fea9e1263613661cad36df3527dbe5e4043681cf [file] [log] [blame]
#!/usr/bin/perl -w
print "Content-type: text/plain\n\n";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $request, $ENV{'CONTENT_LENGTH'})
|| die "Could not get query\n";
print $request;
} else {
print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n";
}