0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

cccd31fa4a72fe23cc3249c06db181b274a55a69gstein#include "apr.h"

cccd31fa4a72fe23cc3249c06db181b274a55a69gstein#include "apr_strings.h"

cccd31fa4a72fe23cc3249c06db181b274a55a69gstein#include "apr_thread_proc.h"

f6e9f5600e77b78fb013bb543d364135961639d1rbb#include "apr_hash.h"

c9dafaafc2650994e47f88f5239f643c97ec4cb3wrowe#include "apr_user.h"

1b21d7b3d97def358b2e923655edeb16613a1c31gstein#include "apr_lib.h"

024cd9589e52cf11ce765dfddb5b5f0c6e421a48gstein#include "apr_optional.h"

024cd9589e52cf11ce765dfddb5b5f0c6e421a48gstein

024cd9589e52cf11ce765dfddb5b5f0c6e421a48gstein#define APR_WANT_STRFUNC

024cd9589e52cf11ce765dfddb5b5f0c6e421a48gstein#define APR_WANT_MEMFUNC

cccd31fa4a72fe23cc3249c06db181b274a55a69gstein#include "apr_want.h"

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#include "ap_config.h"

9625528fcf4fa27288f3be080a1979c8ef60d7dfrbb#include "util_filter.h"

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb#include "httpd.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_config.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_core.h"

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb#include "http_request.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_core.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_protocol.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_log.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_main.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "util_script.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_core.h"

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#include "mod_include.h"

18343797fadabacf01280b38ea7688690d12aec0rbb

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#if APR_CHARSET_EBCDIC

138c8f7cb8254e035c6f45288e3909cd9c21be5cmartin#include "util_ebcdic.h"

f6e9f5600e77b78fb013bb543d364135961639d1rbb#define RAW_ASCII_CHAR(ch) apr_xlate_conv_byte(ap_hdrs_from_ascii, \

445997e06464e7625c7f0e22917f8f2d9876cfffrbb (unsigned char)ch)

445997e06464e7625c7f0e22917f8f2d9876cfffrbb#else /* APR_CHARSET_EBCDIC */

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz#define RAW_ASCII_CHAR(ch) (ch)

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz#endif /* !APR_CHARSET_EBCDIC */

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct result_item {

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz struct result_item *next;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz apr_size_t len;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *string;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz} result_item_t;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef enum {

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz TOKEN_STRING,

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb TOKEN_RE,

f6e9f5600e77b78fb013bb543d364135961639d1rbb TOKEN_AND,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TOKEN_OR,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TOKEN_NOT,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz TOKEN_EQ,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz TOKEN_NE,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz TOKEN_RBRACE,

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz TOKEN_LBRACE,

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz TOKEN_GROUP,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz TOKEN_GE,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TOKEN_LE,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TOKEN_GT,

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm TOKEN_LT

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding} token_type_t;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantztypedef struct {

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz token_type_t type;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz const char *value;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm#ifdef DEBUG_INCLUDE

441bd066858500e75e4f63ef149120bcf523de58jerenkrantz const char *s;

441bd066858500e75e4f63ef149120bcf523de58jerenkrantz#endif

441bd066858500e75e4f63ef149120bcf523de58jerenkrantz} token_t;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingtypedef struct parse_node {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm struct parse_node *parent;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding struct parse_node *left;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding struct parse_node *right;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm token_t token;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int value;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int done;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm#ifdef DEBUG_INCLUDE

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int dump_done;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm} parse_node_t;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingtypedef enum {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding XBITHACK_OFF,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding XBITHACK_ON,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz XBITHACK_FULL

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz} xbithack_t;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *default_error_msg;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *default_time_fmt;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz xbithack_t xbithack;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz} include_dir_config;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef struct {

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *default_start_tag;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *default_end_tag;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz const char *undefined_echo;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz apr_size_t undefined_echo_len;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz} include_server_config;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantztypedef enum {

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_PRE_HEAD,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_HEAD,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_DIRECTIVE,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_DIRECTIVE_POSTNAME,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_DIRECTIVE_TAIL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_DIRECTIVE_POSTTAIL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_PRE_ARG,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_NAME,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_POSTNAME,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_EQ,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_PREVAL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_VAL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_VAL_ESC,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_ARG_POSTVAL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_TAIL,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_TAIL_SEQ,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz PARSE_EXECUTE

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz} parse_state_t;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantztypedef struct arg_item {

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz struct arg_item *next;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz char *name;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz apr_size_t name_len;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz char *value;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz apr_size_t value_len;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz} arg_item_t;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz#define MAX_NMATCH 10

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingtypedef struct {

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz const char *source;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz const char *rexp;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t nsub;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz regmatch_t match[MAX_NMATCH];

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} backref_t;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantztypedef struct {

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz unsigned int T[256];

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz unsigned int x;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t pattern_len;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} bndm_t;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantzstruct ssi_internal_ctx {

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz parse_state_t state;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz int seen_eos;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz int error;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz char quote; /* quote character value (or \0) */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t parse_pos; /* parse position of partial matches */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t bytes_read;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_bucket_brigade *tmp_bb;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz request_rec *r;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz const char *start_seq;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz bndm_t *start_seq_pat;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz const char *end_seq;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t end_seq_len;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz char *directive; /* name of the current directive */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_size_t directive_len; /* length of the current directive name */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz arg_item_t *current_arg; /* currently parsed argument */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz arg_item_t *argv; /* all arguments */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz backref_t *re; /* NULL if there wasn't a regex yet */

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#ifdef DEBUG_INCLUDE

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz struct {

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz ap_filter_t *f;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz apr_bucket_brigade *bb;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } debug;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#endif

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz};

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#ifdef DEBUG_INCLUDE

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define TYPE_TOKEN(token, ttype) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (token)->type = ttype; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (token)->s = #ttype; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define CREATE_NODE(ctx, name) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (name) = apr_palloc((ctx)->dpool, sizeof(*(name))); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (name)->parent = (name)->left = (name)->right = NULL; \

95ca1a6ff23adde7ae9cbbec7b6754d9aecacc2dbrianp (name)->done = 0; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (name)->dump_done = 0; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantzstatic void debug_printf(include_ctx_t *ctx, const char *fmt, ...)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz{

95ca1a6ff23adde7ae9cbbec7b6754d9aecacc2dbrianp va_list ap;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz char *debug__str;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz va_start(ap, fmt);

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug__str = apr_pvsprintf(ctx->pool, fmt, ap);

95ca1a6ff23adde7ae9cbbec7b6754d9aecacc2dbrianp va_end(ap);

95ca1a6ff23adde7ae9cbbec7b6754d9aecacc2dbrianp

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz APR_BRIGADE_INSERT_TAIL(ctx->intern->debug.bb, apr_bucket_pool_create(

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug__str, strlen(debug__str), ctx->pool,

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz ctx->intern->debug.f->c->bucket_alloc));

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz}

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DUMP__CHILD(ctx, is, node, child) if (1) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz parse_node_t *d__c = node->child; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (d__c) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (!d__c->dump_done) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (d__c->parent != node) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf(ctx, "!!! Parse tree is not consistent !!!\n"); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (!d__c->parent) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf(ctx, "Parent of " #child " child node is " \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz "NULL.\n"); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz else { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf(ctx, "Parent of " #child " child node " \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz "points to another node (of type %s)!\n", \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz d__c->parent->token.s); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz return; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz node = d__c; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz continue; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz else { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf(ctx, "%s(missing)\n", is); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz}

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantzstatic void debug_dump_tree(include_ctx_t *ctx, parse_node_t *root)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz{

18343797fadabacf01280b38ea7688690d12aec0rbb parse_node_t *current;

18343797fadabacf01280b38ea7688690d12aec0rbb char *is;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (!root) {

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe debug_printf(ctx, " -- Parse Tree empty --\n\n");

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz return;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

cd36eaa1f276d94ef45e8665cc701ac1d5fc5ba3trawick

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb debug_printf(ctx, " ----- Parse Tree -----\n");

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb current = root;

18343797fadabacf01280b38ea7688690d12aec0rbb is = " ";

8204f955c6ec6281031320ec15ccf8f1531ee3cawrowe

8204f955c6ec6281031320ec15ccf8f1531ee3cawrowe while (current) {

18343797fadabacf01280b38ea7688690d12aec0rbb switch (current->token.type) {

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_STRING:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_RE:

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb debug_printf(ctx, "%s%s (%s)\n", is, current->token.s,

fc9e11c98ca76d8b1a4fedfced2a04e543162535jwoolley current->token.value);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current->dump_done = 1;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current = current->parent;

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe continue;

fcc991411813d0ceaca4a76675f771e1f06617cdtrawick

fcc991411813d0ceaca4a76675f771e1f06617cdtrawick case TOKEN_NOT:

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz case TOKEN_GROUP:

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz case TOKEN_RBRACE:

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz case TOKEN_LBRACE:

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz if (!current->dump_done) {

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz debug_printf(ctx, "%s%s\n", is, current->token.s);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz is = apr_pstrcat(ctx->dpool, is, " ", NULL);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current->dump_done = 1;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz DUMP__CHILD(ctx, is, current, right)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb if (!current->right || current->right->dump_done) {

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz is = apr_pstrmemdup(ctx->dpool, is, strlen(is) - 4);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz if (current->right) current->right->dump_done = 0;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current = current->parent;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

8173eb0f84c2dd1f08802aadc90731cc89ba5c0ejerenkrantz continue;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz default:

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz if (!current->dump_done) {

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz debug_printf(ctx, "%s%s\n", is, current->token.s);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz is = apr_pstrcat(ctx->dpool, is, " ", NULL);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current->dump_done = 1;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb DUMP__CHILD(ctx, is, current, left)

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz DUMP__CHILD(ctx, is, current, right)

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb if ((!current->left || current->left->dump_done) &&

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz (!current->right || current->right->dump_done)) {

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz is = apr_pstrmemdup(ctx->dpool, is, strlen(is) - 4);

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz if (current->left) current->left->dump_done = 0;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz if (current->right) current->right->dump_done = 0;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz current = current->parent;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz continue;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz }

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz /* it is possible to call this function within the parser loop, to see

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz root->dump_done = 0;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (root->left) root->left->dump_done = 0;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (root->right) root->right->dump_done = 0;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf(ctx, " --- End Parse Tree ---\n\n");

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz return;

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz}

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_INIT(ctx, filter, brigade) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (ctx)->intern->debug.f = filter; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (ctx)->intern->debug.bb = brigade; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_PRINTF(arg) debug_printf arg

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_DUMP_TOKEN(ctx, token) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz token_t *d__t = (token); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (d__t->type == TOKEN_STRING || d__t->type == TOKEN_RE) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz DEBUG_PRINTF(((ctx), " Found: %s (%s)\n", d__t->s, d__t->value)); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz else { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz DEBUG_PRINTF((ctx, " Found: %s\n", d__t->s)); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_DUMP_EVAL(ctx, node) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz char c = '"'; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz switch ((node)->token.type) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_STRING: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf((ctx), " Evaluate: %s (%s) -> %c\n", (node)->token.s,\

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (node)->token.value, ((node)->value) ? '1':'0'); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz break; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_AND: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_OR: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf((ctx), " Evaluate: %s (Left: %s; Right: %s) -> %c\n",\

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp (node)->token.s, \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp (((node)->left->done) ? ((node)->left->value ?"1":"0") \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp : "short circuited"), \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp (((node)->right->done) ? ((node)->right->value?"1":"0") \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp : "short circuited"), \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp (node)->value ? '1' : '0'); \

e98a7a7acc2861a0987318b2580872d2c8ca1fe2brianp break; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_EQ: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_NE: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_GT: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz case TOKEN_GE: \

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_LT: \

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_LE: \

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if ((node)->right->token.type == TOKEN_RE) c = '/'; \

18343797fadabacf01280b38ea7688690d12aec0rbb debug_printf((ctx), " Compare: %s (\"%s\" with %c%s%c) -> %c\n", \

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz (node)->token.s, \

18343797fadabacf01280b38ea7688690d12aec0rbb (node)->left->token.value, \

18343797fadabacf01280b38ea7688690d12aec0rbb c, (node)->right->token.value, c, \

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb (node)->value ? '1' : '0'); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz break; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz default: \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz debug_printf((ctx), " Evaluate: %s -> %c\n", (node)->token.s, \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz (node)->value ? '1' : '0'); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz break; \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_DUMP_UNMATCHED(ctx, unmatched) do { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz if (unmatched) { \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz DEBUG_PRINTF(((ctx), " Unmatched %c\n", (char)(unmatched))); \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz } \

18343797fadabacf01280b38ea7688690d12aec0rbb} while(0)

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz#define DEBUG_DUMP_COND(ctx, text) \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz DEBUG_PRINTF(((ctx), "**** %s cond status=\"%c\"\n", (text), \

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz ((ctx)->flags & SSI_FLAG_COND_TRUE) ? '1' : '0'))

f00d1e76bae896c2f6a520eec69b1d0d802d4108jerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_TREE(ctx, root) debug_dump_tree(ctx, root)

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb#else /* DEBUG_INCLUDE */

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb

18343797fadabacf01280b38ea7688690d12aec0rbb#define TYPE_TOKEN(token, ttype) (token)->type = ttype

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe#define CREATE_NODE(ctx, name) do { \

18343797fadabacf01280b38ea7688690d12aec0rbb (name) = apr_palloc((ctx)->dpool, sizeof(*(name))); \

18343797fadabacf01280b38ea7688690d12aec0rbb (name)->parent = (name)->left = (name)->right = NULL; \

18343797fadabacf01280b38ea7688690d12aec0rbb (name)->done = 0; \

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz} while(0)

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_INIT(ctx, f, bb)

cd36eaa1f276d94ef45e8665cc701ac1d5fc5ba3trawick#define DEBUG_PRINTF(arg)

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_TOKEN(ctx, token)

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_EVAL(ctx, node)

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_UNMATCHED(ctx, unmatched)

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_COND(ctx, text)

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEBUG_DUMP_TREE(ctx, root)

fc9e11c98ca76d8b1a4fedfced2a04e543162535jwoolley

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#endif /* !DEBUG_INCLUDE */

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantzmodule AP_MODULE_DECLARE_DATA include_module;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantzstatic apr_hash_t *include_handlers;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantzstatic APR_OPTIONAL_FN_TYPE(ap_register_include_handler) *ssi_pfn_register;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantzstatic const char lazy_eval_sentinel;

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define LAZY_VALUE (&lazy_eval_sentinel)

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define DEFAULT_START_SEQUENCE "<!--#"

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define DEFAULT_END_SEQUENCE "-->"

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define DEFAULT_ERROR_MSG "[an error occurred while processing this directive]"

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define DEFAULT_TIME_FORMAT "%A, %d-%b-%Y %H:%M:%S %Z"

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz#define DEFAULT_UNDEFINED_ECHO "(none)"

e099672a13ea4ff4a11f130406f1baecba5949bajerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb#ifdef XBITHACK

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEFAULT_XBITHACK XBITHACK_FULL

18343797fadabacf01280b38ea7688690d12aec0rbb#else

18343797fadabacf01280b38ea7688690d12aec0rbb#define DEFAULT_XBITHACK XBITHACK_OFF

18343797fadabacf01280b38ea7688690d12aec0rbb#endif

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp#define MAXENTLEN (6)

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianpstatic void decodehtml(char *s)

18343797fadabacf01280b38ea7688690d12aec0rbb{

18343797fadabacf01280b38ea7688690d12aec0rbb int val, i, j;

f6e9f5600e77b78fb013bb543d364135961639d1rbb char *p;

18343797fadabacf01280b38ea7688690d12aec0rbb const char *ents;

18343797fadabacf01280b38ea7688690d12aec0rbb static const char * const entlist[MAXENTLEN + 1] =

18343797fadabacf01280b38ea7688690d12aec0rbb {

18343797fadabacf01280b38ea7688690d12aec0rbb NULL, /* 0 */

18343797fadabacf01280b38ea7688690d12aec0rbb NULL, /* 1 */

f6e9f5600e77b78fb013bb543d364135961639d1rbb "lt\074gt\076", /* 2 */

18343797fadabacf01280b38ea7688690d12aec0rbb "amp\046ETH\320eth\360", /* 3 */

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb "quot\042Auml\304Euml\313Iuml\317Ouml\326Uuml\334auml\344euml"

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb "\353iuml\357ouml\366uuml\374yuml\377", /* 4 */

f6e9f5600e77b78fb013bb543d364135961639d1rbb

f6e9f5600e77b78fb013bb543d364135961639d1rbb "Acirc\302Aring\305AElig\306Ecirc\312Icirc\316Ocirc\324Ucirc"

f6e9f5600e77b78fb013bb543d364135961639d1rbb "\333THORN\336szlig\337acirc\342aring\345aelig\346ecirc\352"

f6e9f5600e77b78fb013bb543d364135961639d1rbb "icirc\356ocirc\364ucirc\373thorn\376", /* 5 */

f6e9f5600e77b78fb013bb543d364135961639d1rbb

f6e9f5600e77b78fb013bb543d364135961639d1rbb "Agrave\300Aacute\301Atilde\303Ccedil\307Egrave\310Eacute\311"

18343797fadabacf01280b38ea7688690d12aec0rbb "Igrave\314Iacute\315Ntilde\321Ograve\322Oacute\323Otilde"

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb "\325Oslash\330Ugrave\331Uacute\332Yacute\335agrave\340"

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb "aacute\341atilde\343ccedil\347egrave\350eacute\351igrave"

f6e9f5600e77b78fb013bb543d364135961639d1rbb "\354iacute\355ntilde\361ograve\362oacute\363otilde\365"

f6e9f5600e77b78fb013bb543d364135961639d1rbb "oslash\370ugrave\371uacute\372yacute\375" /* 6 */

f6e9f5600e77b78fb013bb543d364135961639d1rbb };

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb

51ced3b28ef430a96586284d4320f7dbdaf7225ebrianp /* Do a fast scan through the string until we find anything

18343797fadabacf01280b38ea7688690d12aec0rbb for (; *s != '&'; s++) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*s == '\0') {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz return;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb for (p = s; *s != '\0'; s++, p++) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*s != '&') {

18343797fadabacf01280b38ea7688690d12aec0rbb *p = *s;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz continue;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* find end of entity */

18343797fadabacf01280b38ea7688690d12aec0rbb for (i = 1; s[i] != ';' && s[i] != '\0'; i++) {

18343797fadabacf01280b38ea7688690d12aec0rbb continue;

f6e9f5600e77b78fb013bb543d364135961639d1rbb }

f6e9f5600e77b78fb013bb543d364135961639d1rbb

f6e9f5600e77b78fb013bb543d364135961639d1rbb if (s[i] == '\0') { /* treat as normal data */

f6e9f5600e77b78fb013bb543d364135961639d1rbb *p = *s;

f6e9f5600e77b78fb013bb543d364135961639d1rbb continue;

f6e9f5600e77b78fb013bb543d364135961639d1rbb }

f6e9f5600e77b78fb013bb543d364135961639d1rbb

18343797fadabacf01280b38ea7688690d12aec0rbb /* is it numeric ? */

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (s[1] == '#') {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz for (j = 2, val = 0; j < i && apr_isdigit(s[j]); j++) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz val = val * 10 + s[j] - '0';

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb s += i;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (j < i || val <= 8 || (val >= 11 && val <= 31) ||

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (val >= 127 && val <= 160) || val >= 256) {

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb p--; /* no data to output */

b42a7e46e4f80282bd27e96d43c9510b14ccb9aarbb }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe *p = RAW_ASCII_CHAR(val);

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe }

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding j = i - 1;

18343797fadabacf01280b38ea7688690d12aec0rbb if (j > MAXENTLEN || entlist[j] == NULL) {

18343797fadabacf01280b38ea7688690d12aec0rbb /* wrong length */

18343797fadabacf01280b38ea7688690d12aec0rbb *p = '&';

18343797fadabacf01280b38ea7688690d12aec0rbb continue; /* skip it */

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb for (ents = entlist[j]; *ents != '\0'; ents += i) {

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe if (strncmp(s + 1, ents, j) == 0) {

3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe break;

3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe }

18343797fadabacf01280b38ea7688690d12aec0rbb }

3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe

3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe if (*ents == '\0') {

18343797fadabacf01280b38ea7688690d12aec0rbb *p = '&'; /* unknown */

cd36eaa1f276d94ef45e8665cc701ac1d5fc5ba3trawick }

18343797fadabacf01280b38ea7688690d12aec0rbb else {

18343797fadabacf01280b38ea7688690d12aec0rbb *p = RAW_ASCII_CHAR(((const unsigned char *) ents)[j]);

18343797fadabacf01280b38ea7688690d12aec0rbb s += i;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb *p = '\0';

18343797fadabacf01280b38ea7688690d12aec0rbb}

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbbstatic void add_include_vars(request_rec *r, const char *timefmt)

18343797fadabacf01280b38ea7688690d12aec0rbb{

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_t *e = r->subprocess_env;

18343797fadabacf01280b38ea7688690d12aec0rbb char *t;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz apr_table_setn(e, "DATE_LOCAL", LAZY_VALUE);

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "DATE_GMT", LAZY_VALUE);

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "LAST_MODIFIED", LAZY_VALUE);

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "DOCUMENT_URI", r->uri);

18343797fadabacf01280b38ea7688690d12aec0rbb if (r->path_info && *r->path_info) {

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "DOCUMENT_PATH_INFO", r->path_info);

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "USER_NAME", LAZY_VALUE);

18343797fadabacf01280b38ea7688690d12aec0rbb if ((t = strrchr(r->filename, '/'))) {

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "DOCUMENT_NAME", ++t);

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb else {

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "DOCUMENT_NAME", r->uri);

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb if (r->args) {

18343797fadabacf01280b38ea7688690d12aec0rbb char *arg_copy = apr_pstrdup(r->pool, r->args);

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb ap_unescape_url(arg_copy);

18343797fadabacf01280b38ea7688690d12aec0rbb apr_table_setn(e, "QUERY_STRING_UNESCAPED",

18343797fadabacf01280b38ea7688690d12aec0rbb ap_escape_shell_cmd(r->pool, arg_copy));

18343797fadabacf01280b38ea7688690d12aec0rbb }

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe}

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe

18343797fadabacf01280b38ea7688690d12aec0rbbstatic const char *add_include_vars_lazy(request_rec *r, const char *var)

18343797fadabacf01280b38ea7688690d12aec0rbb{

18343797fadabacf01280b38ea7688690d12aec0rbb char *val;

18343797fadabacf01280b38ea7688690d12aec0rbb if (!strcasecmp(var, "DATE_LOCAL")) {

18343797fadabacf01280b38ea7688690d12aec0rbb include_dir_config *conf =

18343797fadabacf01280b38ea7688690d12aec0rbb (include_dir_config *)ap_get_module_config(r->per_dir_config,

3084ccb696461ceb2fc4fbe76e302640eaac6a18wrowe &include_module);

18343797fadabacf01280b38ea7688690d12aec0rbb val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 0);

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb else if (!strcasecmp(var, "DATE_GMT")) {

18343797fadabacf01280b38ea7688690d12aec0rbb include_dir_config *conf =

18343797fadabacf01280b38ea7688690d12aec0rbb (include_dir_config *)ap_get_module_config(r->per_dir_config,

18343797fadabacf01280b38ea7688690d12aec0rbb &include_module);

18343797fadabacf01280b38ea7688690d12aec0rbb val = ap_ht_time(r->pool, r->request_time, conf->default_time_fmt, 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcasecmp(var, "LAST_MODIFIED")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding include_dir_config *conf =

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (include_dir_config *)ap_get_module_config(r->per_dir_config,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding &include_module);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = ap_ht_time(r->pool, r->finfo.mtime, conf->default_time_fmt, 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcasecmp(var, "USER_NAME")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (apr_get_username(&val, r->finfo.user, r->pool) != APR_SUCCESS) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = "<unknown>";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_table_setn(r->subprocess_env, var, val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp return val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic const char *get_include_var(const char *var, include_ctx_t *ctx)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r = ctx->intern->r;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (apr_isdigit(*var) && !var[1]) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_size_t idx = *var - '0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding backref_t *re = ctx->intern->re;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Handle $0 .. $9 from the last regex evaluated.

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!re) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, "regex capture $%d "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "refers to no regex in %s", idx, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp }

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp else {

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp if (re->nsub < idx) {

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r,

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp "regex capture $%d is out of range (last regex "

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp "was: '%s') in %s", idx, re->rexp, r->filename);

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp return NULL;

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp }

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp

450fd97bdb54ac69e2cb552f034697a10868be3cbrianp if (re->match[idx].rm_so < 0 || re->match[idx].rm_eo < 0) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = apr_pstrmemdup(ctx->dpool, re->source + re->match[idx].rm_so,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding re->match[idx].rm_eo - re->match[idx].rm_so);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = apr_table_get(r->subprocess_env, var);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val == LAZY_VALUE) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = add_include_vars_lazy(r, var);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return val;

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic char *ap_ssi_parse_string(include_ctx_t *ctx, const char *in, char *out,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_size_t length, int leave_name)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r = ctx->intern->r;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding result_item_t *result = NULL, *current = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_size_t outlen = 0, inlen, span;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *ret = NULL, *eout = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* sanity check, out && !length is not supported */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_assert(out && length);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ret = out;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding eout = out + length - 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding span = strcspn(in, "\\$");

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding inlen = strlen(in);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* fast exit */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (inlen == span) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding apr_cpystrn(out, in, length);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ret = apr_pstrmemdup(ctx->pool, in, (length && length <= inlen)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ? length - 1 : inlen);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return ret;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb /* well, actually something to do */

18343797fadabacf01280b38ea7688690d12aec0rbb p = in + span;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (span) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy(out, in, (out+span <= eout) ? span : (eout-out));

18343797fadabacf01280b38ea7688690d12aec0rbb out += span;

18343797fadabacf01280b38ea7688690d12aec0rbb }

445997e06464e7625c7f0e22917f8f2d9876cfffrbb }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current = result = apr_palloc(ctx->dpool, sizeof(*result));

18343797fadabacf01280b38ea7688690d12aec0rbb current->next = NULL;

18343797fadabacf01280b38ea7688690d12aec0rbb current->string = in;

18343797fadabacf01280b38ea7688690d12aec0rbb current->len = span;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding outlen = span;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb /* loop for specials */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding do {

0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp if ((out && out >= eout) || (length && outlen >= length)) {

0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp break;

0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp }

0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp

0f6deff8fa9ad63fc576e8d91efc1d9afd068eccbrianp /* prepare next entry */

18343797fadabacf01280b38ea7688690d12aec0rbb if (!out && current->len) {

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb current->next = apr_palloc(ctx->dpool, sizeof(*current->next));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current = current->next;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->next = NULL;

18343797fadabacf01280b38ea7688690d12aec0rbb current->len = 0;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /*

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*p == '\\') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (out) {

18343797fadabacf01280b38ea7688690d12aec0rbb *out++ = (p[1] == '$') ? *++p : *p;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ++p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current->len = 1;

18343797fadabacf01280b38ea7688690d12aec0rbb current->string = (p[1] == '$') ? ++p : p;

18343797fadabacf01280b38ea7688690d12aec0rbb ++p;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ++outlen;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

18343797fadabacf01280b38ea7688690d12aec0rbb }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb /*

18343797fadabacf01280b38ea7688690d12aec0rbb else { /* *p == '$' */

18343797fadabacf01280b38ea7688690d12aec0rbb const char *newp = NULL, *ep, *key = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

18343797fadabacf01280b38ea7688690d12aec0rbb if (*++p == '{') {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ep = ap_strchr_c(++p, '}');

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (!ep) {

18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "Missing '}' on "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "variable \"%s\" in %s", p, r->filename);

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (p < ep) {

18343797fadabacf01280b38ea7688690d12aec0rbb key = apr_pstrmemdup(ctx->dpool, p, ep - p);

18343797fadabacf01280b38ea7688690d12aec0rbb newp = ep + 1;

47d7b9019e57fbf3eaa4d2b19bbbcce087dd8389rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb p -= 2;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb else {

18343797fadabacf01280b38ea7688690d12aec0rbb ep = p;

18343797fadabacf01280b38ea7688690d12aec0rbb while (*ep == '_' || apr_isalnum(*ep)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++ep;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (p < ep) {

18343797fadabacf01280b38ea7688690d12aec0rbb key = apr_pstrmemdup(ctx->dpool, p, ep - p);

18343797fadabacf01280b38ea7688690d12aec0rbb newp = ep;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding --p;

18343797fadabacf01280b38ea7688690d12aec0rbb }

ff2fef0d709ee06646b3462cd3ef39648a54c7f7jwoolley

ff2fef0d709ee06646b3462cd3ef39648a54c7f7jwoolley /* empty name results in a copy of '$' in the output string */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!key) {

18343797fadabacf01280b38ea7688690d12aec0rbb if (out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *out++ = *p++;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->len = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->string = p++;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++outlen;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

445997e06464e7625c7f0e22917f8f2d9876cfffrbb const char *val = get_include_var(key, ctx);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz apr_size_t len = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding len = strlen(val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (leave_name) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding val = p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding len = ep - p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val && len) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (out) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz memcpy(out, val, (out+len <= eout) ? len : (eout-out));

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz out += len;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current->len = len;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->string = val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding outlen += len;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding p = newp;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if ((out && out >= eout) || (length && outlen >= length)) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz break;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

18343797fadabacf01280b38ea7688690d12aec0rbb

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* check the remainder */

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (*p && (span = strcspn(p, "\\$")) > 0) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (!out && current->len) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current->next = apr_palloc(ctx->dpool, sizeof(*current->next));

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current = current->next;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current->next = NULL;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy(out, p, (out+span <= eout) ? span : (eout-out));

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz out += span;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->len = span;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current->string = p;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz outlen += span;

87e9aee98265a06128c8ae448967fe98e271cce0trawick }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz p += span;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz } while (p < in+inlen);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz /* assemble result */

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (out) {

87e9aee98265a06128c8ae448967fe98e271cce0trawick if (out > eout) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz *eout = '\0';

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz else {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz *out = '\0';

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

445997e06464e7625c7f0e22917f8f2d9876cfffrbb else {

445997e06464e7625c7f0e22917f8f2d9876cfffrbb const char *ep;

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz

445997e06464e7625c7f0e22917f8f2d9876cfffrbb if (length && outlen > length) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding outlen = length - 1;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ret = out = apr_palloc(ctx->pool, outlen + 1);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ep = ret + outlen;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz do {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz if (result->len) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz memcpy(out, result->string, (out+result->len <= ep)

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ? result->len : (ep-out));

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz out += result->len;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz result = result->next;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz } while (result && out < ep);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ret[outlen] = '\0';

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz return ret;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz}

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic APR_INLINE int re_check(include_ctx_t *ctx, const char *string,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *rexp)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding regex_t *compiled;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding backref_t *re = ctx->intern->re;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int rc;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding compiled = ap_pregcomp(ctx->dpool, rexp, REG_EXTENDED);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!compiled) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, ctx->intern->r, "unable to "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "compile pattern \"%s\"", rexp);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!re) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding re = ctx->intern->re = apr_palloc(ctx->pool, sizeof(*re));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

50e59a535cafd083838a173aedf9cfa6917d016dwrowe

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz re->source = apr_pstrdup(ctx->pool, string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding re->rexp = apr_pstrdup(ctx->pool, rexp);

50e59a535cafd083838a173aedf9cfa6917d016dwrowe re->nsub = compiled->re_nsub;

f7e94f9555c0632e8a290a7e76d778e8c7daf425jerenkrantz rc = !ap_regexec(compiled, string, MAX_NMATCH, re->match, 0);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

50e59a535cafd083838a173aedf9cfa6917d016dwrowe ap_pregfree(ctx->dpool, compiled);

50e59a535cafd083838a173aedf9cfa6917d016dwrowe return rc;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int get_ptoken(apr_pool_t *pool, const char **parse, token_t *token)

50e59a535cafd083838a173aedf9cfa6917d016dwrowe{

50e59a535cafd083838a173aedf9cfa6917d016dwrowe const char *p;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe apr_size_t shift;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe int unmatched;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe

50e59a535cafd083838a173aedf9cfa6917d016dwrowe token->value = NULL;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe

50e59a535cafd083838a173aedf9cfa6917d016dwrowe if (!*parse) {

50e59a535cafd083838a173aedf9cfa6917d016dwrowe return 0;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe }

50e59a535cafd083838a173aedf9cfa6917d016dwrowe

50e59a535cafd083838a173aedf9cfa6917d016dwrowe /* Skip leading white space */

50e59a535cafd083838a173aedf9cfa6917d016dwrowe while (apr_isspace(**parse)) {

50e59a535cafd083838a173aedf9cfa6917d016dwrowe ++*parse;

50e59a535cafd083838a173aedf9cfa6917d016dwrowe }

50e59a535cafd083838a173aedf9cfa6917d016dwrowe

50e59a535cafd083838a173aedf9cfa6917d016dwrowe if (!**parse) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *parse = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz TYPE_TOKEN(token, TOKEN_STRING); /* the default type */

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz p = *parse;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz unmatched = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

18343797fadabacf01280b38ea7688690d12aec0rbb switch (*(*parse)++) {

18343797fadabacf01280b38ea7688690d12aec0rbb case '(':

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe TYPE_TOKEN(token, TOKEN_LBRACE);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames case ')':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TYPE_TOKEN(token, TOKEN_RBRACE);

18343797fadabacf01280b38ea7688690d12aec0rbb return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb case '=':

18343797fadabacf01280b38ea7688690d12aec0rbb TYPE_TOKEN(token, TOKEN_EQ);

445997e06464e7625c7f0e22917f8f2d9876cfffrbb return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb case '!':

18343797fadabacf01280b38ea7688690d12aec0rbb if (**parse == '=') {

18343797fadabacf01280b38ea7688690d12aec0rbb TYPE_TOKEN(token, TOKEN_NE);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++*parse;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TYPE_TOKEN(token, TOKEN_NOT);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

c815e1cfb2ec4db2e1a94fafd77de045d7fd93dbbrianp case '\'':

18343797fadabacf01280b38ea7688690d12aec0rbb unmatched = '\'';

18343797fadabacf01280b38ea7688690d12aec0rbb break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '/':

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz TYPE_TOKEN(token, TOKEN_RE);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz unmatched = '/';

18343797fadabacf01280b38ea7688690d12aec0rbb break;

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe case '|':

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe if (**parse == '|') {

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe TYPE_TOKEN(token, TOKEN_OR);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ++*parse;

18343797fadabacf01280b38ea7688690d12aec0rbb return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb case '&':

18343797fadabacf01280b38ea7688690d12aec0rbb if (**parse == '&') {

18343797fadabacf01280b38ea7688690d12aec0rbb TYPE_TOKEN(token, TOKEN_AND);

18343797fadabacf01280b38ea7688690d12aec0rbb ++*parse;

18343797fadabacf01280b38ea7688690d12aec0rbb return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb case '>':

18343797fadabacf01280b38ea7688690d12aec0rbb if (**parse == '=') {

18343797fadabacf01280b38ea7688690d12aec0rbb TYPE_TOKEN(token, TOKEN_GE);

18343797fadabacf01280b38ea7688690d12aec0rbb ++*parse;

18343797fadabacf01280b38ea7688690d12aec0rbb return 0;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz TYPE_TOKEN(token, TOKEN_GT);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz return 0;

18343797fadabacf01280b38ea7688690d12aec0rbb case '<':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (**parse == '=') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TYPE_TOKEN(token, TOKEN_LE);

18343797fadabacf01280b38ea7688690d12aec0rbb ++*parse;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley return 0;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley }

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley TYPE_TOKEN(token, TOKEN_LT);

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley return 0;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley }

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley /* It's a string or regex token

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley shift = 0;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley p = *parse = token->value = unmatched ? *parse : p;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley for (; **parse; p = ++*parse) {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley if (**parse == '\\') {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley if (!*(++*parse)) {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley p = *parse;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley break;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley }

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley ++shift;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley }

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley else {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley if (unmatched) {

18343797fadabacf01280b38ea7688690d12aec0rbb if (**parse == unmatched) {

18343797fadabacf01280b38ea7688690d12aec0rbb unmatched = 0;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley ++*parse;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley break;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz } else if (apr_isspace(**parse)) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz break;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley else {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley int found = 0;

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley switch (**parse) {

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley case '(':

93780c0e38edba46c1be32fd4c31c344c0a57286jwoolley case ')':

18343797fadabacf01280b38ea7688690d12aec0rbb case '=':

18343797fadabacf01280b38ea7688690d12aec0rbb case '!':

18343797fadabacf01280b38ea7688690d12aec0rbb case '<':

18343797fadabacf01280b38ea7688690d12aec0rbb case '>':

18343797fadabacf01280b38ea7688690d12aec0rbb ++found;

18343797fadabacf01280b38ea7688690d12aec0rbb break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case '|':

18343797fadabacf01280b38ea7688690d12aec0rbb case '&':

18343797fadabacf01280b38ea7688690d12aec0rbb if ((*parse)[1] == **parse) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz ++found;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

18343797fadabacf01280b38ea7688690d12aec0rbb

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames if (found) {

4d003677925ceb0abefb9c95355b4c9e9e502899rederpj break;

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames }

4d003677925ceb0abefb9c95355b4c9e9e502899rederpj }

4d003677925ceb0abefb9c95355b4c9e9e502899rederpj }

4d003677925ceb0abefb9c95355b4c9e9e502899rederpj }

53b8cdb3621b11b897438d8990d20e0b78f0d4b7rederpj

445997e06464e7625c7f0e22917f8f2d9876cfffrbb if (unmatched) {

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames token->value = apr_pstrdup(pool, "");

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames }

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames else {

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames apr_size_t len = p - token->value - shift;

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames char *c = apr_palloc(pool, len + 1);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz p = token->value;

18343797fadabacf01280b38ea7688690d12aec0rbb token->value = c;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb while (shift--) {

374e2f2d7ee8274b53fddb0d4e3270105377b868gregames const char *e = ap_strchr_c(p, '\\');

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz memcpy(c, p, e-p);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz c += e-p;

1f89ef1594d8a552f81e775be55cb9baeab32b77trawick *c++ = *++e;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding len -= e-p;

ba00c3b7c20f00ce631b89ae3b1cd3bae8d1b165rbb p = e+1;

ba00c3b7c20f00ce631b89ae3b1cd3bae8d1b165rbb }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb if (len) {

18343797fadabacf01280b38ea7688690d12aec0rbb memcpy(c, p, len);

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb c[len] = '\0';

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb return unmatched;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int parse_expr(include_ctx_t *ctx, const char *expr, int *was_error)

18343797fadabacf01280b38ea7688690d12aec0rbb{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_node_t *new, *root = NULL, *current = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r = ctx->intern->r;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char* buffer;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz const char *parse = expr;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz int retval = 0, was_unmatched = 0;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz unsigned regex = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

18343797fadabacf01280b38ea7688690d12aec0rbb *was_error = 0;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (!parse) {

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe return 0;

17bdb8862482dff763afd4d86a58de533afff4cajwoolley }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim /* Create Parse Tree */

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* uncomment this to see how the tree a built:

445997e06464e7625c7f0e22917f8f2d9876cfffrbb CREATE_NODE(ctx, new);

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb was_unmatched = get_ptoken(ctx->dpool, &parse, &new->token);

18343797fadabacf01280b38ea7688690d12aec0rbb if (!parse) {

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb DEBUG_DUMP_UNMATCHED(ctx, was_unmatched);

18343797fadabacf01280b38ea7688690d12aec0rbb DEBUG_DUMP_TOKEN(ctx, &new->token);

18343797fadabacf01280b38ea7688690d12aec0rbb

30b9959208c26420c95d176e457ccc6b5f725194jerenkrantz if (!current) {

18343797fadabacf01280b38ea7688690d12aec0rbb switch (new->token.type) {

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_STRING:

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz case TOKEN_NOT:

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz case TOKEN_LBRACE:

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz root = current = new;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz continue;

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz default:

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz "Invalid expression \"%s\" in file %s",

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz expr, r->filename);

7c19ce86bbd72bba1d018522250f5f315ffbc0afjerenkrantz *was_error = 1;

18343797fadabacf01280b38ea7688690d12aec0rbb return retval;

18343797fadabacf01280b38ea7688690d12aec0rbb }

69a92d756d879367994763ac2d87392dfc3766f3brianp }

69a92d756d879367994763ac2d87392dfc3766f3brianp

18343797fadabacf01280b38ea7688690d12aec0rbb switch (new->token.type) {

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_STRING:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz switch (current->token.type) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_STRING:

18343797fadabacf01280b38ea7688690d12aec0rbb current->token.value =

b980ad7fdc218b4855cde9f75a747527f50c554dwrowe apr_pstrcat(ctx->dpool, current->token.value,

18343797fadabacf01280b38ea7688690d12aec0rbb *current->token.value ? " " : "",

18343797fadabacf01280b38ea7688690d12aec0rbb new->token.value, NULL);

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_RE:

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_RBRACE:

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_GROUP:

18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

18343797fadabacf01280b38ea7688690d12aec0rbb "Invalid expression \"%s\" in file %s",

18343797fadabacf01280b38ea7688690d12aec0rbb expr, r->filename);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz *was_error = 1;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz return retval;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz default:

18343797fadabacf01280b38ea7688690d12aec0rbb new->parent = current;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current = current->right = new;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_RE:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding switch (current->token.type) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim case TOKEN_EQ:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_NE:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = current;

18343797fadabacf01280b38ea7688690d12aec0rbb current = current->right = new;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++regex;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz "Invalid expression \"%s\" in file %s",

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz expr, r->filename);

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz *was_error = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return retval;

18343797fadabacf01280b38ea7688690d12aec0rbb }

18343797fadabacf01280b38ea7688690d12aec0rbb break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm case TOKEN_AND:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_OR:

18343797fadabacf01280b38ea7688690d12aec0rbb /* Percolate upwards */

18343797fadabacf01280b38ea7688690d12aec0rbb while (current) {

18343797fadabacf01280b38ea7688690d12aec0rbb switch (current->token.type) {

445997e06464e7625c7f0e22917f8f2d9876cfffrbb case TOKEN_LBRACE:

18343797fadabacf01280b38ea7688690d12aec0rbb break;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_RBRACE:

18343797fadabacf01280b38ea7688690d12aec0rbb ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

18343797fadabacf01280b38ea7688690d12aec0rbb "Invalid expression \"%s\" in file %s",

18343797fadabacf01280b38ea7688690d12aec0rbb expr, r->filename);

18343797fadabacf01280b38ea7688690d12aec0rbb *was_error = 1;

18343797fadabacf01280b38ea7688690d12aec0rbb return retval;

18343797fadabacf01280b38ea7688690d12aec0rbb

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh default:

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh current = current->parent;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh continue;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh }

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh break;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb if (!current) {

18343797fadabacf01280b38ea7688690d12aec0rbb new->left = root;

18343797fadabacf01280b38ea7688690d12aec0rbb new->left->parent = new;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh new->parent = NULL;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh root = new;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh }

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh else {

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh new->left = current->right;

7f1533cc21a93c0744bd40e697ba610a5b1cb68fianh new->left->parent = new;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current->right = new;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz new->parent = current;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz current = new;

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz break;

18343797fadabacf01280b38ea7688690d12aec0rbb

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_EQ:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_NE:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_GE:

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_GT:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_LE:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_LT:

18343797fadabacf01280b38ea7688690d12aec0rbb if (current->token.type == TOKEN_STRING) {

18343797fadabacf01280b38ea7688690d12aec0rbb current = current->parent;

18343797fadabacf01280b38ea7688690d12aec0rbb

18343797fadabacf01280b38ea7688690d12aec0rbb if (!current) {

18343797fadabacf01280b38ea7688690d12aec0rbb new->left = root;

18343797fadabacf01280b38ea7688690d12aec0rbb root->parent = new;

18343797fadabacf01280b38ea7688690d12aec0rbb current = root = new;

18343797fadabacf01280b38ea7688690d12aec0rbb continue;

18343797fadabacf01280b38ea7688690d12aec0rbb }

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz

18343797fadabacf01280b38ea7688690d12aec0rbb switch (current->token.type) {

18343797fadabacf01280b38ea7688690d12aec0rbb case TOKEN_LBRACE:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_AND:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_OR:

18343797fadabacf01280b38ea7688690d12aec0rbb new->left = current->right;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->left->parent = new;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = current;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current = current->right = new;

18343797fadabacf01280b38ea7688690d12aec0rbb continue;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

18343797fadabacf01280b38ea7688690d12aec0rbb }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expr, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *was_error = 1;

6f984345bbfa9342dde1f2b7b8c35b7987d078afwrowe return retval;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_RBRACE:

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe while (current && current->token.type != TOKEN_LBRACE) {

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe current = current->parent;

5915dc3ebb03935b18b0d14088278d22eefe3553wrowe }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!current) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Unmatched ')' in \"%s\" in file %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expr, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *was_error = 1;

85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein return retval;

85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein }

85bea52867bd1a8c81080ba415b5cd5b771ce5f7gstein

18343797fadabacf01280b38ea7688690d12aec0rbb TYPE_TOKEN(&current->token, TOKEN_GROUP);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

f54da7877f9e092465df38bfda142f3e71dbb7aawrowe

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_NOT:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_LBRACE:

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz switch (current->token.type) {

db4293b97cc224d79164c1c092b0267af5d883c5jerenkrantz case TOKEN_STRING:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_RE:

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard case TOKEN_RBRACE:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case TOKEN_GROUP:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Invalid expression \"%s\" in file %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expr, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *was_error = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return retval;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

6f984345bbfa9342dde1f2b7b8c35b7987d078afwrowe

6f984345bbfa9342dde1f2b7b8c35b7987d078afwrowe current->right = new;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding new->parent = current;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding current = new;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;