<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2016                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/

if (!defined('_ECRIRE_INC_VERSION')) return;

include_spip('inc/install');

function formulaires_declarer_bases_charger_dist(){
	list($adresse_db, $login_db, $pass_db, $sel, $server_db) = analyse_fichier_connection(_FILE_CONNECT);

	$deja = bases_referencees(_FILE_CONNECT);
	// proposer un nom de connect si pas encore saisi
	$nom_connect = "";
	if (defined('_DECLARER_choix_db')){
		$nom_connect = _DECLARER_choix_db;
		$n="";
		while (in_array($nom_connect.$n,$deja)){
			$n = ($n?$n+1:1);
		}
		$nom_connect = $nom_connect.$n;
	}

	$valeurs = array(
		'_etapes' => 3,
		'_bases_deja' => $deja,
		'_bases_prop' => defined('_DECLARER_serveur_db')?liste_bases(_DECLARER_serveur_db):'',
		'_tables' => (defined('_DECLARER_serveur_db') AND defined('_DECLARER_choix_db'))?
				$tables = sql_alltable('%', _DECLARER_serveur_db)
				:
				array(),
		'main_db' => '',
		'_serveurs' => liste_serveurs(),
		'sql_serveur_db' => 'sqlite3', // valeur par defaut
		'adresse_db' => $adresse_db,
		'login_db' => '',
		'pass_db' => '',
		'choix_db' => '',
		'table_new' => '',
		'nom_connect' => $nom_connect,
	);
	return $valeurs;
}

function liste_serveurs() {
	$options = array();
	$dir = _DIR_RESTREINT . 'req/';
	$d = @opendir($dir);
	if (!$d) return array();
	while ($f = readdir($d)) {
		if ((preg_match('/^(.*)[.]php$/', $f, $s))
		AND is_readable($f = $dir . $f)) {
			require_once($f);
			$s = $s[1];
			$v = 'spip_versions_' . $s;
			if (function_exists($v) AND $v()) {
			  $options[$s] = "install_select_type_$s";
			}
			else spip_log("$s: portage indisponible");
		}
	}
	ksort($options);
	return $options;
}

function liste_bases($server_db){
	if (is_null($server_db)
	  OR !$result = sql_listdbs($server_db))
		return '';

	$noms = array();

	// si sqlite : result est deja un tableau
	if (is_array($result)){
		$noms = $result;
	} else {
		while ($row = sql_fetch($result, $server_db)) {
			$noms[] = reset($row);
		}
	}
	return $noms;
}

function formulaires_declarer_bases_verifier_1_dist(){
	$erreurs = array();
	list($def_adresse_db, $def_login_db, $def_pass_db, $sel_db, $def_serveur_db) = analyse_fichier_connection(_FILE_CONNECT);


	if (!$adresse_db = _request('adresse_db')){
		if (defined('_INSTALL_HOST_DB'))
			$adresse_db =_INSTALL_HOST_DB;
		else
			$adresse_db = $def_adresse_db;
	}
	if (!$serveur_db =_request('sql_serveur_db')){
		if (defined('_INSTALL_SERVER_DB'))
			$serveur_db = _INSTALL_SERVER_DB;
		else
			$serveur_db = $def_serveur_db;
	}

	$login_db = $pass_db = "";
	if (!preg_match(',^sqlite,i',$serveur_db)){
		if (!$login_db = _request('login_db')){
			if (defined('_INSTALL_USER_DB'))
				$login_db = _INSTALL_USER_DB;
			else
				$login_db = $def_login_db;
		}
		if (!$pass_db = _request('pass_db')){
			if (defined('_INSTALL_PASS_DB'))
				$pass_db  = _INSTALL_PASS_DB;
			else
				$pass_db = $def_pass_db;
		}
	}

	$link = spip_connect_db($adresse_db, '', $login_db, $pass_db, '@test@', $serveur_db);
	if ($link) {
		$GLOBALS['connexions'][$serveur_db][$GLOBALS['spip_sql_version']] = $GLOBALS['spip_' . $serveur_db .'_functions_' . $GLOBALS['spip_sql_version']];
		$GLOBALS['connexions'][$serveur_db] = $link;
		define('_DECLARER_serveur_db',$serveur_db);
		define('_DECLARER_adresse_db',$adresse_db);
		define('_DECLARER_login_db',$login_db);
		define('_DECLARER_pass_db',$pass_db);
		// si on est sur le meme serveur que connect.php
		// indiquer quelle est la db utilisee pour l'exclure des choix possibles
		if ($serveur_db==$def_serveur_db AND $adresse_db==$def_adresse_db)
			set_request('main_db',$sel_db);
		else
			set_request('main_db','');
	}
	else  {
		$erreurs['message_erreur'] = _T('avis_connexion_echec_1');
	}
	return $erreurs;
}

function formulaires_declarer_bases_verifier_2_dist(){
	$erreurs = array();
	$choix_db = _request('choix_db');
	if ($choix_db=='-1')
		$choix_db = _request('table_new');
	if (!$choix_db)
		$erreurs['choix_db']=_T('info_obligatoire');
	else {
		define('_ECRIRE_INSTALL',1); // hackons sqlite
		if (!sql_selectdb($choix_db, _DECLARER_serveur_db))
			$erreurs['choix_db']=_T('avis_base_inaccessible',array('base'=>$choix_db));
		else
			define('_DECLARER_choix_db',$choix_db);
	}

	return $erreurs;
}

function formulaires_declarer_bases_verifier_3_dist(){
	$erreurs = array();
	$nom_connect = _request('nom_connect');
	if (!$nom_connect)
		$erreurs['nom_connect']=_T('info_obligatoire');
	else {
		// securite : le nom doit etre un mot sans caracteres speciaux
		$f = preg_replace(',[^\w],','',$nom_connect);
		if ($f!==$nom_connect)
			$erreurs['nom_connect']=_T('erreur_nom_connect_incorrect');
		elseif(file_exists(_DIR_CONNECT . $nom_connect. '.php'))
			$erreurs['nom_connect']=_T('erreur_connect_deja_existant');
		else
			define('_DECLARER_nom_connect',$nom_connect);
	}

	return $erreurs;
}

function formulaires_declarer_bases_traiter_dist(){

	$adresse_db = _DECLARER_adresse_db;
	if (preg_match(',(.*):(.*),', $adresse_db, $r))
		list(,$adresse_db, $port) = $r;
	else
		$port = '';

	$adresse_db = addcslashes($adresse_db,"'\\");
	$port = addcslashes($port,"'\\");
	$login_db = addcslashes(_DECLARER_login_db,"'\\");
	$pass_db = addcslashes(_DECLARER_pass_db,"'\\");
	$sup_db = addcslashes(_DECLARER_choix_db,"'\\");
	$server_db = addcslashes(_DECLARER_serveur_db,"'\\");

	$conn = install_mode_appel($server_db)
	. "spip_connect_db("
	. "'$adresse_db','$port','$login_db',"
	. "'$pass_db','$sup_db'"
	. ",'$server_db', '');\n";

	install_fichier_connexion(_DIR_CONNECT . _DECLARER_nom_connect . '.php', $conn);
	return array('message_ok'=>_T('install_connect_ok',array('connect' => "<strong>"._DECLARER_nom_connect."</strong>")));
}