Suite de [14014]: le modèle {{{<text.html>}}} demande à la fonction...

Suite de [14014]:  le modèle {{{<text.html>}}} demande à la fonction {{{contenu_document}}} de deviner le charset si l'utilisateur ne l'indique pas. Quand ce n'est pas de l'utf-8, cette fonction prend la valeur de la constante {{{CHARSET_JOINT}}}, qui vaut {{{iso-8859-1>}}} en standard mais peut être définie dans mes_options (Cédric).

ecrire/inc/documents.php

@@ -44,7 +44,12 @@ function get_spip_doc($fichier) {
 	return $fichier;
 }
 
-// Filtre pour #FICHIER
+// Constante indiquant le charset probable des documents non utf-8 joints
+
+@define('CHARSET_JOINT', 'iso-8859-1');
+
+// Filtre pour #FICHIER permettant d'incruster le contenu d'un document
+// Si 2e arg fourni, conversion dans le charset du site si possible
 
 // http://doc.spip.org/@contenu_document
 function contenu_document($arg, $charset='')
@@ -64,9 +69,13 @@ function contenu_document($arg, $charset='')
 	}
 
 	$r = spip_file_get_contents($f);
+	
 	if ($charset) {
-	  include_spip('inc/charset');
-	  $r = importer_charset($r, $charset);
+		include_spip('inc/charset');
+		if ($charset !== 'auto') {
+			$r = importer_charset($r, $charset);
+		} elseif ($GLOBALS['meta']['charset'] == 'utf-8' AND !is_utf8($r))
+			$r = importer_charset($r, CHARSET_JOINT);
 	}
 	return $r;
 }

prive/modeles/text.html

 <BOUCLE_tous (DOCUMENTS types_documents) {id_document=#ID} {tout}
-	>[(#FICHIER|contenu_document{#ENV{charset}}|appliquer_filtre{#MIME_TYPE,filtre_text_txt_dist}
+	>[(#FICHIER|contenu_document{#ENV{charset,auto}}|appliquer_filtre{#MIME_TYPE,filtre_text_txt_dist}
 )]</BOUCLE_tous>