1/*
2   +----------------------------------------------------------------------+
3   | PHP Version 5                                                        |
4   +----------------------------------------------------------------------+
5   | Copyright (c) 1997-2014 The PHP Group                                |
6   +----------------------------------------------------------------------+
7   | This source file is subject to version 3.01 of the PHP license,      |
8   | that is bundled with this package in the file LICENSE, and is        |
9   | available through the world-wide-web at the following url:           |
10   | http://www.php.net/license/3_01.txt                                  |
11   | If you did not receive a copy of the PHP license and are unable to   |
12   | obtain it through the world-wide-web, please send a note to          |
13   | license@php.net so we can mail you a copy immediately.               |
14   +----------------------------------------------------------------------+
15   | Authors: Rasmus Lerdorf <rasmus@lerdorf.on.ca>                       |
16   |          Stig Bakken <ssb@php.net>                                   |
17   |          Zeev Suraski <zeev@zend.com>                                |
18   | FastCGI: Ben Mansell <php@slimyhorror.com>                           |
19   |          Shane Caraveo <shane@caraveo.com>                           |
20   |          Dmitry Stogov <dmitry@zend.com>                             |
21   +----------------------------------------------------------------------+
22*/
23
24/* $Id$ */
25
26#include "php.h"
27#include "php_globals.h"
28#include "php_variables.h"
29#include "zend_modules.h"
30
31#include "SAPI.h"
32
33#include <stdio.h>
34#include "php.h"
35
36#ifdef PHP_WIN32
37# include "win32/time.h"
38# include "win32/signal.h"
39# include <process.h>
40#endif
41
42#if HAVE_SYS_TIME_H
43# include <sys/time.h>
44#endif
45
46#if HAVE_UNISTD_H
47# include <unistd.h>
48#endif
49
50#if HAVE_SIGNAL_H
51# include <signal.h>
52#endif
53
54#if HAVE_SETLOCALE
55# include <locale.h>
56#endif
57
58#if HAVE_SYS_TYPES_H
59# include <sys/types.h>
60#endif
61
62#if HAVE_SYS_WAIT_H
63# include <sys/wait.h>
64#endif
65
66#include "zend.h"
67#include "zend_extensions.h"
68#include "php_ini.h"
69#include "php_globals.h"
70#include "php_main.h"
71#include "fopen_wrappers.h"
72#include "ext/standard/php_standard.h"
73#include "ext/standard/url.h"
74
75#ifdef PHP_WIN32
76# include <io.h>
77# include <fcntl.h>
78# include "win32/php_registry.h"
79#endif
80
81#ifdef __riscos__
82# include <unixlib/local.h>
83int __riscosify_control = __RISCOSIFY_STRICT_UNIX_SPECS;
84#endif
85
86#include "zend_compile.h"
87#include "zend_execute.h"
88#include "zend_highlight.h"
89#include "zend_indent.h"
90
91#include "php_getopt.h"
92
93#include "fastcgi.h"
94
95#ifndef PHP_WIN32
96/* XXX this will need to change later when threaded fastcgi is implemented.  shane */
97struct sigaction act, old_term, old_quit, old_int;
98#endif
99
100static void (*php_php_import_environment_variables)(zval *array_ptr TSRMLS_DC);
101
102#ifndef PHP_WIN32
103/* these globals used for forking children on unix systems */
104/**
105 * Number of child processes that will get created to service requests
106 */
107static int children = 0;
108
109
110/**
111 * Set to non-zero if we are the parent process
112 */
113static int parent = 1;
114
115/* Did parent received exit signals SIG_TERM/SIG_INT/SIG_QUIT */
116static int exit_signal = 0;
117
118/* Is Parent waiting for children to exit */
119static int parent_waiting = 0;
120
121/**
122 * Process group
123 */
124static pid_t pgroup;
125#endif
126
127#define PHP_MODE_STANDARD   1
128#define PHP_MODE_HIGHLIGHT  2
129#define PHP_MODE_INDENT     3
130#define PHP_MODE_LINT       4
131#define PHP_MODE_STRIP      5
132
133static char *php_optarg = NULL;
134static int php_optind = 1;
135static zend_module_entry cgi_module_entry;
136
137static const opt_struct OPTIONS[] = {
138    {'a', 0, "interactive"},
139    {'b', 1, "bindpath"},
140    {'C', 0, "no-chdir"},
141    {'c', 1, "php-ini"},
142    {'d', 1, "define"},
143    {'e', 0, "profile-info"},
144    {'f', 1, "file"},
145    {'h', 0, "help"},
146    {'i', 0, "info"},
147    {'l', 0, "syntax-check"},
148    {'m', 0, "modules"},
149    {'n', 0, "no-php-ini"},
150    {'q', 0, "no-header"},
151    {'s', 0, "syntax-highlight"},
152    {'s', 0, "syntax-highlighting"},
153    {'w', 0, "strip"},
154    {'?', 0, "usage"},/* help alias (both '?' and 'usage') */
155    {'v', 0, "version"},
156    {'z', 1, "zend-extension"},
157    {'T', 1, "timing"},
158    {'-', 0, NULL} /* end of args */
159};
160
161typedef struct _php_cgi_globals_struct {
162    HashTable user_config_cache;
163    char *redirect_status_env;
164    zend_bool rfc2616_headers;
165    zend_bool nph;
166    zend_bool check_shebang_line;
167    zend_bool fix_pathinfo;
168    zend_bool force_redirect;
169    zend_bool discard_path;
170    zend_bool fcgi_logging;
171#ifdef PHP_WIN32
172    zend_bool impersonate;
173#endif
174} php_cgi_globals_struct;
175
176/* {{{ user_config_cache
177 *
178 * Key for each cache entry is dirname(PATH_TRANSLATED).
179 *
180 * NOTE: Each cache entry config_hash contains the combination from all user ini files found in
181 *       the path starting from doc_root throught to dirname(PATH_TRANSLATED).  There is no point
182 *       storing per-file entries as it would not be possible to detect added / deleted entries
183 *       between separate files.
184 */
185typedef struct _user_config_cache_entry {
186    time_t expires;
187    HashTable *user_config;
188} user_config_cache_entry;
189
190static void user_config_cache_entry_dtor(zval *el)
191{
192    user_config_cache_entry *entry = (user_config_cache_entry *)Z_PTR_P(el);
193    zend_hash_destroy(entry->user_config);
194    free(entry->user_config);
195    free(entry);
196}
197/* }}} */
198
199#ifdef ZTS
200static int php_cgi_globals_id;
201#define CGIG(v) TSRMG(php_cgi_globals_id, php_cgi_globals_struct *, v)
202#else
203static php_cgi_globals_struct php_cgi_globals;
204#define CGIG(v) (php_cgi_globals.v)
205#endif
206
207#ifdef PHP_WIN32
208#define TRANSLATE_SLASHES(path) \
209    { \
210        char *tmp = path; \
211        while (*tmp) { \
212            if (*tmp == '\\') *tmp = '/'; \
213            tmp++; \
214        } \
215    }
216#else
217#define TRANSLATE_SLASHES(path)
218#endif
219
220static int print_module_info(zval *element TSRMLS_DC)
221{
222    zend_module_entry *module = Z_PTR_P(element);
223    php_printf("%s\n", module->name);
224    return ZEND_HASH_APPLY_KEEP;
225}
226
227static int module_name_cmp(const void *a, const void *b TSRMLS_DC)
228{
229    Bucket *f = (Bucket *) a;
230    Bucket *s = (Bucket *) b;
231
232    return strcasecmp(  ((zend_module_entry *)Z_PTR(f->val))->name,
233                        ((zend_module_entry *)Z_PTR(s->val))->name);
234}
235
236static void print_modules(TSRMLS_D)
237{
238    HashTable sorted_registry;
239
240    zend_hash_init(&sorted_registry, 64, NULL, NULL, 1);
241    zend_hash_copy(&sorted_registry, &module_registry, NULL);
242    zend_hash_sort(&sorted_registry, zend_qsort, module_name_cmp, 0 TSRMLS_CC);
243    zend_hash_apply(&sorted_registry, print_module_info TSRMLS_CC);
244    zend_hash_destroy(&sorted_registry);
245}
246
247static int print_extension_info(zend_extension *ext, void *arg TSRMLS_DC)
248{
249    php_printf("%s\n", ext->name);
250    return 0;
251}
252
253static int extension_name_cmp(const zend_llist_element **f, const zend_llist_element **s TSRMLS_DC)
254{
255    return strcmp(  ((zend_extension *)(*f)->data)->name,
256                    ((zend_extension *)(*s)->data)->name);
257}
258
259static void print_extensions(TSRMLS_D)
260{
261    zend_llist sorted_exts;
262
263    zend_llist_copy(&sorted_exts, &zend_extensions);
264    sorted_exts.dtor = NULL;
265    zend_llist_sort(&sorted_exts, extension_name_cmp TSRMLS_CC);
266    zend_llist_apply_with_argument(&sorted_exts, (llist_apply_with_arg_func_t) print_extension_info, NULL TSRMLS_CC);
267    zend_llist_destroy(&sorted_exts);
268}
269
270#ifndef STDOUT_FILENO
271#define STDOUT_FILENO 1
272#endif
273
274static inline size_t sapi_cgi_single_write(const char *str, uint str_length TSRMLS_DC)
275{
276#ifdef PHP_WRITE_STDOUT
277    int ret;
278
279    ret = write(STDOUT_FILENO, str, str_length);
280    if (ret <= 0) return 0;
281    return ret;
282#else
283    size_t ret;
284
285    ret = fwrite(str, 1, MIN(str_length, 16384), stdout);
286    return ret;
287#endif
288}
289
290static size_t sapi_cgi_ub_write(const char *str, size_t str_length TSRMLS_DC)
291{
292    const char *ptr = str;
293    size_t remaining = str_length;
294    size_t ret;
295
296    while (remaining > 0) {
297        ret = sapi_cgi_single_write(ptr, remaining TSRMLS_CC);
298        if (!ret) {
299            php_handle_aborted_connection();
300            return str_length - remaining;
301        }
302        ptr += ret;
303        remaining -= ret;
304    }
305
306    return str_length;
307}
308
309static size_t sapi_fcgi_ub_write(const char *str, size_t str_length TSRMLS_DC)
310{
311    const char *ptr = str;
312    size_t remaining = str_length;
313    fcgi_request *request = (fcgi_request*) SG(server_context);
314
315    while (remaining > 0) {
316        zend_long ret = fcgi_write(request, FCGI_STDOUT, ptr, remaining);
317
318        if (ret <= 0) {
319            php_handle_aborted_connection();
320            return str_length - remaining;
321        }
322        ptr += ret;
323        remaining -= ret;
324    }
325
326    return str_length;
327}
328
329static void sapi_cgi_flush(void *server_context TSRMLS_DC)
330{
331    if (fflush(stdout) == EOF) {
332        php_handle_aborted_connection();
333    }
334}
335
336static void sapi_fcgi_flush(void *server_context TSRMLS_DC)
337{
338    fcgi_request *request = (fcgi_request*) server_context;
339
340    if (
341#ifndef PHP_WIN32
342        !parent &&
343#endif
344        request && !fcgi_flush(request, 0)) {
345
346        php_handle_aborted_connection();
347    }
348}
349
350#define SAPI_CGI_MAX_HEADER_LENGTH 1024
351
352typedef struct _http_error {
353  int code;
354  const char* msg;
355} http_error;
356
357static const http_error http_error_codes[] = {
358    {100, "Continue"},
359    {101, "Switching Protocols"},
360    {200, "OK"},
361    {201, "Created"},
362    {202, "Accepted"},
363    {203, "Non-Authoritative Information"},
364    {204, "No Content"},
365    {205, "Reset Content"},
366    {206, "Partial Content"},
367    {300, "Multiple Choices"},
368    {301, "Moved Permanently"},
369    {302, "Moved Temporarily"},
370    {303, "See Other"},
371    {304, "Not Modified"},
372    {305, "Use Proxy"},
373    {400, "Bad Request"},
374    {401, "Unauthorized"},
375    {402, "Payment Required"},
376    {403, "Forbidden"},
377    {404, "Not Found"},
378    {405, "Method Not Allowed"},
379    {406, "Not Acceptable"},
380    {407, "Proxy Authentication Required"},
381    {408, "Request Time-out"},
382    {409, "Conflict"},
383    {410, "Gone"},
384    {411, "Length Required"},
385    {412, "Precondition Failed"},
386    {413, "Request Entity Too Large"},
387    {414, "Request-URI Too Large"},
388    {415, "Unsupported Media Type"},
389    {428, "Precondition Required"},
390    {429, "Too Many Requests"},
391    {431, "Request Header Fields Too Large"},
392    {500, "Internal Server Error"},
393    {501, "Not Implemented"},
394    {502, "Bad Gateway"},
395    {503, "Service Unavailable"},
396    {504, "Gateway Time-out"},
397    {505, "HTTP Version not supported"},
398    {511, "Network Authentication Required"},
399    {0,   NULL}
400};
401
402static int sapi_cgi_send_headers(sapi_headers_struct *sapi_headers TSRMLS_DC)
403{
404    char buf[SAPI_CGI_MAX_HEADER_LENGTH];
405    sapi_header_struct *h;
406    zend_llist_position pos;
407    zend_bool ignore_status = 0;
408    int response_status = SG(sapi_headers).http_response_code;
409
410    if (SG(request_info).no_headers == 1) {
411        return  SAPI_HEADER_SENT_SUCCESSFULLY;
412    }
413
414    if (CGIG(nph) || SG(sapi_headers).http_response_code != 200)
415    {
416        int len;
417        zend_bool has_status = 0;
418
419        if (CGIG(rfc2616_headers) && SG(sapi_headers).http_status_line) {
420            char *s;
421            len = slprintf(buf, SAPI_CGI_MAX_HEADER_LENGTH, "%s\r\n", SG(sapi_headers).http_status_line);
422            if ((s = strchr(SG(sapi_headers).http_status_line, ' '))) {
423                response_status = atoi((s + 1));
424            }
425
426            if (len > SAPI_CGI_MAX_HEADER_LENGTH) {
427                len = SAPI_CGI_MAX_HEADER_LENGTH;
428            }
429
430        } else {
431            char *s;
432
433            if (SG(sapi_headers).http_status_line &&
434                (s = strchr(SG(sapi_headers).http_status_line, ' ')) != 0 &&
435                (s - SG(sapi_headers).http_status_line) >= 5 &&
436                strncasecmp(SG(sapi_headers).http_status_line, "HTTP/", 5) == 0
437            ) {
438                len = slprintf(buf, sizeof(buf), "Status:%s\r\n", s);
439                response_status = atoi((s + 1));
440            } else {
441                h = (sapi_header_struct*)zend_llist_get_first_ex(&sapi_headers->headers, &pos);
442                while (h) {
443                    if (h->header_len > sizeof("Status:")-1 &&
444                        strncasecmp(h->header, "Status:", sizeof("Status:")-1) == 0
445                    ) {
446                        has_status = 1;
447                        break;
448                    }
449                    h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
450                }
451                if (!has_status) {
452                    http_error *err = (http_error*)http_error_codes;
453
454                    while (err->code != 0) {
455                        if (err->code == SG(sapi_headers).http_response_code) {
456                            break;
457                        }
458                        err++;
459                    }
460                    if (err->msg) {
461                        len = slprintf(buf, sizeof(buf), "Status: %d %s\r\n", SG(sapi_headers).http_response_code, err->msg);
462                    } else {
463                        len = slprintf(buf, sizeof(buf), "Status: %d\r\n", SG(sapi_headers).http_response_code);
464                    }
465                }
466            }
467        }
468
469        if (!has_status) {
470            PHPWRITE_H(buf, len);
471            ignore_status = 1;
472        }
473    }
474
475    h = (sapi_header_struct*)zend_llist_get_first_ex(&sapi_headers->headers, &pos);
476    while (h) {
477        /* prevent CRLFCRLF */
478        if (h->header_len) {
479            if (h->header_len > sizeof("Status:")-1 &&
480                strncasecmp(h->header, "Status:", sizeof("Status:")-1) == 0
481            ) {
482                if (!ignore_status) {
483                    ignore_status = 1;
484                    PHPWRITE_H(h->header, h->header_len);
485                    PHPWRITE_H("\r\n", 2);
486                }
487            } else if (response_status == 304 && h->header_len > sizeof("Content-Type:")-1 &&
488                strncasecmp(h->header, "Content-Type:", sizeof("Content-Type:")-1) == 0
489            ) {
490                h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
491                continue;
492            } else {
493                PHPWRITE_H(h->header, h->header_len);
494                PHPWRITE_H("\r\n", 2);
495            }
496        }
497        h = (sapi_header_struct*)zend_llist_get_next_ex(&sapi_headers->headers, &pos);
498    }
499    PHPWRITE_H("\r\n", 2);
500
501    return SAPI_HEADER_SENT_SUCCESSFULLY;
502}
503
504#ifndef STDIN_FILENO
505# define STDIN_FILENO 0
506#endif
507
508static size_t sapi_cgi_read_post(char *buffer, size_t count_bytes TSRMLS_DC)
509{
510    size_t read_bytes = 0;
511    int tmp_read_bytes;
512
513    count_bytes = MIN(count_bytes, SG(request_info).content_length - SG(read_post_bytes));
514    while (read_bytes < count_bytes) {
515        tmp_read_bytes = read(STDIN_FILENO, buffer + read_bytes, count_bytes - read_bytes);
516        if (tmp_read_bytes <= 0) {
517            break;
518        }
519        read_bytes += tmp_read_bytes;
520    }
521    return read_bytes;
522}
523
524static size_t sapi_fcgi_read_post(char *buffer, size_t count_bytes TSRMLS_DC)
525{
526    size_t read_bytes = 0;
527    int tmp_read_bytes;
528    fcgi_request *request = (fcgi_request*) SG(server_context);
529    size_t remaining = SG(request_info).content_length - SG(read_post_bytes);
530
531    if (remaining < count_bytes) {
532        count_bytes = remaining;
533    }
534    while (read_bytes < count_bytes) {
535        tmp_read_bytes = fcgi_read(request, buffer + read_bytes, count_bytes - read_bytes);
536        if (tmp_read_bytes <= 0) {
537            break;
538        }
539        read_bytes += tmp_read_bytes;
540    }
541    return read_bytes;
542}
543
544static char *sapi_cgi_getenv(char *name, size_t name_len TSRMLS_DC)
545{
546    return getenv(name);
547}
548
549static char *sapi_fcgi_getenv(char *name, size_t name_len TSRMLS_DC)
550{
551    /* when php is started by mod_fastcgi, no regular environment
552     * is provided to PHP.  It is always sent to PHP at the start
553     * of a request.  So we have to do our own lookup to get env
554     * vars.  This could probably be faster somehow.  */
555    fcgi_request *request = (fcgi_request*) SG(server_context);
556    char *ret = fcgi_getenv(request, name, name_len);
557
558    if (ret) return ret;
559    /*  if cgi, or fastcgi and not found in fcgi env
560        check the regular environment */
561    return getenv(name);
562}
563
564static char *_sapi_cgi_putenv(char *name, int name_len, char *value)
565{
566#if !HAVE_SETENV || !HAVE_UNSETENV
567    int len;
568    char *buf;
569#endif
570
571#if HAVE_SETENV
572    if (value) {
573        setenv(name, value, 1);
574    }
575#endif
576#if HAVE_UNSETENV
577    if (!value) {
578        unsetenv(name);
579    }
580#endif
581
582#if !HAVE_SETENV || !HAVE_UNSETENV
583    /*  if cgi, or fastcgi and not found in fcgi env
584        check the regular environment
585        this leaks, but it's only cgi anyway, we'll fix
586        it for 5.0
587    */
588    len = name_len + (value ? strlen(value) : 0) + sizeof("=") + 2;
589    buf = (char *) malloc(len);
590    if (buf == NULL) {
591        return getenv(name);
592    }
593#endif
594#if !HAVE_SETENV
595    if (value) {
596        len = slprintf(buf, len - 1, "%s=%s", name, value);
597        putenv(buf);
598    }
599#endif
600#if !HAVE_UNSETENV
601    if (!value) {
602        len = slprintf(buf, len - 1, "%s=", name);
603        putenv(buf);
604    }
605#endif
606    return getenv(name);
607}
608
609static char *sapi_cgi_read_cookies(TSRMLS_D)
610{
611    return getenv("HTTP_COOKIE");
612}
613
614static char *sapi_fcgi_read_cookies(TSRMLS_D)
615{
616    fcgi_request *request = (fcgi_request*) SG(server_context);
617
618    return FCGI_GETENV(request, "HTTP_COOKIE");
619}
620
621static void cgi_php_load_env_var(char *var, unsigned int var_len, char *val, unsigned int val_len, void *arg TSRMLS_DC)
622{
623    zval *array_ptr = (zval*)arg;
624    int filter_arg = (Z_ARR_P(array_ptr) == Z_ARR(PG(http_globals)[TRACK_VARS_ENV]))?PARSE_ENV:PARSE_SERVER;
625    size_t new_val_len;
626
627    if (sapi_module.input_filter(filter_arg, var, &val, strlen(val), &new_val_len TSRMLS_CC)) {
628        php_register_variable_safe(var, val, new_val_len, array_ptr TSRMLS_CC);
629    }
630}
631
632static void cgi_php_import_environment_variables(zval *array_ptr TSRMLS_DC)
633{
634    if (Z_TYPE(PG(http_globals)[TRACK_VARS_ENV]) == IS_ARRAY &&
635        Z_ARR_P(array_ptr) != Z_ARR(PG(http_globals)[TRACK_VARS_ENV]) &&
636        zend_hash_num_elements(Z_ARRVAL(PG(http_globals)[TRACK_VARS_ENV])) > 0
637    ) {
638        zval_dtor(array_ptr);
639        ZVAL_DUP(array_ptr, &PG(http_globals)[TRACK_VARS_ENV]);
640        return;
641    } else if (Z_TYPE(PG(http_globals)[TRACK_VARS_SERVER]) == IS_ARRAY &&
642        Z_ARR_P(array_ptr) != Z_ARR(PG(http_globals)[TRACK_VARS_SERVER]) &&
643        zend_hash_num_elements(Z_ARRVAL(PG(http_globals)[TRACK_VARS_SERVER])) > 0
644    ) {
645        zval_dtor(array_ptr);
646        ZVAL_DUP(array_ptr, &PG(http_globals)[TRACK_VARS_SERVER]);
647        return;
648    }
649
650    /* call php's original import as a catch-all */
651    php_php_import_environment_variables(array_ptr TSRMLS_CC);
652
653    if (fcgi_is_fastcgi()) {
654        fcgi_request *request = (fcgi_request*) SG(server_context);
655        fcgi_loadenv(request, cgi_php_load_env_var, array_ptr TSRMLS_CC);
656    }
657}
658
659static void sapi_cgi_register_variables(zval *track_vars_array TSRMLS_DC)
660{
661    size_t php_self_len;
662    char *php_self;
663
664    /* In CGI mode, we consider the environment to be a part of the server
665     * variables
666     */
667    php_import_environment_variables(track_vars_array TSRMLS_CC);
668
669    if (CGIG(fix_pathinfo)) {
670        char *script_name = SG(request_info).request_uri;
671        char *path_info;
672        int free_php_self;
673        ALLOCA_FLAG(use_heap)
674
675        if (fcgi_is_fastcgi()) {
676            fcgi_request *request = (fcgi_request*) SG(server_context);
677
678            path_info = FCGI_GETENV(request, "PATH_INFO");
679        } else {
680            path_info = getenv("PATH_INFO");
681        }
682
683        if (path_info) {
684            unsigned int path_info_len = strlen(path_info);
685
686            if (script_name) {
687                unsigned int script_name_len = strlen(script_name);
688
689                php_self_len = script_name_len + path_info_len;
690                php_self = do_alloca(php_self_len + 1, use_heap);
691                memcpy(php_self, script_name, script_name_len + 1);
692                memcpy(php_self + script_name_len, path_info, path_info_len + 1);
693                free_php_self = 1;
694            }  else {
695                php_self = path_info;
696                php_self_len = path_info_len;
697                free_php_self = 0;
698            }
699        } else if (script_name) {
700            php_self = script_name;
701            php_self_len = strlen(script_name);
702            free_php_self = 0;
703        } else {
704            php_self = "";
705            php_self_len = 0;
706            free_php_self = 0;
707        }
708
709        /* Build the special-case PHP_SELF variable for the CGI version */
710        if (sapi_module.input_filter(PARSE_SERVER, "PHP_SELF", &php_self, php_self_len, &php_self_len TSRMLS_CC)) {
711            php_register_variable_safe("PHP_SELF", php_self, php_self_len, track_vars_array TSRMLS_CC);
712        }
713        if (free_php_self) {
714            free_alloca(php_self, use_heap);
715        }
716    } else {
717        php_self = SG(request_info).request_uri ? SG(request_info).request_uri : "";
718        php_self_len = strlen(php_self);
719        if (sapi_module.input_filter(PARSE_SERVER, "PHP_SELF", &php_self, php_self_len, &php_self_len TSRMLS_CC)) {
720            php_register_variable_safe("PHP_SELF", php_self, php_self_len, track_vars_array TSRMLS_CC);
721        }
722    }
723}
724
725static void sapi_cgi_log_message(char *message TSRMLS_DC)
726{
727    if (fcgi_is_fastcgi() && CGIG(fcgi_logging)) {
728        fcgi_request *request;
729
730        request = (fcgi_request*) SG(server_context);
731        if (request) {
732            int len = strlen(message);
733            char *buf = malloc(len+2);
734
735            memcpy(buf, message, len);
736            memcpy(buf + len, "\n", sizeof("\n"));
737            fcgi_write(request, FCGI_STDERR, buf, len+1);
738            free(buf);
739        } else {
740            fprintf(stderr, "%s\n", message);
741        }
742        /* ignore return code */
743    } else {
744        fprintf(stderr, "%s\n", message);
745    }
746}
747
748/* {{{ php_cgi_ini_activate_user_config
749 */
750static void php_cgi_ini_activate_user_config(char *path, int path_len, const char *doc_root, int doc_root_len, int start TSRMLS_DC)
751{
752    char *ptr;
753    user_config_cache_entry *new_entry, *entry;
754    time_t request_time = sapi_get_request_time(TSRMLS_C);
755
756    /* Find cached config entry: If not found, create one */
757    if ((entry = zend_hash_str_find_ptr(&CGIG(user_config_cache), path, path_len)) == NULL) {
758        new_entry = pemalloc(sizeof(user_config_cache_entry), 1);
759        new_entry->expires = 0;
760        new_entry->user_config = (HashTable *) pemalloc(sizeof(HashTable), 1);
761        zend_hash_init(new_entry->user_config, 8, NULL, (dtor_func_t) config_zval_dtor, 1);
762        entry = zend_hash_str_update_ptr(&CGIG(user_config_cache), path, path_len, new_entry);
763    }
764
765    /* Check whether cache entry has expired and rescan if it is */
766    if (request_time > entry->expires) {
767        char *real_path = NULL;
768        int real_path_len;
769        char *s1, *s2;
770        int s_len;
771
772        /* Clear the expired config */
773        zend_hash_clean(entry->user_config);
774
775        if (!IS_ABSOLUTE_PATH(path, path_len)) {
776            real_path = tsrm_realpath(path, NULL TSRMLS_CC);
777            if (real_path == NULL) {
778                return;
779            }
780            real_path_len = strlen(real_path);
781            path = real_path;
782            path_len = real_path_len;
783        }
784
785        if (path_len > doc_root_len) {
786            s1 = (char *) doc_root;
787            s2 = path;
788            s_len = doc_root_len;
789        } else {
790            s1 = path;
791            s2 = (char *) doc_root;
792            s_len = path_len;
793        }
794
795        /* we have to test if path is part of DOCUMENT_ROOT.
796          if it is inside the docroot, we scan the tree up to the docroot
797            to find more user.ini, if not we only scan the current path.
798          */
799#ifdef PHP_WIN32
800        if (strnicmp(s1, s2, s_len) == 0) {
801#else
802        if (strncmp(s1, s2, s_len) == 0) {
803#endif
804            ptr = s2 + start;  /* start is the point where doc_root ends! */
805            while ((ptr = strchr(ptr, DEFAULT_SLASH)) != NULL) {
806                *ptr = 0;
807                php_parse_user_ini_file(path, PG(user_ini_filename), entry->user_config TSRMLS_CC);
808                *ptr = '/';
809                ptr++;
810            }
811        } else {
812            php_parse_user_ini_file(path, PG(user_ini_filename), entry->user_config TSRMLS_CC);
813        }
814
815        if (real_path) {
816            efree(real_path);
817        }
818        entry->expires = request_time + PG(user_ini_cache_ttl);
819    }
820
821    /* Activate ini entries with values from the user config hash */
822    php_ini_activate_config(entry->user_config, PHP_INI_PERDIR, PHP_INI_STAGE_HTACCESS TSRMLS_CC);
823}
824/* }}} */
825
826static int sapi_cgi_activate(TSRMLS_D)
827{
828    char *path, *doc_root, *server_name;
829    uint path_len, doc_root_len, server_name_len;
830
831    /* PATH_TRANSLATED should be defined at this stage but better safe than sorry :) */
832    if (!SG(request_info).path_translated) {
833        return FAILURE;
834    }
835
836    if (php_ini_has_per_host_config()) {
837        /* Activate per-host-system-configuration defined in php.ini and stored into configuration_hash during startup */
838        if (fcgi_is_fastcgi()) {
839            fcgi_request *request = (fcgi_request*) SG(server_context);
840
841            server_name = FCGI_GETENV(request, "SERVER_NAME");
842        } else {
843            server_name = getenv("SERVER_NAME");
844        }
845        /* SERVER_NAME should also be defined at this stage..but better check it anyway */
846        if (server_name) {
847            server_name_len = strlen(server_name);
848            server_name = estrndup(server_name, server_name_len);
849            zend_str_tolower(server_name, server_name_len);
850            php_ini_activate_per_host_config(server_name, server_name_len TSRMLS_CC);
851            efree(server_name);
852        }
853    }
854
855    if (php_ini_has_per_dir_config() ||
856        (PG(user_ini_filename) && *PG(user_ini_filename))
857    ) {
858        /* Prepare search path */
859        path_len = strlen(SG(request_info).path_translated);
860
861        /* Make sure we have trailing slash! */
862        if (!IS_SLASH(SG(request_info).path_translated[path_len])) {
863            path = emalloc(path_len + 2);
864            memcpy(path, SG(request_info).path_translated, path_len + 1);
865            path_len = zend_dirname(path, path_len);
866            path[path_len++] = DEFAULT_SLASH;
867        } else {
868            path = estrndup(SG(request_info).path_translated, path_len);
869            path_len = zend_dirname(path, path_len);
870        }
871        path[path_len] = 0;
872
873        /* Activate per-dir-system-configuration defined in php.ini and stored into configuration_hash during startup */
874        php_ini_activate_per_dir_config(path, path_len TSRMLS_CC); /* Note: for global settings sake we check from root to path */
875
876        /* Load and activate user ini files in path starting from DOCUMENT_ROOT */
877        if (PG(user_ini_filename) && *PG(user_ini_filename)) {
878            if (fcgi_is_fastcgi()) {
879                fcgi_request *request = (fcgi_request*) SG(server_context);
880
881                doc_root = FCGI_GETENV(request, "DOCUMENT_ROOT");
882            } else {
883                doc_root = getenv("DOCUMENT_ROOT");
884            }
885            /* DOCUMENT_ROOT should also be defined at this stage..but better check it anyway */
886            if (doc_root) {
887                doc_root_len = strlen(doc_root);
888                if (doc_root_len > 0 && IS_SLASH(doc_root[doc_root_len - 1])) {
889                    --doc_root_len;
890                }
891#ifdef PHP_WIN32
892                /* paths on windows should be case-insensitive */
893                doc_root = estrndup(doc_root, doc_root_len);
894                zend_str_tolower(doc_root, doc_root_len);
895#endif
896                php_cgi_ini_activate_user_config(path, path_len, doc_root, doc_root_len, doc_root_len - 1 TSRMLS_CC);
897
898#ifdef PHP_WIN32
899                efree(doc_root);
900#endif
901            }
902        }
903
904        efree(path);
905    }
906
907    return SUCCESS;
908}
909
910static int sapi_cgi_deactivate(TSRMLS_D)
911{
912    /* flush only when SAPI was started. The reasons are:
913        1. SAPI Deactivate is called from two places: module init and request shutdown
914        2. When the first call occurs and the request is not set up, flush fails on FastCGI.
915    */
916    if (SG(sapi_started)) {
917        if (fcgi_is_fastcgi()) {
918            if (
919#ifndef PHP_WIN32
920                !parent &&
921#endif
922                !fcgi_finish_request((fcgi_request*)SG(server_context), 0)) {
923                php_handle_aborted_connection();
924            }
925        } else {
926            sapi_cgi_flush(SG(server_context) TSRMLS_CC);
927        }
928    }
929    return SUCCESS;
930}
931
932static int php_cgi_startup(sapi_module_struct *sapi_module)
933{
934    if (php_module_startup(sapi_module, &cgi_module_entry, 1) == FAILURE) {
935        return FAILURE;
936    }
937    return SUCCESS;
938}
939
940/* {{{ sapi_module_struct cgi_sapi_module
941 */
942static sapi_module_struct cgi_sapi_module = {
943    "cgi-fcgi",                     /* name */
944    "CGI/FastCGI",                  /* pretty name */
945
946    php_cgi_startup,                /* startup */
947    php_module_shutdown_wrapper,    /* shutdown */
948
949    sapi_cgi_activate,              /* activate */
950    sapi_cgi_deactivate,            /* deactivate */
951
952    sapi_cgi_ub_write,              /* unbuffered write */
953    sapi_cgi_flush,                 /* flush */
954    NULL,                           /* get uid */
955    sapi_cgi_getenv,                /* getenv */
956
957    php_error,                      /* error handler */
958
959    NULL,                           /* header handler */
960    sapi_cgi_send_headers,          /* send headers handler */
961    NULL,                           /* send header handler */
962
963    sapi_cgi_read_post,             /* read POST data */
964    sapi_cgi_read_cookies,          /* read Cookies */
965
966    sapi_cgi_register_variables,    /* register server variables */
967    sapi_cgi_log_message,           /* Log message */
968    NULL,                           /* Get request time */
969    NULL,                           /* Child terminate */
970
971    STANDARD_SAPI_MODULE_PROPERTIES
972};
973/* }}} */
974
975/* {{{ arginfo ext/standard/dl.c */
976ZEND_BEGIN_ARG_INFO(arginfo_dl, 0)
977    ZEND_ARG_INFO(0, extension_filename)
978ZEND_END_ARG_INFO()
979/* }}} */
980
981static const zend_function_entry additional_functions[] = {
982    ZEND_FE(dl, arginfo_dl)
983    {NULL, NULL, NULL}
984};
985
986/* {{{ php_cgi_usage
987 */
988static void php_cgi_usage(char *argv0)
989{
990    char *prog;
991
992    prog = strrchr(argv0, '/');
993    if (prog) {
994        prog++;
995    } else {
996        prog = "php";
997    }
998
999    php_printf( "Usage: %s [-q] [-h] [-s] [-v] [-i] [-f <file>]\n"
1000                "       %s <file> [args...]\n"
1001                "  -a               Run interactively\n"
1002                "  -b <address:port>|<port> Bind Path for external FASTCGI Server mode\n"
1003                "  -C               Do not chdir to the script's directory\n"
1004                "  -c <path>|<file> Look for php.ini file in this directory\n"
1005                "  -n               No php.ini file will be used\n"
1006                "  -d foo[=bar]     Define INI entry foo with value 'bar'\n"
1007                "  -e               Generate extended information for debugger/profiler\n"
1008                "  -f <file>        Parse <file>.  Implies `-q'\n"
1009                "  -h               This help\n"
1010                "  -i               PHP information\n"
1011                "  -l               Syntax check only (lint)\n"
1012                "  -m               Show compiled in modules\n"
1013                "  -q               Quiet-mode.  Suppress HTTP Header output.\n"
1014                "  -s               Display colour syntax highlighted source.\n"
1015                "  -v               Version number\n"
1016                "  -w               Display source with stripped comments and whitespace.\n"
1017                "  -z <file>        Load Zend extension <file>.\n"
1018                "  -T <count>       Measure execution time of script repeated <count> times.\n",
1019                prog, prog);
1020}
1021/* }}} */
1022
1023/* {{{ is_valid_path
1024 *
1025 * some server configurations allow '..' to slip through in the
1026 * translated path.   We'll just refuse to handle such a path.
1027 */
1028static int is_valid_path(const char *path)
1029{
1030    const char *p = path;
1031
1032    if (UNEXPECTED(!p)) {
1033        return 0;
1034    }
1035    if (UNEXPECTED(*p == '.') && *(p+1) == '.' && (!*(p+2) || IS_SLASH(*(p+2)))) {
1036        return 0;
1037    }
1038    while (*p) {
1039        if (IS_SLASH(*p)) {
1040            p++;
1041            if (UNEXPECTED(*p == '.')) {
1042                p++;
1043                if (UNEXPECTED(*p == '.')) {
1044                    p++;
1045                    if (UNEXPECTED(!*p) || UNEXPECTED(IS_SLASH(*p))) {
1046                        return 0;
1047                    }
1048                }
1049            }
1050        }
1051        p++;
1052    }
1053    return 1;
1054}
1055/* }}} */
1056
1057#define CGI_GETENV(name) \
1058    ((request) ? \
1059        FCGI_GETENV(request, name) : \
1060        getenv(name))
1061
1062#define CGI_PUTENV(name, value) \
1063    ((request) ? \
1064        FCGI_PUTENV(request, name, value) : \
1065        _sapi_cgi_putenv(name, sizeof(name)-1, value))
1066
1067/* {{{ init_request_info
1068
1069  initializes request_info structure
1070
1071  specificly in this section we handle proper translations
1072  for:
1073
1074  PATH_INFO
1075    derived from the portion of the URI path following
1076    the script name but preceding any query data
1077    may be empty
1078
1079  PATH_TRANSLATED
1080    derived by taking any path-info component of the
1081    request URI and performing any virtual-to-physical
1082    translation appropriate to map it onto the server's
1083    document repository structure
1084
1085    empty if PATH_INFO is empty
1086
1087    The env var PATH_TRANSLATED **IS DIFFERENT** than the
1088    request_info.path_translated variable, the latter should
1089    match SCRIPT_FILENAME instead.
1090
1091  SCRIPT_NAME
1092    set to a URL path that could identify the CGI script
1093    rather than the interpreter.  PHP_SELF is set to this
1094
1095  REQUEST_URI
1096    uri section following the domain:port part of a URI
1097
1098  SCRIPT_FILENAME
1099    The virtual-to-physical translation of SCRIPT_NAME (as per
1100    PATH_TRANSLATED)
1101
1102  These settings are documented at
1103  http://cgi-spec.golux.com/
1104
1105
1106  Based on the following URL request:
1107
1108  http://localhost/info.php/test?a=b
1109
1110  should produce, which btw is the same as if
1111  we were running under mod_cgi on apache (ie. not
1112  using ScriptAlias directives):
1113
1114  PATH_INFO=/test
1115  PATH_TRANSLATED=/docroot/test
1116  SCRIPT_NAME=/info.php
1117  REQUEST_URI=/info.php/test?a=b
1118  SCRIPT_FILENAME=/docroot/info.php
1119  QUERY_STRING=a=b
1120
1121  but what we get is (cgi/mod_fastcgi under apache):
1122
1123  PATH_INFO=/info.php/test
1124  PATH_TRANSLATED=/docroot/info.php/test
1125  SCRIPT_NAME=/php/php-cgi  (from the Action setting I suppose)
1126  REQUEST_URI=/info.php/test?a=b
1127  SCRIPT_FILENAME=/path/to/php/bin/php-cgi  (Action setting translated)
1128  QUERY_STRING=a=b
1129
1130  Comments in the code below refer to using the above URL in a request
1131
1132 */
1133static void init_request_info(fcgi_request *request TSRMLS_DC)
1134{
1135    char *env_script_filename = CGI_GETENV("SCRIPT_FILENAME");
1136    char *env_path_translated = CGI_GETENV("PATH_TRANSLATED");
1137    char *script_path_translated = env_script_filename;
1138
1139    /* some broken servers do not have script_filename or argv0
1140     * an example, IIS configured in some ways.  then they do more
1141     * broken stuff and set path_translated to the cgi script location */
1142    if (!script_path_translated && env_path_translated) {
1143        script_path_translated = env_path_translated;
1144    }
1145
1146    /* initialize the defaults */
1147    SG(request_info).path_translated = NULL;
1148    SG(request_info).request_method = NULL;
1149    SG(request_info).proto_num = 1000;
1150    SG(request_info).query_string = NULL;
1151    SG(request_info).request_uri = NULL;
1152    SG(request_info).content_type = NULL;
1153    SG(request_info).content_length = 0;
1154    SG(sapi_headers).http_response_code = 200;
1155
1156    /* script_path_translated being set is a good indication that
1157     * we are running in a cgi environment, since it is always
1158     * null otherwise.  otherwise, the filename
1159     * of the script will be retreived later via argc/argv */
1160    if (script_path_translated) {
1161        const char *auth;
1162        char *content_length = CGI_GETENV("CONTENT_LENGTH");
1163        char *content_type = CGI_GETENV("CONTENT_TYPE");
1164        char *env_path_info = CGI_GETENV("PATH_INFO");
1165        char *env_script_name = CGI_GETENV("SCRIPT_NAME");
1166
1167#ifdef PHP_WIN32
1168        /* Hack for buggy IIS that sets incorrect PATH_INFO */
1169        char *env_server_software = CGI_GETENV("SERVER_SOFTWARE");
1170
1171        if (env_server_software &&
1172            env_script_name &&
1173            env_path_info &&
1174            strncmp(env_server_software, "Microsoft-IIS", sizeof("Microsoft-IIS")-1) == 0 &&
1175            strncmp(env_path_info, env_script_name, strlen(env_script_name)) == 0
1176        ) {
1177            env_path_info = CGI_PUTENV("ORIG_PATH_INFO", env_path_info);
1178            env_path_info += strlen(env_script_name);
1179            if (*env_path_info == 0) {
1180                env_path_info = NULL;
1181            }
1182            env_path_info = CGI_PUTENV("PATH_INFO", env_path_info);
1183        }
1184#endif
1185
1186        if (CGIG(fix_pathinfo)) {
1187            zend_stat_t st;
1188            char *real_path = NULL;
1189            char *env_redirect_url = CGI_GETENV("REDIRECT_URL");
1190            char *env_document_root = CGI_GETENV("DOCUMENT_ROOT");
1191            char *orig_path_translated = env_path_translated;
1192            char *orig_path_info = env_path_info;
1193            char *orig_script_name = env_script_name;
1194            char *orig_script_filename = env_script_filename;
1195            int script_path_translated_len;
1196
1197            if (!env_document_root && PG(doc_root)) {
1198                env_document_root = CGI_PUTENV("DOCUMENT_ROOT", PG(doc_root));
1199                /* fix docroot */
1200                TRANSLATE_SLASHES(env_document_root);
1201            }
1202
1203            if (env_path_translated != NULL && env_redirect_url != NULL &&
1204                env_path_translated != script_path_translated &&
1205                strcmp(env_path_translated, script_path_translated) != 0) {
1206                /*
1207                 * pretty much apache specific.  If we have a redirect_url
1208                 * then our script_filename and script_name point to the
1209                 * php executable
1210                 */
1211                script_path_translated = env_path_translated;
1212                /* we correct SCRIPT_NAME now in case we don't have PATH_INFO */
1213                env_script_name = env_redirect_url;
1214            }
1215
1216#ifdef __riscos__
1217            /* Convert path to unix format*/
1218            __riscosify_control |= __RISCOSIFY_DONT_CHECK_DIR;
1219            script_path_translated = __unixify(script_path_translated, 0, NULL, 1, 0);
1220#endif
1221
1222            /*
1223             * if the file doesn't exist, try to extract PATH_INFO out
1224             * of it by stat'ing back through the '/'
1225             * this fixes url's like /info.php/test
1226             */
1227            if (script_path_translated &&
1228                (script_path_translated_len = strlen(script_path_translated)) > 0 &&
1229                (script_path_translated[script_path_translated_len-1] == '/' ||
1230#ifdef PHP_WIN32
1231                script_path_translated[script_path_translated_len-1] == '\\' ||
1232#endif
1233                (real_path = tsrm_realpath(script_path_translated, NULL TSRMLS_CC)) == NULL)
1234            ) {
1235                char *pt = estrndup(script_path_translated, script_path_translated_len);
1236                int len = script_path_translated_len;
1237                char *ptr;
1238
1239                while ((ptr = strrchr(pt, '/')) || (ptr = strrchr(pt, '\\'))) {
1240                    *ptr = 0;
1241                    if (zend_stat(pt, &st) == 0 && S_ISREG(st.st_mode)) {
1242                        /*
1243                         * okay, we found the base script!
1244                         * work out how many chars we had to strip off;
1245                         * then we can modify PATH_INFO
1246                         * accordingly
1247                         *
1248                         * we now have the makings of
1249                         * PATH_INFO=/test
1250                         * SCRIPT_FILENAME=/docroot/info.php
1251                         *
1252                         * we now need to figure out what docroot is.
1253                         * if DOCUMENT_ROOT is set, this is easy, otherwise,
1254                         * we have to play the game of hide and seek to figure
1255                         * out what SCRIPT_NAME should be
1256                         */
1257                        int slen = len - strlen(pt);
1258                        int pilen = env_path_info ? strlen(env_path_info) : 0;
1259                        char *path_info = env_path_info ? env_path_info + pilen - slen : NULL;
1260
1261                        if (orig_path_info != path_info) {
1262                            if (orig_path_info) {
1263                                char old;
1264
1265                                CGI_PUTENV("ORIG_PATH_INFO", orig_path_info);
1266                                old = path_info[0];
1267                                path_info[0] = 0;
1268                                if (!orig_script_name ||
1269                                    strcmp(orig_script_name, env_path_info) != 0) {
1270                                    if (orig_script_name) {
1271                                        CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
1272                                    }
1273                                    SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_path_info);
1274                                } else {
1275                                    SG(request_info).request_uri = orig_script_name;
1276                                }
1277                                path_info[0] = old;
1278                            }
1279                            env_path_info = CGI_PUTENV("PATH_INFO", path_info);
1280                        }
1281                        if (!orig_script_filename ||
1282                            strcmp(orig_script_filename, pt) != 0) {
1283                            if (orig_script_filename) {
1284                                CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
1285                            }
1286                            script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", pt);
1287                        }
1288                        TRANSLATE_SLASHES(pt);
1289
1290                        /* figure out docroot
1291                         * SCRIPT_FILENAME minus SCRIPT_NAME
1292                         */
1293                        if (env_document_root) {
1294                            int l = strlen(env_document_root);
1295                            int path_translated_len = 0;
1296                            char *path_translated = NULL;
1297
1298                            if (l && env_document_root[l - 1] == '/') {
1299                                --l;
1300                            }
1301
1302                            /* we have docroot, so we should have:
1303                             * DOCUMENT_ROOT=/docroot
1304                             * SCRIPT_FILENAME=/docroot/info.php
1305                             */
1306
1307                            /* PATH_TRANSLATED = DOCUMENT_ROOT + PATH_INFO */
1308                            path_translated_len = l + (env_path_info ? strlen(env_path_info) : 0);
1309                            path_translated = (char *) emalloc(path_translated_len + 1);
1310                            memcpy(path_translated, env_document_root, l);
1311                            if (env_path_info) {
1312                                memcpy(path_translated + l, env_path_info, (path_translated_len - l));
1313                            }
1314                            path_translated[path_translated_len] = '\0';
1315                            if (orig_path_translated) {
1316                                CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
1317                            }
1318                            env_path_translated = CGI_PUTENV("PATH_TRANSLATED", path_translated);
1319                            efree(path_translated);
1320                        } else if ( env_script_name &&
1321                                    strstr(pt, env_script_name)
1322                        ) {
1323                            /* PATH_TRANSLATED = PATH_TRANSLATED - SCRIPT_NAME + PATH_INFO */
1324                            int ptlen = strlen(pt) - strlen(env_script_name);
1325                            int path_translated_len = ptlen + (env_path_info ? strlen(env_path_info) : 0);
1326                            char *path_translated = NULL;
1327
1328                            path_translated = (char *) emalloc(path_translated_len + 1);
1329                            memcpy(path_translated, pt, ptlen);
1330                            if (env_path_info) {
1331                                memcpy(path_translated + ptlen, env_path_info, path_translated_len - ptlen);
1332                            }
1333                            path_translated[path_translated_len] = '\0';
1334                            if (orig_path_translated) {
1335                                CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
1336                            }
1337                            env_path_translated = CGI_PUTENV("PATH_TRANSLATED", path_translated);
1338                            efree(path_translated);
1339                        }
1340                        break;
1341                    }
1342                }
1343                if (!ptr) {
1344                    /*
1345                     * if we stripped out all the '/' and still didn't find
1346                     * a valid path... we will fail, badly. of course we would
1347                     * have failed anyway... we output 'no input file' now.
1348                     */
1349                    if (orig_script_filename) {
1350                        CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
1351                    }
1352                    script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", NULL);
1353                    SG(sapi_headers).http_response_code = 404;
1354                }
1355                if (!SG(request_info).request_uri) {
1356                    if (!orig_script_name ||
1357                        strcmp(orig_script_name, env_script_name) != 0) {
1358                        if (orig_script_name) {
1359                            CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
1360                        }
1361                        SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_script_name);
1362                    } else {
1363                        SG(request_info).request_uri = orig_script_name;
1364                    }
1365                }
1366                if (pt) {
1367                    efree(pt);
1368                }
1369            } else {
1370                /* make sure path_info/translated are empty */
1371                if (!orig_script_filename ||
1372                    (script_path_translated != orig_script_filename &&
1373                    strcmp(script_path_translated, orig_script_filename) != 0)) {
1374                    if (orig_script_filename) {
1375                        CGI_PUTENV("ORIG_SCRIPT_FILENAME", orig_script_filename);
1376                    }
1377                    script_path_translated = CGI_PUTENV("SCRIPT_FILENAME", script_path_translated);
1378                }
1379                if (env_redirect_url) {
1380                    if (orig_path_info) {
1381                        CGI_PUTENV("ORIG_PATH_INFO", orig_path_info);
1382                        CGI_PUTENV("PATH_INFO", NULL);
1383                    }
1384                    if (orig_path_translated) {
1385                        CGI_PUTENV("ORIG_PATH_TRANSLATED", orig_path_translated);
1386                        CGI_PUTENV("PATH_TRANSLATED", NULL);
1387                    }
1388                }
1389                if (env_script_name != orig_script_name) {
1390                    if (orig_script_name) {
1391                        CGI_PUTENV("ORIG_SCRIPT_NAME", orig_script_name);
1392                    }
1393                    SG(request_info).request_uri = CGI_PUTENV("SCRIPT_NAME", env_script_name);
1394                } else {
1395                    SG(request_info).request_uri = env_script_name;
1396                }
1397                efree(real_path);
1398            }
1399        } else {
1400            /* pre 4.3 behaviour, shouldn't be used but provides BC */
1401            if (env_path_info) {
1402                SG(request_info).request_uri = env_path_info;
1403            } else {
1404                SG(request_info).request_uri = env_script_name;
1405            }
1406            if (!CGIG(discard_path) && env_path_translated) {
1407                script_path_translated = env_path_translated;
1408            }
1409        }
1410
1411        if (is_valid_path(script_path_translated)) {
1412            SG(request_info).path_translated = estrdup(script_path_translated);
1413        }
1414
1415        SG(request_info).request_method = CGI_GETENV("REQUEST_METHOD");
1416        /* FIXME - Work out proto_num here */
1417        SG(request_info).query_string = CGI_GETENV("QUERY_STRING");
1418        SG(request_info).content_type = (content_type ? content_type : "" );
1419        SG(request_info).content_length = (content_length ? atol(content_length) : 0);
1420
1421        /* The CGI RFC allows servers to pass on unvalidated Authorization data */
1422        auth = CGI_GETENV("HTTP_AUTHORIZATION");
1423        php_handle_auth_data(auth TSRMLS_CC);
1424    }
1425}
1426/* }}} */
1427
1428#ifndef PHP_WIN32
1429/**
1430 * Clean up child processes upon exit
1431 */
1432void fastcgi_cleanup(int signal)
1433{
1434#ifdef DEBUG_FASTCGI
1435    fprintf(stderr, "FastCGI shutdown, pid %d\n", getpid());
1436#endif
1437
1438    sigaction(SIGTERM, &old_term, 0);
1439
1440    /* Kill all the processes in our process group */
1441    kill(-pgroup, SIGTERM);
1442
1443    if (parent && parent_waiting) {
1444        exit_signal = 1;
1445    } else {
1446        exit(0);
1447    }
1448}
1449#endif
1450
1451PHP_INI_BEGIN()
1452    STD_PHP_INI_ENTRY("cgi.rfc2616_headers",     "0",  PHP_INI_ALL,    OnUpdateBool,   rfc2616_headers, php_cgi_globals_struct, php_cgi_globals)
1453    STD_PHP_INI_ENTRY("cgi.nph",                 "0",  PHP_INI_ALL,    OnUpdateBool,   nph, php_cgi_globals_struct, php_cgi_globals)
1454    STD_PHP_INI_ENTRY("cgi.check_shebang_line",  "1",  PHP_INI_SYSTEM, OnUpdateBool,   check_shebang_line, php_cgi_globals_struct, php_cgi_globals)
1455    STD_PHP_INI_ENTRY("cgi.force_redirect",      "1",  PHP_INI_SYSTEM, OnUpdateBool,   force_redirect, php_cgi_globals_struct, php_cgi_globals)
1456    STD_PHP_INI_ENTRY("cgi.redirect_status_env", NULL, PHP_INI_SYSTEM, OnUpdateString, redirect_status_env, php_cgi_globals_struct, php_cgi_globals)
1457    STD_PHP_INI_ENTRY("cgi.fix_pathinfo",        "1",  PHP_INI_SYSTEM, OnUpdateBool,   fix_pathinfo, php_cgi_globals_struct, php_cgi_globals)
1458    STD_PHP_INI_ENTRY("cgi.discard_path",        "0",  PHP_INI_SYSTEM, OnUpdateBool,   discard_path, php_cgi_globals_struct, php_cgi_globals)
1459    STD_PHP_INI_ENTRY("fastcgi.logging",         "1",  PHP_INI_SYSTEM, OnUpdateBool,   fcgi_logging, php_cgi_globals_struct, php_cgi_globals)
1460#ifdef PHP_WIN32
1461    STD_PHP_INI_ENTRY("fastcgi.impersonate",     "0",  PHP_INI_SYSTEM, OnUpdateBool,   impersonate, php_cgi_globals_struct, php_cgi_globals)
1462#endif
1463PHP_INI_END()
1464
1465/* {{{ php_cgi_globals_ctor
1466 */
1467static void php_cgi_globals_ctor(php_cgi_globals_struct *php_cgi_globals TSRMLS_DC)
1468{
1469    php_cgi_globals->rfc2616_headers = 0;
1470    php_cgi_globals->nph = 0;
1471    php_cgi_globals->check_shebang_line = 1;
1472    php_cgi_globals->force_redirect = 1;
1473    php_cgi_globals->redirect_status_env = NULL;
1474    php_cgi_globals->fix_pathinfo = 1;
1475    php_cgi_globals->discard_path = 0;
1476    php_cgi_globals->fcgi_logging = 1;
1477#ifdef PHP_WIN32
1478    php_cgi_globals->impersonate = 0;
1479#endif
1480    zend_hash_init(&php_cgi_globals->user_config_cache, 8, NULL, user_config_cache_entry_dtor, 1);
1481}
1482/* }}} */
1483
1484/* {{{ PHP_MINIT_FUNCTION
1485 */
1486static PHP_MINIT_FUNCTION(cgi)
1487{
1488#ifdef ZTS
1489    ts_allocate_id(&php_cgi_globals_id, sizeof(php_cgi_globals_struct), (ts_allocate_ctor) php_cgi_globals_ctor, NULL);
1490#else
1491    php_cgi_globals_ctor(&php_cgi_globals TSRMLS_CC);
1492#endif
1493    REGISTER_INI_ENTRIES();
1494    return SUCCESS;
1495}
1496/* }}} */
1497
1498/* {{{ PHP_MSHUTDOWN_FUNCTION
1499 */
1500static PHP_MSHUTDOWN_FUNCTION(cgi)
1501{
1502    zend_hash_destroy(&CGIG(user_config_cache));
1503
1504    UNREGISTER_INI_ENTRIES();
1505    return SUCCESS;
1506}
1507/* }}} */
1508
1509/* {{{ PHP_MINFO_FUNCTION
1510 */
1511static PHP_MINFO_FUNCTION(cgi)
1512{
1513    DISPLAY_INI_ENTRIES();
1514}
1515/* }}} */
1516
1517PHP_FUNCTION(apache_child_terminate) /* {{{ */
1518{
1519    if (ZEND_NUM_ARGS() > 0) {
1520        WRONG_PARAM_COUNT;
1521    }
1522    if (fcgi_is_fastcgi()) {
1523        fcgi_terminate();
1524    }
1525}
1526/* }}} */
1527
1528static void add_request_header(char *var, unsigned int var_len, char *val, unsigned int val_len, void *arg TSRMLS_DC) /* {{{ */
1529{
1530    zval *return_value = (zval*)arg;
1531    char *str = NULL;
1532    char *p;
1533    ALLOCA_FLAG(use_heap)
1534
1535    if (var_len > 5 &&
1536        var[0] == 'H' &&
1537        var[1] == 'T' &&
1538        var[2] == 'T' &&
1539        var[3] == 'P' &&
1540        var[4] == '_') {
1541
1542        var_len -= 5;
1543        p = var + 5;
1544        var = str = do_alloca(var_len + 1, use_heap);
1545        *str++ = *p++;
1546        while (*p) {
1547            if (*p == '_') {
1548                *str++ = '-';
1549                p++;
1550                if (*p) {
1551                    *str++ = *p++;
1552                }
1553            } else if (*p >= 'A' && *p <= 'Z') {
1554                *str++ = (*p++ - 'A' + 'a');
1555            } else {
1556                *str++ = *p++;
1557            }
1558        }
1559        *str = 0;
1560    } else if (var_len == sizeof("CONTENT_TYPE")-1 &&
1561               memcmp(var, "CONTENT_TYPE", sizeof("CONTENT_TYPE")-1) == 0) {
1562        var = "Content-Type";
1563    } else if (var_len == sizeof("CONTENT_LENGTH")-1 &&
1564               memcmp(var, "CONTENT_LENGTH", sizeof("CONTENT_LENGTH")-1) == 0) {
1565        var = "Content-Length";
1566    } else {
1567        return;
1568    }
1569    add_assoc_stringl_ex(return_value, var, var_len+1, val, val_len);
1570    if (str) {
1571        free_alloca(var, use_heap);
1572    }
1573}
1574/* }}} */
1575
1576PHP_FUNCTION(apache_request_headers) /* {{{ */
1577{
1578    if (ZEND_NUM_ARGS() > 0) {
1579        WRONG_PARAM_COUNT;
1580    }
1581    array_init(return_value);
1582    if (fcgi_is_fastcgi()) {
1583        fcgi_request *request = (fcgi_request*) SG(server_context);
1584
1585        fcgi_loadenv(request, add_request_header, return_value TSRMLS_CC);
1586    } else {
1587        char buf[128];
1588        char **env, *p, *q, *var, *val, *t = buf;
1589        size_t alloc_size = sizeof(buf);
1590        zend_ulong var_len;
1591
1592        for (env = environ; env != NULL && *env != NULL; env++) {
1593            val = strchr(*env, '=');
1594            if (!val) {             /* malformed entry? */
1595                continue;
1596            }
1597            var_len = val - *env;
1598            if (var_len >= alloc_size) {
1599                alloc_size = var_len + 64;
1600                t = (t == buf ? emalloc(alloc_size): erealloc(t, alloc_size));
1601            }
1602            var = *env;
1603            if (var_len > 5 &&
1604                var[0] == 'H' &&
1605                var[1] == 'T' &&
1606                var[2] == 'T' &&
1607                var[3] == 'P' &&
1608                var[4] == '_') {
1609
1610                var_len -= 5;
1611
1612                if (var_len >= alloc_size) {
1613                    alloc_size = var_len + 64;
1614                    t = (t == buf ? emalloc(alloc_size): erealloc(t, alloc_size));
1615                }
1616                p = var + 5;
1617
1618                var = q = t;
1619                /* First char keep uppercase */
1620                *q++ = *p++;
1621                while (*p) {
1622                    if (*p == '=') {
1623                        /* End of name */
1624                        break;
1625                    } else if (*p == '_') {
1626                        *q++ = '-';
1627                        p++;
1628                        /* First char after - keep uppercase */
1629                        if (*p && *p!='=') {
1630                            *q++ = *p++;
1631                        }
1632                    } else if (*p >= 'A' && *p <= 'Z') {
1633                        /* lowercase */
1634                        *q++ = (*p++ - 'A' + 'a');
1635                    } else {
1636                        *q++ = *p++;
1637                    }
1638                }
1639                *q = 0;
1640            } else if (var_len == sizeof("CONTENT_TYPE")-1 &&
1641                       memcmp(var, "CONTENT_TYPE", sizeof("CONTENT_TYPE")-1) == 0) {
1642                var = "Content-Type";
1643            } else if (var_len == sizeof("CONTENT_LENGTH")-1 &&
1644                       memcmp(var, "CONTENT_LENGTH", sizeof("CONTENT_LENGTH")-1) == 0) {
1645                var = "Content-Length";
1646            } else {
1647                continue;
1648            }
1649            val++;
1650            add_assoc_string_ex(return_value, var, var_len, val);
1651        }
1652        if (t != buf && t != NULL) {
1653            efree(t);
1654        }
1655    }
1656}
1657/* }}} */
1658
1659static void add_response_header(sapi_header_struct *h, zval *return_value TSRMLS_DC) /* {{{ */
1660{
1661    char *s, *p;
1662    int  len;
1663    ALLOCA_FLAG(use_heap)
1664
1665    if (h->header_len > 0) {
1666        p = strchr(h->header, ':');
1667        len = p - h->header;
1668        if (p && (len > 0)) {
1669            while (len > 0 && (h->header[len-1] == ' ' || h->header[len-1] == '\t')) {
1670                len--;
1671            }
1672            if (len) {
1673                s = do_alloca(len + 1, use_heap);
1674                memcpy(s, h->header, len);
1675                s[len] = 0;
1676                do {
1677                    p++;
1678                } while (*p == ' ' || *p == '\t');
1679                add_assoc_stringl_ex(return_value, s, len, p, h->header_len - (p - h->header));
1680                free_alloca(s, use_heap);
1681            }
1682        }
1683    }
1684}
1685/* }}} */
1686
1687PHP_FUNCTION(apache_response_headers) /* {{{ */
1688{
1689    if (zend_parse_parameters_none() == FAILURE) {
1690        return;
1691    }
1692
1693    if (!&SG(sapi_headers).headers) {
1694        RETURN_FALSE;
1695    }
1696    array_init(return_value);
1697    zend_llist_apply_with_argument(&SG(sapi_headers).headers, (llist_apply_with_arg_func_t)add_response_header, return_value TSRMLS_CC);
1698}
1699/* }}} */
1700
1701ZEND_BEGIN_ARG_INFO(arginfo_no_args, 0)
1702ZEND_END_ARG_INFO()
1703
1704const zend_function_entry cgi_functions[] = {
1705    PHP_FE(apache_child_terminate, arginfo_no_args)
1706    PHP_FE(apache_request_headers, arginfo_no_args)
1707    PHP_FE(apache_response_headers, arginfo_no_args)
1708    PHP_FALIAS(getallheaders, apache_request_headers, arginfo_no_args)
1709    {NULL, NULL, NULL}
1710};
1711
1712static zend_module_entry cgi_module_entry = {
1713    STANDARD_MODULE_HEADER,
1714    "cgi-fcgi",
1715    cgi_functions,
1716    PHP_MINIT(cgi),
1717    PHP_MSHUTDOWN(cgi),
1718    NULL,
1719    NULL,
1720    PHP_MINFO(cgi),
1721    NO_VERSION_YET,
1722    STANDARD_MODULE_PROPERTIES
1723};
1724
1725/* {{{ main
1726 */
1727int main(int argc, char *argv[])
1728{
1729    int free_query_string = 0;
1730    int exit_status = SUCCESS;
1731    int cgi = 0, c, i, len;
1732    zend_file_handle file_handle;
1733    char *s;
1734
1735    /* temporary locals */
1736    int behavior = PHP_MODE_STANDARD;
1737    int no_headers = 0;
1738    int orig_optind = php_optind;
1739    char *orig_optarg = php_optarg;
1740    char *script_file = NULL;
1741    int ini_entries_len = 0;
1742    /* end of temporary locals */
1743
1744#ifdef ZTS
1745    void ***tsrm_ls;
1746#endif
1747
1748    int max_requests = 500;
1749    int requests = 0;
1750    int fastcgi;
1751    char *bindpath = NULL;
1752    int fcgi_fd = 0;
1753    fcgi_request *request = NULL;
1754    int warmup_repeats = 0;
1755    int repeats = 1;
1756    int benchmark = 0;
1757#if HAVE_GETTIMEOFDAY
1758    struct timeval start, end;
1759#else
1760    time_t start, end;
1761#endif
1762#ifndef PHP_WIN32
1763    int status = 0;
1764#endif
1765    char *query_string;
1766    char *decoded_query_string;
1767    int skip_getopt = 0;
1768
1769#if 0 && defined(PHP_DEBUG)
1770    /* IIS is always making things more difficult.  This allows
1771     * us to stop PHP and attach a debugger before much gets started */
1772    {
1773        char szMessage [256];
1774        wsprintf (szMessage, "Please attach a debugger to the process 0x%X [%d] (%s) and click OK", GetCurrentProcessId(), GetCurrentProcessId(), argv[0]);
1775        MessageBox(NULL, szMessage, "CGI Debug Time!", MB_OK|MB_SERVICE_NOTIFICATION);
1776    }
1777#endif
1778
1779#ifdef HAVE_SIGNAL_H
1780#if defined(SIGPIPE) && defined(SIG_IGN)
1781    signal(SIGPIPE, SIG_IGN); /* ignore SIGPIPE in standalone mode so
1782                                that sockets created via fsockopen()
1783                                don't kill PHP if the remote site
1784                                closes it.  in apache|apxs mode apache
1785                                does that for us!  thies@thieso.net
1786                                20000419 */
1787#endif
1788#endif
1789
1790#ifdef ZTS
1791    tsrm_startup(1, 1, 0, NULL);
1792    tsrm_ls = ts_resource(0);
1793#endif
1794
1795    sapi_startup(&cgi_sapi_module);
1796    fastcgi = fcgi_is_fastcgi();
1797    cgi_sapi_module.php_ini_path_override = NULL;
1798
1799#ifdef PHP_WIN32
1800    _fmode = _O_BINARY; /* sets default for file streams to binary */
1801    setmode(_fileno(stdin),  O_BINARY); /* make the stdio mode be binary */
1802    setmode(_fileno(stdout), O_BINARY); /* make the stdio mode be binary */
1803    setmode(_fileno(stderr), O_BINARY); /* make the stdio mode be binary */
1804#endif
1805
1806    if (!fastcgi) {
1807        /* Make sure we detect we are a cgi - a bit redundancy here,
1808         * but the default case is that we have to check only the first one. */
1809        if (getenv("SERVER_SOFTWARE") ||
1810            getenv("SERVER_NAME") ||
1811            getenv("GATEWAY_INTERFACE") ||
1812            getenv("REQUEST_METHOD")
1813        ) {
1814            cgi = 1;
1815        }
1816    }
1817
1818    if((query_string = getenv("QUERY_STRING")) != NULL && strchr(query_string, '=') == NULL) {
1819        /* we've got query string that has no = - apache CGI will pass it to command line */
1820        unsigned char *p;
1821        decoded_query_string = strdup(query_string);
1822        php_url_decode(decoded_query_string, strlen(decoded_query_string));
1823        for (p = (unsigned char *)decoded_query_string; *p &&  *p <= ' '; p++) {
1824            /* skip all leading spaces */
1825        }
1826        if(*p == '-') {
1827            skip_getopt = 1;
1828        }
1829        free(decoded_query_string);
1830    }
1831
1832    while (!skip_getopt && (c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 0, 2)) != -1) {
1833        switch (c) {
1834            case 'c':
1835                if (cgi_sapi_module.php_ini_path_override) {
1836                    free(cgi_sapi_module.php_ini_path_override);
1837                }
1838                cgi_sapi_module.php_ini_path_override = strdup(php_optarg);
1839                break;
1840            case 'n':
1841                cgi_sapi_module.php_ini_ignore = 1;
1842                break;
1843            case 'd': {
1844                /* define ini entries on command line */
1845                int len = strlen(php_optarg);
1846                char *val;
1847
1848                if ((val = strchr(php_optarg, '='))) {
1849                    val++;
1850                    if (!isalnum(*val) && *val != '"' && *val != '\'' && *val != '\0') {
1851                        cgi_sapi_module.ini_entries = realloc(cgi_sapi_module.ini_entries, ini_entries_len + len + sizeof("\"\"\n\0"));
1852                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len, php_optarg, (val - php_optarg));
1853                        ini_entries_len += (val - php_optarg);
1854                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len, "\"", 1);
1855                        ini_entries_len++;
1856                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len, val, len - (val - php_optarg));
1857                        ini_entries_len += len - (val - php_optarg);
1858                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len, "\"\n\0", sizeof("\"\n\0"));
1859                        ini_entries_len += sizeof("\n\0\"") - 2;
1860                    } else {
1861                        cgi_sapi_module.ini_entries = realloc(cgi_sapi_module.ini_entries, ini_entries_len + len + sizeof("\n\0"));
1862                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len, php_optarg, len);
1863                        memcpy(cgi_sapi_module.ini_entries + ini_entries_len + len, "\n\0", sizeof("\n\0"));
1864                        ini_entries_len += len + sizeof("\n\0") - 2;
1865                    }
1866                } else {
1867                    cgi_sapi_module.ini_entries = realloc(cgi_sapi_module.ini_entries, ini_entries_len + len + sizeof("=1\n\0"));
1868                    memcpy(cgi_sapi_module.ini_entries + ini_entries_len, php_optarg, len);
1869                    memcpy(cgi_sapi_module.ini_entries + ini_entries_len + len, "=1\n\0", sizeof("=1\n\0"));
1870                    ini_entries_len += len + sizeof("=1\n\0") - 2;
1871                }
1872                break;
1873            }
1874            /* if we're started on command line, check to see if
1875             * we are being started as an 'external' fastcgi
1876             * server by accepting a bindpath parameter. */
1877            case 'b':
1878                if (!fastcgi) {
1879                    bindpath = strdup(php_optarg);
1880                }
1881                break;
1882            case 's': /* generate highlighted HTML from source */
1883                behavior = PHP_MODE_HIGHLIGHT;
1884                break;
1885        }
1886    }
1887    php_optind = orig_optind;
1888    php_optarg = orig_optarg;
1889
1890    if (fastcgi || bindpath) {
1891        /* Override SAPI callbacks */
1892        cgi_sapi_module.ub_write     = sapi_fcgi_ub_write;
1893        cgi_sapi_module.flush        = sapi_fcgi_flush;
1894        cgi_sapi_module.read_post    = sapi_fcgi_read_post;
1895        cgi_sapi_module.getenv       = sapi_fcgi_getenv;
1896        cgi_sapi_module.read_cookies = sapi_fcgi_read_cookies;
1897    }
1898
1899#ifdef ZTS
1900    SG(request_info).path_translated = NULL;
1901#endif
1902
1903    cgi_sapi_module.executable_location = argv[0];
1904    if (!cgi && !fastcgi && !bindpath) {
1905        cgi_sapi_module.additional_functions = additional_functions;
1906    }
1907
1908    /* startup after we get the above ini override se we get things right */
1909    if (cgi_sapi_module.startup(&cgi_sapi_module) == FAILURE) {
1910#ifdef ZTS
1911        tsrm_shutdown();
1912#endif
1913        return FAILURE;
1914    }
1915
1916    /* check force_cgi after startup, so we have proper output */
1917    if (cgi && CGIG(force_redirect)) {
1918        /* Apache will generate REDIRECT_STATUS,
1919         * Netscape and redirect.so will generate HTTP_REDIRECT_STATUS.
1920         * redirect.so and installation instructions available from
1921         * http://www.koehntopp.de/php.
1922         *   -- kk@netuse.de
1923         */
1924        if (!getenv("REDIRECT_STATUS") &&
1925            !getenv ("HTTP_REDIRECT_STATUS") &&
1926            /* this is to allow a different env var to be configured
1927             * in case some server does something different than above */
1928            (!CGIG(redirect_status_env) || !getenv(CGIG(redirect_status_env)))
1929        ) {
1930            zend_try {
1931                SG(sapi_headers).http_response_code = 400;
1932                PUTS("<b>Security Alert!</b> The PHP CGI cannot be accessed directly.\n\n\
1933<p>This PHP CGI binary was compiled with force-cgi-redirect enabled.  This\n\
1934means that a page will only be served up if the REDIRECT_STATUS CGI variable is\n\
1935set, e.g. via an Apache Action directive.</p>\n\
1936<p>For more information as to <i>why</i> this behaviour exists, see the <a href=\"http://php.net/security.cgi-bin\">\
1937manual page for CGI security</a>.</p>\n\
1938<p>For more information about changing this behaviour or re-enabling this webserver,\n\
1939consult the installation file that came with this distribution, or visit \n\
1940<a href=\"http://php.net/install.windows\">the manual page</a>.</p>\n");
1941            } zend_catch {
1942            } zend_end_try();
1943#if defined(ZTS) && !defined(PHP_DEBUG)
1944            /* XXX we're crashing here in msvc6 debug builds at
1945             * php_message_handler_for_zend:839 because
1946             * SG(request_info).path_translated is an invalid pointer.
1947             * It still happens even though I set it to null, so something
1948             * weird is going on.
1949             */
1950            tsrm_shutdown();
1951#endif
1952            return FAILURE;
1953        }
1954    }
1955
1956    if (bindpath) {
1957        int backlog = 128;
1958        if (getenv("PHP_FCGI_BACKLOG")) {
1959            backlog = atoi(getenv("PHP_FCGI_BACKLOG"));
1960        }
1961        fcgi_fd = fcgi_listen(bindpath, backlog);
1962        if (fcgi_fd < 0) {
1963            fprintf(stderr, "Couldn't create FastCGI listen socket on port %s\n", bindpath);
1964#ifdef ZTS
1965            tsrm_shutdown();
1966#endif
1967            return FAILURE;
1968        }
1969        fastcgi = fcgi_is_fastcgi();
1970    }
1971    if (fastcgi) {
1972        /* How many times to run PHP scripts before dying */
1973        if (getenv("PHP_FCGI_MAX_REQUESTS")) {
1974            max_requests = atoi(getenv("PHP_FCGI_MAX_REQUESTS"));
1975            if (max_requests < 0) {
1976                fprintf(stderr, "PHP_FCGI_MAX_REQUESTS is not valid\n");
1977                return FAILURE;
1978            }
1979        }
1980
1981        /* make php call us to get _ENV vars */
1982        php_php_import_environment_variables = php_import_environment_variables;
1983        php_import_environment_variables = cgi_php_import_environment_variables;
1984
1985        /* library is already initialized, now init our request */
1986        request = fcgi_init_request(fcgi_fd);
1987
1988#ifndef PHP_WIN32
1989    /* Pre-fork, if required */
1990    if (getenv("PHP_FCGI_CHILDREN")) {
1991        char * children_str = getenv("PHP_FCGI_CHILDREN");
1992        children = atoi(children_str);
1993        if (children < 0) {
1994            fprintf(stderr, "PHP_FCGI_CHILDREN is not valid\n");
1995            return FAILURE;
1996        }
1997        fcgi_set_mgmt_var("FCGI_MAX_CONNS", sizeof("FCGI_MAX_CONNS")-1, children_str, strlen(children_str));
1998        /* This is the number of concurrent requests, equals FCGI_MAX_CONNS */
1999        fcgi_set_mgmt_var("FCGI_MAX_REQS",  sizeof("FCGI_MAX_REQS")-1,  children_str, strlen(children_str));
2000    } else {
2001        fcgi_set_mgmt_var("FCGI_MAX_CONNS", sizeof("FCGI_MAX_CONNS")-1, "1", sizeof("1")-1);
2002        fcgi_set_mgmt_var("FCGI_MAX_REQS",  sizeof("FCGI_MAX_REQS")-1,  "1", sizeof("1")-1);
2003    }
2004
2005    if (children) {
2006        int running = 0;
2007        pid_t pid;
2008
2009        /* Create a process group for ourself & children */
2010        setsid();
2011        pgroup = getpgrp();
2012#ifdef DEBUG_FASTCGI
2013        fprintf(stderr, "Process group %d\n", pgroup);
2014#endif
2015
2016        /* Set up handler to kill children upon exit */
2017        act.sa_flags = 0;
2018        act.sa_handler = fastcgi_cleanup;
2019        if (sigaction(SIGTERM, &act, &old_term) ||
2020            sigaction(SIGINT,  &act, &old_int)  ||
2021            sigaction(SIGQUIT, &act, &old_quit)
2022        ) {
2023            perror("Can't set signals");
2024            exit(1);
2025        }
2026
2027        if (fcgi_in_shutdown()) {
2028            goto parent_out;
2029        }
2030
2031        while (parent) {
2032            do {
2033#ifdef DEBUG_FASTCGI
2034                fprintf(stderr, "Forking, %d running\n", running);
2035#endif
2036                pid = fork();
2037                switch (pid) {
2038                case 0:
2039                    /* One of the children.
2040                     * Make sure we don't go round the
2041                     * fork loop any more
2042                     */
2043                    parent = 0;
2044
2045                    /* don't catch our signals */
2046                    sigaction(SIGTERM, &old_term, 0);
2047                    sigaction(SIGQUIT, &old_quit, 0);
2048                    sigaction(SIGINT,  &old_int,  0);
2049                    break;
2050                case -1:
2051                    perror("php (pre-forking)");
2052                    exit(1);
2053                    break;
2054                default:
2055                    /* Fine */
2056                    running++;
2057                    break;
2058                }
2059            } while (parent && (running < children));
2060
2061            if (parent) {
2062#ifdef DEBUG_FASTCGI
2063                fprintf(stderr, "Wait for kids, pid %d\n", getpid());
2064#endif
2065                parent_waiting = 1;
2066                while (1) {
2067                    if (wait(&status) >= 0) {
2068                        running--;
2069                        break;
2070                    } else if (exit_signal) {
2071                        break;
2072                    }
2073                }
2074                if (exit_signal) {
2075#if 0
2076                    while (running > 0) {
2077                        while (wait(&status) < 0) {
2078                        }
2079                        running--;
2080                    }
2081#endif
2082                    goto parent_out;
2083                }
2084            }
2085        }
2086    } else {
2087        parent = 0;
2088    }
2089
2090#endif /* WIN32 */
2091    }
2092
2093    zend_first_try {
2094        while (!skip_getopt && (c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 1, 2)) != -1) {
2095            switch (c) {
2096                case 'T':
2097                    benchmark = 1;
2098                    {
2099                        char *comma = strchr(php_optarg, ',');
2100                        if (comma) {
2101                            warmup_repeats = atoi(php_optarg);
2102                            repeats = atoi(comma + 1);
2103                        } else {
2104                            repeats = atoi(php_optarg);
2105                        }
2106                    }
2107#ifdef HAVE_GETTIMEOFDAY
2108                    gettimeofday(&start, NULL);
2109#else
2110                    time(&start);
2111#endif
2112                    break;
2113                case 'h':
2114                case '?':
2115                    if (request) {
2116                        fcgi_destroy_request(request);
2117                    }
2118                    fcgi_shutdown();
2119                    no_headers = 1;
2120                    SG(headers_sent) = 1;
2121                    php_cgi_usage(argv[0]);
2122                    php_output_end_all(TSRMLS_C);
2123                    exit_status = 0;
2124                    goto out;
2125            }
2126        }
2127        php_optind = orig_optind;
2128        php_optarg = orig_optarg;
2129
2130        /* start of FAST CGI loop */
2131        /* Initialise FastCGI request structure */
2132#ifdef PHP_WIN32
2133        /* attempt to set security impersonation for fastcgi
2134         * will only happen on NT based OS, others will ignore it. */
2135        if (fastcgi && CGIG(impersonate)) {
2136            fcgi_impersonate();
2137        }
2138#endif
2139        while (!fastcgi || fcgi_accept_request(request) >= 0) {
2140            SG(server_context) = fastcgi ? (void *) request : (void *) 1;
2141            init_request_info(request TSRMLS_CC);
2142
2143            if (!cgi && !fastcgi) {
2144                while ((c = php_getopt(argc, argv, OPTIONS, &php_optarg, &php_optind, 0, 2)) != -1) {
2145                    switch (c) {
2146
2147                        case 'a':   /* interactive mode */
2148                            printf("Interactive mode enabled\n\n");
2149                            break;
2150
2151                        case 'C': /* don't chdir to the script directory */
2152                            SG(options) |= SAPI_OPTION_NO_CHDIR;
2153                            break;
2154
2155                        case 'e': /* enable extended info output */
2156                            CG(compiler_options) |= ZEND_COMPILE_EXTENDED_INFO;
2157                            break;
2158
2159                        case 'f': /* parse file */
2160                            if (script_file) {
2161                                efree(script_file);
2162                            }
2163                            script_file = estrdup(php_optarg);
2164                            no_headers = 1;
2165                            break;
2166
2167                        case 'i': /* php info & quit */
2168                            if (script_file) {
2169                                efree(script_file);
2170                            }
2171                            if (php_request_startup(TSRMLS_C) == FAILURE) {
2172                                SG(server_context) = NULL;
2173                                php_module_shutdown(TSRMLS_C);
2174                                return FAILURE;
2175                            }
2176                            if (no_headers) {
2177                                SG(headers_sent) = 1;
2178                                SG(request_info).no_headers = 1;
2179                            }
2180                            php_print_info(0xFFFFFFFF TSRMLS_CC);
2181                            php_request_shutdown((void *) 0);
2182                            fcgi_shutdown();
2183                            exit_status = 0;
2184                            goto out;
2185
2186                        case 'l': /* syntax check mode */
2187                            no_headers = 1;
2188                            behavior = PHP_MODE_LINT;
2189                            break;
2190
2191                        case 'm': /* list compiled in modules */
2192                            if (script_file) {
2193                                efree(script_file);
2194                            }
2195                            SG(headers_sent) = 1;
2196                            php_printf("[PHP Modules]\n");
2197                            print_modules(TSRMLS_C);
2198                            php_printf("\n[Zend Modules]\n");
2199                            print_extensions(TSRMLS_C);
2200                            php_printf("\n");
2201                            php_output_end_all(TSRMLS_C);
2202                            fcgi_shutdown();
2203                            exit_status = 0;
2204                            goto out;
2205
2206#if 0 /* not yet operational, see also below ... */
2207                        case '': /* generate indented source mode*/
2208                            behavior=PHP_MODE_INDENT;
2209                            break;
2210#endif
2211
2212                        case 'q': /* do not generate HTTP headers */
2213                            no_headers = 1;
2214                            break;
2215
2216                        case 'v': /* show php version & quit */
2217                            if (script_file) {
2218                                efree(script_file);
2219                            }
2220                            no_headers = 1;
2221                            if (php_request_startup(TSRMLS_C) == FAILURE) {
2222                                SG(server_context) = NULL;
2223                                php_module_shutdown(TSRMLS_C);
2224                                return FAILURE;
2225                            }
2226                            if (no_headers) {
2227                                SG(headers_sent) = 1;
2228                                SG(request_info).no_headers = 1;
2229                            }
2230#if ZEND_DEBUG
2231                            php_printf("PHP %s (%s) (built: %s %s) (DEBUG)\nCopyright (c) 1997-2014 The PHP Group\n%s", PHP_VERSION, sapi_module.name, __DATE__, __TIME__, get_zend_version());
2232#else
2233                            php_printf("PHP %s (%s) (built: %s %s)\nCopyright (c) 1997-2014 The PHP Group\n%s", PHP_VERSION, sapi_module.name, __DATE__, __TIME__, get_zend_version());
2234#endif
2235                            php_request_shutdown((void *) 0);
2236                            fcgi_shutdown();
2237                            exit_status = 0;
2238                            goto out;
2239
2240                        case 'w':
2241                            behavior = PHP_MODE_STRIP;
2242                            break;
2243
2244                        case 'z': /* load extension file */
2245                            zend_load_extension(php_optarg TSRMLS_CC);
2246                            break;
2247
2248                        default:
2249                            break;
2250                    }
2251                }
2252
2253                if (script_file) {
2254                    /* override path_translated if -f on command line */
2255                    if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
2256                    SG(request_info).path_translated = script_file;
2257                    /* before registering argv to module exchange the *new* argv[0] */
2258                    /* we can achieve this without allocating more memory */
2259                    SG(request_info).argc = argc - (php_optind - 1);
2260                    SG(request_info).argv = &argv[php_optind - 1];
2261                    SG(request_info).argv[0] = script_file;
2262                } else if (argc > php_optind) {
2263                    /* file is on command line, but not in -f opt */
2264                    if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
2265                    SG(request_info).path_translated = estrdup(argv[php_optind]);
2266                    /* arguments after the file are considered script args */
2267                    SG(request_info).argc = argc - php_optind;
2268                    SG(request_info).argv = &argv[php_optind];
2269                }
2270
2271                if (no_headers) {
2272                    SG(headers_sent) = 1;
2273                    SG(request_info).no_headers = 1;
2274                }
2275
2276                /* all remaining arguments are part of the query string
2277                 * this section of code concatenates all remaining arguments
2278                 * into a single string, seperating args with a &
2279                 * this allows command lines like:
2280                 *
2281                 *  test.php v1=test v2=hello+world!
2282                 *  test.php "v1=test&v2=hello world!"
2283                 *  test.php v1=test "v2=hello world!"
2284                */
2285                if (!SG(request_info).query_string && argc > php_optind) {
2286                    int slen = strlen(PG(arg_separator).input);
2287                    len = 0;
2288                    for (i = php_optind; i < argc; i++) {
2289                        if (i < (argc - 1)) {
2290                            len += strlen(argv[i]) + slen;
2291                        } else {
2292                            len += strlen(argv[i]);
2293                        }
2294                    }
2295
2296                    len += 2;
2297                    s = malloc(len);
2298                    *s = '\0';          /* we are pretending it came from the environment  */
2299                    for (i = php_optind; i < argc; i++) {
2300                        strlcat(s, argv[i], len);
2301                        if (i < (argc - 1)) {
2302                            strlcat(s, PG(arg_separator).input, len);
2303                        }
2304                    }
2305                    SG(request_info).query_string = s;
2306                    free_query_string = 1;
2307                }
2308            } /* end !cgi && !fastcgi */
2309
2310            /*
2311                we never take stdin if we're (f)cgi, always
2312                rely on the web server giving us the info
2313                we need in the environment.
2314            */
2315            if (SG(request_info).path_translated || cgi || fastcgi) {
2316                file_handle.type = ZEND_HANDLE_FILENAME;
2317                file_handle.filename = SG(request_info).path_translated;
2318                file_handle.handle.fp = NULL;
2319            } else {
2320                file_handle.filename = "-";
2321                file_handle.type = ZEND_HANDLE_FP;
2322                file_handle.handle.fp = stdin;
2323            }
2324
2325            file_handle.opened_path = NULL;
2326            file_handle.free_filename = 0;
2327
2328            /* request startup only after we've done all we can to
2329             * get path_translated */
2330            if (php_request_startup(TSRMLS_C) == FAILURE) {
2331                if (fastcgi) {
2332                    fcgi_finish_request(request, 1);
2333                }
2334                SG(server_context) = NULL;
2335                php_module_shutdown(TSRMLS_C);
2336                return FAILURE;
2337            }
2338            if (no_headers) {
2339                SG(headers_sent) = 1;
2340                SG(request_info).no_headers = 1;
2341            }
2342
2343            /*
2344                at this point path_translated will be set if:
2345                1. we are running from shell and got filename was there
2346                2. we are running as cgi or fastcgi
2347            */
2348            if (cgi || fastcgi || SG(request_info).path_translated) {
2349                if (php_fopen_primary_script(&file_handle TSRMLS_CC) == FAILURE) {
2350                    zend_try {
2351                        if (errno == EACCES) {
2352                            SG(sapi_headers).http_response_code = 403;
2353                            PUTS("Access denied.\n");
2354                        } else {
2355                            SG(sapi_headers).http_response_code = 404;
2356                            PUTS("No input file specified.\n");
2357                        }
2358                    } zend_catch {
2359                    } zend_end_try();
2360                    /* we want to serve more requests if this is fastcgi
2361                     * so cleanup and continue, request shutdown is
2362                     * handled later */
2363                    if (fastcgi) {
2364                        goto fastcgi_request_done;
2365                    }
2366
2367                    if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
2368
2369                    if (free_query_string && SG(request_info).query_string) {
2370                        free(SG(request_info).query_string);
2371                        SG(request_info).query_string = NULL;
2372                    }
2373
2374                    php_request_shutdown((void *) 0);
2375                    SG(server_context) = NULL;
2376                    php_module_shutdown(TSRMLS_C);
2377                    sapi_shutdown();
2378#ifdef ZTS
2379                    tsrm_shutdown();
2380#endif
2381                    return FAILURE;
2382                }
2383            }
2384
2385            if (CGIG(check_shebang_line)) {
2386                /* #!php support */
2387                switch (file_handle.type) {
2388                    case ZEND_HANDLE_FD:
2389                        if (file_handle.handle.fd < 0) {
2390                            break;
2391                        }
2392                        file_handle.type = ZEND_HANDLE_FP;
2393                        file_handle.handle.fp = fdopen(file_handle.handle.fd, "rb");
2394                        /* break missing intentionally */
2395                    case ZEND_HANDLE_FP:
2396                        if (!file_handle.handle.fp ||
2397                            (file_handle.handle.fp == stdin)) {
2398                            break;
2399                        }
2400                        c = fgetc(file_handle.handle.fp);
2401                        if (c == '#') {
2402                            while (c != '\n' && c != '\r' && c != EOF) {
2403                                c = fgetc(file_handle.handle.fp);   /* skip to end of line */
2404                            }
2405                            /* handle situations where line is terminated by \r\n */
2406                            if (c == '\r') {
2407                                if (fgetc(file_handle.handle.fp) != '\n') {
2408                                    zend_long pos = zend_ftell(file_handle.handle.fp);
2409                                    zend_fseek(file_handle.handle.fp, pos - 1, SEEK_SET);
2410                                }
2411                            }
2412                            CG(start_lineno) = 2;
2413                        } else {
2414                            rewind(file_handle.handle.fp);
2415                        }
2416                        break;
2417                    case ZEND_HANDLE_STREAM:
2418                        c = php_stream_getc((php_stream*)file_handle.handle.stream.handle);
2419                        if (c == '#') {
2420                            while (c != '\n' && c != '\r' && c != EOF) {
2421                                c = php_stream_getc((php_stream*)file_handle.handle.stream.handle); /* skip to end of line */
2422                            }
2423                            /* handle situations where line is terminated by \r\n */
2424                            if (c == '\r') {
2425                                if (php_stream_getc((php_stream*)file_handle.handle.stream.handle) != '\n') {
2426                                    zend_off_t pos = php_stream_tell((php_stream*)file_handle.handle.stream.handle);
2427                                    php_stream_seek((php_stream*)file_handle.handle.stream.handle, pos - 1, SEEK_SET);
2428                                }
2429                            }
2430                            CG(start_lineno) = 2;
2431                        } else {
2432                            php_stream_rewind((php_stream*)file_handle.handle.stream.handle);
2433                        }
2434                        break;
2435                    case ZEND_HANDLE_MAPPED:
2436                        if (file_handle.handle.stream.mmap.buf[0] == '#') {
2437                            int i = 1;
2438
2439                            c = file_handle.handle.stream.mmap.buf[i++];
2440                            while (c != '\n' && c != '\r' && c != EOF) {
2441                                c = file_handle.handle.stream.mmap.buf[i++];
2442                            }
2443                            if (c == '\r') {
2444                                if (file_handle.handle.stream.mmap.buf[i] == '\n') {
2445                                    i++;
2446                                }
2447                            }
2448                            file_handle.handle.stream.mmap.buf += i;
2449                            file_handle.handle.stream.mmap.len -= i;
2450                        }
2451                        break;
2452                    default:
2453                        break;
2454                }
2455            }
2456
2457            switch (behavior) {
2458                case PHP_MODE_STANDARD:
2459                    php_execute_script(&file_handle TSRMLS_CC);
2460                    break;
2461                case PHP_MODE_LINT:
2462                    PG(during_request_startup) = 0;
2463                    exit_status = php_lint_script(&file_handle TSRMLS_CC);
2464                    if (exit_status == SUCCESS) {
2465                        zend_printf("No syntax errors detected in %s\n", file_handle.filename);
2466                    } else {
2467                        zend_printf("Errors parsing %s\n", file_handle.filename);
2468                    }
2469                    break;
2470                case PHP_MODE_STRIP:
2471                    if (open_file_for_scanning(&file_handle TSRMLS_CC) == SUCCESS) {
2472                        zend_strip(TSRMLS_C);
2473                        zend_file_handle_dtor(&file_handle TSRMLS_CC);
2474                        php_output_teardown();
2475                    }
2476                    return SUCCESS;
2477                    break;
2478                case PHP_MODE_HIGHLIGHT:
2479                    {
2480                        zend_syntax_highlighter_ini syntax_highlighter_ini;
2481
2482                        if (open_file_for_scanning(&file_handle TSRMLS_CC) == SUCCESS) {
2483                            php_get_highlight_struct(&syntax_highlighter_ini);
2484                            zend_highlight(&syntax_highlighter_ini TSRMLS_CC);
2485                            if (fastcgi) {
2486                                goto fastcgi_request_done;
2487                            }
2488                            zend_file_handle_dtor(&file_handle TSRMLS_CC);
2489                            php_output_teardown();
2490                        }
2491                        return SUCCESS;
2492                    }
2493                    break;
2494#if 0
2495                /* Zeev might want to do something with this one day */
2496                case PHP_MODE_INDENT:
2497                    open_file_for_scanning(&file_handle TSRMLS_CC);
2498                    zend_indent(TSRMLS_C);
2499                    zend_file_handle_dtor(&file_handle TSRMLS_CC);
2500                    php_output_teardown();
2501                    return SUCCESS;
2502                    break;
2503#endif
2504            }
2505
2506fastcgi_request_done:
2507            {
2508                if (SG(request_info).path_translated) efree(SG(request_info).path_translated);
2509
2510                php_request_shutdown((void *) 0);
2511
2512                if (exit_status == 0) {
2513                    exit_status = EG(exit_status);
2514                }
2515
2516                if (free_query_string && SG(request_info).query_string) {
2517                    free(SG(request_info).query_string);
2518                    SG(request_info).query_string = NULL;
2519                }
2520            }
2521
2522            if (!fastcgi) {
2523                if (benchmark) {
2524                    if (warmup_repeats) {
2525                        warmup_repeats--;
2526                        if (!warmup_repeats) {
2527#ifdef HAVE_GETTIMEOFDAY
2528                            gettimeofday(&start, NULL);
2529#else
2530                            time(&start);
2531#endif
2532                        }
2533                        continue;
2534                    } else {
2535                        repeats--;
2536                        if (repeats > 0) {
2537                            script_file = NULL;
2538                            php_optind = orig_optind;
2539                            php_optarg = orig_optarg;
2540                            continue;
2541                        }
2542                    }
2543                }
2544                break;
2545            }
2546
2547            /* only fastcgi will get here */
2548            requests++;
2549            if (max_requests && (requests == max_requests)) {
2550                fcgi_finish_request(request, 1);
2551                if (bindpath) {
2552                    free(bindpath);
2553                }
2554                if (max_requests != 1) {
2555                    /* no need to return exit_status of the last request */
2556                    exit_status = 0;
2557                }
2558                break;
2559            }
2560            /* end of fastcgi loop */
2561        }
2562        if (request) {
2563            fcgi_destroy_request(request);
2564        }
2565        fcgi_shutdown();
2566
2567        if (cgi_sapi_module.php_ini_path_override) {
2568            free(cgi_sapi_module.php_ini_path_override);
2569        }
2570        if (cgi_sapi_module.ini_entries) {
2571            free(cgi_sapi_module.ini_entries);
2572        }
2573    } zend_catch {
2574        exit_status = 255;
2575    } zend_end_try();
2576
2577out:
2578    if (benchmark) {
2579        int sec;
2580#ifdef HAVE_GETTIMEOFDAY
2581        int usec;
2582
2583        gettimeofday(&end, NULL);
2584        sec = (int)(end.tv_sec - start.tv_sec);
2585        if (end.tv_usec >= start.tv_usec) {
2586            usec = (int)(end.tv_usec - start.tv_usec);
2587        } else {
2588            sec -= 1;
2589            usec = (int)(end.tv_usec + 1000000 - start.tv_usec);
2590        }
2591        fprintf(stderr, "\nElapsed time: %d.%06d sec\n", sec, usec);
2592#else
2593        time(&end);
2594        sec = (int)(end - start);
2595        fprintf(stderr, "\nElapsed time: %d sec\n", sec);
2596#endif
2597    }
2598
2599#ifndef PHP_WIN32
2600parent_out:
2601#endif
2602
2603    SG(server_context) = NULL;
2604    php_module_shutdown(TSRMLS_C);
2605    sapi_shutdown();
2606
2607#ifdef ZTS
2608    tsrm_shutdown();
2609#endif
2610
2611#if defined(PHP_WIN32) && ZEND_DEBUG && 0
2612    _CrtDumpMemoryLeaks();
2613#endif
2614
2615    return exit_status;
2616}
2617/* }}} */
2618
2619/*
2620 * Local variables:
2621 * tab-width: 4
2622 * c-basic-offset: 4
2623 * End:
2624 * vim600: sw=4 ts=4 fdm=marker
2625 * vim<600: sw=4 ts=4
2626 */
2627