source: spip-zone/_plugins_/xray/trunk/xray_apc.php @ 107389

Last change on this file since 107389 was 107389, checked in by jluc@…, 3 years ago

Nico nu

File size: 47.4 KB
Line 
1<?php
2/*
3  +----------------------------------------------------------------------+
4  | APC                                                                  |
5  +----------------------------------------------------------------------+
6  | Copyright (c) 2006-2011 The PHP Group                                |
7  +----------------------------------------------------------------------+
8  | This source file is subject to version 3.01 of the PHP license,      |
9  | that is bundled with this package in the file LICENSE, and is        |
10  | available through the world-wide-web at the following url:           |
11  | http://www.php.net/license/3_01.txt                                  |
12  | If you did not receive a copy of the PHP license and are unable to   |
13  | obtain it through the world-wide-web, please send a note to          |
14  | license@php.net so we can mail you a copy immediately.               |
15  +----------------------------------------------------------------------+
16  | Authors: Ralf Becker <beckerr@php.net>                               |
17  |          Rasmus Lerdorf <rasmus@php.net>                             |
18  |          Ilia Alshanetsky <ilia@prohost.org>                         |
19  |          JLuc http://contrib.spip.net/JLuc                           |
20  +----------------------------------------------------------------------+
21
22   All other licensing and usage conditions are those of the PHP Group.
23
24 */
25 
26if (!autoriser('webmestre'))
27        die ("Autorisation non accordée : devenez webmestre d'abord.");
28
29$VERSION='$Id$';
30
31////////// READ OPTIONAL CONFIGURATION FILE ////////////
32if (file_exists("apc.conf.php")) include("apc.conf.php");
33////////////////////////////////////////////////////////
34
35////////// BEGIN OF DEFAULT CONFIG AREA ///////////////////////////////////////////////////////////
36
37defaults('USE_AUTHENTICATION',0);                       // Use (internal) authentication - best choice if
38                                                                                        // no other authentication is available
39                                                                                        // If set to 0:
40                                                                                        //  There will be no further authentication. You
41                                                                                        //  will have to handle this by yourself!
42                                                                                        // If set to 1:
43                                                                                        //  You need to change ADMIN_PASSWORD to make
44                                                                                        //  this work!
45defaults('ADMIN_USERNAME','admin');                     // Admin Username
46defaults('ADMIN_PASSWORD', 'password');         // Admin Password - CHANGE THIS TO ENABLE!!!
47
48// (beckerr) I'm using a clear text password here, because I've no good idea how to let
49//           users generate a md5 or crypt password in a easy way to fill it in above
50
51// defaults('DATE_FORMAT', "d.m.Y H:i:s");      // German
52defaults('DATE_FORMAT', 'Y/m/d H:i:s');         // US
53
54defaults('GRAPH_SIZE',400);                                     // Image size
55
56//defaults('PROXY', 'tcp://127.0.0.1:8080');
57
58// _CACHE_NAMESPACE est défini par memoization et préfixe chaque nom de cache SPIP
59// On ne souhaite pas que cette partie du nom s'affiche sur chaque ligne
60define ('XRAY_NEPASAFFICHER_DEBUTNOMCACHE', _CACHE_NAMESPACE);
61
62////////// END OF DEFAULT CONFIG AREA /////////////////////////////////////////////////////////////
63
64// Strings utils
65
66function is_serialized($str) {
67    return ($str == serialize(false) || @unserialize($str) !== false);
68}
69function get_serial_class($serial) {
70    $types = array('s' => 'string', 'a' => 'array', 'b' => 'bool', 'i' => 'int', 'd' => 'float', 'N;' => 'NULL');
71   
72    $parts = explode(':', $serial, 4);
73    return isset($types[$parts[0]]) ? $types[$parts[0]] : trim($parts[2], '"'); 
74}
75function spipsafe_unserialize($str) {
76        if (strpos($str, "SPIPTextWheelRuleset") !== false) {
77                if (isset($_GET['ZOOM']) and ($_GET['ZOOM']=='TEXTECOURT'))
78                        return "Début : ".substr(trim($str), 0, 80).'...';
79                else
80                        return "Brut : $str";
81        }
82        $unser = unserialize($str);
83        if (is_array($unser) and isset ($unser['texte'])
84                and isset($_GET['ZOOM']) and ($_GET['ZOOM']=='TEXTECOURT')) {
85                $unser['texte'] = trim(preg_replace ('/\s+/', ' ', $unser['texte']));
86                if (mb_strlen($unser['texte'])>80)
87                        $unser['texte'] = mb_substr($unser['texte'], 0, 80).'...';
88                elseif (!$unser['texte'])
89                        $unser['texte']='(vide)';
90        }
91        return "Unserialized : ".print_r($unser,1);
92}
93function print_contexte($extra, $tostring) {
94        $print = print_r($extra, 1);
95        if (stripos($print, 'Array') === 0) {
96                $print = trim (substr($print, 5), " (\n\r\t");
97                $print = preg_replace_callback(
98                        "/\[id_([a-z\-_]+)\]\s*=>\s*(\d+)$/im", 
99                        function ($match) { return $match[0].'</xmp>'.bouton_objet ($match[1], $match[2]).'<xmp>'; },
100                        $print);
101        };
102        if ($tostring)
103                return $print;
104        echo $print;
105};
106
107function bouton_objet($objet, $id_objet) {
108        $objet_visible=$objet;
109        if ($objet=='secteur')
110                $objet='rubrique';
111        else 
112                $objet=$objet;
113        return "<a href='/ecrire/?exec=$objet&id_$objet=$id_objet' target='blank'
114                        style='position:absolute; right:0px'
115                        title=".attribut_html(generer_info_entite($id_objet, $objet, 'titre', 'etoile')).">[voir $objet_visible]</a>";
116}
117
118////////////////////////////////////////////////////////////////////////
119
120// "define if not defined"
121function defaults($d,$v) {
122        if (!defined($d)) define($d,$v); // or just @define(...)
123}
124
125// rewrite $PHP_SELF to block XSS attacks
126//
127$PHP_SELF= isset($_SERVER['PHP_SELF']) ? htmlentities(strip_tags($_SERVER['PHP_SELF'],''), ENT_QUOTES, 'UTF-8') : '';
128$time = time();
129$host = php_uname('n');
130if($host) { $host = '('.$host.')'; }
131if (isset($_SERVER['SERVER_ADDR'])) {
132  $host .= ' ('.$_SERVER['SERVER_ADDR'].')';
133}
134
135// operation constants
136define('OB_HOST_STATS',1);
137define('OB_USER_CACHE',2);
138define('OB_VERSION_CHECK',3);
139
140// check validity of input variables
141$vardom=array(
142        'exec'  => '/^[a-zA-Z_\-0-9]+$/',       // pour #URL_ECRIRE{xray}
143        'OB'    => '/^\d+$/',                   // operational mode switch
144        'CC'    => '/^[01]$/',                  // clear cache requested
145        'DU'    => '/^.*$/',                    // Delete User Key
146        'SH'    => '/^[a-z0-9]*$/',             // shared object description
147
148        'IMG'   => '/^[123]$/',                 // image to generate
149        'LO'    => '/^1$/',                             // login requested
150
151        'COUNT' => '/^\d+$/',                   // number of line displayed in list
152        'SCOPE' => '/^[AD]$/',                  // list view scope
153        'S_KEY' => '/^[AHSMCDTZ]$/',    // first sort key
154        'SORT'  => '/^[DA]$/',                  // second sort key
155        'AGGR'  => '/^\d+$/',                   // aggregation by dir level
156        'SEARCH'        => '~^[a-zA-Z0-9/_.\-\$\^]*$~',                 // aggregation by dir level
157        'TYPECACHE' => '/^(|ALL|SESSIONS|SESSIONS_AUTH|SESSIONS_NONAUTH|FORMULAIRES)$/',        //
158        'ZOOM' => '/^(|TEXTECOURT|TEXTELONG)$/',        //
159        'EXTRA' => '/^(|CONTEXTE|CONTEXTES_SPECIAUX|INFO_AUTEUR|INVALIDEURS|INVALIDEURS_SPECIAUX)$/',   //
160);
161
162// cache scope
163$scope_list=array(
164        'A' => 'cache_list',
165        'D' => 'deleted_list'
166);
167
168global $MYREQUEST;                                                                                                              // fix apcu
169// handle POST and GET requests
170if (empty($_REQUEST)) {
171        if (!empty($_GET) && !empty($_POST)) {
172                $_REQUEST = array_merge($_GET, $_POST);
173        } else if (!empty($_GET)) {
174                $_REQUEST = $_GET;
175        } else if (!empty($_POST)) {
176                $_REQUEST = $_POST;
177        } else {
178                $_REQUEST = array();
179        }
180}
181
182// check parameter syntax
183foreach($vardom as $var => $dom) {
184        if (!isset($_REQUEST[$var]))
185                $MYREQUEST[$var]=NULL;
186        else if (!is_array($_REQUEST[$var]) && preg_match($dom.'D',$_REQUEST[$var]))
187                $MYREQUEST[$var]=$_REQUEST[$var];
188        else {
189                echo "<xmp>ERREUR avec parametre d'url « $var » qui vaut « {$_REQUEST[$var]} »</xmp>";
190                $MYREQUEST[$var]=$_REQUEST[$var]=NULL;
191        }
192}
193
194// check parameter sematics
195if (empty($MYREQUEST['SCOPE'])) $MYREQUEST['SCOPE']="A";
196if (empty($MYREQUEST['S_KEY'])) $MYREQUEST['S_KEY']="H";
197if (empty($MYREQUEST['SORT'])) $MYREQUEST['SORT']="D";
198if (empty($MYREQUEST['OB']))    $MYREQUEST['OB']=OB_HOST_STATS;
199if (!isset($MYREQUEST['COUNT'])) $MYREQUEST['COUNT']=20;
200if (!isset($scope_list[$MYREQUEST['SCOPE']])) $MYREQUEST['SCOPE']='A';
201
202global $MY_SELF;                                                                                                                // fix apcu
203global $MY_SELF_WO_SORT;                                                                                                // fix apcu
204$MY_SELF_WO_SORT=
205        "$PHP_SELF"
206        ."?SCOPE=".$MYREQUEST['SCOPE']
207        ."&COUNT=".$MYREQUEST['COUNT']
208        ."&SEARCH=".$MYREQUEST['SEARCH']
209        ."&TYPECACHE=".$MYREQUEST['TYPECACHE']
210        ."&ZOOM=".$MYREQUEST['ZOOM']
211        ."&EXTRA=".$MYREQUEST['EXTRA']
212        ."&exec=".$MYREQUEST['exec']
213        ."&OB=".$MYREQUEST['OB']
214        ;
215$MY_SELF=$MY_SELF_WO_SORT
216        ."&S_KEY=".$MYREQUEST['S_KEY']
217        ."&SORT=".$MYREQUEST['SORT']
218        ;
219$self = "http".(!empty($_SERVER['HTTPS'])?"s":"")."://".$_SERVER['SERVER_NAME'].$_SERVER['REQUEST_URI'];
220
221global $IMG_BASE;
222$IMG_BASE=
223        "$PHP_SELF".
224        "?exec=".$MYREQUEST['exec'];
225
226// authentication needed?
227//
228if (!USE_AUTHENTICATION) {
229        $AUTHENTICATED=1;
230} else {
231        $AUTHENTICATED=0;
232        if (ADMIN_PASSWORD!='password' && ($MYREQUEST['LO'] == 1 || isset($_SERVER['PHP_AUTH_USER']))) {
233
234                if (!isset($_SERVER['PHP_AUTH_USER']) ||
235                        !isset($_SERVER['PHP_AUTH_PW']) ||
236                        $_SERVER['PHP_AUTH_USER'] != ADMIN_USERNAME ||
237                        $_SERVER['PHP_AUTH_PW'] != ADMIN_PASSWORD) {
238                        Header("WWW-Authenticate: Basic realm=\"APC Login\"");
239                        Header("HTTP/1.0 401 Unauthorized");
240
241                        echo <<<EOB
242                                <html><body>
243                                <h1>Rejected!</h1>
244                                <big>Wrong Username or Password!</big><br/>&nbsp;<br/>&nbsp;
245                                <big><a href='$PHP_SELF?OB={$MYREQUEST['OB']}'>Continue...</a></big>
246                                </body></html>
247EOB;
248                        exit;
249
250                } else {
251                        $AUTHENTICATED=1;
252                }
253        }
254}
255
256// clear cache
257if ($AUTHENTICATED && isset($MYREQUEST['CC']) && $MYREQUEST['CC']) {
258        apcu_clear_cache();
259}
260
261if ($AUTHENTICATED && !empty($MYREQUEST['DU'])) {
262        apcu_delete($MYREQUEST['DU']);
263}
264
265if(!function_exists('apcu_cache_info')) {
266        echo "No cache info available.  APC does not appear to be running.";
267  exit;
268}
269
270$cache = apcu_cache_info();
271
272$mem=apcu_sma_info();
273
274// don't cache this page
275//
276header("Cache-Control: no-store, no-cache, must-revalidate");  // HTTP/1.1
277header("Cache-Control: post-check=0, pre-check=0", false);
278header("Pragma: no-cache");                                    // HTTP/1.0
279
280function duration($ts) {
281    global $time;
282    $years = (int)((($time - $ts)/(7*86400))/52.177457);
283    $rem = (int)(($time-$ts)-($years * 52.177457 * 7 * 86400));
284    $weeks = (int)(($rem)/(7*86400));
285    $days = (int)(($rem)/86400) - $weeks*7;
286    $hours = (int)(($rem)/3600) - $days*24 - $weeks*7*24;
287    $mins = (int)(($rem)/60) - $hours*60 - $days*24*60 - $weeks*7*24*60;
288    $str = '';
289    if($years==1) $str .= "$years year, ";
290    if($years>1) $str .= "$years years, ";
291    if($weeks==1) $str .= "$weeks week, ";
292    if($weeks>1) $str .= "$weeks weeks, ";
293    if($days==1) $str .= "$days day,";
294    if($days>1) $str .= "$days days,";
295    if($hours == 1) $str .= " $hours hour and";
296    if($hours>1) $str .= " $hours hours and";
297    if($mins == 1) $str .= " 1 minute";
298    else $str .= " $mins minutes";
299    return $str;
300}
301
302// create graphics
303//
304function graphics_avail() {
305        return extension_loaded('gd');
306}
307if (isset($MYREQUEST['IMG']))
308{
309        if (!graphics_avail()) {
310                exit(0);
311        }
312
313        function fill_arc($im, $centerX, $centerY, $diameter, $start, $end, $color1,$color2,$text='',$placeindex=0) {
314                $r=$diameter/2;
315                $w=deg2rad((360+$start+($end-$start)/2)%360);
316
317
318                if (function_exists("imagefilledarc")) {
319                        // exists only if GD 2.0.1 is avaliable
320                        imagefilledarc($im, $centerX+1, $centerY+1, $diameter, $diameter, $start, $end, $color1, IMG_ARC_PIE);
321                        imagefilledarc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2, IMG_ARC_PIE);
322                        imagefilledarc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color1, IMG_ARC_NOFILL|IMG_ARC_EDGED);
323                } else {
324                        imagearc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2);
325                        imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($start)) * $r, $centerY + sin(deg2rad($start)) * $r, $color2);
326                        imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($start+1)) * $r, $centerY + sin(deg2rad($start)) * $r, $color2);
327                        imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($end-1))   * $r, $centerY + sin(deg2rad($end))   * $r, $color2);
328                        imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($end))   * $r, $centerY + sin(deg2rad($end))   * $r, $color2);
329                        imagefill($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2, $color2);
330                }
331                if ($text) {
332                        if ($placeindex>0) {
333                                imageline($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$diameter, $placeindex*12,$color1);
334                                imagestring($im,4,$diameter, $placeindex*12,$text,$color1);
335
336                        } else {
337                                imagestring($im,4,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$text,$color1);
338                        }
339                }
340        }
341
342        function text_arc($im, $centerX, $centerY, $diameter, $start, $end, $color1,$text,$placeindex=0) {
343                $r=$diameter/2;
344                $w=deg2rad((360+$start+($end-$start)/2)%360);
345
346                if ($placeindex>0) {
347                        imageline($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$diameter, $placeindex*12,$color1);
348                        imagestring($im,4,$diameter, $placeindex*12,$text,$color1);
349
350                } else {
351                        imagestring($im,4,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$text,$color1);
352                }
353        }
354
355        function fill_box($im, $x, $y, $w, $h, $color1, $color2,$text='',$placeindex='') {
356                global $col_black;
357                $x1=$x+$w-1;
358                $y1=$y+$h-1;
359
360                imagerectangle($im, $x, $y1, $x1+1, $y+1, $col_black);
361                if($y1>$y) imagefilledrectangle($im, $x, $y, $x1, $y1, $color2);
362                else imagefilledrectangle($im, $x, $y1, $x1, $y, $color2);
363                imagerectangle($im, $x, $y1, $x1, $y, $color1);
364                if ($text) {
365                        if ($placeindex>0) {
366
367                                if ($placeindex<16)
368                                {
369                                        $px=5;
370                                        $py=$placeindex*12+6;
371                                        imagefilledrectangle($im, $px+90, $py+3, $px+90-4, $py-3, $color2);
372                                        imageline($im,$x,$y+$h/2,$px+90,$py,$color2);
373                                        imagestring($im,2,$px,$py-6,$text,$color1);
374
375                                } else {
376                                        if ($placeindex<31) {
377                                                $px=$x+40*2;
378                                                $py=($placeindex-15)*12+6;
379                                        } else {
380                                                $px=$x+40*2+100*intval(($placeindex-15)/15);
381                                                $py=($placeindex%15)*12+6;
382                                        }
383                                        imagefilledrectangle($im, $px, $py+3, $px-4, $py-3, $color2);
384                                        imageline($im,$x+$w,$y+$h/2,$px,$py,$color2);
385                                        imagestring($im,2,$px+2,$py-6,$text,$color1);
386                                }
387                        } else {
388                                imagestring($im,4,$x+5,$y1-16,$text,$color1);
389                        }
390                }
391        }
392
393
394        $size = GRAPH_SIZE/3; // image size
395        if ($MYREQUEST['IMG']==3)
396                $image = imagecreate(3*$size+200, 2*$size+150);
397        else
398                $image = imagecreate($size+50, $size+10);
399
400        $col_white = imagecolorallocate($image, 0xFF, 0xFF, 0xFF);
401        $col_red   = imagecolorallocate($image, 0xD0, 0x60,  0x30);
402        $col_green = imagecolorallocate($image, 0x60, 0xF0, 0x60);
403        $col_black = imagecolorallocate($image,   0,   0,   0);
404        imagecolortransparent($image,$col_white);
405
406        switch ($MYREQUEST['IMG']) {
407
408        case 1:
409                $s=$mem['num_seg']*$mem['seg_size'];
410                $a=$mem['avail_mem'];
411                $x=$y=$size/2;
412                $fuzz = 0.000001;
413
414                // This block of code creates the pie chart.  It is a lot more complex than you
415                // would expect because we try to visualize any memory fragmentation as well.
416                $angle_from = 0;
417                $string_placement=array();
418                for($i=0; $i<$mem['num_seg']; $i++) {
419                        $ptr = 0;
420                        $free = $mem['block_lists'][$i];
421                        uasort($free, 'block_sort');
422                        foreach($free as $block) {
423                                if($block['offset']!=$ptr) {       // Used block
424                                        $angle_to = $angle_from+($block['offset']-$ptr)/$s;
425                                        if(($angle_to+$fuzz)>1) $angle_to = 1;
426                                        if( ($angle_to*360) - ($angle_from*360) >= 1) {
427                                                fill_arc($image,$x,$y,$size,$angle_from*360,$angle_to*360,$col_black,$col_red);
428                                                if (($angle_to-$angle_from)>0.05) {
429                                                        array_push($string_placement, array($angle_from,$angle_to));
430                                                }
431                                        }
432                                        $angle_from = $angle_to;
433                                }
434                                $angle_to = $angle_from+($block['size'])/$s;
435                                if(($angle_to+$fuzz)>1) $angle_to = 1;
436                                if( ($angle_to*360) - ($angle_from*360) >= 1) {
437                                        fill_arc($image,$x,$y,$size,$angle_from*360,$angle_to*360,$col_black,$col_green);
438                                        if (($angle_to-$angle_from)>0.05) {
439                                                array_push($string_placement, array($angle_from,$angle_to));
440                                        }
441                                }
442                                $angle_from = $angle_to;
443                                $ptr = $block['offset']+$block['size'];
444                        }
445                        if ($ptr < $mem['seg_size']) { // memory at the end
446                                $angle_to = $angle_from + ($mem['seg_size'] - $ptr)/$s;
447                                if(($angle_to+$fuzz)>1) $angle_to = 1;
448                                fill_arc($image,$x,$y,$size,$angle_from*360,$angle_to*360,$col_black,$col_red);
449                                if (($angle_to-$angle_from)>0.05) {
450                                        array_push($string_placement, array($angle_from,$angle_to));
451                                }
452                        }
453                }
454                foreach ($string_placement as $angle) {
455                        text_arc($image,$x,$y,$size,$angle[0]*360,$angle[1]*360,$col_black,bsize($s*($angle[1]-$angle[0])));
456                }
457                break;
458
459        case 2:
460                $s=$cache['num_hits']+$cache['num_misses'];
461                $a=$cache['num_hits'];
462
463                fill_box($image, 30,$size,50,$s ? (-$a*($size-21)/$s) : 0,$col_black,$col_green,sprintf("%.1f%%",$s ? $cache['num_hits']*100/$s : 0));
464                fill_box($image,130,$size,50,$s ? -max(4,($s-$a)*($size-21)/$s) : 0,$col_black,$col_red,sprintf("%.1f%%",$s ? $cache['num_misses']*100/$s : 0));
465                break;
466
467        case 3:
468                $s=$mem['num_seg']*$mem['seg_size'];
469                $a=$mem['avail_mem'];
470                $x=130;
471                $y=1;
472                $j=1;
473
474                // This block of code creates the bar chart.  It is a lot more complex than you
475                // would expect because we try to visualize any memory fragmentation as well.
476                for($i=0; $i<$mem['num_seg']; $i++) {
477                        $ptr = 0;
478                        $free = $mem['block_lists'][$i];
479                        uasort($free, 'block_sort');
480                        foreach($free as $block) {
481                                if($block['offset']!=$ptr) {       // Used block
482                                        $h=(GRAPH_SIZE-5)*($block['offset']-$ptr)/$s;
483                                        if ($h>0) {
484                                                $j++;
485                                                if($j<75) fill_box($image,$x,$y,50,$h,$col_black,$col_red,bsize($block['offset']-$ptr),$j);
486                                                else fill_box($image,$x,$y,50,$h,$col_black,$col_red);
487                                        }
488                                        $y+=$h;
489                                }
490                                $h=(GRAPH_SIZE-5)*($block['size'])/$s;
491                                if ($h>0) {
492                                        $j++;
493                                        if($j<75) fill_box($image,$x,$y,50,$h,$col_black,$col_green,bsize($block['size']),$j);
494                                        else fill_box($image,$x,$y,50,$h,$col_black,$col_green);
495                                }
496                                $y+=$h;
497                                $ptr = $block['offset']+$block['size'];
498                        }
499                        if ($ptr < $mem['seg_size']) { // memory at the end
500                                $h = (GRAPH_SIZE-5) * ($mem['seg_size'] - $ptr) / $s;
501                                if ($h > 0) {
502                                        fill_box($image,$x,$y,50,$h,$col_black,$col_red,bsize($mem['seg_size']-$ptr),$j++);
503                                }
504                        }
505                }
506                break;
507
508                case 4:
509                        $s=$cache['num_hits']+$cache['num_misses'];
510                        $a=$cache['num_hits'];
511
512                        fill_box($image, 30,$size,50,$s ? -$a*($size-21)/$s : 0,$col_black,$col_green,sprintf("%.1f%%", $s ? $cache['num_hits']*100/$s : 0));
513                        fill_box($image,130,$size,50,$s ? -max(4,($s-$a)*($size-21)/$s) : 0,$col_black,$col_red,sprintf("%.1f%%", $s ? $cache['num_misses']*100/$s : 0));
514                break;
515        }
516
517        header("Content-type: image/png");
518        imagepng($image);
519        exit;
520}
521
522// pretty printer for byte values
523//
524function bsize($s) {
525        foreach (array('','K','M','G') as $i => $k) {
526                if ($s < 1024) break;
527                $s/=1024;
528        }
529        return sprintf("%5.1f %sBytes",$s,$k);
530}
531
532// sortable table header in "scripts for this host" view
533function sortheader($key,$name,$extra='') {
534global $MYREQUEST;                     
535global $MY_SELF_WO_SORT;        // fix apcu : il faut global ici aussi
536
537        // fix apcu l'affichage des headers ne doit pas changer $MYREQUEST
538        $SORT = $MYREQUEST['SORT'];
539        if (!$SORT) 
540                $SORT = 'D';
541        if ($MYREQUEST['S_KEY']==$key)
542                $SORT = (($SORT=='A') ? 'D' : 'A');
543        $url = "$MY_SELF_WO_SORT$extra&S_KEY=$key&SORT=$SORT";
544        return "<a class=sortable href='$url'>$name</a>";
545}
546
547// create menu entry
548function menu_entry($ob,$title) {
549        global $MYREQUEST; global $MY_SELF;     // fix apcu
550        if ($MYREQUEST['OB']!=$ob) {
551                return "<li><a href='".parametre_url($MY_SELF,'OB', $ob)."'>$title</a></li>";
552        } else if (empty($MYREQUEST['SH'])) {
553                return "<li><span class=active>$title</span></li>";
554        } else {
555                return "<li><a class=\"child_active\" href='$MY_SELF'>$title</a></li>";
556        }
557}
558
559function put_login_link($s="Login")
560{
561        global $MY_SELF,$MYREQUEST,$AUTHENTICATED;
562        // needs ADMIN_PASSWORD to be changed!
563        //
564        if (!USE_AUTHENTICATION) {
565                return;
566        } else if (ADMIN_PASSWORD=='password')
567        {
568                print <<<EOB
569                        <a href="#" onClick="javascript:alert('You need to set a password at the top of apc.php before this will work!');return false";>$s</a>
570EOB;
571        } else if ($AUTHENTICATED) {
572                print <<<EOB
573                        '{$_SERVER['PHP_AUTH_USER']}'&nbsp;logged&nbsp;in!
574EOB;
575        } else{
576                print <<<EOB
577                        <a href="$MY_SELF&LO=1">$s</a>
578EOB;
579        }
580}
581
582function block_sort($array1, $array2)
583{
584        if ($array1['offset'] > $array2['offset']) {
585                return 1;
586        } else {
587                return -1;
588        }
589}
590
591
592?>
593<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
594<html>
595<head><title>APCu INFO <?php echo $host ?></title>
596<style><!--
597body { background:white; font-size:100.01%; margin:0; padding:0; }
598body,p,td,th,input,submit { font-size:0.8em;font-family:arial,helvetica,sans-serif; }
599* html body   {font-size:0.8em}
600* html p      {font-size:0.8em}
601* html td     {font-size:0.8em}
602* html th     {font-size:0.8em}
603* html input  {font-size:0.8em}
604* html submit {font-size:0.8em}
605td { vertical-align:top }
606a { color:black; font-weight:none; text-decoration:none; }
607a:hover { text-decoration:underline; }
608div.content { padding:1em 1em 1em 1em; position:absolute; width:97%; z-index:100; }
609
610
611div.head div.login {
612        position:absolute;
613        right: 1em;
614        top: 1.2em;
615        color:white;
616        width:6em;
617        }
618div.head div.login a {
619        position:absolute;
620        right: 0em;
621        background:rgb(119,123,180);
622        border:solid rgb(102,102,153) 2px;
623        color:white;
624        font-weight:bold;
625        padding:0.1em 0.5em 0.1em 0.5em;
626        text-decoration:none;
627        }
628div.head div.login a:hover {
629        background:rgb(193,193,244);
630        }
631
632h1.apc { background:rgb(153,153,204); margin:0; padding:0.5em 1em 0.5em 1em; }
633* html h1.apc { margin-bottom:-7px; }
634h1.apc a:hover { text-decoration:none; color:rgb(90,90,90); }
635h1.apc div.logo {display: inline}
636h1.apc div.logo span.logo {
637        background:rgb(119,123,180);
638        color:black;
639        border-right: solid black 1px;
640        border-bottom: solid black 1px;
641        font-style:italic;
642        font-size:1em;
643        padding-left:1.2em;
644        padding-right:1.2em;
645        text-align:right;
646        }
647h1.apc div.logo span.name { color:white; font-size:0.7em; padding:0 0.8em 0 2em; }
648h1.apc div.nameinfo { color:white; display:inline; font-size:0.6em; margin-left: 1em; }
649h1.apc div.nameinfo a { color:white; margin-left: 3em; }
650h1.apc div.nameinfo img {margin-bottom: -10px; margin-right : 1em;}
651h1.apc div.copy { color:black; font-size:0.4em; position:absolute; right:1em; }
652hr.apc { display: none; }
653
654ol,menu { margin:1em 0 0 0; padding:0.2em; margin-left:1em;}
655ol.menu li { display:inline; margin-right:0.7em; list-style:none; font-size:85%}
656ol.menu a {
657        background:rgb(153,153,204);
658        border:solid rgb(102,102,153) 2px;
659        color:white;
660        font-weight:bold;
661        margin-right:0em;
662        padding:0.1em 0.5em 0.1em 0.5em;
663        text-decoration:none;
664        margin-left: 5px;
665        }
666ol.menu a.child_active {
667        background:rgb(153,153,204);
668        border:solid rgb(102,102,153) 2px;
669        color:white;
670        font-weight:bold;
671        margin-right:0em;
672        padding:0.1em 0.5em 0.1em 0.5em;
673        text-decoration:none;
674        border-left: solid black 5px;
675        margin-left: 0px;
676        }
677ol.menu span.active {
678        background:rgb(153,153,204);
679        border:solid rgb(102,102,153) 2px;
680        color:black;
681        font-weight:bold;
682        margin-right:0em;
683        padding:0.1em 0.5em 0.1em 0.5em;
684        text-decoration:none;
685        border-left: solid black 5px;
686        }
687ol.menu span.inactive {
688        background:rgb(193,193,244);
689        border:solid rgb(182,182,233) 2px;
690        color:white;
691        font-weight:bold;
692        margin-right:0em;
693        padding:0.1em 0.5em 0.1em 0.5em;
694        text-decoration:none;
695        margin-left: 5px;
696        }
697ol.menu a:hover {
698        background:rgb(193,193,244);
699        text-decoration:none;
700        }
701
702
703div.info {
704        background:rgb(204,204,204);
705        border:solid rgb(204,204,204) 1px;
706        margin-bottom:1em;
707        }
708div.info h2 {
709        background:rgb(204,204,204);
710        color:black;
711        font-size:1em;
712        margin:0;
713        padding:0.1em 1em 0.1em 1em;
714        }
715div.info table {
716        border:solid rgb(204,204,204) 1px;
717        border-spacing:0;
718        width:100%;
719        }
720div.info table th {
721        background:rgb(204,204,204);
722        color:white;
723        margin:0;
724        padding:0.1em 1em 0.1em 1em;
725        }
726div.info table th a.sortable { color:black; }
727div.info table tr.tr-0 { background:rgb(238,238,238); }
728div.info table tr.tr-1 { background:rgb(221,221,221); }
729div.info table td { padding:0.3em 1em 0.3em 1em; }
730div.info table td.td-0 { border-right:solid rgb(102,102,153) 1px; white-space:nowrap; }
731div.info table td.td-n { border-right:solid rgb(102,102,153) 1px; }
732div.info table td h3 {
733        color:black;
734        font-size:1.1em;
735        margin-left:-0.3em;
736        }
737
738div.graph { margin-bottom:1em }
739div.graph h2 { background:rgb(204,204,204);; color:black; font-size:1em; margin:0; padding:0.1em 1em 0.1em 1em; }
740div.graph table { border:solid rgb(204,204,204) 1px; color:black; font-weight:normal; width:100%; }
741div.graph table td.td-0 { background:rgb(238,238,238); }
742div.graph table td.td-1 { background:rgb(221,221,221); }
743div.graph table td { padding:0.2em 1em 0.4em 1em; }
744
745div.div1,div.div2 { margin-bottom:1em; width:35em; }
746div.div3 { position:absolute; left:40em; top:1em; width:580px; }
747//div.div3 { position:absolute; left:37em; top:1em; right:1em; }
748
749div.sorting { margin:1.5em 0em 1.5em 2em }
750.center { text-align:center }
751.aright { position:absolute;right:1em }
752.right { text-align:right }
753.ok { color:rgb(0,200,0); font-weight:bold}
754.failed { color:rgb(200,0,0); font-weight:bold}
755
756span.box {
757        border: black solid 1px;
758        border-right:solid black 2px;
759        border-bottom:solid black 2px;
760        padding:0 0.5em 0 0.5em;
761        margin-right:1em;
762}
763span.green { background:#60F060; padding:0 0.5em 0 0.5em}
764span.red { background:#D06030; padding:0 0.5em 0 0.5em }
765
766div.authneeded {
767        background:rgb(238,238,238);
768        border:solid rgb(204,204,204) 1px;
769        color:rgb(200,0,0);
770        font-size:1.2em;
771        font-weight:bold;
772        padding:2em;
773        text-align:center;
774        }
775
776input {
777        background:rgb(153,153,204);
778        border:solid rgb(102,102,153) 2px;
779        color:white;
780        font-weight:bold;
781        margin-right:1em;
782        padding:0.1em 0.5em 0.1em 0.5em;
783        }
784
785xmp { display: inline }
786
787//-->
788</style>
789</head>
790<body>
791<div class="head">
792        <h1 class="apc">
793                <div class="logo"><span class="logo"><a href="http://pecl.php.net/package/APCu">APCu</a></span></div>
794                <div class="nameinfo" style="display: inline">
795                        User Cache
796                        <a href='contrib.spip.net/4946'>
797                        <img src='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAAEwAAABMBDsgnAwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAARiSURBVFiFxVdNSBtbFP5m8pqpRmw2EhAU/6JtQAStG5VEiC5cCkLBhcQuXIi2i0ppSZ+laGmxghJFwU1cZCe6cFFXKlYENybSQqMENa1SGLUEQ6iZ5CXfW/S9YEwm0YLtgUuY852f7557z5mJIAjCmSiKIgABPyXplyTS6a9rp4YLABLInxDxtyQRRQwMDKCioiItzpteDoeDiqKwpKQkHY74TSavra0lSb569UrNJjMBm83Guro6VVyj0fDt27fUarVp8cnJSX779o2SJKXF/8p0dgCg0+mwtLSEhoYGaLVa1NXVQa/Xw+12w+Px4N27d+jo6MCLFy/S+peXl2NzcxOKoqjmyFiBwsJCqkksFiNJjo2Nqfp//vyZQ0NDqrgoCAIySWtrKwDgx48fF3sZABAOhwEA9+/fV/XPz89HQUGBKp61De/duwcAePjwISorK7G7uwtFUdDU1ASLxQIAKC0tVfX3+Xyq7QcAEAQh4xHcvXuXiqLw69evXFtb4/n5OePxOBcXF/np0yeS5JMnT1T9p6eneXBwoN4p2QgA4PDwsOo9WF9fpyiKqr6PHj1iLBbj7du3VQnELipycnJSjCRJYktLC3t6eri/v0+SHB8fp81mY2FhYYr9xRj19fUkSYvFkp2ATqej3+9nW1sbATA/P58GgyFpbWxskCStVmsKJggCAdDr9bKrq+vnLRdFBgIBvnz5MjsBg8FAknz8+DGLiop4dnamWvp08vz5cwIgSb558yaRZGFhgaurq9cbRIeHh+ju7kZ9fX2SvrOzE8XFxXA6nZBlOaEPBAJwOp1pYy0vL2N0dBSSJKUOJFEU01YAAO12+5V3v7e3lxjHlytQVVVFkjSbzdcbxVNTUzg6OkJZWRm0Wq1qBQ4PD+F2uxGJRNLG2d3dxdHREZqbm/Hhw4erVwAArVZr1t3Pz88n7epyBQBwdnaWKysrmSsQDAaxvb0Nj8eT0K2srKC9vR2SJAEABgcHYTKZ8OzZM/j9fgDA5uZmyo53dnaSdMvLy5iZmUm9B6Io/nORUaahAoCrq6skyZqaGlWbvLy8FJ3JZCJJlpeXJ2OXCVxeBoOB79+/pyzL/P79O6PRKEkyGAwyEAjw4OCAnZ2dGUkDYFNTE0mmDq5sBPr6+rLegY8fP1Kv17O3t5d37txJG+fBgweMRCLMzc29HgGj0UhZllWTx+Nx9vf3U6fTcW9vjycnJ+zv7+etW7cSMfR6Pb1eLxcXF1NzaDSajAT+vxfhcJgTExOJsVtdXU2S7OvrS3pnPH36lMFgkF++fKHD4eDr16/p8Xjo9/tpNBpTY+MKEo/HQRKhUAiyLEOWZRwfHwMAotFowk5RFIyMjMBoNMLlcqG6uhpmsxlbW1tobGyEz+dLiZ31m/BXRJZl2O32K9n+lj8mmUQjiuLfZPajCIfDmJubw+npKYCf34iCIMDlciEUCv0yAUGj0URjsdiNHMVV5I8fgQDgHID03/PFFvktz/8C/6xwoasnBYAAAAAASUVORK5CYII=' >
798                        XRay pour SPIP
799                        </a>
800                </div>
801                </a>
802        </h1>
803        <div class="login">
804        <?php put_login_link(); ?>
805        </div>
806        <hr class="apc">
807</div>
808
809<?php
810// Display main Menu
811echo <<<EOB
812        <ol class=menu>
813        <li><a href="$MY_SELF&SH={$MYREQUEST['SH']}">Refresh Data</a></li>
814EOB;
815echo
816        menu_entry(OB_HOST_STATS,'View Host Stats'),
817        menu_entry(OB_USER_CACHE,'User Cache Entries'),
818        menu_entry(OB_VERSION_CHECK,'Version Check');
819
820if ($AUTHENTICATED) {
821        echo <<<EOB
822                <li><a class="aright" href="$MY_SELF&CC=1" onClick="javascript:return confirm('Are you sure?');">Clear Cache</a></li>
823EOB;
824}
825echo <<<EOB
826        </ol>
827EOB;
828
829
830// CONTENT
831echo <<<EOB
832        <div class=content>
833EOB;
834
835// MAIN SWITCH STATEMENT
836
837switch ($MYREQUEST['OB']) {
838// -----------------------------------------------
839// Host Stats
840// -----------------------------------------------
841case OB_HOST_STATS:
842        $mem_size = $mem['num_seg']*$mem['seg_size'];
843        $mem_avail= $mem['avail_mem'];
844        $mem_used = $mem_size-$mem_avail;
845        $seg_size = bsize($mem['seg_size']);
846        $req_rate_user = sprintf("%.2f", $cache['num_hits'] ? (($cache['num_hits']+$cache['num_misses'])/($time-$cache['start_time'])) : 0);
847        $hit_rate_user = sprintf("%.2f", $cache['num_hits'] ? (($cache['num_hits'])/($time-$cache['start_time'])) : 0);
848        $miss_rate_user = sprintf("%.2f", $cache['num_misses'] ? (($cache['num_misses'])/($time-$cache['start_time'])) : 0);
849        $insert_rate_user = sprintf("%.2f", $cache['num_inserts'] ? (($cache['num_inserts'])/($time-$cache['start_time'])) : 0);
850        $apcversion = phpversion('apcu');
851        $phpversion = phpversion();
852        $number_vars = $cache['num_entries'];
853    $size_vars = bsize($cache['mem_size']);
854        $i=0;
855        $_namespace = _CACHE_NAMESPACE;
856        echo <<< EOB
857                <div class="info div1"><h2>Mémoization SPIP</h2>
858                <table cellspacing=0><tbody>
859                <tr class=tr-0><td class=td-0>_CACHE_NAMESPACE</td><td>$_namespace</td></tr>
860                </table></div>
861EOB;
862        echo <<< EOB
863                <div class="info div1"><h2>General Cache Information</h2>
864                <table cellspacing=0><tbody>
865                <tr class=tr-0><td class=td-0>APCu Version</td><td>$apcversion</td></tr>
866                <tr class=tr-1><td class=td-0>PHP Version</td><td>$phpversion</td></tr>
867EOB;
868
869        if(!empty($_SERVER['SERVER_NAME']))
870                echo "<tr class=tr-0><td class=td-0>APCu Host</td><td>{$_SERVER['SERVER_NAME']} $host</td></tr>\n";
871        if(!empty($_SERVER['SERVER_SOFTWARE']))
872                echo "<tr class=tr-1><td class=td-0>Server Software</td><td>{$_SERVER['SERVER_SOFTWARE']}</td></tr>\n";
873
874        echo <<<EOB
875                <tr class=tr-0><td class=td-0>Shared Memory</td><td>{$mem['num_seg']} Segment(s) with $seg_size
876    <br/> ({$cache['memory_type']} memory)
877    </td></tr>
878EOB;
879        echo   '<tr class=tr-1><td class=td-0>Start Time</td><td>',date(DATE_FORMAT,$cache['start_time']),'</td></tr>';
880        echo   '<tr class=tr-0><td class=td-0>Uptime</td><td>',duration($cache['start_time']),'</td></tr>';
881        echo <<<EOB
882                </tbody></table>
883                </div>
884
885                <div class="info div1"><h2>Cache Information</h2>
886                <table cellspacing=0>
887                <tbody>
888                <tr class=tr-0><td class=td-0>Cached Variables</td><td>$number_vars ($size_vars)</td></tr>
889                        <tr class=tr-1><td class=td-0>Hits</td><td>{$cache['num_hits']}</td></tr>
890                        <tr class=tr-0><td class=td-0>Misses</td><td>{$cache['num_misses']}</td></tr>
891                        <tr class=tr-1><td class=td-0>Request Rate (hits, misses)</td><td>$req_rate_user cache requests/second</td></tr>
892                        <tr class=tr-0><td class=td-0>Hit Rate</td><td>$hit_rate_user cache requests/second</td></tr>
893                        <tr class=tr-1><td class=td-0>Miss Rate</td><td>$miss_rate_user cache requests/second</td></tr>
894                        <tr class=tr-0><td class=td-0>Insert Rate</td><td>$insert_rate_user cache requests/second</td></tr>
895                        <tr class=tr-1><td class=td-0>Cache full count</td><td>{$cache['expunges']}</td></tr>
896                </tbody>
897                </table>
898                </div>
899
900                <div class="info div2"><h2>Runtime Settings</h2><table cellspacing=0><tbody>
901EOB;
902
903        $j = 0;
904        foreach (ini_get_all('apcu') as $k => $v) {
905                echo "<tr class=tr-$j><td class=td-0>",$k,"</td><td>",str_replace(',',',<br />',$v['local_value']),"</td></tr>\n";
906                $j = 1 - $j;
907        }
908
909        if($mem['num_seg']>1 || $mem['num_seg']==1 && count($mem['block_lists'][0])>1)
910                $mem_note = "Memory Usage<br /><font size=-2>(multiple slices indicate fragments)</font>";
911        else
912                $mem_note = "Memory Usage";
913
914        echo <<< EOB
915                </tbody></table>
916                </div>
917
918                <div class="graph div3"><h2>Host Status Diagrams</h2>
919                <table cellspacing=0><tbody>
920EOB;
921        $size='width='.(GRAPH_SIZE*2/3).' height='.(GRAPH_SIZE/2);
922echo <<<EOB
923                <tr>
924                <td class=td-0>$mem_note</td>
925                <td class=td-1>Hits &amp; Misses</td>
926                </tr>
927EOB;
928
929        echo
930                graphics_avail() ?
931                          '<tr>'.
932                          "<td class=td-0><img alt='' $size src='{$IMG_BASE}&IMG=1&$time'></td>".
933                          "<td class=td-1><img alt='' $size src='{$IMG_BASE}&IMG=2&$time'></td></tr>\n"
934                        : "",
935                '<tr>',
936                '<td class=td-0><span class="green box">&nbsp;</span>Free: ',bsize($mem_avail).sprintf(" (%.1f%%)",$mem_avail*100/$mem_size),"</td>\n",
937                '<td class=td-1><span class="green box">&nbsp;</span>Hits: ',$cache['num_hits'].@sprintf(" (%.1f%%)",$cache['num_hits']*100/($cache['num_hits']+$cache['num_misses'])),"</td>\n",
938                '</tr>',
939                '<tr>',
940                '<td class=td-0><span class="red box">&nbsp;</span>Used: ',bsize($mem_used).sprintf(" (%.1f%%)",$mem_used *100/$mem_size),"</td>\n",
941                '<td class=td-1><span class="red box">&nbsp;</span>Misses: ',$cache['num_misses'].@sprintf(" (%.1f%%)",$cache['num_misses']*100/($cache['num_hits']+$cache['num_misses'])),"</td>\n";
942        echo <<< EOB
943                </tr>
944                </tbody></table>
945
946                <br/>
947                <h2>Detailed Memory Usage and Fragmentation</h2>
948                <table cellspacing=0><tbody>
949                <tr>
950                <td class=td-0 colspan=2><br/>
951EOB;
952
953        // Fragementation: (freeseg - 1) / total_seg
954        $nseg = $freeseg = $fragsize = $freetotal = 0;
955        for($i=0; $i<$mem['num_seg']; $i++) {
956                $ptr = 0;
957                foreach($mem['block_lists'][$i] as $block) {
958                        if ($block['offset'] != $ptr) {
959                                ++$nseg;
960                        }
961                        $ptr = $block['offset'] + $block['size'];
962                        /* Only consider blocks <5M for the fragmentation % */
963                        if($block['size']<(5*1024*1024)) $fragsize+=$block['size'];
964                        $freetotal+=$block['size'];
965                }
966                $freeseg += count($mem['block_lists'][$i]);
967        }
968
969        if ($freeseg > 1) {
970                $frag = sprintf("%.2f%% (%s out of %s in %d fragments)", ($fragsize/$freetotal)*100,bsize($fragsize),bsize($freetotal),$freeseg);
971        } else {
972                $frag = "0%";
973        }
974
975        if (graphics_avail()) {
976                $size='width='.(2*GRAPH_SIZE+150).' height='.(GRAPH_SIZE+10);
977                echo <<<EOB
978                        <img alt="" $size src="{$IMG_BASE}&IMG=3&$time">
979EOB;
980        }
981        echo <<<EOB
982                </br>Fragmentation: $frag
983                </td>
984                </tr>
985EOB;
986        if(isset($mem['adist'])) {
987          foreach($mem['adist'] as $i=>$v) {
988            $cur = pow(2,$i); $nxt = pow(2,$i+1)-1;
989            if($i==0) $range = "1";
990            else $range = "$cur - $nxt";
991            echo "<tr><th align=right>$range</th><td align=right>$v</td></tr>\n";
992          }
993        }
994        echo <<<EOB
995                </tbody></table>
996                </div>
997EOB;
998
999        break;
1000
1001
1002// -----------------------------------------------
1003// User Cache Entries
1004// -----------------------------------------------
1005case OB_USER_CACHE:
1006        if (!$AUTHENTICATED) {
1007    echo '<div class="error">You need to login to see the user values here!<br/>&nbsp;<br/>';
1008                put_login_link("Login now!");
1009                echo '</div>';
1010                break;
1011        }
1012        $fieldname='info';
1013        $fieldheading='User Entry Label';
1014        $fieldkey='info';
1015
1016        $cols=6;
1017echo <<<EOB
1018                <div class=sorting><form><p>Scope:
1019                <input type=hidden name=OB value={$MYREQUEST['OB']}>
1020                <input type=hidden name=exec value={$MYREQUEST['exec']}>
1021                <select name=SCOPE  onChange="form.submit()">
1022EOB;
1023        echo
1024                "<option value=A",$MYREQUEST['SCOPE']=='A' ? " selected":"",">Active</option>",
1025                "<option value=D",$MYREQUEST['SCOPE']=='D' ? " selected":"",">Deleted</option>",
1026                "</select>",
1027               
1028' Sorting:<select name=S_KEY  onChange="form.submit()">',
1029                "<option value=H",$MYREQUEST['S_KEY']=='H' ? " selected":"",">Hits</option>",
1030                "<option value=Z",$MYREQUEST['S_KEY']=='Z' ? " selected":"",">Size</option>",
1031                "<option value=S",$MYREQUEST['S_KEY']=='S' ? " selected":"",">$fieldheading</option>",
1032                "<option value=A",$MYREQUEST['S_KEY']=='A' ? " selected":"",">Last accessed</option>",
1033                "<option value=M",$MYREQUEST['S_KEY']=='M' ? " selected":"",">Last modified</option>",
1034                "<option value=C",$MYREQUEST['S_KEY']=='C' ? " selected":"",">Created at</option>",
1035                "<option value=D",$MYREQUEST['S_KEY']=='D' ? " selected":"",">Deleted at</option>";
1036        if($fieldname=='info') echo
1037                "<option value=D",$MYREQUEST['S_KEY']=='T' ? " selected":"",">Timeout</option>";
1038        echo
1039                '</select>',
1040               
1041                '<select name=SORT  onChange="form.submit()">',
1042                '<option value=D',$MYREQUEST['SORT']=='D' ? ' selected':'','>DESC</option>',
1043                '<option value=A',$MYREQUEST['SORT']=='A' ? ' selected':'','>ASC</option>',
1044                '</select>',
1045
1046'&nbsp;&nbsp;<b>HTML:</b> ',
1047                '<select name=ZOOM  onChange="form.submit()">',
1048                '<option value=TEXTECOURT',$MYREQUEST['ZOOM']=='TEXTECOURT' ? ' selected':'','>Courts</option>',
1049                '<option value=TEXTELONG',$MYREQUEST['ZOOM']=='TEXTELONG' ? ' selected':'','>Entiers</option>',
1050                '</select>',
1051
1052'&nbsp;&nbsp;<b>Affichage extra:</b> ',
1053                '<select name=EXTRA  onChange="form.submit()">',
1054                '<option value="" ',$MYREQUEST['EXTRA']=='' ? ' selected':'','></option>',
1055                '<option value=CONTEXTE ',$MYREQUEST['EXTRA']=='CONTEXTE' ? ' selected':'','>Contexte</option>',
1056                '<option value=CONTEXTES_SPECIAUX ',$MYREQUEST['EXTRA']=='CONTEXTES_SPECIAUX' ? ' selected':'','>Contextes spécifiques</option>',
1057                '<option value=INFO_AUTEUR ',$MYREQUEST['EXTRA']=='INFO_AUTEUR' ? ' selected':'','>Infos auteur</option>',
1058                '<option value=INVALIDEURS ',$MYREQUEST['EXTRA']=='INVALIDEURS' ? ' selected':'','>Invalideurs</option>',
1059                '<option value=INVALIDEURS_SPECIAUX ',$MYREQUEST['EXTRA']=='INVALIDEURS_SPECIAUX' ? ' selected':'','>Invalideurs spécifiques</option>',
1060                '</select>
1061                </p>',
1062
1063'<p><b>Types cache:</b> ',
1064                '<select name=TYPECACHE  onChange="form.submit()">',
1065                '<option value=ALL',$MYREQUEST['TYPECACHE']=='ALL' ? ' selected':'','>Tous</option>',
1066                '<option value=SESSIONS',$MYREQUEST['TYPECACHE']=='SESSIONS' ? ' selected':'','>Sessionnés</option>',
1067                '<option value=SESSIONS_AUTH',$MYREQUEST['TYPECACHE']=='SESSIONS_AUTH' ? ' selected':'','>Sessionnés identifiés</option>',
1068                '<option value=SESSIONS_NONAUTH',$MYREQUEST['TYPECACHE']=='SESSIONS_NONAUTH' ? ' selected':'','>Sessionnés non identifiés</option>',
1069                '<option value=FORMULAIRES',$MYREQUEST['TYPECACHE']=='FORMULAIRES' ? ' selected':'','>Formulaires</option>',
1070                '</select>',
1071
1072                '<select name=COUNT onChange="form.submit()">',
1073                '<option value=10 ',$MYREQUEST['COUNT']=='10' ? ' selected':'','>Top 10</option>',
1074                '<option value=20 ',$MYREQUEST['COUNT']=='20' ? ' selected':'','>Top 20</option>',
1075                '<option value=50 ',$MYREQUEST['COUNT']=='50' ? ' selected':'','>Top 50</option>',
1076                '<option value=100',$MYREQUEST['COUNT']=='100'? ' selected':'','>Top 100</option>',
1077                '<option value=150',$MYREQUEST['COUNT']=='150'? ' selected':'','>Top 150</option>',
1078                '<option value=200',$MYREQUEST['COUNT']=='200'? ' selected':'','>Top 200</option>',
1079                '<option value=500',$MYREQUEST['COUNT']=='500'? ' selected':'','>Top 500</option>',
1080                '<option value=0  ',$MYREQUEST['COUNT']=='0'  ? ' selected':'','>All</option>',
1081                '</select>',
1082
1083'&nbsp;&nbsp;&nbsp;Search: <input name=SEARCH value="',$MYREQUEST['SEARCH'],'" type=text size=25/>',
1084                '&nbsp;<input type=submit value="GO!">
1085                </p>',
1086
1087                '</form></div>';
1088
1089  if (isset($MYREQUEST['SEARCH'])) {
1090   // Don't use preg_quote because we want the user to be able to specify a
1091   // regular expression subpattern.
1092   $MYREQUEST['SEARCH'] = '/'.str_replace('/', '\\/', $MYREQUEST['SEARCH']).'/i';
1093   if (preg_match($MYREQUEST['SEARCH'], 'test') === false) {
1094     echo '<div class="error">Error: enter a valid regular expression as a search query.</div>';
1095     break;
1096   }
1097}
1098  echo
1099                '<div class="info"><table cellspacing=0><tbody>',
1100                '<tr>',
1101                '<th>',sortheader('S',$fieldheading),'</th>',
1102                '<th>',sortheader('H','Hits'),'</th>',
1103                '<th>',sortheader('Z','Size'),'</th>',
1104                '<th>',sortheader('A','Last accessed'),'</th>',
1105                '<th>',sortheader('M','Last modified'),'</th>',
1106                '<th>',sortheader('C','Created at'),'</th>';
1107
1108        if($fieldname=='info') {
1109                $cols+=2;
1110                 echo '<th>',sortheader('T','Timeout'),'</th>';
1111        }
1112        echo '<th>',sortheader('D','Deleted at'),'</th></tr>';
1113
1114        // builds list with alpha numeric sortable keys
1115        //
1116        $list = array();
1117
1118        foreach($cache[$scope_list[$MYREQUEST['SCOPE']]] as $i => $entry) {
1119                switch($MYREQUEST['S_KEY']) {
1120                        case 'A': $k=sprintf('%015d-',$entry['access_time']);        break;
1121                        case 'H': $k=sprintf('%015d-',$entry['num_hits']);           break;
1122                        case 'Z': $k=sprintf('%015d-',$entry['mem_size']);           break;
1123                        case 'M': $k=sprintf('%015d-',$entry['mtime']);  break;
1124                        case 'C': $k=sprintf('%015d-',$entry['creation_time']);      break;
1125                        case 'T': $k=sprintf('%015d-',$entry['ttl']);                break;
1126                        case 'D': $k=sprintf('%015d-',$entry['deletion_time']);      break;
1127                        case 'S': $k=$entry["info"];                                 break;
1128                }
1129                if (!$AUTHENTICATED) {
1130                        // hide all path entries if not logged in
1131                        $list[$k.$entry[$fieldname]]=preg_replace('/^.*(\\/|\\\\)/','*hidden*/',$entry);
1132                } else {
1133                        $list[$k.$entry[$fieldname]]=$entry;
1134                }
1135        }
1136
1137        if ($list) {
1138                // sort list
1139                //
1140                switch ($MYREQUEST['SORT']) {
1141                        case "A":       ksort($list);   break;
1142                        case "D":       krsort($list);  break;
1143                        default : echo "...ah ben non pas de tri."; break;
1144                }
1145
1146                $TYPECACHE=(isset($MYREQUEST['TYPECACHE'])?$MYREQUEST['TYPECACHE']:'ALL');
1147                switch ($TYPECACHE) {
1148                        case 'ALL':
1149                                $pattern_typecache = '';
1150                                break;
1151                        case 'SESSIONS' :
1152                                $pattern_typecache = '/_([a-f0-9]{8}|)$/i';
1153                                break;
1154                        case 'SESSIONS_AUTH' :
1155                                $pattern_typecache = '/_[a-f0-9]{8}$/i';
1156                                break;
1157                        case 'SESSIONS_NONAUTH' :
1158                                $pattern_typecache = '/_$/i';
1159                                break;
1160                        case 'FORMULAIRES' :
1161                                $pattern_typecache = '~formulaires/~i';
1162                                break;
1163                };
1164
1165                // output list
1166                $i=0;
1167                foreach($list as $k => $entry) {
1168
1169      if ((!$MYREQUEST['SEARCH'] || preg_match($MYREQUEST['SEARCH'], $entry[$fieldname]))
1170                and (!$pattern_typecache or preg_match($pattern_typecache, $entry[$fieldname]))) {
1171                $sh=md5($entry["info"]);
1172
1173        $field_value = htmlentities(strip_tags($entry[$fieldname],''), ENT_QUOTES, 'UTF-8');
1174        if (defined('XRAY_NEPASAFFICHER_DEBUTNOMCACHE'))
1175                        $field_value = str_replace (XRAY_NEPASAFFICHER_DEBUTNOMCACHE, '...', $field_value);
1176        echo
1177          '<tr id="key-'. $sh .'" class=tr-',$i%2,'>',
1178          "<td class='td-0' style='position: relative'>
1179                        <a href='$MY_SELF&SH={$sh}#key-{$sh}'>$field_value</a>";
1180
1181                if ($p=preg_match('/_([0-9a-f]{8})$/i', $field_value, $match)
1182                        and $MYREQUEST['SEARCH'] != "/{$match[1]}/i") {
1183                        $url_session = parametre_url($MY_SELF, 'SEARCH', $match[1]);
1184                        echo "<a href='$url_session' style='float: right'>[session]</a>";
1185                }
1186                        if ($MYREQUEST['EXTRA'] 
1187                                        and ($sh != $MYREQUEST["SH"]) // sinon yaura un zoom après et c'est inutile de répéter ici
1188                                        and apcu_exists($entry['info'])
1189                                        and ($data = apcu_fetch($entry['info'], $success))
1190                                        and $success and is_array($data) and (count ($data)==1) 
1191                                        and is_serialized($data[0])) {
1192                                $data = unserialize($data[0]);
1193                                $extra = null;
1194                                $liens = '';
1195                                if (is_array($data)) {
1196                                        switch ($MYREQUEST['EXTRA']) {
1197                                        case 'CONTEXTE' :
1198                                                if (isset($data['contexte']))
1199                                                        $extra = $data['contexte'];
1200                                                else 
1201                                                        $extra = '(non défini)';
1202                                                break;
1203                                        case 'CONTEXTES_SPECIAUX' :
1204                                                if (isset($data['contexte'])) {
1205                                                        $extra = $data['contexte'];
1206                                                        foreach (array ('lang', 'date', 'date_default', 'date_redac', 'date_redac_default') as $ki)
1207                                                                unset($extra[$ki]);
1208                                                }
1209                                                else 
1210                                                        $extra = '(non défini)';
1211                                                break;
1212                                        case 'INFO_AUTEUR' :
1213                                                if (isset($data['contexte'])) {
1214                                                        foreach (array('id_auteur', 'email', 'nom', 'statut', 'login') as $ki)
1215                                                                if (isset ($data['contexte'][$ki]))
1216                                                                        $extra[$ki] = $extra[$ki] = $data['contexte'][$ki];
1217                                                };
1218                                                break;
1219                                        case 'INVALIDEURS' :
1220                                                $extra = $data['invalideurs'];
1221                                                break;
1222                                        case 'INVALIDEURS_SPECIAUX' :
1223                                                $extra = $data['invalideurs'];
1224                                                foreach (array ('cache', 'session') as $ki)
1225                                                        unset($extra[$ki]);
1226                                                break;
1227                                        }
1228                                }
1229                                if ($extra == 'undefined')
1230                                        $extra = array ('contexte non défini' => 'vrai');
1231                                if ($extra = print_contexte($extra, 1))
1232                                        echo "<br><xmp>    $extra</xmp> <small style='float:right'>$liens</small>";
1233                        };
1234          echo '</td>',
1235          '<td class="td-n center">',$entry['num_hits'],'</td>',
1236          '<td class="td-n right">',$entry['mem_size'],'</td>',
1237          '<td class="td-n center">',date(DATE_FORMAT,$entry['access_time']),'</td>',
1238          '<td class="td-n center">',date(DATE_FORMAT,$entry['mtime']),'</td>',
1239          '<td class="td-n center">',date(DATE_FORMAT,$entry['creation_time']),'</td>';
1240
1241        if($fieldname=='info') {
1242          if($entry['ttl'])
1243            echo '<td class="td-n center">'.$entry['ttl'].' seconds</td>';
1244          else
1245            echo '<td class="td-n center">None</td>';
1246        }
1247        if ($entry['deletion_time']) {
1248
1249          echo '<td class="td-last center">', date(DATE_FORMAT,$entry['deletion_time']), '</td>';
1250        } else if ($MYREQUEST['OB'] == OB_USER_CACHE) {
1251
1252          echo '<td class="td-last center">';
1253          echo '[<a href="', $MY_SELF, '&DU=', urlencode($entry[$fieldkey]), '">Delete Now</a>]';
1254          echo '</td>';
1255        } else {
1256          echo '<td class="td-last center"> &nbsp; </td>';
1257        }
1258        echo '</tr>';
1259                if ($sh == $MYREQUEST["SH"]) { // Le ZOOM sur une entrée
1260                        echo '<tr>';
1261                        echo '<td colspan="7"><pre>';
1262
1263                        if (isset($_GET['ZOOM']) and ($_GET['ZOOM']=='TEXTECOURT')) {
1264                                $url = parametre_url($self,'ZOOM','TEXTELONG')."#key-$sh";
1265                                $menuzoom = "<a href='$url'>[Voir tout le texte]</a> ";
1266                        }
1267                        else {
1268                                $url = parametre_url($self,'ZOOM','TEXTECOURT')."#key-$sh";
1269                                $menuzoom = "<a href='$url'>[Voir texte abbrégé]</a> ";
1270                        }
1271                        $url = parametre_url($self, 'SH', '')."#key-$sh";
1272                        $menuzoom .= "<a href='$url'>[Replier]</a>";
1273
1274                        if (apcu_exists($entry['info'])) {
1275                                $d = apcu_fetch($entry['info'], $success);
1276                                if ($success) {
1277                                        echo $menuzoom."<br>";
1278                                        if (is_array($d) and (count ($d)==1) and is_serialized($d[0]))
1279                                                echo "<xmp>".spipsafe_unserialize($d[0])."</xmp>";
1280                                        else
1281                                                echo "fetch ok<br><xmp>".print_r($d, 1)."</xmp>";
1282                                } else 
1283                                        echo "fetch failed";
1284                        }
1285                        else 
1286                                echo '(doesnt exist)';
1287                        echo '</pre></td>';
1288                        echo '</tr>';
1289                }
1290        $i++;
1291        if ($i == $MYREQUEST['COUNT'])
1292          break;
1293      }
1294                }
1295
1296        } else {
1297                echo '<tr class=tr-0><td class="center" colspan=',$cols,'><i>No data</i></td></tr>';
1298        }
1299        echo <<< EOB
1300                </tbody></table>
1301EOB;
1302
1303        if ($list && $i < count($list)) {
1304                echo "<a href=\"$MY_SELF","&COUNT=0\"><i>",count($list)-$i,' more available...</i></a>';
1305        }
1306
1307        echo <<< EOB
1308                </div>
1309EOB;
1310        break;
1311
1312// -----------------------------------------------
1313// Version check
1314// -----------------------------------------------
1315case OB_VERSION_CHECK:
1316        echo <<<EOB
1317                <div class="info"><h2>APCu Version Information</h2>
1318                <table cellspacing=0><tbody>
1319                <tr>
1320                <th></th>
1321                </tr>
1322EOB;
1323  if (defined('PROXY')) {
1324    $ctxt = stream_context_create( array( 'http' => array( 'proxy' => PROXY, 'request_fulluri' => True ) ) );
1325    $rss = @file_get_contents("http://pecl.php.net/feeds/pkg_apcu.rss", False, $ctxt);
1326  } else {
1327    $rss = @file_get_contents("http://pecl.php.net/feeds/pkg_apcu.rss");
1328  }
1329        if (!$rss) {
1330                echo '<tr class="td-last center"><td>Unable to fetch version information.</td></tr>';
1331        } else {
1332                $apcversion = phpversion('apcu');
1333
1334                preg_match('!<title>APCu ([0-9.]+)</title>!', $rss, $match);
1335                echo '<tr class="tr-0 center"><td>';
1336                if (version_compare($apcversion, $match[1], '>=')) {
1337                        echo '<div class="ok">You are running the latest version of APCu ('.$apcversion.')</div>';
1338                        $i = 3;
1339                } else {
1340                        echo '<div class="failed">You are running an older version of APCu ('.$apcversion.'),
1341                                newer version '.$match[1].' is available at <a href="http://pecl.php.net/package/APCu/'.$match[1].'">
1342                                http://pecl.php.net/package/APCu/'.$match[1].'</a>
1343                                </div>';
1344                        $i = -1;
1345                }
1346                echo '</td></tr>';
1347                echo '<tr class="tr-0"><td><h3>Change Log:</h3><br/>';
1348
1349                preg_match_all('!<(title|description)>([^<]+)</\\1>!', $rss, $match);
1350                $changelog = $match[2];
1351
1352                for ($j = 2; $j + 1 < count($changelog); $j += 2) {
1353                        $v = $changelog[$j];
1354                        if ($i < 0 && version_compare($apcversion, $ver, '>=')) {
1355                                break;
1356                        } else if (!$i--) {
1357                                break;
1358                        }
1359                        list($unused, $ver) = $v;
1360                        $changes = $changelog[$j + 1];
1361                        echo "<b><a href=\"http://pecl.php.net/package/APCu/$ver\">".htmlspecialchars($v, ENT_QUOTES, 'UTF-8')."</a></b><br><blockquote>";
1362                        echo nl2br(htmlspecialchars($changes, ENT_QUOTES, 'UTF-8'))."</blockquote>";
1363                }
1364                echo '</td></tr>';
1365        }
1366        echo <<< EOB
1367                </tbody></table>
1368                </div>
1369EOB;
1370        break;
1371
1372}
1373
1374echo <<< EOB
1375        </div>
1376EOB;
1377
1378?>
1379
1380<!-- <?php echo "\nBased on APCGUI By R.Becker\n$VERSION\n"?> -->
1381</body>
1382</html>
Note: See TracBrowser for help on using the repository browser.