* Copyright (C) 2004-2012 Laurent Destailleur * Copyright (C) 2005 Marc Barilley / Ocebo * Copyright (C) 2005-2012 Regis Houssin * * 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/install/check.php * \ingroup install * \brief Test if file conf can be modified and if does not exists, test if install process can create it */ include_once 'inc.php'; $err = 0; $allowinstall = 0; $allowupgrade = 0; $checksok = 1; $setuplang=GETPOST("selectlang",'',3)?GETPOST("selectlang",'',3):$langs->getDefaultLang(); $langs->setDefaultLang($setuplang); $langs->load("install"); // Now we load forced value from install.forced.php file. $useforcedwizard=false; $forcedfile="./install.forced.php"; if ($conffile == "/etc/dolibarr/conf.php") $forcedfile="/etc/dolibarr/install.forced.php"; if (@file_exists($forcedfile)) { $useforcedwizard=true; include_once $forcedfile; } dolibarr_install_syslog("Dolibarr install/upgrade process started"); /* * View */ pHeader('',''); // No next step for navigation buttons. Next step is defined by clik on links. //print "
\n"; //print $langs->trans("InstallEasy")."

\n"; print ''.$langs->trans("MiscellanousChecks").":
\n"; // Check browser $useragent=$_SERVER['HTTP_USER_AGENT']; if (! empty($useragent)) { $tmp=getBrowserInfo(); $browserversion=$tmp['browserversion']; $browsername=$tmp['browsername']; if ($browsername == 'ie' && $browserversion < 7) print ' Error

'.$langs->trans("WarningBrowserTooOld")."
\n"; } // Check PHP version if (versioncompare(versionphparray(),array(4,3,10)) < 0) // Minimum to use (error if lower) { print ' Error

'.$langs->trans("ErrorPHPVersionTooLow",'4.3.10'); $checksok=0; } else if (versioncompare(versionphparray(),array(5,2,0)) < 0) // Minimum supported (warning if lower) { print ' Error

'.$langs->trans("WarningPHPVersionTooLow",'5.2.0'); $checksok=1; } else { print '

'.$langs->trans("PHPVersion")." ".versiontostring(versionphparray()); } if (empty($force_install_nophpinfo)) print ' ('.$langs->trans("MoreInformation").')'; print "
\n"; // Check PHP support for $_POST if (! isset($_GET["testget"]) && ! isset($_POST["testpost"])) { print ' Warning

'.$langs->trans("PHPSupportPOSTGETKo"); print ' ('.$langs->trans("Recheck").')'; print "
\n"; $checksok=0; } else { print '

'.$langs->trans("PHPSupportPOSTGETOk")."
\n"; } // Check if sessions enabled if (! function_exists("session_id")) { print ' Error

'.$langs->trans("ErrorPHPDoesNotSupportSessions")."
\n"; $checksok=0; } else { print '

'.$langs->trans("PHPSupportSessions")."
\n"; } // Check if GD supported if (! function_exists("imagecreate")) { $langs->load("errors"); print ' Error

'.$langs->trans("ErrorPHPDoesNotSupportGD")."
\n"; // $checksok=0; // If image ko, just warning. So check must still be 1 (otherwise no way to install) } else { print '

'.$langs->trans("PHPSupportGD")."
\n"; } // Check if UTF8 supported if (! function_exists("utf8_encode")) { $langs->load("errors"); print ' Error

'.$langs->trans("ErrorPHPDoesNotSupportUTF8")."
\n"; // $checksok=0; // If image ko, just warning. So check must still be 1 (otherwise no way to install) } else { print '

'.$langs->trans("PHPSupportUTF8")."
\n"; } // Check if mb_convert_encoding supported (used by getCurrencySymbol) /*if (! function_exists("mb_convert_encoding")) { $langs->load("errors"); print ' Error

'.$langs->trans("ErrorPHPDoesNotSupportUTF8")."
\n"; // $checksok=0; // If image ko, just warning. So check must still be 1 (otherwise no way to install) } else { print '

'.$langs->trans("PHPSupportUTF8")."
\n"; }*/ // Check memory $memrequiredorig='64M'; $memrequired=64*1024*1024; $memmaxorig=@ini_get("memory_limit"); $memmax=@ini_get("memory_limit"); if ($memmaxorig != '') { preg_match('/([0-9]+)([a-zA-Z]*)/i',$memmax,$reg); if ($reg[2]) { if (strtoupper($reg[2]) == 'M') $memmax=$reg[1]*1024*1024; if (strtoupper($reg[2]) == 'K') $memmax=$reg[1]*1024; } if ($memmax >= $memrequired) { print '

'.$langs->trans("PHPMemoryOK",$memmaxorig,$memrequiredorig)."
\n"; } else { print ' Warning

'.$langs->trans("PHPMemoryTooLow",$memmaxorig,$memrequiredorig)."
\n"; } } // If config file presente and filled clearstatcache(); if (is_readable($conffile) && filesize($conffile) > 8) { dolibarr_install_syslog("conf file '$conffile' already defined"); $confexists=1; include_once $conffile; $databaseok=1; if ($databaseok) { // Already installed for all parts (config and database). We can propose upgrade. $allowupgrade=1; } else { $allowupgrade=0; } } else { // If not, we create it dolibarr_install_syslog("we try to create conf file '$conffile'"); $confexists=0; // First we try by copying example if (@copy($conffile.".example", $conffile)) { // Success dolibarr_install_syslog("copied file ".$conffile.".example into ".$conffile." done successfully."); } else { // If failed, we try to create an empty file dolibarr_install_syslog("failed to copy file ".$conffile.".example into ".$conffile.". We try to create it.", LOG_WARNING); $fp = @fopen($conffile, "w"); if ($fp) { @fwrite($fp, '"); fclose($fp); } else dolibarr_install_syslog("failed to create a new file ".$conffile." into current dir ".getcwd().". Check permission.", LOG_ERR); } // First install, on ne peut pas upgrader $allowupgrade=0; } // Si fichier absent et n'a pu etre cree if (! file_exists($conffile)) { print ' Error

'.$langs->trans("ConfFileDoesNotExistsAndCouldNotBeCreated",$conffiletoshow); print "

"; print $langs->trans("YouMustCreateWithPermission",$conffiletoshow); print "

"; print $langs->trans("CorrectProblemAndReloadPage",$_SERVER['PHP_SELF'].'?testget=ok'); $err++; } else { // Si fichier present mais ne peut etre modifie if (!is_writable($conffile)) { if ($confexists) { print '

'.$langs->trans("ConfFileExists",$conffiletoshow); } else { print '

'.$langs->trans("ConfFileCouldBeCreated",$conffiletoshow); } print "
"; print ' Warning

'.$langs->trans("ConfFileIsNotWritable",$conffiletoshow); print "
\n"; $allowinstall=0; } // Si fichier present et peut etre modifie else { if ($confexists) { print '

'.$langs->trans("ConfFileExists",$conffiletoshow); } else { print '

'.$langs->trans("ConfFileCouldBeCreated",$conffiletoshow); } print "
"; print '

'.$langs->trans("ConfFileIsWritable",$conffiletoshow); print "
\n"; $allowinstall=1; } print "
\n"; // Si prerequis ok, on affiche le bouton pour passer a l'etape suivante if ($checksok) { $ok=0; // Try to create db connexion if (file_exists($conffile)) { include_once $conffile; if (! empty($dolibarr_main_db_type) && ! empty($dolibarr_main_document_root)) { if (! file_exists($dolibarr_main_document_root."/core/lib/admin.lib.php")) { print 'A '.$conffiletoshow.' file exists with a dolibarr_main_document_root to '.$dolibarr_main_document_root.' that seems wrong. Try to fix or remove the '.$conffiletoshow.' file.
'."\n"; dol_syslog("A '.$conffiletoshow.' file exists with a dolibarr_main_document_root to ".$dolibarr_main_document_root." that seems wrong. Try to fix or remove the '.$conffiletoshow.' file.", LOG_WARNING); } else { require_once $dolibarr_main_document_root.'/core/lib/admin.lib.php'; // $conf is already instancied inside inc.php $conf->db->type = $dolibarr_main_db_type; $conf->db->host = $dolibarr_main_db_host; $conf->db->port = $dolibarr_main_db_port; $conf->db->name = $dolibarr_main_db_name; $conf->db->user = $dolibarr_main_db_user; $conf->db->pass = $dolibarr_main_db_pass; $db=getDoliDBInstance($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name,$conf->db->port); if ($db->connected == 1 && $db->database_selected == 1) { $ok=1; } } } } // If a database access is available, we set more variable if ($ok) { if (empty($dolibarr_main_db_encryption)) $dolibarr_main_db_encryption=0; $conf->db->dolibarr_main_db_encryption = $dolibarr_main_db_encryption; if (empty($dolibarr_main_db_cryptkey)) $dolibarr_main_db_cryptkey=''; $conf->db->dolibarr_main_db_cryptkey = $dolibarr_main_db_cryptkey; $conf->setValues($db); // Current version is $conf->global->MAIN_VERSION_LAST_UPGRADE // Version to install is DOL_VERSION $dolibarrlastupgradeversionarray=preg_split('/[\.-]/',isset($conf->global->MAIN_VERSION_LAST_UPGRADE) ? $conf->global->MAIN_VERSION_LAST_UPGRADE : (isset($conf->global->MAIN_VERSION_LAST_INSTALL)?$conf->global->MAIN_VERSION_LAST_INSTALL:'')); $dolibarrversiontoinstallarray=versiondolibarrarray(); } // Show title if (! empty($conf->global->MAIN_VERSION_LAST_UPGRADE) || ! empty($conf->global->MAIN_VERSION_LAST_INSTALL)) { print $langs->trans("VersionLastUpgrade").': '.(empty($conf->global->MAIN_VERSION_LAST_UPGRADE)?$conf->global->MAIN_VERSION_LAST_INSTALL:$conf->global->MAIN_VERSION_LAST_UPGRADE).'
'; print $langs->trans("VersionProgram").': '.DOL_VERSION.''; //print ' '.img_warning($langs->trans("RunningUpdateProcessMayBeRequired")); print '
'; print '
'; } else print "
\n"; print $langs->trans("InstallEasy")." "; print $langs->trans("ChooseYourSetupMode"); $foundrecommandedchoice=0; // Array of install choices print ''; // Show first install line print ''; print ''; print ''; print ''."\n"; // Show upgrade lines $allowupgrade=true; if (empty($dolibarr_main_db_host)) // This means install process was not run { $allowupgrade=false; } if (defined("MAIN_NOT_INSTALLED")) $allowupgrade=false; $migrationscript=array( //array('from'=>'2.0.0', 'to'=>'2.1.0'), //array('from'=>'2.1.0', 'to'=>'2.2.0'), //array('from'=>'2.2.0', 'to'=>'2.4.0'), //array('from'=>'2.4.0', 'to'=>'2.5.0'), //array('from'=>'2.5.0', 'to'=>'2.6.0'), array('from'=>'2.6.0', 'to'=>'2.7.0'), array('from'=>'2.7.0', 'to'=>'2.8.0'), array('from'=>'2.8.0', 'to'=>'2.9.0'), array('from'=>'2.9.0', 'to'=>'3.0.0'), array('from'=>'3.0.0', 'to'=>'3.1.0'), array('from'=>'3.1.0', 'to'=>'3.2.0'), array('from'=>'3.2.0', 'to'=>'3.3.0') ); $count=0; foreach ($migrationscript as $migarray) { $count++; $versionfrom=$migarray['from']; $versionto=$migarray['to']; $newversionfrom=preg_replace('/(\.[0-9]+)$/i','.*',$versionfrom); $newversionto=preg_replace('/(\.[0-9]+)$/i','.*',$versionto); $dolibarrversionfromarray=preg_split('/[\.-]/',$versionfrom); $dolibarrversiontoarray=preg_split('/[\.-]/',$versionto); $version=preg_split('/[\.-]/',DOL_VERSION); $newversionfrombis=''; if (versioncompare($dolibarrversiontoarray,$version) < -2) $newversionfrombis=' '.$langs->trans("or").' '.$versionto; print ''; print ''; print ''; print ''."\n"; } print '

'.$langs->trans("FreshInstall").''; print '	'; print $langs->trans("FreshInstallDesc"); if (empty($dolibarr_main_db_host)) // This means install process was not run { print ' '; //print $langs->trans("InstallChoiceRecommanded",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_UPGRADE); print ' '.$langs->trans("InstallChoiceSuggested").' '; // '; $foundrecommandedchoice=1; // To show only once } print '	'; if ($allowinstall) { print ''.$langs->trans("Start").''; } else { print $langs->trans("InstallNotAllowed"); } print '
'.$langs->trans("Upgrade").' '.$newversionfrom.$newversionfrombis.' -> '.$newversionto.'	'; print $langs->trans("UpgradeDesc"); if ($ok) { if (count($dolibarrlastupgradeversionarray) >= 2) // If a database access is available and a version x.y already available { // Now we check if this is the first qualified choice if ($allowupgrade && empty($foundrecommandedchoice) && versioncompare($dolibarrversiontoarray,$dolibarrlastupgradeversionarray) > 0) { print ' '; //print $langs->trans("InstallChoiceRecommanded",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_UPGRADE); print ' '.$langs->trans("InstallChoiceSuggested").' '; if ($count < count($migarray)) // There is other choices after { print $langs->trans("MigrateIsDoneStepByStep",DOL_VERSION); } print ''; // '; $foundrecommandedchoice=1; // To show only once } } else { // We can not recommand a choice. // A version of install may be known, but we need last upgrade. } } print '	'; if ($allowupgrade) { // If it's not last updagre script, action = upgrade_tmp, if last action = upgrade print ''.$langs->trans("Start").''; } else { print $langs->trans("NotAvailable"); } print '

'; print "\n"; } } pFooter(1); // 1 car ne doit jamais afficher bouton Suivant ?>