X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=includes%2Ferrors.inc;h=53587df6ed081b1489e162d77898d474e48f3ed6;hb=7e6e0807990447d2977b970c3a0fd28dc9250194;hp=f55951cf4652c1cc69d4f8f0a2bb0c070fc71626;hpb=6fcf6f5b5891c5fbbe12c01ee80c289f9bf46d97;p=fa-stable.git diff --git a/includes/errors.inc b/includes/errors.inc index f55951cf..53587df6 100644 --- a/includes/errors.inc +++ b/includes/errors.inc @@ -12,27 +12,75 @@ $messages = array(); // container for system messages $before_box = ''; // temporary container for output html data before error box +function get_backtrace($html = false, $skip=0) +{ + $str = ''; + if ($html) $str .= ''; + $trace = debug_backtrace(); + + foreach($trace as $trn => $tr) { + if ($trn <= $skip) continue; + if ($html) $str .= ''; + } + + if ($html) $str .= '
'; + if (isset($tr['file']) && isset($tr['line'])) + $str .= $tr['file'].':'.$tr['line'].': '; + if ($html) $str .= ''; + if (isset($tr['type'])) { + if($tr['type'] == '::') { + $str .= $tr['class'].'::'; + } else if($tr['type'] == '->') { + $str .= '('.$tr['class'].' Object)'.'->'; + } + } + $str .= $tr['function'].'('; + + if(isset($tr['args']) && is_array($tr['args'])) { + $args = array(); + foreach($tr['args'] as $n=>$a) { + if (is_object($tr['args'][$n])) + $args[$n] = "(".get_class($tr['args'][$n])." Object)"; + elseif (is_array($tr['args'][$n])) + $args[$n] = "(Array[".count($tr['args'][$n])."])"; + else + $args[$n] = "'".$tr['args'][$n]."'"; + } + $str .= implode(',',$args); + } + $str .= ')
'; + return $str; +} + //----------------------------------------------------------------------------- // Error handler - collects all php/user messages for // display in message box. function error_handler($errno, $errstr, $file, $line) { - global $messages, $go_debug, $SysPrefs; + global $messages, $SysPrefs; // skip well known warnings we don't care about. // Please use restrainedly to not risk loss of important messages - $excluded_warnings = array('html_entity_decode', 'htmlspecialchars'); + $excluded_warnings = array( + 'html_entity_decode', // nevermind encodings, special chars are processed anyway + 'should be compatible with that', // ignore cpdf/frontreport wrapper warnings + 'mysql extension is deprecated' // ignore strict warning in 5.4 + ); foreach($excluded_warnings as $ref) { if (strpos($errstr, $ref) !== false) { return true; } } - + + $bt = isset($SysPrefs) && $SysPrefs->go_debug>1 ? get_backtrace(true, 1) : array(); + // error_reporting==0 when messages are set off with @ if ($errno & error_reporting()) { - $messages[] = array($errno, $errstr, $file, $line); + // suppress duplicated errors + if (!in_array(array($errno, $errstr, $file, $line, @$bt), $messages)) + $messages[] = array($errno, $errstr, $file, $line, @$bt); } - else if($errno&~E_NOTICE) { // log all not displayed messages + else if ($errno&~E_NOTICE && $errstr != '') { // log all not displayed messages $user = @$_SESSION["wa_current_user"]->loginname; $context = isset($SysPrefs) && !$SysPrefs->db_ok ? '[before upgrade]' : ''; error_log(user_company() . ":$user:". basename($file) .":$line:$context $errstr"); @@ -40,45 +88,58 @@ function error_handler($errno, $errstr, $file, $line) { return true; } + +function exception_handler($exception) +{ + error_handler(E_ERROR, sprintf(_("Unhandled exception [%s]: %s."), $exception->getCode(), $exception->getMessage()), + $exception->getFile(), $exception->getLine()); + end_page(); +} //------------------------------------------------------------------------------ // Formats system messages before insert them into message
// FIX center is unused now function fmt_errors($center=false) { - global $messages, $path_to_root; - - $msg_class = array( - E_USER_ERROR => 'err_msg', - E_USER_WARNING =>'warn_msg', - E_USER_NOTICE => 'note_msg'); - - $type = E_USER_NOTICE; - $content = ''; -// $class = 'no_msg'; - if (count($messages)) { - foreach($messages as $cnt=>$msg) { - if ($msg[0]>$type) continue; - - if ($msg[0]<$type) { - if ($msg[0] == E_USER_WARNING) { - $type = E_USER_WARNING; // user warnings - $content = ''; // clean notices when we have errors - } else { - $type = E_USER_ERROR; // php or user errors - if($type == E_USER_WARNING) - $content = ''; // clean other messages + global $messages, $path_to_root, $SysPrefs; + + $msg_class = array( + E_USER_ERROR => 'err_msg', + E_USER_WARNING =>'warn_msg', + E_USER_NOTICE => 'note_msg'); + + $type = E_USER_NOTICE; + $content = ''; + + if (count($messages)) { + foreach($messages as $cnt=>$msg) { + if ($SysPrefs->go_debug && $msg[0]>E_USER_NOTICE) + $msg[0] = E_ERROR; + + if ($msg[0]>$type) continue; + + if ($msg[0]<$type) { + if ($msg[0] == E_USER_WARNING) { + $type = E_USER_WARNING; // user warnings + $content = ''; // clean notices when we have errors + } else { + $type = E_USER_ERROR; // php or user errors + if($type == E_USER_WARNING) + $content = ''; // clean other messages + } } + + $str = $msg[1]; + if (!in_array($msg[0], array(E_USER_NOTICE, E_USER_ERROR, E_USER_WARNING)) && $msg[2] != null) + $str .= ' '._('in file').': '.$msg[2].' '._('at line ').$msg[3]; + + if ($SysPrefs->go_debug>1 && $type!=E_USER_NOTICE && $type!=E_USER_WARNING) + $str .= '
'.$msg[4]; + $content .= ($cnt ? '
' : '').$str; } - $str = $msg[1]; - if ($msg[0] < E_USER_ERROR && $msg[2] != null) - $str .= ' '._('in file').': '.$msg[2].' '._('at line ').$msg[3]; - $content .= ($cnt ? '
' : '').$str; - } - $class = $msg_class[$type]; - $content = "
$content
"; - } else - if ($path_to_root=='.') - return ''; - return $content; + $class = $msg_class[$type]; + $content = "
$content
"; + } elseif ($path_to_root=='.') + return ''; + return $content; } //----------------------------------------------------------------------------- // Error box
element. @@ -88,7 +149,7 @@ function error_box() { echo "
"; -// Necessary restart instead of get_contents/clean calls due to a bug in php 4.3.2 + // Necessary restart instead of get_contents/clean calls due to a bug in php 4.3.2 $before_box = ob_get_clean(); // save html content before error box ob_start('output_html'); echo "
"; @@ -97,12 +158,16 @@ function error_box() { Helper to avoid sparse log notices. */ function end_flush() { - global $Ajax, $transaction_level; + global $Ajax; if (isset($Ajax)) $Ajax->run(); - // flush all output buffers (works also with exit inside any div levels) - while(ob_get_level()) ob_end_flush(); + + // on some (but not all) php versions zlib extension adds 1 additional level of buffering, + // so flush the last buffer outside the loop to be on safe side + while(ob_get_level() > 1) + ob_end_flush(); + @ob_end_flush(); // if any transaction was aborted unexpectedly rollback changes cancel_transaction(); @@ -110,12 +175,11 @@ function end_flush() { function display_db_error($msg, $sql_statement=null, $exit=true) { - global $db, $debug, $go_debug, $db_connections; + global $db, $SysPrefs, $db_connections; $warning = $msg==null; $db_error = db_error_no(); -// $str = "" . _("DATABASE ERROR :") . " $msg
"; if($warning) $str = "" . _("Debug mode database warning:") . "
"; else @@ -127,29 +191,30 @@ function display_db_error($msg, $sql_statement=null, $exit=true) $str .= "error message : " . db_error_msg($db) . "
"; } - if ($debug == 1) + if ($SysPrefs->debug == 1) { $cur_prefix = $db_connections[$_SESSION["wa_current_user"]->cur_con]['tbpref']; $str .= "sql that failed was : ".str_replace(TB_PREF, $cur_prefix, $sql_statement)."
"; -// if ($go_debug > 1) display_backtrace(); } $str .= "

"; - if($msg) - trigger_error($str, E_USER_ERROR); - else // $msg can be null here only in debug mode, otherwise the error is ignored - trigger_error($str, E_USER_WARNING); + if (!$SysPrefs->go_debug) + error_log($str); + else { + if($msg) + trigger_error($str, E_USER_ERROR); + else // $msg can be null here only in debug mode, otherwise the error is ignored + trigger_error($str, E_USER_WARNING); + } if ($exit) exit; } function frindly_db_error($db_error) { - global $db_duplicate_error_code; - - if ($db_error == $db_duplicate_error_code) - { + if ($db_error == DB_DUPLICATE_ERROR) + { display_error(_("The entered information is a duplicate. Please go back and enter different values.")); return true; } @@ -159,19 +224,19 @@ function frindly_db_error($db_error) function check_db_error($msg, $sql_statement, $exit_if_error=true, $rollback_if_error=true) { - global $db, $go_debug; + global $db, $SysPrefs; $db_error = db_error_no(); if ($db_error != 0) { - if ($go_debug || !frindly_db_error($db_error)) { - display_db_error($msg, $sql_statement, false); + if ($SysPrefs->go_debug || !frindly_db_error($db_error)) { + display_db_error($msg, $sql_statement, false); } if ($rollback_if_error) { - $rollback_result = db_query("rollback"); + $rollback_result = db_query("rollback"); } if ($exit_if_error) @@ -179,7 +244,6 @@ function check_db_error($msg, $sql_statement, $exit_if_error=true, $rollback_if_ end_page(); exit; } } - return $db_error; + return $db_error; } -?> \ No newline at end of file