diff options
Diffstat (limited to 'framework/DataAccess/adodb/adodb-errorpear.inc.php')
-rw-r--r-- | framework/DataAccess/adodb/adodb-errorpear.inc.php | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/framework/DataAccess/adodb/adodb-errorpear.inc.php b/framework/DataAccess/adodb/adodb-errorpear.inc.php deleted file mode 100644 index 433fd86d..00000000 --- a/framework/DataAccess/adodb/adodb-errorpear.inc.php +++ /dev/null @@ -1,88 +0,0 @@ -<?php -/** - * @version V4.72 21 Feb 2006 (c) 2000-2006 John Lim (jlim@natsoft.com.my). All rights reserved. - * Released under both BSD license and Lesser GPL library license. - Whenever there is any discrepancy between the two licenses, - the BSD license will take precedence. - * - * Set tabs to 4 for best viewing. - * - * Latest version is available at http://php.weblogs.com - * -*/ -include_once('PEAR.php'); - -if (!defined('ADODB_ERROR_HANDLER')) define('ADODB_ERROR_HANDLER','ADODB_Error_PEAR'); - -/* -* Enabled the following if you want to terminate scripts when an error occurs -*/ -//PEAR::setErrorHandling (PEAR_ERROR_DIE); - -/* -* Name of the PEAR_Error derived class to call. -*/ -if (!defined('ADODB_PEAR_ERROR_CLASS')) define('ADODB_PEAR_ERROR_CLASS','PEAR_Error'); - -/* -* Store the last PEAR_Error object here -*/ -global $ADODB_Last_PEAR_Error; $ADODB_Last_PEAR_Error = false; - - /** -* Error Handler with PEAR support. This will be called with the following params -* -* @param $dbms the RDBMS you are connecting to -* @param $fn the name of the calling function (in uppercase) -* @param $errno the native error number from the database -* @param $errmsg the native error msg from the database -* @param $p1 $fn specific parameter - see below -* @param $P2 $fn specific parameter - see below - */ -function ADODB_Error_PEAR($dbms, $fn, $errno, $errmsg, $p1=false, $p2=false) -{ -global $ADODB_Last_PEAR_Error; - - if (error_reporting() == 0) return; // obey @ protocol - switch($fn) { - case 'EXECUTE': - $sql = $p1; - $inputparams = $p2; - - $s = "$dbms error: [$errno: $errmsg] in $fn(\"$sql\")"; - break; - - case 'PCONNECT': - case 'CONNECT': - $host = $p1; - $database = $p2; - - $s = "$dbms error: [$errno: $errmsg] in $fn('$host', ?, ?, '$database')"; - break; - - default: - $s = "$dbms error: [$errno: $errmsg] in $fn($p1, $p2)"; - break; - } - - $class = ADODB_PEAR_ERROR_CLASS; - $ADODB_Last_PEAR_Error = new $class($s, $errno, - $GLOBALS['_PEAR_default_error_mode'], - $GLOBALS['_PEAR_default_error_options'], - $errmsg); - - //print "<p>!$s</p>"; -} - -/** -* Returns last PEAR_Error object. This error might be for an error that -* occured several sql statements ago. -*/ -function &ADODB_PEAR_Error() -{ -global $ADODB_Last_PEAR_Error; - - return $ADODB_Last_PEAR_Error; -} - -?>
\ No newline at end of file |