cgi_main.c

Go to the documentation of this file.

/*
   +----------------------------------------------------------------------+
   | Copyright (c) The PHP Group                                          |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | https://www.php.net/license/3_01.txt                                 |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Authors: Rasmus Lerdorf <rasmus@lerdorf.on.ca>                       |
   |          Stig Bakken <ssb@php.net>                                   |
   |          Zeev Suraski <zeev@php.net>                                 |
   | FastCGI: Ben Mansell <php@slimyhorror.com>                           |
   |          Shane Caraveo <shane@caraveo.com>                           |
   |          Dmitry Stogov <dmitry@php.net>                              |
   +----------------------------------------------------------------------+
*/
 
#include "php.h"
#include "php_globals.h"
#include "php_variables.h"
#include "php_ini_builder.h"
#include "zend_modules.h"
 
#include "SAPI.h"
 
#include <stdio.h>
 
#ifdef PHP_WIN32
# include "win32/time.h"
# include "win32/signal.h"
# include "win32/winutil.h"
# include <process.h>
#endif
 
#ifdef HAVE_SYS_TIME_H
# include <sys/time.h>
#endif
 
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
 
#include <signal.h>
 
#include <locale.h>
 
#ifdef HAVE_SYS_TYPES_H
# include <sys/types.h>
#endif
 
#ifdef HAVE_SYS_WAIT_H
# include <sys/wait.h>
#endif
 
#include "zend.h"
#include "zend_extensions.h"
#include "php_ini.h"
#include "php_globals.h"
#include "php_main.h"
#include "fopen_wrappers.h"
#include "http_status_codes.h"
#include "ext/standard/php_standard.h"
#include "ext/standard/dl_arginfo.h"
#include "ext/standard/url.h"
 
#ifdef PHP_WIN32
# include <io.h>
# include <fcntl.h>
# include "win32/php_registry.h"
#endif
 
#ifdef __riscos__
# include <unixlib/local.h>
int __riscosify_control = __RISCOSIFY_STRICT_UNIX_SPECS;
#endif
 
#include "zend_compile.h"
#include "zend_execute.h"
#include "zend_highlight.h"
 
#include "php_getopt.h"
 
#include "fastcgi.h"
#include "cgi_main_arginfo.h"
 
#if defined(PHP_WIN32) && defined(HAVE_OPENSSL_EXT)
# include "openssl/applink.c"
#endif
 
#ifdef HAVE_VALGRIND
# include "valgrind/callgrind.h"
# ifdef HAVE_VALGRIND_CACHEGRIND_H
#  include "valgrind/cachegrind.h"
# endif
#endif
 
#ifndef PHP_WIN32
/* XXX this will need to change later when threaded fastcgi is implemented.  shane */
static struct sigaction act, old_term, old_quit, old_int;
#endif
 
static void (*php_php_import_environment_variables)(zval *array_ptr);
 
/* these globals used for forking children on unix systems */
static int children = 0;
 

static int parent = 1;
 
#ifndef PHP_WIN32
/* Did parent received exit signals SIG_TERM/SIG_INT/SIG_QUIT */
static volatile sig_atomic_t exit_signal = 0;
 
/* Is Parent waiting for children to exit */
static int parent_waiting = 0;

static pid_t pgroup;
#endif
 
#define PHP_MODE_STANDARD   1
#define PHP_MODE_HIGHLIGHT  2
#define PHP_MODE_LINT       4
#define PHP_MODE_STRIP      5
 
static char *php_optarg = NULL;
static int php_optind = 1;
static zend_module_entry cgi_module_entry;
 
static const opt_struct OPTIONS[] = {
    {'a', 0, "interactive"},
    {'b', 1, "bindpath"},
    {'C', 0, "no-chdir"},
    {'c', 1, "php-ini"},
    {'d', 1, "define"},
    {'e', 0, "profile-info"},
    {'f', 1, "file"},
    {'h', 0, "help"},
    {'i', 0, "info"},
    {'l', 0, "syntax-check"},
    {'m', 0, "modules"},
    {'n', 0, "no-php-ini"},
    {'q', 0, "no-header"},
    {'s', 0, "syntax-highlight"},
    {'s', 0, "syntax-highlighting"},
    {'w', 0, "strip"},
    {'?', 0, "usage"},/* help alias (both '?' and 'usage') */
    {'v', 0, "version"},
    {'z', 1, "zend-extension"},
    {'T', 1, "timing"},
    {'-', 0, NULL} /* end of args */
};
 
typedef struct _php_cgi_globals_struct {
    HashTable user_config_cache;
    char *redirect_status_env;
    bool rfc2616_headers;
    bool nph;
    bool check_shebang_line;
    bool fix_pathinfo;
    bool force_redirect;
    bool discard_path;
    bool fcgi_logging;
#ifdef PHP_WIN32
    bool impersonate;
#endif
} php_cgi_globals_struct;
 
/* {{{ user_config_cache
 *
 * Key for each cache entry is dirname(PATH_TRANSLATED).
 *
 * NOTE: Each cache entry config_hash contains the combination from all user ini files found in
 *       the path starting from doc_root through to dirname(PATH_TRANSLATED).  There is no point
 *       storing per-file entries as it would not be possible to detect added / deleted entries
 *       between separate files.
 */
typedef struct _user_config_cache_entry {
    time_t expires;
    HashTable *user_config;
} user_config_cache_entry;
 
static void user_config_cache_entry_dtor(zval *el)
{
    user_config_cache_entry *entry = (user_config_cache_entry *)Z_PTR_P(el);
    zend_hash_destroy(entry->user_config);
    free(entry->user_config);
    free(entry);
}
/* }}} */
 
#ifdef ZTS
static int php_cgi_globals_id;
#define CGIG(v) ZEND_TSRMG(php_cgi_globals_id, php_cgi_globals_struct *, v)
#if defined(PHP_WIN32)
ZEND_TSRMLS_CACHE_DEFINE()
#endif
#else
static php_cgi_globals_struct php_cgi_globals;
#define CGIG(v) (php_cgi_globals.v)
#endif
 
#ifdef PHP_WIN32
#define TRANSLATE_SLASHES(path) \
    { \
        char *tmp = path; \
        while (*tmp) { \
            if (*tmp == '\\') *tmp = '/'; \
            tmp++; \
        } \
    }
#else
#define TRANSLATE_SLASHES(path)
#endif
 
#ifdef PHP_WIN32
#define WIN32_MAX_SPAWN_CHILDREN 64
HANDLE kid_cgi_ps[WIN32_MAX_SPAWN_CHILDREN];
int kids, cleaning_up = 0;
HANDLE job = NULL;
JOBOBJECT_EXTENDED_LIMIT_INFORMATION job_info = { 0 };
CRITICAL_SECTION cleanup_lock;
#endif
 
#ifndef HAVE_ATTRIBUTE_WEAK
static void fcgi_log(int type, const char *format, ...) {
    va_list ap;
 
    va_start(ap, format);
    vfprintf(stderr, format, ap);
    va_end(ap);
}
#endif
 
static int module_name_cmp(Bucket *f, Bucket *s)
{
    return strcasecmp(    ((zend_module_entry *)Z_PTR(f->val))->name,
                        ((zend_module_entry *)Z_PTR(s->val))->name);
}
 
static void print_modules(void)
{
    HashTable sorted_registry;
    zend_module_entry *module;
 
    zend_hash_init(&sorted_registry, 64, NULL, NULL, 1);
    zend_hash_copy(&sorted_registry, &module_registry, NULL);
    zend_hash_sort(&sorted_registry, module_name_cmp, 0);
    ZEND_HASH_MAP_FOREACH_PTR(&sorted_registry, module) {
        php_printf("%s\n", module->name);
    } ZEND_HASH_FOREACH_END();
    zend_hash_destroy(&sorted_registry);
}
 
static void print_extension_info(zend_extension *ext)
{
    php_printf("%s\n", ext->name);
}
 
static int extension_name_cmp(const zend_llist_element **f, const zend_llist_element **s)
{
    zend_extension *fe = (zend_extension*)(*f)->data;
    zend_extension *se = (zend_extension*)(*s)->data;
    return strcmp(fe->name, se->name);
}
 
static void print_extensions(void)
{
    zend_llist sorted_exts;
 
    zend_llist_copy(&sorted_exts, &zend_extensions);
    sorted_exts.dtor = NULL;
    zend_llist_sort(&sorted_exts, extension_name_cmp);
    zend_llist_apply(&sorted_exts, (llist_apply_func_t) print_extension_info);
    zend_llist_destroy(&sorted_exts);
}
 
#ifndef STDOUT_FILENO
#define STDOUT_FILENO 1
#endif
 
static inline size_t sapi_cgi_single_write(const char *str, size_t str_length)
{
#ifdef PHP_WRITE_STDOUT
    int ret;
 
    ret = write(STDOUT_FILENO, str, str_length);
    if (ret <= 0) return 0;
    return ret;
#else
    size_t ret;
 
    ret = fwrite(str, 1, MIN(str_length, 16384), stdout);
    return ret;
#endif
}
 
static size_t sapi_cgi_ub_write(const char *str, size_t str_length)
{
    const char *ptr = str;
    size_t remaining = str_length;
    size_t ret;
 
    while (remaining > 0) {
        ret = sapi_cgi_single_write(ptr, remaining);
        if (!ret) {
            php_handle_aborted_connection();
            return str_length - remaining;
        }
        ptr += ret;
        remaining -= ret;
    }
 
    return str_length;
}
 
static size_t sapi_fcgi_ub_write(const char *str, size_t str_length)
{
    const char *ptr = str;
    size_t remaining = str_length;
    fcgi_request *request = (fcgi_request*) SG(server_context);
 
    while (remaining > 0) {
        int to_write = remaining > INT_MAX ? INT_MAX : (int)remaining;
        int ret = fcgi_write(request, FCGI_STDOUT, ptr, to_write);
 
        if (ret <= 0) {
            php_handle_aborted_connection();
            return str_length - remaining;
        }
        ptr += ret;
        remaining -= ret;
    }
 
    return str_length;
}
 
static void sapi_cgi_flush(void *server_context)
{
    if (fflush(stdout) == EOF) {
        php_handle_aborted_connection();
    }
}
 
static void sapi_fcgi_flush(void *server_context)
{
    fcgi_request *request = (fcgi_request*) server_context;
 
    if (!parent && request) {
        sapi_send_headers();
        if (!fcgi_flush(request, 0)) {
            php_handle_aborted_connection();
        }
    }
}
 
#define SAPI_CGI_MAX_HEADER_LENGTH 1024
 
static int sapi_cgi_send_headers(sapi_headers_struct *sapi_headers)
{
    sapi_header_struct *h;
    zend_llist_position pos;
    bool ignore_status = 0;
    int response_status = SG(sapi_headers).http_response_code;
 
    if (SG(request_info).no_headers == 1) {
        return  SAPI_HEADER_SENT_SUCCESSFULLY;
    }
 
    if (CGIG(nph) || SG(sapi_headers).http_response_code != 200)
    {
        int len;
        bool has_status = 0;
        char buf[SAPI_CGI_MAX_HEADER_LENGTH];
 
        if (CGIG(rfc2616_headers) && SG(sapi_headers).http_status_line) {
            char *s;
            len = slprintf(buf, SAPI_CGI_MAX_HEADER_LENGTH, "%s", SG(sapi_headers).http_status_line);
            if ((s = strchr(SG(sapi_headers).http_status_line, ' '))) {
                response_status = atoi((s + 1));
            }
 
            if (len > SAPI_CGI_MAX_HEADER_LENGTH) {
                len = SAPI_CGI_MAX_HEADER_LENGTH;
            }
 
        } else {
            char *s;
 
            if (SG(sapi_headers).http_status_line &&
                (s = strchr(SG(sapi_headers).http_status_line, ' ')) != 0 &&
                (s - SG(sapi_headers).http_status_line) >= 5 &&
                strncasecmp(SG(sapi_headers).http_status_line, "HTTP/", 5) == 0
            ) {
                len = slprintf(buf, sizeof(buf), "Status:%s", s);
                response_status = atoi((s + 1));
            } else {
                h = (sapi_header_struct*)zend_llist_get_first_ex(&sapi_headers->headers, &pos);
                while (h) {
                    if (h->header_len > sizeof("Status:")-1 &&
                        strncasecmp(h->header, "Status:", sizeof("Status:")-1) == 0
                    ) {
                        has_status = 1;
                        break;
                    }
                    h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
                }
                if (!has_status) {
                    http_response_status_code_pair *err = (http_response_status_code_pair*)http_status_map;
 
                    while (err->code != 0) {
                        if (err->code == SG(sapi_headers).http_response_code) {
                            break;
                        }
                        err++;
                    }
                    if (err->str) {
                        len = slprintf(buf, sizeof(buf), "Status: %d %s", SG(sapi_headers).http_response_code, err->str);
                    } else {
                        len = slprintf(buf, sizeof(buf), "Status: %d", SG(sapi_headers).http_response_code);
                    }
                }
            }
        }
 
        if (!has_status) {
            PHPWRITE_H(buf, len);
            PHPWRITE_H("\r\n", 2);
            ignore_status = 1;
        }
    }
 
    h = (sapi_header_struct*)zend_llist_get_first_ex(&sapi_headers->headers, &pos);
    while (h) {
        /* prevent CRLFCRLF */
        if (h->header_len) {
            if (h->header_len > sizeof("Status:")-1 &&
                strncasecmp(h->header, "Status:", sizeof("Status:")-1) == 0
            ) {
                if (!ignore_status) {
                    ignore_status = 1;
                    PHPWRITE_H(h->header, h->header_len);
                    PHPWRITE_H("\r\n", 2);
                }
            } else if (response_status == 304 && h->header_len > sizeof("Content-Type:")-1 &&
                strncasecmp(h->header, "Content-Type:", sizeof("Content-Type:")-1) == 0
            ) {
                h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
                continue;
            } else {
                PHPWRITE_H(h->header, h->header_len);
                PHPWRITE_H("\r\n", 2);
            }
        }
        h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
    }
    PHPWRITE_H("\r\n", 2);
 
    return SAPI_HEADER_SENT_SUCCESSFULLY;
}
 
#ifndef STDIN_FILENO
# define STDIN_FILENO 0
#endif
 
static size_t sapi_cgi_read_post(char *buffer, size_t count_bytes)
{
    size_t read_bytes = 0;
    int tmp_read_bytes;
    size_t remaining_bytes;
 
    assert(SG(request_info).content_length >= SG(read_post_bytes));
 
    remaining_bytes = (size_t)(SG(request_info).content_length - SG(read_post_bytes));
 
    count_bytes = MIN(count_bytes, remaining_bytes);
    while (read_bytes < count_bytes) {
#ifdef PHP_WIN32
        size_t diff = count_bytes - read_bytes;
        unsigned int to_read = (diff > INT_MAX) ? INT_MAX : (unsigned int)diff;
 
        tmp_read_bytes = _read(STDIN_FILENO, buffer + read_bytes, to_read);
#else
        tmp_read_bytes = read(STDIN_FILENO, buffer + read_bytes, count_bytes - read_bytes);
#endif
        if (tmp_read_bytes <= 0) {
            break;
        }
        read_bytes += tmp_read_bytes;
    }
    return read_bytes;
}
 
static size_t sapi_fcgi_read_post(char *buffer, size_t count_bytes)
{
    size_t read_bytes = 0;
    int tmp_read_bytes;
    fcgi_request *request = (fcgi_request*) SG(server_context);
    size_t remaining = SG(request_info).content_length - SG(read_post_bytes);
 
    if (remaining < count_bytes) {
        count_bytes = remaining;
    }
    while (read_bytes < count_bytes) {
        size_t diff = count_bytes - read_bytes;
        int to_read = (diff > INT_MAX) ? INT_MAX : (int)diff;
 
        tmp_read_bytes = fcgi_read(request, buffer + read_bytes, to_read);
        if (tmp_read_bytes <= 0) {
            break;
        }
        read_bytes += tmp_read_bytes;
    }
    return read_bytes;
}
 
#ifdef PHP_WIN32
/* The result needs to be freed! See sapi_getenv(). */
static char *cgi_getenv_win32(const char *name, size_t name_len)
{
    char *ret = NULL;
    wchar_t *keyw, *valw;
    size_t size;
    int rc;
 
    keyw = php_win32_cp_conv_any_to_w(name, name_len, PHP_WIN32_CP_IGNORE_LEN_P);
    if (!keyw) {
        return NULL;
    }
 
    rc = _wgetenv_s(&size, NULL, 0, keyw);
    if (rc || 0 == size) {
        free(keyw);
        return NULL;
    }
 
    valw = emalloc((size + 1) * sizeof(wchar_t));
 
    rc = _wgetenv_s(&size, valw, size, keyw);
    if (!rc) {
        ret = php_win32_cp_w_to_any(valw);
    }
 
    free(keyw);
    efree(valw);
 
    return ret;
}
#endif
 
static char *sapi_cgi_getenv(const char *name, size_t name_len)
{
#ifndef PHP_WIN32
    return getenv(name);
#else
    return cgi_getenv_win32(name, name_len);
#endif
}
 
static char *sapi_fcgi_getenv(const char *name, size_t name_len)
{
    /* when php is started by mod_fastcgi, no regular environment
     * is provided to PHP.  It is always sent to PHP at the start
     * of a request.  So we have to do our own lookup to get env
     * vars.  This could probably be faster somehow.  */
    fcgi_request *request = (fcgi_request*) SG(server_context);
    char *ret = fcgi_getenv(request, name, (int)name_len);
 
#ifndef PHP_WIN32
    if (ret) return ret;
    /*  if cgi, or fastcgi and not found in fcgi env
        check the regular environment */
    return getenv(name);
#else
    if (ret) {
        /* The functions outside here don't know, where does it come
            from. They'll need to free the returned memory as it's
            not necessary from the fcgi env. */
        return strdup(ret);
    }
    /*  if cgi, or fastcgi and not found in fcgi env
        check the regular environment */
    return cgi_getenv_win32(name, name_len);
#endif
}
 
static char *_sapi_cgi_putenv(char *name, size_t name_len, char *value)
{
#if !defined(HAVE_SETENV) || !defined(HAVE_UNSETENV)
    size_t len;
    char *buf;
#endif
 
#ifdef HAVE_SETENV
    if (value) {
        setenv(name, value, 1);
    }
#endif
#ifdef HAVE_UNSETENV
    if (!value) {
        unsetenv(name);
    }
#endif
 
#if !defined(HAVE_SETENV) || !defined(HAVE_UNSETENV)
    /*  if cgi, or fastcgi and not found in fcgi env
        check the regular environment
        this leaks, but it's only cgi anyway, we'll fix
        it for 5.0
    */
    len = name_len + (value ? strlen(value) : 0) + sizeof("=") + 2;
    buf = (char *) malloc(len);
    if (buf == NULL) {
        return getenv(name);
    }
#endif
#if !defined(HAVE_SETENV)
    if (value) {
        len = slprintf(buf, len - 1, "%s=%s", name, value);
        putenv(buf);
    }
#endif
#if !defined(HAVE_UNSETENV)
    if (!value) {
        len = slprintf(buf, len - 1, "%s=", name);
        putenv(buf);
    }
#endif
    return getenv(name);
}
 
static char *sapi_cgi_read_cookies(void)
{
    return getenv("HTTP_COOKIE");
}
 
static char *sapi_fcgi_read_cookies(void)
{
    fcgi_request *request = (fcgi_request*) SG(server_context);
 
    return FCGI_GETENV(request, "HTTP_COOKIE");
}
 
static void cgi_php_load_env_var(const char *var, unsigned int var_len, char *val, unsigned int val_len, void *arg)
{
    zval *array_ptr = (zval *) arg;
    int filter_arg = (Z_ARR_P(array_ptr) == Z_ARR(PG(http_globals)[TRACK_VARS_ENV])) ? PARSE_ENV : PARSE_SERVER;
    size_t new_val_len;
 
    if (sapi_module.input_filter(filter_arg, var, &val, strlen(val), &new_val_len)) {
        php_register_variable_safe(var, val, new_val_len, array_ptr);
    }
}
 
static void cgi_php_import_environment_variables(zval *array_ptr)
{
    if (PG(variables_order) && (strchr(PG(variables_order),'E') || strchr(PG(variables_order),'e'))) {
        if (Z_TYPE(PG(http_globals)[TRACK_VARS_ENV]) != IS_ARRAY) {
            zend_is_auto_global(ZSTR_KNOWN(ZEND_STR_AUTOGLOBAL_ENV));
        }
 
        if (Z_TYPE(PG(http_globals)[TRACK_VARS_ENV]) == IS_ARRAY &&
            Z_ARR_P(array_ptr) != Z_ARR(PG(http_globals)[TRACK_VARS_ENV])) {
            zend_array_destroy(Z_ARR_P(array_ptr));
            Z_ARR_P(array_ptr) = zend_array_dup(Z_ARR(PG(http_globals)[TRACK_VARS_ENV]));
            return;
        }
    }
 
    /* call php's original import as a catch-all */
    php_php_import_environment_variables(array_ptr);
 
    if (fcgi_is_fastcgi()) {
        fcgi_request *request = (fcgi_request*) SG(server_context);
        fcgi_loadenv(request, cgi_php_load_env_var, array_ptr);
    }
}
 
static void sapi_cgi_register_variables(zval *track_vars_array)
{
    size_t php_self_len;
    char *php_self;
 
    /* In CGI mode, we consider the environment to be a part of the server
     * variables
     */
    php_import_environment_variables(track_vars_array);
 
    if (CGIG(fix_pathinfo)) {
        char *script_name = SG(request_info).request_uri;
        char *path_info;
        int free_php_self;
        ALLOCA_FLAG(use_heap)
 
        if (fcgi_is_fastcgi()) {
            fcgi_request *request = (fcgi_request*) SG(server_context);
 
            path_info = FCGI_GETENV(request, "PATH_INFO");
        } else {
            path_info = getenv("PATH_INFO");
        }
 
        if (path_info) {
            size_t path_info_len = strlen(path_info);
 
            if (script_name) {
                size_t script_name_len = strlen(script_name);
 
                php_self_len = script_name_len + path_info_len;
                php_self = do_alloca(php_self_len + 1, use_heap);
                memcpy(php_self, script_name, script_name_len + 1);
                memcpy(php_self + script_name_len, path_info, path_info_len + 1);
                free_php_self = 1;
            }  else {
                php_self = path_info;
                php_self_len = path_info_len;
                free_php_self = 0;
            }
        } else if (script_name) {
            php_self = script_name;
            php_self_len = strlen(script_name);
            free_php_self = 0;
        } else {
            php_self = "";
            php_self_len = 0;
            free_php_self = 0;
        }
 
        /* Build the special-case PHP_SELF variable for the CGI version */
        if (sapi_module.input_filter(PARSE_SERVER, "PHP_SELF", &php_self, php_self_len, &php_self_len)) {
            php_register_variable_safe("PHP_SELF", php_self, php_self_len, track_vars_array);
        }
        if (free_php_self) {
            free_alloca(php_self, use_heap);
        }
    } else {
        php_self = SG(request_info).request_uri ? SG(request_info).request_uri : "";
        php_self_len = strlen(php_self);
        if (sapi_module.input_filter(PARSE_SERVER, "PHP_SELF", &php_self, php_self_len, &php_self_len)) {
            php_register_variable_safe("PHP_SELF", php_self, php_self_len, track_vars_array);
        }
    }
}
 
static void sapi_cgi_log_message(const char *message, int syslog_type_int)
{
    if (fcgi_is_fastcgi() && CGIG(fcgi_logging)) {
        fcgi_request *request;
 
        request = (fcgi_request*) SG(server_context);
        if (request) {
            int ret, len = (int)strlen(message);
            char *buf = malloc(len+2);
 
            memcpy(buf, message, len);
            memcpy(buf + len, "\n", sizeof("\n"));
            ret = fcgi_write(request, FCGI_STDERR, buf, (int)(len + 1));
            free(buf);
            if (ret < 0) {
                php_handle_aborted_connection();
            }
        } else {
            fprintf(stderr, "%s\n", message);
        }
        /* ignore return code */
    } else {
        fprintf(stderr, "%s\n", message);
    }
}
 
/* {{{ php_cgi_ini_activate_user_config */
static void php_cgi_ini_activate_user_config(char *path, size_t path_len, const char *doc_root, size_t doc_root_len)
{
    user_config_cache_entry *new_entry, *entry;
    time_t request_time = (time_t)sapi_get_request_time();
 
    /* Find cached config entry: If not found, create one */
    if ((entry = zend_hash_str_find_ptr(&CGIG(user_config_cache), path, path_len)) == NULL) {
        new_entry = pemalloc(sizeof(user_config_cache_entry), 1);
        new_entry->expires = 0;
        new_entry->user_config = (HashTable *) pemalloc(sizeof(HashTable), 1);
        zend_hash_init(new_entry->user_config, 8, NULL, (dtor_func_t) config_zval_dtor, 1);
        entry = zend_hash_str_update_ptr(&CGIG(user_config_cache), path, path_len, new_entry);
    }
 
    /* Check whether cache entry has expired and rescan if it is */
    if (request_time > entry->expires) {
        char *real_path = NULL;
        char *s1, *s2;
        size_t s_len;
 
        /* Clear the expired config */
        zend_hash_clean(entry->user_config);
 
        if (!IS_ABSOLUTE_PATH(path, path_len)) {
            size_t real_path_len;
            real_path = tsrm_realpath(path, NULL);
            if (real_path == NULL) {
                return;
            }
            real_path_len = strlen(real_path);
            path = real_path;
            path_len = real_path_len;
        }
 
        if (path_len > doc_root_len) {
            s1 = (char *) doc_root;
            s2 = path;
            s_len = doc_root_len;
        } else {
            s1 = path;
            s2 = (char *) doc_root;
            s_len = path_len;
        }
 
        /* we have to test if path is part of DOCUMENT_ROOT.
          if it is inside the docroot, we scan the tree up to the docroot
            to find more user.ini, if not we only scan the current path.
          */
#ifdef PHP_WIN32
        if (strnicmp(s1, s2, s_len) == 0) {
#else
        if (strncmp(s1, s2, s_len) == 0) {
#endif
            char *ptr = s2 + doc_root_len;
#ifdef PHP_WIN32
            while ((ptr = strpbrk(ptr, "\\/")) != NULL) {
#else
            while ((ptr = strchr(ptr, DEFAULT_SLASH)) != NULL) {
#endif
                *ptr = 0;
                php_parse_user_ini_file(path, PG(user_ini_filename), entry->user_config);
                *ptr = '/';
                ptr++;
            }
        } else {
            php_parse_user_ini_file(path, PG(user_ini_filename), entry->user_config);
        }
 
        if (real_path) {
            efree(real_path);
        }
        entry->expires = request_time + PG(user_ini_cache_ttl);
    }
 
    /* Activate ini entries with values from the user config hash */
    php_ini_activate_config(entry->user_config, PHP_INI_PERDIR, PHP_INI_STAGE_HTACCESS);
}
/* }}} */
 
static int sapi_cgi_activate(void)
{
    /* PATH_TRANSLATED should be defined at this stage but better safe than sorry :) */
    if (!SG(request_info).path_translated) {
        return FAILURE;
    }
 
    if (php_ini_has_per_host_config()) {
        char *server_name;
 
        /* Activate per-host-system-configuration defined in php.ini and stored into configuration_hash during startup */
        if (fcgi_is_fastcgi()) {
            fcgi_request *request = (fcgi_request*) SG(server_context);
 
            server_name = FCGI_GETENV(request, "SERVER_NAME");
        } else {
            server_name = getenv("SERVER_NAME");
        }
        /* SERVER_NAME should also be defined at this stage..but better check it anyway */
        if (server_name) {
            size_t server_name_len = strlen(server_name);
            server_name = estrndup(server_name, server_name_len);
            zend_str_tolower(server_name, server_name_len);
            php_ini_activate_per_host_config(server_name, server_name_len);
            efree(server_name);
        }
    }
 
    if (php_ini_has_per_dir_config() ||
        (PG(user_ini_filename) && *PG(user_ini_filename))
    ) {
        char *path;
        size_t path_len;
 
        /* Prepare search path */
        path_len = strlen(SG(request_info).path_translated);
 
        /* Make sure we have trailing slash! */
        if (!IS_SLASH(SG(request_info).path_translated[path_len])) {
            path = emalloc(path_len + 2);
            memcpy(path, SG(request_info).path_translated, path_len + 1);
            path_len = zend_dirname(path, path_len);
            path[path_len++] = DEFAULT_SLASH;
        } else {
            path = estrndup(SG(request_info).path_translated, path_len);
            path_len = zend_dirname(path, path_len);
        }
        path[path_len] = 0;
 
        /* Activate per-dir-system-configuration defined in php.ini and stored into configuration_hash during startup */
        php_ini_activate_per_dir_config(path, path_len); /* Note: for global settings sake we check from root to path */
 
        /* Load and activate user ini files in path starting from DOCUMENT_ROOT */
        if (PG(user_ini_filename) && *PG(user_ini_filename)) {
            char *doc_root;
 
            if (fcgi_is_fastcgi()) {
                fcgi_request *request = (fcgi_request*) SG(server_context);
 
                doc_root = FCGI_GETENV(request, "DOCUMENT_ROOT");
            } else {
                doc_root = getenv("DOCUMENT_ROOT");
            }
            /* DOCUMENT_ROOT should also be defined at this stage..but better check it anyway */
            if (doc_root) {
                size_t doc_root_len = strlen(doc_root);
                if (doc_root_len > 0 && IS_SLASH(doc_root[doc_root_len - 1])) {
                    --doc_root_len;
                }
#ifdef PHP_WIN32
                /* paths on windows should be case-insensitive */
                doc_root = estrndup(doc_root, doc_root_len);
                zend_str_tolower(doc_root, doc_root_len);
#endif
                php_cgi_ini_activate_user_config(path, path_len, doc_root, doc_root_len);
 
#ifdef PHP_WIN32
                efree(doc_root);
#endif
            }
        }
 
        efree(path);
    }
 
    return SUCCESS;
}
 
static int sapi_cgi_deactivate(void)
{
    /* flush only when SAPI was started. The reasons are:
        1. SAPI Deactivate is called from two places: module init and request shutdown
        2. When the first call occurs and the request is not set up, flush fails on FastCGI.
    */
    if (SG(sapi_started)) {
        if (fcgi_is_fastcgi()) {
            if (
                !parent &&
                !fcgi_finish_request((fcgi_request*)SG(server_context), 0)) {
                php_handle_aborted_connection();
            }
        } else {
            sapi_cgi_flush(SG(server_context));
        }
    }
    return SUCCESS;
}
 
static int php_cgi_startup(sapi_module_struct *sapi_module)
{
    return php_module_startup(sapi_module, &cgi_module_entry);
}
 
/* {{{ sapi_module_struct cgi_sapi_module */
static sapi_module_struct cgi_sapi_module = {
    "cgi-fcgi",                     /* name */
    "CGI/FastCGI",                  /* pretty name */
 
    php_cgi_startup,                /* startup */
    php_module_shutdown_wrapper, /* shutdown */
 
    sapi_cgi_activate,              /* activate */
    sapi_cgi_deactivate,            /* deactivate */
 
    sapi_cgi_ub_write,              /* unbuffered write */
    sapi_cgi_flush,                 /* flush */
    NULL,                           /* get uid */
    sapi_cgi_getenv,                /* getenv */
 
    php_error,                     /* error handler */
 
    NULL,                           /* header handler */
    sapi_cgi_send_headers,          /* send headers handler */
    NULL,                           /* send header handler */
 
    sapi_cgi_read_post,             /* read POST data */
    sapi_cgi_read_cookies,          /* read Cookies */
 
    sapi_cgi_register_variables,    /* register server variables */
    sapi_cgi_log_message,           /* Log message */
    NULL,                           /* Get request time */
    NULL,                           /* Child terminate */
 
    STANDARD_SAPI_MODULE_PROPERTIES
};
/* }}} */
 
static const zend_function_entry additional_functions[] = {
    ZEND_FE(dl, arginfo_dl)
    PHP_FE_END
};
 
/* {{{ php_cgi_usage */
static void php_cgi_usage(char *argv0)
{
    char *prog;
 
    prog = strrchr(argv0, '/');
    if (prog) {
        prog++;
    } else {
        prog = "php-cgi";
    }
 
    php_printf(   "Usage: %s [-q] [-h] [-s] [-v] [-i] [-f <file>]\n"
                "       %s <file> [args...]\n"
                "  -a               Run interactively\n"
                "  -b <address:port>|<port> Bind Path for external FASTCGI Server mode\n"
                "  -C               Do not chdir to the script's directory\n"
                "  -c <path>|<file> Look for php.ini file in this directory\n"
                "  -n               No php.ini file will be used\n"
                "  -d foo[=bar]     Define INI entry foo with value 'bar'\n"
                "  -e               Generate extended information for debugger/profiler\n"
                "  -f <file>        Parse <file>.  Implies `-q'\n"
                "  -h               This help\n"
                "  -i               PHP information\n"
                "  -l               Syntax check only (lint)\n"
                "  -m               Show compiled in modules\n"
                "  -q               Quiet-mode.  Suppress HTTP Header output.\n"
                "  -s               Display colour syntax highlighted source.\n"
                "  -v               Version number\n"
                "  -w               Display source with stripped comments and whitespace.\n"
                "  -z <file>        Load Zend extension <file>.\n"
                "  -T <count>       Measure execution time of script repeated <count> times.\n",
                prog, prog);
}
/* }}} */
 
/* {{{ is_valid_path
 *
 * some server configurations allow '..' to slip through in the
 * translated path.   We'll just refuse to handle such a path.
 */
static int is_valid_path(const char *path)
{
    const char *p = path;
 
    if (UNEXPECTED(!p)) {
        return 0;
    }
    if (UNEXPECTED(*p == '.') && *(p+1) == '.' && (!*(p+2) || IS_SLASH(*(p+2)))) {
        return 0;
    }
    while (*p) {
        if (IS_SLASH(*p)) {
            p++;
            if (UNEXPECTED(*p == '.')) {
                p++;
                if (UNEXPECTED(*p == '.')) {
                    p++;
                    if (UNEXPECTED(!*p) || UNEXPECTED(IS_SLASH(*p))) {
                        return 0;
                    }
                }
            }
        }
        p++;
    }
    return 1;
}
/* }}} */
 
#define CGI_GETENV(name) \
    ((has_env) ? \
        FCGI_GETENV(request, name) : \
        getenv(name))
 
#define CGI_PUTENV(name, value) \
    ((has_env) ? \
        FCGI_PUTENV(request, name, value) : \
        _sapi_cgi_putenv(name, sizeof(name)-1, value))
 
/* {{{ init_request_info
 
  initializes request_info structure
 
  specifically in this section we handle proper translations
  for:
 
  PATH_INFO
    derived from the portion of the URI path following
    the script name but preceding any query data
    may be empty
 
  PATH_TRANSLATED
    derived by taking any path-info component of the
    request URI and performing any virtual-to-physical
    translation appropriate to map it onto the server's
    document repository structure
 
    empty if PATH_INFO is empty
 
    The env var PATH_TRANSLATED **IS DIFFERENT** than the
    request_info.path_translated variable, the latter should
    match SCRIPT_FILENAME instead.
 
  SCRIPT_NAME
    set to a URL path that could identify the CGI script
    rather than the interpreter.  PHP_SELF is set to this
 
  REQUEST_URI
    uri section following the domain:port part of a URI
 
  SCRIPT_FILENAME
    The virtual-to-physical translation of SCRIPT_NAME (as per
    PATH_TRANSLATED)
 
  These settings are documented at
  http://cgi-spec.golux.com/
 
 
  Based on the following URL request:
 
  http://localhost/info.php/test?a=b
 
  should produce, which btw is the same as if
  we were running under mod_cgi on apache (ie. not
  using ScriptAlias directives):
 
  PATH_INFO=/test
  PATH_TRANSLATED=/docroot/test
  SCRIPT_NAME=/info.php
  REQUEST_URI=/info.php/test?a=b
  SCRIPT_FILENAME=/docroot/info.php
  QUERY_STRING=a=b
 
  but what we get is (cgi/mod_fastcgi under apache):
 
  PATH_INFO=/info.php/test
  PATH_TRANSLATED=/docroot/info.php/test
  SCRIPT_NAME=/php/php-cgi  (from the Action setting I suppose)
  REQUEST_URI=/info.php/test?a=b
  SCRIPT_FILENAME=/path/to/php/bin/php-cgi  (Action setting translated)
  QUERY_STRING=a=b
 
  Comments in the code below refer to using the above URL in a request
 
 */
static void init_request_info(fcgi_request *request)
{
    int has_env = fcgi_has_env(request);
    char *env_script_filename = CGI_GETENV("SCRIPT_FILENAME");
    char *env_path_translated = CGI_GETENV("PATH_TRANSLATED");
    char *script_path_translated = env_script_filename;
 
    /* some broken servers do not have script_filename or argv0
     * an example, IIS configured in some ways.  then they do more
     * broken stuff and set path_translated to the cgi script location */
    if (!script_path_translated && env_path_translated) {
        script_path_translated = env_path_translated;
    }
 
    /* initialize the defaults */
    SG(request_info).path_translated = NULL;
    SG(request_info).request_method = NULL;
    SG(request_info).proto_num = 1000;
    SG(request_info).query_string = NULL;
    SG(request_info).request_uri = NULL;
    SG(request_info).content_type = NULL;
    SG(request_info).content_length = 0;
    SG(sapi_headers).http_response_code = 200;
 
    /* script_path_translated being set is a good indication that
     * we are running in a cgi environment, since it is always
     * null otherwise.  otherwise, the filename
     * of the script will be retrieved later via argc/argv */
    if (script_path_translated) {
        const char *auth;
        char *content_length = CGI_GETENV("CONTENT_LENGTH");
        char *content_type = CGI_GETENV("CONTENT_TYPE");
        char *env_path_info = CGI_GETENV("PATH_INFO");
        char *env_script_name = CGI_GETENV("SCRIPT_NAME");
 
#ifdef PHP_WIN32
        /* Hack for buggy IIS that sets incorrect PATH_INFO */
        char *env_server_software = CGI_GETENV("SERVER_SOFTWARE");
 
        if (env_server_software &&
            env_script_name &&
            env_path_info &&
            strncmp(env_server_software, "Microsoft-IIS", sizeof("Microsoft-IIS")-1) == 0 &&
            strncmp(env_path_info, env_script_name, strlen(env_script_name)) == 0
        ) {
            env_path_info = CGI_PUTENV("ORIG_PATH_INFO", env_path_info);
            env_path_info += strlen(env_script_name);
            if (*env_path_info == 0) {
                env_path_info = NULL;
            }
            env_path_info = CGI_PUTENV("PATH_INFO", env_path_info);
        }
#endif
 
        if (CGIG(fix_pathinfo)) {
            zend_stat_t st = {0};
            char *real_path = NULL;
            char *env_redirect_url = CGI_GETENV("REDIRECT_URL");
            char *env_document_root = CGI_GETENV("DOCUMENT_ROOT");
            char *orig_path_translated = env_path_translated;
            char *orig_path_info = env_path_info;
            char *orig_script_name = env_script_name;
            char *orig_script_filename = env_script_filename;
            size_t script_path_translated_len;
 
            if (!env_document_root && PG(doc_root)) {
                env_document_root = CGI_PUTENV("DOCUMENT_ROOT", PG(doc_root));
                /* fix docroot */
                TRANSLATE_SLASHES(env_document_root);
            }
 
            if (env_path_translated != NULL && env_redirect_url != NULL &&
                env_path_translated != script_path_translated &&
                strcmp(env_path_translated, script_path_translated) != 0) {
                /*
                 * pretty much apache specific.  If we have a redirect_url
                 * then our script_filename and script_name point to the
                 * php executable
                 */
                script_path_translated = env_path_translated;
                /* we correct SCRIPT_NAME now in case we don't have PATH_INFO */
                env_script_name = env_redirect_url;
            }
 
#ifdef __riscos__
            /* Convert path to unix format*/
            __riscosify_control |= __RISCOSIFY_DONT_CHECK_DIR;
            script_path_translated = __unixify(script_path_translated, 0, NULL, 1, 0);
#endif
 
            /*
             * if the file doesn't exist, try to extract PATH_INFO out
             * of it by stat'ing back through the '/'
             * this fixes url's like /info.php/test
             */
            if (script_path_translated &&
                (script_path_translated_len = strlen(script_path_translated)) > 0 &&
                (script_path_translated[script_path_translated_len-1] == '/' ||
#ifdef PHP_WIN32
                script_path_translated[script_path_translated_len-1] == '\\' ||
#endif
                (real_path = tsrm_realpath(script_path_translated, NULL)) == NULL)
            ) {
                char *pt = estrndup(script_path_translated, script_path_translated_len);
                size_t len = script_path_translated_len;
                char *ptr;
 
                while ((ptr = strrchr(pt, '/')) || (ptr = strrchr(pt, '\\'))) {
                    *ptr = 0;
                    if (zend_stat(pt, &st) == 0 && S_ISREG(st.st_mode)) {
                        /*
                         * okay, we found the base script!
                         * work out how many chars we had to strip off;
                         * then we can modify PATH_INFO
                         * accordingly
                         *
                         * we now have the makings of
                         * PATH_INFO=/test
                         * SCRIPT_FILENAME=/docroot/info.php
                         *
                         * we now need to figure out what docroot is.
                         * if DOCUMENT_ROOT is set, this is easy, otherwise,
                         * we have to play the game of hide and seek to figure
                         * out what SCRIPT_NAME should be
                         */
                        size_t slen = len - strlen(pt);
                        size_t pilen = env_path_info ? strlen(env_path_info) : 0;
                        char *path_info = env_path_info ? env_path_info + pilen - slen : NULL;
 
                        if (orig_path_info != path_info) {
                            if (orig_path_info) {
                                char old;
 
                                CGI_PUTENV("ORIG_PATH_INFO", orig_path_info);
                                old = path_info[0];
                                path_info[0] = 0;
                                if (!orig_script_name ||
                                    strcmp(orig_script_name, env_path_info) != 0) {
                                    if (orig_script_name) {
                                        CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
                                    }
                                    SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_path_info);
                                } else {
                                    SG(request_info).request_uri = orig_script_name;
                                }
                                path_info[0] = old;
                            }
                            env_path_info = CGI_PUTENV("PATH_INFO", path_info);
                        }
                        if (!orig_script_filename ||
                            strcmp(orig_script_filename, pt) != 0) {
                            if (orig_script_filename) {
                                CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
                            }
                            script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", pt);
                        }
                        TRANSLATE_SLASHES(pt);
 
                        /* figure out docroot
                         * SCRIPT_FILENAME minus SCRIPT_NAME
                         */
                        if (env_document_root) {
                            size_t l = strlen(env_document_root);
                            size_t path_translated_len = 0;
                            char *path_translated = NULL;
 
                            if (l && env_document_root[l - 1] == '/') {
                                --l;
                            }
 
                            /* we have docroot, so we should have:
                             * DOCUMENT_ROOT=/docroot
                             * SCRIPT_FILENAME=/docroot/info.php
                             */
 
                            /* PATH_TRANSLATED = DOCUMENT_ROOT + PATH_INFO */
                            path_translated_len = l + (env_path_info ? strlen(env_path_info) : 0);
                            path_translated = (char *) emalloc(path_translated_len + 1);
                            memcpy(path_translated, env_document_root, l);
                            if (env_path_info) {
                                memcpy(path_translated + l, env_path_info, (path_translated_len - l));
                            }
                            path_translated[path_translated_len] = '\0';
                            if (orig_path_translated) {
                                CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
                            }
                            env_path_translated = CGI_PUTENV("PATH_TRANSLATED", path_translated);
                            efree(path_translated);
                        } else if ( env_script_name &&
                                    strstr(pt, env_script_name)
                        ) {
                            /* PATH_TRANSLATED = PATH_TRANSLATED - SCRIPT_NAME + PATH_INFO */
                            size_t ptlen = strlen(pt) - strlen(env_script_name);
                            size_t path_translated_len = ptlen + (env_path_info ? strlen(env_path_info) : 0);
 
                            char *path_translated = (char *) emalloc(path_translated_len + 1);
                            memcpy(path_translated, pt, ptlen);
                            if (env_path_info) {
                                memcpy(path_translated + ptlen, env_path_info, path_translated_len - ptlen);
                            }
                            path_translated[path_translated_len] = '\0';
                            if (orig_path_translated) {
                                CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
                            }
                            env_path_translated = CGI_PUTENV("PATH_TRANSLATED", path_translated);
                            efree(path_translated);
                        }
                        break;
                    }
                }
                if (!ptr) {
                    /*
                     * if we stripped out all the '/' and still didn't find
                     * a valid path... we will fail, badly. of course we would
                     * have failed anyway... we output 'no input file' now.
                     */
                    if (orig_script_filename) {
                        CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
                    }
                    script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", NULL);
                    SG(sapi_headers).http_response_code = 404;
                }
                if (!SG(request_info).request_uri) {
                    if (!orig_script_name ||
                        strcmp(orig_script_name, env_script_name) != 0) {
                        if (orig_script_name) {
                            CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
                        }
                        SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_script_name);
                    } else {
                        SG(request_info).request_uri = orig_script_name;
                    }
                }
                if (pt) {
                    efree(pt);
                }
            } else {
                /* make sure path_info/translated are empty */
                if (!orig_script_filename ||
                    (script_path_translated != orig_script_filename &&
                    strcmp(script_path_translated, orig_script_filename) != 0)) {
                    if (orig_script_filename) {
                        CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
                    }
                    script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", script_path_translated);
                }
                if (env_redirect_url) {
                    if (orig_path_info) {
                        CGI_PUTENV("ORIG_PATH_INFO", orig_path_info);
                        CGI_PUTENV("PATH_INFO", NULL);
                    }
                    if (orig_path_translated) {
                        CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
                        CGI_PUTENV("PATH_TRANSLATED", NULL);
                    }
                }
                if (env_script_name != orig_script_name) {
                    if (orig_script_name) {
                        CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
                    }
                    SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_script_name);
                } else {
                    SG(request_info).request_uri = env_script_name;
                }
                efree(real_path);
            }
        } else {
            /* pre 4.3 behaviour, shouldn't be used but provides BC */
            if (env_path_info) {
                SG(request_info).request_uri = env_path_info;
            } else {
                SG(request_info).request_uri = env_script_name;
            }
            if (!CGIG(discard_path) && env_path_translated) {
                script_path_translated = env_path_translated;
            }
        }
 
        if (is_valid_path(script_path_translated)) {
            SG(request_info).path_translated = estrdup(script_path_translated);
        }
 
        SG(request_info).request_method = CGI_GETENV("REQUEST_METHOD");
        /* FIXME - Work out proto_num here */
        SG(request_info).query_string = CGI_GETENV("QUERY_STRING");
        SG(request_info).content_type = (content_type ? content_type : "" );
        SG(request_info).content_length = (content_length ? atol(content_length) : 0);
 
        /* The CGI RFC allows servers to pass on unvalidated Authorization data */
        auth = CGI_GETENV("HTTP_AUTHORIZATION");
        php_handle_auth_data(auth);
    }
}
/* }}} */
 
#ifndef PHP_WIN32
static void fastcgi_cleanup(int signal)
{
#ifdef DEBUG_FASTCGI
    fprintf(stderr, "FastCGI shutdown, pid %d\n", getpid());
#endif
 
    sigaction(SIGTERM, &old_term, 0);
 
    /* Kill all the processes in our process group */
    kill(-pgroup, SIGTERM);
 
    if (parent && parent_waiting) {
        exit_signal = 1;
    } else {
        _exit(0);
    }
}
#else
BOOL WINAPI fastcgi_cleanup(DWORD sig)
{
    int i = kids;
 
    EnterCriticalSection(&cleanup_lock);
    cleaning_up = 1;
    LeaveCriticalSection(&cleanup_lock);
 
    while (0 < i--) {
        if (NULL == kid_cgi_ps[i]) {
                continue;
        }
 
        TerminateProcess(kid_cgi_ps[i], 0);
        CloseHandle(kid_cgi_ps[i]);
        kid_cgi_ps[i] = NULL;
    }
 
    if (job) {
        CloseHandle(job);
    }
 
    parent = 0;
 
    return TRUE;
}
#endif
 
PHP_INI_BEGIN()
    STD_PHP_INI_BOOLEAN("cgi.rfc2616_headers",     "0",  PHP_INI_ALL,    OnUpdateBool,   rfc2616_headers, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("cgi.nph",                 "0",  PHP_INI_ALL,    OnUpdateBool,   nph, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("cgi.check_shebang_line",  "1",  PHP_INI_SYSTEM, OnUpdateBool,   check_shebang_line, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("cgi.force_redirect",      "1",  PHP_INI_SYSTEM, OnUpdateBool,   force_redirect, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_ENTRY("cgi.redirect_status_env", NULL, PHP_INI_SYSTEM, OnUpdateString, redirect_status_env, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("cgi.fix_pathinfo",        "1",  PHP_INI_SYSTEM, OnUpdateBool,   fix_pathinfo, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("cgi.discard_path",        "0",  PHP_INI_SYSTEM, OnUpdateBool,   discard_path, php_cgi_globals_struct, php_cgi_globals)
    STD_PHP_INI_BOOLEAN("fastcgi.logging",         "1",  PHP_INI_SYSTEM, OnUpdateBool,   fcgi_logging, php_cgi_globals_struct, php_cgi_globals)
#ifdef PHP_WIN32
    STD_PHP_INI_BOOLEAN("fastcgi.impersonate",     "0",  PHP_INI_SYSTEM, OnUpdateBool,   impersonate, php_cgi_globals_struct, php_cgi_globals)
#endif
PHP_INI_END()
 
/* {{{ php_cgi_globals_ctor */
static void php_cgi_globals_ctor(php_cgi_globals_struct *php_cgi_globals)
{
#if defined(ZTS) && defined(PHP_WIN32)
    ZEND_TSRMLS_CACHE_UPDATE();
#endif
    php_cgi_globals->rfc2616_headers = 0;
    php_cgi_globals->nph = 0;
    php_cgi_globals->check_shebang_line = 1;
    php_cgi_globals->force_redirect = 1;
    php_cgi_globals->redirect_status_env = NULL;
    php_cgi_globals->fix_pathinfo = 1;
    php_cgi_globals->discard_path = 0;
    php_cgi_globals->fcgi_logging = 1;
#ifdef PHP_WIN32
    php_cgi_globals->impersonate = 0;
#endif
    zend_hash_init(&php_cgi_globals->user_config_cache, 8, NULL, user_config_cache_entry_dtor, 1);
}
/* }}} */
 
/* {{{ PHP_MINIT_FUNCTION */
static PHP_MINIT_FUNCTION(cgi)
{
    REGISTER_INI_ENTRIES();
    return SUCCESS;
}
/* }}} */
 
/* {{{ PHP_MSHUTDOWN_FUNCTION */
static PHP_MSHUTDOWN_FUNCTION(cgi)
{
    zend_hash_destroy(&CGIG(user_config_cache));
 
    UNREGISTER_INI_ENTRIES();
    return SUCCESS;
}
/* }}} */
 
/* {{{ PHP_MINFO_FUNCTION */
static PHP_MINFO_FUNCTION(cgi)
{
    DISPLAY_INI_ENTRIES();
}
/* }}} */
 
PHP_FUNCTION(apache_child_terminate) /* {{{ */
{
    if (zend_parse_parameters_none()) {
        RETURN_THROWS();
    }
    if (fcgi_is_fastcgi()) {
        fcgi_terminate();
    }
}
/* }}} */
 
 
PHP_FUNCTION(apache_request_headers) /* {{{ */
{
    if (zend_parse_parameters_none()) {
        RETURN_THROWS();
    }
    array_init(return_value);
    if (fcgi_is_fastcgi()) {
        fcgi_request *request = (fcgi_request*) SG(server_context);
 
        fcgi_loadenv(request, sapi_add_request_header, return_value);
    } else {
        char buf[128];
        char **env, *p, *q, *var, *val, *t = buf;
        size_t alloc_size = sizeof(buf);
        zend_ulong var_len;
 
        for (env = environ; env != NULL && *env != NULL; env++) {
            val = strchr(*env, '=');
            if (!val) {              /* malformed entry? */
                continue;
            }
            var_len = val - *env;
            if (var_len >= alloc_size) {
                alloc_size = var_len + 64;
                t = (t == buf ? emalloc(alloc_size): erealloc(t, alloc_size));
            }
            var = *env;
            if (var_len > 5 &&
                var[0] == 'H' &&
                var[1] == 'T' &&
                var[2] == 'T' &&
                var[3] == 'P' &&
                var[4] == '_') {
 
                var_len -= 5;
 
                if (var_len >= alloc_size) {
                    alloc_size = var_len + 64;
                    t = (t == buf ? emalloc(alloc_size): erealloc(t, alloc_size));
                }
                p = var + 5;
 
                var = q = t;
                /* First char keep uppercase */
                *q++ = *p++;
                while (*p) {
                    if (*p == '=') {
                        /* End of name */
                        break;
                    } else if (*p == '_') {
                        *q++ = '-';
                        p++;
                        /* First char after - keep uppercase */
                        if (*p && *p!='=') {
                            *q++ = *p++;
                        }
                    } else if (*p >= 'A' && *p <= 'Z') {
                        /* lowercase */
                        *q++ = (*p++ - 'A' + 'a');
                    } else {
                        *q++ = *p++;
                    }
                }
                *q = 0;
            } else if (var_len == sizeof("CONTENT_TYPE")-1 &&
                       memcmp(var, "CONTENT_TYPE", sizeof("CONTENT_TYPE")-1) == 0) {
                var = "Content-Type";
            } else if (var_len == sizeof("CONTENT_LENGTH")-1 &&
                       memcmp(var, "CONTENT_LENGTH", sizeof("CONTENT_LENGTH")-1) == 0) {
                var = "Content-Length";
            } else {
                continue;
            }
            val++;
            add_assoc_string_ex(return_value, var, var_len, val);
        }
        if (t != buf && t != NULL) {
            efree(t);
        }
    }
}
/* }}} */
 
static void add_response_header(sapi_header_struct *h, zval *return_value) /* {{{ */
{
    if (h->header_len > 0) {
        char *s;
        size_t len = 0;
        ALLOCA_FLAG(use_heap)
 
        char *p = strchr(h->header, ':');
        if (NULL != p) {
            len = p - h->header;
        }
        if (len > 0) {
            while (len != 0 && (h->header[len-1] == ' ' || h->header[len-1] == '\t')) {
                len--;
            }
            if (len) {
                s = do_alloca(len + 1, use_heap);
                memcpy(s, h->header, len);
                s[len] = 0;
                do {
                    p++;
                } while (*p == ' ' || *p == '\t');
                add_assoc_stringl_ex(return_value, s, len, p, h->header_len - (p - h->header));
                free_alloca(s, use_heap);
            }
        }
    }
}
/* }}} */
 
PHP_FUNCTION(apache_response_headers) /* {{{ */
{
    if (zend_parse_parameters_none() == FAILURE) {
        RETURN_THROWS();
    }
 
    array_init(return_value);
    zend_llist_apply_with_argument(&SG(sapi_headers).headers, (llist_apply_with_arg_func_t)add_response_header, return_value);
}
/* }}} */
 
static zend_module_entry cgi_module_entry = {
    STANDARD_MODULE_HEADER,
    "cgi-fcgi",
    ext_functions,
    PHP_MINIT(cgi),
    PHP_MSHUTDOWN(cgi),
    NULL,
    NULL,
    PHP_MINFO(cgi),
    PHP_VERSION,
    STANDARD_MODULE_PROPERTIES
};
 
/* {{{ main */
int main(int argc, char *argv[])
{
    int free_query_string = 0;
    int exit_status = SUCCESS;
    int cgi = 0, c, i;
    size_t len;
    zend_file_handle file_handle;
    char *s;
 
    /* temporary locals */
    int behavior = PHP_MODE_STANDARD;
    int no_headers = 0;
    int orig_optind = php_optind;
    char *orig_optarg = php_optarg;
    char *script_file = NULL;
    struct php_ini_builder ini_builder;
    /* end of temporary locals */
 
    int max_requests = 500;
    int requests = 0;
    int fastcgi;
    char *bindpath = NULL;
    int fcgi_fd = 0;
    fcgi_request *request = NULL;
    int warmup_repeats = 0;
    int repeats = 1;
    int benchmark = 0;
#ifdef HAVE_GETTIMEOFDAY
    struct timeval start, end;
#else
    time_t start, end;
#endif
#ifndef PHP_WIN32
    int status = 0;
#endif
    char *query_string;
    int skip_getopt = 0;
 
#if defined(SIGPIPE) && defined(SIG_IGN)
    signal(SIGPIPE, SIG_IGN); /* ignore SIGPIPE in standalone mode so
                                that sockets created via fsockopen()
                                don't kill PHP if the remote site
                                closes it.  in apache|apxs mode apache
                                does that for us!  thies@thieso.net
                                20000419 */
#endif
 
#ifdef ZTS
    php_tsrm_startup();
# ifdef PHP_WIN32
    ZEND_TSRMLS_CACHE_UPDATE();
# endif
#endif
 
    zend_signal_startup();
 
#ifdef ZTS
    ts_allocate_id(&php_cgi_globals_id, sizeof(php_cgi_globals_struct), (ts_allocate_ctor) php_cgi_globals_ctor, NULL);
#else
    php_cgi_globals_ctor(&php_cgi_globals);
#endif
 
    sapi_startup(&cgi_sapi_module);
    fastcgi = fcgi_is_fastcgi();
    cgi_sapi_module.php_ini_path_override = NULL;
 
#ifdef PHP_WIN32
    _fmode = _O_BINARY; /* sets default for file streams to binary */
    _setmode(_fileno(stdin),  O_BINARY);    /* make the stdio mode be binary */
    _setmode(_fileno(stdout), O_BINARY);    /* make the stdio mode be binary */
    _setmode(_fileno(stderr), O_BINARY);    /* make the stdio mode be binary */
#endif
 
    if (!fastcgi) {
        /* Make sure we detect we are a cgi - a bit redundancy here,
         * but the default case is that we have to check only the first one. */
        if (getenv("SERVER_SOFTWARE") ||
            getenv("SERVER_NAME") ||
            getenv("GATEWAY_INTERFACE") ||
            getenv("REQUEST_METHOD")
        ) {
            cgi = 1;
        }
    }
 
    /* Apache CGI will pass the query string to the command line if it doesn't contain a '='.
     * This can create an issue where a malicious request can pass command line arguments to
     * the executable. Ideally we skip argument parsing when we're in cgi or fastcgi mode,
     * but that breaks PHP scripts on Linux with a hashbang: `#!/php-cgi -d option=value`.
     * Therefore, this code only prevents passing arguments if the query string starts with a '-'.
     * Similarly, scripts spawned in subprocesses on Windows may have the same issue.
     * However, Windows has lots of conversion rules and command line parsing rules that
     * are too difficult and dangerous to reliably emulate. */
    if((query_string = getenv("QUERY_STRING")) != NULL && strchr(query_string, '=') == NULL) {
#ifdef PHP_WIN32
        skip_getopt = cgi || fastcgi;
#else
        unsigned char *p;
        char *decoded_query_string = strdup(query_string);
        php_url_decode(decoded_query_string, strlen(decoded_query_string));
        for (p = (unsigned char *)decoded_query_string; *p &&  *p <= ' '; p++) {
            /* skip all leading spaces */
        }
        if(*p == '-') {
            skip_getopt = 1;
        }
 
        free(decoded_query_string);
#endif
    }
 
    php_ini_builder_init(&ini_builder);
 
    while (!skip_getopt && (c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 0, 2)) != -1) {
        switch (c) {
            case 'c':
                if (cgi_sapi_module.php_ini_path_override) {
                    free(cgi_sapi_module.php_ini_path_override);
                }
                cgi_sapi_module.php_ini_path_override = strdup(php_optarg);
                break;
            case 'n':
                cgi_sapi_module.php_ini_ignore = 1;
                break;
            case 'd':
                /* define ini entries on command line */
                php_ini_builder_define(&ini_builder, php_optarg);
                break;
            /* if we're started on command line, check to see if
             * we are being started as an 'external' fastcgi
             * server by accepting a bindpath parameter. */
            case 'b':
                if (!fastcgi) {
                    bindpath = strdup(php_optarg);
                }
                break;
            case 's': /* generate highlighted HTML from source */
                behavior = PHP_MODE_HIGHLIGHT;
                break;
        }
    }
    php_optind = orig_optind;
    php_optarg = orig_optarg;
 
    cgi_sapi_module.ini_entries = php_ini_builder_finish(&ini_builder);
 
    if (fastcgi || bindpath) {
        /* Override SAPI callbacks */
        cgi_sapi_module.ub_write     = sapi_fcgi_ub_write;
        cgi_sapi_module.flush        = sapi_fcgi_flush;
        cgi_sapi_module.read_post    = sapi_fcgi_read_post;
        cgi_sapi_module.getenv       = sapi_fcgi_getenv;
        cgi_sapi_module.read_cookies = sapi_fcgi_read_cookies;
    }
 
#ifdef ZTS
    SG(request_info).path_translated = NULL;
#endif
 
    cgi_sapi_module.executable_location = argv[0];
    if (!cgi && !fastcgi && !bindpath) {
        cgi_sapi_module.additional_functions = additional_functions;
    }
 
    /* startup after we get the above ini override se we get things right */
    if (cgi_sapi_module.startup(&cgi_sapi_module) == FAILURE) {
#ifdef ZTS
        tsrm_shutdown();
#endif
        free(bindpath);
        return FAILURE;
    }
 
    /* check force_cgi after startup, so we have proper output */
    if (cgi && CGIG(force_redirect)) {
        /* This is to allow a different environment variable to be configured
         * in case the we cannot auto-detect which environment variable to use.
         * Checking this first to allow user overrides in case the environment
         * variable can be set by an untrusted party. */
        const char *redirect_status_env = CGIG(redirect_status_env);
        if (!redirect_status_env) {
            /* Apache will generate REDIRECT_STATUS. */
            redirect_status_env = "REDIRECT_STATUS";
        }
 
        if (!getenv(redirect_status_env)) {
            zend_try {
                SG(sapi_headers).http_response_code = 400;
                PUTS("<b>Security Alert!</b> The PHP CGI cannot be accessed directly.\n\n\
<p>This PHP CGI binary was compiled with force-cgi-redirect enabled.  This\n\
means that a page will only be served up if the REDIRECT_STATUS CGI variable is\n\
set, e.g. via an Apache Action directive.</p>\n\
<p>For more information as to <i>why</i> this behaviour exists, see the <a href=\"https://www.php.net/security.cgi-bin\">\
manual page for CGI security</a>.</p>\n\
<p>For more information about changing this behaviour or re-enabling this webserver,\n\
consult the installation file that came with this distribution, or visit \n\
<a href=\"https://www.php.net/install.windows\">the manual page</a>.</p>\n");
            } zend_catch {
            } zend_end_try();
#if defined(ZTS) && !PHP_DEBUG
            /* XXX we're crashing here in msvc6 debug builds at
             * php_message_handler_for_zend:839 because
             * SG(request_info).path_translated is an invalid pointer.
             * It still happens even though I set it to null, so something
             * weird is going on.
             */
            tsrm_shutdown();
#endif
            free(bindpath);
            return FAILURE;
        }
    }
 
#ifndef HAVE_ATTRIBUTE_WEAK
    fcgi_set_logger(fcgi_log);
#endif
 
    if (bindpath) {
        int backlog = MIN(SOMAXCONN, 128);
        if (getenv("PHP_FCGI_BACKLOG")) {
            backlog = atoi(getenv("PHP_FCGI_BACKLOG"));
        }
        if (backlog < -1 || backlog > SOMAXCONN) {
            fprintf(stderr, "Invalid backlog %d, needs to be between -1 and %d\n", backlog, SOMAXCONN);
#ifdef ZTS
            tsrm_shutdown();
#endif
            return FAILURE;
        }
        fcgi_fd = fcgi_listen(bindpath, backlog);
        if (fcgi_fd < 0) {
            fprintf(stderr, "Couldn't create FastCGI listen socket on port %s\n", bindpath);
#ifdef ZTS
            tsrm_shutdown();
#endif
            return FAILURE;
        }
        fastcgi = fcgi_is_fastcgi();
    }
 
    /* make php call us to get _ENV vars */
    php_php_import_environment_variables = php_import_environment_variables;
    php_import_environment_variables = cgi_php_import_environment_variables;
 
    if (fastcgi) {
        /* How many times to run PHP scripts before dying */
        if (getenv("PHP_FCGI_MAX_REQUESTS")) {
            max_requests = atoi(getenv("PHP_FCGI_MAX_REQUESTS"));
            if (max_requests < 0) {
                fprintf(stderr, "PHP_FCGI_MAX_REQUESTS is not valid\n");
                return FAILURE;
            }
        }
 
        /* library is already initialized, now init our request */
        request = fcgi_init_request(fcgi_fd, NULL, NULL, NULL);
 
        /* Pre-fork or spawn, if required */
        if (getenv("PHP_FCGI_CHILDREN")) {
            char * children_str = getenv("PHP_FCGI_CHILDREN");
            children = atoi(children_str);
            if (children < 0) {
                fprintf(stderr, "PHP_FCGI_CHILDREN is not valid\n");
                return FAILURE;
            }
            fcgi_set_mgmt_var("FCGI_MAX_CONNS", sizeof("FCGI_MAX_CONNS")-1, children_str, strlen(children_str));
            /* This is the number of concurrent requests, equals FCGI_MAX_CONNS */
            fcgi_set_mgmt_var("FCGI_MAX_REQS",  sizeof("FCGI_MAX_REQS")-1,  children_str, strlen(children_str));
        } else {
#ifdef PHP_WIN32
            /* If this env var is set, the process was invoked as a child. Let
                it show the original PHP_FCGI_CHILDREN value, while don't care
                otherwise. */
            char * children_str = getenv("PHP_FCGI_CHILDREN_FOR_KID");
            if (children_str) {
                char putenv_buf[sizeof("PHP_FCGI_CHILDREN")+5];
 
                snprintf(putenv_buf, sizeof(putenv_buf), "%s=%s", "PHP_FCGI_CHILDREN", children_str);
                putenv(putenv_buf);
                putenv("PHP_FCGI_CHILDREN_FOR_KID=");
 
                SetEnvironmentVariable("PHP_FCGI_CHILDREN", children_str);
                SetEnvironmentVariable("PHP_FCGI_CHILDREN_FOR_KID", NULL);
            }
#endif
            fcgi_set_mgmt_var("FCGI_MAX_CONNS", sizeof("FCGI_MAX_CONNS")-1, "1", sizeof("1")-1);
            fcgi_set_mgmt_var("FCGI_MAX_REQS",  sizeof("FCGI_MAX_REQS")-1,  "1", sizeof("1")-1);
        }
 
#ifndef PHP_WIN32
        if (children) {
            int running = 0;
            pid_t pid;
 
            /* Create a process group for us & children */
            setsid();
            pgroup = getpgrp();
#ifdef DEBUG_FASTCGI
            fprintf(stderr, "Process group %d\n", pgroup);
#endif
 
            /* Set up handler to kill children upon exit */
            act.sa_flags = 0;
            act.sa_handler = fastcgi_cleanup;
            if (sigaction(SIGTERM, &act, &old_term) ||
                sigaction(SIGINT,  &act, &old_int)  ||
                sigaction(SIGQUIT, &act, &old_quit)
            ) {
                perror("Can't set signals");
                exit(1);
            }
 
            if (fcgi_in_shutdown()) {
                goto parent_out;
            }
 
            while (parent) {
                do {
#ifdef DEBUG_FASTCGI
                    fprintf(stderr, "Forking, %d running\n", running);
#endif
                    pid = fork();
                    switch (pid) {
                    case 0:
                        /* One of the children.
                         * Make sure we don't go round the
                         * fork loop any more
                         */
                        parent = 0;
 
                        /* don't catch our signals */
                        sigaction(SIGTERM, &old_term, 0);
                        sigaction(SIGQUIT, &old_quit, 0);
                        sigaction(SIGINT,  &old_int,  0);
                        zend_signal_init();
                        break;
                    case -1:
                        perror("php (pre-forking)");
                        exit(1);
                        break;
                    default:
                        /* Fine */
                        running++;
                        break;
                    }
                } while (parent && (running < children));
 
                if (parent) {
#ifdef DEBUG_FASTCGI
                    fprintf(stderr, "Wait for kids, pid %d\n", getpid());
#endif
                    parent_waiting = 1;
                    while (1) {
                        if (wait(&status) >= 0) {
                            running--;
                            break;
                        } else if (exit_signal) {
                            break;
                        }
                    }
                    if (exit_signal) {
#if 0
                        while (running > 0) {
                            while (wait(&status) < 0) {
                            }
                            running--;
                        }
#endif
                        goto parent_out;
                    }
                }
            }
        } else {
            parent = 0;
            zend_signal_init();
        }
 
#else
        if (children) {
            wchar_t *cmd_line_tmp, cmd_line[PHP_WIN32_IOUTIL_MAXPATHLEN];
            size_t cmd_line_len;
            char kid_buf[16];
            int i;
 
            ZeroMemory(&kid_cgi_ps, sizeof(kid_cgi_ps));
            kids = children < WIN32_MAX_SPAWN_CHILDREN ? children : WIN32_MAX_SPAWN_CHILDREN;
 
            InitializeCriticalSection(&cleanup_lock);
            SetConsoleCtrlHandler(fastcgi_cleanup, TRUE);
 
            /* kids will inherit the env, don't let them spawn */
            SetEnvironmentVariable("PHP_FCGI_CHILDREN", NULL);
            /* instead, set a temporary env var, so then the child can read and
                show the actual setting correctly. */
            snprintf(kid_buf, 16, "%d", children);
            SetEnvironmentVariable("PHP_FCGI_CHILDREN_FOR_KID", kid_buf);
 
            /* The current command line is used as is. This should normally be no issue,
                even if there were some I/O redirection. If some issues turn out, an
                extra parsing might be needed here. */
            cmd_line_tmp = GetCommandLineW();
            if (!cmd_line_tmp) {
                DWORD err = GetLastError();
                char *err_text = php_win32_error_to_msg(err);
 
                fprintf(stderr, "unable to get current command line: [0x%08lx]: %s\n", err, err_text);
                php_win32_error_msg_free(err_text);
 
                goto parent_out;
            }
 
            cmd_line_len = wcslen(cmd_line_tmp);
            if (cmd_line_len > sizeof(cmd_line) - 1) {
                fprintf(stderr, "command line is too long\n");
                goto parent_out;
            }
            memmove(cmd_line, cmd_line_tmp, (cmd_line_len + 1)*sizeof(wchar_t));
 
            job = CreateJobObject(NULL, NULL);
            if (!job) {
                DWORD err = GetLastError();
                char *err_text = php_win32_error_to_msg(err);
 
                fprintf(stderr, "unable to create job object: [0x%08lx]: %s\n", err, err_text);
 
                php_win32_error_msg_free(err_text);
 
                goto parent_out;
            }
 
            job_info.BasicLimitInformation.LimitFlags = JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE;
            if (!SetInformationJobObject(job, JobObjectExtendedLimitInformation, &job_info, sizeof(job_info))) {
                DWORD err = GetLastError();
                char *err_text = php_win32_error_to_msg(err);
 
                fprintf(stderr, "unable to configure job object: [0x%08lx]: %s\n", err, err_text);
                php_win32_error_msg_free(err_text);
            }
 
            while (parent) {
                EnterCriticalSection(&cleanup_lock);
                if (cleaning_up) {
                    goto parent_loop_end;
                }
                LeaveCriticalSection(&cleanup_lock);
 
                i = kids;
                while (0 < i--) {
                    DWORD status;
 
                    if (NULL != kid_cgi_ps[i]) {
                        if(!GetExitCodeProcess(kid_cgi_ps[i], &status) || status != STILL_ACTIVE) {
                            CloseHandle(kid_cgi_ps[i]);
                            kid_cgi_ps[i] = NULL;
                        }
                    }
                }
 
                i = kids;
                while (0 < i--) {
                    PROCESS_INFORMATION pi;
                    STARTUPINFOW si;
 
                    if (NULL != kid_cgi_ps[i]) {
                        continue;
                    }
 
                    ZeroMemory(&si, sizeof(si));
                    si.cb = sizeof(si);
                    ZeroMemory(&pi, sizeof(pi));
 
                    si.dwFlags = STARTF_USESTDHANDLES;
                    si.hStdOutput = INVALID_HANDLE_VALUE;
                    si.hStdInput  = (HANDLE)_get_osfhandle(fcgi_fd);
                    si.hStdError  = INVALID_HANDLE_VALUE;
 
                    if (CreateProcessW(NULL, cmd_line, NULL, NULL, TRUE, CREATE_NO_WINDOW, NULL, NULL, &si, &pi)) {
                        kid_cgi_ps[i] = pi.hProcess;
                        if (!AssignProcessToJobObject(job, pi.hProcess)) {
                            DWORD err = GetLastError();
                            char *err_text = php_win32_error_to_msg(err);
 
                            fprintf(stderr, "unable to assign child process to job object: [0x%08lx]: %s\n", err, err_text);
                            php_win32_error_msg_free(err_text);
                        }
                        CloseHandle(pi.hThread);
                    } else {
                        DWORD err = GetLastError();
                        char *err_text = php_win32_error_to_msg(err);
 
                        kid_cgi_ps[i] = NULL;
 
                        fprintf(stderr, "unable to spawn: [0x%08lx]: %s\n", err, err_text);
                        php_win32_error_msg_free(err_text);
                    }
                }
 
                WaitForMultipleObjects(kids, kid_cgi_ps, FALSE, INFINITE);
            }
 
parent_loop_end:
            /* restore my env */
            SetEnvironmentVariable("PHP_FCGI_CHILDREN", kid_buf);
 
            DeleteCriticalSection(&cleanup_lock);
 
            goto parent_out;
        } else {
            parent = 0;
        }
#endif /* PHP_WIN32 */
    }
 
    zend_first_try {
        while (!skip_getopt && (c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 1, 2)) != -1) {
            switch (c) {
                case 'T':
                    benchmark = 1;
                    {
                        char *comma = strchr(php_optarg, ',');
                        if (comma) {
                            warmup_repeats = atoi(php_optarg);
                            repeats = atoi(comma + 1);
#ifdef HAVE_VALGRIND
                            if (warmup_repeats > 0) {
                                CALLGRIND_STOP_INSTRUMENTATION;
                                /* We're not interested in measuring startup */
                                CALLGRIND_ZERO_STATS;
# ifdef HAVE_VALGRIND_CACHEGRIND_H
                                CACHEGRIND_STOP_INSTRUMENTATION;
                                /* Zeroing stats is not supported for cachegrind. */
# endif
                            }
#endif
                        } else {
                            repeats = atoi(php_optarg);
                        }
                    }
#ifdef HAVE_GETTIMEOFDAY
                    gettimeofday(&start, NULL);
#else
                    time(&start);
#endif
                    break;
                case 'h':
                case '?':
                case PHP_GETOPT_INVALID_ARG:
                    if (request) {
                        fcgi_destroy_request(request);
                    }
                    fcgi_shutdown();
                    no_headers = 1;
                    SG(headers_sent) = 1;
                    php_cgi_usage(argv[0]);
                    php_output_end_all();
                    exit_status = 0;
                    if (c == PHP_GETOPT_INVALID_ARG) {
                        exit_status = 1;
                    }
                    goto out;
            }
        }
        php_optind = orig_optind;
        php_optarg = orig_optarg;
 
        /* start of FAST CGI loop */
        /* Initialise FastCGI request structure */
#ifdef PHP_WIN32
        /* attempt to set security impersonation for fastcgi
         * will only happen on NT based OS, others will ignore it. */
        if (fastcgi && CGIG(impersonate)) {
            fcgi_impersonate();
        }
#endif
        while (!fastcgi || fcgi_accept_request(request) >= 0) {
            SG(server_context) = fastcgi ? (void *)request : (void *) 1;
            init_request_info(request);
 
            if (!cgi && !fastcgi) {
                while ((c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 0, 2)) != -1) {
                    switch (c) {
 
                        case 'a':   /* interactive mode */
                            printf("Interactive mode enabled\n\n");
                            fflush(stdout);
                            break;
 
                        case 'C': /* don't chdir to the script directory */
                            SG(options) |= SAPI_OPTION_NO_CHDIR;
                            break;
 
                        case 'e': /* enable extended info output */
                            CG(compiler_options) |= ZEND_COMPILE_EXTENDED_INFO;
                            break;
 
                        case 'f': /* parse file */
                            if (script_file) {
                                efree(script_file);
                            }
                            script_file = estrdup(php_optarg);
                            no_headers = 1;
                            break;
 
                        case 'i': /* php info & quit */
                            if (script_file) {
                                efree(script_file);
                            }
                            if (php_request_startup() == FAILURE) {
                                SG(server_context) = NULL;
                                php_module_shutdown();
                                free(bindpath);
                                return FAILURE;
                            }
                            if (no_headers) {
                                SG(headers_sent) = 1;
                                SG(request_info).no_headers = 1;
                            }
                            php_print_info(0xFFFFFFFF);
                            php_request_shutdown((void *) 0);
                            fcgi_shutdown();
                            exit_status = 0;
                            goto out;
 
                        case 'l': /* syntax check mode */
                            no_headers = 1;
                            behavior = PHP_MODE_LINT;
                            break;
 
                        case 'm': /* list compiled in modules */
                            if (script_file) {
                                efree(script_file);
                            }
                            SG(headers_sent) = 1;
                            php_printf("[PHP Modules]\n");
                            print_modules();
                            php_printf("\n[Zend Modules]\n");
                            print_extensions();
                            php_printf("\n");
                            php_output_end_all();
                            fcgi_shutdown();
                            exit_status = 0;
                            goto out;
 
                        case 'q': /* do not generate HTTP headers */
                            no_headers = 1;
                            break;
 
                        case 'v': /* show php version & quit */
                            if (script_file) {
                                efree(script_file);
                            }
                            no_headers = 1;
                            if (php_request_startup() == FAILURE) {
                                SG(server_context) = NULL;
                                php_module_shutdown();
                                free(bindpath);
                                return FAILURE;
                            }
                            SG(headers_sent) = 1;
                            SG(request_info).no_headers = 1;
                            php_print_version(&cgi_sapi_module);
                            php_request_shutdown((void *) 0);
                            fcgi_shutdown();
                            exit_status = 0;
                            goto out;
 
                        case 'w':
                            behavior = PHP_MODE_STRIP;
                            break;
 
                        case 'z': /* load extension file */
                            zend_load_extension(php_optarg);
                            break;
 
                        default:
                            break;
                    }
                }
 
do_repeat:
                if (script_file) {
                    /* override path_translated if -f on command line */
                    if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
                    SG(request_info).path_translated = script_file;
                    /* before registering argv to module exchange the *new* argv[0] */
                    /* we can achieve this without allocating more memory */
                    SG(request_info).argc = argc - (php_optind - 1);
                    SG(request_info).argv = &argv[php_optind - 1];
                    SG(request_info).argv[0] = script_file;
                } else if (argc > php_optind) {
                    /* file is on command line, but not in -f opt */
                    if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
                    SG(request_info).path_translated = estrdup(argv[php_optind]);
                    /* arguments after the file are considered script args */
                    SG(request_info).argc = argc - php_optind;
                    SG(request_info).argv = &argv[php_optind];
                }
 
                if (no_headers) {
                    SG(headers_sent) = 1;
                    SG(request_info).no_headers = 1;
                }
 
                /* all remaining arguments are part of the query string
                 * this section of code concatenates all remaining arguments
                 * into a single string, separating args with a &
                 * this allows command lines like:
                 *
                 *  test.php v1=test v2=hello+world!
                 *  test.php "v1=test&v2=hello world!"
                 *  test.php v1=test "v2=hello world!"
                */
                if (!SG(request_info).query_string && argc > php_optind) {
                    size_t slen = strlen(PG(arg_separator).input);
                    len = 0;
                    for (i = php_optind; i < argc; i++) {
                        if (i < (argc - 1)) {
                            len += strlen(argv[i]) + slen;
                        } else {
                            len += strlen(argv[i]);
                        }
                    }
 
                    len += 2;
                    s = malloc(len);
                    *s = '\0';         /* we are pretending it came from the environment  */
                    for (i = php_optind; i < argc; i++) {
                        strlcat(s, argv[i], len);
                        if (i < (argc - 1)) {
                            strlcat(s, PG(arg_separator).input, len);
                        }
                    }
                    SG(request_info).query_string = s;
                    free_query_string = 1;
                }
            } /* end !cgi && !fastcgi */
 
#ifdef HAVE_VALGRIND
            if (warmup_repeats == 0) {
                CALLGRIND_START_INSTRUMENTATION;
# ifdef HAVE_VALGRIND_CACHEGRIND_H
                CACHEGRIND_START_INSTRUMENTATION;
# endif
            }
#endif
 
            /* request startup only after we've done all we can to
             * get path_translated */
            if (php_request_startup() == FAILURE) {
                if (fastcgi) {
                    fcgi_finish_request(request, 1);
                }
                SG(server_context) = NULL;
                php_module_shutdown();
                return FAILURE;
            }
            if (no_headers) {
                SG(headers_sent) = 1;
                SG(request_info).no_headers = 1;
            }
 
            /*
                at this point path_translated will be set if:
                1. we are running from shell and got filename was there
                2. we are running as cgi or fastcgi
            */
            if (cgi || fastcgi || SG(request_info).path_translated) {
                if (php_fopen_primary_script(&file_handle) == FAILURE) {
                    zend_try {
                        if (errno == EACCES) {
                            SG(sapi_headers).http_response_code = 403;
                            PUTS("Access denied.\n");
                        } else {
                            SG(sapi_headers).http_response_code = 404;
                            PUTS("No input file specified.\n");
                        }
                    } zend_catch {
                    } zend_end_try();
                    /* we want to serve more requests if this is fastcgi
                     * so cleanup and continue, request shutdown is
                     * handled later */
                    if (fastcgi) {
                        goto fastcgi_request_done;
                    }
 
                    if (SG(request_info).path_translated) {
                        efree(SG(request_info).path_translated);
                        SG(request_info).path_translated = NULL;
                    }
 
                    if (free_query_string && SG(request_info).query_string) {
                        free(SG(request_info).query_string);
                        SG(request_info).query_string = NULL;
                    }
 
                    php_request_shutdown((void *) 0);
                    SG(server_context) = NULL;
                    php_module_shutdown();
                    sapi_shutdown();
#ifdef ZTS
                    tsrm_shutdown();
#endif
                    free(bindpath);
                    return FAILURE;
                }
            } else {
                /* we never take stdin if we're (f)cgi */
                zend_stream_init_fp(&file_handle, stdin, "Standard input code");
                file_handle.primary_script = 1;
            }
 
            if (CGIG(check_shebang_line)) {
                CG(skip_shebang) = 1;
            }
 
            switch (behavior) {
                case PHP_MODE_STANDARD:
                    php_execute_script(&file_handle);
                    break;
                case PHP_MODE_LINT:
                    PG(during_request_startup) = 0;
                    if (php_lint_script(&file_handle) == SUCCESS) {
                        zend_printf("No syntax errors detected in %s\n", ZSTR_VAL(file_handle.filename));
                    } else {
                        zend_printf("Errors parsing %s\n", ZSTR_VAL(file_handle.filename));
                        exit_status = -1;
                    }
                    break;
                case PHP_MODE_STRIP:
                    if (open_file_for_scanning(&file_handle) == SUCCESS) {
                        zend_strip();
                    }
                    break;
                case PHP_MODE_HIGHLIGHT:
                    {
                        zend_syntax_highlighter_ini syntax_highlighter_ini;
 
                        if (open_file_for_scanning(&file_handle) == SUCCESS) {
                            php_get_highlight_struct(&syntax_highlighter_ini);
                            zend_highlight(&syntax_highlighter_ini);
                        }
                    }
                    break;
            }
 
fastcgi_request_done:
            zend_destroy_file_handle(&file_handle);
 
            if (SG(request_info).path_translated) {
                efree(SG(request_info).path_translated);
                SG(request_info).path_translated = NULL;
            }
 
            php_request_shutdown((void *) 0);
 
            if (exit_status == 0) {
                exit_status = EG(exit_status);
            }
 
            if (free_query_string && SG(request_info).query_string) {
                free(SG(request_info).query_string);
                SG(request_info).query_string = NULL;
            }
 
#ifdef HAVE_VALGRIND
            /* We're not interested in measuring shutdown */
            CALLGRIND_STOP_INSTRUMENTATION;
# ifdef HAVE_VALGRIND_CACHEGRIND_H
            CACHEGRIND_STOP_INSTRUMENTATION;
# endif
#endif
 
            if (!fastcgi) {
                if (benchmark) {
                    if (warmup_repeats) {
                        warmup_repeats--;
                        if (!warmup_repeats) {
#ifdef HAVE_GETTIMEOFDAY
                            gettimeofday(&start, NULL);
#else
                            time(&start);
#endif
                        }
                        continue;
                    } else {
                        repeats--;
                        if (repeats > 0) {
                            script_file = NULL;
                            php_optind = orig_optind;
                            php_optarg = orig_optarg;
                            continue;
                        }
                    }
                }
                if (behavior == PHP_MODE_LINT && argc - 1 > php_optind) {
                    php_optind++;
                    script_file = NULL;
                    goto do_repeat;
                }
                break;
            }
 
            /* only fastcgi will get here */
            requests++;
            if (max_requests && (requests == max_requests)) {
                fcgi_finish_request(request, 1);
                free(bindpath);
                if (max_requests != 1) {
                    /* no need to return exit_status of the last request */
                    exit_status = 0;
                }
                break;
            }
            /* end of fastcgi loop */
        }
 
        if (request) {
            fcgi_destroy_request(request);
        }
        fcgi_shutdown();
 
        if (cgi_sapi_module.php_ini_path_override) {
            free(cgi_sapi_module.php_ini_path_override);
        }
        php_ini_builder_deinit(&ini_builder);
    } zend_catch {
        exit_status = 255;
    } zend_end_try();
 
out:
    if (benchmark) {
        int sec;
#ifdef HAVE_GETTIMEOFDAY
        int usec;
 
        gettimeofday(&end, NULL);
        sec = (int)(end.tv_sec - start.tv_sec);
        if (end.tv_usec >= start.tv_usec) {
            usec = (int)(end.tv_usec - start.tv_usec);
        } else {
            sec -= 1;
            usec = (int)(end.tv_usec + 1000000 - start.tv_usec);
        }
        fprintf(stderr, "\nElapsed time: %d.%06d sec\n", sec, usec);
#else
        time(&end);
        sec = (int)(end - start);
        fprintf(stderr, "\nElapsed time: %d sec\n", sec);
#endif
    }
 
parent_out:
 
    SG(server_context) = NULL;
    php_module_shutdown();
    sapi_shutdown();
 
#ifdef ZTS
    tsrm_shutdown();
#endif
 
#if defined(PHP_WIN32) && ZEND_DEBUG && 0
    _CrtDumpMemoryLeaks();
#endif
 
    return exit_status;
}
/* }}} */