Changeset 34886 for _plugins_/couteau_suisse

Timestamp:

02/03/10 19:55:02 (6 weeks ago)

Author:

patfr@…

Message:

Mises à jour automatiques : vérification distante (et mise en cache de cette vérification) des zip potentiels

Location:

_plugins_/couteau_suisse

Files:

• outils/maj_auto_action_rapide.php (modified) (5 diffs)
• plugin.xml (modified) (1 diff)

_plugins_/couteau_suisse/outils/maj_auto_action_rapide.php

@@ -5 +5 @@
 if (!defined("_ECRIRE_INC_VERSION")) return; // securiser
 include_spip('inc/actions');
+include_spip('inc/distant');
 
 define('_MAJ_SVN_DEBUT', 'svn://zone.spip.org/spip-zone/');
@@ -79 +80 @@
 
 // renvoie le pattern present dans la page distante
-function maj_auto_rev_distante($url, $pattern, $lastmodified = 0, $force = false) {
+// si le pattern est NULL, renvoie un 'is_file_exists'
+function maj_auto_rev_distante($url, $pattern=NULL, $lastmodified = 0, $force = false) {
         $force |= in_array(_request('var_mode'), array('calcul', 'recalcul'));
 
@@ -89 +91 @@
         if (!$force && $maj[1]!==false && ($lastmodified<$maj[0]) && (time()-$maj[0] < 24*3600)) $distant = $maj[1];
         else {
-                include_spip('inc/distant');
-                $distant = recuperer_page($url);
-                $distant = $maj[1] = $distant?(preg_match($pattern, $distant, $regs)?$regs[1]:'-2'):'-1';
+                $distant = $maj[1] = ($pattern!==NULL)
+                        ?(($distant = recuperer_page($url))
+                                ?(preg_match($pattern, $distant, $regs)?$regs[1]:'-2')
+                                :'-1')
+                        :strlen(recuperer_page($url, false, true, 0));
                 $maj[0] = time();
                 ecrire_meta('tweaks_maj_auto', serialize($maj_));
@@ -102 +106 @@
         $get_infos = defined('_SPIP20100')?charger_fonction('get_infos','plugins'):'plugin_get_infos';
         $infos = $get_infos($p);
-        $p2 = preg_match(',^auto/(.*)$,', $p, $regs)?$regs[1]:'';
-        if(strlen($p2)) {
-                // supposition du nom d'archive sur files.spip.org
-                $infos['zip_trac'] = _MAJ_ZIP . $p2. '.zip';
-                // nom de l'archive recemment installee par chargeur
-                $ok = lire_fichier(sous_repertoire(_DIR_CACHE, 'chargeur').$p2.'/install.log', $log);
-                $infos['zip_log'] = ($ok && preg_match(',[\n\r]source: *([^\n\r]+),msi', $log, $regs))
-                        ?$regs[1]:'';
-        } else $infos['zip_log'] = $infos['zip_trac'] = '';
         // fichier svn.revision
         $ok = lire_fichier($svn_rev = _DIR_PLUGINS.$p.'/svn.revision', $svn);
@@ -136 +131 @@
         $infos['rev_rss'] = maj_auto_rev_distante($infos['url_origine'], ', \[(\d+)\],', $lastmodified, $force);
         $infos['maj_dispo'] = $infos['rev_rss']>0 && $infos['rev_local']>0 && $infos['rev_rss']>$infos['rev_local'];
+        // fichiers zip
+        $infos['zip_log'] = $infos['zip_trac'] = '';
+        $p2 = preg_match(',^auto/(.*)$,', $p, $regs)?$regs[1]:'';
+        if(strlen($p2)) {
+                // supposition du nom d'archive sur files.spip.org
+                if(maj_auto_rev_distante($f = _MAJ_ZIP.$p2.'.zip')) $infos['zip_trac'] = $f;
+                // nom de l'archive recemment installee par chargeur
+                if(lire_fichier(sous_repertoire(_DIR_CACHE, 'chargeur').$p2.'/install.log', $log)
+                                && preg_match(',[\n\r]source: *([^\n\r]+),msi', $log, $regs)
+                                && maj_auto_rev_distante($regs[1]))
+                        $infos['zip_log'] = $regs[1];
+                // au final on prend le bon
+                if(!$infos['zip_trac']) $infos['zip_trac'] = $infos['zip_log'];
+        }
         return $infos;
 }

_plugins_/couteau_suisse/plugin.xml

@@ -2 +2 @@
         <nom><multi>Swiss Knife[fr]Le Couteau Suisse[ca]El Ganivet Su&#237;s[ar]&#1587;&#1603;&#1610;&#1606; &#1575;&#1604;&#1580;&#1610;&#1576;[nl]Het Zwitserland Mes[gl]A navalla su&#237;za[es]La Navaja Suiza[de]Schweizer Taschenmesser[tr]&#304;svi&#231;re &#199;ak&#305;s&#305;[br]Ar Gontell Suis[pt_br]Canivete Su&#237;&#231;o[ast]La Navaya Suiza[gl]A navalla su&#237;za[ro]Cu&#355;itul Elve&#355;ian[it]Coltellino Svizzero</multi></nom>
         <icon>img/couteau-50.gif</icon>
-        <version>1.8.13.07</version>
+        <version>1.8.13.08</version>
         <auteur>Patrice Vanneufville
 _ &#169; 2007-2009 - Distribu&#233; sous licence GPL