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'));
 | |
| ?>
 |