[SPIP] ~v3.0.21-->v3.0.22

[lhc/web/www.git] / www / plugins-dist / sites / inc / syndic.php

diff --git a/www/plugins-dist/sites/inc/syndic.php b/www/plugins-dist/sites/inc/syndic.php
index 56d0e2d..f7bbc63 100644 (file)
--- a/www/plugins-dist/sites/inc/syndic.php
+++ b/www/plugins-dist/sites/inc/syndic.php
@@ -3,7 +3,7 @@
 /***************************************************************************\
  *  SPIP, Systeme de publication pour l'internet                           *
  *                                                                         *
- *  Copyright (c) 2001-2014                                                *
+ *  Copyright (c) 2001-2016                                                *
  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
  *                                                                         *
  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
@@ -264,6 +264,21 @@ function analyser_backend($rss, $url_syndic='') {
                // passer l'url en absolue
                $data['url'] = url_absolue(filtrer_entites($data['url']), $url_syndic);
 
+               // si on demande un dereferencement de l'URL, il faut verifier que ce n'est pas une redirection
+               if (_SYNDICATION_DEREFERENCER_URL){
+                       $target = $data['url'];
+                       include_spip("inc/distant");
+                       for ($i = 0; $i<10; $i++){
+                               // on fait un GET et pas un HEAD car les vieux SPIP ne repondent pas la redirection avec un HEAD (honte) sur un article virtuel
+                               $res = recuperer_lapage($target, false, "GET", 4096);
+                               if (!$res) break; // c'est pas bon signe car on a pas trouve l'URL...
+                               if (is_array($res))     break; // on a trouve la page, donc on a l'URL finale
+                               $target = $res; // c'est une redirection, on la suit pour voir ou elle mene
+                       }
+                       // ici $target est l'URL finale de la page
+                       $data['url'] = $target;
+               }
+
                // Trouver les microformats (ecrase les <category> et <dc:subject>)
                if (preg_match_all(
                ',<a[[:space:]]([^>]+[[:space:]])?rel=[^>]+>.*</a>,Uims',