From: <lkn...@us...> - 2006-12-31 17:58:30
|
Author: lkneschke Date: Sun Dec 31 18:54:44 2006 New Revision: 23162 URL: http://www.egroupware.org/viewvc?rev=3D3D23162&view=3D3Drev Log: Initial import of egw-pear Added: trunk/egw-pear/ trunk/egw-pear/HTTP/ trunk/egw-pear/Log/ trunk/egw-pear/Log.php trunk/egw-pear/Net/ trunk/egw-pear/setup/ Added: trunk/egw-pear/Log.php URL: http://www.egroupware.org/viewvc/trunk/egw-pear/Log.php?rev=3D3D23162&= vi=3D ew=3D3Dauto =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D= =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D= =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D= =3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D3D=3D =3D3D=3D3D=3D3D --- trunk/egw-pear/Log.php (added) +++ trunk/egw-pear/Log.php Sun Dec 31 18:54:44 2006 @@ -1,0 +1,824 @@ +<?php +/** + * $Header: /repository/pear/Log/Log.php,v 1.64 2006/10/08 23:03:15 jon Ex= =3D p $ + * $Horde: horde/lib/Log.php,v 1.15 2000/06/29 23:39:45 jon Exp $ + * + * @version $Revision: 1.64 $ + * @package Log + */ + +define('PEAR_LOG_EMERG', 0); /** System is unusable */ +define('PEAR_LOG_ALERT', 1); /** Immediate action required */ +define('PEAR_LOG_CRIT', 2); /** Critical conditions */ +define('PEAR_LOG_ERR', 3); /** Error conditions */ +define('PEAR_LOG_WARNING', 4); /** Warning conditions */ +define('PEAR_LOG_NOTICE', 5); /** Normal but significant */ +define('PEAR_LOG_INFO', 6); /** Informational */ +define('PEAR_LOG_DEBUG', 7); /** Debug-level messages */ + +define('PEAR_LOG_ALL', bindec('11111111')); /** All messages */ +define('PEAR_LOG_NONE', bindec('00000000')); /** No message */ + +/* Log types for PHP's native error_log() function. */ +define('PEAR_LOG_TYPE_SYSTEM', 0); /** Use PHP's system logger */ +define('PEAR_LOG_TYPE_MAIL', 1); /** Use PHP's mail() function */ +define('PEAR_LOG_TYPE_DEBUG', 2); /** Use PHP's debugging connection */ +define('PEAR_LOG_TYPE_FILE', 3); /** Append to a file */ + +/** + * The Log:: class implements both an abstraction for various logging + * mechanisms and the Subject end of a Subject-Observer pattern. + * + * @author Chuck Hagenbuch <ch...@ho...> + * @author Jon Parise <jo...@ph...> + * @since Horde 1.3 + * @package Log + */ +class Log +{ + /** + * Indicates whether or not the log can been opened / connected. + * + * @var boolean + * @access private + */ + var $_opened =3D3D false; + + /** + * Instance-specific unique identification number. + * + * @var integer + * @access private + */ + var $_id =3D3D 0; + + /** + * The label that uniquely identifies this set of log messages. + * + * @var string + * @access private + */ + var $_ident =3D3D ''; + + /** + * The default priority to use when logging an event. + * + * @var integer + * @access private + */ + var $_priority =3D3D PEAR_LOG_INFO; + + /** + * The bitmask of allowed log levels. + * + * @var integer + * @access private + */ + var $_mask =3D3D PEAR_LOG_ALL; + + /** + * Holds all Log_observer objects that wish to be notified of new mess= =3D ages. + * + * @var array + * @access private + */ + var $_listeners =3D3D array(); + + /** + * Maps canonical format keys to position arguments for use in building + * "line format" strings. + * + * @var array + * @access private + */ + var $_formatMap =3D3D array('%{timestamp}' =3D3D> '%1$s', + '%{ident}' =3D3D> '%2$s', + '%{priority}' =3D3D> '%3$s', + '%{message}' =3D3D> '%4$s', + '%{file}' =3D3D> '%5$s', + '%{line}' =3D3D> '%6$s', + '%{function}' =3D3D> '%7$s', + '%\{' =3D3D> '%%{'); + + + /** + * Attempts to return a concrete Log instance of type $handler. + * + * @param string $handler The type of concrete Log subclass to retur= =3D n=2E + * Attempt to dynamically include the code for + * this subclass. Currently, valid values are + * 'console', 'syslog', 'sql', 'file', and 'm= =3D cal'. + * + * @param string $name The name of the actually log file, table, = =3D or + * other specific store to use. Defaults to an + * empty string, with which the subclass will + * attempt to do something intelligent. + * + * @param string $ident The identity reported to the log system. + * + * @param array $conf A hash containing any additional configura= =3D tion + * information that a subclass might need. + * + * @param int $level Log messages up to and including this leve= =3D l=2E + * + * @return object Log The newly created concrete Log instance, or + * null on an error. + * @access public + * @since Log 1.0 + */ + function &factory($handler, $name =3D3D '', $ident =3D3D '', $conf =3D= 3D arr=3D ay(), + $level =3D3D PEAR_LOG_DEBUG) + { + $handler =3D3D strtolower($handler); + $class =3D3D 'Log_' . $handler; + $classfile =3D3D 'Log/' . $handler . '.php'; + + /* + * Attempt to include our version of the named class, but don't tr= =3D eat + * a failure as fatal. The caller may have already included their= =3D own + * version of the named class. + */ + if (!class_exists($class)) { + include_once $classfile; + } + + /* If the class exists, return a new instance of it. */ + if (class_exists($class)) { + $obj =3D3D &new $class($name, $ident, $conf, $level); + return $obj; + } + + $null =3D3D null; + return $null; + } + + /** + * Attempts to return a reference to a concrete Log instance of type + * $handler, only creating a new instance if no log instance with the = =3D same + * parameters currently exists. + * + * You should use this if there are multiple places you might create a + * logger, you don't want to create multiple loggers, and you don't wa= =3D nt to + * check for the existance of one each time. The singleton pattern doe= =3D s all + * the checking work for you. + * + * <b>You MUST call this method with the $var =3D3D &Log::singleton() = sy=3D ntax. + * Without the ampersand (&) in front of the method name, you will not= =3D get + * a reference, you will get a copy.</b> + * + * @param string $handler The type of concrete Log subclass to retur= =3D n=2E + * Attempt to dynamically include the code for + * this subclass. Currently, valid values are + * 'console', 'syslog', 'sql', 'file', and 'm= =3D cal'. + * + * @param string $name The name of the actually log file, table, = =3D or + * other specific store to use. Defaults to = =3D an + * empty string, with which the subclass will + * attempt to do something intelligent. + * + * @param string $ident The identity reported to the log system. + * + * @param array $conf A hash containing any additional configura= =3D tion + * information that a subclass might need. + * + * @param int $level Log messages up to and including this leve= =3D l=2E + * + * @return object Log The newly created concrete Log instance, or + * null on an error. + * @access public + * @since Log 1.0 + */ + function &singleton($handler, $name =3D3D '', $ident =3D3D '', $conf = =3D3D a=3D rray(), + $level =3D3D PEAR_LOG_DEBUG) + { + static $instances; + if (!isset($instances)) $instances =3D3D array(); + + $signature =3D3D serialize(array($handler, $name, $ident, $conf, $= le=3D vel)); + if (!isset($instances[$signature])) { + $instances[$signature] =3D3D &Log::factory($handler, $name, $i= de=3D nt, + $conf, $level); + } + + return $instances[$signature]; + } + + /** + * Abstract implementation of the open() method. + * @since Log 1.0 + */ + function open() + { + return false; + } + + /** + * Abstract implementation of the close() method. + * @since Log 1.0 + */ + function close() + { + return false; + } + + /** + * Abstract implementation of the flush() method. + * @since Log 1.8.2 + */ + function flush() + { + return false; + } + + /** + * Abstract implementation of the log() method. + * @since Log 1.0 + */ + function log($message, $priority =3D3D null) + { + return false; + } + + /** + * A convenience function for logging a emergency event. It will log a + * message at the PEAR_LOG_EMERG log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function emerg($message) + { + return $this->log($message, PEAR_LOG_EMERG); + } + + /** + * A convenience function for logging an alert event. It will log a + * message at the PEAR_LOG_ALERT log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function alert($message) + { + return $this->log($message, PEAR_LOG_ALERT); + } + + /** + * A convenience function for logging a critical event. It will log a + * message at the PEAR_LOG_CRIT log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function crit($message) + { + return $this->log($message, PEAR_LOG_CRIT); + } + + /** + * A convenience function for logging a error event. It will log a + * message at the PEAR_LOG_ERR log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function err($message) + { + return $this->log($message, PEAR_LOG_ERR); + } + + /** + * A convenience function for logging a warning event. It will log a + * message at the PEAR_LOG_WARNING log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function warning($message) + { + return $this->log($message, PEAR_LOG_WARNING); + } + + /** + * A convenience function for logging a notice event. It will log a + * message at the PEAR_LOG_NOTICE log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function notice($message) + { + return $this->log($message, PEAR_LOG_NOTICE); + } + + /** + * A convenience function for logging a information event. It will lo= =3D g a + * message at the PEAR_LOG_INFO log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function info($message) + { + return $this->log($message, PEAR_LOG_INFO); + } + + /** + * A convenience function for logging a debug event. It will log a + * message at the PEAR_LOG_DEBUG log level. + * + * @param mixed $message String or object containing the message + * to log. + * + * @return boolean True if the message was successfully logged. + * + * @access public + * @since Log 1.7.0 + */ + function debug($message) + { + return $this->log($message, PEAR_LOG_DEBUG); + } + + /** + * Returns the string representation of the message data. + * + * If $message is an object, _extractMessage() will attempt to extract + * the message text using a known method (such as a PEAR_Error object's + * getMessage() method). If a known method, cannot be found, the + * serialized representation of the object will be returned. + * + * If the message data is already a string, it will be returned unchan= =3D ged. + * + * @param mixed $message The original message data. This may be a + * string or any object. + * + * @return string The string representation of the message. + * + * @access private + */ + function _extractMessage($message) + { + /* + * If we've been given an object, attempt to extract the message u= =3D sing + * a known method. If we can't find such a method, default to the + * "human-readable" version of the object. + * + * We also use the human-readable format for arrays. + */ + if (is_object($message)) { + if (method_exists($message, 'getmessage')) { + $message =3D3D $message->getMessage(); + } else if (method_exists($message, 'tostring')) { + $message =3D3D $message->toString(); + } else if (method_exists($message, '__tostring')) { + if (version_compare(PHP_VERSION, '5.0.0', 'ge')) { + $message =3D3D (string)$message; + } else { + $message =3D3D $message->__toString(); + } + } else { + $message =3D3D print_r($message, true); + } + } else if (is_array($message)) { + if (isset($message['message'])) { + $message =3D3D $message['message']; + } else { + $message =3D3D print_r($message, true); + } + } + + /* Otherwise, we assume the message is a string. */ + return $message; + } + + /** + * Using debug_backtrace(), returns the file, line, and enclosing func= =3D tion + * name of the source code context from which log() was invoked. + * + * @param int $depth The initial number of frames we should step + * back into the trace. + * + * @return array Array containing three strings: the filename, the = =3D line, + * and the function name from which log() was called. + * + * @access private + * @since Log 1.9.4 + */ + function _getBacktraceVars($depth) + { + /* Start by generating a backtrace from the current call (here). */ + $backtrace =3D3D debug_backtrace(); + + /* + * If we were ultimately invoked by the composite handler, we need= =3D to + * increase our depth one additional level to compensate. + */ + if (strcasecmp(@$backtrace[$depth+1]['class'], 'Log_composite') = =3D =3D3D=3D3D 0) { + $depth++; + } + + /* + * We're interested in the frame which invoked the log() function,= =3D so + * we need to walk back some number of frames into the backtrace. = =3D The + * $depth parameter tells us where to start looking. We go one s= =3D tep + * further back to find the name of the encapsulating function from + * which log() was called. + */ + $file =3D3D @$backtrace[$depth]['file']; + $line =3D3D @$backtrace[$depth]['line']; + $func =3D3D @$backtrace[$depth + 1]['function']; + + /* + * However, if log() was called from one of our "shortcut" functio= =3D ns, + * we're going to need to go back an additional step. + */ + if (in_array($func, array('emerg', 'alert', 'crit', 'err', 'warnin= =3D g', + 'notice', 'info', 'debug'))) { + $file =3D3D @$backtrace[$depth + 1]['file']; + $line =3D3D @$backtrace[$depth + 1]['line']; + $func =3D3D @$backtrace[$depth + 2]['function']; + } + + /* + * If we couldn't extract a function name (perhaps because we were + * executed from the "main" context), provide a default value. + */ + if (is_null($func)) { + $func =3D3D '(none)'; + } + + /* Return a 3-tuple containing (file, line, function). */ + return array($file, $line, $func); + } + + /** + * Produces a formatted log line based on a format string and a set of + * variables representing the current log record and state. + * + * @return string Formatted log string. + * + * @access private + * @since Log 1.9.4 + */ + function _format($format, $timestamp, $priority, $message) + { + /* + * If the format string references any of the backtrace-driven + * variables (%5, %6, %7), generate the backtrace and fetch them. + */ + if (strpos($format, '%5') || strpos($format, '%6') || strpos($form= =3D at, '%7')) { + list($file, $line, $func) =3D3D $this->_getBacktraceVars(2); + } + + /* + * Build the formatted string. We use the sprintf() function's + * "argument swapping" capability to dynamically select and positi= =3D on + * the variables which will ultimately appear in the log string. + */ + return sprintf($format, + $timestamp, + $this->_ident, + $this->priorityToString($priority), + $message, + isset($file) ? $file : '', + isset($line) ? $line : '', + isset($func) ? $func : ''); + } + + /** + * Returns the string representation of a PEAR_LOG_* integer constant. + * + * @param int $priority A PEAR_LOG_* integer constant. + * + * @return string The string representation of $level. + * + * @since Log 1.0 + */ + function priorityToString($priority) + { + $levels =3D3D array( + PEAR_LOG_EMERG =3D3D> 'emergency', + PEAR_LOG_ALERT =3D3D> 'alert', + PEAR_LOG_CRIT =3D3D> 'critical', + PEAR_LOG_ERR =3D3D> 'error', + PEAR_LOG_WARNING =3D3D> 'warning', + PEAR_LOG_NOTICE =3D3D> 'notice', + PEAR_LOG_INFO =3D3D> 'info', + PEAR_LOG_DEBUG =3D3D> 'debug' + ); + + return $levels[$priority]; + } + + /** + * Returns the the PEAR_LOG_* integer constant for the given string + * representation of a priority name. This function performs a + * case-insensitive search. + * + * @param string $name String containing a priority name. + * + * @return string The PEAR_LOG_* integer contstant correspon= =3D ding + * the the specified priority name. + * + * @since Log 1.9.0 + */ + function stringToPriority($name) + { + $levels =3D3D array( + 'emergency' =3D3D> PEAR_LOG_EMERG, + 'alert' =3D3D> PEAR_LOG_ALERT, + 'critical' =3D3D> PEAR_LOG_CRIT, + 'error' =3D3D> PEAR_LOG_ERR, + 'warning' =3D3D> PEAR_LOG_WARNING, + 'notice' =3D3D> PEAR_LOG_NOTICE, + 'info' =3D3D> PEAR_LOG_INFO, + 'debug' =3D3D> PEAR_LOG_DEBUG + ); + + return $levels[strtolower($name)]; + } + + /** + * Calculate the log mask for the given priority. + * + * This method may be called statically. + * + * @param integer $priority The priority whose mask will be calcul= =3D ated. + * + * @return integer The calculated log mask. + * + * @access public + * @since Log 1.7.0 + */ + function MASK($priority) + { + return (1 << $priority); + } + + /** + * Calculate the log mask for all priorities up to the given priority. + * + * This method may be called statically. + * + * @param integer $priority The maximum priority covered by this m= =3D ask. + * + * @return integer The resulting log mask. + * + * @access public + * @since Log 1.7.0 + * + * @deprecated deprecated since Log 1.9.4; use Log::MAX() instead + */ + function UPTO($priority) + { + return Log::MAX($priority); + } + + /** + * Calculate the log mask for all priorities greater than or equal to = =3D the + * given priority. In other words, $priority will be the lowest prior= =3D ity + * matched by the resulting mask. + * + * This method may be called statically. + * + * @param integer $priority The minimum priority covered by this m= =3D ask. + * + * @return integer The resulting log mask. + * + * @access public + * @since Log 1.9.4 + */ + function MIN($priority) + { + return PEAR_LOG_ALL ^ ((1 << $priority) - 1); + } + + /** + * Calculate the log mask for all priorities less than or equal to the + * given priority. In other words, $priority will be the highests pri= =3D ority + * matched by the resulting mask. + * + * This method may be called statically. + * + * @param integer $priority The maximum priority covered by this m= =3D ask. + * + * @return integer The resulting log mask. + * + * @access public + * @since Log 1.9.4 + */ + function MAX($priority) + { + return ((1 << ($priority + 1)) - 1); + } + + /** + * Set and return the level mask for the current Log instance. + * + * @param integer $mask A bitwise mask of log levels. + * + * @return integer The current level mask. + * + * @access public + * @since Log 1.7.0 + */ + function setMask($mask) + { + $this->_mask =3D3D $mask; + + return $this->_mask; + } + + /** + * Returns the current level mask. + * + * @return interger The current level mask. + * + * @access public + * @since Log 1.7.0 + */ + function getMask() + { + return $this->_mask; + } + + /** + * Check if the given priority is included in the current level mask. + * + * @param integer $priority The priority to check. + * + * @return boolean True if the given priority is included in the curr= =3D ent + * log mask. + * + * @access private + * @since Log 1.7.0 + */ + function _isMasked($priority) + { + return (Log::MASK($priority) & $this->_mask); + } + + /** + * Returns the current default priority. + * + * @return integer The current default priority. + * + * @access public + * @since Log 1.8.4 + */ + function getPriority() + { + return $this->_priority; + } + + /** + * Sets the default priority to the specified value. + * + * @param integer $priority The new default priority. + * + * @access public + * @since Log 1.8.4 + */ + function setPriority($priority) + { + $this->_priority =3D3D $priority; + } + + /** + * Adds a Log_observer instance to the list of observers that are list= =3D ening + * for messages emitted by this Log instance. + * + * @param object $observer The Log_observer instance to attach as= =3D a + * listener. + * + * @param boolean True if the observer is successfully attached. + * + * @access public + * @since Log 1.0 + */ + function attach(&$observer) + { + if (!is_a($observer, 'Log_observer')) { + return false; + } + + $this->_listeners[$observer->_id] =3D3D &$observer; + + return true; + } + + /** + * Removes a Log_observer instance from the list of observers. + * + * @param object $observer The Log_observer instance to detach fr= =3D om + * the list of listeners. + * + * @param boolean True if the observer is successfully detached. + * + * @access public + * @since Log 1.0 + */ + function detach($observer) + { + if (!is_a($observer, 'Log_observer') || + !isset($this->_listeners[$observer->_id])) { + return false; + } + + unset($this->_listeners[$observer->_id]); + + return true; + } + + /** + * Informs each registered observer instance that a new message has be= =3D en + * logged. + * + * @param array $event A hash describing the log event. + * + * @access private + */ + function _announce($event) + { + foreach ($this->_listeners as $id =3D3D> $listener) { + if ($event['priority'] <=3D3D $this->_listeners[$id]->_priorit= y)=3D { + $this->_listeners[$id]->notify($event); + } + } + } + + /** + * Indicates whether this is a composite class. + * + * @return boolean True if this is a composite class. + * + * @access public + * @since Log 1.0 + */ + function isComposite() + { + return false; + } + + /** + * Sets this Log instance's identification string. + * + * @param string $ident The new identification string. + * + * @access public + * @since Log 1.6.3 + */ + function setIdent($ident) + { + $this->_ident =3D3D $ident; + } + + /** + * Returns the current identification string. + * + * @return string The current Log instance's identification string. + * + * @access public + * @since Log 1.6.3 + */ + function getIdent() + { + return $this->_ident; + } +} |