ChangeLog
[Packages/TYPO3.CMS.git] / typo3 / sysext / adodb / adodb / adodb-errorpear.inc.php
1 <?php
2 /**
3 * @version V4.90 8 June 2006 (c) 2000-2006 John Lim (jlim#natsoft.com.my). All rights reserved.
4 * Released under both BSD license and Lesser GPL library license.
5 Whenever there is any discrepancy between the two licenses,
6 the BSD license will take precedence.
7 *
8 * Set tabs to 4 for best viewing.
9 *
10 * Latest version is available at http://php.weblogs.com
11 *
12 */
13 include_once('PEAR.php');
14
15 if (!defined('ADODB_ERROR_HANDLER')) define('ADODB_ERROR_HANDLER','ADODB_Error_PEAR');
16
17 /*
18 * Enabled the following if you want to terminate scripts when an error occurs
19 */
20 //PEAR::setErrorHandling (PEAR_ERROR_DIE);
21
22 /*
23 * Name of the PEAR_Error derived class to call.
24 */
25 if (!defined('ADODB_PEAR_ERROR_CLASS')) define('ADODB_PEAR_ERROR_CLASS','PEAR_Error');
26
27 /*
28 * Store the last PEAR_Error object here
29 */
30 global $ADODB_Last_PEAR_Error; $ADODB_Last_PEAR_Error = false;
31
32 /**
33 * Error Handler with PEAR support. This will be called with the following params
34 *
35 * @param $dbms the RDBMS you are connecting to
36 * @param $fn the name of the calling function (in uppercase)
37 * @param $errno the native error number from the database
38 * @param $errmsg the native error msg from the database
39 * @param $p1 $fn specific parameter - see below
40 * @param $P2 $fn specific parameter - see below
41 */
42 function ADODB_Error_PEAR($dbms, $fn, $errno, $errmsg, $p1=false, $p2=false)
43 {
44 global $ADODB_Last_PEAR_Error;
45
46 if (error_reporting() == 0) return; // obey @ protocol
47 switch($fn) {
48 case 'EXECUTE':
49 $sql = $p1;
50 $inputparams = $p2;
51
52 $s = "$dbms error: [$errno: $errmsg] in $fn(\"$sql\")";
53 break;
54
55 case 'PCONNECT':
56 case 'CONNECT':
57 $host = $p1;
58 $database = $p2;
59
60 $s = "$dbms error: [$errno: $errmsg] in $fn('$host', ?, ?, '$database')";
61 break;
62
63 default:
64 $s = "$dbms error: [$errno: $errmsg] in $fn($p1, $p2)";
65 break;
66 }
67
68 $class = ADODB_PEAR_ERROR_CLASS;
69 $ADODB_Last_PEAR_Error = new $class($s, $errno,
70 $GLOBALS['_PEAR_default_error_mode'],
71 $GLOBALS['_PEAR_default_error_options'],
72 $errmsg);
73
74 //print "<p>!$s</p>";
75 }
76
77 /**
78 * Returns last PEAR_Error object. This error might be for an error that
79 * occured several sql statements ago.
80 */
81 function &ADODB_PEAR_Error()
82 {
83 global $ADODB_Last_PEAR_Error;
84
85 return $ADODB_Last_PEAR_Error;
86 }
87
88 ?>