/*

OCP - Opcache Control Panel   (aka Zend Optimizer+ Control Panel for PHP)

Author: _ck_   (with contributions by GK, stasilok)

Version: 0.1.6

Free for any kind of use or modification, I am not responsible for anything, please share your improvements

 

* revision history

0.1.6  2013-04-12  moved meta to footer so graphs can be higher and reduce clutter

0.1.5  2013-04-12  added graphs to visualize cache state, please report any browser/style bugs

0.1.4  2013-04-09  added "recheck" to update files when using large revalidate_freq (or validate_timestamps=Off)

0.1.3  2013-03-30  show host and php version, can bookmark with hashtag ie. #statistics - needs new layout asap

0.1.2  2013-03-25  show optimization levels, number formatting, support for start_time in 7.0.2

0.1.1  2013-03-18  today Zend completely renamed Optimizer+ to OPcache, adjusted OCP to keep working

0.1.0  2013-03-17  added group/sort indicators, replaced "accelerator_" functions with "opcache_"

0.0.6  2013-03-16  transition support as Zend renames product and functions for PHP 5.5 (stasilok)

0.0.5  2013-03-10  added refresh button (GK)

0.0.4  2013-02-18  added file grouping and sorting (click on headers) - code needs cleanup but gets the job done

0.0.2  2013-02-14  first public release

 

* known problems/limitations:

Unlike APC, the Zend OPcache API

 - cannot determine when a file was put into the cache

 - cannot change settings on the fly

 - cannot protect opcache functions by restricting execution to only specific scripts/paths

 

* todo:

Extract variables for prefered ordering and better layout instead of just dumping into tables

File list filter

 

*/

 

// ini_set('display_errors',1); error_reporting(-1);

if ( count(get_included_files())>1 || php_sapi_name()=='cli' || empty($_SERVER['REMOTE_ADDR']) ) { die; }  // weak block against indirect access

 

$time=time();

define('CACHEPREFIX',function_exists('opcache_reset')?'opcache_':(function_exists('accelerator_reset')?'accelerator_':''));

 

if ( !empty($_GET['RESET']) ) {

if ( function_exists(CACHEPREFIX.'reset') ) { call_user_func(CACHEPREFIX.'reset'); }

header( 'Location: '.str_replace('?'.$_SERVER['QUERY_STRING'],'',$_SERVER['REQUEST_URI']) ); 

exit;

}

 

if ( !empty($_GET['RECHECK']) ) {

if ( function_exists(CACHEPREFIX.'invalidate') ) { 

$recheck=trim($_GET['RECHECK']); $files=call_user_func(CACHEPREFIX.'get_status');

if (!empty($files['scripts'])) { 

foreach ($files['scripts'] as $file=>$value) { 

if ( $recheck==='1' || strpos($file,$recheck)===0 )  call_user_func(CACHEPREFIX.'invalidate',$file); 

}

header( 'Location: '.str_replace('?'.$_SERVER['QUERY_STRING'],'',$_SERVER['REQUEST_URI']) ); 

} else { echo 'Sorry, this feature requires Zend Opcache newer than April 8th 2013'; }

exit;

}

 

?>

OCP - Opcache Control Panel

 

 

 

 

Opcache Control Panel

 

 

 

if ( !function_exists(CACHEPREFIX.'get_status') ) { echo '

Opcache not detected?

'; die; }

 

if ( !empty($_GET['FILES']) ) { echo '

files cached

'; files_display(); echo '
'; exit; }

 

if ( !(isset($_REQUEST['GRAPHS']) && !$_REQUEST['GRAPHS']) && CACHEPREFIX=='opcache_') { graphs_display(); if ( !empty($_REQUEST['GRAPHS']) ) { exit; } }

 

ob_start(); phpinfo(8); $phpinfo = ob_get_contents(); ob_end_clean(); // some info is only available via phpinfo? sadly buffering capture has to be used

if ( !preg_match( '/module\_Zend (Optimizer\+|OPcache).+?(\]*\>.+?\<\/table\>).+?(\]*\>.+?\<\/table\>)/s', $phpinfo, $opcache) ) { }  // todo

 

if ( function_exists(CACHEPREFIX.'get_configuration') ) { echo '

general

'; $configuration=call_user_func(CACHEPREFIX.'get_configuration'); }

 

$host=function_exists('gethostname')?@gethostname():@php_uname('n'); if (empty($host)) { $host=empty($_SERVER['SERVER_NAME'])?$_SERVER['HOST_NAME']:$_SERVER['SERVER_NAME']; }

$version=array('Host'=>$host);

$version['PHP Version']='PHP '.(defined('PHP_VERSION')?PHP_VERSION:'???').' '.(defined('PHP_SAPI')?PHP_SAPI:'').' '.(defined('PHP_OS')?' '.PHP_OS:'');

$version['Opcache Version']=empty($configuration['version']['version'])?'???':$configuration['version'][CACHEPREFIX.'product_name'].' '.$configuration['version']['version']; 

print_table($version);

 

if ( !empty($opcache[2]) ) { echo preg_replace('/\\[^>]+\<\/td\>\[0-9\,\. ]+\<\/td\>\<\/tr\>/','',$opcache[2]); }

 

if ( function_exists(CACHEPREFIX.'get_status') && $status=call_user_func(CACHEPREFIX.'get_status') ) {

$uptime=array();

if ( !empty($status[CACHEPREFIX.'statistics']['start_time']) ) { 

$uptime['uptime']=time_since($time,$status[CACHEPREFIX.'statistics']['start_time'],1,'');

}

if ( !empty($status[CACHEPREFIX.'statistics']['last_restart_time']) ) { 

$uptime['last_restart']=time_since($time,$status[CACHEPREFIX.'statistics']['last_restart_time']);

}

if (!empty($uptime)) {print_table($uptime);}

if ( !empty($status['cache_full']) ) { $status['memory_usage']['cache_full']=$status['cache_full']; }

echo '

memory

';

print_table($status['memory_usage']);

unset($status[CACHEPREFIX.'statistics']['start_time'],$status[CACHEPREFIX.'statistics']['last_restart_time']);

echo '

statistics

';

print_table($status[CACHEPREFIX.'statistics']);

}

 

if ( empty($_GET['ALL']) ) { meta_display(); exit; }

  

if ( !empty($configuration['blacklist']) ) { echo '

blacklist

'; print_table($configuration['blacklist']); }

 

if ( !empty($opcache[3]) ) { echo '

runtime

'; echo $opcache[3]; }

 

$name='zend opcache'; $functions=get_extension_funcs($name); 

if (!$functions) { $name='zend optimizer+'; $functions=get_extension_funcs($name); }

if ($functions) { echo '

functions

'; print_table($functions);  } else { $name=''; }

 

$level=trim(CACHEPREFIX,'_').'.optimization_level';

if (isset($configuration['directives'][$level])) {

echo '

optimization levels

';

$levelset=strrev(base_convert($configuration['directives'][$level], 10, 2));

$levels=array(

    1=>'Constants subexpressions elimination (CSE) true, false, null, etc.
Optimize series of ADD_STRING / ADD_CHAR
Convert CAST(IS_BOOL,x) into BOOL(x)
Convert INIT_FCALL_BY_NAME + DO_FCALL_BY_NAME into DO_FCALL',

    2=>'Convert constant operands to expected types
Convert conditional JMP  with constant operands
Optimize static BRK and CONT',

    3=>'Convert $a = $a + expr into $a += expr
Convert $a++ into ++$a
Optimize series of JMP',

    4=>'PRINT and ECHO optimization (defunct)',

5=>'Block Optimization - most expensive pass
Performs many different optimization patterns based on control flow graph (CFG)',

9=>'Optimize register allocation (allows re-usage of temporary variables)',

10=>'Remove NOPs'

);

echo '

';

foreach ($levels as $pass=>$description) {

$disabled=substr($levelset,$pass-1,1)!=='1' || $pass==4 ? ' white':'';

echo '

';

}

echo '

PassDescription
'.$pass.''.$description.'
';

}

 

if ( isset($_GET['DUMP']) ) { 

if ($name) { echo '

ini

'; print_table(ini_get_all($name,true)); } 

foreach ($configuration as $key=>$value) { echo '

',$key,'

'; print_table($configuration[$key]); } 

exit;

}

 

meta_display();

 

echo '

';

 

exit;

 

function time_since($time,$original,$extended=0,$text='ago') {

$time =  $time - $original; 

$day = $extended? floor($time/86400) : round($time/86400,0); 

$amount=0; $unit='';

if ( $time < 86400) {

if ( $time < 60) { $amount=$time; $unit='second'; }

elseif ( $time < 3600) { $amount=floor($time/60); $unit='minute'; }

else { $amount=floor($time/3600); $unit='hour'; }

elseif ( $day < 14) { $amount=$day; $unit='day'; }

elseif ( $day < 56) { $amount=floor($day/7); $unit='week'; }

elseif ( $day < 672) { $amount=floor($day/30); $unit='month'; }

else {  $amount=intval(2*($day/365))/2; $unit='year'; }

if ( $amount!=1) {$unit.='s';}

if ($extended && $time>60) { $text=' and '.time_since($time,$time<86400?($time<3600?$amount*60:$amount*3600):$day*86400,0,'').$text; }

return $amount.' '.$unit.' '.$text;

}

 

function print_table($array,$headers=false) {

if ( empty($array) || !is_array($array) ) {return;} 

  echo '

';

  if (!empty($headers)) {

  if (!is_array($headers)) {$headers=array_keys(reset($array));}

  echo '

';

  foreach ($headers as $value) { echo '

'; }

  echo '

';  

  }

  foreach ($array as $key=>$value) {

    echo '

';

    if ( !is_numeric($key) ) { 

      $key=ucwords(str_replace('_',' ',$key));

      echo '

'; 

      if ( is_numeric($value) ) {

        if ( $value>1048576) { $value=round($value/1048576,1).'M'; }

        elseif ( is_float($value) ) { $value=round($value,1); }

      }

    }

    if ( is_array($value) ) {

      foreach ($value as $column) {

          echo '

';

      }

      echo '

';

    }

    else { echo '

'; } 

}

  echo '

',$value,'
',$key,' ',$column,'
',$value,'
';

}

 

function files_display() {

$status=call_user_func(CACHEPREFIX.'get_status');

if ( empty($status['scripts']) ) {return;}

if ( isset($_GET['DUMP']) ) { print_table($status['scripts']); exit;}

    $time=time(); $sort=0; 

$nogroup=preg_replace('/\&?GROUP\=[\-0-9]+/','',$_SERVER['REQUEST_URI']);

$nosort=preg_replace('/\&?SORT\=[\-0-9]+/','',$_SERVER['REQUEST_URI']);

$group=empty($_GET['GROUP'])?0:intval($_GET['GROUP']); if ( $group<0 || $group>9) { $group=1;}

$groupset=array_fill(0,9,''); $groupset[$group]=' class="b" ';

echo '

ungroup

1

2

3

4

5 

';

if ( !$group ) { $files =& $status['scripts']; }

else {

$files=array(); 

foreach ($status['scripts'] as $data) { 

if ( preg_match('@^[/]([^/]+[/]){'.$group.'}@',$data['full_path'],$path) ) { 

if ( empty($files[$path[0]])) { $files[$path[0]]=array('full_path'=>'','files'=>0,'hits'=>0,'memory_consumption'=>0,'last_used_timestamp'=>'','timestamp'=>''); }

$files[$path[0]]['full_path']=$path[0];

$files[$path[0]]['files']++;

$files[$path[0]]['memory_consumption']+=$data['memory_consumption'];

$files[$path[0]]['hits']+=$data['hits'];

if ( $data['last_used_timestamp']>$files[$path[0]]['last_used_timestamp']) {$files[$path[0]]['last_used_timestamp']=$data['last_used_timestamp'];}

if ( $data['timestamp']>$files[$path[0]]['timestamp']) {$files[$path[0]]['timestamp']=$data['timestamp'];}

}

}

}

if ( !empty($_GET['SORT']) ) {

$keys=array(

'full_path'=>SORT_STRING,

'files'=>SORT_NUMERIC,

'memory_consumption'=>SORT_NUMERIC,

'hits'=>SORT_NUMERIC,

'last_used_timestamp'=>SORT_NUMERIC,

'timestamp'=>SORT_NUMERIC

);

$titles=array('','path',$group?'files':'','size','hits','last used','created');

$offsets=array_keys($keys);

$key=intval($_GET['SORT']);

$direction=$key>0?1:-1;

$key=abs($key)-1;

$key=isset($offsets[$key])&&!($key==1&&empty($group))?$offsets[$key]:reset($offsets);

$sort=array_search($key,$offsets)+1;

$sortflip=range(0,7); $sortflip[$sort]=-$direction*$sort;

if ( $keys[$key]==SORT_STRING) {$direction=-$direction; }

$arrow=array_fill(0,7,''); $arrow[$sort]=$direction>0?' ▼':' ▲';

$direction=$direction>0?SORT_DESC:SORT_ASC;

$column=array(); foreach ($files as $data) { $column[]=$data[$key]; }

array_multisort($column, $keys[$key], $direction, $files);

}

 

echo '

         

';

         foreach ($titles as $column=>$title) {

          if ($title) echo '

';

         }

         echo '

';

    foreach ($files as $data) {

    echo '

   

',

      ($group?'

':''),

          '

',

          '

',              

          '

',

          '

         

';

}

echo '

',$title,$arrow[$column],'
x',$data['full_path'],' '.number_format($data['files']).' ',number_format(round($data['memory_consumption']/1024)),'K ',number_format($data['hits']),' ',time_since($time,$data['last_used_timestamp']),' ',empty($data['timestamp'])?'':time_since($time,$data['timestamp']),'
';

}

 

function graphs_display() {

$graphs=array();

$colors=array('green','brown','red');

$primes=array(223, 463, 983, 1979, 3907, 7963, 16229, 32531, 65407, 130987);

$configuration=call_user_func(CACHEPREFIX.'get_configuration'); 

$status=call_user_func(CACHEPREFIX.'get_status');

 

$graphs['memory']['total']=$configuration['directives']['opcache.memory_consumption'];

$graphs['memory']['free']=$status['memory_usage']['free_memory'];

$graphs['memory']['used']=$status['memory_usage']['used_memory'];

$graphs['memory']['wasted']=$status['memory_usage']['wasted_memory'];

 

$graphs['keys']['total']=$status[CACHEPREFIX.'statistics']['max_cached_keys'];

foreach ($primes as $prime) { if ($prime>=$graphs['keys']['total']) { $graphs['keys']['total']=$prime; break;} }

$graphs['keys']['free']=$graphs['keys']['total']-$status[CACHEPREFIX.'statistics']['num_cached_keys'];

$graphs['keys']['scripts']=$status[CACHEPREFIX.'statistics']['num_cached_scripts'];

$graphs['keys']['wasted']=$status[CACHEPREFIX.'statistics']['num_cached_keys']-$status[CACHEPREFIX.'statistics']['num_cached_scripts'];

 

$graphs['hits']['total']=0;

$graphs['hits']['hits']=$status[CACHEPREFIX.'statistics']['hits'];

$graphs['hits']['misses']=$status[CACHEPREFIX.'statistics']['misses'];

$graphs['hits']['blacklist']=$status[CACHEPREFIX.'statistics']['blacklist_misses'];

$graphs['hits']['total']=array_sum($graphs['hits']);

 

$graphs['restarts']['total']=0;

$graphs['restarts']['manual']=$status[CACHEPREFIX.'statistics']['manual_restarts'];

$graphs['restarts']['keys']=$status[CACHEPREFIX.'statistics']['hash_restarts'];

$graphs['restarts']['memory']=$status[CACHEPREFIX.'statistics']['oom_restarts'];

$graphs['restarts']['total']=array_sum($graphs['restarts']);

 

foreach ( $graphs as $caption=>$graph) {

echo '

',$caption,'
';

foreach ($graph as $label=>$value) {

if ($label=='total') { $key=0; $total=$value; $totaldisplay='

'; continue;}

$percent=$total?floor($value*100/$total):''; $percent=!$percent||$percent>99?'':$percent.'%';

echo '

',$totaldisplay,'';

$key++; $totaldisplay='';

}

echo '

'.($total>999999?round($total/1024/1024).'M':($total>9999?round($total/1024).'K':$total)).'
', ($value>999999?round($value/1024/1024).'M':($value>9999?round($value/1024).'K':$value)),'',$percent,'',$label,'
',"\n";

}

}

 

function meta_display() {

?>

}