0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#define CORE_PRIVATE

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef USE_PERL_SSI

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "config.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#undef VOIDUSED

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef USE_SFIO

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#undef USE_SFIO

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define USE_STDIO

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "modules/perl/mod_perl.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#else

b6055b7832a0e4d0818416252fff5925aaebae4brbb#include "apr_strings.h"

9625528fcf4fa27288f3be080a1979c8ef60d7dfrbb#include "ap_config.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "httpd.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#include "http_config.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#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"

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#include "http_core.h"

48d7c43629323c8d5ee9f7bd0d194de0a376b391rbb#ifdef HAVE_STRING_H

8f3ec4772d2aeb347cf40e87c77627bb784dd018rbb#include <string.h>

48d7c43629323c8d5ee9f7bd0d194de0a376b391rbb#endif

d41217398f0e1031adbb6f5bd37f45737c805deftrawick#ifdef HAVE_STRINGS_H

d41217398f0e1031adbb6f5bd37f45737c805deftrawick#include <strings.h>

d41217398f0e1031adbb6f5bd37f45737c805deftrawick#endif

9625528fcf4fa27288f3be080a1979c8ef60d7dfrbb#ifdef HAVE_PWD_H

8f3ec4772d2aeb347cf40e87c77627bb784dd018rbb#include <pwd.h>

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard#endif

178381ebc820fb4c429aa000240cc8ec42c99c58trawick#include "util_ebcdic.h"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define STARTING_SEQUENCE "<!--#"

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define ENDING_SEQUENCE "-->"

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

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define SIZEFMT_BYTES 0

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define SIZEFMT_KMG 1

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef CHARSET_EBCDIC

71ae70b321b6e872938934bbf569c5787962aca3trawick#define RAW_ASCII_CHAR(ch) apr_xlate_conv_byte(ap_hdrs_from_ascii, (unsigned char)ch)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#else /*CHARSET_EBCDIC*/

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define RAW_ASCII_CHAR(ch) (ch)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /*CHARSET_EBCDIC*/

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

e68becff3c3ddc18723c9799b8cc2e6e9c3dbd66wrowemodule MODULE_VAR_EXPORT includes_module;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define NESTED_INCLUDE_MAGIC (&includes_module)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

33098ea43d4392be70012a7c45a16639abb12439fielding#define ap_chdir_file(x) do {} while(0)

33098ea43d4392be70012a7c45a16639abb12439fielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void add_include_vars(request_rec *r, char *timefmt)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifndef WIN32

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding struct passwd *pw;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /* ndef WIN32 */

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_t *e = r->subprocess_env;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *t;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_time_t date = r->request_time;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DATE_LOCAL", ap_ht_time(r->pool, date, timefmt, 0));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DATE_GMT", ap_ht_time(r->pool, date, timefmt, 1));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "LAST_MODIFIED",

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb ap_ht_time(r->pool, r->finfo.mtime, timefmt, 0));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DOCUMENT_URI", r->uri);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DOCUMENT_PATH_INFO", r->path_info);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifndef WIN32

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb pw = getpwuid(r->finfo.user);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (pw) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "USER_NAME", apr_pstrdup(r->pool, pw->pw_name));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "USER_NAME", apr_psprintf(r->pool, "user#%lu",

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb (unsigned long) r->finfo.user));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif /* ndef WIN32 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((t = strrchr(r->filename, '/'))) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DOCUMENT_NAME", ++t);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "DOCUMENT_NAME", r->uri);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (r->args) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm char *arg_copy = apr_pstrdup(r->pool, r->args);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_unescape_url(arg_copy);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(e, "QUERY_STRING_UNESCAPED",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_escape_shell_cmd(r->pool, arg_copy));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define OUTBUFSIZE 4096

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define PUT_CHAR(c,r) \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding { \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding outbuf[outind++] = c; \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (outind == OUTBUFSIZE) { \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding FLUSH_BUF(r) \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }; \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define FLUSH_BUF(r) \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding { \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rwrite(outbuf, outind, r); \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding outind = 0; \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define GET_CHAR(f,c,ret,r) \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding { \

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_status_t status = apr_getc(&c, f); \

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (status != APR_SUCCESS) { /* either EOF or error -- needs error handling if latter */ \

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (status != APR_EOF) { \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL, \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb "encountered error in GET_CHAR macro, " \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb "mod_include."); \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding } \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding FLUSH_BUF(r); \

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_close(f); \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return ret; \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding } \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int find_string(apr_file_t *in, const char *str, request_rec *r, int printing)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int x, l = strlen(str), p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char outbuf[OUTBUFSIZE];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int outind = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char c;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding p = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, 1, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == str[p]) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((++p) == l) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding FLUSH_BUF(r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (printing) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (x = 0; x < p; x++) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding PUT_CHAR(str[x], r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding PUT_CHAR(c, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding p = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#undef FLUSH_BUF

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#undef PUT_CHAR

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#undef GET_CHAR

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define GET_CHAR(f,c,r,p) \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding { \

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_status_t status = apr_getc(&c, f); \

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (status != APR_SUCCESS) { /* either EOF or error -- needs error handling if latter */ \

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (status != APR_EOF) { \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb ap_log_error(APLOG_MARK, APLOG_STARTUP | APLOG_NOERRNO, 0, NULL, \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb "encountered error in GET_CHAR macro, " \

407cde44becba3694e7c3d81ac99b5d86f4b03a9rbb "mod_include."); \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding } \

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_close(f); \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return r; \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding } \

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#define MAXENTLEN (6)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void decodehtml(char *s)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int val, i, j;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *p = s;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *ents;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding static const char * const entlist[MAXENTLEN + 1] =

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding NULL, /* 0 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding NULL, /* 1 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "lt\074gt\076", /* 2 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "amp\046ETH\320eth\360", /* 3 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "quot\042Auml\304Euml\313Iuml\317Ouml\326Uuml\334auml\344euml\353\

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingiuml\357ouml\366uuml\374yuml\377", /* 4 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "Acirc\302Aring\305AElig\306Ecirc\312Icirc\316Ocirc\324Ucirc\333\

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingucirc\373thorn\376", /* 5 */

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingotilde\365oslash\370ugrave\371uacute\372yacute\375" /* 6 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding };

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*s != '&') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = *s;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding continue;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* find end of entity */

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding continue;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = *s;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding continue;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* is it numeric ? */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (s[1] == '#') {

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

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding s += i;

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

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding p--; /* no data to output */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = RAW_ASCII_CHAR(val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding j = i - 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (j > MAXENTLEN || entlist[j] == NULL) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* wrong length */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = '&';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding continue; /* skip it */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

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

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*ents == '\0') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = '&'; /* unknown */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = RAW_ASCII_CHAR(((const unsigned char *) ents)[j]);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding s += i;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *p = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic char *get_tag(apr_pool_t *p, apr_file_t *in, char *tag, int tagbuf_len, int dodecode)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *t = tag, *tag_val, c, term;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* makes code below a little less cluttered */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding --tagbuf_len;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding do { /* skip whitespace */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe } while (apr_isspace(c));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* tags can't start with - */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == '-') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == '-') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding do {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe } while (apr_isspace(c));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == '>') {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_cpystrn(tag, "done", tagbuf_len);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return tag;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL; /* failed */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* find end of tag name */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (t - tag == tagbuf_len) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *t = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe if (c == '=' || apr_isspace(c)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe *(t++) = apr_tolower(c);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *t++ = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag_val = t;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe while (apr_isspace(c)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p); /* space before = */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c != '=') {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_ungetc(c, in);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding do {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p); /* space after = */

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe } while (apr_isspace(c));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* we should allow a 'name' as a value */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c != '"' && c != '\'') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding term = c;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (t - tag == tagbuf_len) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *t = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == '\\') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *(t++) = c; /* Add backslash */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, NULL, p);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (c == term) { /* Only if */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *(--t) = c; /* Replace backslash ONLY for terminator */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (c == term) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *(t++) = c;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *t = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (dodecode) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding decodehtml(tag_val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm return apr_pstrdup(p, tag_val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int get_directive(apr_file_t *in, char *dest, size_t len, apr_pool_t *p)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *d = dest;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char c;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* make room for nul terminator */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding --len;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* skip initial whitespace */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, 1, p);

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe if (!apr_isspace(c)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* now get directive */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

44d275fe4ce94e3b2d73614b1930a2e43e6fba8fstoddard if (d - dest == (int)len) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe *d++ = apr_tolower(c);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding GET_CHAR(in, c, 1, p);

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe if (apr_isspace(c)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *d = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic void parse_string(request_rec *r, const char *in, char *out,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding size_t length, int leave_name)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char ch;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *next = out;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *end_out;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* leave room for nul terminator */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding end_out = out + length - 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while ((ch = *in++) != '\0') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding switch (ch) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '\\':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (next == end_out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* truncated */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*in == '$') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next++ = *in++;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next++ = ch;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '$':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char var[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *start_of_var_name;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *end_of_var_name; /* end of var name + 1 */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *expansion;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding const char *val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding size_t l;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* guess that the expansion won't happen */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expansion = in - 1;

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++in;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding start_of_var_name = in;

66d349e02d1a5a599a01c977d2c5b0009181f7deben in = ap_strchr_c(in, '}');

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (in == NULL) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR,

b79b743d4cff02d6a830bb7118826a2fd608742amartin 0, r, "Missing '}' on variable \"%s\"",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expansion);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding end_of_var_name = in;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++in;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding start_of_var_name = in;

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe while (apr_isalnum(*in) || *in == '_') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++in;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding end_of_var_name = in;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* what a pain, too bad there's no table_getn where you can

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = end_of_var_name - start_of_var_name;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (l != 0) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = (l > sizeof(var) - 1) ? (sizeof(var) - 1) : l;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy(var, start_of_var_name, l);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding var[l] = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm val = apr_table_get(r->subprocess_env, var);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding expansion = val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = strlen(expansion);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (leave_name) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = in - expansion;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break; /* no expansion to be done */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* zero-length variable name causes just the $ to be copied */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

44d275fe4ce94e3b2d73614b1930a2e43e6fba8fstoddard l = ((int)l > end_out - next) ? (end_out - next) : l;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy(next, expansion, l);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding next += l;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (next == end_out) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* truncated */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next++ = ch;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *next = '\0';

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int include_cgi(char *s, request_rec *r)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *rr = ap_sub_req_lookup_uri(s, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int rr_status;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr->status != HTTP_OK) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* No hardwired path info or query allowed */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ((rr->path_info && rr->path_info[0]) || rr->args) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb if (rr->finfo.protection == 0) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Script gets parameters of the *document*, for back compatibility */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr->path_info = r->path_info; /* hard to get right; see mod_cgi.c */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr->args = r->args;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Force sub_req to be treated as a CGI request, even if ordinary

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr->content_type = CGI_MAGIC_TYPE;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Run it. */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr_status = ap_run_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (ap_is_HTTP_REDIRECT(rr_status)) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm const char *location = apr_table_get(rr->headers_out, "Location");

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding location = ap_escape_html(rr->pool, location);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rvputs(r, "<A HREF=\"", location, "\">", location, "</A>", NULL);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_destroy_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_chdir_file(r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int is_only_below(const char *path)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef HAVE_DRIVE_LETTERS

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (path[1] == ':')

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (path[0] == '/') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (path[0] == '.' && path[1] == '.'

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding && (path[2] == '\0' || path[2] == '/')) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (*path) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*path == '/' && path[1] == '.' && path[2] == '.'

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding && (path[3] == '\0' || path[3] == '/')) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ++path;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_include(apr_file_t *in, request_rec *r, const char *error, int noexec)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "file") || !strcmp(tag, "virtual")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *rr = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *error_fmt = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (tag[0] == 'f') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* be safe; only files in this directory or below allowed */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!is_only_below(parsed_string)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include file \"%s\" "

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr = ap_sub_req_lookup_file(parsed_string, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr = ap_sub_req_lookup_uri(parsed_string, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!error_fmt && rr->status != HTTP_OK) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include \"%s\" in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!error_fmt && noexec && rr->content_type

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding && (strncmp(rr->content_type, "text/", 5))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include potential exec \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (error_fmt == NULL) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* try to avoid recursive includes. We do this by walking

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int founddupe = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *p;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (p = r; p != NULL && !founddupe; p = p->main) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *q;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (q = p; q != NULL; q = q->prev) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if ( (strcmp(q->filename, rr->filename) == 0) ||

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding (strcmp(q->uri, rr->uri) == 0) ){

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding founddupe = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (p != NULL) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "Recursive include of \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* see the Kludge in send_parsed_file for why */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_set_module_config(rr->request_config, &includes_module, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!error_fmt && ap_run_sub_req(rr)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to include \"%s\" in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_chdir_file(r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (error_fmt) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR,

b79b743d4cff02d6a830bb7118826a2fd608742amartin 0, r, error_fmt, tag_val, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* destroy the sub request if it's not a nested include */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr != NULL

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding && ap_get_module_config(rr->request_config, &includes_module)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding != NESTED_INCLUDE_MAGIC) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_destroy_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag include in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingtypedef struct {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef TPF

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding TPF_FORK_CHILD t;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *r;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *s;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding} include_cmd_arg;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic apr_status_t build_argv_list(char ***argv, request_rec *r, apr_pool_t *p)

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh{

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh int numwords, x, idx;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh char *w;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh const char *args = r->args;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

66d349e02d1a5a599a01c977d2c5b0009181f7deben if (!args || !args[0] || ap_strchr_c(args, '=')) {

23cfa61aaed581f103070c8733a493b31f990f9brbb numwords = 1;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh else {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* count the number of keywords */

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh for (x = 0, numwords = 1; args[x]; x++) {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (args[x] == '+') {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ++numwords;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

23cfa61aaed581f103070c8733a493b31f990f9brbb /* Everything is - 1 to account for the first parameter which is the

23cfa61aaed581f103070c8733a493b31f990f9brbb if (numwords > APACHE_ARG_MAX - 1) {

23cfa61aaed581f103070c8733a493b31f990f9brbb numwords = APACHE_ARG_MAX - 1; /* Truncate args to prevent overrun */

23cfa61aaed581f103070c8733a493b31f990f9brbb }

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm *argv = (char **) apr_palloc(p, (numwords + 2) * sizeof(char *));

23cfa61aaed581f103070c8733a493b31f990f9brbb

23cfa61aaed581f103070c8733a493b31f990f9brbb for (x = 1, idx = 1; x < numwords; x++) {

23cfa61aaed581f103070c8733a493b31f990f9brbb w = ap_getword_nulls(p, &args, '+');

23cfa61aaed581f103070c8733a493b31f990f9brbb ap_unescape_url(w);

23cfa61aaed581f103070c8733a493b31f990f9brbb (*argv)[idx++] = ap_escape_shell_cmd(p, w);

23cfa61aaed581f103070c8733a493b31f990f9brbb }

23cfa61aaed581f103070c8733a493b31f990f9brbb (*argv)[idx] = NULL;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh return APR_SUCCESS;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh}

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjhstatic int include_cmd(char *s, request_rec *r)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh include_cmd_arg arg;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh BUFF *script_in;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_procattr_t *procattr;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_proc_t *procnew;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_status_t rc;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_t *env = r->subprocess_env;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh char **argv;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_file_t *file = NULL;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_iol *iol;

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#if defined(RLIMIT_CPU) || defined(RLIMIT_NPROC) || \

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb defined(RLIMIT_DATA) || defined(RLIMIT_VMEM) || defined (RLIMIT_AS)

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb core_dir_config *conf;

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb conf = (core_dir_config *) ap_get_module_config(r->per_dir_config,

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb &core_module);

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh arg.r = r;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh arg.s = s;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh#ifdef TPF

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh arg.t.filename = r->filename;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh arg.t.subprocess_env = r->subprocess_env;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh arg.t.prog_type = FORK_FILE;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (r->path_info && r->path_info[0] != '\0') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *pa_req;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "PATH_INFO", ap_escape_shell_cmd(r->pool, r->path_info));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding pa_req = ap_sub_req_lookup_uri(ap_escape_uri(r->pool, r->path_info), r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (pa_req->filename) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "PATH_TRANSLATED",

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_pstrcat(r->pool, pa_req->filename, pa_req->path_info,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding NULL));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (r->args) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm char *arg_copy = apr_pstrdup(r->pool, r->args);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "QUERY_STRING", r->args);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_unescape_url(arg_copy);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "QUERY_STRING_UNESCAPED",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_escape_shell_cmd(r->pool, arg_copy));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm if ((apr_createprocattr_init(&procattr, r->pool) != APR_SUCCESS) ||

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm (apr_setprocattr_io(procattr, APR_NO_PIPE,

a952e0c6ece342d88f2bc04e20dcfc563398eed3rbb APR_FULL_BLOCK, APR_NO_PIPE) != APR_SUCCESS) ||

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm (apr_setprocattr_dir(procattr, ap_make_dirstr_parent(r->pool, r->filename)) != APR_SUCCESS) ||

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#ifdef RLIMIT_CPU

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_CPU, conf->limit_cpu)) != APR_SUCCESS) ||

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#endif

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#if defined(RLIMIT_DATA) || defined(RLIMIT_VMEM) || defined(RLIMIT_AS)

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_MEM, conf->limit_mem)) != APR_SUCCESS) ||

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#endif

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#ifdef RLIMIT_NPROC

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm ((rc = apr_setprocattr_limit(procattr, APR_LIMIT_NPROC, conf->limit_nproc)) != APR_SUCCESS) ||

b1476ba063e6d9577cd86db3db5dd98ff6bc78b9rbb#endif

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm (apr_setprocattr_cmdtype(procattr, APR_SHELLCMD) != APR_SUCCESS)) {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Something bad happened, tell the world. */

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

14552184cfa95bd49b274b434390cc5195e8375crbb "couldn't initialize proc attributes: %s %s", r->filename, s);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh rc = !APR_SUCCESS;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh else {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh build_argv_list(&argv, r, r->pool);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm argv[0] = apr_pstrdup(r->pool, s);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm procnew = apr_pcalloc(r->pool, sizeof(*procnew));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm rc = apr_create_process(procnew, s, argv, ap_create_environment(r->pool, env), procattr, r->pool);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (rc != APR_SUCCESS) {

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Bad things happened. Everyone should have cleaned up. */

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

14552184cfa95bd49b274b434390cc5195e8375crbb "couldn't create child process: %d: %s", rc, s);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh else {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_note_subprocess(r->pool, procnew, kill_after_timeout);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh /* Fill in BUFF structure for parents pipe to child's stdout */

829bc6b670c7be394ccd33886add7ac39e276976trawick file = procnew->out;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh iol = ap_create_file_iol(file);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh if (!iol)

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh return APR_EBADF;

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh script_in = ap_bcreate(r->pool, B_RD);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_bpush_iol(script_in, iol);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_send_fb(script_in, r);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh ap_bclose(script_in);

e8d9dd6a2f39d9c1a647b0b513de84e39e2235ebbjh }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_exec(apr_file_t *in, request_rec *r, const char *error)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *file = r->filename;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "cmd")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (include_cmd(parsed_string, r) == -1) {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "execution failure for parameter \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "to tag exec in file %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* just in case some stooge changed directories */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_chdir_file(r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "cgi")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (include_cgi(parsed_string, r) == -1) {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "invalid CGI ref \"%s\" in %s", tag_val, file);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_chdir_file(r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag exec in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, file);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_echo(apr_file_t *in, request_rec *r, const char *error)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim enum {E_NONE, E_URL, E_ENTITY} encode;

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim encode = E_ENTITY;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "var")) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm const char *val = apr_table_get(r->subprocess_env, tag_val);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (val) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim if (encode == E_NONE) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim ap_rputs(val, r);

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (encode == E_URL) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim ap_rputs(ap_escape_uri(r->pool, val), r);

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (encode == E_ENTITY) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim ap_rputs(ap_escape_html(r->pool, val), r);

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs("(none)", r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (!strcmp(tag, "encoding")) {

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim if (!strcasecmp(tag_val, "none")) encode = E_NONE;

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (!strcasecmp(tag_val, "url")) encode = E_URL;

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else if (!strcasecmp(tag_val, "entity")) encode = E_ENTITY;

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim else {

0c17e19b2f9ebb28c25f9efa6cd58d257e1ad728dreid ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim "unknown value \"%s\" to parameter \"encoding\" of "

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim "tag echo in %s",

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim tag_val, r->filename);

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim ap_rputs(error, r);

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim }

3a9bc6532fbe8439fc748d8ffedb87415904d16ajim

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag echo in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#ifdef USE_PERL_SSI

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_perl(apr_file_t *in, request_rec *r, const char *error)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding SV *sub = Nullsv;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding AV *av = newAV();

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (ap_allow_options(r) & OPT_INCNOEXEC) {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "#perl SSI disallowed by IncludesNoExec in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return DECLINED;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (strnEQ(tag, "sub", 3)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding sub = newSVpv(tag_val, 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (strnEQ(tag, "arg", 3)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding av_push(av, newSVpv(parsed_string, 0));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (strnEQ(tag, "done", 4)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding perl_stdout2client(r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding perl_setup_env(r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding perl_call_handler(sub, r, av);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return OK;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding#endif

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_config(apr_file_t *in, request_rec *r, char *error, char *tf,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int *sizefmt)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_t *env = r->subprocess_env;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 0))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "errmsg")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, error, MAX_STRING_LEN, 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "timefmt")) {

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_time_t date = r->request_time;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, tf, MAX_STRING_LEN, 0);

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "DATE_LOCAL", ap_ht_time(r->pool, date, tf, 0));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "DATE_GMT", ap_ht_time(r->pool, date, tf, 1));

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_table_setn(env, "LAST_MODIFIED",

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb ap_ht_time(r->pool, r->finfo.mtime, tf, 0));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "sizefmt")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding decodehtml(parsed_string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(parsed_string, "bytes")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *sizefmt = SIZEFMT_BYTES;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(parsed_string, "abbrev")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding *sizefmt = SIZEFMT_KMG;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag config in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int find_file(request_rec *r, const char *directive, const char *tag,

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm char *tag_val, apr_finfo_t *finfo, const char *error)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *to_send = tag_val;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding request_rec *rr = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int ret=0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *error_fmt = NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!strcmp(tag, "file")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* be safe; only files in this directory or below allowed */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!is_only_below(tag_val)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to access file \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_getparents(tag_val); /* get rid of any nasties */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr = ap_sub_req_lookup_file(tag_val, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb if (rr->status == HTTP_OK && rr->finfo.protection != 0) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding to_send = rr->filename;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm if (apr_stat(finfo, to_send, rr->pool) != APR_SUCCESS) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to get information about \"%s\" "

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding error_fmt = "unable to lookup information about \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s";

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (error_fmt) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ret = -1;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm /* TODO: pass APLOG_NOERRNO if no apr_stat() failure; pass rv from apr_stat()

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, error_fmt, to_send, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (rr) ap_destroy_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return ret;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "virtual")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding rr = ap_sub_req_lookup_uri(tag_val, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

d96aa158770d3f83cb59cf0f2f7402e175f7dfccrbb if (rr->status == HTTP_OK && rr->finfo.protection != 0) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding memcpy((char *) finfo, (const char *) &rr->finfo,

85482525adee8e37838e0a5fca66e740a7fb5c2estoddard sizeof(rr->finfo));

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_destroy_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unable to get information about \"%s\" "

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "in parsed file %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag_val, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_destroy_sub_req(rr);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding "unknown parameter \"%s\" to tag %s in %s",

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding tag, directive, r->filename);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputs(error, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_fsize(apr_file_t *in, request_rec *r, const char *error, int sizefmt)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_finfo_t finfo;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!find_file(r, "fsize", tag, parsed_string, &finfo, error)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (sizefmt == SIZEFMT_KMG) {

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard ap_send_size(finfo.size, r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int l, x;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_snprintf(tag, sizeof(tag), "%" APR_OFF_T_FMT, finfo.size);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding l = strlen(tag); /* grrr */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (x = 0; x < l; x++) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (x && (!((l - x) % 3))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputc(',', r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_rputc(tag[x], r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

1ccd992d37d62c8cb2056126f2234f64ec189bfddougmstatic int handle_flastmod(apr_file_t *in, request_rec *r, const char *error, const char *tf)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char tag[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char *tag_val;

1ccd992d37d62c8cb2056126f2234f64ec189bfddougm apr_finfo_t finfo;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char parsed_string[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while (1) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!(tag_val = get_tag(r->pool, in, tag, sizeof(tag), 1))) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else if (!strcmp(tag, "done")) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding parse_string(r, tag_val, parsed_string, sizeof(parsed_string), 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!find_file(r, "flastmod", tag, parsed_string, &finfo, error)) {

9274c5e05fbb6b9890099c0c20aa35d747d42be1stoddard ap_rputs(ap_ht_time(r->pool, finfo.mtime, tf, 0), r);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic int re_check(request_rec *r, char *string, char *rexp)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding regex_t *compiled;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int regex_error;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding compiled = ap_pregcomp(r->pool, rexp, REG_EXTENDED | REG_NOSUB);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (compiled == NULL) {

b79b743d4cff02d6a830bb7118826a2fd608742amartin ap_log_rerror(APLOG_MARK, APLOG_NOERRNO|APLOG_ERR, 0, r,

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return -1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding regex_error = ap_regexec(compiled, string, 0, (regmatch_t *) NULL, 0);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding ap_pregfree(r->pool, compiled);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (!regex_error);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding}

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingenum token_type {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_string,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_and, token_or, token_not, token_eq, token_ne,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_rbrace, token_lbrace, token_group,

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token_ge, token_le, token_gt, token_lt

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding};

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstruct token {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding enum token_type type;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char value[MAX_STRING_LEN];

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding};

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefieldingstatic const char *get_ptoken(request_rec *r, const char *string, struct token *token)

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding{

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding char ch;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int next = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding int qs = 0;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* Skip leading white space */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (string == (char *) NULL) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding while ((ch = *string++)) {

10a4cdd68ef1ca0e54af296fe1d08ac00150c90bwrowe if (!apr_isspace(ch)) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (ch == '\0') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (char *) NULL;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_string; /* the default type */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding switch (ch) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '(':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_lbrace;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case ')':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_rbrace;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '=':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_eq;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '!':

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_ne;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string + 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_not;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '\'':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_string;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding qs = 1;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '|':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*string == '|') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_or;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string + 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '&':

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (*string == '&') {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_and;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string + 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '>':

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_ge;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string + 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_gt;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding case '<':

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

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_le;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string + 1);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding else {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_lt;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding return (string);

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding default:

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->type = token_string;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding break;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /* We should only be here if we are in a string */

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding if (!qs) {

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding token->value[next++] = ch;

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding }

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /*

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding /*

0f081398cf0eef8cc7c66a535d450110a92dc8aefielding for (ch = *string; ch != '\0'; ch = *++string) {