mod_include.c revision 31cd7345e3f8257a89ef1f5ab344fb037c0d941f
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.
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#define RAW_ASCII_CHAR(ch) apr_xlate_conv_byte(ap_hdrs_from_ascii, \
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd (unsigned char)ch)
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#else /*APR_CHARSET_EBCDIC*/
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#endif /*APR_CHARSET_EBCDIC*/
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd char *cond_txt = apr_pstrcat((ctx)->dpool, "**** ", (text), \
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd " conditional_status=\"", ((ctx)->flags & FLAG_COND_TRUE)?"1":"0", \
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd APR_BRIGADE_INSERT_TAIL((bb), apr_bucket_heap_create(cond_txt, \
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd APR_BRIGADE_INSERT_TAIL((bb), apr_bucket_heap_create((buf), \
445997e06464e7625c7f0e22917f8f2d9876cfffrbbstatic APR_OPTIONAL_FN_TYPE(ap_register_include_handler) *ssi_pfn_register;
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz/*****************************************************************
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz * XBITHACK. Sigh... NB it's configurable per-directory; the compile-time
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz * option only changes the default.
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndtypedef struct {
51be7fc538641ed7cb22e959eb31629f7183f70fianh unsigned int T[256];
51be7fc538641ed7cb22e959eb31629f7183f70fianh unsigned int x;
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {
51be7fc538641ed7cb22e959eb31629f7183f70fianhtypedef struct {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd/* main parser states */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndtypedef enum {
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndtypedef struct ssi_arg_item {
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd 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 */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ssi_arg_item_t *current_arg; /* currently parsed argument */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd/* some defaults */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#define DEFAULT_ERROR_MSG "[an error occurred while processing this directive]"
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd/* for better diffs (fixed later): */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd#define SPLIT_AND_PASS_PRETAG_BUCKETS(a, b, c, d)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ------------------------ Environment function -------------------------- */
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz/* Sentinel value to store in subprocess_env for items that
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz * shouldn't be evaluated until/unless they're actually used
30b9959208c26420c95d176e457ccc6b5f725194jerenkrantzstatic const char lazy_eval_sentinel;
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void add_include_vars(request_rec *r, char *timefmt)
441bd066858500e75e4f63ef149120bcf523de58jerenkrantz apr_table_setn(e, "DOCUMENT_PATH_INFO", r->path_info);
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantzstatic const char *add_include_vars_lazy(request_rec *r, const char *var)
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz (include_dir_config *)ap_get_module_config(r->per_dir_config,
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 0);
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz (include_dir_config *)ap_get_module_config(r->per_dir_config,
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 1);
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz (include_dir_config *)ap_get_module_config(r->per_dir_config,
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz val = ap_ht_time(r->pool, r->finfo.mtime, conf->default_time_fmt, 0);
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz if (apr_get_username(&val, r->finfo.user, r->pool) != APR_SUCCESS) {
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowestatic const char *get_include_var(request_rec *r, include_ctx_t *ctx,
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe const char *var)
30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz const char *val;
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe /* Handle $0 .. $9 from the last regex evaluated.
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe * The choice of returning NULL strings on not-found,
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe * v.s. empty strings on an empty match is deliberate.
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd if (!ctx->intern->re_result || !ctx->intern->re_string) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* --------------------------- Parser functions --------------------------- */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz/* This is an implementation of the BNDM search algorithm.
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * Fast and Flexible String Matching by Combining Bit-parallelism and
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * Suffix Automata (2001)
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * Gonzalo Navarro, Mathieu Raffinot
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * http://www-igm.univ-mlv.fr/~raffinot/ftp/jea2001.ps.gz
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * Initial code submitted by Sascha Schumann.
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz/* Precompile the bndm_t data structure. */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantzstatic void bndm_compile(bndm_t *t, const char *n, apr_size_t nl)
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz unsigned int x;
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz t->T[(unsigned char) *n++] |= x;
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz t->x = x - 1;
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz/* Implements the BNDM search algorithm (as described above).
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * n - the pattern to search for
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * nl - length of the pattern to search for
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * h - the string to look in
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * hl - length of the string to look for
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * t - precompiled bndm structure against the pattern
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * Returns the count of character that is the first match or hl if no
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * match is found.
1627792f516dc22cf12ac193cc48441d0a3701dajerenkrantzstatic apr_size_t bndm(const char *n, apr_size_t nl, const char *h,
95ca1a6ff23adde7ae9cbbec7b6754d9aecacc2dbrianp const char *skip;
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz unsigned int *T, x, d;
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz p = pi + nl; /* compare window right to left. point to the first char */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz while (p < he) {
0d628dd174dd6de13463b10d2599f6cac24e9fe8brianp d &= T[(unsigned char) *p--];
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if ((d & 1)) {
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz return p - h + 1;
0d628dd174dd6de13463b10d2599f6cac24e9fe8brianp } while (d);
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;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "quot\042Auml\304Euml\313Iuml\317Ouml\326Uuml\334auml\344euml\353\
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Acirc\302Aring\305AElig\306Ecirc\312Icirc\316Ocirc\324Ucirc\333\
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingTHORN\336szlig\337acirc\342aring\345aelig\346ecirc\352icirc\356ocirc\364\
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Agrave\300Aacute\301Atilde\303Ccedil\307Egrave\310Eacute\311\
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingIgrave\314Iacute\315Ntilde\321Ograve\322Oacute\323Otilde\325Oslash\330\
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingUgrave\331Uacute\332Yacute\335agrave\340aacute\341atilde\343ccedil\347\
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingegrave\350eacute\351igrave\354iacute\355ntilde\361ograve\362oacute\363\
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingotilde\365oslash\370ugrave\371uacute\372yacute\375" /* 6 */
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]);
18343797fadabacf01280b38ea7688690d12aec0rbb * Extract the next tag name and value.
18343797fadabacf01280b38ea7688690d12aec0rbb * If there are no more tags, set the tag name to NULL.
18343797fadabacf01280b38ea7688690d12aec0rbb * The tag value is html decoded if dodecode is non-zero.
18343797fadabacf01280b38ea7688690d12aec0rbb * The tag value may be NULL if there is no tag value..
da56a2fee56858b4005bd37448e2cb083b54fdf8wrowe * [WS]<Tag>[WS]=[WS]['|"|`]<Value>[['|"|`|]|WS]
18343797fadabacf01280b38ea7688690d12aec0rbb#define SKIP_TAG_WHITESPACE(ptr) while ((*ptr != '\0') && (apr_isspace (*ptr))) ptr++
6c4c113ce85934b11c9e78399e1bb8ec7a568af9ndstatic void ap_ssi_get_tag_and_value(include_ctx_t *ctx, char **tag,
7f7ba3f0537003a359c42170aee14a101d7fe917brianp/* initial buffer size for power-of-two allocator in ap_ssi_parse_string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Do variable substitution on strings
7f7ba3f0537003a359c42170aee14a101d7fe917brianp * (Note: If out==NULL, this function allocs a buffer for the resulting
7f7ba3f0537003a359c42170aee14a101d7fe917brianp * string from r->pool. The return value is the parsed string)
7f7ba3f0537003a359c42170aee14a101d7fe917brianpstatic char *ap_ssi_parse_string(request_rec *r, include_ctx_t *ctx,
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* allocate an output buffer if needed */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* leave room for nul terminator */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* double the buffer size */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* truncated */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz char *end_of_var_name; /* end of var name + 1 */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* guess that the expansion won't happen */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz 0, r, "Missing '}' on variable \"%s\"",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* what a pain, too bad there's no table_getn where you can
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * pass a non-nul terminated string */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (l != 0) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* no expansion to be done */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* zero-length variable name causes just the $ to be
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* increase the buffer size to accommodate l more chars */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz l = ((int)l > end_out - next) ? (end_out - next) : l;
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* double the buffer size */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* truncated */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* --------------------------- Action handlers ---------------------------- */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ensure that path is relative, and does not contain ".." elements
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * ensentially ensure that it does not match the regex:
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * (^/|(^|/)\.\.(/|$))
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe * XXX: Simply replace with apr_filepath_merge
50e59a535cafd083838a173aedf9cfa6917d016dwrowe#if defined(WIN32)
50e59a535cafd083838a173aedf9cfa6917d016dwrowe /* If the name is canonical this is redundant
50e59a535cafd083838a173aedf9cfa6917d016dwrowe * but in security, redundancy is worthwhile.
50e59a535cafd083838a173aedf9cfa6917d016dwrowe * Does OS2 belong here (accepts ... for ..)?
59004ab0feba0b23cf50c35c901e051c4965dbc4brianp /* Advance to either the null byte at the end of the
59004ab0feba0b23cf50c35c901e051c4965dbc4brianp * string or the character right after the next slash,
59004ab0feba0b23cf50c35c901e051c4965dbc4brianp * whichever comes first
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_include(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
c815e1cfb2ec4db2e1a94fafd77de045d7fd93dbbrianp if (!strcmp(tag, "virtual") || !strcmp(tag, "file")) {
7f7ba3f0537003a359c42170aee14a101d7fe917brianp parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe /* XXX: Port to apr_filepath_merge
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe * be safe; only files in this directory or below allowed
18343797fadabacf01280b38ea7688690d12aec0rbb "in parsed file %s";
e2653756d0d14a9a620b24bd04a6ab1182178462brianp rr = ap_sub_req_lookup_uri(parsed_string, r, f->next);
18343797fadabacf01280b38ea7688690d12aec0rbb error_fmt = "unable to include \"%s\" in parsed file %s";
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (!error_fmt && (ctx->flags & FLAG_NO_EXEC) &&
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley /* try to avoid recursive includes. We do this by walking
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * up the r->main list of subrequests, and at each level
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * walking back through any internal redirects. At each
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * step, we compare the filenames and the URIs.
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * The filename comparison catches a recursive include
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * with an ever-changing URL, eg.
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * <!--#include virtual=
97b2451ce8e896e30c696d01ad11ef8d7c815881wrowe * "$REQUEST_URI/$QUERY_STRING?$QUERY_STRING/x" -->
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * which, although they would eventually be caught because
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * we have a limit on the length of files, etc., can
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * recurse for a while.
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * The URI comparison catches the case where the filename
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * is changed while processing the request, so the
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * current name is never the same as any previous one.
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * This can happen with "DocumentRoot /foo" when you
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * request "/" on the server and it includes "/".
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * This only applies to modules such as mod_dir that
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * (somewhat improperly) mess with r->filename outside
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley * of a filename translation phase.
18343797fadabacf01280b38ea7688690d12aec0rbb if (p != NULL) {
18343797fadabacf01280b38ea7688690d12aec0rbb "in parsed file %s";
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* See the Kludge in send_parsed_file for why */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Basically, it puts a bread crumb in here, then looks */
18343797fadabacf01280b38ea7688690d12aec0rbb /* for the crumb later to see if its been here. */
8b81084c74de035f48c89bfe5fc63d3e4be3a3c5stoddard error_fmt = "unable to include \"%s\" in parsed file %s";
ba00c3b7c20f00ce631b89ae3b1cd3bae8d1b165rbb /* destroy the sub request */
18343797fadabacf01280b38ea7688690d12aec0rbb "unknown parameter \"%s\" to tag include in %s",
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_echo(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
4ef58e49c51f8683c0e3a540a34afb0a22e45366brianp const char *val =
103005439776bb7aeccb95ebf4761ebfef3f9c39ianh tmp_buck = apr_bucket_pool_create(sconf->undefinedEcho,
18343797fadabacf01280b38ea7688690d12aec0rbb else if (!strcasecmp(tag_val, "entity")) encode = E_ENTITY;
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "unknown value \"%s\" to parameter \"encoding\" of "
18343797fadabacf01280b38ea7688690d12aec0rbb "unknown parameter \"%s\" in tag echo of %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* error and tf must point to a string with room for at
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * least MAX_STRING_LEN characters
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_config(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date,
7f7ba3f0537003a359c42170aee14a101d7fe917brianp parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "unknown parameter \"%s\" to tag config in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int find_file(request_rec *r, const char *directive, const char *tag,
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe /* XXX: Port to apr_filepath_merge
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe * be safe; only files in this directory or below allowed
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_getparents(tag_val); /* get rid of any nasties */
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein /* note: it is okay to pass NULL for the "next filter" since
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein we never attempt to "run" this sub request. */
f54da7877f9e092465df38bfda142f3e71dbb7aawrowe if (rr->status == HTTP_OK && rr->finfo.filetype != 0) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz APR_FINFO_GPROT | APR_FINFO_MIN, rr->pool)) != APR_SUCCESS
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to get information about \"%s\" "
9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to lookup information about \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein /* note: it is okay to pass NULL for the "next filter" since
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein we never attempt to "run" this sub request. */
f54da7877f9e092465df38bfda142f3e71dbb7aawrowe if (rr->status == HTTP_OK && rr->finfo.filetype != 0) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unable to get information about \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag %s in %s",
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_fsize(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
7f7ba3f0537003a359c42170aee14a101d7fe917brianp parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
18343797fadabacf01280b38ea7688690d12aec0rbb if (!find_file(r, "fsize", tag, parsed_string, &finfo)) {
17bdb8862482dff763afd4d86a58de533afff4cajwoolley /* XXX: if we *know* we're going to have to copy the
17bdb8862482dff763afd4d86a58de533afff4cajwoolley * thing off of the stack anyway, why not palloc buff
17bdb8862482dff763afd4d86a58de533afff4cajwoolley * instead of sticking it on the stack; then we can just
17bdb8862482dff763afd4d86a58de533afff4cajwoolley * use a pool bucket and skip the copy
18343797fadabacf01280b38ea7688690d12aec0rbb int l, x, pos = 0;
18343797fadabacf01280b38ea7688690d12aec0rbb for (x = 0; x < l; x++) {
18343797fadabacf01280b38ea7688690d12aec0rbb if (x && (!((l - x) % 3))) {
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley tmp_buck = apr_bucket_heap_create(buff, s_len, NULL,
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_flastmod(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
7f7ba3f0537003a359c42170aee14a101d7fe917brianp parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
18343797fadabacf01280b38ea7688690d12aec0rbb if (!find_file(r, "flastmod", tag, parsed_string, &finfo)) {
18343797fadabacf01280b38ea7688690d12aec0rbb t_val = ap_ht_time(r->pool, finfo.mtime, ctx->time_str, 0);
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley tmp_buck = apr_bucket_pool_create(t_val, t_len, r->pool,
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowestatic int re_check(request_rec *r, include_ctx_t *ctx,
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd const apr_size_t nres = sizeof(*ctx->intern->re_result) / sizeof(regmatch_t);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding compiled = ap_pregcomp(r->pool, rexp, REG_EXTENDED | REG_NOSUB);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd ctx->intern->re_result = apr_pcalloc(r->pool, sizeof(*ctx->intern->re_result));
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd regex_error = ap_regexec(compiled, string, nres, *ctx->intern->re_result, 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_and, token_or, token_not, token_eq, token_ne,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic const char *get_ptoken(request_rec *r, const char *string,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Skip leading white space */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe /* already token->type == token_string */
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe /* already token->type == token_string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* We should only be here if we are in a string */
34d7c69235d0bc7ac9e2f121c4890c309bb39d20brianp token->value = apr_palloc(r->pool, strlen(string) + 2); /* 2 for ch plus
34d7c69235d0bc7ac9e2f121c4890c309bb39d20brianp trailing null */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * I used the ++string throughout this section so that string
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * ends up pointing to the next token and I can just return it
18343797fadabacf01280b38ea7688690d12aec0rbb for (ch = *string; ((ch != '\0') && (!tkn_fnd)); ch = *++string) {
18343797fadabacf01280b38ea7688690d12aec0rbb switch (ch) {
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe /* If qs is still set, we have an unmatched quote */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* there is an implicit assumption here that expr is at most MAX_STRING_LEN-1
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * characters long...
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowestatic int parse_expr(request_rec *r, include_ctx_t *ctx, const char *expr,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *parse;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Create Parse Tree */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof(struct parse_node));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = new->left = new->right = (struct parse_node *) NULL;
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if ((parse = get_ptoken(r, parse, &new->token, was_unmatched)) ==
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz " Token: string (%s)\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe " Token: regex (%s)\n",
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe "Invalid expression \"%s\" in file %s",
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof (" Token: and/or\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz sizeof(" Token: not\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "Invalid expression \"%s\" in file %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz memcpy(&debug[debug_pos], " Token: eq/ne/ge/gt/le/lt\n",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz sizeof(" Token: eq/ne/ge/gt/le/lt\n"));
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz debug_pos += sizeof(" Token: eq/ne/ge/gt/le/lt\n");
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof (" Token: rbrace\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof (" Token: lbrace\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Evaluate Parse Tree */
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof (" Evaluate string\n"));
7f7ba3f0537003a359c42170aee14a101d7fe917brianp buffer = ap_ssi_parse_string(r, ctx, current->token.value, NULL,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = (current->token.value[0] != '\0');
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe "No operator before regex of expr \"%s\" in file %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz sizeof(" Evaluate and/or\n"));
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (current->left == (struct parse_node *) NULL ||
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "Invalid expression \"%s\" in file %s",
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Right: %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = current->left->value && current->right->value;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = current->left->value || current->right->value;
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof (" Evaluate eq/ne\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
18343797fadabacf01280b38ea7688690d12aec0rbb " Re Compare (%s) with /%s/\n",
18343797fadabacf01280b38ea7688690d12aec0rbb " Compare (%s) with (%s)\n",
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
18343797fadabacf01280b38ea7688690d12aec0rbb " Compare (%s) with (%s)\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = 0; /* Don't return -1 if unknown token */
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Evaluate !: %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Evaluate (): %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched '(' in \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
18343797fadabacf01280b38ea7688690d12aec0rbb "bad token type");
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding retval = (root == (struct parse_node *) NULL) ? 0 : root->value;
18343797fadabacf01280b38ea7688690d12aec0rbb/*-------------------------------------------------------------------------*/
18343797fadabacf01280b38ea7688690d12aec0rbb#define LOG_COND_STATUS(cntx, t_buck, h_ptr, ins_head, tag_text) \
74f1cb282d1418f9eaaf86524a6d447c3a5209d1jwoolley char cond_txt[] = "**** X conditional_status=\"0\"\n"; \
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley memcpy(&cond_txt[5], tag_text, sizeof(tag_text)-1); \
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley t_buck = apr_bucket_heap_create(cond_txt, sizeof(cond_txt)-1, \
18343797fadabacf01280b38ea7688690d12aec0rbb#define DUMP_PARSE_EXPR_DEBUG(t_buck, h_ptr, d_buf, ins_head) \
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley t_buck = apr_bucket_heap_create(d_buf, strlen(d_buf), \
18343797fadabacf01280b38ea7688690d12aec0rbb#define LOG_COND_STATUS(cntx, t_buck, h_ptr, ins_head, tag_text)
18343797fadabacf01280b38ea7688690d12aec0rbb#define DUMP_PARSE_EXPR_DEBUG(t_buck, h_ptr, d_buf, ins_head)
18343797fadabacf01280b38ea7688690d12aec0rbb/*-------------------------------------------------------------------------*/
18343797fadabacf01280b38ea7688690d12aec0rbb/* pjr - These seem to allow expr="fred" expr="joe" where joe overwrites fred. */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_if(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "missing expr in if statement: %s",
18343797fadabacf01280b38ea7688690d12aec0rbb d_len = sprintf(debug_buf, "**** if expr=\"%s\"\n", expr);
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley tmp_buck = apr_bucket_heap_create(debug_buf, d_len, NULL,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "unknown parameter \"%s\" to tag if in %s", tag,
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_elif(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "missing expr in elif statement: %s",
18343797fadabacf01280b38ea7688690d12aec0rbb d_len = sprintf(debug_buf, "**** elif expr=\"%s\"\n", expr);
2fc50921b88defeb7127985dfe4b4130175e069ejwoolley tmp_buck = apr_bucket_heap_create(debug_buf, d_len, NULL,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "unknown parameter \"%s\" to tag if in %s", tag,
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_else(include_ctx_t *ctx, ap_filter_t *f,
18343797fadabacf01280b38ea7688690d12aec0rbb "else directive does not take tags in %s", r->filename);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_endif(include_ctx_t *ctx, ap_filter_t *f,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "endif directive does not take tags in %s", r->filename);
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_set(include_ctx_t *ctx, ap_filter_t *f,
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh /* we need to use the 'main' request pool to set notes as that is
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh * a notes lifetime
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "variable must precede value in set directive in %s",
7f7ba3f0537003a359c42170aee14a101d7fe917brianp parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
31cd7345e3f8257a89ef1f5ab344fb037c0d941fndstatic apr_status_t handle_printenv(include_ctx_t *ctx, ap_filter_t *f,
d4f351074a8f7af5e41aa0a70410816436608e3dianh const apr_array_header_t *arr = apr_table_elts(r->subprocess_env);
d4f351074a8f7af5e41aa0a70410816436608e3dianh const apr_table_entry_t *elts = (const apr_table_entry_t *)arr->elts;
30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz val_text = add_include_vars_lazy(r, elts[i].key);
30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz val_text = ap_escape_html(r->pool, elts[i].val);
93bb0ef3e7e11ddaa69377ac77157b029fa3645dbrianp tmp_buck = apr_bucket_pool_create(key_val, kv_length - 1,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "printenv directive does not take tags in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* -------------------------- The main function --------------------------- */
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)
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd index = bndm(intern->start_seq, intern->start_seq_len, data, len,
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 */
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 */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd handle_func = apr_hash_get(include_hash, 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 */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic void *create_includes_dir_config(apr_pool_t *p, char *dummy)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb (include_dir_config *)apr_palloc(p, sizeof(include_dir_config));
dfd4950edac888e671b96f62ff5382b7cb350d48rbb enum xbithack *xbh = (enum xbithack *) apr_palloc(p, sizeof(enum xbithack));
51be7fc538641ed7cb22e959eb31629f7183f70fianhstatic void *create_includes_server_config(apr_pool_t*p, server_rec *server)
51be7fc538641ed7cb22e959eb31629f7183f70fianh (include_server_config *)apr_palloc(p, sizeof(include_server_config));
51be7fc538641ed7cb22e959eb31629f7183f70fianh /* compile the pattern used by find_start_sequence */
51be7fc538641ed7cb22e959eb31629f7183f70fianh bndm_compile(&result->start_seq_pat, result->default_start_tag,
103005439776bb7aeccb95ebf4761ebfef3f9c39ianh result->undefinedEchoLen = strlen( result->undefinedEcho);
ebe70c2684539a5fb2d899241d1601710dfa38a4trawickstatic const char *set_xbithack(cmd_parms *cmd, void *xbp, const char *arg)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return "XBitHack must be set to Off, On, or Full";
0fdf8c342123fde84405b885fb1720ebc652e10djerenkrantz (include_dir_config *)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)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb (include_dir_config *)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 /* configuration data */
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd /* runtime data */
31cd7345e3f8257a89ef1f5ab344fb037c0d941fnd intern->tmp_bb = apr_brigade_create(ctx->pool, f->c->bucket_alloc);
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",
e08a1745d191d666759873a50edcc520ca273e12wrowestatic void ap_register_include_handler(char *tag, include_handler_fn_t *func)
812e019c7736939f79a929d1f1e8f4e70efc5e31brianp apr_hash_set(include_hash, tag, strlen(tag), (const void *)func);
9d0665da83d1e22c0ea0e5f6f940f70f75bf5237ianhstatic int include_post_config(apr_pool_t *p, apr_pool_t *plog,
445997e06464e7625c7f0e22917f8f2d9876cfffrbb ssi_pfn_register = APR_RETRIEVE_OPTIONAL_FN(ap_register_include_handler);
dfd4950edac888e671b96f62ff5382b7cb350d48rbbstatic const char *set_default_error_msg(cmd_parms *cmd, void *mconfig, const char *msg)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb include_dir_config *conf = (include_dir_config *)mconfig;
51be7fc538641ed7cb22e959eb31629f7183f70fianhstatic const char *set_default_start_tag(cmd_parms *cmd, void *mconfig, const char *msg)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = msg;
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);
51be7fc538641ed7cb22e959eb31629f7183f70fianh conf->start_tag_len = strlen(conf->default_start_tag );
51be7fc538641ed7cb22e959eb31629f7183f70fianh bndm_compile(&conf->start_seq_pat, conf->default_start_tag,
103005439776bb7aeccb95ebf4761ebfef3f9c39ianhstatic const char *set_undefined_echo(cmd_parms *cmd, void *mconfig, const char *msg)
103005439776bb7aeccb95ebf4761ebfef3f9c39ianh conf = ap_get_module_config(cmd->server->module_config, &include_module);
51be7fc538641ed7cb22e959eb31629f7183f70fianhstatic const char *set_default_end_tag(cmd_parms *cmd, void *mconfig, const char *msg)
6c4c113ce85934b11c9e78399e1bb8ec7a568af9nd const char *p = msg;
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);
dfd4950edac888e671b96f62ff5382b7cb350d48rbbstatic const char *set_default_time_fmt(cmd_parms *cmd, void *mconfig, const char *fmt)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb include_dir_config *conf = (include_dir_config *)mconfig;
f6e9f5600e77b78fb013bb543d364135961639d1rbb * Module definition and configuration data structs...
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"),
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley conf = (include_dir_config *) ap_get_module_config(r->per_dir_config,
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe if (r->handler && (strcmp(r->handler, "server-parsed") == 0))
e119449ea4794451d17c113dadd14e59823c634dwrowe /* These OS's don't support xbithack. This is being worked on. */
2fa38d4c4740115a965238309cad614b8ce7bd27brianp if (!r->content_type || strcmp(r->content_type, "text/html")) {
e119449ea4794451d17c113dadd14e59823c634dwrowe /* We always return declined, because the default handler actually
e119449ea4794451d17c113dadd14e59823c634dwrowe * serves the file. All we have to do is add the filter.
e49758465fbf67f29f9aeda996d09f7cc6fa9fe5rbb ap_add_output_filter("INCLUDES", NULL, r, r->connection);
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);