3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 // Pour ecrire les fichiers memorisant les parametres de connexion
17 // http://doc.spip.org/@install_fichier_connexion
18 function install_fichier_connexion($nom, $texte)
21 . "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
25 ecrire_fichier($nom, $texte);
28 // Attention etape_ldap4 suppose qu'il n'y aura qu'un seul appel de fonction
29 // dans le fichier produit.
31 // http://doc.spip.org/@install_connexion
32 function install_connexion($adr, $port, $login, $pass, $base, $type, $pref, $ldap='')
34 $adr = addcslashes($adr,"'\\");
35 $port = addcslashes($port,"'\\");
36 $login = addcslashes($login,"'\\");
37 $pass = addcslashes($pass,"'\\");
38 $base = addcslashes($base,"'\\");
39 $type = addcslashes($type,"'\\");
40 $pref = addcslashes($pref,"'\\");
41 $ldap = addcslashes($ldap,"'\\");
42 return "\$GLOBALS['spip_connect_version'] = 0.7;\n"
44 . "'$adr','$port','$login','$pass','$base'"
45 . ",'$type', '$pref','$ldap');\n";
48 // Analyse si un fichier contient le resultat de la fonction install_connexion
49 // y compris ce qu'elle produisait dans les versions precedentes
51 // http://doc.spip.org/@analyse_fichier_connection
52 function analyse_fichier_connection($file)
54 $s = @join
('', file($file));
55 if (preg_match("#mysql_connect\([\"'](.*)[\"'],[\"'](.*)[\"'],[\"'](.*)[\"']\)#", $s, $regs)) {
59 $ar = '\s*\'([^\']*)\'';
61 $r = "#spip_connect_db[(]$ar$r$r$r$r(?:$r(?:$r(?:$r)?)?)?#";
62 if (preg_match($r, $s, $regs)) {
63 $regs[2] = $regs[1] . (!$regs[2] ?
'' : ":$port_db;");
69 spip_log("$file n'est pas un fichier de connexion");
73 // http://doc.spip.org/@bases_referencees
74 function bases_referencees($exclu='')
77 foreach(preg_files(_DIR_CONNECT
, '.php$') as $f) {
78 if ($f != $exclu AND analyse_fichier_connection($f))
79 $tables[]= basename($f, '.php');
85 function install_mode_appel($server_db, $tout=true)
87 return ($server_db != 'mysql') ?
''
88 : (($tout ?
test_rappel_nom_base_mysql($server_db) : '')
89 . test_sql_mode_mysql($server_db) );
93 // Verifier que l'hebergement est compatible SPIP ... ou l'inverse :-)
94 // (sert a l'etape 1 de l'installation)
95 // http://doc.spip.org/@tester_compatibilite_hebergement
96 function tester_compatibilite_hebergement() {
100 if (preg_match(',^([0-9]+)\.([0-9]+)\.([0-9]+),', $p, $regs)) {
101 $php = array($regs[1], $regs[2], $regs[3]);
103 $min = explode('.', $m);
105 OR ($php[0]==$min[0] AND $php[1]<$min[1])
106 OR ($php[0]==$min[0] AND $php[1]==$min[1] AND $php[2]<$min[2]))
107 $err[] = _T('install_php_version', array('version' => $p, 'minimum' => $m));
110 // Il faut une base de donnees tout de meme ...
111 if (!function_exists('mysql_query')
112 AND !function_exists('pg_connect')
113 AND !function_exists('sqlite_open'))
114 $err[] = _T('install_extension_php_obligatoire')
115 . " <a href='http://www.php.net/mysql'>MYSQL</a>"
116 . "| <a href='http://www.php.net/pgsql'>PostgreSQL</a>"
117 . "| <a href='http://www.php.net/sqlite'>SQLite</a>";
120 if (!function_exists('preg_match_all'))
121 $err[] = _T('install_extension_php_obligatoire')
122 . " <a href='http://se.php.net/pcre'>PCRE</a>";
124 // et surtout pas ce mbstring.overload
125 if ($a = @ini_get
('mbstring.func_overload'))
126 $err[] = _T('install_extension_mbstring')
127 . "mbstring.func_overload=$a - <a href='http://www.php.net/mb_string'>mb_string</a>.<br /><small>";
130 echo "<p class='verdana1 spip_large'><b>"._T('avis_attention').'</b></p><p>'._T('install_echec_annonce')."</p><ul>";
131 while (list(,$e) = each ($err))
132 echo "<li>$e</li>\n";
134 # a priori ici on pourrait die(), mais il faut laisser la possibilite
135 # de forcer malgre tout (pour tester, ou si bug de detection)
136 echo "</ul><hr />\n";
141 // Une fonction pour faciliter la recherche du login (superflu ?)
142 // http://doc.spip.org/@login_hebergeur
143 function login_hebergeur() {
144 global $HTTP_X_HOST, $REQUEST_URI, $SERVER_NAME, $HTTP_HOST;
146 $base_hebergeur = 'localhost'; # par defaut
148 // Lycos (ex-Multimachin)
149 if ($HTTP_X_HOST == 'membres.lycos.fr') {
150 preg_match(',^/([^/]*),', $REQUEST_URI, $regs);
151 $login_hebergeur = $regs[1];
154 else if (preg_match(',altern\.com$,', $SERVER_NAME)) {
155 preg_match(',([^.]*\.[^.]*)$,', $HTTP_HOST, $regs);
156 $login_hebergeur = preg_replace('[^\w\d]', '_', $regs[1]);
159 else if (preg_match(',(.*)\.free\.fr$,', $SERVER_NAME, $regs)) {
160 $base_hebergeur = 'sql.free.fr';
161 $login_hebergeur = $regs[1];
162 } else $login_hebergeur = '';
164 return array($base_hebergeur, $login_hebergeur);
168 // http://doc.spip.org/@info_etape
169 function info_etape($titre, $complement = ''){
170 return "<h2>".$titre."</h2>\n" .
171 ($complement ?
"<br />".$complement."\n":'');
174 // http://doc.spip.org/@bouton_suivant
175 function bouton_suivant($code = '') {
176 if($code=='') $code = _T('bouton_suivant');
178 $id = 'suivant'.(($suivant>0)?
strval($suivant):'');
180 return "\n<span class='suivant'><input id='".$id."' type='submit'\nvalue=\"" .
185 // http://doc.spip.org/@info_progression_etape
186 function info_progression_etape($en_cours,$phase,$dir, $erreur = false){
187 //$en_cours = _request('etape')?_request('etape'):"";
188 $liste = find_all_in_path($dir,$phase.'(([0-9])+|fin)[.]php$');
189 $debut = 1; $etat = "ok";
190 $last = count($liste);
191 // $texte_etat = array('ok'=>'OK','encours'=>_T('en_cours'),'todo'=>_T('todo'));
193 $intitule_etat["etape_"][1] = typo(_T('info_connexion_base_donnee'));
194 $intitule_etat["etape_"][2] = typo(_T('menu_aide_installation_choix_base'));
195 $intitule_etat["etape_"][3] = typo(_T('info_informations_personnelles'));
196 $intitule_etat["etape_"][4] = typo(_T('info_derniere_etape'));
198 $intitule_etat["etape_ldap"][1] = typo(_T('titre_connexion_ldap'));
199 $intitule_etat["etape_ldap"][2] = typo(_T('titre_connexion_ldap'));
200 $intitule_etat["etape_ldap"][3] = typo(_T('info_chemin_acces_1'));
201 $intitule_etat["etape_ldap"][4] = typo(_T('info_reglage_ldap'));
202 $intitule_etat["etape_ldap"][5] = typo(_T('info_ldap_ok'));
204 // $aff_etapes = "<span id='etapes'>";
206 $aff_etapes = "<ul id='infos_etapes' class='infos_$phase$en_cours'>";
208 foreach($liste as $etape=>$fichier){
209 if ($debut < $last) {
210 if ($debut == $en_cours && $erreur) $class = "on erreur";
211 else if ($debut == $en_cours) $class = "on";
212 else if ($debut > $en_cours) $class = "prochains";
213 else $class = "valides";
215 $aff_etapes .= "<li class='$class'><div class='fond'>";
216 $aff_etapes .= ($debut == $en_cours)?
"<strong>":'';
217 $aff_etapes .= "<em>"._T('etape')." </em><span class='numero_etape'>$debut</span><em> : </em>";
218 $aff_etapes .= $intitule_etat["$phase"][$debut];
219 $aff_etapes .= ($debut == $en_cours)?
"</strong>":'';
220 $aff_etapes .= "</div></li>";
224 $aff_etapes .= "</ul>";
225 $aff_etapes .= "<br class='nettoyeur' />\n";
230 // http://doc.spip.org/@fieldset
231 function fieldset($legend, $champs = array(), $apres='', $avant='') {
232 return "<fieldset>\n" .
234 ($legend ?
"<legend>".$legend."</legend>\n" : '') .
235 fieldset_champs($champs) .
240 function fieldset_champs($champs = array())
243 foreach ($champs as $nom => $contenu) {
244 $type = isset($contenu['hidden']) ?
'hidden' : (preg_match(',^pass,', $nom) ?
'password' : 'text');
245 $class = isset($contenu['hidden']) ?
'' : "class='formo' size='40' ";
246 if(isset($contenu['alternatives'])) {
247 $fieldset .= $contenu['label'] ."\n";
248 foreach($contenu['alternatives'] as $valeur => $label) {
249 $fieldset .= "<input type='radio' name='".$nom .
250 "' id='$nom-$valeur' value='$valeur'"
251 .(($valeur==$contenu['valeur'])?
"\nchecked='checked'":'')
253 $fieldset .= "<label for='$nom-$valeur'>".$label."</label>\n";
255 $fieldset .= "<br />\n";
258 $fieldset .= "<label for='".$nom."'>".$contenu['label']."</label>\n";
259 $fieldset .= "<input ".$class."type='".$type."' id='" . $nom . "' name='".$nom."'\nvalue='".$contenu['valeur']."'"
260 .(preg_match(',^(pass|login),', $nom)?
" autocomplete='off'":'') . " />\n";
266 function install_select_serveur()
269 $dir = _DIR_RESTREINT
. 'req/';
271 if (!$d) return array();
272 while ($f = readdir($d)) {
273 if ((preg_match('/^(.*)[.]php$/', $f, $s))
274 AND is_readable($f = $dir . $f)) {
277 $v = 'spip_versions_' . $s;
278 if (function_exists($v) AND $v()) {
279 $titre = _T("install_select_type_$s");
280 $options[$s] = "<option value='$s'>"
281 . ($titre ?
$titre : $s)
283 } else spip_log("$s: portage indisponible");
290 // http://doc.spip.org/@install_connexion_form
291 function install_connexion_form($db, $login, $pass, $predef, $hidden, $etape)
293 $server_db = (is_string($predef[0])) ?
$predef[0] : '';
295 return generer_form_ecrire('install', (
296 "\n<input type='hidden' name='etape' value='$etape' />"
298 . (_request('echec')?
299 ("<p><b>"._T('avis_connexion_echec_1').
300 "</b></p><p>"._T('avis_connexion_echec_2')."</p><p style='font-size: small;'>"._T('avis_connexion_echec_3')."</p>")
303 . http_script('', 'jquery.js')
305 $(document).ready(function() {
306 $("input[type=hidden][name=server_db]").each(function(){
307 if ($(this).attr("value").match("sqlite*")){
308 $("#install_adresse_base_hebergeur").hide();
309 $("#install_login_base_hebergeur").hide();
310 $("#install_pass_base_hebergeur").hide();
313 $("#sql_serveur_db").change(function(){
314 if ($(this).find("option:selected").attr("value").match("sqlite*")){
315 $("#install_adresse_base_hebergeur").hide();
316 $("#install_login_base_hebergeur").hide();
317 $("#install_pass_base_hebergeur").hide();
319 $("#install_adresse_base_hebergeur").show();
320 $("#install_login_base_hebergeur").show();
321 $("#install_pass_base_hebergeur").show();
327 ?
'<input type="hidden" name="server_db" value="'.$server_db.'" />'
329 ?
('<h3>'._T('install_serveur_hebergeur').'</h3>')
331 : ('<fieldset><legend>'
332 ._T('install_select_type_db')
334 .'<label for="sql_serveur_db">'
335 . _T('install_types_db_connus')
336 // Passer l'avertissement SQLIte en commentaire, on pourra facilement le supprimer par la suite sans changer les traductions.
337 . "<br /><small>(". _T('install_types_db_connus_avertissement') .')</small>'
339 . "\n<div style='text-align: center;'><select name='server_db' id='sql_serveur_db' >\n"
340 . join("\n", install_select_serveur())
341 . "\n</select></div></fieldset>")
343 . '<div id="install_adresse_base_hebergeur">'
345 ?
'<h3>'._T('install_adresse_base_hebergeur').'</h3>'
346 : fieldset(_T('entree_base_donnee_1'),
348 'adresse_db' => array(
357 . '<div id="install_login_base_hebergeur">'
359 ?
'<h3>'._T('install_login_base_hebergeur').'</h3>'
360 : fieldset(_T('entree_login_connexion_1'),
363 'label' => $login[1],
364 'valeur' => $login[0]
371 . '<div id="install_pass_base_hebergeur">'
373 ?
'<h3>'._T('install_pass_base_hebergeur').'</h3>'
374 : fieldset(_T('entree_mot_passe_1'),
385 . bouton_suivant()));
389 // 4 valeurs qu'on reconduit d'un script a l'autre
390 // sauf s'ils sont predefinis.
392 // http://doc.spip.org/@predef_ou_cache
393 function predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
395 return ((defined('_INSTALL_HOST_DB'))
397 : "\n<input type='hidden' name='adresse_db' value=\"".htmlspecialchars($adresse_db)."\" />"
399 . ((defined('_INSTALL_USER_DB'))
401 : "\n<input type='hidden' name='login_db' value=\"".htmlspecialchars($login_db)."\" />"
403 . ((defined('_INSTALL_PASS_DB'))
405 : "\n<input type='hidden' name='pass_db' value=\"".htmlspecialchars($pass_db)."\" />"
408 . ((defined('_INSTALL_SERVER_DB'))
410 : "\n<input type='hidden' name='server_db' value=\"".htmlspecialchars($server_db)."\" />"
414 // presentation des bases existantes
416 // http://doc.spip.org/@install_etape_liste_bases
417 function install_etape_liste_bases($server_db, $login_db, $disabled=array())
419 $result = sql_listdbs($server_db);
420 if (!$result) return '';
422 $bases = $checked = $noms = array();
424 // si sqlite : result est deja un tableau
425 if (is_array($result)){
428 while ($row = sql_fetch($result, $server_db)) {
429 $noms[] = array_shift($row);
432 foreach ($noms as $nom){
433 $id = htmlspecialchars($nom);
434 $dis = in_array($nom, $disabled) ?
" disabled='disabled'" : '';
435 $base = " name=\"choix_db\" value=\""
439 . " type='radio' id='$id'";
440 $label = "<label for='$id'>"
441 . ($dis ?
"<i>$nom</i>" : $nom)
444 if (!$checked AND !$dis AND
445 (($nom == $login_db) OR
446 ($GLOBALS['table_prefix'] == $nom))) {
447 $checked = "<input$base checked='checked' />\n$label";
449 $bases[]= "<input$base />\n$label";
453 if (!$bases && !$checked) return false;
455 if ($checked) {array_unshift($bases, $checked); $checked = true;}
457 return array($checked, $bases);
460 function install_propager($hidden)
463 foreach($hidden as $k) {
464 $v = htmlentities(_request($k));
465 $res .= "<input type='hidden' name='$k' value='$v' />";