Init

web/.htaccess

@@ -0,0 +1,3 @@
+RewriteEngine On
+RewriteRule ^orm\.txt$ orm.txt.php
+

web/apc.php

@@ -0,0 +1,1362 @@
+<?php
+/*
+  +----------------------------------------------------------------------+
+  | APC                                                                  |
+  +----------------------------------------------------------------------+
+  | Copyright (c) 2006-2011 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 <beckerr@php.net>                               |
+  |          Rasmus Lerdorf <rasmus@php.net>                             |
+  |          Ilia Alshanetsky <ilia@prohost.org>                         |
+  +----------------------------------------------------------------------+
+
+   All other licensing and usage conditions are those of the PHP Group.
+
+ */
+
+$VERSION='$Id: apc.php 307048 2011-01-03 23:53:17Z kalle $';
+
+////////// READ OPTIONAL CONFIGURATION FILE ////////////
+if (file_exists("apc.conf.php")) include("apc.conf.php");
+////////////////////////////////////////////////////////
+
+////////// BEGIN OF DEFAULT CONFIG AREA ///////////////////////////////////////////////////////////
+
+defaults('USE_AUTHENTICATION',1);			// 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','apc');  	// 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
+
+//defaults('PROXY', 'tcp://127.0.0.1:8080');
+
+////////// END OF DEFAULT CONFIG AREA /////////////////////////////////////////////////////////////
+
+
+// "define if not defined"
+function defaults($d,$v) {
+	if (!defined($d)) define($d,$v); // or just @define(...)
+}
+
+// rewrite $PHP_SELF to block XSS attacks
+//
+$PHP_SELF= isset($_SERVER['PHP_SELF']) ? htmlentities(strip_tags($_SERVER['PHP_SELF'],''), ENT_QUOTES, 'UTF-8') : '';
+$time = time();
+$host = php_uname('n');
+if($host) { $host = '('.$host.')'; }
+if (isset($_SERVER['SERVER_ADDR'])) {
+  $host .= ' ('.$_SERVER['SERVER_ADDR'].')';
+}
+
+// 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+$/',			// operational mode switch
+	'CC'	=> '/^[01]$/',			// clear cache requested
+	'DU'	=> '/^.*$/',			// Delete User Key
+	'SH'	=> '/^[a-z0-9]+$/',		// shared object description
+
+	'IMG'	=> '/^[123]$/',			// image to generate
+	'LO'	=> '/^1$/',				// login requested
+
+	'COUNT'	=> '/^\d+$/',			// number of line displayed in list
+	'SCOPE'	=> '/^[AD]$/',			// list view scope
+	'SORT1'	=> '/^[AHSMCDTZ]$/',	// first sort key
+	'SORT2'	=> '/^[DA]$/',			// second sort key
+	'AGGR'	=> '/^\d+$/',			// aggregation by dir level
+	'SEARCH'	=> '~^[a-zA-Z0-1/_.-]*$~'			// aggregation by dir level
+);
+
+// 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/>&nbsp;<br/>&nbsp;
+				<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
+
+function duration($ts) {
+    global $time;
+    $years = (int)((($time - $ts)/(7*86400))/52.177457);
+    $rem = (int)(($time-$ts)-($years * 52.177457 * 7 * 86400));
+    $weeks = (int)(($rem)/(7*86400));
+    $days = (int)(($rem)/86400) - $weeks*7;
+    $hours = (int)(($rem)/3600) - $days*24 - $weeks*7*24;
+    $mins = (int)(($rem)/60) - $hours*60 - $days*24*60 - $weeks*7*24*60;
+    $str = '';
+    if($years==1) $str .= "$years year, ";
+    if($years>1) $str .= "$years years, ";
+    if($weeks==1) $str .= "$weeks week, ";
+    if($weeks>1) $str .= "$weeks weeks, ";
+    if($days==1) $str .= "$days day,";
+    if($days>1) $str .= "$days days,";
+    if($hours == 1) $str .= " $hours hour and";
+    if($hours>1) $str .= " $hours hours and";
+    if($mins == 1) $str .= " 1 minute";
+    else $str .= " $mins minutes";
+    return $str;
+}
+
+// create graphics
+//
+function graphics_avail() {
+	return extension_loaded('gd');
+}
+if (isset($MYREQUEST['IMG']))
+{
+	if (!graphics_avail()) {
+		exit(0);
+	}
+
+	function fill_arc($im, $centerX, $centerY, $diameter, $start, $end, $color1,$color2,$text='',$placeindex=0) {
+		$r=$diameter/2;
+		$w=deg2rad((360+$start+($end-$start)/2)%360);
+
+		
+		if (function_exists("imagefilledarc")) {
+			// exists only if GD 2.0.1 is avaliable
+			imagefilledarc($im, $centerX+1, $centerY+1, $diameter, $diameter, $start, $end, $color1, IMG_ARC_PIE);
+			imagefilledarc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2, IMG_ARC_PIE);
+			imagefilledarc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color1, IMG_ARC_NOFILL|IMG_ARC_EDGED);
+		} else {
+			imagearc($im, $centerX, $centerY, $diameter, $diameter, $start, $end, $color2);
+			imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($start)) * $r, $centerY + sin(deg2rad($start)) * $r, $color2);
+			imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($start+1)) * $r, $centerY + sin(deg2rad($start)) * $r, $color2);
+			imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($end-1))   * $r, $centerY + sin(deg2rad($end))   * $r, $color2);
+			imageline($im, $centerX, $centerY, $centerX + cos(deg2rad($end))   * $r, $centerY + sin(deg2rad($end))   * $r, $color2);
+			imagefill($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2, $color2);
+		}
+		if ($text) {
+			if ($placeindex>0) {
+				imageline($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$diameter, $placeindex*12,$color1);
+				imagestring($im,4,$diameter, $placeindex*12,$text,$color1);	
+				
+			} else {
+				imagestring($im,4,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$text,$color1);
+			}
+		}
+	} 
+
+	function text_arc($im, $centerX, $centerY, $diameter, $start, $end, $color1,$text,$placeindex=0) {
+		$r=$diameter/2;
+		$w=deg2rad((360+$start+($end-$start)/2)%360);
+
+		if ($placeindex>0) {
+			imageline($im,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$diameter, $placeindex*12,$color1);
+			imagestring($im,4,$diameter, $placeindex*12,$text,$color1);	
+				
+		} else {
+			imagestring($im,4,$centerX + $r*cos($w)/2, $centerY + $r*sin($w)/2,$text,$color1);
+		}
+	} 
+	
+	function fill_box($im, $x, $y, $w, $h, $color1, $color2,$text='',$placeindex='') {
+		global $col_black;
+		$x1=$x+$w-1;
+		$y1=$y+$h-1;
+
+		imagerectangle($im, $x, $y1, $x1+1, $y+1, $col_black);
+		if($y1>$y) imagefilledrectangle($im, $x, $y, $x1, $y1, $color2);
+		else imagefilledrectangle($im, $x, $y1, $x1, $y, $color2);
+		imagerectangle($im, $x, $y1, $x1, $y, $color1);
+		if ($text) {
+			if ($placeindex>0) {
+			
+				if ($placeindex<16)
+				{
+					$px=5;
+					$py=$placeindex*12+6;
+					imagefilledrectangle($im, $px+90, $py+3, $px+90-4, $py-3, $color2);
+					imageline($im,$x,$y+$h/2,$px+90,$py,$color2);
+					imagestring($im,2,$px,$py-6,$text,$color1);	
+					
+				} else {
+					if ($placeindex<31) {
+						$px=$x+40*2;
+						$py=($placeindex-15)*12+6;
+					} else {
+						$px=$x+40*2+100*intval(($placeindex-15)/15);
+						$py=($placeindex%15)*12+6;
+					}
+					imagefilledrectangle($im, $px, $py+3, $px-4, $py-3, $color2);
+					imageline($im,$x+$w,$y+$h/2,$px,$py,$color2);
+					imagestring($im,2,$px+2,$py-6,$text,$color1);	
+				}
+			} else {
+				imagestring($im,4,$x+5,$y1-16,$text,$color1);
+			}
+		}
+	}
+
+
+	$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 = 0.000001;
+
+		// 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];
+			uasort($free, 'block_sort');
+			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];
+			uasort($free, 'block_sort');
+			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;
+}
+
+// pretty printer for byte values
+//
+function bsize($s) {
+	foreach (array('','K','M','G') as $i => $k) {
+		if ($s < 1024) break;
+		$s/=1024;
+	}
+	return sprintf("%5.1f %sBytes",$s,$k);
+}
+
+// sortable table header in "scripts for this host" view
+function sortheader($key,$name,$extra='') {
+	global $MYREQUEST, $MY_SELF_WO_SORT;
+	
+	if ($MYREQUEST['SORT1']==$key) {
+		$MYREQUEST['SORT2'] = $MYREQUEST['SORT2']=='A' ? 'D' : 'A';
+	}
+	return "<a class=sortable href=\"$MY_SELF_WO_SORT$extra&SORT1=$key&SORT2=".$MYREQUEST['SORT2']."\">$name</a>";
+
+}
+
+// create menu entry 
+function menu_entry($ob,$title) {
+	global $MYREQUEST,$MY_SELF;
+	if ($MYREQUEST['OB']!=$ob) {
+		return "<li><a href=\"$MY_SELF&OB=$ob\">$title</a></li>";
+	} else if (empty($MYREQUEST['SH'])) {
+		return "<li><span class=active>$title</span></li>";
+	} else {
+		return "<li><a class=\"child_active\" href=\"$MY_SELF&OB=$ob\">$title</a></li>";	
+	}
+}
+
+function put_login_link($s="Login")
+{
+	global $MY_SELF,$MYREQUEST,$AUTHENTICATED;
+	// needs ADMIN_PASSWORD to be changed!
+	//
+	if (!USE_AUTHENTICATION) {
+		return;
+	} else if (ADMIN_PASSWORD=='password')
+	{
+		print <<<EOB
+			<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>
+EOB;
+	} else if ($AUTHENTICATED) {
+		print <<<EOB
+			'{$_SERVER['PHP_AUTH_USER']}'&nbsp;logged&nbsp;in!
+EOB;
+	} else{
+		print <<<EOB
+			<a href="$MY_SELF&LO=1&OB={$MYREQUEST['OB']}">$s</a>
+EOB;
+	}
+}
+
+function block_sort($array1, $array2)
+{
+	if ($array1['offset'] > $array2['offset']) {
+		return 1;
+	} else {
+		return -1;
+	}
+}
+
+
+?>
+<!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="javascript: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 &amp; 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">&nbsp;</span>Free: ',bsize($mem_avail).sprintf(" (%.1f%%)",$mem_avail*100/$mem_size),"</td>\n",
+		'<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",
+		'</tr>',
+		'<tr>',
+		'<td class=td-0><span class="red box">&nbsp;</span>Used: ',bsize($mem_used ).sprintf(" (%.1f%%)",$mem_used *100/$mem_size),"</td>\n",
+		'<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";
+	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
+// -----------------------------------------------
+case OB_USER_CACHE:
+	if (!$AUTHENTICATED) {
+    echo '<div class="error">You need to login to see the user values here!<br/>&nbsp;<br/>';
+		put_login_link("Login now!");
+		echo '</div>';
+		break;
+	}
+	$fieldname='info';
+	$fieldheading='User Entry Label';
+	$fieldkey='info';
+
+// -----------------------------------------------
+// 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>&lt;hidden&gt;</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) : htmlspecialchars($value, ENT_QUOTES, 'UTF-8'),"</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, ENT_QUOTES, 'UTF-8');
+					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>',
+    '&nbsp; Search: <input name=SEARCH value="',$MYREQUEST['SEARCH'],'" type=text size=25/>',
+		'&nbsp;<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('/^.*(\\/|\\\\)/','*hidden*/',$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) {  
+        $field_value = htmlentities(strip_tags($entry[$fieldname],''), ENT_QUOTES, 'UTF-8');
+        echo
+          '<tr class=tr-',$i%2,'>',
+          "<td class=td-0><a href=\"$MY_SELF&OB=",$MYREQUEST['OB'],"&SH=",md5($entry[$fieldkey]),"\">",$field_value,'</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"> &nbsp; </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
+// -----------------------------------------------
+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>',
+		'&nbsp;<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
+// -----------------------------------------------
+case OB_VERSION_CHECK:
+	echo <<<EOB
+		<div class="info"><h2>APC Version Information</h2>
+		<table cellspacing=0><tbody>
+		<tr>
+		<th></th>
+		</tr>
+EOB;
+  if (defined('PROXY')) {
+    $ctxt = stream_context_create( array( 'http' => array( 'proxy' => PROXY, 'request_fulluri' => True ) ) );
+    $rss = @file_get_contents("http://pecl.php.net/feeds/pkg_apc.rss", False, $ctxt);
+  } else {
+    $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, ENT_QUOTES, 'UTF-8')."</a></b><br><blockquote>";
+			echo nl2br(htmlspecialchars(current($match[2]), ENT_QUOTES, 'UTF-8'))."</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>

web/bootstrap.inc.php

@@ -0,0 +1,9 @@
+<?php
+
+define('WEB_PATH', realpath(dirname(__FILE__)));
+define('APP_PATH', realpath(WEB_PATH.'/../app'));
+define('WORM_PATH', realpath(WEB_PATH.'/../worm'));
+define('VAR_PATH', realpath(WEB_PATH.'/../var'));
+
+include WORM_PATH.'/bootstrap.inc.php';
+

worm/autoload.inc.php

@@ -0,0 +1,60 @@
+<?php //Namespace Worm;
+
+const WORM_APP_MODEL_PREFIX = 'App\\model_';
+
+function __autoload($classname)
+{
+	//echo '<p>loading : '.$classname.'</p>';
+	if (substr($classname, 0, 5)=='Worm\\')
+		worm_autoloader($classname);
+	if (substr($classname, 0, strlen(WORM_APP_MODEL_PREFIX))==WORM_APP_MODEL_PREFIX)
+		model_autoloader($classname);
+}
+
+function worm_autoloader($classname)
+{
+	//echo '<p>loading : '.$classname.'</p>';
+	$filename = WORM_PATH.'/classes/'.strtolower(substr($classname, 5)).'.inc.php';
+	
+	if (! file_exists($filename)) {
+		$msg = '<p>Class file '.$classname.' in file '.$filename.' missing</p>';
+		throw new Worm\Autoload_Exception($msg);
+		return;
+	}
+	// @todo : ajouter timestamp pour inclusion
+	//echo $filename.'<br />';
+	include $filename;
+
+	if (method_exists($classname, '__init'))
+		$classname::__init();
+}
+
+function model_autoloader($classname)
+{
+	//echo '<p>loading : '.$classname.'</p>';
+	$filename = APP_PATH.'/classes/model/'.strtolower(substr($classname, strlen(WORM_APP_MODEL_PREFIX))).'.php';
+	
+	if (! file_exists($filename)) {
+		$msg = '<p>Class file '.$classname.' in file '.$filename.' missing</p>';
+		throw new Worm\Autoload_Exception($msg);
+		return;
+	}
+	// @todo : ajouter timestamp pour inclusion
+	//echo $filename.'<br />';
+	include $filename;
+
+	if (method_exists($classname, '__init'))
+		$classname::__init();
+}
+
+//include 'cache.inc.php';
+//cache::__init();
+
+//include 'db.inc.php';
+//db::__init();
+
+//include 'orm.inc.php';
+//model_manager::__init();
+
+\Worm\Core::__init();
+

worm/bootstrap.inc.php

@@ -0,0 +1,11 @@
+<?php
+
+$t0 = microtime(true);
+
+if (! defined('CONFIG_PATH'))
+	define('CONFIG_PATH', realpath(APP_PATH.'/config'));
+if (! defined('CACHE_PATH'))
+	define('CACHE_PATH', realpath(VAR_PATH.'/cache'));
+
+include WORM_PATH.'/autoload.inc.php';
+

worm/classes/autoload_exception.inc.php

@@ -0,0 +1,10 @@
+<?php namespace Worm;
+
+/**
+ * Exception
+ */
+class Autoload_Exception extends Exception
+{
+
+}
+

worm/classes/cache.inc.php

@@ -0,0 +1,57 @@
+<?php namespace Worm;
+
+class cache
+{
+
+protected static $c;
+protected static $enabled = false;
+
+public static function __init()
+{
+	if (! static::$enabled)
+		return;
+	
+	static::$c = new Memcached();
+	static::$c->addServer('localhost', 11211);
+}
+
+public static function set($name, $value, $expiration=null)
+{
+	if (! static::$enabled)
+		return;
+	
+	//return static::$c->set($name, $value, $expiration);
+	return apc_store($name, $value, $expiration);
+}
+
+public static function get($name)
+{
+	if (! static::$enabled)
+		return;
+	
+	//return static::$c->get($name);
+	return apc_fetch($name);
+}
+
+public static function rm($name)
+{
+	if (! static::$enabled)
+		return;
+	
+	//return static::$c->delete($name);
+	return apc_delete($name);
+
+}
+
+public static function search($names)
+{
+	if (! static::$enabled)
+		return;
+	
+	return apc_fetch($names);
+}
+
+}
+
+//cache::__init();
+

worm/classes/core.inc.php

@@ -0,0 +1,497 @@
+<?php namespace Worm;
+
+/**
+ * Manager contenant l'ensemble des spécifications des modèles métier
+ */
+class Core
+{
+
+/* Connection au moteur de base de données */
+protected static $__db;
+
+protected static $__cache_loaded = false;
+
+/* Stockage global des spécifications des modèles */
+protected static $__models = array();
+/* Stockage global des spécifications des champs des modèles */
+protected static $__fields = array();
+/* Summary */
+protected static $__summary = array();
+
+/* Champs spéciaux */
+protected static $__special_fields = array('id', 'ctime', 'cid', 'utime', 'uid', 'dutime', 'rev');
+//protected static $__special_fields = array('id', 'ctime', 'utime', 'rev');
+/* Champs de type related */
+protected static $__related_fields = array('related', 'function', 'calculated', 'object_list');
+
+/* Cache global d'objets */
+protected static $__objects = array();
+
+/* Transaction */
+protected static $__transaction = false;
+protected static $__save_list = array();
+
+/* Debug des opérations en base de données */
+protected static $_db_debug;
+
+public static function __init()
+{
+	// Generate related fields
+	if (! static::$__cache_loaded)
+		static::__cache_load();
+	
+	//db::__init();
+}
+
+/**
+ * Used to make the class alive
+ */
+public static function _hup()
+{
+	// ouahaha
+}
+
+/**
+ * Debugging (log)
+ */
+protected static function debug($method, $info)
+{
+	Debug::add('core ('.get_called_class().')', $method, $info);
+}
+
+
+/* Cache de modèles */
+
+
+/**
+ * Load model cache
+ */
+protected static function __cache_load()
+{
+	static::$__cache_loaded = true;
+	if (file_exists($filename=CACHE_PATH.'/models.json'))
+		list(static::$__models, static::$__fields) = json_decode(file_get_contents($filename), true);
+	else
+		static::__cache_regen();
+}
+
+/**
+ * Regen model cache
+ */
+protected static function __cache_regen()
+{
+	$fp = opendir(APP_PATH.'/classes/model');
+	// Génération du cache pour chaque model
+	while ($file=readdir($fp)) if (substr($file, 0, 1)!='.') {
+		 //echo $file.'<br />';
+		$classname = WORM_APP_MODEL_PREFIX.substr($file, 0, -4);
+		$classname::_cache_regen();
+	}
+	
+	// Parse fields
+	foreach (static::$__fields as $model=>&$fields) {
+		// Clean fields definition
+		static::__fields_clean($fields);
+		// Parse related fields to store
+		foreach ($fields as $name=>&$field) {
+			if (! is_array($field))
+				continue;
+			if (! isset($field['type'])) {
+				static::debug('__cache_regen', 'No field type for '.$model.'.'.$name);
+				continue;
+			}
+			// Analyse related field
+			if ($field['type']=='related' && in_array('store', $field)) {
+				static::debug('__cache_regen', 'Related found : '.$model.'.'.$name.' relating '.$field['relates']);
+				$related = static::__related_analyse($model, $name, $field['relates']);
+				// @todo : array_merge_recursive
+				foreach ($related as $m=>$i) {
+					foreach ($i as $f=>$j) {
+						foreach ($j as $r) {
+							static::$__fields[$m][$f]['related'][] = $r;
+						}
+					}
+				}
+			}
+			// Analyse calculated field
+			elseif ($field['type']=='calculated' && in_array('store', $field)) {
+				// Every relates
+				foreach ($field['relates'] as $relates) {
+					$related = static::__calculated_analyse($model, $name, $relates);
+					static::debug('__cache_regen', 'Related found : '.$model.'.'.$name.' relating '.$relates);
+					// @todo : array_merge_recursive
+					foreach ($related as $m=>$i) {
+						foreach ($i as $f=>$j) {
+							foreach ($j as $r) {
+								static::$__fields[$m][$f]['calculated'][] = $r;
+							}
+						}
+					}
+				}
+			} /* end fields type related and calculated analysis */
+		} /* end foreach fields */
+	}
+	file_put_contents(CACHE_PATH.'/models.json', json_encode(array(static::$__models, static::$__fields)));
+}
+
+protected static function __fields_clean(&$fields)
+{
+	foreach ($fields as $name=>&$field) {
+		if (is_numeric($name)) {
+			unset($fields[$name]);
+			$name = $field;
+			$field = array();
+			$fields[$name] =& $field;
+		}
+		
+		if (! isset($field['type']))
+			$field['type'] = '';
+	}
+}
+
+protected static function __related_analyse($model, $name, $relates)
+{
+	$fields = static::$__fields[$model];
+	$field = $fields[$name];
+	
+	$related = array();
+	
+	//echo '<p>Related found :</p>';
+	$r = explode('.', $field['relates']);
+	var_dump($r);
+
+	$r2 = array();
+	/* $m current model having related */
+	$m = $model;
+	/* $f fields of current model */
+	$f =& $fields;
+	foreach ($r as $i=>$j) {
+		//echo '<p>Related : '.$m.' -> '.$j.' Analysing...</p>';
+		if (! isset($f[$j])) {
+			//echo '<p>Related : '.$m.' -> '.$j.' does not exists !</p>';
+			break;
+		}
+	
+		$m2 = isset($f[$j]['model']) ?$f[$j]['model'] :null;
+		//echo '<p>Model : '.$m2.'</p>';
+	
+		$r2[] = array($m2, $j);
+	
+		if (! isset($f[$j]['model'])) {
+			//echo '<p>Related : '.$m.' - '.$j.' is not a model</p>';
+			break;
+		}
+		$m = $f[$j]['model'];
+		$f =& static::$__fields[$m];
+	}
+
+	$r3 = array();
+	/* $m current model having related */
+	$m = $model;
+	/* $f fields of current model */
+	$f =& $fields;
+	foreach ($r as $i=>$j) {
+		if (! isset($f[$j])) {
+			//echo '<p>Related : '.$m.' - '.$j.' does not exists !</p>';
+			break;
+		}
+	
+		$related[$m][$j][] = array('model'=>$model, 'field'=>$name, 'relates'=>$r2, 'rev'=>array_reverse($r3));
+		
+		// test if we can go deeper in $m
+		if (! isset($f[$j]['model'])) {
+			//echo '<p>Related : '.$m.' - '.$j.' is not a model</p>';
+			break;
+		}
+	
+		// on remonte : le champ $j du modèle $m
+		array_shift($r2);
+		$r3[] = array($m, $j);
+		$m = $f[$j]['model'];
+		$f =& static::$__fields[$m];
+	}
+	
+	return $related;
+}
+
+protected static function __calculated_analyse($model, $name, $relates)
+{
+	$fields = static::$__fields[$model];
+	$field = $fields[$name];
+	
+	if (is_array($relates)) {
+		$related = array(
+			$relates['model']=>array(
+				$relates['field']=>array(
+					array(
+						'model' => $model,
+						'field' => $name,
+						'select_ids_fct' => isset($relates['select_ids_fct']) ?$relates['select_ids_fct'] :'',
+						'update_fct' => isset($relates['update_fct']) ?$relates['update_fct'] :'',
+					),
+				),
+			),
+		);
+		return $related;
+	}
+
+	return array();
+}
+
+/* Données */
+
+
+public static function __models()
+{
+	return static::$__models;
+}
+
+public static function __fields()
+{
+	return static::$__fields;
+}
+
+public static function __objects()
+{
+	return static::$__objects;
+}
+
+
+/* Gestion des dépendances */
+
+
+/**
+ * Met à jour les objets dépendant
+ * @param string $modelname
+ * @param int $id ID de l'objet
+ * @param [] $values New values
+ * @param [] $values_orig Old values
+ */
+protected static function __update_dep($modelname, $id, $values, $values_orig)
+{
+	$fields =& static::$__fields[$modelname];
+	foreach($values as $name=>$value) {
+		$field = $fields[$name];
+		if ($field['type']=='object') {
+			if (isset($values_orig[$name]) && is_numeric($value_orig=$values_orig[$name])) {
+				if (isset(static::$__objects[$field['model']][$value_orig])) {
+					$o = static::$__objects[$field['model']][$value_orig];
+					$k = array_keys($o->_values[$field['rev']], $id);
+					foreach($k as $i)
+						unset($o->_values[$field['rev']][$i]);
+					$o->updated();
+					if (static::$_cache)
+						cache::set($field['model'].'_'.$value_orig, $o);
+				}
+			}
+			if (is_numeric($value)) {
+				if (isset(static::$__objects[$field['model']][$value])) {
+					$o = static::$__objects[$field['model']][$value];
+					$o->_values[$field['rev']][] = $id;
+					$o->updated();
+					if (static::$_cache)
+						cache::set($field['model'].'_'.$value, $o);
+				}
+			}
+		}
+		elseif ($field['type']=='object_list') {
+		}
+	}
+}
+
+
+/* Base de données */
+
+/**
+ * Renvoie l'association des noms de champ propres
+ * entre le modèle et la base de données
+ * @param string $modelname
+ * @return []string
+ */
+public static function __db_fields($modelname)
+{
+	$fields = array();
+	
+	foreach(static::$__fields[$modelname] as $name=>$field) {
+		if ((! in_array($field['type'], static::$__related_fields)) || in_array('store', $field) || ! empty($field['store'])) {
+			if (isset($field['db_fieldname']))
+				$fields[$name] = $field['db_fieldname'];
+			elseif ($field['type']=='object')
+				$fields[$name] = $name.'_id';
+			else
+				$fields[$name] = $name;
+		}
+	}
+	return $fields;
+}
+
+
+/**
+ * Récupérer les propriétés d'une liste objet en base de donnée à partir d'une liste d'id
+ *
+ * @param string $modelname
+ * @param []int $ids
+ * @return []
+ */
+protected static function __db_find_ids($modelname, $ids)
+{
+	if (is_numeric($ids))
+		$ids = array($ids);
+	elseif(!is_array($ids))
+		return;
+	$dbname = static::$__models[$modelname]['db_name'];	
+	$fields = static::$__fields[$modelname];
+	
+	$fields_own_sql = static::__db_fields($modelname);
+	//var_dump($fields_own_sql);
+	$select_sql = static::$__special_fields;
+	foreach($fields_own_sql as $i=>$j) {
+		$select_sql[] = ($i!=$j) ?$j.' as '.$i :$i;
+	}
+	$sql = 'SELECT '.implode(', ', $select_sql).' FROM `'.$dbname.'` WHERE `id` IN ('.implode(', ', $ids).')';
+	$q = db::select($sql);
+	$list = array();
+	while ($row=$q->fetch_assoc()){
+		$list[$row['id']] = $row;
+	}
+	foreach($fields as $name=>$field){
+		if ($field['type']=='object_list'){
+			// @todo db_fieldname
+			$sql = 'SELECT `id`, `'.$field['rev'].'_id` ref_id FROM `'.$field['model'].'` WHERE `'.$field['rev'].'_id` IN ('.implode(', ', $ids).')';
+			$q = db::select($sql);
+			while (list($id, $ref_id)=$q->fetch_row()){
+				$list[$ref_id][$name][] = $id;
+			}
+		}
+	}
+	return $list;
+}
+
+/**
+ * Récupérer une liste d'id d'objets en base de donnée à partir de paramètres
+ *
+ * @param string $modelname
+ * @param [] $params
+ * @param [] $order
+ * @param [] $limit
+ * @return []int
+ */
+protected static function __db_search($modelname, $params=array(), $order=null, $limit=null)
+{
+	if (! is_array($params))
+		$params = array();
+	
+	$sql = 'SELECT `id`, `rev`, `utime` FROM `'.$modelname.'`'
+		.(!empty($params) ?' WHERE '.implode(' AND ', $params) : '')
+		.(!empty($order) ?' ORDER BY '.$order :'')
+		.(!empty($limit) ?' LIMIT '.$limit :'');
+	$q = db::select($sql);
+	$list = array();
+	while($row=$q->fetch_row()){
+		//$list[$id] = $row;
+		$list[] = $row[0];
+	}
+	return $list;
+}
+
+/**
+ * Insère les données d'un objet
+ *
+ * @param string $modelname
+ * @param []mixed $data
+ * @return int|false
+ */
+protected static function __db_insert($modelname, $data)
+{
+	if (! is_array($data))
+		return;
+	
+	$f = array('ctime', 'utime');
+	$v = array($t=time(), $t);
+	
+	$fields_own_sql = static::__db_fields($modelname);
+	foreach($data as $name=>$value) {
+		if (isset($fields_own_sql[$name])) {
+			$f[] = '`'.$fields_own_sql[$name].'`';
+			$v[] = is_null($value) ?'NULL' :'"'.db::string_escape($value).'"';
+		}
+	}
+	$sql = 'INSERT INTO `'.$modelname.'` ('.implode(', ', $f).') VALUES ('.implode(', ', $v).')';
+	$q = db::insert($sql);
+	return $q->insert_id();
+}
+
+/**
+ * Met à jour les données d'un objet
+ *
+ * @param string $modelname
+ * @param [] $params
+ * @param []mixed $data
+ */
+protected static function __db_update($modelname, $params, $data)
+{
+	if (! is_array($data))
+		return;
+	if (is_numeric($params))
+		$p = '`id`='.$params;
+	else
+		return;
+	
+	$u = array('`utime`='.time(), 'rev=rev+1');
+	$fields_own_sql = static::__db_fields($modelname);
+	foreach($data as $name=>$value)
+		$u[] = '`'.$fields_own_sql[$name].'`='.(is_null($value) ?'NULL' :'"'.db::string_escape($value).'"');
+	$sql = 'UPDATE `'.$modelname.'` SET '.implode(', ', $u).' WHERE '.$p;
+	$q = db::update($sql);
+	return $q->affected_rows() > 0 ?true :false;
+}
+
+/**
+ * Comptage
+ *
+ * @param string $modelname
+ * @param [] $params
+ * @param [] $limit
+ */
+protected static function __db_count($modelname, $params=null, $limit=null)
+{
+	$sql = 'SELECT COUNT(*) FROM `'.$modelname.'`'
+		.(!empty($params) ?' WHERE '.implode(' AND ', $params) : '')
+		.(!empty($limit) ?' LIMIT '.$limit :'');
+	$q = db::count($sql);
+	list($nb) = $q->fetch_row();
+	return $nb;
+}
+
+/**
+ * Suppression
+ *
+ * @param string $modelname
+ * @param [] $params
+ * @param [] $limit
+ */
+protected static function __db_delete($modelname, $params=null, $limit=null)
+{
+	$sql = 'DELETE FROM `'.$modelname.'`'
+		.(!empty($params) ?' WHERE '.implode(' AND ', $params) : '')
+		.(!empty($limit) ?' LIMIT '.$limit :'');
+	$q = db::delete($sql);;
+	return $q->affected_rows() > 0 ?true :false;
+}
+
+/* transaction */
+
+protected static function __save_execute()
+{
+	static::debug('save_execute', 'begin');
+	//echo '<pre>'; var_dump(static::$__save_list); echo '</pre>';
+	foreach(static::$__save_list as $o) {
+		static::debug('save_execute', get_class($o).'#'.$o->id);
+		$o->persist();
+	}
+	static::$__transaction = false;
+	static::debug('save_execute', 'end');
+}
+
+}
+

worm/classes/db.inc.php

@@ -0,0 +1 @@
+db_pdo.inc.php

worm/classes/db_abstract.inc.php

@@ -0,0 +1,101 @@
+<?php Namespace Worm;
+
+abstract class db_abstract
+{
+
+protected static $_c;
+protected static $_log = array();
+protected static $_log_n = 0;
+protected static $_log_debug = true;
+protected static $_t_debug = true;
+
+public static function __init()
+{
+	static::connect();
+}
+
+public static function _t()
+{
+	$t = 0;
+	foreach(static::$_log as $q) {
+		
+	}
+}
+
+public static function _log()
+{
+	foreach(static::$_log as $q) {
+		var_dump($q);
+	}
+}
+
+public static function connect($force=false)
+{
+	if (! is_null(static::$_c) && ! $force)
+		return;
+	
+	static::$_c = static::sql_connect(DB_HOST, DB_USER, DB_PASS);
+	static::database_select(DB_BASE);
+	static::charset('UTF8');
+}
+
+protected static function charset($charset)
+{
+	// Overload
+}
+
+protected static function sql_connect($host, $username, $password)
+{
+	// overload
+}
+
+public static function sql_disconnect()
+{
+	// Overload
+}
+
+protected static function database_select($name)
+{
+	// overload
+}
+
+/* Data Queries */
+
+public static function forge($sql)
+{
+	return static::query($sql);
+}
+
+public static function query($sql)
+{
+	return new db_query($sql);
+}
+
+public static function select($sql)
+{
+	return new db_select($sql);
+}
+
+public static function count($sql)
+{
+	return static::select($sql);
+}
+
+public static function insert($sql)
+{
+	return new db_insert($sql);
+}
+
+public static function update($sql)
+{
+	return new db_update($sql);
+}
+
+public static function delete($sql)
+{
+	$q = new db_delete($sql);
+	return $q;
+}
+
+}
+

worm/classes/db_delete.inc.php

@@ -0,0 +1,17 @@
+<?php Namespace Worm;
+
+/**
+ * Requête DELETE en base de données
+ */
+class db_delete extends db_update
+{
+
+public function log($force=false)
+{
+	return array_merge(parent::log(), array(
+		'd'=>$this->affected_rows(),
+	));
+}
+
+}
+

worm/classes/db_exception.inc.php

@@ -0,0 +1,10 @@
+<?php Namespace Worm;
+
+/**
+ * Exception
+ */
+class Db_Exception extends Exception
+{
+
+}
+

worm/classes/db_insert.inc.php

@@ -0,0 +1,35 @@
+<?php Namespace Worm;
+
+/**
+ * Requête INSERT en base de données
+ */
+class db_insert extends db_query
+{
+
+protected $insert_id;
+
+public function insert_id()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (! is_numeric($this->insert_id)) {
+		if (static::$_t_debug)
+			$t0 = microtime(true);
+		$this->insert_id = static::insert_last_id();
+		if (static::$_t_debug)
+			$this->t += microtime(true)-$t0;
+	}
+	
+	return $this->insert_id;
+}
+
+public function log($force=false)
+{
+	return array_merge(parent::log(), array(
+		'i'=>$this->insert_id(),
+	));
+}
+
+}
+

worm/classes/db_mysql.inc.php

@@ -0,0 +1,132 @@
+<?php Namespace Worm;
+
+/**
+ * Base de données MySQL
+ */
+class db extends db_abstract
+{
+
+protected static function debug($method, $info)
+{
+	Debug::add('db ('.get_called_class().')', $method, $info);
+}
+
+protected static function sql_connect($host, $username, $password, $dbname=null)
+{
+	return new PDO('mysql:host='.$host.';dbname='.$dbname, $username, $password);
+	//return mysql_connect($host, $username, $password);
+}
+
+protected static function charset($charset)
+{
+	mysql_query('SET NAMES '.$charset, static::$_c);
+}
+
+protected static function database_select($name)
+{
+	//mysql_select_db($name, static::$_c);
+}
+
+/* DB methods */
+
+public static function error_last()
+{
+	//static::$_c->
+	//return mysql_error(static::$_c);
+}
+
+public static function insert_last_id()
+{
+	
+	//return mysql_insert_id(static::$_c);
+}
+
+public static function affected_rows_last()
+{
+	return mysql_affected_rows(static::$_c);
+}
+
+public static function string_escape($string)
+{
+	return mysql_real_escape_string($string);
+}
+
+/* Structure Queries */
+
+public static function database_create($name, $opt=array())
+{
+
+}
+
+public static function table_create($name, $schema, $opt=array())
+{
+
+}
+
+public static function table_update($name, $schema, $opt=array())
+{
+
+}
+
+public static function table_delete($name)
+{
+
+}
+
+public static function table_purge($name)
+{
+
+}
+
+public static function table_check($name)
+{
+
+}
+
+public static function table_reindex($name, $index_name=null)
+{
+
+}
+
+/* Data Queries */
+
+public static function sql_query($sql)
+{
+	try {
+		if (! ($q = mysql_query($sql, static::$_c)))
+			throw new worm_db_exception('Error executing sql query : '.$sql);
+		else
+			return $q;
+	}
+	catch(exception $e) {
+		die($e->getMessage());
+	}
+}
+
+public static function sql_fetch_row($q)
+{
+	return mysql_fetch_row($q);
+}
+
+public static function sql_fetch_array($q)
+{
+	return mysql_fetch_array($q);
+}
+
+public static function sql_fetch_assoc($q)
+{
+	return mysql_fetch_assoc($q);
+}
+
+public static function sql_fetch_object($q)
+{
+	return mysql_fetch_object($q);
+}
+
+public static function sql_num_rows($q)
+{
+	return mysql_num_rows($q);
+}
+
+}
+

worm/classes/db_pdo.inc.php

@@ -0,0 +1,131 @@
+<?php Namespace Worm;
+
+/**
+ * Base de données MySQL PDO
+ */
+class db extends db_abstract
+{
+
+protected static function debug($method, $info)
+{
+	Debug::add('db ('.get_called_class().')', $method, $info);
+}
+
+protected static function sql_connect($host, $username, $password, $dbname=null)
+{
+	return new PDO('mysql:host='.$host.';dbname='.$dbname, $username, $password);
+}
+
+protected static function charset($charset)
+{
+	static::sql_query('SET NAMES '.$charset);
+}
+
+protected static function database_select($name)
+{
+	static::sql_query('USE '.$name);
+}
+
+/* DB methods */
+
+public static function error_last()
+{
+	//static::$_c->
+	//return mysql_error(static::$_c);
+}
+
+public static function insert_last_id()
+{
+	
+	//return mysql_insert_id(static::$_c);
+}
+
+public static function affected_rows_last()
+{
+	return mysql_affected_rows(static::$_c);
+}
+
+public static function string_escape($string)
+{
+	return mysql_real_escape_string($string);
+}
+
+/* Structure Queries */
+
+public static function database_create($name, $opt=array())
+{
+
+}
+
+public static function table_create($name, $schema, $opt=array())
+{
+
+}
+
+public static function table_update($name, $schema, $opt=array())
+{
+
+}
+
+public static function table_delete($name)
+{
+
+}
+
+public static function table_purge($name)
+{
+
+}
+
+public static function table_check($name)
+{
+
+}
+
+public static function table_reindex($name, $index_name=null)
+{
+
+}
+
+/* Data Queries */
+
+public static function sql_query($sql)
+{
+	try {
+		if (! ($q = static::$_c->query($sql)))
+			throw new worm_db_exception('Error executing sql query : '.$sql);
+		else
+			return $q;
+	}
+	catch(exception $e) {
+		die($e->getMessage());
+	}
+}
+
+public static function sql_fetch_row($q)
+{
+	return $q->fetchRow();
+}
+
+public static function sql_fetch_array($q)
+{
+	return $q->fetchArray();
+}
+
+public static function sql_fetch_assoc($q)
+{
+	return $q->fetchAssoc();
+}
+
+public static function sql_fetch_object($q)
+{
+	return $q->fetchObject();
+}
+
+public static function sql_num_rows($q)
+{
+	return $q->numhRows();
+}
+
+}
+

worm/classes/db_query.inc.php

@@ -0,0 +1,75 @@
+<?php Namespace Worm;
+
+/**
+ * Requête générique en base de données
+ */
+class db_query extends db
+{
+
+/* Query id */
+protected $n;
+protected $sql;
+/* Query executed */
+protected $exec;
+protected $error;
+/* Spent time */
+protected $t0;
+protected $t1;
+protected $t;
+
+/* Encapsulated db engine query */
+protected $q;
+
+public function __construct($sql, $execute=true)
+{
+	$this->n = static::$_log_n++;
+	static::$_log[$this->n] = $this;
+	$this->sql = $sql;
+	static::debug('__construct', $sql);
+	if ($execute)
+		$this->execute();
+}
+
+public function execute()
+{
+	if ($this->exec) {
+		// Already executed exception
+		return;
+	}
+	$this->exec = true;
+	
+	if (static::$_t_debug)
+		$this->t0 = microtime(true);
+	$this->q = static::sql_query($this->sql);
+	if (static::$_log_debug)
+		$this->log();
+	if (static::$_t_debug) {
+		$this->t1 = microtime(true);
+		$this->t += $this->t1-$this->t0;
+	}
+}
+
+public function error()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (! is_string($this->error))
+		$this->error = static::error_last();
+	
+	return $this->error;
+}
+
+public function log($force=false)
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	return array(
+		'sql'=>$this->sql,
+		'error'=>$this->error,
+	);
+}
+
+}
+

worm/classes/db_select.inc.php

@@ -0,0 +1,92 @@
+<?php Namespace Worm;
+
+/**
+ * Requête SELECT en base de données
+ */
+class db_select extends db_query
+{
+
+protected $num_rows;
+
+public function fetch($method=null)
+{
+	return $this->fetch_row();
+}
+
+public function fetch_row()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (static::$_t_debug)
+		$t0 = microtime(true);
+	$r = static::sql_fetch_row($this->q);
+	if (static::$_t_debug)
+		$this->t += microtime(true)-$t0;
+	return $r;
+}
+
+public function fetch_array()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (static::$_t_debug)
+		$t0 = microtime(true);
+	$r = static::sql_fetch_array($this->q);
+	if (static::$_t_debug)
+		$this->t += microtime(true)-$t0;
+	return $r;
+}
+
+public function fetch_assoc()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (static::$_t_debug)
+		$t0 = microtime(true);
+	$r = static::sql_fetch_assoc($this->q);
+	if (static::$_t_debug)
+		$this->t += microtime(true)-$t0;
+	return $r;
+}
+
+public function fetch_object()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (static::$_t_debug)
+		$t0 = microtime(true);
+	$r = static::sql_fetch_object($this->q);
+	if (static::$_t_debug)
+		$this->t += microtime(true)-$t0;
+	return $r;
+}
+
+public function num_rows()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (! is_numeric($this->num_rows)) {
+		if (static::$_t_debug)
+			$t0 = microtime(true);
+		$this->num_rows = static::sql_num_rows($this->q);
+		if (static::$_t_debug)
+			$this->t += microtime(true)-$t0;
+	}
+	
+	return $this->num_rows;
+}
+
+public function log($force=false)
+{
+	return array_merge(parent::log(), array(
+		'nb'=>$this->num_rows(),
+	));
+}
+
+}
+

worm/classes/db_update.inc.php

@@ -0,0 +1,35 @@
+<?php Namespace Worm;
+
+/**
+ * Requête UPDATE en base de données
+ */
+class db_update extends db_query
+{
+
+protected $affected_rows;
+
+public function affected_rows()
+{
+	if (! $this->exec)
+		$this->execute();
+	
+	if (! is_numeric($this->affected_rows)) {
+		if (static::$_t_debug)
+			$t0 = microtime(true);
+		$this->affected_rows = static::affected_rows_last();
+		if (static::$_t_debug)
+			$this->t += microtime(true)-$t0;
+	}
+	
+	return $this->affected_rows;
+}
+
+public function log($force=false)
+{
+	return array_merge(parent::log(), array(
+		'u'=>$this->affected_rows(),
+	));
+}
+
+}
+

worm/classes/debug.inc.php

@@ -0,0 +1,34 @@
+<?php namespace Worm;
+
+class Debug
+{
+
+protected static $lcat = array();
+protected static $l = array();
+
+public static function add($cat, $function, $info)
+{
+	if (! isset(static::$l[$cat])) {
+		static::$l[$cat] = array();
+		$n = count(static::$l);
+		static::$l[$n] = array(
+			'ts' => microtime(true),
+			'cat' => $cat,
+			'function' => $function,
+			'info' => $info,
+		);
+		static::$lcat[$cat][] =& static::$l[$n];
+	}
+}
+
+public static function get($cat=NULL)
+{
+	return !empty($cat) ?static::$lcat[$cat] :static::$l;
+}
+
+public static function get_all()
+{
+	return static::get();
+}
+
+}

worm/classes/exception.inc.php

@@ -0,0 +1,10 @@
+<?php Namespace Worm;
+
+/**
+ * Exception
+ */
+class Exception extends \exception
+{
+
+}
+

worm/classes/list.inc.php

@@ -0,0 +1,7 @@
+<?php Namespace Worm;
+
+class Wlist extends Core
+{
+
+}
+

worm/classes/model.inc.php

@@ -0,0 +1,856 @@
+<?php namespace Worm;
+
+/**
+ * Base des modèles métier
+ */
+abstract class Model extends Core
+{
+
+/* Propriétés de classe */
+
+/* @var string log des mises à jour du modèle */
+protected static $_db_log = true;
+/* @var string Nom raccourcis */
+protected static $_name = '';
+/* @var string nom de table */
+protected static $_dbname = '';
+/* Spécifications des champs du modèle */
+protected static $_fields = array();
+/* Liste des champs "résumé" du modèle */
+protected static $_summary = array();
+
+/* @var int Nombre appromimatif d'éléments => en résulte un affichage spécifique des formulaires de sélection, etc. */
+protected static $_count_avg = null;
+protected static $_select_form = null;
+/* @var string Affichage par défaut (doit permettre d'afficher abstraction faite de PHP donc pas de __tostring()) */
+protected static $_tostring = '{_name}#{id}';
+
+
+/* Class initialisation */
+
+/**
+ * Regen class cache
+ * Store class definitions in global classes cache
+ */
+protected static function _cache_regen()
+{
+	// Model general definition
+	static::$__models[static::$_name] = array(
+		'db_name' => &static::$_dbname,
+	);
+	
+	// Link field definitions
+	static::$__fields[static::$_name] =& static::$_fields;
+	static::$__summary[static::$_name] =& static::$_summary;
+	
+	// Initialize cache
+	static::$_objects = array();
+	static::$__objects[static::$_name] =& static::$_objects;
+}
+
+/**
+ * Initialisation de la classe
+ */
+public static function __init()
+{
+	static::debug('__init', 'begin');
+	if (! isset(static::$__models[static::$_name]) || get_called_class() == 'Worm\\Model')
+		return;
+	
+	static::debug('__init', 'retrieve cached data');
+	// retrieve cached data
+	static::$_fields =& static::$__fields[static::$_name];
+	static::$_summary =& static::$__summary[static::$_name];
+	static::$_objects = array();
+	static::$__objects[static::$_name] =& static::$_objects;
+}
+
+/**
+ * Debugging (log)
+ */
+protected static function debug($method, $info)
+{
+	Debug::add('model ('.get_called_class().')', $method, $info);
+}
+
+
+/* Méthodes de classe */
+
+public static function _models()
+{
+	return static::$__models[static::$_name];
+}
+
+public static function _fields()
+{
+	return static::$_fields;
+}
+
+public static function _objects()
+{
+	return static::$_objects;
+}
+
+public static function _forge($data=null)
+{
+	$object = new static($data);
+	return $object;
+}
+
+protected static function _forge_updated($data=null)
+{
+	$object = static::_forge();
+	$object->set_updated($data);
+	return $object;
+}
+
+
+/* Recherche */
+
+
+/**
+ * Requête complexe
+ * @param [] $params
+ * @return Qrm\Query
+ */
+public static function query($params=array())
+{
+	return new Query(static::$_name, $params);
+}
+
+/**
+ * Récupérer un objet par son identifiant
+ * @param int $id
+ * @return Worm\Model
+ */
+public static function find($id)
+{
+	$objects =& static::$_objects;
+	if (is_numeric($id)){
+		if (isset($objects[$id]))
+			return $objects[$id];
+		elseif (static::$_cache && ($o=cache::get(static::$_name.'_'.$id)))
+			return $objects[$id] = $o;
+		elseif ($row=static::__db_find_ids(static::$_name, $id))
+			return $objects[$id] = static::_forge_updated($row);
+	}
+	elseif (is_string($id)){
+	
+	}
+}
+public static function get($id)
+{
+	return static::find($id);
+}
+
+/**
+ * Récupérer un objet au hasard
+ * @return Worm\Model
+ */
+public static function find_rand()
+{
+	$l = static::search_rand(1);
+	return array_pop($l);
+}
+/**
+ * Récupérer une liste d'objets au hasard
+ * @return []Worm\Model
+ */
+public static function search_rand($nb=10)
+{
+	return static::search(null, 'rand()', $nb);
+}
+
+/**
+ * Récupérer une liste d'objets par paramètres
+ * @param [] $params
+ * @param [] $order
+ * @param [] $limit
+ * @return []Worm\Model
+ */
+public static function search($params=array(), $order=null, $limit=null)
+{
+	return static::select_ids(static::__db_search(static::$_name, $params, $order, $limit));
+}
+public static function select($params=array(), $order=null, $limit=null)
+{
+	return static::search($params, $order, $limit);
+}
+
+/**
+ * Récupérer une liste d'objets par une liste d'id
+ * @param []int $ids
+ * @return []Worm\Model
+ */
+public static function search_ids($ids)
+{
+	$list = array();
+	$objects =& static::$_objects;
+	foreach($ids as $i=>$id) {
+		if (empty($id))
+			unset($ids[$i]);
+		elseif (isset($objects[$id])) {
+			$list[$id] = $objects[$id];
+			unset($ids[$i]);
+		}
+		elseif ($o=static::cache_get($id)) {
+			$list[$id] = $objects[$id] = $o;
+			unset($ids[$i]);
+		}
+	}
+	if (! empty($ids)) {
+		foreach(static::__db_find_ids(static::$_name, $ids) as $id=>$row)
+			$list[$id] = $objects[$id] = static::_forge_updated($row);
+	}
+	return $list;
+}
+public static function select_ids($ids) {
+	return static::search_ids($ids);
+}
+
+/**
+ * Compte les objets
+ * @param [] $params
+ * @param [] $limit
+ * @return int
+ */
+public static function count($params=null, $limit=null)
+{
+	return static::__db_count(static::$_name, $params, $limit);
+}
+
+
+/* Préchargement */
+
+
+/**
+ * Charger en cache une liste d'objets par paramètres
+ * @param [] $params
+ * @return void
+ */
+public static function load($params=array())
+{
+	static::load_ids(static::_db_select($params));
+}
+
+/**
+ * Charger une liste d'objets par une liste d'ids
+ * @param []int $ids
+ * @return void
+ */
+public static function load_ids($ids)
+{
+	$objects =& static::$_objects;
+	foreach($ids as $i=>$id){
+		if (isset($objects[$id])){
+			unset($ids[$i]);
+		}
+		elseif (static::$_cache && ($o=cache::get(static::$_name.'_'.$id))){
+			$objects[$id] = $o;
+			unset($ids[$i]);
+		}
+	}
+	if (! empty($ids)){
+		foreach(static::_db_find_ids($ids) as $id=>$row)
+			$objects[$id] = static::_forge_updated($row);
+	}
+}
+
+
+/* CACHE */
+
+
+/**
+ * Nom d'un objet en cache
+ * @param int $id
+ * @return string
+ */
+protected static function _cache_name($id)
+{
+	return static::$_name.'_'.$id;
+}
+
+/**
+ * Récupère un objet du cache
+ * @param int $id
+ * @return Worm\Model|null
+ */
+protected static function cache_find($id)
+{
+	if (! static::$_cache)
+		return;
+	
+	return cache::get(static::_cache_name($id));
+}
+protected static function cache_get($id)
+{
+	return static::cache_find($id);
+}
+
+/**
+ * Récupère une liste d'objets du cache
+ * @param []int $ids
+ * @return []Worm\Model
+ */
+protected static function cache_search($ids)
+{
+	if (! static::$_cache)
+		return;
+	
+	$list = array();
+	foreach($ids as $id)
+		$list[] = static::_cache_name($id);
+	return cache::search($list);
+}
+
+
+/* Requêtes en base de données */
+
+
+/*
+ * Gestion des champs en base de donnée
+ * @return []
+ */
+public static function _db_fields()
+{
+	return static::__db_fields(static::$_name);
+}
+
+/**
+ * Récupérer les propriétés d'un objet en base de donnée à partir de son id
+ * @return []
+ */
+protected static function _db_find_id($id)
+{
+	if (!is_numeric($id))
+		return;
+	
+	$list = static::__db_find_ids(static::$_name, array($id));
+	if (! empty($list))
+		return array_pop($list);
+}
+
+/**
+ * Récupérer les propriétés d'une liste objet en base de donnée à partir d'une liste d'id
+ */
+protected static function _db_find_ids($ids)
+{
+	return static::__db_find_ids(static::$_name, $ids);
+}
+
+/**
+ * Récupérer une liste d'id d'objets en base de donnée à partir de paramètres
+ */
+protected static function _db_search($params=array())
+{
+	return static::__db_search(static::$_name, $params);
+}
+protected static function _db_select($params=array())
+{
+	return static::_db_search($params);
+}
+
+protected static function _db_insert($data)
+{
+	return static::__db_insert(static::$_name, $data);
+}
+
+protected static function _db_update($params, $data)
+{
+	return static::__db_update(static::$_name, $params, $data);
+}
+
+
+/* Préchargement */
+
+
+/**
+ * Met à jour les objets dépendant
+ */
+protected static function _update_dep($id, $values, $values_orig=array())
+{
+	return static::__update_dep(static::$_name, $id, $values, $values_orig);
+}
+
+
+/*
+ * Propriétés d'objet
+ */
+
+
+/* Valeurs natives de l'objet */
+/* ID */
+protected $id = null;
+/* Creation datetime */
+protected $ctime = null;
+protected $cid;
+/* Update datetime */
+protected $utime = null;
+protected $uid;
+/* Dependant Update datetime */
+protected $dutime = null;
+/* Revision number */
+protected $rev = null;
+
+/* Valeurs courantes */
+protected $_values = array();
+/* Valeurs d'origine (en bdd) */
+protected $_values_orig = array();
+
+
+/*
+ * Méthodes d'objet
+ */
+
+
+public function __construct($data=null)
+{
+	if (is_array($data))
+		$this->set($data);
+}
+
+/**
+ * Fields to serialize
+ */
+public function __sleep()
+{
+	return static::$__special_fields + array('_values_orig');
+}
+
+/**
+ * When retriving serialized
+ */
+public function __wakeup()
+{
+	$this->_values = $this->_values_orig;
+}
+
+/**
+ * When Cloning
+ */
+public function __clone()
+{
+	$this->id = null;
+	$this->ctime = null;
+	$this->cid = null;
+	$this->utime = null;
+	$this->uid = null;
+	$this->dutime = null;
+	$this->rev = null;
+}
+
+/*
+ * Getters
+ */
+
+/**
+ * Default value
+ * @return string
+ */
+public function __tostring()
+{
+	return static::$_name.'#'.$this->id;
+}
+
+/**
+ * Default getter
+ * @return mixed
+ */
+public function __get($name)
+{
+	if (! is_string($name))
+		return;
+	if (in_array($name, static::$__special_fields))
+		return $this->{$name};
+	if (! isset(static::$_fields[$name]))
+		return;
+	
+	$field =& static::$_fields[$name];
+	
+	if ($field['type']=='object') {
+		$model = 'App\\model_'.$field['model'];
+		//var_dump($model); var_dump($this->_values[$name.'_id']);
+		return $model::find($this->_values[$name]);
+	}
+	elseif ($field['type']=='object_list') {
+		$model = WORM_APP_MODEL_PREFIX.$field['model'];
+		if (empty($this->_values[$name]))
+			return array();
+		return $model::select_ids($this->_values[$name]);
+	}
+	elseif ($field['type']=='related') {
+		if (in_array('store', $field))
+			return $this->_values[$name];
+		else
+			return $this->__get_related($field['relates']);
+	}
+	elseif ($field['type']=='function') {
+		$function = isset($field['function']) ?$field['function'] :$name.'_get';
+		if (in_array('store', $field))
+			return $this->_values[$name];
+		else
+			return $this->$function();
+	}
+	// if tests...
+	elseif (array_key_exists($name, $this->_values)) {
+		return $this->_values[$name];
+	}
+}
+
+/**
+ * Get a related field
+ * @param string $relates
+ * @return mixed
+ */
+public function __get_related($relates)
+{
+	$e = explode('.', $relates);
+	$r = $this;
+	while(list($i, $j) = each($e)) {
+		if (($r=$r->{$j}) == null)
+			break;
+	}
+	return $r;
+}
+
+/**
+ * Get updated field values
+ * @return []mixed
+ */
+public function updated_values()
+{
+	static::debug('updated_values', 'begin');
+	$values = array();
+	foreach($this->_values as $name=>$value) {
+		// @todo gérér les champs complexes, partiellement extraits, etc.
+		if ((! array_key_exists($name, $this->_values_orig)) || $this->_values_orig[$name] !== $value)
+			$values[$name] = $value;
+	}
+	//var_dump($this->_values_orig); var_dump($this->_values); var_dump($values);
+	static::debug('updated_values', 'end');
+	return $values;
+}
+
+/**
+ * Get cache name
+ * @return string
+ */
+protected function cache_name()
+{
+	return static::_cache_name($this->id);
+}
+
+/*
+ * Setters
+ */
+
+protected function set($data)
+{
+	if (! is_array($data))
+		return;
+	
+	foreach($data as $name=>$value)
+		$this->__set($name, $value);
+}
+
+protected function set_updated($data)
+{
+	foreach($data as $name=>$value){
+		if (in_array($name, static::$__special_fields))
+			$this->$name = $value;
+		else
+			$this->_values[$name] = $value;
+	}
+	$this->updated();
+}
+
+public function __set($name, $value)
+{
+	if (! is_string($name))
+		return;
+	// Special field
+	if (in_array($name, static::$__special_fields))
+		return;
+	// Undefined
+	if (! isset(static::$_fields[$name]))
+		return;
+	// Read Only
+	if (in_array('ro', static::$_fields[$name]))
+		return;
+	
+	$field =& static::$_fields[$name];
+	
+	if ($field['type']=='object') {
+		$this->_values[$name] = $value;
+	}
+	else {
+		$this->_values[$name] = $value;
+	}
+	//var_dump($this->_values);
+}
+
+/**
+ * Set the object in an updated state (bdd==object)
+ */
+protected function updated()
+{
+	foreach($this->_values as $name=>$value)
+		$this->_values_orig[$name] = $value;
+}
+
+/**
+ * Update related fields
+ * @param string $name
+ * @param mixed $value
+ * @param mixed $value_old
+ */
+protected function related_update($name, $value, $value_old)
+{
+	static::debug('related_update', 'Starting : '.$name);
+	$field =& static::$_fields[$name];
+	if (! isset($field['related']))
+		return;
+	
+	foreach($field['related'] as $r) {
+		static::debug('related_update', 'rule '.$name.' : model '.$r['model'].' ID#'.$this->id);
+		//var_dump($r);
+		$model = WORM_APP_MODEL_PREFIX.$r['model'];
+		$fieldname = $r['field'];
+		$ids = array($this->id);
+		//echo "<p>IDS</p>";
+		//var_dump($ids);
+		// Look for objects to update
+		foreach($r['rev'] as $i) {
+			if (count($ids)) {
+				$m = WORM_APP_MODEL_PREFIX.$i[0];
+				$params = array('`'.$i[1].'_id` IN ('.implode(', ', $ids).')');
+				$ids = $m::_db_search($params);
+				//var_dump($params); echo "<p>IDS related from $m</p>"; var_dump($ids);
+			}
+			else {
+				return;
+			}
+		}
+		// Look for final value to update
+		//$r2 = explode('.', $r['relates']);
+		if (count($r['relates'])>1) {
+			//list($m, $lastfield) = array_pop($r2);
+			//$o = $m
+			foreach($r['relates'] as $i) {
+				//echo '<p>Value : '.$value.'</p>'; echo '<p>value change :</p>'; var_dump($i);
+				if ($i[0] && is_numeric($value)) {
+					$m = WORM_APP_MODEL_PREFIX.$i[0];
+					$value = $m::find($value);
+				}
+				elseif ($value === null) {
+					break;
+				}
+				else {
+					$value = $value->{$i[1]};
+				}
+			}
+		}
+		// Finally udapte...
+		echo '<p>IDS related :</p>';var_dump($ids);
+		//echo '<p>IDS :</p>'; var_dump($ids);
+		foreach($model::search_ids($ids) as $o) {
+			static::debug('related_update', 'update related '.$model.' ID#'.$o->id.' : '.$fieldname.' = '.$value);
+			//var_dump($o);
+			$o->{$fieldname} = $value;
+			$o->save_prepare();
+		}
+	}
+}
+
+/**
+ * Update related calculated fields
+ * @param string $name
+ * @param mixed $value
+ * @param mixed $value_old
+ */
+protected function calculated_update($name, $value, $value_old)
+{
+	static::debug('calculated_update', 'Starting : '.$name.' : '.$value_old.' => '.$value);
+	$field =& static::$_fields[$name];
+	
+	if (! isset($field['calculated']))
+		return;
+	
+	foreach($field['calculated'] as $r) {
+		//var_dump($r); echo '<br />';
+		$model = WORM_APP_MODEL_PREFIX.$r['model'];
+		$fieldname = $r['field'];
+		// Sélection
+		$select_ids_fct = $r['select_ids_fct'];
+		// Différentes fonctions de sélection
+		if (false) {
+			//echo '<p>ID # '.$this->id.'</p>';
+			$ids = array($this->id);
+		}
+		// many2one : objets correspondant aux valeurs changées
+		else {
+			$ids = array($value_old, $value);
+		}
+		//var_dump($ids);
+		
+		// Mise à jour
+		$update_fct = $r['update_fct'];
+		
+		// @todo liste de cas possibles
+		if (false) {
+		}
+		// min
+		elseif ($update_fct=='min') {
+		}
+		// max
+		elseif ($update_fct=='max') {
+		}
+		// count ($update_fct=='count')
+		else {
+			// Valeurs mises à jour
+			// nb-- pour $value_old
+			// $nb++ pour value
+			
+			// Objets mis à jour
+			foreach($model::search_ids($ids) as $o) {
+				$nb = static::count(array($name.'_id=\''.$o->id.'\''));
+				$o->{$fieldname} = $nb;
+				$o->save_prepare();
+				static::debug('calculated_update', 'Trigger calculated Update for '.$model.' ID#'.$o->id);
+				//var_dump($o);
+			}
+		}
+	}
+}
+
+/**
+ * Reset / Clean / Return to original state
+ */
+public function reset()
+{
+	foreach($this->_values_orig as $name=>$value)
+		$this->_values[$name] = $value;
+}
+
+public function clean()
+{
+	return $this->reset();
+}
+
+/**
+ * Save the object
+ */
+public function save($values=null)
+{
+	$transaction = false;
+	if (! static::$__transaction) {
+		static::$__transaction = $transaction = true;
+		static::$__save_list = array();
+	}
+	$this->save_prepare($values);
+	
+	if ($transaction) {
+		static::__save_execute();
+	}
+}
+
+protected function save_prepare($values=null)
+{
+	if ( in_array($this, static::$__save_list)) {
+		// @todo : exception : déjà mise à jour !
+		static::debug('save_prepare', 'ID#'.$this->id.' already commited for update');
+		//return;
+	}
+	// @todo : mise à jour 2 fois dans ce cas... pas top !
+	// if (! $this->id)
+	// 	$this->insert($values);
+	
+	if (is_array($values) && !empty($values))
+		$this->set($values);
+	
+	static::debug('save_prepare', 'ID#'.$this->id.' Preparing saving...');
+	$values = $this->updated_values();
+	if (empty($values)) {
+		//echo '<p>Nothing to save</p>';
+		return;
+	}
+	//var_dump($values);
+
+	if ( in_array($this, static::$__save_list)) {
+		static::$__save_list[] = $this;
+	}
+		
+	foreach($values as $name=>$value) {
+		$this->related_update($name, $value, isset($this->_values_orig[$name]) ?$this->_values_orig[$name] :null);
+		//$this->calculated_update($name, $value, isset($this->_values_orig[$name]) ?$this->_values_orig[$name] :null);
+	}
+}
+
+public function persist()
+{
+	if ($this->id)
+		return $this->update();
+	else
+		return $this->insert();
+}
+
+/**
+ * Insert the new object
+ */
+protected function insert()
+{
+	$values = $this->updated_values();
+	if($id = static::_db_insert($values)) {
+		$this->id = $id;
+		$this->update_dep($values);
+		$this->updated();
+		static::$__objects[static::$_name][$id] = $this;
+		$this->cache_save();
+		return true;
+	}
+	
+	return false;
+}
+
+/**
+ * Update the existing object
+ */
+protected function update()
+{
+	$values = $this->updated_values();
+	if (static::_db_update($this->id, $values)) {
+		$this->update_dep($values, $this->_values_orig);
+		$this->updated();
+		$this->cache_save();
+		return true;
+	}
+	
+	return false;
+}
+
+protected function update_dep($values, $values_orig=array())
+{
+	return static::_update_dep($this->id, $values, $values_orig=array());
+}
+
+/**
+ * Save to cache
+ */
+protected function cache_save()
+{
+	if (! static::$_cache)
+		return;
+
+	cache::set($this->cache_name(), $this);
+}
+
+/**
+ * Duplicate
+ */
+protected function duplicate()
+{
+
+}
+
+}
+

worm/classes/query.inc.php

@@ -0,0 +1,91 @@
+<?php namespace Worm;
+
+/**
+ * Requêtes complexes
+ */
+class Query extends Core
+{
+
+protected $name;
+protected $fields;
+protected $where = array();
+protected $order = 'id';
+protected $limit;
+
+public static function forge($name, $params=array())
+{
+	return new static($name, $params);
+}
+
+public function __construct($name, $params=array())
+{
+	if (!is_string($name) || !isset(static::$__models[$name]))
+		return false;
+	$this->name = $name;
+}
+
+public function where($params)
+{
+	$this->where = $params;
+	return $this;
+}
+
+public function order($params)
+{
+	$this->order = $params;
+	return $this;
+}
+
+public function limit($params)
+{
+	$this->limit = $params;
+	return $this;
+}
+
+public function find($params)
+{
+	
+}
+
+public function get($params=null)
+{
+	if ($params=='first'){
+		return $this->get_first();
+	}
+	elseif ($params=='last'){
+		return $this->get_last();
+	}
+	else{ //$params=='all'
+		return $this->get_all();
+	}
+	//return $this;
+}
+
+public function get_first()
+{
+	list($id) = static::__db_search($this->name, $this->where, $this->order, 1);
+	
+	$classname = 'App\\model_'.$this->name;
+	return $classname::find($id);
+}
+
+public function get_last()
+{
+	//
+}
+
+public function get_all()
+{
+	$classname = 'App\\model_'.$this->name;
+	return $classname::search($this->where, $this->order, $this->limit);
+	//
+}
+
+public function count()
+{
+	return static::__db_count($this->name, $this->where, $this->limit);
+	//return $this;
+}
+
+}
+

worm/classes/query_where.inc.php

@@ -0,0 +1,7 @@
+<?php namespace Worm;
+
+class Query_where extends Core
+{
+
+}
+