323 lines
10 KiB
PHP
323 lines
10 KiB
PHP
<?PHP
|
||
/* Copyright (C) 2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004 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.
|
||
*
|
||
* $Id$
|
||
* $Source$
|
||
*
|
||
*/
|
||
|
||
include("./inc.php");
|
||
pHeader("Fichier de configuration","etape2");
|
||
|
||
$etape = 1;
|
||
|
||
$conffile = "../conf/conf.php";
|
||
|
||
if ($HTTP_POST_VARS["action"] == "set")
|
||
{
|
||
umask(0);
|
||
print '<h2>Enregistrement des valeurs</h2>';
|
||
|
||
print '<table cellspacing="0" width="100%" cellpadding="4" border="0">';
|
||
$error=0;
|
||
$fp = fopen("$conffile", "w");
|
||
if($fp)
|
||
{
|
||
if (substr($HTTP_POST_VARS["main_dir"], strlen($HTTP_POST_VARS["main_dir"]) -1) == "/")
|
||
{
|
||
$HTTP_POST_VARS["main_dir"] = substr($HTTP_POST_VARS["main_dir"], 0, strlen($HTTP_POST_VARS["main_dir"])-1);
|
||
}
|
||
|
||
if (substr($HTTP_POST_VARS["main_url"], strlen($HTTP_POST_VARS["main_url"]) -1) == "/")
|
||
{
|
||
$HTTP_POST_VARS["main_url"] = substr($HTTP_POST_VARS["main_url"], 0, strlen($HTTP_POST_VARS["main_url"])-1);
|
||
}
|
||
|
||
clearstatcache();
|
||
|
||
fwrite($fp, '<?PHP');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_document_root="'.$HTTP_POST_VARS["main_dir"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_url_root="'.$HTTP_POST_VARS["main_url"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_db_host="'.$HTTP_POST_VARS["db_host"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_db_name="'.$HTTP_POST_VARS["db_name"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_db_user="'.$HTTP_POST_VARS["db_user"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '$dolibarr_main_db_pass="'.$HTTP_POST_VARS["db_pass"].'";');
|
||
fputs($fp,"\n");
|
||
|
||
fputs($fp, '?>');
|
||
fclose($fp);
|
||
|
||
if (file_exists("$conffile"))
|
||
{
|
||
include ("$conffile");
|
||
print "<tr><td>Configuration enregistr<74>e</td><td>OK</td>";
|
||
$error = 0;
|
||
}
|
||
else
|
||
{
|
||
$error = 1;
|
||
}
|
||
}
|
||
|
||
/***************************************************************************
|
||
*
|
||
* Creation des r<>pertoires
|
||
*
|
||
***************************************************************************/
|
||
|
||
if ($error == 0)
|
||
{
|
||
$dir[0] = $HTTP_POST_VARS["main_dir"]."/document/facture";
|
||
$dir[1] = $HTTP_POST_VARS["main_dir"]."/document/propale";
|
||
$dir[2] = $HTTP_POST_VARS["main_dir"]."/document/societe";
|
||
$dir[3] = $HTTP_POST_VARS["main_dir"]."/document/ficheinter";
|
||
$dir[4] = $HTTP_POST_VARS["main_dir"]."/document/produit";
|
||
$dir[5] = $HTTP_POST_VARS["main_dir"]."/document/images";
|
||
$dir[6] = $HTTP_POST_VARS["main_dir"]."/document/rapport";
|
||
|
||
if (! is_dir($HTTP_POST_VARS["main_dir"]))
|
||
{
|
||
print "<tr><td>Le dossier ".$HTTP_POST_VARS["main_dir"]." n'existe pas !</td><td>Erreur</td></tr>";
|
||
$error++;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog ("Le dossier ".$HTTP_POST_VARS["main_dir"]." existe");
|
||
/*
|
||
* R<>pertoire des documents
|
||
*/
|
||
if (! is_dir($HTTP_POST_VARS["main_dir"]."/document"))
|
||
{
|
||
@mkdir($HTTP_POST_VARS["main_dir"]."/document", 0755);
|
||
}
|
||
|
||
|
||
if (! is_dir($HTTP_POST_VARS["main_dir"]."/document"))
|
||
{
|
||
print "<tr><td>Le dossier ".$HTTP_POST_VARS["main_dir"]."/document n'existe pas !<p>";
|
||
print "- Vous devez cr<63>er le dossier : <b>".$HTTP_POST_VARS["main_dir"]."/document</b> et permettre au serveur web d'<27>crire dans celui-ci";
|
||
print '</td><td bgcolor="red">Erreur</td></tr>';
|
||
$error++;
|
||
}
|
||
else
|
||
{
|
||
for ($i = 0 ; $i < sizeof($dir) ; $i++)
|
||
{
|
||
if (is_dir($dir[$i]))
|
||
{
|
||
dolibarr_syslog ("Le dossier ".$dir[$i]." existe");
|
||
}
|
||
else
|
||
{
|
||
if (! @mkdir($dir[$i], 0755))
|
||
{
|
||
print "<tr><td>Impossible de cr<63>er : ".$dir[$i]."</td><td bgcolor=\"red\">Erreur</td></tr>";
|
||
$error++;
|
||
}
|
||
else
|
||
{
|
||
dolibarr_syslog ("Le dossier ".$dir[$i]." create ok");
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
/*
|
||
* Base de donn<6E>es
|
||
*
|
||
*/
|
||
if ($error == 0)
|
||
{
|
||
require ($dolibarr_main_document_root . "/lib/mysql.lib.php");
|
||
require ($dolibarr_main_document_root . "/conf/conf.class.php");
|
||
|
||
// TODO
|
||
// Il y a encore des pb ds la proc<6F>dure d'install qui ne passe dans pas tous les cas
|
||
// (exemple, rien n'existe et on veut cr<63>e une base avec un compte admin != root)
|
||
// L'algorithme ne semble pas adapt<70> <20> tous les cas, il devrait etre remplac<61> par le suivant:
|
||
//
|
||
// On essaie l'acc<63>s par le user admin dolibarr
|
||
// si acc<63>s serveur ok et acc<63>s base ok, tout est ok, on ne va pas plus loin, on a m<>me pas utilis<69> le compte root.
|
||
// si acc<63>s serveur ok et acc<63>s base ko, warning 1
|
||
// si acc<63>s serveur ko, warning 2
|
||
// Si warning, on essai de se connecter au serveur via le super user root
|
||
// Si connexion serveur par root ok et acc<63>s base ko, on la cr<63><72>e
|
||
// Si cr<63>ation ok, on y acc<63>de
|
||
// Si cr<63>ation ko, erreur
|
||
// Si connexion serveur par root ok et si acc<63>s base ok,
|
||
// si compte admin existe deja et db_create_user positionn<6E>, on ajoute les droits,
|
||
// si compte admin existe deja et db_create_user non positionn<6E>, erreur compte admin incorrect "Le compte admin indiqu<71> existe mais n'a pas les droits sur la base. Veuillez cocher pour les ajouter"
|
||
// si compte admin n'existe pas deja et db_create_user positionn<6E>, on cr<63>e le compte
|
||
// si compte admin n'existe pas deja et db_create_user non positionn<6E>, erreur compte admin inexistant "Veuillez cocher pour le cr<63>er"
|
||
|
||
// Si creation utilisateur admin demand<6E>e, on le cr<63>e
|
||
if (isset($HTTP_POST_VARS["db_create_user"]) && $HTTP_POST_VARS["db_create_user"] == "on")
|
||
{
|
||
$conf = new Conf();
|
||
$conf->db->host = $dolibarr_main_db_host;
|
||
$conf->db->name = "mysql";
|
||
$conf->db->user = isset($HTTP_POST_VARS["db_user_root"])?$HTTP_POST_VARS["db_user_root"]:"";
|
||
$conf->db->pass = isset($HTTP_POST_VARS["db_pass_root"])?$HTTP_POST_VARS["db_pass_root"]:"";
|
||
//print $conf->db->host." , ".$conf->db->name." , ".$conf->db->user." , ".$conf->db->pass;
|
||
$db = new DoliDb();
|
||
|
||
$sql = "INSERT INTO user ";
|
||
$sql .= "(Host,User,password)";
|
||
$sql .= " VALUES ('$dolibarr_main_db_host','$dolibarr_main_db_user',password('$dolibarr_main_db_pass'))";
|
||
|
||
$db->query($sql);
|
||
|
||
$sql = "INSERT INTO db ";
|
||
$sql .= "(Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Index_Priv,Alter_priv)";
|
||
$sql .= " VALUES ('$dolibarr_main_db_host','$dolibarr_main_db_name','$dolibarr_main_db_user'";
|
||
$sql .= ",'Y','Y','Y','Y','Y','Y','Y','Y')";
|
||
|
||
if ($db->query($sql))
|
||
{
|
||
|
||
$db->query("flush privileges");
|
||
|
||
print "<tr><td>Cr<43>ation de l'utilisateur : $dolibarr_main_db_user</td><td>OK</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
if ($db->errno() == 1062)
|
||
{
|
||
print "<tr><td>Cr<43>ation de l'utilisateur : $dolibarr_main_db_user</td><td>Deja existant</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>Cr<43>ation de l'utilisateur : $dolibarr_main_db_user</td><td>ERREUR ".$db->error()."</td></tr>";
|
||
}
|
||
}
|
||
|
||
$db->close();
|
||
}
|
||
|
||
// Tentative acc<63>s serveur et base par le user admin dolibarr
|
||
$conf = new Conf();
|
||
$conf->db->host = $dolibarr_main_db_host;
|
||
$conf->db->name = $dolibarr_main_db_name;
|
||
$conf->db->user = $dolibarr_main_db_user;
|
||
$conf->db->pass = $dolibarr_main_db_pass;
|
||
//print "$dolibarr_main_db_host,$dolibarr_main_db_user,$dolibarr_main_db_pass,$dolibarr_main_db_name";
|
||
$db = new DoliDb();
|
||
$ok = 1;
|
||
|
||
if ($ok)
|
||
{
|
||
if ($db->connected == 1)
|
||
{
|
||
print "<tr><td>Connexion au serveur : $dolibarr_main_db_host</td><td>OK</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>Connexion au serveur : $dolibarr_main_db_host</td><td>ERREUR</td></tr>";
|
||
$ok = 0;
|
||
}
|
||
}
|
||
|
||
if ($ok)
|
||
{
|
||
if($db->database_selected == 1)
|
||
{
|
||
//
|
||
// Connexion base existante
|
||
//
|
||
print "<tr><td>Connexion <20> la base : $dolibarr_main_db_name</td><td>OK</td></tr>";
|
||
|
||
$ok = 1 ;
|
||
}
|
||
else
|
||
{
|
||
//
|
||
// Cr<43>ation de la base
|
||
//
|
||
print "<tr><td>Echec de connexion <20> la base : $dolibarr_main_db_name</td><td>Warning</td></tr>";
|
||
print '<tr><td colspan="2">Cr<43>ation de la base : '.$dolibarr_main_db_name.'</td></tr>';
|
||
|
||
$db->close();
|
||
$conf = new Conf();
|
||
$conf->db->host = $dolibarr_main_db_host;
|
||
$conf->db->name = "mysql";
|
||
$conf->db->user = isset($HTTP_POST_VARS["db_user_root"])?$HTTP_POST_VARS["db_user_root"]:"";
|
||
$conf->db->pass = isset($HTTP_POST_VARS["db_pass_root"])?$HTTP_POST_VARS["db_pass_root"]:"";
|
||
$db = new DoliDb();
|
||
|
||
if ($ok)
|
||
{
|
||
if ($db->connected == 1)
|
||
{
|
||
print "<tr><td>Connexion au serveur : $dolibarr_main_db_host avec l'utilisateur : ".$HTTP_POST_VARS["db_user_root"]."</td><td>OK</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>Connexion au serveur : $dolibarr_main_db_host avec l'utilisateur : ".$HTTP_POST_VARS["db_user_root"]."</td><td>ERREUR</td></tr>";
|
||
$ok = 0;
|
||
}
|
||
}
|
||
|
||
if ($ok)
|
||
{
|
||
if($db->database_selected == 1)
|
||
{
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>V<>rification des droits de cr<63>ation</td><td>ERREUR</td></tr>";
|
||
print '<tr><td colspna="2">-- Droits insuffissant</td></tr>';
|
||
$ok = 0;
|
||
}
|
||
}
|
||
|
||
if ($ok)
|
||
{
|
||
if ($db->create_db ($dolibarr_main_db_name))
|
||
{
|
||
print "<tr><td>Cr<43>ation de la base : $dolibarr_main_db_name</td><td>OK</td></tr>";
|
||
}
|
||
else
|
||
{
|
||
print "<tr><td>Cr<43>ation de la base : $dolibarr_main_db_name</td><td>ERREUR</td></tr>";
|
||
$ok = 0;
|
||
}
|
||
}
|
||
|
||
}
|
||
}
|
||
}
|
||
}
|
||
?>
|
||
</table>
|
||
<?PHP
|
||
pFooter($err);
|
||
?>
|