cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "mod_proxy.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "mod_core.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "apr_optional.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "scoreboard.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "mod_status.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "proxy_util.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#if (MODULE_MAGIC_NUMBER_MAJOR > 20020903)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#include "mod_ssl.h"

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse#else

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrseAPR_DECLARE_OPTIONAL_FN(int, ssl_proxy_enable, (conn_rec *));

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrseAPR_DECLARE_OPTIONAL_FN(int, ssl_engine_disable, (conn_rec *));

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rseAPR_DECLARE_OPTIONAL_FN(int, ssl_is_https, (conn_rec *));

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rseAPR_DECLARE_OPTIONAL_FN(char *, ssl_var_lookup,

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse (apr_pool_t *, server_rec *,

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse conn_rec *, request_rec *, char *));

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse#endif

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse#ifndef MAX

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse#define MAX(x,y) ((x) >= (y) ? (x) : (y))

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse#endif

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rsestatic const char *set_worker_param(apr_pool_t *p,

d86ef5503dcbc38e87c0e03cd3e1f16458cb6323rse proxy_worker *worker,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse const char *key,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse const char *val)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse{

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse int ival;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse apr_interval_time_t timeout;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

e18e68b42830409bf48de0df9eed3fe363664aa7aaron if (!strcasecmp(key, "loadfactor")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Normalized load factor. Used with BalancerMamber,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->lbfactor = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (worker->s->lbfactor < 1 || worker->s->lbfactor > 100)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "LoadFactor must be a number between 1..100";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "retry")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* If set it will give the retry timeout for the worker

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 0)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Retry must be a positive value";

05413593151a238718198cc04ca849b2426be106rse worker->s->retry = apr_time_from_sec(ival);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->retry_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "ttl")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Time in seconds that will destroy all the connections

434ad3e8e769a6a7a78c15f3ae2f7ae3adbfbb49wrowe ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 1)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "TTL must be at least one second";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->ttl = apr_time_from_sec(ival);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

05413593151a238718198cc04ca849b2426be106rse else if (!strcasecmp(key, "min")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Initial number of connections to remote

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 0)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Min must be a positive number";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->min = ival;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "max")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Maximum number of connections to remote

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 0)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Max must be a positive number";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->hmax = ival;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* XXX: More inteligent naming needed */

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "smax")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Maximum number of connections to remote that

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron ival = atoi(val);

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron if (ival < 0)

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron return "Smax must be a positive number";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->smax = ival;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "acquire")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Acquire timeout in given unit (default is milliseconds).

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ap_timeout_parameter_parse(val, &timeout, "ms") != APR_SUCCESS)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Acquire timeout has wrong format";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (timeout < 1000)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Acquire must be at least one millisecond";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->acquire = timeout;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->acquire_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "timeout")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Connection timeout in seconds.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron if (ival < 1)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Timeout must be at least one second";

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron worker->s->timeout = apr_time_from_sec(ival);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->timeout_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "iobuffersize")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse long s = atol(val);

87a1c79b7b37702a254920ca5214fb282a4fb085dougm if (s < 512 && s) {

87a1c79b7b37702a254920ca5214fb282a4fb085dougm return "IOBufferSize must be >= 512 bytes, or 0 for system default.";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->io_buffer_size = (s ? s : AP_IOBUFSIZE);

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->io_buffer_size_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else if (!strcasecmp(key, "receivebuffersize")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse if (ival < 512 && ival != 0) {

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse return "ReceiveBufferSize must be >= 512 bytes, or 0 for system default.";

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->recv_buffer_size = ival;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->recv_buffer_size_set = 1;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else if (!strcasecmp(key, "keepalive")) {

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse if (!strcasecmp(val, "on"))

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->keepalive = 1;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else if (!strcasecmp(val, "off"))

87a1c79b7b37702a254920ca5214fb282a4fb085dougm worker->s->keepalive = 0;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse return "KeepAlive must be On|Off";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->keepalive_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else if (!strcasecmp(key, "disablereuse")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (!strcasecmp(val, "on"))

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse worker->s->disablereuse = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(val, "off"))

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->disablereuse = 0;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "DisableReuse must be On|Off";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->disablereuse_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

87a1c79b7b37702a254920ca5214fb282a4fb085dougm else if (!strcasecmp(key, "route")) {

87a1c79b7b37702a254920ca5214fb282a4fb085dougm /* Worker route.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (strlen(val) >= PROXY_WORKER_MAX_ROUTE_SIZE)

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse return "Route length must be < 64 characters";

87a1c79b7b37702a254920ca5214fb282a4fb085dougm PROXY_STRNCPY(worker->s->route, val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "redirect")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Worker redirection route.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (strlen(val) >= PROXY_WORKER_MAX_ROUTE_SIZE)

87a1c79b7b37702a254920ca5214fb282a4fb085dougm return "Redirect length must be < 64 characters";

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse PROXY_STRNCPY(worker->s->redirect, val);

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "status")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse const char *v;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse int mode = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse apr_status_t rv;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Worker status.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse for (v = val; *v; v++) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (*v == '+') {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse mode = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse v++;

03181bdde77be8e10ed297a02db5d8f98ecb703ewrowe }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (*v == '-') {

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse mode = 0;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse v++;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse rv = ap_proxy_set_wstatus(*v, mode, worker);

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse if (rv != APR_SUCCESS)

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse return "Unknown status parameter option";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "flushpackets")) {

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse if (!strcasecmp(val, "on"))

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->flush_packets = flush_on;

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse else if (!strcasecmp(val, "off"))

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->flush_packets = flush_off;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(val, "auto"))

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->flush_packets = flush_auto;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "flushpackets must be on|off|auto";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "flushwait")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival > 1000 || ival < 0) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "flushwait must be <= 1000, or 0 for system default of 10 millseconds.";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival == 0)

7f683bb300df767164724ebc664f339ac396b434dougm worker->s->flush_wait = PROXY_FLUSH_WAIT;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->flush_wait = ival * 1000; /* change to microseconds */

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "ping")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Ping/Pong timeout in given unit (default is second).

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ap_timeout_parameter_parse(val, &timeout, "s") != APR_SUCCESS)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Ping/Pong timeout has wrong format";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (timeout < 1000)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Ping/Pong timeout must be at least one millisecond";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->ping_timeout = timeout;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->ping_timeout_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "lbset")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 0 || ival > 99)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "lbset must be between 0 and 99";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->lbset = ival;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "connectiontimeout")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Request timeout in given unit (default is second).

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ap_timeout_parameter_parse(val, &timeout, "s") != APR_SUCCESS)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Connectiontimeout has wrong format";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (timeout < 1000)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "Connectiontimeout must be at least one millisecond.";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->conn_timeout = timeout;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse worker->s->conn_timeout_set = 1;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "flusher")) {

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron if (strlen(val) >= PROXY_WORKER_MAX_SCHEME_SIZE)

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron return "flusher name length must be < 16 characters";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse PROXY_STRNCPY(worker->s->flusher, val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "unknown Worker parameter";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return NULL;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse}

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrsestatic const char *set_balancer_param(proxy_server_conf *conf,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse apr_pool_t *p,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse proxy_balancer *balancer,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse const char *key,

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse const char *val)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse{

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse int ival;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (!strcasecmp(key, "stickysession")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse char *path;

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Balancer sticky session name.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (strlen(val) > (PROXY_BALANCER_MAX_STICKY_SIZE-1))

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "stickysession length must be < 64 characters";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse PROXY_STRNCPY(balancer->s->sticky_path, val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse PROXY_STRNCPY(balancer->s->sticky, val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if ((path = strchr((char *)balancer->s->sticky, '|'))) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse *path++ = '\0';

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse PROXY_STRNCPY(balancer->s->sticky_path, path);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse else if (!strcasecmp(key, "nofailover")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* If set to 'on' the session will break

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (!strcasecmp(val, "on"))

bb0b94431dc9a1591a0a38a6c48925c6d9213c83rse balancer->s->sticky_force = 1;

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron else if (!strcasecmp(val, "off"))

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron balancer->s->sticky_force = 0;

421d9002d73db52972bcca8f4497fe5d603b6b8eaaron else

184f5da95d14895f7f33c90b8b8f70653afb0d92wrowe return "failover must be On|Off";

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse }

184f5da95d14895f7f33c90b8b8f70653afb0d92wrowe else if (!strcasecmp(key, "timeout")) {

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse /* Balancer timeout in seconds.

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse ival = atoi(val);

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse if (ival < 1)

cc003103e52ff9d5fe9bed567ef9438613ab4fbfrse return "timeout must be at least one second";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->s->timeout = apr_time_from_sec(ival);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(key, "maxattempts")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm /* Maximum number of failover attempts before

a0e0d20b666cfc453ac76506079eb50e03997eefdougm ival = atoi(val);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (ival < 0)

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "maximum number of attempts must be a positive number";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->s->max_attempts = ival;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->s->max_attempts_set = 1;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(key, "lbmethod")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm proxy_balancer_method *provider;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (strlen(val) > (sizeof(balancer->s->lbpname)-1))

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "unknown lbmethod";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm provider = ap_lookup_provider(PROXY_LBMETHOD, val, "0");

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (provider) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->lbmethod = provider;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (PROXY_STRNCPY(balancer->s->lbpname, val) == APR_SUCCESS) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return NULL;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "lbmethod name too large";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "unknown lbmethod";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(key, "scolonpathdelim")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm /* If set to 'on' then ';' will also be

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (!strcasecmp(val, "on"))

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->s->scolonsep = 1;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(val, "off"))

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->s->scolonsep = 0;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "scolonpathdelim must be On|Off";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(key, "failonstatus")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm char *val_split;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm char *status;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm char *tok_state;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm

a0e0d20b666cfc453ac76506079eb50e03997eefdougm val_split = apr_pstrdup(p, val);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm

a0e0d20b666cfc453ac76506079eb50e03997eefdougm balancer->errstatuses = apr_array_make(p, 1, sizeof(int));

a0e0d20b666cfc453ac76506079eb50e03997eefdougm

a0e0d20b666cfc453ac76506079eb50e03997eefdougm status = apr_strtok(val_split, ", ", &tok_state);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm while (status != NULL) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm ival = atoi(status);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (ap_is_HTTP_VALID_RESPONSE(ival)) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm *(int *)apr_array_push(balancer->errstatuses) = ival;

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm return "failonstatus must be one or more HTTP response codes";

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm status = apr_strtok(NULL, ", ", &tok_state);

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm

a0e0d20b666cfc453ac76506079eb50e03997eefdougm }

a0e0d20b666cfc453ac76506079eb50e03997eefdougm else if (!strcasecmp(key, "nonce")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm if (!strcasecmp(val, "None")) {

a0e0d20b666cfc453ac76506079eb50e03997eefdougm *balancer->s->nonce = '\0';

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm }

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm else {

dd7c683f683624b082d430935b594df7406782c2dougm if (PROXY_STRNCPY(balancer->s->nonce, val) != APR_SUCCESS) {

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm return "Provided nonce is too large";

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm }

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm }

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm }

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm else if (!strcasecmp(key, "growth")) {

dd7c683f683624b082d430935b594df7406782c2dougm ival = atoi(val);

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm if (ival < 1 || ival > 100) /* arbitrary limit here */

22357f10585a847ebf7b084cbe1db07ba071aeb6dougm return "growth must be between 1 and 100";

dd7c683f683624b082d430935b594df7406782c2dougm balancer->growth = ival;

dd7c683f683624b082d430935b594df7406782c2dougm }

dd7c683f683624b082d430935b594df7406782c2dougm else if (!strcasecmp(key, "forcerecovery")) {

dd7c683f683624b082d430935b594df7406782c2dougm if (!strcasecmp(val, "on"))

dd7c683f683624b082d430935b594df7406782c2dougm balancer->s->forcerecovery = 1;

dd7c683f683624b082d430935b594df7406782c2dougm else if (!strcasecmp(val, "off"))

dd7c683f683624b082d430935b594df7406782c2dougm balancer->s->forcerecovery = 0;

dd7c683f683624b082d430935b594df7406782c2dougm else

dd7c683f683624b082d430935b594df7406782c2dougm return "forcerecovery must be On|Off";

dd7c683f683624b082d430935b594df7406782c2dougm }

6a26d195dfba3a91f8352cabd4547afa77675bb1aaron else {

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm return "unknown Balancer parameter";

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm }

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm return NULL;

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm}

e18e68b42830409bf48de0df9eed3fe363664aa7aaron

3c65aa88903de7330a07e133dfda779842fadad4wrowestatic int alias_match(const char *uri, const char *alias_fakename)

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm{

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe const char *end_fakename = alias_fakename + strlen(alias_fakename);

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe const char *aliasp = alias_fakename, *urip = uri;

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe const char *end_uri = uri + strlen(uri);

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe while (aliasp < end_fakename && urip < end_uri) {

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe if (*aliasp == '/') {

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe /* any number of '/' in the alias matches any number in

d54a31567fc49f1841d27a14796ae726016c54aadougm if (*urip != '/')

3c65aa88903de7330a07e133dfda779842fadad4wrowe return 0;

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm while (*aliasp == '/')

3c65aa88903de7330a07e133dfda779842fadad4wrowe ++aliasp;

3c65aa88903de7330a07e133dfda779842fadad4wrowe while (*urip == '/')

3c65aa88903de7330a07e133dfda779842fadad4wrowe ++urip;

3c65aa88903de7330a07e133dfda779842fadad4wrowe }

3c65aa88903de7330a07e133dfda779842fadad4wrowe else {

3c65aa88903de7330a07e133dfda779842fadad4wrowe /* Other characters are compared literally */

3c65aa88903de7330a07e133dfda779842fadad4wrowe if (*urip++ != *aliasp++)

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe return 0;

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe }

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe }

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe /* fixup badly encoded stuff (e.g. % as last character) */

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe if (aliasp > end_fakename) {

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe aliasp = end_fakename;

b40799adcfd0f0a2a465c2934585986f7bbc9bbcwrowe }

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm if (urip > end_uri) {

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm urip = end_uri;

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm }

dd9940ba9b4d9c09f034b910d1569db4a5111c75dougm

e62985c7a1b46a5036a247f35bddac1308985758dougm /* We reach the end of the uri before the end of "alias_fakename"

98f81eac9530d487f05013cda9df99755bb59689trawick if (urip == end_uri && aliasp != end_fakename) {

98f81eac9530d487f05013cda9df99755bb59689trawick return 0;

98f81eac9530d487f05013cda9df99755bb59689trawick }

98f81eac9530d487f05013cda9df99755bb59689trawick

98f81eac9530d487f05013cda9df99755bb59689trawick /* Check last alias path component matched all the way */

98f81eac9530d487f05013cda9df99755bb59689trawick if (aliasp[-1] != '/' && *urip != '\0' && *urip != '/')

98f81eac9530d487f05013cda9df99755bb59689trawick return 0;

98f81eac9530d487f05013cda9df99755bb59689trawick

98f81eac9530d487f05013cda9df99755bb59689trawick /* Return number of characters from URI which matched (may be

e62985c7a1b46a5036a247f35bddac1308985758dougm

e62985c7a1b46a5036a247f35bddac1308985758dougm return urip - uri;

8464a9c46b967001e38fe3c8afff51a649e9de51dougm}

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm

3c65aa88903de7330a07e133dfda779842fadad4wrowestatic int proxy_detect(request_rec *r)

3c65aa88903de7330a07e133dfda779842fadad4wrowe{

8464a9c46b967001e38fe3c8afff51a649e9de51dougm void *sconf = r->server->module_config;

3c65aa88903de7330a07e133dfda779842fadad4wrowe proxy_server_conf *conf =

e18e68b42830409bf48de0df9eed3fe363664aa7aaron (proxy_server_conf *) ap_get_module_config(sconf, &proxy_module);

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm /* Ick... msvc (perhaps others) promotes ternary short results to int */

e62985c7a1b46a5036a247f35bddac1308985758dougm

9e530d1e49062250c345bfd45810e145b4f435eddougm if (conf->req && r->parsed_uri.scheme) {

e62985c7a1b46a5036a247f35bddac1308985758dougm /* but it might be something vhosted */

8464a9c46b967001e38fe3c8afff51a649e9de51dougm if (!(r->parsed_uri.hostname

3c65aa88903de7330a07e133dfda779842fadad4wrowe && !strcasecmp(r->parsed_uri.scheme, ap_http_scheme(r))

3c65aa88903de7330a07e133dfda779842fadad4wrowe && ap_matches_request_vhost(r, r->parsed_uri.hostname,

d94fd18ee21dc9b8c1f422144a881e941687d41fdougm (apr_port_t)(r->parsed_uri.port_str ? r->parsed_uri.port

6a26d195dfba3a91f8352cabd4547afa77675bb1aaron : ap_default_port(r))))) {

r->proxyreq = PROXYREQ_PROXY;

r->uri = r->unparsed_uri;

r->filename = apr_pstrcat(r->pool, "proxy:", r->uri, NULL);

r->handler = "proxy-server";

}

}

/* We need special treatment for CONNECT proxying: it has no scheme part */

else if (conf->req && r->method_number == M_CONNECT

&& r->parsed_uri.hostname

&& r->parsed_uri.port_str) {

r->proxyreq = PROXYREQ_PROXY;

r->uri = r->unparsed_uri;

r->filename = apr_pstrcat(r->pool, "proxy:", r->uri, NULL);

r->handler = "proxy-server";

}

return DECLINED;

}

static const char *proxy_interpolate(request_rec *r, const char *str)

{

/* Interpolate an env str in a configuration string

const char *start;

const char *end;

const char *var;

const char *val;

const char *firstpart;

start = ap_strstr_c(str, "${");

if (start == NULL) {

return str;

}

end = ap_strchr_c(start+2, '}');

if (end == NULL) {

return str;

}

/* OK, this is syntax we want to interpolate. Is there such a var ? */

var = apr_pstrndup(r->pool, start+2, end-(start+2));

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

firstpart = apr_pstrndup(r->pool, str, (start-str));

if (val == NULL) {

return apr_pstrcat(r->pool, firstpart,

proxy_interpolate(r, end+1), NULL);

}

else {

return apr_pstrcat(r->pool, firstpart, val,

proxy_interpolate(r, end+1), NULL);

}

}

static apr_array_header_t *proxy_vars(request_rec *r,

apr_array_header_t *hdr)

{

int i;

apr_array_header_t *ret = apr_array_make(r->pool, hdr->nelts,

sizeof (struct proxy_alias));

struct proxy_alias *old = (struct proxy_alias *) hdr->elts;

for (i = 0; i < hdr->nelts; ++i) {

struct proxy_alias *newcopy = apr_array_push(ret);

newcopy->fake = (old[i].flags & PROXYPASS_INTERPOLATE)

? proxy_interpolate(r, old[i].fake) : old[i].fake;

newcopy->real = (old[i].flags & PROXYPASS_INTERPOLATE)

? proxy_interpolate(r, old[i].real) : old[i].real;

}

return ret;

}

PROXY_DECLARE(int) ap_proxy_trans_match(request_rec *r, struct proxy_alias *ent,

proxy_dir_conf *dconf)

{

int len;

const char *fake;

const char *real;

ap_regmatch_t regm[AP_MAX_REG_MATCH];

ap_regmatch_t reg1[AP_MAX_REG_MATCH];

char *found = NULL;

int mismatch = 0;

unsigned int nocanon = ent->flags & PROXYPASS_NOCANON;

const char *use_uri = nocanon ? r->unparsed_uri : r->uri;

if (dconf && (dconf->interpolate_env == 1) && (ent->flags & PROXYPASS_INTERPOLATE)) {

fake = proxy_interpolate(r, ent->fake);

real = proxy_interpolate(r, ent->real);

}

else {

fake = ent->fake;

real = ent->real;

}

if (ent->regex) {

if (!ap_regexec(ent->regex, r->uri, AP_MAX_REG_MATCH, regm, 0)) {

if ((real[0] == '!') && (real[1] == '\0')) {

return DECLINED;

}

/* test that we haven't reduced the URI */

if (nocanon && ap_regexec(ent->regex, r->unparsed_uri,

AP_MAX_REG_MATCH, reg1, 0)) {

mismatch = 1;

use_uri = r->uri;

}

found = ap_pregsub(r->pool, real, use_uri, AP_MAX_REG_MATCH,

(use_uri == r->uri) ? regm : reg1);

if (!found) {

ap_log_rerror(APLOG_MARK, APLOG_CRIT, 0, r, APLOGNO(01135)

"Substitution in regular expression failed. "

"Replacement too long?");

return HTTP_INTERNAL_SERVER_ERROR;

}

/* Note: The strcmp() below catches cases where there

if (strcmp(found, real) != 0) {

found = apr_pstrcat(r->pool, "proxy:", found, NULL);

}

else {

found = apr_pstrcat(r->pool, "proxy:", real, use_uri, NULL);

}

}

}

else {

len = alias_match(r->uri, fake);

if (len != 0) {

if ((real[0] == '!') && (real[1] == '\0')) {

return DECLINED;

}

if (nocanon && len != alias_match(r->unparsed_uri, ent->fake)) {

mismatch = 1;

use_uri = r->uri;

}

found = apr_pstrcat(r->pool, "proxy:", real, use_uri + len, NULL);

}

}

if (mismatch) {

/* We made a reducing transformation, so we can't safely use

ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01136)

"Unescaped URL path matched ProxyPass; ignoring unsafe nocanon");

}

if (found) {

r->filename = found;

r->handler = "proxy-server";

r->proxyreq = PROXYREQ_REVERSE;

if (nocanon && !mismatch) {

/* mod_proxy_http needs to be told. Different module. */

apr_table_setn(r->notes, "proxy-nocanon", "1");

}

if (ent->flags & PROXYPASS_NOQUERY) {

apr_table_setn(r->notes, "proxy-noquery", "1");

}

return OK;

}

return DONE;

}

static int proxy_trans(request_rec *r)

{

int i;

struct proxy_alias *ent;

proxy_dir_conf *dconf;

proxy_server_conf *conf;

if (r->proxyreq) {

/* someone has already set up the proxy, it was possibly ourselves

return OK;

}

if ((r->unparsed_uri[0] == '*' && r->unparsed_uri[1] == '\0')

|| !r->uri || r->uri[0] != '/') {

return DECLINED;

}

/* XXX: since r->uri has been manipulated already we're not really

dconf = ap_get_module_config(r->per_dir_config, &proxy_module);

/* short way - this location is reverse proxied? */

if (dconf->alias) {

int rv = ap_proxy_trans_match(r, dconf->alias, dconf);

if (DONE != rv) {

return rv;

}

}

conf = (proxy_server_conf *) ap_get_module_config(r->server->module_config,

&proxy_module);

/* long way - walk the list of aliases, find a match */

if (conf->aliases->nelts) {

ent = (struct proxy_alias *) conf->aliases->elts;

for (i = 0; i < conf->aliases->nelts; i++) {

int rv = ap_proxy_trans_match(r, &ent[i], dconf);

if (DONE != rv) {

return rv;

}

}

}

return DECLINED;

}

static int proxy_walk(request_rec *r)

{

proxy_server_conf *sconf = ap_get_module_config(r->server->module_config,

&proxy_module);

ap_conf_vector_t *per_dir_defaults = r->server->lookup_defaults;

ap_conf_vector_t **sec_proxy = (ap_conf_vector_t **) sconf->sec_proxy->elts;

ap_conf_vector_t *entry_config;

proxy_dir_conf *entry_proxy;

int num_sec = sconf->sec_proxy->nelts;

/* XXX: shouldn't we use URI here? Canonicalize it first?

const char *proxyname = r->filename + 6;

int j;

for (j = 0; j < num_sec; ++j)

{

entry_config = sec_proxy[j];

entry_proxy = ap_get_module_config(entry_config, &proxy_module);

/* XXX: What about case insensitive matching ???

if (entry_proxy->r

? ap_regexec(entry_proxy->r, proxyname, 0, NULL, 0)

: (entry_proxy->p_is_fnmatch

? apr_fnmatch(entry_proxy->p, proxyname, 0)

: strncmp(proxyname, entry_proxy->p,

strlen(entry_proxy->p)))) {

continue;

}

per_dir_defaults = ap_merge_per_dir_configs(r->pool, per_dir_defaults,

entry_config);

}

r->per_dir_config = per_dir_defaults;

return OK;

}

static int proxy_map_location(request_rec *r)

{

int access_status;

if (!r->proxyreq || !r->filename || strncmp(r->filename, "proxy:", 6) != 0)

return DECLINED;

/* Don't let the core or mod_http map_to_storage hooks handle this,

if ((access_status = proxy_walk(r))) {

ap_die(access_status, r);

return access_status;

}

return OK;

}

static int proxy_fixup(request_rec *r)

{

char *url, *p;

int access_status;

proxy_dir_conf *dconf = ap_get_module_config(r->per_dir_config,

&proxy_module);

if (!r->proxyreq || !r->filename || strncmp(r->filename, "proxy:", 6) != 0)

return DECLINED;

/* XXX: Shouldn't we try this before we run the proxy_walk? */

url = &r->filename[6];

if ((dconf->interpolate_env == 1) && (r->proxyreq == PROXYREQ_REVERSE)) {

/* create per-request copy of reverse proxy conf,

proxy_req_conf *rconf = apr_palloc(r->pool, sizeof(proxy_req_conf));

ap_set_module_config(r->request_config, &proxy_module, rconf);

rconf->raliases = proxy_vars(r, dconf->raliases);

rconf->cookie_paths = proxy_vars(r, dconf->cookie_paths);

rconf->cookie_domains = proxy_vars(r, dconf->cookie_domains);

}

/* canonicalise each specific scheme */

if ((access_status = proxy_run_canon_handler(r, url))) {

return access_status;

}

p = strchr(url, ':');

if (p == NULL || p == url)

return HTTP_BAD_REQUEST;

return OK; /* otherwise; we've done the best we can */

}

static int proxy_needsdomain(request_rec *r, const char *url, const char *domain)

{

char *nuri;

const char *ref;

/* We only want to worry about GETs */

if (!r->proxyreq || r->method_number != M_GET || !r->parsed_uri.hostname)

return DECLINED;

/* If host does contain a dot already, or it is "localhost", decline */

if (strchr(r->parsed_uri.hostname, '.') != NULL /* has domain, or IPv4 literal */

|| strchr(r->parsed_uri.hostname, ':') != NULL /* IPv6 literal */

|| strcasecmp(r->parsed_uri.hostname, "localhost") == 0)

return DECLINED; /* host name has a dot already */

ref = apr_table_get(r->headers_in, "Referer");

/* Reassemble the request, but insert the domain after the host name */

/* Note that the domain name always starts with a dot */

r->parsed_uri.hostname = apr_pstrcat(r->pool, r->parsed_uri.hostname,

domain, NULL);

nuri = apr_uri_unparse(r->pool,

&r->parsed_uri,

APR_URI_UNP_REVEALPASSWORD);

apr_table_setn(r->headers_out, "Location", nuri);

ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, APLOGNO(01138)

"Domain missing: %s sent to %s%s%s", r->uri,

apr_uri_unparse(r->pool, &r->parsed_uri,

APR_URI_UNP_OMITUSERINFO),

ref ? " from " : "", ref ? ref : "");

return HTTP_MOVED_PERMANENTLY;

}

static int proxy_handler(request_rec *r)

{

char *uri, *scheme, *p;

const char *p2;

void *sconf = r->server->module_config;

proxy_server_conf *conf = (proxy_server_conf *)

ap_get_module_config(sconf, &proxy_module);

apr_array_header_t *proxies = conf->proxies;

struct proxy_remote *ents = (struct proxy_remote *) proxies->elts;

int i, rc, access_status;

int direct_connect = 0;

const char *str;

long maxfwd;

proxy_balancer *balancer = NULL;

proxy_worker *worker = NULL;

int attempts = 0, max_attempts = 0;

struct dirconn_entry *list = (struct dirconn_entry *)conf->dirconn->elts;

/* is this for us? */

if (!r->proxyreq || !r->filename || strncmp(r->filename, "proxy:", 6) != 0)

return DECLINED;

/* handle max-forwards / OPTIONS / TRACE */

if ((str = apr_table_get(r->headers_in, "Max-Forwards"))) {

maxfwd = strtol(str, NULL, 10);

if (maxfwd < 1) {

switch (r->method_number) {

case M_TRACE: {

int access_status;

r->proxyreq = PROXYREQ_NONE;

if ((access_status = ap_send_http_trace(r)))

ap_die(access_status, r);

else

ap_finalize_request_protocol(r);

return OK;

}

case M_OPTIONS: {

int access_status;

r->proxyreq = PROXYREQ_NONE;

if ((access_status = ap_send_http_options(r)))

ap_die(access_status, r);

else

ap_finalize_request_protocol(r);

return OK;

}

default: {

return ap_proxyerror(r, HTTP_BAD_GATEWAY,

"Max-Forwards has reached zero - proxy loop?");

}

}

}

maxfwd = (maxfwd > 0) ? maxfwd - 1 : 0;

}

else {

/* set configured max-forwards */

maxfwd = conf->maxfwd;

}

if (maxfwd >= 0) {

apr_table_setn(r->headers_in, "Max-Forwards",

apr_psprintf(r->pool, "%ld", maxfwd));

}

if (r->method_number == M_TRACE) {

core_server_config *coreconf = (core_server_config *)

ap_get_core_module_config(sconf);

if (coreconf->trace_enable == AP_TRACE_DISABLE)

{

/* Allow "error-notes" string to be printed by ap_send_error_response()

apr_table_setn(r->notes, "error-notes",

"TRACE forbidden by server configuration");

apr_table_setn(r->notes, "verbose-error-to", "*");

ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01139)

"TRACE forbidden by server configuration");

return HTTP_METHOD_NOT_ALLOWED;

}

/* Can't test ap_should_client_block, we aren't ready to send

if (coreconf->trace_enable != AP_TRACE_EXTENDED

&& (r->read_length || r->read_chunked || r->remaining))

{

/* Allow "error-notes" string to be printed by ap_send_error_response()

apr_table_setn(r->notes, "error-notes",

"TRACE with request body is not allowed");

apr_table_setn(r->notes, "verbose-error-to", "*");

ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, APLOGNO(01140)

"TRACE with request body is not allowed");

return HTTP_REQUEST_ENTITY_TOO_LARGE;

}

}

uri = r->filename + 6;

p = strchr(uri, ':');

if (p == NULL) {

ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, APLOGNO(01141)

"proxy_handler no URL in %s", r->filename);

return HTTP_BAD_REQUEST;

}

/* If the host doesn't have a domain name, add one and redirect. */

if (conf->domain != NULL) {

rc = proxy_needsdomain(r, uri, conf->domain);

if (ap_is_HTTP_REDIRECT(rc))

return HTTP_MOVED_PERMANENTLY;

}

scheme = apr_pstrndup(r->pool, uri, p - uri);

/* Check URI's destination host against NoProxy hosts */

/* Bypass ProxyRemote server lookup if configured as NoProxy */

for (direct_connect = i = 0; i < conf->dirconn->nelts &&

!direct_connect; i++) {

direct_connect = list[i].matcher(&list[i], r);

}

#if DEBUGGING

ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,

(direct_connect) ? "NoProxy for %s" : "UseProxy for %s",

r->uri);

#endif

do {

char *url = uri;

/* Try to obtain the most suitable worker */

access_status = ap_proxy_pre_request(&worker, &balancer, r, conf, &url);

if (access_status != OK) {

/*

if (access_status != HTTP_SERVICE_UNAVAILABLE)

return access_status;

/*

if (!worker)

balancer = NULL;

goto cleanup;

}

/* Initialise worker if needed, note the shared area must be initialized by the balancer logic */

if (balancer) {

ap_proxy_initialize_worker(worker, r->server, conf->pool);

}

if (balancer && balancer->s->max_attempts_set && !max_attempts)

max_attempts = balancer->s->max_attempts;

/* firstly, try a proxy, unless a NoProxy directive is active */

if (!direct_connect) {

for (i = 0; i < proxies->nelts; i++) {

p2 = ap_strchr_c(ents[i].scheme, ':'); /* is it a partial URL? */

if (strcmp(ents[i].scheme, "*") == 0 ||

(ents[i].use_regex &&

ap_regexec(ents[i].regexp, url, 0, NULL, 0) == 0) ||

(p2 == NULL && strcasecmp(scheme, ents[i].scheme) == 0) ||

(p2 != NULL &&

strncasecmp(url, ents[i].scheme,

strlen(ents[i].scheme)) == 0)) {

/* handle the scheme */

ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, APLOGNO(01142)

"Trying to run scheme_handler against proxy");

access_status = proxy_run_scheme_handler(r, worker,

conf, url,

ents[i].hostname,

ents[i].port);

/* Did the scheme handler process the request? */

if (access_status != DECLINED) {

const char *cl_a;

char *end;

apr_off_t cl;

/*

if (access_status != HTTP_BAD_GATEWAY) {

goto cleanup;

}

cl_a = apr_table_get(r->headers_in, "Content-Length");

if (cl_a) {

apr_strtoff(&cl, cl_a, &end, 10);

/*

if (cl > 0) {

goto cleanup;

}

}

/*

if (apr_table_get(r->headers_in, "Transfer-Encoding")) {

goto cleanup;

}

}

}

}

}

/* otherwise, try it direct */

/* N.B. what if we're behind a firewall, where we must use a proxy or

/* handle the scheme */

ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, APLOGNO(01143)

"Running scheme %s handler (attempt %d)",

scheme, attempts);

AP_PROXY_RUN(r, worker, conf, url, attempts);

access_status = proxy_run_scheme_handler(r, worker, conf,

url, NULL, 0);

if (access_status == OK)

break;

else if (access_status == HTTP_INTERNAL_SERVER_ERROR) {

/* Unrecoverable server error.

if (balancer) {

worker->s->status |= PROXY_WORKER_IN_ERROR;

worker->s->error_time = apr_time_now();

}

break;

}

else if (access_status == HTTP_SERVICE_UNAVAILABLE) {

/* Recoverable server error.

if (balancer) {

worker->s->status |= PROXY_WORKER_IN_ERROR;

worker->s->error_time = apr_time_now();

}

}

else {

/* Unrecoverable error.

break;

}

/* Try again if the worker is unusable and the service is

} while (!PROXY_WORKER_IS_USABLE(worker) &&

max_attempts > attempts++);

if (DECLINED == access_status) {

ap_log_rerror(APLOG_MARK, APLOG_WARNING, 0, r, APLOGNO(01144)

"No protocol handler was valid for the URL %s. "

"If you are using a DSO version of mod_proxy, make sure "

"the proxy submodules are included in the configuration "

"using LoadModule.", r->uri);

access_status = HTTP_INTERNAL_SERVER_ERROR;

goto cleanup;

}

cleanup:

ap_proxy_post_request(worker, balancer, r, conf);

proxy_run_request_status(&access_status, r);

AP_PROXY_RUN_FINISHED(r, attempts, access_status);

return access_status;

}

static void * create_proxy_config(apr_pool_t *p, server_rec *s)

{

proxy_server_conf *ps = apr_pcalloc(p, sizeof(proxy_server_conf));

ps->sec_proxy = apr_array_make(p, 10, sizeof(ap_conf_vector_t *));

ps->proxies = apr_array_make(p, 10, sizeof(struct proxy_remote));

ps->aliases = apr_array_make(p, 10, sizeof(struct proxy_alias));

ps->noproxies = apr_array_make(p, 10, sizeof(struct noproxy_entry));

ps->dirconn = apr_array_make(p, 10, sizeof(struct dirconn_entry));

ps->workers = apr_array_make(p, 10, sizeof(proxy_worker));

ps->balancers = apr_array_make(p, 10, sizeof(proxy_balancer));

ps->forward = NULL;

ps->reverse = NULL;

ps->domain = NULL;

ps->id = apr_psprintf(p, "p%x", 1); /* simply for storage size */

ps->viaopt = via_off; /* initially backward compatible with 1.3.1 */

ps->viaopt_set = 0; /* 0 means default */

ps->req = 0;

ps->max_balancers = 0;

ps->bal_persist = 0;

ps->bgrowth = 5;

ps->bgrowth_set = 0;

ps->req_set = 0;

ps->recv_buffer_size = 0; /* this default was left unset for some reason */

ps->recv_buffer_size_set = 0;

ps->io_buffer_size = AP_IOBUFSIZE;

ps->io_buffer_size_set = 0;

ps->maxfwd = DEFAULT_MAX_FORWARDS;

ps->maxfwd_set = 0;

ps->timeout = 0;

ps->timeout_set = 0;

ps->badopt = bad_error;

ps->badopt_set = 0;

ps->source_address = NULL;

ps->source_address_set = 0;

ps->pool = p;

return ps;

}

static void * merge_proxy_config(apr_pool_t *p, void *basev, void *overridesv)

{

proxy_server_conf *ps = apr_pcalloc(p, sizeof(proxy_server_conf));

proxy_server_conf *base = (proxy_server_conf *) basev;

proxy_server_conf *overrides = (proxy_server_conf *) overridesv;

if (overrides->inherit || base->inherit) {

ps->proxies = apr_array_append(p, base->proxies, overrides->proxies);

ps->sec_proxy = apr_array_append(p, base->sec_proxy, overrides->sec_proxy);

ps->aliases = apr_array_append(p, base->aliases, overrides->aliases);

ps->noproxies = apr_array_append(p, base->noproxies, overrides->noproxies);

ps->dirconn = apr_array_append(p, base->dirconn, overrides->dirconn);

ps->workers = apr_array_append(p, base->workers, overrides->workers);

ps->balancers = apr_array_append(p, base->balancers, overrides->balancers);

}

else {

ps->proxies = overrides->proxies;

ps->sec_proxy = overrides->sec_proxy;

ps->aliases = overrides->aliases;

ps->noproxies = overrides->noproxies;

ps->dirconn = overrides->dirconn;

ps->workers = overrides->workers;

ps->balancers = overrides->balancers;

}

ps->forward = overrides->forward ? overrides->forward : base->forward;

ps->reverse = overrides->reverse ? overrides->reverse : base->reverse;

ps->domain = (overrides->domain == NULL) ? base->domain : overrides->domain;

ps->id = (overrides->id == NULL) ? base->id : overrides->id;

ps->viaopt = (overrides->viaopt_set == 0) ? base->viaopt : overrides->viaopt;

ps->viaopt_set = overrides->viaopt_set || base->viaopt_set;

ps->req = (overrides->req_set == 0) ? base->req : overrides->req;

ps->req_set = overrides->req_set || base->req_set;

ps->bgrowth = (overrides->bgrowth_set == 0) ? base->bgrowth : overrides->bgrowth;

ps->bgrowth_set = overrides->bgrowth_set || base->bgrowth_set;

ps->max_balancers = overrides->max_balancers || base->max_balancers;

ps->bal_persist = overrides->bal_persist;

ps->recv_buffer_size = (overrides->recv_buffer_size_set == 0) ? base->recv_buffer_size : overrides->recv_buffer_size;

ps->recv_buffer_size_set = overrides->recv_buffer_size_set || base->recv_buffer_size_set;

ps->io_buffer_size = (overrides->io_buffer_size_set == 0) ? base->io_buffer_size : overrides->io_buffer_size;

ps->io_buffer_size_set = overrides->io_buffer_size_set || base->io_buffer_size_set;

ps->maxfwd = (overrides->maxfwd_set == 0) ? base->maxfwd : overrides->maxfwd;

ps->maxfwd_set = overrides->maxfwd_set || base->maxfwd_set;

ps->timeout = (overrides->timeout_set == 0) ? base->timeout : overrides->timeout;

ps->timeout_set = overrides->timeout_set || base->timeout_set;

ps->badopt = (overrides->badopt_set == 0) ? base->badopt : overrides->badopt;

ps->badopt_set = overrides->badopt_set || base->badopt_set;

ps->proxy_status = (overrides->proxy_status_set == 0) ? base->proxy_status : overrides->proxy_status;

ps->proxy_status_set = overrides->proxy_status_set || base->proxy_status_set;

ps->source_address = (overrides->source_address_set == 0) ? base->source_address : overrides->source_address;

ps->source_address_set = overrides->source_address_set || base->source_address_set;

ps->pool = p;

return ps;

}

static const char *set_source_address(cmd_parms *parms, void *dummy,

const char *arg)

{

proxy_server_conf *psf =

ap_get_module_config(parms->server->module_config, &proxy_module);

struct apr_sockaddr_t *addr;

if (APR_SUCCESS == apr_sockaddr_info_get(&addr, arg, APR_UNSPEC, 0, 0,

psf->pool)) {

psf->source_address = addr;

psf->source_address_set = 1;

}

else {

return "ProxySourceAddress invalid value";

}

return NULL;

}

static void *create_proxy_dir_config(apr_pool_t *p, char *dummy)

{

proxy_dir_conf *new =

(proxy_dir_conf *) apr_pcalloc(p, sizeof(proxy_dir_conf));

/* Filled in by proxysection, when applicable */

/* Put these in the dir config so they work inside <Location> */

new->raliases = apr_array_make(p, 10, sizeof(struct proxy_alias));

new->cookie_paths = apr_array_make(p, 10, sizeof(struct proxy_alias));

new->cookie_domains = apr_array_make(p, 10, sizeof(struct proxy_alias));

new->preserve_host_set = 0;

new->preserve_host = 0;

new->interpolate_env = -1; /* unset */

new->error_override = 0;

new->error_override_set = 0;

new->add_forwarded_headers = 1;

return (void *) new;

}

static void *merge_proxy_dir_config(apr_pool_t *p, void *basev, void *addv)

{

proxy_dir_conf *new = (proxy_dir_conf *) apr_pcalloc(p, sizeof(proxy_dir_conf));

proxy_dir_conf *add = (proxy_dir_conf *) addv;

proxy_dir_conf *base = (proxy_dir_conf *) basev;

new->p = add->p;

new->p_is_fnmatch = add->p_is_fnmatch;

new->r = add->r;

/* Put these in the dir config so they work inside <Location> */

new->raliases = apr_array_append(p, base->raliases, add->raliases);