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