psgi.pl (544:c4bbb14c5bdb) psgi.pl (581:b505e4d4f864)
1my $app = sub {
2 my ($environ) = @_;
3
4 my $len = int($environ->{'CONTENT_LENGTH'});
5 $environ->{'psgi.input'}->read(my $body, $len);
6
1my $app = sub {
2 my ($environ) = @_;
3
4 my $len = int($environ->{'CONTENT_LENGTH'});
5 $environ->{'psgi.input'}->read(my $body, $len);
6
7 my $version = join('', @{$environ->{'psgi.version'}});
8
7 return ['200', [
8 'Content-Type' => $environ->{'CONTENT_TYPE'},
9 'Content-Length' => $len,
10 'Request-Method' => $environ->{'REQUEST_METHOD'},
11 'Request-Uri' => $environ->{'REQUEST_URI'},
12 'Http-Host' => $environ->{'HTTP_HOST'},
13 'Server-Protocol' => $environ->{'SERVER_PROTOCOL'},
9 return ['200', [
10 'Content-Type' => $environ->{'CONTENT_TYPE'},
11 'Content-Length' => $len,
12 'Request-Method' => $environ->{'REQUEST_METHOD'},
13 'Request-Uri' => $environ->{'REQUEST_URI'},
14 'Http-Host' => $environ->{'HTTP_HOST'},
15 'Server-Protocol' => $environ->{'SERVER_PROTOCOL'},
14 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'}
16 'Custom-Header' => $environ->{'HTTP_CUSTOM_HEADER'},
17 'Psgi-Version' => $version,
18 'Psgi-Url-Scheme' => $environ->{'psgi.url_scheme'},
19 'Psgi-Multithread' => $environ->{'psgi.multithread'},
20 'Psgi-Multiprocess' => $environ->{'psgi.multiprocess'},
21 'Psgi-Run-Once' => $environ->{'psgi.run_once'},
22 'Psgi-Nonblocking' => $environ->{'psgi.nonblocking'},
23 'Psgi-Streaming' => $environ->{'psgi.streaming'}
15 ], [$body]];
16};
24 ], [$body]];
25};