[SPIP] +2.1.12
[velocampus/web/www.git] / www / plugins / auto / couteau_suisse / couteau_suisse / exec / cs_version.php
1 <?php
2 #-----------------------------------------------------#
3 # Plugin : Couteau Suisse - Licence : GPL #
4 # Auteur : Patrice Vanneufville, 2007 #
5 # Contact : patrice¡.!vanneufville¡@!laposte¡.!net #
6 # Infos : http://www.spip-contrib.net/?article2166 #
7 #-----------------------------------------------------#
8 if (!defined("_ECRIRE_INC_VERSION")) return;
9
10 include_spip('inc/actions');
11 include_spip('cout_define');
12
13 function exec_cs_version_dist() {
14 cs_minipres();
15 $version = _request('version');
16 $force = _request('force')=='oui';
17
18 // pour la version disponible, on regarde toutes les 2h00
19 $maj = isset($GLOBALS['meta']['tweaks_maj'])?unserialize($GLOBALS['meta']['tweaks_maj']):array(0, '');
20 if (!$force && $maj[1] && (time()-$maj[0] < 2*3600)) $distant = $maj[1];
21 else {
22 include_spip('inc/distant');
23 $distant = recuperer_page(_URL_CS_PLUGIN_XML);
24 if ($distant) $distant = $maj[1] = preg_match(',<version>([0-9.]+)</version>,', $distant, $regs)?$regs[1]:'';
25 $maj[0] = time();
26 if ($distant) ecrire_meta('tweaks_maj', serialize($maj));
27 ecrire_metas();
28 }
29 include_spip('inc/texte');
30 include_spip('couteau_suisse_fonctions'); // fonctions pour les pipelines
31 if (!$distant)
32 return ajax_retour('<span style="color: red;">'._T('couteauprive:erreur:probleme', array('pb'=>cs_lien(_URL_CS_PLUGIN_XML,_T('couteauprive:erreur:distant')))).'</span>');
33 ajax_retour(ptobr(propre($distant==$version?_T('couteauprive:version_a_jour'):(
34 $distant?_T('couteauprive:version_nouvelle', array('version' => "[{$distant}->http://files.spip.org/spip-zone/couteau_suisse.zip]")):''
35 ))));
36 }
37 ?>