<?php
/**
 * Show profiling data.
 *
 * Copyright 2005 Kate Turner.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 *
 * @file
 */

ini_set( 'zlib.output_compression', 'off' );

$wgEnableProfileInfo = $wgProfileToDatabase = false;
if ( isset( $_SERVER['MW_COMPILED'] ) ) {
	require ( 'core/includes/WebStart.php' );
} else {
	require ( __DIR__ . '/includes/WebStart.php' );
}


header( 'Content-Type: text/html; charset=utf-8' );

?>
<html>
<head>
<title>Profiling data</title>
<style type="text/css">
	th {
		text-align: left;
		border-bottom: solid 1px black;
	}

	th, td {
		padding-left: 0.5em;
		padding-right: 0.5em;
	}

	td.timep, td.memoryp, td.count, td.cpr, td.tpc, td.mpc, td.tpr, td.mpr {
		text-align: right;
	}
	td.timep, td.tpc, td.tpr {
		background-color: #ffff80;
	}
	td.memoryp, td.mpc, td.mpr {
		background-color: #80f8ff;
	}
	td.count, td,cpr {
		background-color: #80ff80;
	}
	td.name {
		background-color: #89f9f9;
	}

	tr:hover {
		font-weight: bold;
	}
</style>
</head>
<body>
<?php

if ( !$wgEnableProfileInfo ) {
	echo "<p>Disabled</p>\n";
	echo "</body></html>";
	exit( 1 );
}

$dbr = wfGetDB( DB_SLAVE );

if( !$dbr->tableExists( 'profiling' ) ) {
	echo "<p>No 'profiling' table exists, so we can't show you anything.</p>\n";
	echo "<p>If you want to log profiling data, create the table using "
		. "<tt>maintenance/archives/patch-profiling.sql</tt> and enable "
		. "<tt>\$wgProfileToDatabase</tt>.</p>\n";
	echo "</body></html>";
	exit( 1 );
}

$expand = array();
if ( isset( $_REQUEST['expand'] ) )
	foreach( explode( ',', $_REQUEST['expand'] ) as $f )
		$expand[$f] = true;

class profile_point {
	var $name;
	var $count;
	var $time;
	var $children;

	static $totaltime, $totalmemory, $totalcount;

	function __construct( $name, $count, $time, $memory ) {
		$this->name = $name;
		$this->count = $count;
		$this->time = $time;
		$this->memory = $memory;
		$this->children = array();
	}

	function add_child( $child ) {
		$this->children[] = $child;
	}

	function display( $expand, $indent = 0.0 ) {
		usort( $this->children, 'compare_point' );

		$ex = isset( $expand[$this->name()] );

		if ( !$ex ) {
			if ( count( $this->children ) ) {
				$url = getEscapedProfileUrl( false, false, $expand + array( $this->name() => true ) );
				$extet = " <a href=\"$url\">[+]</a>";
			} else {
				$extet = '';
			}
		} else {
			$e = array();
			foreach ( $expand as $name => $ep ) {
				if ( $name != $this->name() ) {
					$e += array( $name => $ep );
				}
			}

			$extet = " <a href=\"" . getEscapedProfileUrl( false, false, $e ) . "\">[–]</a>";
		}
		?>
		<tr>
		<td class="name" style="padding-left: <?php echo $indent ?>em;">
			<?php echo htmlspecialchars( $this->name() ) . $extet ?>
		</td>
		<td class="timep"><?php echo @wfPercent( $this->time() / self::$totaltime * 100 ) ?></td>
		<td class="memoryp"><?php echo @wfPercent( $this->memory() / self::$totalmemory * 100 ) ?></td>
		<td class="count"><?php echo $this->count() ?></td>
		<td class="cpr"><?php echo round( sprintf( '%.2f', $this->callsPerRequest() ), 2 ) ?></td>
		<td class="tpc"><?php echo round( sprintf( '%.2f', $this->timePerCall() ), 2 ) ?></td>
		<td class="mpc"><?php echo round( sprintf( '%.2f' ,$this->memoryPerCall() / 1024 ), 2 ) ?></td>
		<td class="tpr"><?php echo @round( sprintf( '%.2f', $this->time() / self::$totalcount ), 2 ) ?></td>
		<td class="mpr"><?php echo @round( sprintf( '%.2f' ,$this->memory() / self::$totalcount / 1024 ), 2 ) ?></td>
		</tr>
		<?php
		if ( $ex ) {
			foreach ( $this->children as $child ) {
				$child->display( $expand, $indent + 2 );
			}
		}
	}

	function name() {
		return $this->name;
	}

	function count() {
		return $this->count;
	}

	function time() {
		return $this->time;
	}
	
	function memory() {
		return $this->memory;
	}
	
	function timePerCall() {
		return @( $this->time / $this->count );
	}
	
	function memoryPerCall() {
		return @( $this->memory / $this->count );
	}
	
	function callsPerRequest() {
		return @( $this->count / self::$totalcount );
	}
	
	function timePerRequest() {
		return @( $this->time / self::$totalcount );
	}
	
	function memoryPerRequest() {
		return @( $this->memory / self::$totalcount );
	}

	function fmttime() {
		return sprintf( "%5.02f", $this->time );
	}
};

function compare_point(profile_point $a, profile_point $b) {
	global $sort;
	switch ( $sort ) {
	case "name":
		return strcmp( $a->name(), $b->name() );
	case "time":
		return $a->time() > $b->time() ? -1 : 1;
	case "memory":
		return $a->memory() > $b->memory() ? -1 : 1;
	case "count":
		return $a->count() > $b->count() ? -1 : 1;
	case "time_per_call":
		return $a->timePerCall() > $b->timePerCall() ? -1 : 1;
	case "memory_per_call":
		return $a->memoryPerCall() > $b->memoryPerCall() ? -1 : 1;
	case "calls_per_req":
		return $a->callsPerRequest() > $b->callsPerRequest() ? -1 : 1;
	case "time_per_req":
		return $a->timePerRequest() > $b->timePerRequest() ? -1 : 1;
	case "memory_per_req":
		return $a->memoryPerRequest() > $b->memoryPerRequest() ? -1 : 1;
	}
}

$sorts = array( 'time', 'memory', 'count', 'calls_per_req', 'name',
	'time_per_call', 'memory_per_call', 'time_per_req', 'memory_per_req' );
$sort = 'time';
if ( isset( $_REQUEST['sort'] ) && in_array( $_REQUEST['sort'], $sorts ) )
	$sort = $_REQUEST['sort'];

$res = $dbr->select( 'profiling', '*', array(), 'profileinfo.php', array( 'ORDER BY' => 'pf_name ASC' ) );

if (isset( $_REQUEST['filter'] ) )
	$filter = $_REQUEST['filter'];
else
	$filter = '';

?>
<form method="get" action="profileinfo.php">
<p>
<input type="text" name="filter" value="<?php echo htmlspecialchars($filter)?>"/>
<input type="hidden" name="sort" value="<?php echo htmlspecialchars($sort)?>"/>
<input type="hidden" name="expand" value="<?php echo htmlspecialchars(implode(",", array_keys($expand)))?>"/>
<input type="submit" value="Filter" />
</p>
</form>

<table cellspacing="0" border="1">
<tr id="top">
<th><a href="<?php echo getEscapedProfileUrl( false, 'name' ) ?>">Name</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'time' ) ?>">Time (%)</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'memory' ) ?>">Memory (%)</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'count' ) ?>">Count</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'calls_per_req' ) ?>">Calls/req</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'time_per_call' ) ?>">ms/call</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'memory_per_call' ) ?>">kb/call</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'time_per_req' ) ?>">ms/req</a></th>
<th><a href="<?php echo getEscapedProfileUrl( false, 'memory_per_req' ) ?>">kb/req</a></th>
</tr>
<?php
profile_point::$totaltime = 0.0;
profile_point::$totalcount = 0;
profile_point::$totalmemory = 0.0;

function getEscapedProfileUrl( $_filter = false, $_sort = false, $_expand = false ) {
	global $filter, $sort, $expand;

	if ( $_expand === false )
		$_expand = $expand;

	return htmlspecialchars(
		'?' . 
		wfArrayToCGI( array(
			'filter' => $_filter ? $_filter : $filter,
			'sort' => $_sort ? $_sort : $sort,
			'expand' => implode( ',', array_keys( $_expand ) ) 
		) )
	);
}

$points = array();
$queries = array();
$sqltotal = 0.0;

$last = false;
foreach( $res as $o ) {
	$next = new profile_point( $o->pf_name, $o->pf_count, $o->pf_time, $o->pf_memory );
	if( $next->name() == '-total' ) {
		profile_point::$totaltime = $next->time();
		profile_point::$totalcount = $next->count();
		profile_point::$totalmemory = $next->memory();
	}
	if ( $last !== false ) {
		if ( preg_match( "/^".preg_quote( $last->name(), "/" )."/", $next->name() ) ) {
			$last->add_child($next);
			continue;
		}
	}
	$last = $next;
	if ( preg_match( "/^query: /", $next->name() ) || preg_match( "/^query-m: /", $next->name() ) ) {
		$sqltotal += $next->time();
		$queries[] = $next;
	} else {
		$points[] = $next;
	}
}

$s = new profile_point( "SQL Queries", 0, $sqltotal, 0, 0 );
foreach ( $queries as $q )
	$s->add_child($q);
$points[] = $s;

usort( $points, "compare_point" );

foreach ( $points as $point ) {
	if ( strlen( $filter ) && !strstr( $point->name(), $filter ) )
		continue;

	$point->display( $expand );
}
?>
</table>

<p>Total time: <tt><?php printf("%5.02f", profile_point::$totaltime) ?></tt></p>
<p>Total memory: <tt><?php printf("%5.02f", profile_point::$totalmemory / 1024 ) ?></tt></p>
</body>
</html>
