spip / SPIP

ecrire/inc/charsets.php

Indentation +733 added lines, -733 removed lines

@@ -22,7 +22,7 @@ 
 
 // securité
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // se faciliter la lecture du charset
@@ -42,45 +42,45 @@ 
  *     - false si le charset n'est pas décrit dans le répertoire charsets/
  **/
 function load_charset($charset = 'AUTO') {
-	if ($charset == 'AUTO') {
-		$charset = $GLOBALS['meta']['charset'];
-	}
-	$charset = trim(strtolower($charset));
-	if (isset($GLOBALS['CHARSET'][$charset])) {
-		return $charset;
-	}
-
-	if ($charset == 'utf-8') {
-		$GLOBALS['CHARSET'][$charset] = [];
-
-		return $charset;
-	}
-
-	// Quelques synonymes
-	if ($charset == '') {
-		$charset = 'iso-8859-1';
-	} else {
-		if ($charset == 'windows-1250') {
-			$charset = 'cp1250';
-		} else {
-			if ($charset == 'windows-1251') {
-				$charset = 'cp1251';
-			} else {
-				if ($charset == 'windows-1256') {
-					$charset = 'cp1256';
-				}
-			}
-		}
-	}
-
-	if (find_in_path($charset . '.php', 'charsets/', true)) {
-		return $charset;
-	} else {
-		spip_log("Erreur: pas de fichier de conversion 'charsets/$charset'");
-		$GLOBALS['CHARSET'][$charset] = [];
-
-		return false;
-	}
+    if ($charset == 'AUTO') {
+        $charset = $GLOBALS['meta']['charset'];
+    }
+    $charset = trim(strtolower($charset));
+    if (isset($GLOBALS['CHARSET'][$charset])) {
+        return $charset;
+    }
+
+    if ($charset == 'utf-8') {
+        $GLOBALS['CHARSET'][$charset] = [];
+
+        return $charset;
+    }
+
+    // Quelques synonymes
+    if ($charset == '') {
+        $charset = 'iso-8859-1';
+    } else {
+        if ($charset == 'windows-1250') {
+            $charset = 'cp1250';
+        } else {
+            if ($charset == 'windows-1251') {
+                $charset = 'cp1251';
+            } else {
+                if ($charset == 'windows-1256') {
+                    $charset = 'cp1256';
+                }
+            }
+        }
+    }
+
+    if (find_in_path($charset . '.php', 'charsets/', true)) {
+        return $charset;
+    } else {
+        spip_log("Erreur: pas de fichier de conversion 'charsets/$charset'");
+        $GLOBALS['CHARSET'][$charset] = [];
+
+        return false;
+    }
 }
 
 
@@ -91,31 +91,31 @@ 
  *     true si toutes les fonctions mb nécessaires sont présentes
  **/
 function init_mb_string() {
-	static $mb;
-
-	// verifier que tout est present (fonctions mb_string pour php >= 4.0.6)
-	// et que le charset interne est connu de mb_string
-	if (!$mb) {
-		if (
-			function_exists('mb_internal_encoding')
-			and function_exists('mb_detect_order')
-			and function_exists('mb_substr')
-			and function_exists('mb_strlen')
-			and function_exists('mb_strtolower')
-			and function_exists('mb_strtoupper')
-			and function_exists('mb_encode_mimeheader')
-			and function_exists('mb_encode_numericentity')
-			and function_exists('mb_decode_numericentity')
-			and mb_detect_order(lire_config('charset', _DEFAULT_CHARSET))
-		) {
-			mb_internal_encoding('utf-8');
-			$mb = 1;
-		} else {
-			$mb = -1;
-		}
-	}
-
-	return ($mb == 1);
+    static $mb;
+
+    // verifier que tout est present (fonctions mb_string pour php >= 4.0.6)
+    // et que le charset interne est connu de mb_string
+    if (!$mb) {
+        if (
+            function_exists('mb_internal_encoding')
+            and function_exists('mb_detect_order')
+            and function_exists('mb_substr')
+            and function_exists('mb_strlen')
+            and function_exists('mb_strtolower')
+            and function_exists('mb_strtoupper')
+            and function_exists('mb_encode_mimeheader')
+            and function_exists('mb_encode_numericentity')
+            and function_exists('mb_decode_numericentity')
+            and mb_detect_order(lire_config('charset', _DEFAULT_CHARSET))
+        ) {
+            mb_internal_encoding('utf-8');
+            $mb = 1;
+        } else {
+            $mb = -1;
+        }
+    }
+
+    return ($mb == 1);
 }
 
 /**
@@ -130,21 +130,21 @@ 
  *     true si iconv fonctionne correctement
  **/
 function test_iconv() {
-	static $iconv_ok;
-
-	if (!$iconv_ok) {
-		if (!function_exists('iconv')) {
-			$iconv_ok = -1;
-		} else {
-			if (utf_32_to_unicode(@iconv('utf-8', 'utf-32', 'chaine de test')) == 'chaine de test') {
-				$iconv_ok = 1;
-			} else {
-				$iconv_ok = -1;
-			}
-		}
-	}
-
-	return ($iconv_ok == 1);
+    static $iconv_ok;
+
+    if (!$iconv_ok) {
+        if (!function_exists('iconv')) {
+            $iconv_ok = -1;
+        } else {
+            if (utf_32_to_unicode(@iconv('utf-8', 'utf-32', 'chaine de test')) == 'chaine de test') {
+                $iconv_ok = 1;
+            } else {
+                $iconv_ok = -1;
+            }
+        }
+    }
+
+    return ($iconv_ok == 1);
 }
 
 
@@ -157,18 +157,18 @@ 
  *     true si PCRE supporte l'UTF-8 correctement
  **/
 function test_pcre_unicode() {
-	static $pcre_ok = 0;
-
-	if (!$pcre_ok) {
-		$s = ' ' . chr(195) . chr(169) . 't' . chr(195) . chr(169) . ' ';
-		if (preg_match(',\W...\W,u', $s)) {
-			$pcre_ok = 1;
-		} else {
-			$pcre_ok = -1;
-		}
-	}
-
-	return $pcre_ok == 1;
+    static $pcre_ok = 0;
+
+    if (!$pcre_ok) {
+        $s = ' ' . chr(195) . chr(169) . 't' . chr(195) . chr(169) . ' ';
+        if (preg_match(',\W...\W,u', $s)) {
+            $pcre_ok = 1;
+        } else {
+            $pcre_ok = -1;
+        }
+    }
+
+    return $pcre_ok == 1;
 }
 
 /**
@@ -184,22 +184,22 @@ 
  *    Plage de caractères
  **/
 function pcre_lettres_unicode() {
-	static $plage_unicode;
-
-	if (!$plage_unicode) {
-		if (test_pcre_unicode()) {
-			// cf. http://www.unicode.org/charts/
-			$plage_unicode = '\w' // iso-latin
-				. '\x{100}-\x{24f}' // europeen etendu
-				. '\x{300}-\x{1cff}' // des tas de trucs
-			;
-		} else {
-			// fallback a trois sous
-			$plage_unicode = '\w';
-		}
-	}
-
-	return $plage_unicode;
+    static $plage_unicode;
+
+    if (!$plage_unicode) {
+        if (test_pcre_unicode()) {
+            // cf. http://www.unicode.org/charts/
+            $plage_unicode = '\w' // iso-latin
+                . '\x{100}-\x{24f}' // europeen etendu
+                . '\x{300}-\x{1cff}' // des tas de trucs
+            ;
+        } else {
+            // fallback a trois sous
+            $plage_unicode = '\w';
+        }
+    }
+
+    return $plage_unicode;
 }
 
 
@@ -217,7 +217,7 @@ 
  *    Plage de caractères
  **/
 function plage_punct_unicode() {
-	return '\xE2(\x80[\x80-\xBF]|\x81[\x80-\xAF])';
+    return '\xE2(\x80[\x80-\xBF]|\x81[\x80-\xAF])';
 }
 
 /**
@@ -237,75 +237,75 @@ 
  *     Texte corrigé
  **/
 function corriger_caracteres_windows($texte, $charset = 'AUTO', $charset_cible = 'unicode') {
-	static $trans;
-
-	if (is_array($texte)) {
-		return array_map('corriger_caracteres_windows', $texte);
-	}
-
-	if ($charset == 'AUTO') {
-		$charset = lire_config('charset', _DEFAULT_CHARSET);
-	}
-	if ($charset == 'utf-8') {
-		$p = chr(194);
-		if (strpos($texte, $p) == false) {
-			return $texte;
-		}
-	} else {
-		if ($charset == 'iso-8859-1') {
-			$p = '';
-		} else {
-			return $texte;
-		}
-	}
-
-	if (!isset($trans[$charset][$charset_cible])) {
-		$trans[$charset][$charset_cible] = [
-			$p . chr(128) => '€',
-			$p . chr(129) => ' ', # pas affecte
-			$p . chr(130) => '‚',
-			$p . chr(131) => 'ƒ',
-			$p . chr(132) => '„',
-			$p . chr(133) => '…',
-			$p . chr(134) => '†',
-			$p . chr(135) => '‡',
-			$p . chr(136) => 'ˆ',
-			$p . chr(137) => '‰',
-			$p . chr(138) => 'Š',
-			$p . chr(139) => '‹',
-			$p . chr(140) => 'Œ',
-			$p . chr(141) => ' ', # pas affecte
-			$p . chr(142) => 'Ž',
-			$p . chr(143) => ' ', # pas affecte
-			$p . chr(144) => ' ', # pas affecte
-			$p . chr(145) => '‘',
-			$p . chr(146) => '’',
-			$p . chr(147) => '“',
-			$p . chr(148) => '”',
-			$p . chr(149) => '•',
-			$p . chr(150) => '–',
-			$p . chr(151) => '—',
-			$p . chr(152) => '˜',
-			$p . chr(153) => '™',
-			$p . chr(154) => 'š',
-			$p . chr(155) => '›',
-			$p . chr(156) => 'œ',
-			$p . chr(157) => ' ', # pas affecte
-			$p . chr(158) => 'ž',
-			$p . chr(159) => 'Ÿ',
-		];
-		if ($charset_cible != 'unicode') {
-			foreach ($trans[$charset][$charset_cible] as $k => $c) {
-				$trans[$charset][$charset_cible][$k] = unicode2charset($c, $charset_cible);
-			}
-		}
-	}
-
-	return @str_replace(
-		array_keys($trans[$charset][$charset_cible]),
-		array_values($trans[$charset][$charset_cible]),
-		$texte
-	);
+    static $trans;
+
+    if (is_array($texte)) {
+        return array_map('corriger_caracteres_windows', $texte);
+    }
+
+    if ($charset == 'AUTO') {
+        $charset = lire_config('charset', _DEFAULT_CHARSET);
+    }
+    if ($charset == 'utf-8') {
+        $p = chr(194);
+        if (strpos($texte, $p) == false) {
+            return $texte;
+        }
+    } else {
+        if ($charset == 'iso-8859-1') {
+            $p = '';
+        } else {
+            return $texte;
+        }
+    }
+
+    if (!isset($trans[$charset][$charset_cible])) {
+        $trans[$charset][$charset_cible] = [
+            $p . chr(128) => '€',
+            $p . chr(129) => ' ', # pas affecte
+            $p . chr(130) => '‚',
+            $p . chr(131) => 'ƒ',
+            $p . chr(132) => '„',
+            $p . chr(133) => '…',
+            $p . chr(134) => '†',
+            $p . chr(135) => '‡',
+            $p . chr(136) => 'ˆ',
+            $p . chr(137) => '‰',
+            $p . chr(138) => 'Š',
+            $p . chr(139) => '‹',
+            $p . chr(140) => 'Œ',
+            $p . chr(141) => ' ', # pas affecte
+            $p . chr(142) => 'Ž',
+            $p . chr(143) => ' ', # pas affecte
+            $p . chr(144) => ' ', # pas affecte
+            $p . chr(145) => '‘',
+            $p . chr(146) => '’',
+            $p . chr(147) => '“',
+            $p . chr(148) => '”',
+            $p . chr(149) => '•',
+            $p . chr(150) => '–',
+            $p . chr(151) => '—',
+            $p . chr(152) => '˜',
+            $p . chr(153) => '™',
+            $p . chr(154) => 'š',
+            $p . chr(155) => '›',
+            $p . chr(156) => 'œ',
+            $p . chr(157) => ' ', # pas affecte
+            $p . chr(158) => 'ž',
+            $p . chr(159) => 'Ÿ',
+        ];
+        if ($charset_cible != 'unicode') {
+            foreach ($trans[$charset][$charset_cible] as $k => $c) {
+                $trans[$charset][$charset_cible][$k] = unicode2charset($c, $charset_cible);
+            }
+        }
+    }
+
+    return @str_replace(
+        array_keys($trans[$charset][$charset_cible]),
+        array_values($trans[$charset][$charset_cible]),
+        $texte
+    );
 }
 
 
@@ -322,26 +322,26 @@ 
  *     Texte converti
  **/
 function html2unicode($texte, $secure = false) {
-	if (strpos($texte, '&') === false) {
-		return $texte;
-	}
-	static $trans = [];
-	if (!$trans) {
-		load_charset('html');
-		foreach ($GLOBALS['CHARSET']['html'] as $key => $val) {
-			$trans["&$key;"] = $val;
-		}
-	}
-
-	if ($secure) {
-		return str_replace(array_keys($trans), array_values($trans), $texte);
-	} else {
-		return str_replace(
-			['&', '"', '<', '>'],
-			['&', '"', '<', '>'],
-			str_replace(array_keys($trans), array_values($trans), $texte)
-		);
-	}
+    if (strpos($texte, '&') === false) {
+        return $texte;
+    }
+    static $trans = [];
+    if (!$trans) {
+        load_charset('html');
+        foreach ($GLOBALS['CHARSET']['html'] as $key => $val) {
+            $trans["&$key;"] = $val;
+        }
+    }
+
+    if ($secure) {
+        return str_replace(array_keys($trans), array_values($trans), $texte);
+    } else {
+        return str_replace(
+            ['&amp;', '&quot;', '&lt;', '&gt;'],
+            ['&', '"', '<', '>'],
+            str_replace(array_keys($trans), array_values($trans), $texte)
+        );
+    }
 }
 
 
@@ -356,16 +356,16 @@ 
  *     Texte converti
  **/
 function mathml2unicode($texte) {
-	static $trans;
-	if (!$trans) {
-		load_charset('mathml');
+    static $trans;
+    if (!$trans) {
+        load_charset('mathml');
 
-		foreach ($GLOBALS['CHARSET']['mathml'] as $key => $val) {
-			$trans["&$key;"] = $val;
-		}
-	}
+        foreach ($GLOBALS['CHARSET']['mathml'] as $key => $val) {
+            $trans["&$key;"] = $val;
+        }
+    }
 
-	return str_replace(array_keys($trans), array_values($trans), $texte);
+    return str_replace(array_keys($trans), array_values($trans), $texte);
 }
 
 
@@ -387,75 +387,75 @@ 
  *     Texte converti en unicode
  **/
 function charset2unicode($texte, $charset = 'AUTO' /* $forcer: obsolete*/) {
-	static $trans;
-
-	if ($charset == 'AUTO') {
-		$charset = lire_config('charset', _DEFAULT_CHARSET);
-	}
-
-	if ($charset == '') {
-		$charset = 'iso-8859-1';
-	}
-	$charset = strtolower($charset);
-
-	switch ($charset) {
-		case 'utf-8':
-		case 'utf8':
-			return utf_8_to_unicode($texte);
-
-		case 'iso-8859-1':
-			$texte = corriger_caracteres_windows($texte, 'iso-8859-1');
-		// pas de break; ici, on suit sur default:
-
-		default:
-			// mbstring presente ?
-			if (init_mb_string()) {
-				$order = mb_detect_order();
-				try {
-					# mb_string connait-il $charset?
-					if ($order and mb_detect_order($charset)) {
-						$s = mb_convert_encoding($texte, 'utf-8', $charset);
-						if ($s && $s != $texte) {
-							return utf_8_to_unicode($s);
-						}
-					}
-				} catch (\Error $e) {
-					// Le charset n'existe probablement pas
-				} finally {
-					mb_detect_order($order); # remettre comme precedemment
-				}
-			}
-
-			// Sinon, peut-etre connaissons-nous ce charset ?
-			if (!isset($trans[$charset])) {
-				if (
-					$cset = load_charset($charset)
-					and is_array($GLOBALS['CHARSET'][$cset])
-				) {
-					foreach ($GLOBALS['CHARSET'][$cset] as $key => $val) {
-						$trans[$charset][chr($key)] = '&#' . $val . ';';
-					}
-				}
-			}
-			if (isset($trans[$charset]) and is_countable($trans[$charset]) ? count($trans[$charset]) : 0) {
-				return str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
-			}
-
-			// Sinon demander a iconv (malgre le fait qu'il coupe quand un
-			// caractere n'appartient pas au charset, mais c'est un probleme
-			// surtout en utf-8, gere ci-dessus)
-			if (test_iconv()) {
-				$s = iconv($charset, 'utf-32le', $texte);
-				if ($s) {
-					return utf_32_to_unicode($s);
-				}
-			}
-
-			// Au pire ne rien faire
-			spip_log("erreur charset '$charset' non supporte");
-
-			return $texte;
-	}
+    static $trans;
+
+    if ($charset == 'AUTO') {
+        $charset = lire_config('charset', _DEFAULT_CHARSET);
+    }
+
+    if ($charset == '') {
+        $charset = 'iso-8859-1';
+    }
+    $charset = strtolower($charset);
+
+    switch ($charset) {
+        case 'utf-8':
+        case 'utf8':
+            return utf_8_to_unicode($texte);
+
+        case 'iso-8859-1':
+            $texte = corriger_caracteres_windows($texte, 'iso-8859-1');
+        // pas de break; ici, on suit sur default:
+
+        default:
+            // mbstring presente ?
+            if (init_mb_string()) {
+                $order = mb_detect_order();
+                try {
+                    # mb_string connait-il $charset?
+                    if ($order and mb_detect_order($charset)) {
+                        $s = mb_convert_encoding($texte, 'utf-8', $charset);
+                        if ($s && $s != $texte) {
+                            return utf_8_to_unicode($s);
+                        }
+                    }
+                } catch (\Error $e) {
+                    // Le charset n'existe probablement pas
+                } finally {
+                    mb_detect_order($order); # remettre comme precedemment
+                }
+            }
+
+            // Sinon, peut-etre connaissons-nous ce charset ?
+            if (!isset($trans[$charset])) {
+                if (
+                    $cset = load_charset($charset)
+                    and is_array($GLOBALS['CHARSET'][$cset])
+                ) {
+                    foreach ($GLOBALS['CHARSET'][$cset] as $key => $val) {
+                        $trans[$charset][chr($key)] = '&#' . $val . ';';
+                    }
+                }
+            }
+            if (isset($trans[$charset]) and is_countable($trans[$charset]) ? count($trans[$charset]) : 0) {
+                return str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
+            }
+
+            // Sinon demander a iconv (malgre le fait qu'il coupe quand un
+            // caractere n'appartient pas au charset, mais c'est un probleme
+            // surtout en utf-8, gere ci-dessus)
+            if (test_iconv()) {
+                $s = iconv($charset, 'utf-32le', $texte);
+                if ($s) {
+                    return utf_32_to_unicode($s);
+                }
+            }
+
+            // Au pire ne rien faire
+            spip_log("erreur charset '$charset' non supporte");
+
+            return $texte;
+    }
 }
 
 
@@ -474,44 +474,44 @@ 
  *     Texte transformé dans le charset souhaité
  **/
 function unicode2charset($texte, $charset = 'AUTO') {
-	static $CHARSET_REVERSE = [];
-	static $trans = [];
-
-	if ($charset == 'AUTO') {
-		$charset = lire_config('charset', _DEFAULT_CHARSET);
-	}
-
-	switch ($charset) {
-		case 'utf-8':
-			return unicode_to_utf_8($texte);
-			break;
-
-		default:
-			$charset = load_charset($charset);
-
-			if (empty($CHARSET_REVERSE[$charset])) {
-				$CHARSET_REVERSE[$charset] = array_flip($GLOBALS['CHARSET'][$charset]);
-			}
-
-			if (!isset($trans[$charset])) {
-				$trans[$charset] = [];
-				$t = &$trans[$charset];
-				for ($e = 128; $e < 255; $e++) {
-					$h = dechex($e);
-					if ($s = isset($CHARSET_REVERSE[$charset][$e])) {
-						$s = $CHARSET_REVERSE[$charset][$e];
-						$t['&#' . $e . ';'] = $t['&#0' . $e . ';'] = $t['&#00' . $e . ';'] = chr($s);
-						$t['&#x' . $h . ';'] = $t['&#x0' . $h . ';'] = $t['&#x00' . $h . ';'] = chr($s);
-					} else {
-						$t['&#' . $e . ';'] = $t['&#0' . $e . ';'] = $t['&#00' . $e . ';'] = chr($e);
-						$t['&#x' . $h . ';'] = $t['&#x0' . $h . ';'] = $t['&#x00' . $h . ';'] = chr($e);
-					}
-				}
-			}
-			$texte = str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
-
-			return $texte;
-	}
+    static $CHARSET_REVERSE = [];
+    static $trans = [];
+
+    if ($charset == 'AUTO') {
+        $charset = lire_config('charset', _DEFAULT_CHARSET);
+    }
+
+    switch ($charset) {
+        case 'utf-8':
+            return unicode_to_utf_8($texte);
+            break;
+
+        default:
+            $charset = load_charset($charset);
+
+            if (empty($CHARSET_REVERSE[$charset])) {
+                $CHARSET_REVERSE[$charset] = array_flip($GLOBALS['CHARSET'][$charset]);
+            }
+
+            if (!isset($trans[$charset])) {
+                $trans[$charset] = [];
+                $t = &$trans[$charset];
+                for ($e = 128; $e < 255; $e++) {
+                    $h = dechex($e);
+                    if ($s = isset($CHARSET_REVERSE[$charset][$e])) {
+                        $s = $CHARSET_REVERSE[$charset][$e];
+                        $t['&#' . $e . ';'] = $t['&#0' . $e . ';'] = $t['&#00' . $e . ';'] = chr($s);
+                        $t['&#x' . $h . ';'] = $t['&#x0' . $h . ';'] = $t['&#x00' . $h . ';'] = chr($s);
+                    } else {
+                        $t['&#' . $e . ';'] = $t['&#0' . $e . ';'] = $t['&#00' . $e . ';'] = chr($e);
+                        $t['&#x' . $h . ';'] = $t['&#x0' . $h . ';'] = $t['&#x00' . $h . ';'] = chr($e);
+                    }
+                }
+            }
+            $texte = str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
+
+            return $texte;
+    }
 }
 
 
@@ -529,40 +529,40 @@ 
  *     Texte transformé dans le charset site
  **/
 function importer_charset($texte, $charset = 'AUTO') {
-	$s = null;
-	static $trans = [];
-	// on traite le cas le plus frequent iso-8859-1 vers utf directement pour aller plus vite !
-	if (($charset == 'iso-8859-1') && ($GLOBALS['meta']['charset'] == 'utf-8')) {
-		$texte = corriger_caracteres_windows($texte, 'iso-8859-1', $GLOBALS['meta']['charset']);
-		if (init_mb_string()) {
-			if (
-				$order = mb_detect_order() # mb_string connait-il $charset?
-				and mb_detect_order($charset)
-			) {
-				$s = mb_convert_encoding($texte, 'utf-8', $charset);
-			}
-			mb_detect_order($order); # remettre comme precedemment
-			return $s;
-		}
-		// Sinon, peut-etre connaissons-nous ce charset ?
-		if (!isset($trans[$charset])) {
-			if (
-				$cset = load_charset($charset)
-				and is_array($GLOBALS['CHARSET'][$cset])
-			) {
-				foreach ($GLOBALS['CHARSET'][$cset] as $key => $val) {
-					$trans[$charset][chr($key)] = unicode2charset('&#' . $val . ';');
-				}
-			}
-		}
-		if (is_countable($trans[$charset]) ? count($trans[$charset]) : 0) {
-			return str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
-		}
-
-		return $texte;
-	}
-
-	return unicode2charset(charset2unicode($texte, $charset));
+    $s = null;
+    static $trans = [];
+    // on traite le cas le plus frequent iso-8859-1 vers utf directement pour aller plus vite !
+    if (($charset == 'iso-8859-1') && ($GLOBALS['meta']['charset'] == 'utf-8')) {
+        $texte = corriger_caracteres_windows($texte, 'iso-8859-1', $GLOBALS['meta']['charset']);
+        if (init_mb_string()) {
+            if (
+                $order = mb_detect_order() # mb_string connait-il $charset?
+                and mb_detect_order($charset)
+            ) {
+                $s = mb_convert_encoding($texte, 'utf-8', $charset);
+            }
+            mb_detect_order($order); # remettre comme precedemment
+            return $s;
+        }
+        // Sinon, peut-etre connaissons-nous ce charset ?
+        if (!isset($trans[$charset])) {
+            if (
+                $cset = load_charset($charset)
+                and is_array($GLOBALS['CHARSET'][$cset])
+            ) {
+                foreach ($GLOBALS['CHARSET'][$cset] as $key => $val) {
+                    $trans[$charset][chr($key)] = unicode2charset('&#' . $val . ';');
+                }
+            }
+        }
+        if (is_countable($trans[$charset]) ? count($trans[$charset]) : 0) {
+            return str_replace(array_keys($trans[$charset]), array_values($trans[$charset]), $texte);
+        }
+
+        return $texte;
+    }
+
+    return unicode2charset(charset2unicode($texte, $charset));
 }
 
 
@@ -578,92 +578,92 @@ 
  **/
 function utf_8_to_unicode($source) {
 
-	// mb_string : methode rapide
-	if (init_mb_string()) {
-		$convmap = [0x7F, 0xFFFFFF, 0x0, 0xFFFFFF];
-
-		return mb_encode_numericentity($source, $convmap, 'UTF-8');
-	}
-
-	// Sinon methode pas a pas
-	static $decrement;
-	static $shift;
-
-	// Cf. php.net, par Ronen. Adapte pour compatibilite < php4
-	if (!is_array($decrement)) {
-		// array used to figure what number to decrement from character order value
-		// according to number of characters used to map unicode to ascii by utf-8
-		$decrement[4] = 240;
-		$decrement[3] = 224;
-		$decrement[2] = 192;
-		$decrement[1] = 0;
-		// the number of bits to shift each charNum by
-		$shift[1][0] = 0;
-		$shift[2][0] = 6;
-		$shift[2][1] = 0;
-		$shift[3][0] = 12;
-		$shift[3][1] = 6;
-		$shift[3][2] = 0;
-		$shift[4][0] = 18;
-		$shift[4][1] = 12;
-		$shift[4][2] = 6;
-		$shift[4][3] = 0;
-	}
-
-	$pos = 0;
-	$len = strlen($source);
-	$encodedString = '';
-	while ($pos < $len) {
-		$char = '';
-		$ischar = false;
-		$asciiPos = ord(substr($source, $pos, 1));
-		if (($asciiPos >= 240) && ($asciiPos <= 255)) {
-			// 4 chars representing one unicode character
-			$thisLetter = substr($source, $pos, 4);
-			$pos += 4;
-		} else {
-			if (($asciiPos >= 224) && ($asciiPos <= 239)) {
-				// 3 chars representing one unicode character
-				$thisLetter = substr($source, $pos, 3);
-				$pos += 3;
-			} else {
-				if (($asciiPos >= 192) && ($asciiPos <= 223)) {
-					// 2 chars representing one unicode character
-					$thisLetter = substr($source, $pos, 2);
-					$pos += 2;
-				} else {
-					// 1 char (lower ascii)
-					$thisLetter = substr($source, $pos, 1);
-					$pos += 1;
-					$char = $thisLetter;
-					$ischar = true;
-				}
-			}
-		}
-
-		if ($ischar) {
-			$encodedString .= $char;
-		} else {  // process the string representing the letter to a unicode entity
-			$thisLen = strlen($thisLetter);
-			$thisPos = 0;
-			$decimalCode = 0;
-			while ($thisPos < $thisLen) {
-				$thisCharOrd = ord(substr($thisLetter, $thisPos, 1));
-				if ($thisPos == 0) {
-					$charNum = intval($thisCharOrd - $decrement[$thisLen]);
-					$decimalCode += ($charNum << $shift[$thisLen][$thisPos]);
-				} else {
-					$charNum = intval($thisCharOrd - 128);
-					$decimalCode += ($charNum << $shift[$thisLen][$thisPos]);
-				}
-				$thisPos++;
-			}
-			$encodedLetter = '&#' . preg_replace('/^0+/', '', $decimalCode) . ';';
-			$encodedString .= $encodedLetter;
-		}
-	}
-
-	return $encodedString;
+    // mb_string : methode rapide
+    if (init_mb_string()) {
+        $convmap = [0x7F, 0xFFFFFF, 0x0, 0xFFFFFF];
+
+        return mb_encode_numericentity($source, $convmap, 'UTF-8');
+    }
+
+    // Sinon methode pas a pas
+    static $decrement;
+    static $shift;
+
+    // Cf. php.net, par Ronen. Adapte pour compatibilite < php4
+    if (!is_array($decrement)) {
+        // array used to figure what number to decrement from character order value
+        // according to number of characters used to map unicode to ascii by utf-8
+        $decrement[4] = 240;
+        $decrement[3] = 224;
+        $decrement[2] = 192;
+        $decrement[1] = 0;
+        // the number of bits to shift each charNum by
+        $shift[1][0] = 0;
+        $shift[2][0] = 6;
+        $shift[2][1] = 0;
+        $shift[3][0] = 12;
+        $shift[3][1] = 6;
+        $shift[3][2] = 0;
+        $shift[4][0] = 18;
+        $shift[4][1] = 12;
+        $shift[4][2] = 6;
+        $shift[4][3] = 0;
+    }
+
+    $pos = 0;
+    $len = strlen($source);
+    $encodedString = '';
+    while ($pos < $len) {
+        $char = '';
+        $ischar = false;
+        $asciiPos = ord(substr($source, $pos, 1));
+        if (($asciiPos >= 240) && ($asciiPos <= 255)) {
+            // 4 chars representing one unicode character
+            $thisLetter = substr($source, $pos, 4);
+            $pos += 4;
+        } else {
+            if (($asciiPos >= 224) && ($asciiPos <= 239)) {
+                // 3 chars representing one unicode character
+                $thisLetter = substr($source, $pos, 3);
+                $pos += 3;
+            } else {
+                if (($asciiPos >= 192) && ($asciiPos <= 223)) {
+                    // 2 chars representing one unicode character
+                    $thisLetter = substr($source, $pos, 2);
+                    $pos += 2;
+                } else {
+                    // 1 char (lower ascii)
+                    $thisLetter = substr($source, $pos, 1);
+                    $pos += 1;
+                    $char = $thisLetter;
+                    $ischar = true;
+                }
+            }
+        }
+
+        if ($ischar) {
+            $encodedString .= $char;
+        } else {  // process the string representing the letter to a unicode entity
+            $thisLen = strlen($thisLetter);
+            $thisPos = 0;
+            $decimalCode = 0;
+            while ($thisPos < $thisLen) {
+                $thisCharOrd = ord(substr($thisLetter, $thisPos, 1));
+                if ($thisPos == 0) {
+                    $charNum = intval($thisCharOrd - $decrement[$thisLen]);
+                    $decimalCode += ($charNum << $shift[$thisLen][$thisPos]);
+                } else {
+                    $charNum = intval($thisCharOrd - 128);
+                    $decimalCode += ($charNum << $shift[$thisLen][$thisPos]);
+                }
+                $thisPos++;
+            }
+            $encodedLetter = '&#' . preg_replace('/^0+/', '', $decimalCode) . ';';
+            $encodedString .= $encodedLetter;
+        }
+    }
+
+    return $encodedString;
 }
 
 /**
@@ -682,32 +682,32 @@ 
  **/
 function utf_32_to_unicode($source) {
 
-	// mb_string : methode rapide
-	if (init_mb_string()) {
-		$convmap = [0x7F, 0xFFFFFF, 0x0, 0xFFFFFF];
-		$source = mb_encode_numericentity($source, $convmap, 'UTF-32LE');
-
-		return str_replace(chr(0), '', $source);
-	}
-
-	// Sinon methode lente
-	$texte = '';
-	while ($source) {
-		$words = unpack('V*', substr($source, 0, 1024));
-		$source = substr($source, 1024);
-		foreach ($words as $word) {
-			if ($word < 128) {
-				$texte .= chr($word);
-			} // ignorer le BOM - http://www.unicode.org/faq/utf_bom.html
-			else {
-				if ($word != 65279) {
-					$texte .= '&#' . $word . ';';
-				}
-			}
-		}
-	}
-
-	return $texte;
+    // mb_string : methode rapide
+    if (init_mb_string()) {
+        $convmap = [0x7F, 0xFFFFFF, 0x0, 0xFFFFFF];
+        $source = mb_encode_numericentity($source, $convmap, 'UTF-32LE');
+
+        return str_replace(chr(0), '', $source);
+    }
+
+    // Sinon methode lente
+    $texte = '';
+    while ($source) {
+        $words = unpack('V*', substr($source, 0, 1024));
+        $source = substr($source, 1024);
+        foreach ($words as $word) {
+            if ($word < 128) {
+                $texte .= chr($word);
+            } // ignorer le BOM - http://www.unicode.org/faq/utf_bom.html
+            else {
+                if ($word != 65279) {
+                    $texte .= '&#' . $word . ';';
+                }
+            }
+        }
+    }
+
+    return $texte;
 }
 
 
@@ -724,21 +724,21 @@ 
  *    Caractère utf8 si trouvé, '' sinon
  **/
 function caractere_utf_8($num) {
-	$num = intval($num);
-	if ($num < 128) {
-		return chr($num);
-	}
-	if ($num < 2048) {
-		return chr(($num >> 6) + 192) . chr(($num & 63) + 128);
-	}
-	if ($num < 65536) {
-		return chr(($num >> 12) + 224) . chr((($num >> 6) & 63) + 128) . chr(($num & 63) + 128);
-	}
-	if ($num < 1_114_112) {
-		return chr(($num >> 18) + 240) . chr((($num >> 12) & 63) + 128) . chr((($num >> 6) & 63) + 128) . chr(($num & 63) + 128);
-	}
-
-	return '';
+    $num = intval($num);
+    if ($num < 128) {
+        return chr($num);
+    }
+    if ($num < 2048) {
+        return chr(($num >> 6) + 192) . chr(($num & 63) + 128);
+    }
+    if ($num < 65536) {
+        return chr(($num >> 12) + 224) . chr((($num >> 6) & 63) + 128) . chr(($num & 63) + 128);
+    }
+    if ($num < 1_114_112) {
+        return chr(($num >> 18) + 240) . chr((($num >> 12) & 63) + 128) . chr((($num >> 6) & 63) + 128) . chr(($num & 63) + 128);
+    }
+
+    return '';
 }
 
 /**
@@ -751,42 +751,42 @@ 
  **/
 function unicode_to_utf_8($texte) {
 
-	// 1. Entites &#128; et suivantes
-	$vu = [];
-	if (
-		preg_match_all(
-			',&#0*([1-9][0-9][0-9]+);,S',
-			$texte,
-			$regs,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($regs as $reg) {
-			if ($reg[1] > 127 and !isset($vu[$reg[0]])) {
-				$vu[$reg[0]] = caractere_utf_8($reg[1]);
-			}
-		}
-	}
-	//$texte = str_replace(array_keys($vu), array_values($vu), $texte);
-
-	// 2. Entites > &#xFF;
-	//$vu = array();
-	if (
-		preg_match_all(
-			',&#x0*([1-9a-f][0-9a-f][0-9a-f]+);,iS',
-			$texte,
-			$regs,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($regs as $reg) {
-			if (!isset($vu[$reg[0]])) {
-				$vu[$reg[0]] = caractere_utf_8(hexdec($reg[1]));
-			}
-		}
-	}
-
-	return str_replace(array_keys($vu), array_values($vu), $texte);
+    // 1. Entites &#128; et suivantes
+    $vu = [];
+    if (
+        preg_match_all(
+            ',&#0*([1-9][0-9][0-9]+);,S',
+            $texte,
+            $regs,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($regs as $reg) {
+            if ($reg[1] > 127 and !isset($vu[$reg[0]])) {
+                $vu[$reg[0]] = caractere_utf_8($reg[1]);
+            }
+        }
+    }
+    //$texte = str_replace(array_keys($vu), array_values($vu), $texte);
+
+    // 2. Entites > &#xFF;
+    //$vu = array();
+    if (
+        preg_match_all(
+            ',&#x0*([1-9a-f][0-9a-f][0-9a-f]+);,iS',
+            $texte,
+            $regs,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($regs as $reg) {
+            if (!isset($vu[$reg[0]])) {
+                $vu[$reg[0]] = caractere_utf_8(hexdec($reg[1]));
+            }
+        }
+    }
+
+    return str_replace(array_keys($vu), array_values($vu), $texte);
 }
 
 /**
@@ -798,15 +798,15 @@ 
  *     Texte converti
  **/
 function unicode_to_javascript($texte) {
-	$vu = [];
-	while (preg_match(',&#0*([0-9]+);,S', $texte, $regs) and !isset($vu[$regs[1]])) {
-		$num = $regs[1];
-		$vu[$num] = true;
-		$s = '\u' . sprintf('%04x', $num);
-		$texte = str_replace($regs[0], $s, $texte);
-	}
-
-	return $texte;
+    $vu = [];
+    while (preg_match(',&#0*([0-9]+);,S', $texte, $regs) and !isset($vu[$regs[1]])) {
+        $num = $regs[1];
+        $vu[$num] = true;
+        $s = '\u' . sprintf('%04x', $num);
+        $texte = str_replace($regs[0], $s, $texte);
+    }
+
+    return $texte;
 }
 
 /**
@@ -818,11 +818,11 @@ 
  *     Texte converti
  **/
 function javascript_to_unicode($texte) {
-	while (preg_match(',%u([0-9A-F][0-9A-F][0-9A-F][0-9A-F]),', $texte, $regs)) {
-		$texte = str_replace($regs[0], '&#' . hexdec($regs[1]) . ';', $texte);
-	}
+    while (preg_match(',%u([0-9A-F][0-9A-F][0-9A-F][0-9A-F]),', $texte, $regs)) {
+        $texte = str_replace($regs[0], '&#' . hexdec($regs[1]) . ';', $texte);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -834,11 +834,11 @@ 
  *     Texte converti
  **/
 function javascript_to_binary($texte) {
-	while (preg_match(',%([0-9A-F][0-9A-F]),', $texte, $regs)) {
-		$texte = str_replace($regs[0], chr(hexdec($regs[1])), $texte);
-	}
+    while (preg_match(',%([0-9A-F][0-9A-F]),', $texte, $regs)) {
+        $texte = str_replace($regs[0], chr(hexdec($regs[1])), $texte);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -856,26 +856,26 @@ 
  * @return string
  */
 function translitteration_rapide($texte, $charset = 'AUTO', $complexe = '') {
-	static $trans = [];
-	if ($charset == 'AUTO') {
-		$charset = $GLOBALS['meta']['charset'];
-	}
-	if (!strlen($texte)) {
-		return $texte;
-	}
-
-	$table_translit = 'translit' . $complexe;
-
-	// 2. Translitterer grace a la table predefinie
-	if (!isset($trans[$complexe])) {
-		$trans[$complexe] = [];
-		load_charset($table_translit);
-		foreach ($GLOBALS['CHARSET'][$table_translit] as $key => $val) {
-			$trans[$complexe][caractere_utf_8($key)] = $val;
-		}
-	}
-
-	return str_replace(array_keys($trans[$complexe]), array_values($trans[$complexe]), $texte);
+    static $trans = [];
+    if ($charset == 'AUTO') {
+        $charset = $GLOBALS['meta']['charset'];
+    }
+    if (!strlen($texte)) {
+        return $texte;
+    }
+
+    $table_translit = 'translit' . $complexe;
+
+    // 2. Translitterer grace a la table predefinie
+    if (!isset($trans[$complexe])) {
+        $trans[$complexe] = [];
+        load_charset($table_translit);
+        foreach ($GLOBALS['CHARSET'][$table_translit] as $key => $val) {
+            $trans[$complexe][caractere_utf_8($key)] = $val;
+        }
+    }
+
+    return str_replace(array_keys($trans[$complexe]), array_values($trans[$complexe]), $texte);
 }
 
 /**
@@ -898,14 +898,14 @@ 
  * @return string
  */
 function translitteration($texte, $charset = 'AUTO', $complexe = '') {
-	// 0. Supprimer les caracteres illegaux
-	include_spip('inc/filtres');
-	$texte = corriger_caracteres($texte);
+    // 0. Supprimer les caracteres illegaux
+    include_spip('inc/filtres');
+    $texte = corriger_caracteres($texte);
 
-	// 1. Passer le charset et les &eacute en utf-8
-	$texte = unicode_to_utf_8(html2unicode(charset2unicode($texte, $charset)));
+    // 1. Passer le charset et les &eacute en utf-8
+    $texte = unicode_to_utf_8(html2unicode(charset2unicode($texte, $charset)));
 
-	return translitteration_rapide($texte, $charset, $complexe);
+    return translitteration_rapide($texte, $charset, $complexe);
 }
 
 /**
@@ -920,17 +920,17 @@ 
  * @return string
  */
 function translitteration_complexe($texte, $chiffres = false) {
-	$texte = translitteration($texte, 'AUTO', 'complexe');
+    $texte = translitteration($texte, 'AUTO', 'complexe');
 
-	if ($chiffres) {
-		$texte = preg_replace_callback(
-			"/[aeiuoyd]['`?~.^+(-]{1,2}/S",
-			fn($m) => translitteration_chiffree($m[0]),
-			$texte
-		);
-	}
+    if ($chiffres) {
+        $texte = preg_replace_callback(
+            "/[aeiuoyd]['`?~.^+(-]{1,2}/S",
+            fn($m) => translitteration_chiffree($m[0]),
+            $texte
+        );
+    }
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -942,7 +942,7 @@ 
  * @return string
  */
 function translitteration_chiffree($car) {
-	return strtr($car, "'`?~.^+(-", '123456789');
+    return strtr($car, "'`?~.^+(-", '123456789');
 }
 
 
@@ -955,7 +955,7 @@ 
  *    true s'il a un BOM
  **/
 function bom_utf8($texte) {
-	return (substr($texte, 0, 3) == chr(0xEF) . chr(0xBB) . chr(0xBF));
+    return (substr($texte, 0, 3) == chr(0xEF) . chr(0xBB) . chr(0xBF));
 }
 
 /**
@@ -972,21 +972,21 @@ 
  *     true si c'est le cas
  **/
 function is_utf8($string) {
-	return !strlen(
-		preg_replace(
-			',[\x09\x0A\x0D\x20-\x7E]'            # ASCII
-			. '|[\xC2-\xDF][\x80-\xBF]'             # non-overlong 2-byte
-			. '|\xE0[\xA0-\xBF][\x80-\xBF]'         # excluding overlongs
-			. '|[\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}'  # straight 3-byte
-			. '|\xED[\x80-\x9F][\x80-\xBF]'         # excluding surrogates
-			. '|\xF0[\x90-\xBF][\x80-\xBF]{2}'      # planes 1-3
-			. '|[\xF1-\xF3][\x80-\xBF]{3}'          # planes 4-15
-			. '|\xF4[\x80-\x8F][\x80-\xBF]{2}'      # plane 16
-			. ',sS',
-			'',
-			$string
-		)
-	);
+    return !strlen(
+        preg_replace(
+            ',[\x09\x0A\x0D\x20-\x7E]'            # ASCII
+            . '|[\xC2-\xDF][\x80-\xBF]'             # non-overlong 2-byte
+            . '|\xE0[\xA0-\xBF][\x80-\xBF]'         # excluding overlongs
+            . '|[\xE1-\xEC\xEE\xEF][\x80-\xBF]{2}'  # straight 3-byte
+            . '|\xED[\x80-\x9F][\x80-\xBF]'         # excluding surrogates
+            . '|\xF0[\x90-\xBF][\x80-\xBF]{2}'      # planes 1-3
+            . '|[\xF1-\xF3][\x80-\xBF]{3}'          # planes 4-15
+            . '|\xF4[\x80-\x8F][\x80-\xBF]{2}'      # plane 16
+            . ',sS',
+            '',
+            $string
+        )
+    );
 }
 
 /**
@@ -998,13 +998,13 @@ 
  *     true si c'est le cas
  **/
 function is_ascii($string) {
-	return !strlen(
-		preg_replace(
-			',[\x09\x0A\x0D\x20-\x7E],sS',
-			'',
-			$string
-		)
-	);
+    return !strlen(
+        preg_replace(
+            ',[\x09\x0A\x0D\x20-\x7E],sS',
+            '',
+            $string
+        )
+    );
 }
 
 /**
@@ -1023,53 +1023,53 @@ 
  **/
 function transcoder_page($texte, $headers = '') {
 
-	// Si tout est < 128 pas la peine d'aller plus loin
-	if (is_ascii($texte)) {
-		#spip_log('charset: ascii');
-		return $texte;
-	}
-
-	if (bom_utf8($texte)) {
-		// Reconnaitre le BOM utf-8 (0xEFBBBF)
-		$charset = 'utf-8';
-		$texte = substr($texte, 3);
-	} elseif (preg_match(',<[?]xml[^>]*encoding[^>]*=[^>]*([-_a-z0-9]+?),UimsS', $texte, $regs)) {
-		// charset precise par le contenu (xml)
-		$charset = trim(strtolower($regs[1]));
-	} elseif (
-		// charset precise par le contenu (html)
-		preg_match(',<(meta|html|body)[^>]*charset[^>]*=[^>]*([#-_a-z0-9]+?),UimsS', $texte, $regs)
-		# eviter toute balise SPIP tel que #CHARSET ou #CONFIG d'un squelette
-		and false === strpos($regs[2], '#')
-		and $tmp = trim(strtolower($regs[2]))
-	) {
-		$charset = $tmp;
-	} elseif (preg_match(',charset=([-_a-z0-9]+),i', $headers, $regs)) {
-		// charset de la reponse http
-		$charset = trim(strtolower($regs[1]));
-	} else {
-		$charset = '';
-	}
-
-
-	// normaliser les noms du shif-jis japonais
-	if (preg_match(',^(x|shift)[_-]s?jis$,i', $charset)) {
-		$charset = 'shift-jis';
-	}
-
-	if ($charset) {
-		spip_log("charset: $charset");
-	} else {
-		// valeur par defaut
-		if (is_utf8($texte)) {
-			$charset = 'utf-8';
-		} else {
-			$charset = 'iso-8859-1';
-		}
-		spip_log("charset probable: $charset");
-	}
-
-	return importer_charset($texte, $charset);
+    // Si tout est < 128 pas la peine d'aller plus loin
+    if (is_ascii($texte)) {
+        #spip_log('charset: ascii');
+        return $texte;
+    }
+
+    if (bom_utf8($texte)) {
+        // Reconnaitre le BOM utf-8 (0xEFBBBF)
+        $charset = 'utf-8';
+        $texte = substr($texte, 3);
+    } elseif (preg_match(',<[?]xml[^>]*encoding[^>]*=[^>]*([-_a-z0-9]+?),UimsS', $texte, $regs)) {
+        // charset precise par le contenu (xml)
+        $charset = trim(strtolower($regs[1]));
+    } elseif (
+        // charset precise par le contenu (html)
+        preg_match(',<(meta|html|body)[^>]*charset[^>]*=[^>]*([#-_a-z0-9]+?),UimsS', $texte, $regs)
+        # eviter toute balise SPIP tel que #CHARSET ou #CONFIG d'un squelette
+        and false === strpos($regs[2], '#')
+        and $tmp = trim(strtolower($regs[2]))
+    ) {
+        $charset = $tmp;
+    } elseif (preg_match(',charset=([-_a-z0-9]+),i', $headers, $regs)) {
+        // charset de la reponse http
+        $charset = trim(strtolower($regs[1]));
+    } else {
+        $charset = '';
+    }
+
+
+    // normaliser les noms du shif-jis japonais
+    if (preg_match(',^(x|shift)[_-]s?jis$,i', $charset)) {
+        $charset = 'shift-jis';
+    }
+
+    if ($charset) {
+        spip_log("charset: $charset");
+    } else {
+        // valeur par defaut
+        if (is_utf8($texte)) {
+            $charset = 'utf-8';
+        } else {
+            $charset = 'iso-8859-1';
+        }
+        spip_log("charset probable: $charset");
+    }
+
+    return importer_charset($texte, $charset);
 }
 
 
@@ -1093,26 +1093,26 @@ 
  *     Le texte coupé
  **/
 function spip_substr($c, $start = 0, $length = null) {
-	// Si ce n'est pas utf-8, utiliser substr
-	if ($GLOBALS['meta']['charset'] != 'utf-8') {
-		if ($length) {
-			return substr($c, $start, $length);
-		} else {
-			return substr($c, $start);
-		}
-	}
-
-	// Si utf-8, voir si on dispose de mb_string
-	if (init_mb_string()) {
-		if ($length) {
-			return mb_substr($c, $start, $length);
-		} else {
-			return mb_substr($c, $start);
-		}
-	}
-
-	// Version manuelle (cf. ci-dessous)
-	return spip_substr_manuelle($c, $start, $length);
+    // Si ce n'est pas utf-8, utiliser substr
+    if ($GLOBALS['meta']['charset'] != 'utf-8') {
+        if ($length) {
+            return substr($c, $start, $length);
+        } else {
+            return substr($c, $start);
+        }
+    }
+
+    // Si utf-8, voir si on dispose de mb_string
+    if (init_mb_string()) {
+        if ($length) {
+            return mb_substr($c, $start, $length);
+        } else {
+            return mb_substr($c, $start);
+        }
+    }
+
+    // Version manuelle (cf. ci-dessous)
+    return spip_substr_manuelle($c, $start, $length);
 }
 
 
@@ -1131,40 +1131,40 @@ 
  **/
 function spip_substr_manuelle($c, $start, $length = null) {
 
-	// Cas pathologique
-	if ($length === 0) {
-		return '';
-	}
-
-	// S'il y a un demarrage, on se positionne
-	if ($start > 0) {
-		$c = substr($c, strlen(spip_substr_manuelle($c, 0, $start)));
-	} elseif ($start < 0) {
-		return spip_substr_manuelle($c, spip_strlen($c) + $start, $length);
-	}
-
-	if (!$length) {
-		return $c;
-	}
-
-	if ($length > 0) {
-		// on prend n fois la longueur desiree, pour etre surs d'avoir tout
-		// (un caractere utf-8 prenant au maximum n bytes)
-		$n = 0;
-		while (preg_match(',[\x80-\xBF]{' . (++$n) . '},', $c)) {
-			;
-		}
-		$c = substr($c, 0, $n * $length);
-		// puis, tant qu'on est trop long, on coupe...
-		while (($l = spip_strlen($c)) > $length) {
-			$c = substr($c, 0, $length - $l);
-		}
-
-		return $c;
-	}
-
-	// $length < 0
-	return spip_substr_manuelle($c, 0, spip_strlen($c) + $length);
+    // Cas pathologique
+    if ($length === 0) {
+        return '';
+    }
+
+    // S'il y a un demarrage, on se positionne
+    if ($start > 0) {
+        $c = substr($c, strlen(spip_substr_manuelle($c, 0, $start)));
+    } elseif ($start < 0) {
+        return spip_substr_manuelle($c, spip_strlen($c) + $start, $length);
+    }
+
+    if (!$length) {
+        return $c;
+    }
+
+    if ($length > 0) {
+        // on prend n fois la longueur desiree, pour etre surs d'avoir tout
+        // (un caractere utf-8 prenant au maximum n bytes)
+        $n = 0;
+        while (preg_match(',[\x80-\xBF]{' . (++$n) . '},', $c)) {
+            ;
+        }
+        $c = substr($c, 0, $n * $length);
+        // puis, tant qu'on est trop long, on coupe...
+        while (($l = spip_strlen($c)) > $length) {
+            $c = substr($c, 0, $length - $l);
+        }
+
+        return $c;
+    }
+
+    // $length < 0
+    return spip_substr_manuelle($c, 0, spip_strlen($c) + $length);
 }
 
 /**
@@ -1178,14 +1178,14 @@ 
  *     La chaîne avec une majuscule sur le premier mot
  */
 function spip_ucfirst($c) {
-	// Si on n'a pas mb_* ou si ce n'est pas utf-8, utiliser ucfirst
-	if (!init_mb_string() or $GLOBALS['meta']['charset'] != 'utf-8') {
-		return ucfirst($c);
-	}
+    // Si on n'a pas mb_* ou si ce n'est pas utf-8, utiliser ucfirst
+    if (!init_mb_string() or $GLOBALS['meta']['charset'] != 'utf-8') {
+        return ucfirst($c);
+    }
 
-	$lettre1 = mb_strtoupper(spip_substr($c, 0, 1));
+    $lettre1 = mb_strtoupper(spip_substr($c, 0, 1));
 
-	return $lettre1 . spip_substr($c, 1);
+    return $lettre1 . spip_substr($c, 1);
 }
 
 /**
@@ -1199,12 +1199,12 @@ 
  *     La chaîne en minuscules
  */
 function spip_strtolower($c) {
-	// Si on n'a pas mb_* ou si ce n'est pas utf-8, utiliser strtolower
-	if (!init_mb_string() or $GLOBALS['meta']['charset'] != 'utf-8') {
-		return strtolower($c);
-	}
+    // Si on n'a pas mb_* ou si ce n'est pas utf-8, utiliser strtolower
+    if (!init_mb_string() or $GLOBALS['meta']['charset'] != 'utf-8') {
+        return strtolower($c);
+    }
 
-	return mb_strtolower($c);
+    return mb_strtolower($c);
 }
 
 /**
@@ -1218,23 +1218,23 @@ 
  *     Longueur de la chaîne
  */
 function spip_strlen($c) {
-	// On transforme les sauts de ligne pour ne pas compter deux caractères
-	$c = str_replace("\r\n", "\n", $c);
-
-	// Si ce n'est pas utf-8, utiliser strlen
-	if ($GLOBALS['meta']['charset'] != 'utf-8') {
-		return strlen($c);
-	}
-
-	// Sinon, utiliser mb_strlen() si disponible
-	if (init_mb_string()) {
-		return mb_strlen($c);
-	}
-
-	// Methode manuelle : on supprime les bytes 10......,
-	// on compte donc les ascii (0.......) et les demarrages
-	// de caracteres utf-8 (11......)
-	return strlen(preg_replace(',[\x80-\xBF],S', '', $c));
+    // On transforme les sauts de ligne pour ne pas compter deux caractères
+    $c = str_replace("\r\n", "\n", $c);
+
+    // Si ce n'est pas utf-8, utiliser strlen
+    if ($GLOBALS['meta']['charset'] != 'utf-8') {
+        return strlen($c);
+    }
+
+    // Sinon, utiliser mb_strlen() si disponible
+    if (init_mb_string()) {
+        return mb_strlen($c);
+    }
+
+    // Methode manuelle : on supprime les bytes 10......,
+    // on compte donc les ascii (0.......) et les demarrages
+    // de caracteres utf-8 (11......)
+    return strlen(preg_replace(',[\x80-\xBF],S', '', $c));
 }
 
 // Initialisation
@@ -1244,16 +1244,16 @@ 
 // dans les preg_replace pour ne pas casser certaines lettres accentuees :
 // en utf-8 chr(195).chr(160) = a` alors qu'en iso-latin chr(160) = nbsp
 if (
-	!isset($GLOBALS['meta']['pcre_u'])
-	or (isset($_GET['var_mode']) and !isset($_GET['var_profile']))
+    !isset($GLOBALS['meta']['pcre_u'])
+    or (isset($_GET['var_mode']) and !isset($_GET['var_profile']))
 ) {
-	include_spip('inc/meta');
-	ecrire_meta(
-		'pcre_u',
-		$u = (lire_config('charset', _DEFAULT_CHARSET) == 'utf-8'
-			and test_pcre_unicode())
-			? 'u' : ''
-	);
+    include_spip('inc/meta');
+    ecrire_meta(
+        'pcre_u',
+        $u = (lire_config('charset', _DEFAULT_CHARSET) == 'utf-8'
+            and test_pcre_unicode())
+            ? 'u' : ''
+    );
 }
 
 
@@ -1269,17 +1269,17 @@ 
  *     en unicode : &#128169;
  */
 function utf8_noplanes($x) {
-	$regexp_utf8_4bytes = '/(
+    $regexp_utf8_4bytes = '/(
       \xF0[\x90-\xBF][\x80-\xBF]{2}     # planes 1-3
    | [\xF1-\xF3][\x80-\xBF]{3}          # planes 4-15
    |  \xF4[\x80-\x8F][\x80-\xBF]{2}     # plane 16
 )/xS';
-	if (preg_match_all($regexp_utf8_4bytes, $x, $z, PREG_PATTERN_ORDER)) {
-		foreach ($z[0] as $k) {
-			$ku = utf_8_to_unicode($k);
-			$x = str_replace($k, $ku, $x);
-		}
-	}
-
-	return $x;
+    if (preg_match_all($regexp_utf8_4bytes, $x, $z, PREG_PATTERN_ORDER)) {
+        foreach ($z[0] as $k) {
+            $ku = utf_8_to_unicode($k);
+            $x = str_replace($k, $ku, $x);
+        }
+    }
+
+    return $x;
 }