Вход Регистрация
Файл: libraries/adodb/adodb-errorpear.inc.php
Строк: 74
<?php
/** 
 * @version V3.40 7 April 2003 (c) 2000-2003 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');

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;
}
        
?>
Онлайн: 0
Реклама