<?php
/**
 * @version V5.06 16 Oct 2008  (c) 2000-2009 John Lim (jlim#natsoft.com). 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;
}

?>