Subversion Repositories Sites.tela-botanica.org

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 1
<?php
2
 
3
/***************************************************************************\
4
 *  SPIP, Systeme de publication pour l'internet                           *
5
 *                                                                         *
6
 *  Copyright (c) 2001-2005                                                *
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
 
14
include ("inc_version.php3");
15
 
16
if (!_FILE_CONNECT) {
17
	Header("Location: install.php3");
18
	exit;
19
 }
20
 
21
include_ecrire ("inc_presentation.php3");
22
include_ecrire ("inc_auth.php3");
23
include_ecrire ("inc_admin.php3");
24
include_ecrire ("inc_acces.php3");
25
include_ecrire ("inc_config.php3");
26
include_ecrire ("inc_texte.php3");
27
include_ecrire ("inc_filtres.php3");
28
 
29
include_ecrire ("inc_lang.php3");
30
utiliser_langue_visiteur();
31
 
32
// Si reinstallation necessaire, message ad hoc
33
if ($reinstall == 'oui') {
34
 
35
	@copy(_FILE_CONNECT, _FILE_CONNECT_INS);
36
 
37
	install_debut_html(_T('titre_page_upgrade'));
38
	echo "<p><b>"._T('texte_nouvelle_version_spip_1')."</b><p> ";
39
	echo _T('texte_nouvelle_version_spip_2');
40
 
41
	$link = new Link();
42
	echo "<p><div align='right'>";
43
	echo $link->getForm('GET');
44
	echo "<input type='submit' name='submit' value=\""._T('bouton_relancer_installation')."\" class='fondl'>";
45
	echo "</form>\n";
46
 
47
	install_fin_html();
48
	exit;
49
}
50
 
51
 
52
// eviter les actions vides pour cause de fichier de langue inaccessible.
53
$upgrade_titre = _T('info_mise_a_niveau_base') ;
54
if (!$upgrade_titre) $upgrade_titre = 'info_mise_a_niveau_base';
55
 
56
// Commentaire standard upgrade
57
$commentaire = _T('texte_mise_a_niveau_base_1');
58
 
59
// Verifier la version
60
$version_installee = (double) str_replace(',','.',lire_meta('version_installee'));
61
# NB: str_replace car, sur club-internet, il semble que version_installe soit
62
# enregistree au format '1,812' et non '1.812'
63
 
64
// Erreur downgrade (cas de double installation de fichiers SPIP sur une meme base)
65
if ($spip_version < $version_installee)
66
	$commentaire = _T('info_mise_a_niveau_base_2');
67
 
68
 
69
// Qu'est-ce que tu fais ici?
70
if ($spip_version == $version_installee) {
71
	@header("Location: index.php3");
72
	exit;
73
}
74
 
75
debut_admin($upgrade_titre, $commentaire);
76
 
77
include_ecrire ("inc_base.php3");
78
 
79
creer_base();
80
$ok = maj_base();
81
 
82
if ($ok) {
83
	ecrire_acces();
84
	init_config();
85
 
86
}
87
 
88
fin_admin($upgrade_titre);
89
 
90
if ($ok) {
91
	$hash = calculer_action_auteur("purger_cache");
92
	@header ("Location: ../spip_cache.php3?purger_cache=oui&id_auteur=$connect_id_auteur&hash=$hash&redirect=" .  _DIR_RESTREINT_ABS . "index.php3");
93
 }
94
else {
95
	include_ecrire ('inc_lang.php3');
96
	echo _T('alerte_maj_impossible', array('version' => $spip_version));
97
	exit;
98
}
99
 
100
?>