Viewing file:  mod_perl.h (6.73 KB) -rw-rw-rw-
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
/* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#ifndef MOD_PERL_H
#define MOD_PERL_H
#include "modperl_apache_includes.h"
#include "modperl_common_includes.h"
#include "modperl_apache_compat.h"
#ifdef WIN32
#define MP_THREADED 1
#else
#define MP_THREADED (defined(USE_ITHREADS) && APR_HAS_THREADS)
#endif
extern module AP_MODULE_DECLARE_DATA perl_module;
#include "modperl_error.h"
#include "modperl_flags.h"
#include "modperl_hooks.h"
#include "modperl_perl_global.h"
#include "modperl_perl_pp.h"
#include "modperl_sys.h"
#include "modperl_const.h"
#include "modperl_constants.h"
/* both perl and apr have largefile support enabled */
#if defined(USE_LARGE_FILES) && APR_HAS_LARGE_FILES
#define MP_LARGE_FILES_ENABLED
#endif
/* both perl and apr have largefile support disabled */
#if (!defined(USE_LARGE_FILES)) && !APR_HAS_LARGE_FILES
#define MP_LARGE_FILES_DISABLED
#endif
/* perl largefile support is enabled, apr support is disabled */
#if defined(USE_LARGE_FILES) && !APR_HAS_LARGE_FILES
#define MP_LARGE_FILES_PERL_ONLY
#endif
/* apr largefile support is enabled, perl support is disabled */
#if (!defined(USE_LARGE_FILES)) && APR_HAS_LARGE_FILES
#define MP_LARGE_FILES_APR_ONLY
#endif
/* conflict due to not have either both perl and apr
* support enabled or both disabled
*/
#if defined(MP_LARGE_FILES_APR_ONLY) || defined(MP_LARGE_FILES_PERL_ONLY)
#define MP_LARGE_FILES_CONFLICT
#endif
#ifdef MP_USE_GTOP
#include "modperl_gtop.h"
#endif
#include "modperl_time.h"
#include "modperl_types.h"
#include "modperl_util.h"
#include "modperl_config.h"
#include "modperl_cmd.h"
#include "modperl_handler.h"
#include "modperl_callback.h"
#include "modperl_tipool.h"
#include "modperl_interp.h"
#include "modperl_log.h"
#include "modperl_options.h"
#include "modperl_directives.h"
#include "modperl_io.h"
#include "modperl_io_apache.h"
#include "modperl_filter.h"
#include "modperl_bucket.h"
#include "modperl_pcw.h"
#include "modperl_mgv.h"
#include "modperl_global.h"
#include "modperl_env.h"
#include "modperl_cgi.h"
#include "modperl_perl.h"
#include "modperl_svptr_table.h"
#include "modperl_module.h"
#include "modperl_debug.h"
int modperl_threads_started(void);
int modperl_threaded_mpm(void);
int modperl_post_post_config_phase(void);
#define MP_CROAK_IF_THREADS_STARTED(what) \
if (modperl_threads_started()) { \
Perl_croak(aTHX_ "Can't run '%s' in the threaded " \
"environment after server startup", what); \
}
#define MP_CROAK_IF_THREADED_MPM(what) \
if (modperl_threaded_mpm()) { \
Perl_croak(aTHX_ "Can't run '%s' in a threaded mpm", \
what); \
}
#define MP_CROAK_IF_POST_POST_CONFIG_PHASE(what) \
if (modperl_post_post_config_phase()) { \
Perl_croak(aTHX_ "Can't run '%s' after server startup", \
what); \
}
int modperl_init_vhost(server_rec *s, apr_pool_t *p,
server_rec *base_server);
void modperl_init(server_rec *s, apr_pool_t *p);
void modperl_init_globals(server_rec *s, apr_pool_t *pconf);
int modperl_run(void);
int modperl_is_running(void);
int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog,
apr_pool_t *ptemp, server_rec *s);
int modperl_hook_pre_config(apr_pool_t *p, apr_pool_t *plog,
apr_pool_t *ptemp);
void modperl_register_hooks(apr_pool_t *p);
apr_pool_t *modperl_server_pool(void);
apr_pool_t *modperl_server_user_pool(void);
PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p);
int modperl_perl_destruct_level(void);
void xs_init(pTHX);
void modperl_response_init(request_rec *r);
apr_status_t modperl_response_finish(request_rec *r);
int modperl_response_handler(request_rec *r);
int modperl_response_handler_cgi(request_rec *r);
#define MgTypeExt(mg) (mg->mg_type == '~')
typedef void MP_FUNC_NONSTD_T(modperl_var_modify_t) (apr_table_t *,
apr_table_t *,
const char *,
const char *);
/* we need to hook a few internal things before APR_HOOK_REALLY_FIRST */
#define MODPERL_HOOK_REALLY_REALLY_FIRST (-20)
#ifdef USE_ITHREADS
APR_DECLARE_OPTIONAL_FN(apr_status_t,modperl_interp_unselect,(void *));
APR_DECLARE_OPTIONAL_FN(modperl_interp_t *,modperl_thx_interp_get,(PerlInterpreter *));
#endif
/*
* perl context overriding and restoration is required when
* PerlOptions +Parent/+Clone is used in vhosts, and perl is used to
* at the server startup. So that <Perl> sections, PerlLoadModule,
* PerlModule and PerlRequire are all run using the right perl context
* and restore to the original context when they are done.
*
* As of perl-5.8.3 it's unfortunate that it uses PERL_GET_CONTEXT and
* doesn't rely on the passed pTHX internally. When and if perl is
* fixed to always use pTHX if available, this context switching mess
* can be removed.
*/
#ifdef USE_ITHREADS
#define MP_PERL_CONTEXT_DECLARE \
PerlInterpreter *orig_perl = NULL; \
pTHX;
#define MP_PERL_CONTEXT_STORE \
orig_perl = PERL_GET_CONTEXT;
#define MP_PERL_CONTEXT_OVERRIDE(new_perl) \
aTHX = new_perl; \
PERL_SET_CONTEXT(aTHX);
#define MP_PERL_CONTEXT_STORE_OVERRIDE(new_perl) \
MP_PERL_CONTEXT_STORE; \
MP_PERL_CONTEXT_OVERRIDE(new_perl)
#define MP_PERL_CONTEXT_RESTORE \
if (orig_perl) { \
PERL_SET_CONTEXT(orig_perl); \
}
#else /* #ifdef USE_ITHREADS */
#define MP_PERL_CONTEXT_DECLARE
#define MP_PERL_CONTEXT_STORE
#define MP_PERL_CONTEXT_OVERRIDE(new_perl)
#define MP_PERL_CONTEXT_STORE_OVERRIDE(new_perl)
#define MP_PERL_CONTEXT_RESTORE
#endif /* end of #ifdef USE_ITHREADS */
#endif /* MOD_PERL_H */
|