mirror of
https://github.com/crystalidea/qt6windows7.git
synced 2024-11-23 20:10:48 +08:00
12 lines
278 B
Perl
12 lines
278 B
Perl
#!/usr/bin/perl
|
|
|
|
if ($ENV{'REQUEST_METHOD'} eq "GET") {
|
|
$request = $ENV{'QUERY_STRING'};
|
|
} elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
|
|
read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) || die "Could not get query\n";
|
|
}
|
|
|
|
print "Content-type: text/plain\n\n";
|
|
print $request;
|
|
|