2006-01-16 22:56:53 +08:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Copyright (C) Igor Sysoev
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef _NGX_HTTP_PERL_MODULE_H_INCLUDED_
|
|
|
|
#define _NGX_HTTP_PERL_MODULE_H_INCLUDED_
|
|
|
|
|
|
|
|
|
|
|
|
#include <ngx_config.h>
|
|
|
|
#include <ngx_core.h>
|
|
|
|
#include <ngx_http.h>
|
|
|
|
|
|
|
|
#include <EXTERN.h>
|
|
|
|
#include <perl.h>
|
|
|
|
|
|
|
|
|
|
|
|
typedef ngx_http_request_t *nginx;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
PerlInterpreter *perl;
|
|
|
|
|
2006-04-14 17:53:38 +08:00
|
|
|
ngx_str_t filename;
|
2006-01-16 22:56:53 +08:00
|
|
|
ngx_str_t redirect_uri;
|
|
|
|
ngx_str_t redirect_args;
|
|
|
|
|
2006-02-23 03:41:39 +08:00
|
|
|
#if (NGX_HTTP_SSI)
|
2006-01-16 22:56:53 +08:00
|
|
|
ngx_http_ssi_ctx_t *ssi;
|
2006-02-23 03:41:39 +08:00
|
|
|
#endif
|
2006-01-16 22:56:53 +08:00
|
|
|
} ngx_http_perl_ctx_t;
|
|
|
|
|
|
|
|
|
|
|
|
extern ngx_module_t ngx_http_perl_module;
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* workaround for "unused variable `Perl___notused'" warning
|
|
|
|
* when building with perl 5.6.1
|
|
|
|
*/
|
|
|
|
#ifndef PERL_IMPLICIT_CONTEXT
|
|
|
|
#undef dTHXa
|
|
|
|
#define dTHXa(a)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2006-04-14 17:53:38 +08:00
|
|
|
extern void boot_DynaLoader(pTHX_ CV* cv);
|
2006-01-16 22:56:53 +08:00
|
|
|
|
|
|
|
|
|
|
|
#endif /* _NGX_HTTP_PERL_MODULE_H_INCLUDED_ */
|