mirror of
https://github.com/crystalidea/qt6windows7.git
synced 2024-11-30 07:46:51 +08:00
12 lines
278 B
Plaintext
12 lines
278 B
Plaintext
|
#!/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;
|
||
|
|
|