mirror of
https://github.com/nginx/nginx.git
synced 2025-06-07 17:52:38 +08:00
da173abde0
*) Change in internal API: the HTTP modules initialization was moved
from the init module phase to the HTTP postconfiguration phase.
*) Change: now the request body is not read beforehand for the
ngx_http_perl_module: it's required to start the reading using the
$r->has_request_body method.
*) Feature: the ngx_http_perl_module supports the DECLINED return code.
*) Feature: the ngx_http_dav_module supports the incoming "Date" header
line for the PUT method.
*) Feature: the "ssi" directive is available inside the "if" block.
*) Bugfix: a segmentation fault occurred if there was an "index"
directive with variables and the first index name was without
variables; the bug had appeared in 0.1.29.
66 lines
943 B
Perl
66 lines
943 B
Perl
package nginx;
|
|
|
|
use 5.006001;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require Exporter;
|
|
|
|
our @ISA = qw(Exporter);
|
|
|
|
our @EXPORT = qw(
|
|
OK
|
|
DECLINED
|
|
HTTP_OK
|
|
HTTP_REDIRECT
|
|
HTTP_NOT_FOUND
|
|
HTTP_SERVER_ERROR
|
|
);
|
|
|
|
our $VERSION = '0.4.0';
|
|
|
|
require XSLoader;
|
|
XSLoader::load('nginx', $VERSION);
|
|
|
|
# Preloaded methods go here.
|
|
|
|
use constant OK => 0;
|
|
use constant DECLINED => -5;
|
|
|
|
use constant HTTP_OK => 200;
|
|
use constant HTTP_REDIRECT => 302;
|
|
use constant HTTP_NOT_FOUND => 404;
|
|
use constant HTTP_SERVER_ERROR => 500;
|
|
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
nginx - Perl interface to the nginx HTTP server API
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use nginx;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module provides a Perl interface to the nginx HTTP server API.
|
|
|
|
|
|
=head1 SEE ALSO
|
|
|
|
http://sysoev.ru/nginx/docs/http/ngx_http_perl_module.html
|
|
|
|
=head1 AUTHOR
|
|
|
|
Igor Sysoev
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
Copyright (C) Igor Sysoev
|
|
|
|
|
|
=cut
|