forked from GNUsocial/gnu-social
		
	
		
			
				
	
	
		
			980 lines
		
	
	
		
			33 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			980 lines
		
	
	
		
			33 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
<?php
 | 
						|
/**
 | 
						|
 * Error Stack Implementation
 | 
						|
 * 
 | 
						|
 * This is an incredibly simple implementation of a very complex error handling
 | 
						|
 * facility.  It contains the ability
 | 
						|
 * to track multiple errors from multiple packages simultaneously.  In addition,
 | 
						|
 * it can track errors of many levels, save data along with the error, context
 | 
						|
 * information such as the exact file, line number, class and function that
 | 
						|
 * generated the error, and if necessary, it can raise a traditional PEAR_Error.
 | 
						|
 * It has built-in support for PEAR::Log, to log errors as they occur
 | 
						|
 * 
 | 
						|
 * Since version 0.2alpha, it is also possible to selectively ignore errors,
 | 
						|
 * through the use of an error callback, see {@link pushCallback()}
 | 
						|
 * 
 | 
						|
 * Since version 0.3alpha, it is possible to specify the exception class
 | 
						|
 * returned from {@link push()}
 | 
						|
 *
 | 
						|
 * Since version PEAR1.3.2, ErrorStack no longer instantiates an exception class.  This can
 | 
						|
 * still be done quite handily in an error callback or by manipulating the returned array
 | 
						|
 * @category   Debugging
 | 
						|
 * @package    PEAR_ErrorStack
 | 
						|
 * @author     Greg Beaver <cellog@php.net>
 | 
						|
 * @copyright  2004-2008 Greg Beaver
 | 
						|
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 | 
						|
 * @link       http://pear.php.net/package/PEAR_ErrorStack
 | 
						|
 */
 | 
						|
 | 
						|
/**
 | 
						|
 * Singleton storage
 | 
						|
 * 
 | 
						|
 * Format:
 | 
						|
 * <pre>
 | 
						|
 * array(
 | 
						|
 *  'package1' => PEAR_ErrorStack object,
 | 
						|
 *  'package2' => PEAR_ErrorStack object,
 | 
						|
 *  ...
 | 
						|
 * )
 | 
						|
 * </pre>
 | 
						|
 * @access private
 | 
						|
 * @global array $GLOBALS['_PEAR_ERRORSTACK_SINGLETON']
 | 
						|
 */
 | 
						|
$GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] = array();
 | 
						|
 | 
						|
/**
 | 
						|
 * Global error callback (default)
 | 
						|
 * 
 | 
						|
 * This is only used if set to non-false.  * is the default callback for
 | 
						|
 * all packages, whereas specific packages may set a default callback
 | 
						|
 * for all instances, regardless of whether they are a singleton or not.
 | 
						|
 *
 | 
						|
 * To exclude non-singletons, only set the local callback for the singleton
 | 
						|
 * @see PEAR_ErrorStack::setDefaultCallback()
 | 
						|
 * @access private
 | 
						|
 * @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK']
 | 
						|
 */
 | 
						|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'] = array(
 | 
						|
    '*' => false,
 | 
						|
);
 | 
						|
 | 
						|
/**
 | 
						|
 * Global Log object (default)
 | 
						|
 * 
 | 
						|
 * This is only used if set to non-false.  Use to set a default log object for
 | 
						|
 * all stacks, regardless of instantiation order or location
 | 
						|
 * @see PEAR_ErrorStack::setDefaultLogger()
 | 
						|
 * @access private
 | 
						|
 * @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']
 | 
						|
 */
 | 
						|
$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'] = false;
 | 
						|
 | 
						|
/**
 | 
						|
 * Global Overriding Callback
 | 
						|
 * 
 | 
						|
 * This callback will override any error callbacks that specific loggers have set.
 | 
						|
 * Use with EXTREME caution
 | 
						|
 * @see PEAR_ErrorStack::staticPushCallback()
 | 
						|
 * @access private
 | 
						|
 * @global array $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']
 | 
						|
 */
 | 
						|
$GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'] = array();
 | 
						|
 | 
						|
/**#@+
 | 
						|
 * One of four possible return values from the error Callback
 | 
						|
 * @see PEAR_ErrorStack::_errorCallback()
 | 
						|
 */
 | 
						|
/**
 | 
						|
 * If this is returned, then the error will be both pushed onto the stack
 | 
						|
 * and logged.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_PUSHANDLOG', 1);
 | 
						|
/**
 | 
						|
 * If this is returned, then the error will only be pushed onto the stack,
 | 
						|
 * and not logged.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_PUSH', 2);
 | 
						|
/**
 | 
						|
 * If this is returned, then the error will only be logged, but not pushed
 | 
						|
 * onto the error stack.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_LOG', 3);
 | 
						|
/**
 | 
						|
 * If this is returned, then the error is completely ignored.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_IGNORE', 4);
 | 
						|
/**
 | 
						|
 * If this is returned, then the error is logged and die() is called.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_DIE', 5);
 | 
						|
/**#@-*/
 | 
						|
 | 
						|
/**
 | 
						|
 * Error code for an attempt to instantiate a non-class as a PEAR_ErrorStack in
 | 
						|
 * the singleton method.
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_ERR_NONCLASS', 1);
 | 
						|
 | 
						|
/**
 | 
						|
 * Error code for an attempt to pass an object into {@link PEAR_ErrorStack::getMessage()}
 | 
						|
 * that has no __toString() method
 | 
						|
 */
 | 
						|
define('PEAR_ERRORSTACK_ERR_OBJTOSTRING', 2);
 | 
						|
/**
 | 
						|
 * Error Stack Implementation
 | 
						|
 *
 | 
						|
 * Usage:
 | 
						|
 * <code>
 | 
						|
 * // global error stack
 | 
						|
 * $global_stack = &PEAR_ErrorStack::singleton('MyPackage');
 | 
						|
 * // local error stack
 | 
						|
 * $local_stack = new PEAR_ErrorStack('MyPackage');
 | 
						|
 * </code>
 | 
						|
 * @author     Greg Beaver <cellog@php.net>
 | 
						|
 * @version    @package_version@
 | 
						|
 * @package    PEAR_ErrorStack
 | 
						|
 * @category   Debugging
 | 
						|
 * @copyright  2004-2008 Greg Beaver
 | 
						|
 * @license    http://opensource.org/licenses/bsd-license.php New BSD License
 | 
						|
 * @link       http://pear.php.net/package/PEAR_ErrorStack
 | 
						|
 */
 | 
						|
class PEAR_ErrorStack {
 | 
						|
    /**
 | 
						|
     * Errors are stored in the order that they are pushed on the stack.
 | 
						|
     * @since 0.4alpha Errors are no longer organized by error level.
 | 
						|
     * This renders pop() nearly unusable, and levels could be more easily
 | 
						|
     * handled in a callback anyway
 | 
						|
     * @var array
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    var $_errors = array();
 | 
						|
 | 
						|
    /**
 | 
						|
     * Storage of errors by level.
 | 
						|
     *
 | 
						|
     * Allows easy retrieval and deletion of only errors from a particular level
 | 
						|
     * @since PEAR 1.4.0dev
 | 
						|
     * @var array
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    var $_errorsByLevel = array();
 | 
						|
 | 
						|
    /**
 | 
						|
     * Package name this error stack represents
 | 
						|
     * @var string
 | 
						|
     * @access protected
 | 
						|
     */
 | 
						|
    var $_package;
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Determines whether a PEAR_Error is thrown upon every error addition
 | 
						|
     * @var boolean
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    var $_compat = false;
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * If set to a valid callback, this will be used to generate the error
 | 
						|
     * message from the error code, otherwise the message passed in will be
 | 
						|
     * used
 | 
						|
     * @var false|string|array
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    var $_msgCallback = false;
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * If set to a valid callback, this will be used to generate the error
 | 
						|
     * context for an error.  For PHP-related errors, this will be a file
 | 
						|
     * and line number as retrieved from debug_backtrace(), but can be
 | 
						|
     * customized for other purposes.  The error might actually be in a separate
 | 
						|
     * configuration file, or in a database query.
 | 
						|
     * @var false|string|array
 | 
						|
     * @access protected
 | 
						|
     */
 | 
						|
    var $_contextCallback = false;
 | 
						|
 | 
						|
    /**
 | 
						|
     * If set to a valid callback, this will be called every time an error
 | 
						|
     * is pushed onto the stack.  The return value will be used to determine
 | 
						|
     * whether to allow an error to be pushed or logged.
 | 
						|
     *
 | 
						|
     * The return value must be one an PEAR_ERRORSTACK_* constant
 | 
						|
     * @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
 | 
						|
     * @var false|string|array
 | 
						|
     * @access protected
 | 
						|
     */
 | 
						|
    var $_errorCallback = array();
 | 
						|
 | 
						|
    /**
 | 
						|
     * PEAR::Log object for logging errors
 | 
						|
     * @var false|Log
 | 
						|
     * @access protected
 | 
						|
     */
 | 
						|
    var $_logger = false;
 | 
						|
 | 
						|
    /**
 | 
						|
     * Error messages - designed to be overridden
 | 
						|
     * @var array
 | 
						|
     * @abstract
 | 
						|
     */
 | 
						|
    var $_errorMsgs = array();
 | 
						|
 | 
						|
    /**
 | 
						|
     * Set up a new error stack
 | 
						|
     *
 | 
						|
     * @param string   $package name of the package this error stack represents
 | 
						|
     * @param callback $msgCallback callback used for error message generation
 | 
						|
     * @param callback $contextCallback callback used for context generation,
 | 
						|
     *                 defaults to {@link getFileLine()}
 | 
						|
     * @param boolean  $throwPEAR_Error
 | 
						|
     */
 | 
						|
    function __construct($package, $msgCallback = false, $contextCallback = false,
 | 
						|
                         $throwPEAR_Error = false)
 | 
						|
    {
 | 
						|
        $this->_package = $package;
 | 
						|
        $this->setMessageCallback($msgCallback);
 | 
						|
        $this->setContextCallback($contextCallback);
 | 
						|
        $this->_compat = $throwPEAR_Error;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Return a single error stack for this package.
 | 
						|
     * 
 | 
						|
     * Note that all parameters are ignored if the stack for package $package
 | 
						|
     * has already been instantiated
 | 
						|
     * @param string   $package name of the package this error stack represents
 | 
						|
     * @param callback $msgCallback callback used for error message generation
 | 
						|
     * @param callback $contextCallback callback used for context generation,
 | 
						|
     *                 defaults to {@link getFileLine()}
 | 
						|
     * @param boolean  $throwPEAR_Error
 | 
						|
     * @param string   $stackClass class to instantiate
 | 
						|
     *
 | 
						|
     * @return PEAR_ErrorStack
 | 
						|
     */
 | 
						|
    public static function &singleton(
 | 
						|
        $package, $msgCallback = false, $contextCallback = false,
 | 
						|
        $throwPEAR_Error = false, $stackClass = 'PEAR_ErrorStack'
 | 
						|
    ) {
 | 
						|
        if (isset($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package])) {
 | 
						|
            return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package];
 | 
						|
        }
 | 
						|
        if (!class_exists($stackClass)) {
 | 
						|
            if (function_exists('debug_backtrace')) {
 | 
						|
                $trace = debug_backtrace();
 | 
						|
            }
 | 
						|
            PEAR_ErrorStack::staticPush('PEAR_ErrorStack', PEAR_ERRORSTACK_ERR_NONCLASS,
 | 
						|
                'exception', array('stackclass' => $stackClass),
 | 
						|
                'stack class "%stackclass%" is not a valid class name (should be like PEAR_ErrorStack)',
 | 
						|
                false, $trace);
 | 
						|
        }
 | 
						|
        $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package] =
 | 
						|
            new $stackClass($package, $msgCallback, $contextCallback, $throwPEAR_Error);
 | 
						|
 | 
						|
        return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package];
 | 
						|
    }
 | 
						|
 | 
						|
    /**
 | 
						|
     * Internal error handler for PEAR_ErrorStack class
 | 
						|
     * 
 | 
						|
     * Dies if the error is an exception (and would have died anyway)
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    function _handleError($err)
 | 
						|
    {
 | 
						|
        if ($err['level'] == 'exception') {
 | 
						|
            $message = $err['message'];
 | 
						|
            if (isset($_SERVER['REQUEST_URI'])) {
 | 
						|
                echo '<br />';
 | 
						|
            } else {
 | 
						|
                echo "\n";
 | 
						|
            }
 | 
						|
            var_dump($err['context']);
 | 
						|
            die($message);
 | 
						|
        }
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set up a PEAR::Log object for all error stacks that don't have one
 | 
						|
     * @param Log $log 
 | 
						|
     */
 | 
						|
    public static function setDefaultLogger(&$log)
 | 
						|
    {
 | 
						|
        if (is_object($log) && method_exists($log, 'log') ) {
 | 
						|
            $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'] = &$log;
 | 
						|
        } elseif (is_callable($log)) {
 | 
						|
            $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'] = &$log;
 | 
						|
        }
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set up a PEAR::Log object for this error stack
 | 
						|
     * @param Log $log 
 | 
						|
     */
 | 
						|
    function setLogger(&$log)
 | 
						|
    {
 | 
						|
        if (is_object($log) && method_exists($log, 'log') ) {
 | 
						|
            $this->_logger = &$log;
 | 
						|
        } elseif (is_callable($log)) {
 | 
						|
            $this->_logger = &$log;
 | 
						|
        }
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set an error code => error message mapping callback
 | 
						|
     * 
 | 
						|
     * This method sets the callback that can be used to generate error
 | 
						|
     * messages for any instance
 | 
						|
     * @param array|string Callback function/method
 | 
						|
     */
 | 
						|
    function setMessageCallback($msgCallback)
 | 
						|
    {
 | 
						|
        if (!$msgCallback) {
 | 
						|
            $this->_msgCallback = array(&$this, 'getErrorMessage');
 | 
						|
        } else {
 | 
						|
            if (is_callable($msgCallback)) {
 | 
						|
                $this->_msgCallback = $msgCallback;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Get an error code => error message mapping callback
 | 
						|
     * 
 | 
						|
     * This method returns the current callback that can be used to generate error
 | 
						|
     * messages
 | 
						|
     * @return array|string|false Callback function/method or false if none
 | 
						|
     */
 | 
						|
    function getMessageCallback()
 | 
						|
    {
 | 
						|
        return $this->_msgCallback;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Sets a default callback to be used by all error stacks
 | 
						|
     * 
 | 
						|
     * This method sets the callback that can be used to generate error
 | 
						|
     * messages for a singleton
 | 
						|
     * @param array|string Callback function/method
 | 
						|
     * @param string Package name, or false for all packages
 | 
						|
     */
 | 
						|
    public static function setDefaultCallback($callback = false, $package = false)
 | 
						|
    {
 | 
						|
        if (!is_callable($callback)) {
 | 
						|
            $callback = false;
 | 
						|
        }
 | 
						|
        $package = $package ? $package : '*';
 | 
						|
        $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$package] = $callback;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set a callback that generates context information (location of error) for an error stack
 | 
						|
     * 
 | 
						|
     * This method sets the callback that can be used to generate context
 | 
						|
     * information for an error.  Passing in NULL will disable context generation
 | 
						|
     * and remove the expensive call to debug_backtrace()
 | 
						|
     * @param array|string|null Callback function/method
 | 
						|
     */
 | 
						|
    function setContextCallback($contextCallback)
 | 
						|
    {
 | 
						|
        if ($contextCallback === null) {
 | 
						|
            return $this->_contextCallback = false;
 | 
						|
        }
 | 
						|
        if (!$contextCallback) {
 | 
						|
            $this->_contextCallback = array(&$this, 'getFileLine');
 | 
						|
        } else {
 | 
						|
            if (is_callable($contextCallback)) {
 | 
						|
                $this->_contextCallback = $contextCallback;
 | 
						|
            }
 | 
						|
        }
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set an error Callback
 | 
						|
     * If set to a valid callback, this will be called every time an error
 | 
						|
     * is pushed onto the stack.  The return value will be used to determine
 | 
						|
     * whether to allow an error to be pushed or logged.
 | 
						|
     * 
 | 
						|
     * The return value must be one of the ERRORSTACK_* constants.
 | 
						|
     * 
 | 
						|
     * This functionality can be used to emulate PEAR's pushErrorHandling, and
 | 
						|
     * the PEAR_ERROR_CALLBACK mode, without affecting the integrity of
 | 
						|
     * the error stack or logging
 | 
						|
     * @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
 | 
						|
     * @see popCallback()
 | 
						|
     * @param string|array $cb
 | 
						|
     */
 | 
						|
    function pushCallback($cb)
 | 
						|
    {
 | 
						|
        array_push($this->_errorCallback, $cb);
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Remove a callback from the error callback stack
 | 
						|
     * @see pushCallback()
 | 
						|
     * @return array|string|false
 | 
						|
     */
 | 
						|
    function popCallback()
 | 
						|
    {
 | 
						|
        if (!count($this->_errorCallback)) {
 | 
						|
            return false;
 | 
						|
        }
 | 
						|
        return array_pop($this->_errorCallback);
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set a temporary overriding error callback for every package error stack
 | 
						|
     *
 | 
						|
     * Use this to temporarily disable all existing callbacks (can be used
 | 
						|
     * to emulate the @ operator, for instance)
 | 
						|
     * @see PEAR_ERRORSTACK_PUSHANDLOG, PEAR_ERRORSTACK_PUSH, PEAR_ERRORSTACK_LOG
 | 
						|
     * @see staticPopCallback(), pushCallback()
 | 
						|
     * @param string|array $cb
 | 
						|
     */
 | 
						|
    public static function staticPushCallback($cb)
 | 
						|
    {
 | 
						|
        array_push($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'], $cb);
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Remove a temporary overriding error callback
 | 
						|
     * @see staticPushCallback()
 | 
						|
     * @return array|string|false
 | 
						|
     */
 | 
						|
    public static function staticPopCallback()
 | 
						|
    {
 | 
						|
        $ret = array_pop($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK']);
 | 
						|
        if (!is_array($GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'])) {
 | 
						|
            $GLOBALS['_PEAR_ERRORSTACK_OVERRIDE_CALLBACK'] = array();
 | 
						|
        }
 | 
						|
        return $ret;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Add an error to the stack
 | 
						|
     * 
 | 
						|
     * If the message generator exists, it is called with 2 parameters.
 | 
						|
     *  - the current Error Stack object
 | 
						|
     *  - an array that is in the same format as an error.  Available indices
 | 
						|
     *    are 'code', 'package', 'time', 'params', 'level', and 'context'
 | 
						|
     * 
 | 
						|
     * Next, if the error should contain context information, this is
 | 
						|
     * handled by the context grabbing method.
 | 
						|
     * Finally, the error is pushed onto the proper error stack
 | 
						|
     * @param int    $code      Package-specific error code
 | 
						|
     * @param string $level     Error level.  This is NOT spell-checked
 | 
						|
     * @param array  $params    associative array of error parameters
 | 
						|
     * @param string $msg       Error message, or a portion of it if the message
 | 
						|
     *                          is to be generated
 | 
						|
     * @param array  $repackage If this error re-packages an error pushed by
 | 
						|
     *                          another package, place the array returned from
 | 
						|
     *                          {@link pop()} in this parameter
 | 
						|
     * @param array  $backtrace Protected parameter: use this to pass in the
 | 
						|
     *                          {@link debug_backtrace()} that should be used
 | 
						|
     *                          to find error context
 | 
						|
     * @return PEAR_Error|array if compatibility mode is on, a PEAR_Error is also
 | 
						|
     * thrown.  If a PEAR_Error is returned, the userinfo
 | 
						|
     * property is set to the following array:
 | 
						|
     * 
 | 
						|
     * <code>
 | 
						|
     * array(
 | 
						|
     *    'code' => $code,
 | 
						|
     *    'params' => $params,
 | 
						|
     *    'package' => $this->_package,
 | 
						|
     *    'level' => $level,
 | 
						|
     *    'time' => time(),
 | 
						|
     *    'context' => $context,
 | 
						|
     *    'message' => $msg,
 | 
						|
     * //['repackage' => $err] repackaged error array/Exception class
 | 
						|
     * );
 | 
						|
     * </code>
 | 
						|
     * 
 | 
						|
     * Normally, the previous array is returned.
 | 
						|
     */
 | 
						|
    function push($code, $level = 'error', $params = array(), $msg = false,
 | 
						|
                  $repackage = false, $backtrace = false)
 | 
						|
    {
 | 
						|
        $context = false;
 | 
						|
        // grab error context
 | 
						|
        if ($this->_contextCallback) {
 | 
						|
            if (!$backtrace) {
 | 
						|
                $backtrace = debug_backtrace();
 | 
						|
            }
 | 
						|
            $context = call_user_func($this->_contextCallback, $code, $params, $backtrace);
 | 
						|
        }
 | 
						|
        
 | 
						|
        // save error
 | 
						|
        $time = explode(' ', microtime());
 | 
						|
        $time = $time[1] + $time[0];
 | 
						|
        $err = array(
 | 
						|
                'code' => $code,
 | 
						|
                'params' => $params,
 | 
						|
                'package' => $this->_package,
 | 
						|
                'level' => $level,
 | 
						|
                'time' => $time,
 | 
						|
                'context' => $context,
 | 
						|
                'message' => $msg,
 | 
						|
               );
 | 
						|
 | 
						|
        if ($repackage) {
 | 
						|
            $err['repackage'] = $repackage;
 | 
						|
        }
 | 
						|
 | 
						|
        // set up the error message, if necessary
 | 
						|
        if ($this->_msgCallback) {
 | 
						|
            $msg = call_user_func_array($this->_msgCallback,
 | 
						|
                                        array(&$this, $err));
 | 
						|
            $err['message'] = $msg;
 | 
						|
        }        
 | 
						|
        $push = $log = true;
 | 
						|
        $die = false;
 | 
						|
        // try the overriding callback first
 | 
						|
        $callback = $this->staticPopCallback();
 | 
						|
        if ($callback) {
 | 
						|
            $this->staticPushCallback($callback);
 | 
						|
        }
 | 
						|
        if (!is_callable($callback)) {
 | 
						|
            // try the local callback next
 | 
						|
            $callback = $this->popCallback();
 | 
						|
            if (is_callable($callback)) {
 | 
						|
                $this->pushCallback($callback);
 | 
						|
            } else {
 | 
						|
                // try the default callback
 | 
						|
                $callback = isset($GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$this->_package]) ?
 | 
						|
                    $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK'][$this->_package] :
 | 
						|
                    $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_CALLBACK']['*'];
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if (is_callable($callback)) {
 | 
						|
            switch(call_user_func($callback, $err)){
 | 
						|
            	case PEAR_ERRORSTACK_IGNORE: 
 | 
						|
            		return $err;
 | 
						|
        		break;
 | 
						|
            	case PEAR_ERRORSTACK_PUSH: 
 | 
						|
            		$log = false;
 | 
						|
        		break;
 | 
						|
            	case PEAR_ERRORSTACK_LOG: 
 | 
						|
            		$push = false;
 | 
						|
        		break;
 | 
						|
            	case PEAR_ERRORSTACK_DIE: 
 | 
						|
            		$die = true;
 | 
						|
        		break;
 | 
						|
                // anything else returned has the same effect as pushandlog
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if ($push) {
 | 
						|
            array_unshift($this->_errors, $err);
 | 
						|
            if (!isset($this->_errorsByLevel[$err['level']])) {
 | 
						|
                $this->_errorsByLevel[$err['level']] = array();
 | 
						|
            }
 | 
						|
            $this->_errorsByLevel[$err['level']][] = &$this->_errors[0];
 | 
						|
        }
 | 
						|
        if ($log) {
 | 
						|
            if ($this->_logger || $GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER']) {
 | 
						|
                $this->_log($err);
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if ($die) {
 | 
						|
            die();
 | 
						|
        }
 | 
						|
        if ($this->_compat && $push) {
 | 
						|
            return $this->raiseError($msg, $code, null, null, $err);
 | 
						|
        }
 | 
						|
        return $err;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Static version of {@link push()}
 | 
						|
     * 
 | 
						|
     * @param string $package   Package name this error belongs to
 | 
						|
     * @param int    $code      Package-specific error code
 | 
						|
     * @param string $level     Error level.  This is NOT spell-checked
 | 
						|
     * @param array  $params    associative array of error parameters
 | 
						|
     * @param string $msg       Error message, or a portion of it if the message
 | 
						|
     *                          is to be generated
 | 
						|
     * @param array  $repackage If this error re-packages an error pushed by
 | 
						|
     *                          another package, place the array returned from
 | 
						|
     *                          {@link pop()} in this parameter
 | 
						|
     * @param array  $backtrace Protected parameter: use this to pass in the
 | 
						|
     *                          {@link debug_backtrace()} that should be used
 | 
						|
     *                          to find error context
 | 
						|
     * @return PEAR_Error|array if compatibility mode is on, a PEAR_Error is also
 | 
						|
     *                          thrown.  see docs for {@link push()}
 | 
						|
     */
 | 
						|
    public static function staticPush(
 | 
						|
        $package, $code, $level = 'error', $params = array(),
 | 
						|
        $msg = false, $repackage = false, $backtrace = false
 | 
						|
    ) {
 | 
						|
        $s = &PEAR_ErrorStack::singleton($package);
 | 
						|
        if ($s->_contextCallback) {
 | 
						|
            if (!$backtrace) {
 | 
						|
                if (function_exists('debug_backtrace')) {
 | 
						|
                    $backtrace = debug_backtrace();
 | 
						|
                }
 | 
						|
            }
 | 
						|
        }
 | 
						|
        return $s->push($code, $level, $params, $msg, $repackage, $backtrace);
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Log an error using PEAR::Log
 | 
						|
     * @param array $err Error array
 | 
						|
     * @param array $levels Error level => Log constant map
 | 
						|
     * @access protected
 | 
						|
     */
 | 
						|
    function _log($err)
 | 
						|
    {
 | 
						|
        if ($this->_logger) {
 | 
						|
            $logger = &$this->_logger;
 | 
						|
        } else {
 | 
						|
            $logger = &$GLOBALS['_PEAR_ERRORSTACK_DEFAULT_LOGGER'];
 | 
						|
        }
 | 
						|
        if (is_a($logger, 'Log')) {
 | 
						|
            $levels = array(
 | 
						|
                'exception' => PEAR_LOG_CRIT,
 | 
						|
                'alert' => PEAR_LOG_ALERT,
 | 
						|
                'critical' => PEAR_LOG_CRIT,
 | 
						|
                'error' => PEAR_LOG_ERR,
 | 
						|
                'warning' => PEAR_LOG_WARNING,
 | 
						|
                'notice' => PEAR_LOG_NOTICE,
 | 
						|
                'info' => PEAR_LOG_INFO,
 | 
						|
                'debug' => PEAR_LOG_DEBUG);
 | 
						|
            if (isset($levels[$err['level']])) {
 | 
						|
                $level = $levels[$err['level']];
 | 
						|
            } else {
 | 
						|
                $level = PEAR_LOG_INFO;
 | 
						|
            }
 | 
						|
            $logger->log($err['message'], $level, $err);
 | 
						|
        } else { // support non-standard logs
 | 
						|
            call_user_func($logger, $err);
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Pop an error off of the error stack
 | 
						|
     * 
 | 
						|
     * @return false|array
 | 
						|
     * @since 0.4alpha it is no longer possible to specify a specific error
 | 
						|
     * level to return - the last error pushed will be returned, instead
 | 
						|
     */
 | 
						|
    function pop()
 | 
						|
    {
 | 
						|
        $err = @array_shift($this->_errors);
 | 
						|
        if (!is_null($err)) {
 | 
						|
            @array_pop($this->_errorsByLevel[$err['level']]);
 | 
						|
            if (!count($this->_errorsByLevel[$err['level']])) {
 | 
						|
                unset($this->_errorsByLevel[$err['level']]);
 | 
						|
            }
 | 
						|
        }
 | 
						|
        return $err;
 | 
						|
    }
 | 
						|
 | 
						|
    /**
 | 
						|
     * Pop an error off of the error stack, static method
 | 
						|
     *
 | 
						|
     * @param string package name
 | 
						|
     * @return boolean
 | 
						|
     * @since PEAR1.5.0a1
 | 
						|
     */
 | 
						|
    static function staticPop($package)
 | 
						|
    {
 | 
						|
        if ($package) {
 | 
						|
            if (!isset($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package])) {
 | 
						|
                return false;
 | 
						|
            }
 | 
						|
            return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package]->pop();
 | 
						|
        }
 | 
						|
    }
 | 
						|
 | 
						|
    /**
 | 
						|
     * Determine whether there are any errors on the stack
 | 
						|
     * @param string|array Level name.  Use to determine if any errors
 | 
						|
     * of level (string), or levels (array) have been pushed
 | 
						|
     * @return boolean
 | 
						|
     */
 | 
						|
    function hasErrors($level = false)
 | 
						|
    {
 | 
						|
        if ($level) {
 | 
						|
            return isset($this->_errorsByLevel[$level]);
 | 
						|
        }
 | 
						|
        return count($this->_errors);
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Retrieve all errors since last purge
 | 
						|
     * 
 | 
						|
     * @param boolean set in order to empty the error stack
 | 
						|
     * @param string level name, to return only errors of a particular severity
 | 
						|
     * @return array
 | 
						|
     */
 | 
						|
    function getErrors($purge = false, $level = false)
 | 
						|
    {
 | 
						|
        if (!$purge) {
 | 
						|
            if ($level) {
 | 
						|
                if (!isset($this->_errorsByLevel[$level])) {
 | 
						|
                    return array();
 | 
						|
                } else {
 | 
						|
                    return $this->_errorsByLevel[$level];
 | 
						|
                }
 | 
						|
            } else {
 | 
						|
                return $this->_errors;
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if ($level) {
 | 
						|
            $ret = $this->_errorsByLevel[$level];
 | 
						|
            foreach ($this->_errorsByLevel[$level] as $i => $unused) {
 | 
						|
                // entries are references to the $_errors array
 | 
						|
                $this->_errorsByLevel[$level][$i] = false;
 | 
						|
            }
 | 
						|
            // array_filter removes all entries === false
 | 
						|
            $this->_errors = array_filter($this->_errors);
 | 
						|
            unset($this->_errorsByLevel[$level]);
 | 
						|
            return $ret;
 | 
						|
        }
 | 
						|
        $ret = $this->_errors;
 | 
						|
        $this->_errors = array();
 | 
						|
        $this->_errorsByLevel = array();
 | 
						|
        return $ret;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Determine whether there are any errors on a single error stack, or on any error stack
 | 
						|
     *
 | 
						|
     * The optional parameter can be used to test the existence of any errors without the need of
 | 
						|
     * singleton instantiation
 | 
						|
     * @param string|false Package name to check for errors
 | 
						|
     * @param string Level name to check for a particular severity
 | 
						|
     * @return boolean
 | 
						|
     */
 | 
						|
    public static function staticHasErrors($package = false, $level = false)
 | 
						|
    {
 | 
						|
        if ($package) {
 | 
						|
            if (!isset($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package])) {
 | 
						|
                return false;
 | 
						|
            }
 | 
						|
            return $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package]->hasErrors($level);
 | 
						|
        }
 | 
						|
        foreach ($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] as $package => $obj) {
 | 
						|
            if ($obj->hasErrors($level)) {
 | 
						|
                return true;
 | 
						|
            }
 | 
						|
        }
 | 
						|
        return false;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Get a list of all errors since last purge, organized by package
 | 
						|
     * @since PEAR 1.4.0dev BC break! $level is now in the place $merge used to be
 | 
						|
     * @param boolean $purge Set to purge the error stack of existing errors
 | 
						|
     * @param string  $level Set to a level name in order to retrieve only errors of a particular level
 | 
						|
     * @param boolean $merge Set to return a flat array, not organized by package
 | 
						|
     * @param array   $sortfunc Function used to sort a merged array - default
 | 
						|
     *        sorts by time, and should be good for most cases
 | 
						|
     *
 | 
						|
     * @return array 
 | 
						|
     */
 | 
						|
    public static function staticGetErrors(
 | 
						|
        $purge = false, $level = false, $merge = false,
 | 
						|
        $sortfunc = array('PEAR_ErrorStack', '_sortErrors')
 | 
						|
    ) {
 | 
						|
        $ret = array();
 | 
						|
        if (!is_callable($sortfunc)) {
 | 
						|
            $sortfunc = array('PEAR_ErrorStack', '_sortErrors');
 | 
						|
        }
 | 
						|
        foreach ($GLOBALS['_PEAR_ERRORSTACK_SINGLETON'] as $package => $obj) {
 | 
						|
            $test = $GLOBALS['_PEAR_ERRORSTACK_SINGLETON'][$package]->getErrors($purge, $level);
 | 
						|
            if ($test) {
 | 
						|
                if ($merge) {
 | 
						|
                    $ret = array_merge($ret, $test);
 | 
						|
                } else {
 | 
						|
                    $ret[$package] = $test;
 | 
						|
                }
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if ($merge) {
 | 
						|
            usort($ret, $sortfunc);
 | 
						|
        }
 | 
						|
        return $ret;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Error sorting function, sorts by time
 | 
						|
     * @access private
 | 
						|
     */
 | 
						|
    public static function _sortErrors($a, $b)
 | 
						|
    {
 | 
						|
        if ($a['time'] == $b['time']) {
 | 
						|
            return 0;
 | 
						|
        }
 | 
						|
        if ($a['time'] < $b['time']) {
 | 
						|
            return 1;
 | 
						|
        }
 | 
						|
        return -1;
 | 
						|
    }
 | 
						|
 | 
						|
    /**
 | 
						|
     * Standard file/line number/function/class context callback
 | 
						|
     *
 | 
						|
     * This function uses a backtrace generated from {@link debug_backtrace()}
 | 
						|
     * and so will not work at all in PHP < 4.3.0.  The frame should
 | 
						|
     * reference the frame that contains the source of the error.
 | 
						|
     * @return array|false either array('file' => file, 'line' => line,
 | 
						|
     *         'function' => function name, 'class' => class name) or
 | 
						|
     *         if this doesn't work, then false
 | 
						|
     * @param unused
 | 
						|
     * @param integer backtrace frame.
 | 
						|
     * @param array Results of debug_backtrace()
 | 
						|
     */
 | 
						|
    public static function getFileLine($code, $params, $backtrace = null)
 | 
						|
    {
 | 
						|
        if ($backtrace === null) {
 | 
						|
            return false;
 | 
						|
        }
 | 
						|
        $frame = 0;
 | 
						|
        $functionframe = 1;
 | 
						|
        if (!isset($backtrace[1])) {
 | 
						|
            $functionframe = 0;
 | 
						|
        } else {
 | 
						|
            while (isset($backtrace[$functionframe]['function']) &&
 | 
						|
                  $backtrace[$functionframe]['function'] == 'eval' &&
 | 
						|
                  isset($backtrace[$functionframe + 1])) {
 | 
						|
                $functionframe++;
 | 
						|
            }
 | 
						|
        }
 | 
						|
        if (isset($backtrace[$frame])) {
 | 
						|
            if (!isset($backtrace[$frame]['file'])) {
 | 
						|
                $frame++;
 | 
						|
            }
 | 
						|
            $funcbacktrace = $backtrace[$functionframe];
 | 
						|
            $filebacktrace = $backtrace[$frame];
 | 
						|
            $ret = array('file' => $filebacktrace['file'],
 | 
						|
                         'line' => $filebacktrace['line']);
 | 
						|
            // rearrange for eval'd code or create function errors
 | 
						|
            if (strpos($filebacktrace['file'], '(') && 
 | 
						|
            	  preg_match(';^(.*?)\((\d+)\) : (.*?)\\z;', $filebacktrace['file'],
 | 
						|
                  $matches)) {
 | 
						|
                $ret['file'] = $matches[1];
 | 
						|
                $ret['line'] = $matches[2] + 0;
 | 
						|
            }
 | 
						|
            if (isset($funcbacktrace['function']) && isset($backtrace[1])) {
 | 
						|
                if ($funcbacktrace['function'] != 'eval') {
 | 
						|
                    if ($funcbacktrace['function'] == '__lambda_func') {
 | 
						|
                        $ret['function'] = 'create_function() code';
 | 
						|
                    } else {
 | 
						|
                        $ret['function'] = $funcbacktrace['function'];
 | 
						|
                    }
 | 
						|
                }
 | 
						|
            }
 | 
						|
            if (isset($funcbacktrace['class']) && isset($backtrace[1])) {
 | 
						|
                $ret['class'] = $funcbacktrace['class'];
 | 
						|
            }
 | 
						|
            return $ret;
 | 
						|
        }
 | 
						|
        return false;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Standard error message generation callback
 | 
						|
     * 
 | 
						|
     * This method may also be called by a custom error message generator
 | 
						|
     * to fill in template values from the params array, simply
 | 
						|
     * set the third parameter to the error message template string to use
 | 
						|
     * 
 | 
						|
     * The special variable %__msg% is reserved: use it only to specify
 | 
						|
     * where a message passed in by the user should be placed in the template,
 | 
						|
     * like so:
 | 
						|
     * 
 | 
						|
     * Error message: %msg% - internal error
 | 
						|
     * 
 | 
						|
     * If the message passed like so:
 | 
						|
     * 
 | 
						|
     * <code>
 | 
						|
     * $stack->push(ERROR_CODE, 'error', array(), 'server error 500');
 | 
						|
     * </code>
 | 
						|
     * 
 | 
						|
     * The returned error message will be "Error message: server error 500 -
 | 
						|
     * internal error"
 | 
						|
     * @param PEAR_ErrorStack
 | 
						|
     * @param array
 | 
						|
     * @param string|false Pre-generated error message template
 | 
						|
     *
 | 
						|
     * @return string
 | 
						|
     */
 | 
						|
    public static function getErrorMessage(&$stack, $err, $template = false)
 | 
						|
    {
 | 
						|
        if ($template) {
 | 
						|
            $mainmsg = $template;
 | 
						|
        } else {
 | 
						|
            $mainmsg = $stack->getErrorMessageTemplate($err['code']);
 | 
						|
        }
 | 
						|
        $mainmsg = str_replace('%__msg%', $err['message'], $mainmsg);
 | 
						|
        if (is_array($err['params']) && count($err['params'])) {
 | 
						|
            foreach ($err['params'] as $name => $val) {
 | 
						|
                if (is_array($val)) {
 | 
						|
                    // @ is needed in case $val is a multi-dimensional array
 | 
						|
                    $val = @implode(', ', $val);
 | 
						|
                }
 | 
						|
                if (is_object($val)) {
 | 
						|
                    if (method_exists($val, '__toString')) {
 | 
						|
                        $val = $val->__toString();
 | 
						|
                    } else {
 | 
						|
                        PEAR_ErrorStack::staticPush('PEAR_ErrorStack', PEAR_ERRORSTACK_ERR_OBJTOSTRING,
 | 
						|
                            'warning', array('obj' => get_class($val)),
 | 
						|
                            'object %obj% passed into getErrorMessage, but has no __toString() method');
 | 
						|
                        $val = 'Object';
 | 
						|
                    }
 | 
						|
                }
 | 
						|
                $mainmsg = str_replace('%' . $name . '%', $val, $mainmsg);
 | 
						|
            }
 | 
						|
        }
 | 
						|
        return $mainmsg;
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Standard Error Message Template generator from code
 | 
						|
     * @return string
 | 
						|
     */
 | 
						|
    function getErrorMessageTemplate($code)
 | 
						|
    {
 | 
						|
        if (!isset($this->_errorMsgs[$code])) {
 | 
						|
            return '%__msg%';
 | 
						|
        }
 | 
						|
        return $this->_errorMsgs[$code];
 | 
						|
    }
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * Set the Error Message Template array
 | 
						|
     * 
 | 
						|
     * The array format must be:
 | 
						|
     * <pre>
 | 
						|
     * array(error code => 'message template',...)
 | 
						|
     * </pre>
 | 
						|
     * 
 | 
						|
     * Error message parameters passed into {@link push()} will be used as input
 | 
						|
     * for the error message.  If the template is 'message %foo% was %bar%', and the
 | 
						|
     * parameters are array('foo' => 'one', 'bar' => 'six'), the error message returned will
 | 
						|
     * be 'message one was six'
 | 
						|
     * @return string
 | 
						|
     */
 | 
						|
    function setErrorMessageTemplate($template)
 | 
						|
    {
 | 
						|
        $this->_errorMsgs = $template;
 | 
						|
    }
 | 
						|
    
 | 
						|
    
 | 
						|
    /**
 | 
						|
     * emulate PEAR::raiseError()
 | 
						|
     * 
 | 
						|
     * @return PEAR_Error
 | 
						|
     */
 | 
						|
    function raiseError()
 | 
						|
    {
 | 
						|
        require_once 'PEAR.php';
 | 
						|
        $args = func_get_args();
 | 
						|
        return call_user_func_array(array('PEAR', 'raiseError'), $args);
 | 
						|
    }
 | 
						|
}
 | 
						|
$stack = &PEAR_ErrorStack::singleton('PEAR_ErrorStack');
 | 
						|
$stack->pushCallback(array('PEAR_ErrorStack', '_handleError'));
 | 
						|
?>
 |