0f60998368b493f90120180a93fc2e1e74490872covener

0f60998368b493f90120180a93fc2e1e74490872covener

0f60998368b493f90120180a93fc2e1e74490872covener#include "mod_proxy.h"

87587593f1a53030e840acc0dec6cc881022ea40covener

87587593f1a53030e840acc0dec6cc881022ea40covener#define AUTODETECT_PWD

87587593f1a53030e840acc0dec6cc881022ea40covener

87587593f1a53030e840acc0dec6cc881022ea40covenermodule AP_MODULE_DECLARE_DATA proxy_ftp_module;

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovenerint ap_proxy_ftp_canon(request_rec *r, char *url);

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovenerint ap_proxy_ftp_handler(request_rec *r, proxy_server_conf *conf,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char *url, const char *proxyhost,

43997561b2302d13dee973998e77743a3ddd2374trawick apr_port_t proxyport);

fa123db15501821e36e513afa78e839775ad2800covenerapr_status_t ap_proxy_send_dir_filter(ap_filter_t * f,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_bucket_brigade *bb);

0568280364eb026393be492ebc732795c4934643jorton

0568280364eb026393be492ebc732795c4934643jorton

0568280364eb026393be492ebc732795c4934643jortonstatic int decodeenc(char *x)

0568280364eb026393be492ebc732795c4934643jorton{

0568280364eb026393be492ebc732795c4934643jorton int i, j, ch;

0568280364eb026393be492ebc732795c4934643jorton

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (x[0] == '\0')

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return 0; /* special case for no characters */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes for (i = 0, j = 0; x[i] != '\0'; i++, j++) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* decode it if not already done */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ch = x[i];

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (ch == '%' && ap_isxdigit(x[i + 1]) && ap_isxdigit(x[i + 2])) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ch = ap_proxy_hex2c(&x[i + 1]);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes i += 2;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

796e4a7141265d8ed7036e4628161c6eafb2a789jorton x[j] = ch;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes x[j] = '\0';

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return j;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholesstatic int ftp_check_string(const char *x)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes{

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes int i, ch = 0;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes for (i = 0; x[i] != '\0'; i++) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ch = x[i];

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe if (ch == '%' && ap_isxdigit(x[i + 1]) && ap_isxdigit(x[i + 2])) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ch = ap_proxy_hex2c(&x[i + 1]);

95b6fe1346805e1731e6e97c15d569c73be22cf7minfrin i += 2;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes#if !APR_CHARSET_EBCDIC

95b6fe1346805e1731e6e97c15d569c73be22cf7minfrin if (ch == '\015' || ch == '\012' || (ch & 0x80))

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes#else /* APR_CHARSET_EBCDIC */

95b6fe1346805e1731e6e97c15d569c73be22cf7minfrin if (ch == '\r' || ch == '\n' || (os_toascii[ch] & 0x80))

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes#endif /* APR_CHARSET_EBCDIC */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return 0;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return 1;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

95b6fe1346805e1731e6e97c15d569c73be22cf7minfrin

713a2b68bac4aeb1e9c48785006c0732451039depquernaint ap_proxy_ftp_canon(request_rec *r, char *url)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes{

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char *user, *password, *host, *path, *parms, *strp, sport[7];

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_pool_t *p = r->pool;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes const char *err;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_port_t port, def_port;

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe /* */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (strncasecmp(url, "ftp:", 4) == 0) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes url += 4;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return DECLINED;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes def_port = apr_uri_default_port_for_scheme("ftp");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: canonicalising URL %s", url);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

f43b67c5a9d29b572eac916f8335cedc80c908bebnicholes port = def_port;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes err = ap_proxy_canon_netloc(p, &url, &user, &password, &host, &port);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (err)

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe return HTTP_BAD_REQUEST;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (user != NULL && !ftp_check_string(user))

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_BAD_REQUEST;

fa123db15501821e36e513afa78e839775ad2800covener if (password != NULL && !ftp_check_string(password))

fa123db15501821e36e513afa78e839775ad2800covener return HTTP_BAD_REQUEST;

fa123db15501821e36e513afa78e839775ad2800covener

fa123db15501821e36e513afa78e839775ad2800covener /* now parse path/parameters args, according to rfc1738 */

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener /*

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener strp = strchr(url, ';');

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (strp != NULL) {

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener *(strp++) = '\0';

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes parms = ap_proxy_canonenc(p, strp, strlen(strp), enc_parm,

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener r->proxyreq);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (parms == NULL)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_BAD_REQUEST;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes parms = "";

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener path = ap_proxy_canonenc(p, url, strlen(url), enc_path, r->proxyreq);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (path == NULL)

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe return HTTP_BAD_REQUEST;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (!ftp_check_string(path))

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_BAD_REQUEST;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (r->proxyreq && r->args != NULL) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (strp != NULL) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes strp = ap_proxy_canonenc(p, r->args, strlen(r->args), enc_parm, 1);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (strp == NULL)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_BAD_REQUEST;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes parms = apr_pstrcat(p, parms, "?", strp, NULL);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

fa123db15501821e36e513afa78e839775ad2800covener else {

cceddc0b6c0fdaed0c73abda39975bb1d388243acovener strp = ap_proxy_canonenc(p, r->args, strlen(r->args), enc_fpath, 1);

cceddc0b6c0fdaed0c73abda39975bb1d388243acovener if (strp == NULL)

fa123db15501821e36e513afa78e839775ad2800covener return HTTP_BAD_REQUEST;

cceddc0b6c0fdaed0c73abda39975bb1d388243acovener path = apr_pstrcat(p, path, "?", strp, NULL);

f2be127030aa4190033084f0a6add531c9bc41desf }

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener r->args = NULL;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener }

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

60215f303c7e1ce8b6d272acb5bfa5b3d99dfd34covener

60215f303c7e1ce8b6d272acb5bfa5b3d99dfd34covener if (port != def_port)

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener apr_snprintf(sport, sizeof(sport), ":%d", port);

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener else

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener sport[0] = '\0';

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener r->filename = apr_pstrcat(p, "proxy:ftp://", (user != NULL) ? user : "",

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener (password != NULL) ? ":" : "",

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener (password != NULL) ? password : "",

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener (user != NULL) ? "@" : "", host, sport, "/", path,

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener (parms[0] != '\0') ? ";" : "", parms, NULL);

6683642c1e0032eeeed5f99e8c14880692ef84c5sf

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener return OK;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener}

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

6683642c1e0032eeeed5f99e8c14880692ef84c5sf#define MAX_LINE_LEN 80

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovenerstatic int ftp_getrc_msg(conn_rec *ftp_ctrl, apr_bucket_brigade *bb, char *msgbuf, int msglen)

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener{

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener int status;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char response[MAX_LINE_LEN];

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char buff[5];

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *mb = msgbuf, *me = &msgbuf[msglen];

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener apr_status_t rv;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener int eos;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener if (APR_SUCCESS != (rv = ap_proxy_string_read(ftp_ctrl, bb, response, sizeof(response), &eos))) {

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener return -1;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener }

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener if (!apr_isdigit(response[0]) || !apr_isdigit(response[1]) ||

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener !apr_isdigit(response[2]) || (response[3] != ' ' && response[3] != '-'))

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener status = 0;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener else

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener status = 100 * response[0] + 10 * response[1] + response[2] - 111 * '0';

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener mb = apr_cpystrn(mb, response + 4, me - mb);

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener if (response[3] == '-') {

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener memcpy(buff, response, 3);

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener buff[3] = ' ';

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener do {

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener if (APR_SUCCESS != (rv = ap_proxy_string_read(ftp_ctrl, bb, response, sizeof(response), &eos))) {

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener return -1;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes mb = apr_cpystrn(mb, response + (' ' == response[0] ? 1 : 4), me - mb);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes } while (memcmp(response, buff, 4) != 0);

60215f303c7e1ce8b6d272acb5bfa5b3d99dfd34covener }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes return status;

0e05808dc59a321566303084c84b9826a4353cefrederpj}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

3dfeb02cfb853d8717ca0cc259b59fea610173f5bnicholes

54d22ed1c429b903b029bbd62621f11a9e286137minfrintypedef struct {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes apr_bucket_brigade *in;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes char buffer[MAX_STRING_LEN];

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes enum {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes HEADER, BODY, FOOTER

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes } state;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes} proxy_dir_ctx_t;

ebe5305f8b22507374358f32b74d12fb50c05a25covener

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholesapr_status_t ap_proxy_send_dir_filter(ap_filter_t *f, apr_bucket_brigade *in)

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes{

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes request_rec *r = f->r;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes apr_pool_t *p = r->pool;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_bucket *e;

513b324e774c559b579896df131fd7c8471ed529rederpj apr_bucket_brigade *out = apr_brigade_create(p);

513b324e774c559b579896df131fd7c8471ed529rederpj apr_status_t rv;

513b324e774c559b579896df131fd7c8471ed529rederpj regex_t *re = NULL; /* @@@ put this in the context */

513b324e774c559b579896df131fd7c8471ed529rederpj regmatch_t re_result[3];

513b324e774c559b579896df131fd7c8471ed529rederpj

513b324e774c559b579896df131fd7c8471ed529rederpj register int n;

513b324e774c559b579896df131fd7c8471ed529rederpj char *dir, *path, *reldir, *site, *str, *type;

513b324e774c559b579896df131fd7c8471ed529rederpj

513b324e774c559b579896df131fd7c8471ed529rederpj const char *pwd = apr_table_get(r->notes, "Directory-PWD");

513b324e774c559b579896df131fd7c8471ed529rederpj const char *readme = apr_table_get(r->notes, "Directory-README");

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

02fd88c85a9850109753b87612955ad372de1575sf proxy_dir_ctx_t *ctx = f->ctx;

02fd88c85a9850109753b87612955ad372de1575sf

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (!ctx) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes f->ctx = ctx = apr_pcalloc(p, sizeof(*ctx));

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ctx->in = apr_brigade_create(p);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ctx->buffer[0] = 0;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ctx->state = HEADER;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* Compile the output format of "ls -s1" as a fallback for non-unix ftp listings */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes re = ap_pregcomp(p, "^ *([0-9]+) +([^ ]+)$", REG_EXTENDED);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* combine the stored and the new */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes APR_BRIGADE_CONCAT(ctx->in, in);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (HEADER == ctx->state) {

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

707f6d077f73cc948deead8df5b40ea42c1eaa78covener /* basedir is either "", or "/%2f" for the "squid %2f hack" */

fa123db15501821e36e513afa78e839775ad2800covener const char *basedir = ""; /* By default, path is relative to the $HOME dir */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener char *wildcard = NULL;

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

707f6d077f73cc948deead8df5b40ea42c1eaa78covener /* Save "scheme://site" prefix without password */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener site = apr_uri_unparse(p, &f->r->parsed_uri, APR_URI_UNP_OMITPASSWORD | APR_URI_UNP_OMITPATHINFO);

707f6d077f73cc948deead8df5b40ea42c1eaa78covener /* ... and path without query args */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener path = apr_uri_unparse(p, &f->r->parsed_uri, APR_URI_UNP_OMITSITEPART | APR_URI_UNP_OMITQUERY);

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* If path began with /%2f, change the basedir */

9ad7b260be233be7d7b5576979825cac72e15498rederpj if (strncasecmp(path, "/%2f", 4) == 0) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes basedir = "/%2f";

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* Strip off a type qualifier. It is ignored for dir listings */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if ((type = strstr(path, ";type=")) != NULL)

ebe5305f8b22507374358f32b74d12fb50c05a25covener *type++ = '\0';

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes (void)decodeenc(path);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes while (path[1] == '/') /* collapse multiple leading slashes to one */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ++path;

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes reldir = strrchr(path, '/');

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if (reldir != NULL) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes for (n=0; reldir[n] != '\0'; ++n) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (reldir[n] == '\\' && reldir[n+1] != '\0')

ebe5305f8b22507374358f32b74d12fb50c05a25covener ++n; /* escaped character */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes else if (reldir[n] == '*' || reldir[n] == '?') {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes wildcard = &reldir[1];

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes reldir[0] = '\0'; /* strip off the wildcard suffix */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes break;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* Copy path, strip (all except the last) trailing slashes */

b08925593f214f621161742925dcf074a8047e0acovener /* (the trailing slash is needed for the dir component loop below) */

b08925593f214f621161742925dcf074a8047e0acovener path = dir = ap_pstrcat(p, path, "/", NULL);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes for (n = strlen(path); n > 1 && path[n - 1] == '/' && path[n - 2] == '/'; --n)

707f6d077f73cc948deead8df5b40ea42c1eaa78covener path[n - 1] = '\0';

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* Add a link to the root directory (if %2f hack was used) */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener str = (basedir[0] != '\0') ? "<a href=\"/%2f/\">%2f</a>/" : "";

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* print "ftp://host/" */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener str = apr_psprintf(p, DOCTYPE_HTML_3_2

707f6d077f73cc948deead8df5b40ea42c1eaa78covener "<html>\n <head>\n <title>%s%s%s</title>\n"

707f6d077f73cc948deead8df5b40ea42c1eaa78covener " <base href=\"%s%s%s\">\n </head>\n"

707f6d077f73cc948deead8df5b40ea42c1eaa78covener " <body>\n <h2>Directory of "

9ad7b260be233be7d7b5576979825cac72e15498rederpj "<a href=\"/\">%s</a>/%s",

707f6d077f73cc948deead8df5b40ea42c1eaa78covener site, basedir, ap_escape_html(p, path),

707f6d077f73cc948deead8df5b40ea42c1eaa78covener site, basedir, ap_escape_uri(p, path),

707f6d077f73cc948deead8df5b40ea42c1eaa78covener site, str);

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

707f6d077f73cc948deead8df5b40ea42c1eaa78covener e = apr_bucket_pool_create(str, strlen(str), p);

707f6d077f73cc948deead8df5b40ea42c1eaa78covener APR_BRIGADE_INSERT_TAIL(out, e);

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

707f6d077f73cc948deead8df5b40ea42c1eaa78covener for (dir = path+1; (dir = strchr(dir, '/')) != NULL; )

707f6d077f73cc948deead8df5b40ea42c1eaa78covener {

707f6d077f73cc948deead8df5b40ea42c1eaa78covener *dir = '\0';

707f6d077f73cc948deead8df5b40ea42c1eaa78covener if ((reldir = strrchr(path+1, '/'))==NULL) {

707f6d077f73cc948deead8df5b40ea42c1eaa78covener reldir = path+1;

707f6d077f73cc948deead8df5b40ea42c1eaa78covener }

707f6d077f73cc948deead8df5b40ea42c1eaa78covener else

707f6d077f73cc948deead8df5b40ea42c1eaa78covener ++reldir;

707f6d077f73cc948deead8df5b40ea42c1eaa78covener /* print "path/" component */

707f6d077f73cc948deead8df5b40ea42c1eaa78covener str = apr_psprintf(p, "<a href=\"%s%s/\">%s</a>/", basedir,

707f6d077f73cc948deead8df5b40ea42c1eaa78covener ap_escape_uri(p, path),

707f6d077f73cc948deead8df5b40ea42c1eaa78covener ap_escape_html(p, reldir));

707f6d077f73cc948deead8df5b40ea42c1eaa78covener *dir = '/';

707f6d077f73cc948deead8df5b40ea42c1eaa78covener while (*dir == '/')

707f6d077f73cc948deead8df5b40ea42c1eaa78covener ++dir;

707f6d077f73cc948deead8df5b40ea42c1eaa78covener APR_BRIGADE_INSERT_TAIL(out, apr_bucket_pool_create(str, strlen(str), p));

707f6d077f73cc948deead8df5b40ea42c1eaa78covener }

707f6d077f73cc948deead8df5b40ea42c1eaa78covener if (wildcard != NULL) {

707f6d077f73cc948deead8df5b40ea42c1eaa78covener APR_BRIGADE_INSERT_TAIL(out, apr_bucket_pool_create(wildcard, strlen(wildcard), p));

707f6d077f73cc948deead8df5b40ea42c1eaa78covener }

707f6d077f73cc948deead8df5b40ea42c1eaa78covener

707f6d077f73cc948deead8df5b40ea42c1eaa78covener /* If the caller has determined the current directory, and it differs */

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* from what the client requested, then show the real name */

9ad7b260be233be7d7b5576979825cac72e15498rederpj if (pwd == NULL || strncmp(pwd, path, strlen(pwd)) == 0) {

9ad7b260be233be7d7b5576979825cac72e15498rederpj str = apr_psprintf(p, "</h2>\n\n <hr />\n\n<pre>");

7add8f7fb048534390571801b7794f71cd9e127abnicholes }

7add8f7fb048534390571801b7794f71cd9e127abnicholes else {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem str = apr_psprintf(p, "</h2>\n\n(%s)\n\n <hr />\n\n<pre>",

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem ap_escape_html(p, pwd));

7add8f7fb048534390571801b7794f71cd9e127abnicholes }

7add8f7fb048534390571801b7794f71cd9e127abnicholes e = apr_bucket_pool_create(str, strlen(str), p);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes APR_BRIGADE_INSERT_TAIL(out, e);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* print README */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (readme) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes str = apr_psprintf(p, "%s\n</pre>\n\n<hr />\n\n<pre>\n",

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ap_escape_html(p, readme));

7add8f7fb048534390571801b7794f71cd9e127abnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes e = apr_bucket_pool_create(str, strlen(str), p);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes APR_BRIGADE_INSERT_TAIL(out, e);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* make sure page intro gets sent out */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes e = apr_bucket_flush_create();

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes APR_BRIGADE_INSERT_TAIL(out, e);

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (APR_SUCCESS != (rv = ap_pass_brigade(f->next, out))) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes return rv;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

7add8f7fb048534390571801b7794f71cd9e127abnicholes apr_brigade_cleanup(out);

7add8f7fb048534390571801b7794f71cd9e127abnicholes

141e1368614dc7564e1627671361b01b4869b491bnicholes ctx->state = BODY;

3dfeb02cfb853d8717ca0cc259b59fea610173f5bnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /* loop through each line of directory */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes while (BODY == ctx->state) {

e8f95a682820a599fe41b22977010636be5c2717jim char *filename;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes int found = 0;

ebe5305f8b22507374358f32b74d12fb50c05a25covener int eos = 0;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* get a complete line */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* if the buffer overruns - throw data away */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes while (!found && !APR_BRIGADE_EMPTY(ctx->in)) {

3dfeb02cfb853d8717ca0cc259b59fea610173f5bnicholes char *pos, *response;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes apr_size_t len, max;

3dfeb02cfb853d8717ca0cc259b59fea610173f5bnicholes e = APR_BRIGADE_FIRST(ctx->in);

3dfeb02cfb853d8717ca0cc259b59fea610173f5bnicholes if (APR_BUCKET_IS_EOS(e)) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf eos = 1;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf break;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (APR_SUCCESS != (rv = apr_bucket_read(e, (const char **)&response, &len, APR_BLOCK_READ))) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf return rv;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf pos = memchr(response, APR_ASCII_LF, len);

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (pos != NULL) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if ((response + len) != (pos + 1)) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf len = pos - response + 1;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf apr_bucket_split(e, pos - response + 1);

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf found = 1;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf max = sizeof(ctx->buffer) - strlen(ctx->buffer) - 1;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (len > max) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf len = max;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* len+1 to leave space for the trailing nil char */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes apr_cpystrn(ctx->buffer+strlen(ctx->buffer), response, len+1);

e8f95a682820a599fe41b22977010636be5c2717jim

7dbf29be626018bc389ef94c1846aeac4b72633bsf APR_BUCKET_REMOVE(e);

7dbf29be626018bc389ef94c1846aeac4b72633bsf apr_bucket_destroy(e);

7dbf29be626018bc389ef94c1846aeac4b72633bsf }

7dbf29be626018bc389ef94c1846aeac4b72633bsf

7dbf29be626018bc389ef94c1846aeac4b72633bsf /* EOS? jump to footer */

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (eos) {

7dbf29be626018bc389ef94c1846aeac4b72633bsf ctx->state = FOOTER;

7dbf29be626018bc389ef94c1846aeac4b72633bsf break;

7dbf29be626018bc389ef94c1846aeac4b72633bsf }

7dbf29be626018bc389ef94c1846aeac4b72633bsf

7dbf29be626018bc389ef94c1846aeac4b72633bsf /* not complete? leave and try get some more */

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (!found) {

7dbf29be626018bc389ef94c1846aeac4b72633bsf return APR_SUCCESS;

7dbf29be626018bc389ef94c1846aeac4b72633bsf }

7dbf29be626018bc389ef94c1846aeac4b72633bsf

7dbf29be626018bc389ef94c1846aeac4b72633bsf {

7dbf29be626018bc389ef94c1846aeac4b72633bsf size_t n = strlen(ctx->buffer);

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (ctx->buffer[n-1] == CRLF[1]) /* strip trailing '\n' */

7dbf29be626018bc389ef94c1846aeac4b72633bsf ctx->buffer[--n] = '\0';

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (ctx->buffer[n-1] == CRLF[0]) /* strip trailing '\r' if present */

7dbf29be626018bc389ef94c1846aeac4b72633bsf ctx->buffer[--n] = '\0';

7dbf29be626018bc389ef94c1846aeac4b72633bsf }

7dbf29be626018bc389ef94c1846aeac4b72633bsf

7dbf29be626018bc389ef94c1846aeac4b72633bsf /* a symlink? */

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (ctx->buffer[0] == 'l' && (filename = strstr(ctx->buffer, " -> ")) != NULL) {

7dbf29be626018bc389ef94c1846aeac4b72633bsf char *link_ptr = filename;

7dbf29be626018bc389ef94c1846aeac4b72633bsf

7dbf29be626018bc389ef94c1846aeac4b72633bsf do {

7dbf29be626018bc389ef94c1846aeac4b72633bsf filename--;

7dbf29be626018bc389ef94c1846aeac4b72633bsf } while (filename[0] != ' ' && filename > ctx->buffer);

7dbf29be626018bc389ef94c1846aeac4b72633bsf if (filename > ctx->buffer)

7dbf29be626018bc389ef94c1846aeac4b72633bsf *(filename++) = '\0';

7dbf29be626018bc389ef94c1846aeac4b72633bsf *(link_ptr++) = '\0';

7dbf29be626018bc389ef94c1846aeac4b72633bsf str = apr_psprintf(p, "%s <a href=\"%s\">%s %s</a>\n",

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ap_escape_html(p, ctx->buffer),

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ap_escape_uri(p, filename),

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ap_escape_html(p, filename),

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ap_escape_html(p, link_ptr));

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* a directory/file? */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes else if (ctx->buffer[0] == 'd' || ctx->buffer[0] == '-' || ctx->buffer[0] == 'l' || apr_isdigit(ctx->buffer[0])) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes int searchidx = 0;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes char *searchptr = NULL;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes int firstfile = 1;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (apr_isdigit(ctx->buffer[0])) { /* handle DOS dir */

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf searchptr = strchr(ctx->buffer, '<');

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (searchptr != NULL)

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes *searchptr = '[';

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes searchptr = strchr(ctx->buffer, '>');

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (searchptr != NULL)

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes *searchptr = ']';

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes filename = strrchr(ctx->buffer, ' ');

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes *(filename++) = '\0';

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* handle filenames with spaces in 'em */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (!strcmp(filename, ".") || !strcmp(filename, "..") || firstfile) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes firstfile = 0;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes searchidx = filename - ctx->buffer;

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes else if (searchidx != 0 && ctx->buffer[searchidx] != 0) {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes *(--filename) = ' ';

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes ctx->buffer[searchidx - 1] = '\0';

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf filename = &ctx->buffer[searchidx];

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes }

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes /* Append a slash to the HREF link for directories */

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes if (!strcmp(filename, ".") || !strcmp(filename, "..") || ctx->buffer[0] == 'd') {

d330a801b1e5d63a4b8b4fd431542ad0903fd71bbnicholes str = apr_psprintf(p, "%s <a href=\"%s/\">%s</a>\n",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_html(p, ctx->buffer),

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_uri(p, filename),

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_html(p, filename));

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf else {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf str = apr_psprintf(p, "%s <a href=\"%s\">%s</a>\n",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_html(p, ctx->buffer),

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf ap_escape_uri(p, filename),

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf ap_escape_html(p, filename));

7dbf29be626018bc389ef94c1846aeac4b72633bsf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /* Try a fallback for listings in the format of "ls -s1" */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else if (0 == ap_regexec(re, ctx->buffer, 3, re_result, 0)) {

e8f95a682820a599fe41b22977010636be5c2717jim

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes filename = apr_pstrndup(p, &ctx->buffer[re_result[2].rm_so], re_result[2].rm_eo - re_result[2].rm_so);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes str = ap_pstrcat(p, ap_escape_html(p, apr_pstrndup(p, ctx->buffer, re_result[2].rm_so)),

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf "<a href=\"", ap_escape_uri(p, filename), "\">",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_html(p, filename), "</a>\n", NULL);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

7dbf29be626018bc389ef94c1846aeac4b72633bsf else {

7dbf29be626018bc389ef94c1846aeac4b72633bsf strcat(ctx->buffer, "\n"); /* re-append the newline */

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf str = ap_escape_html(p, ctx->buffer);

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

9c63a05713cb83a44a1590b4af33edeebf39f118sf /* erase buffer for next time around */

9c63a05713cb83a44a1590b4af33edeebf39f118sf ctx->buffer[0] = 0;

9c63a05713cb83a44a1590b4af33edeebf39f118sf

9c63a05713cb83a44a1590b4af33edeebf39f118sf e = apr_bucket_pool_create(str, strlen(str), p);

9c63a05713cb83a44a1590b4af33edeebf39f118sf APR_BRIGADE_INSERT_TAIL(out, e);

9c63a05713cb83a44a1590b4af33edeebf39f118sf e = apr_bucket_flush_create();

9c63a05713cb83a44a1590b4af33edeebf39f118sf APR_BRIGADE_INSERT_TAIL(out, e);

9c63a05713cb83a44a1590b4af33edeebf39f118sf if (APR_SUCCESS != (rv = ap_pass_brigade(f->next, out))) {

9c63a05713cb83a44a1590b4af33edeebf39f118sf return rv;

9c63a05713cb83a44a1590b4af33edeebf39f118sf }

9c63a05713cb83a44a1590b4af33edeebf39f118sf apr_brigade_cleanup(out);

9c63a05713cb83a44a1590b4af33edeebf39f118sf

9c63a05713cb83a44a1590b4af33edeebf39f118sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (FOOTER == ctx->state) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf str = apr_psprintf(p, "</pre>\n\n <hr />\n\n %s\n\n </body>\n</html>\n", ap_psignature("", r));

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf e = apr_bucket_pool_create(str, strlen(str), p);

9efd5708f6f0ab1992f6a5233eb622ad5e4eae18sf APR_BRIGADE_INSERT_TAIL(out, e);

9efd5708f6f0ab1992f6a5233eb622ad5e4eae18sf

9efd5708f6f0ab1992f6a5233eb622ad5e4eae18sf e = apr_bucket_flush_create();

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes APR_BRIGADE_INSERT_TAIL(out, e);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes e = apr_bucket_eos_create();

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes APR_BRIGADE_INSERT_TAIL(out, e);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (APR_SUCCESS != (rv = ap_pass_brigade(f->next, out))) {

9c63a05713cb83a44a1590b4af33edeebf39f118sf return rv;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_brigade_destroy(out);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return APR_SUCCESS;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

54d22ed1c429b903b029bbd62621f11a9e286137minfrinstatic int

54d22ed1c429b903b029bbd62621f11a9e286137minfrinproxy_ftp_command(const char *cmd, request_rec *r, conn_rec *ftp_ctrl,

54d22ed1c429b903b029bbd62621f11a9e286137minfrin apr_bucket_brigade *bb, char **pmessage)

54d22ed1c429b903b029bbd62621f11a9e286137minfrin{

e8f95a682820a599fe41b22977010636be5c2717jim char *crlf;

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe int rc;

8a03cd420b800a2428f49f4617293de9b2387b20jorton char message[HUGE_STRING_LEN];

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

54d22ed1c429b903b029bbd62621f11a9e286137minfrin /* If cmd == NULL, we retrieve the next ftp response line */

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if (cmd != NULL) {

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

54d22ed1c429b903b029bbd62621f11a9e286137minfrin APR_BRIGADE_INSERT_TAIL(bb, apr_bucket_pool_create(cmd, strlen(cmd), r->pool));

54d22ed1c429b903b029bbd62621f11a9e286137minfrin APR_BRIGADE_INSERT_TAIL(bb, apr_bucket_flush_create());

54d22ed1c429b903b029bbd62621f11a9e286137minfrin ap_pass_brigade(ftp_ctrl->output_filters, bb);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

54d22ed1c429b903b029bbd62621f11a9e286137minfrin /* strip off the CRLF for logging */

54d22ed1c429b903b029bbd62621f11a9e286137minfrin ap_cpystrn(message, cmd, sizeof message);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if ((crlf = strchr(message, '\r')) != NULL ||

54d22ed1c429b903b029bbd62621f11a9e286137minfrin (crlf = strchr(message, '\n')) != NULL)

54d22ed1c429b903b029bbd62621f11a9e286137minfrin *crlf = '\0';

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if (strncmp(message,"PASS ", 5) == 0)

54d22ed1c429b903b029bbd62621f11a9e286137minfrin strcpy(&message[5], "****");

54d22ed1c429b903b029bbd62621f11a9e286137minfrin ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

54d22ed1c429b903b029bbd62621f11a9e286137minfrin "proxy:>FTP: %s", message);

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener }

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener rc = ftp_getrc_msg(ftp_ctrl, bb, message, sizeof message);

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener if (rc == -1 || rc == 421)

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener strcpy(message,"<unable to read result>");

6999a76d8eb5ef6b4b295e51df0b2fb6064bd373covener if ((crlf = strchr(message, '\r')) != NULL ||

54d22ed1c429b903b029bbd62621f11a9e286137minfrin (crlf = strchr(message, '\n')) != NULL)

54d22ed1c429b903b029bbd62621f11a9e286137minfrin *crlf = '\0';

54d22ed1c429b903b029bbd62621f11a9e286137minfrin ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

54d22ed1c429b903b029bbd62621f11a9e286137minfrin "proxy:<FTP: %3.3u %s", rc, message);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if (pmessage != NULL)

54d22ed1c429b903b029bbd62621f11a9e286137minfrin *pmessage = ap_pstrdup(r->pool, message);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return rc;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholesstatic int ftp_set_TYPE(char xfer_type, request_rec *r, conn_rec *ftp_ctrl,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_bucket_brigade *bb, char **pmessage)

e8f95a682820a599fe41b22977010636be5c2717jim{

e8f95a682820a599fe41b22977010636be5c2717jim static char old_type[2] = { 'A', '\0' }; /* After logon, mode is ASCII */

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe int ret = HTTP_OK;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes int rc;

e8f95a682820a599fe41b22977010636be5c2717jim

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe if (xfer_type == old_type[0])

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe return ret;

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe

f0f6f1b90ab582896f8a7d56d85bd62a55e57d90covener /* set desired type */

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe old_type[0] = xfer_type;

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

560fd0658902ab57754616c172d8953e69fc4722bnicholes rc = proxy_ftp_command(apr_pstrcat(r->pool, "TYPE ", old_type, CRLF, NULL),

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener r, ftp_ctrl, bb, pmessage);

e8f95a682820a599fe41b22977010636be5c2717jim /* 200 Command okay. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 421 Service not available, closing control connection. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 500 Syntax error, command unrecognized. */

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* 501 Syntax error in parameters or arguments. */

9ad7b260be233be7d7b5576979825cac72e15498rederpj /* 504 Command not implemented for that parameter. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 530 Not logged in. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (rc == -1 || rc == 421) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ret = ap_proxyerror(r, HTTP_BAD_GATEWAY,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "Error reading from remote server");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else if (rc != 200 && rc != 504) {

560fd0658902ab57754616c172d8953e69fc4722bnicholes ret = ap_proxyerror(r, HTTP_BAD_GATEWAY,

560fd0658902ab57754616c172d8953e69fc4722bnicholes "Unable to set transfer type");

560fd0658902ab57754616c172d8953e69fc4722bnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else if (rc == 504)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* ignore it silently */;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ret;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

e8f95a682820a599fe41b22977010636be5c2717jimstatic char *ftp_get_PWD(request_rec *r, conn_rec *ftp_ctrl, apr_bucket_brigade *bb)

e8f95a682820a599fe41b22977010636be5c2717jim{

e8f95a682820a599fe41b22977010636be5c2717jim char *cwd = NULL;

e8f95a682820a599fe41b22977010636be5c2717jim char *ftpmessage = NULL;

e8f95a682820a599fe41b22977010636be5c2717jim

ae1981fc94adf2b231e2d0e15d2f895b2138c969covener /* responses: 257, 500, 501, 502, 421, 550 */

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe /* 257 "<directory-name>" <commentary> */

7a55c294da84865fe13262ed66ffd0c5841a9da5covener /* 421 Service not available, closing control connection. */

7a55c294da84865fe13262ed66ffd0c5841a9da5covener /* 500 Syntax error, command unrecognized. */

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener /* 501 Syntax error in parameters or arguments. */

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener /* 502 Command not implemented. */

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener /* 550 Requested action not taken. */

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener switch (proxy_ftp_command("PWD" CRLF, r, ftp_ctrl, bb, &ftpmessage)) {

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener case -1:

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener case 421:

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener case 550:

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener ap_proxyerror(r, HTTP_BAD_GATEWAY,

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener "Failed to read PWD on ftp server");

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener break;

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes case 257: {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes const char *dirp = ftpmessage;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes cwd = ap_getword_conf(r->pool, &dirp);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return cwd;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholesstatic int ftp_unauthorized(request_rec *r, int log_it)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes{

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes r->proxyreq = PROXYREQ_NONE;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe if (log_it)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_rerror(APLOG_MARK, APLOG_INFO | APLOG_NOERRNO, 0, r,

7a55c294da84865fe13262ed66ffd0c5841a9da5covener "proxy: missing or failed auth to %s",

fa123db15501821e36e513afa78e839775ad2800covener apr_uri_unparse(r->pool,

fa123db15501821e36e513afa78e839775ad2800covener &r->parsed_uri, APR_URI_UNP_OMITPATHINFO));

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_table_setn(r->err_headers_out, "WWW-Authenticate",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_pstrcat(r->pool, "Basic realm=\"",

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

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes APR_URI_UNP_OMITPASSWORD | APR_URI_UNP_OMITPATHINFO),

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "\"", NULL));

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_UNAUTHORIZED;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes}

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

0e05808dc59a321566303084c84b9826a4353cefrederpjint ap_proxy_ftp_handler(request_rec *r, proxy_server_conf *conf,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char *url, const char *proxyhost,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes apr_port_t proxyport)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes{

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener apr_pool_t *p = r->pool;

0e05808dc59a321566303084c84b9826a4353cefrederpj conn_rec *c = r->connection;

ebe5305f8b22507374358f32b74d12fb50c05a25covener proxy_conn_rec *backend;

ebe5305f8b22507374358f32b74d12fb50c05a25covener apr_socket_t *sock, *local_sock, *data_sock = NULL;

ebe5305f8b22507374358f32b74d12fb50c05a25covener apr_sockaddr_t *connect_addr;

ebe5305f8b22507374358f32b74d12fb50c05a25covener apr_status_t rv;

ebe5305f8b22507374358f32b74d12fb50c05a25covener conn_rec *origin, *data = NULL;

ebe5305f8b22507374358f32b74d12fb50c05a25covener int err;

ebe5305f8b22507374358f32b74d12fb50c05a25covener apr_bucket_brigade *bb = apr_brigade_create(p);

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *buf, *connectname;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener apr_port_t connectport;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char buffer[MAX_STRING_LEN];

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *ftpmessage = NULL;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *path, *strp, *type_suffix, *cwd = NULL;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *user = NULL;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener const char *password = NULL;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener int len, rc;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener int one = 1;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char *size = NULL;

0e05808dc59a321566303084c84b9826a4353cefrederpj apr_socket_t *origin_sock = NULL;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char xfer_type = 'A'; /* after ftp login, the default is ASCII */

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener int dirlisting = 0;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* stuff for PASV mode */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes int connect = 0, use_port = 0;

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener char dates[AP_RFC822_DATE_LEN];

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* is this for us? */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (proxyhost) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

9ad7b260be233be7d7b5576979825cac72e15498rederpj "proxy: FTP: declining URL %s - proxyhost %s specified:", url, proxyhost);

9ad7b260be233be7d7b5576979825cac72e15498rederpj return DECLINED; /* proxy connections are via HTTP */

54d22ed1c429b903b029bbd62621f11a9e286137minfrin }

54d22ed1c429b903b029bbd62621f11a9e286137minfrin if (strncasecmp(url, "ftp:", 4)) {

54d22ed1c429b903b029bbd62621f11a9e286137minfrin ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

54d22ed1c429b903b029bbd62621f11a9e286137minfrin "proxy: FTP: declining URL %s - not ftp:", url);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin return DECLINED; /* only interested in FTP */

54d22ed1c429b903b029bbd62621f11a9e286137minfrin }

560fd0658902ab57754616c172d8953e69fc4722bnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

54d22ed1c429b903b029bbd62621f11a9e286137minfrin "proxy: FTP: serving URL %s", url);

54d22ed1c429b903b029bbd62621f11a9e286137minfrin

ae1981fc94adf2b231e2d0e15d2f895b2138c969covener /* create space for state information */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes backend = (proxy_conn_rec *) ap_get_module_config(c->conn_config, &proxy_ftp_module);

a81c0c1ae464b2063a21b45f80c9da8d89bb840ecovener if (!backend) {

7a55c294da84865fe13262ed66ffd0c5841a9da5covener backend = ap_pcalloc(c->pool, sizeof(proxy_conn_rec));

4e9c24785b525d2956e6e381015c0f2bd0a72f4bcovener backend->connection = NULL;

fa123db15501821e36e513afa78e839775ad2800covener backend->hostname = NULL;

fa123db15501821e36e513afa78e839775ad2800covener backend->port = 0;

fa123db15501821e36e513afa78e839775ad2800covener ap_set_module_config(c->conn_config, &proxy_ftp_module, backend);

fa123db15501821e36e513afa78e839775ad2800covener }

fa123db15501821e36e513afa78e839775ad2800covener if (backend->connection)

fa123db15501821e36e513afa78e839775ad2800covener origin_sock = ap_get_module_config(backend->connection->conn_config, &core_module);

fa123db15501821e36e513afa78e839775ad2800covener

fa123db15501821e36e513afa78e839775ad2800covener

fa123db15501821e36e513afa78e839775ad2800covener /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* we only support GET and HEAD */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (r->method_number != M_GET)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_NOT_IMPLEMENTED;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* We break the URL into host, port, path-search */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes connectname = r->parsed_uri.hostname;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes connectport = (r->parsed_uri.port != 0)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ? r->parsed_uri.port

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes : apr_uri_default_port_for_scheme("ftp");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes path = apr_pstrdup(p, r->parsed_uri.path);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes path = (path != NULL && path[0] != '\0') ? &path[1] : "";

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes type_suffix = strchr(path, ';');

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe if (type_suffix != NULL)

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe *(type_suffix++) = '\0';

e8f95a682820a599fe41b22977010636be5c2717jim

e8f95a682820a599fe41b22977010636be5c2717jim /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if ((password = apr_table_get(r->headers_in, "Authorization")) != NULL

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes && strcasecmp(ap_getword(r->pool, &password, ' '), "Basic") == 0

e8f95a682820a599fe41b22977010636be5c2717jim && (password = ap_pbase64decode(r->pool, password))[0] != ':') {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes user = ap_getword_nulls(r->connection->pool, &password, ':');

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes r->ap_auth_type = "Basic";

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe r->user = r->parsed_uri.user = user;

e8f95a682820a599fe41b22977010636be5c2717jim }

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe else if ((user = r->parsed_uri.user) != NULL) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes user = apr_pstrdup(p, user);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes decodeenc(user);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if ((password = r->parsed_uri.password) != NULL) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char *tmp = apr_pstrdup(p, password);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes decodeenc(tmp);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes password = tmp;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes else {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes user = "anonymous";

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes password = "apache-proxy@";

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: connecting %s to %s:%d", url, connectname, connectport);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* do a DNS lookup for the destination host */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes err = apr_sockaddr_info_get(&connect_addr, connectname, APR_UNSPEC, connectport, 0, p);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* check if ProxyBlock directive on this host */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (OK != ap_proxy_checkproxyblock(r, conf, connect_addr)) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_FORBIDDEN,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "Connect to remote machine blocked");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (APR_SUCCESS != err) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_BAD_GATEWAY, apr_pstrcat(p,

e8f95a682820a599fe41b22977010636be5c2717jim "DNS lookup failure for: ",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes connectname, NULL));

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if ((rv = apr_socket_create(&sock, APR_INET, SOCK_STREAM, r->pool)) != APR_SUCCESS) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

43c3e6a4b559b76b750c245ee95e2782c15b4296jim "proxy: FTP: error creating socket");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_INTERNAL_SERVER_ERROR;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes#if !defined(TPF) && !defined(BEOS)

f43b67c5a9d29b572eac916f8335cedc80c908bebnicholes if (conf->recv_buffer_size > 0

43c3e6a4b559b76b750c245ee95e2782c15b4296jim && (rv = apr_setsocketopt(sock, APR_SO_RCVBUF,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes conf->recv_buffer_size))) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "setsockopt(SO_RCVBUF): Failed to set ProxyReceiveBufferSize, using default");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener#endif

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (APR_SUCCESS != (rv = apr_setsocketopt(sock, APR_SO_REUSEADDR, one))) {

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener#ifndef _OSD_POSIX /* BS2000 has this option "always on" */

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe "proxy: FTP: error setting reuseaddr option: setsockopt(SO_REUSEADDR)");

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe return HTTP_INTERNAL_SERVER_ERROR;

f43b67c5a9d29b572eac916f8335cedc80c908bebnicholes#endif /* _OSD_POSIX */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /* Set a timeout on the socket */

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf apr_setsocketopt(sock, APR_SO_TIMEOUT, (int)(r->server->timeout * APR_USEC_PER_SEC));

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf "proxy: FTP: socket has been created");

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* try each IP address until we connect successfully */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes int failed = 1;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes while (connect_addr) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* FIXME: @@@: We created an APR_INET socket. Now there may be

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG|APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: trying to connect to %pI (%s)...", connect_addr, connectname);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

e8f95a682820a599fe41b22977010636be5c2717jim /* make the connection out of the socket */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes rv = apr_connect(sock, connect_addr);

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe

e8f95a682820a599fe41b22977010636be5c2717jim /* if an error occurred, loop round and try again */

e8f95a682820a599fe41b22977010636be5c2717jim if (rv != APR_SUCCESS) {

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe ap_log_error(APLOG_MARK, APLOG_ERR, rv, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: attempt to connect to %pI (%s) failed", connect_addr, connectname);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes connect_addr = connect_addr->next;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes continue;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* if we get here, all is well */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes failed = 0;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes break;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* handle a permanent error from the above loop */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (failed) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_BAD_GATEWAY, apr_psprintf(r->pool,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "Could not connect to remote machine: %s port %d",

e8f95a682820a599fe41b22977010636be5c2717jim connectname, connectport));

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* the socket is now open, create a new connection */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes origin = ap_new_connection(p, r->server, sock, r->connection->id, r->connection->sbh);

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe if (!origin) {

8113dac419143273351446c3ad653f3fe5ba5cfdwrowe /*

e8f95a682820a599fe41b22977010636be5c2717jim ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: an error occurred creating a new connection to %pI (%s)", connect_addr, connectname);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return HTTP_INTERNAL_SERVER_ERROR;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* if a keepalive connection is floating around, close it first! */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* we might support ftp keepalives later, but not now... */

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe if (backend->connection) {

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe apr_socket_close(origin_sock);

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe backend->connection = NULL;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes origin_sock = NULL;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: control connection complete");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

e8f95a682820a599fe41b22977010636be5c2717jim /* set up the connection filters */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_run_install_transport_filters(origin, sock);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* possible results: */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 120 Service ready in nnn minutes. */

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj /* 220 Service ready for new user. */

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj /* 421 Service not available, closing control connection. */

e8f95a682820a599fe41b22977010636be5c2717jim rc = proxy_ftp_command(NULL, r, origin, bb, &ftpmessage);

e8f95a682820a599fe41b22977010636be5c2717jim if (rc == -1 || rc == 421) {

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe return ap_proxyerror(r, HTTP_BAD_GATEWAY, "Error reading from remote server");

e8f95a682820a599fe41b22977010636be5c2717jim }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (rc == 120) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes char *secs_str = ftpmessage;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes time_t secs;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* Look for a number, preceded by whitespace */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes while (*secs_str)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (apr_isspace(secs_str[-1]) && apr_isdigit(secs_str[0]))

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes break;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (*secs_str != '\0') {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes secs = atol(secs_str);

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj ap_table_add(r->headers_out, "Retry-After",

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj apr_psprintf(p, "%lu", (unsigned long)(60 * secs)));

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj return ap_proxyerror(r, HTTP_SERVICE_UNAVAILABLE, ftpmessage);

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj if (rc != 220) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes "proxy: FTP: connected.");

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes rc = proxy_ftp_command(apr_pstrcat(p, "USER ", user, CRLF, NULL),

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes r, origin, bb, &ftpmessage);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* possible results; 230, 331, 332, 421, 500, 501, 530 */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* states: 1 - error, 2 - success; 3 - send password, 4,5 fail */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 230 User logged in, proceed. */

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj /* 331 User name okay, need password. */

f43b67c5a9d29b572eac916f8335cedc80c908bebnicholes /* 332 Need account for login. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 421 Service not available, closing control connection. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 500 Syntax error, command unrecognized. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* (This may include errors such as command line too long.) */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 501 Syntax error in parameters or arguments. */

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener /* 530 Not logged in. */

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener if (rc == -1 || rc == 421) {

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener return ap_proxyerror(r, HTTP_BAD_GATEWAY, "Error reading from remote server");

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener }

37af4b0cf648275b68ff41c866c665b4ccf4667dcovener if (rc == 530) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ftp_unauthorized(r, 1); /* log it: user name guessing

f43b67c5a9d29b572eac916f8335cedc80c908bebnicholes }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (rc != 230 && rc != 331) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (rc == 331) { /* send password */

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf if (password == NULL) {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf return ftp_unauthorized(r, 0);

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf }

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf rc = proxy_ftp_command(apr_pstrcat(p, "PASS ", password, CRLF, NULL),

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf r, origin, bb, &ftpmessage);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* possible results 202, 230, 332, 421, 500, 501, 503, 530 */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 230 User logged in, proceed. */

e8f95a682820a599fe41b22977010636be5c2717jim /* 332 Need account for login. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 421 Service not available, closing control connection. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 500 Syntax error, command unrecognized. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 501 Syntax error in parameters or arguments. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 503 Bad sequence of commands. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 530 Not logged in. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (rc == -1 || rc == 421) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes return ap_proxyerror(r, HTTP_BAD_GATEWAY,

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj "Error reading from remote server");

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (rc == 332) {

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe return ap_proxyerror(r, HTTP_UNAUTHORIZED,

e8f95a682820a599fe41b22977010636be5c2717jim apr_pstrcat(p, "Need account for login: ", ftpmessage, NULL));

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe }

e8f95a682820a599fe41b22977010636be5c2717jim /* @@@ questionable -- we might as well return a 403 Forbidden here */

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe if (rc == 530) {

e8f95a682820a599fe41b22977010636be5c2717jim return ftp_unauthorized(r, 1); /* log it: passwd guessing

e8f95a682820a599fe41b22977010636be5c2717jim }

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe if (rc != 230 && rc != 202) {

482f676c6c19b1c5bb5cca04dad11509c1da3a4cwrowe return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem apr_table_set(r->notes, "Directory-README", ftpmessage);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

9c63a05713cb83a44a1590b4af33edeebf39f118sf /*

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes for (;;) {

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes strp = strchr(path, '/');

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes if (strp == NULL)

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes break;

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes *strp = '\0';

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes len = decodeenc(path);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* NOTE: FTP servers do globbing on the path.

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes rc = proxy_ftp_command(apr_pstrcat(p, "CWD ",

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes ap_escape_shell_cmd(p, path), CRLF, NULL),

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes r, origin, bb, &ftpmessage);

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes *strp = '/';

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* responses: 250, 421, 500, 501, 502, 530, 550 */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 250 Requested file action okay, completed. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 421 Service not available, closing control connection. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 500 Syntax error, command unrecognized. */

d5b12fe8ae917e654a33247fd4e59dc9e75170aebnicholes /* 501 Syntax error in parameters or arguments. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 502 Command not implemented. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 530 Not logged in. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 550 Requested action not taken. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (rc == -1 || rc == 421) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem return ap_proxyerror(r, HTTP_BAD_GATEWAY,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem "Error reading from remote server");

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (rc == 550) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_NOT_FOUND, ftpmessage);

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (rc != 250) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj path = strp + 1;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (type_suffix != NULL && strncmp(type_suffix, "type=", 5) == 0

8869662bb1a4078297020e94ae5e928626d877c6rederpj && ap_isalpha(type_suffix[5])) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* "type=d" forces a dir listing.

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if ( ! (dirlisting = (ap_tolower(type_suffix[5]) == 'd')))

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem xfer_type = ap_toupper(type_suffix[5]);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* Check valid types, rather than ignoring invalid types silently: */

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (strchr("AEI", xfer_type) == NULL)

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_BAD_REQUEST, ap_pstrcat(r->pool,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "ftp proxy supports only types 'a', 'i', or 'e': \"",

8869662bb1a4078297020e94ae5e928626d877c6rederpj type_suffix, "\" is invalid.", NULL));

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj else {

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* make binary transfers the default */

8869662bb1a4078297020e94ae5e928626d877c6rederpj xfer_type = 'I';

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj /*

8869662bb1a4078297020e94ae5e928626d877c6rederpj

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /* set up data connection - EPSV */

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf {

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf apr_sockaddr_t *data_addr;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf char *data_ip;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf apr_port_t data_port;

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf

4be9c459920a7c1cfe62d654327dae5c4bb6b284sf /*

8869662bb1a4078297020e94ae5e928626d877c6rederpj rc = proxy_ftp_command("EPSV" CRLF,

8869662bb1a4078297020e94ae5e928626d877c6rederpj r, origin, bb, &ftpmessage);

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* possible results: 227, 421, 500, 501, 502, 530 */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 227 Entering Passive Mode (h1,h2,h3,h4,p1,p2). */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 421 Service not available, closing control connection. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 500 Syntax error, command unrecognized. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 501 Syntax error in parameters or arguments. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 502 Command not implemented. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* 530 Not logged in. */

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (rc == -1 || rc == 421) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_BAD_GATEWAY,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "Error reading from remote server");

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (rc != 229 && rc != 500 && rc != 501 && rc != 502) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj else if (rc == 229) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj char *pstr;

8869662bb1a4078297020e94ae5e928626d877c6rederpj char *tok_cntx;

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj pstr = ftpmessage;

8869662bb1a4078297020e94ae5e928626d877c6rederpj pstr = apr_strtok(pstr, " ", &tok_cntx); /* separate result code */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (pstr != NULL) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (*(pstr + strlen(pstr) + 1) == '=') {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr += strlen(pstr) + 2;

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj else {

8869662bb1a4078297020e94ae5e928626d877c6rederpj pstr = apr_strtok(NULL, "(", &tok_cntx); /* separate address &

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (pstr != NULL)

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr = apr_strtok(NULL, ")", &tok_cntx);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (pstr) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem apr_sockaddr_t *epsv_addr;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem data_port = atoi(pstr + 3);

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "proxy: FTP: EPSV contacting remote host on port %d",

8869662bb1a4078297020e94ae5e928626d877c6rederpj data_port);

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj if ((rv = apr_socket_create(&data_sock, APR_INET, SOCK_STREAM, r->pool)) != APR_SUCCESS) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "proxy: FTP: error creating EPSV socket");

8869662bb1a4078297020e94ae5e928626d877c6rederpj return HTTP_INTERNAL_SERVER_ERROR;

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj#if !defined (TPF) && !defined(BEOS)

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (conf->recv_buffer_size > 0 && (rv = apr_setsocketopt(data_sock, APR_SO_RCVBUF,

8869662bb1a4078297020e94ae5e928626d877c6rederpj conf->recv_buffer_size))) {

8869662bb1a4078297020e94ae5e928626d877c6rederpj ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "proxy: FTP: setsockopt(SO_RCVBUF): Failed to set ProxyReceiveBufferSize, using default");

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj#endif

8869662bb1a4078297020e94ae5e928626d877c6rederpj

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* make the connection */

8869662bb1a4078297020e94ae5e928626d877c6rederpj apr_socket_addr_get(&data_addr, APR_REMOTE, sock);

8869662bb1a4078297020e94ae5e928626d877c6rederpj apr_sockaddr_ip_get(&data_ip, data_addr);

8869662bb1a4078297020e94ae5e928626d877c6rederpj apr_sockaddr_info_get(&epsv_addr, data_ip, APR_INET, data_port, 0, p);

8869662bb1a4078297020e94ae5e928626d877c6rederpj rv = apr_connect(data_sock, epsv_addr);

8869662bb1a4078297020e94ae5e928626d877c6rederpj if (rv != APR_SUCCESS) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem ap_log_error(APLOG_MARK, APLOG_ERR, rv, r->server,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem "proxy: FTP: EPSV attempt to connect to %pI failed - Firewall/NAT?", epsv_addr);

8869662bb1a4078297020e94ae5e928626d877c6rederpj return ap_proxyerror(r, HTTP_BAD_GATEWAY, apr_psprintf(r->pool,

8869662bb1a4078297020e94ae5e928626d877c6rederpj "EPSV attempt to connect to %pI failed - firewall/NAT?", epsv_addr));

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj else {

8869662bb1a4078297020e94ae5e928626d877c6rederpj connect = 1;

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj }

8869662bb1a4078297020e94ae5e928626d877c6rederpj else {

8869662bb1a4078297020e94ae5e928626d877c6rederpj /* and try the regular way */

8869662bb1a4078297020e94ae5e928626d877c6rederpj apr_socket_close(data_sock);

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* set up data connection - PASV */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (!connect) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem rc = proxy_ftp_command("PASV" CRLF,

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj r, origin, bb, &ftpmessage);

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj /* possible results: 227, 421, 500, 501, 502, 530 */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 227 Entering Passive Mode (h1,h2,h3,h4,p1,p2). */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 421 Service not available, closing control connection. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 500 Syntax error, command unrecognized. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 501 Syntax error in parameters or arguments. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 502 Command not implemented. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* 530 Not logged in. */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (rc == -1 || rc == 421) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem return ap_proxyerror(r, HTTP_BAD_GATEWAY,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem "Error reading from remote server");

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (rc != 227 && rc != 502) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem return ap_proxyerror(r, HTTP_BAD_GATEWAY, ftpmessage);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem else if (rc == 227) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem unsigned int h0, h1, h2, h3, p0, p1;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem char *pstr;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem char *tok_cntx;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr = ftpmessage;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr = apr_strtok(pstr, " ", &tok_cntx); /* separate result code */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (pstr != NULL) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (*(pstr + strlen(pstr) + 1) == '=') {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr += strlen(pstr) + 2;

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem else {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem pstr = apr_strtok(NULL, "(", &tok_cntx); /* separate address &

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj if (pstr != NULL)

3f5585f7f4a7d74f2f94ec729ea8c1879d419e35rederpj pstr = apr_strtok(NULL, ")", &tok_cntx);

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem if (pstr != NULL && (sscanf(pstr,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem "%d,%d,%d,%d,%d,%d", &h3, &h2, &h1, &h0, &p1, &p0) == 6)) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj apr_sockaddr_t *pasv_addr;

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj apr_port_t pasvport = (p1 << 8) + p0;

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj ap_log_error(APLOG_MARK, APLOG_DEBUG | APLOG_NOERRNO, 0, r->server,

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj "proxy: FTP: PASV contacting host %d.%d.%d.%d:%d",

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj h3, h2, h1, h0, pasvport);

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj if ((rv = apr_socket_create(&data_sock, APR_INET, SOCK_STREAM, r->pool)) != APR_SUCCESS) {

0e05808dc59a321566303084c84b9826a4353cefrederpj ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

a9c4332dc6241dc11dd104826bd179d42ccc0f12fuankg "proxy: error creating PASV socket");

a9c4332dc6241dc11dd104826bd179d42ccc0f12fuankg return HTTP_INTERNAL_SERVER_ERROR;

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj }

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj#if !defined (TPF) && !defined(BEOS)

11ca38a20ab9b2d00258f745620e2724838e7e21rederpj if (conf->recv_buffer_size > 0 && (rv = apr_setsocketopt(data_sock, APR_SO_RCVBUF,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem conf->recv_buffer_size))) {

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem ap_log_rerror(APLOG_MARK, APLOG_ERR, rv, r,

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem "proxy: FTP: setsockopt(SO_RCVBUF): Failed to set ProxyReceiveBufferSize, using default");

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem }

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem#endif

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem /* make the connection */

8445dae5cc606ba8ba04efc341cc1e081d95920drpluem apr_sockaddr_info_get(&pasv_addr, apr_psprintf(p, "%d.%d.%d.%d", h3, h2, h1, h0), APR_INET, pasvport, 0, p);