mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-06 01:28:19 +01:00
58ba3e31fa
# Qual: Fix spelling for crypted and referer. The proper spelling is encrypted and referrer, but the code has some occurences where referer and crypted need to be maintained. To make verification easier, this spelling correction is limited to mostly these corrections and some minor translations and a only a few other corrections. crypted and referer are added as exceptions for spelling after this fix. Co-authored-by: Laurent Destailleur <eldy@destailleur.fr>
556 lines
23 KiB
PHP
556 lines
23 KiB
PHP
<?php
|
|
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
* Copyright (C) 2004-2017 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
|
|
* Copyright (C) 2004 Sebastien DiCintio <sdicintio@ressource-toi.org>
|
|
* Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
|
|
* Copyright (C) 2015-2016 Raphaël Doursenaud <rdoursenaud@gpcsolutions.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/>.
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/install/step5.php
|
|
* \ingroup install
|
|
* \brief Last page of upgrade / install process
|
|
*
|
|
* This page is called with parameter action=set by step4.php or action=upgrade by upgrade2.php
|
|
* For installation:
|
|
* It creates the login admin and set the MAIN_SECURITY_SALT to a random value.
|
|
* It set the value for MAIN_VERSION_LAST_INSTALL
|
|
* It activates some modules
|
|
* It creates the install.lock and shows the final message.
|
|
* For upgrade:
|
|
* It updates the value for MAIN_VERSION_LAST_UPGRADE.
|
|
* It (re)creates the install.lock and shows the final message.
|
|
*/
|
|
|
|
define('ALLOWED_IF_UPGRADE_UNLOCK_FOUND', 1);
|
|
include_once 'inc.php';
|
|
if (file_exists($conffile)) {
|
|
include_once $conffile;
|
|
}
|
|
require_once $dolibarr_main_document_root.'/core/lib/admin.lib.php';
|
|
require_once $dolibarr_main_document_root.'/core/lib/security.lib.php'; // for dol_hash
|
|
require_once $dolibarr_main_document_root.'/core/lib/functions2.lib.php';
|
|
|
|
global $langs;
|
|
|
|
$versionfrom = GETPOST("versionfrom", 'alpha', 3) ? GETPOST("versionfrom", 'alpha', 3) : (empty($argv[1]) ? '' : $argv[1]);
|
|
$versionto = GETPOST("versionto", 'alpha', 3) ? GETPOST("versionto", 'alpha', 3) : (empty($argv[2]) ? '' : $argv[2]);
|
|
$setuplang = GETPOST('selectlang', 'aZ09', 3) ? GETPOST('selectlang', 'aZ09', 3) : (empty($argv[3]) ? 'auto' : $argv[3]);
|
|
$langs->setDefaultLang($setuplang);
|
|
$action = GETPOST('action', 'alpha') ? GETPOST('action', 'alpha') : (empty($argv[4]) ? '' : $argv[4]);
|
|
|
|
// Define targetversion used to update MAIN_VERSION_LAST_INSTALL for first install
|
|
// or MAIN_VERSION_LAST_UPGRADE for upgrade.
|
|
$targetversion = DOL_VERSION; // If it's latest upgrade
|
|
if (!empty($action) && preg_match('/upgrade/i', $action)) {
|
|
// If it's an old upgrade
|
|
$tmp = explode('_', $action, 2);
|
|
if ($tmp[0] == 'upgrade') {
|
|
if (!empty($tmp[1])) {
|
|
$targetversion = $tmp[1]; // if $action = 'upgrade_6.0.0-beta', we use '6.0.0-beta'
|
|
} else {
|
|
$targetversion = DOL_VERSION; // if $action = 'upgrade', we use DOL_VERSION
|
|
}
|
|
}
|
|
}
|
|
|
|
$langs->loadLangs(array("admin", "install"));
|
|
|
|
$login = GETPOST('login', 'alpha') ? GETPOST('login', 'alpha') : (empty($argv[5]) ? '' : $argv[5]);
|
|
$pass = GETPOST('pass', 'alpha') ? GETPOST('pass', 'alpha') : (empty($argv[6]) ? '' : $argv[6]);
|
|
$pass_verif = GETPOST('pass_verif', 'alpha') ? GETPOST('pass_verif', 'alpha') : (empty($argv[7]) ? '' : $argv[7]);
|
|
$force_install_lockinstall = (int) (!empty($force_install_lockinstall) ? $force_install_lockinstall : (GETPOST('installlock', 'aZ09') ? GETPOST('installlock', 'aZ09') : (empty($argv[8]) ? '' : $argv[8])));
|
|
|
|
$success = 0;
|
|
|
|
$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;
|
|
// If forced install is enabled, replace post values. These are empty because form fields are disabled.
|
|
if ($force_install_noedit == 2) {
|
|
if (!empty($force_install_dolibarrlogin)) {
|
|
$login = $force_install_dolibarrlogin;
|
|
}
|
|
}
|
|
}
|
|
|
|
dolibarr_install_syslog("--- step5: entering step5.php page ".$versionfrom." ".$versionto);
|
|
|
|
$error = 0;
|
|
|
|
/*
|
|
* Actions
|
|
*/
|
|
|
|
// If install, check password and password_verification used to create admin account
|
|
if ($action == "set") {
|
|
if ($pass != $pass_verif) {
|
|
header("Location: step4.php?error=1&selectlang=$setuplang".(isset($login) ? '&login='.$login : ''));
|
|
exit;
|
|
}
|
|
|
|
if (dol_strlen(trim($pass)) == 0) {
|
|
header("Location: step4.php?error=2&selectlang=$setuplang".(isset($login) ? '&login='.$login : ''));
|
|
exit;
|
|
}
|
|
|
|
if (dol_strlen(trim($login)) == 0) {
|
|
header("Location: step4.php?error=3&selectlang=$setuplang".(isset($login) ? '&login='.$login : ''));
|
|
exit;
|
|
}
|
|
}
|
|
|
|
|
|
/*
|
|
* View
|
|
*/
|
|
|
|
$morehtml = '';
|
|
|
|
pHeader($langs->trans("SetupEnd"), "step5", 'set', '', '', 'main-inside main-inside-borderbottom');
|
|
print '<br>';
|
|
|
|
// Test if we can run a first install process
|
|
if (empty($versionfrom) && empty($versionto) && !is_writable($conffile)) {
|
|
print $langs->trans("ConfFileIsNotWritable", $conffiletoshow);
|
|
pFooter(1, $setuplang, 'jscheckparam');
|
|
exit;
|
|
}
|
|
|
|
if ($action == "set" || empty($action) || preg_match('/upgrade/i', $action)) {
|
|
$error = 0;
|
|
|
|
// If password is encoded, we decode it
|
|
if ((!empty($dolibarr_main_db_pass) && preg_match('/crypted:/i', $dolibarr_main_db_pass)) || !empty($dolibarr_main_db_encrypted_pass)) {
|
|
require_once $dolibarr_main_document_root.'/core/lib/security.lib.php';
|
|
if (!empty($dolibarr_main_db_pass) && preg_match('/crypted:/i', $dolibarr_main_db_pass)) {
|
|
$dolibarr_main_db_pass = preg_replace('/crypted:/i', '', $dolibarr_main_db_pass);
|
|
$dolibarr_main_db_pass = dol_decode($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
|
|
} else {
|
|
$dolibarr_main_db_pass = dol_decode($dolibarr_main_db_encrypted_pass);
|
|
}
|
|
}
|
|
|
|
$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;
|
|
$conf->db->dolibarr_main_db_encryption = isset($dolibarr_main_db_encryption) ? $dolibarr_main_db_encryption : '';
|
|
$conf->db->dolibarr_main_db_cryptkey = isset($dolibarr_main_db_cryptkey) ? $dolibarr_main_db_cryptkey : '';
|
|
|
|
$db = getDoliDBInstance($conf->db->type, $conf->db->host, $conf->db->user, $conf->db->pass, $conf->db->name, (int) $conf->db->port);
|
|
|
|
// Create the global $hookmanager object
|
|
include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
|
|
$hookmanager = new HookManager($db);
|
|
|
|
$ok = 0;
|
|
|
|
// If first install
|
|
if ($action == "set") {
|
|
// Active module user
|
|
$modName = 'modUser';
|
|
$file = $modName.".class.php";
|
|
dolibarr_install_syslog('step5: load module user '.DOL_DOCUMENT_ROOT."/core/modules/".$file, LOG_INFO);
|
|
include_once DOL_DOCUMENT_ROOT."/core/modules/".$file;
|
|
$objMod = new $modName($db);
|
|
$result = $objMod->init();
|
|
if (!$result) {
|
|
print "ERROR: failed to init module file = ".$file;
|
|
}
|
|
|
|
if ($db->connected) {
|
|
$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;
|
|
|
|
// Create admin user
|
|
include_once DOL_DOCUMENT_ROOT.'/user/class/user.class.php';
|
|
|
|
// Set default encryption to yes, generate a salt and set default encryption algorythm (but only if there is no user yet into database)
|
|
$sql = "SELECT u.rowid, u.pass, u.pass_crypted";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."user as u";
|
|
$resql = $db->query($sql);
|
|
if ($resql) {
|
|
$numrows = $db->num_rows($resql);
|
|
if ($numrows == 0) {
|
|
// Define default setup for password encryption
|
|
dolibarr_set_const($db, "DATABASE_PWD_ENCRYPTED", "1", 'chaine', 0, '', $conf->entity);
|
|
dolibarr_set_const($db, "MAIN_SECURITY_SALT", dol_print_date(dol_now(), 'dayhourlog'), 'chaine', 0, '', 0); // All entities
|
|
if (function_exists('password_hash')) {
|
|
dolibarr_set_const($db, "MAIN_SECURITY_HASH_ALGO", 'password_hash', 'chaine', 0, '', 0); // All entities
|
|
} else {
|
|
dolibarr_set_const($db, "MAIN_SECURITY_HASH_ALGO", 'sha1md5', 'chaine', 0, '', 0); // All entities
|
|
}
|
|
}
|
|
|
|
dolibarr_install_syslog('step5: DATABASE_PWD_ENCRYPTED = ' . getDolGlobalString('DATABASE_PWD_ENCRYPTED').' MAIN_SECURITY_HASH_ALGO = ' . getDolGlobalString('MAIN_SECURITY_HASH_ALGO'), LOG_INFO);
|
|
}
|
|
|
|
// Create user used to create the admin user
|
|
$createuser = new User($db);
|
|
$createuser->id = 0;
|
|
$createuser->admin = 1;
|
|
|
|
// Set admin user
|
|
$newuser = new User($db);
|
|
$newuser->lastname = 'SuperAdmin';
|
|
$newuser->firstname = '';
|
|
$newuser->login = $login;
|
|
$newuser->pass = $pass;
|
|
$newuser->admin = 1;
|
|
$newuser->entity = 0;
|
|
|
|
$conf->global->USER_MAIL_REQUIRED = 0; // Force global option to be sure to create a new user with no email
|
|
$conf->global->USER_PASSWORD_GENERATED = ''; // To not use any rule for password validation
|
|
|
|
$result = $newuser->create($createuser, 1);
|
|
if ($result > 0) {
|
|
print $langs->trans("AdminLoginCreatedSuccessfuly", $login)."<br>";
|
|
$success = 1;
|
|
} else {
|
|
if ($result == -6) { //login or email already exists
|
|
dolibarr_install_syslog('step5: AdminLoginAlreadyExists', LOG_WARNING);
|
|
print '<br><div class="warning">'.$newuser->error."</div><br>";
|
|
$success = 1;
|
|
} else {
|
|
dolibarr_install_syslog('step5: FailedToCreateAdminLogin '.$newuser->error, LOG_ERR);
|
|
setEventMessages($langs->trans("FailedToCreateAdminLogin").' '.$newuser->error, null, 'errors');
|
|
//header("Location: step4.php?error=3&selectlang=$setuplang".(isset($login) ? '&login='.$login : ''));
|
|
print '<br><div class="error">'.$langs->trans("FailedToCreateAdminLogin").': '.$newuser->error.'</div><br><br>';
|
|
print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
|
|
}
|
|
}
|
|
|
|
if ($success) {
|
|
// Insert MAIN_VERSION_FIRST_INSTALL in a dedicated transaction. So if it fails (when first install was already done), we can do other following requests.
|
|
$db->begin();
|
|
dolibarr_install_syslog('step5: set MAIN_VERSION_FIRST_INSTALL const to '.$targetversion, LOG_DEBUG);
|
|
$resql = $db->query("INSERT INTO ".MAIN_DB_PREFIX."const(name, value, type, visible, note, entity) values(".$db->encrypt('MAIN_VERSION_FIRST_INSTALL').", ".$db->encrypt($targetversion).", 'chaine', 0, 'Dolibarr version when first install', 0)");
|
|
if ($resql) {
|
|
$conf->global->MAIN_VERSION_FIRST_INSTALL = $targetversion;
|
|
$db->commit();
|
|
} else {
|
|
//if (! $resql) dol_print_error($db,'Error in setup program'); // We ignore errors. Key may already exists
|
|
$db->commit();
|
|
}
|
|
|
|
$db->begin();
|
|
|
|
dolibarr_install_syslog('step5: set MAIN_VERSION_LAST_INSTALL const to '.$targetversion, LOG_DEBUG);
|
|
$resql = $db->query("DELETE FROM ".MAIN_DB_PREFIX."const WHERE ".$db->decrypt('name')." = 'MAIN_VERSION_LAST_INSTALL'");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
$resql = $db->query("INSERT INTO ".MAIN_DB_PREFIX."const(name,value,type,visible,note,entity) values(".$db->encrypt('MAIN_VERSION_LAST_INSTALL').", ".$db->encrypt($targetversion).", 'chaine', 0, 'Dolibarr version when last install', 0)");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
$conf->global->MAIN_VERSION_LAST_INSTALL = $targetversion;
|
|
|
|
if ($useforcedwizard) {
|
|
dolibarr_install_syslog('step5: set MAIN_REMOVE_INSTALL_WARNING const to 1', LOG_DEBUG);
|
|
$resql = $db->query("DELETE FROM ".MAIN_DB_PREFIX."const WHERE ".$db->decrypt('name')." = 'MAIN_REMOVE_INSTALL_WARNING'");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
// The install.lock file is created few lines later if version is last one or if option MAIN_ALWAYS_CREATE_LOCK_AFTER_LAST_UPGRADE is on
|
|
/* No need to enable this
|
|
$resql = $db->query("INSERT INTO ".MAIN_DB_PREFIX."const(name,value,type,visible,note,entity) values(".$db->encrypt('MAIN_REMOVE_INSTALL_WARNING').", ".$db->encrypt(1).", 'chaine', 1, 'Disable install warnings', 0)");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
$conf->global->MAIN_REMOVE_INSTALL_WARNING = 1;
|
|
*/
|
|
}
|
|
|
|
// List of modules to enable
|
|
$tmparray = array();
|
|
|
|
// If we ask to force some modules to be enabled
|
|
if (!empty($force_install_module)) {
|
|
if (!defined('DOL_DOCUMENT_ROOT') && !empty($dolibarr_main_document_root)) {
|
|
define('DOL_DOCUMENT_ROOT', $dolibarr_main_document_root);
|
|
}
|
|
|
|
$tmparray = explode(',', $force_install_module);
|
|
}
|
|
|
|
$modNameLoaded = array();
|
|
|
|
// Search modules dirs
|
|
$modulesdir[] = $dolibarr_main_document_root.'/core/modules/';
|
|
|
|
foreach ($modulesdir as $dir) {
|
|
// Load modules attributes in arrays (name, numero, orders) from dir directory
|
|
//print $dir."\n<br>";
|
|
dol_syslog("Scan directory ".$dir." for module descriptor files (modXXX.class.php)");
|
|
$handle = @opendir($dir);
|
|
if (is_resource($handle)) {
|
|
while (($file = readdir($handle)) !== false) {
|
|
if (is_readable($dir.$file) && substr($file, 0, 3) == 'mod' && substr($file, dol_strlen($file) - 10) == '.class.php') {
|
|
$modName = substr($file, 0, dol_strlen($file) - 10);
|
|
if ($modName) {
|
|
if (!empty($modNameLoaded[$modName])) { // In cache of already loaded modules ?
|
|
$mesg = "Error: Module ".$modName." was found twice: Into ".$modNameLoaded[$modName]." and ".$dir.". You probably have an old file on your disk.<br>";
|
|
setEventMessages($mesg, null, 'warnings');
|
|
dol_syslog($mesg, LOG_ERR);
|
|
continue;
|
|
}
|
|
|
|
try {
|
|
$res = include_once $dir.$file; // A class already exists in a different file will send a non catchable fatal error.
|
|
if (class_exists($modName)) {
|
|
$objMod = new $modName($db);
|
|
$modNameLoaded[$modName] = $dir;
|
|
if (!empty($objMod->enabled_bydefault) && !in_array($file, $tmparray)) {
|
|
$tmparray[] = $file;
|
|
}
|
|
}
|
|
} catch (Exception $e) {
|
|
dol_syslog("Failed to load ".$dir.$file." ".$e->getMessage(), LOG_ERR);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// Loop on each modules to activate it
|
|
if (!empty($tmparray)) {
|
|
foreach ($tmparray as $modtoactivate) {
|
|
$modtoactivatenew = preg_replace('/\.class\.php$/i', '', $modtoactivate);
|
|
//print $langs->trans("ActivateModule", $modtoactivatenew).'<br>';
|
|
|
|
$file = $modtoactivatenew.'.class.php';
|
|
dolibarr_install_syslog('step5: activate module file='.$file);
|
|
$res = dol_include_once("/core/modules/".$file);
|
|
|
|
$res = activateModule($modtoactivatenew, 1);
|
|
if (!empty($res['errors'])) {
|
|
print 'ERROR: failed to activateModule() file='.$file;
|
|
}
|
|
}
|
|
//print '<br>';
|
|
}
|
|
|
|
// Now delete the flag that say installation is not complete
|
|
dolibarr_install_syslog('step5: remove MAIN_NOT_INSTALLED const');
|
|
$resql = $db->query("DELETE FROM ".MAIN_DB_PREFIX."const WHERE ".$db->decrypt('name')." = 'MAIN_NOT_INSTALLED'");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
|
|
// May fail if parameter already defined
|
|
dolibarr_install_syslog('step5: set the default language');
|
|
$resql = $db->query("INSERT INTO ".MAIN_DB_PREFIX."const(name,value,type,visible,note,entity) VALUES (".$db->encrypt('MAIN_LANG_DEFAULT').", ".$db->encrypt($setuplang).", 'chaine', 0, 'Default language', 1)");
|
|
//if (! $resql) dol_print_error($db,'Error in setup program');
|
|
|
|
$db->commit();
|
|
}
|
|
} else {
|
|
print $langs->trans("ErrorFailedToConnect")."<br>";
|
|
}
|
|
} elseif (empty($action) || preg_match('/upgrade/i', $action)) {
|
|
// If upgrade
|
|
if ($db->connected) {
|
|
$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;
|
|
|
|
// Define if we need to update the MAIN_VERSION_LAST_UPGRADE value in database
|
|
$tagdatabase = false;
|
|
if (!getDolGlobalString('MAIN_VERSION_LAST_UPGRADE')) {
|
|
$tagdatabase = true; // We don't know what it was before, so now we consider we are version choosed.
|
|
} else {
|
|
$mainversionlastupgradearray = preg_split('/[.-]/', $conf->global->MAIN_VERSION_LAST_UPGRADE);
|
|
$targetversionarray = preg_split('/[.-]/', $targetversion);
|
|
if (versioncompare($targetversionarray, $mainversionlastupgradearray) > 0) {
|
|
$tagdatabase = true;
|
|
}
|
|
}
|
|
|
|
if ($tagdatabase) {
|
|
dolibarr_install_syslog('step5: set MAIN_VERSION_LAST_UPGRADE const to value '.$targetversion);
|
|
$resql = $db->query("DELETE FROM ".MAIN_DB_PREFIX."const WHERE ".$db->decrypt('name')." = 'MAIN_VERSION_LAST_UPGRADE'");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
$resql = $db->query("INSERT INTO ".MAIN_DB_PREFIX."const(name, value, type, visible, note, entity) VALUES (".$db->encrypt('MAIN_VERSION_LAST_UPGRADE').", ".$db->encrypt($targetversion).", 'chaine', 0, 'Dolibarr version for last upgrade', 0)");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
$conf->global->MAIN_VERSION_LAST_UPGRADE = $targetversion;
|
|
} else {
|
|
dolibarr_install_syslog('step5: we run an upgrade to version '.$targetversion.' but database was already upgraded to ' . getDolGlobalString('MAIN_VERSION_LAST_UPGRADE').'. We keep MAIN_VERSION_LAST_UPGRADE as it is.');
|
|
|
|
// Force the delete of the flag that say installation is not complete
|
|
dolibarr_install_syslog('step5: remove MAIN_NOT_INSTALLED const after upgrade process (should not exists but this is a security)');
|
|
$resql = $db->query("DELETE FROM ".MAIN_DB_PREFIX."const WHERE ".$db->decrypt('name')." = 'MAIN_NOT_INSTALLED'");
|
|
if (!$resql) {
|
|
dol_print_error($db, 'Error in setup program');
|
|
}
|
|
}
|
|
} else {
|
|
print $langs->trans("ErrorFailedToConnect")."<br>";
|
|
}
|
|
} else {
|
|
dol_print_error('', 'step5.php: unknown choice of action');
|
|
}
|
|
|
|
$db->close();
|
|
}
|
|
|
|
|
|
|
|
// Create lock file
|
|
|
|
// If first install
|
|
if ($action == "set") {
|
|
if ($success) {
|
|
if (!getDolGlobalString('MAIN_VERSION_LAST_UPGRADE') || ($conf->global->MAIN_VERSION_LAST_UPGRADE == DOL_VERSION)) {
|
|
// Install is finished (database is on same version than files)
|
|
print '<br>'.$langs->trans("SystemIsInstalled")."<br>";
|
|
|
|
// Create install.lock file
|
|
// No need for the moment to create it automatically, creation by web assistant means permissions are given
|
|
// to the web user, it is better to show a warning to say to create it manually with correct user/permission (not erasable by a web process)
|
|
$createlock = 0;
|
|
if (!empty($force_install_lockinstall) || getDolGlobalString('MAIN_ALWAYS_CREATE_LOCK_AFTER_LAST_UPGRADE')) {
|
|
// Install is finished, we create the "install.lock" file, so install won't be possible anymore.
|
|
// TODO Upgrade will be still be possible if a file "upgrade.unlock" is present
|
|
$lockfile = DOL_DATA_ROOT.'/install.lock';
|
|
$fp = @fopen($lockfile, "w");
|
|
if ($fp) {
|
|
if (empty($force_install_lockinstall) || $force_install_lockinstall == 1) {
|
|
$force_install_lockinstall = '444'; // For backward compatibility
|
|
}
|
|
fwrite($fp, "This is a lock file to prevent use of install or upgrade pages (set with permission ".$force_install_lockinstall.")");
|
|
fclose($fp);
|
|
dolChmod($lockfile, $force_install_lockinstall);
|
|
|
|
$createlock = 1;
|
|
}
|
|
}
|
|
if (empty($createlock)) {
|
|
print '<div class="warning">'.$langs->trans("WarningRemoveInstallDir")."</div>";
|
|
}
|
|
|
|
print "<br>";
|
|
|
|
print $langs->trans("YouNeedToPersonalizeSetup")."<br><br><br>";
|
|
|
|
print '<div class="center">> <a href="../admin/index.php?mainmenu=home&leftmenu=setup'.(isset($login) ? '&username='.urlencode($login) : '').'">';
|
|
print '<span class="fas fa-external-link-alt"></span> '.$langs->trans("GoToSetupArea");
|
|
print '</a></div><br>';
|
|
} else {
|
|
// If here MAIN_VERSION_LAST_UPGRADE is not empty
|
|
print $langs->trans("VersionLastUpgrade").': <b><span class="ok">' . getDolGlobalString('MAIN_VERSION_LAST_UPGRADE').'</span></b><br>';
|
|
print $langs->trans("VersionProgram").': <b><span class="ok">'.DOL_VERSION.'</span></b><br>';
|
|
print $langs->trans("MigrationNotFinished").'<br>';
|
|
print "<br>";
|
|
|
|
print '<div class="center"><a href="'.$dolibarr_main_url_root.'/install/index.php">';
|
|
print '<span class="fas fa-link-alt"></span> '.$langs->trans("GoToUpgradePage");
|
|
print '</a></div>';
|
|
}
|
|
}
|
|
} elseif (empty($action) || preg_match('/upgrade/i', $action)) {
|
|
// If upgrade
|
|
if (!getDolGlobalString('MAIN_VERSION_LAST_UPGRADE') || ($conf->global->MAIN_VERSION_LAST_UPGRADE == DOL_VERSION)) {
|
|
// Upgrade is finished (database is on the same version than files)
|
|
print '<img class="valignmiddle inline-block paddingright" src="../theme/common/octicons/build/svg/checklist.svg" width="20" alt="Configuration">';
|
|
print ' <span class="valignmiddle">'.$langs->trans("SystemIsUpgraded")."</span><br>";
|
|
|
|
// Create install.lock file if it does not exists.
|
|
// Note: it should always exists. A better solution to allow upgrade will be to add an upgrade.unlock file
|
|
$createlock = 0;
|
|
if (!empty($force_install_lockinstall) || getDolGlobalString('MAIN_ALWAYS_CREATE_LOCK_AFTER_LAST_UPGRADE')) {
|
|
// Upgrade is finished, we modify the lock file
|
|
$lockfile = DOL_DATA_ROOT.'/install.lock';
|
|
$fp = @fopen($lockfile, "w");
|
|
if ($fp) {
|
|
if (empty($force_install_lockinstall) || $force_install_lockinstall == 1) {
|
|
$force_install_lockinstall = '444'; // For backward compatibility
|
|
}
|
|
fwrite($fp, "This is a lock file to prevent use of install or upgrade pages (set with permission ".$force_install_lockinstall.")");
|
|
fclose($fp);
|
|
dolChmod($lockfile, $force_install_lockinstall);
|
|
|
|
$createlock = 1;
|
|
}
|
|
}
|
|
if (empty($createlock)) {
|
|
print '<br><div class="warning">'.$langs->trans("WarningRemoveInstallDir")."</div>";
|
|
}
|
|
|
|
// Delete the upgrade.unlock file it it exists
|
|
$unlockupgradefile = DOL_DATA_ROOT.'/upgrade.unlock';
|
|
dol_delete_file($unlockupgradefile, 0, 0, 0, null, false, 0);
|
|
|
|
print "<br>";
|
|
|
|
$morehtml = '<br><div class="center"><a href="../index.php?mainmenu=home'.(isset($login) ? '&username='.urlencode($login) : '').'">';
|
|
$morehtml .= '<span class="fas fa-link-alt"></span> '.$langs->trans("GoToDolibarr").'...';
|
|
$morehtml .= '</a></div><br>';
|
|
} else {
|
|
// If here MAIN_VERSION_LAST_UPGRADE is not empty
|
|
print $langs->trans("VersionLastUpgrade").': <b><span class="ok">' . getDolGlobalString('MAIN_VERSION_LAST_UPGRADE').'</span></b><br>';
|
|
print $langs->trans("VersionProgram").': <b><span class="ok">'.DOL_VERSION.'</span></b>';
|
|
|
|
print "<br>";
|
|
|
|
$morehtml = '<br><div class="center"><a href="../install/index.php">';
|
|
$morehtml .= '<span class="fas fa-link-alt"></span> '.$langs->trans("GoToUpgradePage");
|
|
$morehtml .= '</a></div>';
|
|
}
|
|
} else {
|
|
dol_print_error('', 'step5.php: unknown choice of action='.$action.' in create lock file seaction');
|
|
}
|
|
|
|
// Clear cache files
|
|
clearstatcache();
|
|
|
|
$ret = 0;
|
|
if ($error && isset($argv[1])) {
|
|
$ret = 1;
|
|
}
|
|
dolibarr_install_syslog("Exit ".$ret);
|
|
|
|
dolibarr_install_syslog("--- step5: Dolibarr setup finished");
|
|
|
|
pFooter(1, $setuplang, '', 0, $morehtml);
|
|
|
|
// Return code if ran from command line
|
|
if ($ret) {
|
|
exit($ret);
|
|
}
|