2000-08-28 03:46:06 +08:00
|
|
|
<?php
|
2000-08-29 17:12:44 +08:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 23:32:16 +08:00
|
|
|
| PHP Version 4 |
|
2000-08-29 17:12:44 +08:00
|
|
|
+----------------------------------------------------------------------+
|
2001-12-11 23:32:16 +08:00
|
|
|
| Copyright (c) 1997-2002 The PHP Group |
|
2000-08-29 17:12:44 +08:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| This source file is subject to version 2.02 of the PHP license, |
|
|
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
|
|
| available at through the world-wide-web at |
|
|
|
|
| http://www.php.net/license/2_02.txt. |
|
|
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
|
|
+----------------------------------------------------------------------+
|
2002-05-19 21:16:03 +08:00
|
|
|
| Authors: Preston L. Bannister <pbannister@php.net> |
|
|
|
|
| Sander Roobol <sander@php.net> |
|
2002-05-17 05:48:28 +08:00
|
|
|
| (based on version by: Stig Bakken <ssb@fast.no>) |
|
2000-08-29 17:12:44 +08:00
|
|
|
| (based on the PHP 3 test framework by Rasmus Lerdorf) |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
/*
|
|
|
|
|
|
|
|
Require exact specification of PHP executable to test (no guessing!).
|
|
|
|
|
|
|
|
Die if any internal errors encountered in test script.
|
|
|
|
|
|
|
|
Regularized output for simpler post-processing of output.
|
|
|
|
|
|
|
|
Optionally output error lines indicating the failing test source and log
|
|
|
|
for direct jump with MSVC or Emacs.
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
2000-12-08 08:21:09 +08:00
|
|
|
/*
|
|
|
|
* TODO:
|
2001-03-21 14:04:36 +08:00
|
|
|
* - do not test PEAR components if base class and/or component class cannot be instanciated
|
2000-12-08 08:21:09 +08:00
|
|
|
*/
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
set_time_limit(0);
|
|
|
|
ob_implicit_flush();
|
2002-05-19 21:16:03 +08:00
|
|
|
error_reporting(E_ALL);
|
2002-05-17 05:48:28 +08:00
|
|
|
|
2002-05-08 15:23:54 +08:00
|
|
|
if (ini_get('safe_mode')) {
|
2002-05-17 05:48:28 +08:00
|
|
|
echo <<<SAFE_MODE_WARNING
|
2002-05-08 15:23:54 +08:00
|
|
|
|
|
|
|
+-----------------------------------------------------------+
|
|
|
|
| ! WARNING ! |
|
|
|
|
| You are running the test-suite with "safe_mode" ENABLED ! |
|
|
|
|
| |
|
|
|
|
| Chances are high that no test will work at all, |
|
|
|
|
| depending on how you configured "safe_mode" ! |
|
|
|
|
+-----------------------------------------------------------+
|
|
|
|
|
|
|
|
|
|
|
|
SAFE_MODE_WARNING;
|
|
|
|
}
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Don't ever guess at the PHP executable location.
|
|
|
|
// Require the explicit specification.
|
|
|
|
// Otherwise we could end up testing the wrong file!
|
2002-05-08 15:23:54 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
if(isset($_ENV['TEST_PHP_EXECUTABLE'])) {
|
|
|
|
$php = $_ENV['TEST_PHP_EXECUTABLE'];
|
|
|
|
} else {
|
|
|
|
error("environment variable TEST_PHP_EXECUTABLE must be set to specify PHP executable!");
|
|
|
|
}
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
if(!@is_executable($php)) {
|
|
|
|
error("invalid PHP executable specified by TEST_PHP_EXECUTABLE = " . $php);
|
|
|
|
}
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Check whether a detailed log is wanted.
|
2001-03-21 14:04:36 +08:00
|
|
|
|
2002-05-19 21:24:38 +08:00
|
|
|
if(isset($_ENV['TEST_PHP_DETAILED'])) {
|
|
|
|
define('DETAILED', $_ENV['TEST_PHP_DETAILED']);
|
|
|
|
} else {
|
|
|
|
define('DETAILED', 0);
|
|
|
|
}
|
2001-10-23 19:11:29 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Write test context information.
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
echo "
|
|
|
|
=====================================================================
|
|
|
|
CWD : " . getcwd() . "
|
|
|
|
PHP : $php
|
|
|
|
PHP_SAPI : " . PHP_SAPI . "
|
|
|
|
PHP_VERSION : " . PHP_VERSION . "
|
|
|
|
PHP_OS : " . PHP_OS . "
|
2002-05-19 22:48:27 +08:00
|
|
|
INI actual : " . realpath(get_cfg_var('cfg_file_path')) . "
|
2002-05-19 21:16:03 +08:00
|
|
|
INI wanted : " . realpath('php.ini-dist') . "
|
2002-05-17 05:48:28 +08:00
|
|
|
=====================================================================
|
|
|
|
";
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Make sure we are using the proper php.ini.
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-19 22:48:27 +08:00
|
|
|
$php_ini = realpath("php.ini-dist");
|
|
|
|
if(realpath(get_cfg_var('cfg_file_path')) != $php_ini) {
|
|
|
|
error("php.ini-dist was not used!");
|
|
|
|
}
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Determine the tests to be run.
|
2001-03-21 14:04:36 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
$test_to_run = array();
|
|
|
|
$test_files = array();
|
|
|
|
$test_results = array();
|
2001-03-21 14:04:36 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
// If parameters given assume they represent selected tests to run.
|
|
|
|
if ($argc>1) {
|
|
|
|
for ($i=1; $i<$argc; $i++) {
|
|
|
|
$testfile = realpath($argv[$i]);
|
|
|
|
$test_to_run[$testfile] = 1;
|
|
|
|
}
|
2001-08-28 00:39:49 +08:00
|
|
|
}
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Compile a list of all test files (*.phpt).
|
2002-05-19 21:16:03 +08:00
|
|
|
$module_of_test = $test_files = array();
|
|
|
|
find_files(getcwd());
|
|
|
|
|
|
|
|
function find_files($dir) {
|
|
|
|
global $test_files, $module_of_test;
|
|
|
|
|
|
|
|
/* FIXME: this messes up if you unpack PHP in /ext/pear :) */
|
|
|
|
if (ereg('/ext/([^/]+)/',"$dir/",$r)) {
|
|
|
|
$module = $r[1];
|
|
|
|
} else if (ereg('/pear/',"$dir/")) {
|
|
|
|
$module = 'pear';
|
|
|
|
} else {
|
|
|
|
$module = '';
|
|
|
|
}
|
|
|
|
|
|
|
|
$o = opendir($dir) or error("cannot open directory: $dir");
|
|
|
|
while (($name = readdir($o))!==false) {
|
|
|
|
if (is_dir("{$dir}/{$name}") && !in_array($name, array('.', '..', 'CVS'))) {
|
|
|
|
find_files("{$dir}/{$name}");
|
|
|
|
}
|
|
|
|
|
|
|
|
// Cleanup any left-over tmp files from last run.
|
|
|
|
if (substr($name, -4)=='.tmp') {
|
|
|
|
@unlink("$dir/$name");
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Otherwise we're only interested in *.phpt files.
|
|
|
|
if (substr($name, -5)=='.phpt') {
|
|
|
|
$testfile = realpath("{$dir}/{$name}");
|
|
|
|
$test_files[] = $testfile;
|
|
|
|
// $module_of_test[$testfile] = $module;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
closedir($o);
|
2002-05-17 05:48:28 +08:00
|
|
|
}
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Run only selected tests, if specified.
|
|
|
|
if (count($test_to_run)) {
|
2002-05-19 21:16:03 +08:00
|
|
|
echo "Running selected tests.\n";
|
|
|
|
foreach($test_to_run AS $name=>$runnable) {
|
|
|
|
echo "test: $name runnable: $runnable\n";
|
|
|
|
if ($runnable) {
|
|
|
|
$test_results[$name] = run_test($php,$name);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
exit(0);
|
2002-05-17 05:48:28 +08:00
|
|
|
}
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
sort($test_files);
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
$start_time = time();
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
echo "TIME START " . date('Y-m-d H:i:s', $start_time) . "
|
2002-05-17 05:48:28 +08:00
|
|
|
=====================================================================
|
2002-05-19 21:16:03 +08:00
|
|
|
";
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
$path_current = '';
|
|
|
|
foreach ($test_files as $name) {
|
|
|
|
|
|
|
|
$path = dirname($name);
|
|
|
|
if ($path_current != $path) {
|
|
|
|
$path_current = $path;
|
2002-05-19 21:16:03 +08:00
|
|
|
echo " entering directory $path\n";
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
$test_results[$name] = run_test($php,$name);
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
$end_time = time();
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
// Summarize results
|
2001-03-21 14:04:36 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
if (0 == count($test_results)) {
|
|
|
|
echo "No tests were run.\n";
|
|
|
|
return;
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
$n_total = count($test_results);
|
2002-05-19 21:16:03 +08:00
|
|
|
$sum_results = array('PASSED'=>0, 'SKIPPED'=>0, 'FAILED'=>0);
|
2002-05-17 05:48:28 +08:00
|
|
|
foreach ($test_results as $v) {
|
|
|
|
$sum_results[$v]++;
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
2002-05-17 05:48:28 +08:00
|
|
|
$percent_results = array();
|
|
|
|
while (list($v,$n) = each($sum_results)) {
|
|
|
|
$percent_results[$v] = (100.0 * $n) / $n_total;
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
echo "
|
|
|
|
=====================================================================
|
2002-05-19 21:16:03 +08:00
|
|
|
TIME END " . date('Y-m-d H:i:s', $end_time) . "
|
2002-05-17 05:48:28 +08:00
|
|
|
=====================================================================
|
2002-05-19 21:16:03 +08:00
|
|
|
TEST RESULT SUMMARY
|
|
|
|
---------------------------------------------------------------------
|
2002-05-17 05:48:28 +08:00
|
|
|
Number of tests : " . sprintf("%4d",$n_total) . "
|
|
|
|
Tests skipped : " . sprintf("%4d (%2.1f%%)",$sum_results['SKIPPED'],$percent_results['SKIPPED']) . "
|
|
|
|
Tests failed : " . sprintf("%4d (%2.1f%%)",$sum_results['FAILED'],$percent_results['FAILED']) . "
|
|
|
|
Tests passed : " . sprintf("%4d (%2.1f%%)",$sum_results['PASSED'],$percent_results['PASSED']) . "
|
2002-05-19 21:16:03 +08:00
|
|
|
Time taken : " . sprintf("%4d seconds", $end_time - $start_time) . "
|
2002-05-17 05:48:28 +08:00
|
|
|
=====================================================================
|
|
|
|
";
|
|
|
|
|
|
|
|
//
|
|
|
|
// Write the given text to a temporary file, and return the filename.
|
|
|
|
//
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
function save_text($filename,$text) {
|
2002-05-17 05:48:28 +08:00
|
|
|
$fp = @fopen($filename,'w')
|
2002-05-19 21:16:03 +08:00
|
|
|
or error("Cannot open file '" . $filename . "' (save_text)");
|
2002-05-17 05:48:28 +08:00
|
|
|
fwrite($fp,$text);
|
|
|
|
fclose($fp);
|
|
|
|
if (1 < DETAILED) echo "
|
|
|
|
FILE $filename {{{
|
|
|
|
$text
|
|
|
|
}}}
|
|
|
|
";
|
|
|
|
}
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
//
|
|
|
|
// Write an error in a format recognizable to Emacs or MSVC.
|
|
|
|
//
|
2001-05-03 00:39:04 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
function error_report($testname,$logname,$tested)
|
|
|
|
{
|
|
|
|
$testname = realpath($testname);
|
|
|
|
$logname = realpath($logname);
|
|
|
|
switch (strtoupper(getenv('TEST_PHP_ERROR_STYLE'))) {
|
|
|
|
case 'MSVC':
|
|
|
|
echo $testname . "(1) : $tested\n";
|
|
|
|
echo $logname . "(1) : $tested\n";
|
|
|
|
break;
|
|
|
|
case 'EMACS':
|
|
|
|
echo $testname . ":1: $tested\n";
|
|
|
|
echo $logname . ":1: $tested\n";
|
|
|
|
break;
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
//
|
|
|
|
// Run an individual test case.
|
|
|
|
//
|
2000-08-28 03:46:06 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
function run_test($php,$file)
|
|
|
|
{
|
|
|
|
if (DETAILED) echo "
|
|
|
|
=================
|
|
|
|
TEST $file
|
|
|
|
";
|
|
|
|
|
|
|
|
// Load the sections of the test file.
|
|
|
|
|
|
|
|
$section_text = array(
|
|
|
|
'TEST' => '(unnamed test)',
|
|
|
|
'SKIPIF' => '',
|
|
|
|
'GET' => '',
|
|
|
|
);
|
|
|
|
|
|
|
|
$fp = @fopen($file, "r")
|
2002-05-19 21:16:03 +08:00
|
|
|
or error("Cannot open test file: $file");
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
$section = '';
|
|
|
|
while (!feof($fp)) {
|
|
|
|
$line = fgets($fp);
|
|
|
|
|
|
|
|
// Match the beginning of a section.
|
|
|
|
if (ereg('^--([A-Z]+)--',$line,$r)) {
|
|
|
|
$section = $r[1];
|
|
|
|
$section_text[$section] = '';
|
|
|
|
continue;
|
2000-12-08 08:21:09 +08:00
|
|
|
}
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
// Add to the section text.
|
|
|
|
$section_text[$section] .= $line;
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
2002-05-17 05:48:28 +08:00
|
|
|
fclose($fp);
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
$tested = trim($section_text['TEST']).' ('.basename($file).')';
|
|
|
|
|
|
|
|
$tmp = realpath(dirname($file));
|
2002-05-19 21:54:37 +08:00
|
|
|
$tmp_skipif = $tmp.uniqid('/phpt.');
|
|
|
|
$tmp_file = $tmp.uniqid('/phpt.');
|
|
|
|
$tmp_post = $tmp.uniqid('/phpt.');
|
2002-05-17 05:48:28 +08:00
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
@unlink($tmp_skipif);
|
|
|
|
@unlink($tmp_file);
|
|
|
|
@unlink($tmp_post);
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
// Reset environment from any previous test.
|
|
|
|
|
|
|
|
putenv("REDIRECT_STATUS=");
|
|
|
|
putenv("QUERY_STRING=");
|
|
|
|
putenv("PATH_TRANSLATED=");
|
|
|
|
putenv("SCRIPT_FILENAME=");
|
|
|
|
putenv("REQUEST_METHOD=");
|
|
|
|
putenv("CONTENT_TYPE=");
|
|
|
|
putenv("CONTENT_LENGTH=");
|
|
|
|
|
|
|
|
// Check if test should be skipped.
|
2002-05-19 21:16:03 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
if (trim($section_text['SKIPIF'])) {
|
2002-05-19 21:16:03 +08:00
|
|
|
save_text($tmp_skipif, $section_text['SKIPIF']);
|
|
|
|
$output = `$php $tmp_skipif`;
|
|
|
|
@unlink($tmp_skipif);
|
|
|
|
if(trim($output)=='skip') {
|
|
|
|
echo "SKIP $tested\n";
|
|
|
|
return 'SKIPPED';
|
|
|
|
}
|
|
|
|
}
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
// We've satisfied the preconditions - run the test!
|
|
|
|
|
|
|
|
save_text($tmp_file,$section_text['FILE']);
|
|
|
|
$query_string = trim($section_text['GET']);
|
|
|
|
|
2000-08-28 03:46:06 +08:00
|
|
|
putenv("REDIRECT_STATUS=1");
|
2002-05-17 05:48:28 +08:00
|
|
|
putenv("QUERY_STRING=$query_string");
|
|
|
|
putenv("PATH_TRANSLATED=$tmp_file");
|
|
|
|
putenv("SCRIPT_FILENAME=$tmp_file");
|
|
|
|
|
2002-05-23 07:40:29 +08:00
|
|
|
if (!empty($section_text['POST'])) {
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
$post = trim($section_text['POST']);
|
|
|
|
save_text($tmp_post,$post);
|
|
|
|
$content_length = strlen($post);
|
|
|
|
|
|
|
|
putenv("REQUEST_METHOD=POST");
|
|
|
|
putenv("CONTENT_TYPE=application/x-www-form-urlencoded");
|
|
|
|
putenv("CONTENT_LENGTH=$content_length");
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
$cmd = "$php -f $tmp_file 2>&1 < $tmp_post";
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
} else {
|
|
|
|
|
2000-12-08 08:21:09 +08:00
|
|
|
putenv("REQUEST_METHOD=GET");
|
|
|
|
putenv("CONTENT_TYPE=");
|
2002-05-17 05:48:28 +08:00
|
|
|
putenv("CONTENT_LENGTH=");
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
$cmd = "$php -f $tmp_file 2>&1";
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
if (DETAILED) echo "
|
|
|
|
CONTENT_LENGTH = " . getenv("CONTENT_LENGTH") . "
|
|
|
|
CONTENT_TYPE = " . getenv("CONTENT_TYPE") . "
|
|
|
|
PATH_TRANSLATED = " . getenv("PATH_TRANSLATED") . "
|
|
|
|
QUERY_STRING = " . getenv("QUERY_STRING") . "
|
|
|
|
REDIRECT_STATUS = " . getenv("REDIRECT_STATUS") . "
|
|
|
|
REQUEST_METHOD = " . getenv("REQUEST_METHOD") . "
|
|
|
|
SCRIPT_FILENAME = " . getenv("SCRIPT_FILENAME") . "
|
|
|
|
COMMAND $cmd
|
|
|
|
";
|
|
|
|
|
|
|
|
$out = `$cmd`;
|
2002-05-19 21:54:37 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
@unlink($tmp_post);
|
|
|
|
@unlink($tmp_file);
|
|
|
|
|
|
|
|
// Does the output match what is expected?
|
|
|
|
|
|
|
|
$output = trim(preg_replace('/^(..+\n)+\n/','',$out));
|
|
|
|
$wanted = trim($section_text['EXPECT']);
|
|
|
|
|
|
|
|
$output = preg_replace('/\r\n/',"\n",$output);
|
|
|
|
$wanted = preg_replace('/\r\n/',"\n",$wanted);
|
2002-05-19 21:54:37 +08:00
|
|
|
|
2002-05-17 05:48:28 +08:00
|
|
|
$ok = (0 == strcmp($output,$wanted));
|
|
|
|
if ($ok) {
|
|
|
|
echo "PASS $tested\n";
|
|
|
|
return 'PASSED';
|
|
|
|
}
|
|
|
|
|
|
|
|
// Test failed so we need to report details.
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
echo "FAIL $tested\n";
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
$logname = ereg_replace('\.phpt$','.log',$file);
|
|
|
|
$log = fopen($logname,'w')
|
2002-05-19 21:16:03 +08:00
|
|
|
or error("Cannot create test log - $logname");
|
2002-05-17 05:48:28 +08:00
|
|
|
|
|
|
|
fwrite($log,"
|
|
|
|
---- EXPECTED OUTPUT
|
|
|
|
$wanted
|
|
|
|
---- ACTUAL OUTPUT
|
|
|
|
$output
|
|
|
|
---- FAILED
|
|
|
|
");
|
|
|
|
fclose($log);
|
|
|
|
|
|
|
|
error_report($file,$logname,$tested);
|
|
|
|
|
|
|
|
return 'FAILED';
|
2000-08-28 03:46:06 +08:00
|
|
|
}
|
|
|
|
|
2002-05-19 21:16:03 +08:00
|
|
|
function error($message) {
|
|
|
|
echo "ERROR: {$message}\n";
|
|
|
|
exit(1);
|
|
|
|
}
|
|
|
|
|
2002-05-09 14:39:05 +08:00
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* indent-tabs-mode: t
|
|
|
|
* End:
|
|
|
|
*/
|
2001-05-27 17:09:00 +08:00
|
|
|
?>
|