modules/mappers/mod_vhost_alias.c

	mod_vhost_alias.c revision 30c289e6bc6d28d210b21edd800ab2cfc78a8381
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering/* ====================================================================
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * The Apache Software License, Version 1.1
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * Copyright (c) 2000 The Apache Software Foundation.  All rights
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * reserved.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * Redistribution and use in source and binary forms, with or without
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * modification, are permitted provided that the following conditions
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * are met:
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * 1. Redistributions of source code must retain the above copyright
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    notice, this list of conditions and the following disclaimer.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * 2. Redistributions in binary form must reproduce the above copyright
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    notice, this list of conditions and the following disclaimer in
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    the documentation and/or other materials provided with the
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    distribution.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * 3. The end-user documentation included with the redistribution,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    if any, must include the following acknowledgment:
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *       "This product includes software developed by the
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering *        Apache Software Foundation (http://www.apache.org/)."
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering *    Alternately, this acknowledgment may appear in the software itself,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    if and wherever such third-party acknowledgments normally appear.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
19adb8a3204fefd91411b5f0f350c8bc6bcf75feZbigniew Jędrzejewski-Szmek * 4. The names "Apache" and "Apache Software Foundation" must
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering *    not be used to endorse or promote products derived from this
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering *    software without prior written permission. For written
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering *    permission, please contact apache@apache.org.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * 5. Products derived from this software may not be called "Apache",
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    nor may "Apache" appear in their name, without prior written
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *    permission of the Apache Software Foundation.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * DISCLAIMED.  IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * SUCH DAMAGE.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * ====================================================================
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * This software consists of voluntary contributions made by many
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * individuals on behalf of the Apache Software Foundation.  For more
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * information on the Apache Software Foundation, please see
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * <http://www.apache.org/>.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * Portions of this software are based upon public domain software
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * originally written at the National Center for Supercomputing Applications,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * University of Illinois, Urbana-Champaign.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering */
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering/*
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering * mod_vhost_alias.c: support for dynamically configured mass virtual hosting
af9792ac7f39354f80e9006c42c2400c5e41c447Lennart Poettering *
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering * Copyright (c) 1998-1999 Demon Internet Ltd.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * This software was submitted by Demon Internet to the Apache Software Foundation
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * in May 1999. Future revisions and derivatives of this source code
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * must acknowledge Demon Internet as the original contributor of
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * this module. All other licensing and usage conditions are those
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * of the Apache Software Foundation.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering * Originally written by Tony Finch <fanf@demon.net> <dot@dotat.at>.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering *
2d62c530d2b4c2730abff715b7342f1402114513Lennart Poettering * Implementation ideas were taken from mod_alias.c. The overall
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering * concept is derived from the OVERRIDE_DOC_ROOT/OVERRIDE_CGIDIR
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering * patch to Apache 1.3b3 and a similar feature in Demon's thttpd,
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering * both written by James Grinter <jrg@blodwen.demon.co.uk>.
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering */
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering#include "httpd.h"
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering#include "http_config.h"
f9cd6be10ece07e10488c05e270a0b5860779864Lennart Poettering#include "http_core.h"
2d62c530d2b4c2730abff715b7342f1402114513Lennart Poettering
2d62c530d2b4c2730abff715b7342f1402114513Lennart Poettering
cc3773810855956bad92337cee8fa193584ab62eLennart Poetteringmodule MODULE_EXPORT_VAR vhost_alias_module;
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering/*
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering * basic configuration things
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering * we abbreviate "mod_vhost_alias" to "mva" for shorter names
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering */
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering
cc3773810855956bad92337cee8fa193584ab62eLennart Poetteringtypedef enum {
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    VHOST_ALIAS_UNSET, VHOST_ALIAS_NONE, VHOST_ALIAS_NAME, VHOST_ALIAS_IP
ed4ba7e4f652150310d062ffbdfefb4521ce1054Lennart Poettering} mva_mode_e;
ed4ba7e4f652150310d062ffbdfefb4521ce1054Lennart Poettering
ed4ba7e4f652150310d062ffbdfefb4521ce1054Lennart Poettering/*
ed4ba7e4f652150310d062ffbdfefb4521ce1054Lennart Poettering * Per-server module config record.
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering */
cc3773810855956bad92337cee8fa193584ab62eLennart Poetteringtypedef struct mva_sconf_t {
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    char *doc_root;
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    char *cgi_root;
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    mva_mode_e doc_root_mode;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering    mva_mode_e cgi_root_mode;
19adb8a3204fefd91411b5f0f350c8bc6bcf75feZbigniew Jędrzejewski-Szmek} mva_sconf_t;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering
19adb8a3204fefd91411b5f0f350c8bc6bcf75feZbigniew Jędrzejewski-Szmekstatic void *mva_create_server_config(ap_pool_t *p, server_rec *s)
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering{
19adb8a3204fefd91411b5f0f350c8bc6bcf75feZbigniew Jędrzejewski-Szmek    mva_sconf_t *conf;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering
7801356442578ff6e1c65844eb9e65c819af4660Zbigniew Jędrzejewski-Szmek    conf = (mva_sconf_t *) ap_pcalloc(p, sizeof(mva_sconf_t));
af9792ac7f39354f80e9006c42c2400c5e41c447Lennart Poettering    conf->doc_root = NULL;
af9792ac7f39354f80e9006c42c2400c5e41c447Lennart Poettering    conf->cgi_root = NULL;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering    conf->doc_root_mode = VHOST_ALIAS_UNSET;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering    conf->cgi_root_mode = VHOST_ALIAS_UNSET;
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering    return conf;
15411c0cb1192799b37ec8f25d6f30e8d7292fc6David Herrmann}
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poettering
dc3a1b76a6a6f9dfe9b451f534587251b50a0685Lennart Poetteringstatic void *mva_merge_server_config(ap_pool_t *p, void *parentv, void *childv)
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering{
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    mva_sconf_t *parent = (mva_sconf_t *) parentv;
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    mva_sconf_t *child = (mva_sconf_t *) childv;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    mva_sconf_t *conf;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf = (mva_sconf_t *) ap_pcalloc(p, sizeof(*conf));
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    if (child->doc_root_mode == VHOST_ALIAS_UNSET) {
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf->doc_root_mode = parent->doc_root_mode;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf->doc_root = parent->doc_root;
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    }
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    else {
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    conf->doc_root_mode = child->doc_root_mode;
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    conf->doc_root = child->doc_root;
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    }
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    if (child->cgi_root_mode == VHOST_ALIAS_UNSET) {
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf->cgi_root_mode = parent->cgi_root_mode;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf->cgi_root = parent->cgi_root;
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek    }
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering    else {
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek    conf->cgi_root_mode = child->cgi_root_mode;
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek    conf->cgi_root = child->cgi_root;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    }
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    return conf;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering}
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek/*
de0671ee7fe465e108f62dcbbbe9366f81dd9e9aZbigniew Jędrzejewski-Szmek * These are just here to tell us what vhost_alias_set should do.
85a428c69465b047731b6abb5005f01824f1444eLennart Poettering * We don't put anything into them; we just use the cell addresses.
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering */
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poetteringstatic int vhost_alias_set_doc_root_ip,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    vhost_alias_set_cgi_root_ip,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    vhost_alias_set_doc_root_name,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    vhost_alias_set_cgi_root_name;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poetteringstatic const char *vhost_alias_set(cmd_parms *cmd, void *dummy, char *map)
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering{
cc3773810855956bad92337cee8fa193584ab62eLennart Poettering    mva_sconf_t *conf;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    mva_mode_e mode, *pmode;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    char **pmap;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    char *p;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    conf = (mva_sconf_t *) ap_get_module_config(cmd->server->module_config,
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering                        &vhost_alias_module);
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    /* there ought to be a better way of doing this */
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    if (&vhost_alias_set_doc_root_ip == cmd->info) {
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    mode = VHOST_ALIAS_IP;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    pmap = &conf->doc_root;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    pmode = &conf->doc_root_mode;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    }
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    else if (&vhost_alias_set_cgi_root_ip == cmd->info) {
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    mode = VHOST_ALIAS_IP;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    pmap = &conf->cgi_root;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    pmode = &conf->cgi_root_mode;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    }
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    else if (&vhost_alias_set_doc_root_name == cmd->info) {
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    mode = VHOST_ALIAS_NAME;
23406ce58aa7142e8df3c5c9e5ac34a01e90e3e0Lennart Poettering    pmap = &conf->doc_root;
    pmode = &conf->doc_root_mode;
    }
    else if (&vhost_alias_set_cgi_root_name == cmd->info) {
    mode = VHOST_ALIAS_NAME;
    pmap = &conf->cgi_root;
    pmode = &conf->cgi_root_mode;
    }
    else {
    return "INTERNAL ERROR: unknown command info";
    }

    if (*map != '/') {
    if (strcasecmp(map, "none")) {
        return "format string must start with '/' or be 'none'";
    }
    *pmap = NULL;
    *pmode = VHOST_ALIAS_NONE;
    return NULL;
    }

    /* sanity check */
    p = map;
    while (*p != '\0') {
    if (*p++ != '%') {
        continue;
    }
    /* we just found a '%' */
    if (*p == 'p' || *p == '%') {
        ++p;
        continue;
    }
    /* optional dash */
    if (*p == '-') {
        ++p;
    }
    /* digit N */
    if (ap_isdigit(*p)) {
        ++p;
    }
    else {
        return "syntax error in format string";
    }
    /* optional plus */
    if (*p == '+') {
        ++p;
    }
    /* do we end here? */
    if (*p != '.') {
        continue;
    }
    ++p;
    /* optional dash */
    if (*p == '-') {
        ++p;
    }
    /* digit M */
    if (ap_isdigit(*p)) {
        ++p;
    }
    else {
        return "syntax error in format string";
    }
    /* optional plus */
    if (*p == '+') {
        ++p;
    }
    }
    *pmap = map;
    *pmode = mode;
    return NULL;
}

static const command_rec mva_commands[] =
{
    {"VirtualScriptAlias", vhost_alias_set, &vhost_alias_set_cgi_root_name,
     RSRC_CONF, TAKE1, "how to create a ScriptAlias based on the host"},
    {"VirtualDocumentRoot", vhost_alias_set, &vhost_alias_set_doc_root_name,
     RSRC_CONF, TAKE1, "how to create the DocumentRoot based on the host"},
    {"VirtualScriptAliasIP", vhost_alias_set, &vhost_alias_set_cgi_root_ip,
     RSRC_CONF, TAKE1, "how to create a ScriptAlias based on the host"},
    {"VirtualDocumentRootIP", vhost_alias_set, &vhost_alias_set_doc_root_ip,
     RSRC_CONF, TAKE1, "how to create the DocumentRoot based on the host"},
    { NULL }
};


/*
 * This really wants to be a nested function
 * but C is too feeble to support them.
 */
static ap_inline void vhost_alias_checkspace(request_rec *r, char *buf,
                         char **pdest, int size)
{
    /* XXX: what if size > HUGE_STRING_LEN? */
    if (*pdest + size > buf + HUGE_STRING_LEN) {
    **pdest = '\0';
    if (r->filename) {
        r->filename = ap_pstrcat(r->pool, r->filename, buf, NULL);
    }
    else {
        r->filename = ap_pstrdup(r->pool, buf);
    }
    *pdest = buf;
    }
}

static void vhost_alias_interpolate(request_rec *r, const char *name,
                    const char *map, const char *uri)
{
    /* 0..9 9..0 */
    enum { MAXDOTS = 19 };
    const char *dots[MAXDOTS+1];
    int ndots;

    char buf[HUGE_STRING_LEN];
    char *dest, last;

    int N, M, Np, Mp, Nd, Md;
    const char *start, *end;

    const char *p;

    ndots = 0;
    dots[ndots++] = name-1; /* slightly naughty */
    for (p = name; *p; ++p){
    if (*p == '.' && ndots < MAXDOTS) {
        dots[ndots++] = p;
    }
    }
    dots[ndots] = p;

    r->filename = NULL;

    dest = buf;
    last = '\0';
    while (*map) {
    if (*map != '%') {
        /* normal characters */
        vhost_alias_checkspace(r, buf, &dest, 1);
        last = *dest++ = *map++;
        continue;
    }
    /* we are in a format specifier */
    ++map;
    /* can't be a slash */
    last = '\0';
    /* %% -> % */
    if (*map == '%') {
        ++map;
        vhost_alias_checkspace(r, buf, &dest, 1);
        *dest++ = '%';
        continue;
    }
    /* port number */
    if (*map == 'p') {
        ++map;
        /* no. of decimal digits in a short plus one */
        vhost_alias_checkspace(r, buf, &dest, 7);
        dest += ap_snprintf(dest, 7, "%d", ap_get_server_port(r));
        continue;
    }
    /* deal with %-N+.-M+ -- syntax is already checked */
    N = M = 0;   /* value */
    Np = Mp = 0; /* is there a plus? */
    Nd = Md = 0; /* is there a dash? */
    if (*map == '-') ++map, Nd = 1;
    N = *map++ - '0';
    if (*map == '+') ++map, Np = 1;
    if (*map == '.') {
        ++map;
        if (*map == '-') {
        ++map, Md = 1;
        }
        M = *map++ - '0';
        if (*map == '+') {
        ++map, Mp = 1;
        }
    }
    /* note that N and M are one-based indices, not zero-based */
    start = dots[0]+1; /* ptr to the first character */
    end = dots[ndots]; /* ptr to the character after the last one */
    if (N != 0) {
        if (N > ndots) {
        start = "_";
        end = start+1;
        }
        else if (!Nd) {
        start = dots[N-1]+1;
        if (!Np) {
            end = dots[N];
        }
        }
        else {
        if (!Np) {
            start = dots[ndots-N]+1;
        }
        end = dots[ndots-N+1];
        }
    }
    if (M != 0) {
        if (M > end - start) {
        start = "_";
        end = start+1;
        }
        else if (!Md) {
        start = start+M-1;
        if (!Mp) {
            end = start+1;
        }
        }
        else {
        if (!Mp) {
            start = end-M;
        }
        end = end-M+1;
        }
    }
    vhost_alias_checkspace(r, buf, &dest, end - start);
    for (p = start; p < end; ++p) {
        *dest++ = ap_tolower(*p);
    }
    }
    *dest = '\0';
    /* no double slashes */
    if (last == '/') {
    ++uri;
    }
    if (r->filename) {
    r->filename = ap_pstrcat(r->pool, r->filename, buf, uri, NULL);
    }
    else {
    r->filename = ap_pstrcat(r->pool, buf, uri, NULL);
    }
}

static int mva_translate(request_rec *r)
{
    mva_sconf_t *conf;
    const char *name, *map, *uri;
    mva_mode_e mode;
    int cgi;

    conf = (mva_sconf_t *) ap_get_module_config(r->server->module_config,
                          &vhost_alias_module);
    if (!strncmp(r->uri, "/cgi-bin/", 9)) {
    mode = conf->cgi_root_mode;
    map = conf->cgi_root;
    uri = r->uri + 8;
    /*
     * can't force cgi immediately because we might not handle this
     * call if the mode is wrong
     */
    cgi = 1;
    }
    else if (r->uri[0] == '/') {
    mode = conf->doc_root_mode;
    map = conf->doc_root;
    uri = r->uri;
    cgi = 0;
    }
    else {
    return DECLINED;
    }

    if (mode == VHOST_ALIAS_NAME) {
    name = ap_get_server_name(r);
    }
    else if (mode == VHOST_ALIAS_IP) {
    name = r->connection->local_ip;
    }
    else {
    return DECLINED;
    }

    vhost_alias_interpolate(r, name, map, uri);

    if (cgi) {
    /* see is_scriptaliased() in mod_cgi */
    r->handler = "cgi-script";
    ap_table_setn(r->notes, "alias-forced-type", r->handler);
    }

    return OK;
}

static void register_hooks(void)
{
    ap_hook_translate_name(mva_translate, NULL, NULL, AP_HOOK_MIDDLE);
};

module MODULE_EXPORT_VAR vhost_alias_module =
{
    STANDARD20_MODULE_STUFF,
    NULL,           /* dir config creater */
    NULL,           /* dir merger --- default is to override */
    mva_create_server_config,   /* server config */
    mva_merge_server_config,    /* merge server configs */
    mva_commands,       /* command ap_table_t */
    NULL,           /* handlers */
    register_hooks              /* register hooks */
};