dolibarr/htdocs/install/etape1.php

<?php
/* Copyright (C) 2004-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2008 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2004      Benoit Mortier       <benoit.mortier@opensides.be>
 * Copyright (C) 2004      Sebastien Di Cintio  <sdicintio@ressource-toi.org>
 *
 * 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/etape1.php
		\ingroup	install
		\brief      G<EFBFBD>n<EFBFBD>re le fichier conf.php avec les informations issues de l'<EFBFBD>tape pr<EFBFBD>c<EFBFBD>dente
		\version    $Id$
*/

define('DONOTLOADCONF',1);	// To avoid loading conf by file inc..php

include("./inc.php");
$setuplang=isset($_POST["selectlang"])?$_POST["selectlang"]:(isset($_GET["selectlang"])?$_GET["selectlang"]:'auto');
$langs->setDefaultLang($setuplang);

$langs->load("admin");
$langs->load("install");

// 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("etape1: Entering etape1.php page");


/*
*	View
*/

pHeader($langs->trans("ConfigurationFile"),"etape2");

$error = 0;

// R<>pertoire des pages dolibarr
$main_dir=isset($_POST["main_dir"])?trim($_POST["main_dir"]):'';

// On supprime /  de fin dans main_dir
if (substr($main_dir, strlen($main_dir) -1) == "/")
{
	$main_dir = substr($main_dir, 0, strlen($main_dir)-1);
}

// On supprime /  de fin dans main_url
if (substr($_POST["main_url"], strlen($_POST["main_url"]) -1) == "/")
{
	$_POST["main_url"] = substr($_POST["main_url"], 0, strlen($_POST["main_url"])-1);
}

// R<>pertoire des documents g<>n<EFBFBD>r<EFBFBD>s (factures, etc...)
$main_data_dir=isset($_POST["main_data_dir"])?$_POST["main_data_dir"]:'';
if (! $main_data_dir) { $main_data_dir="$main_dir/documents"; }

/*
* Actions
*/



if ($_POST["action"] == "set")
{
	umask(0);
	print '<h3>'.$langs->trans("ConfigurationFile").'</h3>';  
	print '<table cellspacing="0" width="100%" cellpadding="1" border="0">';

	// Verification validite parametre main_dir
	if (! $error)
	{
		if (! is_dir($main_dir))
		{
			dolibarr_install_syslog("etape1: Repertoire '".$main_dir."' inexistant ou non accessible");
			
			print "<tr><td>";
			print $langs->trans("ErrorDirDoesNotExists",$main_dir).'<br>';
			print $langs->trans("ErrorWrongValueForParameter",$langs->trans("WebPagesDirectory")).'<br>';
			print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
			print '</td><td>';
			print $langs->trans("Error");
			print "</td></tr>";
			$error++;
		}
	}

	// Sauvegarde fichier configuration
	if (! $error)
	{
		$fp = fopen("$conffile", "w");
		
		if($fp)
		{
			clearstatcache();
			
			fputs($fp, '<?php');
			fputs($fp,"\n");
			fputs($fp,"#\n");
			fputs($fp,"# File generated by Dolibarr installer on ".dolibarr_print_date(gmmktime(),''));
			fputs($fp,"\n");
			fputs($fp,"#\n");
			fputs($fp,"# Take a look at conf.php.example file for an example of conf.php file\n");
			fputs($fp,"# and explanations for all possibles parameters.\n");
			fputs($fp,"#\n");

			fputs($fp, '$dolibarr_main_url_root="'.$_POST["main_url"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_document_root="'.$main_dir.'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_data_root="'.$main_data_dir.'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_host="'.$_POST["db_host"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_port="'.$_POST["db_port"].'";');
			fputs($fp,"\n");

			fputs($fp, '$dolibarr_main_db_name="'.$_POST["db_name"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_user="'.$_POST["db_user"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_pass="'.$_POST["db_pass"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_type="'.$_POST["db_type"].'";');
			fputs($fp,"\n");

			fputs($fp, '$dolibarr_main_db_character_set="'.$_POST["character_set_database"].'";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_main_db_collation="'.$_POST["dolibarr_main_db_collation"].'";');
			fputs($fp,"\n");

			/* Authentication */
			if ($_POST["db_type"] == 'mssql')
			{
			fputs($fp, '$dolibarr_main_authentication="dolibarr_mdb2";');
			}
			else
			{
			fputs($fp, '$dolibarr_main_authentication="dolibarr";');
			}
			fputs($fp,"\n");

			/* Preparation integration SMARTY */
			fputs($fp, '$dolibarr_smarty_libs_dir="";');
			fputs($fp,"\n");
			
			fputs($fp, '$dolibarr_smarty_compile="";');
			fputs($fp,"\n");

			fputs($fp, '$dolibarr_smarty_cache="";');
			fputs($fp,"\n");
			/* Fin Smarty*/
			
			fputs($fp, '?>');
			fclose($fp);
			
			if (file_exists("$conffile"))
			{
				include("$conffile");	// On force rechargement. Ne pas mettre include_once !
				conf($dolibarr_main_document_root);

				print "<tr><td>";
				print $langs->trans("SaveConfigurationFile");
				print "</td><td>";
				print $langs->trans("OK");
				print "</td></tr>";
			}
			else
			{
				$error++;
			}
		}
		
		// Chargement driver acces bases
		require_once($dolibarr_main_document_root."/lib/databases/".$dolibarr_main_db_type.".lib.php");
		
	}


	/***************************************************************************
	* Creation des r<EFBFBD>pertoires
	***************************************************************************/

	// Creation des sous-r<>pertoires main_data_dir
	if (! $error)
	{
		dolibarr_install_syslog("etape1: Directory '".$main_dir."' exists");
		
		// R<>pertoire des documents
		if (! is_dir($main_data_dir))
		{
			create_exdir($main_data_dir);
		}
		
		if (! is_dir($main_data_dir))
		{
			print "<tr><td>".$langs->trans("ErrorDirDoesNotExists",$main_data_dir);
			print ' '.$langs->trans("YouMustCreateItAndAllowServerToWrite");
			print '</td><td>';
			print '<font class="error">'.$langs->trans("Error").'</font>';
			print "</td></tr>";
    		print '<tr><td colspan="2"><br>'.$langs->trans("CorrectProblemAndReloadPage",$_SERVER['PHP_SELF'].'?testget=ok').'</td></tr>';
			$error++;
		}
		else
		{
			// Les documents sont en dehors de htdocs car ne doivent pas pouvoir etre t<>l<EFBFBD>charg<72>s en passant outre l'authentification
			$dir[0] = "$main_data_dir/facture";
			$dir[1] = "$main_data_dir/users";
			$dir[2] = "$main_data_dir/propale";
			$dir[3] = "$main_data_dir/societe";
			$dir[4] = "$main_data_dir/ficheinter";
			$dir[5] = "$main_data_dir/produit";
			$dir[6] = "$main_data_dir/rapport";
			$dir[7] = "$main_data_dir/rss";
			$dir[8] = "$main_data_dir/logo";
			
			// Boucle sur chaque r<>pertoire de dir[] pour les cr<63>er s'ils nexistent pas
			for ($i = 0 ; $i < sizeof($dir) ; $i++)
			{
				if (is_dir($dir[$i]))
				{
					dolibarr_install_syslog("etape1: Directory '".$dir[$i]."' exists");
				}
				else
				{
					if (create_exdir($dir[$i]) < 0)
					{
						print "<tr><td>";
						print "Failed to create directory: ".$dir[$i];
						print '</td><td>';
						print $langs->trans("Error");
						print "</td></tr>";
						$error++;
					}
					else
					{
						dolibarr_install_syslog("etape1: Directory '".$dir[$i]."' created");
					}
				}
			}
			if ($error)
			{
				print "<tr><td>".$langs->trans("ErrorDirDoesNotExists",$main_data_dir);
				print ' '.$langs->trans("YouMustCreateItAndAllowServerToWrite");
				print '</td><td>';
				print '<font class="error">'.$langs->trans("Error").'</font>';
				print "</td></tr>";
	    		print '<tr><td colspan="2"><br>'.$langs->trans("CorrectProblemAndReloadPage",$_SERVER['PHP_SELF'].'?testget=ok').'</td></tr>';
			}
		}
	}

	/**
	* Cr<EFBFBD>ation des Bases de donn<EFBFBD>es
	*/
	if (! $error)
	{
		conf($dolibarr_main_document_root);
		
		$userroot=isset($_POST["db_user_root"])?$_POST["db_user_root"]:"";
		$passroot=isset($_POST["db_pass_root"])?$_POST["db_pass_root"]:"";


		/**
		* 	Si creation utilisateur admin demand<EFBFBD>e, on le cr<EFBFBD>e
		*/
		if (isset($_POST["db_create_user"]) && $_POST["db_create_user"] == "on")
		{
			dolibarr_install_syslog("etape1: Creation de l'utilisateur: ".$dolibarr_main_db_user);

			//print $conf->db->host." , ".$conf->db->name." , ".$conf->db->user." , ".$conf->db->port;
			$databasefortest=$conf->db->name;
			if ($conf->db->type == 'mysql' || $conf->db->type == 'mysqli')
			{
				$databasefortest='mysql';
			}
			else if ($conf->db->type == 'pgsql')
			{
				$databasefortest='postgres';
			}
			else if ($conf->db->type == 'mssql')
			{
				$databasefortest='mssql';
			}
			
			// Creation handler de base, verification du support et connexion

			$db = new DoliDb($conf->db->type,$conf->db->host,$userroot,$passroot,$databasefortest,$conf->db->port);
			if ($db->error)
			{		
				print '<div class="error">'.$db->error.'</div>';
				$error++;
			}
			
			if (! $error)
			{
				if ($db->connected)
				{
					$result=$db->DDLCreateUser($dolibarr_main_db_host,$dolibarr_main_db_user,$dolibarr_main_db_pass,$dolibarr_main_db_name);

					if ($result > 0)
					{
						
						print '<tr><td>';
						print $langs->trans("UserCreation").' : ';
						print $dolibarr_main_db_user;
						print '</td>';
						print '<td>'.$langs->trans("OK").'</td></tr>';
					}
					else
					{
						if ($db->errno() == 'DB_ERROR_RECORD_ALREADY_EXISTS')
						{
							dolibarr_install_syslog("etape1: User already exists");
							print '<tr><td>';
							print $langs->trans("UserCreation").' : ';
							print $dolibarr_main_db_user;
							print '</td>';
							print '<td>'.$langs->trans("LoginAlreadyExists").'</td></tr>';
						}
						else
						{
							dolibarr_install_syslog("etape1: Failed to create user");
							print '<tr><td>';
							print $langs->trans("UserCreation").' : ';
							print $dolibarr_main_db_user;
							print '</td>';
							print '<td>'.$langs->trans("Error").' '.$db->error()."</td></tr>";
						}
					}
					
					$db->close();
				}
				else
				{
					print '<tr><td>';
					print $langs->trans("UserCreation").' : ';
					print $dolibarr_main_db_user;
					print '</td>';
					print '<td>'.$langs->trans("Error").'</td>';
					print '</tr>';
					
					// Affiche aide diagnostique
					print '<tr><td colspan="2"><br>';
					print $langs->trans("YouAskDatabaseCreationSoDolibarrNeedToConnect",$dolibarr_main_db_user,$dolibarr_main_db_host,$userroot);
					print '<br>';
					print $langs->trans("BecauseConnectionFailedParametersMayBeWrong").'<br><br>';
					print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
					print '</td></tr>';
					
					$error++;
				}
			}
		}   // Fin si "creation utilisateur"
		
		
		/*
		* Si creation database demand<EFBFBD>e, on la cr<EFBFBD>e
		*/
		if (! $error && (isset($_POST["db_create_database"]) && $_POST["db_create_database"] == "on"))
		{
			dolibarr_install_syslog("etape1: Creation de la base : ".$dolibarr_main_db_name);

			$db = new DoliDb($conf->db->type,$conf->db->host,$userroot,$passroot,'',$conf->db->port);

			if ($db->connected)
			{
					
				if ($db->DDLCreateDb($dolibarr_main_db_name))
				{
					print '<tr><td>';
					print $langs->trans("DatabaseCreation").' : ';
					print $dolibarr_main_db_name;
					print '</td>';
					print "<td>".$langs->trans("OK")."</td></tr>";
				}
				else
				{
					print '<tr><td>';
					print $langs->trans("DatabaseCreation").' : ';
					print $dolibarr_main_db_name;
					print '</td>';
					print '<td>'.$langs->trans("Error").' '.$db->errno().'</td></tr>';

					// Affiche aide diagnostique
					print '<tr><td colspan="2"><br>';
					print $langs->trans("ErrorFailedToCreateDatabase",$dolibarr_main_db_name).'<br>';
					print $langs->trans("IfDatabaseExistsGoBackAndCheckCreate");
					print '<br>';
					print '</td></tr>';

					$error++;
				}
				$db->close();
			}
			else {
				print '<tr><td>';
				print $langs->trans("DatabaseCreation").' : ';
				print $dolibarr_main_db_name;
				print '</td>';
				print '<td>'.$langs->trans("Error").'</td>';
				print '</tr>';

				// Affiche aide diagnostique
				print '<tr><td colspan="2"><br>';
				print $langs->trans("YouAskDatabaseCreationSoDolibarrNeedToConnect",$dolibarr_main_db_user,$dolibarr_main_db_host,$userroot);
				print '<br>';
				print $langs->trans("BecauseConnectionFailedParametersMayBeWrong").'<br><br>';
				print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
				print '</td></tr>';

				$error++;
			}
		}   // Fin si "creation database"


		/*
		* On test maintenant l'acc<EFBFBD>s par le user admin dolibarr
		*/
		if (! $error)
		{
			dolibarr_install_syslog("etape1: connexion de type=".$conf->db->type." sur host=".$conf->db->host." port=".$conf->db->port." user=".$conf->db->user." name=".$conf->db->name);
			//print "connexion de type=".$conf->db->type." sur host=".$conf->db->host." port=".$conf->db->port." user=".$conf->db->user." name=".$conf->db->name;

			$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)
			{
				// 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.
				if ($db->database_selected == 1)
				{
					dolibarr_install_syslog("etape1: la connexion au serveur par le user ".$conf->db->user." est reussie");
					print "<tr><td>";
					print $langs->trans("ServerConnection")." : ";
					print $dolibarr_main_db_host;
					print "</td><td>";
					print $langs->trans("OK");
					print "</td></tr>";

					dolibarr_install_syslog("etape1: la connexion a la base : ".$conf->db->name.",par le user : ".$conf->db->user." est reussie");
					print "<tr><td>";
					print $langs->trans("DatabaseConnection")." : ";
					print $dolibarr_main_db_name;
					print "</td><td>";
					print $langs->trans("OK");
					print "</td></tr>";

					$error = 0;
				}
				else
				{
					dolibarr_install_syslog("etape1: la connexion au serveur par le user ".$conf->db->user." est reussie");
					print "<tr><td>";
					print $langs->trans("ServerConnection")." : ";
					print $dolibarr_main_db_host;
					print "</td><td>";
					print $langs->trans("OK");
					print "</td></tr>";

					dolibarr_install_syslog("etape1: la connexion a la base ".$conf->db->name.",par le user ".$conf->db->user." a <20>chou<6F>");
					print "<tr><td>";
					print $langs->trans("DatabaseConnection")." : ";
					print $dolibarr_main_db_name;
					print '</td><td>';
					print $langs->trans("Error");
					print "</td></tr>";

					// Affiche aide diagnostique
					print '<tr><td colspan="2"><br>V<>rifier que le nom de base "<b>'.$dolibarr_main_db_name.'</b>" est correct.<br>';
					print 'Si ce nom est correct et que cette base n\'existe pas d<>j<EFBFBD>, vous devez cocher l\'option "Cr<43>er la base de donn<6E>e".<br>';
					print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
					print '</td></tr>';

					$error++;
				}
			}
			else
			{
				dolibarr_install_syslog("etape1: la connexion au serveur par le user ".$conf->db->user." est rate");
				print "<tr><td>";
				print $langs->trans("ServerConnection")." : ";
				print $dolibarr_main_db_host;
				print '</td><td>';
				print '<font class="error">'.$db->error.'</div>';
				print "</td></tr>";

				// Affiche aide diagnostique
				print '<tr><td colspan="2"><br>Le serveur "<b>'.$conf->db->host.'</b>", nom de base "<b>'.$conf->db->name.'</b>", login "<b>'.$conf->db->user.'</b>", ou mot de passe de la base de donn<6E>e est peut-<2D>tre incorrect ou la version du client PHP trop ancienne par rapport <20> la version de la base de donn<6E>e.<br>';
				print 'Si le login n\'existe pas encore, vous devez cocher l\'option "Cr<43>er l\'utilisateur".<br>';
				print $langs->trans("ErrorGoBackAndCorrectParameters").'<br><br>';
				print '</td></tr>';

				$error++;
			}
		}
	}

	print '</table>';
}

pFooter($error,$setuplang);

?>