Mercurial > hg > nginx-vendor-0-7
comparison src/http/modules/perl/nginx.pm @ 148:ea622d8acb38 NGINX_0_3_21
nginx 0.3.21
*) Feature: the ngx_http_perl_module.
*) Change: the "valid_referers" directive allows the referreres without
URI part.
author | Igor Sysoev <http://sysoev.ru> |
---|---|
date | Mon, 16 Jan 2006 00:00:00 +0300 |
parents | |
children | 50bd986c5d63 |
comparison
equal
deleted
inserted
replaced
147:d1b9f90d95f6 | 148:ea622d8acb38 |
---|---|
1 package nginx; | |
2 | |
3 use 5.006001; | |
4 use strict; | |
5 use warnings; | |
6 | |
7 require Exporter; | |
8 | |
9 our @ISA = qw(Exporter); | |
10 | |
11 our @EXPORT = qw( | |
12 OK | |
13 DECLINED | |
14 HTTP_OK | |
15 HTTP_REDIRECT | |
16 HTTP_NOT_FOUND | |
17 HTTP_SERVER_ERROR | |
18 ); | |
19 | |
20 our $VERSION = '0.3.21'; | |
21 | |
22 require XSLoader; | |
23 XSLoader::load('nginx', $VERSION); | |
24 | |
25 # Preloaded methods go here. | |
26 | |
27 use constant OK => 0; | |
28 use constant DECLINED => -5; | |
29 | |
30 use constant HTTP_OK => 200; | |
31 use constant HTTP_REDIRECT => 302; | |
32 use constant HTTP_NOT_FOUND => 404; | |
33 use constant HTTP_SERVER_ERROR => 500; | |
34 | |
35 | |
36 1; | |
37 __END__ | |
38 | |
39 =head1 NAME | |
40 | |
41 nginx - Perl interface to the nginx HTTP server API | |
42 | |
43 =head1 SYNOPSIS | |
44 | |
45 use nginx; | |
46 | |
47 =head1 DESCRIPTION | |
48 | |
49 This module provides a Perl interface to the nginx HTTP server API. | |
50 | |
51 =head2 EXPORT | |
52 | |
53 None by default. | |
54 | |
55 | |
56 | |
57 =head1 SEE ALSO | |
58 | |
59 http://sysoev.ru/nginx/docs/http/ngx_http_perl_module.html | |
60 | |
61 =head1 AUTHOR | |
62 | |
63 Igor Sysoev | |
64 | |
65 =head1 COPYRIGHT AND LICENSE | |
66 | |
67 Copyright (C) Igor Sysoev | |
68 | |
69 | |
70 =cut |