leftypol/inc/error.php

<?php
namespace Vichan;

class ErrorHandler {
	private bool $include_details;
	/**
	 * @var callable
	 */
	private mixed $logger_fn;

	private static function errnoToLogLevel(int $errno): int {
		switch ($errno) {
			default:
			case \E_ERROR:
			case \E_PARSE:
			case \E_CORE_ERROR:
			case \E_COMPILE_ERROR:
			case \E_RECOVERABLE_ERROR:
				return  \LOG_EMERG;
			case \E_USER_ERROR:
				return  \LOG_ERR;
			case \E_WARNING:
			case \E_CORE_WARNING:
			case \E_COMPILE_WARNING:
			case \E_USER_WARNING:
				return \LOG_WARNING;
			case \E_NOTICE:
			case \E_DEPRECATED:
			case \E_USER_NOTICE:
			case \E_USER_DEPRECATED:
				return \LOG_NOTICE;
		}
	}

	public static function handle_error(
		int $level,
		string $message,
		callable $logger,
		bool $display_details,
		?string $file,
		?int $line,
		?string $trace,
	): void {

	}

	private function default_logger(int $level, string $message) {
		global $config;

		if (isset($config['syslog']) && $config['syslog']) {
			_syslog($level, $message);
		} else {
			\error_log($message);
		}
	}

	public function setIncludeDetails(bool $include_details) {
		$this->include_details = $include_details;
		$this->logger_fn = [ __CLASS__, 'default_logger' ];
	}

	public function setLogger(?callable $logger_fn) {
		$this->logger_fn = $logger_fn !== null ? $logger_fn : [ __CLASS__, 'default_logger' ];
	}

	public function installGlobally() {
		$logger_fn = $this->logger_fn;
		$include_details = $this->include_details;

		\set_error_handler(function($errno, $errstr, $errfile, $errline) use ($logger_fn, $include_details) {
			$errno = \error_reporting() & $errno;
			if ($errno !== 0) {
				$level = self::errnoToLogLevel($errno);

				// https://stackoverflow.com/a/35930682
				$trace = (new \Exception)->getTraceAsString();
				self::handle_error($level, $errstr, $logger_fn, $include_details, $errfile, $errline, $trace);
			}
			return false;
		});

		\set_exception_handler(function($exception) use ($logger_fn, $include_details) {
			$message = $exception->getMessage();
			$file = $exception->getFile();
			$line = $exception->getLine();
			$trace = $exception->getTraceAsString();

			self::handle_error(\LOG_EMERG, $message, $logger_fn, $include_details, $file, $line, $trace);
		});

		\register_shutdown_function(function() use ($logger_fn, $include_details) {
			$error = \error_get_last();
			if ($error !== null) {
				$level = self::errnoToLogLevel($error['type']);
				$message = $error['message'];
				$file = $error['file'];
				$line = $error['line'];

				self::handle_error($level, $message, $logger_fn, $include_details, $file, $line, null);
			}
		});
	}
}

/**
 * Install a fancy error handler with the given logger.
 *
 * @param ?callable $logger Called when there is to log something. Use null to use the minimal default implementation.
 *                          The callable is invoke with two parameters, the first being the log level (integer), as
 *                          listed by the syslog constants, the second is the log message (string).
 *                          Consider that $config may not have been initialized yet.
 */
function install_error_handler(bool $basic, ?callable $logger_fn): void {
	global $config;

	$logger_fn ??= function($level, $message) use ($config) {
		if (isset($config['syslog']) && $config['syslog']) {
			_syslog($level, $message);
		} else {
			\error_log($message);
		}
	};

	if (!$basic) {
		\set_error_handler(function($errno, $errstr, $errfile, $errline) use ($config) {
			if (\error_reporting() & $errno) {
				$config['debug'] = true;
				\error("$errstr in $errfile at line $errline");
			}
			return false;
		});
	}
	return false;
}

function exception_handler($e) {
	error_log($e);
	error($e->getMessage());
}

set_exception_handler('exception_handler');

function fatal_error_handler() {
	if (($error = error_get_last()) && $error['type'] == E_ERROR) {
		error("Caught fatal error: {$error['message']} in {$error['file']} at line {$error['line']}");
	}
}

register_shutdown_function('fatal_error_handler');

// Due to composer autoload, this isn't implicitly global anymore
global $error_recursion;
$error_recursion = false;

function error($message, $priority = true, $debug_stuff = false) {
	global $board, $mod, $config, $db_error, $error_recursion;

	if($error_recursion !== false) {
		die("Error recursion detected with $message<br>Original error: $error_recursion");
	}

	$error_recursion = $message;

	if (defined('STDIN')) {
		// Running from CLI
		echo("Error: $message\n");
		debug_print_backtrace(DEBUG_BACKTRACE_IGNORE_ARGS);
		die();
	}

	if (!empty($config)) {
		if ($config['syslog'] && $priority !== false) {
			// Use LOG_NOTICE instead of LOG_ERR or LOG_WARNING because most error message are not significant.
			_syslog($priority !== true ? $priority : LOG_NOTICE, $message);
		}

		if ($config['debug']) {
			$debug_stuff = [];
			if (isset($db_error)) {
				$debug_stuff = array_combine([ 'SQLSTATE', 'Error code', 'Error message' ], $db_error);
			}
			$debug_stuff['backtrace'] = debug_backtrace();
			$pw = $config['db']['password'];
			$debug_callback = function($item) use (&$debug_callback, $pw) {
				if (is_array($item)) {
					$item = array_filter($item, $debug_callback);
				}
				return $item !== $pw || !$pw;
			};
			$debug_stuff = array_map($debug_callback, $debug_stuff);
		}
	}

	if (isset($_POST['json_response'])) {
		header('Content-Type: text/json; charset=utf-8');
		$data = [ 'error' => $message ];
		if (!empty($config) && $config['debug']) {
			$data['debug'] = $debug_stuff;
		}
		print json_encode($data);
		exit();
	}

	header("{$_SERVER['SERVER_PROTOCOL']} 500 Internal Server Error");

	die(Element('page.html', [
		'config' => $config,
		'title' => _('Error'),
		'subtitle' => _('An error has occured.'),
		'body' => Element('error.html', array(
			'config' => $config,
			'message' => $message,
			'mod' => $mod,
			'board' => isset($board) ? $board : false,
			'debug' => str_replace("\n", '&#10;', utf8tohtml(print_r($debug_stuff, true)))
		))
	]));
}