X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=includes%2Ferrors.inc;h=53587df6ed081b1489e162d77898d474e48f3ed6;hb=630e99edecc3eabe708a9e7bda94eaa60bf16db7;hp=1a39f1637ce3bffef74fbc61c28e42582ad843f8;hpb=89cb648e9d031fa624e7814f89e90ccba2042124;p=fa-stable.git diff --git a/includes/errors.inc b/includes/errors.inc index 1a39f163..53587df6 100644 --- a/includes/errors.inc +++ b/includes/errors.inc @@ -12,59 +12,134 @@ $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; + 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', // 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 && $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"); } + 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]; - } else - if ($path_to_root=='.') - return ''; - - $content = "
$content
"; - return $content; + $class = $msg_class[$type]; + $content = "
$content
"; + } elseif ($path_to_root=='.') + return ''; + return $content; } //----------------------------------------------------------------------------- // Error box
element. @@ -73,21 +148,38 @@ function error_box() { global $before_box; echo "
"; - $before_box = ob_get_clean(); // save html content before error box -// Necessary restart instead of get_contents/clean calls due to a bug in php 4.3.2 - register_shutdown_function('ob_end_flush'); + + // 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 "
"; } +/* + Helper to avoid sparse log notices. +*/ +function end_flush() { + global $Ajax; + + if (isset($Ajax)) + $Ajax->run(); + + // 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(); +} function display_db_error($msg, $sql_statement=null, $exit=true) { - global $db, $debug; + 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 @@ -99,25 +191,29 @@ function display_db_error($msg, $sql_statement=null, $exit=true) $str .= "error message : " . db_error_msg($db) . "
"; } - if ($debug == 1) + if ($SysPrefs->debug == 1) { - $str .= "sql that failed was : " . $sql_statement . "
"; + $cur_prefix = $db_connections[$_SESSION["wa_current_user"]->cur_con]['tbpref']; + + $str .= "sql that failed was : ".str_replace(TB_PREF, $cur_prefix, $sql_statement)."
"; } $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; @@ -128,28 +224,26 @@ function frindly_db_error($db_error) function check_db_error($msg, $sql_statement, $exit_if_error=true, $rollback_if_error=true) { - global $db; + global $db, $SysPrefs; $db_error = db_error_no(); if ($db_error != 0) { - if (!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","could not rollback"); + $rollback_result = db_query("rollback"); } if ($exit_if_error) { - echo "

"; - exit; + end_page(); exit; } } - return $db_error; + return $db_error; } -?> \ No newline at end of file