mirror of
https://github.com/nginx/nginx.git
synced 2026-09-21 20:34:13 +00:00
9bf11aa193
*) Feature: the ngx_http_perl_module.
*) Change: the "valid_referers" directive allows the referreres without
URI part.
70 lines
978 B
Perl
70 lines
978 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.3.21';
|
|
|
|
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.
|
|
|
|
=head2 EXPORT
|
|
|
|
None by default.
|
|
|
|
|
|
|
|
=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
|