Subversion Repositories Sites.tela-botanica.org

Compare Revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/actu/ecrire/upgrade.php3
New file
0,0 → 1,100
<?php
 
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2005 *
* 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. *
\***************************************************************************/
 
 
include ("inc_version.php3");
 
if (!_FILE_CONNECT) {
Header("Location: install.php3");
exit;
}
 
include_ecrire ("inc_presentation.php3");
include_ecrire ("inc_auth.php3");
include_ecrire ("inc_admin.php3");
include_ecrire ("inc_acces.php3");
include_ecrire ("inc_config.php3");
include_ecrire ("inc_texte.php3");
include_ecrire ("inc_filtres.php3");
 
include_ecrire ("inc_lang.php3");
utiliser_langue_visiteur();
 
// Si reinstallation necessaire, message ad hoc
if ($reinstall == 'oui') {
 
@copy(_FILE_CONNECT, _FILE_CONNECT_INS);
 
install_debut_html(_T('titre_page_upgrade'));
echo "<p><b>"._T('texte_nouvelle_version_spip_1')."</b><p> ";
echo _T('texte_nouvelle_version_spip_2');
 
$link = new Link();
echo "<p><div align='right'>";
echo $link->getForm('GET');
echo "<input type='submit' name='submit' value=\""._T('bouton_relancer_installation')."\" class='fondl'>";
echo "</form>\n";
 
install_fin_html();
exit;
}
 
 
// eviter les actions vides pour cause de fichier de langue inaccessible.
$upgrade_titre = _T('info_mise_a_niveau_base') ;
if (!$upgrade_titre) $upgrade_titre = 'info_mise_a_niveau_base';
 
// Commentaire standard upgrade
$commentaire = _T('texte_mise_a_niveau_base_1');
 
// Verifier la version
$version_installee = (double) str_replace(',','.',lire_meta('version_installee'));
# NB: str_replace car, sur club-internet, il semble que version_installe soit
# enregistree au format '1,812' et non '1.812'
 
// Erreur downgrade (cas de double installation de fichiers SPIP sur une meme base)
if ($spip_version < $version_installee)
$commentaire = _T('info_mise_a_niveau_base_2');
 
 
// Qu'est-ce que tu fais ici?
if ($spip_version == $version_installee) {
@header("Location: index.php3");
exit;
}
 
debut_admin($upgrade_titre, $commentaire);
 
include_ecrire ("inc_base.php3");
 
creer_base();
$ok = maj_base();
 
if ($ok) {
ecrire_acces();
init_config();
 
}
 
fin_admin($upgrade_titre);
 
if ($ok) {
$hash = calculer_action_auteur("purger_cache");
@header ("Location: ../spip_cache.php3?purger_cache=oui&id_auteur=$connect_id_auteur&hash=$hash&redirect=" . _DIR_RESTREINT_ABS . "index.php3");
}
else {
include_ecrire ('inc_lang.php3');
echo _T('alerte_maj_impossible', array('version' => $spip_version));
exit;
}
 
?>