Return to nginx.pm CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / nginx / src / http / modules / perl

Annotation of embedaddon/nginx/src/http/modules/perl/nginx.pm, revision 1.1.1.1

1.1       misho       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: 
                     15:     HTTP_OK
                     16:     HTTP_CREATED
                     17:     HTTP_ACCEPTED
                     18:     HTTP_NO_CONTENT
                     19:     HTTP_PARTIAL_CONTENT
                     20: 
                     21:     HTTP_MOVED_PERMANENTLY
                     22:     HTTP_MOVED_TEMPORARILY
                     23:     HTTP_REDIRECT
                     24:     HTTP_SEE_OTHER
                     25:     HTTP_NOT_MODIFIED
                     26:     HTTP_TEMPORARY_REDIRECT
                     27: 
                     28:     HTTP_BAD_REQUEST
                     29:     HTTP_UNAUTHORIZED
                     30:     HTTP_PAYMENT_REQUIRED
                     31:     HTTP_FORBIDDEN
                     32:     HTTP_NOT_FOUND
                     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
                     45:     HTTP_SERVER_ERROR
                     46:     HTTP_NOT_IMPLEMENTED
                     47:     HTTP_BAD_GATEWAY
                     48:     HTTP_SERVICE_UNAVAILABLE
                     49:     HTTP_GATEWAY_TIME_OUT
                     50:     HTTP_INSUFFICIENT_STORAGE
                     51: );
                     52: 
                     53: our $VERSION = '%%VERSION%%';
                     54: 
                     55: require XSLoader;
                     56: XSLoader::load('nginx', $VERSION);
                     57: 
                     58: # Preloaded methods go here.
                     59: 
                     60: use constant OK                             => 0;
                     61: use constant DECLINED                       => -5;
                     62: 
                     63: use constant HTTP_OK                        => 200;
                     64: use constant HTTP_CREATED                   => 201;
                     65: use constant HTTP_ACCEPTED                  => 202;
                     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;
                     72: use constant HTTP_SEE_OTHER                 => 303;
                     73: use constant HTTP_NOT_MODIFIED              => 304;
                     74: use constant HTTP_TEMPORARY_REDIRECT        => 307;
                     75: 
                     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;
                     99: 
                    100: 
                    101: sub rflush {
                    102:     my $r = shift;
                    103: 
                    104:     $r->flush;
                    105: }
                    106: 
                    107: 
                    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://nginx.org/en/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
                    135: Copyright (C) Nginx, Inc.
                    136: 
                    137: 
                    138: =cut