Function ap_create_environment

server/util_script.c:112–966

}

AP_DECLARE(char **) ap_create_environment(apr_pool_t *p, apr_table_t *t)
{
    const apr_array_header_t *env_arr = apr_table_elts(t);
    const apr_table_entry_t *elts = (const apr_table_entry_t *) env_arr->elts;
    char **env = (char **) apr_palloc(p, (env_arr->nelts + 2) * sizeof(char *));
    int i, j;
    char *tz;
    char *whack;

    j = 0;
    if (!apr_table_get(t, "TZ")) {
        tz = getenv("TZ");
        if (tz != NULL) {
            env[j++] = apr_pstrcat(p, "TZ=", tz, NULL);
        }
    }
    for (i = 0; i < env_arr->nelts; ++i) {
        int changed = 0;

        if (!elts[i].key) {
            continue;
        }
        env[j] = apr_pstrcat(p, elts[i].key, "=", elts[i].val, NULL);
        whack = env[j];
        if (apr_isdigit(*whack)) {
            *whack++ = '_';
            changed = 1;
        }
        while (*whack != '=') {
#ifdef WIN32
            if (!apr_isalnum(*whack) && *whack != '_' && *whack != '(' && *whack != ')') {
#else
            if (!apr_isalnum(*whack) && *whack != '_') {
#endif
                *whack = '_';
                changed = 1;
            }
            ++whack;
        }
        if (changed) {
            *whack = '\0';
            /*
             * If after cleaning up the key the key is identical to an existing key
             * in the table drop this environment variable. This also prevents
             * to override CGI reserved environment variables with variables whose
             * names have an invalid character instead of '_', but are otherwise
             * equal to the names CGI reserved environment variables.
             */
            if (!apr_table_get(t, env[j])) {
                ++j;
                *whack = '=';
            }
        }
        else {
            ++j;
        }
    }