Imported from /home/lorry/working-area/delta_php2/php-5.4.13.tar.bz2.HEADphp-5.4.13master

1 files changed, 57 insertions, 0 deletions

diff --git a/sapi/cgi/tests/include.inc b/sapi/cgi/tests/include.inc
new file mode 100644
index 0000000..2d8ed8a
--- /dev/null
+++ b/sapi/cgi/tests/include.inc
@@ -0,0 +1,57 @@
+<?php
+
+function get_cgi_path() /* {{{ */
+{
+	$php = getenv("TEST_PHP_EXECUTABLE");
+
+	$cli = false;
+	$cgi = false;
+
+	if (file_exists($php) && is_executable($php)) {
+		$version = `$php -n -v`;
+		if (strstr($version, "(cli)")) {
+			/* that's cli */
+			$cli = true;
+		} else if (strpos($version, "(cgi")) {
+			/* that's cgi */
+			return $php;
+		}
+	}
+
+	if ($cli) {
+		/* trying to guess ... */
+		$php_path = $php;
+		for ($i = 0; $i < 2; $i++) {
+			$slash_pos = strrpos($php_path, "/");
+			if ($slash_pos) {
+				$php_path = substr($php_path, 0, $slash_pos);
+			} else {
+				return FALSE;
+			}
+		}
+
+		if ($php_path && is_dir($php_path) && file_exists($php_path."/cgi/php-cgi") && is_executable($php_path."/cgi/php-cgi")) { 
+			/* gotcha */
+			return $php_path."/cgi/php-cgi";
+		}
+		return false;
+	}
+	/* uhm? what's that then? */
+	return false;
+}
+/* }}} */
+
+function reset_env_vars() /* {{{ */
+{
+	putenv("REDIRECT_STATUS");
+	putenv("QUERY_STRING");
+	putenv("PATH_TRANSLATED");
+	putenv("SCRIPT_FILENAME");
+	putenv("SERVER_SOFTWARE");
+	putenv("SERVER_NAME");
+	putenv("GATEWAY_INTERFACE");
+	putenv("REQUEST_METHOD");
+}
+/* }}} */
+
+?>