1
0
angie-conv-image/doc/examples/perl/site/ngx_env.pm

22 lines
253 B
Perl
Raw Permalink Normal View History

2024-09-20 01:27:15 +03:00
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__