<?php
/*******************************************************************************
 * Copyright (C) 2007 Easter-eggs
 * https://ldapsaisie.org
 *
 * Author: See AUTHORS file in top-level directory.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License version 2
 * as published by the Free Software Foundation.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

******************************************************************************/

/**
 * Handle logging
 *
 * @author Benjamin Renard <brenard@easter-eggs.com>
 */
class LSlog {

  /**
   * Enable state
   * @var bool
   */
  private static $enabled = false;

  /**
   * Configured handlers
   * @see self::start()
   * @see self::add_handler()
   * @var array<int,LSlog_handler>
   */
  private static $handlers = array();

  /**
   * Default handlers (if not configured)
   * @see self::start()
   * @var array
   */
  private static $default_handlers = array(
    array (
      'handler' => 'file',
    ),
  );

  /**
   * Current level
   * @var string|null
   */
  private static $level;

  /**
   * Default level
   * @var string
   */
  private static $default_level = 'WARNING';

  /**
   * Available levels
   * @var array<string,int>
   */
  private static $levels = array(
    'TRACE' => 0,
    'DEBUG' => 1,
    'INFO' => 2,
    'WARNING' => 3,
    'ERROR' => 4,
    'FATAL' => 5,
  );

  /**
   * Current existing loggers
   * @var array<string,LSlog_logger>
   */
  private static $loggers = array();

  /**
   * Start/initialize logging
   *
   * @return bool True on success, False otherwise
   **/
  public static function start() {
    // Load configuration
    self :: $enabled = self :: getConfig('enable', false, 'bool');
    self :: setLevel();

    // Load default handlers class
    if (!LSsession :: loadLSclass('LSlog_handler', null, true)) {
      LSdebug('LSlog disabled');
      return False;
    }

    // Load handlers
    $handlers = self :: getConfig('handlers');
    if (!is_array($handlers)) $handlers = self :: $default_handlers;
    LSdebug($handlers, true);
    $debug_handlers = array();
    foreach($handlers as $handler => $handler_config) {
      if (!is_array($handler_config))
        $handler_config = array('handler' => $handler);
      else
        $handler = (isset($handler_config['handler'])?$handler_config['handler']:'system');

      if (!self :: add_handler($handler, $handler_config))
        continue;

      $debug_handlers[] = $handler;
    }
    LSdebug('LSlog enabled with level='.self :: $level.' and following handlers : '.implode(', ', $debug_handlers));

    set_exception_handler(array('LSlog', 'exception'));
    return True;
  }

  /**
   * Add handler
   *
   * @param string $handler The handler name
   * @param array $handler_config The handler configuration (optional)
   *
   * @return boolean True if handler added, false otherwise
   **/
  public static function add_handler($handler, $handler_config = array()) {
    if (!LSconfig :: get('enabled', true, 'bool', $handler_config))
      return true;
    $handler_class = "LSlog_$handler";

    // Load handler class
    if (!LSsession :: loadLSclass($handler_class) || !class_exists($handler_class)) {
      LSerror :: addErrorCode('LSlog_01', $handler);
      return false;
    }

    $handler_obj = new $handler_class($handler_config);
    if ($handler_obj -> checkCompatibility()) {
      self :: $handlers[] = $handler_obj;
      return True;
    }
    LSdebug("LSlog handler $handler not supported.");
    return false;
  }

  /**
   * Enable console handler (if not already enabled)
   *
   * @param string|null $level The log level of the console handler
   *
   * @return boolean True if log on console enabled, false otherwise
   **/
  public static function logOnConsole($level=null) {
    for ($i=0; $i < count(self :: $handlers); $i++) {
      if (is_a(self :: $handlers[$i], 'LSlog_console')) {
        if (!is_null($level))
          self :: $handlers[$i] -> setLevel($level);
        return true;
      }
    }
    return self :: add_handler('console', array('level' => $level));
  }

  /**
   * Disable console handler (if already enabled)
   *
   * @return void
   **/
  public static function disableLogOnConsole() {
    for ($i=0; $i < count(self :: $handlers); $i++) {
      if (is_a(self :: $handlers[$i], 'LSlog_console')) {
        LSlog :: debug('Remove console handler');
        unset(self :: $handlers[$i]);
      }
    }
  }

  /**
   * Set log level
   *
   * @param string|null $level The log level (optional, default: from configuration or 'WARNING')
   *
   * @return boolean True if log level set, false otherwise
   **/
  public static function setLevel($level=null) {
    if (!$level) {
      $level = self :: getConfig('level', self :: $default_level, 'string');
      if (!array_key_exists($level, self :: $levels)) {
        self :: $level = 'WARNING';
        if ($level)
          self :: warning("Invalid log level '$level' configured. Set log level to WARNING.");
        $level = 'WARNING';
      }
    }
    else if (!array_key_exists($level, self :: $levels))
      return false;
    self :: $level = $level;

    // Set PHP error/exception handlers
    if (in_array(self :: $level, array('DEBUG', 'TRACE')))
      set_error_handler(array('LSlog', 'php_error'), E_ALL & ~E_STRICT);
    else
      set_error_handler(array('LSlog', 'php_error'), E_ALL & ~E_NOTICE & ~E_STRICT & ~E_DEPRECATED);
    return True;
  }

  /**
   * Get a configuration variable value
   *
   * @param string $var The configuration variable name
   * @param mixed $default The default value to return if configuration variable
   *                           is not set (Default : null)
   * @param string $cast   The type of expected value. The configuration variable
   *                           value will be cast as this type. Could be : bool, int,
   *                           float or string. (Optional, default : raw value)
   *
   * @return mixed The configuration variable value
   **/
  public static function getConfig($var, $default=null, $cast=null) {
    return LSconfig :: get($var, $default, $cast, ((isset($GLOBALS['LSlog']) && is_array($GLOBALS['LSlog']))?$GLOBALS['LSlog']:array()));
  }

  /**
   * Log a message
   *
   * @param string $level The message level
   * @param string $message The message
   * @param string|null $logger The logger name (optional, default: null)
   *
   * @return void
   **/
  public static function logging($level, $message, $logger=null) {
    // Check LSlog is enabled
    if (!self :: $enabled)
      return;

    // Check/fix level
    if (!array_key_exists($level, self :: $levels))
      $level = self :: $default_level;

    // Handle non-string message
    if (!is_string($message)) {
      if (is_object($message) && method_exists($message, '__toString'))
        $message = strval($message);
      else
        $message = varDump($message);
    }

    foreach (self :: $handlers as $handler) {
      // Check handler level
      if (!$handler -> checkLevel($level))
        continue;
      // Check handler logger filters
      if (!$handler -> checkLogger($logger))
        continue;

      // Logging on this handler
      call_user_func(array($handler, 'logging'), $level, $message, $logger);
    }

    if ($level == 'FATAL') {
      if (php_sapi_name() == "cli")
        die($message);
      elseif (class_exists('LStemplate'))
        LStemplate :: fatal_error($message);
      else
        die($message);
    }
  }

  /**
   * Check level against configured level
   *
   * @param string $level The level
   * @param string|null $configured_level The configured level (optional, default : self :: $level)
   *
   * @return bool True if a message with this level have to be logged, False otherwise
   **/
  public static function checkLevel($level, $configured_level=null) {
    if (is_null($configured_level) || !array_key_exists($configured_level, self :: $levels))
      $configured_level = self :: $level;

    // On unknown level, use default level
    if (!array_key_exists($level, self :: $levels))
      $level = self :: $default_level;

    return (self :: $levels[$level] >= self :: $levels[$configured_level]);
  }

  /**
   * Check if a log level exists
   *
   * @param string $level The level
   *
   * @return bool True if the specified log level exists, False otherwise
   **/
  public static function checkLevelExists($level) {
    return array_key_exists($level, self :: $levels);
  }

  /*
   * PHP error logging helpers
   */

  /**
   * Generate current context backtrace
   *
   * @return string Current context backtrace
   **/
  public static function get_debug_backtrace_context() {
    $traces = debug_backtrace();
    if (!is_array($traces) || count($traces) < 2)
      return "unknown context";

    $msg = array();
    $j=0;
    for ($i=count($traces)-1; $i >= 1; $i--) {
      $j += 1;
      $trace = array("#$j");
      if (isset($traces[$i]['file']))
        $trace[] = $traces[$i]['file'].(isset($traces[$i]['line'])?":".$traces[$i]['line']:"");
      if (isset($traces[$i]['class']) && isset($traces[$i]['function']))
        $trace[] = $traces[$i]['class'] . " " . $traces[$i]['type'] . " " . $traces[$i]['function']. "()";
      elseif (isset($traces[$i]['function']))
        $trace[] = $traces[$i]['function']. "()";
      $msg[] = implode(" - ", $trace);
    }

    return implode("\n", $msg);
  }

  /**
   * Log an exception
   *
   * Could be used as PHP set_exception_handler callable
    * @see https://www.php.net/set_exception_handler
   *
   * @param Exception $exception The exception to log
   * @param string|null $prefix Custom message prefix (optional, default: "An exception occured :\n")
   * @param boolean $fatal Log exception as a fatal error (optional, default: true)
   * @param string|null $logger The logger name (optional, default: null)
   *
   * @return void
   **/
  public static function exception($exception, $prefix=null, $fatal=true, $logger=null) {
    $message =
      ($prefix?"$prefix :\n":"An exception occured :\n").
      self :: get_debug_backtrace_context(). "\n" .
      "## ".$exception->getFile().":".$exception->getLine(). " : ". $exception->getMessage();
    if (is_null($logger))
      self :: logging(($fatal?'FATAL':'ERROR'), $message);
    else
      self :: logging(($fatal?'FATAL':'ERROR'), $message, $logger);
  }

  /**
   * PHP set_error_handler helper
   *
   * @see https://www.php.net/set_error_handler
   **/
  public static function php_error($errno, $errstr, $errfile, $errline) {
    $errnos2error = array (
      1       => "ERROR",
      2       => "WARNING",
      4       => "PARSE",
      8       => "NOTICE",
      16      => "CORE_ERROR",
      32      => "CORE_WARNING",
      64      => "COMPILE_ERROR",
      128     => "COMPILE_WARNING",
      256     => "USER_ERROR",
      512     => "USER_WARNING",
      1024    => "USER_NOTICE",
      2048    => "STRICT",
      4096    => "RECOVERABLE_ERROR",
      8192    => "DEPRECATED",
      16384   => "USER_DEPRECATED",
      32767   => "ALL",
    );

    $errors2level = array (
      "ERROR"              => "ERROR",
      "WARNING"            => "WARNING",
      "PARSE"              => "FATAL",
      "NOTICE"             => "INFO",
      "CORE_ERROR"         => "ERROR",
      "CORE_WARNING"       => "WARNING",
      "COMPILE_ERROR"      => "ERROR",
      "COMPILE_WARNING"    => "WARNING",
      "USER_ERROR"         => "ERROR",
      "USER_WARNING"       => "WARNING",
      "USER_NOTICE"        => "INFO",
      "STRICT"             => "WARNING",
      "RECOVERABLE_ERROR"  => "WARNING",
      "DEPRECATED"         => "DEBUG",
      "USER_DEPRECATED"    => "DEBUG",
      "ALL"                => "ERROR",
      "UNKNOWN"            => "ERROR",
    );
    $error = (isset($errnos2error[$errno])?$errnos2error[$errno]:'UNKNOWN');
    $level = (isset($errors2level[$error])?$errors2level[$error]:'ERROR');
    self :: logging($level, "A PHP $error occured (#$errno) : $errstr [$errfile:$errline]");
    return False;
  }

  /**
    * Get logger for a specific name
    *
    * @param string $name The logger name
    *
    * @return LSlog_logger The logger
    **/
  public static function &get_logger($name) {
    if (!LSsession :: loadLSclass('LSlog_logger'))
      self :: fatal('Fail to load LSlog_logger class.');
    if (isset(self :: $loggers[$name]))
      return self :: $loggers[$name];
    self :: $loggers[$name] = new LSlog_logger(
      $name,
      self :: getConfig("loggers.$name", array())
    );
    return self :: $loggers[$name];
  }

  /*
   * Public logging methods
   */

  /**
   * Log a message with level TRACE
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function trace($message) {
    self :: logging('TRACE', $message);
  }

  /**
   * Log a message with level DEBUG
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function debug($message) {
    self :: logging('DEBUG', $message);
  }

  /**
   * Log a message with level INFO
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function info($message) {
    self :: logging('INFO', $message);
  }

  /**
   * Log a message with level WARNING
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function warning($message) {
    self :: logging('WARNING', $message);
  }

  /**
   * Log a message with level ERROR
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function error($message) {
    self :: logging('ERROR', $message);
  }

  /**
   * Log a message with level FATAL
   *
   * @param string $message The message to log
   *
   * @return void
   **/
  public static function fatal($message) {
    self :: logging('FATAL', $message);
  }
}

/**
 * Error Codes
 */
LSerror :: defineError('LSlog_01',
___("LSlog : Fail to load logging handler %{handler}.")
);