mirror of
https://github.com/Dolibarr/dolibarr.git
synced 2025-12-09 19:18:22 +01:00
496 lines
17 KiB
PHP
496 lines
17 KiB
PHP
<?php
|
||
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2007 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
*
|
||
* 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.
|
||
*/
|
||
|
||
/**
|
||
\file htdocs/install/etape2.php
|
||
\ingroup install
|
||
\brief Cree les tables, cles primaires, cles etrangeres, index et fonctions en base puis charge les donnees de reference
|
||
\version $Id$
|
||
*/
|
||
|
||
include("./inc.php");
|
||
require_once($dolibarr_main_document_root."/lib/databases/".$dolibarr_main_db_type.".lib.php");
|
||
require_once($dolibarr_main_document_root."/conf/conf.class.php");
|
||
require_once($dolibarr_main_document_root."/lib/admin.lib.php");
|
||
|
||
$etape = 2;
|
||
$ok = 0;
|
||
|
||
|
||
// Cette page peut etre longue. On augmente le delai autorise.
|
||
// Ne fonctionne que si on est pas en safe_mode.
|
||
$err=error_reporting();
|
||
error_reporting(0);
|
||
@set_time_limit(180);
|
||
error_reporting($err);
|
||
|
||
$setuplang=isset($_POST["selectlang"])?$_POST["selectlang"]:(isset($_GET["selectlang"])?$_GET["selectlang"]:'auto');
|
||
$langs->setDefaultLang($setuplang);
|
||
|
||
$langs->load("admin");
|
||
$langs->load("install");
|
||
|
||
if ($dolibarr_main_db_type == "mysql") $choix=1;
|
||
if ($dolibarr_main_db_type == "mysqli") $choix=1;
|
||
if ($dolibarr_main_db_type == "pgsql") $choix=2;
|
||
if ($dolibarr_main_db_type == "mssql") $choix=3;
|
||
|
||
// Init "forced values" to nothing. "forced values" are used after an doliwamp install wizard.
|
||
if (file_exists("./install.forced.php")) include_once("./install.forced.php");
|
||
|
||
dolibarr_install_syslog("etape2: Entering etape2.php page");
|
||
|
||
|
||
/*
|
||
* View
|
||
*/
|
||
|
||
pHeader($langs->trans("CreateDatabaseObjects"),"etape4");
|
||
|
||
|
||
if ($_POST["action"] == "set")
|
||
{
|
||
print '<h3>'.$langs->trans("Database").'</h3>';
|
||
|
||
print '<table cellspacing="0" cellpadding="4" border="0" width="100%">';
|
||
$error=0;
|
||
|
||
$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)
|
||
{
|
||
print "<tr><td>";
|
||
print $langs->trans("ServerConnection")." : $dolibarr_main_db_host</td><td>".$langs->trans("OK")."</td></tr>";
|
||
$ok = 1 ;
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>Erreur lors de la creation de : $dolibarr_main_db_name</td><td>".$langs->trans("Error")."</td></tr>";
|
||
}
|
||
|
||
if ($ok)
|
||
{
|
||
if($db->database_selected == 1)
|
||
{
|
||
|
||
dolibarr_install_syslog("etape2: Connexion reussie e la base : $dolibarr_main_db_name");
|
||
}
|
||
else
|
||
{
|
||
$ok = 0 ;
|
||
}
|
||
}
|
||
|
||
|
||
// Affiche version
|
||
if ($ok)
|
||
{
|
||
$version=$db->getVersion();
|
||
$versionarray=$db->getVersionArray();
|
||
print '<tr><td>'.$langs->trans("DatabaseVersion").'</td>';
|
||
print '<td>'.$version.'</td></tr>';
|
||
//print '<td align="right">'.join('.',$versionarray).'</td></tr>';
|
||
}
|
||
|
||
$requestnb=0;
|
||
|
||
/**************************************************************************************
|
||
*
|
||
* Chargement fichiers tables/*.sql (non *.key.sql)
|
||
* A faire avant les fichiers *.key.sql
|
||
*
|
||
***************************************************************************************/
|
||
if ($ok)
|
||
{
|
||
if ($choix==1) $dir = "../../mysql/tables/";
|
||
elseif ($choix==2) $dir = "../../pgsql/tables/";
|
||
elseif ($choix==3) $dir = "../../mssql/tables/";
|
||
|
||
$ok = 0;
|
||
$handle=opendir($dir);
|
||
dolibarr_install_syslog("Ouverture repertoire ".$dir." handle=".$handle,LOG_DEBUG);
|
||
$tablefound = 0;
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (eregi('\.sql$',$file) && eregi('^llx_',$file) && ! eregi('\.key\.sql$',$file))
|
||
{
|
||
$tablefound++;
|
||
|
||
$name = substr($file, 0, strlen($file) - 4);
|
||
$buffer = '';
|
||
$fp = fopen($dir.$file,"r");
|
||
if ($fp)
|
||
{
|
||
while (!feof ($fp))
|
||
{
|
||
$buf = fgets($fp, 4096);
|
||
if (substr($buf, 0, 2) <> '--')
|
||
{
|
||
$buffer .= $buf;
|
||
}
|
||
}
|
||
fclose($fp);
|
||
|
||
$buffer=trim($buffer);
|
||
|
||
//print "<tr><td>Creation de la table $name/td>";
|
||
$requestnb++;
|
||
if ($character_set_client=="UTF-8"){
|
||
$buffer=utf8_encode ($buffer);
|
||
}
|
||
|
||
dolibarr_install_syslog("Request: ".$buffer,LOG_DEBUG);
|
||
if ($db->query($buffer))
|
||
{
|
||
// print "<td>OK requete ==== $buffer</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
if ($db->errno() == 'DB_ERROR_TABLE_ALREADY_EXISTS')
|
||
{
|
||
//print "<td>Deja existante</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>".$langs->trans("CreateTableAndPrimaryKey",$name);
|
||
print "<br>".$langs->trans("Request").' '.$requestnb.' : '.$buffer;
|
||
print "</td>";
|
||
print "<td>".$langs->trans("Error")." ".$db->errno()." ".$db->error()."</td></tr>";
|
||
$error++;
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>".$langs->trans("CreateTableAndPrimaryKey",$name);
|
||
print "</td>";
|
||
print "<td>".$langs->trans("Error")." Failed to open file ".$dir.$file."</td></tr>";
|
||
$error++;
|
||
dolibarr_install_syslog("Failed to open file ".$dir.$file,LOG_ERR);
|
||
}
|
||
}
|
||
}
|
||
closedir($handle);
|
||
|
||
if ($tablefound)
|
||
{
|
||
if ($error == 0)
|
||
{
|
||
print '<tr><td>';
|
||
print $langs->trans("TablesAndPrimaryKeysCreation").'</td><td>'.$langs->trans("OK").'</td></tr>';
|
||
$ok = 1;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>".$langs->trans("ErrorFailedToFindSomeFiles",$dir)."</td><td>".$langs->trans("Error")."</td></tr>";
|
||
dolibarr_install_syslog("Failed to find files to create database in directory ".$dir,LOG_ERR);
|
||
}
|
||
}
|
||
|
||
|
||
/***************************************************************************************
|
||
*
|
||
* Chargement fichiers tables/*.key.sql
|
||
* A faire apres les fichiers *.sql
|
||
*
|
||
***************************************************************************************/
|
||
if ($ok)
|
||
{
|
||
if ($choix==1) $dir = "../../mysql/tables/";
|
||
elseif ($choix==2) $dir = "../../pgsql/tables/";
|
||
elseif ($choix==3) $dir = "../../mssql/tables/";
|
||
|
||
$okkeys = 0;
|
||
$handle=opendir($dir);
|
||
dolibarr_install_syslog("Ouverture repertoire ".$dir." handle=".$handle,LOG_DEBUG);
|
||
while (($file = readdir($handle))!==false)
|
||
{
|
||
if (eregi('\.sql$',$file) && eregi('^llx_',$file) && eregi('\.key\.sql$',$file))
|
||
{
|
||
$name = substr($file, 0, strlen($file) - 4);
|
||
//print "<tr><td>Creation de la table $name</td>";
|
||
$buffer = '';
|
||
$fp = fopen($dir.$file,"r");
|
||
if ($fp)
|
||
{
|
||
while (!feof ($fp))
|
||
{
|
||
$buf = fgets($fp, 4096);
|
||
|
||
// Cas special de lignes autorisees pour certaines versions uniquement
|
||
if (eregi('^-- V([0-9\.]+)',$buf,$reg))
|
||
{
|
||
$versioncommande=split('\.',$reg[1]);
|
||
//print var_dump($versioncommande);
|
||
//print var_dump($versionarray);
|
||
if (sizeof($versioncommande) && sizeof($versionarray)
|
||
&& versioncompare($versioncommande,$versionarray) <= 0)
|
||
{
|
||
// Version qualified, delete SQL comments
|
||
$buf=eregi_replace('^-- V([0-9\.]+)','',$buf);
|
||
//print "Ligne $i qualifiee par version: ".$buf.'<br>';
|
||
}
|
||
}
|
||
|
||
// Ajout ligne si non commentaire
|
||
if (! eregi('^--',$buf)) $buffer .= $buf;
|
||
}
|
||
fclose($fp);
|
||
|
||
// Si plusieurs requetes, on boucle sur chaque
|
||
$listesql=split(';',$buffer);
|
||
foreach ($listesql as $req)
|
||
{
|
||
$buffer=trim($req);
|
||
if ($buffer)
|
||
{
|
||
//print "<tr><td>Creation des cles et index de la table $name: '$buffer'</td>";
|
||
$requestnb++;
|
||
if ($character_set_client=="UTF-8"){
|
||
$buffer=utf8_encode ($buffer);
|
||
}
|
||
|
||
dolibarr_install_syslog("Request: ".$buffer,LOG_DEBUG);
|
||
if ($db->query($buffer))
|
||
{
|
||
//print "<td>OK requete ==== $buffer</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
if ($db->errno() == 'DB_ERROR_KEY_NAME_ALREADY_EXISTS' ||
|
||
$db->errno() == 'DB_ERROR_CANNOT_CREATE' ||
|
||
$db->errno() == 'DB_ERROR_PRIMARY_KEY_ALREADY_EXISTS' ||
|
||
eregi('duplicate key name',$db->error()))
|
||
{
|
||
//print "<td>Deja existante</td></tr>";
|
||
$key_exists = 1;
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>".$langs->trans("CreateOtherKeysForTable",$name);
|
||
print "<br>".$langs->trans("Request").' '.$requestnb.' : '.$buffer;
|
||
print "</td>";
|
||
print "<td>".$langs->trans("Error")." ".$db->errno()." ".$db->error()."</td></tr>";
|
||
$error++;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>".$langs->trans("CreateOtherKeysForTable",$name);
|
||
print "</td>";
|
||
print "<td>".$langs->trans("Error")." Failed to open file ".$dir.$file."</td></tr>";
|
||
$error++;
|
||
dolibarr_install_syslog("Failed to open file ".$dir.$file,LOG_ERR);
|
||
}
|
||
}
|
||
|
||
}
|
||
closedir($handle);
|
||
|
||
if ($error == 0)
|
||
{
|
||
print '<tr><td>';
|
||
print $langs->trans("OtherKeysCreation").'</td><td>'.$langs->trans("OK").'</td></tr>';
|
||
$okkeys = 1;
|
||
}
|
||
}
|
||
|
||
|
||
/***************************************************************************************
|
||
*
|
||
* Chargement fichier functions.sql
|
||
*
|
||
***************************************************************************************/
|
||
if ($ok)
|
||
{
|
||
if ($choix==1) $dir = "../../mysql/functions/";
|
||
elseif ($choix==2) $dir = "../../pgsql/functions/";
|
||
elseif ($choix==3) $dir = "../../mssql/functions/";
|
||
|
||
// Creation donnees
|
||
$file = "functions.sql";
|
||
if (file_exists($dir.$file)) {
|
||
$fp = fopen($dir.$file,"r");
|
||
if ($fp)
|
||
{
|
||
while (!feof ($fp))
|
||
{
|
||
$buffer = fgets($fp, 4096);
|
||
if (substr($buf, 0, 2) <> '--')
|
||
{
|
||
$buffer .= $buf;
|
||
}
|
||
}
|
||
fclose($fp);
|
||
}
|
||
|
||
// Si plusieurs requetes, on boucle sur chaque
|
||
$listesql=split('<27>',eregi_replace(";';",";'<27>",$buffer));
|
||
foreach ($listesql as $buffer) {
|
||
if (trim($buffer)) {
|
||
|
||
if ($db->query(trim($buffer)))
|
||
{
|
||
$ok = 1;
|
||
}
|
||
else
|
||
{
|
||
if ($db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
|
||
{
|
||
// print "<tr><td>Insertion ligne : $buffer</td><td>
|
||
}
|
||
else
|
||
{
|
||
$ok = 0;
|
||
print $langs->trans("ErrorSQL")." : ".$db->errno()." - '$buffer' - ".$db->error()."<br>";
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
print "<tr><td>".$langs->trans("FunctionsCreation")."</td>";
|
||
if ($ok)
|
||
{
|
||
print "<td>".$langs->trans("OK")."</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<td>".$langs->trans("Error")."</td></tr>";
|
||
$ok = 1 ;
|
||
}
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/***************************************************************************************
|
||
*
|
||
* Chargement fichier data.sql
|
||
*
|
||
***************************************************************************************/
|
||
if ($ok)
|
||
{
|
||
if ($choix==1) $dir = "../../mysql/data/";
|
||
elseif ($choix==2) $dir = "../../pgsql/data/";
|
||
elseif ($choix==3) $dir = "../../mssql/data/";
|
||
|
||
// Creation donnees
|
||
$file = "data.sql";
|
||
$fp = fopen($dir.$file,"r");
|
||
if ($fp)
|
||
{
|
||
while (!feof ($fp))
|
||
{
|
||
$buffer = fgets($fp, 4096);
|
||
//print "<tr><td>Insertion ligne : $buffer</td><td>";
|
||
if (strlen(trim(ereg_replace("--","",$buffer))))
|
||
{
|
||
if ($db->query($buffer))
|
||
{
|
||
$ok = 1;
|
||
}
|
||
else
|
||
{
|
||
if ($db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
|
||
{
|
||
//print "<tr><td>Insertion ligne : $buffer</td><td>";
|
||
}
|
||
else
|
||
{
|
||
$ok = 0;
|
||
print $langs->trans("ErrorSQL")." : ".$db->errno()." - '$buffer' - ".$db->error()."<br>";
|
||
}
|
||
}
|
||
}
|
||
}
|
||
fclose($fp);
|
||
}
|
||
|
||
print "<tr><td>".$langs->trans("ReferenceDataLoading")."</td>";
|
||
if ($ok)
|
||
{
|
||
print "<td>".$langs->trans("OK")."</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<td>".$langs->trans("Error")."</td></tr>";
|
||
$ok = 1 ;
|
||
}
|
||
}
|
||
|
||
|
||
/***************************************************************************************
|
||
*
|
||
* Les variables qui ecrase le chemin par defaut sont redefinies
|
||
*
|
||
***************************************************************************************/
|
||
if ($ok == 1)
|
||
{
|
||
$sql[0] = "UPDATE llx_const SET value = '".$dolibarr_main_data_root."/facture',
|
||
type = 'chaine',
|
||
visible = 0
|
||
where name ='FAC_OUTPUTDIR';" ;
|
||
|
||
$sql[1] = "UPDATE llx_const SET value = '".$dolibarr_main_data_root."/propale',
|
||
type = 'chaine',
|
||
visible = 0
|
||
where name = 'PROPALE_OUTPUTDIR';" ;
|
||
|
||
$sql[2] = "UPDATE llx_const SET value = '".$dolibarr_main_data_root."/ficheinter',
|
||
type = 'chaine',
|
||
visible = 0
|
||
where name = 'FICHEINTER_OUTPUTDIR';" ;
|
||
|
||
$sql[3] = "UPDATE llx_const SET value='".$dolibarr_main_data_root."/societe',
|
||
type = 'chaine',
|
||
visible = 0
|
||
where name = 'SOCIETE_OUTPUTDIR';" ;
|
||
|
||
$sql[4] = "DELETE from llx_const where name like '%_OUTPUT_URL';";
|
||
|
||
|
||
$sql[5] = "UPDATE llx_const SET value='".$langs->defaultlang."',
|
||
type = 'chaine',
|
||
visible = 0
|
||
where name = 'MAIN_LANG_DEFAULT';" ;
|
||
|
||
$result = 0;
|
||
|
||
for ($i=0; $i < sizeof($sql);$i++)
|
||
{
|
||
if ($db->query($sql[$i]))
|
||
{
|
||
$result++;
|
||
}
|
||
}
|
||
|
||
}
|
||
|
||
print '</table>';
|
||
|
||
$db->close();
|
||
}
|
||
|
||
pFooter(!$ok,$setuplang);
|
||
|
||
?>
|