2005-07-09 03:17:40 +02:00
< ? php
2008-02-19 22:04:23 +01:00
/* Copyright ( C ) 2005 - 2008 Laurent Destailleur < eldy @ users . sourceforge . net >
2007-09-25 20:13:37 +02:00
* Copyright ( C ) 2007 Rodolphe Quiedeville < rodolphe @ quiedeville . org >
2005-07-09 03:17:40 +02:00
*
* 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 .
*/
/**
2008-08-07 08:33:35 +02:00
* \file htdocs / admin / system / dolibarr . php
* \brief Fichier page info systemes Dolibarr
* \version $Id $
*/
2005-07-09 03:17:40 +02:00
require ( " ./pre.inc.php " );
2007-04-24 13:47:57 +02:00
$langs -> load ( " admin " );
$langs -> load ( " install " );
2008-08-17 21:45:08 +02:00
$langs -> load ( " other " );
2007-04-24 13:47:57 +02:00
2005-08-22 19:37:58 +02:00
if ( ! $user -> admin )
accessforbidden ();
2008-08-07 08:33:35 +02:00
/*
* View
*/
2008-10-12 13:41:13 +02:00
$form = new Form ( $db );
2008-08-07 08:33:35 +02:00
2005-07-09 03:17:40 +02:00
llxHeader ();
2006-08-12 17:32:57 +02:00
print_fiche_titre ( " Dolibarr " , '' , 'setup' );
2005-07-09 03:17:40 +02:00
print " <br> \n " ;
2006-08-04 04:00:21 +02:00
$var = true ;
2005-07-09 03:17:40 +02:00
print '<table class="noborder" width="100%">' ;
2007-12-19 10:31:34 +01:00
print '<tr class="liste_titre"><td>' . $langs -> trans ( " Version " ) . '</td><td>' . $langs -> trans ( " Value " ) . '</td></tr>' . " \n " ;
2006-08-04 04:00:21 +02:00
$var =! $var ;
2008-09-11 00:07:38 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " VersionProgram " ) . " </td><td> " . DOL_VERSION . " </td></tr> \n " ;
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " VersionLastInstall " ) . " </td><td> " . $conf -> global -> MAIN_VERSION_LAST_INSTALL . " </td></tr> \n " ;
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " VersionLastUpgrade " ) . " </td><td> " . $conf -> global -> MAIN_VERSION_LAST_UPGRADE . " </td></tr> \n " ;
2007-04-24 13:47:57 +02:00
print '</table>' ;
print '<br>' ;
2007-04-24 14:17:34 +02:00
// Language
2005-11-01 00:49:35 +01:00
$var = true ;
2005-07-09 03:17:40 +02:00
print '<table class="noborder" width="100%">' ;
2007-09-25 20:13:37 +02:00
print '<tr class="liste_titre"><td>' . $langs -> trans ( " LocalisationDolibarrParameters " ) . '</td><td>' . $langs -> trans ( " Value " ) . '</td></tr>' . " \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2007-12-19 10:31:34 +01:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " LanguageBrowserParameter " , " HTTP_ACCEPT_LANGUAGE " ) . " </td><td> " . $_SERVER [ " HTTP_ACCEPT_LANGUAGE " ] . " </td></tr> \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2007-12-19 10:31:34 +01:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " LanguageParameter " , " PHP LC_ALL " ) . " </td><td> " . setlocale ( LC_ALL , 0 ) . " </td></tr> \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2007-12-19 10:31:34 +01:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " LanguageParameter " , " PHP LC_NUMERIC " ) . " </td><td> " . setlocale ( LC_NUMERIC , 0 ) . " </td></tr> \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2007-12-19 10:31:34 +01:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " LanguageParameter " , " PHP LC_TIME " ) . " </td><td> " . setlocale ( LC_TIME , 0 ) . " </td></tr> \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2007-12-19 10:31:34 +01:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " LanguageParameter " , " PHP LC_MONETARY " ) . " </td><td> " . setlocale ( LC_MONETARY , 0 ) . " </td></tr> \n " ;
2008-08-17 23:13:21 +02:00
// Decimals
$var =! $var ;
$dec = $langs -> trans ( " SeparatorDecimal " );
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentValueSeparatorDecimal " ) . " </td><td> " . $dec . " </td></tr> \n " ;
$var =! $var ;
$thousand = $langs -> trans ( " SeparatorThousand " );
if ( $thousand == 'SeparatorThousand' ) $thousand = ' ' ; // ' ' does not work on trans method
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentValueSeparatorThousand " ) . " </td><td> " . $thousand . " </td></tr> \n " ;
// Timezone
2007-09-25 20:13:37 +02:00
$var =! $var ;
2008-08-17 21:45:08 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " DolibarrTZ " ) . " </td><td> " . $langs -> trans ( " FeatureNotYetAvailable " ) . " </td></tr> \n " ;
2007-09-25 20:13:37 +02:00
$var =! $var ;
2008-08-17 21:45:08 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " ServerTZ " ) . " (variable system TZ)</td><td> " . $_ENV [ " TZ " ] . " </td></tr> \n " ;
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " PHPTZ " ) . " (php.ini date.timezone)</td><td> " . ini_get ( " date.timezone " ) . " </td></tr> \n " ; // date.timezone must be in valued defined in http://fr3.php.net/manual/en/timezones.europe.php
if ( function_exists ( 'date_default_timezone_get' ))
{
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" >=> " . $langs -> trans ( " CurrentTimeZone " ) . " </td><td> " ;
print date_default_timezone_get ();
print " </td></tr> \n " ; // value defined in http://fr3.php.net/manual/en/timezones.europe.php
}
2008-07-10 18:25:57 +02:00
$var =! $var ;
2008-06-17 03:39:44 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " PHPServerOffsetWithGreenwich " ) . " </td><td> " . ( - dolibarr_mktime ( 0 , 0 , 0 , 1 , 1 , 1970 )) . " </td></tr> \n " ;
2008-07-07 22:02:52 +02:00
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentHour " ) . " </td><td> " . dolibarr_print_date ( time (), 'dayhour' ) . " </td></tr> \n " ;
2007-04-24 13:47:57 +02:00
print '</table>' ;
print '<br>' ;
$var = true ;
print '<table class="noborder" width="100%">' ;
2008-10-12 13:41:13 +02:00
print '<tr class="liste_titre"><td>' . $langs -> trans ( " Session " ) . '</td><td colspan="2">' . $langs -> trans ( " Value " ) . '</td></tr>' . " \n " ;
2007-04-24 13:47:57 +02:00
$var =! $var ;
2008-10-12 13:41:13 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " SessionId " ) . '</td><td colspan="2">' . session_id () . " </td></tr> \n " ;
2008-10-10 20:21:00 +02:00
$var =! $var ;
2008-10-12 13:41:13 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentSessionTimeOut " ) . '</td><td>' . ini_get ( 'session.gc_maxlifetime' ) . ' ' . $langs -> trans ( " seconds " );
print '</td><td align="right">' ;
print $form -> textwithhelp ( '' , $langs -> trans ( " SessionExplanation " , ini_get ( " session.gc_probability " ), ini_get ( " session.gc_divisor " )));
print " </td></tr> \n " ;
2007-04-24 13:47:57 +02:00
$var =! $var ;
2008-10-12 13:41:13 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentTheme " ) . '</td><td colspan="2">' . $conf -> theme . " </td></tr> \n " ;
2005-11-01 00:49:35 +01:00
$var =! $var ;
2008-10-12 13:41:13 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentTopMenuHandler " ) . '</td><td colspan="2">' . $conf -> top_menu . " </td></tr> \n " ;
2007-12-19 10:31:34 +01:00
$var =! $var ;
2008-10-12 13:41:13 +02:00
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentLeftMenuHandler " ) . '</td><td colspan="2">' . $conf -> left_menu . " </td></tr> \n " ;
$var =! $var ;
print " <tr " . $bc [ $var ] . " ><td width= \" 300 \" > " . $langs -> trans ( " CurrentUserLanguage " ) . '</td><td colspan="2">' . $langs -> getDefaultLang () . " </td></tr> \n " ;
2005-07-09 03:17:40 +02:00
print '</table>' ;
print '<br>' ;
llxFooter ( '$Date$ - $Revision$' );
?>