Mercurial > hg > nginx-ranges
comparison src/http/modules/perl/ngx_http_perl_module.h @ 148:ea622d8acb38 NGINX_0_3_21
nginx 0.3.21
*) Feature: the ngx_http_perl_module.
*) Change: the "valid_referers" directive allows the referreres without
URI part.
author | Igor Sysoev <http://sysoev.ru> |
---|---|
date | Mon, 16 Jan 2006 00:00:00 +0300 |
parents | |
children | fef68f68bcfd |
comparison
equal
deleted
inserted
replaced
147:d1b9f90d95f6 | 148:ea622d8acb38 |
---|---|
1 | |
2 /* | |
3 * Copyright (C) Igor Sysoev | |
4 */ | |
5 | |
6 | |
7 #ifndef _NGX_HTTP_PERL_MODULE_H_INCLUDED_ | |
8 #define _NGX_HTTP_PERL_MODULE_H_INCLUDED_ | |
9 | |
10 | |
11 #include <ngx_config.h> | |
12 #include <ngx_core.h> | |
13 #include <ngx_http.h> | |
14 | |
15 #include <EXTERN.h> | |
16 #include <perl.h> | |
17 | |
18 | |
19 typedef ngx_http_request_t *nginx; | |
20 | |
21 typedef struct { | |
22 PerlInterpreter *perl; | |
23 | |
24 char *filename; | |
25 | |
26 ngx_str_t redirect_uri; | |
27 ngx_str_t redirect_args; | |
28 | |
29 ngx_http_ssi_ctx_t *ssi; | |
30 } ngx_http_perl_ctx_t; | |
31 | |
32 | |
33 extern ngx_module_t ngx_http_perl_module; | |
34 | |
35 | |
36 /* | |
37 * workaround for "unused variable `Perl___notused'" warning | |
38 * when building with perl 5.6.1 | |
39 */ | |
40 #ifndef PERL_IMPLICIT_CONTEXT | |
41 #undef dTHXa | |
42 #define dTHXa(a) | |
43 #endif | |
44 | |
45 | |
46 extern void boot_DynaLoader (pTHX_ CV* cv); | |
47 | |
48 | |
49 #endif /* _NGX_HTTP_PERL_MODULE_H_INCLUDED_ */ |