mod_include.c revision ac43284ac9675e3f99ec3aadf42e20551dbdae17
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ====================================================================
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * The Apache Software License, Version 1.1
bc8fd1b0b1afdf89b8d28eefa8cd74e26ba97986fielding * Copyright (c) 2000-2002 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.
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.
51be7fc538641ed7cb22e959eb31629f7183f70fianh unsigned int T[256];
51be7fc538641ed7cb22e959eb31629f7183f70fianh unsigned int x;
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {
51be7fc538641ed7cb22e959eb31629f7183f70fianhtypedef struct {
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.
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);
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz/* We've now found a start sequence tag... */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantzstatic apr_bucket* found_start_sequence(apr_bucket *dptr,
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* We want to split the bucket at the '<'. */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* Split the bucket with the start of the tag in it */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_bucket_split(ctx->head_start_bucket, ctx->head_start_index);
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz tmp_bkt = APR_BUCKET_NEXT(ctx->head_start_bucket);
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* If it was a one bucket match */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz ctx->tag_start_index = tagStart - ctx->head_start_index;
18343797fadabacf01280b38ea7688690d12aec0rbb/* This function returns either a pointer to the split bucket containing the
18343797fadabacf01280b38ea7688690d12aec0rbb * first byte of the BEGINNING_SEQUENCE (after finding a complete match) or it
18343797fadabacf01280b38ea7688690d12aec0rbb * returns NULL if no match found.
b980ad7fdc218b4855cde9f75a747527f50c554dwrowestatic apr_bucket *find_start_sequence(apr_bucket *dptr, include_ctx_t *ctx,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *c;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *buf;
975f1dd40035607cc5f408439c4ea1457528590dbrianp /* XXX the bucket flush support is commented out for now
975f1dd40035607cc5f408439c4ea1457528590dbrianp * because it was causing a segfault */
975f1dd40035607cc5f408439c4ea1457528590dbrianp#endif /* 0 */
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz rv = apr_bucket_read(dptr, &buf, &len, APR_NONBLOCK_READ);
8173eb0f84c2dd1f08802aadc90731cc89ba5c0ejerenkrantz apr_bucket_split(start_bucket, ctx->head_start_index);
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz rv = apr_bucket_read(dptr, &buf, &len, APR_BLOCK_READ);
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* Set our buffer to use. */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* The last bucket had a left over partial match that we need to
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz while (c < buf + tmpLen && *c == str[ctx->parse_pos])
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz return found_start_sequence(dptr, ctx, c - buf);
095071bbd0b3ccccd6883edc7cd10f13cac71160ianh /* False alarm...
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz return found_start_sequence(dptr, ctx, pos + slen);
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* Consider the case where we have <!-- at the end of the bucket. */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* The reason for this, is that we need to make sure
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * that we catch cases like <<!--#. This makes the
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * second check after the original check fails.
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz * If parse_pos was already 0 then we already checked this.
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* FIXME: Why? */
f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (*c == str[0]) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic apr_bucket *find_end_sequence(apr_bucket *dptr, include_ctx_t *ctx,
18343797fadabacf01280b38ea7688690d12aec0rbb const char *c;
18343797fadabacf01280b38ea7688690d12aec0rbb const char *buf;
6d888d6b9c0e0c08903e4bbd31d407915d5ad7b0brianp const char *start;
975f1dd40035607cc5f408439c4ea1457528590dbrianp /* XXX the bucket flush support is commented out for now
975f1dd40035607cc5f408439c4ea1457528590dbrianp * because it was causing a segfault */
975f1dd40035607cc5f408439c4ea1457528590dbrianp#endif /* 0 */
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz rv = apr_bucket_read(dptr, &buf, &len, APR_NONBLOCK_READ);
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz /* gonna start over parsing the directive next time through */
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz rv = apr_bucket_read(dptr, &buf, &len, APR_BLOCK_READ);
51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp /* We want to split the bucket at the '>'. The
51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp * end of the END_SEQUENCE is in the current bucket.
51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp * The beginning might be in a previous bucket.
f6e9f5600e77b78fb013bb543d364135961639d1rbb const char *tmp = c;
ac43284ac9675e3f99ec3aadf42e20551dbdae17brianp /* The reason for this, is that we need to make sure
ac43284ac9675e3f99ec3aadf42e20551dbdae17brianp * that we catch cases like --->. This makes the
f6e9f5600e77b78fb013bb543d364135961639d1rbb * second check after the original check fails.
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * If parse_pos was already 0 then we already checked
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*c == str[0]) {
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe/* This function culls through the buckets that have been set aside in the
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe * ssi_tag_brigade and copies just the directive part of the SSI tag (none
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * of the start and end delimiter bytes are copied).
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic apr_status_t get_combined_directive (include_ctx_t *ctx,
3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe const char *tmp_from;
3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe /* If the tag length is longer than the tmp buffer, allocate space. */
18343797fadabacf01280b38ea7688690d12aec0rbb } /* Else, just use the temp buffer. */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Prime the pump. Start at the beginning of the tag... */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Read the bucket... */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Adjust the pointer to start at the tag within the bucket... */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz tmp_from_len -= (tmp_from_len - ctx->tail_start_index);
18343797fadabacf01280b38ea7688690d12aec0rbb /* Loop through the buckets from the tag_start_bucket until before
18343797fadabacf01280b38ea7688690d12aec0rbb * the tail_start_bucket copying the contents into the buffer.
18343797fadabacf01280b38ea7688690d12aec0rbb /* Adjust the count to stop at the beginning of the tail. */
18343797fadabacf01280b38ea7688690d12aec0rbb } while ((!done) &&
18343797fadabacf01280b38ea7688690d12aec0rbb (ctx->curr_tag_pos < ctx->combined_tag + ctx->tag_length));
18343797fadabacf01280b38ea7688690d12aec0rbb * decodes a string containing html entities or numeric character references.
18343797fadabacf01280b38ea7688690d12aec0rbb * 's' is overwritten with the decoded string.
18343797fadabacf01280b38ea7688690d12aec0rbb * If 's' is syntatically incorrect, then the followed fixups will be made:
18343797fadabacf01280b38ea7688690d12aec0rbb * 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 */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Do a fast scan through the string until we find anything
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * that needs more complicated handling
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (; *s != '&'; s++) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*s == '\0') {
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp for (p = s; *s != '\0'; s++, p++) {
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp if (*s != '&') {
450fd97bdb54ac69e2cb552f034697a10868be3cbrianp /* find end of entity */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* is it numeric ? */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding 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]);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Extract the next tag name and value.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * If there are no more tags, set the tag name to NULL.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * The tag value is html decoded if dodecode is non-zero.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * The tag value may be NULL if there is no tag value..
18343797fadabacf01280b38ea7688690d12aec0rbb * [WS]<Tag>[WS]=[WS]['|"|`]<Value>[['|"|`|]|WS]
18343797fadabacf01280b38ea7688690d12aec0rbb#define SKIP_TAG_WHITESPACE(ptr) while ((*ptr != '\0') && (apr_isspace (*ptr))) ptr++
da56a2fee56858b4005bd37448e2cb083b54fdf8wrowestatic void ap_ssi_get_tag_and_value(include_ctx_t *ctx, char **tag,
18343797fadabacf01280b38ea7688690d12aec0rbb *tag = c; /* First non-whitespace character (could be NULL). */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (apr_islower(*c)) {
18343797fadabacf01280b38ea7688690d12aec0rbb c++; /* Optimization for the common case where the tag */
18343797fadabacf01280b38ea7688690d12aec0rbb } /* is already lowercase */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while ((*c != '=') && (!apr_isspace(*c)) && (*c != '\0')) {
0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp *c = apr_tolower(*c); /* find end of tag, lowercasing as we go... */
18343797fadabacf01280b38ea7688690d12aec0rbb return; /* We have found the end of the buffer. */
18343797fadabacf01280b38ea7688690d12aec0rbb } /* We might have a tag, but definitely no value. */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c == '=') {
18343797fadabacf01280b38ea7688690d12aec0rbb *c++ = '\0'; /* Overwrite the '=' with a terminating byte after tag. */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else { /* Try skipping WS to find the '='. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* There needs to be an equal sign if there's a value. */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*c != '=') {
18343797fadabacf01280b38ea7688690d12aec0rbb return; /* There apparently was no value. */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz c++; /* Skip the equals sign. */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Allow quoted values for space inclusion.
18343797fadabacf01280b38ea7688690d12aec0rbb * NOTE: This does not pass the quotes on return.
da56a2fee56858b4005bd37448e2cb083b54fdf8wrowe while ((*c != '\0') &&
18343797fadabacf01280b38ea7688690d12aec0rbb /* Accept \" (or ' or `) as valid quotation of string.
a5a04992e4caa31b2131336d8751448616ba30cfbrianp if (*c == '\\') {
a5a04992e4caa31b2131336d8751448616ba30cfbrianp /* Overwrite the "\" during the embedded
a5a04992e4caa31b2131336d8751448616ba30cfbrianp * escape sequence of '"'. "\'" or '`'.
a5a04992e4caa31b2131336d8751448616ba30cfbrianp * Shift bytes from here to next delimiter.
a5a04992e4caa31b2131336d8751448616ba30cfbrianp if (*c == term) {
a5a04992e4caa31b2131336d8751448616ba30cfbrianp *(c-shift_val) = '\0'; /* Overwrites delimiter (term or WS) with NULL. */
a5a04992e4caa31b2131336d8751448616ba30cfbrianp/* initial buffer size for power-of-two allocator in ap_ssi_parse_string */
a5a04992e4caa31b2131336d8751448616ba30cfbrianp * Do variable substitution on strings
18343797fadabacf01280b38ea7688690d12aec0rbb * (Note: If out==NULL, this function allocs a buffer for the resulting
a5a04992e4caa31b2131336d8751448616ba30cfbrianp * string from r->pool. The return value is the parsed string)
a5a04992e4caa31b2131336d8751448616ba30cfbrianpstatic char *ap_ssi_parse_string(request_rec *r, include_ctx_t *ctx,
18343797fadabacf01280b38ea7688690d12aec0rbb /* allocate an output buffer if needed */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* leave room for nul terminator */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* double the buffer size */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* truncated */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp /* guess that the expansion won't happen */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding 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 val = get_include_var(r, ctx, start_of_var_name);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* no expansion to be done */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* zero-length variable name causes just the $ to be
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if ((next + l > end_out) && (out_size < length)) {
445997e06464e7625c7f0e22917f8f2d9876cfffrbb /* 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 */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* truncated */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp/* --------------------------- Action handlers ---------------------------- */
7f7ba3f0537003a359c42170aee14a101d7fe917brianp/* ensure that path is relative, and does not contain ".." elements
7f7ba3f0537003a359c42170aee14a101d7fe917brianp * ensentially ensure that it does not match the regex:
7f7ba3f0537003a359c42170aee14a101d7fe917brianp * (^/|(^|/)\.\.(/|$))
7f7ba3f0537003a359c42170aee14a101d7fe917brianp * XXX: Simply replace with apr_filepath_merge
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* If the name is canonical this is redundant
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * but in security, redundancy is worthwhile.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Does OS2 belong here (accepts ... for ..)?
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (dots > 1 && (!path[dots] || path[dots] == '/'))
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (dots == 2 && (!path[dots] || path[dots] == '/'))
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int handle_include(include_ctx_t *ctx, apr_bucket_brigade **bb,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r, ap_filter_t *f, apr_bucket *head_ptr,
50e59a535cafd083838a173aedf9cfa6917d016dwrowe while (1) {
50e59a535cafd083838a173aedf9cfa6917d016dwrowe return (0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (1);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (!strcmp(tag, "virtual") || !strcmp(tag, "file")) {
18343797fadabacf01280b38ea7688690d12aec0rbb parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
445997e06464e7625c7f0e22917f8f2d9876cfffrbb /* XXX: Port to apr_filepath_merge
18343797fadabacf01280b38ea7688690d12aec0rbb * be safe; only files in this directory or below allowed
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr = ap_sub_req_lookup_file(parsed_string, r, f->next);
7f7ba3f0537003a359c42170aee14a101d7fe917brianp error_fmt = "unable to include \"%s\" in parsed file %s";
18343797fadabacf01280b38ea7688690d12aec0rbb "in parsed file %s";
18343797fadabacf01280b38ea7688690d12aec0rbb /* try to avoid recursive includes. We do this by walking
18343797fadabacf01280b38ea7688690d12aec0rbb * up the r->main list of subrequests, and at each level
18343797fadabacf01280b38ea7688690d12aec0rbb * walking back through any internal redirects. At each
18343797fadabacf01280b38ea7688690d12aec0rbb * step, we compare the filenames and the URIs.
18343797fadabacf01280b38ea7688690d12aec0rbb * The filename comparison catches a recursive include
18343797fadabacf01280b38ea7688690d12aec0rbb * with an ever-changing URL, eg.
18343797fadabacf01280b38ea7688690d12aec0rbb * <!--#include virtual=
18343797fadabacf01280b38ea7688690d12aec0rbb * "$REQUEST_URI/$QUERY_STRING?$QUERY_STRING/x" -->
18343797fadabacf01280b38ea7688690d12aec0rbb * which, although they would eventually be caught because
18343797fadabacf01280b38ea7688690d12aec0rbb * we have a limit on the length of files, etc., can
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * recurse for a while.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * The URI comparison catches the case where the filename
18343797fadabacf01280b38ea7688690d12aec0rbb * is changed while processing the request, so the
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * current name is never the same as any previous one.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * This can happen with "DocumentRoot /foo" when you
18343797fadabacf01280b38ea7688690d12aec0rbb * 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.
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley for (p = r; p != NULL && !founddupe; p = p->main) {
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley if (p != NULL) {
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley "in parsed file %s";
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley /* See the Kludge in send_parsed_file for why */
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley /* Basically, it puts a bread crumb in here, then looks */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* for the crumb later to see if its been here. */
93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley if ((quick_handler==0)&&(rv = ap_run_sub_req(rr))) {
18343797fadabacf01280b38ea7688690d12aec0rbb /* let's not clutter the log on a busy server */
18343797fadabacf01280b38ea7688690d12aec0rbb "unable to include \"%s\" in parsed file %s";
8b81084c74de035f48c89bfe5fc63d3e4be3a3c5stoddard /* destroy the sub request */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick "unknown parameter \"%s\" to tag include in %s",
ba00c3b7c20f00ce631b89ae3b1cd3bae8d1b165rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbbstatic int handle_echo(include_ctx_t *ctx, apr_bucket_brigade **bb,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz tmp_buck = apr_bucket_pool_create(echo_text, e_len,
18343797fadabacf01280b38ea7688690d12aec0rbb else if (!strcasecmp(tag_val, "entity")) encode = E_ENTITY;
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "unknown value \"%s\" to parameter \"encoding\" of "
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "unknown parameter \"%s\" in tag echo of %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbb/* error and tf must point to a string with room for at
18343797fadabacf01280b38ea7688690d12aec0rbb * least MAX_STRING_LEN characters
3a9bc6532fbe8439fc748d8ffedb87415904d16ajimstatic int handle_config(include_ctx_t *ctx, apr_bucket_brigade **bb,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r, ap_filter_t *f, apr_bucket *head_ptr,
7f7ba3f0537003a359c42170aee14a101d7fe917brianp return 0; /* Reached the end of the string. */
18343797fadabacf01280b38ea7688690d12aec0rbb ap_ssi_parse_string(r, ctx, tag_val, ctx->error_str_override,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_ssi_parse_string(r, ctx, tag_val, ctx->time_str_override,
18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date,
7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "unknown parameter \"%s\" to tag config in %s",
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic int find_file(request_rec *r, const char *directive, const char *tag,
18343797fadabacf01280b38ea7688690d12aec0rbb /* XXX: Port to apr_filepath_merge
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 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 */
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe /* note: it is okay to pass NULL for the "next filter" since
5915dc3ebb03935b18b0d14088278d22eefe3553wrowe we never attempt to "run" this sub request. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr->status == HTTP_OK && rr->finfo.filetype != 0) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding APR_FINFO_GPROT | APR_FINFO_MIN, rr->pool)) != APR_SUCCESS
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein error_fmt = "unable to get information about \"%s\" "
85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to lookup information about \"%s\" "
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR | (rv ? 0 : APLOG_NOERRNO),
6f984345bbfa9342dde1f2b7b8c35b7987d078afwrowe /* note: it is okay to pass NULL for the "next filter" since
6f984345bbfa9342dde1f2b7b8c35b7987d078afwrowe we never attempt to "run" this sub request. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr->status == HTTP_OK && rr->finfo.filetype != 0) {
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unable to get information about \"%s\" "
f54da7877f9e092465df38bfda142f3e71dbb7aawrowe "in parsed file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag %s in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int handle_fsize(include_ctx_t *ctx, apr_bucket_brigade **bb,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r, ap_filter_t *f, apr_bucket *head_ptr,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
18343797fadabacf01280b38ea7688690d12aec0rbb if (!find_file(r, "fsize", tag, parsed_string, &finfo)) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* XXX: if we *know* we're going to have to copy the
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * thing off of the stack anyway, why not palloc buff
18343797fadabacf01280b38ea7688690d12aec0rbb * instead of sticking it on the stack; then we can just
18343797fadabacf01280b38ea7688690d12aec0rbb * use a pool bucket and skip the copy
17bdb8862482dff763afd4d86a58de533afff4cajwoolley int l, x, pos = 0;
18343797fadabacf01280b38ea7688690d12aec0rbb for (x = 0; x < l; x++) {
18343797fadabacf01280b38ea7688690d12aec0rbb if (x && (!((l - x) % 3))) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic int handle_flastmod(include_ctx_t *ctx, apr_bucket_brigade **bb,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb 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);
18343797fadabacf01280b38ea7688690d12aec0rbb tmp_buck = apr_bucket_pool_create(t_val, t_len, r->pool);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic int re_check(request_rec *r, include_ctx_t *ctx,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const apr_size_t nres = sizeof(*ctx->re_result) / sizeof(regmatch_t);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding compiled = ap_pregcomp(r->pool, rexp, REG_EXTENDED | REG_NOSUB);
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ctx->re_result = apr_pcalloc(r->pool, sizeof(*ctx->re_result));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding regex_error = ap_regexec(compiled, string, nres, *ctx->re_result, 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic const char *get_ptoken(request_rec *r, const char *string,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* Skip leading white space */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe switch (ch) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* already token->type == token_string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* already token->type == token_string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* We should only be here if we are in a string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->value = apr_palloc(r->pool, strlen(string) + 2); /* 2 for ch plus
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding 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
34d7c69235d0bc7ac9e2f121c4890c309bb39d20brianp for (ch = *string; ((ch != '\0') && (!tkn_fnd)); ch = *++string) {
18343797fadabacf01280b38ea7688690d12aec0rbb switch (ch) {
18343797fadabacf01280b38ea7688690d12aec0rbb /* If qs is still set, we have an unmatched quote */
18343797fadabacf01280b38ea7688690d12aec0rbb/* there is an implicit assumption here that expr is at most MAX_STRING_LEN-1
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * characters long...
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int parse_expr(request_rec *r, include_ctx_t *ctx, const char *expr,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *parse;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Create Parse Tree */
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb sizeof(struct parse_node));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = new->left = new->right = (struct parse_node *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((parse = get_ptoken(r, parse, &new->token, was_unmatched)) ==
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (char *) NULL) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz " Token: string (%s)\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding " Token: regex (%s)\n",
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe "Invalid expression \"%s\" in file %s",
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe sizeof (" Token: and/or\n"));
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
18343797fadabacf01280b38ea7688690d12aec0rbb /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof(" Token: not\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy(&debug[debug_pos], " Token: eq/ne/ge/gt/le/lt\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sizeof(" Token: eq/ne/ge/gt/le/lt\n");
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof (" Token: rbrace\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz sizeof (" Token: lbrace\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Evaluate Parse Tree */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof (" Evaluate string\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding buffer = ap_ssi_parse_string(r, ctx, current->token.value, NULL,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = (current->token.value[0] != '\0');
7f7ba3f0537003a359c42170aee14a101d7fe917brianp ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
7f7ba3f0537003a359c42170aee14a101d7fe917brianp "No operator before regex of expr \"%s\" in file %s",
c6a9d49433c9ba5b18b26c3d764f1bbcb9746090wrowe sizeof(" Evaluate and/or\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz debug_pos += sprintf (&debug[debug_pos], " Left: %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sprintf (&debug[debug_pos], " Right: %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = current->left->value && current->right->value;
18343797fadabacf01280b38ea7688690d12aec0rbb current->value = current->left->value || current->right->value;
18343797fadabacf01280b38ea7688690d12aec0rbb debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof (" Evaluate eq/ne\n"));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
b79b743d4cff02d6a830bb7118826a2fd608742amartin buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
ac76e9cf90bb5f3d1d9a245a0781a797f00b165cbrianp " Re Compare (%s) with /%s/\n",
e0d709462e654322f0fa9dad28682cf63bcf8759wrowe " Compare (%s) with (%s)\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy (&debug[debug_pos], " Evaluate ge/gt/le/lt\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding buffer = ap_ssi_parse_string(r, ctx, current->left->token.value,
b79b743d4cff02d6a830bb7118826a2fd608742amartin buffer = ap_ssi_parse_string(r, ctx, current->right->token.value,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding " Compare (%s) with (%s)\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = 0; /* Don't return -1 if unknown token */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sprintf (&debug[debug_pos], " Returning %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sprintf (&debug[debug_pos], " Evaluate !: %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding debug_pos += sprintf (&debug[debug_pos], " Evaluate (): %c\n",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "Unmatched '(' in \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "bad token type");
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding retval = (root == (struct parse_node *) NULL) ? 0 : root->value;
18343797fadabacf01280b38ea7688690d12aec0rbb/*-------------------------------------------------------------------------*/
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* XXX overlaying the static string pointed to by cond_txt isn't cool */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define LOG_COND_STATUS(cntx, t_buck, h_ptr, ins_head, tag_text) \
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *cond_txt = "**** X conditional_status=\"0\"\n"; \
18343797fadabacf01280b38ea7688690d12aec0rbb 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) \
17bdb8862482dff763afd4d86a58de533afff4cajwoolley t_buck = apr_bucket_heap_create(d_buf, strlen(d_buf), 1); \
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. */
18343797fadabacf01280b38ea7688690d12aec0rbbstatic int handle_if(include_ctx_t *ctx, apr_bucket_brigade **bb,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "missing expr in if statement: %s",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz LOG_COND_STATUS(ctx, tmp_buck, head_ptr, *inserted_head,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz d_len = sprintf(debug_buf, "**** if expr=\"%s\"\n", expr);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic int handle_elif(include_ctx_t *ctx, apr_bucket_brigade **bb,
18343797fadabacf01280b38ea7688690d12aec0rbb while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb LOG_COND_STATUS(ctx, tmp_buck, head_ptr, *inserted_head,
18343797fadabacf01280b38ea7688690d12aec0rbb return (0);
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "missing expr in elif statement: %s",
18343797fadabacf01280b38ea7688690d12aec0rbb return (1);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz LOG_COND_STATUS(ctx, tmp_buck, head_ptr, *inserted_head,
18343797fadabacf01280b38ea7688690d12aec0rbb return (0);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz d_len = sprintf(debug_buf, "**** elif expr=\"%s\"\n", expr);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz tmp_buck = apr_bucket_heap_create(debug_buf, d_len, 1);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantzstatic int handle_else(include_ctx_t *ctx, apr_bucket_brigade **bb,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz request_rec *r, ap_filter_t *f, apr_bucket *head_ptr,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, 1);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "else directive does not take tags in %s", r->filename);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbb return -1;
18343797fadabacf01280b38ea7688690d12aec0rbb LOG_COND_STATUS(ctx, tmp_buck, head_ptr, *inserted_head, " else");
18343797fadabacf01280b38ea7688690d12aec0rbbstatic int handle_endif(include_ctx_t *ctx, apr_bucket_brigade **bb,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, 1);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "endif directive does not take tags in %s", r->filename);
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbb LOG_COND_STATUS(ctx, tmp_buck, head_ptr, *inserted_head, "endif");
18343797fadabacf01280b38ea7688690d12aec0rbbstatic int handle_set(include_ctx_t *ctx, apr_bucket_brigade **bb,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* we need to use the 'main' request pool to set notes as that is
18343797fadabacf01280b38ea7688690d12aec0rbb * a notes lifetime
3e5f9fcdde8f12d869eda0699603edf0f0d51752ianh while (1) {
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "variable must precede value in set directive in %s",
18343797fadabacf01280b38ea7688690d12aec0rbb return (-1);
18343797fadabacf01280b38ea7688690d12aec0rbb parsed_string = ap_ssi_parse_string(r, ctx, tag_val, NULL,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbbstatic int handle_printenv(include_ctx_t *ctx, apr_bucket_brigade **bb,
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_ssi_get_tag_and_value(ctx, &tag, &tag_val, 1);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz const apr_array_header_t *arr = apr_table_elts(r->subprocess_env);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const apr_table_entry_t *elts = (const apr_table_entry_t *)arr->elts;
7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz val_text = add_include_vars_lazy(r, elts[i].key);
93bb0ef3e7e11ddaa69377ac77157b029fa3645dbrianp tmp_buck = apr_bucket_pool_create(key_val, kv_length - 1,
93bb0ef3e7e11ddaa69377ac77157b029fa3645dbrianp ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe "printenv directive does not take tags in %s",
18343797fadabacf01280b38ea7688690d12aec0rbb CREATE_ERROR_BUCKET(ctx, tmp_buck, head_ptr, *inserted_head);
18343797fadabacf01280b38ea7688690d12aec0rbb return -1;
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz/* -------------------------- The main function --------------------------- */
18343797fadabacf01280b38ea7688690d12aec0rbbstatic apr_status_t send_parsed_content(apr_bucket_brigade **bb,
81e5d74ef38fbf76853e1fbdd95c117e130e473frbb if (r->args) { /* add QUERY stuff to env cause it ain't yet */
18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(r->subprocess_env, "QUERY_STRING", r->args);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe apr_table_setn(r->subprocess_env, "QUERY_STRING_UNESCAPED",
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz while (dptr != APR_BRIGADE_SENTINEL(*bb) && !APR_BUCKET_IS_EOS(dptr)) {
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm /* State to check for the STARTING_SEQUENCE. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((ctx->state == PRE_HEAD) || (ctx->state == PARSE_HEAD)) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tmp_dptr = find_start_sequence(dptr, ctx, *bb, &do_cleanup);
18343797fadabacf01280b38ea7688690d12aec0rbb /* The few bytes stored in the ssi_tag_brigade turned out not to
18343797fadabacf01280b38ea7688690d12aec0rbb * be a tag after all. This can only happen if the starting
23801cf373ddaff5a5ba7692d2637d75bdffdc4btrawick * tag actually spans brigades. This should be very rare.
18343797fadabacf01280b38ea7688690d12aec0rbb if ((do_cleanup) && (!APR_BRIGADE_EMPTY(ctx->ssi_tag_brigade))) {
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz tmp_bkt = apr_bucket_immortal_create(ctx->start_seq,
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe /* If I am inside a conditional (if, elif, else) that is false
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe * then I need to throw away anything contained in it.
51be7fc538641ed7cb22e959eb31629f7183f70fianh if ((!(ctx->flags & FLAG_PRINTING)) && (tmp_dptr != NULL) &&
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley /* Adjust the current bucket position based on what was found... */
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley if ((tmp_dptr != NULL) && (ctx->state == PARSE_DIRECTIVE)) {
18343797fadabacf01280b38ea7688690d12aec0rbb /* Send the large chunk of pre-tag bytes... */
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe APR_BRIGADE_INSERT_TAIL(*bb, apr_bucket_flush_create());
81e5d74ef38fbf76853e1fbdd95c117e130e473frbb /* There was no possible SSI tag in the
81e5d74ef38fbf76853e1fbdd95c117e130e473frbb * remainder of this brigade... */
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz /* State to check for the ENDING_SEQUENCE. */
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe /* If some of the tag has already been set aside then set
18343797fadabacf01280b38ea7688690d12aec0rbb * aside remainder of tag. Now the full tag is in
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz * ssi_tag_brigade.
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz * If none has yet been set aside, then leave it all where it
18343797fadabacf01280b38ea7688690d12aec0rbb * In any event after this the entire set of tag buckets will
18343797fadabacf01280b38ea7688690d12aec0rbb * be in one place or another.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz SPLIT_AND_PASS_PRETAG_BUCKETS(*bb, ctx, f->next, rv);
4d003677925ceb0abefb9c95355b4c9e9e502899rederpj /* remainder of this brigade... */
e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz /* State to processed the directive... */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz int (*handle_func)(include_ctx_t *, apr_bucket_brigade **,
18343797fadabacf01280b38ea7688690d12aec0rbb /* By now the full tag (all buckets) should either be set aside into
18343797fadabacf01280b38ea7688690d12aec0rbb * ssi_tag_brigade or contained within the current bb. All tag
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe * processing from here on can assume that.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* At this point, everything between ctx->head_start_bucket and
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * ctx->tail_start_bucket is an SSI
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * directive, we just have to deal with it now.
18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
18343797fadabacf01280b38ea7688690d12aec0rbb "mod_include: error copying directive in %s",
18343797fadabacf01280b38ea7688690d12aec0rbb /* DO CLEANUP HERE!!!!! */
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley /* Can't destroy the tag buckets until I'm done processing
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley * because the combined_tag might just be pointing to
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley * the contents of a single bucket!
18343797fadabacf01280b38ea7688690d12aec0rbb /* Retrieve the handler function to be called for this directive
ff4f536ee2bab7f642400dd50caedbfbae3e03dfrbb * from the functions registered in the hash table.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Need to lower case the directive for proper matching. Also need
18343797fadabacf01280b38ea7688690d12aec0rbb * to have it NULL terminated for proper hash matching.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz for (tmp_i = 0; tmp_i < ctx->directive_length; tmp_i++) {
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ctx->combined_tag[ctx->directive_length] = '\0';
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ctx->curr_tag_pos = &ctx->combined_tag[ctx->directive_length+1];
f6e9f5600e77b78fb013bb543d364135961639d1rbb rv = (*handle_func)(ctx, bb, r, f, dptr, &content_head);
e08a1745d191d666759873a50edcc520ca273e12wrowe ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
812e019c7736939f79a929d1f1e8f4e70efc5e31brianp "unknown directive \"%s\" in parsed doc %s",
53b8cdb3621b11b897438d8990d20e0b78f0d4b7rederpj CREATE_ERROR_BUCKET(ctx, tmp_bkt, dptr, content_head);
53b8cdb3621b11b897438d8990d20e0b78f0d4b7rederpj /* This chunk of code starts at the first bucket in the chain
f6e9f5600e77b78fb013bb543d364135961639d1rbb * of tag buckets (assuming that by this point the bucket for
f6e9f5600e77b78fb013bb543d364135961639d1rbb * the STARTING_SEQUENCE has been split) and loops through to
b79b743d4cff02d6a830bb7118826a2fd608742amartin * the end of the tag buckets freeing them all.
f6e9f5600e77b78fb013bb543d364135961639d1rbb * Remember that some part of this may have been set aside
18343797fadabacf01280b38ea7688690d12aec0rbb * into the ssi_tag_brigade and the remainder (possibly as
18343797fadabacf01280b38ea7688690d12aec0rbb * little as one byte) will be in the current brigade.
18343797fadabacf01280b38ea7688690d12aec0rbb * The value of dptr should have been set during the
18343797fadabacf01280b38ea7688690d12aec0rbb * PARSE_TAIL state to the first bucket after the
18343797fadabacf01280b38ea7688690d12aec0rbb * ENDING_SEQUENCE.
18343797fadabacf01280b38ea7688690d12aec0rbb * The value of content_head may have been set during processing
18343797fadabacf01280b38ea7688690d12aec0rbb * of the directive. If so, the content was inserted in front
18343797fadabacf01280b38ea7688690d12aec0rbb * of the dptr bucket. The inserted buckets should not be thrown
18343797fadabacf01280b38ea7688690d12aec0rbb * away here, but they should also not be parsed later.
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley /* Don't reset the flags or the nesting level!!! */
18343797fadabacf01280b38ea7688690d12aec0rbb /* We have nothing more to send, stop now. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* We might have something saved that we never completed, but send
18343797fadabacf01280b38ea7688690d12aec0rbb * down unparsed. This allows for <!-- at the end of files to be
18343797fadabacf01280b38ea7688690d12aec0rbb * sent correctly. */
575c282719040a1614cb5185e61fe4e66d337f1dbrianp /* If I am in the middle of parsing an SSI tag then I need to set aside
575c282719040a1614cb5185e61fe4e66d337f1dbrianp * the pertinent trailing buckets and pass on the initial part of the
575c282719040a1614cb5185e61fe4e66d337f1dbrianp * brigade. The pertinent parts of the next brigades will be added to
575c282719040a1614cb5185e61fe4e66d337f1dbrianp * these set aside buckets to form the whole tag and will be processed
575c282719040a1614cb5185e61fe4e66d337f1dbrianp * once the whole tag has been found.
575c282719040a1614cb5185e61fe4e66d337f1dbrianp /* Inside a false conditional (if, elif, else), so toss it all... */
18343797fadabacf01280b38ea7688690d12aec0rbb /* Otherwise pass it along...
c0ae62021062bd9e2434c64db6763d22c703d48djwoolley * No SSI tags in this brigade... */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else if (ctx->state == PARSED) { /* Invalid internal condition... */
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
81e5d74ef38fbf76853e1fbdd95c117e130e473frbb "Invalid mod_include state during file %s", r->filename);
81e5d74ef38fbf76853e1fbdd95c117e130e473frbb CREATE_ERROR_BUCKET(ctx, tmp_bkt, APR_BRIGADE_FIRST(*bb), content_head);
b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb else { /* Entire brigade is middle chunk of SSI tag... */
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe else { /* End of brigade contains part of SSI tag... */
18343797fadabacf01280b38ea7688690d12aec0rbb apr_bucket_split(ctx->head_start_bucket, ctx->head_start_index);
b980ad7fdc218b4855cde9f75a747527f50c554dwrowe /* Set aside tag, pass pre-tag... */
18343797fadabacf01280b38ea7688690d12aec0rbb tag_and_after = apr_brigade_split(*bb, ctx->head_start_bucket);
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ap_save_brigade(f, &ctx->ssi_tag_brigade, &tag_and_after, r->pool);
81e5d74ef38fbf76853e1fbdd95c117e130e473frbbstatic void *create_includes_dir_config(apr_pool_t *p, char *dummy)
b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb (include_dir_config *)apr_palloc(p, sizeof(include_dir_config));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding enum xbithack *xbh = (enum xbithack *) apr_palloc(p, sizeof(enum xbithack));
dfd4950edac888e671b96f62ff5382b7cb350d48rbbstatic void *create_includes_server_config(apr_pool_t*p, server_rec *server)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb (include_server_config *)apr_palloc(p, sizeof(include_server_config));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* compile the pattern used by find_start_sequence */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding bndm_compile(&result->start_seq_pat, result->default_start_tag,
51be7fc538641ed7cb22e959eb31629f7183f70fianh result->undefinedEchoLen = strlen( result->undefinedEcho);
51be7fc538641ed7cb22e959eb31629f7183f70fianhstatic const char *set_xbithack(cmd_parms *cmd, void *xbp, const char *arg)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb return "XBitHack must be set to Off, On, or Full";
dfd4950edac888e671b96f62ff5382b7cb350d48rbbstatic apr_status_t includes_filter(ap_filter_t *f, apr_bucket_brigade *b)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (include_dir_config *)ap_get_module_config(r->per_dir_config,
4955f2b4ca045ac2c025fff3a46c2d901933d1e4trawick include_server_config *sconf= ap_get_module_config(r->server->module_config,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb if (!f->ctx) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding f->ctx = ctx = apr_pcalloc(f->c->pool, sizeof(*ctx));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ctx->ssi_tag_brigade = apr_brigade_create(f->c->pool);
e85d1bc5205a1b1299e9dcffd4df22f8f8bbe8cdwrowe if ((parent = ap_get_module_config(r->request_config, &include_module))) {
e85d1bc5205a1b1299e9dcffd4df22f8f8bbe8cdwrowe /* Kludge --- for nested includes, we want to keep the subprocess
e85d1bc5205a1b1299e9dcffd4df22f8f8bbe8cdwrowe * environment of the base document (for compatibility); that means
e85d1bc5205a1b1299e9dcffd4df22f8f8bbe8cdwrowe * torquing our own last_modified date as well so that the
18343797fadabacf01280b38ea7688690d12aec0rbb * LAST_MODIFIED variable gets reset to the proper value if the
b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb * nested document resets <!--#config timefmt -->.
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* we're not a nested include, so we create an initial
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * environment */
e276c9cfe954b78e045baa94abb7a9def722fe1erbb /* XXX: this is bogus, at some point we're going to do a subrequest,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * and when we do it we're going to be subjecting code that doesn't
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * expect to be signal-ready to SIGALRM. There is no clean way to
db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz * fix this, except to put alarm support into BUFF. -djg
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Always unset the content-length. There is no way to know if
dfd4950edac888e671b96f62ff5382b7cb350d48rbb * the content will be modified at some point by send_parsed_content.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * It is very possible for us to not find any content in the first
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 9k of the file, but still have to modify the content of the file.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * If we are going to pass the file through send_parsed_content, then
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * the content-length should just be unset.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_table_unset(f->r->headers_out, "Content-Length");
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb /* Always unset the ETag/Last-Modified fields - see RFC2616 - 13.3.4.
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * We don't know if we are going to be including a file or executing
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * a program which may change the Last-Modified header or make the
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * content completely dynamic. Therefore, we can't support these
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * headers.
27338fc39af80f2f0e4a8dbdc90c8a8179a5b2e4rbb * Exception: XBitHack full means we *should* set the Last-Modified field.
8e5842bc05146bb5c171e53b00b24063d17c666cjerenkrantz /* Assure the platform supports Group protections */
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley apr_table_unset(f->r->headers_out, "Last-Modified");
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley return send_parsed_content(&b, r, f);
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolleystatic void ap_register_include_handler(char *tag, include_handler_fn_t *func)
6f4c27ba6e152792f3729069e8d8313ebc87cc60jwoolley apr_hash_set(include_hash, tag, strlen(tag), (const void *)func);
8e5842bc05146bb5c171e53b00b24063d17c666cjerenkrantzstatic int include_post_config(apr_pool_t *p, apr_pool_t *plog,
f6e9f5600e77b78fb013bb543d364135961639d1rbb ssi_pfn_register = APR_RETRIEVE_OPTIONAL_FN(ap_register_include_handler);
445997e06464e7625c7f0e22917f8f2d9876cfffrbbstatic const char *set_default_error_msg(cmd_parms *cmd, void *mconfig, const char *msg)
445997e06464e7625c7f0e22917f8f2d9876cfffrbb include_dir_config *conf = (include_dir_config *)mconfig;
f6e9f5600e77b78fb013bb543d364135961639d1rbbstatic const char *set_default_start_tag(cmd_parms *cmd, void *mconfig, const char *msg)
dfd4950edac888e671b96f62ff5382b7cb350d48rbb conf= ap_get_module_config(cmd->server->module_config , &include_module);
dfd4950edac888e671b96f62ff5382b7cb350d48rbb bndm_compile(&conf->start_seq_pat, conf->default_start_tag,
51be7fc538641ed7cb22e959eb31629f7183f70fianhstatic const char *set_undefined_echo(cmd_parms *cmd, void *mconfig, const char *msg)
51be7fc538641ed7cb22e959eb31629f7183f70fianh conf = ap_get_module_config(cmd->server->module_config, &include_module);
103005439776bb7aeccb95ebf4761ebfef3f9c39ianhstatic const char *set_default_end_tag(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_time_fmt(cmd_parms *cmd, void *mconfig, const char *fmt)
51be7fc538641ed7cb22e959eb31629f7183f70fianh include_dir_config *conf = (include_dir_config *)mconfig;
51be7fc538641ed7cb22e959eb31629f7183f70fianh * Module definition and configuration data structs...
dfd4950edac888e671b96f62ff5382b7cb350d48rbb AP_INIT_TAKE1("XBitHack", set_xbithack, NULL, OR_OPTIONS,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb "Off, On, or Full"),
dfd4950edac888e671b96f62ff5382b7cb350d48rbb AP_INIT_TAKE1("SSIErrorMsg", set_default_error_msg, NULL, OR_ALL,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb "a string"),
f6e9f5600e77b78fb013bb543d364135961639d1rbb AP_INIT_TAKE1("SSITimeFormat", set_default_time_fmt, NULL, OR_ALL,
f6e9f5600e77b78fb013bb543d364135961639d1rbb "a strftime(3) formatted string"),
f6e9f5600e77b78fb013bb543d364135961639d1rbb AP_INIT_TAKE1("SSIStartTag", set_default_start_tag, NULL, RSRC_CONF,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "SSI Start String Tag"),
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding AP_INIT_TAKE1("SSIEndTag", set_default_end_tag, NULL, RSRC_CONF,
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick "SSI End String Tag"),
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick AP_INIT_TAKE1("SSIUndefinedEcho", set_undefined_echo, NULL, RSRC_CONF,
dfd4950edac888e671b96f62ff5382b7cb350d48rbb "SSI Start String Tag"),
103005439776bb7aeccb95ebf4761ebfef3f9c39ianh conf = (include_dir_config *) ap_get_module_config(r->per_dir_config,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (r->handler && (strcmp(r->handler, "server-parsed") == 0))
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe /* These OS's don't support xbithack. This is being worked on. */
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe if (!r->content_type || strcmp(r->content_type, "text/html")) {
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe /* We always return declined, because the default handler actually
b3f07c5b499a1eb94f0b73e9220541a75ec87cc0wrowe * serves the file. All we have to do is add the filter.
2fa38d4c4740115a965238309cad614b8ce7bd27brianp ap_add_output_filter("INCLUDES", NULL, r, r->connection);
e49758465fbf67f29f9aeda996d09f7cc6fa9fe5rbb ap_hook_post_config(include_post_config, NULL, NULL, APR_HOOK_REALLY_FIRST);
e49758465fbf67f29f9aeda996d09f7cc6fa9fe5rbb ap_hook_fixups(include_fixup, NULL, NULL, APR_HOOK_LAST);