blob: 58fc8a559d375a89613698d32885a9526000af70 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
package nginx;
use 5.006001;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(
OK
DECLINED
HTTP_OK
HTTP_CREATED
HTTP_NO_CONTENT
HTTP_PARTIAL_CONTENT
HTTP_MOVED_PERMANENTLY
HTTP_MOVED_TEMPORARILY
HTTP_REDIRECT
HTTP_NOT_MODIFIED
HTTP_BAD_REQUEST
HTTP_UNAUTHORIZED
HTTP_PAYMENT_REQUIRED
HTTP_FORBIDDEN
HTTP_NOT_FOUND
HTTP_NOT_ALLOWED
HTTP_NOT_ACCEPTABLE
HTTP_REQUEST_TIME_OUT
HTTP_CONFLICT
HTTP_GONE
HTTP_LENGTH_REQUIRED
HTTP_REQUEST_ENTITY_TOO_LARGE
HTTP_REQUEST_URI_TOO_LARGE
HTTP_UNSUPPORTED_MEDIA_TYPE
HTTP_RANGE_NOT_SATISFIABLE
HTTP_INTERNAL_SERVER_ERROR
HTTP_SERVER_ERROR
HTTP_NOT_IMPLEMENTED
HTTP_BAD_GATEWAY
HTTP_SERVICE_UNAVAILABLE
HTTP_GATEWAY_TIME_OUT
HTTP_INSUFFICIENT_STORAGE
);
our $VERSION = '0.7.7';
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_CREATED => 201;
use constant HTTP_NO_CONTENT => 204;
use constant HTTP_PARTIAL_CONTENT => 206;
use constant HTTP_MOVED_PERMANENTLY => 301;
use constant HTTP_MOVED_TEMPORARILY => 302;
use constant HTTP_REDIRECT => 302;
use constant HTTP_NOT_MODIFIED => 304;
use constant HTTP_BAD_REQUEST => 400;
use constant HTTP_UNAUTHORIZED => 401;
use constant HTTP_PAYMENT_REQUIRED => 402;
use constant HTTP_FORBIDDEN => 403;
use constant HTTP_NOT_FOUND => 404;
use constant HTTP_NOT_ALLOWED => 405;
use constant HTTP_NOT_ACCEPTABLE => 406;
use constant HTTP_REQUEST_TIME_OUT => 408;
use constant HTTP_CONFLICT => 409;
use constant HTTP_GONE => 410;
use constant HTTP_LENGTH_REQUIRED => 411;
use constant HTTP_REQUEST_ENTITY_TOO_LARGE => 413;
use constant HTTP_REQUEST_URI_TOO_LARGE => 414;
use constant HTTP_UNSUPPORTED_MEDIA_TYPE => 415;
use constant HTTP_RANGE_NOT_SATISFIABLE => 416;
use constant HTTP_INTERNAL_SERVER_ERROR => 500;
use constant HTTP_SERVER_ERROR => 500;
use constant HTTP_NOT_IMPLEMENTED => 501;
use constant HTTP_BAD_GATEWAY => 502;
use constant HTTP_SERVICE_UNAVAILABLE => 503;
use constant HTTP_GATEWAY_TIME_OUT => 504;
use constant HTTP_INSUFFICIENT_STORAGE => 507;
sub rflush {
my $r = shift;
$r->flush;
}
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
|
