apr_status_t bind_to_addr(apr_socket_t *newsock, apr_sockaddr_t *laddr,

        const char *proxy_function, proxy_worker *worker, server_rec *s)

{

    const int idx = worker->bind_idx;

    const int range = worker->bind_range;

    const int start = worker->bind_port;

    for(int i = 0; i < range; ++i) { /* loop until we can bind correctly*/

        int port = start + ((idx + i) % range);

        ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, s, "proxy: %s: trying to bind to %s:%u",

                proxy_function, laddr,port, NULL);

        laddr->sa.sin.sin_port = htons(port);

        laddr->port = port;

        if (apr_socket_bind(newsock, laddr) == APR_SUCCESS) {

            ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, s, "proxy: %s: bound to %s:%u",

                    proxy_function, laddr, laddr->port, NULL);

            worker->bind_idx = i + 1;

            return APR_SUCCESS;

        }

    }

    return APR_EINVAL;

}

        if (worker->bindopt_set) {

            rv = APR_EINVAL;

            for(apr_sockaddr_t *addr = worker->bind_addr; addr; addr = addr->next) {

                if (addr->family != backend_addr->family) continue;

                rv = bind_to_addr(newsock, addr, proxy_function, worker, s);

                if (rv == APR_SUCCESS) break;

            }

            if (rv != APR_SUCCESS) {

                ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, "proxy: %s: can not bind to %s:%u+%u",

                        proxy_function,worker->bind_addr, worker->bind_port, worker->bind_range, NULL);

                return DECLINED;

            }

        }

/* Value from /usr/sys/port_kernel.h is it exposed in any portable header? */

#define PORT_MAX_PORTS 0x10000

/* a sane value for RANGE of bind */

#define MIN_RANGE_HINT 8

    else if (!strcasecmp(key, "bind")) {

        char* range, *host, *scope_id;

        apr_port_t port;

        int r = 0;

        range = ap_strrchr((char*)val,'+');

        if (range) {

            *range++ = 0;

            r = atoi(range);

            if (r < MIN_RANGE_HINT)

                ap_log_error(APLOG_MARK, APLOG_WARNING, 0, NULL,

                        "range %u is too low, consider increasing the bind range.", r, NULL);

            /* We dont accept a single port with out a range as it would be same

             * as a single threaded single process http-client

             *

             * We do not allow ip:0+0 or ip:0 as it can be specified more clearly

             * as just ip.

             *

             * we dont accept a range with out a port either.

             */

            if((apr_parse_addr_port(&host, &scope_id, &port, val, p) != APR_SUCCESS)

                    || scope_id               /* we dont know how to use scope_id */

                    || (!port && range)       /* only a combo [port+range] is valid */

                    || (port && (!range || r < 0)) /* Let admin specify r=0 if he wants to */

                    || ((port + r) >= PORT_MAX_PORTS)

              )

                return "ProxySet bind:  Invalid address -"

                    " format is <addr>[:<port>+<range>]";

        }

        /* Preparse the address */

        if((apr_sockaddr_info_get(&(worker->bind_addr), host, APR_UNSPEC, port, 0, p)

                    != APR_SUCCESS) || !worker->bind_addr)

            return "ProxySet bind: Hostname did not resolve.";

        worker->bind_port = port;

        /* If there didn't exist a port then there was no range either. so we have the

         * starting value 0 for r when no port was specified.*/

        worker->bind_range = r + 1;

        worker->bind_idx = 0;

        worker->bindopt_set = 1;

    }

    /*bind to local ports*/

    apr_sockaddr_t *bind_addr;

    apr_port_t bind_port;

    apr_port_t bind_range;             /* restrict the source ports used by mod_proxy */

    int bind_idx;

    char bindopt_set;