From 6c9de8772a3fe3500bd29c8a5dba0d1a63b18acc Mon Sep 17 00:00:00 2001
From: Regis Houssin <regis@dolibarr.fr>
Date: Tue, 25 Jul 2006 15:37:32 +0000
Subject: [PATCH] =?UTF-8?q?Ajout=20fonction=20qui=20v=E9rifie=20si=20le=20?=
 =?UTF-8?q?flux=20rss=20est=20en=20utf8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 htdocs/includes/boxes/box_external_rss.php | 31 +++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

diff --git a/htdocs/includes/boxes/box_external_rss.php b/htdocs/includes/boxes/box_external_rss.php
index 5ae1e8502cd..611d2ee6080 100644
--- a/htdocs/includes/boxes/box_external_rss.php
+++ b/htdocs/includes/boxes/box_external_rss.php
@@ -91,7 +91,15 @@ class box_external_rss extends ModeleBoxes {
         {
             $item = $rss->items[$i];
             $href = $item['link'];
-            $title = utf8_decode(urldecode($item['title']));
+            $result = $this->utf8_check(urldecode($item['title']));
+            if ($result)
+            {
+            	$title = utf8_decode(urldecode($item['title']));
+            }
+            else
+            {
+            	$title = (urldecode($item['title']));
+            }
             $title=ereg_replace("([[:alnum:]])\?([[:alnum:]])","\\1'\\2",$title);   // Gère problème des apostrophes mal codée/décodée par utf8
             $title=ereg_replace("^\s+","",$title);                                  // Supprime espaces de début
             $this->info_box_contents["$href"]="$title";
@@ -102,6 +110,27 @@ class box_external_rss extends ModeleBoxes {
             'target' => 'newrss');
         }
     }
+    
+    /**
+     *      \brief      Vérifie si le flux est en UTF8
+     *      \param      $Str        chaine à vérifier
+     */
+    function utf8_check($Str) {
+    	for ($i=0; $i<strlen($Str); $i++) {
+    		if (ord($Str[$i]) < 0x80) continue; # 0bbbbbbb
+    		elseif ((ord($Str[$i]) & 0xE0) == 0xC0) $n=1; # 110bbbbb
+    		elseif ((ord($Str[$i]) & 0xF0) == 0xE0) $n=2; # 1110bbbb
+    		elseif ((ord($Str[$i]) & 0xF8) == 0xF0) $n=3; # 11110bbb
+    		elseif ((ord($Str[$i]) & 0xFC) == 0xF8) $n=4; # 111110bb
+    		elseif ((ord($Str[$i]) & 0xFE) == 0xFC) $n=5; # 1111110b
+    		else return false; # Does not match any model
+    		for ($j=0; $j<$n; $j++) { # n bytes matching 10bbbbbb follow ?
+    			if ((++$i == strlen($Str)) || ((ord($Str[$i]) & 0xC0) != 0x80))
+    			return false;
+    		}
+    	}
+    	return true;
+    }
 
     function showBox()
     {