45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#include "mod_proxy.h"

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#include "mod_core.h"

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#include "apr_optional.h"

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#include "scoreboard.h"

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#include "mod_status.h"

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder#if (MODULE_MAGIC_NUMBER_MAJOR > 20020903)

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder#include "mod_ssl.h"

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder#else

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian MaederAPR_DECLARE_OPTIONAL_FN(int, ssl_proxy_enable, (conn_rec *));

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian MaederAPR_DECLARE_OPTIONAL_FN(int, ssl_engine_disable, (conn_rec *));

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian MaederAPR_DECLARE_OPTIONAL_FN(int, ssl_is_https, (conn_rec *));

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian MaederAPR_DECLARE_OPTIONAL_FN(char *, ssl_var_lookup,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder (apr_pool_t *, server_rec *,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder conn_rec *, request_rec *, char *));

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder#endif

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder#ifndef MAX

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

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder#endif

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maederstatic const char *set_worker_param(apr_pool_t *p,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder proxy_worker *worker,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder const char *key,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder const char *val)

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder{

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder int ival;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder apr_interval_time_t timeout;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (!strcasecmp(key, "loadfactor")) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* Normalized load factor. Used with BalancerMamber,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->lbfactor = atoi(val);

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

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

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "retry")) {

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

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder ival = atoi(val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival < 0)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Retry must be a positive value";

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder worker->s->retry = apr_time_from_sec(ival);

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder worker->s->retry_set = 1;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else if (!strcasecmp(key, "ttl")) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder /* Time in seconds that will destroy all the connections

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder ival = atoi(val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (ival < 1)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "TTL must be at least one second";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->ttl = apr_time_from_sec(ival);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "min")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Initial number of connections to remote

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder ival = atoi(val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (ival < 0)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Min must be a positive number";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->min = ival;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "max")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Maximum number of connections to remote

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder ival = atoi(val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival < 0)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Max must be a positive number";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->hmax = ival;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* XXX: More inteligent naming needed */

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "smax")) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* Maximum number of connections to remote that

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder ival = atoi(val);

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (ival < 0)

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder return "Smax must be a positive number";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder worker->s->smax = ival;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else if (!strcasecmp(key, "acquire")) {

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

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (ap_timeout_parameter_parse(val, &timeout, "ms") != APR_SUCCESS)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "Acquire timeout has wrong format";

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (timeout < 1000)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "Acquire must be at least one millisecond";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->acquire = timeout;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->acquire_set = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "timeout")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Connection timeout in seconds.

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder ival = atoi(val);

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (ival < 1)

adda0e6252b14215228e4071b347c49b808894f8Christian Maeder return "Timeout must be at least one second";

adda0e6252b14215228e4071b347c49b808894f8Christian Maeder worker->s->timeout = apr_time_from_sec(ival);

adda0e6252b14215228e4071b347c49b808894f8Christian Maeder worker->s->timeout_set = 1;

adda0e6252b14215228e4071b347c49b808894f8Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "iobuffersize")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder long s = atol(val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (s < 512 && s) {

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

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->io_buffer_size_set = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "receivebuffersize")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder ival = atoi(val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (ival < 512 && ival != 0) {

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->recv_buffer_size = ival;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->recv_buffer_size_set = 1;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "keepalive")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (!strcasecmp(val, "on"))

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->keepalive = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(val, "off"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->keepalive = 0;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "KeepAlive must be On|Off";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->keepalive_set = 1;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "disablereuse")) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (!strcasecmp(val, "on"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->disablereuse = 1;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(val, "off"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->disablereuse = 0;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder return "DisableReuse must be On|Off";

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder worker->s->disablereuse_set = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else if (!strcasecmp(key, "route")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Worker route.

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (strlen(val) >= PROXY_WORKER_MAX_ROUTE_SIZE)

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "Route length must be < 64 characters";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder PROXY_STRNCPY(worker->s->route, val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "redirect")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Worker redirection route.

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (strlen(val) >= PROXY_WORKER_MAX_ROUTE_SIZE)

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "Redirect length must be < 64 characters";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder PROXY_STRNCPY(worker->s->redirect, val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "status")) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder const char *v;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder int mode = 1;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder apr_status_t rv;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* Worker status.

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder for (v = val; *v; v++) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (*v == '+') {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder mode = 1;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder v++;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else if (*v == '-') {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder mode = 0;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder v++;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder rv = ap_proxy_set_wstatus(*v, mode, worker);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (rv != APR_SUCCESS)

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "Unknown status parameter option";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "flushpackets")) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (!strcasecmp(val, "on"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->flush_packets = flush_on;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(val, "off"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->flush_packets = flush_off;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(val, "auto"))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder worker->s->flush_packets = flush_auto;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "flushpackets must be on|off|auto";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "flushwait")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder ival = atoi(val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival > 1000 || ival < 0) {

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival == 0)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->flush_wait = PROXY_FLUSH_WAIT;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "ping")) {

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

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Ping/Pong timeout has wrong format";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (timeout < 1000)

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->ping_timeout = timeout;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->ping_timeout_set = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "lbset")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder ival = atoi(val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival < 0 || ival > 99)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "lbset must be between 0 and 99";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->lbset = ival;

cf39e23ee25b89496d451fcafc70ece1cf760891Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "connectiontimeout")) {

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

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Connectiontimeout has wrong format";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (timeout < 1000)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "Connectiontimeout must be at least one millisecond.";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->conn_timeout = timeout;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder worker->s->conn_timeout_set = 1;

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "flusher")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (strlen(val) >= PROXY_WORKER_MAX_SCHEME_SIZE)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "flusher name length must be < 16 characters";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder PROXY_STRNCPY(worker->s->flusher, val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "unknown Worker parameter";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return NULL;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder}

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maederstatic const char *set_balancer_param(proxy_server_conf *conf,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder apr_pool_t *p,

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder proxy_balancer *balancer,

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder const char *key,

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder const char *val)

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder{

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder int ival;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (!strcasecmp(key, "stickysession")) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder char *path;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* Balancer sticky session name.

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (strlen(val) > (PROXY_BALANCER_MAX_STICKY_SIZE-1))

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder return "stickysession length must be < 64 characters";

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder PROXY_STRNCPY(balancer->s->sticky_path, val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder PROXY_STRNCPY(balancer->s->sticky, val);

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder

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

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder *path++ = '\0';

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder PROXY_STRNCPY(balancer->s->sticky_path, path);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "nofailover")) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* If set to 'on' the session will break

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder if (!strcasecmp(val, "on"))

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder balancer->s->sticky_force = 1;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(val, "off"))

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder balancer->s->sticky_force = 0;

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "failover must be On|Off";

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "timeout")) {

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder /* Balancer timeout in seconds.

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder ival = atoi(val);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (ival < 1)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "timeout must be at least one second";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder balancer->s->timeout = apr_time_from_sec(ival);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder else if (!strcasecmp(key, "maxattempts")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Maximum number of failover attempts before

e2ca90217abd35b3d5f98bfe73ecffb34badd837Christian Maeder ival = atoi(val);

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (ival < 0)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "maximum number of attempts must be a positive number";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder balancer->s->max_attempts = ival;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder balancer->s->max_attempts_set = 1;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else if (!strcasecmp(key, "lbmethod")) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder proxy_balancer_method *provider;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (strlen(val) > (sizeof(balancer->s->lbpname)-1))

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder return "unknown lbmethod";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder provider = ap_lookup_provider(PROXY_LBMETHOD, val, "0");

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (provider) {

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder balancer->lbmethod = provider;

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder PROXY_STRNCPY(balancer->s->lbpname, val);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return NULL;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return "unknown lbmethod";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else if (!strcasecmp(key, "scolonpathdelim")) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* If set to 'on' then ';' will also be

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (!strcasecmp(val, "on"))

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder balancer->s->scolonsep = 1;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else if (!strcasecmp(val, "off"))

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder balancer->s->scolonsep = 0;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "scolonpathdelim must be On|Off";

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else if (!strcasecmp(key, "failonstatus")) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder char *val_split;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder char *status;

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder char *tok_state;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

1fac054baed931dc57f0e41dd0ade39adac28c49Christian Maeder val_split = apr_pstrdup(p, val);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

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

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder status = apr_strtok(val_split, ", ", &tok_state);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder while (status != NULL) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder ival = atoi(status);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (ap_is_HTTP_VALID_RESPONSE(ival)) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder *(int *)apr_array_push(balancer->errstatuses) = ival;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else {

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

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder status = apr_strtok(NULL, ", ", &tok_state);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else if (!strcasecmp(key, "nonce")) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (!strcasecmp(val, "None")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder *balancer->s->nonce = '\0';

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (strlen(val) > sizeof(balancer->s->nonce)-1) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "Provided nonce is too large";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder PROXY_STRNCPY(balancer->s->nonce, val);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder else if (!strcasecmp(key, "growth")) {

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder ival = atoi(val);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (ival < 1 || ival > 100) /* arbitrary limit here */

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "growth must be between 1 and 100";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder balancer->growth = ival;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder else {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return "unknown Balancer parameter";

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return NULL;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder}

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maederstatic int alias_match(const char *uri, const char *alias_fakename)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder{

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder const char *end_fakename = alias_fakename + strlen(alias_fakename);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder const char *aliasp = alias_fakename, *urip = uri;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder const char *end_uri = uri + strlen(uri);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder while (aliasp < end_fakename && urip < end_uri) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (*aliasp == '/') {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* any number of '/' in the alias matches any number in

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (*urip != '/')

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return 0;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder while (*aliasp == '/')

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder ++aliasp;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder while (*urip == '/')

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder ++urip;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder else {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* Other characters are compared literally */

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder if (*urip++ != *aliasp++)

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder return 0;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder /* fixup badly encoded stuff (e.g. % as last character) */

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (aliasp > end_fakename) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder aliasp = end_fakename;

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder }

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder if (urip > end_uri) {

45ad02e03fb913ba373d8fdcfe50244be3df31eaChristian Maeder urip = end_uri;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* We reach the end of the uri before the end of "alias_fakename"

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (urip == end_uri && aliasp != end_fakename) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return 0;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder }

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Check last alias path component matched all the way */

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (aliasp[-1] != '/' && *urip != '\0' && *urip != '/')

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return 0;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder /* Return number of characters from URI which matched (may be

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder return urip - uri;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder}

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maederstatic int proxy_detect(request_rec *r)

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder{

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder void *sconf = r->server->module_config;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder proxy_server_conf *conf =

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder (proxy_server_conf *) ap_get_module_config(sconf, &proxy_module);

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* Ick... msvc (perhaps others) promotes ternary short results to int */

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (conf->req && r->parsed_uri.scheme) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder /* but it might be something vhosted */

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder if (!(r->parsed_uri.hostname

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder && !strcasecmp(r->parsed_uri.scheme, ap_http_scheme(r))

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder && ap_matches_request_vhost(r, r->parsed_uri.hostname,

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder (apr_port_t)(r->parsed_uri.port_str ? r->parsed_uri.port

ee31a8a5f5d786472f2b5dfb271b38e6d401fa35Christian Maeder : ap_default_port(r))))) {

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder r->proxyreq = PROXYREQ_PROXY;

7bffb8b0e6cae4bb7ecb59b99327add6106c06b9Christian Maeder 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);

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

if (found && strcmp(found, real)) {

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,

"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");

}

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;

}

/* 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_set(r->headers_out, "Location", nuri);

ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

"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_set(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_module_config(sconf, &core_module);

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,

"proxy: 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,

"proxy: 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,

"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_error(APLOG_MARK, APLOG_DEBUG, 0, r->server,

"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, 0);

/*

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_error(APLOG_MARK, APLOG_DEBUG, 0, r->server,

"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_error(APLOG_MARK, APLOG_WARNING, 0, r->server,

"proxy: 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)

{

unsigned int id;

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;

#if 0

id = ap_proxy_hashfunc(apr_psprintf(p, "%pp-%" APR_TIME_T_FMT, ps, apr_time_now()), PROXY_HASHFUNC_DEFAULT);

#else

id = ap_proxy_hashfunc(apr_psprintf(p, "%pp", ps), PROXY_HASHFUNC_DEFAULT);

#endif

ps->id = apr_psprintf(p, "s%x", id);

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

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

ps->req = 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;

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);

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->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->cookie_path_str = apr_strmatch_precompile(p, "path=", 0);

new->cookie_domain_str = apr_strmatch_precompile(p, "domain=", 0);

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);

new->cookie_paths

= apr_array_append(p, base->cookie_paths, add->cookie_paths);

new->cookie_domains

= apr_array_append(p, base->cookie_domains, add->cookie_domains);

new->cookie_path_str = base->cookie_path_str;

new->cookie_domain_str = base->cookie_domain_str;

new->interpolate_env = (add->interpolate_env == -1) ? base->interpolate_env

: add->interpolate_env;

new->preserve_host = (add->preserve_host_set == 0) ? base->preserve_host

: add->preserve_host;

new->preserve_host_set = add->preserve_host_set || base->preserve_host_set;

new->error_override = (add->error_override_set == 0) ? base->error_override

: add->error_override;

new->error_override_set = add->error_override_set || base->error_override_set;

new->alias = (add->alias_set == 0) ? base->alias : add->alias;

new->alias_set = add->alias_set || base->alias_set;

new->add_forwarded_headers = add->add_forwarded_headers;

return new;

}

static const char *

add_proxy(cmd_parms *cmd, void *dummy, const char *f1, const char *r1, int regex)

{

server_rec *s = cmd->server;

proxy_server_conf *conf =

(proxy_server_conf *) ap_get_module_config(s->module_config, &proxy_module);

struct proxy_remote *new;

char *p, *q;

char *r, *f, *scheme;

ap_regex_t *reg = NULL;

int port;