spip / SPIP

ecrire/inc/config.php

Indentation +352 added lines, -352 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -28,7 +28,7 @@ 
  * @return void
  */
 function inc_config_dist() {
-	actualise_metas(liste_metas());
+    actualise_metas(liste_metas());
 }
 
 /**
@@ -45,34 +45,34 @@ 
  *     Liste (table, casier, sous_casier)
  */
 function expliquer_config($cfg) {
-	// par defaut, sur la table des meta
-	$table = 'meta';
-	$casier = null;
-	$sous_casier = [];
-	$cfg = explode('/', $cfg);
-
-	// si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
-	if (!reset($cfg) and count($cfg) > 1) {
-		array_shift($cfg);
-		$table = array_shift($cfg);
-		if (!isset($GLOBALS[$table])) {
-			lire_metas($table);
-		}
-	}
-
-	// si on a demande #CONFIG{/meta,'',0}
-	if (count($cfg)) {
-		// pas sur un appel vide ''
-		if ('' !== ($c = array_shift($cfg))) {
-			$casier = $c;
-		}
-	}
-
-	if (count($cfg)) {
-		$sous_casier = $cfg;
-	}
-
-	return [$table, $casier, $sous_casier];
+    // par defaut, sur la table des meta
+    $table = 'meta';
+    $casier = null;
+    $sous_casier = [];
+    $cfg = explode('/', $cfg);
+
+    // si le premier argument est vide, c'est une syntaxe /table/ ou un appel vide ''
+    if (!reset($cfg) and count($cfg) > 1) {
+        array_shift($cfg);
+        $table = array_shift($cfg);
+        if (!isset($GLOBALS[$table])) {
+            lire_metas($table);
+        }
+    }
+
+    // si on a demande #CONFIG{/meta,'',0}
+    if (count($cfg)) {
+        // pas sur un appel vide ''
+        if ('' !== ($c = array_shift($cfg))) {
+            $casier = $c;
+        }
+    }
+
+    if (count($cfg)) {
+        $sous_casier = $cfg;
+    }
+
+    return [$table, $casier, $sous_casier];
 }
 
 /**
@@ -100,65 +100,65 @@ 
  *    Contenu de la configuration obtenue
  */
 function lire_config($cfg = '', $def = null, $unserialize = true) {
-	// lire le stockage sous la forme /table/valeur
-	// ou valeur qui est en fait implicitement /meta/valeur
-	// ou casier/valeur qui est en fait implicitement /meta/casier/valeur
-
-	// traiter en priorite le cas simple et frequent
-	// de lecture direct $GLOBALS['meta']['truc'], si $cfg ne contient ni / ni :
-	if ($cfg and strpbrk($cfg, '/:') === false) {
-		$r = isset($GLOBALS['meta'][$cfg]) ?
-			((!$unserialize
-				// ne pas essayer de deserialiser autre chose qu'une chaine
-				or !is_string($GLOBALS['meta'][$cfg])
-				// ne pas essayer de deserialiser si ce n'est visiblement pas une chaine serializee
-				or !str_contains($GLOBALS['meta'][$cfg], ':')
-				or ($t = @unserialize($GLOBALS['meta'][$cfg])) === false) ? $GLOBALS['meta'][$cfg] : $t)
-			: $def;
-
-		return $r;
-	}
-
-	// Brancher sur methodes externes si besoin
-	if ($cfg and $p = strpos($cfg, '::')) {
-		$methode = substr($cfg, 0, $p);
-		$lire_config = charger_fonction($methode, 'lire_config');
-
-		return $lire_config(substr($cfg, $p + 2), $def, $unserialize);
-	}
-
-	[$table, $casier, $sous_casier] = expliquer_config($cfg);
-
-	if (!isset($GLOBALS[$table])) {
-		return $def;
-	}
-
-	$r = $GLOBALS[$table];
-
-	// si on a demande #CONFIG{/meta,'',0}
-	if (!$casier) {
-		return $unserialize ? $r : serialize($r);
-	}
-
-	// casier principal :
-	// le deserializer si demande
-	// ou si on a besoin
-	// d'un sous casier
-	$r = $r[$casier] ?? null;
-	if (($unserialize or is_countable($sous_casier) ? count($sous_casier) : 0) and $r and is_string($r)) {
-		$r = (($t = @unserialize($r)) === false ? $r : $t);
-	}
-
-	// aller chercher le sous_casier
-	while (!is_null($r) and $casier = array_shift($sous_casier)) {
-		$r = $r[$casier] ?? null;
-	}
-
-	if (is_null($r)) {
-		return $def;
-	}
-
-	return $r;
+    // lire le stockage sous la forme /table/valeur
+    // ou valeur qui est en fait implicitement /meta/valeur
+    // ou casier/valeur qui est en fait implicitement /meta/casier/valeur
+
+    // traiter en priorite le cas simple et frequent
+    // de lecture direct $GLOBALS['meta']['truc'], si $cfg ne contient ni / ni :
+    if ($cfg and strpbrk($cfg, '/:') === false) {
+        $r = isset($GLOBALS['meta'][$cfg]) ?
+            ((!$unserialize
+                // ne pas essayer de deserialiser autre chose qu'une chaine
+                or !is_string($GLOBALS['meta'][$cfg])
+                // ne pas essayer de deserialiser si ce n'est visiblement pas une chaine serializee
+                or !str_contains($GLOBALS['meta'][$cfg], ':')
+                or ($t = @unserialize($GLOBALS['meta'][$cfg])) === false) ? $GLOBALS['meta'][$cfg] : $t)
+            : $def;
+
+        return $r;
+    }
+
+    // Brancher sur methodes externes si besoin
+    if ($cfg and $p = strpos($cfg, '::')) {
+        $methode = substr($cfg, 0, $p);
+        $lire_config = charger_fonction($methode, 'lire_config');
+
+        return $lire_config(substr($cfg, $p + 2), $def, $unserialize);
+    }
+
+    [$table, $casier, $sous_casier] = expliquer_config($cfg);
+
+    if (!isset($GLOBALS[$table])) {
+        return $def;
+    }
+
+    $r = $GLOBALS[$table];
+
+    // si on a demande #CONFIG{/meta,'',0}
+    if (!$casier) {
+        return $unserialize ? $r : serialize($r);
+    }
+
+    // casier principal :
+    // le deserializer si demande
+    // ou si on a besoin
+    // d'un sous casier
+    $r = $r[$casier] ?? null;
+    if (($unserialize or is_countable($sous_casier) ? count($sous_casier) : 0) and $r and is_string($r)) {
+        $r = (($t = @unserialize($r)) === false ? $r : $t);
+    }
+
+    // aller chercher le sous_casier
+    while (!is_null($r) and $casier = array_shift($sous_casier)) {
+        $r = $r[$casier] ?? null;
+    }
+
+    if (is_null($r)) {
+        return $def;
+    }
+
+    return $r;
 }
 
 /**
@@ -172,7 +172,7 @@ 
  * @return mixed
  */
 function lire_config_metapack_dist($cfg = '', $def = null, $unserialize = true) {
-	return lire_config($cfg, $def, $unserialize);
+    return lire_config($cfg, $def, $unserialize);
 }
 
 
@@ -184,144 +184,144 @@ 
  * @return bool
  */
 function ecrire_config($cfg, $store) {
-	// Brancher sur methodes externes si besoin
-	if ($cfg and $p = strpos($cfg, '::')) {
-		$methode = substr($cfg, 0, $p);
-		$ecrire_config = charger_fonction($methode, 'ecrire_config');
-
-		return $ecrire_config(substr($cfg, $p + 2), $store);
-	}
-
-	[$table, $casier, $sous_casier] = expliquer_config($cfg);
-	// il faut au moins un casier pour ecrire
-	if (!$casier) {
-		return false;
-	}
-
-	// trouvons ou creons le pointeur sur le casier
-	$st = $GLOBALS[$table][$casier] ?? null;
-	if (!is_array($st) and ($sous_casier or is_array($store))) {
-		if ($st === null) {
-			// ne rien creer si c'est une demande d'effacement
-			if ($store === null) {
-				return false;
-			}
-			$st = [];
-		} else {
-			$st = unserialize($st);
-			if ($st === false) {
-				// ne rien creer si c'est une demande d'effacement
-				if ($store === null) {
-					return false;
-				}
-				$st = [];
-			}
-		}
-	}
-
-	$has_planes = false;
-	// si on a affaire a un sous caiser
-	// il faut ecrire au bon endroit sans perdre les autres sous casier freres
-	if ($c = $sous_casier) {
-		$sc = &$st;
-		$pointeurs = [];
-		while (is_countable($c) ? count($c) : 0 and $cc = array_shift($c)) {
-			// creer l'entree si elle n'existe pas
-			if (!isset($sc[$cc])) {
-				// si on essaye d'effacer une config qui n'existe pas
-				// ne rien creer mais sortir
-				if (is_null($store)) {
-					return false;
-				}
-				$sc[$cc] = [];
-			}
-			$pointeurs[$cc] = &$sc;
-			$sc = &$sc[$cc];
-		}
-
-		// si c'est une demande d'effacement
-		if (is_null($store)) {
-			$c = $sous_casier;
-			$sous = array_pop($c);
-			// effacer, et remonter pour effacer les parents vides
-			do {
-				unset($pointeurs[$sous][$sous]);
-			} while ($sous = array_pop($c) and !(is_countable($pointeurs[$sous][$sous]) ? count($pointeurs[$sous][$sous]) : 0));
-
-			// si on a vide tous les sous casiers,
-			// et que le casier est vide
-			// vider aussi la meta
-			if (!$sous and !(is_countable($st) ? count($st) : 0)) {
-				$st = null;
-			}
-		} // dans tous les autres cas, on ecrase
-		else {
-			if (
-					defined('_MYSQL_NOPLANES')
-				and _MYSQL_NOPLANES
-				and !empty($GLOBALS['meta']['charset_sql_connexion'])
-				and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
-			) {
-				// detecter si la valeur qu'on veut ecrire a des planes
-				// @see utf8_noplanes
-				$serialized_store = (is_string($store) ? $store : serialize($store));
-				// un preg_match rapide pour voir si ca vaut le coup de lancer utf8_noplanes
-				if (preg_match(',[\xF0-\xF4],ms', $serialized_store)) {
-					if (!function_exists('utf8_noplanes')) {
-						include_spip('inc/charsets');
-					}
-					if ($serialized_store !== utf8_noplanes($serialized_store)) {
-						$has_planes = true;
-					}
-				}
-			}
-
-			$sc = $store;
-		}
-
-		// Maintenant que $st est modifiee
-		// reprenons la comme valeur a stocker dans le casier principal
-		$store = $st;
-	}
-
-	if (is_null($store)) {
-		if (is_null($st) and !$sous_casier) {
-			return false;
-		} // la config n'existait deja pas !
-		effacer_meta($casier, $table);
-		supprimer_table_meta($table); // supprimons la table (si elle est bien vide)
-	} // les meta ne peuvent etre que des chaines : il faut serializer le reste
-	else {
-		if (!isset($GLOBALS[$table])) {
-			installer_table_meta($table);
-		}
-		// si ce n'est pas une chaine
-		// il faut serializer
-		if (!is_string($store)) {
-			$serialized_store = serialize($store);
-			ecrire_meta($casier, $serialized_store, null, $table);
-			// et dans ce cas il faut verifier que l'ecriture en base a bien eu lieu a l'identique si il y a des planes dans la chaine
-			// car sinon ca casse le serialize PHP - par exemple si on est en mysql utf8 (non mb4)
-			if ($has_planes) {
-				$check_store = sql_getfetsel('valeur', 'spip_' . $table, 'nom=' . sql_quote($casier));
-				if ($check_store !== $serialized_store) {
-					array_walk_recursive($store, function (&$value, $key) {
-						if (is_string($value)) {
-							$value = utf8_noplanes($value);
-						}
-					});
-					$serialized_store = serialize($store);
-					ecrire_meta($casier, $serialized_store, null, $table);
-				}
-			}
-		}
-		else {
-			ecrire_meta($casier, $store, null, $table);
-		}
-	}
-
-	// verifier que lire_config($cfg)==$store ?
-	return true;
+    // Brancher sur methodes externes si besoin
+    if ($cfg and $p = strpos($cfg, '::')) {
+        $methode = substr($cfg, 0, $p);
+        $ecrire_config = charger_fonction($methode, 'ecrire_config');
+
+        return $ecrire_config(substr($cfg, $p + 2), $store);
+    }
+
+    [$table, $casier, $sous_casier] = expliquer_config($cfg);
+    // il faut au moins un casier pour ecrire
+    if (!$casier) {
+        return false;
+    }
+
+    // trouvons ou creons le pointeur sur le casier
+    $st = $GLOBALS[$table][$casier] ?? null;
+    if (!is_array($st) and ($sous_casier or is_array($store))) {
+        if ($st === null) {
+            // ne rien creer si c'est une demande d'effacement
+            if ($store === null) {
+                return false;
+            }
+            $st = [];
+        } else {
+            $st = unserialize($st);
+            if ($st === false) {
+                // ne rien creer si c'est une demande d'effacement
+                if ($store === null) {
+                    return false;
+                }
+                $st = [];
+            }
+        }
+    }
+
+    $has_planes = false;
+    // si on a affaire a un sous caiser
+    // il faut ecrire au bon endroit sans perdre les autres sous casier freres
+    if ($c = $sous_casier) {
+        $sc = &$st;
+        $pointeurs = [];
+        while (is_countable($c) ? count($c) : 0 and $cc = array_shift($c)) {
+            // creer l'entree si elle n'existe pas
+            if (!isset($sc[$cc])) {
+                // si on essaye d'effacer une config qui n'existe pas
+                // ne rien creer mais sortir
+                if (is_null($store)) {
+                    return false;
+                }
+                $sc[$cc] = [];
+            }
+            $pointeurs[$cc] = &$sc;
+            $sc = &$sc[$cc];
+        }
+
+        // si c'est une demande d'effacement
+        if (is_null($store)) {
+            $c = $sous_casier;
+            $sous = array_pop($c);
+            // effacer, et remonter pour effacer les parents vides
+            do {
+                unset($pointeurs[$sous][$sous]);
+            } while ($sous = array_pop($c) and !(is_countable($pointeurs[$sous][$sous]) ? count($pointeurs[$sous][$sous]) : 0));
+
+            // si on a vide tous les sous casiers,
+            // et que le casier est vide
+            // vider aussi la meta
+            if (!$sous and !(is_countable($st) ? count($st) : 0)) {
+                $st = null;
+            }
+        } // dans tous les autres cas, on ecrase
+        else {
+            if (
+                    defined('_MYSQL_NOPLANES')
+                and _MYSQL_NOPLANES
+                and !empty($GLOBALS['meta']['charset_sql_connexion'])
+                and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
+            ) {
+                // detecter si la valeur qu'on veut ecrire a des planes
+                // @see utf8_noplanes
+                $serialized_store = (is_string($store) ? $store : serialize($store));
+                // un preg_match rapide pour voir si ca vaut le coup de lancer utf8_noplanes
+                if (preg_match(',[\xF0-\xF4],ms', $serialized_store)) {
+                    if (!function_exists('utf8_noplanes')) {
+                        include_spip('inc/charsets');
+                    }
+                    if ($serialized_store !== utf8_noplanes($serialized_store)) {
+                        $has_planes = true;
+                    }
+                }
+            }
+
+            $sc = $store;
+        }
+
+        // Maintenant que $st est modifiee
+        // reprenons la comme valeur a stocker dans le casier principal
+        $store = $st;
+    }
+
+    if (is_null($store)) {
+        if (is_null($st) and !$sous_casier) {
+            return false;
+        } // la config n'existait deja pas !
+        effacer_meta($casier, $table);
+        supprimer_table_meta($table); // supprimons la table (si elle est bien vide)
+    } // les meta ne peuvent etre que des chaines : il faut serializer le reste
+    else {
+        if (!isset($GLOBALS[$table])) {
+            installer_table_meta($table);
+        }
+        // si ce n'est pas une chaine
+        // il faut serializer
+        if (!is_string($store)) {
+            $serialized_store = serialize($store);
+            ecrire_meta($casier, $serialized_store, null, $table);
+            // et dans ce cas il faut verifier que l'ecriture en base a bien eu lieu a l'identique si il y a des planes dans la chaine
+            // car sinon ca casse le serialize PHP - par exemple si on est en mysql utf8 (non mb4)
+            if ($has_planes) {
+                $check_store = sql_getfetsel('valeur', 'spip_' . $table, 'nom=' . sql_quote($casier));
+                if ($check_store !== $serialized_store) {
+                    array_walk_recursive($store, function (&$value, $key) {
+                        if (is_string($value)) {
+                            $value = utf8_noplanes($value);
+                        }
+                    });
+                    $serialized_store = serialize($store);
+                    ecrire_meta($casier, $serialized_store, null, $table);
+                }
+            }
+        }
+        else {
+            ecrire_meta($casier, $store, null, $table);
+        }
+    }
+
+    // verifier que lire_config($cfg)==$store ?
+    return true;
 }
 
 
@@ -335,14 +335,14 @@ 
  * @return bool
  */
 function ecrire_config_metapack_dist($cfg, $store) {
-	// cas particulier en metapack::
-	// si on ecrit une chaine deja serializee, il faut la reserializer pour la rendre
-	// intacte en sortie ...
-	if (is_string($store) and strpos($store, ':') and unserialize($store)) {
-		$store = serialize($store);
-	}
-
-	return ecrire_config($cfg, $store);
+    // cas particulier en metapack::
+    // si on ecrit une chaine deja serializee, il faut la reserializer pour la rendre
+    // intacte en sortie ...
+    if (is_string($store) and strpos($store, ':') and unserialize($store)) {
+        $store = serialize($store);
+    }
+
+    return ecrire_config($cfg, $store);
 }
 
 /**
@@ -352,9 +352,9 @@ 
  * @return bool
  */
 function effacer_config($cfg) {
-	ecrire_config($cfg, null);
+    ecrire_config($cfg, null);
 
-	return true;
+    return true;
 }
 
 /**
@@ -371,58 +371,58 @@ 
  *    Couples nom de la `meta` => valeur par défaut
  */
 function liste_metas() {
-	return pipeline('configurer_liste_metas', [
-		'nom_site' => _T('info_mon_site_spip'),
-		'slogan_site' => '',
-		'adresse_site' => preg_replace(',/$,', '', url_de_base()),
-		'descriptif_site' => '',
-		'activer_logos' => 'oui',
-		'activer_logos_survol' => 'non',
-		'articles_surtitre' => 'non',
-		'articles_soustitre' => 'non',
-		'articles_descriptif' => 'non',
-		'articles_chapeau' => 'non',
-		'articles_texte' => 'oui',
-		'articles_ps' => 'non',
-		'articles_redac' => 'non',
-		'post_dates' => 'non',
-		'articles_urlref' => 'non',
-		'articles_redirection' => 'non',
-		'creer_preview' => 'non',
-		'taille_preview' => 150,
-		'articles_modif' => 'non',
-
-		'rubriques_descriptif' => 'non',
-		'rubriques_texte' => 'oui',
-
-		'accepter_inscriptions' => 'non',
-		'accepter_visiteurs' => 'non',
-		'prevenir_auteurs' => 'non',
-		'suivi_edito' => 'non',
-		'adresse_suivi' => '',
-		'adresse_suivi_inscription' => '',
-		'adresse_neuf' => '',
-		'jours_neuf' => '',
-		'quoi_de_neuf' => 'non',
-		'preview' => ',0minirezo,1comite,',
-
-		'syndication_integrale' => 'oui',
-		'charset' => _DEFAULT_CHARSET,
-		'dir_img' => substr(_DIR_IMG, strlen(_DIR_RACINE)),
-
-		'multi_rubriques' => 'non',
-		'multi_secteurs' => 'non',
-		'gerer_trad' => 'non',
-		'langues_multilingue' => '',
-
-		'version_html_max' => 'html4',
-
-		'type_urls' => 'page',
-
-		'email_envoi' => '',
-		'email_webmaster' => '',
-		'auto_compress_http' => 'non',
-	]);
+    return pipeline('configurer_liste_metas', [
+        'nom_site' => _T('info_mon_site_spip'),
+        'slogan_site' => '',
+        'adresse_site' => preg_replace(',/$,', '', url_de_base()),
+        'descriptif_site' => '',
+        'activer_logos' => 'oui',
+        'activer_logos_survol' => 'non',
+        'articles_surtitre' => 'non',
+        'articles_soustitre' => 'non',
+        'articles_descriptif' => 'non',
+        'articles_chapeau' => 'non',
+        'articles_texte' => 'oui',
+        'articles_ps' => 'non',
+        'articles_redac' => 'non',
+        'post_dates' => 'non',
+        'articles_urlref' => 'non',
+        'articles_redirection' => 'non',
+        'creer_preview' => 'non',
+        'taille_preview' => 150,
+        'articles_modif' => 'non',
+
+        'rubriques_descriptif' => 'non',
+        'rubriques_texte' => 'oui',
+
+        'accepter_inscriptions' => 'non',
+        'accepter_visiteurs' => 'non',
+        'prevenir_auteurs' => 'non',
+        'suivi_edito' => 'non',
+        'adresse_suivi' => '',
+        'adresse_suivi_inscription' => '',
+        'adresse_neuf' => '',
+        'jours_neuf' => '',
+        'quoi_de_neuf' => 'non',
+        'preview' => ',0minirezo,1comite,',
+
+        'syndication_integrale' => 'oui',
+        'charset' => _DEFAULT_CHARSET,
+        'dir_img' => substr(_DIR_IMG, strlen(_DIR_RACINE)),
+
+        'multi_rubriques' => 'non',
+        'multi_secteurs' => 'non',
+        'gerer_trad' => 'non',
+        'langues_multilingue' => '',
+
+        'version_html_max' => 'html4',
+
+        'type_urls' => 'page',
+
+        'email_envoi' => '',
+        'email_webmaster' => '',
+        'auto_compress_http' => 'non',
+    ]);
 }
 
 /**
@@ -433,43 +433,43 @@ 
  * @return void
  */
 function actualise_metas($liste_meta) {
-	$meta_serveur =
-		[
-			'version_installee',
-			'adresse_site',
-			'alea_ephemere_ancien',
-			'alea_ephemere',
-			'alea_ephemere_date',
-			'langue_site',
-			'langues_proposees',
-			'date_calcul_rubriques',
-			'derniere_modif',
-			'optimiser_table',
-			'drapeau_edition',
-			'creer_preview',
-			'taille_preview',
-			'creer_htpasswd',
-			'creer_htaccess',
-			'gd_formats_read',
-			'gd_formats',
-			'netpbm_formats',
-			'formats_graphiques',
-			'image_process',
-			'plugin_header',
-			'plugin'
-		];
-	// verifier le impt=non
-	sql_updateq('spip_meta', ['impt' => 'non'], sql_in('nom', $meta_serveur));
-
-	foreach ($liste_meta as $nom => $valeur) {
-		if (empty($GLOBALS['meta'][$nom])) {
-			ecrire_meta($nom, $valeur);
-		}
-	}
-
-	include_spip('inc/rubriques');
-	$langues = calculer_langues_utilisees();
-	ecrire_meta('langues_utilisees', $langues);
+    $meta_serveur =
+        [
+            'version_installee',
+            'adresse_site',
+            'alea_ephemere_ancien',
+            'alea_ephemere',
+            'alea_ephemere_date',
+            'langue_site',
+            'langues_proposees',
+            'date_calcul_rubriques',
+            'derniere_modif',
+            'optimiser_table',
+            'drapeau_edition',
+            'creer_preview',
+            'taille_preview',
+            'creer_htpasswd',
+            'creer_htaccess',
+            'gd_formats_read',
+            'gd_formats',
+            'netpbm_formats',
+            'formats_graphiques',
+            'image_process',
+            'plugin_header',
+            'plugin'
+        ];
+    // verifier le impt=non
+    sql_updateq('spip_meta', ['impt' => 'non'], sql_in('nom', $meta_serveur));
+
+    foreach ($liste_meta as $nom => $valeur) {
+        if (empty($GLOBALS['meta'][$nom])) {
+            ecrire_meta($nom, $valeur);
+        }
+    }
+
+    include_spip('inc/rubriques');
+    $langues = calculer_langues_utilisees();
+    ecrire_meta('langues_utilisees', $langues);
 }
 
 
@@ -491,18 +491,18 @@ 
  */
 function appliquer_modifs_config($purger_skel = false) {
 
-	foreach (liste_metas() as $i => $v) {
-		if (($x = _request($i)) !== null) {
-			ecrire_meta($i, $x);
-		} elseif (!isset($GLOBALS['meta'][$i])) {
-			ecrire_meta($i, $v);
-		}
-	}
-
-	if ($purger_skel) {
-		include_spip('inc/invalideur');
-		purger_repertoire(_DIR_SKELS);
-	}
+    foreach (liste_metas() as $i => $v) {
+        if (($x = _request($i)) !== null) {
+            ecrire_meta($i, $x);
+        } elseif (!isset($GLOBALS['meta'][$i])) {
+            ecrire_meta($i, $v);
+        }
+    }
+
+    if ($purger_skel) {
+        include_spip('inc/invalideur');
+        purger_repertoire(_DIR_SKELS);
+    }
 }
 
 /**
@@ -513,21 +513,21 @@ 
  * @return string
  */
 function appliquer_adresse_site($adresse_site) {
-	if ($adresse_site !== null) {
-		if (!strlen($adresse_site)) {
-			$GLOBALS['profondeur_url'] = _DIR_RESTREINT ? 0 : 1;
-			$adresse_site = url_de_base();
-		}
-		$adresse_site = preg_replace(',/?\s*$,', '', $adresse_site);
+    if ($adresse_site !== null) {
+        if (!strlen($adresse_site)) {
+            $GLOBALS['profondeur_url'] = _DIR_RESTREINT ? 0 : 1;
+            $adresse_site = url_de_base();
+        }
+        $adresse_site = preg_replace(',/?\s*$,', '', $adresse_site);
 
-		if (!tester_url_absolue($adresse_site)) {
-			$adresse_site = "http://$adresse_site";
-		}
+        if (!tester_url_absolue($adresse_site)) {
+            $adresse_site = "http://$adresse_site";
+        }
 
-		$adresse_site = entites_html($adresse_site);
+        $adresse_site = entites_html($adresse_site);
 
-		ecrire_meta('adresse_site', $adresse_site);
-	}
+        ecrire_meta('adresse_site', $adresse_site);
+    }
 
-	return $adresse_site;
+    return $adresse_site;
 }

ecrire/inc/actions.php

Indentation +26 added lines, -26 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,9 +43,9 @@ 
  *     URL, code HTML du formulaire ou tableau (action, arg, hash)
  */
 function generer_action_auteur($action, $arg = '', $redirect = '', $mode = false, $att = '', $public = false) {
-	$securiser_action = charger_fonction('securiser_action', 'inc');
+    $securiser_action = charger_fonction('securiser_action', 'inc');
 
-	return $securiser_action($action, $arg, $redirect, $mode, $att, $public);
+    return $securiser_action($action, $arg, $redirect, $mode, $att, $public);
 }
 
 /**
@@ -78,9 +78,9 @@ 
  *     Code HTML du formulaire
  */
 function redirige_action_auteur($action, $arg, $ret, $gra = '', $mode = false, $atts = '', $public = false) {
-	$r = ($public ? _DIR_RESTREINT_ABS : _DIR_RESTREINT) . generer_url_ecrire($ret, $gra, true, true);
+    $r = ($public ? _DIR_RESTREINT_ABS : _DIR_RESTREINT) . generer_url_ecrire($ret, $gra, true, true);
 
-	return generer_action_auteur($action, $arg, $r, $mode, $atts, $public);
+    return generer_action_auteur($action, $arg, $r, $mode, $atts, $public);
 }
 
 /**
@@ -105,9 +105,9 @@ 
  *     URL, code HTML du formulaire ou tableau (action, arg, hash)
  */
 function redirige_action_post($action, $arg, $ret, $gra, $corps, $att = '') {
-	$r = _DIR_RESTREINT . generer_url_ecrire($ret, $gra, false, true);
+    $r = _DIR_RESTREINT . generer_url_ecrire($ret, $gra, false, true);
 
-	return generer_action_auteur($action, $arg, $r, $corps, $att . " method='post'");
+    return generer_action_auteur($action, $arg, $r, $corps, $att . " method='post'");
 }
 
 
@@ -124,26 +124,26 @@ 
  *   passer "text/html" comme $content_type
  */
 function ajax_retour($corps, $content_type = null): void {
-	$xml = false;
-	if (is_null($content_type) or $content_type === true) {
-		$xml = true;
-		$content_type = 'text/html';
-	} elseif (!$content_type or !is_string($content_type) or !str_contains($content_type, '/')) {
-		$content_type = 'text/html';
-	}
+    $xml = false;
+    if (is_null($content_type) or $content_type === true) {
+        $xml = true;
+        $content_type = 'text/html';
+    } elseif (!$content_type or !is_string($content_type) or !str_contains($content_type, '/')) {
+        $content_type = 'text/html';
+    }
 
-	$e = '';
-	if (
-		isset($_COOKIE['spip_admin'])
-		and ((_request('var_mode') == 'debug') or !empty($GLOBALS['tableau_des_temps']))
-	) {
-		$e = erreur_squelette();
-	}
+    $e = '';
+    if (
+        isset($_COOKIE['spip_admin'])
+        and ((_request('var_mode') == 'debug') or !empty($GLOBALS['tableau_des_temps']))
+    ) {
+        $e = erreur_squelette();
+    }
 
-	$c = $GLOBALS['meta']['charset'];
-	header('Content-Type: ' . $content_type . '; charset=' . $c);
-	$debut = (($xml and strlen(trim($corps))) ? '<' . "?xml version='1.0' encoding='" . $c . "'?" . ">\n" : '');
-	$fin = '';
+    $c = $GLOBALS['meta']['charset'];
+    header('Content-Type: ' . $content_type . '; charset=' . $c);
+    $debut = (($xml and strlen(trim($corps))) ? '<' . "?xml version='1.0' encoding='" . $c . "'?" . ">\n" : '');
+    $fin = '';
 
-	echo $debut, $corps, $fin, $e;
+    echo $debut, $corps, $fin, $e;
 }

ecrire/inc/texte.php

Indentation +228 added lines, -228 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte_mini');
@@ -34,7 +34,7 @@ 
  * @return array Tablea ('','')
  */
 function definir_raccourcis_alineas() {
-	return ['', ''];
+    return ['', ''];
 }
 
 
@@ -47,7 +47,7 @@ 
  * @return string
  */
 function traiter_tableau($bloc) {
-	return $bloc;
+    return $bloc;
 }
 
 
@@ -61,7 +61,7 @@ 
  * @return string
  */
 function traiter_listes($texte) {
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -77,16 +77,16 @@ 
  */
 function traiter_raccourcis($letexte) {
 
-	// Appeler les fonctions de pre_traitement
-	$letexte = pipeline('pre_propre', $letexte);
+    // Appeler les fonctions de pre_traitement
+    $letexte = pipeline('pre_propre', $letexte);
 
-	// APPELER ICI UN PIPELINE traiter_raccourcis ?
-	// $letexte = pipeline('traiter_raccourcis', $letexte);
+    // APPELER ICI UN PIPELINE traiter_raccourcis ?
+    // $letexte = pipeline('traiter_raccourcis', $letexte);
 
-	// Appeler les fonctions de post-traitement
-	$letexte = pipeline('post_propre', $letexte);
+    // Appeler les fonctions de post-traitement
+    $letexte = pipeline('post_propre', $letexte);
 
-	return $letexte;
+    return $letexte;
 }
 
 /*************************************************************************************************************************
@@ -102,22 +102,22 @@ 
  * @return string
  */
 function echappe_js($t, $class = ' class = "echappe-js"') {
-	foreach (['script', 'iframe'] as $tag) {
-		if (
-			stripos($t, (string) "<$tag") !== false
-			and preg_match_all(',<' . $tag . '.*?($|</' . $tag . '.),isS', $t, $r, PREG_SET_ORDER)
-		) {
-			foreach ($r as $regs) {
-				$t = str_replace(
-					$regs[0],
-					"<code$class>" . nl2br(spip_htmlspecialchars($regs[0])) . '</code>',
-					$t
-				);
-			}
-		}
-	}
-
-	return $t;
+    foreach (['script', 'iframe'] as $tag) {
+        if (
+            stripos($t, (string) "<$tag") !== false
+            and preg_match_all(',<' . $tag . '.*?($|</' . $tag . '.),isS', $t, $r, PREG_SET_ORDER)
+        ) {
+            foreach ($r as $regs) {
+                $t = str_replace(
+                    $regs[0],
+                    "<code$class>" . nl2br(spip_htmlspecialchars($regs[0])) . '</code>',
+                    $t
+                );
+            }
+        }
+    }
+
+    return $t;
 }
 
 
@@ -146,55 +146,55 @@ 
  *     Code protégé
  **/
 function interdire_scripts($arg, $mode_filtre = null) {
-	// on memorise le resultat sur les arguments non triviaux
-	static $dejavu = [];
-
-	// Attention, si ce n'est pas une chaine, laisser intact
-	if (!$arg or !is_string($arg) or !strstr($arg, '<')) {
-		return $arg;
-	}
-
-	if (is_null($mode_filtre) or !in_array($mode_filtre, [-1, 0, 1])) {
-		$mode_filtre = $GLOBALS['filtrer_javascript'];
-	}
-
-	if (isset($dejavu[$mode_filtre][$arg])) {
-		return $dejavu[$mode_filtre][$arg];
-	}
-
-	// echapper les tags asp/php
-	$t = str_replace('<' . '%', '&lt;%', $arg);
-
-	// echapper le php
-	$t = str_replace('<' . '?', '&lt;?', $t);
-
-	// echapper le < script language=php >
-	$t = preg_replace(',<(script\b[^>]+\blanguage\b[^\w>]+php\b),UimsS', '&lt;\1', $t);
-
-	// Pour le js, trois modes : parano (-1), prive (0), ok (1)
-	switch ($mode_filtre) {
-		case 0:
-			if (!_DIR_RESTREINT) {
-				$t = echappe_js($t);
-			}
-			break;
-		case -1:
-			$t = echappe_js($t);
-			break;
-	}
-
-	// pas de <base href /> svp !
-	$t = preg_replace(',<(base\b),iS', '&lt;\1', $t);
-
-	// Reinserer les echappements des modeles
-	if (defined('_PROTEGE_JS_MODELES')) {
-		$t = echappe_retour($t, 'javascript' . _PROTEGE_JS_MODELES);
-	}
-	if (defined('_PROTEGE_PHP_MODELES')) {
-		$t = echappe_retour($t, 'php' . _PROTEGE_PHP_MODELES);
-	}
-
-	return $dejavu[$mode_filtre][$arg] = $t;
+    // on memorise le resultat sur les arguments non triviaux
+    static $dejavu = [];
+
+    // Attention, si ce n'est pas une chaine, laisser intact
+    if (!$arg or !is_string($arg) or !strstr($arg, '<')) {
+        return $arg;
+    }
+
+    if (is_null($mode_filtre) or !in_array($mode_filtre, [-1, 0, 1])) {
+        $mode_filtre = $GLOBALS['filtrer_javascript'];
+    }
+
+    if (isset($dejavu[$mode_filtre][$arg])) {
+        return $dejavu[$mode_filtre][$arg];
+    }
+
+    // echapper les tags asp/php
+    $t = str_replace('<' . '%', '&lt;%', $arg);
+
+    // echapper le php
+    $t = str_replace('<' . '?', '&lt;?', $t);
+
+    // echapper le < script language=php >
+    $t = preg_replace(',<(script\b[^>]+\blanguage\b[^\w>]+php\b),UimsS', '&lt;\1', $t);
+
+    // Pour le js, trois modes : parano (-1), prive (0), ok (1)
+    switch ($mode_filtre) {
+        case 0:
+            if (!_DIR_RESTREINT) {
+                $t = echappe_js($t);
+            }
+            break;
+        case -1:
+            $t = echappe_js($t);
+            break;
+    }
+
+    // pas de <base href /> svp !
+    $t = preg_replace(',<(base\b),iS', '&lt;\1', $t);
+
+    // Reinserer les echappements des modeles
+    if (defined('_PROTEGE_JS_MODELES')) {
+        $t = echappe_retour($t, 'javascript' . _PROTEGE_JS_MODELES);
+    }
+    if (defined('_PROTEGE_PHP_MODELES')) {
+        $t = echappe_retour($t, 'php' . _PROTEGE_PHP_MODELES);
+    }
+
+    return $dejavu[$mode_filtre][$arg] = $t;
 }
 
 
@@ -223,66 +223,66 @@ 
  *     texte transformé
  **/
 function typo($letexte, $echapper = true, $connect = null, $env = []) {
-	// Plus vite !
-	if (!$letexte) {
-		return $letexte;
-	}
-
-	// les appels directs a cette fonction depuis le php de l'espace
-	// prive etant historiquement ecrit sans argment $connect
-	// on utilise la presence de celui-ci pour distinguer les cas
-	// ou il faut passer interdire_script explicitement
-	// les appels dans les squelettes (de l'espace prive) fournissant un $connect
-	// ne seront pas perturbes
-	$interdire_script = false;
-	if (is_null($connect)) {
-		$connect = '';
-		$interdire_script = true;
-		$env['espace_prive'] = test_espace_prive();
-	}
-
-	// Echapper les codes <html> etc
-	if ($echapper) {
-		$letexte = echappe_html($letexte, 'TYPO');
-	}
-
-	//
-	// Installer les modeles, notamment images et documents ;
-	//
-	// NOTE : propre() ne passe pas par ici mais directement par corriger_typo
-	// cf. inc/lien
-
-	$letexte = traiter_modeles($mem = $letexte, false, $echapper ? 'TYPO' : '', $connect ?? '', null, $env);
-	if ($letexte != $mem) {
-		$echapper = true;
-	}
-	unset($mem);
-
-	$letexte = corriger_typo($letexte);
-	$letexte = echapper_faux_tags($letexte);
-
-	// reintegrer les echappements
-	if ($echapper) {
-		$letexte = echappe_retour($letexte, 'TYPO');
-	}
-
-	// Dans les appels directs hors squelette, securiser ici aussi
-	if ($interdire_script) {
-		$letexte = interdire_scripts($letexte);
-	}
-
-	// Dans l'espace prive on se mefie de tout contenu dangereux
-	// https://core.spip.net/issues/3371
-	// et aussi dans l'espace public si la globale filtrer_javascript = -1
-	// https://core.spip.net/issues/4166
-	if (
-		$GLOBALS['filtrer_javascript'] == -1
-		or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript'] <= 0)
-	) {
-		$letexte = echapper_html_suspect($letexte, [], $connect, $env);
-	}
-
-	return $letexte;
+    // Plus vite !
+    if (!$letexte) {
+        return $letexte;
+    }
+
+    // les appels directs a cette fonction depuis le php de l'espace
+    // prive etant historiquement ecrit sans argment $connect
+    // on utilise la presence de celui-ci pour distinguer les cas
+    // ou il faut passer interdire_script explicitement
+    // les appels dans les squelettes (de l'espace prive) fournissant un $connect
+    // ne seront pas perturbes
+    $interdire_script = false;
+    if (is_null($connect)) {
+        $connect = '';
+        $interdire_script = true;
+        $env['espace_prive'] = test_espace_prive();
+    }
+
+    // Echapper les codes <html> etc
+    if ($echapper) {
+        $letexte = echappe_html($letexte, 'TYPO');
+    }
+
+    //
+    // Installer les modeles, notamment images et documents ;
+    //
+    // NOTE : propre() ne passe pas par ici mais directement par corriger_typo
+    // cf. inc/lien
+
+    $letexte = traiter_modeles($mem = $letexte, false, $echapper ? 'TYPO' : '', $connect ?? '', null, $env);
+    if ($letexte != $mem) {
+        $echapper = true;
+    }
+    unset($mem);
+
+    $letexte = corriger_typo($letexte);
+    $letexte = echapper_faux_tags($letexte);
+
+    // reintegrer les echappements
+    if ($echapper) {
+        $letexte = echappe_retour($letexte, 'TYPO');
+    }
+
+    // Dans les appels directs hors squelette, securiser ici aussi
+    if ($interdire_script) {
+        $letexte = interdire_scripts($letexte);
+    }
+
+    // Dans l'espace prive on se mefie de tout contenu dangereux
+    // https://core.spip.net/issues/3371
+    // et aussi dans l'espace public si la globale filtrer_javascript = -1
+    // https://core.spip.net/issues/4166
+    if (
+        $GLOBALS['filtrer_javascript'] == -1
+        or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript'] <= 0)
+    ) {
+        $letexte = echapper_html_suspect($letexte, [], $connect, $env);
+    }
+
+    return $letexte;
 }
 
 // Correcteur typographique
@@ -307,57 +307,57 @@ 
  */
 function corriger_typo($letexte, $lang = '') {
 
-	// Plus vite !
-	if (!$letexte) {
-		return $letexte;
-	}
-
-	$letexte = pipeline('pre_typo', $letexte);
-
-	// Caracteres de controle "illegaux"
-	$letexte = corriger_caracteres($letexte);
-
-	// Proteger les caracteres typographiques a l'interieur des tags html
-	if (preg_match_all(_TYPO_BALISE, $letexte, $regs, PREG_SET_ORDER)) {
-		foreach ($regs as $reg) {
-			$insert = $reg[0];
-			// hack: on transforme les caracteres a proteger en les remplacant
-			// par des caracteres "illegaux". (cf corriger_caracteres())
-			$insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
-			$letexte = str_replace($reg[0], $insert, $letexte);
-		}
-	}
-
-	// trouver les blocs idiomes et les traiter à part
-	$letexte = extraire_idiome($ei = $letexte, $lang, true);
-	$ei = ($ei !== $letexte);
-
-	// trouver les blocs multi et les traiter a part
-	$letexte = extraire_multi($em = $letexte, $lang, true);
-	$em = ($em !== $letexte);
-
-	// Charger & appliquer les fonctions de typographie
-	$typographie = charger_fonction(lang_typo($lang), 'typographie');
-	$letexte = $typographie($letexte);
-
-	// Les citations en une autre langue, s'il y a lieu
-	if ($em) {
-		$letexte = echappe_retour($letexte, 'multi');
-	}
-	if ($ei) {
-		$letexte = echappe_retour($letexte, 'idiome');
-	}
-
-	// Retablir les caracteres proteges
-	$letexte = strtr($letexte, _TYPO_PROTECTEUR, _TYPO_PROTEGER);
-
-	// pipeline
-	$letexte = pipeline('post_typo', $letexte);
-
-	# un message pour abs_url - on est passe en mode texte
-	$GLOBALS['mode_abs_url'] = 'texte';
-
-	return $letexte;
+    // Plus vite !
+    if (!$letexte) {
+        return $letexte;
+    }
+
+    $letexte = pipeline('pre_typo', $letexte);
+
+    // Caracteres de controle "illegaux"
+    $letexte = corriger_caracteres($letexte);
+
+    // Proteger les caracteres typographiques a l'interieur des tags html
+    if (preg_match_all(_TYPO_BALISE, $letexte, $regs, PREG_SET_ORDER)) {
+        foreach ($regs as $reg) {
+            $insert = $reg[0];
+            // hack: on transforme les caracteres a proteger en les remplacant
+            // par des caracteres "illegaux". (cf corriger_caracteres())
+            $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
+            $letexte = str_replace($reg[0], $insert, $letexte);
+        }
+    }
+
+    // trouver les blocs idiomes et les traiter à part
+    $letexte = extraire_idiome($ei = $letexte, $lang, true);
+    $ei = ($ei !== $letexte);
+
+    // trouver les blocs multi et les traiter a part
+    $letexte = extraire_multi($em = $letexte, $lang, true);
+    $em = ($em !== $letexte);
+
+    // Charger & appliquer les fonctions de typographie
+    $typographie = charger_fonction(lang_typo($lang), 'typographie');
+    $letexte = $typographie($letexte);
+
+    // Les citations en une autre langue, s'il y a lieu
+    if ($em) {
+        $letexte = echappe_retour($letexte, 'multi');
+    }
+    if ($ei) {
+        $letexte = echappe_retour($letexte, 'idiome');
+    }
+
+    // Retablir les caracteres proteges
+    $letexte = strtr($letexte, _TYPO_PROTECTEUR, _TYPO_PROTEGER);
+
+    // pipeline
+    $letexte = pipeline('post_typo', $letexte);
+
+    # un message pour abs_url - on est passe en mode texte
+    $GLOBALS['mode_abs_url'] = 'texte';
+
+    return $letexte;
 }
 
 
@@ -373,7 +373,7 @@ 
  * @return string
  */
 function paragrapher($letexte, $forcer = true) {
-	return $letexte;
+    return $letexte;
 }
 
 /**
@@ -385,11 +385,11 @@ 
  * @return string texte
  **/
 function traiter_retours_chariots($letexte) {
-	$letexte = preg_replace(",\r\n?,S", "\n", $letexte);
-	$letexte = preg_replace(',<p[>[:space:]],iS', "\n\n\\0", $letexte);
-	$letexte = preg_replace(',</p[>[:space:]],iS', "\\0\n\n", $letexte);
+    $letexte = preg_replace(",\r\n?,S", "\n", $letexte);
+    $letexte = preg_replace(',<p[>[:space:]],iS', "\n\n\\0", $letexte);
+    $letexte = preg_replace(',</p[>[:space:]],iS', "\\0\n\n", $letexte);
 
-	return $letexte;
+    return $letexte;
 }
 
 
@@ -415,40 +415,40 @@ 
  *     texte transformé
  **/
 function propre($t, $connect = null, $env = []) {
-	// les appels directs a cette fonction depuis le php de l'espace
-	// prive etant historiquement ecrits sans argment $connect
-	// on utilise la presence de celui-ci pour distinguer les cas
-	// ou il faut passer interdire_script explicitement
-	// les appels dans les squelettes (de l'espace prive) fournissant un $connect
-	// ne seront pas perturbes
-	$interdire_script = false;
-	if (is_null($connect)) {
-		$connect = '';
-		$interdire_script = true;
-		$env['espace_prive'] = true;
-	}
-
-	if (!$t) {
-		return strval($t);
-	}
-
-	// Dans l'espace prive on se mefie de tout contenu dangereux
-	// avant echappement des balises <html>
-	// https://core.spip.net/issues/3371
-	// et aussi dans l'espace public si la globale filtrer_javascript = -1
-	// https://core.spip.net/issues/4166
-	if (
-		$interdire_script
-		or $GLOBALS['filtrer_javascript'] == -1
-		or (!empty($env['espace_prive']) and $GLOBALS['filtrer_javascript'] <= 0)
-		or (!empty($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript'] <= 0)
-	) {
-		$t = echapper_html_suspect($t, ['strict' => false], $connect, $env);
-	}
-	$t = echappe_html($t);
-	$t = expanser_liens($t, $connect, $env);
-	$t = traiter_raccourcis($t);
-	$t = echappe_retour_modeles($t, $interdire_script);
-
-	return $t;
+    // les appels directs a cette fonction depuis le php de l'espace
+    // prive etant historiquement ecrits sans argment $connect
+    // on utilise la presence de celui-ci pour distinguer les cas
+    // ou il faut passer interdire_script explicitement
+    // les appels dans les squelettes (de l'espace prive) fournissant un $connect
+    // ne seront pas perturbes
+    $interdire_script = false;
+    if (is_null($connect)) {
+        $connect = '';
+        $interdire_script = true;
+        $env['espace_prive'] = true;
+    }
+
+    if (!$t) {
+        return strval($t);
+    }
+
+    // Dans l'espace prive on se mefie de tout contenu dangereux
+    // avant echappement des balises <html>
+    // https://core.spip.net/issues/3371
+    // et aussi dans l'espace public si la globale filtrer_javascript = -1
+    // https://core.spip.net/issues/4166
+    if (
+        $interdire_script
+        or $GLOBALS['filtrer_javascript'] == -1
+        or (!empty($env['espace_prive']) and $GLOBALS['filtrer_javascript'] <= 0)
+        or (!empty($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript'] <= 0)
+    ) {
+        $t = echapper_html_suspect($t, ['strict' => false], $connect, $env);
+    }
+    $t = echappe_html($t);
+    $t = expanser_liens($t, $connect, $env);
+    $t = traiter_raccourcis($t);
+    $t = echappe_retour_modeles($t, $interdire_script);
+
+    return $t;
 }

ecrire/inc/bandeau.php

Indentation +149 added lines, -149 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/boutons');
@@ -39,33 +39,33 @@ 
  *     contexte
  **/
 function definir_barre_contexte($contexte = null) {
-	if (is_null($contexte)) {
-		$contexte = $_GET;
-	} elseif (is_string($contexte)) {
-		$contexte = unserialize($contexte);
-	}
-	if (!isset($contexte['id_rubrique']) and isset($contexte['exec'])) {
-		if (!function_exists('trouver_objet_exec')) {
-			include_spip('inc/pipelines_ecrire');
-		}
-		if ($e = trouver_objet_exec($contexte['exec'])) {
-			$_id = $e['id_table_objet'];
-			if (isset($contexte[$_id]) and $id = intval($contexte[$_id])) {
-				$table = $e['table_objet_sql'];
-				$row = sql_fetsel('*', $table, "$_id=" . intval($id));
-				if (isset($row['id_rubrique'])) {
-					$contexte['id_rubrique'] = $row['id_rubrique'];
-					if (isset($row['id_secteur'])) {
-						$contexte['id_secteur'] = $row['id_secteur'];
-					}
-				} elseif (isset($row['id_groupe'])) {
-					// TODO supprimer ce bloc quand https://core.spip.net/issues/3844 sera réalisé
-					$contexte['id_groupe'] = $row['id_groupe'];
-				}
-			}
-		}
-	}
-	return $contexte;
+    if (is_null($contexte)) {
+        $contexte = $_GET;
+    } elseif (is_string($contexte)) {
+        $contexte = unserialize($contexte);
+    }
+    if (!isset($contexte['id_rubrique']) and isset($contexte['exec'])) {
+        if (!function_exists('trouver_objet_exec')) {
+            include_spip('inc/pipelines_ecrire');
+        }
+        if ($e = trouver_objet_exec($contexte['exec'])) {
+            $_id = $e['id_table_objet'];
+            if (isset($contexte[$_id]) and $id = intval($contexte[$_id])) {
+                $table = $e['table_objet_sql'];
+                $row = sql_fetsel('*', $table, "$_id=" . intval($id));
+                if (isset($row['id_rubrique'])) {
+                    $contexte['id_rubrique'] = $row['id_rubrique'];
+                    if (isset($row['id_secteur'])) {
+                        $contexte['id_secteur'] = $row['id_secteur'];
+                    }
+                } elseif (isset($row['id_groupe'])) {
+                    // TODO supprimer ce bloc quand https://core.spip.net/issues/3844 sera réalisé
+                    $contexte['id_groupe'] = $row['id_groupe'];
+                }
+            }
+        }
+    }
+    return $contexte;
 }
 
 /**
@@ -81,89 +81,89 @@ 
  * @return array
  */
 function definir_barre_boutons($contexte = [], $icones = true, $autorise = true) {
-	include_spip('inc/autoriser');
-	$boutons_admin = [];
+    include_spip('inc/autoriser');
+    $boutons_admin = [];
 
-	// les boutons du core, issus de ecrire/paquet.xml
-	$liste_boutons = [];
+    // les boutons du core, issus de ecrire/paquet.xml
+    $liste_boutons = [];
 
-	// ajouter les boutons issus des plugin via paquet.xml
-	if (
-		function_exists('boutons_plugins')
-		and is_array($liste_boutons_plugins = boutons_plugins())
-	) {
-		$liste_boutons = &$liste_boutons_plugins;
-	}
+    // ajouter les boutons issus des plugin via paquet.xml
+    if (
+        function_exists('boutons_plugins')
+        and is_array($liste_boutons_plugins = boutons_plugins())
+    ) {
+        $liste_boutons = &$liste_boutons_plugins;
+    }
 
-	foreach ($liste_boutons as $id => $infos) {
-		$parent = '';
-		// les boutons principaux ne sont pas soumis a autorisation
-		if (
-			!isset($infos['parent'])
-			or !($parent = $infos['parent'])
-			or !$autorise
-			or autoriser('menu', "_$id", 0, null, ['contexte' => $contexte])
-		) {
-			if (
-				$parent
-				and $parent = preg_replace(',^bando_,', 'menu_', $parent)
-				and isset($boutons_admin[$parent])
-			) {
-				$position = (isset($infos['position']) and strlen($infos['position'])) ? intval($infos['position']) : count($boutons_admin[$parent]->sousmenu);
-				if ($position < 0) {
-					$position = count($boutons_admin[$parent]->sousmenu) + 1 + $position;
-				}
-				$boutons_admin[$parent]->sousmenu = array_slice($boutons_admin[$parent]->sousmenu, 0, $position)
-					+ [
-						$id => new Bouton(
-							($icones and !empty($infos['icone'])) ? find_in_theme($infos['icone']) : '',  // icone
-							$infos['titre'],  // titre
-							(isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
-							(isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
-						)
-					]
-					+ array_slice($boutons_admin[$parent]->sousmenu, $position, 100);
-			}
-			if (
-				!$parent
-				// provisoire, eviter les vieux boutons
-				and (!in_array($id, ['forum', 'statistiques_visites']))
-				and (!$autorise or autoriser('menugrandeentree', "_$id", 0, null, ['contexte' => $contexte]))
-			) {
-				$position = (isset($infos['position']) and $infos['position']) ? $infos['position'] : count($boutons_admin);
-				$boutons_admin = array_slice($boutons_admin, 0, $position)
-					+ [
-						$id => new Bouton(
-							($icones and isset($infos['icone']) and $infos['icone']) ? find_in_theme($infos['icone']) : '',  // icone
-							$infos['titre'],  // titre
-							(isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
-							(isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
-						)
-					]
-					+ array_slice($boutons_admin, $position, 100);
-			}
-		}
-	}
-	$boutons_admin = pipeline('ajouter_menus', $boutons_admin);
+    foreach ($liste_boutons as $id => $infos) {
+        $parent = '';
+        // les boutons principaux ne sont pas soumis a autorisation
+        if (
+            !isset($infos['parent'])
+            or !($parent = $infos['parent'])
+            or !$autorise
+            or autoriser('menu', "_$id", 0, null, ['contexte' => $contexte])
+        ) {
+            if (
+                $parent
+                and $parent = preg_replace(',^bando_,', 'menu_', $parent)
+                and isset($boutons_admin[$parent])
+            ) {
+                $position = (isset($infos['position']) and strlen($infos['position'])) ? intval($infos['position']) : count($boutons_admin[$parent]->sousmenu);
+                if ($position < 0) {
+                    $position = count($boutons_admin[$parent]->sousmenu) + 1 + $position;
+                }
+                $boutons_admin[$parent]->sousmenu = array_slice($boutons_admin[$parent]->sousmenu, 0, $position)
+                    + [
+                        $id => new Bouton(
+                            ($icones and !empty($infos['icone'])) ? find_in_theme($infos['icone']) : '',  // icone
+                            $infos['titre'],  // titre
+                            (isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
+                            (isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
+                        )
+                    ]
+                    + array_slice($boutons_admin[$parent]->sousmenu, $position, 100);
+            }
+            if (
+                !$parent
+                // provisoire, eviter les vieux boutons
+                and (!in_array($id, ['forum', 'statistiques_visites']))
+                and (!$autorise or autoriser('menugrandeentree', "_$id", 0, null, ['contexte' => $contexte]))
+            ) {
+                $position = (isset($infos['position']) and $infos['position']) ? $infos['position'] : count($boutons_admin);
+                $boutons_admin = array_slice($boutons_admin, 0, $position)
+                    + [
+                        $id => new Bouton(
+                            ($icones and isset($infos['icone']) and $infos['icone']) ? find_in_theme($infos['icone']) : '',  // icone
+                            $infos['titre'],  // titre
+                            (isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
+                            (isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
+                        )
+                    ]
+                    + array_slice($boutons_admin, $position, 100);
+            }
+        }
+    }
+    $boutons_admin = pipeline('ajouter_menus', $boutons_admin);
 
-	// définir les favoris et positions d’origine
-	if ($boutons_admin) {
-		$menus_favoris = obtenir_menus_favoris();
-		$i = 1;
-		foreach ($boutons_admin as $key => $menu) {
-			$menu->favori = (int) table_valeur($menus_favoris, $key, false);
-			$menu->position = $i++;
-			if ($menu->sousmenu) {
-				$j = 1;
-				foreach ($menu->sousmenu as $key => $bouton) {
-					$bouton->favori = (int) table_valeur($menus_favoris, $key, false);
-					$bouton->position = $j++;
-				}
-			}
-		}
-	}
+    // définir les favoris et positions d’origine
+    if ($boutons_admin) {
+        $menus_favoris = obtenir_menus_favoris();
+        $i = 1;
+        foreach ($boutons_admin as $key => $menu) {
+            $menu->favori = (int) table_valeur($menus_favoris, $key, false);
+            $menu->position = $i++;
+            if ($menu->sousmenu) {
+                $j = 1;
+                foreach ($menu->sousmenu as $key => $bouton) {
+                    $bouton->favori = (int) table_valeur($menus_favoris, $key, false);
+                    $bouton->position = $j++;
+                }
+            }
+        }
+    }
 
-	return $boutons_admin;
+    return $boutons_admin;
 }
 
 /**
@@ -175,22 +175,22 @@ 
  * @return Bouton[]
  */
 function trier_boutons_enfants_par_alpha($menus, $avec_favoris = false) {
-	foreach ($menus as $menu) {
-		if ($menu->sousmenu) {
-			$libelles = $isfavoris = $favoris = [];
-			foreach ($menu->sousmenu as $key => $item) {
-				$libelles[$key] = strtolower(translitteration(_T($item->libelle)));
-				$isfavoris[$key] = (bool) $item->favori;
-				$favoris[$key] = $item->favori;
-			}
-			if ($avec_favoris) {
-				array_multisort($isfavoris, SORT_DESC, $favoris, SORT_ASC, $libelles, SORT_ASC, $menu->sousmenu);
-			} else {
-				array_multisort($libelles, SORT_ASC, $menu->sousmenu);
-			}
-		}
-	}
-	return $menus;
+    foreach ($menus as $menu) {
+        if ($menu->sousmenu) {
+            $libelles = $isfavoris = $favoris = [];
+            foreach ($menu->sousmenu as $key => $item) {
+                $libelles[$key] = strtolower(translitteration(_T($item->libelle)));
+                $isfavoris[$key] = (bool) $item->favori;
+                $favoris[$key] = $item->favori;
+            }
+            if ($avec_favoris) {
+                array_multisort($isfavoris, SORT_DESC, $favoris, SORT_ASC, $libelles, SORT_ASC, $menu->sousmenu);
+            } else {
+                array_multisort($libelles, SORT_ASC, $menu->sousmenu);
+            }
+        }
+    }
+    return $menus;
 }
 
 /**
@@ -201,7 +201,7 @@ 
  * @return Bouton[]
  */
 function trier_boutons_enfants_par_favoris_alpha($menus) {
-	return trier_boutons_enfants_par_alpha($menus, true);
+    return trier_boutons_enfants_par_alpha($menus, true);
 }
 
 
@@ -214,23 +214,23 @@ 
  * @return string
  */
 function bandeau_creer_url($url, $args = '', $contexte = null) {
-	if (!preg_match(',[\/\?],', $url)) {
-		$url = generer_url_ecrire($url, $args, true);
-		// recuperer les parametres du contexte demande par l'url sous la forme
-		// &truc=@machin@
-		// @machin@ etant remplace par _request('machin')
-		$url = str_replace('&amp;', '&', $url);
-		while (preg_match(',[&?]([a-z_]+)=@([a-z_]+)@,i', $url, $matches)) {
-			if ($matches[2] == 'id_secteur' and !isset($contexte['id_secteur']) and isset($contexte['id_rubrique'])) {
-				$contexte['id_secteur'] = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($contexte['id_rubrique']));
-			}
-			$val = _request($matches[2], $contexte);
-			$url = parametre_url($url, $matches[1], $val ?: '', '&');
-		}
-		$url = str_replace('&', '&amp;', $url);
-	}
+    if (!preg_match(',[\/\?],', $url)) {
+        $url = generer_url_ecrire($url, $args, true);
+        // recuperer les parametres du contexte demande par l'url sous la forme
+        // &truc=@machin@
+        // @machin@ etant remplace par _request('machin')
+        $url = str_replace('&amp;', '&', $url);
+        while (preg_match(',[&?]([a-z_]+)=@([a-z_]+)@,i', $url, $matches)) {
+            if ($matches[2] == 'id_secteur' and !isset($contexte['id_secteur']) and isset($contexte['id_rubrique'])) {
+                $contexte['id_secteur'] = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($contexte['id_rubrique']));
+            }
+            $val = _request($matches[2], $contexte);
+            $url = parametre_url($url, $matches[1], $val ?: '', '&');
+        }
+        $url = str_replace('&', '&amp;', $url);
+    }
 
-	return $url;
+    return $url;
 }
 
 /**
@@ -240,7 +240,7 @@ 
  *     Code HTML du bandeau
  */
 function inc_bandeau_dist() {
-	return recuperer_fond('prive/squelettes/inclure/barre-nav', $_GET);
+    return recuperer_fond('prive/squelettes/inclure/barre-nav', $_GET);
 }
 
 
@@ -249,13 +249,13 @@ 
  * @return array
  */
 function obtenir_menus_favoris() {
-	if (
-		isset($GLOBALS['visiteur_session']['prefs']['menus_favoris'])
-		and is_array($GLOBALS['visiteur_session']['prefs']['menus_favoris'])
-		and $GLOBALS['visiteur_session']['prefs']['menus_favoris']
-	) {
-		return $GLOBALS['visiteur_session']['prefs']['menus_favoris'];
-	}
-	$definir_menus_favoris = charger_fonction('definir_menus_favoris', 'inc');
-	return $definir_menus_favoris();
+    if (
+        isset($GLOBALS['visiteur_session']['prefs']['menus_favoris'])
+        and is_array($GLOBALS['visiteur_session']['prefs']['menus_favoris'])
+        and $GLOBALS['visiteur_session']['prefs']['menus_favoris']
+    ) {
+        return $GLOBALS['visiteur_session']['prefs']['menus_favoris'];
+    }
+    $definir_menus_favoris = charger_fonction('definir_menus_favoris', 'inc');
+    return $definir_menus_favoris();
 }

ecrire/inc/traduire.php

Indentation +194 added lines, -194 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -40,20 +40,20 @@ 
  *     Liste des fichiers de langue trouvés, dans l'ordre des chemins
  */
 function find_langs_in_path($file, $dirname = 'lang') {
-	static $dirs = [];
-	$liste = [];
-	foreach (creer_chemin() as $dir) {
-		if (!isset($dirs[$a = $dir . $dirname])) {
-			$dirs[$a] = (is_dir($a) || !$a);
-		}
-		if ($dirs[$a]) {
-			if (is_readable($a .= $file)) {
-				$liste[] = $a;
-			}
-		}
-	}
+    static $dirs = [];
+    $liste = [];
+    foreach (creer_chemin() as $dir) {
+        if (!isset($dirs[$a = $dir . $dirname])) {
+            $dirs[$a] = (is_dir($a) || !$a);
+        }
+        if ($dirs[$a]) {
+            if (is_readable($a .= $file)) {
+                $liste[] = $a;
+            }
+        }
+    }
 
-	return array_reverse($liste);
+    return array_reverse($liste);
 }
 
 /**
@@ -68,23 +68,23 @@ 
  *     Liste des fichiers touvés pour ce module et cette langue.
  **/
 function chercher_module_lang($module, $lang = '') {
-	if ($lang) {
-		$lang = '_' . $lang;
-	}
+    if ($lang) {
+        $lang = '_' . $lang;
+    }
 
-	// 1) dans un repertoire nomme lang/ se trouvant sur le chemin
-	if (
-		$f = ($module == 'local'
-		? find_in_path($module . $lang . '.php', 'lang/')
-		: find_langs_in_path($module . $lang . '.php', 'lang/'))
-	) {
-		return is_array($f) ? $f : [$f];
-	}
+    // 1) dans un repertoire nomme lang/ se trouvant sur le chemin
+    if (
+        $f = ($module == 'local'
+        ? find_in_path($module . $lang . '.php', 'lang/')
+        : find_langs_in_path($module . $lang . '.php', 'lang/'))
+    ) {
+        return is_array($f) ? $f : [$f];
+    }
 
-	// 2) directement dans le chemin (old style, uniquement pour local)
-	return (($module == 'local') or strpos($module, '/'))
-		? (($f = find_in_path($module . $lang . '.php')) ? [$f] : false)
-		: false;
+    // 2) directement dans le chemin (old style, uniquement pour local)
+    return (($module == 'local') or strpos($module, '/'))
+        ? (($f = find_in_path($module . $lang . '.php')) ? [$f] : false)
+        : false;
 }
 
 /**
@@ -106,33 +106,33 @@ 
  * @return void
  **/
 function charger_langue($lang, $module = 'spip') {
-	static $langs = [];
-	$var = 'i18n_' . $module . '_' . $lang;
-	if (!isset($langs[$lang])) {
-		$langs[$lang] = [];
-		if ($lang) {
-			$langs[$lang][] = $lang;
-			if (strpos($lang, '_') !== false) {
-				$l = explode('_', $lang);
-				$langs[$lang][] = reset($l);
-			}
-		}
-		$langs[$lang][] = $GLOBALS['meta']['langue_site'];
-		$langs[$lang][] = _LANGUE_PAR_DEFAUT;
-	}
-	foreach ($langs[$lang] as $l) {
-		if ($fichiers_lang = chercher_module_lang($module, $l)) {
-			$GLOBALS['idx_lang'] = 'i18n_' . $module . '_' . $l;
-			$GLOBALS[$GLOBALS['idx_lang']] = lire_fichier_langue(array_shift($fichiers_lang));
-			surcharger_langue($fichiers_lang);
-			if ($l !== $lang) {
-				$GLOBALS[$var] = &$GLOBALS['i18n_' . $module . '_' . $l];
-			}
-			$GLOBALS['lang_' . $var] = $l;
-			#spip_log("module de langue : {$module}_$l.php", 'traduire');
-			break;
-		}
-	}
+    static $langs = [];
+    $var = 'i18n_' . $module . '_' . $lang;
+    if (!isset($langs[$lang])) {
+        $langs[$lang] = [];
+        if ($lang) {
+            $langs[$lang][] = $lang;
+            if (strpos($lang, '_') !== false) {
+                $l = explode('_', $lang);
+                $langs[$lang][] = reset($l);
+            }
+        }
+        $langs[$lang][] = $GLOBALS['meta']['langue_site'];
+        $langs[$lang][] = _LANGUE_PAR_DEFAUT;
+    }
+    foreach ($langs[$lang] as $l) {
+        if ($fichiers_lang = chercher_module_lang($module, $l)) {
+            $GLOBALS['idx_lang'] = 'i18n_' . $module . '_' . $l;
+            $GLOBALS[$GLOBALS['idx_lang']] = lire_fichier_langue(array_shift($fichiers_lang));
+            surcharger_langue($fichiers_lang);
+            if ($l !== $lang) {
+                $GLOBALS[$var] = &$GLOBALS['i18n_' . $module . '_' . $l];
+            }
+            $GLOBALS['lang_' . $var] = $l;
+            #spip_log("module de langue : {$module}_$l.php", 'traduire');
+            break;
+        }
+    }
 }
 
 /**
@@ -145,21 +145,21 @@ 
  * @return array<string, string>
  */
 function lire_fichier_langue(string $fichier): array {
-	$idx_lang_before = $GLOBALS['idx_lang'] ?? null;
-	$idx_lang_tmp = ($GLOBALS['idx_lang'] ?? 'lang') . '@temporaire';
-	$GLOBALS['idx_lang'] = $idx_lang_tmp;
-	$idx_lang = include $fichier;
-	$GLOBALS['idx_lang'] = $idx_lang_before;
-	if (!is_array($idx_lang)) {
-		if (isset($GLOBALS[$idx_lang_tmp]) and is_array($GLOBALS[$idx_lang_tmp])) {
-			$idx_lang = $GLOBALS[$idx_lang_tmp];
-		} else {
-			$idx_lang = [];
-			spip_log(sprintf('Fichier de langue incorrect : %s', $fichier), _LOG_ERREUR);
-		}
-		unset($GLOBALS[$idx_lang_tmp]);
-	}
-	return $idx_lang;
+    $idx_lang_before = $GLOBALS['idx_lang'] ?? null;
+    $idx_lang_tmp = ($GLOBALS['idx_lang'] ?? 'lang') . '@temporaire';
+    $GLOBALS['idx_lang'] = $idx_lang_tmp;
+    $idx_lang = include $fichier;
+    $GLOBALS['idx_lang'] = $idx_lang_before;
+    if (!is_array($idx_lang)) {
+        if (isset($GLOBALS[$idx_lang_tmp]) and is_array($GLOBALS[$idx_lang_tmp])) {
+            $idx_lang = $GLOBALS[$idx_lang_tmp];
+        } else {
+            $idx_lang = [];
+            spip_log(sprintf('Fichier de langue incorrect : %s', $fichier), _LOG_ERREUR);
+        }
+        unset($GLOBALS[$idx_lang_tmp]);
+    }
+    return $idx_lang;
 }
 
 /**
@@ -179,29 +179,29 @@ 
  *    Liste des chemins de fichiers de langue à surcharger.
  **/
 function surcharger_langue($fichiers) {
-	static $surcharges = [];
-	if (!isset($GLOBALS['idx_lang'])) {
-		return;
-	}
+    static $surcharges = [];
+    if (!isset($GLOBALS['idx_lang'])) {
+        return;
+    }
 
-	if (!is_array($fichiers)) {
-		$fichiers = [$fichiers];
-	}
-	if (!count($fichiers)) {
-		return;
-	}
-	foreach ($fichiers as $fichier) {
-		if (!isset($surcharges[$fichier])) {
-			$surcharges[$fichier] = lire_fichier_langue($fichier);
-		}
-		if (is_array($surcharges[$fichier])) {
-			$GLOBALS[$GLOBALS['idx_lang']] ??= [];
-			$GLOBALS[$GLOBALS['idx_lang']] = array_merge(
-				$GLOBALS[$GLOBALS['idx_lang']],
-				$surcharges[$fichier]
-			);
-		}
-	}
+    if (!is_array($fichiers)) {
+        $fichiers = [$fichiers];
+    }
+    if (!count($fichiers)) {
+        return;
+    }
+    foreach ($fichiers as $fichier) {
+        if (!isset($surcharges[$fichier])) {
+            $surcharges[$fichier] = lire_fichier_langue($fichier);
+        }
+        if (is_array($surcharges[$fichier])) {
+            $GLOBALS[$GLOBALS['idx_lang']] ??= [];
+            $GLOBALS[$GLOBALS['idx_lang']] = array_merge(
+                $GLOBALS[$GLOBALS['idx_lang']],
+                $surcharges[$fichier]
+            );
+        }
+    }
 }
 
 /**
@@ -242,99 +242,99 @@ 
  *     - Description : traduction et description (texte, module, langue)
  **/
 function inc_traduire_dist($ori, $lang, $raw = false) {
-	static $deja_vu = [];
-	static $local = [];
+    static $deja_vu = [];
+    static $local = [];
 
-	if (isset($deja_vu[$lang][$ori]) and (_request('var_mode') != 'traduction')) {
-		return $raw ? $deja_vu[$lang][$ori] : $deja_vu[$lang][$ori]->texte;
-	}
+    if (isset($deja_vu[$lang][$ori]) and (_request('var_mode') != 'traduction')) {
+        return $raw ? $deja_vu[$lang][$ori] : $deja_vu[$lang][$ori]->texte;
+    }
 
-	// modules demandes explicitement <xxx|yyy|zzz:code> cf MODULES_IDIOMES
-	if (strpos($ori, ':')) {
-		[$modules, $code] = explode(':', $ori, 2);
-		$modules = explode('|', $modules);
-		$ori_complet = $ori;
-	} else {
-		$modules = ['spip', 'ecrire'];
-		$code = $ori;
-		$ori_complet = implode('|', $modules) . ':' . $ori;
-	}
+    // modules demandes explicitement <xxx|yyy|zzz:code> cf MODULES_IDIOMES
+    if (strpos($ori, ':')) {
+        [$modules, $code] = explode(':', $ori, 2);
+        $modules = explode('|', $modules);
+        $ori_complet = $ori;
+    } else {
+        $modules = ['spip', 'ecrire'];
+        $code = $ori;
+        $ori_complet = implode('|', $modules) . ':' . $ori;
+    }
 
-	$desc = new Description();
+    $desc = new Description();
 
-	// parcourir tous les modules jusqu'a ce qu'on trouve
-	foreach ($modules as $module) {
-		$var = 'i18n_' . $module . '_' . $lang;
+    // parcourir tous les modules jusqu'a ce qu'on trouve
+    foreach ($modules as $module) {
+        $var = 'i18n_' . $module . '_' . $lang;
 
-		if (empty($GLOBALS[$var])) {
-			charger_langue($lang, $module);
-			// surcharges persos -- on cherche
-			// (lang/)local_xx.php et/ou (lang/)local.php ...
-			if (!isset($local['local_' . $lang])) {
-				// redéfinir la langue en cours pour les surcharges (chercher_langue a pu le changer)
-				$GLOBALS['idx_lang'] = $var;
-				// ... (lang/)local_xx.php
-				$local['local_' . $lang] = chercher_module_lang('local', $lang);
-			}
-			if ($local['local_' . $lang]) {
-				surcharger_langue($local['local_' . $lang]);
-			}
-			// ... puis (lang/)local.php
-			if (!isset($local['local'])) {
-				$local['local'] = chercher_module_lang('local');
-			}
-			if ($local['local']) {
-				surcharger_langue($local['local']);
-			}
-		}
+        if (empty($GLOBALS[$var])) {
+            charger_langue($lang, $module);
+            // surcharges persos -- on cherche
+            // (lang/)local_xx.php et/ou (lang/)local.php ...
+            if (!isset($local['local_' . $lang])) {
+                // redéfinir la langue en cours pour les surcharges (chercher_langue a pu le changer)
+                $GLOBALS['idx_lang'] = $var;
+                // ... (lang/)local_xx.php
+                $local['local_' . $lang] = chercher_module_lang('local', $lang);
+            }
+            if ($local['local_' . $lang]) {
+                surcharger_langue($local['local_' . $lang]);
+            }
+            // ... puis (lang/)local.php
+            if (!isset($local['local'])) {
+                $local['local'] = chercher_module_lang('local');
+            }
+            if ($local['local']) {
+                surcharger_langue($local['local']);
+            }
+        }
 
-		if (isset($GLOBALS[$var][$code])) {
-			$desc->code = $code;
-			$desc->module = $module;
-			$desc->langue = $GLOBALS['lang_' . $var] ?? $lang;
-			$desc->texte = $GLOBALS[$var][$code];
-			break;
-		}
-	}
+        if (isset($GLOBALS[$var][$code])) {
+            $desc->code = $code;
+            $desc->module = $module;
+            $desc->langue = $GLOBALS['lang_' . $var] ?? $lang;
+            $desc->texte = $GLOBALS[$var][$code];
+            break;
+        }
+    }
 
-	if (!$desc->corrections) {
-		$desc->corrections = true;
-		// Retour aux sources si la chaine est absente dans la langue cible ;
-		// on essaie d'abord la langue du site, puis a defaut la langue fr
-		if (
-			($desc->texte === null || !strlen($desc->texte))
-			and $lang !== _LANGUE_PAR_DEFAUT
-		) {
-			if ($lang !== $GLOBALS['meta']['langue_site']) {
-				$desc = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site'], true);
-			} else {
-				$desc = inc_traduire_dist($ori, _LANGUE_PAR_DEFAUT, true);
-			}
-		}
+    if (!$desc->corrections) {
+        $desc->corrections = true;
+        // Retour aux sources si la chaine est absente dans la langue cible ;
+        // on essaie d'abord la langue du site, puis a defaut la langue fr
+        if (
+            ($desc->texte === null || !strlen($desc->texte))
+            and $lang !== _LANGUE_PAR_DEFAUT
+        ) {
+            if ($lang !== $GLOBALS['meta']['langue_site']) {
+                $desc = inc_traduire_dist($ori, $GLOBALS['meta']['langue_site'], true);
+            } else {
+                $desc = inc_traduire_dist($ori, _LANGUE_PAR_DEFAUT, true);
+            }
+        }
 
-		// Supprimer la mention <NEW> ou <MODIF>
-		if ($desc->texte && substr($desc->texte, 0, 1) === '<') {
-			$desc->texte = str_replace(['<NEW>', '<MODIF>'], [], $desc->texte);
-		}
+        // Supprimer la mention <NEW> ou <MODIF>
+        if ($desc->texte && substr($desc->texte, 0, 1) === '<') {
+            $desc->texte = str_replace(['<NEW>', '<MODIF>'], [], $desc->texte);
+        }
 
-		// Si on n'est pas en utf-8, la chaine peut l'etre...
-		// le cas echeant on la convertit en entites html &#xxx;
-		if (
-			(!isset($GLOBALS['meta']['charset']) or $GLOBALS['meta']['charset'] !== 'utf-8')
-			and preg_match(',[\x7f-\xff],S', $desc->texte)
-		) {
-			include_spip('inc/charsets');
-			$desc->texte = charset2unicode($desc->texte, 'utf-8');
-		}
-	}
+        // Si on n'est pas en utf-8, la chaine peut l'etre...
+        // le cas echeant on la convertit en entites html &#xxx;
+        if (
+            (!isset($GLOBALS['meta']['charset']) or $GLOBALS['meta']['charset'] !== 'utf-8')
+            and preg_match(',[\x7f-\xff],S', $desc->texte)
+        ) {
+            include_spip('inc/charsets');
+            $desc->texte = charset2unicode($desc->texte, 'utf-8');
+        }
+    }
 
-	if (_request('var_mode') == 'traduction') {
-		$desc = definir_details_traduction($desc, $ori_complet);
-	} else {
-		$deja_vu[$lang][$ori] = $desc;
-	}
+    if (_request('var_mode') == 'traduction') {
+        $desc = definir_details_traduction($desc, $ori_complet);
+    } else {
+        $deja_vu[$lang][$ori] = $desc;
+    }
 
-	return $raw ? $desc : $desc->texte;
+    return $raw ? $desc : $desc->texte;
 }
 
 /**
@@ -346,23 +346,23 @@ 
  * @return Description
  */
 function definir_details_traduction($desc, $modules) {
-	if (!$desc->mode and $desc->texte) {
-		// ne pas modifier 2 fois l'affichage
-		$desc->mode = 'traduction';
-		$classe = 'debug-traduction' . ($desc->module == 'ecrire' ? '-prive' : '');
-		$desc->texte = '<span '
-			. 'lang=' . $desc->langue
-			. ' class=' . $classe
-			. ' data-module=' . $desc->module
-			. ' data-code=' . $desc->code
-			. ' title=' . $modules . '(' . $desc->langue . ')>'
-			. $desc->texte
-			. '</span>';
-		$desc->texte = str_replace(
-			["$desc->module:", "$desc->module|"],
-			["*$desc->module*:", "*$desc->module*|"],
-			$desc->texte
-		);
-	}
-	return $desc;
+    if (!$desc->mode and $desc->texte) {
+        // ne pas modifier 2 fois l'affichage
+        $desc->mode = 'traduction';
+        $classe = 'debug-traduction' . ($desc->module == 'ecrire' ? '-prive' : '');
+        $desc->texte = '<span '
+            . 'lang=' . $desc->langue
+            . ' class=' . $classe
+            . ' data-module=' . $desc->module
+            . ' data-code=' . $desc->code
+            . ' title=' . $modules . '(' . $desc->langue . ')>'
+            . $desc->texte
+            . '</span>';
+        $desc->texte = str_replace(
+            ["$desc->module:", "$desc->module|"],
+            ["*$desc->module*:", "*$desc->module*|"],
+            $desc->texte
+        );
+    }
+    return $desc;
 }

ecrire/inc/rechercher.php

Indentation +317 added lines, -317 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 defined('_RECHERCHE_LOCK_KEY') || define('_RECHERCHE_LOCK_KEY', 'fulltext');
@@ -35,198 +35,198 @@ 
  * @return array Couples (type d'objet => Couples (champ => score))
  */
 function liste_des_champs() {
-	static $liste = null;
-	if (is_null($liste)) {
-		$liste = [];
-		// recuperer les tables_objets_sql declarees
-		include_spip('base/objets');
-		$tables_objets = lister_tables_objets_sql();
-		foreach ($tables_objets as $t => $infos) {
-			if ($infos['rechercher_champs']) {
-				$liste[$infos['type']] = $infos['rechercher_champs'];
-			}
-		}
-		// puis passer dans le pipeline
-		$liste = pipeline('rechercher_liste_des_champs', $liste);
-	}
-
-	return $liste;
+    static $liste = null;
+    if (is_null($liste)) {
+        $liste = [];
+        // recuperer les tables_objets_sql declarees
+        include_spip('base/objets');
+        $tables_objets = lister_tables_objets_sql();
+        foreach ($tables_objets as $t => $infos) {
+            if ($infos['rechercher_champs']) {
+                $liste[$infos['type']] = $infos['rechercher_champs'];
+            }
+        }
+        // puis passer dans le pipeline
+        $liste = pipeline('rechercher_liste_des_champs', $liste);
+    }
+
+    return $liste;
 }
 
 
 // Recherche des auteurs et mots-cles associes
 // en ne regardant que le titre ou le nom
 function liste_des_jointures() {
-	static $liste = null;
-	if (is_null($liste)) {
-		$liste = [];
-		// recuperer les tables_objets_sql declarees
-		include_spip('base/objets');
-		$tables_objets = lister_tables_objets_sql();
-		foreach ($tables_objets as $t => $infos) {
-			if ($infos['rechercher_jointures']) {
-				$liste[$infos['type']] = $infos['rechercher_jointures'];
-			}
-		}
-		// puis passer dans le pipeline
-		$liste = pipeline('rechercher_liste_des_jointures', $liste);
-	}
-
-	return $liste;
+    static $liste = null;
+    if (is_null($liste)) {
+        $liste = [];
+        // recuperer les tables_objets_sql declarees
+        include_spip('base/objets');
+        $tables_objets = lister_tables_objets_sql();
+        foreach ($tables_objets as $t => $infos) {
+            if ($infos['rechercher_jointures']) {
+                $liste[$infos['type']] = $infos['rechercher_jointures'];
+            }
+        }
+        // puis passer dans le pipeline
+        $liste = pipeline('rechercher_liste_des_jointures', $liste);
+    }
+
+    return $liste;
 }
 
 function expression_recherche($recherche, $options) {
-	// ne calculer qu'une seule fois l'expression par hit
-	// (meme si utilisee dans plusieurs boucles)
-	static $expression = [];
-	$key = serialize([$recherche, $options['preg_flags']]);
-	if (isset($expression[$key])) {
-		return $expression[$key];
-	}
-
-	$u = $GLOBALS['meta']['pcre_u'];
-	if ($u and !str_contains($options['preg_flags'], (string) $u)) {
-		$options['preg_flags'] .= $u;
-	}
-	include_spip('inc/charsets');
-	$recherche = trim($recherche);
-
-	// retirer les + de +truc et les * de truc*
-	$recherche = preg_replace(',(^|\s)\+(\w),Uims', '$1$2', $recherche);
-	$recherche = preg_replace(',(\w)\*($|\s),Uims', '$1$2', $recherche);
-
-	$is_preg = false;
-	if (substr($recherche, 0, 1) == '/' and substr($recherche, -1, 1) == '/' and strlen($recherche) > 2) {
-		// c'est une preg
-		$recherche_trans = translitteration($recherche);
-		$preg = $recherche_trans . $options['preg_flags'];
-		$is_preg = true;
-	} else {
-		// s'il y a plusieurs mots il faut les chercher tous : oblige REGEXP,
-		// sauf ceux de moins de 4 lettres (on supprime ainsi 'le', 'les', 'un',
-		// 'une', 'des' ...)
-
-		// attention : plusieurs mots entre guillemets sont a rechercher tels quels
-		$recherche_trans = $recherche_mod = $recherche_org = $recherche;
-
-		// les expressions entre " " sont un mot a chercher tel quel
-		// -> on remplace les espaces par un \x1 et on enleve les guillemets
-		if (preg_match(',["][^"]+["],Uims', $recherche_mod, $matches)) {
-			foreach ($matches as $match) {
-				$word = preg_replace(',\s+,Uims', "\x1", $match);
-				$word = trim($word, '"');
-				$recherche_mod = str_replace($match, $word, $recherche_mod);
-			}
-		}
-
-		if (preg_match(',\s+,' . $u, $recherche_mod)) {
-			$is_preg = true;
-
-			$recherche_inter = '|';
-			$recherche_mots = explode(' ', $recherche_mod);
-			$min_long = defined('_RECHERCHE_MIN_CAR') ? _RECHERCHE_MIN_CAR : 4;
-			$petits_mots = true;
-			foreach ($recherche_mots as $mot) {
-				if (strlen($mot) >= $min_long) {
-					// echapper les caracteres de regexp qui sont eventuellement dans la recherche
-					$recherche_inter .= preg_quote($mot) . ' ';
-					$petits_mots = false;
-				}
-			}
-			$recherche_inter = str_replace("\x1", '\s', $recherche_inter);
-
-			// mais on cherche quand même l'expression complète, même si elle
-			// comporte des mots de moins de quatre lettres
-			$recherche = trim(preg_replace(',\s+,' . $u, '|', $recherche_inter), '|');
-			if (!$recherche or $petits_mots) {
-				$recherche = preg_quote($recherche_org);
-			}
-			$recherche_trans = translitteration($recherche);
-		}
-
-		$preg = '/' . str_replace('/', '\\/', $recherche_trans) . '/' . $options['preg_flags'];
-	}
-
-	// Si la chaine est inactive, on va utiliser LIKE pour aller plus vite
-	// ou si l'expression reguliere est invalide
-	if (
-		!$is_preg
-		or (@preg_match($preg, '') === false)
-	) {
-		$methode = 'LIKE';
-		$u = $GLOBALS['meta']['pcre_u'];
-
-		// echapper les % et _
-		$q = str_replace(['%', '_'], ['\%', '\_'], trim($recherche));
-
-		// eviter les parentheses et autres caractères qui interferent avec pcre par la suite (dans le preg_match_all) s'il y a des reponses
-		$recherche = preg_quote($recherche, '/');
-		$recherche_trans = translitteration($recherche);
-		$recherche_mod = $recherche_trans;
-
-		// les expressions entre " " sont un mot a chercher tel quel
-		// -> on remplace les espaces par un _ et on enleve les guillemets
-		// corriger le like dans le $q
-		if (preg_match(',["][^"]+["],Uims', $q, $matches)) {
-			foreach ($matches as $match) {
-				$word = preg_replace(',\s+,Uims', '_', $match);
-				$word = trim($word, '"');
-				$q = str_replace($match, $word, $q);
-			}
-		}
-		// corriger la regexp
-		if (preg_match(',["][^"]+["],Uims', $recherche_mod, $matches)) {
-			foreach ($matches as $match) {
-				$word = preg_replace(',\s+,Uims', '[\s]', $match);
-				$word = trim($word, '"');
-				$recherche_mod = str_replace($match, $word, $recherche_mod);
-			}
-		}
-		$q = sql_quote(
-			'%'
-			. preg_replace(',\s+,' . $u, '%', $q)
-			. '%'
-		);
-
-		$preg = '/' . preg_replace(',\s+,' . $u, '.+', trim($recherche_mod)) . '/' . $options['preg_flags'];
-	} else {
-		$methode = 'REGEXP';
-		$q = sql_quote(trim($recherche, '/'));
-	}
-
-	// tous les caracteres transliterables de $q sont remplaces par un joker
-	// permet de matcher en SQL meme si on est sensible aux accents (SQLite)
-	$q_t = $q;
-	for ($i = 0; $i < spip_strlen($q); $i++) {
-		$char = spip_substr($q, $i, 1);
-		if (
-			!is_ascii($char)
-			and $char_t = translitteration($char)
-			and $char_t !== $char
-		) {
-			// on utilise ..?.? car le char utf peut etre encode sur 1, 2 ou 3 bytes
-			// mais c'est un pis aller cf #4354
-			$q_t = str_replace($char, $is_preg ? '..?.?' : '_', $q_t);
-		}
-	}
-
-	$q = $q_t;
-
-	// fix : SQLite 3 est sensible aux accents, on jokerise les caracteres
-	// les plus frequents qui peuvent etre accentues
-	// (oui c'est tres dicustable...)
-	if (
-		isset($GLOBALS['connexions'][$options['serveur'] ?: 0]['type'])
-		and strncmp($GLOBALS['connexions'][$options['serveur'] ?: 0]['type'], 'sqlite', 6) == 0
-	) {
-		$q_t = strtr($q, 'aeuioc', $is_preg ? '......' : '______');
-		// si il reste au moins un char significatif...
-		if (preg_match(",[^'%_.],", $q_t)) {
-			$q = $q_t;
-		}
-	}
-
-	return $expression[$key] = [$methode, $q, $preg];
+    // ne calculer qu'une seule fois l'expression par hit
+    // (meme si utilisee dans plusieurs boucles)
+    static $expression = [];
+    $key = serialize([$recherche, $options['preg_flags']]);
+    if (isset($expression[$key])) {
+        return $expression[$key];
+    }
+
+    $u = $GLOBALS['meta']['pcre_u'];
+    if ($u and !str_contains($options['preg_flags'], (string) $u)) {
+        $options['preg_flags'] .= $u;
+    }
+    include_spip('inc/charsets');
+    $recherche = trim($recherche);
+
+    // retirer les + de +truc et les * de truc*
+    $recherche = preg_replace(',(^|\s)\+(\w),Uims', '$1$2', $recherche);
+    $recherche = preg_replace(',(\w)\*($|\s),Uims', '$1$2', $recherche);
+
+    $is_preg = false;
+    if (substr($recherche, 0, 1) == '/' and substr($recherche, -1, 1) == '/' and strlen($recherche) > 2) {
+        // c'est une preg
+        $recherche_trans = translitteration($recherche);
+        $preg = $recherche_trans . $options['preg_flags'];
+        $is_preg = true;
+    } else {
+        // s'il y a plusieurs mots il faut les chercher tous : oblige REGEXP,
+        // sauf ceux de moins de 4 lettres (on supprime ainsi 'le', 'les', 'un',
+        // 'une', 'des' ...)
+
+        // attention : plusieurs mots entre guillemets sont a rechercher tels quels
+        $recherche_trans = $recherche_mod = $recherche_org = $recherche;
+
+        // les expressions entre " " sont un mot a chercher tel quel
+        // -> on remplace les espaces par un \x1 et on enleve les guillemets
+        if (preg_match(',["][^"]+["],Uims', $recherche_mod, $matches)) {
+            foreach ($matches as $match) {
+                $word = preg_replace(',\s+,Uims', "\x1", $match);
+                $word = trim($word, '"');
+                $recherche_mod = str_replace($match, $word, $recherche_mod);
+            }
+        }
+
+        if (preg_match(',\s+,' . $u, $recherche_mod)) {
+            $is_preg = true;
+
+            $recherche_inter = '|';
+            $recherche_mots = explode(' ', $recherche_mod);
+            $min_long = defined('_RECHERCHE_MIN_CAR') ? _RECHERCHE_MIN_CAR : 4;
+            $petits_mots = true;
+            foreach ($recherche_mots as $mot) {
+                if (strlen($mot) >= $min_long) {
+                    // echapper les caracteres de regexp qui sont eventuellement dans la recherche
+                    $recherche_inter .= preg_quote($mot) . ' ';
+                    $petits_mots = false;
+                }
+            }
+            $recherche_inter = str_replace("\x1", '\s', $recherche_inter);
+
+            // mais on cherche quand même l'expression complète, même si elle
+            // comporte des mots de moins de quatre lettres
+            $recherche = trim(preg_replace(',\s+,' . $u, '|', $recherche_inter), '|');
+            if (!$recherche or $petits_mots) {
+                $recherche = preg_quote($recherche_org);
+            }
+            $recherche_trans = translitteration($recherche);
+        }
+
+        $preg = '/' . str_replace('/', '\\/', $recherche_trans) . '/' . $options['preg_flags'];
+    }
+
+    // Si la chaine est inactive, on va utiliser LIKE pour aller plus vite
+    // ou si l'expression reguliere est invalide
+    if (
+        !$is_preg
+        or (@preg_match($preg, '') === false)
+    ) {
+        $methode = 'LIKE';
+        $u = $GLOBALS['meta']['pcre_u'];
+
+        // echapper les % et _
+        $q = str_replace(['%', '_'], ['\%', '\_'], trim($recherche));
+
+        // eviter les parentheses et autres caractères qui interferent avec pcre par la suite (dans le preg_match_all) s'il y a des reponses
+        $recherche = preg_quote($recherche, '/');
+        $recherche_trans = translitteration($recherche);
+        $recherche_mod = $recherche_trans;
+
+        // les expressions entre " " sont un mot a chercher tel quel
+        // -> on remplace les espaces par un _ et on enleve les guillemets
+        // corriger le like dans le $q
+        if (preg_match(',["][^"]+["],Uims', $q, $matches)) {
+            foreach ($matches as $match) {
+                $word = preg_replace(',\s+,Uims', '_', $match);
+                $word = trim($word, '"');
+                $q = str_replace($match, $word, $q);
+            }
+        }
+        // corriger la regexp
+        if (preg_match(',["][^"]+["],Uims', $recherche_mod, $matches)) {
+            foreach ($matches as $match) {
+                $word = preg_replace(',\s+,Uims', '[\s]', $match);
+                $word = trim($word, '"');
+                $recherche_mod = str_replace($match, $word, $recherche_mod);
+            }
+        }
+        $q = sql_quote(
+            '%'
+            . preg_replace(',\s+,' . $u, '%', $q)
+            . '%'
+        );
+
+        $preg = '/' . preg_replace(',\s+,' . $u, '.+', trim($recherche_mod)) . '/' . $options['preg_flags'];
+    } else {
+        $methode = 'REGEXP';
+        $q = sql_quote(trim($recherche, '/'));
+    }
+
+    // tous les caracteres transliterables de $q sont remplaces par un joker
+    // permet de matcher en SQL meme si on est sensible aux accents (SQLite)
+    $q_t = $q;
+    for ($i = 0; $i < spip_strlen($q); $i++) {
+        $char = spip_substr($q, $i, 1);
+        if (
+            !is_ascii($char)
+            and $char_t = translitteration($char)
+            and $char_t !== $char
+        ) {
+            // on utilise ..?.? car le char utf peut etre encode sur 1, 2 ou 3 bytes
+            // mais c'est un pis aller cf #4354
+            $q_t = str_replace($char, $is_preg ? '..?.?' : '_', $q_t);
+        }
+    }
+
+    $q = $q_t;
+
+    // fix : SQLite 3 est sensible aux accents, on jokerise les caracteres
+    // les plus frequents qui peuvent etre accentues
+    // (oui c'est tres dicustable...)
+    if (
+        isset($GLOBALS['connexions'][$options['serveur'] ?: 0]['type'])
+        and strncmp($GLOBALS['connexions'][$options['serveur'] ?: 0]['type'], 'sqlite', 6) == 0
+    ) {
+        $q_t = strtr($q, 'aeuioc', $is_preg ? '......' : '______');
+        // si il reste au moins un char significatif...
+        if (preg_match(",[^'%_.],", $q_t)) {
+            $q = $q_t;
+        }
+    }
+
+    return $expression[$key] = [$methode, $q, $preg];
 }
 
 
@@ -253,142 +253,142 @@ 
  * @return array
  */
 function recherche_en_base($recherche = '', $tables = null, $options = [], $serveur = '') {
-	include_spip('base/abstract_sql');
-
-	if (!is_array($tables)) {
-		$liste = liste_des_champs();
-
-		if (
-			is_string($tables)
-			and $tables != ''
-		) {
-			$toutes = [];
-			foreach (explode(',', $tables) as $t) {
-				$t = trim($t);
-				if (isset($liste[$t])) {
-					$toutes[$t] = $liste[$t];
-				}
-			}
-			$tables = $toutes;
-			unset($toutes);
-		} else {
-			$tables = $liste;
-		}
-	}
-
-	if (!strlen($recherche) or !count($tables)) {
-		return [];
-	}
-
-	include_spip('inc/autoriser');
-
-	// options par defaut
-	$options = array_merge(
-		[
-		'preg_flags' => 'UimsS',
-		'toutvoir' => false,
-		'champs' => false,
-		'score' => false,
-		'matches' => false,
-		'jointures' => false,
-		'serveur' => $serveur
-		],
-		$options
-	);
-
-	$results = [];
-
-	// Utiliser l'iterateur (DATA:recherche)
-	// pour recuperer les couples (id_objet, score)
-	// Le resultat est au format {
-	//      id1 = { 'score' => x, attrs => { } },
-	//      id2 = { 'score' => x, attrs => { } },
-	// }
-
-	include_spip('inc/recherche_to_array');
-
-	foreach ($tables as $table => $champs) {
-		# lock via memoization, si dispo
-		if (function_exists('cache_lock')) {
-			cache_lock($lock = _RECHERCHE_LOCK_KEY . ' ' . $table . ' ' . $recherche);
-		}
-
-		spip_timer('rech');
-
-		# TODO : ici plutot charger un iterateur via l'API iterateurs
-		$to_array = charger_fonction('recherche_to_array', 'inc');
-		$results[$table] = $to_array(
-			$recherche,
-			array_merge($options, ['table' => $table, 'champs' => $champs])
-		);
-		##var_dump($results[$table]);
-
-
-		spip_log(
-			"recherche $table ($recherche) : " . (is_countable($results[$table]) ? count($results[$table]) : 0) . ' resultats ' . spip_timer('rech'),
-			'recherche'
-		);
-
-		if (isset($lock)) {
-			cache_unlock($lock);
-		}
-	}
-
-	return $results;
+    include_spip('base/abstract_sql');
+
+    if (!is_array($tables)) {
+        $liste = liste_des_champs();
+
+        if (
+            is_string($tables)
+            and $tables != ''
+        ) {
+            $toutes = [];
+            foreach (explode(',', $tables) as $t) {
+                $t = trim($t);
+                if (isset($liste[$t])) {
+                    $toutes[$t] = $liste[$t];
+                }
+            }
+            $tables = $toutes;
+            unset($toutes);
+        } else {
+            $tables = $liste;
+        }
+    }
+
+    if (!strlen($recherche) or !count($tables)) {
+        return [];
+    }
+
+    include_spip('inc/autoriser');
+
+    // options par defaut
+    $options = array_merge(
+        [
+        'preg_flags' => 'UimsS',
+        'toutvoir' => false,
+        'champs' => false,
+        'score' => false,
+        'matches' => false,
+        'jointures' => false,
+        'serveur' => $serveur
+        ],
+        $options
+    );
+
+    $results = [];
+
+    // Utiliser l'iterateur (DATA:recherche)
+    // pour recuperer les couples (id_objet, score)
+    // Le resultat est au format {
+    //      id1 = { 'score' => x, attrs => { } },
+    //      id2 = { 'score' => x, attrs => { } },
+    // }
+
+    include_spip('inc/recherche_to_array');
+
+    foreach ($tables as $table => $champs) {
+        # lock via memoization, si dispo
+        if (function_exists('cache_lock')) {
+            cache_lock($lock = _RECHERCHE_LOCK_KEY . ' ' . $table . ' ' . $recherche);
+        }
+
+        spip_timer('rech');
+
+        # TODO : ici plutot charger un iterateur via l'API iterateurs
+        $to_array = charger_fonction('recherche_to_array', 'inc');
+        $results[$table] = $to_array(
+            $recherche,
+            array_merge($options, ['table' => $table, 'champs' => $champs])
+        );
+        ##var_dump($results[$table]);
+
+
+        spip_log(
+            "recherche $table ($recherche) : " . (is_countable($results[$table]) ? count($results[$table]) : 0) . ' resultats ' . spip_timer('rech'),
+            'recherche'
+        );
+
+        if (isset($lock)) {
+            cache_unlock($lock);
+        }
+    }
+
+    return $results;
 }
 
 
 // Effectue une recherche sur toutes les tables de la base de donnees
 function remplace_en_base($recherche = '', $remplace = null, $tables = null, $options = []) {
-	include_spip('inc/modifier');
-
-	// options par defaut
-	$options = array_merge(
-		[
-		'preg_flags' => 'UimsS',
-		'toutmodifier' => false
-		],
-		$options
-	);
-	$options['champs'] = true;
-
-
-	if (!is_array($tables)) {
-		$tables = liste_des_champs();
-	}
-
-	$results = recherche_en_base($recherche, $tables, $options);
-
-	$preg = '/' . str_replace('/', '\\/', $recherche) . '/' . $options['preg_flags'];
-
-	foreach ($results as $table => $r) {
-		$_id_table = id_table_objet($table);
-		foreach ($r as $id => $x) {
-			if (
-				$options['toutmodifier']
-				or autoriser('modifier', $table, $id)
-			) {
-				$modifs = [];
-				foreach ($x['champs'] as $key => $val) {
-					if ($key == $_id_table) {
-						continue;
-					}
-					$repl = preg_replace($preg, $remplace, $val);
-					if ($repl <> $val) {
-						$modifs[$key] = $repl;
-					}
-				}
-				if ($modifs) {
-					objet_modifier_champs(
-						$table,
-						$id,
-						[
-							'champs' => array_keys($modifs),
-						],
-						$modifs
-					);
-				}
-			}
-		}
-	}
+    include_spip('inc/modifier');
+
+    // options par defaut
+    $options = array_merge(
+        [
+        'preg_flags' => 'UimsS',
+        'toutmodifier' => false
+        ],
+        $options
+    );
+    $options['champs'] = true;
+
+
+    if (!is_array($tables)) {
+        $tables = liste_des_champs();
+    }
+
+    $results = recherche_en_base($recherche, $tables, $options);
+
+    $preg = '/' . str_replace('/', '\\/', $recherche) . '/' . $options['preg_flags'];
+
+    foreach ($results as $table => $r) {
+        $_id_table = id_table_objet($table);
+        foreach ($r as $id => $x) {
+            if (
+                $options['toutmodifier']
+                or autoriser('modifier', $table, $id)
+            ) {
+                $modifs = [];
+                foreach ($x['champs'] as $key => $val) {
+                    if ($key == $_id_table) {
+                        continue;
+                    }
+                    $repl = preg_replace($preg, $remplace, $val);
+                    if ($repl <> $val) {
+                        $modifs[$key] = $repl;
+                    }
+                }
+                if ($modifs) {
+                    objet_modifier_champs(
+                        $table,
+                        $id,
+                        [
+                            'champs' => array_keys($modifs),
+                        ],
+                        $modifs
+                    );
+                }
+            }
+        }
+    }
 }

ecrire/inc/securiser_action.php

Indentation +187 added lines, -187 removed lines

@@ -16,10 +16,10 @@ 
  * @package SPIP\Core\Actions
  **/
 
- use Spip\Chiffrer\SpipCles;
+    use Spip\Chiffrer\SpipCles;
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -52,19 +52,19 @@ 
  * @return array|string
  */
 function inc_securiser_action_dist($action = '', $arg = '', $redirect = '', $mode = false, $att = '', $public = false) {
-	if ($action) {
-		return securiser_action_auteur($action, $arg, $redirect, $mode, $att, $public);
-	} else {
-		$arg = _request('arg');
-		$hash = _request('hash');
-		$action = _request('action') ?: _request('formulaire_action');
-		if ($a = verifier_action_auteur("$action-$arg", $hash)) {
-			return $arg;
-		}
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	}
+    if ($action) {
+        return securiser_action_auteur($action, $arg, $redirect, $mode, $att, $public);
+    } else {
+        $arg = _request('arg');
+        $hash = _request('hash');
+        $action = _request('action') ?: _request('formulaire_action');
+        if ($a = verifier_action_auteur("$action-$arg", $hash)) {
+            return $arg;
+        }
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    }
 }
 
 /**
@@ -83,29 +83,29 @@ 
  */
 function demander_confirmation_avant_action($titre, $titre_bouton, $url_action = null) {
 
-	if (!$url_action) {
-		$url_action = self();
-		$action = _request('action');
-		$url_action = parametre_url($url_action, 'action', $action, '&');
-	}
-	else {
-		$action = parametre_url($url_action, 'action');
-	}
-
-	$arg = parametre_url($url_action, 'arg');
-	$confirm = md5("$action:$arg:" . realpath(__FILE__));
-	if (_request('confirm_action') === $confirm) {
-		return true;
-	}
-
-	$url_confirm = parametre_url($url_action, 'confirm_action', $confirm, '&');
-	include_spip('inc/filtres');
-	$bouton_action = bouton_action($titre_bouton, $url_confirm);
-	$corps = "<div style='text-align:center;'>$bouton_action</div>";
-
-	include_spip('inc/minipres');
-	echo minipres($titre, $corps);
-	exit;
+    if (!$url_action) {
+        $url_action = self();
+        $action = _request('action');
+        $url_action = parametre_url($url_action, 'action', $action, '&');
+    }
+    else {
+        $action = parametre_url($url_action, 'action');
+    }
+
+    $arg = parametre_url($url_action, 'arg');
+    $confirm = md5("$action:$arg:" . realpath(__FILE__));
+    if (_request('confirm_action') === $confirm) {
+        return true;
+    }
+
+    $url_confirm = parametre_url($url_action, 'confirm_action', $confirm, '&');
+    include_spip('inc/filtres');
+    $bouton_action = bouton_action($titre_bouton, $url_confirm);
+    $corps = "<div style='text-align:center;'>$bouton_action</div>";
+
+    include_spip('inc/minipres');
+    echo minipres($titre, $corps);
+    exit;
 }
 
 /**
@@ -136,34 +136,34 @@ 
  */
 function securiser_action_auteur($action, $arg, $redirect = '', $mode = false, $att = '', $public = false) {
 
-	// mode URL ou array
-	if (!is_string($mode)) {
-		$hash = calculer_action_auteur("$action-$arg", is_numeric($att) ? $att : null);
-
-		$r = rawurlencode($redirect);
-		if ($mode === -1) {
-			return ['action' => $action, 'arg' => $arg, 'hash' => $hash];
-		} else {
-			return generer_url_action(
-				$action,
-				'arg=' . rawurlencode($arg) . "&hash=$hash" . (!$r ? '' : "&redirect=$r"),
-				$mode,
-				$public
-			);
-		}
-	}
-
-	// mode formulaire
-	$hash = calculer_action_auteur("$action-$arg");
-	$att .= " style='margin: 0px; border: 0px'";
-	if ($redirect) {
-		$redirect = "\n\t\t<input name='redirect' type='hidden' value='" . str_replace("'", '&#39;', $redirect) . "' />";
-	}
-	$mode .= $redirect . "
+    // mode URL ou array
+    if (!is_string($mode)) {
+        $hash = calculer_action_auteur("$action-$arg", is_numeric($att) ? $att : null);
+
+        $r = rawurlencode($redirect);
+        if ($mode === -1) {
+            return ['action' => $action, 'arg' => $arg, 'hash' => $hash];
+        } else {
+            return generer_url_action(
+                $action,
+                'arg=' . rawurlencode($arg) . "&hash=$hash" . (!$r ? '' : "&redirect=$r"),
+                $mode,
+                $public
+            );
+        }
+    }
+
+    // mode formulaire
+    $hash = calculer_action_auteur("$action-$arg");
+    $att .= " style='margin: 0px; border: 0px'";
+    if ($redirect) {
+        $redirect = "\n\t\t<input name='redirect' type='hidden' value='" . str_replace("'", '&#39;', $redirect) . "' />";
+    }
+    $mode .= $redirect . "
 <input name='hash' type='hidden' value='$hash' />
 <input name='arg' type='hidden' value='$arg' />";
 
-	return generer_form_action($action, $mode, $att, $public);
+    return generer_form_action($action, $mode, $att, $public);
 }
 
 /**
@@ -173,48 +173,48 @@ 
  * @return array
  */
 function caracteriser_auteur($id_auteur = null) {
-	static $caracterisation = [];
-
-	if (is_null($id_auteur) and !isset($GLOBALS['visiteur_session']['id_auteur'])) {
-		// si l'auteur courant n'est pas connu alors qu'il peut demander une action
-		// c'est une connexion par php_auth ou 1 instal, on se rabat sur le cookie.
-		// S'il n'avait pas le droit de realiser cette action, le hash sera faux.
-		if (
-			isset($_COOKIE['spip_session'])
-			and (preg_match('/^(\d+)/', $_COOKIE['spip_session'], $r))
-		) {
-			return [$r[1], ''];
-			// Necessaire aux forums anonymes.
-			// Pour le reste, ca echouera.
-		} else {
-			return ['0', ''];
-		}
-	}
-	// Eviter l'acces SQL si le pass est connu de PHP
-	if (is_null($id_auteur)) {
-		$id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
-		if (isset($GLOBALS['visiteur_session']['pass']) and $GLOBALS['visiteur_session']['pass']) {
-			return $caracterisation[$id_auteur] = [$id_auteur, $GLOBALS['visiteur_session']['pass']];
-		}
-	}
-
-	if (isset($caracterisation[$id_auteur])) {
-		return $caracterisation[$id_auteur];
-	}
-
-	if ($id_auteur) {
-		include_spip('base/abstract_sql');
-		$t = sql_fetsel('id_auteur, pass', 'spip_auteurs', "id_auteur=$id_auteur");
-		if ($t) {
-			return $caracterisation[$id_auteur] = [$t['id_auteur'], $t['pass']];
-		}
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	} // Visiteur anonyme, pour ls forums par exemple
-	else {
-		return ['0', ''];
-	}
+    static $caracterisation = [];
+
+    if (is_null($id_auteur) and !isset($GLOBALS['visiteur_session']['id_auteur'])) {
+        // si l'auteur courant n'est pas connu alors qu'il peut demander une action
+        // c'est une connexion par php_auth ou 1 instal, on se rabat sur le cookie.
+        // S'il n'avait pas le droit de realiser cette action, le hash sera faux.
+        if (
+            isset($_COOKIE['spip_session'])
+            and (preg_match('/^(\d+)/', $_COOKIE['spip_session'], $r))
+        ) {
+            return [$r[1], ''];
+            // Necessaire aux forums anonymes.
+            // Pour le reste, ca echouera.
+        } else {
+            return ['0', ''];
+        }
+    }
+    // Eviter l'acces SQL si le pass est connu de PHP
+    if (is_null($id_auteur)) {
+        $id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
+        if (isset($GLOBALS['visiteur_session']['pass']) and $GLOBALS['visiteur_session']['pass']) {
+            return $caracterisation[$id_auteur] = [$id_auteur, $GLOBALS['visiteur_session']['pass']];
+        }
+    }
+
+    if (isset($caracterisation[$id_auteur])) {
+        return $caracterisation[$id_auteur];
+    }
+
+    if ($id_auteur) {
+        include_spip('base/abstract_sql');
+        $t = sql_fetsel('id_auteur, pass', 'spip_auteurs', "id_auteur=$id_auteur");
+        if ($t) {
+            return $caracterisation[$id_auteur] = [$t['id_auteur'], $t['pass']];
+        }
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    } // Visiteur anonyme, pour ls forums par exemple
+    else {
+        return ['0', ''];
+    }
 }
 
 /**
@@ -229,30 +229,30 @@ 
  * @return string
  */
 function _action_auteur(string $action, int $id_auteur, ?string $pass, string $alea): string {
-	static $sha = [];
-	$pass = $pass ?? '';
-	$entry = "$action:$id_auteur:$pass:$alea";
-	if (!isset($sha[$entry])) {
-		$sha[$entry] = hash_hmac('sha256', "$action::$id_auteur", "$pass::" . _action_get_alea($alea));
-	}
-
-	return $sha[$entry];
+    static $sha = [];
+    $pass = $pass ?? '';
+    $entry = "$action:$id_auteur:$pass:$alea";
+    if (!isset($sha[$entry])) {
+        $sha[$entry] = hash_hmac('sha256', "$action::$id_auteur", "$pass::" . _action_get_alea($alea));
+    }
+
+    return $sha[$entry];
 }
 
 function _action_get_alea(string $alea): string {
-	if (!isset($GLOBALS['meta'][$alea])) {
-		if (!$exec = _request('exec') or !autoriser_sans_cookie($exec)) {
-			include_spip('inc/acces');
-			charger_aleas();
-			if (empty($GLOBALS['meta'][$alea])) {
-				include_spip('inc/minipres');
-				echo minipres();
-				spip_log("$alea indisponible");
-				exit;
-			}
-		}
-	}
-	return $GLOBALS['meta'][$alea] ?? '';
+    if (!isset($GLOBALS['meta'][$alea])) {
+        if (!$exec = _request('exec') or !autoriser_sans_cookie($exec)) {
+            include_spip('inc/acces');
+            charger_aleas();
+            if (empty($GLOBALS['meta'][$alea])) {
+                include_spip('inc/minipres');
+                echo minipres();
+                spip_log("$alea indisponible");
+                exit;
+            }
+        }
+    }
+    return $GLOBALS['meta'][$alea] ?? '';
 }
 
 /**
@@ -263,9 +263,9 @@ 
  * @return string
  */
 function calculer_action_auteur($action, $id_auteur = null) {
-	[$id_auteur, $pass] = caracteriser_auteur($id_auteur);
+    [$id_auteur, $pass] = caracteriser_auteur($id_auteur);
 
-	return _action_auteur($action, $id_auteur, $pass, 'alea_ephemere');
+    return _action_auteur($action, $id_auteur, $pass, 'alea_ephemere');
 }
 
 
@@ -278,15 +278,15 @@ 
  * @return bool
  */
 function verifier_action_auteur($action, $hash) {
-	[$id_auteur, $pass] = caracteriser_auteur();
-	if (
-		hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere'))
-		or hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere_ancien'))
-	) {
-		return true;
-	}
-
-	return false;
+    [$id_auteur, $pass] = caracteriser_auteur();
+    if (
+        hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere'))
+        or hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere_ancien'))
+    ) {
+        return true;
+    }
+
+    return false;
 }
 
 //
@@ -301,7 +301,7 @@ 
  * @return string
  */
 function secret_du_site() {
-	return SpipCles::secret_du_site();
+    return SpipCles::secret_du_site();
 }
 
 /**
@@ -311,7 +311,7 @@ 
  * @return string
  */
 function calculer_cle_action($action) {
-	return hash_hmac('sha256', $action, secret_du_site());
+    return hash_hmac('sha256', $action, secret_du_site());
 }
 
 /**
@@ -322,7 +322,7 @@ 
  * @return bool
  */
 function verifier_cle_action($action, $cle) {
-	return hash_equals($cle, calculer_cle_action($action));
+    return hash_equals($cle, calculer_cle_action($action));
 }
 
 
@@ -339,19 +339,19 @@ 
  * @return string Token, de la forme "{id}*{hash}"
  */
 function calculer_token_previsu($url, $id_auteur = null, $alea = 'alea_ephemere') {
-	if (is_null($id_auteur)) {
-		if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
-			$id_auteur = $GLOBALS['visiteur_session']['id_auteur'];
-		}
-	}
-	if (!$id_auteur = intval($id_auteur)) {
-		return '';
-	}
-	// On nettoie l’URL de tous les var_.
-	$url = nettoyer_uri_var($url);
-
-	$token = _action_auteur('previsualiser-' . $url, $id_auteur, secret_du_site(), $alea);
-	return "$id_auteur-$token";
+    if (is_null($id_auteur)) {
+        if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
+            $id_auteur = $GLOBALS['visiteur_session']['id_auteur'];
+        }
+    }
+    if (!$id_auteur = intval($id_auteur)) {
+        return '';
+    }
+    // On nettoie l’URL de tous les var_.
+    $url = nettoyer_uri_var($url);
+
+    $token = _action_auteur('previsualiser-' . $url, $id_auteur, secret_du_site(), $alea);
+    return "$id_auteur-$token";
 }
 
 
@@ -369,31 +369,31 @@ 
  *     + Tableau (id auteur, type d’objet, id_objet) sinon.
  */
 function verifier_token_previsu($token) {
-	// retrouver auteur / hash
-	$e = explode('-', $token, 2);
-	if (count($e) == 2 and is_numeric(reset($e))) {
-		$id_auteur = intval(reset($e));
-	} else {
-		return false;
-	}
-
-	// calculer le type et id de l’url actuelle
-	include_spip('inc/urls');
-	include_spip('inc/filtres_mini');
-	$url = url_absolue(self());
-
-	// verifier le token
-	$_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere');
-	if (!$_token or !hash_equals($token, $_token)) {
-		$_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere_ancien');
-		if (!$_token or !hash_equals($token, $_token)) {
-			return false;
-		}
-	}
-
-	return [
-		'id_auteur' => $id_auteur,
-	];
+    // retrouver auteur / hash
+    $e = explode('-', $token, 2);
+    if (count($e) == 2 and is_numeric(reset($e))) {
+        $id_auteur = intval(reset($e));
+    } else {
+        return false;
+    }
+
+    // calculer le type et id de l’url actuelle
+    include_spip('inc/urls');
+    include_spip('inc/filtres_mini');
+    $url = url_absolue(self());
+
+    // verifier le token
+    $_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere');
+    if (!$_token or !hash_equals($token, $_token)) {
+        $_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere_ancien');
+        if (!$_token or !hash_equals($token, $_token)) {
+            return false;
+        }
+    }
+
+    return [
+        'id_auteur' => $id_auteur,
+    ];
 }
 
 /**
@@ -402,13 +402,13 @@ 
  * @return bool|array
  */
 function decrire_token_previsu() {
-	static $desc = null;
-	if (is_null($desc)) {
-		if ($token = _request('var_previewtoken')) {
-			$desc = verifier_token_previsu($token);
-		} else {
-			$desc = false;
-		}
-	}
-	return $desc;
+    static $desc = null;
+    if (is_null($desc)) {
+        if ($token = _request('var_previewtoken')) {
+            $desc = verifier_token_previsu($token);
+        } else {
+            $desc = false;
+        }
+    }
+    return $desc;
 }

ecrire/inc/boutons.php

Indentation +33 added lines, -33 removed lines

@@ -19,7 +19,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -35,35 +35,35 @@ 
  */
 function definir_barre_onglets($script) {
 
-	$onglets = [];
-	$liste_onglets = [];
+    $onglets = [];
+    $liste_onglets = [];
 
-	// ajouter les onglets issus des plugin via paquet.xml
-	if (function_exists('onglets_plugins')) {
-		$liste_onglets = onglets_plugins();
-	}
+    // ajouter les onglets issus des plugin via paquet.xml
+    if (function_exists('onglets_plugins')) {
+        $liste_onglets = onglets_plugins();
+    }
 
 
-	foreach ($liste_onglets as $id => $infos) {
-		if (
-			($parent = $infos['parent'])
-			&& $parent == $script
-			&& autoriser('onglet', "_$id")
-		) {
-			$onglets[$id] = new Bouton(
-				isset($infos['icone']) ? find_in_theme($infos['icone']) : '',  // icone
-				$infos['titre'],  // titre
-				(isset($infos['action']) and $infos['action'])
-					? generer_url_ecrire(
-						$infos['action'],
-						(isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : ''
-					)
-					: null
-			);
-		}
-	}
+    foreach ($liste_onglets as $id => $infos) {
+        if (
+            ($parent = $infos['parent'])
+            && $parent == $script
+            && autoriser('onglet', "_$id")
+        ) {
+            $onglets[$id] = new Bouton(
+                isset($infos['icone']) ? find_in_theme($infos['icone']) : '',  // icone
+                $infos['titre'],  // titre
+                (isset($infos['action']) and $infos['action'])
+                    ? generer_url_ecrire(
+                        $infos['action'],
+                        (isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : ''
+                    )
+                    : null
+            );
+        }
+    }
 
-	return pipeline('ajouter_onglets', ['data' => $onglets, 'args' => $script]);
+    return pipeline('ajouter_onglets', ['data' => $onglets, 'args' => $script]);
 }
 
 /**
@@ -81,14 +81,14 @@ 
  * @return string
  */
 function barre_onglets($rubrique, $ongletCourant, $class = 'barre_onglet') {
-	include_spip('inc/presentation');
+    include_spip('inc/presentation');
 
-	$res = '';
+    $res = '';
 
-	foreach (definir_barre_onglets($rubrique) as $exec => $onglet) {
-		$url = $onglet->url ?: generer_url_ecrire($exec);
-		$res .= onglet(_T($onglet->libelle), $url, $exec, $ongletCourant, $onglet->icone);
-	}
+    foreach (definir_barre_onglets($rubrique) as $exec => $onglet) {
+        $url = $onglet->url ?: generer_url_ecrire($exec);
+        $res .= onglet(_T($onglet->libelle), $url, $exec, $ongletCourant, $onglet->icone);
+    }
 
-	return !$res ? '' : (debut_onglet($class) . $res . fin_onglet());
+    return !$res ? '' : (debut_onglet($class) . $res . fin_onglet());
 }

ecrire/inc/charsets.php

Indentation +636 added lines, -636 removed lines

@@ -22,7 +22,7 @@ 
 
 // securité
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // se faciliter la lecture du charset
@@ -32,19 +32,19 @@ 
  * Initialisation
  */
 function init_charset(): void {
-	// Initialisation
-	$GLOBALS['CHARSET'] = [];
-
-	// noter a l'occasion dans la meta pcre_u notre capacite a utiliser le flag /u
-	// 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']))
-	) {
-		include_spip('inc/meta');
-		ecrire_meta('pcre_u', (lire_config('charset', _DEFAULT_CHARSET) === 'utf-8') ? 'u' : '');
-	}
+    // Initialisation
+    $GLOBALS['CHARSET'] = [];
+
+    // noter a l'occasion dans la meta pcre_u notre capacite a utiliser le flag /u
+    // 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']))
+    ) {
+        include_spip('inc/meta');
+        ecrire_meta('pcre_u', (lire_config('charset', _DEFAULT_CHARSET) === 'utf-8') ? 'u' : '');
+    }
 }
 
 // TODO: code d’exécution en dehors du fichier.
@@ -65,39 +65,39 @@ 
  *     - 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';
-	} elseif ($charset === 'windows-1250') {
-		$charset = 'cp1250';
-	} elseif ($charset === 'windows-1251') {
-		$charset = 'cp1251';
-	} elseif ($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';
+    } elseif ($charset === 'windows-1250') {
+        $charset = 'cp1250';
+    } elseif ($charset === 'windows-1251') {
+        $charset = 'cp1251';
+    } elseif ($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;
+    }
 }
 
 
@@ -110,19 +110,19 @@ 
  *     true si notre charset est utilisable par mb_strsing
  **/
 function init_mb_string(): bool {
-	static $mb;
-
-	// verifier que le charset interne est connu de mb_string
-	if (!$mb) {
-		if (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 le charset interne est connu de mb_string
+    if (!$mb) {
+        if (mb_detect_order(lire_config('charset', _DEFAULT_CHARSET))) {
+            mb_internal_encoding('utf-8');
+            $mb = 1;
+        } else {
+            $mb = -1;
+        }
+    }
+
+    return ($mb === 1);
 }
 
 /**
@@ -137,21 +137,21 @@ 
  *     true si iconv fonctionne correctement
  **/
 function test_iconv(): bool {
-	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);
 }
 
 /**
@@ -171,75 +171,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
+    );
 }
 
 
@@ -256,26 +256,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)
+        );
+    }
 }
 
 
@@ -290,16 +290,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);
 }
 
 
@@ -321,75 +321,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;
+    }
 }
 
 
@@ -408,43 +408,43 @@ 
  *     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);
-
-		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);
+
+        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;
+    }
 }
 
 
@@ -462,40 +462,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));
 }
 
 
@@ -511,92 +511,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;
 }
 
 /**
@@ -615,32 +615,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;
 }
 
 
@@ -657,21 +657,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 '';
 }
 
 /**
@@ -684,42 +684,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);
 }
 
 /**
@@ -731,15 +731,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;
 }
 
 /**
@@ -751,11 +751,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;
 }
 
 /**
@@ -767,11 +767,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;
 }
 
 
@@ -789,26 +789,26 @@ 
  * @return string
  */
 function translitteration_rapide($texte, $charset = 'AUTO', $complexe = ''): string {
-	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);
 }
 
 /**
@@ -831,14 +831,14 @@ 
  * @return string
  */
 function translitteration($texte, $charset = 'AUTO', $complexe = ''): string {
-	// 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);
 }
 
 /**
@@ -853,17 +853,17 @@ 
  * @return string
  */
 function translitteration_complexe($texte, $chiffres = false): string {
-	$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;
 }
 
 /**
@@ -875,7 +875,7 @@ 
  * @return string
  */
 function translitteration_chiffree($car): string {
-	return strtr($car, "'`?~.^+(-", '123456789');
+    return strtr($car, "'`?~.^+(-", '123456789');
 }
 
 
@@ -888,7 +888,7 @@ 
  *    true s'il a un BOM
  **/
 function bom_utf8($texte): bool {
-	return (substr($texte, 0, 3) === chr(0xEF) . chr(0xBB) . chr(0xBF));
+    return (substr($texte, 0, 3) === chr(0xEF) . chr(0xBB) . chr(0xBF));
 }
 
 /**
@@ -905,21 +905,21 @@ 
  *     true si c'est le cas
  **/
 function is_utf8($string): bool {
-	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
+        )
+    );
 }
 
 /**
@@ -931,13 +931,13 @@ 
  *     true si c'est le cas
  **/
 function is_ascii($string): bool {
-	return !strlen(
-		preg_replace(
-			',[\x09\x0A\x0D\x20-\x7E],sS',
-			'',
-			$string
-		)
-	);
+    return !strlen(
+        preg_replace(
+            ',[\x09\x0A\x0D\x20-\x7E],sS',
+            '',
+            $string
+        )
+    );
 }
 
 /**
@@ -956,53 +956,53 @@ 
  **/
 function transcoder_page($texte, $headers = ''): string {
 
-	// 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 !str_contains($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 !str_contains($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);
 }
 
 
@@ -1026,19 +1026,19 @@ 
  *     Le texte coupé
  **/
 function spip_substr($c, $start = 0, $length = null) {
-	if ($GLOBALS['meta']['charset'] !== 'utf-8') {
-		if ($length) {
-			return substr($c, $start, $length);
-		} else {
-			return substr($c, $start);
-		}
-	}
-
-	if ($length) {
-		return mb_substr($c, $start, $length);
-	} else {
-		return mb_substr($c, $start);
-	}
+    if ($GLOBALS['meta']['charset'] !== 'utf-8') {
+        if ($length) {
+            return substr($c, $start, $length);
+        } else {
+            return substr($c, $start);
+        }
+    }
+
+    if ($length) {
+        return mb_substr($c, $start, $length);
+    } else {
+        return mb_substr($c, $start);
+    }
 }
 
 /**
@@ -1052,13 +1052,13 @@ 
  *     La chaîne avec une majuscule sur le premier mot
  */
 function spip_ucfirst($c) {
-	if ($GLOBALS['meta']['charset'] !== 'utf-8') {
-		return ucfirst($c);
-	}
+    if ($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);
 }
 
 /**
@@ -1072,11 +1072,11 @@ 
  *     La chaîne en minuscules
  */
 function spip_strtolower($c) {
-	if ($GLOBALS['meta']['charset'] !== 'utf-8') {
-		return strtolower($c);
-	}
+    if ($GLOBALS['meta']['charset'] !== 'utf-8') {
+        return strtolower($c);
+    }
 
-	return mb_strtolower($c);
+    return mb_strtolower($c);
 }
 
 /**
@@ -1090,15 +1090,15 @@ 
  *     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);
+    // 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);
-	}
+    // Si ce n'est pas utf-8, utiliser strlen
+    if ($GLOBALS['meta']['charset'] !== 'utf-8') {
+        return strlen($c);
+    }
 
-	return mb_strlen($c);
+    return mb_strlen($c);
 }
 
 /**
@@ -1113,17 +1113,17 @@ 
  *     en unicode : &#128169;
  */
 function utf8_noplanes($x): string {
-	$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;
 }