friendica-addons/rendertime/rendertime.php

<?php
/**
 * Name: rendertime
 * Description: Shows the time that was needed to render the current page
 * Version: 0.1
 * Author: Michael Vogel <http://pirati.ca/profile/heluecht>
 *
 */
use Friendica\Core\Addon;
use Friendica\Core\Config;
use Friendica\Core\L10n;

function rendertime_install() {
	Addon::registerHook('page_end', 'addon/rendertime/rendertime.php', 'rendertime_page_end');
}


function rendertime_uninstall() {
	Addon::unregisterHook('init_1', 'addon/rendertime/rendertime.php', 'rendertime_init_1');
	Addon::unregisterHook('page_end', 'addon/rendertime/rendertime.php', 'rendertime_page_end');
}

function rendertime_init_1(&$a) {
}

function rendertime_page_end(&$a, &$o) {

	$duration = microtime(true)-$a->performance["start"];

	$ignored_modules = ["fbrowser"];
	$ignored = in_array($a->module, $ignored_modules);

	if (is_site_admin() && ($_GET["mode"] != "minimal") && !$a->is_mobile && !$a->is_tablet && !$ignored) {
		$o = $o.'<div class="renderinfo">'. L10n::t("Database: %s/%s, Network: %s, Rendering: %s, Session: %s, I/O: %s, Other: %s, Total: %s",
			round($a->performance["database"] - $a->performance["database_write"], 3),
			round($a->performance["database_write"], 3),
			round($a->performance["network"], 2),
			round($a->performance["rendering"], 2),
			round($a->performance["parser"], 2),
			round($a->performance["file"], 2),
			round($duration - $a->performance["database"]
					- $a->performance["network"] - $a->performance["rendering"]
					- $a->performance["parser"] - $a->performance["file"], 2),
			round($duration, 2)
			//round($a->performance["markstart"], 3)
			//round($a->performance["plugin"], 3)
			)."</div>";

		if (Config::get("rendertime", "callstack")) {
			$o .= "<pre>";
			$o .= "\nDatabase Read:\n";
			foreach ($a->callstack["database"] AS $func => $time) {
				$time = round($time, 3);
				if ($time > 0)
					$o .= $func.": ".$time."\n";
			}
			$o .= "\nDatabase Write:\n";
			foreach ($a->callstack["database_write"] AS $func => $time) {
				$time = round($time, 3);
				if ($time > 0)
					$o .= $func.": ".$time."\n";
			}

			$o .= "\nNetwork:\n";
			foreach ($a->callstack["network"] AS $func => $time) {
				$time = round($time, 3);
				if ($time > 0)
					$o .= $func.": ".$time."\n";
			}

			$o .= "</pre>";
		}
	}
}