Back to home page

Nginx displayed by LXR

Source navigation ]
Diff markup ]
Identifier search ]
general search ]
 
 
Version: nginx-1.15.12 ]​[ nginx-1.16.0 ]​

0001 
0002 /*
0003  * Copyright (C) Igor Sysoev
0004  * Copyright (C) Nginx, Inc.
0005  */
0006 
0007 
0008 #ifndef _NGX_HTTP_PERL_MODULE_H_INCLUDED_
0009 #define _NGX_HTTP_PERL_MODULE_H_INCLUDED_
0010 
0011 
0012 #include <ngx_config.h>
0013 #include <ngx_core.h>
0014 #include <ngx_http.h>
0015 #include <nginx.h>
0016 
0017 #include <EXTERN.h>
0018 #include <perl.h>
0019 
0020 
0021 typedef ngx_http_request_t   *nginx;
0022 
0023 typedef struct {
0024     ngx_str_t                 filename;
0025     ngx_str_t                 redirect_uri;
0026     ngx_str_t                 redirect_args;
0027 
0028     SV                       *next;
0029 
0030     ngx_uint_t                done;       /* unsigned  done:1; */
0031 
0032     ngx_array_t              *variables;  /* array of ngx_http_perl_var_t */
0033 
0034 #if (NGX_HTTP_SSI)
0035     ngx_http_ssi_ctx_t       *ssi;
0036 #endif
0037 } ngx_http_perl_ctx_t;
0038 
0039 
0040 typedef struct {
0041     ngx_uint_t    hash;
0042     ngx_str_t     name;
0043     ngx_str_t     value;
0044 } ngx_http_perl_var_t;
0045 
0046 
0047 extern ngx_module_t  ngx_http_perl_module;
0048 
0049 
0050 /*
0051  * workaround for "unused variable `Perl___notused'" warning
0052  * when building with perl 5.6.1
0053  */
0054 #ifndef PERL_IMPLICIT_CONTEXT
0055 #undef  dTHXa
0056 #define dTHXa(a)
0057 #endif
0058 
0059 
0060 extern void boot_DynaLoader(pTHX_ CV* cv);
0061 
0062 
0063 void ngx_http_perl_handle_request(ngx_http_request_t *r);
0064 void ngx_http_perl_sleep_handler(ngx_http_request_t *r);
0065 
0066 
0067 #endif /* _NGX_HTTP_PERL_MODULE_H_INCLUDED_ */