function getFragments($mem)
{
$frags = array();
foreach ($mem['block_lists'][0] as $block) {
$frags[$block['offset']] = $block['size'];
}
ksort($frags);
$text = array();
$prev_val = 0;
$i = 0;
foreach ($frags as $key => $value) {
$i++;
$key = $key - $prev_val;
$text[] = "{name: 'Used-" . bsize($key) . "',data: [" . $key . "]}";
$text[] = "{name: 'Free-" . bsize($value) . "',data: [" . $value . "]}";
$prev_val = $key + $prev_val + $value;
}
return implode(',', array_reverse($text));
}
if (!isset($_GET['key']) || !isset($_GET['server'])) {
echo "No key set!";
break;
}
// I'm not doing anything to check the validity of the key string.
// probably an exploit can be written to delete all the files in key=base64_encode("\n\r delete all").
// somebody has to do a fix to this.
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int) $_GET['server']];
list($h, $p) = explode(':', $theserver);
$r = sendMemcacheCommand($h, $p, 'get ' . $theKey);
echo <<<EOB
<div class="info"><table cellspacing=0><tbody>
\t\t\t<tr><th>Server<th>Key</th><th>Value</th><th>Delete</th></tr>
EOB;
echo "<tr><td class=td-0>", $theserver, "</td><td class=td-0>", $theKey, " <br/>flag:", $r['VALUE'][$theKey]['stat']['flag'], " <br/>Size:", bsize($r['VALUE'][$theKey]['stat']['size']), "</td><td>", chunk_split($r['VALUE'][$theKey]['value'], 40), "</td>", '<td><a href="', $PHP_SELF, '&op=5&server=', (int) $_GET['server'], '&key=', base64_encode($theKey), "\">Delete</a></td>", "</tr>";
echo <<<EOB
\t\t\t</tbody></table>
\t\t\t</div><hr/>
EOB;
break;
case 5:
// item delete
if (!isset($_GET['key']) || !isset($_GET['server'])) {
echo "No key set!";
break;
}
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int) $_GET['server']];
list($h, $p) = explode(':', $theserver);
$r = sendMemcacheCommand($h, $p, 'delete ' . $theKey);
$ptr = 0;
foreach ($mem['block_lists'][$i] as $block) {
if ($block['offset'] != $ptr) {
++$nseg;
}
$ptr = $block['offset'] + $block['size'];
/* Only consider blocks <5M for the fragmentation % */
if ($block['size'] < 5 * 1024 * 1024) {
$fragsize += $block['size'];
}
$freetotal += $block['size'];
}
$freeseg += count($mem['block_lists'][$i]);
}
if ($freeseg > 1) {
$frag = sprintf("%.2f%% (%s out of %s in %d fragments)", $fragsize / $freetotal * 100, bsize($fragsize), bsize($freetotal), $freeseg);
} else {
$frag = "0%";
}
if (graphics_avail()) {
$size = 'width=' . (2 * GRAPH_SIZE + 150) . ' height=' . (GRAPH_SIZE + 10);
echo <<<EOB
\t\t\t<img alt="" {$size} src="{$PHP_SELF}?IMG=3&{$time}">
EOB;
}
echo <<<EOB
\t\t</br>Fragmentation: {$frag}
\t\t</td>
\t\t</tr>
EOB;
if (isset($mem['adist'])) {
}
}
}
}
function block_sort($array1, $array2)
{
if ($array1['offset'] > $array2['offset']) {
return 1;
} else {
return -1;
}
}
$mem_size = $mem['num_seg'] * $mem['seg_size'];
$mem_avail = $mem['avail_mem'];
$mem_used = $mem_size - $mem_avail;
$seg_size = bsize($mem['seg_size']);
$req_rate = sprintf("%.2f", ($cache['num_hits'] + $cache['num_misses']) / ($time - $cache['start_time']));
$hit_rate = sprintf("%.2f", $cache['num_hits'] / ($time - $cache['start_time']));
$miss_rate = sprintf("%.2f", $cache['num_misses'] / ($time - $cache['start_time']));
$insert_rate = sprintf("%.2f", $cache['num_inserts'] / ($time - $cache['start_time']));
$req_rate_user = sprintf("%.2f", ($cache_user['num_hits'] + $cache_user['num_misses']) / ($time - $cache_user['start_time']));
$hit_rate_user = sprintf("%.2f", $cache_user['num_hits'] / ($time - $cache_user['start_time']));
$miss_rate_user = sprintf("%.2f", $cache_user['num_misses'] / ($time - $cache_user['start_time']));
$insert_rate_user = sprintf("%.2f", $cache_user['num_inserts'] / ($time - $cache_user['start_time']));
$apcversion = phpversion('apc');
$phpversion = phpversion();
$number_files = $cache['num_entries'];
$size_files = bsize($cache['mem_size']);
$number_vars = $cache_user['num_entries'];
$size_vars = bsize($cache_user['mem_size']);
if (!isset($_GET['key']) || !isset($_GET['server'])) {
echo "No key set!";
break;
}
// I'm not doing anything to check the validity of the key string.
// probably an exploit can be written to delete all the files in key=base64_encode("\n\r delete all").
// somebody has to do a fix to this.
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int) $_GET['server']];
list($h, $p) = explode(':', $theserver);
$r = sendMemcacheCommand($h, $p, 'get ' . $theKey);
echo <<<EOB
<div class="info"><table cellspacing="0"><tbody>
\t\t\t<tr><th>Server<th>Key</th><th>Value</th><th>Delete</th></tr>
EOB;
echo "<tr><td class='td-0'>", $theserver, "</td><td class='td-0'>", $theKey, " <br/>flag:", $r['VALUE'][$theKey]['stat']['flag'], " <br/>Size:", bsize($r['VALUE'][$theKey]['stat']['size']), "</td><td>", chunk_split($r['VALUE'][$theKey]['value'], 40), "</td>", '<td><a href="', $INSTALLER09['baseurl'], '/staffpanel.php?tool=memcache&op=5&server=', (int) $_GET['server'], '&key=', base64_encode($theKey), "\">Delete</a></td>", "</tr>";
echo <<<EOB
\t\t\t</tbody></table>
\t\t\t</div><hr/>
EOB;
break;
case 5:
// item delete
if (!isset($_GET['key']) || !isset($_GET['server'])) {
echo "No key set!";
break;
}
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int) $_GET['server']];
list($h, $p) = explode(':', $theserver);
$r = sendMemcacheCommand($h, $p, 'delete ' . $theKey);
function controller_apc(&$args, $output = "inline")
{
$user = User::Singleton();
if (!($user->isLoggedIn() && $user->HasRole("ADMIN"))) {
return;
}
$vars["args"] = $args;
if (!empty($args["flush"])) {
apc_clear_cache();
$vars["message"] = "APC cache cleared";
}
$vars["apc"]["smainfo"] = apc_sma_info();
$vars["apc"]["cacheinfo"] = apc_cache_info();
$vars["time"] = time();
$nseg = $freeseg = $fragsize = $freetotal = 0;
for ($i = 0; $i < $vars["apc"]["smainfo"]['num_seg']; $i++) {
$ptr = 0;
foreach ($vars["apc"]["smainfo"]['block_lists'][$i] as $block) {
if ($block['offset'] != $ptr) {
++$nseg;
}
$ptr = $block['offset'] + $block['size'];
/* Only consider blocks <5M for the fragmentation % */
if ($block['size'] < 5 * 1024 * 1024) {
$fragsize += $block['size'];
}
$freetotal += $block['size'];
}
$freeseg += count($vars["apc"]["smainfo"]['block_lists'][$i]);
}
if ($freeseg > 1) {
$vars["frag"] = sprintf("%.2f%% (%s out of %s in %d fragments)", $fragsize / $freetotal * 100, bsize($fragsize), bsize($freetotal), $freeseg);
} else {
$vars["frag"] = "0%";
}
if ($output == "ajax") {
$vars = array("tf_debug_tab_apc" => $this->GetTemplate("./apc.tpl", $vars));
}
return $this->GetComponentResponse("./apc.tpl", $vars);
}
</div>
</div>
<div class="span4">
<div class="well well-small">
<h4><?php
echo bsize(disk_free_space($file_info->getPath()));
?>
</h4>
<p>Cache directory free size</p>
</div>
</div>
<div class="span4">
<div class="well well-small">
<h4><?php
echo bsize(disk_total_space($file_info->getPath()));
?>
</h4>
<p>Cache directory total size</p>
</div>
</div>
</div>
</section>
<section>
<a class="anchor" id="speed"></a>
<h3>Tune Cache</h3>
fill_box($image, $y, $x, $h, 50, $col_black, $col_red);
}
$y += $h;
}
$h = ($size - 5) * $block['size'] / $s;
if ($h > 0) {
fill_box($image, $y, $x, $h, 50, $col_black, $col_green);
}
$y += $h;
$ptr = $block['offset'] + $block['size'];
}
if ($ptr < $mem['seg_size']) {
// memory at the end
$h = ($size - 5) * ($mem['seg_size'] - $ptr) / $s;
if ($h > 0) {
fill_box($image, $y, $x, $h, 50, $col_black, $col_red, bsize($mem['seg_size'] - $ptr), $j++);
}
}
}
header("Content-type: image/png");
imagepng($image);
exit;
}
function graphics_avail()
{
return extension_loaded('gd');
}
// pretty printer for byte values
//
function bsize($s)
{
<th class="vtip" title="Seconds since the last access for the most recent item evicted from this class.<br>Use this to judge how recently active your evicted data is">Evicted time</th>
<th class="vtip" title="Age of the oldest item in the LRU.">Age</th>
<th class="vtip" title="Details and keys">Link</th>
</tr>
</thead>
<tbody>
EOB;
foreach ($entries as $slabId => $slab) {
$itemsCount = $slab['number'];
$chunkSize = $slabInfo[$server][$slabId]['chunk_size'];
$itemsSpace = round($itemsCount * $chunkSize * 100 / $memcacheStats['limit_maxbytes'], 3);
$chunks_total = $slabInfo[$server][$slabId]['total_chunks'];
$chunks_used = $slabInfo[$server][$slabId]['used_chunks'];
$percentFree = round(($chunks_total - $chunks_used) * 100 / $chunks_total, 2);
$totalBytes = $chunks_total * $chunkSize;
$usedBytes = $slabInfo[$server][$slabId]['used_chunks'] * $chunkSize;
$unusedBytes = $totalBytes - $usedBytes;
$dumpUrl = $PHP_SELF . '&op=2&server=' . array_search($server, $MEMCACHE_SERVERS) . '&dumpslab=' . $slabId;
echo "\n\t\t\t\t\t<tr class=tr-{$m}>\n\t\t\t\t\t<td class=td-0>" . $slabId . "</td>\n\t\t\t\t\t<td>" . $itemsCount . "</td>\n\t\t\t\t\t<td>" . $chunkSize . "</td>\n\t\t\t\t\t<td>" . $slabInfo[$server][$slabId]['chunks_per_page'] . "</td>\n\t\t\t\t\t<td>" . $slabInfo[$server][$slabId]['total_pages'] . "</td>\n\t\t\t\t\t<td class='vtip' title='" . bsize($totalBytes) . "'>" . $chunks_total . "</td>\n\t\t\t\t\t<td class='vtip' title='" . bsize($usedBytes) . "'>" . $chunks_used . "</td>\n\t\t\t\t\t<td class='vtip' title='" . $percentFree . " % allocated chunks in this class'>" . ($chunks_total - $chunks_used) . "</td>\n\t\t\t\t\t<td class='vtip' title='" . bsize($unusedBytes) . "'>" . $unusedBytes . "</td>\n\t\t\t\t\t<td>" . $itemsSpace . "</td>\n\t\t\t\t\t<td>" . (int) $slab['evicted'] . "</td>\n\t\t\t\t\t<td>" . (int) $slab['evicted_time'] . "</td>\n <td>" . duration($time - $slab['age']) . "</td>\n\t\t\t\t\t<td class=td-0><center><a href=\"" . $dumpUrl . "\">details</a></center></td>\n\n </tr>";
$m = 1 - $m;
}
echo <<<EOB
\t\t\t</tbody></table>
\t\t\t<hr/>
EOB;
}
break;
break;
}
echo getFooter();
\t\t\t</tbody></table>
\t\t\t</div><hr/>
EOB;
}
break;
break;
case 4:
//item dump
if (!isset($_GET['key']) || !isset($_GET['server'])) {
echo "No key set!";
break;
}
// I'm not doing anything to check the validity of the key string.
// probably an exploit can be written to delete all the files in key=base64_encode("\n\r delete all").
// somebody has to do a fix to this.
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int) $_GET['server']];
list($h, $p) = explode(':', $theserver);
$r = sendMemcacheCommand($h, $p, 'get ' . $theKey);
echo <<<EOB
<div class="info"><table cellspacing=0><tbody>
\t\t\t<tr><th>Server<th>Key</th><th>Value</th></tr>
EOB;
echo "<tr><td class=td-0>", $theserver, "</td><td class=td-0>", $theKey, " <br/>flag:", $r['VALUE'][$theKey]['stat']['flag'], " <br/>Size:", bsize($r['VALUE'][$theKey]['stat']['size']), "</td><td>", chunk_split($r['VALUE'][$theKey]['value'], 40), "</td></tr>";
echo <<<EOB
\t\t\t</tbody></table>
\t\t\t</div><hr/>
EOB;
break;
}
echo getFooter();
name: 'Host Status Diagrams - Memory Usage',
data: [
['Cached Files - ' + '<?php
echo $size_files;
?>
', <?php
echo $cache['mem_size'];
?>
],
['Cached Variables - ' + '<?php
echo $size_vars;
?>
', <?php
echo $cache_user['mem_size'];
?>
],
['Free Space - ' + '<?php
echo bsize($mem_avail);
?>
', <?php
echo $mem_avail;
?>
]
]
}]
});
});
</script>
</div>
</div>
</div>
$usedmemstr = bsize($usedmem);
$freemem = @$opcache_status['memory_usage']['free_memory'] ?: 0;
$freememstr = bsize($freemem);
$totalmem = $usedmem + $freemem;
$wastedmem = @$opcache_status['memory_usage']['wasted_memory'] ?: 0;
$wastedmemstr = bsize($wastedmem);
if ($totalmem) {
$memory = array('total' => bsize($totalmem), 'used' => $usedmemstr . ($totalmem > 0 ? sprintf(" (%.1f %%)", $usedmem / $totalmem * 100) : ''), 'free' => $freememstr . ($totalmem > 0 ? sprintf(" (%.1f %%)", $freemem / $totalmem * 100) : ''), 'wasted' => $wastedmemstr . ($totalmem > 0 ? sprintf(" (%.1f %%)", $wastedmem / $totalmem * 100) : ''));
}
if (isset($opcache_status['interned_strings_usage'])) {
$usedstring = @$opcache_status['interned_strings_usage']['used_memory'] ?: 0;
$usedstringstr = bsize($usedstring);
$freestring = @$opcache_status['interned_strings_usage']['free_memory'] ?: 0;
$freestringstr = bsize($freestring);
$totalstring = $usedstring + $freestring;
$stringbuffer = array('total' => bsize($totalstring), 'used' => $usedstringstr . ($totalstring > 0 ? sprintf(" (%.1f %%)", $usedstring / $totalstring * 100) : ''), 'free' => $freestringstr . ($totalstring > 0 ? sprintf(" (%.1f %%)", $freestring / $totalstring * 100) : ''), 'strcount' => number_format(@$opcache_status['interned_strings_usage']['number_of_strings'] ?: 0, 0, '.', ' '));
}
$usedkey = @$opcache_status['opcache_statistics']['num_cached_keys'] ?: 0;
$usedkeystr = number_format($usedkey, 0, '.', ' ');
$totalkey = @$opcache_status['opcache_statistics']['max_cached_keys'] ?: 0;
$wastedkey = $usedkey - (@$opcache_status['opcache_statistics']['num_cached_scripts'] ?: 0);
if (isset($opcache_status['opcache_statistics'])) {
$keystat = array('total' => number_format($totalkey, 0, '.', ' '), 'used' => $usedkeystr . ($totalkey > 0 ? sprintf(" (%.1f %%)", $usedkey / $totalkey * 100) : ''), 'wasted' => number_format($wastedkey, 0, '.', ' ') . ($totalkey > 0 ? sprintf(" (%.1f %%)", $wastedkey / $totalkey * 100) : ''));
}
$blacklistlines = '';
if (isset($opcache_info['blacklist']) && is_array($opcache_info['blacklist'])) {
foreach ($opcache_info['blacklist'] as $value) {
eval("\$blacklistlines.=\"" . getTemplate("settings/opcacheinfo/blacklist_line") . "\";");
}
}
eval("echo \"" . getTemplate("settings/opcacheinfo/showinfo") . "\";");
}
// I'm not doing anything to check the validity of the key string.
// probably an exploit can be written to delete all the files in key=base64_encode("\n\r delete all").
// somebody has to do a fix to this.
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int)$_GET['server']];
list($h,$p) = explode(':',$theserver);
$r = sendMemcacheCommand($h,$p,'get '.$theKey);
echo <<<EOB
<div class="info"><table cellspacing=0><tbody>
<tr><th>Server<th>Key</th><th>Value</th><th>Delete</th></tr>
EOB;
echo "<tr><td class=td-0>",$theserver,"</td><td class=td-0>",$theKey,
" <br/>flag:",$r['VALUE'][$theKey]['stat']['flag'],
" <br/>Size:",bsize($r['VALUE'][$theKey]['stat']['size']),
"</td><td>",chunk_split($r['VALUE'][$theKey]['value'],40),"</td>",
'<td><a href="',$PHP_SELF,'&op=5&server=',(int)$_GET['server'],'&key=',base64_encode($theKey),"\">Delete</a></td>","</tr>";
echo <<<EOB
</tbody></table>
</div><hr/>
EOB;
break;
case 5: // item delete
if (!isset($_GET['key']) || !isset($_GET['server'])){
echo "No key set!";
break;
}
$theKey = htmlentities(base64_decode($_GET['key']));
$theserver = $MEMCACHE_SERVERS[(int)$_GET['server']];
list($h,$p) = explode(':',$theserver);
public function indexAction()
{
global $MY_SELF, $MYREQUEST, $AUTHENTICATED, $col_black, $time, $MY_SELF_WO_SORT;
/*
+----------------------------------------------------------------------+
| APC |
+----------------------------------------------------------------------+
| Copyright (c) 2008 The PHP Group |
+----------------------------------------------------------------------+
| This source file is subject to version 3.01 of the PHP license, |
| that is bundled with this package in the file LICENSE, and is |
| available through the world-wide-web at the following url: |
| http://www.php.net/license/3_01.txt |
| If you did not receive a copy of the PHP license and are unable to |
| obtain it through the world-wide-web, please send a note to |
| license@php.net so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
| Authors: Ralf Becker <*****@*****.**> |
| Rasmus Lerdorf <*****@*****.**> |
| Ilia Alshanetsky <*****@*****.**> |
+----------------------------------------------------------------------+
All other licensing and usage conditions are those of the PHP Group.
*/
$VERSION = '$Id: apc.php,v 3.68.2.2 2008/05/11 18:57:00 rasmus Exp $';
////////// READ OPTIONAL CONFIGURATION FILE ////////////
if (file_exists("apc.conf.php")) {
include "apc.conf.php";
}
////////////////////////////////////////////////////////
////////// BEGIN OF DEFAULT CONFIG AREA ///////////////////////////////////////////////////////////
defaults('USE_AUTHENTICATION', 0);
// Use (internal) authentication - best choice if
// no other authentication is available
// If set to 0:
// There will be no further authentication. You
// will have to handle this by yourself!
// If set to 1:
// You need to change ADMIN_PASSWORD to make
// this work!
defaults('ADMIN_USERNAME', 'apc');
// Admin Username
defaults('ADMIN_PASSWORD', 'password');
// Admin Password - CHANGE THIS TO ENABLE!!!
// (beckerr) I'm using a clear text password here, because I've no good idea how to let
// users generate a md5 or crypt password in a easy way to fill it in above
//defaults('DATE_FORMAT', "d.m.Y H:i:s"); // German
defaults('DATE_FORMAT', 'Y/m/d H:i:s');
// US
defaults('GRAPH_SIZE', 200);
// Image size
////////// END OF DEFAULT CONFIG AREA /////////////////////////////////////////////////////////////
// rewrite $PHP_SELF to block XSS attacks
//
$PHP_SELF = '/kwf/debug/apc';
$time = time();
$host = getenv('HOSTNAME');
if ($host) {
$host = '(' . $host . ')';
}
// operation constants
define('OB_HOST_STATS', 1);
define('OB_SYS_CACHE', 2);
define('OB_USER_CACHE', 3);
define('OB_SYS_CACHE_DIR', 4);
define('OB_VERSION_CHECK', 9);
// check validity of input variables
$vardom = array('OB' => '/^\\d+$/', 'CC' => '/^[01]$/', 'DU' => '/^.*$/', 'SH' => '/^[a-z0-9]+$/', 'IMG' => '/^[123]$/', 'LO' => '/^1$/', 'COUNT' => '/^\\d+$/', 'SCOPE' => '/^[AD]$/', 'SORT1' => '/^[AHSMCDTZ]$/', 'SORT2' => '/^[DA]$/', 'AGGR' => '/^\\d+$/', 'SEARCH' => '~^[a-zA-Z0-1/_.-]*$~');
// default cache mode
$cache_mode = 'opcode';
// cache scope
$scope_list = array('A' => 'cache_list', 'D' => 'deleted_list');
// handle POST and GET requests
if (empty($_REQUEST)) {
if (!empty($_GET) && !empty($_POST)) {
$_REQUEST = array_merge($_GET, $_POST);
} else {
if (!empty($_GET)) {
$_REQUEST = $_GET;
} else {
if (!empty($_POST)) {
$_REQUEST = $_POST;
} else {
$_REQUEST = array();
}
}
}
}
// check parameter syntax
foreach ($vardom as $var => $dom) {
if (!isset($_REQUEST[$var])) {
$MYREQUEST[$var] = NULL;
} else {
if (!is_array($_REQUEST[$var]) && preg_match($dom . 'D', $_REQUEST[$var])) {
$MYREQUEST[$var] = $_REQUEST[$var];
} else {
$MYREQUEST[$var] = $_REQUEST[$var] = NULL;
}
}
}
// check parameter sematics
if (empty($MYREQUEST['SCOPE'])) {
$MYREQUEST['SCOPE'] = "A";
}
if (empty($MYREQUEST['SORT1'])) {
$MYREQUEST['SORT1'] = "H";
}
if (empty($MYREQUEST['SORT2'])) {
$MYREQUEST['SORT2'] = "D";
}
if (empty($MYREQUEST['OB'])) {
$MYREQUEST['OB'] = OB_HOST_STATS;
}
if (!isset($MYREQUEST['COUNT'])) {
$MYREQUEST['COUNT'] = 20;
}
if (!isset($scope_list[$MYREQUEST['SCOPE']])) {
$MYREQUEST['SCOPE'] = 'A';
}
$MY_SELF = "{$PHP_SELF}" . "?SCOPE=" . $MYREQUEST['SCOPE'] . "&SORT1=" . $MYREQUEST['SORT1'] . "&SORT2=" . $MYREQUEST['SORT2'] . "&COUNT=" . $MYREQUEST['COUNT'];
$MY_SELF_WO_SORT = "{$PHP_SELF}" . "?SCOPE=" . $MYREQUEST['SCOPE'] . "&COUNT=" . $MYREQUEST['COUNT'];
// authentication needed?
//
if (!USE_AUTHENTICATION) {
$AUTHENTICATED = 1;
} else {
$AUTHENTICATED = 0;
if (ADMIN_PASSWORD != 'password' && ($MYREQUEST['LO'] == 1 || isset($_SERVER['PHP_AUTH_USER']))) {
if (!isset($_SERVER['PHP_AUTH_USER']) || !isset($_SERVER['PHP_AUTH_PW']) || $_SERVER['PHP_AUTH_USER'] != ADMIN_USERNAME || $_SERVER['PHP_AUTH_PW'] != ADMIN_PASSWORD) {
Header("WWW-Authenticate: Basic realm=\"APC Login\"");
Header("HTTP/1.0 401 Unauthorized");
echo <<<EOB
<html><body>
<h1>Rejected!</h1>
<big>Wrong Username or Password!</big><br/> <br/>
<big><a href='{$PHP_SELF}?OB={$MYREQUEST['OB']}'>Continue...</a></big>
</body></html>
EOB;
exit;
} else {
$AUTHENTICATED = 1;
}
}
}
// select cache mode
if ($AUTHENTICATED && $MYREQUEST['OB'] == OB_USER_CACHE) {
$cache_mode = 'user';
}
// clear cache
if ($AUTHENTICATED && isset($MYREQUEST['CC']) && $MYREQUEST['CC']) {
apc_clear_cache($cache_mode);
}
if ($AUTHENTICATED && !empty($MYREQUEST['DU'])) {
apc_delete($MYREQUEST['DU']);
}
if (!function_exists('apc_cache_info') || !($cache = @apc_cache_info($cache_mode))) {
echo "No cache info available. APC does not appear to be running.";
exit;
}
$cache_user = apc_cache_info('user', 1);
$mem = apc_sma_info();
if (!$cache['num_hits']) {
$cache['num_hits'] = 1;
$time++;
}
// Avoid division by 0 errors on a cache clear
// don't cache this page
//
header("Cache-Control: no-store, no-cache, must-revalidate");
// HTTP/1.1
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache");
// HTTP/1.0
if (isset($MYREQUEST['IMG'])) {
if (!graphics_avail()) {
exit(0);
}
$size = GRAPH_SIZE;
// image size
if ($MYREQUEST['IMG'] == 3) {
$image = imagecreate(2 * $size + 150, $size + 10);
} else {
$image = imagecreate($size + 50, $size + 10);
}
$col_white = imagecolorallocate($image, 0xff, 0xff, 0xff);
$col_red = imagecolorallocate($image, 0xd0, 0x60, 0x30);
$col_green = imagecolorallocate($image, 0x60, 0xf0, 0x60);
$col_black = imagecolorallocate($image, 0, 0, 0);
imagecolortransparent($image, $col_white);
switch ($MYREQUEST['IMG']) {
case 1:
$s = $mem['num_seg'] * $mem['seg_size'];
$a = $mem['avail_mem'];
$x = $y = $size / 2;
$fuzz = 1.0E-6;
// This block of code creates the pie chart. It is a lot more complex than you
// would expect because we try to visualize any memory fragmentation as well.
$angle_from = 0;
$string_placement = array();
for ($i = 0; $i < $mem['num_seg']; $i++) {
$ptr = 0;
$free = $mem['block_lists'][$i];
foreach ($free as $block) {
if ($block['offset'] != $ptr) {
// Used block
$angle_to = $angle_from + ($block['offset'] - $ptr) / $s;
if ($angle_to + $fuzz > 1) {
$angle_to = 1;
}
if ($angle_to * 360 - $angle_from * 360 >= 1) {
fill_arc($image, $x, $y, $size, $angle_from * 360, $angle_to * 360, $col_black, $col_red);
if ($angle_to - $angle_from > 0.05) {
array_push($string_placement, array($angle_from, $angle_to));
}
}
$angle_from = $angle_to;
}
$angle_to = $angle_from + $block['size'] / $s;
if ($angle_to + $fuzz > 1) {
$angle_to = 1;
}
if ($angle_to * 360 - $angle_from * 360 >= 1) {
fill_arc($image, $x, $y, $size, $angle_from * 360, $angle_to * 360, $col_black, $col_green);
if ($angle_to - $angle_from > 0.05) {
array_push($string_placement, array($angle_from, $angle_to));
}
}
$angle_from = $angle_to;
$ptr = $block['offset'] + $block['size'];
}
if ($ptr < $mem['seg_size']) {
// memory at the end
$angle_to = $angle_from + ($mem['seg_size'] - $ptr) / $s;
if ($angle_to + $fuzz > 1) {
$angle_to = 1;
}
fill_arc($image, $x, $y, $size, $angle_from * 360, $angle_to * 360, $col_black, $col_red);
if ($angle_to - $angle_from > 0.05) {
array_push($string_placement, array($angle_from, $angle_to));
}
}
}
foreach ($string_placement as $angle) {
text_arc($image, $x, $y, $size, $angle[0] * 360, $angle[1] * 360, $col_black, bsize($s * ($angle[1] - $angle[0])));
}
break;
case 2:
$s = $cache['num_hits'] + $cache['num_misses'];
$a = $cache['num_hits'];
fill_box($image, 30, $size, 50, -$a * ($size - 21) / $s, $col_black, $col_green, sprintf("%.1f%%", $cache['num_hits'] * 100 / $s));
fill_box($image, 130, $size, 50, -max(4, ($s - $a) * ($size - 21) / $s), $col_black, $col_red, sprintf("%.1f%%", $cache['num_misses'] * 100 / $s));
break;
case 3:
$s = $mem['num_seg'] * $mem['seg_size'];
$a = $mem['avail_mem'];
$x = 130;
$y = 1;
$j = 1;
// This block of code creates the bar chart. It is a lot more complex than you
// would expect because we try to visualize any memory fragmentation as well.
for ($i = 0; $i < $mem['num_seg']; $i++) {
$ptr = 0;
$free = $mem['block_lists'][$i];
foreach ($free as $block) {
if ($block['offset'] != $ptr) {
// Used block
$h = (GRAPH_SIZE - 5) * ($block['offset'] - $ptr) / $s;
if ($h > 0) {
$j++;
if ($j < 75) {
fill_box($image, $x, $y, 50, $h, $col_black, $col_red, bsize($block['offset'] - $ptr), $j);
} else {
fill_box($image, $x, $y, 50, $h, $col_black, $col_red);
}
}
$y += $h;
}
$h = (GRAPH_SIZE - 5) * $block['size'] / $s;
if ($h > 0) {
$j++;
if ($j < 75) {
fill_box($image, $x, $y, 50, $h, $col_black, $col_green, bsize($block['size']), $j);
} else {
fill_box($image, $x, $y, 50, $h, $col_black, $col_green);
}
}
$y += $h;
$ptr = $block['offset'] + $block['size'];
}
if ($ptr < $mem['seg_size']) {
// memory at the end
$h = (GRAPH_SIZE - 5) * ($mem['seg_size'] - $ptr) / $s;
if ($h > 0) {
fill_box($image, $x, $y, 50, $h, $col_black, $col_red, bsize($mem['seg_size'] - $ptr), $j++);
}
}
}
break;
case 4:
$s = $cache['num_hits'] + $cache['num_misses'];
$a = $cache['num_hits'];
fill_box($image, 30, $size, 50, -$a * ($size - 21) / $s, $col_black, $col_green, sprintf("%.1f%%", $cache['num_hits'] * 100 / $s));
fill_box($image, 130, $size, 50, -max(4, ($s - $a) * ($size - 21) / $s), $col_black, $col_red, sprintf("%.1f%%", $cache['num_misses'] * 100 / $s));
break;
}
header("Content-type: image/png");
imagepng($image);
exit;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><title>APC INFO <?php
echo $host;
?>
</title>
<style><!--
body { background:white; font-size:100.01%; margin:0; padding:0; }
body,p,td,th,input,submit { font-size:0.8em;font-family:arial,helvetica,sans-serif; }
* html body {font-size:0.8em}
* html p {font-size:0.8em}
* html td {font-size:0.8em}
* html th {font-size:0.8em}
* html input {font-size:0.8em}
* html submit {font-size:0.8em}
td { vertical-align:top }
a { color:black; font-weight:none; text-decoration:none; }
a:hover { text-decoration:underline; }
div.content { padding:1em 1em 1em 1em; position:absolute; width:97%; z-index:100; }
div.head div.login {
position:absolute;
right: 1em;
top: 1.2em;
color:white;
width:6em;
}
div.head div.login a {
position:absolute;
right: 0em;
background:rgb(119,123,180);
border:solid rgb(102,102,153) 2px;
color:white;
font-weight:bold;
padding:0.1em 0.5em 0.1em 0.5em;
text-decoration:none;
}
div.head div.login a:hover {
background:rgb(193,193,244);
}
h1.apc { background:rgb(153,153,204); margin:0; padding:0.5em 1em 0.5em 1em; }
* html h1.apc { margin-bottom:-7px; }
h1.apc a:hover { text-decoration:none; color:rgb(90,90,90); }
h1.apc div.logo span.logo {
background:rgb(119,123,180);
color:black;
border-right: solid black 1px;
border-bottom: solid black 1px;
font-style:italic;
font-size:1em;
padding-left:1.2em;
padding-right:1.2em;
text-align:right;
}
h1.apc div.logo span.name { color:white; font-size:0.7em; padding:0 0.8em 0 2em; }
h1.apc div.nameinfo { color:white; display:inline; font-size:0.4em; margin-left: 3em; }
h1.apc div.copy { color:black; font-size:0.4em; position:absolute; right:1em; }
hr.apc {
background:white;
border-bottom:solid rgb(102,102,153) 1px;
border-style:none;
border-top:solid rgb(102,102,153) 10px;
height:12px;
margin:0;
margin-top:1px;
padding:0;
}
ol,menu { margin:1em 0 0 0; padding:0.2em; margin-left:1em;}
ol.menu li { display:inline; margin-right:0.7em; list-style:none; font-size:85%}
ol.menu a {
background:rgb(153,153,204);
border:solid rgb(102,102,153) 2px;
color:white;
font-weight:bold;
margin-right:0em;
padding:0.1em 0.5em 0.1em 0.5em;
text-decoration:none;
margin-left: 5px;
}
ol.menu a.child_active {
background:rgb(153,153,204);
border:solid rgb(102,102,153) 2px;
color:white;
font-weight:bold;
margin-right:0em;
padding:0.1em 0.5em 0.1em 0.5em;
text-decoration:none;
border-left: solid black 5px;
margin-left: 0px;
}
ol.menu span.active {
background:rgb(153,153,204);
border:solid rgb(102,102,153) 2px;
color:black;
font-weight:bold;
margin-right:0em;
padding:0.1em 0.5em 0.1em 0.5em;
text-decoration:none;
border-left: solid black 5px;
}
ol.menu span.inactive {
background:rgb(193,193,244);
border:solid rgb(182,182,233) 2px;
color:white;
font-weight:bold;
margin-right:0em;
padding:0.1em 0.5em 0.1em 0.5em;
text-decoration:none;
margin-left: 5px;
}
ol.menu a:hover {
background:rgb(193,193,244);
text-decoration:none;
}
div.info {
background:rgb(204,204,204);
border:solid rgb(204,204,204) 1px;
margin-bottom:1em;
}
div.info h2 {
background:rgb(204,204,204);
color:black;
font-size:1em;
margin:0;
padding:0.1em 1em 0.1em 1em;
}
div.info table {
border:solid rgb(204,204,204) 1px;
border-spacing:0;
width:100%;
}
div.info table th {
background:rgb(204,204,204);
color:white;
margin:0;
padding:0.1em 1em 0.1em 1em;
}
div.info table th a.sortable { color:black; }
div.info table tr.tr-0 { background:rgb(238,238,238); }
div.info table tr.tr-1 { background:rgb(221,221,221); }
div.info table td { padding:0.3em 1em 0.3em 1em; }
div.info table td.td-0 { border-right:solid rgb(102,102,153) 1px; white-space:nowrap; }
div.info table td.td-n { border-right:solid rgb(102,102,153) 1px; }
div.info table td h3 {
color:black;
font-size:1.1em;
margin-left:-0.3em;
}
div.graph { margin-bottom:1em }
div.graph h2 { background:rgb(204,204,204);; color:black; font-size:1em; margin:0; padding:0.1em 1em 0.1em 1em; }
div.graph table { border:solid rgb(204,204,204) 1px; color:black; font-weight:normal; width:100%; }
div.graph table td.td-0 { background:rgb(238,238,238); }
div.graph table td.td-1 { background:rgb(221,221,221); }
div.graph table td { padding:0.2em 1em 0.4em 1em; }
div.div1,div.div2 { margin-bottom:1em; width:35em; }
div.div3 { position:absolute; left:40em; top:1em; width:580px; }
//div.div3 { position:absolute; left:37em; top:1em; right:1em; }
div.sorting { margin:1.5em 0em 1.5em 2em }
.center { text-align:center }
.aright { position:absolute;right:1em }
.right { text-align:right }
.ok { color:rgb(0,200,0); font-weight:bold}
.failed { color:rgb(200,0,0); font-weight:bold}
span.box {
border: black solid 1px;
border-right:solid black 2px;
border-bottom:solid black 2px;
padding:0 0.5em 0 0.5em;
margin-right:1em;
}
span.green { background:#60F060; padding:0 0.5em 0 0.5em}
span.red { background:#D06030; padding:0 0.5em 0 0.5em }
div.authneeded {
background:rgb(238,238,238);
border:solid rgb(204,204,204) 1px;
color:rgb(200,0,0);
font-size:1.2em;
font-weight:bold;
padding:2em;
text-align:center;
}
input {
background:rgb(153,153,204);
border:solid rgb(102,102,153) 2px;
color:white;
font-weight:bold;
margin-right:1em;
padding:0.1em 0.5em 0.1em 0.5em;
}
//-->
</style>
</head>
<body>
<div class="head">
<h1 class="apc">
<div class="logo"><span class="logo"><a href="http://pecl.php.net/package/APC">APC</a></span></div>
<div class="nameinfo">Opcode Cache</div>
</h1>
<div class="login">
<?php
put_login_link();
?>
</div>
<hr class="apc">
</div>
<?php
// Display main Menu
echo <<<EOB
<ol class=menu>
<li><a href="{$MY_SELF}&OB={$MYREQUEST['OB']}&SH={$MYREQUEST['SH']}">Refresh Data</a></li>
EOB;
echo menu_entry(1, 'View Host Stats'), menu_entry(2, 'System Cache Entries');
if ($AUTHENTICATED) {
echo menu_entry(4, 'Per-Directory Entries');
}
echo menu_entry(3, 'User Cache Entries'), menu_entry(9, 'Version Check');
if ($AUTHENTICATED) {
echo <<<EOB
<li><a class="aright" href="{$MY_SELF}&CC=1&OB={$MYREQUEST['OB']}" onClick="javascipt:return confirm('Are you sure?');">Clear {$cache_mode} Cache</a></li>
EOB;
}
echo <<<EOB
</ol>
EOB;
// CONTENT
echo <<<EOB
<div class=content>
EOB;
// MAIN SWITCH STATEMENT
switch ($MYREQUEST['OB']) {
// -----------------------------------------------
// Host Stats
// -----------------------------------------------
case OB_HOST_STATS:
$mem_size = $mem['num_seg'] * $mem['seg_size'];
$mem_avail = $mem['avail_mem'];
$mem_used = $mem_size - $mem_avail;
$seg_size = bsize($mem['seg_size']);
$req_rate = sprintf("%.2f", ($cache['num_hits'] + $cache['num_misses']) / ($time - $cache['start_time']));
$hit_rate = sprintf("%.2f", $cache['num_hits'] / ($time - $cache['start_time']));
$miss_rate = sprintf("%.2f", $cache['num_misses'] / ($time - $cache['start_time']));
$insert_rate = sprintf("%.2f", $cache['num_inserts'] / ($time - $cache['start_time']));
$req_rate_user = sprintf("%.2f", ($cache_user['num_hits'] + $cache_user['num_misses']) / ($time - $cache_user['start_time']));
$hit_rate_user = sprintf("%.2f", $cache_user['num_hits'] / ($time - $cache_user['start_time']));
$miss_rate_user = sprintf("%.2f", $cache_user['num_misses'] / ($time - $cache_user['start_time']));
$insert_rate_user = sprintf("%.2f", $cache_user['num_inserts'] / ($time - $cache_user['start_time']));
$apcversion = phpversion('apc');
$phpversion = phpversion();
$number_files = $cache['num_entries'];
$size_files = bsize($cache['mem_size']);
$number_vars = $cache_user['num_entries'];
$size_vars = bsize($cache_user['mem_size']);
$i = 0;
echo <<<EOB
<div class="info div1"><h2>General Cache Information</h2>
<table cellspacing=0><tbody>
<tr class=tr-0><td class=td-0>APC Version</td><td>{$apcversion}</td></tr>
<tr class=tr-1><td class=td-0>PHP Version</td><td>{$phpversion}</td></tr>
EOB;
if (!empty($_SERVER['SERVER_NAME'])) {
echo "<tr class=tr-0><td class=td-0>APC Host</td><td>{$_SERVER['SERVER_NAME']} {$host}</td></tr>\n";
}
if (!empty($_SERVER['SERVER_SOFTWARE'])) {
echo "<tr class=tr-1><td class=td-0>Server Software</td><td>{$_SERVER['SERVER_SOFTWARE']}</td></tr>\n";
}
echo <<<EOB
<tr class=tr-0><td class=td-0>Shared Memory</td><td>{$mem['num_seg']} Segment(s) with {$seg_size}
<br/> ({$cache['memory_type']} memory, {$cache['locking_type']} locking)
</td></tr>
EOB;
echo '<tr class=tr-1><td class=td-0>Start Time</td><td>', date(DATE_FORMAT, $cache['start_time']), '</td></tr>';
echo '<tr class=tr-0><td class=td-0>Uptime</td><td>', duration($cache['start_time']), '</td></tr>';
echo '<tr class=tr-1><td class=td-0>File Upload Support</td><td>', $cache['file_upload_progress'], '</td></tr>';
echo <<<EOB
</tbody></table>
</div>
<div class="info div1"><h2>File Cache Information</h2>
<table cellspacing=0><tbody>
<tr class=tr-0><td class=td-0>Cached Files</td><td>{$number_files} ({$size_files})</td></tr>
<tr class=tr-1><td class=td-0>Hits</td><td>{$cache['num_hits']}</td></tr>
<tr class=tr-0><td class=td-0>Misses</td><td>{$cache['num_misses']}</td></tr>
<tr class=tr-1><td class=td-0>Request Rate (hits, misses)</td><td>{$req_rate} cache requests/second</td></tr>
<tr class=tr-0><td class=td-0>Hit Rate</td><td>{$hit_rate} cache requests/second</td></tr>
<tr class=tr-1><td class=td-0>Miss Rate</td><td>{$miss_rate} cache requests/second</td></tr>
<tr class=tr-0><td class=td-0>Insert Rate</td><td>{$insert_rate} cache requests/second</td></tr>
<tr class=tr-1><td class=td-0>Cache full count</td><td>{$cache['expunges']}</td></tr>
</tbody></table>
</div>
<div class="info div1"><h2>User Cache Information</h2>
<table cellspacing=0><tbody>
<tr class=tr-0><td class=td-0>Cached Variables</td><td>{$number_vars} ({$size_vars})</td></tr>
<tr class=tr-1><td class=td-0>Hits</td><td>{$cache_user['num_hits']}</td></tr>
<tr class=tr-0><td class=td-0>Misses</td><td>{$cache_user['num_misses']}</td></tr>
<tr class=tr-1><td class=td-0>Request Rate (hits, misses)</td><td>{$req_rate_user} cache requests/second</td></tr>
<tr class=tr-0><td class=td-0>Hit Rate</td><td>{$hit_rate_user} cache requests/second</td></tr>
<tr class=tr-1><td class=td-0>Miss Rate</td><td>{$miss_rate_user} cache requests/second</td></tr>
<tr class=tr-0><td class=td-0>Insert Rate</td><td>{$insert_rate_user} cache requests/second</td></tr>
<tr class=tr-1><td class=td-0>Cache full count</td><td>{$cache_user['expunges']}</td></tr>
</tbody></table>
</div>
<div class="info div2"><h2>Runtime Settings</h2><table cellspacing=0><tbody>
EOB;
$j = 0;
foreach (ini_get_all('apc') as $k => $v) {
echo "<tr class=tr-{$j}><td class=td-0>", $k, "</td><td>", str_replace(',', ',<br />', $v['local_value']), "</td></tr>\n";
$j = 1 - $j;
}
if ($mem['num_seg'] > 1 || $mem['num_seg'] == 1 && count($mem['block_lists'][0]) > 1) {
$mem_note = "Memory Usage<br /><font size=-2>(multiple slices indicate fragments)</font>";
} else {
$mem_note = "Memory Usage";
}
echo <<<EOB
</tbody></table>
</div>
<div class="graph div3"><h2>Host Status Diagrams</h2>
<table cellspacing=0><tbody>
EOB;
$size = 'width=' . (GRAPH_SIZE + 50) . ' height=' . (GRAPH_SIZE + 10);
echo <<<EOB
<tr>
<td class=td-0>{$mem_note}</td>
<td class=td-1>Hits & Misses</td>
</tr>
EOB;
echo graphics_avail() ? '<tr>' . "<td class=td-0><img alt=\"\" {$size} src=\"{$PHP_SELF}?IMG=1&{$time}\"></td>" . "<td class=td-1><img alt=\"\" {$size} src=\"{$PHP_SELF}?IMG=2&{$time}\"></td></tr>\n" : "", '<tr>', '<td class=td-0><span class="green box"> </span>Free: ', bsize($mem_avail) . sprintf(" (%.1f%%)", $mem_avail * 100 / $mem_size), "</td>\n", '<td class=td-1><span class="green box"> </span>Hits: ', $cache['num_hits'] . sprintf(" (%.1f%%)", $cache['num_hits'] * 100 / ($cache['num_hits'] + $cache['num_misses'])), "</td>\n", '</tr>', '<tr>', '<td class=td-0><span class="red box"> </span>Used: ', bsize($mem_used) . sprintf(" (%.1f%%)", $mem_used * 100 / $mem_size), "</td>\n", '<td class=td-1><span class="red box"> </span>Misses: ', $cache['num_misses'] . sprintf(" (%.1f%%)", $cache['num_misses'] * 100 / ($cache['num_hits'] + $cache['num_misses'])), "</td>\n";
echo <<<EOB
</tr>
</tbody></table>
<br/>
<h2>Detailed Memory Usage and Fragmentation</h2>
<table cellspacing=0><tbody>
<tr>
<td class=td-0 colspan=2><br/>
EOB;
// Fragementation: (freeseg - 1) / total_seg
$nseg = $freeseg = $fragsize = $freetotal = 0;
for ($i = 0; $i < $mem['num_seg']; $i++) {
$ptr = 0;
foreach ($mem['block_lists'][$i] as $block) {
if ($block['offset'] != $ptr) {
++$nseg;
}
$ptr = $block['offset'] + $block['size'];
/* Only consider blocks <5M for the fragmentation % */
if ($block['size'] < 5 * 1024 * 1024) {
$fragsize += $block['size'];
}
$freetotal += $block['size'];
}
$freeseg += count($mem['block_lists'][$i]);
}
if ($freeseg > 1) {
$frag = sprintf("%.2f%% (%s out of %s in %d fragments)", $fragsize / $freetotal * 100, bsize($fragsize), bsize($freetotal), $freeseg);
} else {
$frag = "0%";
}
if (graphics_avail()) {
$size = 'width=' . (2 * GRAPH_SIZE + 150) . ' height=' . (GRAPH_SIZE + 10);
echo <<<EOB
<img alt="" {$size} src="{$PHP_SELF}?IMG=3&{$time}">
EOB;
}
echo <<<EOB
</br>Fragmentation: {$frag}
</td>
</tr>
EOB;
if (isset($mem['adist'])) {
foreach ($mem['adist'] as $i => $v) {
$cur = pow(2, $i);
$nxt = pow(2, $i + 1) - 1;
if ($i == 0) {
$range = "1";
} else {
$range = "{$cur} - {$nxt}";
}
echo "<tr><th align=right>{$range}</th><td align=right>{$v}</td></tr>\n";
}
}
echo <<<EOB
</tbody></table>
</div>
EOB;
break;
// -----------------------------------------------
// User Cache Entries
// -----------------------------------------------
// -----------------------------------------------
// User Cache Entries
// -----------------------------------------------
case OB_USER_CACHE:
if (!$AUTHENTICATED) {
echo '<div class="error">You need to login to see the user values here!<br/> <br/>';
put_login_link("Login now!");
echo '</div>';
break;
}
$fieldname = 'info';
$fieldheading = 'User Entry Label';
$fieldkey = 'info';
// -----------------------------------------------
// System Cache Entries
// -----------------------------------------------
// -----------------------------------------------
// System Cache Entries
// -----------------------------------------------
case OB_SYS_CACHE:
if (!isset($fieldname)) {
$fieldname = 'filename';
$fieldheading = 'Script Filename';
if (ini_get("apc.stat")) {
$fieldkey = 'inode';
} else {
$fieldkey = 'filename';
}
}
if (!empty($MYREQUEST['SH'])) {
echo <<<EOB
<div class="info"><table cellspacing=0><tbody>
<tr><th>Attribute</th><th>Value</th></tr>
EOB;
$m = 0;
foreach ($scope_list as $j => $list) {
foreach ($cache[$list] as $i => $entry) {
if (md5($entry[$fieldkey]) != $MYREQUEST['SH']) {
continue;
}
foreach ($entry as $k => $value) {
if (!$AUTHENTICATED) {
// hide all path entries if not logged in
$value = preg_replace('/^.*(\\/|\\\\)/', '<i><hidden></i>/', $value);
}
if ($k == "num_hits") {
$value = sprintf("%s (%.2f%%)", $value, $value * 100 / $cache['num_hits']);
}
if ($k == 'deletion_time') {
if (!$entry['deletion_time']) {
$value = "None";
}
}
echo "<tr class=tr-{$m}>", "<td class=td-0>", ucwords(preg_replace("/_/", " ", $k)), "</td>", "<td class=td-last>", preg_match("/time/", $k) && $value != 'None' ? date(DATE_FORMAT, $value) : $value, "</td>", "</tr>";
$m = 1 - $m;
}
if ($fieldkey == 'info') {
echo "<tr class=tr-{$m}><td class=td-0>Stored Value</td><td class=td-last><pre>";
$output = var_export(apc_fetch($entry[$fieldkey]), true);
echo htmlspecialchars($output);
echo "</pre></td></tr>\n";
}
break;
}
}
echo <<<EOB
</tbody></table>
</div>
EOB;
break;
}
$cols = 6;
echo <<<EOB
<div class=sorting><form>Scope:
<input type=hidden name=OB value={$MYREQUEST['OB']}>
<select name=SCOPE>
EOB;
echo "<option value=A", $MYREQUEST['SCOPE'] == 'A' ? " selected" : "", ">Active</option>", "<option value=D", $MYREQUEST['SCOPE'] == 'D' ? " selected" : "", ">Deleted</option>", "</select>", ", Sorting:<select name=SORT1>", "<option value=H", $MYREQUEST['SORT1'] == 'H' ? " selected" : "", ">Hits</option>", "<option value=Z", $MYREQUEST['SORT1'] == 'Z' ? " selected" : "", ">Size</option>", "<option value=S", $MYREQUEST['SORT1'] == 'S' ? " selected" : "", ">{$fieldheading}</option>", "<option value=A", $MYREQUEST['SORT1'] == 'A' ? " selected" : "", ">Last accessed</option>", "<option value=M", $MYREQUEST['SORT1'] == 'M' ? " selected" : "", ">Last modified</option>", "<option value=C", $MYREQUEST['SORT1'] == 'C' ? " selected" : "", ">Created at</option>", "<option value=D", $MYREQUEST['SORT1'] == 'D' ? " selected" : "", ">Deleted at</option>";
if ($fieldname == 'info') {
echo "<option value=D", $MYREQUEST['SORT1'] == 'T' ? " selected" : "", ">Timeout</option>";
}
echo '</select>', '<select name=SORT2>', '<option value=D', $MYREQUEST['SORT2'] == 'D' ? ' selected' : '', '>DESC</option>', '<option value=A', $MYREQUEST['SORT2'] == 'A' ? ' selected' : '', '>ASC</option>', '</select>', '<select name=COUNT onChange="form.submit()">', '<option value=10 ', $MYREQUEST['COUNT'] == '10' ? ' selected' : '', '>Top 10</option>', '<option value=20 ', $MYREQUEST['COUNT'] == '20' ? ' selected' : '', '>Top 20</option>', '<option value=50 ', $MYREQUEST['COUNT'] == '50' ? ' selected' : '', '>Top 50</option>', '<option value=100', $MYREQUEST['COUNT'] == '100' ? ' selected' : '', '>Top 100</option>', '<option value=150', $MYREQUEST['COUNT'] == '150' ? ' selected' : '', '>Top 150</option>', '<option value=200', $MYREQUEST['COUNT'] == '200' ? ' selected' : '', '>Top 200</option>', '<option value=500', $MYREQUEST['COUNT'] == '500' ? ' selected' : '', '>Top 500</option>', '<option value=0 ', $MYREQUEST['COUNT'] == '0' ? ' selected' : '', '>All</option>', '</select>', ' Search: <input name=SEARCH value="', $MYREQUEST['SEARCH'], '" type=text size=25/>', ' <input type=submit value="GO!">', '</form></div>';
if (isset($MYREQUEST['SEARCH'])) {
// Don't use preg_quote because we want the user to be able to specify a
// regular expression subpattern.
$MYREQUEST['SEARCH'] = '/' . str_replace('/', '\\/', $MYREQUEST['SEARCH']) . '/i';
if (preg_match($MYREQUEST['SEARCH'], 'test') === false) {
echo '<div class="error">Error: enter a valid regular expression as a search query.</div>';
break;
}
}
echo '<div class="info"><table cellspacing=0><tbody>', '<tr>', '<th>', sortheader('S', $fieldheading, "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('H', 'Hits', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('Z', 'Size', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('A', 'Last accessed', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('M', 'Last modified', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('C', 'Created at', "&OB=" . $MYREQUEST['OB']), '</th>';
if ($fieldname == 'info') {
$cols += 2;
echo '<th>', sortheader('T', 'Timeout', "&OB=" . $MYREQUEST['OB']), '</th>';
}
echo '<th>', sortheader('D', 'Deleted at', "&OB=" . $MYREQUEST['OB']), '</th></tr>';
// builds list with alpha numeric sortable keys
//
$list = array();
foreach ($cache[$scope_list[$MYREQUEST['SCOPE']]] as $i => $entry) {
switch ($MYREQUEST['SORT1']) {
case 'A':
$k = sprintf('%015d-', $entry['access_time']);
break;
case 'H':
$k = sprintf('%015d-', $entry['num_hits']);
break;
case 'Z':
$k = sprintf('%015d-', $entry['mem_size']);
break;
case 'M':
$k = sprintf('%015d-', $entry['mtime']);
break;
case 'C':
$k = sprintf('%015d-', $entry['creation_time']);
break;
case 'T':
$k = sprintf('%015d-', $entry['ttl']);
break;
case 'D':
$k = sprintf('%015d-', $entry['deletion_time']);
break;
case 'S':
$k = '';
break;
}
if (!$AUTHENTICATED) {
// hide all path entries if not logged in
$list[$k . $entry[$fieldname]] = preg_replace('/^.*(\\/|\\\\)/', '<i><hidden></i>/', $entry);
} else {
$list[$k . $entry[$fieldname]] = $entry;
}
}
if ($list) {
// sort list
//
switch ($MYREQUEST['SORT2']) {
case "A":
krsort($list);
break;
case "D":
ksort($list);
break;
}
// output list
$i = 0;
foreach ($list as $k => $entry) {
if (!$MYREQUEST['SEARCH'] || preg_match($MYREQUEST['SEARCH'], $entry[$fieldname]) != 0) {
echo '<tr class=tr-', $i % 2, '>', "<td class=td-0><a href=\"{$MY_SELF}&OB=", $MYREQUEST['OB'], "&SH=", md5($entry[$fieldkey]), "\">", $entry[$fieldname], '</a></td>', '<td class="td-n center">', $entry['num_hits'], '</td>', '<td class="td-n right">', $entry['mem_size'], '</td>', '<td class="td-n center">', date(DATE_FORMAT, $entry['access_time']), '</td>', '<td class="td-n center">', date(DATE_FORMAT, $entry['mtime']), '</td>', '<td class="td-n center">', date(DATE_FORMAT, $entry['creation_time']), '</td>';
if ($fieldname == 'info') {
if ($entry['ttl']) {
echo '<td class="td-n center">' . $entry['ttl'] . ' seconds</td>';
} else {
echo '<td class="td-n center">None</td>';
}
}
if ($entry['deletion_time']) {
echo '<td class="td-last center">', date(DATE_FORMAT, $entry['deletion_time']), '</td>';
} else {
if ($MYREQUEST['OB'] == OB_USER_CACHE) {
echo '<td class="td-last center">';
echo '[<a href="', $MY_SELF, '&OB=', $MYREQUEST['OB'], '&DU=', urlencode($entry[$fieldkey]), '">Delete Now</a>]';
echo '</td>';
} else {
echo '<td class="td-last center"> </td>';
}
}
echo '</tr>';
$i++;
if ($i == $MYREQUEST['COUNT']) {
break;
}
}
}
} else {
echo '<tr class=tr-0><td class="center" colspan=', $cols, '><i>No data</i></td></tr>';
}
echo <<<EOB
</tbody></table>
EOB;
if ($list && $i < count($list)) {
echo "<a href=\"{$MY_SELF}&OB=", $MYREQUEST['OB'], "&COUNT=0\"><i>", count($list) - $i, ' more available...</i></a>';
}
echo <<<EOB
</div>
EOB;
break;
// -----------------------------------------------
// Per-Directory System Cache Entries
// -----------------------------------------------
// -----------------------------------------------
// Per-Directory System Cache Entries
// -----------------------------------------------
case OB_SYS_CACHE_DIR:
if (!$AUTHENTICATED) {
break;
}
echo <<<EOB
<div class=sorting><form>Scope:
<input type=hidden name=OB value={$MYREQUEST['OB']}>
<select name=SCOPE>
EOB;
echo "<option value=A", $MYREQUEST['SCOPE'] == 'A' ? " selected" : "", ">Active</option>", "<option value=D", $MYREQUEST['SCOPE'] == 'D' ? " selected" : "", ">Deleted</option>", "</select>", ", Sorting:<select name=SORT1>", "<option value=H", $MYREQUEST['SORT1'] == 'H' ? " selected" : "", ">Total Hits</option>", "<option value=Z", $MYREQUEST['SORT1'] == 'Z' ? " selected" : "", ">Total Size</option>", "<option value=T", $MYREQUEST['SORT1'] == 'T' ? " selected" : "", ">Number of Files</option>", "<option value=S", $MYREQUEST['SORT1'] == 'S' ? " selected" : "", ">Directory Name</option>", "<option value=A", $MYREQUEST['SORT1'] == 'A' ? " selected" : "", ">Avg. Size</option>", "<option value=C", $MYREQUEST['SORT1'] == 'C' ? " selected" : "", ">Avg. Hits</option>", '</select>', '<select name=SORT2>', '<option value=D', $MYREQUEST['SORT2'] == 'D' ? ' selected' : '', '>DESC</option>', '<option value=A', $MYREQUEST['SORT2'] == 'A' ? ' selected' : '', '>ASC</option>', '</select>', '<select name=COUNT onChange="form.submit()">', '<option value=10 ', $MYREQUEST['COUNT'] == '10' ? ' selected' : '', '>Top 10</option>', '<option value=20 ', $MYREQUEST['COUNT'] == '20' ? ' selected' : '', '>Top 20</option>', '<option value=50 ', $MYREQUEST['COUNT'] == '50' ? ' selected' : '', '>Top 50</option>', '<option value=100', $MYREQUEST['COUNT'] == '100' ? ' selected' : '', '>Top 100</option>', '<option value=150', $MYREQUEST['COUNT'] == '150' ? ' selected' : '', '>Top 150</option>', '<option value=200', $MYREQUEST['COUNT'] == '200' ? ' selected' : '', '>Top 200</option>', '<option value=500', $MYREQUEST['COUNT'] == '500' ? ' selected' : '', '>Top 500</option>', '<option value=0 ', $MYREQUEST['COUNT'] == '0' ? ' selected' : '', '>All</option>', '</select>', ", Group By Dir Level:<select name=AGGR>", "<option value='' selected>None</option>";
for ($i = 1; $i < 10; $i++) {
echo "<option value={$i}", $MYREQUEST['AGGR'] == $i ? " selected" : "", ">{$i}</option>";
}
echo '</select>', ' <input type=submit value="GO!">', '</form></div>', '<div class="info"><table cellspacing=0><tbody>', '<tr>', '<th>', sortheader('S', 'Directory Name', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('T', 'Number of Files', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('H', 'Total Hits', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('Z', 'Total Size', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('C', 'Avg. Hits', "&OB=" . $MYREQUEST['OB']), '</th>', '<th>', sortheader('A', 'Avg. Size', "&OB=" . $MYREQUEST['OB']), '</th>', '</tr>';
// builds list with alpha numeric sortable keys
//
$tmp = $list = array();
foreach ($cache[$scope_list[$MYREQUEST['SCOPE']]] as $entry) {
$n = dirname($entry['filename']);
if ($MYREQUEST['AGGR'] > 0) {
$n = preg_replace("!^(/?(?:[^/\\\\]+[/\\\\]){" . ($MYREQUEST['AGGR'] - 1) . "}[^/\\\\]*).*!", "\$1", $n);
}
if (!isset($tmp[$n])) {
$tmp[$n] = array('hits' => 0, 'size' => 0, 'ents' => 0);
}
$tmp[$n]['hits'] += $entry['num_hits'];
$tmp[$n]['size'] += $entry['mem_size'];
++$tmp[$n]['ents'];
}
foreach ($tmp as $k => $v) {
switch ($MYREQUEST['SORT1']) {
case 'A':
$kn = sprintf('%015d-', $v['size'] / $v['ents']);
break;
case 'T':
$kn = sprintf('%015d-', $v['ents']);
break;
case 'H':
$kn = sprintf('%015d-', $v['hits']);
break;
case 'Z':
$kn = sprintf('%015d-', $v['size']);
break;
case 'C':
$kn = sprintf('%015d-', $v['hits'] / $v['ents']);
break;
case 'S':
$kn = $k;
break;
}
$list[$kn . $k] = array($k, $v['ents'], $v['hits'], $v['size']);
}
if ($list) {
// sort list
//
switch ($MYREQUEST['SORT2']) {
case "A":
krsort($list);
break;
case "D":
ksort($list);
break;
}
// output list
$i = 0;
foreach ($list as $entry) {
echo '<tr class=tr-', $i % 2, '>', "<td class=td-0>", $entry[0], '</a></td>', '<td class="td-n center">', $entry[1], '</td>', '<td class="td-n center">', $entry[2], '</td>', '<td class="td-n center">', $entry[3], '</td>', '<td class="td-n center">', round($entry[2] / $entry[1]), '</td>', '<td class="td-n center">', round($entry[3] / $entry[1]), '</td>', '</tr>';
if (++$i == $MYREQUEST['COUNT']) {
break;
}
}
} else {
echo '<tr class=tr-0><td class="center" colspan=6><i>No data</i></td></tr>';
}
echo <<<EOB
</tbody></table>
EOB;
if ($list && $i < count($list)) {
echo "<a href=\"{$MY_SELF}&OB=", $MYREQUEST['OB'], "&COUNT=0\"><i>", count($list) - $i, ' more available...</i></a>';
}
echo <<<EOB
</div>
EOB;
break;
// -----------------------------------------------
// Version check
// -----------------------------------------------
// -----------------------------------------------
// Version check
// -----------------------------------------------
case OB_VERSION_CHECK:
echo <<<EOB
<div class="info"><h2>APC Version Information</h2>
<table cellspacing=0><tbody>
<tr>
<th></th>
</tr>
EOB;
$rss = @file_get_contents("http://pecl.php.net/feeds/pkg_apc.rss");
if (!$rss) {
echo '<tr class="td-last center"><td>Unable to fetch version information.</td></tr>';
} else {
$apcversion = phpversion('apc');
preg_match('!<title>APC ([0-9.]+)</title>!', $rss, $match);
echo '<tr class="tr-0 center"><td>';
if (version_compare($apcversion, $match[1], '>=')) {
echo '<div class="ok">You are running the latest version of APC (' . $apcversion . ')</div>';
$i = 3;
} else {
echo '<div class="failed">You are running an older version of APC (' . $apcversion . '),
newer version ' . $match[1] . ' is available at <a href="http://pecl.php.net/package/APC/' . $match[1] . '">
http://pecl.php.net/package/APC/' . $match[1] . '</a>
</div>';
$i = -1;
}
echo '</td></tr>';
echo '<tr class="tr-0"><td><h3>Change Log:</h3><br/>';
preg_match_all('!<(title|description)>([^<]+)</\\1>!', $rss, $match);
next($match[2]);
next($match[2]);
while (list(, $v) = each($match[2])) {
list(, $ver) = explode(' ', $v, 2);
if ($i < 0 && version_compare($apcversion, $ver, '>=')) {
break;
} else {
if (!$i--) {
break;
}
}
echo "<b><a href=\"http://pecl.php.net/package/APC/{$ver}\">" . htmlspecialchars($v) . "</a></b><br><blockquote>";
echo nl2br(htmlspecialchars(current($match[2]))) . "</blockquote>";
next($match[2]);
}
echo '</td></tr>';
}
echo <<<EOB
</tbody></table>
</div>
EOB;
break;
}
echo <<<EOB
</div>
EOB;
?>
<!-- <?php
echo "\nBased on APCGUI By R.Becker\n{$VERSION}\n";
?>
-->
</body>
</html>
<?php
exit;
}
foreach ($keys as $k) {
if (strpos($k, "ITEM") === 0) {
$item = str_replace("ITEM ", "", $k);
$item_parts = explode(" ", $item);
$items_count++;
$o = process_item($item_parts[0]);
$output[] = $o;
show_line(str_pad($o['size'], 15, " ") . " " . $o['key']);
}
}
}
show_line('');
show_line('');
show_line('');
show_line("ITEM COUNT : {$items_count}");
show_line("TOTAL SIZE: {$total_size}, " . bsize($total_size));
//echo execute("stats cachedump 32 10");
function process_item($i)
{
$name = $i;
$content = sendMemcacheCommand("get {$i}");
if (isset($content['VALUE'])) {
$size = $content['VALUE'][$i]['stat']['size'];
global $total_size;
$total_size += $size;
} else {
$size = "?";
}
return array("size" => $size, "key" => $i);
}
function execute($q)