From 7deeb9cb89e297d4840e4f36840f1ef7f7e01120 Mon Sep 17 00:00:00 2001
From: Laurent Destailleur <eldy@users.sourceforge.net>
Date: Mon, 4 Jan 2010 20:10:10 +0000
Subject: [PATCH] Add info of shared memory area

---
 htdocs/admin/system/dolibarr.php | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/htdocs/admin/system/dolibarr.php b/htdocs/admin/system/dolibarr.php
index 8a07de29cad..0e3c62ee36d 100644
--- a/htdocs/admin/system/dolibarr.php
+++ b/htdocs/admin/system/dolibarr.php
@@ -18,12 +18,13 @@
  */
 
 /**
- *  \file       htdocs/admin/system/dolibarr.php
+ *  \file       htdocs/lib/memory.lib.php
  *  \brief      Fichier page info systemes Dolibarr
  *  \version    $Id$
  */
 
 require("./pre.inc.php");
+require_once(DOL_DOCUMENT_ROOT."/lib/memory.lib.php");
 
 $langs->load("admin");
 $langs->load("install");
@@ -72,7 +73,6 @@ print '<br>';
 // Session
 $var=true;
 print '<table class="noborder" width="100%">';
-print '<tr class="liste_titre"><td>'.$langs->trans("Session").'</td><td colspan="2">'.$langs->trans("Value").'</td></tr>'."\n";
 $var=!$var;
 print "<tr ".$bc[$var]."><td width=\"300\">".$langs->trans("SessionSavePath").'</td><td colspan="2">'.session_save_path()."</td></tr>\n";
 $var=!$var;
@@ -93,6 +93,26 @@ print "<tr ".$bc[$var]."><td width=\"300\">".$langs->trans("CurrentLeftMenuHandl
 print '</table>';
 print '<br>';
 
+
+// Shmop
+$shmoparray=dol_listshmop();
+if (sizeof($shmoparray) > 0)
+{
+	$var=true;
+	print '<table class="noborder" width="100%">';
+	print '<tr class="liste_titre"><td>'.$langs->trans("LanguageFilesCachedIntoShmopSharedMemory").'</td><td colspan="2">'.$langs->trans("NbOfEntries").'</td></tr>'."\n";
+
+	foreach($shmoparray as $key => $val)
+	{
+		$var=!$var;
+		print "<tr ".$bc[$var]."><td width=\"300\">".$key.'</td><td colspan="2">'.sizeof($val)."</td></tr>\n";
+	}
+
+	print '</table>';
+	print '<br>';
+}
+
+
 // Localisation
 $var=true;
 print '<table class="noborder" width="100%">';