mod_include.c revision 6500e3d3a94faf2252b7920d63ca8269dfd90c59
842ae4bd224140319ae7feec1872b93dfd491143fielding/* Licensed to the Apache Software Foundation (ASF) under one or more
842ae4bd224140319ae7feec1872b93dfd491143fielding * contributor license agreements. See the NOTICE file distributed with
842ae4bd224140319ae7feec1872b93dfd491143fielding * this work for additional information regarding copyright ownership.
842ae4bd224140319ae7feec1872b93dfd491143fielding * The ASF licenses this file to You under the Apache License, Version 2.0
842ae4bd224140319ae7feec1872b93dfd491143fielding * (the "License"); you may not use this file except in compliance with
842ae4bd224140319ae7feec1872b93dfd491143fielding * the License. You may obtain a copy of the License at
ce9621257ef9e54c1bbe5ad8a5f445a1f211c2dcnd * Unless required by applicable law or agreed to in writing, software
ce9621257ef9e54c1bbe5ad8a5f445a1f211c2dcnd * distributed under the License is distributed on an "AS IS" BASIS,
ce9621257ef9e54c1bbe5ad8a5f445a1f211c2dcnd * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
ce9621257ef9e54c1bbe5ad8a5f445a1f211c2dcnd * See the License for the specific language governing permissions and
ce9621257ef9e54c1bbe5ad8a5f445a1f211c2dcnd * limitations under the License.
d2479dc17d5f6041e472fff5ed39a3a7222e9f51nd/* helper for Latin1 <-> entity encoding */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#define RAW_ASCII_CHAR(ch) apr_xlate_conv_byte(ap_hdrs_from_ascii, \
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd (unsigned char)ch)
82b62539f34e8fa7434a95335c4566441c7b5589nd#else /* APR_CHARSET_EBCDIC */
82b62539f34e8fa7434a95335c4566441c7b5589nd#endif /* !APR_CHARSET_EBCDIC */
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Types and Structures
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
19caef6edbd6a814612c8cd7bd8f437f403df210nd/* sll used for string expansion */
19caef6edbd6a814612c8cd7bd8f437f403df210ndtypedef struct result_item {
19caef6edbd6a814612c8cd7bd8f437f403df210nd const char *string;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf/* conditional expression parser stuff */
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sftypedef enum {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sftypedef struct {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *value;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *s;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sftypedef struct parse_node {
360fb449fbdd6f7c75b321c7e1612233e828ce77ndtypedef enum {
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {
bb8550898eba0b2cc9004aeb81696edf6ea11c16nd const char *undefined_echo;
b44565f239485673d9486068588a5fb3af008be9sf signed char lastmodified;
b44565f239485673d9486068588a5fb3af008be9sf signed char etag;
de2d327e43e0f17cdb64851beafecba96a0ed962sf signed char legacy_expr;
51be7fc538641ed7cb22e959eb31629f7183f70fianhtypedef struct {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd/* main parser states */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndtypedef enum {
d2479dc17d5f6041e472fff5ed39a3a7222e9f51ndtypedef struct arg_item {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sftypedef struct {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *source;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *rexp;
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndtypedef struct {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd unsigned int T[256];
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd unsigned int x;
360fb449fbdd6f7c75b321c7e1612233e828ce77nd apr_size_t parse_pos; /* parse position of partial matches */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd const char *start_seq;
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd const char *end_seq;
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd apr_size_t directive_len; /* length of the current directive name */
bb8550898eba0b2cc9004aeb81696edf6ea11c16nd const char *undefined_echo;
de2d327e43e0f17cdb64851beafecba96a0ed962sf expression parser? */
de2d327e43e0f17cdb64851beafecba96a0ed962sf ap_expr_eval_ctx_t *expr_eval_ctx; /* NULL if there wasn't an ap_expr yet */
de2d327e43e0f17cdb64851beafecba96a0ed962sf const char *expr_vary_this; /* for use by ap_expr_eval_ctx */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd * +-------------------------------------------------------+
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd * | Debugging Utilities
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd * +-------------------------------------------------------+
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndstatic void debug_printf(include_ctx_t *ctx, const char *fmt, ...)
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd APR_BRIGADE_INSERT_TAIL(ctx->intern->debug.bb, apr_bucket_pool_create(
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd debug_printf(ctx, "!!! Parse tree is not consistent !!!\n"); \
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd debug_printf(ctx, "Parent of " #child " child node is " \
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd "NULL.\n"); \
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd "points to another node (of type %s)!\n", \
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd continue; \
639a3c547cf1d235e8ab4aa0e0f37157947cb526ndstatic void debug_dump_tree(include_ctx_t *ctx, parse_node_t *root)
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd /* it is possible to call this function within the parser loop, to see
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd * how the tree is built. That way, we must cleanup after us to dump
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd * always the whole tree
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd if (d__t->type == TOKEN_STRING || d__t->type == TOKEN_RE) { \
e653147f55087706ebd3bf56c2c0b92b572b0d82nd DEBUG_PRINTF(((ctx), " Found: %s (%s)\n", d__t->s, d__t->value)); \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd char c = '"'; \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd debug_printf((ctx), " Evaluate: %s (%s) -> %c\n", (node)->token.s,\
afecd51b7df1875319ad76f5e4b1e64f326c5314nd debug_printf((ctx), " Evaluate: %s (Left: %s; Right: %s) -> %c\n",\
afecd51b7df1875319ad76f5e4b1e64f326c5314nd : "short circuited"), \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd (((node)->right->done) ? ((node)->right->value?"1":"0") \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd : "short circuited"), \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd debug_printf((ctx), " Compare: %s (\"%s\" with %c%s%c) -> %c\n", \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd default: \
afecd51b7df1875319ad76f5e4b1e64f326c5314nd debug_printf((ctx), " Evaluate: %s -> %c\n", (node)->token.s, \
2ebe0212d8c1db6b29fdf2acc5f749790cc8afddnd DEBUG_PRINTF(((ctx), " Unmatched %c\n", (char)(unmatched))); \
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd DEBUG_PRINTF(((ctx), "**** %s cond status=\"%c\"\n", (text), \
639a3c547cf1d235e8ab4aa0e0f37157947cb526nd#define DEBUG_DUMP_TREE(ctx, root) debug_dump_tree(ctx, root)
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd#else /* DEBUG_INCLUDE */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd#endif /* !DEBUG_INCLUDE */
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Static Module Data
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd/* global module structure */
82b62539f34e8fa7434a95335c4566441c7b5589nd/* function handlers for include directives */
82b62539f34e8fa7434a95335c4566441c7b5589nd/* forward declaration of handler registry */
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic APR_OPTIONAL_FN_TYPE(ap_register_include_handler) *ssi_pfn_register;
82b62539f34e8fa7434a95335c4566441c7b5589nd/* Sentinel value to store in subprocess_env for items that
82b62539f34e8fa7434a95335c4566441c7b5589nd * shouldn't be evaluated until/unless they're actually used
82b62539f34e8fa7434a95335c4566441c7b5589nd/* default values */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#define DEFAULT_ERROR_MSG "[an error occurred while processing this directive]"
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Environment/Expansion Functions
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * decodes a string containing html entities or numeric character references.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 's' is overwritten with the decoded string.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * If 's' is syntatically incorrect, then the followed fixups will be made:
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * unknown entities will be left undecoded;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * references to unused numeric characters will be deleted.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * In particular, � will not be decoded, but will be deleted.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* maximum length of any ISO-LATIN-1 HTML entity name. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* The following is a shrinking transformation, therefore safe. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void decodehtml(char *s)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *ents;
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "quot\042Auml\304Euml\313Iuml\317Ouml\326Uuml\334auml\344euml"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "Acirc\302Aring\305AElig\306Ecirc\312Icirc\316Ocirc\324Ucirc"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "\333THORN\336szlig\337acirc\342aring\345aelig\346ecirc\352"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "Agrave\300Aacute\301Atilde\303Ccedil\307Egrave\310Eacute\311"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "Igrave\314Iacute\315Ntilde\321Ograve\322Oacute\323Otilde"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "\325Oslash\330Ugrave\331Uacute\332Yacute\335agrave\340"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "aacute\341atilde\343ccedil\347egrave\350eacute\351igrave"
7540c1f1999e509c879e0a65ad986bb15affc4bcnd "\354iacute\355ntilde\361ograve\362oacute\363otilde\365"
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp /* Do a fast scan through the string until we find anything
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp * that needs more complicated handling
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp for (; *s != '&'; s++) {
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp if (*s == '\0') {
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp for (p = s; *s != '\0'; s++, p++) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*s != '&') {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* find end of entity */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* is it numeric ? */
10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe for (j = 2, val = 0; j < i && apr_isdigit(s[j]); j++) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (j < i || val <= 8 || (val >= 11 && val <= 31) ||
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding p--; /* no data to output */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* wrong length */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding continue; /* skip it */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (ents = entlist[j]; *ents != '\0'; ents += i) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = RAW_ASCII_CHAR(((const unsigned char *) ents)[j]);
102001032647294c7663562e7b0a7fe177302fb2jortonstatic const char *add_include_vars_lazy(request_rec *r, const char *var, const char *timefmt)
102001032647294c7663562e7b0a7fe177302fb2jorton val = ap_ht_time(r->pool, r->request_time, timefmt, 0);
102001032647294c7663562e7b0a7fe177302fb2jorton val = ap_ht_time(r->pool, r->request_time, timefmt, 1);
102001032647294c7663562e7b0a7fe177302fb2jorton val = ap_ht_time(r->pool, r->finfo.mtime, timefmt, 0);
1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick if (apr_uid_name_get(&val, r->finfo.user, r->pool) != APR_SUCCESS) {
19caef6edbd6a814612c8cd7bd8f437f403df210ndstatic const char *get_include_var(const char *var, include_ctx_t *ctx)
82b62539f34e8fa7434a95335c4566441c7b5589nd const char *val;
82b62539f34e8fa7434a95335c4566441c7b5589nd /* Handle $0 .. $9 from the last regex evaluated.
82b62539f34e8fa7434a95335c4566441c7b5589nd * The choice of returning NULL strings on not-found,
82b62539f34e8fa7434a95335c4566441c7b5589nd * v.s. empty strings on an empty match is deliberate.
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01329)
4de8f2422b78c23265d79ebafb18d075121431b9fielding "regex capture $%" APR_SIZE_T_FMT " refers to no regex in %s",
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01330)
0b689805f498b6bcc3961197dafbc5c84d3effecniq " is out of range (last regex was: '%s') in %s",
8884052e8e3dd8f921e1755844cc1e334eeb4308niq else if (re->match[idx].rm_so < 0 || re->match[idx].rm_eo < 0) {
d15c6ed1d477fafee22d10c7249bb6372531aed2sf /* This particular subpattern was not used by the regex */
fa87772054bc5b4f05e71c532d3da5c01d98db26nd val = apr_pstrmemdup(ctx->dpool, re->source + re->match[idx].rm_so,
de2d327e43e0f17cdb64851beafecba96a0ed962sfstatic const char *include_expr_var_fn(ap_expr_eval_ctx_t *eval_ctx,
de2d327e43e0f17cdb64851beafecba96a0ed962sf const void *data,
de2d327e43e0f17cdb64851beafecba96a0ed962sf const char *arg)
de2d327e43e0f17cdb64851beafecba96a0ed962sf /* keep legacy "env" semantics */
de2d327e43e0f17cdb64851beafecba96a0ed962sfstatic int include_expr_lookup(ap_expr_lookup_parms *parms)
de2d327e43e0f17cdb64851beafecba96a0ed962sf * We could also make the SSI vars available as %{...} style variables
de2d327e43e0f17cdb64851beafecba96a0ed962sf * (AP_EXPR_FUNC_VAR), but this would create problems if we ever want
de2d327e43e0f17cdb64851beafecba96a0ed962sf * to cache parsed expressions for performance reasons.
82b62539f34e8fa7434a95335c4566441c7b5589nd * Do variable substitution on strings
82b62539f34e8fa7434a95335c4566441c7b5589nd * (Note: If out==NULL, this function allocs a buffer for the resulting
19caef6edbd6a814612c8cd7bd8f437f403df210nd * string from ctx->pool. The return value is always the parsed string)
98ebafaf350a6b091fe22c2899a80f7855c70a66ndstatic char *ap_ssi_parse_string(include_ctx_t *ctx, const char *in, char *out,
19caef6edbd6a814612c8cd7bd8f437f403df210nd const char *p;
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* sanity check, out && !length is not supported */
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* fast exit */
19caef6edbd6a814612c8cd7bd8f437f403df210nd ret = apr_pstrmemdup(ctx->pool, in, (length && length <= inlen)
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* well, actually something to do */
19caef6edbd6a814612c8cd7bd8f437f403df210nd current = result = apr_palloc(ctx->dpool, sizeof(*result));
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* loop for specials */
19caef6edbd6a814612c8cd7bd8f437f403df210nd if ((out && out >= eout) || (length && outlen >= length)) {
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* prepare next entry */
19caef6edbd6a814612c8cd7bd8f437f403df210nd current->next = apr_palloc(ctx->dpool, sizeof(*current->next));
19caef6edbd6a814612c8cd7bd8f437f403df210nd * escaped character
19caef6edbd6a814612c8cd7bd8f437f403df210nd if (*p == '\\') {
19caef6edbd6a814612c8cd7bd8f437f403df210nd * variable expansion
19caef6edbd6a814612c8cd7bd8f437f403df210nd else { /* *p == '$' */
19caef6edbd6a814612c8cd7bd8f437f403df210nd if (*++p == '{') {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01331) "Missing '}' on "
19caef6edbd6a814612c8cd7bd8f437f403df210nd if (p < ep) {
19caef6edbd6a814612c8cd7bd8f437f403df210nd if (p < ep) {
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* empty name results in a copy of '$' in the output string */
19caef6edbd6a814612c8cd7bd8f437f403df210nd *out++ = *p++;
19caef6edbd6a814612c8cd7bd8f437f403df210nd else if (leave_name) {
19caef6edbd6a814612c8cd7bd8f437f403df210nd if ((out && out >= eout) || (length && outlen >= length)) {
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* check the remainder */
19caef6edbd6a814612c8cd7bd8f437f403df210nd current->next = apr_palloc(ctx->dpool, sizeof(*current->next));
19caef6edbd6a814612c8cd7bd8f437f403df210nd /* assemble result */
19caef6edbd6a814612c8cd7bd8f437f403df210nd const char *ep;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf * +-------------------------------------------------------+
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf * | Conditional Expression Parser
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf * +-------------------------------------------------------+
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sfstatic APR_INLINE int re_check(include_ctx_t *ctx, const char *string,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *rexp)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf compiled = ap_pregcomp(ctx->dpool, rexp, AP_REG_EXTENDED);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, "unable to "
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf return -1;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf re = ctx->intern->re = apr_palloc(ctx->pool, sizeof(*re));
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf re->have_match = !ap_regexec(compiled, string, AP_MAX_REG_MATCH,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sfstatic int get_ptoken(include_ctx_t *ctx, const char **parse, token_t *token, token_t *previous)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *p;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* Skip leading white space */
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf switch (*(*parse)++) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf case '\'':
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* if last token was ACCESS, this token is STRING */
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf if (previous != NULL && TOKEN_ACCESS == previous->type) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* It's a string or regex token
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf * Now search for the next token, which finishes this string
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf if (!*(++*parse)) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf switch (**parse) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf while (shift--) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf memcpy(c, p, e-p);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf *c++ = *++e;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sfstatic int parse_expr(include_ctx_t *ctx, const char *expr, int *was_error)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf const char *error = "Invalid expression \"%s\" in file %s";
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf unsigned regex = 0;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* Create Parse Tree */
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf while (1) {
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* uncomment this to see how the tree a built:
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf * DEBUG_DUMP_TREE(ctx, root);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, error, expr, r->filename);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* Evaluate Parse Tree */
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01332)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "Invalid expression \"%s\" in file %s",
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* short circuit evaluation */
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ((current->token.type == TOKEN_AND && !current->left->value) ||
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf (current->token.type == TOKEN_OR && current->left->value))) {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01333)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "Invalid expression \"%s\" in file %s",
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_ssi_parse_string(ctx, current->left->token.value, NULL, 0,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_ssi_parse_string(ctx, current->right->token.value, NULL, 0,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf current->value = re_check(ctx, current->left->token.value,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01334)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "Invalid expression \"%s\" in file %s",
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_ssi_parse_string(ctx, current->left->token.value, NULL, 0,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_ssi_parse_string(ctx, current->right->token.value, NULL, 0,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf case TOKEN_GE: current->value = current->value >= 0; break;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf case TOKEN_GT: current->value = current->value > 0; break;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf case TOKEN_LE: current->value = current->value <= 0; break;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf case TOKEN_LT: current->value = current->value < 0; break;
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf default: current->value = 0; break; /* should not happen */
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01335)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "Invalid expression \"%s\" in file %s: Token '-A' must be followed by a URI string.",
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_ssi_parse_string(ctx, current->right->token.value, NULL, 0,
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf rr = ap_sub_req_lookup_uri(current->right->token.value, r, NULL);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf /* 400 and higher are considered access denied */
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_DEBUG, rr->status, r, APLOGNO(01336)
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "mod_include: The tested "
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf "subrequest -A \"%s\" returned an error code.",
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf error = "No operator before regex in expr \"%s\" in file %s";
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, error, expr,r->filename);
de2d327e43e0f17cdb64851beafecba96a0ed962sf/* same as above, but use common ap_expr syntax / API */
de2d327e43e0f17cdb64851beafecba96a0ed962sfstatic int parse_ap_expr(include_ctx_t *ctx, const char *expr, int *was_error)
de2d327e43e0f17cdb64851beafecba96a0ed962sf const char *err;
de2d327e43e0f17cdb64851beafecba96a0ed962sf ap_expr_eval_ctx_t *eval_ctx = ctx->intern->expr_eval_ctx;
de2d327e43e0f17cdb64851beafecba96a0ed962sf err = ap_expr_parse(ctx->r->pool, ctx->r->pool, &expr_info, expr,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, APLOGNO(01337)
de2d327e43e0f17cdb64851beafecba96a0ed962sf ctx->intern->re = re = apr_pcalloc(ctx->pool, sizeof(*re));
de2d327e43e0f17cdb64851beafecba96a0ed962sf /* ap_expr_exec_ctx() does not care about re->have_match but only about
de2d327e43e0f17cdb64851beafecba96a0ed962sf * re->source
de2d327e43e0f17cdb64851beafecba96a0ed962sf if (ret < 0) {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, APLOGNO(01338)
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Action Handlers
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * Extract the next tag name and value.
82b62539f34e8fa7434a95335c4566441c7b5589nd * If there are no more tags, set the tag name to NULL.
82b62539f34e8fa7434a95335c4566441c7b5589nd * The tag value is html decoded if dodecode is non-zero.
82b62539f34e8fa7434a95335c4566441c7b5589nd * The tag value may be NULL if there is no tag value..
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic void ap_ssi_get_tag_and_value(include_ctx_t *ctx, char **tag,
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic int find_file(request_rec *r, const char *directive, const char *tag,
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd /* be safe; only files in this directory or below allowed */
82b62539f34e8fa7434a95335c4566441c7b5589nd "in parsed file %s";
82b62539f34e8fa7434a95335c4566441c7b5589nd /* note: it is okay to pass NULL for the "next filter" since
82b62539f34e8fa7434a95335c4566441c7b5589nd we never attempt to "run" this sub request. */
2d4ea77e21ef7f3707d2c27f6117cc0a36e99b83trawick if (rr->status == HTTP_OK && rr->finfo.filetype != APR_NOFILE) {
82b62539f34e8fa7434a95335c4566441c7b5589nd APR_FINFO_GPROT | APR_FINFO_MIN, rr->pool)) != APR_SUCCESS
82b62539f34e8fa7434a95335c4566441c7b5589nd "in parsed file %s";
82b62539f34e8fa7434a95335c4566441c7b5589nd "in parsed file %s";
82b62539f34e8fa7434a95335c4566441c7b5589nd /* note: it is okay to pass NULL for the "next filter" since
82b62539f34e8fa7434a95335c4566441c7b5589nd we never attempt to "run" this sub request. */
2d4ea77e21ef7f3707d2c27f6117cc0a36e99b83trawick if (rr->status == HTTP_OK && rr->finfo.filetype != APR_NOFILE) {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01339) "unable to get "
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd "information about \"%s\" in parsed file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd return -1;
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01340) "unknown parameter \"%s\" "
82b62539f34e8fa7434a95335c4566441c7b5589nd return -1;
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * <!--#include virtual|file="..." [onerror|virtual|file="..."] ... -->
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * Output each file/virtual in turn until one of them returns an error.
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * On error, ignore all further file/virtual attributes until we reach
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * an onerror attribute, where we make an attempt to serve the onerror
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * virtual url. If onerror fails, or no onerror is present, the default
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin * error string is inserted into the stream.
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_include(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "missing argument for include element in %s",
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd while (1) {
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin if (strcmp(tag, "virtual") && strcmp(tag, "file") && strcmp(tag,
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin "onerror")) {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01342) "unknown parameter "
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd /* be safe; only files in this directory or below allowed */
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "unable to include file \"%s\" in parsed file %s";
439ccf2a084e1da566548931c585cbcc3a9e7f4cminfrin rr = ap_sub_req_method_uri(r->method, parsed_string, r, f->next);
439ccf2a084e1da566548931c585cbcc3a9e7f4cminfrin rr = ap_sub_req_lookup_uri(parsed_string, r, f->next);
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin error_fmt = "unable to include \"%s\" in parsed file %s, subrequest setup returned %d";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd rr->content_type && strncmp(rr->content_type, "text/", 5)) {
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "unable to include potential exec \"%s\" in parsed "
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin "file %s, content type not text/*";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd /* See the Kludge in includes_filter for why.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * Basically, it puts a bread crumb in here, then looks
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * for the crumb later to see if its been here.
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf ap_set_module_config(rr->request_config, &include_module, r);
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin if (!error_fmt && ((status = ap_run_sub_req(rr)))) {
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin error_fmt = "unable to include \"%s\" in parsed file %s, subrequest returned %d";
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r, error_fmt, tag_val,
39447f9f1439e28e56399b51fc66e19ffe4730fbminfrin r->filename, status ? status : rr ? rr->status : 0);
cb838cc4d5fd559efd6c0579a0fcb8f6e5a7af22minfrin /* onerror threw an error, give up completely */
d209a9cc7aa880fba5a6290e5aa8e5a317421b11jorton /* Do *not* destroy the subrequest here; it may have allocated
d209a9cc7aa880fba5a6290e5aa8e5a317421b11jorton * variables in this r->subprocess_env in the subrequest's
d209a9cc7aa880fba5a6290e5aa8e5a317421b11jorton * r->pool, so that pool must survive as long as this request.
d209a9cc7aa880fba5a6290e5aa8e5a317421b11jorton * Yes, this is a memory leak. */
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin * <!--#echo [decoding="..."] [encoding="..."] var="..." [decoding="..."]
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin * [encoding="..."] var="..." ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_echo(include_ctx_t *ctx, ap_filter_t *f,
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin const char *encoding = "entity", *decoding = "none";
185aa71728867671e105178b4c66fbc22b65ae26sf "missing argument for echo element in %s",
ea281ba43c2de412f9c9edab1ca8228362705037nd while (1) {
ea281ba43c2de412f9c9edab1ca8228362705037nd ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
ea281ba43c2de412f9c9edab1ca8228362705037nd const char *val;
19caef6edbd6a814612c8cd7bd8f437f403df210nd val = get_include_var(ap_ssi_parse_string(ctx, tag_val, NULL,
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin char *e, *d, *token;
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin /* do nothing */
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin echo_text = ap_pbase64decode(ctx->dpool, echo_text);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01344) "unknown value "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin "\"%s\" to parameter \"decoding\" of tag echo in "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin /* do nothing */
81cc440ca73845f44dc589db106d3feb7a36f33bminfrin echo_text = ap_escape_urlencoded(ctx->dpool, echo_text);
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin echo_text = ap_escape_html2(ctx->dpool, echo_text, 0);
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin buf = ap_pbase64encode(ctx->dpool, (char *)echo_text);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01345) "unknown value "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin "\"%s\" to parameter \"encoding\" of tag echo in "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01346) "unknown parameter "
6d415c3a2f1037af2900bd0af5033da2421f022fnd * <!--#config [timefmt="..."] [sizefmt="..."] [errmsg="..."]
6d415c3a2f1037af2900bd0af5033da2421f022fnd * [echomsg="..."] -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_config(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "missing argument for config element in %s",
459ca87de1e22b84211553bc342dc086ddfdca4cnd while (1) {
459ca87de1e22b84211553bc342dc086ddfdca4cnd ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_RAW);
b729404a66e24731183c630cc289cbac1e0e1b23nd ctx->error_str = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
6d415c3a2f1037af2900bd0af5033da2421f022fnd ap_ssi_parse_string(ctx, tag_val, NULL, 0,SSI_EXPAND_DROP_NAME);
6d415c3a2f1037af2900bd0af5033da2421f022fnd ctx->intern->undefined_echo_len=strlen(ctx->intern->undefined_echo);
b729404a66e24731183c630cc289cbac1e0e1b23nd ctx->time_str = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
e8f95a682820a599fe41b22977010636be5c2717jim apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date,
e8f95a682820a599fe41b22977010636be5c2717jim apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date,
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01348) "unknown value "
459ca87de1e22b84211553bc342dc086ddfdca4cnd "\"%s\" to parameter \"sizefmt\" of tag config "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01349) "unknown parameter "
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd * <!--#fsize virtual|file="..." [virtual|file="..."] ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_fsize(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "missing argument for fsize element in %s",
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd while (1) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd if (!find_file(r, "fsize", tag, parsed_string, &finfo)) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd buf = apr_strfsize(finfo.size, apr_palloc(ctx->pool, 5));
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd tmp = apr_psprintf(ctx->dpool, "%" APR_OFF_T_FMT, finfo.size);
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd for (x = 0; x < l; ++x) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd if (x && !((l - x) % 3)) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd if (len == l) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd for (pos = x = 0; x < l; ++x) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd if (x && !((l - x) % 3)) {
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd APR_BRIGADE_INSERT_TAIL(bb, apr_bucket_pool_create(buf, len,
3cee1996c8fed7f09f7f945aed5bc16908aee3fand * <!--#flastmod virtual|file="..." [virtual|file="..."] ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_flastmod(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "missing argument for flastmod element in %s",
3cee1996c8fed7f09f7f945aed5bc16908aee3fand while (1) {
3cee1996c8fed7f09f7f945aed5bc16908aee3fand ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
3cee1996c8fed7f09f7f945aed5bc16908aee3fand if (!find_file(r, "flastmod", tag, parsed_string, &finfo)) {
3cee1996c8fed7f09f7f945aed5bc16908aee3fand t_val = ap_ht_time(ctx->pool, finfo.mtime, ctx->time_str, 0);
3cee1996c8fed7f09f7f945aed5bc16908aee3fand APR_BRIGADE_INSERT_TAIL(bb, apr_bucket_pool_create(t_val, t_len,
dc8e8fc7e5ab44d022f713c60272face143c48c9nd * <!--#if expr="..." -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_if(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf ? APLOGNO(01352) "too many arguments for if element in %s"
185aa71728867671e105178b4c66fbc22b65ae26sf : APLOGNO(01353) "missing expr argument for if element in %s",
dc8e8fc7e5ab44d022f713c60272face143c48c9nd ap_ssi_get_tag_and_value(ctx, &tag, &expr, SSI_VALUE_RAW);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01354) "unknown parameter \"%s\" "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01355) "missing expr value for if "
d508db902788a6d924925280811b2df2249942c3nd * <!--#elif expr="..." -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_elif(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf ? APLOGNO(01356) "too many arguments for if element in %s"
185aa71728867671e105178b4c66fbc22b65ae26sf : APLOGNO(01357) "missing expr argument for if element in %s",
d508db902788a6d924925280811b2df2249942c3nd ap_ssi_get_tag_and_value(ctx, &tag, &expr, SSI_VALUE_RAW);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01358) "unknown parameter \"%s\" "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01359) "missing expr in elif "
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd * <!--#else -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_else(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "else directive does not take tags in %s",
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd * <!--#endif -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_endif(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf "endif directive does not take tags in %s",
9255a23a3f3fc01dd96943aff26466dbc6205eeand * <!--#set var="..." value="..." ... -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_set(include_ctx_t *ctx, ap_filter_t *f,
e8f95a682820a599fe41b22977010636be5c2717jim /* we need to use the 'main' request pool to set notes as that is
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh * a notes lifetime
9255a23a3f3fc01dd96943aff26466dbc6205eeand while (1) {
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_RAW);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01363) "variable must "
9255a23a3f3fc01dd96943aff26466dbc6205eeand "precede value in set directive in %s",
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin char *e, *d, *token;
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin /* do nothing */
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin parsed_string = ap_pbase64decode(ctx->dpool, parsed_string);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01364) "unknown value "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin "\"%s\" to parameter \"decoding\" of tag set in "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin /* do nothing */
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin parsed_string = ap_escape_uri(ctx->dpool, parsed_string);
81cc440ca73845f44dc589db106d3feb7a36f33bminfrin parsed_string = ap_escape_urlencoded(ctx->dpool, parsed_string);
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin parsed_string = ap_escape_html2(ctx->dpool, parsed_string, 0);
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin buf = ap_pbase64encode(ctx->dpool, (char *)parsed_string);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01365) "unknown value "
1081aff66582e2cac722fb3b6f09da4f524b5962minfrin "\"%s\" to parameter \"encoding\" of tag set in "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01366) "Invalid tag for set "
c75c901cabb70fdfcdca87aa261b987094c40e1dnd * <!--#printenv -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_printenv(include_ctx_t *ctx, ap_filter_t *f,
185aa71728867671e105178b4c66fbc22b65ae26sf APLOGNO(01367) "printenv directive does not take tags in %s",
c75c901cabb70fdfcdca87aa261b987094c40e1dnd /* get key */
c75c901cabb70fdfcdca87aa261b987094c40e1dnd /* get value */
102001032647294c7663562e7b0a7fe177302fb2jorton val_text = add_include_vars_lazy(r, elts[i].key, ctx->time_str);
c7da4b65f836be94ad80e3c7a80372721f983ca3sf apr_brigade_putstrs(bb, NULL, NULL, key_text, "=", val_text, "\n",
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Main Includes-Filter Engine
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd/* This is an implementation of the BNDM search algorithm.
e8f95a682820a599fe41b22977010636be5c2717jim * Fast and Flexible String Matching by Combining Bit-parallelism and
e8f95a682820a599fe41b22977010636be5c2717jim * Suffix Automata (2001)
82b62539f34e8fa7434a95335c4566441c7b5589nd * Gonzalo Navarro, Mathieu Raffinot
82b62539f34e8fa7434a95335c4566441c7b5589nd * Initial code submitted by Sascha Schumann.
82b62539f34e8fa7434a95335c4566441c7b5589nd/* Precompile the bndm_t data structure. */
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic bndm_t *bndm_compile(apr_pool_t *pool, const char *n, apr_size_t nl)
82b62539f34e8fa7434a95335c4566441c7b5589nd unsigned int x;
82b62539f34e8fa7434a95335c4566441c7b5589nd t->T[(unsigned char) *n++] |= x;
82b62539f34e8fa7434a95335c4566441c7b5589nd t->x = x - 1;
82b62539f34e8fa7434a95335c4566441c7b5589nd/* Implements the BNDM search algorithm (as described above).
82b62539f34e8fa7434a95335c4566441c7b5589nd * h - the string to look in
82b62539f34e8fa7434a95335c4566441c7b5589nd * hl - length of the string to look for
e8f95a682820a599fe41b22977010636be5c2717jim * t - precompiled bndm structure against the pattern
82b62539f34e8fa7434a95335c4566441c7b5589nd * Returns the count of character that is the first match or hl if no
82b62539f34e8fa7434a95335c4566441c7b5589nd * match is found.
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic apr_size_t bndm(bndm_t *t, const char *h, apr_size_t hl)
82b62539f34e8fa7434a95335c4566441c7b5589nd const char *skip;
82b62539f34e8fa7434a95335c4566441c7b5589nd unsigned int *T, x, d;
82b62539f34e8fa7434a95335c4566441c7b5589nd p = pi + nl; /* compare window right to left. point to the first char */
82b62539f34e8fa7434a95335c4566441c7b5589nd while (p < he) {
82b62539f34e8fa7434a95335c4566441c7b5589nd d &= T[(unsigned char) *p--];
82b62539f34e8fa7434a95335c4566441c7b5589nd if ((d & 1)) {
360fb449fbdd6f7c75b321c7e1612233e828ce77nd if (p != pi) {
82b62539f34e8fa7434a95335c4566441c7b5589nd return p - h + 1;
82b62539f34e8fa7434a95335c4566441c7b5589nd } while (d);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * returns the index position of the first byte of start_seq (or the len of
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * the buffer as non-match)
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_start_sequence(include_ctx_t *ctx, const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p, *ep;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd p = data; /* try partial match at the end of the buffer (below) */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* try fast bndm search over the buffer
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * (hopefully the whole start sequence can be found in this buffer)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* wow, found it. ready. */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* ok, the pattern can't be found as whole in the buffer,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * check the end for a partial match
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* found a possible start_seq start */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p < ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* partial match found. Store the info for the next round */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p == ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* we must try all combinations; consider (e.g.) SSIStartTag "--->"
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * and a string data of "--.-" and the end of the buffer
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd } while (p < ep);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* no match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * returns the first byte *after* the partial (or final) match.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * If we had to trick with the start_seq start, 'release' returns the
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * number of chars of the start_seq which appeared not to be part of a
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * full tag and may have to be passed down the filter chain.
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_partial_start_sequence(include_ctx_t *ctx,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p, *ep;
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd while (p < ep && pos < slen && *p == intern->start_seq[pos]) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* full match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* the whole buffer is a partial match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p == ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* No match so far, but again:
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * We must try all combinations, since the start_seq is a random
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * user supplied string
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * So: look if the first char of start_seq appears somewhere within
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * the current partial match. If it does, try to start a match that
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * begins with this offset. (This can happen, if a strange
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * start_seq like "---->" spans buffers)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* if a matching beginning char was found, try to match the
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * remainder of the old buffer.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (t == pos) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* yeah, another partial match found in the *old*
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * buffer, now test the *current* buffer for
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * continuing match
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* no match at all, release all (wrongly) matched chars so far */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * returns the position after the directive
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_directive(include_ctx_t *ctx, const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = data;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* we have to consider the case of missing space between directive
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * and end_seq (be somewhat lenient), e.g. <!--#printenv-->
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* full match, we're done */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* partial match, the buffer is too small to match fully */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p == ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* no match. continue normal parsing */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* continue immediately with the next state */
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, APLOGNO(01368) "missing "
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd "directive name in parsed document %s",
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* normalize directive name */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* get a rid of a gcc warning about unhandled enumerations */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * find out whether the next token is (a possible) end_seq or an argument
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_arg_or_tail(include_ctx_t *ctx, const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = data;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* skip leading WS */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* buffer doesn't consist of whitespaces only */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p < ep) {
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd intern->state = (*p == *intern->end_seq) ? PARSE_TAIL : PARSE_ARG;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * test the stream for end_seq. If it doesn't match at all, it must be an
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * argument
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_tail(include_ctx_t *ctx, const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = data;
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd while (p < ep && pos < intern->end_seq_len && *p == intern->end_seq[pos]) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* bingo, full match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* partial match, the buffer is too small to match fully */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p == ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* no match. It must be an argument string then
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * The caller should cleanup and rewind to the reparse point
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * extract name=value from the buffer
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * A pcre-pattern could look (similar to):
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * name\s*(?:=\s*(["'`]?)value\1(?>\s*))?
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_size_t find_argument(include_ctx_t *ctx, const char *data,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = data;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * create argument structure and append it to the current list
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* check whether it's a valid one. If it begins with a quote, we
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * can safely assume, someone forgot the name of the argument
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd switch (*p) {
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, APLOGNO(01369) "missing "
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd "argument name for value to tag %s in %s",
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* continue immediately with next state */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p < ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->r, APLOGNO(01370) "missing "
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd "argument name for value to tag %s in %s",
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* continue with next state immediately */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p < ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (*p == '=') {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd else { /* no value */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* buffer doesn't consist of whitespaces only */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p < ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd switch (*p) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* continue with next state immediately */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd for (; p < ep; ++p) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd if (p == ep) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return (p - data);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * The value is still the raw input string. Finally clean it up.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* strip quote escaping \ from the string */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ep = intern->current_arg->value + intern->current_arg->value_len;
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd intern->current_arg->value[intern->current_arg->value_len] = '\0';
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* get a rid of a gcc warning about unhandled enumerations */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * This is the main loop over the current bucket brigade.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndstatic apr_status_t send_parsed_content(ap_filter_t *f, apr_bucket_brigade *bb)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* fast exit */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* we may crash, since already cleaned up; hand over the responsibility
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * to the next filter;-)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* All stuff passed along has to be put into that brigade */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd pass_bb = apr_brigade_create(ctx->pool, f->c->bucket_alloc);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd /* initialization for this loop */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* loop over the current bucket brigade */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* handle meta buckets before reading any data */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* Hit end of stream, time for cleanup ... But wait!
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * Perhaps we're not ready yet. We may have to loop one or
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * two times again to finish our work. In that case, we
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * just re-insert the EOS bucket to allow for an extra loop.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * PARSE_EXECUTE means, we've hit a directive just before the
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * EOS, which is now waiting for execution.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * PARSE_DIRECTIVE_POSTTAIL means, we've hit a directive with
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * no argument and no space between directive and end_seq
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * just before the EOS. (consider <!--#printenv--> as last
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * or only string within the stream). This state, however,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * just cleans up and turns itself to PARSE_EXECUTE, which
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * will be passed through within the next (and actually
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * last) round.
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd break; /* END OF STREAM */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* enough is enough ... */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* read the current bucket data */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* zero length bucket, fetch next one */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * it's actually a data containing bucket, start/continue parsing
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* no current tag; search for start sequence */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* now delete the start_seq stuff from the remaining bucket */
360fb449fbdd6f7c75b321c7e1612233e828ce77nd apr_bucket_split(newb, intern->start_seq_pat->pattern_len);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* we're currently looking for the end of the start sequence */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd index = find_partial_start_sequence(ctx, data, len, &release);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* check if we mismatched earlier and have to release some chars */
0696197a54f186a65abacba1037f6fbe0cb975a1niq char *to_release = apr_pmemdup(ctx->pool, intern->start_seq, release);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd newb = apr_bucket_pool_create(to_release, release, ctx->pool,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* now delete the start_seq stuff from the remaining bucket */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd if (PARSE_DIRECTIVE == intern->state) { /* final match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* we're currently grabbing the directive name */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd index = find_directive(ctx, data, len, &store, &store_len);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* time for cleanup? */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd else if (index) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* skip WS and find out what comes next (arg or end_seq) */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* currently parsing name[=val] */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd index = find_argument(ctx, data, len, &store, &store_len);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* time for cleanup? */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd else if (index) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* try to match end_seq at current pos. */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* PARSE_ARG must reparse at the beginning */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd default: /* partial match */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* now execute the parsed directive, cleanup the space and
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd * start again with PARSE_PRE_HEAD
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* if there was an error, it was already logged; just stop here */
e13623604da9129e8015640ec0ff7457edc889c4trawick (include_handler_fn_t *)apr_hash_get(include_handlers, intern->directive,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01371)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "unknown directive \"%s\" in parsed doc %s",
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* cleanup */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* Oooof. Done here, start next round */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd } /* switch(ctx->state) */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd } /* while(brigade) */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* End of stream. Final cleanup */
0696197a54f186a65abacba1037f6fbe0cb975a1niq char *to_release = apr_pmemdup(ctx->pool, intern->start_seq,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01372)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "SSI directive was not properly finished at the end "
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01373)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "missing closing endif directive in parsed document"
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* cleanup our temporary memory */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* don't forget to finally insert the EOS bucket */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* if something's left over, pass it along */
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Runtime Hooks
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
360fb449fbdd6f7c75b321c7e1612233e828ce77nd include_dir_config *conf = ap_get_module_config(f->r->per_dir_config,
0fdf8c342123fde84405b885fb1720ebc652e10djerenkrantz /* When our xbithack value isn't set to full or our platform isn't
0fdf8c342123fde84405b885fb1720ebc652e10djerenkrantz * providing group-level protection bits or our group-level bits do not
0fdf8c342123fde84405b885fb1720ebc652e10djerenkrantz * have group-execite on, we will set the no_local_copy value to 1 so
0fdf8c342123fde84405b885fb1720ebc652e10djerenkrantz * that we will not send 304s.
0f09ed17226402fa2b81f83e551b8b6faf95ecabnd /* Don't allow ETag headers to be generated - see RFC2616 - 13.3.4.
0f09ed17226402fa2b81f83e551b8b6faf95ecabnd * We don't know if we are going to be including a file or executing
0f09ed17226402fa2b81f83e551b8b6faf95ecabnd * a program - in either case a strong ETag header will likely be invalid.
4955f2b4ca045ac2c025fff3a46c2d901933d1e4trawickstatic apr_status_t includes_filter(ap_filter_t *f, apr_bucket_brigade *b)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd include_dir_config *conf = ap_get_module_config(r->per_dir_config,
51be7fc538641ed7cb22e959eb31629f7183f70fianh include_server_config *sconf= ap_get_module_config(r->server->module_config,
185aa71728867671e105178b4c66fbc22b65ae26sf ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01374)
138811b61285d61e9bac17d9fce6fe1092c0dc4astas "mod_include: Options +Includes (or IncludesNoExec) "
18343797fadabacf01280b38ea7688690d12aec0rbb if (!f->ctx) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* create context for this filter */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ctx->intern = intern = apr_palloc(r->pool, sizeof(*ctx->intern));
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* runtime data */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd intern->tmp_bb = apr_brigade_create(ctx->pool, f->c->bucket_alloc);
28c1248e01240900c762bf6aaa27c514a1454713jorton if ((ap_allow_options(r) & OPT_INC_WITH_EXEC) == 0) {
b44565f239485673d9486068588a5fb3af008be9sf ctx->error_str = conf->default_error_msg ? conf->default_error_msg :
b44565f239485673d9486068588a5fb3af008be9sf ctx->time_str = conf->default_time_fmt ? conf->default_time_fmt :
360fb449fbdd6f7c75b321c7e1612233e828ce77nd intern->start_seq_pat = bndm_compile(ctx->pool, intern->start_seq,
b44565f239485673d9486068588a5fb3af008be9sf intern->undefined_echo = conf->undefined_echo ? conf->undefined_echo :
b44565f239485673d9486068588a5fb3af008be9sf intern->undefined_echo_len = strlen(intern->undefined_echo);
f6d7e6fd25849f254e7f0b9f61303f832f9c80c9sf if ((parent = ap_get_module_config(r->request_config, &include_module))) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* Kludge --- for nested includes, we want to keep the subprocess
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * environment of the base document (for compatibility); that means
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * torquing our own last_modified date as well so that the
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * LAST_MODIFIED variable gets reset to the proper value if the
97b2451ce8e896e30c696d01ad11ef8d7c815881wrowe * nested document resets <!--#config timefmt -->.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* we're not a nested include, so we create an initial
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * environment */
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb /* Always unset the content-length. There is no way to know if
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * the content will be modified at some point by send_parsed_content.
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * It is very possible for us to not find any content in the first
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * 9k of the file, but still have to modify the content of the file.
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * If we are going to pass the file through send_parsed_content, then
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * the content-length should just be unset.
0f09ed17226402fa2b81f83e551b8b6faf95ecabnd /* Always unset the Last-Modified field - see RFC2616 - 13.3.4.
fe66541c73f5ec94a5a83cf67195cb7f05ccd0a6jerenkrantz * We don't know if we are going to be including a file or executing
e8f95a682820a599fe41b22977010636be5c2717jim * a program which may change the Last-Modified header or make the
fe66541c73f5ec94a5a83cf67195cb7f05ccd0a6jerenkrantz * content completely dynamic. Therefore, we can't support these
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin * Exception: XBitHack full means we *should* set the
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin * Last-Modified field.
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin * SSILastModified on means we *should* set the Last-Modified field
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin * if not present, or respect an existing value if present.
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin /* Must we respect the last modified header? By default, no */
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin /* update the last modified if we have a valid time, and only if
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin * we don't already have a valid last modified.
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin && !apr_table_get(f->r->headers_out, "Last-Modified")) {
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley /* Assure the platform supports Group protections */
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley apr_table_unset(f->r->headers_out, "Last-Modified");
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* add QUERY stuff to env cause it ain't yet */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd apr_table_setn(r->subprocess_env, "QUERY_STRING", r->args);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd apr_table_setn(r->subprocess_env, "QUERY_STRING_UNESCAPED",
e8f95a682820a599fe41b22977010636be5c2717jim if (r->handler && (strcmp(r->handler, "server-parsed") == 0))
82b62539f34e8fa7434a95335c4566441c7b5589nd /* These OS's don't support xbithack. This is being worked on. */
89c7a19f9c47b03f00f622a979490c9bccb2ff03sf include_dir_config *conf = ap_get_module_config(r->per_dir_config,
133cbcba0df4ba0e72f7eaaaebabe119f145f261niq if (!r->content_type || strncmp(r->content_type, "text/html", 9)) {
82b62539f34e8fa7434a95335c4566441c7b5589nd /* We always return declined, because the default handler actually
82b62539f34e8fa7434a95335c4566441c7b5589nd * serves the file. All we have to do is add the filter.
82b62539f34e8fa7434a95335c4566441c7b5589nd ap_add_output_filter("INCLUDES", NULL, r, r->connection);
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Configuration Handling
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic void *create_includes_dir_config(apr_pool_t *p, char *dummy)
b44565f239485673d9486068588a5fb3af008be9sf include_dir_config *result = apr_pcalloc(p, sizeof(include_dir_config));
b44565f239485673d9486068588a5fb3af008be9sf#define MERGE(b,o,n,val,unset) n->val = o->val != unset ? o->val : b->val
b44565f239485673d9486068588a5fb3af008be9sfstatic void *merge_includes_dir_config(apr_pool_t *p, void *basev, void *overridesv)
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic void *create_includes_server_config(apr_pool_t *p, server_rec *server)
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_xbithack(cmd_parms *cmd, void *mconfig, const char *arg)
82b62539f34e8fa7434a95335c4566441c7b5589nd return "XBitHack must be set to Off, On, or Full";
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_default_start_tag(cmd_parms *cmd, void *mconfig,
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *tag)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *p = tag;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* be consistent. (See below in set_default_end_tag) */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd while (*p) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return "SSIStartTag may not contain any whitespaces";
51be7fc538641ed7cb22e959eb31629f7183f70fianh conf= ap_get_module_config(cmd->server->module_config , &include_module);
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_default_end_tag(cmd_parms *cmd, void *mconfig,
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *tag)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *p = tag;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* sanity check. The parser may fail otherwise */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd while (*p) {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd return "SSIEndTag may not contain any whitespaces";
51be7fc538641ed7cb22e959eb31629f7183f70fianh conf= ap_get_module_config(cmd->server->module_config , &include_module);
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_undefined_echo(cmd_parms *cmd, void *mconfig,
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *msg)
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_default_error_msg(cmd_parms *cmd, void *mconfig,
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *msg)
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic const char *set_default_time_fmt(cmd_parms *cmd, void *mconfig,
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *fmt)
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Module Initialization and Configuration
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic int include_post_config(apr_pool_t *p, apr_pool_t *plog,
82b62539f34e8fa7434a95335c4566441c7b5589nd ssi_pfn_register = APR_RETRIEVE_OPTIONAL_FN(ap_register_include_handler);
e8f95a682820a599fe41b22977010636be5c2717jim AP_INIT_TAKE1("XBitHack", set_xbithack, NULL, OR_OPTIONS,
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick "Off, On, or Full"),
e8f95a682820a599fe41b22977010636be5c2717jim AP_INIT_TAKE1("SSIErrorMsg", set_default_error_msg, NULL, OR_ALL,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb "a string"),
dfd4950edac888e671b96f62ff5382b7cb350d48rbb AP_INIT_TAKE1("SSITimeFormat", set_default_time_fmt, NULL, OR_ALL,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb "a strftime(3) formatted string"),
51be7fc538641ed7cb22e959eb31629f7183f70fianh AP_INIT_TAKE1("SSIStartTag", set_default_start_tag, NULL, RSRC_CONF,
51be7fc538641ed7cb22e959eb31629f7183f70fianh "SSI Start String Tag"),
51be7fc538641ed7cb22e959eb31629f7183f70fianh AP_INIT_TAKE1("SSIEndTag", set_default_end_tag, NULL, RSRC_CONF,
51be7fc538641ed7cb22e959eb31629f7183f70fianh "SSI End String Tag"),
bb8550898eba0b2cc9004aeb81696edf6ea11c16nd AP_INIT_TAKE1("SSIUndefinedEcho", set_undefined_echo, NULL, OR_ALL,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "String to be displayed if an echoed variable is undefined"),
de2d327e43e0f17cdb64851beafecba96a0ed962sf AP_INIT_FLAG("SSILegacyExprParser", ap_set_flag_slot_char,
de2d327e43e0f17cdb64851beafecba96a0ed962sf "Whether to use the legacy expression parser compatible "
de2d327e43e0f17cdb64851beafecba96a0ed962sf "with <= 2.2.x. Limited to 'on' or 'off'"),
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin (void *)APR_OFFSETOF(include_dir_config, lastmodified),
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin OR_LIMIT, "Whether to set the last modified header or respect "
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin "an existing header. Limited to 'on' or 'off'"),
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin OR_LIMIT, "Whether to allow the generation of ETags within the server. "
ca0a943242b488c162aa89874498e0316f7b2f2eminfrin "Existing ETags will be preserved. Limited to 'on' or 'off'"),
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic void ap_register_include_handler(char *tag, include_handler_fn_t *func)
82b62539f34e8fa7434a95335c4566441c7b5589nd apr_hash_set(include_handlers, tag, strlen(tag), (const void *)func);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe ap_hook_post_config(include_post_config, NULL, NULL, APR_HOOK_REALLY_FIRST);
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe ap_hook_fixups(include_fixup, NULL, NULL, APR_HOOK_LAST);