[SPIP] ~v3.0.20-->v3.0.25

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

diff --git a/www/plugins-dist/sites/inc/site.php b/www/plugins-dist/sites/inc/site.php
index 66775d3..2593d36 100644 (file)
--- a/www/plugins-dist/sites/inc/site.php
+++ b/www/plugins-dist/sites/inc/site.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.     *
@@ -88,8 +88,15 @@ function analyser_site($url) {
                        $head = filtrer_entites($regs[1]);
                } else
                        $head = $texte;
-               if (preg_match(',<title[^>]*>(.*),i', $head, $regs))
-                       $result['nom_site'] = filtrer_entites(supprimer_tags(preg_replace(',</title>.*,i', '', $regs[1])));
+
+               if (preg_match(',<title[^>]*>(.*),ims', $head, $regs)){
+                       $titre = trim($regs[1]);
+                       if (!strlen($titre)){
+                               $titre = substr($head,strpos($head,$regs[0]));
+                       }
+                       $result['nom_site'] = filtrer_entites(supprimer_tags(preg_replace(',</title>.*$,ims', '', $titre)));
+               }
+
                if ($a = array_merge(
                        extraire_balises($head, 'meta'),
                        extraire_balises($head, 'http-equiv')