Blame standalone/config.c

Packit 284210
/*
Packit 284210
* ModSecurity for Apache 2.x, http://www.modsecurity.org/
Packit 284210
* Copyright (c) 2004-2013 Trustwave Holdings, Inc. (http://www.trustwave.com/)
Packit 284210
*
Packit 284210
* You may not use this file except in compliance with
Packit 284210
* the License.  You may obtain a copy of the License at
Packit 284210
*
Packit 284210
*     http://www.apache.org/licenses/LICENSE-2.0
Packit 284210
*
Packit 284210
* If any of the files related to licensing are missing or if you have any
Packit 284210
* other questions related to licensing please contact Trustwave Holdings, Inc.
Packit 284210
* directly using the email address security@modsecurity.org.
Packit 284210
*/
Packit 284210
Packit 284210
#include <limits.h>
Packit 284210
#include <stdio.h>
Packit 284210
Packit 284210
#include "http_core.h"
Packit 284210
#include "http_request.h"
Packit 284210
Packit 284210
#include "modsecurity.h"
Packit 284210
#include "apache2.h"
Packit 284210
#include "http_main.h"
Packit 284210
#include "http_connection.h"
Packit 284210
Packit 284210
#include "apr_optional.h"
Packit 284210
#include "mod_log_config.h"
Packit 284210
Packit 284210
#include "msc_logging.h"
Packit 284210
#include "msc_util.h"
Packit 284210
Packit 284210
#include "ap_mpm.h"
Packit 284210
#include "scoreboard.h"
Packit 284210
Packit 284210
#include "apr_version.h"
Packit 284210
Packit 284210
#include "apr_lib.h"
Packit 284210
#include "ap_config.h"
Packit 284210
#include "http_config.h"
Packit 284210
#include "apr_fnmatch.h"
Packit 284210
Packit 284210
AP_DECLARE(int) ap_cfg_closefile(ap_configfile_t *cfp)
Packit 284210
{
Packit 284210
#ifdef DEBUG
Packit 284210
    ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, NULL,
Packit 284210
        "Done with config file %s", cfp->name);
Packit 284210
#endif
Packit 284210
    return (cfp->close == NULL) ? 0 : cfp->close(cfp->param);
Packit 284210
}
Packit 284210
Packit 284210
#if AP_SERVER_MAJORVERSION_NUMBER > 1 && AP_SERVER_MINORVERSION_NUMBER < 3
Packit 284210
static apr_status_t cfg_close(void *param)
Packit 284210
{
Packit 284210
    apr_file_t *cfp = (apr_file_t *) param;
Packit 284210
    return (apr_file_close(cfp));
Packit 284210
}
Packit 284210
Packit 284210
static int cfg_getch(void *param)
Packit 284210
{
Packit 284210
    char ch;
Packit 284210
    apr_file_t *cfp = (apr_file_t *) param;
Packit 284210
    if (apr_file_getc(&ch, cfp) == APR_SUCCESS)
Packit 284210
        return ch;
Packit 284210
    return (int)EOF;
Packit 284210
}
Packit 284210
Packit 284210
static void *cfg_getstr(void *buf, size_t bufsiz, void *param)
Packit 284210
{
Packit 284210
    apr_file_t *cfp = (apr_file_t *) param;
Packit 284210
    apr_status_t rv;
Packit 284210
    rv = apr_file_gets(buf, bufsiz, cfp);
Packit 284210
    if (rv == APR_SUCCESS) {
Packit 284210
        return buf;
Packit 284210
    }
Packit 284210
    return NULL;
Packit 284210
}
Packit 284210
#else
Packit 284210
/* we can't use apr_file_* directly because of linking issues on Windows */
Packit 284210
static apr_status_t cfg_close(void *param)
Packit 284210
{
Packit 284210
    return apr_file_close(param);
Packit 284210
}
Packit 284210
Packit 284210
static apr_status_t cfg_getch(char *ch, void *param)
Packit 284210
{
Packit 284210
    return apr_file_getc(ch, param);
Packit 284210
}
Packit 284210
Packit 284210
static apr_status_t cfg_getstr(void *buf, apr_size_t bufsiz, void *param)
Packit 284210
{
Packit 284210
    return apr_file_gets(buf, bufsiz, param);
Packit 284210
}
Packit 284210
#endif
Packit 284210
Packit 284210
/* Read one line from open ap_configfile_t, strip LF, increase line number */
Packit 284210
/* If custom handler does not define a getstr() function, read char by char */
Packit 284210
Packit 284210
#if AP_SERVER_MAJORVERSION_NUMBER > 1 && AP_SERVER_MINORVERSION_NUMBER < 3
Packit 284210
AP_DECLARE(int) ap_cfg_getline(char *buf, size_t bufsize, ap_configfile_t *cfp)
Packit 284210
{
Packit 284210
    /* If a "get string" function is defined, use it */
Packit 284210
    if (cfp->getstr != NULL) {
Packit 284210
        char *src, *dst;
Packit 284210
        char *cp;
Packit 284210
        char *cbuf = buf;
Packit 284210
        size_t cbufsize = bufsize;
Packit 284210
Packit 284210
        while (1) {
Packit 284210
            ++cfp->line_number;
Packit 284210
            if (cfp->getstr(cbuf, cbufsize, cfp->param) == NULL)
Packit 284210
                return 1;
Packit 284210
Packit 284210
            /*
Packit 284210
             *  check for line continuation,
Packit 284210
             *  i.e. match [^\\]\\[\r]\n only
Packit 284210
             */
Packit 284210
            cp = cbuf;
Packit 284210
            while (cp < cbuf+cbufsize && *cp != '\0')
Packit 284210
                cp++;
Packit 284210
            if (cp > cbuf && cp[-1] == LF) {
Packit 284210
                cp--;
Packit 284210
                if (cp > cbuf && cp[-1] == CR)
Packit 284210
                    cp--;
Packit 284210
                if (cp > cbuf && cp[-1] == '\\') {
Packit 284210
                    cp--;
Packit 284210
                    if (!(cp > cbuf && cp[-1] == '\\')) {
Packit 284210
                        /*
Packit 284210
                         * line continuation requested -
Packit 284210
                         * then remove backslash and continue
Packit 284210
                         */
Packit 284210
                        cbufsize -= (cp-cbuf);
Packit 284210
                        cbuf = cp;
Packit 284210
                        continue;
Packit 284210
                    }
Packit 284210
                    else {
Packit 284210
                        /*
Packit 284210
                         * no real continuation because escaped -
Packit 284210
                         * then just remove escape character
Packit 284210
                         */
Packit 284210
                        for ( ; cp < cbuf+cbufsize && *cp != '\0'; cp++)
Packit 284210
                            cp[0] = cp[1];
Packit 284210
                    }
Packit 284210
                }
Packit 284210
            }
Packit 284210
            break;
Packit 284210
        }
Packit 284210
Packit 284210
        /*
Packit 284210
         * Leading and trailing white space is eliminated completely
Packit 284210
         */
Packit 284210
        src = buf;
Packit 284210
        while (apr_isspace(*src))
Packit 284210
            ++src;
Packit 284210
        /* blast trailing whitespace */
Packit 284210
        dst = &src[strlen(src)];
Packit 284210
        while (--dst >= src && apr_isspace(*dst))
Packit 284210
            *dst = '\0';
Packit 284210
        /* Zap leading whitespace by shifting */
Packit 284210
        if (src != buf)
Packit 284210
            for (dst = buf; (*dst++ = *src++) != '\0'; )
Packit 284210
                ;
Packit 284210
Packit 284210
#ifdef DEBUG_CFG_LINES
Packit 284210
        ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, NULL, "Read config: %s", buf);
Packit 284210
#endif
Packit 284210
        return 0;
Packit 284210
    } else {
Packit 284210
        /* No "get string" function defined; read character by character */
Packit 284210
        register int c;
Packit 284210
        register size_t i = 0;
Packit 284210
Packit 284210
        buf[0] = '\0';
Packit 284210
        /* skip leading whitespace */
Packit 284210
        do {
Packit 284210
            c = cfp->getch(cfp->param);
Packit 284210
        } while (c == '\t' || c == ' ');
Packit 284210
Packit 284210
        if (c == EOF)
Packit 284210
            return 1;
Packit 284210
Packit 284210
        if(bufsize < 2) {
Packit 284210
            /* too small, assume caller is crazy */
Packit 284210
            return 1;
Packit 284210
        }
Packit 284210
Packit 284210
        while (1) {
Packit 284210
            if ((c == '\t') || (c == ' ')) {
Packit 284210
                buf[i++] = ' ';
Packit 284210
                while ((c == '\t') || (c == ' '))
Packit 284210
                    c = cfp->getch(cfp->param);
Packit 284210
            }
Packit 284210
            if (c == CR) {
Packit 284210
                /* silently ignore CR (_assume_ that a LF follows) */
Packit 284210
                c = cfp->getch(cfp->param);
Packit 284210
            }
Packit 284210
            if (c == LF) {
Packit 284210
                /* increase line number and return on LF */
Packit 284210
                ++cfp->line_number;
Packit 284210
            }
Packit 284210
            if (c == EOF || c == 0x4 || c == LF || i >= (bufsize - 2)) {
Packit 284210
                /*
Packit 284210
                 *  check for line continuation
Packit 284210
                 */
Packit 284210
                if (i > 0 && buf[i-1] == '\\') {
Packit 284210
                    i--;
Packit 284210
                    if (!(i > 0 && buf[i-1] == '\\')) {
Packit 284210
                        /* line is continued */
Packit 284210
                        c = cfp->getch(cfp->param);
Packit 284210
                        continue;
Packit 284210
                    }
Packit 284210
                    /* else nothing needs be done because
Packit 284210
                     * then the backslash is escaped and
Packit 284210
                     * we just strip to a single one
Packit 284210
                     */
Packit 284210
                }
Packit 284210
                /* blast trailing whitespace */
Packit 284210
                while (i > 0 && apr_isspace(buf[i - 1]))
Packit 284210
                    --i;
Packit 284210
                buf[i] = '\0';
Packit 284210
#ifdef DEBUG_CFG_LINES
Packit 284210
                ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, NULL,
Packit 284210
                             "Read config: %s", buf);
Packit 284210
#endif
Packit 284210
                return 0;
Packit 284210
            }
Packit 284210
            buf[i] = c;
Packit 284210
            ++i;
Packit 284210
            c = cfp->getch(cfp->param);
Packit 284210
        }
Packit 284210
    }
Packit 284210
}
Packit 284210
#else
Packit 284210
static apr_status_t ap_cfg_getline_core(char *buf, apr_size_t bufsize,
Packit 284210
                                        ap_configfile_t *cfp)
Packit 284210
{
Packit 284210
    apr_status_t rc;
Packit 284210
    /* If a "get string" function is defined, use it */
Packit 284210
    if (cfp->getstr != NULL) {
Packit 284210
        char *cp;
Packit 284210
        char *cbuf = buf;
Packit 284210
        apr_size_t cbufsize = bufsize;
Packit 284210
Packit 284210
        while (1) {
Packit 284210
            ++cfp->line_number;
Packit 284210
            rc = cfp->getstr(cbuf, cbufsize, cfp->param);
Packit 284210
            if (rc == APR_EOF) {
Packit 284210
                if (cbuf != buf) {
Packit 284210
                    *cbuf = '\0';
Packit 284210
                    break;
Packit 284210
                }
Packit 284210
                else {
Packit 284210
                    return APR_EOF;
Packit 284210
                }
Packit 284210
            }
Packit 284210
            if (rc != APR_SUCCESS) {
Packit 284210
                return rc;
Packit 284210
            }
Packit 284210
Packit 284210
            /*
Packit 284210
             *  check for line continuation,
Packit 284210
             *  i.e. match [^\\]\\[\r]\n only
Packit 284210
             */
Packit 284210
            cp = cbuf;
Packit 284210
            cp += strlen(cp);
Packit 284210
            if (cp > cbuf && cp[-1] == LF) {
Packit 284210
                cp--;
Packit 284210
                if (cp > cbuf && cp[-1] == CR)
Packit 284210
                    cp--;
Packit 284210
                if (cp > cbuf && cp[-1] == '\\') {
Packit 284210
                    cp--;
Packit 284210
                    /*
Packit 284210
                     * line continuation requested -
Packit 284210
                     * then remove backslash and continue
Packit 284210
                     */
Packit 284210
                    cbufsize -= (cp-cbuf);
Packit 284210
                    cbuf = cp;
Packit 284210
                    continue;
Packit 284210
                }
Packit 284210
            }
Packit 284210
            else if (cp - buf >= bufsize - 1) {
Packit 284210
                return APR_ENOSPC;
Packit 284210
            }
Packit 284210
            break;
Packit 284210
        }
Packit 284210
    } else {
Packit 284210
        /* No "get string" function defined; read character by character */
Packit 284210
        apr_size_t i = 0;
Packit 284210
Packit 284210
        if (bufsize < 2) {
Packit 284210
            /* too small, assume caller is crazy */
Packit 284210
            return APR_EINVAL;
Packit 284210
        }
Packit 284210
        buf[0] = '\0';
Packit 284210
Packit 284210
        while (1) {
Packit 284210
            char c;
Packit 284210
            rc = cfp->getch(&c, cfp->param);
Packit 284210
            if (rc == APR_EOF) {
Packit 284210
                if (i > 0)
Packit 284210
                    break;
Packit 284210
                else
Packit 284210
                    return APR_EOF;
Packit 284210
            }
Packit 284210
            if (rc != APR_SUCCESS)
Packit 284210
                return rc;
Packit 284210
            if (c == LF) {
Packit 284210
                ++cfp->line_number;
Packit 284210
                /* check for line continuation */
Packit 284210
                if (i > 0 && buf[i-1] == '\\') {
Packit 284210
                    i--;
Packit 284210
                    continue;
Packit 284210
                }
Packit 284210
                else {
Packit 284210
                    break;
Packit 284210
                }
Packit 284210
            }
Packit 284210
            else if (i >= bufsize - 2) {
Packit 284210
                return APR_ENOSPC;
Packit 284210
            }
Packit 284210
            buf[i] = c;
Packit 284210
            ++i;
Packit 284210
        }
Packit 284210
        buf[i] = '\0';
Packit 284210
    }
Packit 284210
    return APR_SUCCESS;
Packit 284210
}
Packit 284210
Packit 284210
static int cfg_trim_line(char *buf)
Packit 284210
{
Packit 284210
    char *start, *end;
Packit 284210
    /*
Packit 284210
     * Leading and trailing white space is eliminated completely
Packit 284210
     */
Packit 284210
    start = buf;
Packit 284210
    while (apr_isspace(*start))
Packit 284210
        ++start;
Packit 284210
    /* blast trailing whitespace */
Packit 284210
    end = &start[strlen(start)];
Packit 284210
    while (--end >= start && apr_isspace(*end))
Packit 284210
        *end = '\0';
Packit 284210
    /* Zap leading whitespace by shifting */
Packit 284210
    if (start != buf)
Packit 284210
        memmove(buf, start, end - start + 2);
Packit 284210
#ifdef DEBUG_CFG_LINES
Packit 284210
    ap_log_error(APLOG_MARK, APLOG_NOTICE, 0, NULL, APLOGNO(00555) "Read config: '%s'", buf);
Packit 284210
#endif
Packit 284210
    return end - start + 1;
Packit 284210
}
Packit 284210
Packit 284210
AP_DECLARE(apr_status_t) ap_cfg_getline(char *buf, apr_size_t bufsize,
Packit 284210
		ap_configfile_t *cfp)
Packit 284210
{
Packit 284210
	apr_status_t rc = ap_cfg_getline_core(buf, bufsize, cfp);
Packit 284210
	if (rc == APR_SUCCESS)
Packit 284210
		cfg_trim_line(buf);
Packit 284210
	return rc;
Packit 284210
}
Packit 284210
#endif
Packit 284210
Packit 284210
static char *substring_conf(apr_pool_t *p, const char *start, int len,
Packit 284210
                            char quote)
Packit 284210
{
Packit 284210
    char *result = apr_palloc(p, len + 2);
Packit 284210
    char *resp = result;
Packit 284210
    int i;
Packit 284210
Packit 284210
    for (i = 0; i < len; ++i) {
Packit 284210
        if (start[i] == '\\' && (start[i + 1] == '\\'
Packit 284210
                                 || (quote && start[i + 1] == quote)))
Packit 284210
            *resp++ = start[++i];
Packit 284210
        else
Packit 284210
            *resp++ = start[i];
Packit 284210
    }
Packit 284210
Packit 284210
    *resp++ = '\0';
Packit 284210
#if RESOLVE_ENV_PER_TOKEN
Packit 284210
    return (char *)ap_resolve_env(p,result);
Packit 284210
#else
Packit 284210
    return result;
Packit 284210
#endif
Packit 284210
}
Packit 284210
Packit 284210
AP_DECLARE(char *) ap_getword_conf(apr_pool_t *p, const char **line)
Packit 284210
{
Packit 284210
    const char *str = *line, *strend;
Packit 284210
    char *res;
Packit 284210
    char quote;
Packit 284210
Packit 284210
    while (*str && apr_isspace(*str))
Packit 284210
        ++str;
Packit 284210
Packit 284210
    if (!*str) {
Packit 284210
        *line = str;
Packit 284210
        return "";
Packit 284210
    }
Packit 284210
Packit 284210
    if ((quote = *str) == '"' || quote == '\'') {
Packit 284210
        strend = str + 1;
Packit 284210
        while (*strend && *strend != quote) {
Packit 284210
            if (*strend == '\\' && strend[1] &&
Packit 284210
                (strend[1] == quote || strend[1] == '\\')) {
Packit 284210
                strend += 2;
Packit 284210
            }
Packit 284210
            else {
Packit 284210
                ++strend;
Packit 284210
            }
Packit 284210
        }
Packit 284210
        res = substring_conf(p, str + 1, strend - str - 1, quote);
Packit 284210
Packit 284210
        if (*strend == quote)
Packit 284210
            ++strend;
Packit 284210
    }
Packit 284210
    else {
Packit 284210
        strend = str;
Packit 284210
        while (*strend && !apr_isspace(*strend))
Packit 284210
            ++strend;
Packit 284210
Packit 284210
        res = substring_conf(p, str, strend - str, 0);
Packit 284210
    }
Packit 284210
Packit 284210
    while (*strend && apr_isspace(*strend))
Packit 284210
        ++strend;
Packit 284210
    *line = strend;
Packit 284210
    return res;
Packit 284210
}
Packit 284210
Packit 284210
/* Open a ap_configfile_t as FILE, return open ap_configfile_t struct pointer */
Packit 284210
AP_DECLARE(apr_status_t) ap_pcfg_openfile(ap_configfile_t **ret_cfg,
Packit 284210
                                          apr_pool_t *p, const char *name)
Packit 284210
{
Packit 284210
    ap_configfile_t *new_cfg;
Packit 284210
    apr_file_t *file = NULL;
Packit 284210
    apr_finfo_t finfo;
Packit 284210
    apr_status_t status;
Packit 284210
    int exist_type;
Packit 284210
#ifdef DEBUG
Packit 284210
    char buf[120];
Packit 284210
#endif
Packit 284210
Packit 284210
    if (name == NULL) {
Packit 284210
        ap_log_error(APLOG_MARK, APLOG_ERR, 0, NULL,
Packit 284210
               "Internal error: pcfg_openfile() called with NULL filename");
Packit 284210
        return APR_EBADF;
Packit 284210
    }
Packit 284210
Packit 284210
    status = apr_file_open(&file, name, APR_READ | APR_BUFFERED,
Packit 284210
                           APR_OS_DEFAULT, p);
Packit 284210
#ifdef DEBUG
Packit 284210
    ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, NULL,
Packit 284210
                "Opening config file %s (%s)",
Packit 284210
                name, (status != APR_SUCCESS) ?
Packit 284210
                apr_strerror(status, buf, sizeof(buf)) : "successful");
Packit 284210
#endif
Packit 284210
    if (status != APR_SUCCESS)
Packit 284210
        return status;
Packit 284210
Packit 284210
    status = apr_file_info_get(&finfo, APR_FINFO_TYPE, file);
Packit 284210
    if (status != APR_SUCCESS)
Packit 284210
        return status;
Packit 284210
Packit 284210
    exist_type = (finfo.filetype != APR_REG);
Packit 284210
#if defined(WIN32) || defined(OS2) || defined(NETWARE)
Packit 284210
    exist_type = (exist_type && strcasecmp(apr_filepath_name_get(name), "nul") != 0);
Packit 284210
#else
Packit 284210
    exist_type = (exist_type && strcmp(name, "/dev/null") != 0);
Packit 284210
#endif /* WIN32 || OS2 */
Packit 284210
    if (exist_type){ ap_log_error(APLOG_MARK, APLOG_ERR, 0, NULL,
Packit 284210
                     "Access to file %s denied by server: not a regular file",
Packit 284210
                     name);
Packit 284210
        apr_file_close(file);
Packit 284210
        return APR_EBADF;
Packit 284210
    }
Packit 284210
Packit 284210
#ifdef WIN32
Packit 284210
    /* Some twisted character [no pun intended] at MS decided that a
Packit 284210
     * zero width joiner as the lead wide character would be ideal for
Packit 284210
     * describing Unicode text files.  This was further convoluted to
Packit 284210
     * another MSism that the same character mapped into utf-8, EF BB BF
Packit 284210
     * would signify utf-8 text files.
Packit 284210
     *
Packit 284210
     * Since MS configuration files are all protecting utf-8 encoded
Packit 284210
     * Unicode path, file and resource names, we already have the correct
Packit 284210
     * WinNT encoding.  But at least eat the stupid three bytes up front.
Packit 284210
     */
Packit 284210
    {
Packit 284210
        unsigned char buf[4];
Packit 284210
        apr_size_t len = 3;
Packit 284210
        status = apr_file_read(file, buf, &len;;
Packit 284210
        if ((status != APR_SUCCESS) || (len < 3)
Packit 284210
              || memcmp(buf, "\xEF\xBB\xBF", 3) != 0) {
Packit 284210
            apr_off_t zero = 0;
Packit 284210
            apr_file_seek(file, APR_SET, &zero);
Packit 284210
        }
Packit 284210
    }
Packit 284210
#endif
Packit 284210
Packit 284210
    new_cfg = apr_palloc(p, sizeof(*new_cfg));
Packit 284210
    new_cfg->param = file;
Packit 284210
    new_cfg->name = apr_pstrdup(p, name);
Packit 284210
#if AP_SERVER_MAJORVERSION_NUMBER > 1 && AP_SERVER_MINORVERSION_NUMBER < 3
Packit 284210
    new_cfg->getch = (int (*)(void *)) cfg_getch;
Packit 284210
    new_cfg->getstr = (void *(*)(void *, size_t, void *)) cfg_getstr;
Packit 284210
    new_cfg->close = (int (*)(void *)) cfg_close;
Packit 284210
#else
Packit 284210
    new_cfg->getch = cfg_getch;
Packit 284210
    new_cfg->getstr = cfg_getstr;
Packit 284210
    new_cfg->close = cfg_close;
Packit 284210
#endif
Packit 284210
    new_cfg->line_number = 0;
Packit 284210
    *ret_cfg = new_cfg;
Packit 284210
    return APR_SUCCESS;
Packit 284210
}
Packit 284210
Packit 284210
AP_CORE_DECLARE(const command_rec *) ap_find_command(const char *name,
Packit 284210
                                                     const command_rec *cmds)
Packit 284210
{
Packit 284210
    while (cmds->name) {
Packit 284210
        if (!strcasecmp(name, cmds->name))
Packit 284210
            return cmds;
Packit 284210
Packit 284210
        ++cmds;
Packit 284210
    }
Packit 284210
Packit 284210
    return NULL;
Packit 284210
}
Packit 284210
Packit 284210
#define AP_MAX_ARGC 64
Packit 284210
Packit 284210
static const char *invoke_cmd(const command_rec *cmd, cmd_parms *parms,
Packit 284210
                              void *mconfig, const char *args)
Packit 284210
{
Packit 284210
    char *w, *w2, *w3;
Packit 284210
    const char *errmsg = NULL;
Packit 284210
Packit 284210
    if ((parms->override & cmd->req_override) == 0)
Packit 284210
        return apr_pstrcat(parms->pool, cmd->name, " not allowed here", NULL);
Packit 284210
Packit 284210
    parms->info = cmd->cmd_data;
Packit 284210
    parms->cmd = cmd;
Packit 284210
Packit 284210
    switch (cmd->args_how) {
Packit 284210
    case RAW_ARGS:
Packit 284210
#ifdef RESOLVE_ENV_PER_TOKEN
Packit 284210
        args = ap_resolve_env(parms->pool,args);
Packit 284210
#endif
Packit 284210
        return cmd->AP_RAW_ARGS(parms, mconfig, args);
Packit 284210
Packit 284210
    case TAKE_ARGV:
Packit 284210
        {
Packit 284210
            char *argv[AP_MAX_ARGC];
Packit 284210
            int argc = 0;
Packit 284210
Packit 284210
            do {
Packit 284210
                w = ap_getword_conf(parms->pool, &args);
Packit 284210
                if (*w == '\0' && *args == '\0') {
Packit 284210
                    break;
Packit 284210
                }
Packit 284210
                argv[argc] = w;
Packit 284210
                argc++;
Packit 284210
            } while (argc < AP_MAX_ARGC && *args != '\0');
Packit 284210
Packit 284210
            return cmd->AP_TAKE_ARGV(parms, mconfig, argc, argv);
Packit 284210
        }
Packit 284210
Packit 284210
    case NO_ARGS:
Packit 284210
        if (*args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " takes no arguments",
Packit 284210
                               NULL);
Packit 284210
Packit 284210
        return cmd->AP_NO_ARGS(parms, mconfig);
Packit 284210
Packit 284210
    case TAKE1:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " takes one argument",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE1(parms, mconfig, w);
Packit 284210
Packit 284210
    case TAKE2:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || *w2 == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " takes two arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE2(parms, mconfig, w, w2);
Packit 284210
Packit 284210
    case TAKE12:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " takes 1-2 arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE2(parms, mconfig, w, *w2 ? w2 : NULL);
Packit 284210
Packit 284210
    case TAKE3:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = ap_getword_conf(parms->pool, &args);
Packit 284210
        w3 = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || *w2 == '\0' || *w3 == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " takes three arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE3(parms, mconfig, w, w2, w3);
Packit 284210
Packit 284210
    case TAKE23:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = ap_getword_conf(parms->pool, &args);
Packit 284210
        w3 = *args ? ap_getword_conf(parms->pool, &args) : NULL;
Packit 284210
Packit 284210
        if (*w == '\0' || *w2 == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name,
Packit 284210
                               " takes two or three arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE3(parms, mconfig, w, w2, w3);
Packit 284210
Packit 284210
    case TAKE123:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = *args ? ap_getword_conf(parms->pool, &args) : NULL;
Packit 284210
        w3 = *args ? ap_getword_conf(parms->pool, &args) : NULL;
Packit 284210
Packit 284210
        if (*w == '\0' || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name,
Packit 284210
                               " takes one, two or three arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE3(parms, mconfig, w, w2, w3);
Packit 284210
Packit 284210
    case TAKE13:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
        w2 = *args ? ap_getword_conf(parms->pool, &args) : NULL;
Packit 284210
        w3 = *args ? ap_getword_conf(parms->pool, &args) : NULL;
Packit 284210
Packit 284210
        if (*w == '\0' || (w2 && *w2 && !w3) || *args != 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name,
Packit 284210
                               " takes one or three arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        return cmd->AP_TAKE3(parms, mconfig, w, w2, w3);
Packit 284210
Packit 284210
    case ITERATE:
Packit 284210
        while (*(w = ap_getword_conf(parms->pool, &args)) != '\0') {
Packit 284210
Packit 284210
            errmsg = cmd->AP_TAKE1(parms, mconfig, w);
Packit 284210
Packit 284210
            if (errmsg && strcmp(errmsg, DECLINE_CMD) != 0)
Packit 284210
                return errmsg;
Packit 284210
        }
Packit 284210
Packit 284210
        return errmsg;
Packit 284210
Packit 284210
    case ITERATE2:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || *args == 0)
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name,
Packit 284210
                               " requires at least two arguments",
Packit 284210
                               cmd->errmsg ? ", " : NULL, cmd->errmsg, NULL);
Packit 284210
Packit 284210
        while (*(w2 = ap_getword_conf(parms->pool, &args)) != '\0') {
Packit 284210
Packit 284210
            errmsg = cmd->AP_TAKE2(parms, mconfig, w, w2);
Packit 284210
Packit 284210
            if (errmsg && strcmp(errmsg, DECLINE_CMD) != 0)
Packit 284210
                return errmsg;
Packit 284210
        }
Packit 284210
Packit 284210
        return errmsg;
Packit 284210
Packit 284210
    case FLAG:
Packit 284210
        w = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
        if (*w == '\0' || (strcasecmp(w, "on") && strcasecmp(w, "off")))
Packit 284210
            return apr_pstrcat(parms->pool, cmd->name, " must be On or Off",
Packit 284210
                               NULL);
Packit 284210
Packit 284210
        return cmd->AP_FLAG(parms, mconfig, strcasecmp(w, "off") != 0);
Packit 284210
Packit 284210
    default:
Packit 284210
        return apr_pstrcat(parms->pool, cmd->name,
Packit 284210
                           " is improperly configured internally (server bug)",
Packit 284210
                           NULL);
Packit 284210
    }
Packit 284210
}
Packit 284210
Packit 284210
#if AP_SERVER_MAJORVERSION_NUMBER > 1 && AP_SERVER_MINORVERSION_NUMBER < 3
Packit 284210
static cmd_parms default_parms =
Packit 284210
{NULL, 0, -1, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL};
Packit 284210
#endif
Packit 284210
Packit 284210
#if AP_SERVER_MAJORVERSION_NUMBER > 1 && AP_SERVER_MINORVERSION_NUMBER > 3
Packit 284210
static cmd_parms default_parms =
Packit 284210
{NULL, 0, 0, NULL, -1, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL};
Packit 284210
#endif
Packit 284210
Packit 284210
typedef struct {
Packit 284210
    const char *fname;
Packit 284210
} fnames;
Packit 284210
Packit 284210
AP_DECLARE(int) ap_is_directory(apr_pool_t *p, const char *path)
Packit 284210
{
Packit 284210
    apr_finfo_t finfo;
Packit 284210
Packit 284210
    if (apr_stat(&finfo, path, APR_FINFO_TYPE, p) != APR_SUCCESS)
Packit 284210
        return 0;                /* in error condition, just return no */
Packit 284210
Packit 284210
    return (finfo.filetype == APR_DIR);
Packit 284210
}
Packit 284210
Packit 284210
AP_DECLARE(char *) ap_make_full_path(apr_pool_t *a, const char *src1,
Packit 284210
                                  const char *src2)
Packit 284210
{
Packit 284210
    apr_size_t len1, len2;
Packit 284210
    char *path;
Packit 284210
Packit 284210
    len1 = strlen(src1);
Packit 284210
    len2 = strlen(src2);
Packit 284210
     /* allocate +3 for '/' delimiter, trailing NULL and overallocate
Packit 284210
      * one extra byte to allow the caller to add a trailing '/'
Packit 284210
      */
Packit 284210
    path = (char *)apr_palloc(a, len1 + len2 + 3);
Packit 284210
    if (len1 == 0) {
Packit 284210
        *path = '/';
Packit 284210
        memcpy(path + 1, src2, len2 + 1);
Packit 284210
    }
Packit 284210
    else {
Packit 284210
        char *next;
Packit 284210
        memcpy(path, src1, len1);
Packit 284210
        next = path + len1;
Packit 284210
        if (next[-1] != '/') {
Packit 284210
            *next++ = '/';
Packit 284210
        }
Packit 284210
        memcpy(next, src2, len2 + 1);
Packit 284210
    }
Packit 284210
    return path;
Packit 284210
}
Packit 284210
Packit 284210
static int fname_alphasort(const void *fn1, const void *fn2)
Packit 284210
{
Packit 284210
    const fnames *f1 = fn1;
Packit 284210
    const fnames *f2 = fn2;
Packit 284210
Packit 284210
    return strcmp(f1->fname,f2->fname);
Packit 284210
}
Packit 284210
Packit 284210
int fnmatch_test(const char *pattern)
Packit 284210
{
Packit 284210
    int nesting;
Packit 284210
Packit 284210
    nesting = 0;
Packit 284210
    while (*pattern) {
Packit 284210
        switch (*pattern) {
Packit 284210
        case '?':
Packit 284210
        case '*':
Packit 284210
            return 1;
Packit 284210
Packit 284210
/*        case '\\':
Packit 284210
            if (*++pattern == '\0') {
Packit 284210
                return 0;
Packit 284210
            }
Packit 284210
            break;*/		// this breaks on Windows
Packit 284210
Packit 284210
        case '[':         /* '[' is only a glob if it has a matching ']' */
Packit 284210
            ++nesting;
Packit 284210
            break;
Packit 284210
Packit 284210
        case ']':
Packit 284210
            if (nesting) {
Packit 284210
                return 1;
Packit 284210
            }
Packit 284210
            break;
Packit 284210
        }
Packit 284210
        ++pattern;    }
Packit 284210
    return 0;
Packit 284210
}
Packit 284210
Packit 284210
AP_DECLARE(const char *) process_resource_config(const char *fname,
Packit 284210
                                                    apr_array_header_t *ari,
Packit 284210
                                                    apr_pool_t *ptemp)
Packit 284210
{
Packit 284210
	*(char **)apr_array_push(ari) = (char *)fname;
Packit 284210
Packit 284210
    return NULL;
Packit 284210
}
Packit 284210
Packit 284210
static const char *process_resource_config_nofnmatch(const char *fname,
Packit 284210
                                                     apr_array_header_t *ari,
Packit 284210
                                                     apr_pool_t *p,
Packit 284210
                                                     apr_pool_t *ptemp,
Packit 284210
													 unsigned depth,
Packit 284210
                                                     int optional)
Packit 284210
{
Packit 284210
    const char *error;
Packit 284210
    apr_status_t rv;
Packit 284210
Packit 284210
    if (ap_is_directory(ptemp, fname)) {
Packit 284210
        apr_dir_t *dirp;
Packit 284210
        apr_finfo_t dirent;
Packit 284210
        int current;
Packit 284210
        apr_array_header_t *candidates = NULL;
Packit 284210
        fnames *fnew;
Packit 284210
        char *path = apr_pstrdup(ptemp, fname);
Packit 284210
Packit 284210
        if (++depth > 100) {
Packit 284210
            return apr_psprintf(p, "Directory %s exceeds the maximum include "
Packit 284210
                                "directory nesting level of %u. You have "
Packit 284210
                                "probably a recursion somewhere.", path,
Packit 284210
                                100);
Packit 284210
        }
Packit 284210
Packit 284210
        /*
Packit 284210
         * first course of business is to grok all the directory
Packit 284210
         * entries here and store 'em away. Recall we need full pathnames
Packit 284210
         * for this.
Packit 284210
         */
Packit 284210
        rv = apr_dir_open(&dirp, path, ptemp);
Packit 284210
        if (rv != APR_SUCCESS) {
Packit 284210
            char errmsg[120];
Packit 284210
            return apr_psprintf(p, "Could not open config directory %s: %s",
Packit 284210
                                path, apr_strerror(rv, errmsg, sizeof errmsg));
Packit 284210
        }
Packit 284210
Packit 284210
        candidates = apr_array_make(ptemp, 1, sizeof(fnames));
Packit 284210
        while (apr_dir_read(&dirent, APR_FINFO_DIRENT, dirp) == APR_SUCCESS) {
Packit 284210
            /* strip out '.' and '..' */
Packit 284210
            if (strcmp(dirent.name, ".")
Packit 284210
                && strcmp(dirent.name, "..")) {
Packit 284210
                fnew = (fnames *) apr_array_push(candidates);
Packit 284210
                fnew->fname = ap_make_full_path(ptemp, path, dirent.name);
Packit 284210
            }
Packit 284210
        }
Packit 284210
Packit 284210
        apr_dir_close(dirp);
Packit 284210
        if (candidates->nelts != 0) {
Packit 284210
            qsort((void *) candidates->elts, candidates->nelts,
Packit 284210
                  sizeof(fnames), fname_alphasort);
Packit 284210
Packit 284210
            /*
Packit 284210
             * Now recurse these... we handle errors and subdirectories
Packit 284210
             * via the recursion, which is nice
Packit 284210
             */
Packit 284210
            for (current = 0; current < candidates->nelts; ++current) {
Packit 284210
                fnew = &((fnames *) candidates->elts)[current];
Packit 284210
                error = process_resource_config_nofnmatch(fnew->fname,
Packit 284210
                                                          ari, p, ptemp,
Packit 284210
                                                          depth, optional);
Packit 284210
                if (error) {
Packit 284210
                    return error;
Packit 284210
                }
Packit 284210
            }
Packit 284210
        }
Packit 284210
Packit 284210
        return NULL;
Packit 284210
    }
Packit 284210
Packit 284210
    return process_resource_config(fname, ari, ptemp);
Packit 284210
}
Packit 284210
Packit 284210
static const char *process_resource_config_fnmatch(const char *path,
Packit 284210
                                                   const char *fname,
Packit 284210
                                                   apr_array_header_t *ari,
Packit 284210
                                                   apr_pool_t *p,
Packit 284210
                                                   apr_pool_t *ptemp,
Packit 284210
                                                   unsigned depth,
Packit 284210
                                                   int optional)
Packit 284210
{
Packit 284210
    const char *rest;
Packit 284210
    apr_status_t rv;
Packit 284210
    apr_dir_t *dirp;
Packit 284210
    apr_finfo_t dirent;
Packit 284210
    apr_array_header_t *candidates = NULL;
Packit 284210
    fnames *fnew;
Packit 284210
    int current;
Packit 284210
Packit 284210
    /* find the first part of the filename */
Packit 284210
    rest = ap_strchr_c(fname, '/');
Packit 284210
Packit 284210
	if(rest == NULL)
Packit 284210
		rest = ap_strchr_c(fname, '\\');
Packit 284210
Packit 284210
	if (rest) {
Packit 284210
        fname = apr_pstrndup(ptemp, fname, rest - fname);
Packit 284210
        rest++;
Packit 284210
    }
Packit 284210
Packit 284210
    /* optimisation - if the filename isn't a wildcard, process it directly */
Packit 284210
    if (!fnmatch_test(fname)) {
Packit 284210
        path = ap_make_full_path(ptemp, path, fname);
Packit 284210
        if (!rest) {
Packit 284210
            return process_resource_config_nofnmatch(path,
Packit 284210
                                                     ari, p,
Packit 284210
                                                     ptemp, 0, optional);
Packit 284210
        }
Packit 284210
        else {
Packit 284210
            return process_resource_config_fnmatch(path, rest,
Packit 284210
                                                   ari, p,
Packit 284210
                                                   ptemp, 0, optional);
Packit 284210
        }
Packit 284210
    }
Packit 284210
Packit 284210
    /*
Packit 284210
     * first course of business is to grok all the directory
Packit 284210
     * entries here and store 'em away. Recall we need full pathnames
Packit 284210
     * for this.
Packit 284210
     */
Packit 284210
    rv = apr_dir_open(&dirp, path, ptemp);
Packit 284210
    if (rv != APR_SUCCESS) {
Packit 284210
        char errmsg[120];
Packit 284210
        return apr_psprintf(p, "Could not open config directory %s: %s",
Packit 284210
                            path, apr_strerror(rv, errmsg, sizeof errmsg));
Packit 284210
    }
Packit 284210
Packit 284210
    candidates = apr_array_make(ptemp, 1, sizeof(fnames));
Packit 284210
    while (apr_dir_read(&dirent, APR_FINFO_DIRENT | APR_FINFO_TYPE, dirp) == APR_SUCCESS) {
Packit 284210
        /* strip out '.' and '..' */
Packit 284210
        if (strcmp(dirent.name, ".")
Packit 284210
            && strcmp(dirent.name, "..")
Packit 284210
            && (apr_fnmatch(fname, dirent.name,
Packit 284210
                            APR_FNM_PERIOD | APR_FNM_NOESCAPE | APR_FNM_PATHNAME) == APR_SUCCESS)) {
Packit 284210
            const char *full_path = ap_make_full_path(ptemp, path, dirent.name);
Packit 284210
            /* If matching internal to path, and we happen to match something
Packit 284210
             * other than a directory, skip it
Packit 284210
             */
Packit 284210
            if (rest && (rv == APR_SUCCESS) && (dirent.filetype != APR_DIR)) {
Packit 284210
                continue;
Packit 284210
            }
Packit 284210
            fnew = (fnames *) apr_array_push(candidates);
Packit 284210
            fnew->fname = full_path;
Packit 284210
        }
Packit 284210
    }
Packit 284210
Packit 284210
    apr_dir_close(dirp);
Packit 284210
    if (candidates->nelts != 0) {
Packit 284210
        const char *error;
Packit 284210
Packit 284210
        qsort((void *) candidates->elts, candidates->nelts,
Packit 284210
              sizeof(fnames), fname_alphasort);
Packit 284210
Packit 284210
        /*
Packit 284210
         * Now recurse these... we handle errors and subdirectories
Packit 284210
         * via the recursion, which is nice
Packit 284210
         */
Packit 284210
        for (current = 0; current < candidates->nelts; ++current) {
Packit 284210
            fnew = &((fnames *) candidates->elts)[current];
Packit 284210
            if (!rest) {
Packit 284210
                error = process_resource_config_nofnmatch(fnew->fname,
Packit 284210
                                                          ari, p,
Packit 284210
                                                          ptemp, 0, optional);
Packit 284210
            }
Packit 284210
            else {
Packit 284210
                error = process_resource_config_fnmatch(fnew->fname, rest,
Packit 284210
                                                        ari, p,
Packit 284210
                                                        ptemp, 0, optional);
Packit 284210
            }
Packit 284210
            if (error) {
Packit 284210
                return error;
Packit 284210
            }
Packit 284210
        }
Packit 284210
    }
Packit 284210
    else {
Packit 284210
Packit 284210
        if (!optional) {
Packit 284210
            return apr_psprintf(p, "No matches for the wildcard '%s' in '%s', failing "
Packit 284210
                                   "(use IncludeOptional if required)", fname, path);
Packit 284210
        }
Packit 284210
    }
Packit 284210
Packit 284210
    return NULL;
Packit 284210
}
Packit 284210
Packit 284210
AP_DECLARE(const char *) process_fnmatch_configs(apr_array_header_t *ari,
Packit 284210
                                                    const char *fname,
Packit 284210
                                                    apr_pool_t *p,
Packit 284210
                                                    apr_pool_t *ptemp,
Packit 284210
                                                    int optional)
Packit 284210
{
Packit 284210
    if (!fnmatch_test(fname)) {
Packit 284210
        return process_resource_config(fname, ari, p);
Packit 284210
    }
Packit 284210
    else {
Packit 284210
        apr_status_t status;
Packit 284210
        const char *rootpath, *filepath = fname;
Packit 284210
Packit 284210
        /* locate the start of the directories proper */
Packit 284210
        status = apr_filepath_root(&rootpath, &filepath, APR_FILEPATH_TRUENAME | APR_FILEPATH_NATIVE, ptemp);
Packit 284210
Packit 284210
        /* we allow APR_SUCCESS and APR_EINCOMPLETE */
Packit 284210
        if (APR_ERELATIVE == status) {
Packit 284210
            return apr_pstrcat(p, "Include must have an absolute path, ", fname, NULL);
Packit 284210
        }
Packit 284210
        else if (APR_EBADPATH == status) {
Packit 284210
            return apr_pstrcat(p, "Include has a bad path, ", fname, NULL);
Packit 284210
        }
Packit 284210
Packit 284210
        /* walk the filepath */
Packit 284210
        return process_resource_config_fnmatch(rootpath, filepath, ari, p, ptemp,
Packit 284210
                                               0, optional);
Packit 284210
    }
Packit 284210
}
Packit 284210
Packit 284210
const char *populate_include_files(apr_pool_t *p, apr_pool_t *ptemp, apr_array_header_t *ari, const char *fname, int optional)
Packit 284210
{
Packit 284210
	return process_fnmatch_configs(ari, fname, p, ptemp, optional);
Packit 284210
}
Packit 284210
Packit 284210
const char *process_command_config(server_rec *s,
Packit 284210
                                          void *mconfig,
Packit 284210
                                          apr_pool_t *p,
Packit 284210
                                          apr_pool_t *ptemp,
Packit 284210
										  const char *filename)
Packit 284210
{
Packit 284210
    const char *errmsg;
Packit 284210
    char *l = apr_palloc (ptemp, MAX_STRING_LEN);
Packit 284210
    const char *args = l;
Packit 284210
    char *cmd_name, *w;
Packit 284210
	const command_rec *cmd;
Packit 284210
	apr_array_header_t *arr = apr_array_make(p, 1, sizeof(cmd_parms));
Packit 284210
	apr_array_header_t *ari = apr_array_make(p, 1, sizeof(char *));
Packit 284210
    cmd_parms *parms;
Packit 284210
	apr_status_t status;
Packit 284210
	ap_directive_t *newdir;
Packit 284210
	int optional;
Packit 284210
	char *err = NULL;
Packit 284210
	char *rootpath, *incpath;
Packit 284210
	int li;
Packit 284210
Packit 284210
	errmsg = populate_include_files(p, ptemp, ari, filename, 0);
Packit 284210
Packit 284210
	if(errmsg != NULL)
Packit 284210
		goto Exit;
Packit 284210
Packit 284210
	while(ari->nelts != 0 || arr->nelts != 0)
Packit 284210
	{
Packit 284210
		if(ari->nelts > 0)
Packit 284210
		{
Packit 284210
			char *fn = *(char **)apr_array_pop(ari);
Packit 284210
Packit 284210
			parms = (cmd_parms *)apr_array_push(arr);
Packit 284210
			*parms = default_parms;
Packit 284210
			parms->pool = p;
Packit 284210
			parms->temp_pool = ptemp;
Packit 284210
			parms->server = s;
Packit 284210
			parms->override = (RSRC_CONF | OR_ALL) & ~(OR_AUTHCFG | OR_LIMIT);
Packit 284210
			parms->override_opts = OPT_ALL | OPT_SYM_OWNER | OPT_MULTI;
Packit 284210
Packit 284210
			status = ap_pcfg_openfile(&parms->config_file, p, fn);
Packit 284210
Packit 284210
			if(status != APR_SUCCESS)
Packit 284210
			{
Packit 284210
				apr_array_pop(arr);
Packit 284210
				errmsg = apr_pstrcat(p, "Cannot open config file: ", fn, NULL);
Packit 284210
				goto Exit;
Packit 284210
			}
Packit 284210
		}
Packit 284210
Packit 284210
		if (arr->nelts > 1024) {
Packit 284210
            errmsg = "Exceeded the maximum include directory nesting level. You have "
Packit 284210
                                "probably a recursion somewhere.";
Packit 284210
			goto Exit;
Packit 284210
        }
Packit 284210
Packit 284210
		parms = (cmd_parms *)apr_array_pop(arr);
Packit 284210
Packit 284210
		if(parms == NULL)
Packit 284210
			break;
Packit 284210
Packit 284210
		while (!(ap_cfg_getline(l, MAX_STRING_LEN, parms->config_file))) {
Packit 284210
			if (*l == '#' || *l == '\0')
Packit 284210
				continue;
Packit 284210
Packit 284210
			args = l;
Packit 284210
Packit 284210
			cmd_name = ap_getword_conf(p, &args);
Packit 284210
Packit 284210
			if (*cmd_name == '\0')
Packit 284210
				continue;
Packit 284210
Packit 284210
			if (!strcasecmp(cmd_name, "IncludeOptional"))
Packit 284210
			{
Packit 284210
				optional = 1;
Packit 284210
				goto ProcessInclude;
Packit 284210
			}
Packit 284210
Packit 284210
			if (!strcasecmp(cmd_name, "Include"))
Packit 284210
			{
Packit 284210
				optional = 0;
Packit 284210
ProcessInclude:
Packit 284210
				w = ap_getword_conf(parms->pool, &args);
Packit 284210
Packit 284210
				if (*w == '\0' || *args != 0)
Packit 284210
				{
Packit 284210
					ap_cfg_closefile(parms->config_file);
Packit 284210
					errmsg = apr_pstrcat(parms->pool, "Include takes one argument", NULL);
Packit 284210
					goto Exit;
Packit 284210
				}
Packit 284210
Packit 284210
				incpath = w;
Packit 284210
Packit 284210
				/* locate the start of the directories proper */
Packit 284210
				status = apr_filepath_root(&rootpath, &incpath, APR_FILEPATH_TRUENAME | APR_FILEPATH_NATIVE, ptemp);
Packit 284210
Packit 284210
				/* we allow APR_SUCCESS and APR_EINCOMPLETE */
Packit 284210
				if (APR_ERELATIVE == status) {
Packit 284210
					rootpath = apr_pstrdup(ptemp, parms->config_file->name);
Packit 284210
					li = strlen(rootpath) - 1;
Packit 284210
Packit 284210
					while(li >= 0 && rootpath[li] != '/' && rootpath[li] != '\\')
Packit 284210
						rootpath[li--] = 0;
Packit 284210
Packit 284210
					w = apr_pstrcat(p, rootpath, w, NULL);
Packit 284210
				}
Packit 284210
				else if (APR_EBADPATH == status) {
Packit 284210
					ap_cfg_closefile(parms->config_file);
Packit 284210
					errmsg = apr_pstrcat(p, "Include file has a bad path, ", w, NULL);
Packit 284210
					goto Exit;
Packit 284210
				}
Packit 284210
Packit 284210
				errmsg = populate_include_files(p, ptemp, ari, w, optional);
Packit 284210
Packit 284210
				*(cmd_parms *)apr_array_push(arr) = *parms;
Packit 284210
Packit 284210
				if(errmsg != NULL)
Packit 284210
					goto Exit;
Packit 284210
Packit 284210
				// we don't want to close the current file yet
Packit 284210
				//
Packit 284210
				parms = NULL;
Packit 284210
				break;
Packit 284210
			}
Packit 284210
Packit 284210
			cmd = ap_find_command(cmd_name, security2_module.cmds);
Packit 284210
Packit 284210
			if(cmd == NULL)
Packit 284210
			{
Packit 284210
				// unknown command, should error
Packit 284210
				//
Packit 284210
				ap_cfg_closefile(parms->config_file);
Packit 284210
				errmsg = apr_pstrcat(p, "Unknown command in config: ", cmd_name, NULL);
Packit 284210
				goto Exit;
Packit 284210
			}
Packit 284210
Packit 284210
			newdir = apr_pcalloc(p, sizeof(ap_directive_t));
Packit 284210
			newdir->filename = parms->config_file->name;
Packit 284210
			newdir->line_num = parms->config_file->line_number;
Packit 284210
			newdir->directive = cmd_name;
Packit 284210
			newdir->args = apr_pstrdup(p, args);
Packit 284210
Packit 284210
			parms->directive = newdir;
Packit 284210
Packit 284210
#ifdef WIN32
Packit 284210
			// some config commands fail in APR when there are file
Packit 284210
			// permission issues or other OS-specific problems
Packit 284210
			//
Packit 284210
			__try
Packit 284210
			{
Packit 284210
#endif
Packit 284210
				errmsg = invoke_cmd(cmd, parms, mconfig, args);
Packit 284210
#ifdef WIN32
Packit 284210
			}
Packit 284210
			__except(EXCEPTION_EXECUTE_HANDLER)
Packit 284210
			{
Packit 284210
				errmsg = "Command failed to execute (check file/folder permissions, syntax, etc.).";
Packit 284210
			}
Packit 284210
#endif
Packit 284210
Packit 284210
			if(errmsg != NULL)
Packit 284210
				break;
Packit 284210
		}
Packit 284210
Packit 284210
		if(parms != NULL)
Packit 284210
			ap_cfg_closefile(parms->config_file);
Packit 284210
Packit 284210
		if(errmsg != NULL)
Packit 284210
			break;
Packit 284210
	}
Packit 284210
Packit 284210
    if (errmsg) {
Packit 284210
		err = (char *)apr_palloc(p, 1024);
Packit 284210
Packit 284210
		if(parms != NULL)
Packit 284210
			apr_snprintf(err, 1024, "Syntax error in config file %s, line %d: %s", parms->config_file->name,
Packit 284210
							parms->config_file->line_number, errmsg);
Packit 284210
		else
Packit 284210
			apr_snprintf(err, 1024, "Syntax error in config file: %s", errmsg);
Packit 284210
    }
Packit 284210
Packit 284210
    errmsg = err;
Packit 284210
Packit 284210
Exit:
Packit 284210
	while((parms = (cmd_parms *)apr_array_pop(arr)) != NULL)
Packit 284210
	{
Packit 284210
		ap_cfg_closefile(parms->config_file);
Packit 284210
	}
Packit 284210
Packit 284210
	return errmsg;
Packit 284210
}