[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2005 Laurent Destailleur  <eldy@users.sourceforge.net>
   3   *
   4   * This program is free software; you can redistribute it and/or modify
   5   * it under the terms of the GNU General Public License as published by
   6   * the Free Software Foundation; either version 2 of the License, or
   7   * (at your option) any later version.
   8   *
   9   * This program is distributed in the hope that it will be useful,
  10   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12   * GNU General Public License for more details.
  13   *
  14   * You should have received a copy of the GNU General Public License
  15   * along with this program; if not, write to the Free Software
  16   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  17   *
  18   * $Id: dolibarr.php,v 1.4 2005/10/31 23:49:36 eldy Exp $
  19   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/admin/system/dolibarr.php,v $
  20   */
  21  
  22  /**
  23          \file       htdocs/admin/system/dolibarr.php
  24          \brief      Fichier page info systemes Dolibarr
  25          \version    $Revision: 1.4 $
  26  */
  27  
  28  require ("./pre.inc.php");
  29  
  30  if (!$user->admin)
  31    accessforbidden();
  32   
  33  
  34  llxHeader();
  35  
  36  
  37  print_titre("Dolibarr");
  38  
  39  print "<br>\n";
  40  
  41  print '<table class="noborder" width="100%">';
  42  print '<tr class="liste_titre"><td>'.$langs->trans("Parameter").'</td><td>'.$langs->trans("Value").'</td></tr>'."\n";
  43  print "<tr $bc[0]><td width=\"240\">".$langs->trans("Version")."</td><td>".DOL_VERSION."</td></tr>\n";
  44  print '</table>';
  45  print '<br>';
  46  
  47  $var=true;
  48  print '<table class="noborder" width="100%">';
  49  print '<tr class="liste_titre"><td>'.$langs->trans("LanguageDolibarrParameter").'</td><td>'.$langs->trans("Value").'</td></tr>'."\n";
  50  $var=!$var;
  51  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("LanguageBrowserParameter","HTTP_ACCEPT_LANGUAGE")."</td><td>".$_SERVER["HTTP_ACCEPT_LANGUAGE"]."</td></tr>\n";
  52  $var=!$var;
  53  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("LanguageParameter","PHP LC_ALL")."</td><td>".setlocale(LC_ALL,0)."</td></tr>\n";
  54  $var=!$var;
  55  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("LanguageParameter","PHP LC_NUMERIC")."</td><td>".setlocale(LC_NUMERIC,0)."</td></tr>\n";
  56  $var=!$var;
  57  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("LanguageParameter","PHP LC_TIME")."</td><td>".setlocale(LC_TIME,0)."</td></tr>\n";
  58  $var=!$var;
  59  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("LanguageParameter","PHP LC_MONETARY")."</td><td>".setlocale(LC_MONETARY,0)."</td></tr>\n";
  60  $var=!$var;
  61  print "<tr ".$bc[$var]."><td width=\"240\">".$langs->trans("CurrentDolibarrLanguage")."</td><td>".$langs->getDefaultLang()."</td></tr>\n";
  62  print '</table>';
  63  print '<br>';
  64  
  65  
  66  // Charge les modules
  67  $db->begin();
  68  
  69  $dir = DOL_DOCUMENT_ROOT . "/includes/modules/";
  70  $handle=opendir($dir);
  71  $modules = array();
  72  while (($file = readdir($handle))!==false)
  73  {
  74      if (is_readable($dir.$file) && substr($file, 0, 3) == 'mod' && substr($file, strlen($file) - 10) == '.class.php')
  75      {
  76          $modName = substr($file, 0, strlen($file) - 10);
  77  
  78          if ($modName)
  79          {
  80              include_once("../../includes/modules/$file");
  81              $objMod = new $modName($db);
  82  
  83              $modules[$objMod->numero]=$objMod;
  84              $modules_names[$objMod->numero]=$objMod->name;
  85  
  86              $picto[$objMod->numero]=(isset($objMod->picto) && $objMod->picto)?$objMod->picto:'generic';
  87          }
  88      }
  89  }
  90  print '<table class="noborder" width="100%">';
  91  print '<tr class="liste_titre">';
  92  print '<td>'.$langs->trans("Modules").'</td>';
  93  print '<td>'.$langs->trans("Version").'</td>';
  94  print '<td align="center">'.$langs->trans("Id Module").'</td>';
  95  print '<td>'.$langs->trans("Id Permissions").'</td>';
  96  print '</tr>';
  97  $var=false;
  98  $sortorder=$modules_names;
  99  ksort($sortorder);
 100  foreach($sortorder as $numero=>$name) 
 101  {
 102      $idperms="";
 103      $var=!$var;
 104      // Module
 105      print "<tr $bc[$var]><td width=\"240\">".img_object("",$picto[$numero]).' '.$modules[$numero]->getName()."</td>";
 106      // Version
 107      print '<td>'.$modules[$numero]->getVersion().'</td>';
 108      // Id
 109      print '<td align="center">'.$numero.'</td>';
 110      // Permissions
 111      if ($modules[$numero]->rights)
 112      {
 113          foreach($modules[$numero]->rights as $rights)
 114          {
 115              $idperms.=($idperms?",":"").$rights[0];
 116          }
 117      }
 118      print '<td>'.($idperms?$idperms:"&nbsp;").'</td>';
 119      print "</tr>\n";
 120  }
 121  print '</table>';
 122  print '<br>';
 123  
 124  
 125  llxFooter('$Date: 2005/10/31 23:49:36 $ - $Revision: 1.4 $');
 126  
 127  ?>