www/ecrire/genie/mise_a_jour.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 /**
  16  * Verifier si une mise a jour est disponible
  17  *
  18  * @param int $t
  19  * @return int
  20  */
  21 function genie_mise_a_jour_dist($t) {
  22         include_spip('inc/meta');
  23         $maj = info_maj ('spip', 'SPIP', $GLOBALS['spip_version_branche']);
  24         ecrire_meta('info_maj_spip',$maj?($GLOBALS['spip_version_branche']."|$maj"):"",'non');
  25
  26         spip_log("Verification version SPIP : ".($maj?$maj:"version a jour"),"verifie_maj");
  27         return 1;
  28 }
  29
  30
  31 // Determiner si une nouvelle version de SPIP est disponible
  32 // sans demander tout le temps au serveur de versions si leur liste a change'.
  33
  34 define('_VERSIONS_SERVEUR', 'http://files.spip.org/');
  35 define('_VERSIONS_LISTE', 'archives.xml');
  36
  37 function info_maj ($dir, $file, $version){
  38         include_spip('inc/plugin');
  39
  40         list($maj,$min,$rev) = preg_split('/\D+/', $version);
  41
  42         $nom = _DIR_CACHE_XML . _VERSIONS_LISTE;
  43         $page = !file_exists($nom) ? '' : file_get_contents($nom);
  44         $page = info_maj_cache($nom, $dir, $page);
  45
  46         // reperer toutes les versions de numero majeur superieur ou egal
  47         // (a revoir quand on arrivera a SPIP V10 ...)
  48         $p = substr("0123456789", intval($maj));
  49         $p = ',/' . $file . '\D+([' . $p . ']+)\D+(\d+)(\D+(\d+))?.*?[.]zip",i';
  50         preg_match_all($p, $page, $m,  PREG_SET_ORDER);
  51         $page = '';
  52         foreach ($m as $v) {
  53                 list(, $maj2, $min2,, $rev2) = $v;
  54                 $version_maj = $maj2 . '.' . $min2 . '.' . $rev2;
  55                 if ((spip_version_compare($version, $version_maj, '<'))
  56                 AND (spip_version_compare($page, $version_maj, '<')))
  57                         $page = $version_maj;
  58         }
  59
  60         if (!$page) return "";
  61
  62         return $page;
  63 }
  64
  65 // Verifie que la liste $page des versions dans le fichier $nom est a jour
  66 // Ce fichier rajoute dans ce fichier l'alea ephemere courant;
  67 // on teste la nouveaute par If-Modified-Since,
  68 // et seulement quand celui-ci a change' pour limiter les acces HTTP
  69
  70 function info_maj_cache($nom, $dir, $page='')
  71 {
  72         $re = '<archives id="a' . $GLOBALS['meta']["alea_ephemere"] . '">';
  73         if (preg_match("/$re/", $page)) return $page;
  74
  75         $url = _VERSIONS_SERVEUR . $dir . '/' . _VERSIONS_LISTE;
  76         $a = file_exists($nom) ? filemtime($nom) : '';
  77         include_spip('inc/distant');
  78         $res = recuperer_lapage($url, false, 'GET', _COPIE_LOCALE_MAX_SIZE, '',false, $a);
  79         // Si rien de neuf (ou inaccessible), garder l'ancienne
  80         if ($res) list(, $page) = $res;
  81         // Placer l'indicateur de fraicheur
  82         $page = preg_replace('/^<archives.*?>/', $re, $page);
  83         sous_repertoire(_DIR_CACHE_XML);
  84         ecrire_fichier($nom, $page);
  85         return $page;
  86 }
  87
  88 ?>