From 89c29265b1d3a42c0673e7f7bf7016c4af3fa00a Mon Sep 17 00:00:00 2001
From: Laurent Destailleur <eldy@users.sourceforge.net>
Date: Sat, 9 Jul 2005 01:17:40 +0000
Subject: [PATCH] =?UTF-8?q?S=E9paration=20boite=20A=20propos=20de=20page?=
 =?UTF-8?q?=20Info=20syst=E8me=20Dolibarr?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 htdocs/admin/system/dolibarr.php | 108 +++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 htdocs/admin/system/dolibarr.php

diff --git a/htdocs/admin/system/dolibarr.php b/htdocs/admin/system/dolibarr.php
new file mode 100644
index 00000000000..b0df849862e
--- /dev/null
+++ b/htdocs/admin/system/dolibarr.php
@@ -0,0 +1,108 @@
+<?php
+/* Copyright (C) 2005 Laurent Destailleur  <eldy@users.sourceforge.net>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ * $Id$
+ * $Source$
+ *
+ */
+
+/**
+        \file       htdocs/admin/system/dolibarr.php
+        \brief      Fichier page info systemes Dolibarr
+        \version    $Revision$
+*/
+
+require("./pre.inc.php");
+
+
+llxHeader();
+
+
+print_titre("Dolibarr");
+
+print "<br>\n";
+
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre"><td>'.$langs->trans("Parameter").'</td><td>'.$langs->trans("Value").'</td></tr>'."\n";
+print "<tr $bc[0]><td width=\"240\">".$langs->trans("Version")."</td><td>".DOL_VERSION."</td></tr>\n";
+print '</table>';
+print '<br>';
+
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre"><td>'.$langs->trans("Parameter").'</td><td>'.$langs->trans("Value").'</td></tr>'."\n";
+print "<tr $bc[0]><td width=\"240\">".$langs->trans("Language")." (LC_ALL)</td><td>".setlocale(LC_ALL,0)."</td></tr>\n";
+print "<tr $bc[1]><td width=\"240\">".$langs->trans("Language")." (LC_NUMERIC)</td><td>".setlocale(LC_NUMERIC,0)."</td></tr>\n";
+print "<tr $bc[0]><td width=\"240\">".$langs->trans("Language")." (LC_TIME)</td><td>".setlocale(LC_TIME,0)."</td></tr>\n";
+print "<tr $bc[1]><td width=\"240\">".$langs->trans("Language")." (LC_MONETARY)</td><td>".setlocale(LC_MONETARY,0)."</td></tr>\n";
+print '</table>';
+print '<br>';
+
+
+// Charge les modules
+$db->begin();
+
+$dir = DOL_DOCUMENT_ROOT . "/includes/modules/";
+$handle=opendir($dir);
+$modules = array();
+while (($file = readdir($handle))!==false)
+{
+    if (is_readable($dir.$file) && substr($file, 0, 3) == 'mod' && substr($file, strlen($file) - 10) == '.class.php')
+    {
+        $modName = substr($file, 0, strlen($file) - 10);
+
+        if ($modName)
+        {
+            include_once("../../includes/modules/$file");
+            $objMod = new $modName($db);
+
+            $modules[$objMod->numero]=$objMod->name;
+            $picto[$objMod->numero]=$objMod->picto?$objMod->picto:'generic';
+            $permissions[$objMod->numero]=$objMod->rights;
+        }
+    }
+}
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre">';
+print '<td>'.$langs->trans("Modules").'</td>';
+print '<td>'.$langs->trans("Id").'</td>';
+print '<td>'.$langs->trans("Id Permissions").'</td>';
+print '</tr>';
+$var=false;
+$sortorder=$modules;
+ksort($sortorder);
+foreach($sortorder as $numero=>$name) 
+{
+    $idperms="";
+    $var=!$var;
+    print "<tr $bc[$var]><td width=\"240\">".img_object("",$picto[$numero]).' '.$modules[$numero]."</td><td>".$numero."</td>";
+    if ($permissions[$numero])
+    {
+        foreach($permissions[$numero] as $rights)
+        {
+            $idperms.=($idperms?",":"").$rights[0];
+        }
+    }
+    print '<td>'.($idperms?$idperms:"&nbsp;").'</td>';
+    print "</tr>\n";
+}
+print '</table>';
+print '<br>';
+
+
+llxFooter('$Date$ - $Revision$');
+
+?>