* Copyright (C) 2004-2005 Laurent Destailleur * Copyright (C) 2004 Sebastien Di Cintio * Copyright (C) 2004 Benoit Mortier * * 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, see . */ /** * \file htdocs/admin/system/database-tables.php * \brief Page d'infos des tables de la base */ require("../../main.inc.php"); include_once $dolibarr_main_document_root."/lib/databases/".$conf->db->type.".lib.php"; $langs->load("admin"); if (!$user->admin) accessforbidden(); if ($_GET["action"] == 'convert') { $db->query("alter table ".$_GET["table"]." type=INNODB"); } /* * View */ llxHeader(); print_fiche_titre($langs->trans("Tables")." ".ucfirst($conf->db->type),'','setup'); // Define request to get table description $base=0; if (preg_match('/mysql/i',$conf->db->type)) { $sql = "SHOW TABLE STATUS"; $base=1; } else if ($conf->db->type == 'pgsql') { $sql = "SELECT conname, contype FROM pg_constraint;"; $base=2; } else if ($conf->db->type == 'mssql') { //TODO: recuperer les infos du serveur //$sqls[0] = ""; //$base=3; } if (! $base) { print $langs->trans("FeatureNotAvailableWithThisDatabaseDriver"); } else { if ($base == 1) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $sql = "SHOW TABLE STATUS"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $var=True; $i=0; while ($i < $num) { $obj = $db->fetch_object($resql); $var=!$var; print ""; print ''; print ''; if ($row[1] == "MyISAM") { print ''; } else { print ''; } print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $i++; } } print '

'.$langs->trans("TableName").'

'.$langs->trans("Type").'

'.$langs->trans("Format").'

'.$langs->trans("NbOfRecord").'

Avg_row_length

Data_length

Max_Data_length

Index_length

Increment

Last check

Collation

'.$obj->Name.'

'.$obj->Engine.'

'.$langs->trans("Convert").'

'.$obj->Row_format.'

'.$obj->Rows.'

'.$obj->Avg_row_length.'

'.$obj->Data_length.'

'.$obj->Max_data_length.'

'.$obj->Index_length.'

'.$obj->Auto_increment.'

'.$obj->Check_time.'

'.$obj->Collation.'

'; } if ($base == 2) { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $sql = "select relname,seq_tup_read,idx_tup_fetch,n_tup_ins,n_tup_upd,n_tup_del from pg_stat_user_tables;"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $var=True; $i=0; while ($i < $num) { $row = $db->fetch_row($resql); $var=!$var; print ""; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $i++; } } print '

'.$langs->trans("TableName").'	Nb of tuples	Nb index fetcher.	Nb tuples insert	Nb tuples modify	Nb tuples delete
'.$row[0].'	'.$row[1].'	'.$row[2].'	'.$row[3].'	'.$row[4].'	'.$row[5].'

'; } } llxFooter(); ?>