Modified the internal error to capture to the log.
git-svn-id: file:///svn-source/pmgr/branches/pre_0.1_work_20090819@830 97e9348a-65ac-dc4b-aefc-98561f571b83
This commit is contained in:
@@ -37,10 +37,18 @@ function sandbox() {
|
||||
}
|
||||
|
||||
function server_request_var($var) {
|
||||
return (preg_match("/^HTTP/", $var));
|
||||
if (preg_match("/^HTTP_ACCEPT|REMOTE_PORT/", $var))
|
||||
return false;
|
||||
return (preg_match("/^HTTP|REQUEST|REMOTE/", $var));
|
||||
}
|
||||
|
||||
function INTERNAL_ERROR($message, $exit = true, $drop = 0) {
|
||||
$O = new Object();
|
||||
for ($i=0; $i<3; ++$i) {
|
||||
$O->log(str_repeat("\\", 80));
|
||||
$O->log(str_repeat("/", 80));
|
||||
}
|
||||
$O->log("INTERNAL ERROR: $message");
|
||||
echo '<DIV class="internal-error" style="color:#000; background:#c22; padding:0.5em 1.5em 0.5em 1.5em;">' . "\n";
|
||||
echo '<H1 style="color:#000; margin-bottom:0.2em; font-size:2em;">INTERNAL ERROR:</H1>' . "\n";
|
||||
echo '<H2 style="color:#000; margin-top:0; margin-left:1.5em; font-size:1.5em">' . $message . '</H2>' . "\n";
|
||||
@@ -48,8 +56,10 @@ function INTERNAL_ERROR($message, $exit = true, $drop = 0) {
|
||||
echo '<BR>It is a problem within the application itself and should be reported to the administrator.</H4>' . "\n";
|
||||
|
||||
// Print out the entire stack trace
|
||||
$O->log(str_repeat("-", 30));
|
||||
$O->log("Stack:");
|
||||
echo '<HR style="margin-top:1.0em; margin-bottom:0.5em;">' . "\nStack Trace:\n";
|
||||
echo '<OL style="margin-left:1.5em";>' . "\n";
|
||||
echo '<OL style="margin-top:0.5em; margin-left:0.0em";>' . "\n";
|
||||
$trace = array_slice(debug_backtrace(false), $drop);
|
||||
for ($i = 0; $i < count($trace); ++$i) {
|
||||
$bline = $trace[$i]['line'];
|
||||
@@ -65,23 +75,36 @@ function INTERNAL_ERROR($message, $exit = true, $drop = 0) {
|
||||
$bclas = null;
|
||||
}
|
||||
|
||||
$O->log(" $bfile:$bline (" . ($bclas ? "$bclas::$bfunc" : "entry point") . ")");
|
||||
echo("<LI>$bfile:$bline (" . ($bclas ? "$bclas::$bfunc" : "entry point") . ")</LI>\n");
|
||||
}
|
||||
echo "</OL>\n";
|
||||
|
||||
$O->log(str_repeat("-", 30));
|
||||
$O->log("HTTP Request:");
|
||||
echo '<HR style="margin-top:1.0em; margin-bottom:0.5em;">' . "\nHTTP Request:\n";
|
||||
echo '<P><PRE style="color:#000; background:#c22; padding:0.5em 0 0 0;">' . "\n";
|
||||
print_r($_REQUEST);
|
||||
echo "</PRE>\n";
|
||||
echo '<UL style="margin-top:0.5em; margin-left:0.0em";>' . "\n";
|
||||
foreach($_REQUEST AS $k => $v) {
|
||||
$O->log(sprintf(" %-20s => %s", $k, $v));
|
||||
echo("<LI>$k => $v</LI>\n");
|
||||
}
|
||||
echo "</UL>\n";
|
||||
|
||||
$O->log(str_repeat("-", 30));
|
||||
$O->log("Server:");
|
||||
$SRV = array_intersect_key($_SERVER, array_flip(array_filter(array_keys($_SERVER), 'server_request_var')));
|
||||
echo '<HR style="margin-top:1.0em; margin-bottom:0.5em;">' . "\nServer:\n";
|
||||
echo '<P><PRE style="color:#000; background:#c22; padding:0.5em 0 0 0;">' . "\n";
|
||||
print_r(array_intersect_key($_SERVER, array_flip(array_filter(array_keys($_SERVER), 'server_request_var'))));
|
||||
echo "</PRE>\n";
|
||||
echo '<UL style="margin-top:0.5em; margin-left:0.0em";>' . "\n";
|
||||
foreach($SRV AS $k => $v) {
|
||||
if ($k == 'REQUEST_TIME')
|
||||
$v = date('c', $v);
|
||||
$O->log(sprintf(" %-20s => %s", $k, $v));
|
||||
echo("<LI>$k => $v</LI>\n");
|
||||
}
|
||||
echo "</UL>\n";
|
||||
|
||||
echo '<HR style="margin-top:1.0em; margin-bottom:0.5em;">' . "\n";
|
||||
echo 'Started: ' . date('c', $_SERVER['REQUEST_TIME']) . "<BR>\n";
|
||||
echo 'Current: ' . date('c') . "<BR>\n";
|
||||
echo date('c') . "<BR>\n";
|
||||
|
||||
echo '</DIV>';
|
||||
if ($exit)
|
||||
|
||||
Reference in New Issue
Block a user