2000-07-24 08:05:51 +00:00
|
|
|
<?php
|
|
|
|
//
|
|
|
|
// +----------------------------------------------------------------------+
|
|
|
|
// | PHP version 4.0 |
|
|
|
|
// +----------------------------------------------------------------------+
|
|
|
|
// | Copyright (c) 1997, 1998, 1999, 2000 The PHP Group |
|
|
|
|
// +----------------------------------------------------------------------+
|
2000-07-24 23:54:26 +00:00
|
|
|
// | This source file is subject to version 2.0 of the PHP license, |
|
2000-07-24 08:05:51 +00:00
|
|
|
// | that is bundled with this package in the file LICENSE, and is |
|
|
|
|
// | available at through the world-wide-web at |
|
2000-07-24 10:31:43 +00:00
|
|
|
// | http://www.php.net/license/2_02.txt. |
|
2000-07-24 08:05:51 +00:00
|
|
|
// | If you did not receive a copy of the PHP license and are unable to |
|
|
|
|
// | obtain it through the world-wide-web, please send a note to |
|
|
|
|
// | license@php.net so we can mail you a copy immediately. |
|
|
|
|
// +----------------------------------------------------------------------+
|
|
|
|
// | Authors: Sterling Hughes <sterling@php.net> |
|
|
|
|
// | Stig Bakken <ssb@fast.no> |
|
|
|
|
// +----------------------------------------------------------------------+
|
|
|
|
//
|
|
|
|
// $Id$
|
|
|
|
//
|
|
|
|
|
|
|
|
define('PEAR_ERROR_RETURN', 0);
|
|
|
|
define('PEAR_ERROR_PRINT', 1);
|
|
|
|
define('PEAR_ERROR_TRIGGER', 2);
|
|
|
|
define('PEAR_ERROR_DIE', 3);
|
|
|
|
|
2000-07-24 23:54:26 +00:00
|
|
|
define('PHP_BINDIR', '@prefix@/bin');
|
|
|
|
define('PEAR_INSTALL_DIR', '@PEAR_INSTALLDIR@');
|
|
|
|
define('PEAR_EXTENSION_DIR', '@EXTENSION_DIR@');
|
|
|
|
|
2000-07-24 08:05:51 +00:00
|
|
|
$_PEAR_destructor_object_list = array();
|
|
|
|
|
2000-07-30 17:41:31 +00:00
|
|
|
//
|
|
|
|
// Tests needed: - PEAR inheritance
|
|
|
|
// - destructors
|
|
|
|
//
|
|
|
|
|
2000-07-24 08:05:51 +00:00
|
|
|
/**
|
|
|
|
* Base class for other PEAR classes. Provides rudimentary
|
|
|
|
* emulation of destructors.
|
|
|
|
*
|
|
|
|
* If you want a destructor in your class, inherit PEAR and make a
|
|
|
|
* destructor method called _yourclassname (same name as the
|
|
|
|
* constructor, but with a "_" prefix). Also, in your constructor you
|
2000-07-30 17:41:31 +00:00
|
|
|
* have to call the PEAR constructor: <code>$this->PEAR();</code>.
|
|
|
|
* The destructor method will be called without parameters. Note that
|
|
|
|
* at in some SAPI implementations (such as Apache), any output during
|
2000-07-24 08:05:51 +00:00
|
|
|
* the request shutdown (in which destructors are called) seems to be
|
|
|
|
* discarded. If you need to get any debug information from your
|
2000-07-30 17:41:31 +00:00
|
|
|
* destructor, use <code>error_log()</code>, <code>syslog()</code> or
|
|
|
|
* something like that instead.
|
2000-07-24 08:05:51 +00:00
|
|
|
*
|
|
|
|
* @since PHP 4.0.2
|
|
|
|
* @author Stig Bakken <ssb@fast.no>
|
|
|
|
*/
|
2000-07-24 23:54:26 +00:00
|
|
|
class PEAR
|
|
|
|
{
|
2000-07-30 17:41:31 +00:00
|
|
|
// {{{ properties
|
|
|
|
|
|
|
|
var $_debug = false;
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
|
2000-07-24 08:05:51 +00:00
|
|
|
// {{{ constructor
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Constructor. Registers this object in
|
|
|
|
* $_PEAR_destructor_object_list for destructor emulation.
|
|
|
|
*/
|
2000-07-24 23:54:26 +00:00
|
|
|
function PEAR() {
|
|
|
|
global $_PEAR_destructor_object_list;
|
|
|
|
$_PEAR_destructor_object_list[] = &$this;
|
2000-07-30 17:41:31 +00:00
|
|
|
if ($this->_debug) {
|
|
|
|
printf("PEAR constructor called, class=%s\n",
|
|
|
|
get_class($this));
|
|
|
|
}
|
2000-07-24 23:54:26 +00:00
|
|
|
}
|
2000-07-24 08:05:51 +00:00
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ destructor
|
|
|
|
|
|
|
|
/**
|
2000-07-30 17:41:31 +00:00
|
|
|
* Destructor (the emulated type of...). Does nothing right now,
|
|
|
|
* but is included for forward compatibility, so subclass
|
|
|
|
* destructors should always call it.
|
2000-07-24 08:05:51 +00:00
|
|
|
*
|
|
|
|
* See the note in the class desciption about output from
|
|
|
|
* destructors.
|
2000-07-30 17:41:31 +00:00
|
|
|
*
|
|
|
|
* @access public
|
2000-07-24 08:05:51 +00:00
|
|
|
*/
|
|
|
|
function _PEAR() {
|
|
|
|
}
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ isError()
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Tell whether a value is a PEAR error.
|
|
|
|
*
|
2000-07-24 23:54:26 +00:00
|
|
|
* @param $data the value to test
|
|
|
|
* @access public
|
|
|
|
* @return bool true if $data is an error
|
2000-07-24 08:05:51 +00:00
|
|
|
*/
|
2000-07-24 23:54:26 +00:00
|
|
|
function isError(&$data) {
|
2000-07-30 17:41:31 +00:00
|
|
|
return (bool)(is_object($data) &&
|
|
|
|
(get_class($data) == "pear_error" ||
|
|
|
|
is_subclass_of($data, "pear_error")));
|
2000-07-24 23:54:26 +00:00
|
|
|
}
|
2000-07-24 08:05:51 +00:00
|
|
|
|
|
|
|
// }}}
|
|
|
|
}
|
|
|
|
|
|
|
|
// {{{ _PEAR_call_destructors()
|
|
|
|
|
|
|
|
function _PEAR_call_destructors() {
|
|
|
|
global $_PEAR_destructor_object_list;
|
|
|
|
if (is_array($_PEAR_destructor_object_list) && sizeof($_PEAR_destructor_object_list)) {
|
|
|
|
reset($_PEAR_destructor_object_list);
|
|
|
|
while (list($k, $objref) = each($_PEAR_destructor_object_list)) {
|
|
|
|
$destructor = "_".get_class($objref);
|
|
|
|
if (method_exists($objref, $destructor)) {
|
|
|
|
$objref->$destructor();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// Empty the object list to ensure that destructors are
|
|
|
|
// not called more than once.
|
|
|
|
$_PEAR_destructor_object_list = array();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
|
|
|
|
class PEAR_Error
|
|
|
|
{
|
|
|
|
// {{{ properties
|
|
|
|
|
|
|
|
var $classname = '';
|
|
|
|
var $error_message_prefix = '';
|
|
|
|
var $error_prepend = '';
|
|
|
|
var $error_append = '';
|
|
|
|
|
|
|
|
var $mode = PEAR_ERROR_RETURN;
|
|
|
|
var $level = E_USER_NOTICE;
|
|
|
|
|
|
|
|
var $message = '';
|
|
|
|
|
|
|
|
// Wait until we have a stack-groping function in PHP.
|
|
|
|
//var $file = '';
|
|
|
|
//var $line = 0;
|
|
|
|
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ constructor
|
|
|
|
|
|
|
|
/**
|
|
|
|
* PEAR_Error constructor
|
|
|
|
*
|
|
|
|
* @param $message error message
|
|
|
|
* @param $code (optional) error code
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
function PEAR_Error($message = 'unknown error',
|
|
|
|
$code = 0,
|
|
|
|
$mode = PEAR_ERROR_RETURN,
|
|
|
|
$level = E_USER_NOTICE)
|
|
|
|
{
|
|
|
|
$this->message = $message;
|
|
|
|
$this->code = $code;
|
|
|
|
$this->mode = $mode;
|
|
|
|
$this->level = $level;
|
|
|
|
if (!$this->classname) {
|
|
|
|
$this->classname = get_class($this);
|
|
|
|
}
|
|
|
|
switch ($this->mode) {
|
|
|
|
case PEAR_ERROR_PRINT:
|
|
|
|
print $this->getMessage();
|
|
|
|
break;
|
|
|
|
case PEAR_ERROR_TRIGGER:
|
|
|
|
trigger_error($this->getMessage(), $this->level);
|
|
|
|
break;
|
|
|
|
case PEAR_ERROR_DIE:
|
|
|
|
die($this->getMessage());
|
|
|
|
break;
|
|
|
|
case PEAR_ERROR_RETURN:
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ getMessage()
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the error message from an error object.
|
|
|
|
*
|
2000-07-24 23:54:26 +00:00
|
|
|
* @return string full error message
|
2000-07-24 08:05:51 +00:00
|
|
|
*/
|
|
|
|
function getMessage ()
|
|
|
|
{
|
|
|
|
return ($this->error_prepend . $this->error_message_prefix .
|
|
|
|
$this->message . $this->error_append);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ getType()
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Get the name of this error/exception.
|
|
|
|
*
|
|
|
|
* @return string error/exception name (type)
|
|
|
|
*/
|
|
|
|
function getType ()
|
|
|
|
{
|
|
|
|
return $this->classname;
|
|
|
|
}
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
// {{{ toString()
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Make a string representation of this object.
|
|
|
|
*
|
|
|
|
* @return string a string with an object "summary"
|
|
|
|
*/
|
|
|
|
function toString() {
|
|
|
|
$modes = array(PEAR_ERROR_RETURN => "return",
|
|
|
|
PEAR_ERROR_PRINT => "print",
|
|
|
|
PEAR_ERROR_TRIGGER => "trigger",
|
|
|
|
PEAR_ERROR_DIE => "die");
|
|
|
|
$levels = array(E_USER_NOTICE => "notice",
|
|
|
|
E_USER_WARNING => "warning",
|
|
|
|
E_USER_ERROR => "error");
|
|
|
|
return sprintf("[%s: message=%s code=%d mode=%s level=%s prefix=%s prepend=%s append=%s]",
|
|
|
|
$this->message, $this->code, $modes[$this->mode], $levels[$this->level],
|
|
|
|
$this->error_message_prefix, $this->error_prepend, $this->error_append);
|
|
|
|
}
|
|
|
|
|
|
|
|
// }}}
|
|
|
|
}
|
|
|
|
|
|
|
|
register_shutdown_function("_PEAR_call_destructors");
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Local Variables:
|
2000-07-24 23:54:26 +00:00
|
|
|
* mode: c++
|
2000-07-24 08:05:51 +00:00
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* End:
|
|
|
|
*/
|
|
|
|
?>
|