mod_include.c revision 4b0fc40a3ae20cd8de0ff9fb428ae22bff73f88a
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ====================================================================
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * The Apache Software License, Version 1.1
33bdcae1f7a1a65e351dda2a766a0cf28b1e695dnd * Copyright (c) 2000-2003 The Apache Software Foundation. All rights
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * reserved.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Redistribution and use in source and binary forms, with or without
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * modification, are permitted provided that the following conditions
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 1. Redistributions of source code must retain the above copyright
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * notice, this list of conditions and the following disclaimer.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 2. Redistributions in binary form must reproduce the above copyright
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * notice, this list of conditions and the following disclaimer in
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * the documentation and/or other materials provided with the
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * distribution.
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * 3. The end-user documentation included with the redistribution,
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * if any, must include the following acknowledgment:
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * "This product includes software developed by the
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * Apache Software Foundation (http://www.apache.org/)."
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * Alternately, this acknowledgment may appear in the software itself,
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * if and wherever such third-party acknowledgments normally appear.
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * 4. The names "Apache" and "Apache Software Foundation" must
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * not be used to endorse or promote products derived from this
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * software without prior written permission. For written
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * permission, please contact apache@apache.org.
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * 5. Products derived from this software may not be called "Apache",
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * nor may "Apache" appear in their name, without prior written
64185f9824e42f21ca7b9ae6c004484215c031a7rbb * permission of the Apache Software Foundation.
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * SUCH DAMAGE.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * ====================================================================
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * This software consists of voluntary contributions made by many
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * individuals on behalf of the Apache Software Foundation. For more
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * information on the Apache Software Foundation, please see
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * Portions of this software are based upon public domain software
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * originally written at the National Center for Supercomputing Applications,
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * University of Illinois, Urbana-Champaign.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * http_include.c: Handles the server-parsed HTML documents
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Original by Rob McCool; substantial fixups by David Robinson;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * incorporated into the Apache module framework by rst.
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;
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd/* conditional expression parser stuff */
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndtypedef enum {
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndtypedef struct {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd const char *value;
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd const char *s;
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndtypedef struct parse_node {
360fb449fbdd6f7c75b321c7e1612233e828ce77ndtypedef enum {
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {
51be7fc538641ed7cb22e959eb31629f7183f70fianhtypedef struct {
360fb449fbdd6f7c75b321c7e1612233e828ce77nd const char *undefined_echo;
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd/* main parser states */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndtypedef enum {
d2479dc17d5f6041e472fff5ed39a3a7222e9f51ndtypedef struct arg_item {
fa87772054bc5b4f05e71c532d3da5c01d98db26ndtypedef struct {
fa87772054bc5b4f05e71c532d3da5c01d98db26nd const char *source;
fa87772054bc5b4f05e71c532d3da5c01d98db26nd 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 */
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 debug_printf(ctx, "%sunmatched %s\n", is, current->token.s);
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) { \
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd DEBUG_PRINTF(((ctx), " Token: %s (%s)\n", d__t->s, d__t->value)); \
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
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic const char lazy_eval_sentinel;
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]);
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic void add_include_vars(request_rec *r, const char *timefmt)
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic const char *add_include_vars_lazy(request_rec *r, const char *var)
82b62539f34e8fa7434a95335c4566441c7b5589nd (include_dir_config *)ap_get_module_config(r->per_dir_config,
82b62539f34e8fa7434a95335c4566441c7b5589nd val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 0);
82b62539f34e8fa7434a95335c4566441c7b5589nd (include_dir_config *)ap_get_module_config(r->per_dir_config,
82b62539f34e8fa7434a95335c4566441c7b5589nd val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 1);
82b62539f34e8fa7434a95335c4566441c7b5589nd (include_dir_config *)ap_get_module_config(r->per_dir_config,
82b62539f34e8fa7434a95335c4566441c7b5589nd val = ap_ht_time(r->pool, r->finfo.mtime, conf->default_time_fmt, 0);
82b62539f34e8fa7434a95335c4566441c7b5589nd if (apr_get_username(&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.
fa87772054bc5b4f05e71c532d3da5c01d98db26nd ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, "regex capture $%d "
fa87772054bc5b4f05e71c532d3da5c01d98db26nd "regex capture $%d is out of range (last regex "
fa87772054bc5b4f05e71c532d3da5c01d98db26nd if (re->match[idx].rm_so < 0 || re->match[idx].rm_eo < 0) {
fa87772054bc5b4f05e71c532d3da5c01d98db26nd val = apr_pstrmemdup(ctx->dpool, re->source + re->match[idx].rm_so,
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 == '{') {
19caef6edbd6a814612c8cd7bd8f437f403df210nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "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;
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Conditional Expression Parser
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndstatic APR_INLINE int re_check(include_ctx_t *ctx, const char *string,
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd const char *rexp)
fa87772054bc5b4f05e71c532d3da5c01d98db26nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->intern->r, "unable to "
82b62539f34e8fa7434a95335c4566441c7b5589nd return -1;
fa87772054bc5b4f05e71c532d3da5c01d98db26nd re = ctx->intern->re = apr_palloc(ctx->pool, sizeof(*re));
fa87772054bc5b4f05e71c532d3da5c01d98db26nd rc = !ap_regexec(compiled, string, MAX_NMATCH, re->match, 0);
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndstatic int get_ptoken(apr_pool_t *pool, const char **parse, token_t *token)
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd const char *p;
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd /* Skip leading white space */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd switch (*(*parse)++) {
82b62539f34e8fa7434a95335c4566441c7b5589nd case '\'':
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd * It's a string or regex token
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd /* Now search for the next token, which finishes this string */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd if (!*(++*parse)) {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd switch (**parse) {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd while (shift--) {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd memcpy(c, p, e-p);
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd *c++ = *++e;
20d56c449f39c7c61d8eb6de55c1e0d213175b30ndstatic int parse_expr(include_ctx_t *ctx, const char *expr, int *was_error)
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd const char* buffer;
82b62539f34e8fa7434a95335c4566441c7b5589nd /* Create Parse Tree */
82b62539f34e8fa7434a95335c4566441c7b5589nd while (1) {
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd was_unmatched = get_ptoken(ctx->dpool, &parse, &new->token);
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd /* Percolate upwards */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
68e734f93539b04944f87ec6a66b1aaabb5e4a31nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "Invalid expression "
82b62539f34e8fa7434a95335c4566441c7b5589nd "Invalid expression \"%s\" in file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd /* Percolate upwards */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Unmatched ')' in \"%s\" in file %s",
4b0fc40a3ae20cd8de0ff9fb428ae22bff73f88and "Invalid expression \"%s\" in file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd /* Evaluate Parse Tree */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd buffer = ap_ssi_parse_string(ctx, current->token.value, NULL, 0,
82b62539f34e8fa7434a95335c4566441c7b5589nd "No operator before regex of expr \"%s\" in file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd "Invalid expression \"%s\" in file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd current->value = current->left->value && current->right->value;
82b62539f34e8fa7434a95335c4566441c7b5589nd current->value = current->left->value || current->right->value;
82b62539f34e8fa7434a95335c4566441c7b5589nd "Invalid expression \"%s\" in file %s",
98ebafaf350a6b091fe22c2899a80f7855c70a66nd buffer = ap_ssi_parse_string(ctx, current->left->token.value,
98ebafaf350a6b091fe22c2899a80f7855c70a66nd buffer = ap_ssi_parse_string(ctx, current->right->token.value,
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd current->value = re_check(ctx, current->left->token.value,
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Invalid expression \"%s\" in file %s",
98ebafaf350a6b091fe22c2899a80f7855c70a66nd buffer = ap_ssi_parse_string(ctx, current->left->token.value, NULL,
98ebafaf350a6b091fe22c2899a80f7855c70a66nd buffer = ap_ssi_parse_string(ctx, current->right->token.value, NULL,
82b62539f34e8fa7434a95335c4566441c7b5589nd current->value = 0; /* Don't return -1 if unknown token */
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd DEBUG_PRINTF((ctx, " Evaluate %s: %c\n", current->token.s,
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd DEBUG_PRINTF((ctx, " Evaluate %s: %c\n", current->token.s,
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Unmatched '(' in \"%s\" in file %s",
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "Unmatched ')' in \"%s\" in file %s",
20d56c449f39c7c61d8eb6de55c1e0d213175b30nd "bad token type (internal parser error)");
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. */
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. */
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unable to get "
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd "information about \"%s\" in parsed file %s",
82b62539f34e8fa7434a95335c4566441c7b5589nd return -1;
af8aac8ff43d909454cc2ad8f33fd877def3d6bbnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown parameter \"%s\" "
82b62539f34e8fa7434a95335c4566441c7b5589nd return -1;
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * <!--#include virtual|file="..." [virtual|file="..."] ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_include(include_ctx_t *ctx, ap_filter_t *f,
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd 0, r, "missing argument for include element in %s",
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd while (1) {
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "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";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "unable to include \"%s\" in parsed file %s";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd rr->content_type && strncmp(rr->content_type, "text/", 5)) {
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "unable to include potential exec \"%s\" in parsed "
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd "file %s";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd /* try to avoid recursive includes. We do this by walking
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * up the r->main list of subrequests, and at each level
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * walking back through any internal redirects. At each
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * step, we compare the filenames and the URIs.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * The filename comparison catches a recursive include
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * with an ever-changing URL, eg.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * <!--#include virtual=
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * "$REQUEST_URI/$QUERY_STRING?$QUERY_STRING/x" -->
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * which, although they would eventually be caught because
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * we have a limit on the length of files, etc., can
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * recurse for a while.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * The URI comparison catches the case where the filename
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * is changed while processing the request, so the
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * current name is never the same as any previous one.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * This can happen with "DocumentRoot /foo" when you
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * request "/" on the server and it includes "/".
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * This only applies to modules such as mod_dir that
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * (somewhat improperly) mess with r->filename outside
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd * of a filename translation phase.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd for (q = p; q; q = q->prev) {
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "Recursive include of \"%s\" in parsed file %s";
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.
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd ap_set_module_config(rr->request_config, &include_module, r);
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd error_fmt = "unable to include \"%s\" in parsed file %s";
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, error_fmt, tag_val,
3633fb691373bb8b1ddc9c801ba25c367cf5e5a3nd /* destroy the sub request */
ea281ba43c2de412f9c9edab1ca8228362705037nd * <!--#echo [encoding="..."] var="..." [encoding="..."] var="..." ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_echo(include_ctx_t *ctx, ap_filter_t *f,
ea281ba43c2de412f9c9edab1ca8228362705037nd 0, r, "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,
ea281ba43c2de412f9c9edab1ca8228362705037nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown value "
ea281ba43c2de412f9c9edab1ca8228362705037nd "\"%s\" to parameter \"encoding\" of tag echo in "
ea281ba43c2de412f9c9edab1ca8228362705037nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown parameter "
459ca87de1e22b84211553bc342dc086ddfdca4cnd * <!--#config [timefmt="..."] [sizefmt="..."] [errmsg="..."] -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_config(include_ctx_t *ctx, ap_filter_t *f,
459ca87de1e22b84211553bc342dc086ddfdca4cnd 0, r, "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,
b729404a66e24731183c630cc289cbac1e0e1b23nd ctx->time_str = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
459ca87de1e22b84211553bc342dc086ddfdca4cnd apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date,
459ca87de1e22b84211553bc342dc086ddfdca4cnd apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date,
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
459ca87de1e22b84211553bc342dc086ddfdca4cnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown value "
459ca87de1e22b84211553bc342dc086ddfdca4cnd "\"%s\" to parameter \"sizefmt\" of tag config "
459ca87de1e22b84211553bc342dc086ddfdca4cnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown parameter "
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd * <!--#fsize virtual|file="..." [virtual|file="..."] ... -->
82b62539f34e8fa7434a95335c4566441c7b5589ndstatic apr_status_t handle_fsize(include_ctx_t *ctx, ap_filter_t *f,
e4a6c1c27d81421785f8f76d1a5e5f9256c0e3cfnd 0, r, "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,
3cee1996c8fed7f09f7f945aed5bc16908aee3fand 0, r, "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,
dc8e8fc7e5ab44d022f713c60272face143c48c9nd ? "too many arguments for if element in %s"
dc8e8fc7e5ab44d022f713c60272face143c48c9nd : "missing expr argument for if element in %s",
dc8e8fc7e5ab44d022f713c60272face143c48c9nd ap_ssi_get_tag_and_value(ctx, &tag, &expr, SSI_VALUE_RAW);
dc8e8fc7e5ab44d022f713c60272face143c48c9nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown parameter \"%s\" "
dc8e8fc7e5ab44d022f713c60272face143c48c9nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "missing expr value for if "
d508db902788a6d924925280811b2df2249942c3nd * <!--#elif expr="..." -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_elif(include_ctx_t *ctx, ap_filter_t *f,
d508db902788a6d924925280811b2df2249942c3nd ? "too many arguments for if element in %s"
d508db902788a6d924925280811b2df2249942c3nd : "missing expr argument for if element in %s",
d508db902788a6d924925280811b2df2249942c3nd ap_ssi_get_tag_and_value(ctx, &tag, &expr, SSI_VALUE_RAW);
d508db902788a6d924925280811b2df2249942c3nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "unknown parameter \"%s\" "
d508db902788a6d924925280811b2df2249942c3nd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "missing expr in elif "
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd * <!--#else -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_else(include_ctx_t *ctx, ap_filter_t *f,
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd 0, r, "else directive does not take tags in %s",
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd * <!--#endif -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_endif(include_ctx_t *ctx, ap_filter_t *f,
f01fdcc4d435e197e1e9e03b3d03d12c7970f18fnd 0, r, "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,
9255a23a3f3fc01dd96943aff26466dbc6205eeand 0, r, "missing argument for set element in %s",
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh /* we need to use the 'main' request pool to set notes as that is
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh * a notes lifetime
9255a23a3f3fc01dd96943aff26466dbc6205eeand while (1) {
9255a23a3f3fc01dd96943aff26466dbc6205eeand ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, SSI_VALUE_DECODED);
9255a23a3f3fc01dd96943aff26466dbc6205eeand ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "variable must "
9255a23a3f3fc01dd96943aff26466dbc6205eeand "precede value in set directive in %s",
a30c1075a4b5f718dcd914061010971d0c0c9530nd parsed_string = ap_ssi_parse_string(ctx, tag_val, NULL, 0,
9255a23a3f3fc01dd96943aff26466dbc6205eeand ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "Invalid tag for set "
c75c901cabb70fdfcdca87aa261b987094c40e1dnd * <!--#printenv -->
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_printenv(include_ctx_t *ctx, ap_filter_t *f,
c75c901cabb70fdfcdca87aa261b987094c40e1dnd 0, r, "printenv directive does not take tags in %s",
c75c901cabb70fdfcdca87aa261b987094c40e1dnd /* get key */
c75c901cabb70fdfcdca87aa261b987094c40e1dnd /* get value */
c75c901cabb70fdfcdca87aa261b987094c40e1dnd /* assemble result */
c75c901cabb70fdfcdca87aa261b987094c40e1dnd APR_BRIGADE_INSERT_TAIL(bb, apr_bucket_pool_create(key_val, kv_length-1,
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd * | Main Includes-Filter Engine
82b62539f34e8fa7434a95335c4566441c7b5589nd * +-------------------------------------------------------+
82b62539f34e8fa7434a95335c4566441c7b5589nd/* This is an implementation of the BNDM search algorithm.
82b62539f34e8fa7434a95335c4566441c7b5589nd * Fast and Flexible String Matching by Combining Bit-parallelism and
82b62539f34e8fa7434a95335c4566441c7b5589nd * 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
82b62539f34e8fa7434a95335c4566441c7b5589nd * 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 */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, intern->r, "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) {
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, intern->r, "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);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, intern->r, "missing "
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd "argument name for value to tag %s in %s",
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* normalize the name */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd while (*sp) {
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.
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd intern->current_arg->value[intern->current_arg->value_len] = '\0';
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 */
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 */
82b62539f34e8fa7434a95335c4566441c7b5589nd handle_func = apr_hash_get(include_handlers, intern->directive,
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 */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd char *to_release = apr_palloc(ctx->pool, intern->parse_pos);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd memcpy(to_release, intern->start_seq, intern->parse_pos);
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "SSI directive was not properly finished at the end "
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.
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,
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);
360fb449fbdd6f7c75b321c7e1612233e828ce77nd intern->start_seq_pat = bndm_compile(ctx->pool, intern->start_seq,
138c8f7cb8254e035c6f45288e3909cd9c21be5cmartin 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.
8e5842bc05146bb5c171e53b00b24063d17c666cjerenkrantz /* Always unset the ETag/Last-Modified fields - see RFC2616 - 13.3.4.
fe66541c73f5ec94a5a83cf67195cb7f05ccd0a6jerenkrantz * We don't know if we are going to be including a file or executing
fe66541c73f5ec94a5a83cf67195cb7f05ccd0a6jerenkrantz * a program which may change the Last-Modified header or make the
fe66541c73f5ec94a5a83cf67195cb7f05ccd0a6jerenkrantz * content completely dynamic. Therefore, we can't support these
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley * Exception: XBitHack full means we *should* set the Last-Modified field.
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",
360fb449fbdd6f7c75b321c7e1612233e828ce77nd conf = ap_get_module_config(r->per_dir_config, &include_module);
82b62539f34e8fa7434a95335c4566441c7b5589nd if (r->handler && (strcmp(r->handler, "server-parsed") == 0))
82b62539f34e8fa7434a95335c4566441c7b5589nd /* These OS's don't support xbithack. This is being worked on. */
82b62539f34e8fa7434a95335c4566441c7b5589nd if (!r->content_type || strcmp(r->content_type, "text/html")) {
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)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd include_dir_config *result = apr_palloc(p, sizeof(include_dir_config));
360fb449fbdd6f7c75b321c7e1612233e828ce77ndstatic void *create_includes_server_config(apr_pool_t *p, server_rec *server)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd result->undefined_echo_len = sizeof(DEFAULT_UNDEFINED_ECHO) - 1;
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)
360fb449fbdd6f7c75b321c7e1612233e828ce77nd conf = ap_get_module_config(cmd->server->module_config, &include_module);
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);
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick AP_INIT_TAKE1("XBitHack", set_xbithack, NULL, OR_OPTIONS,
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick "Off, On, or Full"),
dfd4950edac888e671b96f62ff5382b7cb350d48rbb 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"),
103005439776bb7aeccb95ebf4761ebfef3f9c39ianh AP_INIT_TAKE1("SSIUndefinedEcho", set_undefined_echo, NULL, RSRC_CONF,
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd "String to be displayed if an echoed variable is undefined"),
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);