mod_include.c revision 429d0fa129ee2558bd1d01a1abd4e9375e5d67e8
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ====================================================================
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * The Apache Software License, Version 1.1
ab2c1c1c83ec91415565da5a71fbc15d9685caa6fielding * Copyright (c) 2000 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.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * sub key may be anything a Perl*Handler can be:
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * subroutine name, package name (defaults to package::handler),
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Class->method call or anoymous sub {}
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Child <!--#perl sub="sub {print $$}" --> accessed
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * <!--#perl sub="sub {print ++$Access::Cnt }" --> times. <br>
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * <!--#perl arg="one" sub="mymod::includer" -->
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * -Doug MacEachern
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define DEFAULT_ERROR_MSG "[an error occurred while processing this directive]"
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define DEFAULT_TIME_FORMAT "%A, %d-%b-%Y %H:%M:%S %Z"
71ae70b321b6e872938934bbf569c5787962aca3trawick#define RAW_ASCII_CHAR(ch) apr_xlate_conv_byte(ap_hdrs_from_ascii, (unsigned char)ch)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#else /*CHARSET_EBCDIC*/
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /*CHARSET_EBCDIC*/
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* just need some arbitrary non-NULL pointer which can't also be a request_rec */
33098ea43d4392be70012a7c45a16639abb12439fielding/* TODO: changing directory should be handled by CreateProcess */
33098ea43d4392be70012a7c45a16639abb12439fielding#define ap_chdir_file(x) do {} while(0)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ------------------------ Environment function -------------------------- */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* XXX: could use ap_table_overlap here */
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void add_include_vars(request_rec *r, char *timefmt)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /* ndef WIN32 */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DATE_LOCAL", ap_ht_time(r->pool, date, timefmt, 0));
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DATE_GMT", ap_ht_time(r->pool, date, timefmt, 1));
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DOCUMENT_PATH_INFO", r->path_info);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "USER_NAME", apr_pstrdup(r->pool, pw->pw_name));
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "USER_NAME", apr_psprintf(r->pool, "user#%lu",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /* ndef WIN32 */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* --------------------------- Parser functions --------------------------- */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic ap_bucket *find_string(ap_bucket *dptr, const char *str, ap_bucket *end)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *c;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *buf;
fcc991411813d0ceaca4a76675f771e1f06617cdtrawick /* XXX handle retcodes */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* We want to split the bucket at the '<' and '>'
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * respectively. That means adjusting where we split based
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * on what we are searching for.
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* The reason for this, is that we need to make sure
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * that we catch cases like <<--#. This makes the
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * second check after the original check fails.
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 char *p = 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 for (; *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]);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * extract the next tag name and value.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * if there are no more tags, set the tag name to 'done'
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * the tag value is html decoded if dodecode is non-zero
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic char *get_tag(apr_pool_t *p, ap_bucket *in, char *tag, int tagbuf_len, int dodecode, apr_off_t *offset)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *c;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *str;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* makes code below a little less cluttered */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* Remove all whitespace */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* tags can't start with - */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c == '-') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c == '-') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb } while (apr_isspace(*c));
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c == '>') {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* find end of tag name */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb *(t++) = apr_tolower(*c);
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *t++ = '\0';
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb while (apr_isspace(*c)) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c != '=') {
fcc991411813d0ceaca4a76675f771e1f06617cdtrawick /* XXX may need to ungetc() here (see pre-bucketized code) */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb } while (apr_isspace(*c));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* we should allow a 'name' as a value */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* Want to accept \" as a valid character within a string. */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (*c == '\\') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb *(t++) = *c; /* Add backslash */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (c == '\0') {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb *(--t) = *c; /* Replace backslash ONLY for terminator */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb else if (*c == term) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb *(t++) = *c;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int get_directive(ap_bucket *in, char *dest, size_t len, apr_pool_t *p)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *c;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb const char *str;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* make room for nul terminator */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* need to start past the <!--#
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* now get directive */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Do variable substitution on strings
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void parse_string(request_rec *r, const char *in, char *out,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* leave room for nul terminator */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* truncated */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *end_of_var_name; /* end of var name + 1 */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *val;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* guess that the expansion won't happen */
b79b743d4cff02d6a830bb7118826a2fd608742amartin 0, r, "Missing '}' on variable \"%s\"",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* what a pain, too bad there's no table_getn where you can
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * pass a non-nul terminated string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (l != 0) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break; /* no expansion to be done */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* zero-length variable name causes just the $ to be copied */
44d275fe4ce94e3b2d73614b1930a2e43e6fba8fstoddard l = ((int)l > end_out - next) ? (end_out - next) : l;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* truncated */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* --------------------------- Action handlers ---------------------------- */
1f89ef1594d8a552f81e775be55cb9baeab32b77trawickstatic int include_cgi(char *s, request_rec *r, ap_filter_t *next)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* No hardwired path info or query allowed */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((rr->path_info && rr->path_info[0]) || rr->args) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Script gets parameters of the *document*, for back compatibility */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr->path_info = r->path_info; /* hard to get right; see mod_cgi.c */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Force sub_req to be treated as a CGI request, even if ordinary
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * typing rules would have called it something else.
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick /* The subrequest should inherit the remaining filters from this request. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Run it. */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm const char *location = apr_table_get(rr->headers_out, "Location");
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, "<A HREF=\"", location, "\">", location, "</A>", NULL);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* ensure that path is relative, and does not contain ".." elements
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * ensentially ensure that it does not match the regex:
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * (^/|(^|/)\.\.(/|$))
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * XXX: this needs os abstraction... consider c:..\foo in win32
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*path == '/' && path[1] == '.' && path[2] == '.'
1f89ef1594d8a552f81e775be55cb9baeab32b77trawickstatic int handle_include(ap_bucket *in, request_rec *r, ap_filter_t *next,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("include ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "file") || !strcmp(tag, "virtual")) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* be safe; only files in this directory or below allowed */
9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include \"%s\" in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include potential exec \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* try to avoid recursive includes. We do this by walking
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * up the r->main list of subrequests, and at each level
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * walking back through any internal redirects. At each
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * step, we compare the filenames and the URIs.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * The filename comparison catches a recursive include
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * with an ever-changing URL, eg.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * <!--#include virtual=
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * "$REQUEST_URI/$QUERY_STRING?$QUERY_STRING/x"-->
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * which, although they would eventually be caught because
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * we have a limit on the length of files, etc., can
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * recurse for a while.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * The URI comparison catches the case where the filename
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * 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
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * request "/" on the server and it includes "/".
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * This only applies to modules such as mod_dir that
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * (somewhat improperly) mess with r->filename outside
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * of a filename translation phase.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (p = r; p != NULL && !founddupe; p = p->main) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (p != NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* see the Kludge in send_parsed_file for why */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_set_module_config(rr->request_config, &includes_module, r);
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick /* The subrequest should inherit the remaining filters from
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick * this request. */
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick error_fmt = "unable to include \"%s\" in parsed file %s";
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* destroy the sub request if it's not a nested include */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding && ap_get_module_config(rr->request_config, &includes_module)
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag include in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingtypedef struct {
1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic apr_status_t build_argv_list(char ***argv, request_rec *r, apr_pool_t *p)
e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* count the number of keywords */
23cfa61aaed581f103070c8733a493b31f990f9brbb /* Everything is - 1 to account for the first parameter which is the
23cfa61aaed581f103070c8733a493b31f990f9brbb * program name. We didn't used to have to do this, but APR wants it.
23cfa61aaed581f103070c8733a493b31f990f9brbb numwords = APACHE_ARG_MAX - 1; /* Truncate args to prevent overrun */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm *argv = (char **) apr_palloc(p, (numwords + 2) * sizeof(char *));
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int include_cmd(char *s, request_rec *r, ap_filter_t *next)
b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb defined(RLIMIT_DATA) || defined(RLIMIT_VMEM) || defined (RLIMIT_AS)
b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb conf = (core_dir_config *) ap_get_module_config(r->per_dir_config,
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "PATH_INFO", ap_escape_shell_cmd(r->pool, r->path_info));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding pa_req = ap_sub_req_lookup_uri(ap_escape_uri(r->pool, r->path_info), r);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_pstrcat(r->pool, pa_req->filename, pa_req->path_info,
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm if ((apr_createprocattr_init(&procattr, r->pool) != APR_SUCCESS) ||
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm (apr_setprocattr_dir(procattr, ap_make_dirstr_parent(r->pool, r->filename)) != APR_SUCCESS) ||
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_CPU, conf->limit_cpu)) != APR_SUCCESS) ||
b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#if defined(RLIMIT_DATA) || defined(RLIMIT_VMEM) || defined(RLIMIT_AS)
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_MEM, conf->limit_mem)) != APR_SUCCESS) ||
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_NPROC, conf->limit_nproc)) != APR_SUCCESS) ||
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm (apr_setprocattr_cmdtype(procattr, APR_SHELLCMD) != APR_SUCCESS)) {
e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Something bad happened, tell the world. */
14552184cfa95bd49b274b434390cc5195e8375crbb "couldn't initialize proc attributes: %s %s", r->filename, s);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm rc = apr_create_process(procnew, s, argv, ap_create_environment(r->pool, env), procattr, r->pool);
e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Bad things happened. Everyone should have cleaned up. */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_note_subprocess(r->pool, procnew, kill_after_timeout);
e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Fill in BUFF structure for parents pipe to child's stdout */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* We can't close the pipe here, because we may return before the
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * full CGI has been sent to the network. That's okay though,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * because we can rely on the pool to close the pipe for us.
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_exec(ap_bucket *in, request_rec *r, const char *error,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("exec ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 1);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "execution failure for parameter \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "to tag exec in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* just in case some stooge changed directories */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag exec in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_echo(ap_bucket *in, request_rec *r, const char *error)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("echo ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm const char *val = apr_table_get(r->subprocess_env, tag_val);
3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (!strcasecmp(tag_val, "entity")) encode = E_ENTITY;
0c17e19b2f9ebb28c25f9efa6cd58d257e1ad728dreid ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
3a9bc6532fbe8439fc748d8ffedb87415904d16ajim "unknown value \"%s\" to parameter \"encoding\" of "
3a9bc6532fbe8439fc748d8ffedb87415904d16ajim "tag echo in %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag echo in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_perl(ap_bucket *in, request_rec *r, const char *error)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("perl ") + strlen(STARTING_SEQUENCE);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "#perl SSI disallowed by IncludesNoExec in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* error and tf must point to a string with room for at
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * least MAX_STRING_LEN characters
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_config(ap_bucket *in, request_rec *r, char *error, char *tf,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("config ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 0, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, error, MAX_STRING_LEN, 0);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date, tf, 0));
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date, tf, 1));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag config in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int find_file(request_rec *r, const char *directive, const char *tag,
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 */
d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb if (rr->status == HTTP_OK && rr->finfo.protection != 0) {
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm if (apr_stat(finfo, to_send, 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";
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm /* TODO: pass APLOG_NOERRNO if no apr_stat() failure; pass rv from apr_stat()
9cb787a8a3d06704ab9c51ffd51525b364151182trawick * otherwise
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, error_fmt, to_send, r->filename);
d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb if (rr->status == HTTP_OK && rr->finfo.protection != 0) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unable to get information about \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "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",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_fsize(ap_bucket *in, request_rec *r, const char *error, int sizefmt)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("fsize ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!find_file(r, "fsize", tag, parsed_string, &finfo, error)) {
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_snprintf(tag, sizeof(tag), "%" APR_OFF_T_FMT, finfo.size);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (x = 0; x < l; x++) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (x && (!((l - x) % 3))) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_flastmod(ap_bucket *in, request_rec *r, const char *error, const char *tf)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("flastmod ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!find_file(r, "flastmod", tag, parsed_string, &finfo, error)) {
9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard ap_rputs(ap_ht_time(r->pool, finfo.mtime, tf, 0), r);
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int re_check(request_rec *r, char *string, char *rexp)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding compiled = ap_pregcomp(r->pool, rexp, REG_EXTENDED | REG_NOSUB);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding regex_error = ap_regexec(compiled, string, 0, (regmatch_t *) NULL, 0);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_and, token_or, token_not, token_eq, token_ne,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* there is an implicit assumption here that string is at most MAX_STRING_LEN-1
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * characters long...
0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic const char *get_ptoken(request_rec *r, const char *string, struct token *token)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Skip leading white space */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* We should only be here if we are in a string */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Yes I know that goto's are BAD. But, c doesn't allow me to
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * exit a loop from a switch statement. Yes, I could use a flag,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * but that is (IMHO) even less readable/maintainable than the goto.
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
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* If qs is still set, I have an unmatched ' */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * Hey I still know that goto's are BAD. I don't think that I've ever
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * used two in the same project, let alone the same file before. But,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * I absolutely want to make sure that I clean up the memory in all
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * cases. And, without rewriting this completely, the easiest way
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * is to just branch to the return code which cleans it up.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* 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, const char *expr, const char *error)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *parse;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (0);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm if (apr_create_pool(&expr_pool, r->pool) != APR_SUCCESS)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Create Parse Tree */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sizeof(struct parse_node));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = new->left = new->right = (struct parse_node *) NULL;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((parse = get_ptoken(r, parse, &new->token)) == (char *) NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Token: string (", new->token.value, ")\n", NULL);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->token.value[sizeof(current->token.value) - 1] = '\0';
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Percolate upwards */
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Evaluate Parse Tree */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, current->token.value, buffer, sizeof(buffer), 0);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_cpystrn(current->token.value, buffer, sizeof(current->token.value));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = (current->token.value[0] != '\0');
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->left->value = (current->left->token.value[0] != '\0');
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->right->value = (current->right->token.value[0] != '\0');
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Left: ", current->left->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Right: ", current->right->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = current->left->value && current->right->value;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = current->left->value || current->right->value;
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Returning ", current->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid rexp \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Re Compare (", current->left->token.value,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ") with /", ¤t->right->token.value[1], "/\n", NULL);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Compare (", current->left->token.value,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ") with (", current->right->token.value, ")\n", NULL);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Returning ", current->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((current->left == (struct parse_node *) NULL) ||
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Compare (", current->left->token.value,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ") with (", current->right->token.value, ")\n", NULL);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->value = 0; /* Don't return -1 if unknown token */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Returning ", current->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Evaluate !: ", current->value ? "1" : "0",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (current->right != (struct parse_node *) NULL) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, " Evaluate (): ", current->value ? "1" : "0",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched '(' in \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",
b79b743d4cff02d6a830bb7118826a2fd608742amartin 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;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_if(ap_bucket *in, request_rec *r, const char *error,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("if ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb tag_val = get_tag(r->pool, in, tag, sizeof(tag), 0, &offset);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "missing expr in if statement: %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *printing = *conditional_status = parse_expr(r, expr, error);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, "**** if expr=\"", expr, "\"\n", NULL);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag if in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_elif(ap_bucket *in, request_rec *r, const char *error,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("elif ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb tag_val = get_tag(r->pool, in, tag, sizeof(tag), 0, &offset);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (0);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "missing expr in elif statement: %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *printing = *conditional_status = parse_expr(r, expr, error);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, "**** if expr=\"", expr, "\"\n", NULL);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag if in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_else(ap_bucket *in, request_rec *r, const char *error,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("else ") + strlen(STARTING_SEQUENCE);
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!get_tag(r->pool, in, tag, sizeof(tag), 1, &offset)) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "else directive does not take tags in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_endif(ap_bucket *in, request_rec *r, const char *error,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("endif ") + strlen(STARTING_SEQUENCE);
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!get_tag(r->pool, in, tag, sizeof(tag), 1, &offset)) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "endif directive does not take tags in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_set(ap_bucket *in, request_rec *r, const char *error)
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("set ") + strlen(STARTING_SEQUENCE);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "variable must precede value in set directive in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(r->subprocess_env, var, apr_pstrdup(r->pool, parsed_string));
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid tag for set directive in %s", r->filename);
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int handle_printenv(ap_bucket *in, request_rec *r, const char *error)
10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe apr_array_header_t *arr = apr_table_elts(r->subprocess_env);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_entry_t *elts = (apr_table_entry_t *)arr->elts;
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb apr_off_t offset = strlen("printenv ") + strlen(STARTING_SEQUENCE);
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1, &offset))) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "printenv directive does not take tags in %s",
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* -------------------------- The main function --------------------------- */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* This is a stub which parses a file descriptor. */
ffb33d5056f6b93558cd032b24fcd250313180f3trawickstatic void send_parsed_content(ap_bucket_brigade **bb, request_rec *r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char directive[MAX_STRING_LEN], error[MAX_STRING_LEN];
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_cpystrn(timefmt, DEFAULT_TIME_FORMAT, sizeof(timefmt));
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/* Turn printing on */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (r->args) { /* add QUERY stuff to env cause it ain't yet */
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(r->subprocess_env, "QUERY_STRING", r->args);
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(r->subprocess_env, "QUERY_STRING_UNESCAPED",
ffb33d5056f6b93558cd032b24fcd250313180f3trawick if ((tagbuck = find_string(dptr, STARTING_SEQUENCE, AP_BRIGADE_LAST(*bb))) != NULL) {
c8cac96ffeeb64c1765fce44b24c1bfa891b8b19trawick endsec = find_string(dptr2, ENDING_SEQUENCE, AP_BRIGADE_LAST(*bb));
e350972f92b4f6d8a1b9e177bffa14b05345eacdtrawick /** XXX No ending tag, needs to become an error bucket
e350972f92b4f6d8a1b9e177bffa14b05345eacdtrawick ** Tag could come in the next brigade (unless we've
e350972f92b4f6d8a1b9e177bffa14b05345eacdtrawick ** received eos in this brigade).
e350972f92b4f6d8a1b9e177bffa14b05345eacdtrawick ** We're about to segfault.
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /* At this point, everything between tagbuck and endsec is an SSI
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb * directive, we just have to deal with it now.
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb if (get_directive(tagbuck, directive, sizeof(directive), r->pool)) {
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "mod_include: error reading directive in %s",
ffb33d5056f6b93558cd032b24fcd250313180f3trawick ap_pass_brigade(f->next, *bb); /* process what came before the tag */
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb ret = handle_else(tagbuck, r, error, &conditional_status,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb ret = handle_elif(tagbuck, r, error, &conditional_status,
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb ret = handle_endif(tagbuck, r, error, &conditional_status,
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "exec used but not allowed in %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb ret = handle_config(tagbuck, r, error, timefmt, &sizefmt);
1f89ef1594d8a552f81e775be55cb9baeab32b77trawick ret = handle_include(tagbuck, r, f->next, error, noexec);
b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown directive \"%s\" "
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed doc %s",
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb/* AP_BRIGADE_UNSPLICE(dptr, AP_BUCKET_PREV(endsec)); */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding/*****************************************************************
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * XBITHACK. Sigh... NB it's configurable per-directory; the compile-time
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * option only changes the default.
1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic void *create_includes_dir_config(apr_pool_t *p, char *dummy)
1ccd992d37d62c8cb2056126f2234f64ec189bfddougm enum xbithack *result = (enum xbithack *) apr_palloc(p, sizeof(enum xbithack));
ebe70c2684539a5fb2d899241d1601710dfa38a4trawickstatic const char *set_xbithack(cmd_parms *cmd, void *xbp, const char *arg)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return "XBitHack must be set to Off, On, or Full";
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic int includes_filter(ap_filter_t *f, ap_bucket_brigade *b)
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (enum xbithack *) ap_get_module_config(r->per_dir_config, &includes_module);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* OS/2 dosen't support Groups. */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((parent = ap_get_module_config(r->request_config, &includes_module))) {
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Kludge --- for nested includes, we want to keep the subprocess
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * environment of the base document (for compatibility); that means
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * torquing our own last_modified date as well so that the
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * LAST_MODIFIED variable gets reset to the proper value if the
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * nested document resets <!--#config timefmt-->.
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * We also insist that the memory for this subrequest not be
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * destroyed, that's dealt with in handle_include().
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* we're not a nested include, so we create an initial
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * environment */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* 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
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding * fix this, except to put alarm support into BUFF. -djg
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* signify that the sub request should not be killed */
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_set_module_config(r->request_config, &includes_module,
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick AP_INIT_TAKE1("XBitHack", set_xbithack, NULL, OR_OPTIONS,
ebe70c2684539a5fb2d899241d1601710dfa38a4trawick "Off, On, or Full"),
47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbbstatic void register_hooks(void)
1296b2d30150ccb4ae9f6d690846b4e8f8571fd2rbb ap_register_output_filter("INCLUDES", includes_filter, AP_FTYPE_CONTENT);
0f081398cf0eef8cc7c66a535d450110a92dc8aefielding create_includes_dir_config, /* dir config creater */