* Copyright (C) 2007 Rodolphe Quiedeville * * 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"); $langs->load("admin"); $langs->load("install"); if (!$user->admin) accessforbidden(); llxHeader(); print_fiche_titre("Dolibarr",'','setup'); print "
\n"; $var=true; print ''; print ''."\n"; $var=!$var; print "\n"; print '

'.$langs->trans("Parameter").'	'.$langs->trans("Value").'
".$langs->trans("Version")."	".DOL_VERSION."

'; print '
'; // Language $var=true; print ''; print ''."\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; print '

'.$langs->trans("LanguageDolibarrParameter").'	'.$langs->trans("Value").'
".$langs->trans("LanguageBrowserParameter","HTTP_ACCEPT_LANGUAGE")."	".$_SERVER["HTTP_ACCEPT_LANGUAGE"]."
".$langs->trans("LanguageParameter","PHP LC_ALL")."	".setlocale(LC_ALL,0)."
".$langs->trans("LanguageParameter","PHP LC_NUMERIC")."	".setlocale(LC_NUMERIC,0)."
".$langs->trans("LanguageParameter","PHP LC_TIME")."	".setlocale(LC_TIME,0)."
".$langs->trans("LanguageParameter","PHP LC_MONETARY")."	".setlocale(LC_MONETARY,0)."

'; print '
'; $var=true; print ''; print ''."\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; $var=!$var; print "\n"; print '

'.$langs->trans("Session").'	'.$langs->trans("Value").'
".$langs->trans("CurrentTheme")."	".$conf->theme."
".$langs->trans("CurrentTopMenuHandler")."	".$conf->top_menu."
".$langs->trans("CurrentLeftMenuHandler")."	".$conf->left_menu."
".$langs->trans("CurrentDolibarrLanguage")."	".$langs->getDefaultLang()."
".$langs->trans("CurrentDolibarrTZ")."	".$_ENV["TZ"]."

'; print '
'; // 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; $modules_names[$objMod->numero]=$objMod->name; $picto[$objMod->numero]=(isset($objMod->picto) && $objMod->picto)?$objMod->picto:'generic'; } } } print ''; print ''; print ''; print ''; print ''; print ''; print ''; $var=false; $sortorder=$modules_names; ksort($sortorder); $rights_ids = array(); foreach($sortorder as $numero=>$name) { $idperms=""; $var=!$var; // Module print ""; // Version print ''; // Id print ''; // Permissions if ($modules[$numero]->rights) { foreach($modules[$numero]->rights as $rights) { $idperms.=($idperms?",":"").$rights[0]; array_push($rights_ids, $rights[0]); } } print ''; print "\n"; } print '

'.$langs->trans("Modules").'	'.$langs->trans("Version").'	'.$langs->trans("Id Module").'	'.$langs->trans("Id Permissions").'
".img_object("",$picto[$numero]).' '.$modules[$numero]->getName()."	'.$modules[$numero]->getVersion().'	'.$numero.'	'.($idperms?$idperms:" ").'

'; print '
'; sort($rights_ids); foreach($rights_ids as $right_id) { if ($old == $right_id) print "Attention doublon sur la permission : $right_id
"; $old = $right_id; } llxFooter('$Date$ - $Revision$'); ?>