check.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2004-2005  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2015  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005       Marc Barilley / Ocebo   <marc@ocebo.com>
 * Copyright (C) 2005-2012  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2013-2014  Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2014       Marcos García           <marcosgdf@gmail.com>
 * Copyright (C) 2015-2016  Raphaël Doursenaud      <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2024-2025  MDW           <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024-2025  Frédéric France         <frederic.france@free.fr>
 *
 * 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 3 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 <https://www.gnu.org/licenses/>.
 */
 
define('ALLOWED_IF_UPGRADE_UNLOCK_FOUND', 1);
include_once 'inc.php';
 
$err = 0;
$allowinstall = 0;
$allowupgrade = false;
$checksok = 1;
 
$setuplang = GETPOST("selectlang", 'aZ09', 3) ? GETPOST("selectlang", 'aZ09', 3) : $langs->getDefaultLang();
$langs->setDefaultLang($setuplang);
 
$langs->load("install");
 
// Now we load forced/pre-set values 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("- check: Dolibarr install/upgrade process started");
 
 
/*
 *  View
 */
 
pHeader('', ''); // No next step for navigation buttons. Next step is defined by click on links.
 
 
//print "<br>\n";
//print $langs->trans("InstallEasy")."<br><br>\n";
 
print '<h3><img class="valignmiddle inline-block paddingright" src="../theme/common/octicons/build/svg/gear.svg" width="20" alt="Database"> ';
print '<span class="inline-block valignmiddle">'.$langs->trans("MiscellaneousChecks")."</span></h3>\n";
 
// Check browser
$useragent = $_SERVER['HTTP_USER_AGENT'];
if (!empty($useragent)) {
  $tmp = getBrowserInfo($_SERVER["HTTP_USER_AGENT"]);
  $browserversion = $tmp['browserversion'];
  $browsername = $tmp['browsername'];
  if ($browsername == 'ie' && $browserversion < 7) {
    print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("WarningBrowserTooOld")."<br>\n";
  }
}
 
 
// Check PHP version min
$arrayphpminversionerror = array(7, 0, 0);
$arrayphpminversionwarning = array(7, 1, 0);
if (versioncompare(versionphparray(), $arrayphpminversionerror) < 0) {        // Minimum to use (error if lower)
  print '<img src="../theme/eldy/img/error.png" alt="Error" class="valignmiddle"> '.$langs->trans("ErrorPHPVersionTooLow", versiontostring($arrayphpminversionerror));
  $checksok = 0; // 0=error, 1=warning
} elseif (versioncompare(versionphparray(), $arrayphpminversionwarning) < 0) {    // Minimum supported (warning if lower)
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPVersionTooLow", versiontostring($arrayphpminversionwarning));
  $checksok = 1; // 0=error, 1=warning
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPVersion")." ".versiontostring(versionphparray());
}
if (empty($force_install_nophpinfo)) {
  print ' (<a href="phpinfo.php" target="_blank" rel="noopener noreferrer">'.$langs->trans("MoreInformation").'</a>)';
}
print "<br>\n";
 
// Check PHP version max
$arrayphpmaxversionwarning = array(8, 4, 0);
if (versioncompare(versionphparray(), $arrayphpmaxversionwarning) > 0 && versioncompare(versionphparray(), $arrayphpmaxversionwarning) < 3) {        // Maximum to use (warning if higher)
  print '<img src="../theme/eldy/img/error.png" alt="Error" class="valignmiddle"> '.$langs->trans("ErrorPHPVersionTooHigh", versiontostring($arrayphpmaxversionwarning));
  $checksok = 1; // 0=error, 1=warning
  print "<br>\n";
}
 
 
// Check PHP support for $_GET and $_POST
if (!isset($_GET["testget"]) && !isset($_POST["testpost"])) { // We must keep $_GET and $_POST here
  print '<img src="../theme/eldy/img/warning.png" alt="Warning" class="valignmiddle"> '.$langs->trans("PHPSupportPOSTGETKo");
  print ' (<a href="'.dol_escape_htmltag($_SERVER["PHP_SELF"]).'?testget=ok">'.$langs->trans("Recheck").'</a>)';
  print "<br>\n";
  $checksok = 0;
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupportPOSTGETOk")."<br>\n";
}
 
 
// Check if session_id is enabled
if (!function_exists("session_id")) {
  print '<img src="../theme/eldy/img/error.png" alt="Error" class="valignmiddle"> '.$langs->trans("ErrorPHPDoesNotSupportSessions")."<br>\n";
  $checksok = 0;
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupportSessions")."<br>\n";
}
 
 
// Check for mbstring extension
if (!extension_loaded("mbstring")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "MBString")."<br>\n";
  // $checksok = 0; // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "MBString")."<br>\n";
}
 
// Check for json extension
if (!extension_loaded("json")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "JSON")."<br>\n";
  // $checksok = 0; // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "JSON")."<br>\n";
}
 
// Check if GD is supported (we need GD for image conversion)
if (!function_exists("imagecreate")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "GD")."<br>\n";
  // $checksok = 0;       // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "GD")."<br>\n";
}
 
// Check if Curl is supported
if (!function_exists("curl_init")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "Curl")."<br>\n";
  // $checksok = 0;       // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "Curl")."<br>\n";
}
 
// Check if PHP calendar extension is available
if (!function_exists("easter_date")) {
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "Calendar")."<br>\n";
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "Calendar")."<br>\n";
}
 
// Check if Xml is supported
if (!function_exists("simplexml_load_string")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "Xml")."<br>\n";
  // $checksok = 0;       // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "Xml")."<br>\n";
}
 
// Check if UTF8 is supported
if (!function_exists("utf8_encode")) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "UTF8")."<br>\n";
  // $checksok = 0; // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "UTF8")."<br>\n";
}
 
// Check if intl methods are supported if install is not from DoliWamp. TODO Why ?
if (empty($_SERVER["SERVER_ADMIN"]) || $_SERVER["SERVER_ADMIN"] != 'doliwamp@localhost') {
  if (!function_exists("locale_get_primary_language") || !function_exists("locale_get_region")) {
    $langs->load("errors");
    print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "Intl")."<br>\n";
    // $checksok = 0;   // If ko, just warning. So check must still be 1 (otherwise no way to install)
  } else {
    print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "Intl")."<br>\n";
  }
}
 
// Check if Imap is supported
if (PHP_VERSION_ID <= 80300) {
  if (!function_exists("imap_open")) {
    $langs->load("errors");
    print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "IMAP")."<br>\n";
    // $checksok = 0;       // If ko, just warning. So check must still be 1 (otherwise no way to install)
  } else {
    print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "IMAP")."<br>\n";
  }
}
 
// Check if Zip is supported
if (!class_exists('ZipArchive')) {
  $langs->load("errors");
  print '<img src="../theme/eldy/img/warning.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ErrorPHPDoesNotSupport", "ZIP")."<br>\n";
  // $checksok = 0;       // If ko, just warning. So check must still be 1 (otherwise no way to install)
} else {
  print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPSupport", "ZIP")."<br>\n";
}
 
// Check memory
$memrequiredorig = '64M';
$memrequired = 64 * 1024 * 1024;
$memmaxorig = @ini_get("memory_limit");
$memmax = @ini_get("memory_limit");
if ($memmaxorig != '') {
  $reg = array();
  preg_match('/([0-9]+)([a-zA-Z]*)/i', $memmax, $reg);
  if ($reg[2]) {
    if (strtoupper($reg[2]) == 'G') {
      $memmax = (int) $reg[1] * 1024 * 1024 * 1024;
    }
    if (strtoupper($reg[2]) == 'M') {
      $memmax = (int) $reg[1] * 1024 * 1024;
    }
    if (strtoupper($reg[2]) == 'K') {
      $memmax = (int) $reg[1] * 1024;
    }
  }
  if ($memmax >= $memrequired || $memmax == -1) {
    print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("PHPMemoryOK", $memmaxorig, $memrequiredorig)."<br>\n";
  } else {
    print '<img src="../theme/eldy/img/warning.png" alt="Warning" class="valignmiddle paddingright"> '.$langs->trans("PHPMemoryTooLow", $memmaxorig, $memrequiredorig)."<br>\n";
  }
}
 
 
// If that config file is present and filled
clearstatcache();
if (is_readable($conffile) && filesize($conffile) > 8) {
  dolibarr_install_syslog("check: 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 = true;
  } else {
    $allowupgrade = false;
  }
} else {
  // If not, we create it
  dolibarr_install_syslog("check: we try to create conf file '".$conffile."'");
  $confexists = 0;
 
  // First we try by copying example
  if (@copy($conffile.".example", $conffile)) {
    // Success
    dolibarr_install_syslog("check: successfully copied file ".$conffile.".example into ".$conffile);
  } else {
    // If failed, we try to create an empty file
    dolibarr_install_syslog("check: failed to copy file ".$conffile.".example into ".$conffile.". We try to create it.", LOG_WARNING);
 
    $fp = @fopen($conffile, "w");
    if ($fp) {
      @fwrite($fp, '<?php');
      @fwrite($fp, "\n");
      fclose($fp);
    } else {
      dolibarr_install_syslog("check: failed to create a new file ".$conffile." into current dir ".getcwd().". Please check permissions.", LOG_ERR);
    }
  }
 
  // First install: no upgrade necessary/required
  $allowupgrade = false;
}
 
 
 
// File is missing and cannot be created
if (!file_exists($conffile)) {
  print '<img src="../theme/eldy/img/error.png" alt="Error" class="valignmiddle paddingright"> '.$langs->trans("ConfFileDoesNotExistsAndCouldNotBeCreated", $conffiletoshow);
  print '<br><br><div class="error">';
  print $langs->trans("YouMustCreateWithPermission", $conffiletoshow);
  print '</div><br><br>'."\n";
 
  print '<span class="opacitymedium">'.$langs->trans("CorrectProblemAndReloadPage", $_SERVER['PHP_SELF'].'?testget=ok').'</span>';
  $err++;
} else {
  if (dol_is_dir($conffile)) {
    print '<img src="../theme/eldy/img/error.png" alt="Warning"> '.$langs->trans("ConfFileMustBeAFileNotADir", $conffiletoshow);
 
    $allowinstall = 0;
  } elseif (!is_writable($conffile)) {
    // File exists but cannot be modified
    if ($confexists) {
      print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("ConfFileExists", $conffiletoshow);
    } else {
      print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("ConfFileCouldBeCreated", $conffiletoshow);
    }
    print "<br>";
    print '<img src="../theme/eldy/img/tick.png" alt="Warning" class="valignmiddle paddingright"> '.$langs->trans("ConfFileIsNotWritable", $conffiletoshow);
    print "<br>\n";
 
    $allowinstall = 0;
  } else {
    // File exists and can be modified
    if ($confexists) {
      print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("ConfFileExists", $conffiletoshow);
    } else {
      print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("ConfFileCouldBeCreated", $conffiletoshow);
    }
    print "<br>";
    print '<img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> '.$langs->trans("ConfFileIsWritable", $conffiletoshow);
    print "<br>\n";
 
    $allowinstall = 1;
  }
  print "<br>\n";
 
  // Requirements met/all ok: display the next step button
  if ($checksok) {
    $ok = false;
 
    // Try to create db connection
    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 '<span class="error">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.</span><br>'."\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';
 
          // If password is encoded, we decode it
          if (preg_match('/(crypted|dolcrypt):/i', $dolibarr_main_db_pass) || !empty($dolibarr_main_db_encrypted_pass)) {
            require_once $dolibarr_main_document_root.'/core/lib/security.lib.php';
            if (preg_match('/crypted:/i', $dolibarr_main_db_pass)) {
              $dolibarr_main_db_encrypted_pass = preg_replace('/crypted:/i', '', $dolibarr_main_db_pass); // We need to set this as it is used to know the password was initially encrypted
              $dolibarr_main_db_pass = dol_decode($dolibarr_main_db_encrypted_pass);
            } elseif (preg_match('/dolcrypt:/i', $dolibarr_main_db_pass)) {
              $dolibarr_main_db_encrypted_pass = $dolibarr_main_db_pass; // We need to set this as it is used to know the password was initially encrypted
              $dolibarr_main_db_pass = dolDecrypt($dolibarr_main_db_pass);
            } else {
              $dolibarr_main_db_pass = dol_decode($dolibarr_main_db_encrypted_pass);
            }
          }
 
          // $conf already created in 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, (string) $conf->db->user, $conf->db->pass, $conf->db->name, (int) $conf->db->port);
          if ($db->connected && $db->database_selected) {
            $ok = true;
          }
        }
      }
    }
 
    $dolibarrlastupgradeversionarray = array();
    // If database access is available, we set more variables
    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);
      // Reset forced setup after the setValues
      if (defined('SYSLOG_FILE')) {
        $conf->global->SYSLOG_FILE = constant('SYSLOG_FILE');
      }
      $conf->global->MAIN_ENABLE_LOG_TO_HTML = 1;
 
      // Current version is $conf->global->MAIN_VERSION_LAST_UPGRADE
      // Version to install is DOL_VERSION
      $dolibarrlastupgradeversionarray = preg_split('/[\.-]/', getDolGlobalString('MAIN_VERSION_LAST_UPGRADE', getDolGlobalString('MAIN_VERSION_LAST_INSTALL')));
      $dolibarrversiontoinstallarray = versiondolibarrarray();
    }
 
    // Show title
    if (getDolGlobalString('MAIN_VERSION_LAST_UPGRADE') || getDolGlobalString('MAIN_VERSION_LAST_INSTALL')) {
      print $langs->trans("VersionLastUpgrade").': <b><span class="ok">'.getDolGlobalString('MAIN_VERSION_LAST_UPGRADE', getDolGlobalString('MAIN_VERSION_LAST_INSTALL')).'</span></b> - ';
      print $langs->trans("VersionProgram").': <b><span class="ok">'.DOL_VERSION.'</span></b>';
      //print ' '.img_warning($langs->trans("RunningUpdateProcessMayBeRequired"));
      print '<br>';
      print '<br>';
    } else {
      print "<br>\n";
    }
 
    //print $langs->trans("InstallEasy")." ";
    print '<h3><span class="soustitre">'.$langs->trans("ChooseYourSetupMode").'</span></h3>';
 
    $foundrecommandedchoice = 0;
 
    $available_choices = array();
    $notavailable_choices = array();
 
    if (empty($dolibarr_main_db_host)) {  // This means install process was not run
      $foundrecommandedchoice = 1; // To show only once
    }
 
    // Show line of first install choice
    $choice  = '<tr class="trlineforchoice'.($foundrecommandedchoice ? ' choiceselected' : '').'">'."\n";
    $choice .= '<td class="nowrap center"><b>'.$langs->trans("FreshInstall").'</b>';
    $choice .= '</td>';
    $choice .= '<td class="listofchoicesdesc">';
    $choice .= $langs->trans("FreshInstallDesc");
    if (empty($dolibarr_main_db_host)) {  // This means install process was not run
      $choice .= '<br>';
      //print $langs->trans("InstallChoiceRecommanded",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_UPGRADE);
      $choice .= '<div class="center"><div class="ok suggestedchoice">'.$langs->trans("InstallChoiceSuggested").'</div></div>';
      // <img src="../theme/eldy/img/tick.png" alt="Ok" class="valignmiddle paddingright"> ';
    }
 
    $choice .= '</td>';
    $choice .= '<td class="center">';
    if ($allowinstall) {
      $choice .= '<a class="button" href="fileconf.php?selectlang='.$setuplang.'">'.$langs->trans("Start").'</a>';
    } else {
      $choice .= ($foundrecommandedchoice ? '<span class="warning">' : '').$langs->trans("InstallNotAllowed").($foundrecommandedchoice ? '</span>' : '');
    }
    $choice .= '</td>'."\n";
    $choice .= '</tr>'."\n";
 
    $positionkey = ($foundrecommandedchoice ? 999 : 0);
    if ($allowinstall) {
      $available_choices[$positionkey] = $choice;
    } else {
      $notavailable_choices[$positionkey] = $choice;
    }
 
    // Show upgrade lines
    $allowupgrade = true;
    if (empty($dolibarr_main_db_host)) {  // This means install process was not run
      $allowupgrade = false;
    }
    if (getDolGlobalInt("MAIN_NOT_INSTALLED")) {
      $allowupgrade = false;
    }
    if (GETPOST('allowupgrade')) {
      $allowupgrade = true;
    }
 
    $dir = DOL_DOCUMENT_ROOT."/install/mysql/migration/"; // We use mysql migration scripts whatever is database driver
    dolibarr_install_syslog("Scan sql files for migration files in ".$dir);
 
    // Get files list of migration file x.y.z-a.b.c.sql into /install/mysql/migration
    $migrationscript = array();
    $handle = opendir($dir);
    if (is_resource($handle)) {
      $versiontousetoqualifyscript = preg_replace('/-.*/', '', DOL_VERSION);
      while (($file = readdir($handle)) !== false) {
        $reg = array();
        if (preg_match('/^(\d+\.\d+\.\d+)-(\d+\.\d+\.\d+)\.sql$/i', $file, $reg)) {
          //var_dump(DOL_VERSION." ".$reg[2]." ".$versiontousetoqualifyscript." ".version_compare($versiontousetoqualifyscript, $reg[2]));
          if (!empty($reg[2]) && version_compare($versiontousetoqualifyscript, $reg[2]) >= 0) {
            $migrationscript[] = array('from' => $reg[1], 'to' => $reg[2]);
          }
        }
      }
      $migrationscript = dol_sort_array($migrationscript, 'from', 'asc', 1);
    } else {
      print '<div class="error">'.$langs->trans("ErrorCanNotReadDir", $dir).'</div>';
    }
 
    $count = 0;
    foreach ($migrationscript as $migarray) {
      $choice = '';
 
      $count++;
      $recommended_choice = false;
      $version = DOL_VERSION;
      $versionfrom = $migarray['from'];
      $versionto = $migarray['to'];
      $versionarray = preg_split('/[\.-]/', $version);
      $dolibarrversionfromarray = preg_split('/[\.-]/', $versionfrom);
      $dolibarrversiontoarray = preg_split('/[\.-]/', $versionto);
      // Define string newversionxxx that are used for text to show
      $newversionfrom = preg_replace('/(\.[0-9]+)$/i', '.*', $versionfrom);
      $newversionto = preg_replace('/(\.[0-9]+)$/i', '.*', $versionto);
      $newversionfrombis = '';
      if (versioncompare($dolibarrversiontoarray, $versionarray) < -2) {  // From x.y.z -> x.y.z+1
        $newversionfrombis = ' '.$langs->trans("or").' '.$versionto;
      }
 
      if ($ok) {
        if (is_array($dolibarrlastupgradeversionarray) && count($dolibarrlastupgradeversionarray) >= 2) { // If database access is available and last upgrade version is known
          // Now we check if this is the first qualified choice
          if ($allowupgrade && empty($foundrecommandedchoice) &&
            (versioncompare($dolibarrversiontoarray, $dolibarrlastupgradeversionarray) > 0 || versioncompare($dolibarrversiontoarray, $versionarray) < -2)
          ) {
            $foundrecommandedchoice = 1; // To show only once
            $recommended_choice = true;
          }
        } else {
          // We cannot recommend a choice.
          // A version of install may be known, but we need last upgrade.
        }
      }
 
      $choice .= "\n".'<!-- choice '.$count.' -->'."\n";
      $choice .= '<tr'.($recommended_choice ? ' class="choiceselected"' : '').'>';
      $choice .= '<td class="nowrap center"><b>'.$langs->trans("Upgrade").'<br>'.$newversionfrom.$newversionfrombis.' -> '.$newversionto.'</b></td>';
      $choice .= '<td class="listofchoicesdesc">';
      $choice .= $langs->trans("UpgradeDesc");
 
      if ($recommended_choice) {
        $choice .= '<br>';
        //print $langs->trans("InstallChoiceRecommanded",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_UPGRADE);
        $choice .= '<div class="center">';
        $choice .= '<div class="ok suggestedchoice">'.$langs->trans("InstallChoiceSuggested").'</div>';
        if ($count < count($migarray)) {  // There are other choices after
          print $langs->trans("MigrateIsDoneStepByStep", DOL_VERSION);
        }
        $choice .= '</div>';
      }
 
      $choice .= '</td>';
      $choice .= '<td class="center">';
      if ($allowupgrade) {
        $disabled = false;
        if ($foundrecommandedchoice == 2) {
          $disabled = true;
        }
        if ($foundrecommandedchoice == 1) {
          $foundrecommandedchoice = 2;
        }
        if ($disabled) {
          $choice .= '<span class="opacitymedium">'.$langs->trans("NotYetAvailable").'</span>';
        } else {
          $choice .= '<a class="button runupgrade" href="upgrade.php?action=upgrade'.($count < count($migrationscript) ? '_'.$versionto : '').'&amp;selectlang='.$setuplang.'&amp;versionfrom='.$versionfrom.'&amp;versionto='.$versionto.'">'.$langs->trans("Start").'</a>';
        }
      } else {
        $choice .= $langs->trans("NotAvailable");
      }
      $choice .= '</td>';
      $choice .= '</tr>'."\n";
 
      if ($allowupgrade) {
        $available_choices[$count] = $choice;
      } else {
        $notavailable_choices[$count] = $choice;
      }
    }
 
    // If there is no choice at all, we show all of them.
    if (empty($available_choices)) {
      $available_choices = $notavailable_choices;
      $notavailable_choices = array();
    }
 
    // Array of install choices
    krsort($available_choices, SORT_NATURAL);
    print"\n";
    print '<table width="100%" class="listofchoices">';
    foreach ($available_choices as $choice) {
      print $choice;
    }
 
    print '</table>'."\n";
 
    if (count($notavailable_choices)) {
      print '<br><div id="AShowChoices" style="opacity: 0.5">';
      print '> '.$langs->trans('ShowNotAvailableOptions').'...';
      print '</div>';
 
      print '<div id="navail_choices" style="display:none">';
      print "<br>\n";
      print '<table width="100%" class="listofchoices">';
      foreach ($notavailable_choices as $choice) {
        print $choice;
      }
 
      print '</table>'."\n";
      print '</div>';
    }
  }
}
 
print '<script type="text/javascript">
 
$("div#AShowChoices").click(function() {
 
    $("div#navail_choices").toggle();
 
    if ($("div#navail_choices").css("display") == "none") {
        $(this).text("> '.$langs->trans('ShowNotAvailableOptions').'...");
    } else {
        $(this).text("'.$langs->trans('HideNotAvailableOptions').'...");
    }
 
});
 
/*
$(".runupgrade").click(function() {
  return confirm("'.dol_escape_js($langs->transnoentitiesnoconv("WarningUpgrade"), 0, 1).'");
});
*/
 
</script>';
 
dolibarr_install_syslog("- check: end");
pFooter(1); // Never display next button