static void *embperl_create_dir_config(apr_pool_t * p, char *d)
{
/*char buf [20] ;*/
tApacheDirConfig *cfg ;
apr_pool_t * subpool ;
embperl_ApacheInitUnload (p) ;
#ifdef APACHE2
apr_pool_create_ex(&subpool, p, NULL, NULL);
#else
subpool = ap_make_sub_pool(p);
#endif
cfg = (tApacheDirConfig *) apr_pcalloc(subpool, sizeof(tApacheDirConfig));
#if 0
#ifdef APACHE2
apr_pool_cleanup_register(subpool, cfg, embperl_ApacheConfigCleanup, embperl_ApacheConfigCleanup);
#else
ap_register_cleanup(subpool, cfg, embperl_ApacheConfigCleanup, embperl_ApacheConfigCleanup);
#endif
#endif
embperl_DefaultReqConfig (&cfg -> ReqConfig) ;
embperl_DefaultAppConfig (&cfg -> AppConfig) ;
embperl_DefaultComponentConfig (&cfg -> ComponentConfig) ;
cfg -> bUseEnv = -1 ;
if (bApDebug)
ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: create_dir_config %s (0x%p) [%d/%d]\n", cfg -> AppConfig.sAppName?cfg -> AppConfig.sAppName:"", cfg, getpid(), gettid()) ;
return cfg;
}
int ServerCreate(TServer *srv,POOL *pool,char *name,uint16 port,char *filespath,
char *modulepath, char *logfilename)
{
/* sanity */
if (!srv) {
return FALSE;
}
srv->name = (name ? strdup(name) : 0);
srv->port=port;
srv->defaulthandler=(void *)ServerDefaultHandlerFunc;
srv->rootpath = strdup( DEFAULT_ROOT );
srv->filespath = (filespath ? strdup(filespath) : 0);
srv->modulepath = ( modulepath ? strdup(modulepath) : 0 );
srv->keepalivetimeout=15;
srv->keepalivemaxconn=100000;
srv->timeout=15;
srv->stopped = 0;
srv->pool = ap_make_sub_pool( pool );
srv->uri_handlers = 0;
srv->uri_wildcard_handlers = 0;
srv->content_handlers = 0;
srv->content_wildcard_handlers = 0;
if( srv->max_conn == 0 )
srv->max_conn = DEFAULT_MAX_CONN;
srv->conn = (TConn *)malloc( sizeof(TConn)*srv->max_conn );
memset(srv->conn, 0, sizeof(TConn) * srv->max_conn);
srv->stat_data_time = 0;
srv->stat_conns = 0;
srv->stat_inbytes = 0;
srv->stat_outbytes = 0;
#ifdef _UNIX
srv->pidfile.fd=srv->uid=srv->gid=(-1);
#endif /* _UNIX */
ListInitAutoFree(&srv->defaultfilenames);
if (logfilename) {
if( srv->error_fname )
free( srv->error_fname );
srv->error_fname = strdup( logfilename );
} else
srv->error_fname=NULL;
srv->conf_fname = NULL;
srv->diag_fname = NULL;
srv->configDB_fname = NULL;
/* enter into the global serv list */
ListAdd( &srv_list,srv );
return TRUE;
}
CStr qEnvApacheServer::MapFullPath(const char *path)
{
#ifdef APACHE2
ap_pool * p; apr_pool_create_ex(&p,NULL,NULL,NULL);
#else
ap_pool * p = ap_make_sub_pool(NULL);
#endif
CStr r = ap_server_root_relative(p, (char *) path);
ap_destroy_pool(p);
return r;
}
ssl_ds_array *ssl_ds_array_make(pool *p, int size)
{
ssl_ds_array *a;
if ((a = (ssl_ds_array *)ap_palloc(p, sizeof(ssl_ds_array))) == NULL)
return NULL;
a->pPool = p;
if ((a->pSubPool = ap_make_sub_pool(p)) == NULL)
return NULL;
a->aData = ap_make_array(a->pSubPool, 2, size);
return a;
}
ssl_ds_table *ssl_ds_table_make(pool *p, int size)
{
ssl_ds_table *t;
if ((t = (ssl_ds_table *)ap_palloc(p, sizeof(ssl_ds_table))) == NULL)
return NULL;
t->pPool = p;
if ((t->pSubPool = ap_make_sub_pool(p)) == NULL)
return NULL;
t->aKey = ap_make_array(t->pSubPool, 2, MAX_STRING_LEN);
t->aData = ap_make_array(t->pSubPool, 2, size);
return t;
}
void ssl_config_global_create(void)
{
pool *pPool;
SSLModConfigRec *mc;
mc = ap_ctx_get(ap_global_ctx, "ssl_module");
if (mc == NULL) {
/*
* allocate an own subpool which survives server restarts
*/
pPool = ap_make_sub_pool(NULL);
mc = (SSLModConfigRec *)ap_palloc(pPool, sizeof(SSLModConfigRec));
mc->pPool = pPool;
mc->bFixed = FALSE;
/*
* initialize per-module configuration
*/
mc->nInitCount = 0;
mc->nSessionCacheMode = SSL_SCMODE_UNSET;
mc->szSessionCacheDataFile = NULL;
mc->nSessionCacheDataSize = 0;
mc->pSessionCacheDataMM = NULL;
mc->tSessionCacheDataTable = NULL;
mc->nMutexMode = SSL_MUTEXMODE_UNSET;
mc->szMutexFile = NULL;
mc->nMutexFD = -1;
mc->nMutexSEMID = -1;
mc->aRandSeed = ap_make_array(pPool, 4, sizeof(ssl_randseed_t));
mc->tPrivateKey = ssl_ds_table_make(pPool, sizeof(ssl_asn1_t));
mc->tPublicCert = ssl_ds_table_make(pPool, sizeof(ssl_asn1_t));
mc->tTmpKeys = ssl_ds_table_make(pPool, sizeof(ssl_asn1_t));
#ifdef SSL_EXPERIMENTAL_ENGINE
mc->szCryptoDevice = NULL;
#endif
(void)memset(mc->pTmpKeys, 0, SSL_TKPIDX_MAX*sizeof(void *));
#ifdef SSL_VENDOR
mc->ctx = ap_ctx_new(pPool);
ap_hook_use("ap::mod_ssl::vendor::config_global_create",
AP_HOOK_SIG2(void,ptr), AP_HOOK_MODE_ALL, mc);
#endif
/*
* And push it into Apache's global context
*/
ap_ctx_set(ap_global_ctx, "ssl_module", mc);
}
/*
* This routine sets up some module-wide cells if they haven't been already.
*/
static void setup_module_cells()
{
/*
* If we haven't already allocated our module-private pool, do so now.
*/
if (example_pool == NULL) {
example_pool = ap_make_sub_pool(NULL);
};
/*
* Likewise for the table of routine/environment pairs we visit outside of
* request context.
*/
if (static_calls_made == NULL) {
static_calls_made = ap_make_table(example_pool, 16);
};
}
static void *embperl_merge_dir_config (apr_pool_t *p, void *basev, void *addv)
{
if (!basev)
return addv ;
{
tApacheDirConfig *mrg ; /*= (tApacheDirConfig *)ap_palloc (p, sizeof(tApacheDirConfig)); */
tApacheDirConfig *base = (tApacheDirConfig *)basev;
tApacheDirConfig *add = (tApacheDirConfig *)addv;
apr_pool_t * subpool ;
#ifdef PERL_IMPLICIT_CONTEXT
pTHX ;
aTHX = NULL ;
#endif
#ifdef APACHE2
apr_pool_create_ex(&subpool, p, NULL, NULL);
#else
subpool = ap_make_sub_pool(p);
#endif
mrg = (tApacheDirConfig *)apr_palloc (subpool, sizeof(tApacheDirConfig));
if (bApDebug)
ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config base=0x%p add=0x%p mrg=0x%p\n", basev, addv, mrg) ;
#ifdef APACHE2
apr_pool_cleanup_register(subpool, mrg, embperl_ApacheConfigCleanup, embperl_ApacheConfigCleanup);
#else
ap_register_cleanup(subpool, mrg, embperl_ApacheConfigCleanup, embperl_ApacheConfigCleanup);
#endif
memcpy (mrg, base, sizeof (*mrg)) ;
if (bApDebug)
ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config %s + %s\n", mrg -> AppConfig.sAppName, add -> AppConfig.sAppName) ;
if (add -> AppConfig.sAppName)
mrg -> AppConfig.sAppName = add -> AppConfig.sAppName ;
#include "epcfg.h"
if (add -> bUseEnv >= 0)
mrg -> bUseEnv = add -> bUseEnv ;
return mrg ;
}
}
static void *
cse_create_server_config(pool *p, server_rec *server)
{
config_t *config;
if (! g_pool)
g_pool = ap_make_sub_pool(p);
config = (config_t *) ap_pcalloc(g_pool, sizeof(config_t));
memset(config, 0, sizeof(config_t));
config->web_pool = g_pool;
cse_init_config(config);
g_config = config;
return (void *) config;
}
static int embperl_ApacheInitUnload (apr_pool_t *p)
{
#ifdef APACHE2
if (!unload_subpool && p)
{
apr_pool_create_ex(&unload_subpool, p, NULL, NULL);
apr_pool_cleanup_register(unload_subpool, NULL, embperl_ApacheInitCleanup, embperl_ApacheInitCleanup);
if (bApDebug)
ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: ApacheInitUnload [%d/%d]\n", getpid(), gettid()) ;
}
#else
if (!unload_subpool && p)
{
unload_subpool = ap_make_sub_pool(p);
ap_register_cleanup(unload_subpool, NULL, embperl_ApacheInitCleanup, embperl_ApacheInitCleanup);
if (bApDebug)
ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: ApacheInitUnload [%d/%d]\n", getpid(), gettid()) ;
}
#endif
return ok ;
}
static table *groups_for_user(pool *p, char *user, char *grpfile)
{
configfile_t *f;
table *grps = ap_make_table(p, 15);
pool *sp;
char l[MAX_STRING_LEN];
const char *group_name, *ll, *w;
if (!(f = ap_pcfg_openfile(p, grpfile))) {
/*add? aplog_error(APLOG_MARK, APLOG_ERR, NULL,
"Could not open group file: %s", grpfile);*/
return NULL;
}
sp = ap_make_sub_pool(p);
while (!(ap_cfg_getline(l, MAX_STRING_LEN, f))) {
if ((l[0] == '#') || (!l[0]))
continue;
ll = l;
ap_clear_pool(sp);
group_name = ap_getword(sp, &ll, ':');
while (ll[0]) {
w = ap_getword_conf(sp, &ll);
if (!strcmp(w, user)) {
ap_table_setn(grps, ap_pstrdup(p, group_name), "in");
break;
}
}
}
ap_cfg_closefile(f);
ap_destroy_pool(sp);
return grps;
}
static int check_speling(request_rec *r)
{
spconfig *cfg;
char *good, *bad, *postgood, *url;
int filoc, dotloc, urlen, pglen;
DIR *dirp;
struct DIR_TYPE *dir_entry;
array_header *candidates = NULL;
cfg = ap_get_module_config(r->per_dir_config, &speling_module);
if (!cfg->enabled) {
return DECLINED;
}
/* We only want to worry about GETs */
if (r->method_number != M_GET) {
return DECLINED;
}
/* We've already got a file of some kind or another */
if (r->proxyreq != NOT_PROXY || (r->finfo.st_mode != 0)) {
return DECLINED;
}
/* This is a sub request - don't mess with it */
if (r->main) {
return DECLINED;
}
/*
* The request should end up looking like this:
* r->uri: /correct-url/mispelling/more
* r->filename: /correct-file/mispelling r->path_info: /more
*
* So we do this in steps. First break r->filename into two pieces
*/
filoc = ap_rind(r->filename, '/');
/*
* Don't do anything if the request doesn't contain a slash, or
* requests "/"
*/
if (filoc == -1 || strcmp(r->uri, "/") == 0) {
return DECLINED;
}
/* good = /correct-file */
good = ap_pstrndup(r->pool, r->filename, filoc);
/* bad = mispelling */
bad = ap_pstrdup(r->pool, r->filename + filoc + 1);
/* postgood = mispelling/more */
postgood = ap_pstrcat(r->pool, bad, r->path_info, NULL);
urlen = strlen(r->uri);
pglen = strlen(postgood);
/* Check to see if the URL pieces add up */
if (strcmp(postgood, r->uri + (urlen - pglen))) {
return DECLINED;
}
/* url = /correct-url */
url = ap_pstrndup(r->pool, r->uri, (urlen - pglen));
/* Now open the directory and do ourselves a check... */
dirp = ap_popendir(r->pool, good);
if (dirp == NULL) { /* Oops, not a directory... */
return DECLINED;
}
candidates = ap_make_array(r->pool, 2, sizeof(misspelled_file));
dotloc = ap_ind(bad, '.');
if (dotloc == -1) {
dotloc = strlen(bad);
}
while ((dir_entry = readdir(dirp)) != NULL) {
sp_reason q;
/*
* If we end up with a "fixed" URL which is identical to the
* requested one, we must have found a broken symlink or some such.
* Do _not_ try to redirect this, it causes a loop!
*/
if (strcmp(bad, dir_entry->d_name) == 0) {
ap_pclosedir(r->pool, dirp);
return OK;
}
/*
* miscapitalization errors are checked first (like, e.g., lower case
* file, upper case request)
*/
else if (strcasecmp(bad, dir_entry->d_name) == 0) {
misspelled_file *sp_new;
sp_new = (misspelled_file *) ap_push_array(candidates);
sp_new->name = ap_pstrdup(r->pool, dir_entry->d_name);
sp_new->quality = SP_MISCAPITALIZED;
}
/*
* simple typing errors are checked next (like, e.g.,
* missing/extra/transposed char)
*/
else if ((q = spdist(bad, dir_entry->d_name)) != SP_VERYDIFFERENT) {
misspelled_file *sp_new;
sp_new = (misspelled_file *) ap_push_array(candidates);
sp_new->name = ap_pstrdup(r->pool, dir_entry->d_name);
sp_new->quality = q;
}
/*
* The spdist() should have found the majority of the misspelled
* requests. It is of questionable use to continue looking for
* files with the same base name, but potentially of totally wrong
* type (index.html <-> index.db).
* I would propose to not set the WANT_BASENAME_MATCH define.
* 08-Aug-1997 <*****@*****.**>
*
* However, Alexei replied giving some reasons to add it anyway:
* > Oh, by the way, I remembered why having the
* > extension-stripping-and-matching stuff is a good idea:
* >
* > If you're using MultiViews, and have a file named foobar.html,
* > which you refer to as "foobar", and someone tried to access
* > "Foobar", mod_speling won't find it, because it won't find
* > anything matching that spelling. With the extension-munging,
* > it would locate "foobar.html". Not perfect, but I ran into
* > that problem when I first wrote the module.
*/
else {
#ifdef WANT_BASENAME_MATCH
/*
* Okay... we didn't find anything. Now we take out the hard-core
* power tools. There are several cases here. Someone might have
* entered a wrong extension (.htm instead of .html or vice
* versa) or the document could be negotiated. At any rate, now
* we just compare stuff before the first dot. If it matches, we
* figure we got us a match. This can result in wrong things if
* there are files of different content types but the same prefix
* (e.g. foo.gif and foo.html) This code will pick the first one
* it finds. Better than a Not Found, though.
*/
int entloc = ap_ind(dir_entry->d_name, '.');
if (entloc == -1) {
entloc = strlen(dir_entry->d_name);
}
if ((dotloc == entloc)
&& !strncasecmp(bad, dir_entry->d_name, dotloc)) {
misspelled_file *sp_new;
sp_new = (misspelled_file *) ap_push_array(candidates);
sp_new->name = ap_pstrdup(r->pool, dir_entry->d_name);
sp_new->quality = SP_VERYDIFFERENT;
}
#endif
}
}
ap_pclosedir(r->pool, dirp);
if (candidates->nelts != 0) {
/* Wow... we found us a mispelling. Construct a fixed url */
char *nuri;
const char *ref;
misspelled_file *variant = (misspelled_file *) candidates->elts;
int i;
ref = ap_table_get(r->headers_in, "Referer");
qsort((void *) candidates->elts, candidates->nelts,
sizeof(misspelled_file), sort_by_quality);
/*
* Conditions for immediate redirection:
* a) the first candidate was not found by stripping the suffix
* AND b) there exists only one candidate OR the best match is not
* ambiguous
* then return a redirection right away.
*/
if (variant[0].quality != SP_VERYDIFFERENT
&& (candidates->nelts == 1
|| variant[0].quality != variant[1].quality)) {
nuri = ap_escape_uri(r->pool, ap_pstrcat(r->pool, url,
variant[0].name,
r->path_info, NULL));
if (r->parsed_uri.query)
nuri = ap_pstrcat(r->pool, nuri, "?", r->parsed_uri.query, NULL);
ap_table_setn(r->headers_out, "Location",
ap_construct_url(r->pool, nuri, r));
ap_log_rerror(APLOG_MARK, APLOG_NOERRNO | APLOG_INFO, r,
ref ? "Fixed spelling: %s to %s from %s"
: "Fixed spelling: %s to %s",
r->uri, nuri, ref);
return HTTP_MOVED_PERMANENTLY;
}
/*
* Otherwise, a "[300] Multiple Choices" list with the variants is
* returned.
*/
else {
pool *p;
table *notes;
pool *sub_pool;
array_header *t;
array_header *v;
if (r->main == NULL) {
p = r->pool;
notes = r->notes;
}
else {
p = r->main->pool;
notes = r->main->notes;
}
sub_pool = ap_make_sub_pool(p);
t = ap_make_array(sub_pool, candidates->nelts * 8 + 8,
sizeof(char *));
v = ap_make_array(sub_pool, candidates->nelts * 5,
sizeof(char *));
/* Generate the response text. */
*(const char **)ap_push_array(t) =
"The document name you requested (<code>";
*(const char **)ap_push_array(t) = ap_escape_html(sub_pool, r->uri);
*(const char **)ap_push_array(t) =
"</code>) could not be found on this server.\n"
"However, we found documents with names similar "
"to the one you requested.<p>"
"Available documents:\n<ul>\n";
for (i = 0; i < candidates->nelts; ++i) {
char *vuri;
const char *reason;
reason = sp_reason_str[(int) (variant[i].quality)];
/* The format isn't very neat... */
vuri = ap_pstrcat(sub_pool, url, variant[i].name, r->path_info,
(r->parsed_uri.query != NULL) ? "?" : "",
(r->parsed_uri.query != NULL)
? r->parsed_uri.query : "",
NULL);
*(const char **)ap_push_array(v) = "\"";
*(const char **)ap_push_array(v) = ap_escape_uri(sub_pool, vuri);
*(const char **)ap_push_array(v) = "\";\"";
*(const char **)ap_push_array(v) = reason;
*(const char **)ap_push_array(v) = "\"";
*(const char **)ap_push_array(t) = "<li><a href=\"";
*(const char **)ap_push_array(t) = ap_escape_uri(sub_pool, vuri);
*(const char **)ap_push_array(t) = "\">";
*(const char **)ap_push_array(t) = ap_escape_html(sub_pool, vuri);
*(const char **)ap_push_array(t) = "</a> (";
*(const char **)ap_push_array(t) = reason;
*(const char **)ap_push_array(t) = ")\n";
/*
* when we have printed the "close matches" and there are
* more "distant matches" (matched by stripping the suffix),
* then we insert an additional separator text to suggest
* that the user LOOK CLOSELY whether these are really the
* files she wanted.
*/
if (i > 0 && i < candidates->nelts - 1
&& variant[i].quality != SP_VERYDIFFERENT
&& variant[i + 1].quality == SP_VERYDIFFERENT) {
*(const char **)ap_push_array(t) =
"</ul>\nFurthermore, the following related "
"documents were found:\n<ul>\n";
}
}
*(const char **)ap_push_array(t) = "</ul>\n";
/* If we know there was a referring page, add a note: */
if (ref != NULL) {
*(const char **)ap_push_array(t) =
"Please consider informing the owner of the "
"<a href=\"";
*(const char **)ap_push_array(t) = ap_escape_uri(sub_pool, ref);
*(const char **)ap_push_array(t) = "\">referring page</a> "
"about the broken link.\n";
}
/* Pass our table to http_protocol.c (see mod_negotiation): */
ap_table_setn(notes, "variant-list", ap_array_pstrcat(p, t, 0));
ap_table_mergen(r->subprocess_env, "VARIANTS",
ap_array_pstrcat(p, v, ','));
ap_destroy_pool(sub_pool);
ap_log_rerror(APLOG_MARK, APLOG_NOERRNO | APLOG_INFO, r,
ref ? "Spelling fix: %s: %d candidates from %s"
: "Spelling fix: %s: %d candidates",
r->uri, candidates->nelts, ref);
return HTTP_MULTIPLE_CHOICES;
}
}
return OK;
}
static void trace_add(server_rec *s, request_rec *r, excfg *mconfig,
const char *note)
{
const char *sofar;
char *addon;
char *where;
pool *p;
const char *trace_copy;
/*
* Make sure our pools and tables are set up - we need 'em.
*/
setup_module_cells();
/*
* Now, if we're in request-context, we use the request pool.
*/
if (r != NULL) {
p = r->pool;
if ((trace_copy = ap_table_get(r->notes, TRACE_NOTE)) == NULL) {
trace_copy = "";
}
}
else {
/*
* We're not in request context, so the trace gets attached to our
* module-wide pool. We do the create/destroy every time we're called
* in non-request context; this avoids leaking memory in some of
* the subsequent calls that allocate memory only once (such as the
* key formation below).
*
* Make a new sub-pool and copy any existing trace to it. Point the
* trace cell at the copied value.
*/
p = ap_make_sub_pool(example_pool);
if (trace != NULL) {
trace = ap_pstrdup(p, trace);
}
/*
* Now, if we have a sub-pool from before, nuke it and replace with
* the one we just allocated.
*/
if (example_subpool != NULL) {
ap_destroy_pool(example_subpool);
}
example_subpool = p;
trace_copy = trace;
}
/*
* If we weren't passed a configuration record, we can't figure out to
* what location this call applies. This only happens for co-routines
* that don't operate in a particular directory or server context. If we
* got a valid record, extract the location (directory or server) to which
* it applies.
*/
where = (mconfig != NULL) ? mconfig->loc : "nowhere";
where = (where != NULL) ? where : "";
/*
* Now, if we're not in request context, see if we've been called with
* this particular combination before. The table is allocated in the
* module's private pool, which doesn't get destroyed.
*/
if (r == NULL) {
char *key;
key = ap_pstrcat(p, note, ":", where, NULL);
if (ap_table_get(static_calls_made, key) != NULL) {
/*
* Been here, done this.
*/
return;
}
else {
/*
* First time for this combination of routine and environment -
* log it so we don't do it again.
*/
ap_table_set(static_calls_made, key, "been here");
}
}
addon = ap_pstrcat(p, " <LI>\n", " <DL>\n", " <DT><SAMP>",
note, "</SAMP>\n", " </DT>\n", " <DD><SAMP>[",
where, "]</SAMP>\n", " </DD>\n", " </DL>\n",
" </LI>\n", NULL);
sofar = (trace_copy == NULL) ? "" : trace_copy;
trace_copy = ap_pstrcat(p, sofar, addon, NULL);
if (r != NULL) {
ap_table_set(r->notes, TRACE_NOTE, trace_copy);
}
else {
trace = trace_copy;
}
/*
* You *could* change the following if you wanted to see the calling
* sequence reported in the server's error_log, but beware - almost all of
* these co-routines are called for every single request, and the impact
* on the size (and readability) of the error_log is considerable.
*/
#define EXAMPLE_LOG_EACH 0
#if EXAMPLE_LOG_EACH
if (s != NULL) {
ap_log_error(APLOG_MARK, APLOG_DEBUG, s, "mod_example: %s", note);
}
#endif
}
void ServerFunc(TConn *c)
{
TRequest r;
uint32 ka = 0;
/* sanity */
if (!c) {
return;
}
ka=c->server->keepalivemaxconn;
c->pool = ap_make_sub_pool( c->server->pool );
c->server->stat_conns++;
RequestInit(&r,c);
/* tell connection handlers - new connection */
ap_conn_init_modules( c );
while (ka--)
{
c->start_time = ap_time();
/* Wait to read until timeout */
if (!ConnRead(c,c->server->keepalivetimeout)) {
break;
}
/* CODE_PROBE_1("Server - Req Read Start (%x)",c); */
if (RequestRead(&r))
{
/* Check if it is the last keepalive */
if (ka==1) {
r.keepalive=FALSE;
}
r.cankeepalive=r.keepalive;
if (r.status==0) {
if (r.versionmajor>=2) {
ResponseStatus(&r,505);
} else if (!RequestValidURI(&r)) {
ResponseStatus(&r,400);
} else {
if( ap_invoke_handler( &r ) == DECLINED ) {
((HANDLER)(c->server->defaulthandler))(&r);
}
}
}
}
/* CODE_PROBE_1("Server - Req Read End (%x)",c); */
HTTPWriteEnd(&r);
ConnWriteFlush( c );
if (!r.done)
ResponseError(&r);
RequestLog(&r);
/* do flow stat update */
c->server->stat_inbytes += c->inbytes;
c->server->stat_outbytes += c->outbytes;
c->server->stat_data_time += ap_time() - c->start_time;
if( c->server->stopped ) {
break;
}
if (!(r.keepalive && r.cankeepalive)) {
break;
}
RequestReset(&r,c);
ConnReadInit(c);
/* CODE_PROBE_1("Server - ConnReadInit - Bottom (%x)",c); */
}
/* tell connection handlers session complete */
ap_conn_exit_modules( c );
ap_destroy_pool( c->pool );
RequestFree(&r);
SocketClose(&(c->socket));
}
const char *fcgi_config_make_dynamic_dir(pool *p, const int wax)
{
const char *err;
pool *tp;
fcgi_dynamic_dir = ap_pstrcat(p, fcgi_socket_dir, "/dynamic", NULL);
if ((err = fcgi_config_make_dir(p, fcgi_dynamic_dir)))
return ap_psprintf(p, "can't create dynamic directory \"%s\": %s", fcgi_dynamic_dir, err);
/* Don't step on a running server unless its OK. */
if (!wax)
return NULL;
#ifdef APACHE2
{
apr_dir_t * dir;
apr_finfo_t finfo;
if (apr_pool_create(&tp, p))
return "apr_pool_create() failed";
if (apr_dir_open(&dir, fcgi_dynamic_dir, tp))
return "apr_dir_open() failed";
/* delete the contents */
while (apr_dir_read(&finfo, APR_FINFO_NAME, dir) == APR_SUCCESS)
{
if (strcmp(finfo.name, ".") == 0 || strcmp(finfo.name, "..") == 0)
continue;
apr_file_remove(finfo.name, tp);
}
}
#else /* !APACHE2 */
{
DIR *dp;
struct dirent *dirp = NULL;
tp = ap_make_sub_pool(p);
dp = ap_popendir(tp, fcgi_dynamic_dir);
if (dp == NULL) {
ap_destroy_pool(tp);
return ap_psprintf(p, "can't open dynamic directory \"%s\": %s",
fcgi_dynamic_dir, strerror(errno));
}
/* delete the contents */
while ((dirp = readdir(dp)) != NULL)
{
if (strcmp(dirp->d_name, ".") == 0 || strcmp(dirp->d_name, "..") == 0)
continue;
unlink(ap_pstrcat(tp, fcgi_dynamic_dir, "/", dirp->d_name, NULL));
}
}
#endif /* !APACHE2 */
ap_destroy_pool(tp);
return NULL;
}
