3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
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 $arg = '\s*\'([^\']*)\'\s*,';
60 if (preg_match("#spip_connect_db\($arg$arg$arg$arg\s*'([^']*)'\s*(?:,\s*'([^']*))?#", $s, $regs)) {
61 $regs[2] = $regs[1] . (!$regs[2] ?
'' : ":$port_db;");
67 spip_log("$file n'est pas un fichier de connexion");
71 // http://doc.spip.org/@bases_referencees
72 function bases_referencees($exclu='')
75 foreach(preg_files(_DIR_CONNECT
, '.php$') as $f) {
76 if ($f != $exclu AND analyse_fichier_connection($f))
77 $tables[]= basename($f, '.php');
83 function install_mode_appel($server_db, $tout=true)
85 return ($server_db != 'mysql') ?
''
86 : (($tout ?
test_rappel_nom_base_mysql($server_db) : '')
87 . test_sql_mode_mysql($server_db) );
91 // Verifier que l'hebergement est compatible SPIP ... ou l'inverse :-)
92 // (sert a l'etape 1 de l'installation)
93 // http://doc.spip.org/@tester_compatibilite_hebergement
94 function tester_compatibilite_hebergement() {
98 if (preg_match(',^([0-9]+)\.([0-9]+)\.([0-9]+),', $p, $regs)) {
99 $php = array($regs[1], $regs[2], $regs[3]);
101 $min = explode('.', $m);
103 OR ($php[0]==$min[0] AND $php[1]<$min[1])
104 OR ($php[0]==$min[0] AND $php[1]==$min[1] AND $php[2]<$min[2]))
105 $err[] = _T('install_php_version', array('version' => $p, 'minimum' => $m));
108 // Il faut une base de donnees tout de meme ...
109 if (!function_exists('mysql_query')
110 AND !function_exists('pg_connect')
111 AND !function_exists('sqlite_open'))
112 $err[] = _T('install_extension_php_obligatoire')
113 . " <a href='http://www.php.net/mysql'>MYSQL</a>"
114 . "| <a href='http://www.php.net/pgsql'>PostgreSQL</a>"
115 . "| <a href='http://www.php.net/sqlite'>SQLite</a>";
118 if (!function_exists('preg_match_all'))
119 $err[] = _T('install_extension_php_obligatoire')
120 . " <a href='http://se.php.net/pcre'>PCRE</a>";
122 // et surtout pas ce mbstring.overload
123 if ($a = @ini_get
('mbstring.func_overload'))
124 $err[] = _T('install_extension_mbstring')
125 . "mbstring.func_overload=$a - <a href='http://www.php.net/mb_string'>mb_string</a>.<br /><small>";
128 echo "<p class='verdana1 spip_large'><b>"._T('avis_attention').'</b></p><p>'._T('install_echec_annonce')."</p><ul>";
129 while (list(,$e) = each ($err))
130 echo "<li>$e</li>\n";
132 # a priori ici on pourrait die(), mais il faut laisser la possibilite
133 # de forcer malgre tout (pour tester, ou si bug de detection)
134 echo "</ul><hr />\n";
139 // Une fonction pour faciliter la recherche du login (superflu ?)
140 // http://doc.spip.org/@login_hebergeur
141 function login_hebergeur() {
142 global $HTTP_X_HOST, $REQUEST_URI, $SERVER_NAME, $HTTP_HOST;
144 $base_hebergeur = 'localhost'; # par defaut
146 // Lycos (ex-Multimachin)
147 if ($HTTP_X_HOST == 'membres.lycos.fr') {
148 preg_match(',^/([^/]*),', $REQUEST_URI, $regs);
149 $login_hebergeur = $regs[1];
152 else if (preg_match(',altern\.com$,', $SERVER_NAME)) {
153 preg_match(',([^.]*\.[^.]*)$,', $HTTP_HOST, $regs);
154 $login_hebergeur = preg_replace('[^\w\d]', '_', $regs[1]);
157 else if (preg_match(',(.*)\.free\.fr$,', $SERVER_NAME, $regs)) {
158 $base_hebergeur = 'sql.free.fr';
159 $login_hebergeur = $regs[1];
160 } else $login_hebergeur = '';
162 return array($base_hebergeur, $login_hebergeur);
166 // http://doc.spip.org/@info_etape
167 function info_etape($titre, $complement = ''){
168 return "<h2>".$titre."</h2>\n" .
169 ($complement ?
"<br />".$complement."\n":'');
172 // http://doc.spip.org/@bouton_suivant
173 function bouton_suivant($code = '') {
174 if($code=='') $code = _T('bouton_suivant');
176 $id = 'suivant'.(($suivant>0)?
strval($suivant):'');
178 return "\n<span class='suivant'><input id='".$id."' type='submit'\nvalue=\"" .
183 // http://doc.spip.org/@info_progression_etape
184 function info_progression_etape($en_cours,$phase,$dir, $erreur = false){
185 //$en_cours = _request('etape')?_request('etape'):"";
186 $liste = find_all_in_path($dir,$phase.'(([0-9])+|fin)[.]php$');
187 $debut = 1; $etat = "ok";
188 $last = count($liste);
189 // $texte_etat = array('ok'=>'OK','encours'=>_T('en_cours'),'todo'=>_T('todo'));
191 $intitule_etat["etape_"][1] = typo(_T('info_connexion_base_donnee'));
192 $intitule_etat["etape_"][2] = typo(_T('menu_aide_installation_choix_base'));
193 $intitule_etat["etape_"][3] = typo(_T('info_informations_personnelles'));
194 $intitule_etat["etape_"][4] = typo(_T('info_derniere_etape'));
196 $intitule_etat["etape_ldap"][1] = typo(_T('titre_connexion_ldap'));
197 $intitule_etat["etape_ldap"][2] = typo(_T('titre_connexion_ldap'));
198 $intitule_etat["etape_ldap"][3] = typo(_T('info_chemin_acces_1'));
199 $intitule_etat["etape_ldap"][4] = typo(_T('info_reglage_ldap'));
200 $intitule_etat["etape_ldap"][5] = typo(_T('info_ldap_ok'));
202 // $aff_etapes = "<span id='etapes'>";
204 $aff_etapes = "<ul id='infos_etapes' class='infos_$phase$en_cours'>";
206 foreach($liste as $etape=>$fichier){
207 if ($debut < $last) {
208 if ($debut == $en_cours && $erreur) $class = "on erreur";
209 else if ($debut == $en_cours) $class = "on";
210 else if ($debut > $en_cours) $class = "prochains";
211 else $class = "valides";
213 $aff_etapes .= "<li class='$class'><div class='fond'>";
214 $aff_etapes .= ($debut == $en_cours)?
"<strong>":'';
215 $aff_etapes .= "<em>"._T('etape')." </em><span class='numero_etape'>$debut</span><em> : </em>";
216 $aff_etapes .= $intitule_etat["$phase"][$debut];
217 $aff_etapes .= ($debut == $en_cours)?
"</strong>":'';
218 $aff_etapes .= "</div></li>";
222 $aff_etapes .= "</ul>";
223 $aff_etapes .= "<br class='nettoyeur' />\n";
228 // http://doc.spip.org/@fieldset
229 function fieldset($legend, $champs = array(), $apres='', $avant='') {
230 return "<fieldset>\n" .
232 ($legend ?
"<legend>".$legend."</legend>\n" : '') .
233 fieldset_champs($champs) .
238 function fieldset_champs($champs = array())
241 foreach ($champs as $nom => $contenu) {
242 $type = isset($contenu['hidden']) ?
'hidden' : (preg_match(',^pass,', $nom) ?
'password' : 'text');
243 $class = isset($contenu['hidden']) ?
'' : "class='formo' size='40' ";
244 if(isset($contenu['alternatives'])) {
245 $fieldset .= $contenu['label'] ."\n";
246 foreach($contenu['alternatives'] as $valeur => $label) {
247 $fieldset .= "<input type='radio' name='".$nom .
248 "' id='$nom-$valeur' value='$valeur'"
249 .(($valeur==$contenu['valeur'])?
"\nchecked='checked'":'')
251 $fieldset .= "<label for='$nom-$valeur'>".$label."</label>\n";
253 $fieldset .= "<br />\n";
256 $fieldset .= "<label for='".$nom."'>".$contenu['label']."</label>\n";
257 $fieldset .= "<input ".$class."type='".$type."' id='" . $nom . "' name='".$nom."'\nvalue='".$contenu['valeur']."'"
258 .(preg_match(',^(pass|login),', $nom)?
" autocomplete='off'":'') . " />\n";
264 function install_select_serveur()
267 $dir = _DIR_RESTREINT
. 'req/';
269 if (!$d) return array();
270 while ($f = readdir($d)) {
271 if ((preg_match('/^(.*)[.]php$/', $f, $s))
272 AND is_readable($f = $dir . $f)) {
275 $v = 'spip_versions_' . $s;
276 if (function_exists($v) AND $v()) {
277 $titre = _T("install_select_type_$s");
278 $options[$s] = "<option value='$s'>"
279 . ($titre ?
$titre : $s)
281 } else spip_log("$s: portage indisponible");
288 // http://doc.spip.org/@install_connexion_form
289 function install_connexion_form($db, $login, $pass, $predef, $hidden, $etape)
291 $server_db = (is_string($predef[0])) ?
$predef[0] : '';
293 return generer_form_ecrire('install', (
294 "\n<input type='hidden' name='etape' value='$etape' />"
296 . (_request('echec')?
297 ("<p><b>"._T('avis_connexion_echec_1').
298 "</b></p><p>"._T('avis_connexion_echec_2')."</p><p style='font-size: small;'>"._T('avis_connexion_echec_3')."</p>")
301 . http_script('', 'jquery.js')
303 $(document).ready(function() {
304 $("input[type=hidden][name=server_db]").each(function(){
305 if ($(this).attr("value").match("sqlite*")){
306 $("#install_adresse_base_hebergeur").hide();
307 $("#install_login_base_hebergeur").hide();
308 $("#install_pass_base_hebergeur").hide();
311 $("#sql_serveur_db").change(function(){
312 if ($(this).find("option:selected").attr("value").match("sqlite*")){
313 $("#install_adresse_base_hebergeur").hide();
314 $("#install_login_base_hebergeur").hide();
315 $("#install_pass_base_hebergeur").hide();
317 $("#install_adresse_base_hebergeur").show();
318 $("#install_login_base_hebergeur").show();
319 $("#install_pass_base_hebergeur").show();
325 ?
'<input type="hidden" name="server_db" value="'.$server_db.'" />'
327 ?
('<h3>'._T('install_serveur_hebergeur').'</h3>')
329 : ('<fieldset><legend>'
330 ._T('install_select_type_db')
332 .'<label for="sql_serveur_db">'
333 . _T('install_types_db_connus')
334 // Passer l'avertissement SQLIte en commentaire, on pourra facilement le supprimer par la suite sans changer les traductions.
335 . "<br /><small>(". _T('install_types_db_connus_avertissement') .')</small>'
337 . "\n<div style='text-align: center;'><select name='server_db' id='sql_serveur_db' >\n"
338 . join("\n", install_select_serveur())
339 . "\n</select></div></fieldset>")
341 . '<div id="install_adresse_base_hebergeur">'
343 ?
'<h3>'._T('install_adresse_base_hebergeur').'</h3>'
344 : fieldset(_T('entree_base_donnee_1'),
346 'adresse_db' => array(
355 . '<div id="install_login_base_hebergeur">'
357 ?
'<h3>'._T('install_login_base_hebergeur').'</h3>'
358 : fieldset(_T('entree_login_connexion_1'),
361 'label' => $login[1],
362 'valeur' => $login[0]
369 . '<div id="install_pass_base_hebergeur">'
371 ?
'<h3>'._T('install_pass_base_hebergeur').'</h3>'
372 : fieldset(_T('entree_mot_passe_1'),
383 . bouton_suivant()));
387 // 4 valeurs qu'on reconduit d'un script a l'autre
388 // sauf s'ils sont predefinis.
390 // http://doc.spip.org/@predef_ou_cache
391 function predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
393 return ((defined('_INSTALL_HOST_DB'))
395 : "\n<input type='hidden' name='adresse_db' value=\"".htmlspecialchars($adresse_db)."\" />"
397 . ((defined('_INSTALL_USER_DB'))
399 : "\n<input type='hidden' name='login_db' value=\"".htmlspecialchars($login_db)."\" />"
401 . ((defined('_INSTALL_PASS_DB'))
403 : "\n<input type='hidden' name='pass_db' value=\"".htmlspecialchars($pass_db)."\" />"
406 . ((defined('_INSTALL_SERVER_DB'))
408 : "\n<input type='hidden' name='server_db' value=\"".htmlspecialchars($server_db)."\" />"
412 // presentation des bases existantes
414 // http://doc.spip.org/@install_etape_liste_bases
415 function install_etape_liste_bases($server_db, $login_db, $disabled=array())
417 $result = sql_listdbs($server_db);
418 if (!$result) return '';
420 $bases = $checked = $noms = array();
422 // si sqlite : result est deja un tableau
423 if (is_array($result)){
426 while ($row = sql_fetch($result, $server_db)) {
427 $noms[] = array_shift($row);
430 foreach ($noms as $nom){
431 $id = htmlspecialchars($nom);
432 $dis = in_array($nom, $disabled) ?
" disabled='disabled'" : '';
433 $base = " name=\"choix_db\" value=\""
437 . " type='radio' id='$id'";
438 $label = "<label for='$id'>"
439 . ($dis ?
"<i>$nom</i>" : $nom)
442 if (!$checked AND !$dis AND
443 (($nom == $login_db) OR
444 ($GLOBALS['table_prefix'] == $nom))) {
445 $checked = "<input$base checked='checked' />\n$label";
447 $bases[]= "<input$base />\n$label";
451 if (!$bases && !$checked) return false;
453 if ($checked) {array_unshift($bases, $checked); $checked = true;}
455 return array($checked, $bases);
458 function install_propager($hidden)
461 foreach($hidden as $k) {
462 $v = htmlentities(_request($k));
463 $res .= "<input type='hidden' name='$k' value='$v' />";