www/ecrire/inc/install.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15 //  Pour ecrire les fichiers memorisant les parametres de connexion
  16
  17 // http://doc.spip.org/@install_fichier_connexion
  18 function install_fichier_connexion($nom, $texte)
  19 {
  20         $texte = "<"."?php\n"
  21         . "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
  22         . $texte
  23         . "?".">";
  24
  25         ecrire_fichier($nom, $texte);
  26 }
  27
  28 // Attention etape_ldap4 suppose qu'il n'y aura qu'un seul appel de fonction
  29 // dans le fichier produit.
  30
  31 // http://doc.spip.org/@install_connexion
  32 function install_connexion($adr, $port, $login, $pass, $base, $type, $pref, $ldap='')
  33 {
  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"
  43         . "spip_connect_db("
  44         . "'$adr','$port','$login','$pass','$base'"
  45         . ",'$type', '$pref','$ldap');\n";
  46 }
  47
  48 // Analyse si un fichier contient le resultat de la fonction install_connexion
  49 // y compris ce qu'elle produisait dans les versions precedentes
  50
  51 // http://doc.spip.org/@analyse_fichier_connection
  52 function analyse_fichier_connection($file)
  53 {
  54         $s = @join('', file($file));
  55         if (preg_match("#mysql_connect\([\"'](.*)[\"'],[\"'](.*)[\"'],[\"'](.*)[\"']\)#", $s, $regs)) {
  56                 array_shift($regs);
  57                 return $regs;
  58         } else {
  59                 $ar = '\s*\'([^\']*)\'';
  60                 $r = '\s*,' . $ar;
  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;");
  64                         array_shift($regs);
  65                         array_shift($regs);
  66                         return $regs;
  67                 }
  68         }
  69         spip_log("$file n'est pas un fichier de connexion");
  70         return array();
  71 }
  72
  73 // http://doc.spip.org/@bases_referencees
  74 function bases_referencees($exclu='')
  75 {
  76         $tables = array();
  77         foreach(preg_files(_DIR_CONNECT, '.php$') as $f) {
  78                 if ($f != $exclu AND analyse_fichier_connection($f))
  79                         $tables[]= basename($f, '.php');
  80         }
  81         return $tables;
  82 }
  83
  84
  85 function install_mode_appel($server_db, $tout=true)
  86 {
  87         return ($server_db != 'mysql') ? ''
  88         : (($tout  ? test_rappel_nom_base_mysql($server_db) : '')
  89                 . test_sql_mode_mysql($server_db)       );
  90 }
  91
  92 //
  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() {
  97         $err = array();
  98
  99         $p = phpversion();
 100         if (preg_match(',^([0-9]+)\.([0-9]+)\.([0-9]+),', $p, $regs)) {
 101                 $php = array($regs[1], $regs[2], $regs[3]);
 102                 $m = '4.0.8';
 103                 $min = explode('.', $m);
 104                 if ($php[0]<$min[0]
 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));
 108         }
 109
 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>";
 118
 119         // et il faut preg
 120         if (!function_exists('preg_match_all'))
 121                 $err[] = _T('install_extension_php_obligatoire')
 122                 . " <a href='http://se.php.net/pcre'>PCRE</a>";
 123
 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>";
 128
 129         if ($err) {
 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";
 133
 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";
 137         }
 138 }
 139
 140
 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;
 145
 146         $base_hebergeur = 'localhost'; # par defaut
 147
 148         // Lycos (ex-Multimachin)
 149         if ($HTTP_X_HOST == 'membres.lycos.fr') {
 150                 preg_match(',^/([^/]*),', $REQUEST_URI, $regs);
 151                 $login_hebergeur = $regs[1];
 152         }
 153         // Altern
 154         else if (preg_match(',altern\.com$,', $SERVER_NAME)) {
 155                 preg_match(',([^.]*\.[^.]*)$,', $HTTP_HOST, $regs);
 156                 $login_hebergeur = preg_replace('[^\w\d]', '_', $regs[1]);
 157         }
 158         // Free
 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 = '';
 163
 164         return array($base_hebergeur, $login_hebergeur);
 165 }
 166
 167
 168 // http://doc.spip.org/@info_etape
 169 function info_etape($titre, $complement = ''){
 170         return "<h2>".$titre."</h2>\n" .
 171         ($complement ? "<br />".$complement."\n":'');
 172 }
 173
 174 // http://doc.spip.org/@bouton_suivant
 175 function bouton_suivant($code = '') {
 176         if($code=='') $code = _T('bouton_suivant');
 177         static $suivant = 0;
 178         $id = 'suivant'.(($suivant>0)?strval($suivant):'');
 179         $suivant +=1;
 180         return "\n<span class='suivant'><input id='".$id."' type='submit'\nvalue=\"" .
 181                 $code .
 182                 " >>\" /></span>\n";
 183 }
 184
 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'));
 192
 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'));
 197
 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'));
 203
 204 //      $aff_etapes = "<span id='etapes'>";
 205
 206         $aff_etapes = "<ul id='infos_etapes' class='infos_$phase$en_cours'>";
 207
 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";
 214
 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>&nbsp;: </em>";
 218                         $aff_etapes .= $intitule_etat["$phase"][$debut];
 219                         $aff_etapes .= ($debut == $en_cours)?"</strong>":'';
 220                         $aff_etapes .= "</div></li>";
 221                 }
 222                 $debut++;
 223         }
 224         $aff_etapes .= "</ul>";
 225         $aff_etapes .= "<br class='nettoyeur' />\n";
 226         return $aff_etapes;
 227 }
 228
 229
 230 // http://doc.spip.org/@fieldset
 231 function fieldset($legend,  $champs = array(), $apres='', $avant='') {
 232         return "<fieldset>\n" .
 233           $avant .
 234           ($legend ? "<legend>".$legend."</legend>\n" : '') .
 235           fieldset_champs($champs) .
 236           $apres .
 237           "</fieldset>\n";
 238 }
 239
 240 function fieldset_champs($champs = array())
 241   {
 242         $fieldset = '';
 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'":'')
 252                                   ."/>\n";
 253                                 $fieldset .= "<label for='$nom-$valeur'>".$label."</label>\n";
 254                         }
 255                         $fieldset .= "<br />\n";
 256                 }
 257                 else {
 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";
 261                 }
 262         }
 263         return $fieldset;
 264 }
 265
 266 function install_select_serveur()
 267 {
 268         $options = array();
 269         $dir = _DIR_RESTREINT . 'req/';
 270         $d = @opendir($dir);
 271         if (!$d) return array();
 272         while ($f = readdir($d)) {
 273                 if ((preg_match('/^(.*)[.]php$/', $f, $s))
 274                 AND is_readable($f = $dir . $f)) {
 275                         require_once($f);
 276                         $s = $s[1];
 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)
 282                             ."</option>";
 283                         } else spip_log("$s: portage indisponible");
 284                 }
 285         }
 286         sort($options);
 287         return $options;
 288 }
 289
 290 // http://doc.spip.org/@install_connexion_form
 291 function install_connexion_form($db, $login, $pass, $predef, $hidden, $etape)
 292 {
 293         $server_db = (is_string($predef[0])) ? $predef[0] : '';
 294
 295         return generer_form_ecrire('install', (
 296           "\n<input type='hidden' name='etape' value='$etape' />"
 297         . $hidden
 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>")
 301                         :"")
 302
 303         . http_script('',  'jquery.js')
 304         . http_script('
 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();
 311                                 }
 312                         });
 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();
 318                                 } else {
 319                                         $("#install_adresse_base_hebergeur").show();
 320                                         $("#install_login_base_hebergeur").show();
 321                                         $("#install_pass_base_hebergeur").show();
 322                                 }
 323                         });
 324                 });')
 325
 326         . ($server_db
 327                 ? '<input type="hidden" name="server_db" value="'.$server_db.'" />'
 328                         . (($predef[0])
 329                            ?('<h3>'._T('install_serveur_hebergeur').'</h3>')
 330                                 :'')
 331                 : ('<fieldset><legend>'
 332                    ._T('install_select_type_db')
 333                 . "</legend>"
 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>'
 338                         .'</label>'
 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>")
 342         )
 343         . '<div id="install_adresse_base_hebergeur">'
 344         . ($predef[1]
 345         ? '<h3>'._T('install_adresse_base_hebergeur').'</h3>'
 346         : fieldset(_T('entree_base_donnee_1'),
 347                 array(
 348                         'adresse_db' => array(
 349                                 'label' => $db[1],
 350                                 'valeur' => $db[0]
 351                         ),
 352                 )
 353         )
 354         )
 355         . '</div>'
 356
 357         . '<div id="install_login_base_hebergeur">'
 358         . ($predef[2]
 359         ? '<h3>'._T('install_login_base_hebergeur').'</h3>'
 360         : fieldset(_T('entree_login_connexion_1'),
 361                 array(
 362                         'login_db' => array(
 363                                         'label' => $login[1],
 364                                         'valeur' => $login[0]
 365                         ),
 366                 )
 367         )
 368         )
 369         . '</div>'
 370
 371         . '<div id="install_pass_base_hebergeur">'
 372         . ($predef[3]
 373         ? '<h3>'._T('install_pass_base_hebergeur').'</h3>'
 374         : fieldset(_T('entree_mot_passe_1'),
 375                 array(
 376                         'pass_db' => array(
 377                                 'label' => $pass[1],
 378                                 'valeur' => $pass[0]
 379                         ),
 380                 )
 381         )
 382         )
 383         . '</div>'
 384
 385         . bouton_suivant()));
 386
 387 }
 388
 389 // 4 valeurs qu'on reconduit d'un script a l'autre
 390 // sauf s'ils sont predefinis.
 391
 392 // http://doc.spip.org/@predef_ou_cache
 393 function predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
 394 {
 395         return ((defined('_INSTALL_HOST_DB'))
 396                 ? ''
 397                 : "\n<input type='hidden' name='adresse_db'  value=\"".htmlspecialchars($adresse_db)."\" />"
 398         )
 399         . ((defined('_INSTALL_USER_DB'))
 400                 ? ''
 401                 : "\n<input type='hidden' name='login_db' value=\"".htmlspecialchars($login_db)."\" />"
 402         )
 403         . ((defined('_INSTALL_PASS_DB'))
 404                 ? ''
 405                 : "\n<input type='hidden' name='pass_db' value=\"".htmlspecialchars($pass_db)."\" />"
 406         )
 407
 408         . ((defined('_INSTALL_SERVER_DB'))
 409                 ? ''
 410                 : "\n<input type='hidden' name='server_db' value=\"".htmlspecialchars($server_db)."\" />"
 411            );
 412 }
 413
 414 // presentation des bases existantes
 415
 416 // http://doc.spip.org/@install_etape_liste_bases
 417 function install_etape_liste_bases($server_db, $login_db, $disabled=array())
 418 {
 419         $result = sql_listdbs($server_db);
 420         if (!$result) return '';
 421
 422         $bases = $checked = $noms = array();
 423
 424         // si sqlite : result est deja un tableau
 425         if (is_array($result)){
 426                 $noms = $result;
 427         } else {
 428                 while ($row = sql_fetch($result, $server_db)) {
 429                         $noms[] = array_shift($row);
 430                 }
 431         }
 432         foreach ($noms as $nom){
 433                 $id = htmlspecialchars($nom);
 434                 $dis = in_array($nom, $disabled) ? " disabled='disabled'" : '';
 435                 $base = " name=\"choix_db\" value=\""
 436                   . $nom
 437                   . '"'
 438                   . $dis
 439                   . " type='radio' id='$id'";
 440                 $label = "<label for='$id'>"
 441                 . ($dis ? "<i>$nom</i>" : $nom)
 442                 . "</label>";
 443
 444                 if (!$checked AND !$dis AND
 445                     (($nom == $login_db) OR
 446                         ($GLOBALS['table_prefix'] == $nom))) {
 447                         $checked = "<input$base checked='checked' />\n$label";
 448                 } else {
 449                         $bases[]= "<input$base />\n$label";
 450                 }
 451         }
 452
 453         if (!$bases && !$checked) return false;
 454
 455         if ($checked) {array_unshift($bases, $checked); $checked = true;}
 456
 457         return array($checked, $bases);
 458 }
 459
 460 function install_propager($hidden)
 461 {
 462         $res = '';
 463         foreach($hidden as $k) {
 464                 $v = htmlentities(_request($k));
 465                 $res .= "<input type='hidden' name='$k' value='$v' />";
 466         }
 467         return $res;
 468 }
 469 ?>