1 | <?php |
---|
2 | /** |
---|
3 | * @version V4.94 23 Jan 2007 (c) 2000-2007 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 | ?> |
---|