[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
   3   * Copyright (C) 2004 Laurent Destailleur  <eldy@users.sourceforge.net>
   4   * Copyright (C) 2004 Sebastien Di Cintio  <sdicintio@ressource-toi.org>
   5   * Copyright (C) 2004 Benoit Mortier       <benoit.mortier@opensides.be>
   6   *
   7   * This program is free software; you can redistribute it and/or modify
   8   * it under the terms of the GNU General Public License as published by
   9   * the Free Software Foundation; either version 2 of the License, or
  10   * (at your option) any later version.
  11   *
  12   * This program is distributed in the hope that it will be useful,
  13   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15   * GNU General Public License for more details.
  16   *
  17   * You should have received a copy of the GNU General Public License
  18   * along with this program; if not, write to the Free Software
  19   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  20   *
  21   * $Id: database.php,v 1.4 2004/10/23 16:57:27 eldy Exp $
  22   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/admin/system/database.php,v $
  23   */
  24  
  25  /*!    \file htdocs/admin/system/database.php
  26          \brief      Page des infos système de la base de donnée
  27          \version    $Revision: 1.4 $
  28  */
  29  
  30  require ("./pre.inc.php");
  31  include_once $dolibarr_main_document_root."/lib/".$conf->db->type.".lib.php";
  32  
  33  $langs->load("admin");
  34  
  35  if (!$user->admin)
  36    accessforbidden();
  37      
  38  llxHeader();
  39  
  40  print_titre($langs->trans("DatabaseConfiguration"));
  41  
  42  if ($conf->db->type == 'mysql')
  43  {
  44      $sql = "SHOW VARIABLES";
  45      $base=1;
  46  }
  47  
  48  if ($conf->db->type == 'pgsql')
  49  {
  50      $sql = "select name,setting from pg_settings;";
  51      $base=2;
  52  }
  53  
  54  print '<br>';
  55  print '<table class="noborder">';
  56  print '<tr class="liste_titre">';
  57  print '<td>'.$langs->trans("Parameter").'</td>';
  58  print '<td>'.$langs->trans("Value").'</td>';
  59  print "</tr>\n";
  60  
  61  
  62  $result = $db->query($sql);
  63  if ($result) 
  64  {
  65    $i=0;
  66    $num = $db->num_rows();
  67    $var=True;
  68    while ($i < $num)
  69      {
  70          $objp = $db->fetch_object($result);
  71          $var=!$var;
  72          print "<tr $bc[$var]>";
  73          if ($base==1)
  74              print '<td>'.$objp->Variable_name.'</td><td>'.$objp->Value.'</td>';
  75          else
  76              print '<td>'.$objp->name.'</td><td>'.$objp->setting.'</td>';
  77          print '</tr>';
  78          
  79          $i++;
  80      }
  81  }
  82  print '</table>';
  83  
  84  llxFooter();
  85  ?>