|
148
|
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
|
|
266
|
14
|
|
148
|
15 HTTP_OK
|
|
266
|
16 HTTP_CREATED
|
|
578
|
17 HTTP_ACCEPTED
|
|
266
|
18 HTTP_NO_CONTENT
|
|
|
19 HTTP_PARTIAL_CONTENT
|
|
|
20
|
|
|
21 HTTP_MOVED_PERMANENTLY
|
|
|
22 HTTP_MOVED_TEMPORARILY
|
|
148
|
23 HTTP_REDIRECT
|
|
664
|
24 HTTP_SEE_OTHER
|
|
266
|
25 HTTP_NOT_MODIFIED
|
|
664
|
26 HTTP_TEMPORARY_REDIRECT
|
|
266
|
27
|
|
|
28 HTTP_BAD_REQUEST
|
|
|
29 HTTP_UNAUTHORIZED
|
|
|
30 HTTP_PAYMENT_REQUIRED
|
|
|
31 HTTP_FORBIDDEN
|
|
148
|
32 HTTP_NOT_FOUND
|
|
266
|
33 HTTP_NOT_ALLOWED
|
|
|
34 HTTP_NOT_ACCEPTABLE
|
|
|
35 HTTP_REQUEST_TIME_OUT
|
|
|
36 HTTP_CONFLICT
|
|
|
37 HTTP_GONE
|
|
|
38 HTTP_LENGTH_REQUIRED
|
|
|
39 HTTP_REQUEST_ENTITY_TOO_LARGE
|
|
|
40 HTTP_REQUEST_URI_TOO_LARGE
|
|
|
41 HTTP_UNSUPPORTED_MEDIA_TYPE
|
|
|
42 HTTP_RANGE_NOT_SATISFIABLE
|
|
|
43
|
|
|
44 HTTP_INTERNAL_SERVER_ERROR
|
|
148
|
45 HTTP_SERVER_ERROR
|
|
266
|
46 HTTP_NOT_IMPLEMENTED
|
|
|
47 HTTP_BAD_GATEWAY
|
|
|
48 HTTP_SERVICE_UNAVAILABLE
|
|
|
49 HTTP_GATEWAY_TIME_OUT
|
|
|
50 HTTP_INSUFFICIENT_STORAGE
|
|
148
|
51 );
|
|
|
52
|
|
672
|
53 our $VERSION = '1.2.0';
|
|
148
|
54
|
|
|
55 require XSLoader;
|
|
|
56 XSLoader::load('nginx', $VERSION);
|
|
|
57
|
|
|
58 # Preloaded methods go here.
|
|
|
59
|
|
266
|
60 use constant OK => 0;
|
|
|
61 use constant DECLINED => -5;
|
|
|
62
|
|
|
63 use constant HTTP_OK => 200;
|
|
|
64 use constant HTTP_CREATED => 201;
|
|
578
|
65 use constant HTTP_ACCEPTED => 202;
|
|
266
|
66 use constant HTTP_NO_CONTENT => 204;
|
|
|
67 use constant HTTP_PARTIAL_CONTENT => 206;
|
|
|
68
|
|
|
69 use constant HTTP_MOVED_PERMANENTLY => 301;
|
|
|
70 use constant HTTP_MOVED_TEMPORARILY => 302;
|
|
|
71 use constant HTTP_REDIRECT => 302;
|
|
664
|
72 use constant HTTP_SEE_OTHER => 303;
|
|
266
|
73 use constant HTTP_NOT_MODIFIED => 304;
|
|
664
|
74 use constant HTTP_TEMPORARY_REDIRECT => 307;
|
|
148
|
75
|
|
266
|
76 use constant HTTP_BAD_REQUEST => 400;
|
|
|
77 use constant HTTP_UNAUTHORIZED => 401;
|
|
|
78 use constant HTTP_PAYMENT_REQUIRED => 402;
|
|
|
79 use constant HTTP_FORBIDDEN => 403;
|
|
|
80 use constant HTTP_NOT_FOUND => 404;
|
|
|
81 use constant HTTP_NOT_ALLOWED => 405;
|
|
|
82 use constant HTTP_NOT_ACCEPTABLE => 406;
|
|
|
83 use constant HTTP_REQUEST_TIME_OUT => 408;
|
|
|
84 use constant HTTP_CONFLICT => 409;
|
|
|
85 use constant HTTP_GONE => 410;
|
|
|
86 use constant HTTP_LENGTH_REQUIRED => 411;
|
|
|
87 use constant HTTP_REQUEST_ENTITY_TOO_LARGE => 413;
|
|
|
88 use constant HTTP_REQUEST_URI_TOO_LARGE => 414;
|
|
|
89 use constant HTTP_UNSUPPORTED_MEDIA_TYPE => 415;
|
|
|
90 use constant HTTP_RANGE_NOT_SATISFIABLE => 416;
|
|
|
91
|
|
|
92 use constant HTTP_INTERNAL_SERVER_ERROR => 500;
|
|
|
93 use constant HTTP_SERVER_ERROR => 500;
|
|
|
94 use constant HTTP_NOT_IMPLEMENTED => 501;
|
|
|
95 use constant HTTP_BAD_GATEWAY => 502;
|
|
|
96 use constant HTTP_SERVICE_UNAVAILABLE => 503;
|
|
|
97 use constant HTTP_GATEWAY_TIME_OUT => 504;
|
|
|
98 use constant HTTP_INSUFFICIENT_STORAGE => 507;
|
|
148
|
99
|
|
|
100
|
|
298
|
101 sub rflush {
|
|
|
102 my $r = shift;
|
|
|
103
|
|
|
104 $r->flush;
|
|
|
105 }
|
|
|
106
|
|
|
107
|
|
148
|
108 1;
|
|
|
109 __END__
|
|
|
110
|
|
|
111 =head1 NAME
|
|
|
112
|
|
|
113 nginx - Perl interface to the nginx HTTP server API
|
|
|
114
|
|
|
115 =head1 SYNOPSIS
|
|
|
116
|
|
|
117 use nginx;
|
|
|
118
|
|
|
119 =head1 DESCRIPTION
|
|
|
120
|
|
|
121 This module provides a Perl interface to the nginx HTTP server API.
|
|
|
122
|
|
|
123
|
|
|
124 =head1 SEE ALSO
|
|
|
125
|
|
|
126 http://sysoev.ru/nginx/docs/http/ngx_http_perl_module.html
|
|
|
127
|
|
|
128 =head1 AUTHOR
|
|
|
129
|
|
|
130 Igor Sysoev
|
|
|
131
|
|
|
132 =head1 COPYRIGHT AND LICENSE
|
|
|
133
|
|
|
134 Copyright (C) Igor Sysoev
|
|
660
|
135 Copyright (C) Nginx, Inc.
|
|
148
|
136
|
|
|
137
|
|
|
138 =cut
|
