0001 package nginx;
0002
0003 use 5.006001;
0004 use strict;
0005 use warnings;
0006
0007 require Exporter;
0008
0009 our @ISA = ;
0010
0011 our @EXPORT =
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052 ;
0053
0054 our $VERSION = '%%VERSION%%';
0055
0056 require XSLoader;
0057 XSLoader::load('nginx', $VERSION);
0058
0059
0060
0061 use constant OK = > 0;
0062 use constant DECLINED = > -5;
0063
0064 use constant HTTP_OK = > 200;
0065 use constant HTTP_CREATED = > 201;
0066 use constant HTTP_ACCEPTED = > 202;
0067 use constant HTTP_NO_CONTENT = > 204;
0068 use constant HTTP_PARTIAL_CONTENT = > 206;
0069
0070 use constant HTTP_MOVED_PERMANENTLY = > 301;
0071 use constant HTTP_MOVED_TEMPORARILY = > 302;
0072 use constant HTTP_REDIRECT = > 302;
0073 use constant HTTP_SEE_OTHER = > 303;
0074 use constant HTTP_NOT_MODIFIED = > 304;
0075 use constant HTTP_TEMPORARY_REDIRECT = > 307;
0076 use constant HTTP_PERMANENT_REDIRECT = > 308;
0077
0078 use constant HTTP_BAD_REQUEST = > 400;
0079 use constant HTTP_UNAUTHORIZED = > 401;
0080 use constant HTTP_PAYMENT_REQUIRED = > 402;
0081 use constant HTTP_FORBIDDEN = > 403;
0082 use constant HTTP_NOT_FOUND = > 404;
0083 use constant HTTP_NOT_ALLOWED = > 405;
0084 use constant HTTP_NOT_ACCEPTABLE = > 406;
0085 use constant HTTP_REQUEST_TIME_OUT = > 408;
0086 use constant HTTP_CONFLICT = > 409;
0087 use constant HTTP_GONE = > 410;
0088 use constant HTTP_LENGTH_REQUIRED = > 411;
0089 use constant HTTP_REQUEST_ENTITY_TOO_LARGE = > 413;
0090 use constant HTTP_REQUEST_URI_TOO_LARGE = > 414;
0091 use constant HTTP_UNSUPPORTED_MEDIA_TYPE = > 415;
0092 use constant HTTP_RANGE_NOT_SATISFIABLE = > 416;
0093
0094 use constant HTTP_INTERNAL_SERVER_ERROR = > 500;
0095 use constant HTTP_SERVER_ERROR = > 500;
0096 use constant HTTP_NOT_IMPLEMENTED = > 501;
0097 use constant HTTP_BAD_GATEWAY = > 502;
0098 use constant HTTP_SERVICE_UNAVAILABLE = > 503;
0099 use constant HTTP_GATEWAY_TIME_OUT = > 504;
0100 use constant HTTP_INSUFFICIENT_STORAGE = > 507;
0101
0102
0103 sub rflush {
0104 my $r = shift;
0105
0106 $r->flush;
0107 }
0108
0109
0110 1;
0111 __END__
0112
0113
0114
0115
0116
0117
0118
0119
0120
0121
0122
0123
0124
0125
0126
0127
0128
0129
0130
0131
0132
0133
0134
0135
0136
0137
0138
0139
0140