[Sommaire] [Imprimer]

   1  <?php
   2  
   3  /***************************************************************************\
   4   *  SPIP, Systeme de publication pour l'internet                           *
   5   *                                                                         *
   6   *  Copyright (c) 2001-2007                                                *
   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  include_spip('inc/actions');
  16  include_spip('inc/headers');
  17  
  18  // http://doc.spip.org/@exec_upgrade_dist
  19  function exec_upgrade_dist() {
  20  
  21      global $connect_id_auteur, $spip_version, $reinstall;
  22  
  23      if (!_FILE_CONNECT)
  24          redirige_par_entete(generer_url_ecrire("install"));
  25  
  26      // Si reinstallation necessaire, message ad hoc
  27      if ($reinstall == 'oui') {
  28  
  29          @copy(_FILE_CONNECT, _FILE_CONNECT_INS);
  30  
  31          echo install_debut_html(_T('titre_page_upgrade')); 
  32          echo "<p><b>",_T('texte_nouvelle_version_spip_1'),"</b><p> ",
  33            _T('texte_nouvelle_version_spip_2',
  34               array('connect' => '<tt>' . _FILE_CONNECT . '</tt>')),
  35           "<div align='right'>",
  36            '<form action="', generer_url_ecrire("upgrade", 'reinstall=non'),
  37            '">', "<input type='submit' value=\"",
  38          _T('bouton_relancer_installation'),
  39          "\" class='fondl'>",
  40          "</form></div>\n";
  41  
  42          echo install_fin_html();
  43          exit;
  44      }
  45  
  46      // eviter les actions vides pour cause de fichier de langue inaccessible.
  47      $upgrade_titre = _T('info_mise_a_niveau_base') ;
  48      if (!$upgrade_titre) $upgrade_titre = 'info_mise_a_niveau_base';
  49  
  50      // Commentaire standard upgrade
  51      $commentaire = _T('texte_mise_a_niveau_base_1');
  52  
  53      // Verifier la version
  54      $version_installee = (double) str_replace(',','.',$GLOBALS['meta']['version_installee']);
  55  # NB: str_replace car, sur club-internet, il semble que version_installe soit
  56  # enregistree au format '1,812' et non '1.812'
  57  
  58      // Erreur downgrade
  59      // (cas de double installation de fichiers SPIP sur une meme base)
  60      if ($spip_version < $version_installee)
  61          $commentaire = _T('info_mise_a_niveau_base_2');
  62  
  63      // Qu'est-ce que tu fais ici?
  64      if ($spip_version == $version_installee)
  65          redirige_par_entete('./');
  66  
  67      // On passe a l'upgrade
  68      include_spip('inc/admin');
  69  
  70      $_POST['reinstall'] = 'non';
  71      debut_admin("upgrade", $upgrade_titre, $commentaire);
  72  
  73      include_spip('base/create');
  74      creer_base();
  75      include_spip('base/upgrade');
  76      maj_base();
  77  
  78      include_spip('inc/acces');
  79      include_spip('inc/config');
  80      ecrire_acces();
  81      init_config();
  82  
  83      fin_admin($upgrade_titre);
  84  
  85      redirige_par_entete(generer_action_auteur('purger', 'cache', _DIR_RESTREINT_ABS, true));
  86  }
  87  
  88  ?>