<?php /** * @version V4.65 22 July 2005 (c) 2000-2005 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; } ?>