* Copyright (C) 2004-2009 Laurent Destailleur * Copyright (C) 2005 Marc Barilley / Ocebo * Copyright (C) 2005-2010 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 * \version $Id: check.php,v 1.87 2011/07/31 23:26:19 eldy Exp $ */ include_once("./inc.php"); $err = 0; $allowinstall = 0; $allowupgrade = 0; $checksok = 1; $setuplang=isset($_POST["selectlang"])?$_POST["selectlang"]:(isset($_GET["selectlang"])?$_GET["selectlang"]:$langs->getDefaultLang()); $langs->setDefaultLang($setuplang); $langs->load("install"); // Init "forced values" to nothing. "forced values" are used after an doliwamp install wizard. if (! isset($force_install_dolibarrlogin)) $force_install_dolibarrlogin=''; $useforcedwizard=false; if (file_exists("./install.forced.php")) { $useforcedwizard=true; include_once("./install.forced.php"); } else if (file_exists("/etc/dolibarr/install.forced.php")) { $useforcedwizard=include_once("/etc/dolibarr/install.forced.php"); } 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 ''; print ' Dolibarr logo

'; print DOL_VERSION.'

'; print ''; //print "
\n"; //print $langs->trans("InstallEasy")."

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

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

'.$langs->trans("WarningPHPVersionTooLow",'5.0.0'); $checksok=0; } 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 memory $memrequiredorig='32M'; $memrequired=32*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."); $fp = @fopen($conffile, "w"); if ($fp) { @fwrite($fp, '"); fclose($fp); } } // 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."/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."/lib/admin.lib.php"); require_once($dolibarr_main_document_root."/lib/databases/".$dolibarr_main_db_type.".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 = new DoliDb($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') ); $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='/'.$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").''; // To restore licence page print ''.$langs->trans("Start").''; } else { print $langs->trans("InstallNotAllowed"); } print '
'.$langs->trans("Upgrade").' '.$newversionfrom.' -> '.$newversionto.'	'; print $langs->trans("UpgradeDesc"); if ($ok) { if (sizeof($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 < sizeof($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 ?>