22 lines
253 B
Perl
22 lines
253 B
Perl
|
package ngx_env;
|
||
|
|
|
||
|
|
use nginx;
|
||
|
|
|
||
|
|
sub report {
|
||
|
|
my $r = shift;
|
||
|
|
|
||
|
|
my $s = "";
|
||
|
|
for (sort keys %ENV) {
|
||
|
|
$s = $s . "$_=$ENV{$_}\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
$r->discard_request_body;
|
||
|
|
$r->send_http_header;
|
||
|
|
$r->print($s);
|
||
|
|
|
||
|
|
return OK;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
__END__
|