mirror of
https://github.com/clearlinux/uwsgi.git
synced 2026-09-06 13:41:28 +00:00
9 lines
309 B
Perl
9 lines
309 B
Perl
my $app = sub {
|
|
my ($env) = @_;
|
|
my $orig = $env->{QUERY_STRING};
|
|
if ($env->{CONTENT_LENGTH} > 0) {
|
|
$env->{'psgi.input'}->read($orig, $env->{CONTENT_LENGTH}, $env->{HTTP_UWSGI_OFFSET});
|
|
}
|
|
return [ 200, ['Content-Type' => 'text/plain'], [$orig."\n"]];
|
|
};
|