/usr/include/apache2/modperl_config.h is in libapache2-mod-perl2-dev 2.0.8+httpd24-r1449661-6ubuntu2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 | /* 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 MODPERL_CONFIG_H
#define MODPERL_CONFIG_H
void *modperl_config_dir_create(apr_pool_t *p, char *dir);
void *modperl_config_dir_merge(apr_pool_t *p, void *basev, void *addv);
modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p, server_rec *s);
modperl_config_dir_t *modperl_config_dir_new(apr_pool_t *p);
modperl_config_req_t *modperl_config_req_new(request_rec *r);
modperl_config_con_t *modperl_config_con_new(conn_rec *c);
void *modperl_config_srv_create(apr_pool_t *p, server_rec *s);
void *modperl_config_srv_merge(apr_pool_t *p, void *basev, void *addv);
char **modperl_config_srv_argv_init(modperl_config_srv_t *scfg, int *argc);
#define modperl_config_srv_argv_push(arg) \
*(const char **)apr_array_push(scfg->argv) = arg
apr_status_t modperl_config_request_cleanup(pTHX_ request_rec *r);
apr_status_t modperl_config_req_cleanup(void *data);
/* use a subpool here to ensure that a PerlCleanupHandler is run before
* any other pool cleanup - suppools are destroyed first. Particularly a
* PerlCleanupHandler must run before request pnotes are dropped.
*/
#define modperl_config_req_cleanup_register(r, rcfg) \
if (r && !MpReqCLEANUP_REGISTERED(rcfg)) { \
apr_pool_t *p; \
apr_pool_create(&p, r->pool); \
apr_pool_cleanup_register(p, \
(void*)r, \
modperl_config_req_cleanup, \
apr_pool_cleanup_null); \
MpReqCLEANUP_REGISTERED_On(rcfg); \
}
void *modperl_get_perl_module_config(ap_conf_vector_t *cv);
void modperl_set_perl_module_config(ap_conf_vector_t *cv, void *cfg);
#if defined(MP_IN_XS) && defined(WIN32)
# define modperl_get_module_config(v) \
modperl_get_perl_module_config(v)
# define modperl_set_module_config(v, c) \
modperl_set_perl_module_config(v, c)
#else
# define modperl_get_module_config(v) \
ap_get_module_config(v, &perl_module)
# define modperl_set_module_config(v, c) \
ap_set_module_config(v, &perl_module, c)
#endif
#define modperl_config_req_init(r, rcfg) \
if (!rcfg) { \
rcfg = modperl_config_req_new(r); \
modperl_set_module_config(r->request_config, rcfg); \
}
#define modperl_config_req_get(r) \
(r ? (modperl_config_req_t *) \
modperl_get_module_config(r->request_config) : NULL)
#define MP_dRCFG \
modperl_config_req_t *rcfg = modperl_config_req_get(r)
#define modperl_config_con_init(c, ccfg) \
if (!ccfg) { \
ccfg = modperl_config_con_new(c); \
modperl_set_module_config(c->conn_config, ccfg); \
}
#define modperl_config_con_get(c) \
(c ? (modperl_config_con_t *) \
modperl_get_module_config(c->conn_config) : NULL)
#define MP_dCCFG \
modperl_config_con_t *ccfg = modperl_config_con_get(c)
#define modperl_config_dir_get(r) \
(r ? (modperl_config_dir_t *) \
modperl_get_module_config(r->per_dir_config) : NULL)
#define modperl_config_dir_get_defaults(s) \
(modperl_config_dir_t *) \
modperl_get_module_config(s->lookup_defaults)
#define MP_dDCFG \
modperl_config_dir_t *dcfg = modperl_config_dir_get(r)
#define modperl_config_srv_get(s) \
(modperl_config_srv_t *) \
modperl_get_module_config(s->module_config)
#define MP_dSCFG(s) \
modperl_config_srv_t *scfg = modperl_config_srv_get(s)
#ifdef USE_ITHREADS
# define MP_dSCFG_dTHX \
dTHXa(scfg->mip->parent->perl); \
PERL_SET_CONTEXT(aTHX)
#else
# define MP_dSCFG_dTHX dTHXa(scfg->perl)
#endif
/* hopefully this macro will not need to be used often */
#ifdef USE_ITHREADS
# define MP_dTHX \
modperl_interp_t *interp = \
modperl_interp_select(r, r->connection, r->server); \
dTHXa(interp->perl)
#else
# define MP_dTHX dNOOP
#endif
int modperl_config_apply_PerlModule(server_rec *s,
modperl_config_srv_t *scfg,
PerlInterpreter *perl, apr_pool_t *p);
int modperl_config_apply_PerlRequire(server_rec *s,
modperl_config_srv_t *scfg,
PerlInterpreter *perl, apr_pool_t *p);
int modperl_config_apply_PerlPostConfigRequire(server_rec *s,
modperl_config_srv_t *scfg,
apr_pool_t *p);
const char *modperl_config_insert(pTHX_ server_rec *s,
apr_pool_t *p,
apr_pool_t *ptmp,
int override,
char *path,
int override_options,
ap_conf_vector_t *conf,
SV *lines);
const char *modperl_config_insert_parms(pTHX_ cmd_parms *parms,
SV *lines);
const char *modperl_config_insert_server(pTHX_ server_rec *s, SV *lines);
const char *modperl_config_insert_request(pTHX_
request_rec *r,
SV *lines,
int override,
char *path,
int override_options);
int modperl_config_is_perl_option_enabled(pTHX_ request_rec *r,
server_rec *s, const char *name);
#endif /* MODPERL_CONFIG_H */
|