spip / SPIP

prive/objets/liste/auteurs_fonctions.php

Indentation +76 added lines, -76 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Fonctions
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -29,29 +29,29 @@ 
  * @param bool $left
  */
 function critere_compteur_articles_filtres_dist($idb, &$boucles, $crit, $left = false) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$_statut = calculer_liste($crit->param[0], [], $boucles, $boucle->id_parent);
+    $_statut = calculer_liste($crit->param[0], [], $boucles, $boucle->id_parent);
 
-	$not = '';
-	if ($crit->not) {
-		$not = ", 'NOT'";
-	}
-	$boucle->from['LAA'] = 'spip_auteurs_liens';
-	$boucle->from_type['LAA'] = 'left';
-	$boucle->join['LAA'] = ["'auteurs'", "'id_auteur'", "'id_auteur'", "'LAA.objet=\'article\''"];
+    $not = '';
+    if ($crit->not) {
+        $not = ", 'NOT'";
+    }
+    $boucle->from['LAA'] = 'spip_auteurs_liens';
+    $boucle->from_type['LAA'] = 'left';
+    $boucle->join['LAA'] = ["'auteurs'", "'id_auteur'", "'id_auteur'", "'LAA.objet=\'article\''"];
 
-	$boucle->from['articles'] = 'spip_articles';
-	$boucle->from_type['articles'] = 'left';
-	$boucle->join['articles'] = [
-		"'LAA'",
-		"'id_article'",
-		"'id_objet'",
-		"'(articles.statut IS NULL OR '.sql_in_quote('articles.statut',[$_statut]$not).')'"
-	];
+    $boucle->from['articles'] = 'spip_articles';
+    $boucle->from_type['articles'] = 'left';
+    $boucle->join['articles'] = [
+        "'LAA'",
+        "'id_article'",
+        "'id_objet'",
+        "'(articles.statut IS NULL OR '.sql_in_quote('articles.statut',[$_statut]$not).')'"
+    ];
 
-	$boucle->select[] = 'COUNT(articles.id_article) AS compteur_articles';
-	$boucle->group[] = 'auteurs.id_auteur';
+    $boucle->select[] = 'COUNT(articles.id_article) AS compteur_articles';
+    $boucle->group[] = 'auteurs.id_auteur';
 }
 
 /**
@@ -69,7 +69,7 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_COMPTEUR_ARTICLES_dist($p) {
-	return rindex_pile($p, 'compteur_articles', 'compteur_articles_filtres');
+    return rindex_pile($p, 'compteur_articles', 'compteur_articles_filtres');
 }
 
 
@@ -85,44 +85,44 @@ 
  * @return string
  */
 function afficher_initiale($url, $initiale, $compteur, $debut, $pas) {
-	static $memo = null;
-	static $res = [];
-	$out = '';
-	if (
-		!$memo
-		or (!$initiale and !$url)
-		or ($initiale !== $memo['initiale'])
-	) {
-		$newcompt = intval(floor(($compteur - 1) / $pas) * $pas);
-		// si fin de la pagination et une seule entree, ne pas l'afficher, ca ne sert a rien
-		if (!$initiale and !$url and !$memo['compteur']) {
-			$memo = null;
-		}
-		if ($memo) {
-			$on = (($memo['compteur'] <= $debut)
-				and (
-					$newcompt > $debut or ($newcompt == $debut and $newcompt == $memo['compteur'])
-				));
-			$res[] = "<li class='pagination-item'>" . lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination') . '</li>';
-		}
-		if ($initiale) {
-			$memo = [
-				'entree' => isset($memo['entree']) ? $memo['entree'] + 1 : 0,
-				'initiale' => $initiale,
-				'url' => parametre_url($url, 'i', $initiale),
-				'compteur' => $newcompt
-			];
-		}
-	}
-	if (!$initiale and !$url) {
-		if ((is_countable($res) ? count($res) : 0) > 1) {
-			$out = "<ul class='pagination-items'>" . implode(' ', $res) . '</ul>';
-		}
-		$memo = null;
-		$res = [];
-	}
+    static $memo = null;
+    static $res = [];
+    $out = '';
+    if (
+        !$memo
+        or (!$initiale and !$url)
+        or ($initiale !== $memo['initiale'])
+    ) {
+        $newcompt = intval(floor(($compteur - 1) / $pas) * $pas);
+        // si fin de la pagination et une seule entree, ne pas l'afficher, ca ne sert a rien
+        if (!$initiale and !$url and !$memo['compteur']) {
+            $memo = null;
+        }
+        if ($memo) {
+            $on = (($memo['compteur'] <= $debut)
+                and (
+                    $newcompt > $debut or ($newcompt == $debut and $newcompt == $memo['compteur'])
+                ));
+            $res[] = "<li class='pagination-item'>" . lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination') . '</li>';
+        }
+        if ($initiale) {
+            $memo = [
+                'entree' => isset($memo['entree']) ? $memo['entree'] + 1 : 0,
+                'initiale' => $initiale,
+                'url' => parametre_url($url, 'i', $initiale),
+                'compteur' => $newcompt
+            ];
+        }
+    }
+    if (!$initiale and !$url) {
+        if ((is_countable($res) ? count($res) : 0) > 1) {
+            $out = "<ul class='pagination-items'>" . implode(' ', $res) . '</ul>';
+        }
+        $memo = null;
+        $res = [];
+    }
 
-	return $out;
+    return $out;
 }
 
 /**
@@ -141,24 +141,24 @@ 
  * @return string
  */
 function auteur_lien_messagerie($id_auteur, $en_ligne, $statut, $imessage, $email = '') {
-	static $time = null;
-	if (!in_array($statut, ['0minirezo', '1comite'])) {
-		return '';
-	}
+    static $time = null;
+    if (!in_array($statut, ['0minirezo', '1comite'])) {
+        return '';
+    }
 
-	if (is_null($time)) {
-		$time = time();
-	}
-	$parti = (($time - strtotime($en_ligne)) > 15 * 60);
+    if (is_null($time)) {
+        $time = time();
+    }
+    $parti = (($time - strtotime($en_ligne)) > 15 * 60);
 
-	if (
-		$imessage != 'non' and !$parti // historique : est-ce que ca a encore un sens de limiter vu qu'on a la notification par email ?
-		and $GLOBALS['meta']['messagerie_agenda'] != 'non'
-	) {
-		return parametre_url(parametre_url(generer_url_ecrire('message_edit', 'new=oui'), 'to', $id_auteur), 'redirect', self());
-	} elseif (strlen($email) and autoriser('voir', 'auteur', $id_auteur)) {
-		return 'mailto:' . $email;
-	} else {
-		return '';
-	}
+    if (
+        $imessage != 'non' and !$parti // historique : est-ce que ca a encore un sens de limiter vu qu'on a la notification par email ?
+        and $GLOBALS['meta']['messagerie_agenda'] != 'non'
+    ) {
+        return parametre_url(parametre_url(generer_url_ecrire('message_edit', 'new=oui'), 'to', $id_auteur), 'redirect', self());
+    } elseif (strlen($email) and autoriser('voir', 'auteur', $id_auteur)) {
+        return 'mailto:' . $email;
+    } else {
+        return '';
+    }
 }

ecrire/exec/admin_plugin.php

Indentation +203 added lines, -203 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/config');
@@ -37,26 +37,26 @@ 
  */
 function exec_admin_plugin_dist($retour = '') {
 
-	if (!autoriser('configurer', '_plugins')) {
-		include_spip('inc/minipres');
-		echo minipres();
-	} else {
-		// on fait la verif du path avant tout,
-		// et l'installation des qu'on est dans la colonne principale
-		// si jamais la liste des plugins actifs change, il faut faire un refresh du hit
-		// pour etre sur que les bons fichiers seront charges lors de l'install
-		$new = actualise_plugins_actifs();
-		if ($new and _request('actualise') < 2) {
-			include_spip('inc/headers');
-			if (isset($GLOBALS['fichier_php_compile_recent'])) {
-				// attendre eventuellement l'invalidation du cache opcode
-				spip_attend_invalidation_opcode_cache($GLOBALS['fichier_php_compile_recent']);
-			}
-			redirige_par_entete(parametre_url(self(), 'actualise', _request('actualise') + 1, '&'));
-		} else {
-			admin_plug_args(_request('voir'), _request('erreur'), _request('format'));
-		}
-	}
+    if (!autoriser('configurer', '_plugins')) {
+        include_spip('inc/minipres');
+        echo minipres();
+    } else {
+        // on fait la verif du path avant tout,
+        // et l'installation des qu'on est dans la colonne principale
+        // si jamais la liste des plugins actifs change, il faut faire un refresh du hit
+        // pour etre sur que les bons fichiers seront charges lors de l'install
+        $new = actualise_plugins_actifs();
+        if ($new and _request('actualise') < 2) {
+            include_spip('inc/headers');
+            if (isset($GLOBALS['fichier_php_compile_recent'])) {
+                // attendre eventuellement l'invalidation du cache opcode
+                spip_attend_invalidation_opcode_cache($GLOBALS['fichier_php_compile_recent']);
+            }
+            redirige_par_entete(parametre_url(self(), 'actualise', _request('actualise') + 1, '&'));
+        } else {
+            admin_plug_args(_request('voir'), _request('erreur'), _request('format'));
+        }
+    }
 }
 
 /**
@@ -81,132 +81,132 @@ 
  *     Format d'affichage (liste ou arborescence)
  **/
 function admin_plug_args($quoi, $erreur, $format) {
-	$lpf = null;
-	$lcpas = null;
-	$lcpaffichesup = null;
-	if (!$quoi) {
-		$quoi = 'actifs';
-	}
-	// empecher l'affichage des erreurs dans le bandeau, on le donne ensuite
-	// format brut par plugin
-	$GLOBALS['erreurs_activation_raw'] = plugin_donne_erreurs(true, false);
-	// format resume mis en forme
-	$erreur_activation = plugin_donne_erreurs();
-	$commencer_page = charger_fonction('commencer_page', 'inc');
-	echo $commencer_page(_T('icone_admin_plugin'), 'configuration', 'plugin');
-
-	echo debut_gauche();
-	echo recuperer_fond('prive/squelettes/navigation/configurer', ['exec' => 'admin_plugin']);
-
-	echo pipeline(
-		'affiche_gauche',
-		[
-			'args' => ['exec' => 'admin_plugin'],
-			'data' => afficher_librairies()
-		]
-	);
-
-	echo debut_droite();
-	echo gros_titre(_T('icone_admin_plugin'), '');
-
-	// Barre d'onglets de premier niveau
-	echo barre_onglets('plugins', 'plugins_actifs');
-	// Barre d'onglets de second niveau
-	$onglet2 = $quoi == 'actifs' ? 'plugins_actifs' : 'admin_plugin';
-	echo debut_onglet('onglets_simple second');
-	echo onglet(_T('plugins_tous_liste'), generer_url_ecrire('admin_plugin', 'voir=tous'), 'admin_plugin', $onglet2);
-	echo onglet(_T('plugins_actifs_liste'), generer_url_ecrire('admin_plugin'), 'plugins_actifs', $onglet2);
-	echo fin_onglet();
-
-	// message d'erreur au retour d'une operation
-	if ($erreur) {
-		echo "<div class='error'>" . spip_htmlspecialchars($erreur) . '</div>';
-	}
-	if ($erreur_activation) {
-		echo "<div class='error'>$erreur_activation</div>";
-	}
-
-	// la mise a jour de cette meta a ete faite par ecrire_plugin_actifs
-	$actifs = (array) unserialize($GLOBALS['meta']['plugin']);
-	$lcpa = $actifs + (array) unserialize($GLOBALS['meta']['plugin_attente']);
-
-	// Les affichages se basent sur le repertoire, pas sur le nom
-	$actifs = liste_chemin_plugin($actifs, '');
-	if (defined('_DIR_PLUGINS_SUPPL')) {
-		$lcpas = liste_chemin_plugin($lcpa, _DIR_PLUGINS_SUPPL);
-	}
-	$lcpa = liste_chemin_plugin($lcpa);
-
-	// on installe les plugins maintenant,
-	// cela permet aux scripts d'install de faire des affichages (moches...)
-	plugin_installes_meta();
-
-	echo "<div class='liste-plugins formulaire_spip'>";
-	echo debut_cadre_trait_couleur('plugin-24.png', true, '', _T('plugins_liste'), 'plugins');
-
-	if ($quoi !== 'actifs') {
-		$lpf = liste_plugin_files();
-		if ($lpf) {
-			echo '<p>' . _T('texte_presente_plugin') . '</p>';
-		} else {
-			if (!@is_dir(_DIR_PLUGINS)) {
-				echo '<p>' . _T('plugin_info_automatique_ftp', ['rep' => joli_repertoire(_DIR_PLUGINS)])
-					. ' &mdash; ' . _T('plugin_info_automatique_creer') . '</p>';
-			}
-		}
-		$lcpaffiche = $lpf;
-		if (defined('_DIR_PLUGINS_SUPPL')) {
-			$lcpaffichesup = liste_plugin_files(_DIR_PLUGINS_SUPPL);
-		}
-	} else {
-		// la liste
-		// $quoi=='actifs'
-		$lcpaffiche = $lcpa;
-		if (defined('_DIR_PLUGINS_SUPPL')) {
-			$lcpaffichesup = $lcpas;
-		}
-	}
-
-	if ($quoi == 'actifs' or $lpf) {
-		$nb = is_countable($lcpa) ? count($lcpa) : 0;
-		if (defined('_DIR_PLUGINS_SUPPL')) {
-			$nb += is_countable($lcpas) ? count($lcpas) : 0;
-		}
-		echo '<h3>' . sinon(
-			singulier_ou_pluriel($nb, 'plugins_actif_un', 'plugins_actifs', 'count'),
-			_T('plugins_actif_aucun')
-		) . '</h3>';
-	}
-
-	if (empty($format)) {
-		$format = 'liste';
-	} elseif (!in_array($format, ['liste', 'repertoires'])) {
-		$format = 'repertoires';
-	}
-
-	$afficher = charger_fonction("afficher_$format", 'plugins');
-	$corps = $afficher(self(), $lcpaffiche, $lcpa, $actifs);
-	if (defined('_DIR_PLUGINS_SUPPL')) {
-		$corps .= $afficher(self(), $lcpaffichesup, $lcpas, $actifs, _DIR_PLUGINS_SUPPL);
-	}
-
-	if ($corps) {
-		$corps .= "\n<div class='boutons' style='display:none;'>"
-			. "<input type='submit' class='submit save' value='" . _T('bouton_enregistrer')
-			. "' />"
-			. '</div>';
-	}
-
-	echo redirige_action_post('activer_plugins', 'activer', 'admin_plugin', '', $corps);
-
-	echo fin_cadre_trait_couleur();
-
-	if ($quoi == 'actifs') {
-		echo affiche_les_plugins_verrouilles($actifs);
-	}
-	echo '</div>';
-
-	echo http_script("
+    $lpf = null;
+    $lcpas = null;
+    $lcpaffichesup = null;
+    if (!$quoi) {
+        $quoi = 'actifs';
+    }
+    // empecher l'affichage des erreurs dans le bandeau, on le donne ensuite
+    // format brut par plugin
+    $GLOBALS['erreurs_activation_raw'] = plugin_donne_erreurs(true, false);
+    // format resume mis en forme
+    $erreur_activation = plugin_donne_erreurs();
+    $commencer_page = charger_fonction('commencer_page', 'inc');
+    echo $commencer_page(_T('icone_admin_plugin'), 'configuration', 'plugin');
+
+    echo debut_gauche();
+    echo recuperer_fond('prive/squelettes/navigation/configurer', ['exec' => 'admin_plugin']);
+
+    echo pipeline(
+        'affiche_gauche',
+        [
+            'args' => ['exec' => 'admin_plugin'],
+            'data' => afficher_librairies()
+        ]
+    );
+
+    echo debut_droite();
+    echo gros_titre(_T('icone_admin_plugin'), '');
+
+    // Barre d'onglets de premier niveau
+    echo barre_onglets('plugins', 'plugins_actifs');
+    // Barre d'onglets de second niveau
+    $onglet2 = $quoi == 'actifs' ? 'plugins_actifs' : 'admin_plugin';
+    echo debut_onglet('onglets_simple second');
+    echo onglet(_T('plugins_tous_liste'), generer_url_ecrire('admin_plugin', 'voir=tous'), 'admin_plugin', $onglet2);
+    echo onglet(_T('plugins_actifs_liste'), generer_url_ecrire('admin_plugin'), 'plugins_actifs', $onglet2);
+    echo fin_onglet();
+
+    // message d'erreur au retour d'une operation
+    if ($erreur) {
+        echo "<div class='error'>" . spip_htmlspecialchars($erreur) . '</div>';
+    }
+    if ($erreur_activation) {
+        echo "<div class='error'>$erreur_activation</div>";
+    }
+
+    // la mise a jour de cette meta a ete faite par ecrire_plugin_actifs
+    $actifs = (array) unserialize($GLOBALS['meta']['plugin']);
+    $lcpa = $actifs + (array) unserialize($GLOBALS['meta']['plugin_attente']);
+
+    // Les affichages se basent sur le repertoire, pas sur le nom
+    $actifs = liste_chemin_plugin($actifs, '');
+    if (defined('_DIR_PLUGINS_SUPPL')) {
+        $lcpas = liste_chemin_plugin($lcpa, _DIR_PLUGINS_SUPPL);
+    }
+    $lcpa = liste_chemin_plugin($lcpa);
+
+    // on installe les plugins maintenant,
+    // cela permet aux scripts d'install de faire des affichages (moches...)
+    plugin_installes_meta();
+
+    echo "<div class='liste-plugins formulaire_spip'>";
+    echo debut_cadre_trait_couleur('plugin-24.png', true, '', _T('plugins_liste'), 'plugins');
+
+    if ($quoi !== 'actifs') {
+        $lpf = liste_plugin_files();
+        if ($lpf) {
+            echo '<p>' . _T('texte_presente_plugin') . '</p>';
+        } else {
+            if (!@is_dir(_DIR_PLUGINS)) {
+                echo '<p>' . _T('plugin_info_automatique_ftp', ['rep' => joli_repertoire(_DIR_PLUGINS)])
+                    . ' &mdash; ' . _T('plugin_info_automatique_creer') . '</p>';
+            }
+        }
+        $lcpaffiche = $lpf;
+        if (defined('_DIR_PLUGINS_SUPPL')) {
+            $lcpaffichesup = liste_plugin_files(_DIR_PLUGINS_SUPPL);
+        }
+    } else {
+        // la liste
+        // $quoi=='actifs'
+        $lcpaffiche = $lcpa;
+        if (defined('_DIR_PLUGINS_SUPPL')) {
+            $lcpaffichesup = $lcpas;
+        }
+    }
+
+    if ($quoi == 'actifs' or $lpf) {
+        $nb = is_countable($lcpa) ? count($lcpa) : 0;
+        if (defined('_DIR_PLUGINS_SUPPL')) {
+            $nb += is_countable($lcpas) ? count($lcpas) : 0;
+        }
+        echo '<h3>' . sinon(
+            singulier_ou_pluriel($nb, 'plugins_actif_un', 'plugins_actifs', 'count'),
+            _T('plugins_actif_aucun')
+        ) . '</h3>';
+    }
+
+    if (empty($format)) {
+        $format = 'liste';
+    } elseif (!in_array($format, ['liste', 'repertoires'])) {
+        $format = 'repertoires';
+    }
+
+    $afficher = charger_fonction("afficher_$format", 'plugins');
+    $corps = $afficher(self(), $lcpaffiche, $lcpa, $actifs);
+    if (defined('_DIR_PLUGINS_SUPPL')) {
+        $corps .= $afficher(self(), $lcpaffichesup, $lcpas, $actifs, _DIR_PLUGINS_SUPPL);
+    }
+
+    if ($corps) {
+        $corps .= "\n<div class='boutons' style='display:none;'>"
+            . "<input type='submit' class='submit save' value='" . _T('bouton_enregistrer')
+            . "' />"
+            . '</div>';
+    }
+
+    echo redirige_action_post('activer_plugins', 'activer', 'admin_plugin', '', $corps);
+
+    echo fin_cadre_trait_couleur();
+
+    if ($quoi == 'actifs') {
+        echo affiche_les_plugins_verrouilles($actifs);
+    }
+    echo '</div>';
+
+    echo http_script("
 	jQuery(function(){
 		jQuery('.plugins li.item a[rel=info]').click(function(){
 			var li = jQuery(this).parents('li').eq(0);
@@ -232,15 +232,15 @@ 
 	});
 	");
 
-	echo pipeline(
-		'affiche_milieu',
-		[
-			'args' => ['exec' => 'admin_plugin'],
-			'data' => ''
-		]
-	);
+    echo pipeline(
+        'affiche_milieu',
+        [
+            'args' => ['exec' => 'admin_plugin'],
+            'data' => ''
+        ]
+    );
 
-	echo fin_gauche(), fin_page();
+    echo fin_gauche(), fin_page();
 }
 
 /**
@@ -254,23 +254,23 @@ 
  *     Code HTML
  **/
 function affiche_les_plugins_verrouilles($actifs) {
-	if ((!$liste = liste_plugin_files(_DIR_PLUGINS_DIST))) {
-		return '';
-	}
-
-	$afficher = charger_fonction('afficher_liste', 'plugins');
-	$liste = $afficher(self(), $liste, [], $actifs, _DIR_PLUGINS_DIST);
-
-	return
-		"<div id='plugins_dist'>"
-		. debut_cadre_trait_couleur('', true, '', _T('plugins_liste_dist'), 'liste_plugins_dist')
-		. '<p>'
-		. _T('plugin_info_plugins_dist_1', ['plugins_dist' => joli_repertoire(_DIR_PLUGINS_DIST)])
-		. '<br />' . _T('plugin_info_plugins_dist_2')
-		. '</p>'
-		. $liste
-		. fin_cadre_trait_couleur()
-		. "</div>\n";
+    if ((!$liste = liste_plugin_files(_DIR_PLUGINS_DIST))) {
+        return '';
+    }
+
+    $afficher = charger_fonction('afficher_liste', 'plugins');
+    $liste = $afficher(self(), $liste, [], $actifs, _DIR_PLUGINS_DIST);
+
+    return
+        "<div id='plugins_dist'>"
+        . debut_cadre_trait_couleur('', true, '', _T('plugins_liste_dist'), 'liste_plugins_dist')
+        . '<p>'
+        . _T('plugin_info_plugins_dist_1', ['plugins_dist' => joli_repertoire(_DIR_PLUGINS_DIST)])
+        . '<br />' . _T('plugin_info_plugins_dist_2')
+        . '</p>'
+        . $liste
+        . fin_cadre_trait_couleur()
+        . "</div>\n";
 }
 
 /**
@@ -282,19 +282,19 @@ 
  */
 function afficher_librairies() {
 
-	if (!$libs = liste_librairies()) {
-		return '';
-	}
-	ksort($libs);
-	$res = debut_cadre_enfonce('', true, '', _T('plugin_librairies_installees'));
-	$res .= '<dl>';
-	foreach ($libs as $lib => $rep) {
-		$res .= "<dt>$lib</dt><dd>" . joli_repertoire($rep) . "</dd>\n";
-	}
-	$res .= '</dl>';
-	$res .= fin_cadre_enfonce();
-
-	return $res;
+    if (!$libs = liste_librairies()) {
+        return '';
+    }
+    ksort($libs);
+    $res = debut_cadre_enfonce('', true, '', _T('plugin_librairies_installees'));
+    $res .= '<dl>';
+    foreach ($libs as $lib => $rep) {
+        $res .= "<dt>$lib</dt><dd>" . joli_repertoire($rep) . "</dd>\n";
+    }
+    $res .= '</dl>';
+    $res .= fin_cadre_enfonce();
+
+    return $res;
 }
 
 
@@ -305,22 +305,22 @@ 
  *     Tableau (nom de la lib => repertoire , ...)
  */
 function liste_librairies() {
-	$libs = [];
-	foreach (array_reverse(creer_chemin()) as $d) {
-		if (
-			is_dir($dir = $d . 'lib/')
-			and $t = opendir($dir)
-		) {
-			while (($f = readdir($t)) !== false) {
-				if (
-					$f[0] != '.'
-					and is_dir("$dir/$f")
-				) {
-					$libs[$f] = $dir;
-				}
-			}
-		}
-	}
-
-	return $libs;
+    $libs = [];
+    foreach (array_reverse(creer_chemin()) as $d) {
+        if (
+            is_dir($dir = $d . 'lib/')
+            and $t = opendir($dir)
+        ) {
+            while (($f = readdir($t)) !== false) {
+                if (
+                    $f[0] != '.'
+                    and is_dir("$dir/$f")
+                ) {
+                    $libs[$f] = $dir;
+                }
+            }
+        }
+    }
+
+    return $libs;
 }

ecrire/action/editer_logo.php

Indentation +221 added lines, -221 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -30,36 +30,36 @@ 
  *     `on` ou `off`
  */
 function logo_supprimer($objet, $id_objet, $etat) {
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$objet = objet_type($objet);
-	$primary = id_table_objet($objet);
-	include_spip('inc/chercher_logo');
-
-	// existe-t-il deja un logo ?
-	$logo = $chercher_logo($id_objet, $primary, $etat);
-	if ($logo) {
-		# TODO : deprecated, a supprimer -> anciens logos IMG/artonxx.png pas en base
-		if ((is_countable($logo) ? count($logo) : 0) < 6) {
-			spip_log('Supprimer ancien logo ' . json_encode($logo, JSON_THROW_ON_ERROR), 'logo');
-			spip_unlink($logo[0]);
-		}
-		elseif (
-			$doc = $logo[5]
-			and isset($doc['id_document'])
-			and $id_document = $doc['id_document']
-		) {
-			include_spip('action/editer_liens');
-			// supprimer le lien dans la base
-			objet_dissocier(['document' => $id_document], [$objet => $id_objet], ['role' => '*']);
-
-			// verifier si il reste des liens avec d'autres objets et sinon supprimer
-			$liens = objet_trouver_liens(['document' => $id_document], '*');
-			if (!count($liens)) {
-				$supprimer_document = charger_fonction('supprimer_document', 'action');
-				$supprimer_document($doc['id_document']);
-			}
-		}
-	}
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $objet = objet_type($objet);
+    $primary = id_table_objet($objet);
+    include_spip('inc/chercher_logo');
+
+    // existe-t-il deja un logo ?
+    $logo = $chercher_logo($id_objet, $primary, $etat);
+    if ($logo) {
+        # TODO : deprecated, a supprimer -> anciens logos IMG/artonxx.png pas en base
+        if ((is_countable($logo) ? count($logo) : 0) < 6) {
+            spip_log('Supprimer ancien logo ' . json_encode($logo, JSON_THROW_ON_ERROR), 'logo');
+            spip_unlink($logo[0]);
+        }
+        elseif (
+            $doc = $logo[5]
+            and isset($doc['id_document'])
+            and $id_document = $doc['id_document']
+        ) {
+            include_spip('action/editer_liens');
+            // supprimer le lien dans la base
+            objet_dissocier(['document' => $id_document], [$objet => $id_objet], ['role' => '*']);
+
+            // verifier si il reste des liens avec d'autres objets et sinon supprimer
+            $liens = objet_trouver_liens(['document' => $id_document], '*');
+            if (!count($liens)) {
+                $supprimer_document = charger_fonction('supprimer_document', 'action');
+                $supprimer_document($doc['id_document']);
+            }
+        }
+    }
 }
 
 /**
@@ -76,198 +76,198 @@ 
  *     Erreur, sinon ''
  */
 function logo_modifier($objet, $id_objet, $etat, $source) {
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$objet = objet_type($objet);
-	$primary = id_table_objet($objet);
-	include_spip('inc/chercher_logo');
-
-	$mode = preg_replace(',\W,', '', $etat);
-	if (!$mode) {
-		spip_log("logo_modifier : etat $etat invalide", 'logo');
-		$erreur = 'etat invalide';
-
-		return $erreur;
-	}
-	// chercher dans la base
-	$mode_document = 'logo' . $mode;
-
-	include_spip('inc/documents');
-	$erreur = '';
-
-	if (!$source) {
-		spip_log('spip_image_ajouter : source inconnue', 'logo');
-		$erreur = 'source inconnue';
-
-		return $erreur;
-	}
-
-	// fichier dans upload/
-	if (is_string($source)) {
-		$tmp_name = false;
-		if (file_exists($source)) {
-			$tmp_name = $source;
-		} elseif (file_exists($f = determine_upload() . $source)) {
-			$tmp_name = $f;
-		}
-		if (!$tmp_name) {
-			spip_log('spip_image_ajouter : source inconnue', 'logo');
-			$erreur = 'source inconnue';
-
-			return $erreur;
-		}
-		$source = [
-			'tmp_name' => $tmp_name,
-			'name' => basename($tmp_name),
-		];
-	} elseif ($erreur = check_upload_error($source['error'], '', true)) {
-		return $erreur;
-	}
-
-	// supprimer le logo eventueel existant
-	// TODO : si un logo existe, le modifier plutot que supprimer + reinserer (mais il faut gerer le cas ou il est utilise par plusieurs objets, donc pas si simple)
-	// mais de toute facon l'interface actuelle oblige a supprimer + reinserer
-	if (empty($GLOBALS['logo_migrer_en_base'])) {
-		logo_supprimer($objet, $id_objet, $etat);
-	}
-
-
-	include_spip('inc/autoriser');
-	$source['mode'] = $mode_document;
-	$ajouter_documents = charger_fonction('ajouter_documents', 'action');
-	autoriser_exception('associerdocuments', $objet, $id_objet);
-	$ajoutes = $ajouter_documents('new', [$source], $objet, $id_objet, $mode_document);
-	autoriser_exception('associerdocuments', $objet, $id_objet, false);
-
-	$id_document = reset($ajoutes);
-
-	if (!is_numeric($id_document)) {
-		$erreur = ($id_document ?: 'Erreur inconnue');
-		spip_log("Erreur ajout logo : $erreur pour source=" . json_encode($source, JSON_THROW_ON_ERROR), 'logo');
-		return $erreur;
-	}
-
-	return ''; // tout est bon, pas d'erreur
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $objet = objet_type($objet);
+    $primary = id_table_objet($objet);
+    include_spip('inc/chercher_logo');
+
+    $mode = preg_replace(',\W,', '', $etat);
+    if (!$mode) {
+        spip_log("logo_modifier : etat $etat invalide", 'logo');
+        $erreur = 'etat invalide';
+
+        return $erreur;
+    }
+    // chercher dans la base
+    $mode_document = 'logo' . $mode;
+
+    include_spip('inc/documents');
+    $erreur = '';
+
+    if (!$source) {
+        spip_log('spip_image_ajouter : source inconnue', 'logo');
+        $erreur = 'source inconnue';
+
+        return $erreur;
+    }
+
+    // fichier dans upload/
+    if (is_string($source)) {
+        $tmp_name = false;
+        if (file_exists($source)) {
+            $tmp_name = $source;
+        } elseif (file_exists($f = determine_upload() . $source)) {
+            $tmp_name = $f;
+        }
+        if (!$tmp_name) {
+            spip_log('spip_image_ajouter : source inconnue', 'logo');
+            $erreur = 'source inconnue';
+
+            return $erreur;
+        }
+        $source = [
+            'tmp_name' => $tmp_name,
+            'name' => basename($tmp_name),
+        ];
+    } elseif ($erreur = check_upload_error($source['error'], '', true)) {
+        return $erreur;
+    }
+
+    // supprimer le logo eventueel existant
+    // TODO : si un logo existe, le modifier plutot que supprimer + reinserer (mais il faut gerer le cas ou il est utilise par plusieurs objets, donc pas si simple)
+    // mais de toute facon l'interface actuelle oblige a supprimer + reinserer
+    if (empty($GLOBALS['logo_migrer_en_base'])) {
+        logo_supprimer($objet, $id_objet, $etat);
+    }
+
+
+    include_spip('inc/autoriser');
+    $source['mode'] = $mode_document;
+    $ajouter_documents = charger_fonction('ajouter_documents', 'action');
+    autoriser_exception('associerdocuments', $objet, $id_objet);
+    $ajoutes = $ajouter_documents('new', [$source], $objet, $id_objet, $mode_document);
+    autoriser_exception('associerdocuments', $objet, $id_objet, false);
+
+    $id_document = reset($ajoutes);
+
+    if (!is_numeric($id_document)) {
+        $erreur = ($id_document ?: 'Erreur inconnue');
+        spip_log("Erreur ajout logo : $erreur pour source=" . json_encode($source, JSON_THROW_ON_ERROR), 'logo');
+        return $erreur;
+    }
+
+    return ''; // tout est bon, pas d'erreur
 }
 
 function logo_migrer_en_base($objet, $time_limit) {
 
-	$dir_logos_erreurs = sous_repertoire(_DIR_IMG, 'logo_erreurs');
-	$dir_logos = sous_repertoire(_DIR_IMG, 'logo');
-	$formats_logos = ['jpg', 'png', 'svg', 'gif'];
-	if (isset($GLOBALS['formats_logos'])) {
-		$formats_logos = $GLOBALS['formats_logos'];
-	}
-
-
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	include_spip('inc/chercher_logo');
-	$_id_objet = id_table_objet($objet);
-	$table = table_objet_sql($objet);
-	$type = type_du_logo($_id_objet);
-	$desc = $trouver_table($table);
-
-	// on desactive les revisions
-	$liste_objets_versionnes = $GLOBALS['meta']['objets_versions'] ?? '';
-	unset($GLOBALS['meta']['objets_versions']);
-	// et le signalement des editions
-	$articles_modif = $GLOBALS['meta']['articles_modif'] ?? '';
-	$GLOBALS['meta']['articles_modif'] = 'non';
-
-	foreach (['on', 'off'] as $mode) {
-		$nom_base = $type . $mode;
-		$dir = (defined('_DIR_LOGOS') ? _DIR_LOGOS : _DIR_IMG);
-
-		$files = glob($dir . $nom_base . '*');
-		// est-ce que c'est une nouvelle tentative de migration ?
-		// dans ce cas les logos sont deja dans IMG/logo/
-		if (!(is_countable($files) ? count($files) : 0)) {
-			$files = glob($dir_logos . $nom_base . '*');
-			if (is_countable($files) ? count($files) : 0) {
-				// mais il faut verifier si ils ont pas deja ete migres pour tout ou partie
-				$filescheck = [];
-				foreach ($files as $file) {
-					$short = basename(dirname($file)) . DIRECTORY_SEPARATOR . basename($file);
-					$filescheck[$short] = $file;
-				}
-				// trouver ceux deja migres
-				$deja = sql_allfetsel('fichier', 'spip_documents', sql_in('fichier', array_keys($filescheck)) . " AND mode LIKE 'logo%'");
-				if (is_countable($deja) ? count($deja) : 0) {
-					$deja = array_column($deja, 'fichier');
-					$restant = array_diff(array_keys($filescheck), $deja);
-					$files = [];
-					if (count($restant)) {
-						foreach ($restant as $r) {
-							$files[] = $filescheck[$r];
-						}
-					}
-				}
-				// et si il en reste on peut y aller...
-				// mais il faut modifier $dir qui sert de base dans la suite
-				if (is_countable($files) ? count($files) : 0) {
-					$dir = $dir_logos;
-				}
-			}
-		}
-
-		$count = (is_countable($files) ? count($files) : 0);
-		spip_log("logo_migrer_en_base $objet $mode : " . $count . ' logos restant', 'maj' . _LOG_INFO_IMPORTANTE);
-
-		$deja = [];
-		foreach ($files as $file) {
-			$logo = substr($file, strlen($dir . $nom_base));
-			$logo = explode('.', $logo);
-			if (
-				is_numeric($logo[0])
-				and ($id_objet = intval($logo[0]) or in_array($objet, ['site', 'rubrique']))
-			) {
-				if (!isset($deja[$id_objet])) {
-					$logo = $chercher_logo($id_objet, $_id_objet, $mode);
-					// if no logo in base
-					if (!$logo or (is_countable($logo) ? count($logo) : 0) < 6) {
-						foreach ($formats_logos as $format) {
-							if (@file_exists($d = ($dir . ($nom = $nom_base . intval($id_objet) . '.' . $format)))) {
-								if (isset($desc['field']['date_modif'])) {
-									$date_modif = sql_getfetsel('date_modif', $table, "$_id_objet=$id_objet");
-								} else {
-									$date_modif = null;
-								}
-								// logo_modifier commence par supprimer le logo existant, donc on le deplace pour pas le perdre
-								@rename($d, $dir_logos . $nom);
-								// et on le declare comme nouveau logo
-								logo_modifier($objet, $id_objet, $mode, $dir_logos . $nom);
-								if ($date_modif) {
-									sql_updateq($table, ['date_modif' => $date_modif], "$_id_objet=$id_objet");
-								}
-								break;
-							}
-						}
-					}
-					$deja[$id_objet] = true;
-				}
-			}
-			// si le fichier est encore la on le move : rien a faire ici
-			// (sauf si c'est une re-migration : il est deja dans logo/ donc il bouge pas)
-			if ($dir !== $dir_logos and file_exists($file)) {
-				@rename($file, $dir_logos_erreurs . basename($file));
-			}
-
-			$count--;
-			if ($count % 250 === 0) {
-				spip_log("logo_migrer_en_base $objet $mode : " . $count . ' logos restant', 'maj' . _LOG_INFO_IMPORTANTE);
-			}
-
-			if ($time_limit and time() > $time_limit) {
-				effacer_meta('drapeau_edition');
-				return;
-			}
-		}
-	}
-
-	if ($liste_objets_versionnes) {
-		$GLOBALS['meta']['objets_versions'] = $liste_objets_versionnes;
-	}
-	$GLOBALS['meta']['articles_modif'] = $articles_modif;
-
-	effacer_meta('drapeau_edition');
+    $dir_logos_erreurs = sous_repertoire(_DIR_IMG, 'logo_erreurs');
+    $dir_logos = sous_repertoire(_DIR_IMG, 'logo');
+    $formats_logos = ['jpg', 'png', 'svg', 'gif'];
+    if (isset($GLOBALS['formats_logos'])) {
+        $formats_logos = $GLOBALS['formats_logos'];
+    }
+
+
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    include_spip('inc/chercher_logo');
+    $_id_objet = id_table_objet($objet);
+    $table = table_objet_sql($objet);
+    $type = type_du_logo($_id_objet);
+    $desc = $trouver_table($table);
+
+    // on desactive les revisions
+    $liste_objets_versionnes = $GLOBALS['meta']['objets_versions'] ?? '';
+    unset($GLOBALS['meta']['objets_versions']);
+    // et le signalement des editions
+    $articles_modif = $GLOBALS['meta']['articles_modif'] ?? '';
+    $GLOBALS['meta']['articles_modif'] = 'non';
+
+    foreach (['on', 'off'] as $mode) {
+        $nom_base = $type . $mode;
+        $dir = (defined('_DIR_LOGOS') ? _DIR_LOGOS : _DIR_IMG);
+
+        $files = glob($dir . $nom_base . '*');
+        // est-ce que c'est une nouvelle tentative de migration ?
+        // dans ce cas les logos sont deja dans IMG/logo/
+        if (!(is_countable($files) ? count($files) : 0)) {
+            $files = glob($dir_logos . $nom_base . '*');
+            if (is_countable($files) ? count($files) : 0) {
+                // mais il faut verifier si ils ont pas deja ete migres pour tout ou partie
+                $filescheck = [];
+                foreach ($files as $file) {
+                    $short = basename(dirname($file)) . DIRECTORY_SEPARATOR . basename($file);
+                    $filescheck[$short] = $file;
+                }
+                // trouver ceux deja migres
+                $deja = sql_allfetsel('fichier', 'spip_documents', sql_in('fichier', array_keys($filescheck)) . " AND mode LIKE 'logo%'");
+                if (is_countable($deja) ? count($deja) : 0) {
+                    $deja = array_column($deja, 'fichier');
+                    $restant = array_diff(array_keys($filescheck), $deja);
+                    $files = [];
+                    if (count($restant)) {
+                        foreach ($restant as $r) {
+                            $files[] = $filescheck[$r];
+                        }
+                    }
+                }
+                // et si il en reste on peut y aller...
+                // mais il faut modifier $dir qui sert de base dans la suite
+                if (is_countable($files) ? count($files) : 0) {
+                    $dir = $dir_logos;
+                }
+            }
+        }
+
+        $count = (is_countable($files) ? count($files) : 0);
+        spip_log("logo_migrer_en_base $objet $mode : " . $count . ' logos restant', 'maj' . _LOG_INFO_IMPORTANTE);
+
+        $deja = [];
+        foreach ($files as $file) {
+            $logo = substr($file, strlen($dir . $nom_base));
+            $logo = explode('.', $logo);
+            if (
+                is_numeric($logo[0])
+                and ($id_objet = intval($logo[0]) or in_array($objet, ['site', 'rubrique']))
+            ) {
+                if (!isset($deja[$id_objet])) {
+                    $logo = $chercher_logo($id_objet, $_id_objet, $mode);
+                    // if no logo in base
+                    if (!$logo or (is_countable($logo) ? count($logo) : 0) < 6) {
+                        foreach ($formats_logos as $format) {
+                            if (@file_exists($d = ($dir . ($nom = $nom_base . intval($id_objet) . '.' . $format)))) {
+                                if (isset($desc['field']['date_modif'])) {
+                                    $date_modif = sql_getfetsel('date_modif', $table, "$_id_objet=$id_objet");
+                                } else {
+                                    $date_modif = null;
+                                }
+                                // logo_modifier commence par supprimer le logo existant, donc on le deplace pour pas le perdre
+                                @rename($d, $dir_logos . $nom);
+                                // et on le declare comme nouveau logo
+                                logo_modifier($objet, $id_objet, $mode, $dir_logos . $nom);
+                                if ($date_modif) {
+                                    sql_updateq($table, ['date_modif' => $date_modif], "$_id_objet=$id_objet");
+                                }
+                                break;
+                            }
+                        }
+                    }
+                    $deja[$id_objet] = true;
+                }
+            }
+            // si le fichier est encore la on le move : rien a faire ici
+            // (sauf si c'est une re-migration : il est deja dans logo/ donc il bouge pas)
+            if ($dir !== $dir_logos and file_exists($file)) {
+                @rename($file, $dir_logos_erreurs . basename($file));
+            }
+
+            $count--;
+            if ($count % 250 === 0) {
+                spip_log("logo_migrer_en_base $objet $mode : " . $count . ' logos restant', 'maj' . _LOG_INFO_IMPORTANTE);
+            }
+
+            if ($time_limit and time() > $time_limit) {
+                effacer_meta('drapeau_edition');
+                return;
+            }
+        }
+    }
+
+    if ($liste_objets_versionnes) {
+        $GLOBALS['meta']['objets_versions'] = $liste_objets_versionnes;
+    }
+    $GLOBALS['meta']['articles_modif'] = $articles_modif;
+
+    effacer_meta('drapeau_edition');
 }

ecrire/inc/flock.php

Indentation +407 added lines, -407 removed lines

@@ -17,12 +17,12 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_TEST_FILE_EXISTS')) {
-	/** Permettre d'éviter des tests file_exists sur certains hébergeurs */
-	define('_TEST_FILE_EXISTS', preg_match(',(online|free)[.]fr$,', $_ENV['HTTP_HOST'] ?? ''));
+    /** Permettre d'éviter des tests file_exists sur certains hébergeurs */
+    define('_TEST_FILE_EXISTS', preg_match(',(online|free)[.]fr$,', $_ENV['HTTP_HOST'] ?? ''));
 }
 
 #define('_SPIP_LOCK_MODE',0); // ne pas utiliser de lock (deconseille)
@@ -30,7 +30,7 @@ 
 #define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip
 
 if (_SPIP_LOCK_MODE == 2) {
-	include_spip('inc/nfslock');
+    include_spip('inc/nfslock');
 }
 
 $GLOBALS['liste_verrous'] = [];
@@ -53,24 +53,24 @@ 
  *     Ressource sur le fichier ouvert, sinon false.
  **/
 function spip_fopen_lock($fichier, $mode, $verrou) {
-	if (_SPIP_LOCK_MODE == 1) {
-		if ($fl = @fopen($fichier, $mode)) {
-			// verrou
-			@flock($fl, $verrou);
-		}
-
-		return $fl;
-	} elseif (_SPIP_LOCK_MODE == 2) {
-		if (($verrou = spip_nfslock($fichier)) && ($fl = @fopen($fichier, $mode))) {
-			$GLOBALS['liste_verrous'][$fl] = [$fichier, $verrou];
-
-			return $fl;
-		} else {
-			return false;
-		}
-	}
-
-	return @fopen($fichier, $mode);
+    if (_SPIP_LOCK_MODE == 1) {
+        if ($fl = @fopen($fichier, $mode)) {
+            // verrou
+            @flock($fl, $verrou);
+        }
+
+        return $fl;
+    } elseif (_SPIP_LOCK_MODE == 2) {
+        if (($verrou = spip_nfslock($fichier)) && ($fl = @fopen($fichier, $mode))) {
+            $GLOBALS['liste_verrous'][$fl] = [$fichier, $verrou];
+
+            return $fl;
+        } else {
+            return false;
+        }
+    }
+
+    return @fopen($fichier, $mode);
 }
 
 /**
@@ -85,14 +85,14 @@ 
  *     true si succès, false sinon.
  **/
 function spip_fclose_unlock($handle) {
-	if (_SPIP_LOCK_MODE == 1) {
-		@flock($handle, LOCK_UN);
-	} elseif (_SPIP_LOCK_MODE == 2) {
-		spip_nfsunlock(reset($GLOBALS['liste_verrous'][$handle]), end($GLOBALS['liste_verrous'][$handle]));
-		unset($GLOBALS['liste_verrous'][$handle]);
-	}
-
-	return @fclose($handle);
+    if (_SPIP_LOCK_MODE == 1) {
+        @flock($handle, LOCK_UN);
+    } elseif (_SPIP_LOCK_MODE == 2) {
+        spip_nfsunlock(reset($GLOBALS['liste_verrous'][$handle]), end($GLOBALS['liste_verrous'][$handle]));
+        unset($GLOBALS['liste_verrous'][$handle]);
+    }
+
+    return @fclose($handle);
 }
 
 
@@ -106,23 +106,23 @@ 
  *     Contenu du fichier
  **/
 function spip_file_get_contents($fichier) {
-	if (substr($fichier, -3) != '.gz') {
-		if (function_exists('file_get_contents')) {
-			// quand on est sous windows on ne sait pas si file_get_contents marche
-			// on essaye : si ca retourne du contenu alors c'est bon
-			// sinon on fait un file() pour avoir le coeur net
-			$contenu = @file_get_contents($fichier);
-			if (!$contenu and _OS_SERVEUR == 'windows') {
-				$contenu = @file($fichier);
-			}
-		} else {
-			$contenu = @file($fichier);
-		}
-	} else {
-		$contenu = @gzfile($fichier);
-	}
-
-	return is_array($contenu) ? join('', $contenu) : (string)$contenu;
+    if (substr($fichier, -3) != '.gz') {
+        if (function_exists('file_get_contents')) {
+            // quand on est sous windows on ne sait pas si file_get_contents marche
+            // on essaye : si ca retourne du contenu alors c'est bon
+            // sinon on fait un file() pour avoir le coeur net
+            $contenu = @file_get_contents($fichier);
+            if (!$contenu and _OS_SERVEUR == 'windows') {
+                $contenu = @file($fichier);
+            }
+        } else {
+            $contenu = @file($fichier);
+        }
+    } else {
+        $contenu = @gzfile($fichier);
+    }
+
+    return is_array($contenu) ? join('', $contenu) : (string)$contenu;
 }
 
 
@@ -147,48 +147,48 @@ 
  *     true si l'opération a réussie, false sinon.
  **/
 function lire_fichier($fichier, &$contenu, $options = []) {
-	$contenu = '';
-	// inutile car si le fichier n'existe pas, le lock va renvoyer false juste apres
-	// economisons donc les acces disque, sauf chez free qui rale pour un rien
-	if (_TEST_FILE_EXISTS and !@file_exists($fichier)) {
-		return false;
-	}
-
-	#spip_timer('lire_fichier');
-
-	// pas de @ sur spip_fopen_lock qui est silencieux de toute facon
-	if ($fl = spip_fopen_lock($fichier, 'r', LOCK_SH)) {
-		// lire le fichier avant tout
-		$contenu = spip_file_get_contents($fichier);
-
-		// le fichier a-t-il ete supprime par le locker ?
-		// on ne verifie que si la tentative de lecture a echoue
-		// pour discriminer un contenu vide d'un fichier absent
-		// et eviter un acces disque
-		if (!$contenu and !@file_exists($fichier)) {
-			spip_fclose_unlock($fl);
-
-			return false;
-		}
-
-		// liberer le verrou
-		spip_fclose_unlock($fl);
-
-		// Verifications
-		$ok = true;
-		if (isset($options['phpcheck']) and $options['phpcheck'] == 'oui') {
-			$ok &= (preg_match(",[?]>\n?$,", $contenu));
-		}
-
-		#spip_log("$fread $fichier ".spip_timer('lire_fichier'));
-		if (!$ok) {
-			spip_log("echec lecture $fichier");
-		}
-
-		return $ok;
-	}
-
-	return false;
+    $contenu = '';
+    // inutile car si le fichier n'existe pas, le lock va renvoyer false juste apres
+    // economisons donc les acces disque, sauf chez free qui rale pour un rien
+    if (_TEST_FILE_EXISTS and !@file_exists($fichier)) {
+        return false;
+    }
+
+    #spip_timer('lire_fichier');
+
+    // pas de @ sur spip_fopen_lock qui est silencieux de toute facon
+    if ($fl = spip_fopen_lock($fichier, 'r', LOCK_SH)) {
+        // lire le fichier avant tout
+        $contenu = spip_file_get_contents($fichier);
+
+        // le fichier a-t-il ete supprime par le locker ?
+        // on ne verifie que si la tentative de lecture a echoue
+        // pour discriminer un contenu vide d'un fichier absent
+        // et eviter un acces disque
+        if (!$contenu and !@file_exists($fichier)) {
+            spip_fclose_unlock($fl);
+
+            return false;
+        }
+
+        // liberer le verrou
+        spip_fclose_unlock($fl);
+
+        // Verifications
+        $ok = true;
+        if (isset($options['phpcheck']) and $options['phpcheck'] == 'oui') {
+            $ok &= (preg_match(",[?]>\n?$,", $contenu));
+        }
+
+        #spip_log("$fread $fichier ".spip_timer('lire_fichier'));
+        if (!$ok) {
+            spip_log("echec lecture $fichier");
+        }
+
+        return $ok;
+    }
+
+    return false;
 }
 
 
@@ -216,85 +216,85 @@ 
  **/
 function ecrire_fichier($fichier, $contenu, $ignorer_echec = false, $truncate = true) {
 
-	#spip_timer('ecrire_fichier');
-
-	// verrouiller le fichier destination
-	if ($fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
-		// ecrire les donnees, compressees le cas echeant
-		// (on ouvre un nouveau pointeur sur le fichier, ce qui a l'avantage
-		// de le recreer si le locker qui nous precede l'avait supprime...)
-		if (substr($fichier, -3) == '.gz') {
-			$contenu = gzencode($contenu);
-		}
-		// si c'est une ecriture avec troncation , on fait plutot une ecriture complete a cote suivie unlink+rename
-		// pour etre sur d'avoir une operation atomique
-		// y compris en NFS : http://www.ietf.org/rfc/rfc1094.txt
-		// sauf sous wintruc ou ca ne marche pas
-		$ok = false;
-		if ($truncate and _OS_SERVEUR != 'windows') {
-			if (!function_exists('creer_uniqid')) {
-				include_spip('inc/acces');
-			}
-			$id = creer_uniqid();
-			// on ouvre un pointeur sur un fichier temporaire en ecriture +raz
-			if ($fp2 = spip_fopen_lock("$fichier.$id", 'w', LOCK_EX)) {
-				$s = @fputs($fp2, $contenu, $a = strlen($contenu));
-				$ok = ($s == $a);
-				spip_fclose_unlock($fp2);
-				spip_fclose_unlock($fp);
-				// unlink direct et pas spip_unlink car on avait deja le verrou
-				// a priori pas besoin car rename ecrase la cible
-				// @unlink($fichier);
-				// le rename aussitot, atomique quand on est pas sous windows
-				// au pire on arrive en second en cas de concourance, et le rename echoue
-				// --> on a la version de l'autre process qui doit etre identique
-				@rename("$fichier.$id", $fichier);
-				// precaution en cas d'echec du rename
-				if (!_TEST_FILE_EXISTS or @file_exists("$fichier.$id")) {
-					@unlink("$fichier.$id");
-				}
-				if ($ok) {
-					$ok = file_exists($fichier);
-				}
-			} else // echec mais penser a fermer ..
-			{
-				spip_fclose_unlock($fp);
-			}
-		}
-		// sinon ou si methode precedente a echoueee
-		// on se rabat sur la methode ancienne
-		if (!$ok) {
-			// ici on est en ajout ou sous windows, cas desespere
-			if ($truncate) {
-				@ftruncate($fp, 0);
-			}
-			$s = @fputs($fp, $contenu, $a = strlen($contenu));
-
-			$ok = ($s == $a);
-			spip_fclose_unlock($fp);
-		}
-
-		// liberer le verrou et fermer le fichier
-		@chmod($fichier, _SPIP_CHMOD & 0666);
-		if ($ok) {
-			if (strpos($fichier, '.php') !== false) {
-				spip_clear_opcode_cache(realpath($fichier));
-			}
-
-			return $ok;
-		}
-	}
-
-	if (!$ignorer_echec) {
-		include_spip('inc/autoriser');
-		if (autoriser('chargerftp')) {
-			raler_fichier($fichier);
-		}
-		spip_unlink($fichier);
-	}
-	spip_log("Ecriture fichier $fichier impossible", _LOG_INFO_IMPORTANTE);
-
-	return false;
+    #spip_timer('ecrire_fichier');
+
+    // verrouiller le fichier destination
+    if ($fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
+        // ecrire les donnees, compressees le cas echeant
+        // (on ouvre un nouveau pointeur sur le fichier, ce qui a l'avantage
+        // de le recreer si le locker qui nous precede l'avait supprime...)
+        if (substr($fichier, -3) == '.gz') {
+            $contenu = gzencode($contenu);
+        }
+        // si c'est une ecriture avec troncation , on fait plutot une ecriture complete a cote suivie unlink+rename
+        // pour etre sur d'avoir une operation atomique
+        // y compris en NFS : http://www.ietf.org/rfc/rfc1094.txt
+        // sauf sous wintruc ou ca ne marche pas
+        $ok = false;
+        if ($truncate and _OS_SERVEUR != 'windows') {
+            if (!function_exists('creer_uniqid')) {
+                include_spip('inc/acces');
+            }
+            $id = creer_uniqid();
+            // on ouvre un pointeur sur un fichier temporaire en ecriture +raz
+            if ($fp2 = spip_fopen_lock("$fichier.$id", 'w', LOCK_EX)) {
+                $s = @fputs($fp2, $contenu, $a = strlen($contenu));
+                $ok = ($s == $a);
+                spip_fclose_unlock($fp2);
+                spip_fclose_unlock($fp);
+                // unlink direct et pas spip_unlink car on avait deja le verrou
+                // a priori pas besoin car rename ecrase la cible
+                // @unlink($fichier);
+                // le rename aussitot, atomique quand on est pas sous windows
+                // au pire on arrive en second en cas de concourance, et le rename echoue
+                // --> on a la version de l'autre process qui doit etre identique
+                @rename("$fichier.$id", $fichier);
+                // precaution en cas d'echec du rename
+                if (!_TEST_FILE_EXISTS or @file_exists("$fichier.$id")) {
+                    @unlink("$fichier.$id");
+                }
+                if ($ok) {
+                    $ok = file_exists($fichier);
+                }
+            } else // echec mais penser a fermer ..
+            {
+                spip_fclose_unlock($fp);
+            }
+        }
+        // sinon ou si methode precedente a echoueee
+        // on se rabat sur la methode ancienne
+        if (!$ok) {
+            // ici on est en ajout ou sous windows, cas desespere
+            if ($truncate) {
+                @ftruncate($fp, 0);
+            }
+            $s = @fputs($fp, $contenu, $a = strlen($contenu));
+
+            $ok = ($s == $a);
+            spip_fclose_unlock($fp);
+        }
+
+        // liberer le verrou et fermer le fichier
+        @chmod($fichier, _SPIP_CHMOD & 0666);
+        if ($ok) {
+            if (strpos($fichier, '.php') !== false) {
+                spip_clear_opcode_cache(realpath($fichier));
+            }
+
+            return $ok;
+        }
+    }
+
+    if (!$ignorer_echec) {
+        include_spip('inc/autoriser');
+        if (autoriser('chargerftp')) {
+            raler_fichier($fichier);
+        }
+        spip_unlink($fichier);
+    }
+    spip_log("Ecriture fichier $fichier impossible", _LOG_INFO_IMPORTANTE);
+
+    return false;
 }
 
 /**
@@ -314,12 +314,12 @@ 
  *     Écriture avec troncation ?
  */
 function ecrire_fichier_securise($fichier, $contenu, $ecrire_quand_meme = false, $truncate = true) {
-	if (substr($fichier, -4) !== '.php') {
-		spip_log('Erreur de programmation: ' . $fichier . ' doit finir par .php');
-	}
-	$contenu = '<' . "?php die ('Acces interdit'); ?" . ">\n" . $contenu;
+    if (substr($fichier, -4) !== '.php') {
+        spip_log('Erreur de programmation: ' . $fichier . ' doit finir par .php');
+    }
+    $contenu = '<' . "?php die ('Acces interdit'); ?" . ">\n" . $contenu;
 
-	return ecrire_fichier($fichier, $contenu, $ecrire_quand_meme, $truncate);
+    return ecrire_fichier($fichier, $contenu, $ecrire_quand_meme, $truncate);
 }
 
 
@@ -330,25 +330,25 @@ 
  * @return bool
  */
 function ecrire_fichier_calcule_si_modifie($fichier, $contenu, $force = false, $use_copy = false) {
-	$fichier_tmp = $fichier . '.last';
-	if (!ecrire_fichier($fichier_tmp, $contenu, true)) {
-		return false;
-	}
-	if (
-		$force
-		or !file_exists($fichier)
-		or md5_file($fichier) != md5_file($fichier_tmp)
-	) {
-		if ($use_copy) {
-			@copy($fichier_tmp, $fichier);
-		}
-		else {
-			@rename($fichier_tmp, $fichier);
-		}
-		// eviter que PHP ne reserve le vieux timestamp
-		clearstatcache(true, $fichier);
-	}
-	return true;
+    $fichier_tmp = $fichier . '.last';
+    if (!ecrire_fichier($fichier_tmp, $contenu, true)) {
+        return false;
+    }
+    if (
+        $force
+        or !file_exists($fichier)
+        or md5_file($fichier) != md5_file($fichier_tmp)
+    ) {
+        if ($use_copy) {
+            @copy($fichier_tmp, $fichier);
+        }
+        else {
+            @rename($fichier_tmp, $fichier);
+        }
+        // eviter que PHP ne reserve le vieux timestamp
+        clearstatcache(true, $fichier);
+    }
+    return true;
 }
 
 
@@ -369,11 +369,11 @@ 
  *     true si l'opération a réussie, false sinon.
  */
 function lire_fichier_securise($fichier, &$contenu, $options = []) {
-	if ($res = lire_fichier($fichier, $contenu, $options)) {
-		$contenu = substr($contenu, strlen('<' . "?php die ('Acces interdit'); ?" . ">\n"));
-	}
+    if ($res = lire_fichier($fichier, $contenu, $options)) {
+        $contenu = substr($contenu, strlen('<' . "?php die ('Acces interdit'); ?" . ">\n"));
+    }
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -388,25 +388,25 @@ 
  *     Chemin du fichier
  **/
 function raler_fichier($fichier) {
-	if (!defined('_SPIP_ECRIRE_SCRIPT')) {
-		spip_initialisation_suite();
-	}
-	include_spip('inc/minipres');
-	$dir = dirname($fichier);
-	http_response_code(401);
-	echo minipres(_T('texte_inc_meta_2'), "<h4 style='color: red'>"
-		. _T('texte_inc_meta_1', ['fichier' => $fichier])
-		. " <a href='"
-		. generer_url_ecrire('install', "etape=chmod&test_dir=$dir")
-		. "'>"
-		. _T('texte_inc_meta_2')
-		. '</a> '
-		. _T(
-			'texte_inc_meta_3',
-			['repertoire' => joli_repertoire($dir)]
-		)
-		. "</h4>\n");
-	exit;
+    if (!defined('_SPIP_ECRIRE_SCRIPT')) {
+        spip_initialisation_suite();
+    }
+    include_spip('inc/minipres');
+    $dir = dirname($fichier);
+    http_response_code(401);
+    echo minipres(_T('texte_inc_meta_2'), "<h4 style='color: red'>"
+        . _T('texte_inc_meta_1', ['fichier' => $fichier])
+        . " <a href='"
+        . generer_url_ecrire('install', "etape=chmod&test_dir=$dir")
+        . "'>"
+        . _T('texte_inc_meta_2')
+        . '</a> '
+        . _T(
+            'texte_inc_meta_3',
+            ['repertoire' => joli_repertoire($dir)]
+        )
+        . "</h4>\n");
+    exit;
 }
 
 
@@ -421,14 +421,14 @@ 
  *     - true si récent, false sinon
  */
 function jeune_fichier($fichier, $n) {
-	if (!file_exists($fichier)) {
-		return false;
-	}
-	if (!$c = @filemtime($fichier)) {
-		return false;
-	}
-
-	return (time() - $n <= $c);
+    if (!file_exists($fichier)) {
+        return false;
+    }
+    if (!$c = @filemtime($fichier)) {
+        return false;
+    }
+
+    return (time() - $n <= $c);
 }
 
 /**
@@ -443,22 +443,22 @@ 
  *     - false si on n'arrive pas poser le verrou ou si la suppression échoue
  */
 function supprimer_fichier($fichier, $lock = true) {
-	if (!@file_exists($fichier)) {
-		return true;
-	}
-
-	if ($lock) {
-		// verrouiller le fichier destination
-		if (!$fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
-			return false;
-		}
-
-		// liberer le verrou
-		spip_fclose_unlock($fp);
-	}
-
-	// supprimer
-	return @unlink($fichier);
+    if (!@file_exists($fichier)) {
+        return true;
+    }
+
+    if ($lock) {
+        // verrouiller le fichier destination
+        if (!$fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
+            return false;
+        }
+
+        // liberer le verrou
+        spip_fclose_unlock($fp);
+    }
+
+    // supprimer
+    return @unlink($fichier);
 }
 
 /**
@@ -468,12 +468,12 @@ 
  *     Chemin du fichier
  */
 function spip_unlink($f) {
-	if (!is_dir($f)) {
-		supprimer_fichier($f, false);
-	} else {
-		@unlink("$f/.ok");
-		@rmdir($f);
-	}
+    if (!is_dir($f)) {
+        supprimer_fichier($f, false);
+    } else {
+        @unlink("$f/.ok");
+        @rmdir($f);
+    }
 }
 
 /**
@@ -487,26 +487,26 @@ 
  *   The absolute path of the PHP file to invalidate.
  */
 function spip_clear_opcode_cache($filepath) {
-	clearstatcache(true, $filepath);
-
-	// Zend OPcache
-	if (function_exists('opcache_invalidate')) {
-		$invalidate = @opcache_invalidate($filepath, true);
-		// si l'invalidation a echoue lever un flag
-		if (!$invalidate and !defined('_spip_attend_invalidation_opcode_cache')) {
-			define('_spip_attend_invalidation_opcode_cache', true);
-		}
-	} elseif (!defined('_spip_attend_invalidation_opcode_cache')) {
-		// n'agira que si opcache est effectivement actif (il semble qu'on a pas toujours la fonction opcache_invalidate)
-		define('_spip_attend_invalidation_opcode_cache', true);
-	}
-	// APC.
-	if (function_exists('apc_delete_file')) {
-		// apc_delete_file() throws a PHP warning in case the specified file was
-		// not compiled yet.
-		// @see http://php.net/apc-delete-file
-		@apc_delete_file($filepath);
-	}
+    clearstatcache(true, $filepath);
+
+    // Zend OPcache
+    if (function_exists('opcache_invalidate')) {
+        $invalidate = @opcache_invalidate($filepath, true);
+        // si l'invalidation a echoue lever un flag
+        if (!$invalidate and !defined('_spip_attend_invalidation_opcode_cache')) {
+            define('_spip_attend_invalidation_opcode_cache', true);
+        }
+    } elseif (!defined('_spip_attend_invalidation_opcode_cache')) {
+        // n'agira que si opcache est effectivement actif (il semble qu'on a pas toujours la fonction opcache_invalidate)
+        define('_spip_attend_invalidation_opcode_cache', true);
+    }
+    // APC.
+    if (function_exists('apc_delete_file')) {
+        // apc_delete_file() throws a PHP warning in case the specified file was
+        // not compiled yet.
+        // @see http://php.net/apc-delete-file
+        @apc_delete_file($filepath);
+    }
 }
 
 /**
@@ -529,25 +529,25 @@ 
  *
  */
 function spip_attend_invalidation_opcode_cache($timestamp = null) {
-	if (
-		function_exists('opcache_get_configuration')
-		and @ini_get('opcache.enable')
-		and @ini_get('opcache.validate_timestamps')
-		and ($duree = intval(@ini_get('opcache.revalidate_freq')) or $duree = 2)
-		and defined('_spip_attend_invalidation_opcode_cache') // des invalidations ont echouees
-	) {
-		$wait = $duree + 1;
-		if ($timestamp) {
-			$wait -= (time() - $timestamp);
-			if ($wait < 0) {
-				$wait = 0;
-			}
-		}
-		spip_log('Probleme de configuration opcache.revalidate_freq ' . $duree . 's : on attend ' . $wait . 's', _LOG_INFO_IMPORTANTE);
-		if ($wait) {
-			sleep($duree + 1);
-		}
-	}
+    if (
+        function_exists('opcache_get_configuration')
+        and @ini_get('opcache.enable')
+        and @ini_get('opcache.validate_timestamps')
+        and ($duree = intval(@ini_get('opcache.revalidate_freq')) or $duree = 2)
+        and defined('_spip_attend_invalidation_opcode_cache') // des invalidations ont echouees
+    ) {
+        $wait = $duree + 1;
+        if ($timestamp) {
+            $wait -= (time() - $timestamp);
+            if ($wait < 0) {
+                $wait = 0;
+            }
+        }
+        spip_log('Probleme de configuration opcache.revalidate_freq ' . $duree . 's : on attend ' . $wait . 's', _LOG_INFO_IMPORTANTE);
+        if ($wait) {
+            sleep($duree + 1);
+        }
+    }
 }
 
 
@@ -560,26 +560,26 @@ 
  * @return bool Suppression reussie.
  */
 function supprimer_repertoire($dir) {
-	if (!file_exists($dir)) {
-		return true;
-	}
-	if (!is_dir($dir) || is_link($dir)) {
-		return @unlink($dir);
-	}
-
-	foreach (scandir($dir) as $item) {
-		if ($item == '.' || $item == '..') {
-			continue;
-		}
-		if (!supprimer_repertoire($dir . '/' . $item)) {
-			@chmod($dir . '/' . $item, 0777);
-			if (!supprimer_repertoire($dir . '/' . $item)) {
-				return false;
-			}
-		};
-	}
-
-	return @rmdir($dir);
+    if (!file_exists($dir)) {
+        return true;
+    }
+    if (!is_dir($dir) || is_link($dir)) {
+        return @unlink($dir);
+    }
+
+    foreach (scandir($dir) as $item) {
+        if ($item == '.' || $item == '..') {
+            continue;
+        }
+        if (!supprimer_repertoire($dir . '/' . $item)) {
+            @chmod($dir . '/' . $item, 0777);
+            if (!supprimer_repertoire($dir . '/' . $item)) {
+                return false;
+            }
+        };
+    }
+
+    return @rmdir($dir);
 }
 
 
@@ -608,57 +608,57 @@ 
  *     Chemin du répertoire créé.
  **/
 function sous_repertoire($base, $subdir = '', $nobase = false, $tantpis = false) {
-	static $dirs = [];
-
-	$base = str_replace('//', '/', $base);
-
-	# suppr le dernier caractere si c'est un /
-	$base = rtrim($base, '/');
-
-	if (!strlen($subdir)) {
-		$n = strrpos($base, '/');
-		if ($n === false) {
-			return $nobase ? '' : ($base . '/');
-		}
-		$subdir = substr($base, $n + 1);
-		$base = substr($base, 0, $n + 1);
-	} else {
-		$base .= '/';
-		$subdir = str_replace('/', '', $subdir);
-	}
-
-	$baseaff = $nobase ? '' : $base;
-	if (isset($dirs[$base . $subdir])) {
-		return $baseaff . $dirs[$base . $subdir];
-	}
-
-	$path = $base . $subdir; # $path = 'IMG/distant/pdf' ou 'IMG/distant_pdf'
-
-	if (file_exists("$path/.ok")) {
-		return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
-	}
-
-	@mkdir($path, _SPIP_CHMOD);
-	@chmod($path, _SPIP_CHMOD);
-
-	if (is_dir($path) && is_writable($path)) {
-		@touch("$path/.ok");
-		spip_log("creation $base$subdir/");
-
-		return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
-	}
-
-	// en cas d'echec c'est peut etre tout simplement que le disque est plein :
-	// l'inode du fichier dir_test existe, mais impossible d'y mettre du contenu
-	spip_log("echec creation $base${subdir}");
-	if ($tantpis) {
-		return '';
-	}
-	if (!_DIR_RESTREINT) {
-		$base = preg_replace(',^' . _DIR_RACINE . ',', '', $base);
-	}
-	$base .= $subdir;
-	raler_fichier($base . '/.ok');
+    static $dirs = [];
+
+    $base = str_replace('//', '/', $base);
+
+    # suppr le dernier caractere si c'est un /
+    $base = rtrim($base, '/');
+
+    if (!strlen($subdir)) {
+        $n = strrpos($base, '/');
+        if ($n === false) {
+            return $nobase ? '' : ($base . '/');
+        }
+        $subdir = substr($base, $n + 1);
+        $base = substr($base, 0, $n + 1);
+    } else {
+        $base .= '/';
+        $subdir = str_replace('/', '', $subdir);
+    }
+
+    $baseaff = $nobase ? '' : $base;
+    if (isset($dirs[$base . $subdir])) {
+        return $baseaff . $dirs[$base . $subdir];
+    }
+
+    $path = $base . $subdir; # $path = 'IMG/distant/pdf' ou 'IMG/distant_pdf'
+
+    if (file_exists("$path/.ok")) {
+        return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
+    }
+
+    @mkdir($path, _SPIP_CHMOD);
+    @chmod($path, _SPIP_CHMOD);
+
+    if (is_dir($path) && is_writable($path)) {
+        @touch("$path/.ok");
+        spip_log("creation $base$subdir/");
+
+        return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
+    }
+
+    // en cas d'echec c'est peut etre tout simplement que le disque est plein :
+    // l'inode du fichier dir_test existe, mais impossible d'y mettre du contenu
+    spip_log("echec creation $base${subdir}");
+    if ($tantpis) {
+        return '';
+    }
+    if (!_DIR_RESTREINT) {
+        $base = preg_replace(',^' . _DIR_RACINE . ',', '', $base);
+    }
+    $base .= $subdir;
+    raler_fichier($base . '/.ok');
 }
 
 
@@ -691,56 +691,56 @@ 
  *     Chemins des fichiers trouvés.
  **/
 function preg_files($dir, $pattern = -1 /* AUTO */, $maxfiles = 10000, $recurs = []) {
-	$nbfiles = 0;
-	if ($pattern == -1) {
-		$pattern = '';
-	}
-	$fichiers = [];
-	// revenir au repertoire racine si on a recu dossier/truc
-	// pour regarder dossier/truc/ ne pas oublier le / final
-	$dir = preg_replace(',/[^/]*$,', '', $dir);
-	if ($dir == '') {
-		$dir = '.';
-	}
-
-	if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
-		while (($f = readdir($d)) !== false && ($nbfiles < $maxfiles)) {
-			if (
-				$f[0] != '.' # ignorer . .. .svn etc
-				and $f != 'CVS'
-				and $f != 'remove.txt'
-				and is_readable($f = "$dir/$f")
-			) {
-				if (is_file($f)) {
-					if (!$pattern or preg_match(";$pattern;iS", $f)) {
-						$fichiers[] = $f;
-						$nbfiles++;
-					}
-				} else {
-					if (is_dir($f) and is_array($recurs)) {
-						$rp = @realpath($f);
-						if (!is_string($rp) or !strlen($rp)) {
-							$rp = $f;
-						} # realpath n'est peut etre pas autorise
-						if (!isset($recurs[$rp])) {
-							$recurs[$rp] = true;
-							$beginning = $fichiers;
-							$end = preg_files(
-								"$f/",
-								$pattern,
-								$maxfiles - $nbfiles,
-								$recurs
-							);
-							$fichiers = array_merge((array)$beginning, (array)$end);
-							$nbfiles = count($fichiers);
-						}
-					}
-				}
-			}
-		}
-		closedir($d);
-	}
-	sort($fichiers);
-
-	return $fichiers;
+    $nbfiles = 0;
+    if ($pattern == -1) {
+        $pattern = '';
+    }
+    $fichiers = [];
+    // revenir au repertoire racine si on a recu dossier/truc
+    // pour regarder dossier/truc/ ne pas oublier le / final
+    $dir = preg_replace(',/[^/]*$,', '', $dir);
+    if ($dir == '') {
+        $dir = '.';
+    }
+
+    if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
+        while (($f = readdir($d)) !== false && ($nbfiles < $maxfiles)) {
+            if (
+                $f[0] != '.' # ignorer . .. .svn etc
+                and $f != 'CVS'
+                and $f != 'remove.txt'
+                and is_readable($f = "$dir/$f")
+            ) {
+                if (is_file($f)) {
+                    if (!$pattern or preg_match(";$pattern;iS", $f)) {
+                        $fichiers[] = $f;
+                        $nbfiles++;
+                    }
+                } else {
+                    if (is_dir($f) and is_array($recurs)) {
+                        $rp = @realpath($f);
+                        if (!is_string($rp) or !strlen($rp)) {
+                            $rp = $f;
+                        } # realpath n'est peut etre pas autorise
+                        if (!isset($recurs[$rp])) {
+                            $recurs[$rp] = true;
+                            $beginning = $fichiers;
+                            $end = preg_files(
+                                "$f/",
+                                $pattern,
+                                $maxfiles - $nbfiles,
+                                $recurs
+                            );
+                            $fichiers = array_merge((array)$beginning, (array)$end);
+                            $nbfiles = count($fichiers);
+                        }
+                    }
+                }
+            }
+        }
+        closedir($d);
+    }
+    sort($fichiers);
+
+    return $fichiers;
 }

ecrire/inc/log.php

Indentation +102 added lines, -102 removed lines

@@ -11,109 +11,109 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function inc_log_dist($message, $logname = null, $logdir = null, $logsuf = null) {
-	static $test_repertoire = [];
-	static $compteur = [];
-	static $debugverb = ''; // pour ne pas le recalculer au reappel
-
-	if (is_null($logname) or !is_string($logname)) {
-		$logname = defined('_FILE_LOG') ? _FILE_LOG : 'spip';
-	}
-	if (!isset($compteur[$logname])) {
-		$compteur[$logname] = 0;
-	}
-	if (
-		$logname != 'maj'
-		and defined('_MAX_LOG')
-		and (
-			$compteur[$logname]++ > _MAX_LOG
-			or !$GLOBALS['nombre_de_logs']
-			or !$GLOBALS['taille_des_logs']
-		)
-	) {
-		return;
-	}
-
-	// si spip_log() est appelé dans mes_options, toutes les constantes n'ont pas été définies
-	$logfile =
-		($logdir ?? (defined('_DIR_LOG') ? _DIR_LOG : _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES))
-		. $logname
-		. ($logsuf ?? (defined('_FILE_LOG_SUFFIX') ? _FILE_LOG_SUFFIX : '.log'));
-
-	if (!isset($test_repertoire[$d = dirname($logfile)])) {
-		$test_repertoire[$d] = false; // eviter une recursivite en cas d'erreur de sous_repertoire
-		$test_repertoire[$d] = (@is_dir($d) ? true : (function_exists('sous_repertoire') ? sous_repertoire(
-			$d,
-			'',
-			false,
-			true
-		) : false));
-	}
-
-	// Si le repertoire défini n'existe pas, poser dans tmp/
-	if (!$test_repertoire[$d]) {
-		$logfile = _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES . $logname . '.log';
-	}
-
-	$rotate = 0;
-	$pid = '(pid ' . @getmypid() . ')';
-
-	// accepter spip_log( Array )
-	if (!is_string($message)) {
-		$message = var_export($message, true);
-	}
-
-	if (!$debugverb and defined('_LOG_FILELINE') and _LOG_FILELINE) {
-		$debug = debug_backtrace();
-		$l = $debug[1]['line'];
-		$fi = $debug[1]['file'];
-		if (strncmp($fi, _ROOT_RACINE, strlen(_ROOT_RACINE)) == 0) {
-			$fi = substr($fi, strlen(_ROOT_RACINE));
-		}
-		$fu = $debug[2]['function'] ?? '';
-		$debugverb = "$fi:L$l:$fu" . '():';
-	}
-
-	$m = date('Y-m-d H:i:s') . ' ' . ($GLOBALS['ip'] ?? '') . ' ' . $pid . ' '
-		//distinguer les logs prives et publics dans les grep
-		. $debugverb
-		. (test_espace_prive() ? ':Pri:' : ':Pub:')
-		. preg_replace("/\n*$/", "\n", $message);
-
-
-	if (
-		@is_readable($logfile)
-		and (!$s = @filesize($logfile) or $s > $GLOBALS['taille_des_logs'] * 1024)
-	) {
-		$rotate = $GLOBALS['nombre_de_logs'];
-		$m .= "[-- rotate --]\n";
-	}
-
-	$f = @fopen($logfile, 'ab');
-	if ($f) {
-		fputs($f, (defined('_LOG_BRUT') and _LOG_BRUT) ? $m : str_replace('<', '&lt;', $m));
-		fclose($f);
-	}
-
-	if (
-		$rotate-- > 0
-		and function_exists('spip_unlink')
-	) {
-		spip_unlink($logfile . '.' . $rotate);
-		while ($rotate--) {
-			@rename($logfile . ($rotate ? '.' . $rotate : ''), $logfile . '.' . ($rotate + 1));
-		}
-	}
-
-	// Dupliquer les erreurs specifiques dans le log general
-	if (
-		defined('_FILE_LOG')
-		and ($logname !== _FILE_LOG)
-	) {
-		inc_log_dist($logname == 'maj' ? 'cf maj.log' : $message);
-	}
-	$debugverb = '';
+    static $test_repertoire = [];
+    static $compteur = [];
+    static $debugverb = ''; // pour ne pas le recalculer au reappel
+
+    if (is_null($logname) or !is_string($logname)) {
+        $logname = defined('_FILE_LOG') ? _FILE_LOG : 'spip';
+    }
+    if (!isset($compteur[$logname])) {
+        $compteur[$logname] = 0;
+    }
+    if (
+        $logname != 'maj'
+        and defined('_MAX_LOG')
+        and (
+            $compteur[$logname]++ > _MAX_LOG
+            or !$GLOBALS['nombre_de_logs']
+            or !$GLOBALS['taille_des_logs']
+        )
+    ) {
+        return;
+    }
+
+    // si spip_log() est appelé dans mes_options, toutes les constantes n'ont pas été définies
+    $logfile =
+        ($logdir ?? (defined('_DIR_LOG') ? _DIR_LOG : _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES))
+        . $logname
+        . ($logsuf ?? (defined('_FILE_LOG_SUFFIX') ? _FILE_LOG_SUFFIX : '.log'));
+
+    if (!isset($test_repertoire[$d = dirname($logfile)])) {
+        $test_repertoire[$d] = false; // eviter une recursivite en cas d'erreur de sous_repertoire
+        $test_repertoire[$d] = (@is_dir($d) ? true : (function_exists('sous_repertoire') ? sous_repertoire(
+            $d,
+            '',
+            false,
+            true
+        ) : false));
+    }
+
+    // Si le repertoire défini n'existe pas, poser dans tmp/
+    if (!$test_repertoire[$d]) {
+        $logfile = _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES . $logname . '.log';
+    }
+
+    $rotate = 0;
+    $pid = '(pid ' . @getmypid() . ')';
+
+    // accepter spip_log( Array )
+    if (!is_string($message)) {
+        $message = var_export($message, true);
+    }
+
+    if (!$debugverb and defined('_LOG_FILELINE') and _LOG_FILELINE) {
+        $debug = debug_backtrace();
+        $l = $debug[1]['line'];
+        $fi = $debug[1]['file'];
+        if (strncmp($fi, _ROOT_RACINE, strlen(_ROOT_RACINE)) == 0) {
+            $fi = substr($fi, strlen(_ROOT_RACINE));
+        }
+        $fu = $debug[2]['function'] ?? '';
+        $debugverb = "$fi:L$l:$fu" . '():';
+    }
+
+    $m = date('Y-m-d H:i:s') . ' ' . ($GLOBALS['ip'] ?? '') . ' ' . $pid . ' '
+        //distinguer les logs prives et publics dans les grep
+        . $debugverb
+        . (test_espace_prive() ? ':Pri:' : ':Pub:')
+        . preg_replace("/\n*$/", "\n", $message);
+
+
+    if (
+        @is_readable($logfile)
+        and (!$s = @filesize($logfile) or $s > $GLOBALS['taille_des_logs'] * 1024)
+    ) {
+        $rotate = $GLOBALS['nombre_de_logs'];
+        $m .= "[-- rotate --]\n";
+    }
+
+    $f = @fopen($logfile, 'ab');
+    if ($f) {
+        fputs($f, (defined('_LOG_BRUT') and _LOG_BRUT) ? $m : str_replace('<', '&lt;', $m));
+        fclose($f);
+    }
+
+    if (
+        $rotate-- > 0
+        and function_exists('spip_unlink')
+    ) {
+        spip_unlink($logfile . '.' . $rotate);
+        while ($rotate--) {
+            @rename($logfile . ($rotate ? '.' . $rotate : ''), $logfile . '.' . ($rotate + 1));
+        }
+    }
+
+    // Dupliquer les erreurs specifiques dans le log general
+    if (
+        defined('_FILE_LOG')
+        and ($logname !== _FILE_LOG)
+    ) {
+        inc_log_dist($logname == 'maj' ? 'cf maj.log' : $message);
+    }
+    $debugverb = '';
 }

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 strpos($GLOBALS['meta'][$cfg], ':') === false
-				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 strpos($GLOBALS['meta'][$cfg], ':') === false
+                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/utils.php

Indentation +2265 added lines, -2266 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -48,71 +48,71 @@ 
  *     Nom de la fonction, ou false.
  */
 function charger_fonction($nom, $dossier = 'exec', $continue = false) {
-	static $echecs = [];
-
-	if (strlen($dossier) and substr($dossier, -1) != '/') {
-		$dossier .= '/';
-	}
-	$f = str_replace('/', '_', $dossier) . $nom;
-
-	if (function_exists($f)) {
-		return $f;
-	}
-	if (function_exists($g = $f . '_dist')) {
-		return $g;
-	}
-
-	if (isset($echecs[$f])) {
-		return $echecs[$f];
-	}
-	// Sinon charger le fichier de declaration si plausible
-
-	if (!preg_match(',^\w+$,', $f)) {
-		if ($continue) {
-			return false;
-		} //appel interne, on passe
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	}
-
-	// passer en minuscules (cf les balises de formulaires)
-	// et inclure le fichier
-	if (
-		!$inc = include_spip($dossier . ($d = strtolower($nom)))
-		// si le fichier truc/machin/nom.php n'existe pas,
-		// la fonction peut etre definie dans truc/machin.php qui regroupe plusieurs petites fonctions
-		and strlen(dirname($dossier)) and dirname($dossier) != '.'
-	) {
-		include_spip(substr($dossier, 0, -1));
-	}
-	if (function_exists($f)) {
-		return $f;
-	}
-	if (function_exists($g)) {
-		return $g;
-	}
-
-	if ($continue) {
-		return $echecs[$f] = false;
-	}
-
-	// Echec : message d'erreur
-	spip_log("fonction $nom ($f ou $g) indisponible" .
-		($inc ? '' : " (fichier $d absent de $dossier)"));
-
-	include_spip('inc/minipres');
-	echo minipres(
-		_T('forum_titre_erreur'),
-		$inc ?
-			_T('fonction_introuvable', ['fonction' => '<code>' . spip_htmlentities($f) . '</code>'])
-			. '<br />'
-			. _T('fonction_introuvable', ['fonction' => '<code>' . spip_htmlentities($g) . '</code>'])
-			:
-			_T('fichier_introuvable', ['fichier' => '<code>' . spip_htmlentities($d) . '</code>']),
-		['all_inline' => true,'status' => 404]
-	);
-	exit;
+    static $echecs = [];
+
+    if (strlen($dossier) and substr($dossier, -1) != '/') {
+        $dossier .= '/';
+    }
+    $f = str_replace('/', '_', $dossier) . $nom;
+
+    if (function_exists($f)) {
+        return $f;
+    }
+    if (function_exists($g = $f . '_dist')) {
+        return $g;
+    }
+
+    if (isset($echecs[$f])) {
+        return $echecs[$f];
+    }
+    // Sinon charger le fichier de declaration si plausible
+
+    if (!preg_match(',^\w+$,', $f)) {
+        if ($continue) {
+            return false;
+        } //appel interne, on passe
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    }
+
+    // passer en minuscules (cf les balises de formulaires)
+    // et inclure le fichier
+    if (
+        !$inc = include_spip($dossier . ($d = strtolower($nom)))
+        // si le fichier truc/machin/nom.php n'existe pas,
+        // la fonction peut etre definie dans truc/machin.php qui regroupe plusieurs petites fonctions
+        and strlen(dirname($dossier)) and dirname($dossier) != '.'
+    ) {
+        include_spip(substr($dossier, 0, -1));
+    }
+    if (function_exists($f)) {
+        return $f;
+    }
+    if (function_exists($g)) {
+        return $g;
+    }
+
+    if ($continue) {
+        return $echecs[$f] = false;
+    }
+
+    // Echec : message d'erreur
+    spip_log("fonction $nom ($f ou $g) indisponible" .
+        ($inc ? '' : " (fichier $d absent de $dossier)"));
+
+    include_spip('inc/minipres');
+    echo minipres(
+        _T('forum_titre_erreur'),
+        $inc ?
+            _T('fonction_introuvable', ['fonction' => '<code>' . spip_htmlentities($f) . '</code>'])
+            . '<br />'
+            . _T('fonction_introuvable', ['fonction' => '<code>' . spip_htmlentities($g) . '</code>'])
+            :
+            _T('fichier_introuvable', ['fichier' => '<code>' . spip_htmlentities($d) . '</code>']),
+        ['all_inline' => true,'status' => 404]
+    );
+    exit;
 }
 
 /**
@@ -122,17 +122,17 @@ 
  * @return bool
  */
 function include_once_check($file) {
-	if (file_exists($file)) {
-		include_once $file;
+    if (file_exists($file)) {
+        include_once $file;
 
-		return true;
-	}
-	$crash = (isset($GLOBALS['meta']['message_crash_plugins']) ? unserialize($GLOBALS['meta']['message_crash_plugins']) : '');
-	$crash = ($crash ?: []);
-	$crash[$file] = true;
-	ecrire_meta('message_crash_plugins', serialize($crash));
+        return true;
+    }
+    $crash = (isset($GLOBALS['meta']['message_crash_plugins']) ? unserialize($GLOBALS['meta']['message_crash_plugins']) : '');
+    $crash = ($crash ?: []);
+    $crash[$file] = true;
+    ecrire_meta('message_crash_plugins', serialize($crash));
 
-	return false;
+    return false;
 }
 
 
@@ -156,7 +156,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function include_spip($f, $include = true) {
-	return find_in_path($f . '.php', '', $include);
+    return find_in_path($f . '.php', '', $include);
 }
 
 /**
@@ -176,7 +176,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function require_spip($f) {
-	return find_in_path($f . '.php', '', 'required');
+    return find_in_path($f . '.php', '', 'required');
 }
 
 
@@ -185,27 +185,27 @@ 
  * quand on a besoin dans le PHP de filtres/fonctions qui y sont definis
  */
 function include_fichiers_fonctions() {
-	static $done = false;
-	if (!$done) {
-		include_spip('inc/lang');
-
-		// NB: mes_fonctions peut initialiser $dossier_squelettes (old-style)
-		// donc il faut l'inclure "en globals"
-		if ($f = find_in_path('mes_fonctions.php')) {
-			global $dossier_squelettes;
-			include_once(_ROOT_CWD . $f);
-		}
-
-		if (@is_readable(_CACHE_PLUGINS_FCT)) {
-			// chargement optimise precompile
-			include_once(_CACHE_PLUGINS_FCT);
-		}
-		if (test_espace_prive()) {
-			include_spip('inc/filtres_ecrire');
-		}
-		include_spip('public/fonctions'); // charger les fichiers fonctions associes aux criteres, balises..
-		$done = true;
-	}
+    static $done = false;
+    if (!$done) {
+        include_spip('inc/lang');
+
+        // NB: mes_fonctions peut initialiser $dossier_squelettes (old-style)
+        // donc il faut l'inclure "en globals"
+        if ($f = find_in_path('mes_fonctions.php')) {
+            global $dossier_squelettes;
+            include_once(_ROOT_CWD . $f);
+        }
+
+        if (@is_readable(_CACHE_PLUGINS_FCT)) {
+            // chargement optimise precompile
+            include_once(_CACHE_PLUGINS_FCT);
+        }
+        if (test_espace_prive()) {
+            include_spip('inc/filtres_ecrire');
+        }
+        include_spip('public/fonctions'); // charger les fichiers fonctions associes aux criteres, balises..
+        $done = true;
+    }
 }
 
 /**
@@ -231,23 +231,23 @@ 
  *     Les paramètres du pipeline modifiés
  **/
 function minipipe($fonc, &$val) {
-	// fonction
-	if (function_exists($fonc)) {
-		$val = $fonc($val);
-	} // Class::Methode
-	else {
-		if (
-			preg_match('/^(\w*)::(\w*)$/S', $fonc, $regs)
-			and $methode = [$regs[1], $regs[2]]
-			and is_callable($methode)
-		) {
-			$val = $methode($val);
-		} else {
-			spip_log("Erreur - '$fonc' non definie !");
-		}
-	}
-
-	return $val;
+    // fonction
+    if (function_exists($fonc)) {
+        $val = $fonc($val);
+    } // Class::Methode
+    else {
+        if (
+            preg_match('/^(\w*)::(\w*)$/S', $fonc, $regs)
+            and $methode = [$regs[1], $regs[2]]
+            and is_callable($methode)
+        ) {
+            $val = $methode($val);
+        } else {
+            spip_log("Erreur - '$fonc' non definie !");
+        }
+    }
+
+    return $val;
 }
 
 /**
@@ -278,46 +278,46 @@ 
  *     Résultat
  */
 function pipeline($action, $val = null) {
-	static $charger;
-
-	// chargement initial des fonctions mises en cache, ou generation du cache
-	if (!$charger) {
-		if (!($ok = @is_readable($charger = _CACHE_PIPELINES))) {
-			include_spip('inc/plugin');
-			// generer les fichiers php precompiles
-			// de chargement des plugins et des pipelines
-			actualise_plugins_actifs();
-			if (!($ok = @is_readable($charger))) {
-				spip_log("fichier $charger pas cree");
-			}
-		}
-
-		if ($ok) {
-			include_once $charger;
-		}
-	}
-
-	// appliquer notre fonction si elle existe
-	$fonc = 'execute_pipeline_' . strtolower($action);
-	if (function_exists($fonc)) {
-		$val = $fonc($val);
-	} // plantage ?
-	else {
-		spip_log("fonction $fonc absente : pipeline desactive", _LOG_ERREUR);
-	}
-
-	// si le flux est une table avec 2 cle args&data
-	// on ne ressort du pipe que les donnees dans 'data'
-	// array_key_exists pour php 4.1.0
-	if (
-		is_array($val)
-		and count($val) == 2
-		and (array_key_exists('data', $val))
-	) {
-		$val = $val['data'];
-	}
-
-	return $val;
+    static $charger;
+
+    // chargement initial des fonctions mises en cache, ou generation du cache
+    if (!$charger) {
+        if (!($ok = @is_readable($charger = _CACHE_PIPELINES))) {
+            include_spip('inc/plugin');
+            // generer les fichiers php precompiles
+            // de chargement des plugins et des pipelines
+            actualise_plugins_actifs();
+            if (!($ok = @is_readable($charger))) {
+                spip_log("fichier $charger pas cree");
+            }
+        }
+
+        if ($ok) {
+            include_once $charger;
+        }
+    }
+
+    // appliquer notre fonction si elle existe
+    $fonc = 'execute_pipeline_' . strtolower($action);
+    if (function_exists($fonc)) {
+        $val = $fonc($val);
+    } // plantage ?
+    else {
+        spip_log("fonction $fonc absente : pipeline desactive", _LOG_ERREUR);
+    }
+
+    // si le flux est une table avec 2 cle args&data
+    // on ne ressort du pipe que les donnees dans 'data'
+    // array_key_exists pour php 4.1.0
+    if (
+        is_array($val)
+        and count($val) == 2
+        and (array_key_exists('data', $val))
+    ) {
+        $val = $val['data'];
+    }
+
+    return $val;
 }
 
 /**
@@ -361,38 +361,38 @@ 
  *     paramètre est planté pour cause de compatibilité ascendante.
  */
 function spip_log($message = null, $name = null) {
-	static $pre = [];
-	static $log;
-	preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string)$name, $regs);
-	if (!isset($regs[1]) or !$logname = $regs[1]) {
-		$logname = null;
-	}
-	if (!isset($regs[2])) {
-		$niveau = _LOG_INFO;
-	}
-	else {
-		$niveau = intval($regs[2]);
-	}
-
-	if ($niveau <= (defined('_LOG_FILTRE_GRAVITE') ? _LOG_FILTRE_GRAVITE : _LOG_INFO_IMPORTANTE)) {
-		if (!$pre) {
-			$pre = [
-				_LOG_HS => 'HS:',
-				_LOG_ALERTE_ROUGE => 'ALERTE:',
-				_LOG_CRITIQUE => 'CRITIQUE:',
-				_LOG_ERREUR => 'ERREUR:',
-				_LOG_AVERTISSEMENT => 'WARNING:',
-				_LOG_INFO_IMPORTANTE => '!INFO:',
-				_LOG_INFO => 'info:',
-				_LOG_DEBUG => 'debug:'
-			];
-			$log = charger_fonction('log', 'inc');
-		}
-		if (!is_string($message)) {
-			$message = print_r($message, true);
-		}
-		$log($pre[$niveau] . ' ' . $message, $logname);
-	}
+    static $pre = [];
+    static $log;
+    preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string)$name, $regs);
+    if (!isset($regs[1]) or !$logname = $regs[1]) {
+        $logname = null;
+    }
+    if (!isset($regs[2])) {
+        $niveau = _LOG_INFO;
+    }
+    else {
+        $niveau = intval($regs[2]);
+    }
+
+    if ($niveau <= (defined('_LOG_FILTRE_GRAVITE') ? _LOG_FILTRE_GRAVITE : _LOG_INFO_IMPORTANTE)) {
+        if (!$pre) {
+            $pre = [
+                _LOG_HS => 'HS:',
+                _LOG_ALERTE_ROUGE => 'ALERTE:',
+                _LOG_CRITIQUE => 'CRITIQUE:',
+                _LOG_ERREUR => 'ERREUR:',
+                _LOG_AVERTISSEMENT => 'WARNING:',
+                _LOG_INFO_IMPORTANTE => '!INFO:',
+                _LOG_INFO => 'info:',
+                _LOG_DEBUG => 'debug:'
+            ];
+            $log = charger_fonction('log', 'inc');
+        }
+        if (!is_string($message)) {
+            $message = print_r($message, true);
+        }
+        $log($pre[$niveau] . ' ' . $message, $logname);
+    }
 }
 
 /**
@@ -403,8 +403,8 @@ 
  * @param array $opt Tableau d'options
  **/
 function journal($phrase, $opt = []) {
-	$journal = charger_fonction('journal', 'inc');
-	$journal($phrase, $opt);
+    $journal = charger_fonction('journal', 'inc');
+    $journal($phrase, $opt);
 }
 
 
@@ -423,37 +423,37 @@ 
  **/
 function _request($var, $c = false) {
 
-	if (is_array($c)) {
-		return $c[$var] ?? null;
-	}
-
-	if (isset($_GET[$var])) {
-		$a = $_GET[$var];
-	} elseif (isset($_POST[$var])) {
-		$a = $_POST[$var];
-	} else {
-		return null;
-	}
-
-	// Si on est en ajax et en POST tout a ete encode
-	// via encodeURIComponent, il faut donc repasser
-	// dans le charset local...
-	if (
-		defined('_AJAX')
-		and _AJAX
-		and isset($GLOBALS['meta']['charset'])
-		and $GLOBALS['meta']['charset'] != 'utf-8'
-		and is_string($a)
-		// check rapide mais pas fiable
-		and preg_match(',[\x80-\xFF],', $a)
-		// check fiable
-		and include_spip('inc/charsets')
-		and is_utf8($a)
-	) {
-		return importer_charset($a, 'utf-8');
-	}
-
-	return $a;
+    if (is_array($c)) {
+        return $c[$var] ?? null;
+    }
+
+    if (isset($_GET[$var])) {
+        $a = $_GET[$var];
+    } elseif (isset($_POST[$var])) {
+        $a = $_POST[$var];
+    } else {
+        return null;
+    }
+
+    // Si on est en ajax et en POST tout a ete encode
+    // via encodeURIComponent, il faut donc repasser
+    // dans le charset local...
+    if (
+        defined('_AJAX')
+        and _AJAX
+        and isset($GLOBALS['meta']['charset'])
+        and $GLOBALS['meta']['charset'] != 'utf-8'
+        and is_string($a)
+        // check rapide mais pas fiable
+        and preg_match(',[\x80-\xFF],', $a)
+        // check fiable
+        and include_spip('inc/charsets')
+        and is_utf8($a)
+    ) {
+        return importer_charset($a, 'utf-8');
+    }
+
+    return $a;
 }
 
 
@@ -471,22 +471,22 @@ 
  *     - false sinon
  **/
 function set_request($var, $val = null, $c = false) {
-	if (is_array($c)) {
-		unset($c[$var]);
-		if ($val !== null) {
-			$c[$var] = $val;
-		}
+    if (is_array($c)) {
+        unset($c[$var]);
+        if ($val !== null) {
+            $c[$var] = $val;
+        }
 
-		return $c;
-	}
+        return $c;
+    }
 
-	unset($_GET[$var]);
-	unset($_POST[$var]);
-	if ($val !== null) {
-		$_GET[$var] = $val;
-	}
+    unset($_GET[$var]);
+    unset($_POST[$var]);
+    if ($val !== null) {
+        $_GET[$var] = $val;
+    }
 
-	return false; # n'affecte pas $c
+    return false; # n'affecte pas $c
 }
 
 /**
@@ -506,25 +506,25 @@ 
  * @return array|mixed|string
  */
 function spip_sanitize_from_request($value, $key, $sanitize_function = 'entites_html') {
-	if (is_array($value)) {
-		if ($key == '*') {
-			$key = array_keys($value);
-		}
-		if (!is_array($key)) {
-			$key = [$key];
-		}
-		foreach ($key as $k) {
-			if (!empty($value[$k])) {
-				$value[$k] = spip_sanitize_from_request($value[$k], $k, $sanitize_function);
-			}
-		}
-		return $value;
-	}
-	// si la valeur vient des GET ou POST on la sanitize
-	if (!empty($value) and $value == _request($key)) {
-		$value = $sanitize_function($value);
-	}
-	return $value;
+    if (is_array($value)) {
+        if ($key == '*') {
+            $key = array_keys($value);
+        }
+        if (!is_array($key)) {
+            $key = [$key];
+        }
+        foreach ($key as $k) {
+            if (!empty($value[$k])) {
+                $value[$k] = spip_sanitize_from_request($value[$k], $k, $sanitize_function);
+            }
+        }
+        return $value;
+    }
+    // si la valeur vient des GET ou POST on la sanitize
+    if (!empty($value) and $value == _request($key)) {
+        $value = $sanitize_function($value);
+    }
+    return $value;
 }
 
 /**
@@ -532,23 +532,22 @@ 
  *
  * On est sur le web, on exclut certains protocoles,
  * notamment 'file://', 'php://' et d'autres…
-
  * @param string $url
  * @return bool
  */
 function tester_url_absolue($url) {
-	$url = trim($url ?? '');
-	if ($url && preg_match(';^([a-z]{3,7}:)?//;Uims', $url, $m)) {
-		if (
-			isset($m[1])
-			and $p = strtolower(rtrim($m[1], ':'))
-			and in_array($p, ['file', 'php', 'zlib', 'glob', 'phar', 'ssh2', 'rar', 'ogg', 'expect', 'zip'])
-		) {
-			return false;
-		}
-		return true;
-	}
-	return false;
+    $url = trim($url ?? '');
+    if ($url && preg_match(';^([a-z]{3,7}:)?//;Uims', $url, $m)) {
+        if (
+            isset($m[1])
+            and $p = strtolower(rtrim($m[1], ':'))
+            and in_array($p, ['file', 'php', 'zlib', 'glob', 'phar', 'ssh2', 'rar', 'ogg', 'expect', 'zip'])
+        ) {
+            return false;
+        }
+        return true;
+    }
+    return false;
 }
 
 /**
@@ -570,100 +569,100 @@ 
  * @return string URL
  */
 function parametre_url($url, $c, $v = null, $sep = '&amp;') {
-	// requete erronnee : plusieurs variable dans $c et aucun $v
-	if (strpos($c, '|') !== false and is_null($v)) {
-		return null;
-	}
-
-	// lever l'#ancre
-	if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
-		$url = $r[1];
-		$ancre = $r[2];
-	} else {
-		$ancre = '';
-	}
-
-	// eclater
-	$url = preg_split(',[?]|&amp;|&,', $url);
-
-	// recuperer la base
-	$a = array_shift($url);
-	if (!$a) {
-		$a = './';
-	}
-
-	// preparer la regexp de maniere securisee
-	$regexp = explode('|', $c);
-	foreach ($regexp as $r => $e) {
-		$regexp[$r] = str_replace('[]', '\[\]', preg_replace(',[^\w\d\[\]-],', '', $e));
-	}
-	$regexp = ',^(' . implode('|', $regexp) . '[[]?[]]?)(=.*)?$,';
-	$ajouts = array_flip(explode('|', $c));
-	$u = is_array($v) ? $v : rawurlencode((string) $v);
-	$testv = (is_array($v) ? count($v) : strlen((string) $v));
-	$v_read = null;
-	// lire les variables et agir
-	foreach ($url as $n => $val) {
-		if (preg_match($regexp, urldecode($val), $r)) {
-			$r = array_pad($r, 3, null);
-			if ($v === null) {
-				// c'est un tableau, on memorise les valeurs
-				if (substr($r[1], -2) == '[]') {
-					if (!$v_read) {
-						$v_read = [];
-					}
-					$v_read[] = $r[2] ? substr($r[2], 1) : '';
-				} // c'est un scalaire, on retourne direct
-				else {
-					return $r[2] ? substr($r[2], 1) : '';
-				}
-			} // suppression
-			elseif (!$testv) {
-				unset($url[$n]);
-			}
-			// Ajout. Pour une variable, remplacer au meme endroit,
-			// pour un tableau ce sera fait dans la prochaine boucle
-			elseif (substr($r[1], -2) != '[]') {
-				$url[$n] = $r[1] . '=' . $u;
-				unset($ajouts[$r[1]]);
-			}
-			// Pour les tableaux on laisse tomber les valeurs de
-			// départ, on remplira à l'étape suivante
-			else {
-				unset($url[$n]);
-			}
-		}
-	}
-
-	// traiter les parametres pas encore trouves
-	if (
-		$v === null
-		and $args = func_get_args()
-		and count($args) == 2
-	) {
-		return $v_read; // rien trouve ou un tableau
-	} elseif ($testv) {
-		foreach ($ajouts as $k => $n) {
-			if (!is_array($v)) {
-				$url[] = $k . '=' . $u;
-			} else {
-				$id = (substr($k, -2) == '[]') ? $k : ($k . '[]');
-				foreach ($v as $w) {
-					$url[] = $id . '=' . (is_array($w) ? 'Array' : rawurlencode($w));
-				}
-			}
-		}
-	}
-
-	// eliminer les vides
-	$url = array_filter($url);
-
-	// recomposer l'adresse
-	if ($url) {
-		$a .= '?' . join($sep, $url);
-	}
-
-	return $a . $ancre;
+    // requete erronnee : plusieurs variable dans $c et aucun $v
+    if (strpos($c, '|') !== false and is_null($v)) {
+        return null;
+    }
+
+    // lever l'#ancre
+    if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+        $url = $r[1];
+        $ancre = $r[2];
+    } else {
+        $ancre = '';
+    }
+
+    // eclater
+    $url = preg_split(',[?]|&amp;|&,', $url);
+
+    // recuperer la base
+    $a = array_shift($url);
+    if (!$a) {
+        $a = './';
+    }
+
+    // preparer la regexp de maniere securisee
+    $regexp = explode('|', $c);
+    foreach ($regexp as $r => $e) {
+        $regexp[$r] = str_replace('[]', '\[\]', preg_replace(',[^\w\d\[\]-],', '', $e));
+    }
+    $regexp = ',^(' . implode('|', $regexp) . '[[]?[]]?)(=.*)?$,';
+    $ajouts = array_flip(explode('|', $c));
+    $u = is_array($v) ? $v : rawurlencode((string) $v);
+    $testv = (is_array($v) ? count($v) : strlen((string) $v));
+    $v_read = null;
+    // lire les variables et agir
+    foreach ($url as $n => $val) {
+        if (preg_match($regexp, urldecode($val), $r)) {
+            $r = array_pad($r, 3, null);
+            if ($v === null) {
+                // c'est un tableau, on memorise les valeurs
+                if (substr($r[1], -2) == '[]') {
+                    if (!$v_read) {
+                        $v_read = [];
+                    }
+                    $v_read[] = $r[2] ? substr($r[2], 1) : '';
+                } // c'est un scalaire, on retourne direct
+                else {
+                    return $r[2] ? substr($r[2], 1) : '';
+                }
+            } // suppression
+            elseif (!$testv) {
+                unset($url[$n]);
+            }
+            // Ajout. Pour une variable, remplacer au meme endroit,
+            // pour un tableau ce sera fait dans la prochaine boucle
+            elseif (substr($r[1], -2) != '[]') {
+                $url[$n] = $r[1] . '=' . $u;
+                unset($ajouts[$r[1]]);
+            }
+            // Pour les tableaux on laisse tomber les valeurs de
+            // départ, on remplira à l'étape suivante
+            else {
+                unset($url[$n]);
+            }
+        }
+    }
+
+    // traiter les parametres pas encore trouves
+    if (
+        $v === null
+        and $args = func_get_args()
+        and count($args) == 2
+    ) {
+        return $v_read; // rien trouve ou un tableau
+    } elseif ($testv) {
+        foreach ($ajouts as $k => $n) {
+            if (!is_array($v)) {
+                $url[] = $k . '=' . $u;
+            } else {
+                $id = (substr($k, -2) == '[]') ? $k : ($k . '[]');
+                foreach ($v as $w) {
+                    $url[] = $id . '=' . (is_array($w) ? 'Array' : rawurlencode($w));
+                }
+            }
+        }
+    }
+
+    // eliminer les vides
+    $url = array_filter($url);
+
+    // recomposer l'adresse
+    if ($url) {
+        $a .= '?' . join($sep, $url);
+    }
+
+    return $a . $ancre;
 }
 
 /**
@@ -681,21 +680,21 @@ 
  * @return string
  */
 function ancre_url($url, $ancre) {
-	// lever l'#ancre
-	if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
-		$url = $r[1];
-	}
-	if (preg_match('/[^-_a-zA-Z0-9]+/S', $ancre)) {
-		if (!function_exists('translitteration')) {
-			include_spip('inc/charsets');
-		}
-		$ancre = preg_replace(
-			['/^[^-_a-zA-Z0-9]+/', '/[^-_a-zA-Z0-9]/'],
-			['', '-'],
-			translitteration($ancre)
-		);
-	}
-	return $url . (strlen($ancre) ? '#' . $ancre : '');
+    // lever l'#ancre
+    if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+        $url = $r[1];
+    }
+    if (preg_match('/[^-_a-zA-Z0-9]+/S', $ancre)) {
+        if (!function_exists('translitteration')) {
+            include_spip('inc/charsets');
+        }
+        $ancre = preg_replace(
+            ['/^[^-_a-zA-Z0-9]+/', '/[^-_a-zA-Z0-9]/'],
+            ['', '-'],
+            translitteration($ancre)
+        );
+    }
+    return $url . (strlen($ancre) ? '#' . $ancre : '');
 }
 
 /**
@@ -705,16 +704,16 @@ 
  * @return string
  */
 function nettoyer_uri($reset = null) {
-	static $done = false;
-	static $propre = '';
-	if (!is_null($reset)) {
-		return $propre = $reset;
-	}
-	if ($done) {
-		return $propre;
-	}
-	$done = true;
-	return $propre = nettoyer_uri_var($GLOBALS['REQUEST_URI']);
+    static $done = false;
+    static $propre = '';
+    if (!is_null($reset)) {
+        return $propre = $reset;
+    }
+    if ($done) {
+        return $propre;
+    }
+    $done = true;
+    return $propre = nettoyer_uri_var($GLOBALS['REQUEST_URI']);
 }
 
 /**
@@ -726,16 +725,16 @@ 
  * @return string
  */
 function nettoyer_uri_var($request_uri) {
-	$uri1 = $request_uri;
-	do {
-		$uri = $uri1;
-		$uri1 = preg_replace(
-			',([?&])(var_[^=&]*|PHPSESSID|fbclid|utm_[^=&]*)=[^&]*(&|$),i',
-			'\1',
-			$uri
-		);
-	} while ($uri <> $uri1);
-	return preg_replace(',[?&]$,', '', $uri1);
+    $uri1 = $request_uri;
+    do {
+        $uri = $uri1;
+        $uri1 = preg_replace(
+            ',([?&])(var_[^=&]*|PHPSESSID|fbclid|utm_[^=&]*)=[^&]*(&|$),i',
+            '\1',
+            $uri
+        );
+    } while ($uri <> $uri1);
+    return preg_replace(',[?&]$,', '', $uri1);
 }
 
 
@@ -749,48 +748,48 @@ 
  *    URL vers soi-même
  **/
 function self($amp = '&amp;', $root = false) {
-	$url = nettoyer_uri();
-	if (
-		!$root
-		and (
-			// si pas de profondeur on peut tronquer
-			$GLOBALS['profondeur_url'] < (_DIR_RESTREINT ? 1 : 2)
-			// sinon c'est OK si _SET_HTML_BASE a ete force a false
-			or (defined('_SET_HTML_BASE') and !_SET_HTML_BASE))
-	) {
-		$url = preg_replace(',^[^?]*/,', '', $url);
-	}
-	// ajouter le cas echeant les variables _POST['id_...']
-	foreach ($_POST as $v => $c) {
-		if (substr($v, 0, 3) == 'id_') {
-			$url = parametre_url($url, $v, $c, '&');
-		}
-	}
-
-	// supprimer les variables sans interet
-	if (test_espace_prive()) {
-		$url = preg_replace(',([?&])('
-			. 'lang|show_docs|'
-			. 'changer_lang|var_lang|action)=[^&]*,i', '\1', $url);
-		$url = preg_replace(',([?&])[&]+,', '\1', $url);
-		$url = preg_replace(',[&]$,', '\1', $url);
-	}
-
-	// eviter les hacks
-	include_spip('inc/filtres_mini');
-	$url = spip_htmlspecialchars($url);
-
-	$url = str_replace(["'", '"', '<', '[', ']', ':'], ['%27', '%22', '%3C', '%5B', '%5D', '%3A'], $url);
-
-	// &amp; ?
-	if ($amp != '&amp;') {
-		$url = str_replace('&amp;', $amp, $url);
-	}
-
-	// Si ca demarre par ? ou vide, donner './'
-	$url = preg_replace(',^([?].*)?$,', './\1', $url);
-
-	return $url;
+    $url = nettoyer_uri();
+    if (
+        !$root
+        and (
+            // si pas de profondeur on peut tronquer
+            $GLOBALS['profondeur_url'] < (_DIR_RESTREINT ? 1 : 2)
+            // sinon c'est OK si _SET_HTML_BASE a ete force a false
+            or (defined('_SET_HTML_BASE') and !_SET_HTML_BASE))
+    ) {
+        $url = preg_replace(',^[^?]*/,', '', $url);
+    }
+    // ajouter le cas echeant les variables _POST['id_...']
+    foreach ($_POST as $v => $c) {
+        if (substr($v, 0, 3) == 'id_') {
+            $url = parametre_url($url, $v, $c, '&');
+        }
+    }
+
+    // supprimer les variables sans interet
+    if (test_espace_prive()) {
+        $url = preg_replace(',([?&])('
+            . 'lang|show_docs|'
+            . 'changer_lang|var_lang|action)=[^&]*,i', '\1', $url);
+        $url = preg_replace(',([?&])[&]+,', '\1', $url);
+        $url = preg_replace(',[&]$,', '\1', $url);
+    }
+
+    // eviter les hacks
+    include_spip('inc/filtres_mini');
+    $url = spip_htmlspecialchars($url);
+
+    $url = str_replace(["'", '"', '<', '[', ']', ':'], ['%27', '%22', '%3C', '%5B', '%5D', '%3A'], $url);
+
+    // &amp; ?
+    if ($amp != '&amp;') {
+        $url = str_replace('&amp;', $amp, $url);
+    }
+
+    // Si ca demarre par ? ou vide, donner './'
+    $url = preg_replace(',^([?].*)?$,', './\1', $url);
+
+    return $url;
 }
 
 
@@ -801,7 +800,7 @@ 
  *     true si c'est le cas, false sinon.
  */
 function test_espace_prive() {
-	return defined('_ESPACE_PRIVE') ? _ESPACE_PRIVE : false;
+    return defined('_ESPACE_PRIVE') ? _ESPACE_PRIVE : false;
 }
 
 /**
@@ -811,7 +810,7 @@ 
  * @return bool
  */
 function test_plugin_actif($plugin) {
-	return ($plugin and defined('_DIR_PLUGIN_' . strtoupper($plugin))) ? true : false;
+    return ($plugin and defined('_DIR_PLUGIN_' . strtoupper($plugin))) ? true : false;
 }
 
 /**
@@ -842,52 +841,52 @@ 
  *     Texte
  */
 function _T($texte, $args = [], $options = []) {
-	static $traduire = false;
-	$o = ['class' => '', 'force' => true, 'sanitize' => true];
-	if ($options) {
-		// support de l'ancien argument $class
-		if (is_string($options)) {
-			$options = ['class' => $options];
-		}
-		$o = array_merge($o, $options);
-	}
-
-	if (!$traduire) {
-		$traduire = charger_fonction('traduire', 'inc');
-		include_spip('inc/lang');
-	}
-
-	// On peut passer explicitement la langue dans le tableau
-	// On utilise le même nom de variable que la globale
-	if (isset($args['spip_lang'])) {
-		$lang = $args['spip_lang'];
-		// On l'enleve pour ne pas le passer au remplacement
-		unset($args['spip_lang']);
-	} // Sinon on prend la langue du contexte
-	else {
-		$lang = $GLOBALS['spip_lang'];
-	}
-	$text = $traduire($texte, $lang);
-
-	if ($text === null || !strlen($text)) {
-		if (!$o['force']) {
-			return '';
-		}
-
-		$text = $texte;
-
-		// pour les chaines non traduites, assurer un service minimum
-		if (!$GLOBALS['test_i18n'] and (_request('var_mode') != 'traduction')) {
-			$n = strpos($text, ':');
-			if ($n !== false) {
-				$text = substr($text, $n + 1);
-			}
-			$text = str_replace('_', ' ', $text);
-		}
-		$o['class'] = null;
-	}
-
-	return _L($text, $args, $o);
+    static $traduire = false;
+    $o = ['class' => '', 'force' => true, 'sanitize' => true];
+    if ($options) {
+        // support de l'ancien argument $class
+        if (is_string($options)) {
+            $options = ['class' => $options];
+        }
+        $o = array_merge($o, $options);
+    }
+
+    if (!$traduire) {
+        $traduire = charger_fonction('traduire', 'inc');
+        include_spip('inc/lang');
+    }
+
+    // On peut passer explicitement la langue dans le tableau
+    // On utilise le même nom de variable que la globale
+    if (isset($args['spip_lang'])) {
+        $lang = $args['spip_lang'];
+        // On l'enleve pour ne pas le passer au remplacement
+        unset($args['spip_lang']);
+    } // Sinon on prend la langue du contexte
+    else {
+        $lang = $GLOBALS['spip_lang'];
+    }
+    $text = $traduire($texte, $lang);
+
+    if ($text === null || !strlen($text)) {
+        if (!$o['force']) {
+            return '';
+        }
+
+        $text = $texte;
+
+        // pour les chaines non traduites, assurer un service minimum
+        if (!$GLOBALS['test_i18n'] and (_request('var_mode') != 'traduction')) {
+            $n = strpos($text, ':');
+            if ($n !== false) {
+                $text = substr($text, $n + 1);
+            }
+            $text = str_replace('_', ' ', $text);
+        }
+        $o['class'] = null;
+    }
+
+    return _L($text, $args, $o);
 }
 
 
@@ -914,53 +913,53 @@ 
  *     Texte
  */
 function _L($text, $args = [], $options = []) {
-	$f = $text;
-	$defaut_options = [
-		'class' => null,
-		'sanitize' => true,
-	];
-	// support de l'ancien argument $class
-	if ($options and is_string($options)) {
-		$options = ['class' => $options];
-	}
-	if (is_array($options)) {
-		$options += $defaut_options;
-	} else {
-		$options = $defaut_options;
-	}
-
-	if (is_array($args) and count($args)) {
-		if (!function_exists('interdire_scripts')) {
-			include_spip('inc/texte');
-		}
-		if (!function_exists('echapper_html_suspect')) {
-			include_spip('inc/texte_mini');
-		}
-		foreach ($args as $name => $value) {
-			if (strpos($text, (string) "@$name@") !== false) {
-				if ($options['sanitize']) {
-					$value = echapper_html_suspect($value);
-					$value = interdire_scripts($value, -1);
-				}
-				if (!empty($options['class'])) {
-					$value = "<span class='" . $options['class'] . "'>$value</span>";
-				}
-				$text = str_replace("@$name@", $value, $text);
-				unset($args[$name]);
-			}
-		}
-		// Si des variables n'ont pas ete inserees, le signaler
-		// (chaines de langues pas a jour)
-		if ($args) {
-			spip_log("$f:  variables inutilisees " . join(', ', array_keys($args)), _LOG_DEBUG);
-		}
-	}
-
-	if (($GLOBALS['test_i18n'] or (_request('var_mode') == 'traduction')) and is_null($options['class'])) {
-		return "<span class='debug-traduction-erreur'>$text</span>";
-	} else {
-		return $text;
-	}
+    $f = $text;
+    $defaut_options = [
+        'class' => null,
+        'sanitize' => true,
+    ];
+    // support de l'ancien argument $class
+    if ($options and is_string($options)) {
+        $options = ['class' => $options];
+    }
+    if (is_array($options)) {
+        $options += $defaut_options;
+    } else {
+        $options = $defaut_options;
+    }
+
+    if (is_array($args) and count($args)) {
+        if (!function_exists('interdire_scripts')) {
+            include_spip('inc/texte');
+        }
+        if (!function_exists('echapper_html_suspect')) {
+            include_spip('inc/texte_mini');
+        }
+        foreach ($args as $name => $value) {
+            if (strpos($text, (string) "@$name@") !== false) {
+                if ($options['sanitize']) {
+                    $value = echapper_html_suspect($value);
+                    $value = interdire_scripts($value, -1);
+                }
+                if (!empty($options['class'])) {
+                    $value = "<span class='" . $options['class'] . "'>$value</span>";
+                }
+                $text = str_replace("@$name@", $value, $text);
+                unset($args[$name]);
+            }
+        }
+        // Si des variables n'ont pas ete inserees, le signaler
+        // (chaines de langues pas a jour)
+        if ($args) {
+            spip_log("$f:  variables inutilisees " . join(', ', array_keys($args)), _LOG_DEBUG);
+        }
+    }
+
+    if (($GLOBALS['test_i18n'] or (_request('var_mode') == 'traduction')) and is_null($options['class'])) {
+        return "<span class='debug-traduction-erreur'>$text</span>";
+    } else {
+        return $text;
+    }
 }
 
 
@@ -974,13 +973,13 @@ 
  * @return string
  */
 function joli_repertoire($rep) {
-	$a = substr($rep, 0, 1);
-	if ($a <> '.' and $a <> '/') {
-		$rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS) . $rep;
-	}
-	$rep = preg_replace(',(^\.\.\/),', '', $rep);
+    $a = substr($rep, 0, 1);
+    if ($a <> '.' and $a <> '/') {
+        $rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS) . $rep;
+    }
+    $rep = preg_replace(',(^\.\.\/),', '', $rep);
 
-	return $rep;
+    return $rep;
 }
 
 
@@ -1005,54 +1004,54 @@ 
  * @return float|int|string|void
  */
 function spip_timer($t = 'rien', $raw = false) {
-	static $time;
-	$a = time();
-	$b = microtime();
-	// microtime peut contenir les microsecondes et le temps
-	$b = explode(' ', $b);
-	if (count($b) == 2) {
-		$a = end($b);
-	} // plus precis !
-	$b = reset($b);
-	if (!isset($time[$t])) {
-		$time[$t] = $a + $b;
-	} else {
-		$p = ($a + $b - $time[$t]) * 1000;
-		unset($time[$t]);
+    static $time;
+    $a = time();
+    $b = microtime();
+    // microtime peut contenir les microsecondes et le temps
+    $b = explode(' ', $b);
+    if (count($b) == 2) {
+        $a = end($b);
+    } // plus precis !
+    $b = reset($b);
+    if (!isset($time[$t])) {
+        $time[$t] = $a + $b;
+    } else {
+        $p = ($a + $b - $time[$t]) * 1000;
+        unset($time[$t]);
 #			echo "'$p'";exit;
-		if ($raw) {
-			return $p;
-		}
-		if ($p < 1000) {
-			$s = '';
-		} else {
-			$s = sprintf('%d ', $x = floor($p / 1000));
-			$p -= ($x * 1000);
-		}
+        if ($raw) {
+            return $p;
+        }
+        if ($p < 1000) {
+            $s = '';
+        } else {
+            $s = sprintf('%d ', $x = floor($p / 1000));
+            $p -= ($x * 1000);
+        }
 
-		return $s . sprintf($s ? '%07.3f ms' : '%.3f ms', $p);
-	}
+        return $s . sprintf($s ? '%07.3f ms' : '%.3f ms', $p);
+    }
 }
 
 
 // Renvoie False si un fichier n'est pas plus vieux que $duree secondes,
 // sinon renvoie True et le date sauf si ca n'est pas souhaite
 function spip_touch($fichier, $duree = 0, $touch = true) {
-	if ($duree) {
-		clearstatcache();
-		if ((@$f = filemtime($fichier)) and ($f >= time() - $duree)) {
-			return false;
-		}
-	}
-	if ($touch !== false) {
-		if (!@touch($fichier)) {
-			spip_unlink($fichier);
-			@touch($fichier);
-		};
-		@chmod($fichier, _SPIP_CHMOD & ~0111);
-	}
+    if ($duree) {
+        clearstatcache();
+        if ((@$f = filemtime($fichier)) and ($f >= time() - $duree)) {
+            return false;
+        }
+    }
+    if ($touch !== false) {
+        if (!@touch($fichier)) {
+            spip_unlink($fichier);
+            @touch($fichier);
+        };
+        @chmod($fichier, _SPIP_CHMOD & ~0111);
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -1063,11 +1062,11 @@ 
  * @uses cron()
  **/
 function action_cron() {
-	include_spip('inc/headers');
-	http_response_code(204); // No Content
-	header('Connection: close');
-	define('_DIRECT_CRON_FORCE', true);
-	cron();
+    include_spip('inc/headers');
+    http_response_code(204); // No Content
+    header('Connection: close');
+    define('_DIRECT_CRON_FORCE', true);
+    cron();
 }
 
 /**
@@ -1083,26 +1082,26 @@ 
  *     True si la tache a pu être effectuée
  */
 function cron($taches = [], $taches_old = []) {
-	// si pas en mode cron force, laisser tomber.
-	if (!defined('_DIRECT_CRON_FORCE')) {
-		return false;
-	}
-	if (!is_array($taches)) {
-		$taches = $taches_old;
-	} // compat anciens appels
-	// si taches a inserer en base et base inaccessible, laisser tomber
-	// sinon on ne verifie pas la connexion tout de suite, car si ca se trouve
-	// queue_sleep_time_to_next_job() dira qu'il n'y a rien a faire
-	// et on evite d'ouvrir une connexion pour rien (utilisation de _DIRECT_CRON_FORCE dans mes_options.php)
-	if ($taches and count($taches) and !spip_connect()) {
-		return false;
-	}
-	spip_log('cron !', 'jq' . _LOG_DEBUG);
-	if ($genie = charger_fonction('genie', 'inc', true)) {
-		return $genie($taches);
-	}
-
-	return false;
+    // si pas en mode cron force, laisser tomber.
+    if (!defined('_DIRECT_CRON_FORCE')) {
+        return false;
+    }
+    if (!is_array($taches)) {
+        $taches = $taches_old;
+    } // compat anciens appels
+    // si taches a inserer en base et base inaccessible, laisser tomber
+    // sinon on ne verifie pas la connexion tout de suite, car si ca se trouve
+    // queue_sleep_time_to_next_job() dira qu'il n'y a rien a faire
+    // et on evite d'ouvrir une connexion pour rien (utilisation de _DIRECT_CRON_FORCE dans mes_options.php)
+    if ($taches and count($taches) and !spip_connect()) {
+        return false;
+    }
+    spip_log('cron !', 'jq' . _LOG_DEBUG);
+    if ($genie = charger_fonction('genie', 'inc', true)) {
+        return $genie($taches);
+    }
+
+    return false;
 }
 
 /**
@@ -1134,17 +1133,17 @@ 
  *     Le numéro de travail ajouté ou `0` si aucun travail n’a été ajouté.
  */
 function job_queue_add(
-	$function,
-	$description,
-	$arguments = [],
-	$file = '',
-	$no_duplicate = false,
-	$time = 0,
-	$priority = 0
+    $function,
+    $description,
+    $arguments = [],
+    $file = '',
+    $no_duplicate = false,
+    $time = 0,
+    $priority = 0
 ) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_add_job($function, $description, $arguments, $file, $no_duplicate, $time, $priority);
+    return queue_add_job($function, $description, $arguments, $file, $no_duplicate, $time, $priority);
 }
 
 /**
@@ -1155,9 +1154,9 @@ 
  * @return bool
  */
 function job_queue_remove($id_job) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_remove_job($id_job);
+    return queue_remove_job($id_job);
 }
 
 /**
@@ -1170,9 +1169,9 @@ 
  *     or an array of simple array to link multiples objet in one time
  */
 function job_queue_link($id_job, $objets) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_link_job($id_job, $objets);
+    return queue_link_job($id_job, $objets);
 }
 
 
@@ -1192,36 +1191,36 @@ 
  *  - `null` si la queue n'est pas encore initialisée
  */
 function queue_sleep_time_to_next_job($force = null) {
-	static $queue_next_job_time = -1;
-	if ($force === true) {
-		$queue_next_job_time = -1;
-	} elseif ($force) {
-		$queue_next_job_time = $force;
-	}
-
-	if ($queue_next_job_time == -1) {
-		if (!defined('_JQ_NEXT_JOB_TIME_FILENAME')) {
-			define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP . 'job_queue_next.txt');
-		}
-		// utiliser un cache memoire si dispo
-		if (function_exists('cache_get') and defined('_MEMOIZE_MEMORY') and _MEMOIZE_MEMORY) {
-			$queue_next_job_time = cache_get(_JQ_NEXT_JOB_TIME_FILENAME);
-		} else {
-			$queue_next_job_time = null;
-			if (lire_fichier(_JQ_NEXT_JOB_TIME_FILENAME, $contenu)) {
-				$queue_next_job_time = intval($contenu);
-			}
-		}
-	}
-
-	if (is_null($queue_next_job_time)) {
-		return null;
-	}
-	if (!$_SERVER['REQUEST_TIME']) {
-		$_SERVER['REQUEST_TIME'] = time();
-	}
-
-	return $queue_next_job_time - $_SERVER['REQUEST_TIME'];
+    static $queue_next_job_time = -1;
+    if ($force === true) {
+        $queue_next_job_time = -1;
+    } elseif ($force) {
+        $queue_next_job_time = $force;
+    }
+
+    if ($queue_next_job_time == -1) {
+        if (!defined('_JQ_NEXT_JOB_TIME_FILENAME')) {
+            define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP . 'job_queue_next.txt');
+        }
+        // utiliser un cache memoire si dispo
+        if (function_exists('cache_get') and defined('_MEMOIZE_MEMORY') and _MEMOIZE_MEMORY) {
+            $queue_next_job_time = cache_get(_JQ_NEXT_JOB_TIME_FILENAME);
+        } else {
+            $queue_next_job_time = null;
+            if (lire_fichier(_JQ_NEXT_JOB_TIME_FILENAME, $contenu)) {
+                $queue_next_job_time = intval($contenu);
+            }
+        }
+    }
+
+    if (is_null($queue_next_job_time)) {
+        return null;
+    }
+    if (!$_SERVER['REQUEST_TIME']) {
+        $_SERVER['REQUEST_TIME'] = time();
+    }
+
+    return $queue_next_job_time - $_SERVER['REQUEST_TIME'];
 }
 
 
@@ -1233,11 +1232,11 @@ 
  * @return string
  */
 function quote_amp($u) {
-	return preg_replace(
-		'/&(?![a-z]{0,4}\w{2,3};|#x?[0-9a-f]{2,6};)/i',
-		'&amp;',
-		$u
-	);
+    return preg_replace(
+        '/&(?![a-z]{0,4}\w{2,3};|#x?[0-9a-f]{2,6};)/i',
+        '&amp;',
+        $u
+    );
 }
 
 
@@ -1260,27 +1259,27 @@ 
  *     Balise HTML `<script>` et son contenu
  **/
 function http_script($script, $src = '', $noscript = '') {
-	static $done = [];
+    static $done = [];
 
-	if ($src && !isset($done[$src])) {
-		$done[$src] = true;
-		$src = find_in_path($src, _JAVASCRIPT);
-		$src = " src='$src'";
-	} else {
-		$src = '';
-	}
-	if ($script) {
-		$script = ("/*<![CDATA[*/\n" .
-			preg_replace(',</([^>]*)>,', '<\/\1>', $script) .
-			'/*]]>*/');
-	}
-	if ($noscript) {
-		$noscript = "<noscript>\n\t$noscript\n</noscript>\n";
-	}
+    if ($src && !isset($done[$src])) {
+        $done[$src] = true;
+        $src = find_in_path($src, _JAVASCRIPT);
+        $src = " src='$src'";
+    } else {
+        $src = '';
+    }
+    if ($script) {
+        $script = ("/*<![CDATA[*/\n" .
+            preg_replace(',</([^>]*)>,', '<\/\1>', $script) .
+            '/*]]>*/');
+    }
+    if ($noscript) {
+        $noscript = "<noscript>\n\t$noscript\n</noscript>\n";
+    }
 
-	return ($src or $script or $noscript)
-		? "<script type='text/javascript'$src>$script</script>$noscript"
-		: '';
+    return ($src or $script or $noscript)
+        ? "<script type='text/javascript'$src>$script</script>$noscript"
+        : '';
 }
 
 
@@ -1315,7 +1314,7 @@ 
  *     Texte échappé
  **/
 function texte_script(string $texte): string {
-	return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
+    return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
 }
 
 
@@ -1352,68 +1351,68 @@ 
  *     Liste des chemins, par ordre de priorité.
  **/
 function _chemin($dir_path = null) {
-	static $path_base = null;
-	static $path_full = null;
-	if ($path_base == null) {
-		// Chemin standard depuis l'espace public
-		$path = defined('_SPIP_PATH') ? _SPIP_PATH :
-			_DIR_RACINE . ':' .
-			_DIR_RACINE . 'squelettes-dist/:' .
-			_DIR_RACINE . 'prive/:' .
-			_DIR_RESTREINT;
-		// Ajouter squelettes/
-		if (@is_dir(_DIR_RACINE . 'squelettes')) {
-			$path = _DIR_RACINE . 'squelettes/:' . $path;
-		}
-		foreach (explode(':', $path) as $dir) {
-			if (strlen($dir) and substr($dir, -1) != '/') {
-				$dir .= '/';
-			}
-			$path_base[] = $dir;
-		}
-		$path_full = $path_base;
-		// Et le(s) dossier(s) des squelettes nommes
-		if (strlen($GLOBALS['dossier_squelettes'])) {
-			foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-				array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
-			}
-		}
-		$GLOBALS['path_sig'] = md5(serialize($path_full));
-	}
-	if ($dir_path === null) {
-		return $path_full;
-	}
-
-	if (is_array($dir_path) or strlen($dir_path)) {
-		$tete = '';
-		if (reset($path_base) == _DIR_RACINE . 'squelettes/') {
-			$tete = array_shift($path_base);
-		}
-		$dirs = (is_array($dir_path) ? $dir_path : explode(':', $dir_path));
-		$dirs = array_reverse($dirs);
-		foreach ($dirs as $dir_path) {
-			if (substr($dir_path, -1) != '/') {
-				$dir_path .= '/';
-			}
-			if (!in_array($dir_path, $path_base)) {
-				array_unshift($path_base, $dir_path);
-			}
-		}
-		if (strlen($tete)) {
-			array_unshift($path_base, $tete);
-		}
-	}
-	$path_full = $path_base;
-	// Et le(s) dossier(s) des squelettes nommes
-	if (strlen($GLOBALS['dossier_squelettes'])) {
-		foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-			array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE) . $d . '/');
-		}
-	}
-
-	$GLOBALS['path_sig'] = md5(serialize($path_full));
-
-	return $path_full;
+    static $path_base = null;
+    static $path_full = null;
+    if ($path_base == null) {
+        // Chemin standard depuis l'espace public
+        $path = defined('_SPIP_PATH') ? _SPIP_PATH :
+            _DIR_RACINE . ':' .
+            _DIR_RACINE . 'squelettes-dist/:' .
+            _DIR_RACINE . 'prive/:' .
+            _DIR_RESTREINT;
+        // Ajouter squelettes/
+        if (@is_dir(_DIR_RACINE . 'squelettes')) {
+            $path = _DIR_RACINE . 'squelettes/:' . $path;
+        }
+        foreach (explode(':', $path) as $dir) {
+            if (strlen($dir) and substr($dir, -1) != '/') {
+                $dir .= '/';
+            }
+            $path_base[] = $dir;
+        }
+        $path_full = $path_base;
+        // Et le(s) dossier(s) des squelettes nommes
+        if (strlen($GLOBALS['dossier_squelettes'])) {
+            foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
+                array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
+            }
+        }
+        $GLOBALS['path_sig'] = md5(serialize($path_full));
+    }
+    if ($dir_path === null) {
+        return $path_full;
+    }
+
+    if (is_array($dir_path) or strlen($dir_path)) {
+        $tete = '';
+        if (reset($path_base) == _DIR_RACINE . 'squelettes/') {
+            $tete = array_shift($path_base);
+        }
+        $dirs = (is_array($dir_path) ? $dir_path : explode(':', $dir_path));
+        $dirs = array_reverse($dirs);
+        foreach ($dirs as $dir_path) {
+            if (substr($dir_path, -1) != '/') {
+                $dir_path .= '/';
+            }
+            if (!in_array($dir_path, $path_base)) {
+                array_unshift($path_base, $dir_path);
+            }
+        }
+        if (strlen($tete)) {
+            array_unshift($path_base, $tete);
+        }
+    }
+    $path_full = $path_base;
+    // Et le(s) dossier(s) des squelettes nommes
+    if (strlen($GLOBALS['dossier_squelettes'])) {
+        foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
+            array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE) . $d . '/');
+        }
+    }
+
+    $GLOBALS['path_sig'] = md5(serialize($path_full));
+
+    return $path_full;
 }
 
 /**
@@ -1426,78 +1425,78 @@ 
  * @return array Liste de chemins
  **/
 function creer_chemin() {
-	$path_a = _chemin();
-	static $c = '';
+    $path_a = _chemin();
+    static $c = '';
 
-	// on calcule le chemin si le dossier skel a change
-	if ($c != $GLOBALS['dossier_squelettes']) {
-		// assurer le non plantage lors de la montee de version :
-		$c = $GLOBALS['dossier_squelettes'];
-		$path_a = _chemin(''); // forcer un recalcul du chemin
-	}
+    // on calcule le chemin si le dossier skel a change
+    if ($c != $GLOBALS['dossier_squelettes']) {
+        // assurer le non plantage lors de la montee de version :
+        $c = $GLOBALS['dossier_squelettes'];
+        $path_a = _chemin(''); // forcer un recalcul du chemin
+    }
 
-	return $path_a;
+    return $path_a;
 }
 
 
 function lister_themes_prives() {
-	static $themes = null;
-	if (is_null($themes)) {
-		// si pas encore definie
-		if (!defined('_SPIP_THEME_PRIVE')) {
-			define('_SPIP_THEME_PRIVE', 'spip');
-		}
-		$themes = [_SPIP_THEME_PRIVE];
-		// lors d'une installation neuve, prefs n'est pas definie.
-		if (isset($GLOBALS['visiteur_session']['prefs'])) {
-			$prefs = $GLOBALS['visiteur_session']['prefs'];
-		} else {
-			$prefs = [];
-		}
-		if (is_string($prefs)) {
-			$prefs = unserialize($GLOBALS['visiteur_session']['prefs']);
-		}
-		if (
-			((isset($prefs['theme']) and $theme = $prefs['theme'])
-				or (isset($GLOBALS['theme_prive_defaut']) and $theme = $GLOBALS['theme_prive_defaut']))
-			and $theme != _SPIP_THEME_PRIVE
-		) {
-			array_unshift($themes, $theme);
-		} // placer le theme choisi en tete
-	}
-
-	return $themes;
+    static $themes = null;
+    if (is_null($themes)) {
+        // si pas encore definie
+        if (!defined('_SPIP_THEME_PRIVE')) {
+            define('_SPIP_THEME_PRIVE', 'spip');
+        }
+        $themes = [_SPIP_THEME_PRIVE];
+        // lors d'une installation neuve, prefs n'est pas definie.
+        if (isset($GLOBALS['visiteur_session']['prefs'])) {
+            $prefs = $GLOBALS['visiteur_session']['prefs'];
+        } else {
+            $prefs = [];
+        }
+        if (is_string($prefs)) {
+            $prefs = unserialize($GLOBALS['visiteur_session']['prefs']);
+        }
+        if (
+            ((isset($prefs['theme']) and $theme = $prefs['theme'])
+                or (isset($GLOBALS['theme_prive_defaut']) and $theme = $GLOBALS['theme_prive_defaut']))
+            and $theme != _SPIP_THEME_PRIVE
+        ) {
+            array_unshift($themes, $theme);
+        } // placer le theme choisi en tete
+    }
+
+    return $themes;
 }
 
 function find_in_theme($file, $subdir = '', $include = false) {
-	static $themefiles = [];
-	if (isset($themefiles["$subdir$file"])) {
-		return $themefiles["$subdir$file"];
-	}
-	// on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
-	// si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
-	if (
-		preg_match(',-(\d+)[.](png|gif|svg)$,', $file, $m)
-		and $file_svg_generique = substr($file, 0, -strlen($m[0])) . '-xx.svg'
-		and $f = find_in_theme("$file_svg_generique")
-	) {
-		if ($fsize = substr($f, 0, -6) . $m[1] . '.svg' and file_exists($fsize)) {
-			return $themefiles["$subdir$file"] = $fsize;
-		}
-		else {
-			return $themefiles["$subdir$file"] = "$f?" . $m[1] . 'px';
-		}
-	}
-
-	$themes = lister_themes_prives();
-	foreach ($themes as $theme) {
-		if ($f = find_in_path($file, "prive/themes/$theme/$subdir", $include)) {
-			return $themefiles["$subdir$file"] = $f;
-		}
-	}
-	spip_log("$file introuvable dans le theme prive " . reset($themes), 'theme');
-
-	return $themefiles["$subdir$file"] = '';
+    static $themefiles = [];
+    if (isset($themefiles["$subdir$file"])) {
+        return $themefiles["$subdir$file"];
+    }
+    // on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
+    // si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
+    if (
+        preg_match(',-(\d+)[.](png|gif|svg)$,', $file, $m)
+        and $file_svg_generique = substr($file, 0, -strlen($m[0])) . '-xx.svg'
+        and $f = find_in_theme("$file_svg_generique")
+    ) {
+        if ($fsize = substr($f, 0, -6) . $m[1] . '.svg' and file_exists($fsize)) {
+            return $themefiles["$subdir$file"] = $fsize;
+        }
+        else {
+            return $themefiles["$subdir$file"] = "$f?" . $m[1] . 'px';
+        }
+    }
+
+    $themes = lister_themes_prives();
+    foreach ($themes as $theme) {
+        if ($f = find_in_path($file, "prive/themes/$theme/$subdir", $include)) {
+            return $themefiles["$subdir$file"] = $f;
+        }
+    }
+    spip_log("$file introuvable dans le theme prive " . reset($themes), 'theme');
+
+    return $themefiles["$subdir$file"] = '';
 }
 
 
@@ -1521,31 +1520,31 @@ 
  *     sinon chaîne vide.
  **/
 function chemin_image($icone) {
-	static $icone_renommer;
-	if ($p = strpos($icone, '?')) {
-		$icone = substr($icone, 0, $p);
-	}
-	// gerer le cas d'un double appel en evitant de refaire le travail inutilement
-	if (strpos($icone, '/') !== false and file_exists($icone)) {
-		return $icone;
-	}
-
-	// si c'est un nom d'image complet (article-24.png) essayer de le renvoyer direct
-	if (preg_match(',[.](png|gif|jpg|webp|svg)$,', $icone) and $f = find_in_theme("images/$icone")) {
-		return $f;
-	}
-	// sinon passer par le module de renommage
-	if (is_null($icone_renommer)) {
-		$icone_renommer = charger_fonction('icone_renommer', 'inc', true);
-	}
-	if ($icone_renommer) {
-		[$icone, $fonction] = $icone_renommer($icone, '');
-		if (file_exists($icone)) {
-			return $icone;
-		}
-	}
-
-	return find_in_path($icone, _NOM_IMG_PACK);
+    static $icone_renommer;
+    if ($p = strpos($icone, '?')) {
+        $icone = substr($icone, 0, $p);
+    }
+    // gerer le cas d'un double appel en evitant de refaire le travail inutilement
+    if (strpos($icone, '/') !== false and file_exists($icone)) {
+        return $icone;
+    }
+
+    // si c'est un nom d'image complet (article-24.png) essayer de le renvoyer direct
+    if (preg_match(',[.](png|gif|jpg|webp|svg)$,', $icone) and $f = find_in_theme("images/$icone")) {
+        return $f;
+    }
+    // sinon passer par le module de renommage
+    if (is_null($icone_renommer)) {
+        $icone_renommer = charger_fonction('icone_renommer', 'inc', true);
+    }
+    if ($icone_renommer) {
+        [$icone, $fonction] = $icone_renommer($icone, '');
+        if (file_exists($icone)) {
+            return $icone;
+        }
+    }
+
+    return find_in_path($icone, _NOM_IMG_PACK);
 }
 
 //
@@ -1583,128 +1582,128 @@ 
  *     - false : fichier introuvable
  **/
 function find_in_path($file, $dirname = '', $include = false) {
-	static $dirs = [];
-	static $inc = []; # cf https://git.spip.net/spip/spip/commit/42e4e028e38c839121efaee84308d08aee307eec
-	static $c = '';
-
-	if (!$file and !strlen($file)) {
-		return false;
-	}
-
-	// on calcule le chemin si le dossier skel a change
-	if ($c != $GLOBALS['dossier_squelettes']) {
-		// assurer le non plantage lors de la montee de version :
-		$c = $GLOBALS['dossier_squelettes'];
-		creer_chemin(); // forcer un recalcul du chemin et la mise a jour de path_sig
-	}
-
-	if (isset($GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])) {
-		if (!$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file]) {
-			return false;
-		}
-		if ($include and !isset($inc[$dirname][$file])) {
-			include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
-			$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
-		}
-
-		return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
-	}
-
-	$a = strrpos($file, '/');
-	if ($a !== false) {
-		$dirname .= substr($file, 0, ++$a);
-		$file = substr($file, $a);
-	}
-
-	foreach (creer_chemin() as $dir) {
-		if (!isset($dirs[$a = $dir . $dirname])) {
-			$dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a);
-		}
-		if ($dirs[$a]) {
-			if (file_exists(_ROOT_CWD . ($a .= $file))) {
-				if ($include and !isset($inc[$dirname][$file])) {
-					include_once _ROOT_CWD . $a;
-					$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
-				}
-				if (!defined('_SAUVER_CHEMIN')) {
-					// si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
-					if (is_null($GLOBALS['path_files'])) {
-						return $a;
-					}
-					define('_SAUVER_CHEMIN', true);
-				}
-
-				return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
-			}
-		}
-	}
-
-	if ($include) {
-		spip_log("include_spip $dirname$file non trouve");
-		if ($include === 'required') {
-			echo '<pre>',
-			'<strong>Erreur Fatale</strong><br />';
-			if (function_exists('debug_print_backtrace')) {
-				echo debug_print_backtrace();
-			}
-			echo '</pre>';
-			die("Erreur interne: ne peut inclure $dirname$file");
-		}
-	}
-
-	if (!defined('_SAUVER_CHEMIN')) {
-		// si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
-		if (is_null($GLOBALS['path_files'])) {
-			return false;
-		}
-		define('_SAUVER_CHEMIN', true);
-	}
-
-	return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
+    static $dirs = [];
+    static $inc = []; # cf https://git.spip.net/spip/spip/commit/42e4e028e38c839121efaee84308d08aee307eec
+    static $c = '';
+
+    if (!$file and !strlen($file)) {
+        return false;
+    }
+
+    // on calcule le chemin si le dossier skel a change
+    if ($c != $GLOBALS['dossier_squelettes']) {
+        // assurer le non plantage lors de la montee de version :
+        $c = $GLOBALS['dossier_squelettes'];
+        creer_chemin(); // forcer un recalcul du chemin et la mise a jour de path_sig
+    }
+
+    if (isset($GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])) {
+        if (!$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file]) {
+            return false;
+        }
+        if ($include and !isset($inc[$dirname][$file])) {
+            include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+            $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+        }
+
+        return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+    }
+
+    $a = strrpos($file, '/');
+    if ($a !== false) {
+        $dirname .= substr($file, 0, ++$a);
+        $file = substr($file, $a);
+    }
+
+    foreach (creer_chemin() as $dir) {
+        if (!isset($dirs[$a = $dir . $dirname])) {
+            $dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a);
+        }
+        if ($dirs[$a]) {
+            if (file_exists(_ROOT_CWD . ($a .= $file))) {
+                if ($include and !isset($inc[$dirname][$file])) {
+                    include_once _ROOT_CWD . $a;
+                    $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+                }
+                if (!defined('_SAUVER_CHEMIN')) {
+                    // si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
+                    if (is_null($GLOBALS['path_files'])) {
+                        return $a;
+                    }
+                    define('_SAUVER_CHEMIN', true);
+                }
+
+                return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
+            }
+        }
+    }
+
+    if ($include) {
+        spip_log("include_spip $dirname$file non trouve");
+        if ($include === 'required') {
+            echo '<pre>',
+            '<strong>Erreur Fatale</strong><br />';
+            if (function_exists('debug_print_backtrace')) {
+                echo debug_print_backtrace();
+            }
+            echo '</pre>';
+            die("Erreur interne: ne peut inclure $dirname$file");
+        }
+    }
+
+    if (!defined('_SAUVER_CHEMIN')) {
+        // si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
+        if (is_null($GLOBALS['path_files'])) {
+            return false;
+        }
+        define('_SAUVER_CHEMIN', true);
+    }
+
+    return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
 }
 
 function clear_path_cache() {
-	$GLOBALS['path_files'] = [];
-	spip_unlink(_CACHE_CHEMIN);
+    $GLOBALS['path_files'] = [];
+    spip_unlink(_CACHE_CHEMIN);
 }
 
 function load_path_cache() {
-	// charger le path des plugins
-	if (@is_readable(_CACHE_PLUGINS_PATH)) {
-		include_once(_CACHE_PLUGINS_PATH);
-	}
-	$GLOBALS['path_files'] = [];
-	// si le visiteur est admin,
-	// on ne recharge pas le cache pour forcer sa mise a jour
-	if (
-		// la session n'est pas encore chargee a ce moment, on ne peut donc pas s'y fier
-		//AND (!isset($GLOBALS['visiteur_session']['statut']) OR $GLOBALS['visiteur_session']['statut']!='0minirezo')
-		// utiliser le cookie est un pis aller qui marche 'en general'
-		// on blinde par un second test au moment de la lecture de la session
-		// !isset($_COOKIE[$GLOBALS['cookie_prefix'].'_admin'])
-		// et en ignorant ce cache en cas de recalcul explicite
-		!_request('var_mode')
-	) {
-		// on essaye de lire directement sans verrou pour aller plus vite
-		if ($contenu = spip_file_get_contents(_CACHE_CHEMIN)) {
-			// mais si semble corrompu on relit avec un verrou
-			if (!$GLOBALS['path_files'] = unserialize($contenu)) {
-				lire_fichier(_CACHE_CHEMIN, $contenu);
-				if (!$GLOBALS['path_files'] = unserialize($contenu)) {
-					$GLOBALS['path_files'] = [];
-				}
-			}
-		}
-	}
+    // charger le path des plugins
+    if (@is_readable(_CACHE_PLUGINS_PATH)) {
+        include_once(_CACHE_PLUGINS_PATH);
+    }
+    $GLOBALS['path_files'] = [];
+    // si le visiteur est admin,
+    // on ne recharge pas le cache pour forcer sa mise a jour
+    if (
+        // la session n'est pas encore chargee a ce moment, on ne peut donc pas s'y fier
+        //AND (!isset($GLOBALS['visiteur_session']['statut']) OR $GLOBALS['visiteur_session']['statut']!='0minirezo')
+        // utiliser le cookie est un pis aller qui marche 'en general'
+        // on blinde par un second test au moment de la lecture de la session
+        // !isset($_COOKIE[$GLOBALS['cookie_prefix'].'_admin'])
+        // et en ignorant ce cache en cas de recalcul explicite
+        !_request('var_mode')
+    ) {
+        // on essaye de lire directement sans verrou pour aller plus vite
+        if ($contenu = spip_file_get_contents(_CACHE_CHEMIN)) {
+            // mais si semble corrompu on relit avec un verrou
+            if (!$GLOBALS['path_files'] = unserialize($contenu)) {
+                lire_fichier(_CACHE_CHEMIN, $contenu);
+                if (!$GLOBALS['path_files'] = unserialize($contenu)) {
+                    $GLOBALS['path_files'] = [];
+                }
+            }
+        }
+    }
 }
 
 function save_path_cache() {
-	if (
-		defined('_SAUVER_CHEMIN')
-		and _SAUVER_CHEMIN
-	) {
-		ecrire_fichier(_CACHE_CHEMIN, serialize($GLOBALS['path_files']));
-	}
+    if (
+        defined('_SAUVER_CHEMIN')
+        and _SAUVER_CHEMIN
+    ) {
+        ecrire_fichier(_CACHE_CHEMIN, serialize($GLOBALS['path_files']));
+    }
 }
 
 
@@ -1724,33 +1723,33 @@ 
  * @return array
  */
 function find_all_in_path($dir, $pattern, $recurs = false) {
-	$liste_fichiers = [];
-	$maxfiles = 10000;
-
-	// cas borderline si dans mes_options on appelle redirige_par_entete qui utilise _T et charge un fichier de langue
-	// on a pas encore inclus flock.php
-	if (!function_exists('preg_files')) {
-		include_once _ROOT_RESTREINT . 'inc/flock.php';
-	}
-
-	// Parcourir le chemin
-	foreach (creer_chemin() as $d) {
-		$f = $d . $dir;
-		if (@is_dir($f)) {
-			$liste = preg_files($f, $pattern, $maxfiles - count($liste_fichiers), $recurs === true ? [] : $recurs);
-			foreach ($liste as $chemin) {
-				$nom = basename($chemin);
-				// ne prendre que les fichiers pas deja trouves
-				// car find_in_path prend le premier qu'il trouve,
-				// les autres sont donc masques
-				if (!isset($liste_fichiers[$nom])) {
-					$liste_fichiers[$nom] = $chemin;
-				}
-			}
-		}
-	}
-
-	return $liste_fichiers;
+    $liste_fichiers = [];
+    $maxfiles = 10000;
+
+    // cas borderline si dans mes_options on appelle redirige_par_entete qui utilise _T et charge un fichier de langue
+    // on a pas encore inclus flock.php
+    if (!function_exists('preg_files')) {
+        include_once _ROOT_RESTREINT . 'inc/flock.php';
+    }
+
+    // Parcourir le chemin
+    foreach (creer_chemin() as $d) {
+        $f = $d . $dir;
+        if (@is_dir($f)) {
+            $liste = preg_files($f, $pattern, $maxfiles - count($liste_fichiers), $recurs === true ? [] : $recurs);
+            foreach ($liste as $chemin) {
+                $nom = basename($chemin);
+                // ne prendre que les fichiers pas deja trouves
+                // car find_in_path prend le premier qu'il trouve,
+                // les autres sont donc masques
+                if (!isset($liste_fichiers[$nom])) {
+                    $liste_fichiers[$nom] = $chemin;
+                }
+            }
+        }
+    }
+
+    return $liste_fichiers;
 }
 
 /**
@@ -1762,17 +1761,17 @@ 
  * @return bool
  */
 function autoriser_sans_cookie($nom, $strict = false) {
-	static $autsanscookie = ['install', 'base_repair'];
+    static $autsanscookie = ['install', 'base_repair'];
 
-	if (in_array($nom, $autsanscookie)) {
-		if (test_espace_prive()) {
-			include_spip('base/connect_sql');
-			if (!$strict or !spip_connect()) {
-				return true;
-			}
-		}
-	}
-	return false;
+    if (in_array($nom, $autsanscookie)) {
+        if (test_espace_prive()) {
+            include_spip('base/connect_sql');
+            if (!$strict or !spip_connect()) {
+                return true;
+            }
+        }
+    }
+    return false;
 }
 
 /**
@@ -1782,60 +1781,60 @@ 
  * @return string
  */
 function charger_fonction_url(string $quoi, string $type = '') {
-	if ($type === 'defaut') {
-		$objet = objet_type($quoi);
-		if (
-			$f = charger_fonction('generer_' . $objet . '_url', 'urls', true)
-			// deprecated
-			or $f = charger_fonction('generer_url_' . $objet, 'urls', true)
-		) {
-			return $f;
-		}
-		return '';
-	}
-
-	$url_type = $type;
-	if (!$url_type) {
-		$url_type = $GLOBALS['type_urls'] ?? $GLOBALS['meta']['type_urls'] ?? 'page'; // sinon type "page" par défaut
-	}
-
-	// inclure le module d'url
-	include_spip('urls/' . $url_type);
-
-	switch ($quoi) {
-		case 'page':
-			if (
-				 function_exists($f = "urls_{$url_type}_generer_url_page")
-				or function_exists($f .= '_dist')
-				// ou une fonction custom utilisateur independante du type d'url
-				or function_exists($f = 'generer_url_page')
-				or function_exists($f .= '_dist')
-			) {
-				return $f;
-			}
-			// pas de compat ancienne version ici, c'est une nouvelle feature
-			return '';
-		case 'objet':
-		case 'decoder':
-		default:
-			$fquoi = ($quoi === 'objet' ? 'generer_url_objet' : 'decoder_url');
-			if (
-				function_exists($f = "urls_{$url_type}_{$fquoi}")
-				or function_exists($f .= '_dist')
-			) {
-				return $f;
-			}
-			// est-ce qu'on a une ancienne fonction urls_xxx_dist() ?
-			// c'est un ancien module d'url, on appelle l'ancienne fonction qui fait tout
-			if ($f = charger_fonction($url_type, 'urls', true)) {
-				return $f;
-			}
-			// sinon on se rabat sur les urls page si ce n'est pas un type demande explicitement
-			if (!$type and $url_type !== 'page') {
-				return charger_fonction_url($quoi, 'page');
-			}
-			return '';
-	}
+    if ($type === 'defaut') {
+        $objet = objet_type($quoi);
+        if (
+            $f = charger_fonction('generer_' . $objet . '_url', 'urls', true)
+            // deprecated
+            or $f = charger_fonction('generer_url_' . $objet, 'urls', true)
+        ) {
+            return $f;
+        }
+        return '';
+    }
+
+    $url_type = $type;
+    if (!$url_type) {
+        $url_type = $GLOBALS['type_urls'] ?? $GLOBALS['meta']['type_urls'] ?? 'page'; // sinon type "page" par défaut
+    }
+
+    // inclure le module d'url
+    include_spip('urls/' . $url_type);
+
+    switch ($quoi) {
+        case 'page':
+            if (
+                    function_exists($f = "urls_{$url_type}_generer_url_page")
+                or function_exists($f .= '_dist')
+                // ou une fonction custom utilisateur independante du type d'url
+                or function_exists($f = 'generer_url_page')
+                or function_exists($f .= '_dist')
+            ) {
+                return $f;
+            }
+            // pas de compat ancienne version ici, c'est une nouvelle feature
+            return '';
+        case 'objet':
+        case 'decoder':
+        default:
+            $fquoi = ($quoi === 'objet' ? 'generer_url_objet' : 'decoder_url');
+            if (
+                function_exists($f = "urls_{$url_type}_{$fquoi}")
+                or function_exists($f .= '_dist')
+            ) {
+                return $f;
+            }
+            // est-ce qu'on a une ancienne fonction urls_xxx_dist() ?
+            // c'est un ancien module d'url, on appelle l'ancienne fonction qui fait tout
+            if ($f = charger_fonction($url_type, 'urls', true)) {
+                return $f;
+            }
+            // sinon on se rabat sur les urls page si ce n'est pas un type demande explicitement
+            if (!$type and $url_type !== 'page') {
+                return charger_fonction_url($quoi, 'page');
+            }
+            return '';
+    }
 }
 
 
@@ -1862,48 +1861,48 @@ 
  *   url codee ou fonction de decodage
  */
 function generer_objet_url($id, string $entite, string $args = '', string $ancre = '', ?bool $public = null, string $type = '', string $connect = ''): string {
-	if ($public === null) {
-		$public = !test_espace_prive();
-	}
-	$id = intval($id);
-	$entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
-
-	if (!$public) {
-		if (!$entite) {
-			return '';
-		}
-		if (!function_exists('generer_objet_url_ecrire')) {
-			include_spip('inc/urls');
-		}
-		$res = generer_objet_url_ecrire($id, $entite, $args, $ancre, false, $connect);
-	} else {
-		$f = charger_fonction_url('objet', $type ?? '');
-
-		// @deprecated si $entite='', on veut la fonction de passage URL ==> id
-		// @see charger_fonction_url
-		if (!$entite) {
-			return $f;
-		}
-
-		// mais d'abord il faut tester le cas des urls sur une
-		// base distante
-		if (
-			$connect
-			and $g = charger_fonction('connect', 'urls', true)
-		) {
-			$f = $g;
-		}
-
-		$res = $f(intval($id), $entite, $args ?: '', $ancre ?: '', $connect);
-	}
-	if ($res) {
-		return $res;
-	}
-
-	// On a ete gentil mais la ....
-	spip_log("generer_objet_url: entite $entite ($f) inconnue $type $public $connect", _LOG_ERREUR);
-
-	return '';
+    if ($public === null) {
+        $public = !test_espace_prive();
+    }
+    $id = intval($id);
+    $entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
+
+    if (!$public) {
+        if (!$entite) {
+            return '';
+        }
+        if (!function_exists('generer_objet_url_ecrire')) {
+            include_spip('inc/urls');
+        }
+        $res = generer_objet_url_ecrire($id, $entite, $args, $ancre, false, $connect);
+    } else {
+        $f = charger_fonction_url('objet', $type ?? '');
+
+        // @deprecated si $entite='', on veut la fonction de passage URL ==> id
+        // @see charger_fonction_url
+        if (!$entite) {
+            return $f;
+        }
+
+        // mais d'abord il faut tester le cas des urls sur une
+        // base distante
+        if (
+            $connect
+            and $g = charger_fonction('connect', 'urls', true)
+        ) {
+            $f = $g;
+        }
+
+        $res = $f(intval($id), $entite, $args ?: '', $ancre ?: '', $connect);
+    }
+    if ($res) {
+        return $res;
+    }
+
+    // On a ete gentil mais la ....
+    spip_log("generer_objet_url: entite $entite ($f) inconnue $type $public $connect", _LOG_ERREUR);
+
+    return '';
 }
 
 /**
@@ -1911,10 +1910,10 @@ 
  * @see generer_objet_url
  */
 function generer_url_entite($id = 0, $entite = '', $args = '', $ancre = '', $public = null, $type = null) {
-	if ($public and is_string($public)) {
-		return generer_objet_url(intval($id), $entite, $args ?: '', $ancre ?: '', true, $type ?? '', $public);
-	}
-	return generer_objet_url(intval($id), $entite, $args ?: '', $ancre ?: '', $public, $type ?? '');
+    if ($public and is_string($public)) {
+        return generer_objet_url(intval($id), $entite, $args ?: '', $ancre ?: '', true, $type ?? '', $public);
+    }
+    return generer_objet_url(intval($id), $entite, $args ?: '', $ancre ?: '', $public, $type ?? '');
 }
 
 /**
@@ -1926,19 +1925,19 @@ 
  * @return string
  */
 function generer_objet_url_ecrire_edit($id, string $entite, string $args = '', string $ancre = ''): string {
-	$id = intval($id);
-	$exec = objet_info($entite, 'url_edit');
-	$url = generer_url_ecrire($exec, $args);
-	if (intval($id)) {
-		$url = parametre_url($url, id_table_objet($entite), $id);
-	} else {
-		$url = parametre_url($url, 'new', 'oui');
-	}
-	if ($ancre) {
-		$url = ancre_url($url, $ancre);
-	}
+    $id = intval($id);
+    $exec = objet_info($entite, 'url_edit');
+    $url = generer_url_ecrire($exec, $args);
+    if (intval($id)) {
+        $url = parametre_url($url, id_table_objet($entite), $id);
+    } else {
+        $url = parametre_url($url, 'new', 'oui');
+    }
+    if ($ancre) {
+        $url = ancre_url($url, $ancre);
+    }
 
-	return $url;
+    return $url;
 }
 
 /**
@@ -1946,18 +1945,18 @@ 
  * @see generer_objet_url_ecrire_edit
  */
 function generer_url_ecrire_entite_edit($id, $entite, $args = '', $ancre = '') {
-	return generer_objet_url_ecrire_edit(intval($id), $entite, $args, $ancre);
+    return generer_objet_url_ecrire_edit(intval($id), $entite, $args, $ancre);
 }
 
 
 function urls_connect_dist($i, &$entite, $args = '', $ancre = '', $public = null) {
-	include_spip('base/connect_sql');
-	$id_type = id_table_objet($entite, $public);
+    include_spip('base/connect_sql');
+    $id_type = id_table_objet($entite, $public);
 
-	return _DIR_RACINE . get_spip_script('./')
-	. '?' . _SPIP_PAGE . "=$entite&$id_type=$i&connect=$public"
-	. (!$args ? '' : "&$args")
-	. (!$ancre ? '' : "#$ancre");
+    return _DIR_RACINE . get_spip_script('./')
+    . '?' . _SPIP_PAGE . "=$entite&$id_type=$i&connect=$public"
+    . (!$args ? '' : "&$args")
+    . (!$ancre ? '' : "#$ancre");
 }
 
 
@@ -1968,18 +1967,18 @@ 
  * @return string
  */
 function urlencode_1738($url) {
-	if (preg_match(',[^\x00-\x7E],sS', $url)) {
-		$uri = '';
-		for ($i = 0; $i < strlen($url); $i++) {
-			if (ord($a = $url[$i]) > 127) {
-				$a = rawurlencode($a);
-			}
-			$uri .= $a;
-		}
-		$url = $uri;
-	}
+    if (preg_match(',[^\x00-\x7E],sS', $url)) {
+        $uri = '';
+        for ($i = 0; $i < strlen($url); $i++) {
+            if (ord($a = $url[$i]) > 127) {
+                $a = rawurlencode($a);
+            }
+            $uri .= $a;
+        }
+        $url = $uri;
+    }
 
-	return quote_amp($url);
+    return quote_amp($url);
 }
 
 /**
@@ -1995,14 +1994,14 @@ 
  * @return string
  */
 function generer_objet_url_absolue($id = 0, string $entite = '', string $args = '', string $ancre = '', ?bool $public = null, string $type = '', string $connect = ''): string {
-	$id = intval($id);
-	$h = generer_objet_url($id, $entite, $args, $ancre, $public, $type, $connect);
-	if (!preg_match(',^\w+:,', $h)) {
-		include_spip('inc/filtres_mini');
-		$h = url_absolue($h);
-	}
+    $id = intval($id);
+    $h = generer_objet_url($id, $entite, $args, $ancre, $public, $type, $connect);
+    if (!preg_match(',^\w+:,', $h)) {
+        include_spip('inc/filtres_mini');
+        $h = url_absolue($h);
+    }
 
-	return $h;
+    return $h;
 }
 
 /**
@@ -2010,7 +2009,7 @@ 
  * @see  generer_objet_url_absolue
  */
 function generer_url_entite_absolue($id = 0, $entite = '', $args = '', $ancre = '', $connect = null) {
-	return generer_objet_url_absolue(intval($id), $entite, $args, $ancre, true, '', $connect ?? '');
+    return generer_objet_url_absolue(intval($id), $entite, $args, $ancre, true, '', $connect ?? '');
 }
 
 
@@ -2026,11 +2025,11 @@ 
  *     true si la valeur est considérée active ; false sinon.
  **/
 function test_valeur_serveur($truc) {
-	if (!$truc) {
-		return false;
-	}
+    if (!$truc) {
+        return false;
+    }
 
-	return (strtolower($truc) !== 'off');
+    return (strtolower($truc) !== 'off');
 }
 
 //
@@ -2058,89 +2057,89 @@ 
  */
 function url_de_base($profondeur = null) {
 
-	static $url = [];
-	if (is_array($profondeur)) {
-		return $url = $profondeur;
-	}
-	if ($profondeur === false) {
-		return $url;
-	}
-
-	if (is_null($profondeur)) {
-		$profondeur = $GLOBALS['profondeur_url'] ?? (_DIR_RESTREINT ? 0 : 1);
-	}
-
-	if (isset($url[$profondeur])) {
-		return $url[$profondeur];
-	}
-
-	$http = 'http';
-
-	if (
-		isset($_SERVER['SCRIPT_URI'])
-		and substr($_SERVER['SCRIPT_URI'], 0, 5) == 'https'
-	) {
-		$http = 'https';
-	} elseif (
-		isset($_SERVER['HTTPS'])
-		and test_valeur_serveur($_SERVER['HTTPS'])
-	) {
-		$http = 'https';
-	}
-
-	// note : HTTP_HOST contient le :port si necessaire
-	if ($host = $_SERVER['HTTP_HOST'] ?? null) {
-		// Filtrer $host pour proteger d'attaques d'entete HTTP
-		$host = (filter_var($host, FILTER_SANITIZE_URL) ?: null);
-	}
-
-	// si on n'a pas trouvé d'hôte du tout, en dernier recours on utilise adresse_site comme fallback
-	if (is_null($host) and isset($GLOBALS['meta']['adresse_site'])) {
-		$host = $GLOBALS['meta']['adresse_site'];
-		if ($scheme = parse_url($host, PHP_URL_SCHEME)) {
-			$http = $scheme;
-			$host = str_replace("{$scheme}://", '', $host);
-		}
-	}
-	if (
-		isset($_SERVER['SERVER_PORT'])
-		and $port = $_SERVER['SERVER_PORT']
-		and strpos($host, ':') == false
-	) {
-		if (!defined('_PORT_HTTP_STANDARD')) {
-			define('_PORT_HTTP_STANDARD', '80');
-		}
-		if (!defined('_PORT_HTTPS_STANDARD')) {
-			define('_PORT_HTTPS_STANDARD', '443');
-		}
-		if ($http == 'http' and !in_array($port, explode(',', _PORT_HTTP_STANDARD))) {
-			$host .= ":$port";
-		}
-		if ($http == 'https' and !in_array($port, explode(',', _PORT_HTTPS_STANDARD))) {
-			$host .= ":$port";
-		}
-	}
-
-	if (!$GLOBALS['REQUEST_URI']) {
-		if (isset($_SERVER['REQUEST_URI'])) {
-			$GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
-		} else {
-			$GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
-			if (
-				!empty($_SERVER['QUERY_STRING'])
-				and !strpos($_SERVER['REQUEST_URI'], '?')
-			) {
-				$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
-			}
-		}
-	}
-
-	// Et nettoyer l'url
-	$GLOBALS['REQUEST_URI'] = (filter_var($GLOBALS['REQUEST_URI'], FILTER_SANITIZE_URL) ?: '');
-
-	$url[$profondeur] = url_de_($http, $host, $GLOBALS['REQUEST_URI'], $profondeur);
-
-	return $url[$profondeur];
+    static $url = [];
+    if (is_array($profondeur)) {
+        return $url = $profondeur;
+    }
+    if ($profondeur === false) {
+        return $url;
+    }
+
+    if (is_null($profondeur)) {
+        $profondeur = $GLOBALS['profondeur_url'] ?? (_DIR_RESTREINT ? 0 : 1);
+    }
+
+    if (isset($url[$profondeur])) {
+        return $url[$profondeur];
+    }
+
+    $http = 'http';
+
+    if (
+        isset($_SERVER['SCRIPT_URI'])
+        and substr($_SERVER['SCRIPT_URI'], 0, 5) == 'https'
+    ) {
+        $http = 'https';
+    } elseif (
+        isset($_SERVER['HTTPS'])
+        and test_valeur_serveur($_SERVER['HTTPS'])
+    ) {
+        $http = 'https';
+    }
+
+    // note : HTTP_HOST contient le :port si necessaire
+    if ($host = $_SERVER['HTTP_HOST'] ?? null) {
+        // Filtrer $host pour proteger d'attaques d'entete HTTP
+        $host = (filter_var($host, FILTER_SANITIZE_URL) ?: null);
+    }
+
+    // si on n'a pas trouvé d'hôte du tout, en dernier recours on utilise adresse_site comme fallback
+    if (is_null($host) and isset($GLOBALS['meta']['adresse_site'])) {
+        $host = $GLOBALS['meta']['adresse_site'];
+        if ($scheme = parse_url($host, PHP_URL_SCHEME)) {
+            $http = $scheme;
+            $host = str_replace("{$scheme}://", '', $host);
+        }
+    }
+    if (
+        isset($_SERVER['SERVER_PORT'])
+        and $port = $_SERVER['SERVER_PORT']
+        and strpos($host, ':') == false
+    ) {
+        if (!defined('_PORT_HTTP_STANDARD')) {
+            define('_PORT_HTTP_STANDARD', '80');
+        }
+        if (!defined('_PORT_HTTPS_STANDARD')) {
+            define('_PORT_HTTPS_STANDARD', '443');
+        }
+        if ($http == 'http' and !in_array($port, explode(',', _PORT_HTTP_STANDARD))) {
+            $host .= ":$port";
+        }
+        if ($http == 'https' and !in_array($port, explode(',', _PORT_HTTPS_STANDARD))) {
+            $host .= ":$port";
+        }
+    }
+
+    if (!$GLOBALS['REQUEST_URI']) {
+        if (isset($_SERVER['REQUEST_URI'])) {
+            $GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
+        } else {
+            $GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
+            if (
+                !empty($_SERVER['QUERY_STRING'])
+                and !strpos($_SERVER['REQUEST_URI'], '?')
+            ) {
+                $GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+            }
+        }
+    }
+
+    // Et nettoyer l'url
+    $GLOBALS['REQUEST_URI'] = (filter_var($GLOBALS['REQUEST_URI'], FILTER_SANITIZE_URL) ?: '');
+
+    $url[$profondeur] = url_de_($http, $host, $GLOBALS['REQUEST_URI'], $profondeur);
+
+    return $url[$profondeur];
 }
 
 /**
@@ -2153,26 +2152,26 @@ 
  * @return string
  */
 function url_de_($http, $host, $request, $prof = 0) {
-	$prof = max($prof, 0);
+    $prof = max($prof, 0);
 
-	$myself = ltrim($request, '/');
-	# supprimer la chaine de GET
-	[$myself] = explode('?', $myself);
-	// vieux mode HTTP qui envoie après le nom de la methode l'URL compléte
-	// protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]
-	if (strpos($myself, '://') !== false) {
-		$myself = explode('://', $myself);
-		array_shift($myself);
-		$myself = implode('://', $myself);
-		$myself = explode('/', $myself);
-		array_shift($myself);
-		$myself = implode('/', $myself);
-	}
-	$url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';
+    $myself = ltrim($request, '/');
+    # supprimer la chaine de GET
+    [$myself] = explode('?', $myself);
+    // vieux mode HTTP qui envoie après le nom de la methode l'URL compléte
+    // protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]
+    if (strpos($myself, '://') !== false) {
+        $myself = explode('://', $myself);
+        array_shift($myself);
+        $myself = implode('://', $myself);
+        $myself = explode('/', $myself);
+        array_shift($myself);
+        $myself = implode('/', $myself);
+    }
+    $url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';
 
-	$url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');
+    $url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');
 
-	return $url;
+    return $url;
 }
 
 
@@ -2207,26 +2206,26 @@ 
  * @return string URL
  **/
 function generer_url_ecrire(?string $script = '', $args = '', $no_entities = false, $rel = false) {
-	$script ??= '';
-	if (!$rel) {
-		$rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
-	} else {
-		if (!is_string($rel)) {
-			$rel = _DIR_RESTREINT ?: './' . _SPIP_ECRIRE_SCRIPT;
-		}
-	}
-
-	[$script, $ancre] = array_pad(explode('#', $script), 2, null);
-	if ($script and ($script <> 'accueil' or $rel)) {
-		$args = "?exec=$script" . (!$args ? '' : "&$args");
-	} elseif ($args) {
-		$args = "?$args";
-	}
-	if ($ancre) {
-		$args .= "#$ancre";
-	}
-
-	return $rel . ($no_entities ? $args : str_replace('&', '&amp;', $args));
+    $script ??= '';
+    if (!$rel) {
+        $rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
+    } else {
+        if (!is_string($rel)) {
+            $rel = _DIR_RESTREINT ?: './' . _SPIP_ECRIRE_SCRIPT;
+        }
+    }
+
+    [$script, $ancre] = array_pad(explode('#', $script), 2, null);
+    if ($script and ($script <> 'accueil' or $rel)) {
+        $args = "?exec=$script" . (!$args ? '' : "&$args");
+    } elseif ($args) {
+        $args = "?$args";
+    }
+    if ($ancre) {
+        $args .= "#$ancre";
+    }
+
+    return $rel . ($no_entities ? $args : str_replace('&', '&amp;', $args));
 }
 
 //
@@ -2248,15 +2247,15 @@ 
  *     Nom du fichier (constante _SPIP_SCRIPT), sinon nom par défaut
  **/
 function get_spip_script($default = '') {
-	if (!defined('_SPIP_SCRIPT')) {
-		return 'spip.php';
-	}
-	# cas define('_SPIP_SCRIPT', '');
-	if (_SPIP_SCRIPT) {
-		return _SPIP_SCRIPT;
-	} else {
-		return $default;
-	}
+    if (!defined('_SPIP_SCRIPT')) {
+        return 'spip.php';
+    }
+    # cas define('_SPIP_SCRIPT', '');
+    if (_SPIP_SCRIPT) {
+        return _SPIP_SCRIPT;
+    } else {
+        return $default;
+    }
 }
 
 /**
@@ -2285,45 +2284,45 @@ 
  * @return string URL
  **/
 function generer_url_public($script = '', $args = '', $no_entities = false, $rel = true, $action = '') {
-	// si le script est une action (spip_pass, spip_inscription),
-	// standardiser vers la nouvelle API
-
-	if (is_array($args)) {
-		$args = http_build_query($args);
-	}
-
-	$url = '';
-	if ($f = charger_fonction_url('page')) {
-		$url = $f($script, $args);
-		if ($url and !$rel) {
-			include_spip('inc/filtres_mini');
-			$url = url_absolue($url);
-		}
-	}
-	if (!$url) {
-		if (!$action) {
-			$action = get_spip_script();
-		}
-		if ($script) {
-			$action = parametre_url($action, _SPIP_PAGE, $script, '&');
-		}
-		if ($args) {
-			$action .= (strpos($action, '?') !== false ? '&' : '?') . $args;
-		}
-		// ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
-		$url = ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(',^/[.]/,', '/', "/$action"));
-	}
-
-	if (!$no_entities) {
-		$url = quote_amp($url);
-	}
-
-	return $url;
+    // si le script est une action (spip_pass, spip_inscription),
+    // standardiser vers la nouvelle API
+
+    if (is_array($args)) {
+        $args = http_build_query($args);
+    }
+
+    $url = '';
+    if ($f = charger_fonction_url('page')) {
+        $url = $f($script, $args);
+        if ($url and !$rel) {
+            include_spip('inc/filtres_mini');
+            $url = url_absolue($url);
+        }
+    }
+    if (!$url) {
+        if (!$action) {
+            $action = get_spip_script();
+        }
+        if ($script) {
+            $action = parametre_url($action, _SPIP_PAGE, $script, '&');
+        }
+        if ($args) {
+            $action .= (strpos($action, '?') !== false ? '&' : '?') . $args;
+        }
+        // ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
+        $url = ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(',^/[.]/,', '/', "/$action"));
+    }
+
+    if (!$no_entities) {
+        $url = quote_amp($url);
+    }
+
+    return $url;
 }
 
 function generer_url_prive($script, $args = '', $no_entities = false) {
 
-	return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
+    return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
 }
 
 // Pour les formulaires en methode POST,
@@ -2348,19 +2347,19 @@ 
  **/
 function generer_form_ecrire($script, $corps, $atts = '', $submit = '') {
 
-	$script1 = explode('&', $script);
-	$script1 = reset($script1);
+    $script1 = explode('&', $script);
+    $script1 = reset($script1);
 
-	return "<form action='"
-	. ($script ? generer_url_ecrire($script) : '')
-	. "' "
-	. ($atts ?: " method='post'")
-	. "><div>\n"
-	. "<input type='hidden' name='exec' value='$script1' />"
-	. $corps
-	. (!$submit ? '' :
-		("<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><input class='fondo submit btn' type='submit' value=\"" . entites_html($submit) . '" /></div>'))
-	. "</div></form>\n";
+    return "<form action='"
+    . ($script ? generer_url_ecrire($script) : '')
+    . "' "
+    . ($atts ?: " method='post'")
+    . "><div>\n"
+    . "<input type='hidden' name='exec' value='$script1' />"
+    . $corps
+    . (!$submit ? '' :
+        ("<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><input class='fondo submit btn' type='submit' value=\"" . entites_html($submit) . '" /></div>'))
+    . "</div></form>\n";
 }
 
 /**
@@ -2377,22 +2376,22 @@ 
  * @return string
  */
 function generer_form_action($script, $corps, $atts = '', $public = false) {
-	// si l'on est dans l'espace prive, on garde dans l'url
-	// l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
-	// ou non de proceder a l'authentification (cas typique de l'install par exemple)
-	$h = (_DIR_RACINE and !$public)
-		? generer_url_ecrire(_request('exec'))
-		: generer_url_public();
+    // si l'on est dans l'espace prive, on garde dans l'url
+    // l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
+    // ou non de proceder a l'authentification (cas typique de l'install par exemple)
+    $h = (_DIR_RACINE and !$public)
+        ? generer_url_ecrire(_request('exec'))
+        : generer_url_public();
 
-	return "\n<form action='" .
-	$h .
-	"'" .
-	$atts .
-	">\n" .
-	'<div>' .
-	"\n<input type='hidden' name='action' value='$script' />" .
-	$corps .
-	'</div></form>';
+    return "\n<form action='" .
+    $h .
+    "'" .
+    $atts .
+    ">\n" .
+    '<div>' .
+    "\n<input type='hidden' name='action' value='$script' />" .
+    $corps .
+    '</div></form>';
 }
 
 /**
@@ -2411,22 +2410,22 @@ 
  *     URL
  */
 function generer_url_action($script, $args = '', $no_entities = false, $public = false) {
-	// si l'on est dans l'espace prive, on garde dans l'url
-	// l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
-	// ou non de proceder a l'authentification (cas typique de l'install par exemple)
-	$url = (_DIR_RACINE and !$public)
-		? generer_url_ecrire(_request('exec'))
-		: generer_url_public('', '', false, false);
-	$url = parametre_url($url, 'action', $script);
-	if ($args) {
-		$url .= quote_amp('&' . $args);
-	}
+    // si l'on est dans l'espace prive, on garde dans l'url
+    // l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
+    // ou non de proceder a l'authentification (cas typique de l'install par exemple)
+    $url = (_DIR_RACINE and !$public)
+        ? generer_url_ecrire(_request('exec'))
+        : generer_url_public('', '', false, false);
+    $url = parametre_url($url, 'action', $script);
+    if ($args) {
+        $url .= quote_amp('&' . $args);
+    }
 
-	if ($no_entities) {
-		$url = str_replace('&amp;', '&', $url);
-	}
+    if ($no_entities) {
+        $url = str_replace('&amp;', '&', $url);
+    }
 
-	return $url;
+    return $url;
 }
 
 
@@ -2445,23 +2444,23 @@ 
  *     URL
  */
 function generer_url_api(string $script, string $path, string $args, bool $no_entities = false, ?bool $public = null) {
-	if (is_null($public)) {
-		$public = (_DIR_RACINE ? false : '');
-	}
-	if (substr($script, -4) !== '.api') {
-		$script .= '.api';
-	}
-	$url =
-		(($public ? _DIR_RACINE : _DIR_RESTREINT) ?: './')
-	. $script . '/'
-	. ($path ? trim($path, '/') : '')
-	. ($args ? '?' . quote_amp($args) : '');
+    if (is_null($public)) {
+        $public = (_DIR_RACINE ? false : '');
+    }
+    if (substr($script, -4) !== '.api') {
+        $script .= '.api';
+    }
+    $url =
+        (($public ? _DIR_RACINE : _DIR_RESTREINT) ?: './')
+    . $script . '/'
+    . ($path ? trim($path, '/') : '')
+    . ($args ? '?' . quote_amp($args) : '');
 
-	if ($no_entities) {
-		$url = str_replace('&amp;', '&', $url);
-	}
+    if ($no_entities) {
+        $url = str_replace('&amp;', '&', $url);
+    }
 
-	return $url;
+    return $url;
 }
 
 
@@ -2474,8 +2473,8 @@ 
  * @param string $ta Répertoire temporaire accessible
  */
 function spip_initialisation($pi = null, $pa = null, $ti = null, $ta = null) {
-	spip_initialisation_core($pi, $pa, $ti, $ta);
-	spip_initialisation_suite();
+    spip_initialisation_core($pi, $pa, $ti, $ta);
+    spip_initialisation_suite();
 }
 
 /**
@@ -2495,310 +2494,310 @@ 
  * @param string $ta Répertoire temporaire accessible
  */
 function spip_initialisation_core($pi = null, $pa = null, $ti = null, $ta = null) {
-	static $too_late = 0;
-	if ($too_late++) {
-		return;
-	}
-
-	// Declaration des repertoires
-
-	// le nom du repertoire plugins/ activables/desactivables
-	if (!defined('_DIR_PLUGINS')) {
-		define('_DIR_PLUGINS', _DIR_RACINE . 'plugins/');
-	}
-
-	// le nom du repertoire des extensions/ permanentes du core, toujours actives
-	if (!defined('_DIR_PLUGINS_DIST')) {
-		define('_DIR_PLUGINS_DIST', _DIR_RACINE . 'plugins-dist/');
-	}
-
-	// le nom du repertoire des librairies
-	if (!defined('_DIR_LIB')) {
-		define('_DIR_LIB', _DIR_RACINE . 'lib/');
-	}
-
-	if (!defined('_DIR_IMG')) {
-		define('_DIR_IMG', $pa);
-	}
-	if (!defined('_DIR_LOGOS')) {
-		define('_DIR_LOGOS', $pa);
-	}
-	if (!defined('_DIR_IMG_ICONES')) {
-		define('_DIR_IMG_ICONES', _DIR_LOGOS . 'icones/');
-	}
-
-	if (!defined('_DIR_DUMP')) {
-		define('_DIR_DUMP', $ti . 'dump/');
-	}
-	if (!defined('_DIR_SESSIONS')) {
-		define('_DIR_SESSIONS', $ti . 'sessions/');
-	}
-	if (!defined('_DIR_TRANSFERT')) {
-		define('_DIR_TRANSFERT', $ti . 'upload/');
-	}
-	if (!defined('_DIR_CACHE')) {
-		define('_DIR_CACHE', $ti . 'cache/');
-	}
-	if (!defined('_DIR_CACHE_XML')) {
-		define('_DIR_CACHE_XML', _DIR_CACHE . 'xml/');
-	}
-	if (!defined('_DIR_SKELS')) {
-		define('_DIR_SKELS', _DIR_CACHE . 'skel/');
-	}
-	if (!defined('_DIR_AIDE')) {
-		define('_DIR_AIDE', _DIR_CACHE . 'aide/');
-	}
-	if (!defined('_DIR_TMP')) {
-		define('_DIR_TMP', $ti);
-	}
-
-	if (!defined('_DIR_VAR')) {
-		define('_DIR_VAR', $ta);
-	}
-
-	if (!defined('_DIR_ETC')) {
-		define('_DIR_ETC', $pi);
-	}
-	if (!defined('_DIR_CONNECT')) {
-		define('_DIR_CONNECT', $pi);
-	}
-	if (!defined('_DIR_CHMOD')) {
-		define('_DIR_CHMOD', $pi);
-	}
-
-	if (!isset($GLOBALS['test_dirs'])) {
-		// Pas $pi car il est bon de le mettre hors ecriture apres intstall
-		// il sera rajoute automatiquement si besoin a l'etape 2 de l'install
-	$GLOBALS['test_dirs'] = [$pa, $ti, $ta];
-	}
-
-	// Declaration des fichiers
-
-	if (!defined('_CACHE_PLUGINS_PATH')) {
-		define('_CACHE_PLUGINS_PATH', _DIR_CACHE . 'charger_plugins_chemins.php');
-	}
-	if (!defined('_CACHE_PLUGINS_OPT')) {
-		define('_CACHE_PLUGINS_OPT', _DIR_CACHE . 'charger_plugins_options.php');
-	}
-	if (!defined('_CACHE_PLUGINS_FCT')) {
-		define('_CACHE_PLUGINS_FCT', _DIR_CACHE . 'charger_plugins_fonctions.php');
-	}
-	if (!defined('_CACHE_PIPELINES')) {
-		define('_CACHE_PIPELINES', _DIR_CACHE . 'charger_pipelines.php');
-	}
-	if (!defined('_CACHE_CHEMIN')) {
-		define('_CACHE_CHEMIN', _DIR_CACHE . 'chemin.txt');
-	}
-
-	# attention .php obligatoire pour ecrire_fichier_securise
-	if (!defined('_FILE_META')) {
-		define('_FILE_META', $ti . 'meta_cache.php');
-	}
-	if (!defined('_DIR_LOG')) {
-		define('_DIR_LOG', _DIR_TMP . 'log/');
-	}
-	if (!defined('_FILE_LOG')) {
-		define('_FILE_LOG', 'spip');
-	}
-	if (!defined('_FILE_LOG_SUFFIX')) {
-		define('_FILE_LOG_SUFFIX', '.log');
-	}
-
-	// Le fichier de connexion a la base de donnees
-	// tient compte des anciennes versions (inc_connect...)
-	if (!defined('_FILE_CONNECT_INS')) {
-		define('_FILE_CONNECT_INS', 'connect');
-	}
-	if (!defined('_FILE_CONNECT')) {
-		define(
-			'_FILE_CONNECT',
-			(@is_readable($f = _DIR_CONNECT . _FILE_CONNECT_INS . '.php') ? $f
-			: (@is_readable($f = _DIR_RESTREINT . 'inc_connect.php') ? $f
-			: false))
-		);
-	}
-
-	// Le fichier de reglages des droits
-	if (!defined('_FILE_CHMOD_INS')) {
-		define('_FILE_CHMOD_INS', 'chmod');
-	}
-	if (!defined('_FILE_CHMOD')) {
-		define(
-			'_FILE_CHMOD',
-			(@is_readable($f = _DIR_CHMOD . _FILE_CHMOD_INS . '.php') ? $f
-			: false)
-		);
-	}
-
-	if (!defined('_FILE_LDAP')) {
-		define('_FILE_LDAP', 'ldap.php');
-	}
-
-	if (!defined('_FILE_TMP_SUFFIX')) {
-		define('_FILE_TMP_SUFFIX', '.tmp.php');
-	}
-	if (!defined('_FILE_CONNECT_TMP')) {
-		define('_FILE_CONNECT_TMP', _DIR_CONNECT . _FILE_CONNECT_INS . _FILE_TMP_SUFFIX);
-	}
-	if (!defined('_FILE_CHMOD_TMP')) {
-		define('_FILE_CHMOD_TMP', _DIR_CHMOD . _FILE_CHMOD_INS . _FILE_TMP_SUFFIX);
-	}
-
-	// Definition des droits d'acces en ecriture
-	if (!defined('_SPIP_CHMOD') and _FILE_CHMOD) {
-		include_once _FILE_CHMOD;
-	}
-
-	// Se mefier des fichiers mal remplis!
-	if (!defined('_SPIP_CHMOD')) {
-		define('_SPIP_CHMOD', 0777);
-	}
-
-	if (!defined('_DEFAULT_CHARSET')) {
-		/** Le charset par défaut lors de l'installation */
-		define('_DEFAULT_CHARSET', 'utf-8');
-	}
-	if (!defined('_ROOT_PLUGINS')) {
-		define('_ROOT_PLUGINS', _ROOT_RACINE . 'plugins/');
-	}
-	if (!defined('_ROOT_PLUGINS_DIST')) {
-		define('_ROOT_PLUGINS_DIST', _ROOT_RACINE . 'plugins-dist/');
-	}
-	if (!defined('_ROOT_PLUGINS_SUPPL') && defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
-		define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE . str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
-	}
-
-	// La taille des Log
-	if (!defined('_MAX_LOG')) {
-		define('_MAX_LOG', 100);
-	}
-
-	// Sommes-nous dans l'empire du Mal ?
-	// (ou sous le signe du Pingouin, ascendant GNU ?)
-	if (isset($_SERVER['SERVER_SOFTWARE']) and strpos($_SERVER['SERVER_SOFTWARE'], '(Win') !== false) {
-		if (!defined('_OS_SERVEUR')) {
-			define('_OS_SERVEUR', 'windows');
-		}
-		if (!defined('_SPIP_LOCK_MODE')) {
-			define('_SPIP_LOCK_MODE', 1);
-		} // utiliser le flock php
-	} else {
-		if (!defined('_OS_SERVEUR')) {
-			define('_OS_SERVEUR', '');
-		}
-		if (!defined('_SPIP_LOCK_MODE')) {
-			define('_SPIP_LOCK_MODE', 1);
-		} // utiliser le flock php
-		#if (!defined('_SPIP_LOCK_MODE')) define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip mais link() est tres souvent interdite
-	}
-
-	// Langue par defaut
-	if (!defined('_LANGUE_PAR_DEFAUT')) {
-		define('_LANGUE_PAR_DEFAUT', 'fr');
-	}
-
-	//
-	// Module de lecture/ecriture/suppression de fichiers utilisant flock()
-	// (non surchargeable en l'etat ; attention si on utilise include_spip()
-	// pour le rendre surchargeable, on va provoquer un reecriture
-	// systematique du noyau ou une baisse de perfs => a etudier)
-	include_once _ROOT_RESTREINT . 'inc/flock.php';
-
-	// charger tout de suite le path et son cache
-	load_path_cache();
-
-	// *********** traiter les variables ************
-
-	//
-	// Securite
-	//
-
-	// Ne pas se faire manger par un bug php qui accepte ?GLOBALS[truc]=toto
-	if (isset($_REQUEST['GLOBALS'])) {
-		die();
-	}
-	// nettoyer les magic quotes \' et les caracteres nuls %00
-	spip_desinfecte($_GET);
-	spip_desinfecte($_POST);
-	spip_desinfecte($_COOKIE);
-	spip_desinfecte($_REQUEST);
-
-	// appliquer le cookie_prefix
-	if ($GLOBALS['cookie_prefix'] != 'spip') {
-		include_spip('inc/cookie');
-		recuperer_cookies_spip($GLOBALS['cookie_prefix']);
-	}
-
-	// Compatibilite avec serveurs ne fournissant pas $REQUEST_URI
-	if (isset($_SERVER['REQUEST_URI'])) {
-		$GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
-	} else {
-		$GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
-		if (
-			!empty($_SERVER['QUERY_STRING'])
-			and !strpos($_SERVER['REQUEST_URI'], '?')
-		) {
-			$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
-		}
-	}
-
-	// Duree de validite de l'alea pour les cookies et ce qui s'ensuit.
-	if (!defined('_RENOUVELLE_ALEA')) {
-		define('_RENOUVELLE_ALEA', 12 * 3600);
-	}
-	if (!defined('_DUREE_COOKIE_ADMIN')) {
-		define('_DUREE_COOKIE_ADMIN', 14 * 24 * 3600);
-	}
-
-	// charger les meta si possible et renouveller l'alea au besoin
-	// charge aussi effacer_meta et ecrire_meta
-	$inc_meta = charger_fonction('meta', 'inc');
-	$inc_meta();
-
-	// nombre de repertoires depuis la racine
-	// on compare a l'adresse de spip.php : $_SERVER["SCRIPT_NAME"]
-	// ou a defaut celle donnee en meta ; (mais si celle-ci est fausse
-	// le calcul est faux)
-	if (!_DIR_RESTREINT) {
-		$GLOBALS['profondeur_url'] = 1;
-	} else {
-		$uri = isset($_SERVER['REQUEST_URI']) ? explode('?', $_SERVER['REQUEST_URI']) : '';
-		$uri_ref = $_SERVER['SCRIPT_NAME'];
-		if (
-			!$uri_ref
-			// si on est appele avec un autre ti, on est sans doute en mutu
-			// si jamais c'est de la mutu avec sous rep, on est perdu si on se fie
-			// a spip.php qui est a la racine du spip, et vue qu'on sait pas se reperer
-			// s'en remettre a l'adresse du site. alea jacta est.
-			or $ti !== _NOM_TEMPORAIRES_INACCESSIBLES
-		) {
-			if (isset($GLOBALS['meta']['adresse_site'])) {
-				$uri_ref = parse_url($GLOBALS['meta']['adresse_site']);
-				$uri_ref = ($uri_ref['path'] ?? '') . '/';
-			} else {
-				$uri_ref = '';
-			}
-		}
-		if (!$uri or !$uri_ref) {
-			$GLOBALS['profondeur_url'] = 0;
-		} else {
-			$GLOBALS['profondeur_url'] = max(
-				0,
-				substr_count($uri[0], '/')
-				- substr_count($uri_ref, '/')
-			);
-		}
-	}
-	// s'il y a un cookie ou PHP_AUTH, initialiser visiteur_session
-	if (_FILE_CONNECT) {
-		if (
-			verifier_visiteur() == '0minirezo'
-			// si c'est un admin sans cookie admin, il faut ignorer le cache chemin !
-			and !isset($_COOKIE['spip_admin'])
-		) {
-			clear_path_cache();
-		}
-	}
+    static $too_late = 0;
+    if ($too_late++) {
+        return;
+    }
+
+    // Declaration des repertoires
+
+    // le nom du repertoire plugins/ activables/desactivables
+    if (!defined('_DIR_PLUGINS')) {
+        define('_DIR_PLUGINS', _DIR_RACINE . 'plugins/');
+    }
+
+    // le nom du repertoire des extensions/ permanentes du core, toujours actives
+    if (!defined('_DIR_PLUGINS_DIST')) {
+        define('_DIR_PLUGINS_DIST', _DIR_RACINE . 'plugins-dist/');
+    }
+
+    // le nom du repertoire des librairies
+    if (!defined('_DIR_LIB')) {
+        define('_DIR_LIB', _DIR_RACINE . 'lib/');
+    }
+
+    if (!defined('_DIR_IMG')) {
+        define('_DIR_IMG', $pa);
+    }
+    if (!defined('_DIR_LOGOS')) {
+        define('_DIR_LOGOS', $pa);
+    }
+    if (!defined('_DIR_IMG_ICONES')) {
+        define('_DIR_IMG_ICONES', _DIR_LOGOS . 'icones/');
+    }
+
+    if (!defined('_DIR_DUMP')) {
+        define('_DIR_DUMP', $ti . 'dump/');
+    }
+    if (!defined('_DIR_SESSIONS')) {
+        define('_DIR_SESSIONS', $ti . 'sessions/');
+    }
+    if (!defined('_DIR_TRANSFERT')) {
+        define('_DIR_TRANSFERT', $ti . 'upload/');
+    }
+    if (!defined('_DIR_CACHE')) {
+        define('_DIR_CACHE', $ti . 'cache/');
+    }
+    if (!defined('_DIR_CACHE_XML')) {
+        define('_DIR_CACHE_XML', _DIR_CACHE . 'xml/');
+    }
+    if (!defined('_DIR_SKELS')) {
+        define('_DIR_SKELS', _DIR_CACHE . 'skel/');
+    }
+    if (!defined('_DIR_AIDE')) {
+        define('_DIR_AIDE', _DIR_CACHE . 'aide/');
+    }
+    if (!defined('_DIR_TMP')) {
+        define('_DIR_TMP', $ti);
+    }
+
+    if (!defined('_DIR_VAR')) {
+        define('_DIR_VAR', $ta);
+    }
+
+    if (!defined('_DIR_ETC')) {
+        define('_DIR_ETC', $pi);
+    }
+    if (!defined('_DIR_CONNECT')) {
+        define('_DIR_CONNECT', $pi);
+    }
+    if (!defined('_DIR_CHMOD')) {
+        define('_DIR_CHMOD', $pi);
+    }
+
+    if (!isset($GLOBALS['test_dirs'])) {
+        // Pas $pi car il est bon de le mettre hors ecriture apres intstall
+        // il sera rajoute automatiquement si besoin a l'etape 2 de l'install
+    $GLOBALS['test_dirs'] = [$pa, $ti, $ta];
+    }
+
+    // Declaration des fichiers
+
+    if (!defined('_CACHE_PLUGINS_PATH')) {
+        define('_CACHE_PLUGINS_PATH', _DIR_CACHE . 'charger_plugins_chemins.php');
+    }
+    if (!defined('_CACHE_PLUGINS_OPT')) {
+        define('_CACHE_PLUGINS_OPT', _DIR_CACHE . 'charger_plugins_options.php');
+    }
+    if (!defined('_CACHE_PLUGINS_FCT')) {
+        define('_CACHE_PLUGINS_FCT', _DIR_CACHE . 'charger_plugins_fonctions.php');
+    }
+    if (!defined('_CACHE_PIPELINES')) {
+        define('_CACHE_PIPELINES', _DIR_CACHE . 'charger_pipelines.php');
+    }
+    if (!defined('_CACHE_CHEMIN')) {
+        define('_CACHE_CHEMIN', _DIR_CACHE . 'chemin.txt');
+    }
+
+    # attention .php obligatoire pour ecrire_fichier_securise
+    if (!defined('_FILE_META')) {
+        define('_FILE_META', $ti . 'meta_cache.php');
+    }
+    if (!defined('_DIR_LOG')) {
+        define('_DIR_LOG', _DIR_TMP . 'log/');
+    }
+    if (!defined('_FILE_LOG')) {
+        define('_FILE_LOG', 'spip');
+    }
+    if (!defined('_FILE_LOG_SUFFIX')) {
+        define('_FILE_LOG_SUFFIX', '.log');
+    }
+
+    // Le fichier de connexion a la base de donnees
+    // tient compte des anciennes versions (inc_connect...)
+    if (!defined('_FILE_CONNECT_INS')) {
+        define('_FILE_CONNECT_INS', 'connect');
+    }
+    if (!defined('_FILE_CONNECT')) {
+        define(
+            '_FILE_CONNECT',
+            (@is_readable($f = _DIR_CONNECT . _FILE_CONNECT_INS . '.php') ? $f
+            : (@is_readable($f = _DIR_RESTREINT . 'inc_connect.php') ? $f
+            : false))
+        );
+    }
+
+    // Le fichier de reglages des droits
+    if (!defined('_FILE_CHMOD_INS')) {
+        define('_FILE_CHMOD_INS', 'chmod');
+    }
+    if (!defined('_FILE_CHMOD')) {
+        define(
+            '_FILE_CHMOD',
+            (@is_readable($f = _DIR_CHMOD . _FILE_CHMOD_INS . '.php') ? $f
+            : false)
+        );
+    }
+
+    if (!defined('_FILE_LDAP')) {
+        define('_FILE_LDAP', 'ldap.php');
+    }
+
+    if (!defined('_FILE_TMP_SUFFIX')) {
+        define('_FILE_TMP_SUFFIX', '.tmp.php');
+    }
+    if (!defined('_FILE_CONNECT_TMP')) {
+        define('_FILE_CONNECT_TMP', _DIR_CONNECT . _FILE_CONNECT_INS . _FILE_TMP_SUFFIX);
+    }
+    if (!defined('_FILE_CHMOD_TMP')) {
+        define('_FILE_CHMOD_TMP', _DIR_CHMOD . _FILE_CHMOD_INS . _FILE_TMP_SUFFIX);
+    }
+
+    // Definition des droits d'acces en ecriture
+    if (!defined('_SPIP_CHMOD') and _FILE_CHMOD) {
+        include_once _FILE_CHMOD;
+    }
+
+    // Se mefier des fichiers mal remplis!
+    if (!defined('_SPIP_CHMOD')) {
+        define('_SPIP_CHMOD', 0777);
+    }
+
+    if (!defined('_DEFAULT_CHARSET')) {
+        /** Le charset par défaut lors de l'installation */
+        define('_DEFAULT_CHARSET', 'utf-8');
+    }
+    if (!defined('_ROOT_PLUGINS')) {
+        define('_ROOT_PLUGINS', _ROOT_RACINE . 'plugins/');
+    }
+    if (!defined('_ROOT_PLUGINS_DIST')) {
+        define('_ROOT_PLUGINS_DIST', _ROOT_RACINE . 'plugins-dist/');
+    }
+    if (!defined('_ROOT_PLUGINS_SUPPL') && defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
+        define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE . str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
+    }
+
+    // La taille des Log
+    if (!defined('_MAX_LOG')) {
+        define('_MAX_LOG', 100);
+    }
+
+    // Sommes-nous dans l'empire du Mal ?
+    // (ou sous le signe du Pingouin, ascendant GNU ?)
+    if (isset($_SERVER['SERVER_SOFTWARE']) and strpos($_SERVER['SERVER_SOFTWARE'], '(Win') !== false) {
+        if (!defined('_OS_SERVEUR')) {
+            define('_OS_SERVEUR', 'windows');
+        }
+        if (!defined('_SPIP_LOCK_MODE')) {
+            define('_SPIP_LOCK_MODE', 1);
+        } // utiliser le flock php
+    } else {
+        if (!defined('_OS_SERVEUR')) {
+            define('_OS_SERVEUR', '');
+        }
+        if (!defined('_SPIP_LOCK_MODE')) {
+            define('_SPIP_LOCK_MODE', 1);
+        } // utiliser le flock php
+        #if (!defined('_SPIP_LOCK_MODE')) define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip mais link() est tres souvent interdite
+    }
+
+    // Langue par defaut
+    if (!defined('_LANGUE_PAR_DEFAUT')) {
+        define('_LANGUE_PAR_DEFAUT', 'fr');
+    }
+
+    //
+    // Module de lecture/ecriture/suppression de fichiers utilisant flock()
+    // (non surchargeable en l'etat ; attention si on utilise include_spip()
+    // pour le rendre surchargeable, on va provoquer un reecriture
+    // systematique du noyau ou une baisse de perfs => a etudier)
+    include_once _ROOT_RESTREINT . 'inc/flock.php';
+
+    // charger tout de suite le path et son cache
+    load_path_cache();
+
+    // *********** traiter les variables ************
+
+    //
+    // Securite
+    //
+
+    // Ne pas se faire manger par un bug php qui accepte ?GLOBALS[truc]=toto
+    if (isset($_REQUEST['GLOBALS'])) {
+        die();
+    }
+    // nettoyer les magic quotes \' et les caracteres nuls %00
+    spip_desinfecte($_GET);
+    spip_desinfecte($_POST);
+    spip_desinfecte($_COOKIE);
+    spip_desinfecte($_REQUEST);
+
+    // appliquer le cookie_prefix
+    if ($GLOBALS['cookie_prefix'] != 'spip') {
+        include_spip('inc/cookie');
+        recuperer_cookies_spip($GLOBALS['cookie_prefix']);
+    }
+
+    // Compatibilite avec serveurs ne fournissant pas $REQUEST_URI
+    if (isset($_SERVER['REQUEST_URI'])) {
+        $GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
+    } else {
+        $GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
+        if (
+            !empty($_SERVER['QUERY_STRING'])
+            and !strpos($_SERVER['REQUEST_URI'], '?')
+        ) {
+            $GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+        }
+    }
+
+    // Duree de validite de l'alea pour les cookies et ce qui s'ensuit.
+    if (!defined('_RENOUVELLE_ALEA')) {
+        define('_RENOUVELLE_ALEA', 12 * 3600);
+    }
+    if (!defined('_DUREE_COOKIE_ADMIN')) {
+        define('_DUREE_COOKIE_ADMIN', 14 * 24 * 3600);
+    }
+
+    // charger les meta si possible et renouveller l'alea au besoin
+    // charge aussi effacer_meta et ecrire_meta
+    $inc_meta = charger_fonction('meta', 'inc');
+    $inc_meta();
+
+    // nombre de repertoires depuis la racine
+    // on compare a l'adresse de spip.php : $_SERVER["SCRIPT_NAME"]
+    // ou a defaut celle donnee en meta ; (mais si celle-ci est fausse
+    // le calcul est faux)
+    if (!_DIR_RESTREINT) {
+        $GLOBALS['profondeur_url'] = 1;
+    } else {
+        $uri = isset($_SERVER['REQUEST_URI']) ? explode('?', $_SERVER['REQUEST_URI']) : '';
+        $uri_ref = $_SERVER['SCRIPT_NAME'];
+        if (
+            !$uri_ref
+            // si on est appele avec un autre ti, on est sans doute en mutu
+            // si jamais c'est de la mutu avec sous rep, on est perdu si on se fie
+            // a spip.php qui est a la racine du spip, et vue qu'on sait pas se reperer
+            // s'en remettre a l'adresse du site. alea jacta est.
+            or $ti !== _NOM_TEMPORAIRES_INACCESSIBLES
+        ) {
+            if (isset($GLOBALS['meta']['adresse_site'])) {
+                $uri_ref = parse_url($GLOBALS['meta']['adresse_site']);
+                $uri_ref = ($uri_ref['path'] ?? '') . '/';
+            } else {
+                $uri_ref = '';
+            }
+        }
+        if (!$uri or !$uri_ref) {
+            $GLOBALS['profondeur_url'] = 0;
+        } else {
+            $GLOBALS['profondeur_url'] = max(
+                0,
+                substr_count($uri[0], '/')
+                - substr_count($uri_ref, '/')
+            );
+        }
+    }
+    // s'il y a un cookie ou PHP_AUTH, initialiser visiteur_session
+    if (_FILE_CONNECT) {
+        if (
+            verifier_visiteur() == '0minirezo'
+            // si c'est un admin sans cookie admin, il faut ignorer le cache chemin !
+            and !isset($_COOKIE['spip_admin'])
+        ) {
+            clear_path_cache();
+        }
+    }
 }
 
 /**
@@ -2807,157 +2806,157 @@ 
  *
  */
 function spip_initialisation_suite() {
-	static $too_late = 0;
-	if ($too_late++) {
-		return;
-	}
-
-	// taille mini des login
-	if (!defined('_LOGIN_TROP_COURT')) {
-		define('_LOGIN_TROP_COURT', 4);
-	}
-
-	// la taille maxi des logos (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
-	#if (!defined('_LOGO_MAX_SIZE')) define('_LOGO_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_LOGO_MAX_WIDTH')) define('_LOGO_MAX_WIDTH', 0); # largeur en pixels
-	#if (!defined('_LOGO_MAX_HEIGHT')) define('_LOGO_MAX_HEIGHT', 0); # hauteur en pixels
-
-	// la taille maxi des images (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
-	#if (!defined('_DOC_MAX_SIZE')) define('_DOC_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_IMG_MAX_SIZE')) define('_IMG_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_IMG_MAX_WIDTH')) define('_IMG_MAX_WIDTH', 0); # largeur en pixels
-	#if (!defined('_IMG_MAX_HEIGHT')) define('_IMG_MAX_HEIGHT', 0); # hauteur en pixels
-
-	if (!defined('_PASS_LONGUEUR_MINI')) {
-		define('_PASS_LONGUEUR_MINI', 6);
-	}
-
-	// largeur maximale des images dans l'administration
-	if (!defined('_IMG_ADMIN_MAX_WIDTH')) {
-		define('_IMG_ADMIN_MAX_WIDTH', 768);
-	}
-
-	// Qualite des images calculees automatiquement. C'est un nombre entre 0 et 100, meme pour imagick (on ramene a 0..1 par la suite)
-	if (!defined('_IMG_QUALITE')) {
-		define('_IMG_QUALITE', 85);
-	} # valeur par defaut
-	if (!defined('_IMG_GD_QUALITE')) {
-		define('_IMG_GD_QUALITE', _IMG_QUALITE);
-	} # surcharge pour la lib GD
-	if (!defined('_IMG_CONVERT_QUALITE')) {
-		define('_IMG_CONVERT_QUALITE', _IMG_QUALITE);
-	} # surcharge pour imagick en ligne de commande
-	// Historiquement la valeur pour imagick semble differente. Si ca n'est pas necessaire, il serait preferable de garder _IMG_QUALITE
-	if (!defined('_IMG_IMAGICK_QUALITE')) {
-		define('_IMG_IMAGICK_QUALITE', 75);
-	} # surcharge pour imagick en PHP
-
-	if (!defined('_COPIE_LOCALE_MAX_SIZE')) {
-		define('_COPIE_LOCALE_MAX_SIZE', 33_554_432);
-	} // poids en octet
-
-	// qq chaines standard
-	if (!defined('_ACCESS_FILE_NAME')) {
-		define('_ACCESS_FILE_NAME', '.htaccess');
-	}
-	if (!defined('_AUTH_USER_FILE')) {
-		define('_AUTH_USER_FILE', '.htpasswd');
-	}
-	if (!defined('_SPIP_DUMP')) {
-		define('_SPIP_DUMP', 'dump@nom_site@@stamp@.xml');
-	}
-	if (!defined('_CACHE_RUBRIQUES')) {
-		/** Fichier cache pour le navigateur de rubrique du bandeau */
-		define('_CACHE_RUBRIQUES', _DIR_TMP . 'menu-rubriques-cache.txt');
-	}
-	if (!defined('_CACHE_RUBRIQUES_MAX')) {
-		/** Nombre maxi de rubriques enfants affichées pour chaque rubrique du navigateur de rubrique du bandeau */
-		define('_CACHE_RUBRIQUES_MAX', 500);
-	}
-
-	if (!defined('_CACHE_CONTEXTES_AJAX_SUR_LONGUEUR')) {
-		/**
-		 * Basculer les contextes ajax en fichier si la longueur d’url est trop grande
-		 * @var int Nombre de caractères */
-		define('_CACHE_CONTEXTES_AJAX_SUR_LONGUEUR', 2000);
-	}
-
-	if (!defined('_EXTENSION_SQUELETTES')) {
-		define('_EXTENSION_SQUELETTES', 'html');
-	}
-
-	if (!defined('_DOCTYPE_ECRIRE')) {
-		/** Définit le doctype de l’espace privé */
-		define('_DOCTYPE_ECRIRE', "<!DOCTYPE html>\n");
-	}
-	if (!defined('_DOCTYPE_AIDE')) {
-		/** Définit le doctype de l’aide en ligne */
-		define(
-			'_DOCTYPE_AIDE',
-			"<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Frameset//EN' 'http://www.w3.org/TR/1999/REC-html401-19991224/frameset.dtd'>"
-		);
-	}
-
-	if (!defined('_SPIP_SCRIPT')) {
-		/** L'adresse de base du site ; on peut mettre '' si la racine est gerée par
-		 * le script de l'espace public, alias index.php */
-		define('_SPIP_SCRIPT', 'spip.php');
-	}
-	if (!defined('_SPIP_PAGE')) {
-		/** Argument page, personalisable en cas de conflit avec un autre script */
-		define('_SPIP_PAGE', 'page');
-	}
-
-	// le script de l'espace prive
-	// Mettre a "index.php" si DirectoryIndex ne le fait pas ou pb connexes:
-	// les anciens IIS n'acceptent pas les POST sur ecrire/ (#419)
-	// meme pb sur thttpd cf. https://forum.spip.net/fr_184153.html
-	if (!defined('_SPIP_ECRIRE_SCRIPT')) {
-		if (!empty($_SERVER['SERVER_SOFTWARE']) and preg_match(',IIS|thttpd,', $_SERVER['SERVER_SOFTWARE'])) {
-			define('_SPIP_ECRIRE_SCRIPT', 'index.php');
-		} else {
-			define('_SPIP_ECRIRE_SCRIPT', '');
-		}
-	}
-
-
-	if (!defined('_SPIP_AJAX')) {
-		define('_SPIP_AJAX', ((!isset($_COOKIE['spip_accepte_ajax']))
-			? 1
-			: (($_COOKIE['spip_accepte_ajax'] != -1) ? 1 : 0)));
-	}
-
-	// La requete est-elle en ajax ?
-	if (!defined('_AJAX')) {
-		define(
-			'_AJAX',
-			(isset($_SERVER['HTTP_X_REQUESTED_WITH']) # ajax jQuery
-				or !empty($_REQUEST['var_ajax_redir']) # redirection 302 apres ajax jQuery
-				or !empty($_REQUEST['var_ajaxcharset']) # compat ascendante pour plugins
-				or !empty($_REQUEST['var_ajax']) # forms ajax & inclure ajax de spip
-			)
-			and empty($_REQUEST['var_noajax']) # horrible exception, car c'est pas parce que la requete est ajax jquery qu'il faut tuer tous les formulaires ajax qu'elle contient
-		);
-	}
-
-	# nombre de pixels maxi pour calcul de la vignette avec gd
-	# au dela de 5500000 on considere que php n'est pas limite en memoire pour cette operation
-	# les configurations limitees en memoire ont un seuil plutot vers 1MPixel
-	if (!defined('_IMG_GD_MAX_PIXELS')) {
-		define(
-			'_IMG_GD_MAX_PIXELS',
-			(isset($GLOBALS['meta']['max_taille_vignettes']) and $GLOBALS['meta']['max_taille_vignettes'])
-			? $GLOBALS['meta']['max_taille_vignettes']
-			: 0
-		);
-	}
-
-	// Protocoles a normaliser dans les chaines de langues
-	if (!defined('_PROTOCOLES_STD')) {
-		define('_PROTOCOLES_STD', 'http|https|ftp|mailto|webcal');
-	}
-
-	init_var_mode();
+    static $too_late = 0;
+    if ($too_late++) {
+        return;
+    }
+
+    // taille mini des login
+    if (!defined('_LOGIN_TROP_COURT')) {
+        define('_LOGIN_TROP_COURT', 4);
+    }
+
+    // la taille maxi des logos (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
+    #if (!defined('_LOGO_MAX_SIZE')) define('_LOGO_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_LOGO_MAX_WIDTH')) define('_LOGO_MAX_WIDTH', 0); # largeur en pixels
+    #if (!defined('_LOGO_MAX_HEIGHT')) define('_LOGO_MAX_HEIGHT', 0); # hauteur en pixels
+
+    // la taille maxi des images (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
+    #if (!defined('_DOC_MAX_SIZE')) define('_DOC_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_IMG_MAX_SIZE')) define('_IMG_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_IMG_MAX_WIDTH')) define('_IMG_MAX_WIDTH', 0); # largeur en pixels
+    #if (!defined('_IMG_MAX_HEIGHT')) define('_IMG_MAX_HEIGHT', 0); # hauteur en pixels
+
+    if (!defined('_PASS_LONGUEUR_MINI')) {
+        define('_PASS_LONGUEUR_MINI', 6);
+    }
+
+    // largeur maximale des images dans l'administration
+    if (!defined('_IMG_ADMIN_MAX_WIDTH')) {
+        define('_IMG_ADMIN_MAX_WIDTH', 768);
+    }
+
+    // Qualite des images calculees automatiquement. C'est un nombre entre 0 et 100, meme pour imagick (on ramene a 0..1 par la suite)
+    if (!defined('_IMG_QUALITE')) {
+        define('_IMG_QUALITE', 85);
+    } # valeur par defaut
+    if (!defined('_IMG_GD_QUALITE')) {
+        define('_IMG_GD_QUALITE', _IMG_QUALITE);
+    } # surcharge pour la lib GD
+    if (!defined('_IMG_CONVERT_QUALITE')) {
+        define('_IMG_CONVERT_QUALITE', _IMG_QUALITE);
+    } # surcharge pour imagick en ligne de commande
+    // Historiquement la valeur pour imagick semble differente. Si ca n'est pas necessaire, il serait preferable de garder _IMG_QUALITE
+    if (!defined('_IMG_IMAGICK_QUALITE')) {
+        define('_IMG_IMAGICK_QUALITE', 75);
+    } # surcharge pour imagick en PHP
+
+    if (!defined('_COPIE_LOCALE_MAX_SIZE')) {
+        define('_COPIE_LOCALE_MAX_SIZE', 33_554_432);
+    } // poids en octet
+
+    // qq chaines standard
+    if (!defined('_ACCESS_FILE_NAME')) {
+        define('_ACCESS_FILE_NAME', '.htaccess');
+    }
+    if (!defined('_AUTH_USER_FILE')) {
+        define('_AUTH_USER_FILE', '.htpasswd');
+    }
+    if (!defined('_SPIP_DUMP')) {
+        define('_SPIP_DUMP', 'dump@nom_site@@stamp@.xml');
+    }
+    if (!defined('_CACHE_RUBRIQUES')) {
+        /** Fichier cache pour le navigateur de rubrique du bandeau */
+        define('_CACHE_RUBRIQUES', _DIR_TMP . 'menu-rubriques-cache.txt');
+    }
+    if (!defined('_CACHE_RUBRIQUES_MAX')) {
+        /** Nombre maxi de rubriques enfants affichées pour chaque rubrique du navigateur de rubrique du bandeau */
+        define('_CACHE_RUBRIQUES_MAX', 500);
+    }
+
+    if (!defined('_CACHE_CONTEXTES_AJAX_SUR_LONGUEUR')) {
+        /**
+         * Basculer les contextes ajax en fichier si la longueur d’url est trop grande
+         * @var int Nombre de caractères */
+        define('_CACHE_CONTEXTES_AJAX_SUR_LONGUEUR', 2000);
+    }
+
+    if (!defined('_EXTENSION_SQUELETTES')) {
+        define('_EXTENSION_SQUELETTES', 'html');
+    }
+
+    if (!defined('_DOCTYPE_ECRIRE')) {
+        /** Définit le doctype de l’espace privé */
+        define('_DOCTYPE_ECRIRE', "<!DOCTYPE html>\n");
+    }
+    if (!defined('_DOCTYPE_AIDE')) {
+        /** Définit le doctype de l’aide en ligne */
+        define(
+            '_DOCTYPE_AIDE',
+            "<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Frameset//EN' 'http://www.w3.org/TR/1999/REC-html401-19991224/frameset.dtd'>"
+        );
+    }
+
+    if (!defined('_SPIP_SCRIPT')) {
+        /** L'adresse de base du site ; on peut mettre '' si la racine est gerée par
+         * le script de l'espace public, alias index.php */
+        define('_SPIP_SCRIPT', 'spip.php');
+    }
+    if (!defined('_SPIP_PAGE')) {
+        /** Argument page, personalisable en cas de conflit avec un autre script */
+        define('_SPIP_PAGE', 'page');
+    }
+
+    // le script de l'espace prive
+    // Mettre a "index.php" si DirectoryIndex ne le fait pas ou pb connexes:
+    // les anciens IIS n'acceptent pas les POST sur ecrire/ (#419)
+    // meme pb sur thttpd cf. https://forum.spip.net/fr_184153.html
+    if (!defined('_SPIP_ECRIRE_SCRIPT')) {
+        if (!empty($_SERVER['SERVER_SOFTWARE']) and preg_match(',IIS|thttpd,', $_SERVER['SERVER_SOFTWARE'])) {
+            define('_SPIP_ECRIRE_SCRIPT', 'index.php');
+        } else {
+            define('_SPIP_ECRIRE_SCRIPT', '');
+        }
+    }
+
+
+    if (!defined('_SPIP_AJAX')) {
+        define('_SPIP_AJAX', ((!isset($_COOKIE['spip_accepte_ajax']))
+            ? 1
+            : (($_COOKIE['spip_accepte_ajax'] != -1) ? 1 : 0)));
+    }
+
+    // La requete est-elle en ajax ?
+    if (!defined('_AJAX')) {
+        define(
+            '_AJAX',
+            (isset($_SERVER['HTTP_X_REQUESTED_WITH']) # ajax jQuery
+                or !empty($_REQUEST['var_ajax_redir']) # redirection 302 apres ajax jQuery
+                or !empty($_REQUEST['var_ajaxcharset']) # compat ascendante pour plugins
+                or !empty($_REQUEST['var_ajax']) # forms ajax & inclure ajax de spip
+            )
+            and empty($_REQUEST['var_noajax']) # horrible exception, car c'est pas parce que la requete est ajax jquery qu'il faut tuer tous les formulaires ajax qu'elle contient
+        );
+    }
+
+    # nombre de pixels maxi pour calcul de la vignette avec gd
+    # au dela de 5500000 on considere que php n'est pas limite en memoire pour cette operation
+    # les configurations limitees en memoire ont un seuil plutot vers 1MPixel
+    if (!defined('_IMG_GD_MAX_PIXELS')) {
+        define(
+            '_IMG_GD_MAX_PIXELS',
+            (isset($GLOBALS['meta']['max_taille_vignettes']) and $GLOBALS['meta']['max_taille_vignettes'])
+            ? $GLOBALS['meta']['max_taille_vignettes']
+            : 0
+        );
+    }
+
+    // Protocoles a normaliser dans les chaines de langues
+    if (!defined('_PROTOCOLES_STD')) {
+        define('_PROTOCOLES_STD', 'http|https|ftp|mailto|webcal');
+    }
+
+    init_var_mode();
 }
 
 /**
@@ -2991,136 +2990,136 @@ 
  * `   var_mode` (calcul ou recalcul).
  */
 function init_var_mode() {
-	static $done = false;
-	if (!$done) {
-		if (isset($_GET['var_mode'])) {
-			$var_mode = explode(',', $_GET['var_mode']);
-			// tout le monde peut calcul/recalcul
-			if (!defined('_VAR_MODE')) {
-				if (in_array('recalcul', $var_mode)) {
-					define('_VAR_MODE', 'recalcul');
-				} elseif (in_array('calcul', $var_mode)) {
-					define('_VAR_MODE', 'calcul');
-				}
-			}
-			$var_mode = array_diff($var_mode, ['calcul', 'recalcul']);
-			if ($var_mode) {
-				include_spip('inc/autoriser');
-				// autoriser preview si preview seulement, et sinon autoriser debug
-				if (
-					autoriser(
-						($_GET['var_mode'] == 'preview')
-						? 'previsualiser'
-						: 'debug'
-					)
-				) {
-					if (in_array('traduction', $var_mode)) {
-						// forcer le calcul pour passer dans traduire
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// et ne pas enregistrer de cache pour ne pas trainer les surlignages sur d'autres pages
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, ['traduction']);
-					}
-					if (in_array('preview', $var_mode)) {
-						// basculer sur les criteres de preview dans les boucles
-						if (!defined('_VAR_PREVIEW')) {
-							define('_VAR_PREVIEW', true);
-						}
-						// forcer le calcul
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, ['preview']);
-					}
-					if (in_array('inclure', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						if (!defined('_VAR_INCLURE')) {
-							define('_VAR_INCLURE', true);
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, ['inclure']);
-					}
-					if (in_array('urls', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						if (!defined('_VAR_URLS')) {
-							define('_VAR_URLS', true);
-						}
-						$var_mode = array_diff($var_mode, ['urls']);
-					}
-					if (in_array('images', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// indiquer qu'on doit recalculer les images
-						if (!defined('_VAR_IMAGES')) {
-							define('_VAR_IMAGES', true);
-						}
-						$var_mode = array_diff($var_mode, ['images']);
-					}
-					if (in_array('debug', $var_mode)) {
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'debug');
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, ['debug']);
-					}
-					if (count($var_mode) and !defined('_VAR_MODE')) {
-						define('_VAR_MODE', reset($var_mode));
-					}
-					if (isset($GLOBALS['visiteur_session']['nom'])) {
-						spip_log($GLOBALS['visiteur_session']['nom']
-							. ' ' . _VAR_MODE);
-					}
-				} // pas autorise ?
-				else {
-					// si on n'est pas connecte on se redirige, si on est pas en cli et pas deja en train de se loger
-					if (
-						!$GLOBALS['visiteur_session']
-						and !empty($_SERVER['HTTP_HOST'])
-						and !empty($_SERVER['REQUEST_METHOD'])
-						and $_SERVER['REQUEST_METHOD'] === 'GET'
-					) {
-						$self = self('&', true);
-						if (strpos($self, 'page=login') === false) {
-							include_spip('inc/headers');
-							$redirect = parametre_url(self('&', true), 'var_mode', $_GET['var_mode'], '&');
-							redirige_par_entete(generer_url_public('login', 'url=' . rawurlencode($redirect), true));
-						}
-					}
-					// sinon tant pis
-				}
-			}
-		}
-		if (!defined('_VAR_MODE')) {
-			/**
-			 * Indique le mode de calcul ou d'affichage de la page.
-			 * @see init_var_mode()
-			 */
-			define('_VAR_MODE', false);
-		}
-		$done = true;
-	}
+    static $done = false;
+    if (!$done) {
+        if (isset($_GET['var_mode'])) {
+            $var_mode = explode(',', $_GET['var_mode']);
+            // tout le monde peut calcul/recalcul
+            if (!defined('_VAR_MODE')) {
+                if (in_array('recalcul', $var_mode)) {
+                    define('_VAR_MODE', 'recalcul');
+                } elseif (in_array('calcul', $var_mode)) {
+                    define('_VAR_MODE', 'calcul');
+                }
+            }
+            $var_mode = array_diff($var_mode, ['calcul', 'recalcul']);
+            if ($var_mode) {
+                include_spip('inc/autoriser');
+                // autoriser preview si preview seulement, et sinon autoriser debug
+                if (
+                    autoriser(
+                        ($_GET['var_mode'] == 'preview')
+                        ? 'previsualiser'
+                        : 'debug'
+                    )
+                ) {
+                    if (in_array('traduction', $var_mode)) {
+                        // forcer le calcul pour passer dans traduire
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // et ne pas enregistrer de cache pour ne pas trainer les surlignages sur d'autres pages
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['traduction']);
+                    }
+                    if (in_array('preview', $var_mode)) {
+                        // basculer sur les criteres de preview dans les boucles
+                        if (!defined('_VAR_PREVIEW')) {
+                            define('_VAR_PREVIEW', true);
+                        }
+                        // forcer le calcul
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['preview']);
+                    }
+                    if (in_array('inclure', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        if (!defined('_VAR_INCLURE')) {
+                            define('_VAR_INCLURE', true);
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['inclure']);
+                    }
+                    if (in_array('urls', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        if (!defined('_VAR_URLS')) {
+                            define('_VAR_URLS', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['urls']);
+                    }
+                    if (in_array('images', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // indiquer qu'on doit recalculer les images
+                        if (!defined('_VAR_IMAGES')) {
+                            define('_VAR_IMAGES', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['images']);
+                    }
+                    if (in_array('debug', $var_mode)) {
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'debug');
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, ['debug']);
+                    }
+                    if (count($var_mode) and !defined('_VAR_MODE')) {
+                        define('_VAR_MODE', reset($var_mode));
+                    }
+                    if (isset($GLOBALS['visiteur_session']['nom'])) {
+                        spip_log($GLOBALS['visiteur_session']['nom']
+                            . ' ' . _VAR_MODE);
+                    }
+                } // pas autorise ?
+                else {
+                    // si on n'est pas connecte on se redirige, si on est pas en cli et pas deja en train de se loger
+                    if (
+                        !$GLOBALS['visiteur_session']
+                        and !empty($_SERVER['HTTP_HOST'])
+                        and !empty($_SERVER['REQUEST_METHOD'])
+                        and $_SERVER['REQUEST_METHOD'] === 'GET'
+                    ) {
+                        $self = self('&', true);
+                        if (strpos($self, 'page=login') === false) {
+                            include_spip('inc/headers');
+                            $redirect = parametre_url(self('&', true), 'var_mode', $_GET['var_mode'], '&');
+                            redirige_par_entete(generer_url_public('login', 'url=' . rawurlencode($redirect), true));
+                        }
+                    }
+                    // sinon tant pis
+                }
+            }
+        }
+        if (!defined('_VAR_MODE')) {
+            /**
+             * Indique le mode de calcul ou d'affichage de la page.
+             * @see init_var_mode()
+             */
+            define('_VAR_MODE', false);
+        }
+        $done = true;
+    }
 }
 
 /**
@@ -3132,16 +3131,16 @@ 
  * @param bool $deep = true : appliquer récursivement
 **/
 function spip_desinfecte(&$t, $deep = true) {
-	foreach ($t as $key => $val) {
-		if (is_string($t[$key])) {
-			$t[$key] = str_replace(chr(0), '-', $t[$key]);
-		} // traiter aussi les "texte_plus" de article_edit
-		else {
-			if ($deep and is_array($t[$key]) and $key !== 'GLOBALS') {
-				spip_desinfecte($t[$key], $deep);
-			}
-		}
-	}
+    foreach ($t as $key => $val) {
+        if (is_string($t[$key])) {
+            $t[$key] = str_replace(chr(0), '-', $t[$key]);
+        } // traiter aussi les "texte_plus" de article_edit
+        else {
+            if ($deep and is_array($t[$key]) and $key !== 'GLOBALS') {
+                spip_desinfecte($t[$key], $deep);
+            }
+        }
+    }
 }
 
 /**
@@ -3154,64 +3153,64 @@ 
  * @return string|0|false
 **/
 function verifier_visiteur() {
-	@spip_initialisation_core(
-		(_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
-	);
-
-	// Demarrer une session NON AUTHENTIFIEE si on donne son nom
-	// dans un formulaire sans login (ex: #FORMULAIRE_FORUM)
-	// Attention on separe bien session_nom et nom, pour eviter
-	// les melanges entre donnees SQL et variables plus aleatoires
-	$variables_session = ['session_nom', 'session_email'];
-	foreach ($variables_session as $var) {
-		if (_request($var) !== null) {
-			$init = true;
-			break;
-		}
-	}
-	if (isset($init)) {
-		#@spip_initialisation_suite();
-		$session = charger_fonction('session', 'inc');
-		$session();
-		include_spip('inc/texte');
-		foreach ($variables_session as $var) {
-			if (($a = _request($var)) !== null) {
-				$GLOBALS['visiteur_session'][$var] = safehtml($a);
-			}
-		}
-		if (!isset($GLOBALS['visiteur_session']['id_auteur'])) {
-			$GLOBALS['visiteur_session']['id_auteur'] = 0;
-		}
-		$session($GLOBALS['visiteur_session']);
-
-		return 0;
-	}
-
-	$h = (isset($_SERVER['PHP_AUTH_USER']) and !$GLOBALS['ignore_auth_http']);
-	if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'] . '_session'])) {
-		$session = charger_fonction('session', 'inc');
-		if ($session()) {
-			return $GLOBALS['visiteur_session']['statut'];
-		}
-		if ($h and isset($_SERVER['PHP_AUTH_PW'])) {
-			include_spip('inc/auth');
-			$h = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW']);
-		}
-		if ($h) {
-			$GLOBALS['visiteur_session'] = $h;
-
-			return $GLOBALS['visiteur_session']['statut'];
-		}
-	}
-
-	// au moins son navigateur nous dit la langue preferee de cet inconnu
-	include_spip('inc/lang');
-	utiliser_langue_visiteur();
-
-	return false;
+    @spip_initialisation_core(
+        (_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
+        (_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
+        (_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
+        (_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
+    );
+
+    // Demarrer une session NON AUTHENTIFIEE si on donne son nom
+    // dans un formulaire sans login (ex: #FORMULAIRE_FORUM)
+    // Attention on separe bien session_nom et nom, pour eviter
+    // les melanges entre donnees SQL et variables plus aleatoires
+    $variables_session = ['session_nom', 'session_email'];
+    foreach ($variables_session as $var) {
+        if (_request($var) !== null) {
+            $init = true;
+            break;
+        }
+    }
+    if (isset($init)) {
+        #@spip_initialisation_suite();
+        $session = charger_fonction('session', 'inc');
+        $session();
+        include_spip('inc/texte');
+        foreach ($variables_session as $var) {
+            if (($a = _request($var)) !== null) {
+                $GLOBALS['visiteur_session'][$var] = safehtml($a);
+            }
+        }
+        if (!isset($GLOBALS['visiteur_session']['id_auteur'])) {
+            $GLOBALS['visiteur_session']['id_auteur'] = 0;
+        }
+        $session($GLOBALS['visiteur_session']);
+
+        return 0;
+    }
+
+    $h = (isset($_SERVER['PHP_AUTH_USER']) and !$GLOBALS['ignore_auth_http']);
+    if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'] . '_session'])) {
+        $session = charger_fonction('session', 'inc');
+        if ($session()) {
+            return $GLOBALS['visiteur_session']['statut'];
+        }
+        if ($h and isset($_SERVER['PHP_AUTH_PW'])) {
+            include_spip('inc/auth');
+            $h = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW']);
+        }
+        if ($h) {
+            $GLOBALS['visiteur_session'] = $h;
+
+            return $GLOBALS['visiteur_session']['statut'];
+        }
+    }
+
+    // au moins son navigateur nous dit la langue preferee de cet inconnu
+    include_spip('inc/lang');
+    utiliser_langue_visiteur();
+
+    return false;
 }
 
 
@@ -3234,21 +3233,21 @@ 
  *     - string Langue utilisée.
  **/
 function lang_select($lang = null) {
-	static $pile_langues = [];
-	if (!function_exists('changer_langue')) {
-		include_spip('inc/lang');
-	}
-	if ($lang === null) {
-		$lang = array_pop($pile_langues);
-	} else {
-		array_push($pile_langues, $GLOBALS['spip_lang']);
-	}
-	if (isset($GLOBALS['spip_lang']) and $lang == $GLOBALS['spip_lang']) {
-		return $lang;
-	}
-	changer_langue($lang);
+    static $pile_langues = [];
+    if (!function_exists('changer_langue')) {
+        include_spip('inc/lang');
+    }
+    if ($lang === null) {
+        $lang = array_pop($pile_langues);
+    } else {
+        array_push($pile_langues, $GLOBALS['spip_lang']);
+    }
+    if (isset($GLOBALS['spip_lang']) and $lang == $GLOBALS['spip_lang']) {
+        return $lang;
+    }
+    changer_langue($lang);
 
-	return $lang;
+    return $lang;
 }
 
 /**
@@ -3265,20 +3264,20 @@ 
  *     Identifiant de la session
  **/
 function spip_session($force = false) {
-	static $session;
-	if ($force or !isset($session)) {
-		$s = pipeline(
-			'definir_session',
-			$GLOBALS['visiteur_session']
-				? serialize($GLOBALS['visiteur_session'])
-				. '_' . @$_COOKIE['spip_session']
-				: ''
-		);
-		$session = $s ? substr(md5($s), 0, 8) : '';
-	}
+    static $session;
+    if ($force or !isset($session)) {
+        $s = pipeline(
+            'definir_session',
+            $GLOBALS['visiteur_session']
+                ? serialize($GLOBALS['visiteur_session'])
+                . '_' . @$_COOKIE['spip_session']
+                : ''
+        );
+        $session = $s ? substr(md5($s), 0, 8) : '';
+    }
 
-	#spip_log('session: '.$session);
-	return $session;
+    #spip_log('session: '.$session);
+    return $session;
 }
 
 
@@ -3297,9 +3296,9 @@ 
  *    Lien sur une icone d'aide
  **/
 function aider($aide = '', $distante = false) {
-	$aider = charger_fonction('aide', 'inc', true);
+    $aider = charger_fonction('aide', 'inc', true);
 
-	return $aider ? $aider($aide, '', [], $distante) : '';
+    return $aider ? $aider($aide, '', [], $distante) : '';
 }
 
 /**
@@ -3309,35 +3308,35 @@ 
  */
 function exec_info_dist() {
 
-	include_spip('inc/autoriser');
-	if (autoriser('phpinfos')) {
-		$cookies_masques = ['spip_session', 'PHPSESSID'];
-		$cookies_backup = [];
-		$server_backup = ['HTTP_COOKIE' => $_SERVER['HTTP_COOKIE'] ?? []];
-		$env_backup = ['HTTP_COOKIE' => $_ENV['HTTP_COOKIE'] ?? []];
-		$mask = '******************************';
-		foreach ($cookies_masques as $k) {
-			if (!empty($_COOKIE[$k])) {
-				$cookies_backup[$k] = $_COOKIE[$k];
-				$_SERVER['HTTP_COOKIE'] = str_replace("$k=" . $_COOKIE[$k], "$k=$mask", $_SERVER['HTTP_COOKIE'] ?? []);
-				$_ENV['HTTP_COOKIE'] = str_replace("$k=" . $_COOKIE[$k], "$k=$mask", $_ENV['HTTP_COOKIE'] ?? []);
-				$_COOKIE[$k] = $mask;
-			}
-		}
-		phpinfo();
-		foreach ($cookies_backup as $k => $v) {
-			$_COOKIE[$k] = $v;
-		}
-		foreach ($server_backup as $k => $v) {
-			$_SERVER[$k] = $v;
-		}
-		foreach ($env_backup as $k => $v) {
-			$_ENV[$k] = $v;
-		}
-	} else {
-		include_spip('inc/filtres');
-		sinon_interdire_acces();
-	}
+    include_spip('inc/autoriser');
+    if (autoriser('phpinfos')) {
+        $cookies_masques = ['spip_session', 'PHPSESSID'];
+        $cookies_backup = [];
+        $server_backup = ['HTTP_COOKIE' => $_SERVER['HTTP_COOKIE'] ?? []];
+        $env_backup = ['HTTP_COOKIE' => $_ENV['HTTP_COOKIE'] ?? []];
+        $mask = '******************************';
+        foreach ($cookies_masques as $k) {
+            if (!empty($_COOKIE[$k])) {
+                $cookies_backup[$k] = $_COOKIE[$k];
+                $_SERVER['HTTP_COOKIE'] = str_replace("$k=" . $_COOKIE[$k], "$k=$mask", $_SERVER['HTTP_COOKIE'] ?? []);
+                $_ENV['HTTP_COOKIE'] = str_replace("$k=" . $_COOKIE[$k], "$k=$mask", $_ENV['HTTP_COOKIE'] ?? []);
+                $_COOKIE[$k] = $mask;
+            }
+        }
+        phpinfo();
+        foreach ($cookies_backup as $k => $v) {
+            $_COOKIE[$k] = $v;
+        }
+        foreach ($server_backup as $k => $v) {
+            $_SERVER[$k] = $v;
+        }
+        foreach ($env_backup as $k => $v) {
+            $_ENV[$k] = $v;
+        }
+    } else {
+        include_spip('inc/filtres');
+        sinon_interdire_acces();
+    }
 }
 
 /**
@@ -3357,13 +3356,13 @@ 
  *     - string si $message à false.
  **/
 function erreur_squelette($message = '', $lieu = '') {
-	$debusquer = charger_fonction('debusquer', 'public');
-	if (is_array($lieu)) {
-		include_spip('public/compiler');
-		$lieu = reconstruire_contexte_compil($lieu);
-	}
+    $debusquer = charger_fonction('debusquer', 'public');
+    if (is_array($lieu)) {
+        include_spip('public/compiler');
+        $lieu = reconstruire_contexte_compil($lieu);
+    }
 
-	return $debusquer($message, $lieu);
+    return $debusquer($message, $lieu);
 }
 
 /**
@@ -3400,108 +3399,108 @@ 
  *     - ou tableau d'information sur le squelette.
  */
 function recuperer_fond($fond, $contexte = [], $options = [], string $connect = '') {
-	if (!function_exists('evaluer_fond')) {
-		include_spip('public/assembler');
-	}
-	// assurer la compat avec l'ancienne syntaxe
-	// (trim etait le 3eme argument, par defaut a true)
-	if (!is_array($options)) {
-		$options = ['trim' => $options];
-	}
-	if (!isset($options['trim'])) {
-		$options['trim'] = true;
-	}
-
-	if (isset($contexte['connect'])) {
-		$connect = $contexte['connect'];
-		unset($contexte['connect']);
-	}
-
-	$texte = '';
-	$pages = [];
-	$lang_select = '';
-	if (!isset($options['etoile']) or !$options['etoile']) {
-		// Si on a inclus sans fixer le critere de lang, on prend la langue courante
-		if (!isset($contexte['lang'])) {
-			$contexte['lang'] = $GLOBALS['spip_lang'];
-		}
-
-		if ($contexte['lang'] != $GLOBALS['meta']['langue_site']) {
-			$lang_select = lang_select($contexte['lang']);
-		}
-	}
-
-	if (!isset($GLOBALS['_INC_PUBLIC'])) {
-		$GLOBALS['_INC_PUBLIC'] = 0;
-	}
-
-	$GLOBALS['_INC_PUBLIC']++;
-
-	// fix #4235
-	$cache_utilise_session_appelant	= ($GLOBALS['cache_utilise_session'] ?? null);
-
-
-	foreach (is_array($fond) ? $fond : [$fond] as $f) {
-		unset($GLOBALS['cache_utilise_session']);	// fix #4235
-
-		$page = evaluer_fond($f, $contexte, $connect);
-		if ($page === '') {
-			$c = $options['compil'] ?? '';
-			$a = ['fichier' => $f];
-			$erreur = _T('info_erreur_squelette2', $a); // squelette introuvable
-			erreur_squelette($erreur, $c);
-			// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-			$page = ['texte' => '', 'erreur' => $erreur];
-		}
-
-		$page = pipeline('recuperer_fond', [
-			'args' => ['fond' => $f, 'contexte' => $contexte, 'options' => $options, 'connect' => $connect],
-			'data' => $page
-		]);
-		if (isset($options['ajax']) and $options['ajax']) {
-			if (!function_exists('encoder_contexte_ajax')) {
-				include_spip('inc/filtres');
-			}
-			$page['texte'] = encoder_contexte_ajax(
-				array_merge(
-					$contexte,
-					['fond' => $f],
-					($connect ? ['connect' => $connect] : [])
-				),
-				'',
-				$page['texte'],
-				$options['ajax']
-			);
-		}
-
-		if (isset($options['raw']) and $options['raw']) {
-			$pages[] = $page;
-		} else {
-			$texte .= $options['trim'] ? rtrim($page['texte'] ?? '') : $page['texte'];
-		}
-
-		// contamination de la session appelante, pour les inclusions statiques
-		if (isset($page['invalideurs']['session'])) {
-			$cache_utilise_session_appelant = $page['invalideurs']['session'];
-		}
-	}
-
-	// restaurer le sessionnement du contexte appelant,
-	// éventuellement contaminé si on vient de récupérer une inclusion statique sessionnée
-	if (isset($cache_utilise_session_appelant)) {
-		$GLOBALS['cache_utilise_session'] = $cache_utilise_session_appelant;
-	}
-
-	$GLOBALS['_INC_PUBLIC']--;
-
-	if ($lang_select) {
-		lang_select();
-	}
-	if (isset($options['raw']) and $options['raw']) {
-		return is_array($fond) ? $pages : reset($pages);
-	} else {
-		return $options['trim'] ? ltrim($texte) : $texte;
-	}
+    if (!function_exists('evaluer_fond')) {
+        include_spip('public/assembler');
+    }
+    // assurer la compat avec l'ancienne syntaxe
+    // (trim etait le 3eme argument, par defaut a true)
+    if (!is_array($options)) {
+        $options = ['trim' => $options];
+    }
+    if (!isset($options['trim'])) {
+        $options['trim'] = true;
+    }
+
+    if (isset($contexte['connect'])) {
+        $connect = $contexte['connect'];
+        unset($contexte['connect']);
+    }
+
+    $texte = '';
+    $pages = [];
+    $lang_select = '';
+    if (!isset($options['etoile']) or !$options['etoile']) {
+        // Si on a inclus sans fixer le critere de lang, on prend la langue courante
+        if (!isset($contexte['lang'])) {
+            $contexte['lang'] = $GLOBALS['spip_lang'];
+        }
+
+        if ($contexte['lang'] != $GLOBALS['meta']['langue_site']) {
+            $lang_select = lang_select($contexte['lang']);
+        }
+    }
+
+    if (!isset($GLOBALS['_INC_PUBLIC'])) {
+        $GLOBALS['_INC_PUBLIC'] = 0;
+    }
+
+    $GLOBALS['_INC_PUBLIC']++;
+
+    // fix #4235
+    $cache_utilise_session_appelant	= ($GLOBALS['cache_utilise_session'] ?? null);
+
+
+    foreach (is_array($fond) ? $fond : [$fond] as $f) {
+        unset($GLOBALS['cache_utilise_session']);	// fix #4235
+
+        $page = evaluer_fond($f, $contexte, $connect);
+        if ($page === '') {
+            $c = $options['compil'] ?? '';
+            $a = ['fichier' => $f];
+            $erreur = _T('info_erreur_squelette2', $a); // squelette introuvable
+            erreur_squelette($erreur, $c);
+            // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+            $page = ['texte' => '', 'erreur' => $erreur];
+        }
+
+        $page = pipeline('recuperer_fond', [
+            'args' => ['fond' => $f, 'contexte' => $contexte, 'options' => $options, 'connect' => $connect],
+            'data' => $page
+        ]);
+        if (isset($options['ajax']) and $options['ajax']) {
+            if (!function_exists('encoder_contexte_ajax')) {
+                include_spip('inc/filtres');
+            }
+            $page['texte'] = encoder_contexte_ajax(
+                array_merge(
+                    $contexte,
+                    ['fond' => $f],
+                    ($connect ? ['connect' => $connect] : [])
+                ),
+                '',
+                $page['texte'],
+                $options['ajax']
+            );
+        }
+
+        if (isset($options['raw']) and $options['raw']) {
+            $pages[] = $page;
+        } else {
+            $texte .= $options['trim'] ? rtrim($page['texte'] ?? '') : $page['texte'];
+        }
+
+        // contamination de la session appelante, pour les inclusions statiques
+        if (isset($page['invalideurs']['session'])) {
+            $cache_utilise_session_appelant = $page['invalideurs']['session'];
+        }
+    }
+
+    // restaurer le sessionnement du contexte appelant,
+    // éventuellement contaminé si on vient de récupérer une inclusion statique sessionnée
+    if (isset($cache_utilise_session_appelant)) {
+        $GLOBALS['cache_utilise_session'] = $cache_utilise_session_appelant;
+    }
+
+    $GLOBALS['_INC_PUBLIC']--;
+
+    if ($lang_select) {
+        lang_select();
+    }
+    if (isset($options['raw']) and $options['raw']) {
+        return is_array($fond) ? $pages : reset($pages);
+    } else {
+        return $options['trim'] ? ltrim($texte) : $texte;
+    }
 }
 
 /**
@@ -3511,7 +3510,7 @@ 
  * @return string
  */
 function trouve_modele($nom) {
-	return trouver_fond($nom, 'modeles/');
+    return trouver_fond($nom, 'modeles/');
 }
 
 /**
@@ -3527,21 +3526,21 @@ 
  * @return array|string
  */
 function trouver_fond($nom, $dir = '', $pathinfo = false) {
-	$f = find_in_path($nom . '.' . _EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/') . '/' : '');
-	if (!$pathinfo) {
-		return $f;
-	}
-	// renvoyer un tableau detaille si $pathinfo==true
-	$p = pathinfo($f);
-	if (!isset($p['extension']) or !$p['extension']) {
-		$p['extension'] = _EXTENSION_SQUELETTES;
-	}
-	if (!isset($p['extension']) or !$p['filename']) {
-		$p['filename'] = ($p['basename'] ? substr($p['basename'], 0, -strlen($p['extension']) - 1) : '');
-	}
-	$p['fond'] = ($f ? substr($f, 0, -strlen($p['extension']) - 1) : '');
+    $f = find_in_path($nom . '.' . _EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/') . '/' : '');
+    if (!$pathinfo) {
+        return $f;
+    }
+    // renvoyer un tableau detaille si $pathinfo==true
+    $p = pathinfo($f);
+    if (!isset($p['extension']) or !$p['extension']) {
+        $p['extension'] = _EXTENSION_SQUELETTES;
+    }
+    if (!isset($p['extension']) or !$p['filename']) {
+        $p['filename'] = ($p['basename'] ? substr($p['basename'], 0, -strlen($p['extension']) - 1) : '');
+    }
+    $p['fond'] = ($f ? substr($f, 0, -strlen($p['extension']) - 1) : '');
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -3561,21 +3560,21 @@ 
  *     Nom de l'exec, sinon chaîne vide.
  **/
 function tester_url_ecrire($nom) {
-	static $exec = [];
-	if (isset($exec[$nom])) {
-		return $exec[$nom];
-	}
-	// tester si c'est une page en squelette
-	if (trouver_fond($nom, 'prive/squelettes/contenu/')) {
-		return $exec[$nom] = 'fond';
-	} // echafaudage d'un fond !
-	elseif (include_spip('public/styliser_par_z') and z_echafaudable($nom)) {
-		return $exec[$nom] = 'fond';
-	}
-	// attention, il ne faut pas inclure l'exec ici
-	// car sinon #URL_ECRIRE provoque des inclusions
-	// et des define intrusifs potentiels
-	return $exec[$nom] = ((find_in_path("{$nom}.php", 'exec/') or charger_fonction($nom, 'exec', true)) ? $nom : '');
+    static $exec = [];
+    if (isset($exec[$nom])) {
+        return $exec[$nom];
+    }
+    // tester si c'est une page en squelette
+    if (trouver_fond($nom, 'prive/squelettes/contenu/')) {
+        return $exec[$nom] = 'fond';
+    } // echafaudage d'un fond !
+    elseif (include_spip('public/styliser_par_z') and z_echafaudable($nom)) {
+        return $exec[$nom] = 'fond';
+    }
+    // attention, il ne faut pas inclure l'exec ici
+    // car sinon #URL_ECRIRE provoque des inclusions
+    // et des define intrusifs potentiels
+    return $exec[$nom] = ((find_in_path("{$nom}.php", 'exec/') or charger_fonction($nom, 'exec', true)) ? $nom : '');
 }
 
 /**
@@ -3585,8 +3584,8 @@ 
  *     true si la constante _VERSION_HTML n'est pas définie ou égale à html5
  **/
 function html5_permis() {
-	return (!defined('_VERSION_HTML')
-		or _VERSION_HTML !== 'html4');
+    return (!defined('_VERSION_HTML')
+        or _VERSION_HTML !== 'html4');
 }
 
 /**
@@ -3596,30 +3595,30 @@ 
  * @return array
  */
 function formats_image_acceptables($gd = null, $svg_allowed = true) {
-	$formats = null;
-	if (!is_null($gd)) {
-		$config = ($gd ? 'gd_formats' : 'formats_graphiques');
-		if (isset($GLOBALS['meta'][$config])) {
-			$formats = $GLOBALS['meta'][$config];
-			$formats = explode(',', $formats);
-			$formats = array_filter($formats);
-			$formats = array_map('trim', $formats);
-		}
-	}
-	if (is_null($formats)) {
-		include_spip('inc/filtres_images_lib_mini');
-		$formats = _image_extensions_acceptees_en_entree();
-	}
-
-	if ($svg_allowed) {
-		if (!in_array('svg', $formats)) {
-			$formats[] = 'svg';
-		}
-	}
-	else {
-		$formats = array_diff($formats, ['svg']);
-	}
-	return $formats;
+    $formats = null;
+    if (!is_null($gd)) {
+        $config = ($gd ? 'gd_formats' : 'formats_graphiques');
+        if (isset($GLOBALS['meta'][$config])) {
+            $formats = $GLOBALS['meta'][$config];
+            $formats = explode(',', $formats);
+            $formats = array_filter($formats);
+            $formats = array_map('trim', $formats);
+        }
+    }
+    if (is_null($formats)) {
+        include_spip('inc/filtres_images_lib_mini');
+        $formats = _image_extensions_acceptees_en_entree();
+    }
+
+    if ($svg_allowed) {
+        if (!in_array('svg', $formats)) {
+            $formats[] = 'svg';
+        }
+    }
+    else {
+        $formats = array_diff($formats, ['svg']);
+    }
+    return $formats;
 }
 
 /**
@@ -3628,20 +3627,20 @@ 
  * @return array|bool
  */
 function spip_getimagesize($fichier) {
-	if (!$imagesize = @getimagesize($fichier)) {
-		include_spip('inc/svg');
-		if ($attrs = svg_lire_attributs($fichier)) {
-			[$width, $height, $viewbox] = svg_getimagesize_from_attr($attrs);
-			$imagesize = [
-				$width,
-				$height,
-				IMAGETYPE_SVG,
-				"width=\"{$width}\" height=\"{$height}\"",
-				'mime' => 'image/svg+xml'
-			];
-		}
-	}
-	return $imagesize;
+    if (!$imagesize = @getimagesize($fichier)) {
+        include_spip('inc/svg');
+        if ($attrs = svg_lire_attributs($fichier)) {
+            [$width, $height, $viewbox] = svg_getimagesize_from_attr($attrs);
+            $imagesize = [
+                $width,
+                $height,
+                IMAGETYPE_SVG,
+                "width=\"{$width}\" height=\"{$height}\"",
+                'mime' => 'image/svg+xml'
+            ];
+        }
+    }
+    return $imagesize;
 }
 
 /**
@@ -3655,19 +3654,19 @@ 
  * @param string $statut
  */
 function avertir_auteurs($nom, $message, $statut = '') {
-	$alertes = $GLOBALS['meta']['message_alertes_auteurs'];
-	if (
-		!$alertes
-		or !is_array($alertes = unserialize($alertes))
-	) {
-		$alertes = [];
-	}
+    $alertes = $GLOBALS['meta']['message_alertes_auteurs'];
+    if (
+        !$alertes
+        or !is_array($alertes = unserialize($alertes))
+    ) {
+        $alertes = [];
+    }
 
-	if (!isset($alertes[$statut])) {
-		$alertes[$statut] = [];
-	}
-	$alertes[$statut][$nom] = $message;
-	ecrire_meta('message_alertes_auteurs', serialize($alertes));
+    if (!isset($alertes[$statut])) {
+        $alertes[$statut] = [];
+    }
+    $alertes[$statut][$nom] = $message;
+    ecrire_meta('message_alertes_auteurs', serialize($alertes));
 }
 
 /**
@@ -3681,10 +3680,10 @@ 
  * @return string|string[]
  */
 function spip_sanitize_classname($classes) {
-	if (is_array($classes)) {
-		return array_map('spip_sanitize_classname', $classes);
-	}
-	return preg_replace('/[^ 0-9a-z_\-+@]/i', '', $classes);
+    if (is_array($classes)) {
+        return array_map('spip_sanitize_classname', $classes);
+    }
+    return preg_replace('/[^ 0-9a-z_\-+@]/i', '', $classes);
 }
 
 
@@ -3709,32 +3708,32 @@ 
  *    Avec operateur : bool.
  **/
 function spip_version_compare($v1, $v2, $op = null) {
-	$v1 = strtolower(preg_replace(',([0-9])[\s.-]?(dev|alpha|a|beta|b|rc|pl|p),i', '\\1.\\2', $v1));
-	$v2 = strtolower(preg_replace(',([0-9])[\s.-]?(dev|alpha|a|beta|b|rc|pl|p),i', '\\1.\\2', $v2));
-	$v1 = str_replace('rc', 'RC', $v1); // certaines versions de PHP ne comprennent RC qu'en majuscule
-	$v2 = str_replace('rc', 'RC', $v2); // certaines versions de PHP ne comprennent RC qu'en majuscule
-
-	$v1 = explode('.', $v1);
-	$v2 = explode('.', $v2);
-	// $v1 est toujours une version, donc sans etoile
-	while (count($v1) < count($v2)) {
-		$v1[] = '0';
-	}
-
-	// $v2 peut etre une borne, donc accepte l'etoile
-	$etoile = false;
-	foreach ($v1 as $k => $v) {
-		if (!isset($v2[$k])) {
-			$v2[] = ($etoile and (is_numeric($v) or $v == 'pl' or $v == 'p')) ? $v : '0';
-		} else {
-			if ($v2[$k] == '*') {
-				$etoile = true;
-				$v2[$k] = $v;
-			}
-		}
-	}
-	$v1 = implode('.', $v1);
-	$v2 = implode('.', $v2);
-
-	return $op ? version_compare($v1, $v2, $op) : version_compare($v1, $v2);
+    $v1 = strtolower(preg_replace(',([0-9])[\s.-]?(dev|alpha|a|beta|b|rc|pl|p),i', '\\1.\\2', $v1));
+    $v2 = strtolower(preg_replace(',([0-9])[\s.-]?(dev|alpha|a|beta|b|rc|pl|p),i', '\\1.\\2', $v2));
+    $v1 = str_replace('rc', 'RC', $v1); // certaines versions de PHP ne comprennent RC qu'en majuscule
+    $v2 = str_replace('rc', 'RC', $v2); // certaines versions de PHP ne comprennent RC qu'en majuscule
+
+    $v1 = explode('.', $v1);
+    $v2 = explode('.', $v2);
+    // $v1 est toujours une version, donc sans etoile
+    while (count($v1) < count($v2)) {
+        $v1[] = '0';
+    }
+
+    // $v2 peut etre une borne, donc accepte l'etoile
+    $etoile = false;
+    foreach ($v1 as $k => $v) {
+        if (!isset($v2[$k])) {
+            $v2[] = ($etoile and (is_numeric($v) or $v == 'pl' or $v == 'p')) ? $v : '0';
+        } else {
+            if ($v2[$k] == '*') {
+                $etoile = true;
+                $v2[$k] = $v;
+            }
+        }
+    }
+    $v1 = implode('.', $v1);
+    $v2 = implode('.', $v2);
+
+    return $op ? version_compare($v1, $v2, $op) : version_compare($v1, $v2);
 }

ecrire/inc/distant.php

Indentation +1085 added lines, -1085 removed lines

@@ -16,32 +16,32 @@ 
  * @package SPIP\Core\Distant
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_INC_DISTANT_VERSION_HTTP')) {
-	define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
+    define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
 }
 if (!defined('_INC_DISTANT_CONTENT_ENCODING')) {
-	define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
+    define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
 }
 if (!defined('_INC_DISTANT_USER_AGENT')) {
-	define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
+    define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
 }
 if (!defined('_INC_DISTANT_MAX_SIZE')) {
-	define('_INC_DISTANT_MAX_SIZE', 2_097_152);
+    define('_INC_DISTANT_MAX_SIZE', 2_097_152);
 }
 if (!defined('_INC_DISTANT_CONNECT_TIMEOUT')) {
-	define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
+    define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
 }
 
 define('_REGEXP_COPIE_LOCALE', ',' 	.
-	preg_replace(
-		'@^https?:@',
-		'https?:',
-		($GLOBALS['meta']['adresse_site'] ?? '')
-	)
-	. '/?spip.php[?]action=acceder_document.*file=(.*)$,');
+    preg_replace(
+        '@^https?:@',
+        'https?:',
+        ($GLOBALS['meta']['adresse_site'] ?? '')
+    )
+    . '/?spip.php[?]action=acceder_document.*file=(.*)$,');
 
 //@define('_COPIE_LOCALE_MAX_SIZE',2097152); // poids (inc/utils l'a fait)
 
@@ -70,107 +70,107 @@ 
  */
 function copie_locale($source, $mode = 'auto', $local = null, $taille_max = null, $callback_valider_url = null) {
 
-	// si c'est la protection de soi-meme, retourner le path
-	if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
-		$source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
-
-		return @file_exists($source) ? $source : false;
-	}
-
-	if (is_null($local)) {
-		$local = fichier_copie_locale($source);
-	} else {
-		if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
-			$local = substr($local, strlen(_DIR_RACINE));
-		}
-	}
-
-	// si $local = '' c'est un fichier refuse par fichier_copie_locale(),
-	// par exemple un fichier qui ne figure pas dans nos documents ;
-	// dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
-	if (!$local) {
-		return false;
-	}
-
-	$localrac = _DIR_RACINE . $local;
-	$t = ($mode === 'force') ? false : @file_exists($localrac);
-
-	// test d'existence du fichier
-	if ($mode === 'test') {
-		return $t ? $local : '';
-	}
-
-	// sinon voir si on doit/peut le telecharger
-	if ($local === $source or !tester_url_absolue($source)) {
-		return $t ? $local : '';
-	}
-
-	if ($mode === 'modif' or !$t) {
-		// passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
-		// et des eventuelles recuperations concurantes
-		include_spip('inc/acces');
-		if (!$taille_max) {
-			$taille_max = _COPIE_LOCALE_MAX_SIZE;
-		}
-		$localrac_tmp = $localrac . '.tmp';
-		$res = recuperer_url(
-			$source,
-			['file' => $localrac_tmp, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '']
-		);
-
-		if (!$res or (!$res['length'] and $res['status'] != 304)) {
-			spip_log("copie_locale : Echec recuperation $source sur $localrac_tmp status : " . ($res ? $res['status'] : '-'), 'distant' . _LOG_INFO_IMPORTANTE);
-			@unlink($localrac_tmp);
-		}
-		else {
-			spip_log("copie_locale : recuperation $source sur $localrac_tmp OK | taille " . $res['length'] . ' status ' . $res['status'], 'distant');
-		}
-		if (!$res or !$res['length']) {
-			// si $t c'est sans doute juste un not-modified-since
-			return $t ? $local : false;
-		}
-
-		// si option valider url, verifions que l'URL finale est acceptable
-		if (
-			$callback_valider_url
-			and is_callable($callback_valider_url)
-			and !$callback_valider_url($res['url'])
-		) {
-			spip_log('copie_locale : url finale ' . $res['url'] . " non valide, on refuse le fichier $localrac_tmp", 'distant' . _LOG_INFO_IMPORTANTE);
-			@unlink($localrac_tmp);
-			return $t ? $local : false;
-		}
-
-		// on peut renommer le fichier tmp
-		@rename($localrac_tmp, $localrac);
-
-		// si on retrouve l'extension
-		if (
-			!empty($res['headers'])
-			and $extension = distant_trouver_extension_selon_headers($source, $res['headers'])
-		) {
-			if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
-				$sanitizer($localrac);
-			}
-		}
-
-		// pour une eventuelle indexation
-		pipeline(
-			'post_edition',
-			[
-				'args' => [
-					'operation' => 'copie_locale',
-					'source' => $source,
-					'fichier' => $local,
-					'http_res' => $res['length'],
-					'url' => $res['url'],
-				],
-				'data' => null
-			]
-		);
-	}
-
-	return $local;
+    // si c'est la protection de soi-meme, retourner le path
+    if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
+        $source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
+
+        return @file_exists($source) ? $source : false;
+    }
+
+    if (is_null($local)) {
+        $local = fichier_copie_locale($source);
+    } else {
+        if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
+            $local = substr($local, strlen(_DIR_RACINE));
+        }
+    }
+
+    // si $local = '' c'est un fichier refuse par fichier_copie_locale(),
+    // par exemple un fichier qui ne figure pas dans nos documents ;
+    // dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
+    if (!$local) {
+        return false;
+    }
+
+    $localrac = _DIR_RACINE . $local;
+    $t = ($mode === 'force') ? false : @file_exists($localrac);
+
+    // test d'existence du fichier
+    if ($mode === 'test') {
+        return $t ? $local : '';
+    }
+
+    // sinon voir si on doit/peut le telecharger
+    if ($local === $source or !tester_url_absolue($source)) {
+        return $t ? $local : '';
+    }
+
+    if ($mode === 'modif' or !$t) {
+        // passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
+        // et des eventuelles recuperations concurantes
+        include_spip('inc/acces');
+        if (!$taille_max) {
+            $taille_max = _COPIE_LOCALE_MAX_SIZE;
+        }
+        $localrac_tmp = $localrac . '.tmp';
+        $res = recuperer_url(
+            $source,
+            ['file' => $localrac_tmp, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '']
+        );
+
+        if (!$res or (!$res['length'] and $res['status'] != 304)) {
+            spip_log("copie_locale : Echec recuperation $source sur $localrac_tmp status : " . ($res ? $res['status'] : '-'), 'distant' . _LOG_INFO_IMPORTANTE);
+            @unlink($localrac_tmp);
+        }
+        else {
+            spip_log("copie_locale : recuperation $source sur $localrac_tmp OK | taille " . $res['length'] . ' status ' . $res['status'], 'distant');
+        }
+        if (!$res or !$res['length']) {
+            // si $t c'est sans doute juste un not-modified-since
+            return $t ? $local : false;
+        }
+
+        // si option valider url, verifions que l'URL finale est acceptable
+        if (
+            $callback_valider_url
+            and is_callable($callback_valider_url)
+            and !$callback_valider_url($res['url'])
+        ) {
+            spip_log('copie_locale : url finale ' . $res['url'] . " non valide, on refuse le fichier $localrac_tmp", 'distant' . _LOG_INFO_IMPORTANTE);
+            @unlink($localrac_tmp);
+            return $t ? $local : false;
+        }
+
+        // on peut renommer le fichier tmp
+        @rename($localrac_tmp, $localrac);
+
+        // si on retrouve l'extension
+        if (
+            !empty($res['headers'])
+            and $extension = distant_trouver_extension_selon_headers($source, $res['headers'])
+        ) {
+            if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
+                $sanitizer($localrac);
+            }
+        }
+
+        // pour une eventuelle indexation
+        pipeline(
+            'post_edition',
+            [
+                'args' => [
+                    'operation' => 'copie_locale',
+                    'source' => $source,
+                    'fichier' => $local,
+                    'http_res' => $res['length'],
+                    'url' => $res['url'],
+                ],
+                'data' => null
+            ]
+        );
+    }
+
+    return $local;
 }
 
 /**
@@ -185,99 +185,99 @@ 
  *   url ou false en cas d'echec
  */
 function valider_url_distante($url, $known_hosts = []) {
-	if (!function_exists('protocole_verifier')) {
-		include_spip('inc/filtres_mini');
-	}
-
-	if (!protocole_verifier($url, ['http', 'https'])) {
-		return false;
-	}
-
-	$parsed_url = parse_url($url);
-	if (!$parsed_url or empty($parsed_url['host'])) {
-		return false;
-	}
-
-	if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
-		return false;
-	}
-
-	if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
-		return false;
-	}
-
-	if (!is_array($known_hosts)) {
-		$known_hosts = [$known_hosts];
-	}
-	$known_hosts[] = $GLOBALS['meta']['adresse_site'];
-	$known_hosts[] = url_de_base();
-	$known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
-
-	$is_known_host = false;
-	foreach ($known_hosts as $known_host) {
-		$parse_known = parse_url($known_host);
-		if (
-			$parse_known
-			and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
-		) {
-			$is_known_host = true;
-			break;
-		}
-	}
-
-	if (!$is_known_host) {
-		$host = trim($parsed_url['host'], '.');
-		if (! $ip = filter_var($host, FILTER_VALIDATE_IP)) {
-			$ip = gethostbyname($host);
-			if ($ip === $host) {
-				// Error condition for gethostbyname()
-				$ip = false;
-			}
-			if ($records = dns_get_record($host)) {
-				foreach ($records as $record) {
-					// il faut que le TTL soit suffisant afin d'etre certain que le copie_locale eventuel qui suit
-					// se fasse sur la meme IP
-					if ($record['ttl'] < 10) {
-						$ip = false;
-						break;
-					}
-				}
-			}
-			else {
-				$ip = false;
-			}
-		}
-		if ($ip) {
-			if (! filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_NO_PRIV_RANGE | FILTER_FLAG_NO_RES_RANGE)) {
-				return false;
-			}
-		}
-	}
-
-	if (empty($parsed_url['port'])) {
-		return $url;
-	}
-
-	$port = $parsed_url['port'];
-	if ($port === 80  or $port === 443  or $port === 8080) {
-		return $url;
-	}
-
-	if ($is_known_host) {
-		foreach ($known_hosts as $known_host) {
-			$parse_known = parse_url($known_host);
-			if (
-				$parse_known
-				and !empty($parse_known['port'])
-				and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
-				and $parse_known['port'] == $port
-			) {
-				return $url;
-			}
-		}
-	}
-
-	return false;
+    if (!function_exists('protocole_verifier')) {
+        include_spip('inc/filtres_mini');
+    }
+
+    if (!protocole_verifier($url, ['http', 'https'])) {
+        return false;
+    }
+
+    $parsed_url = parse_url($url);
+    if (!$parsed_url or empty($parsed_url['host'])) {
+        return false;
+    }
+
+    if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
+        return false;
+    }
+
+    if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
+        return false;
+    }
+
+    if (!is_array($known_hosts)) {
+        $known_hosts = [$known_hosts];
+    }
+    $known_hosts[] = $GLOBALS['meta']['adresse_site'];
+    $known_hosts[] = url_de_base();
+    $known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
+
+    $is_known_host = false;
+    foreach ($known_hosts as $known_host) {
+        $parse_known = parse_url($known_host);
+        if (
+            $parse_known
+            and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
+        ) {
+            $is_known_host = true;
+            break;
+        }
+    }
+
+    if (!$is_known_host) {
+        $host = trim($parsed_url['host'], '.');
+        if (! $ip = filter_var($host, FILTER_VALIDATE_IP)) {
+            $ip = gethostbyname($host);
+            if ($ip === $host) {
+                // Error condition for gethostbyname()
+                $ip = false;
+            }
+            if ($records = dns_get_record($host)) {
+                foreach ($records as $record) {
+                    // il faut que le TTL soit suffisant afin d'etre certain que le copie_locale eventuel qui suit
+                    // se fasse sur la meme IP
+                    if ($record['ttl'] < 10) {
+                        $ip = false;
+                        break;
+                    }
+                }
+            }
+            else {
+                $ip = false;
+            }
+        }
+        if ($ip) {
+            if (! filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_NO_PRIV_RANGE | FILTER_FLAG_NO_RES_RANGE)) {
+                return false;
+            }
+        }
+    }
+
+    if (empty($parsed_url['port'])) {
+        return $url;
+    }
+
+    $port = $parsed_url['port'];
+    if ($port === 80  or $port === 443  or $port === 8080) {
+        return $url;
+    }
+
+    if ($is_known_host) {
+        foreach ($known_hosts as $known_host) {
+            $parse_known = parse_url($known_host);
+            if (
+                $parse_known
+                and !empty($parse_known['port'])
+                and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
+                and $parse_known['port'] == $port
+            ) {
+                return $url;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -297,86 +297,86 @@ 
  */
 function prepare_donnees_post($donnees, $boundary = '') {
 
-	// permettre a la fonction qui a demande le post de formater elle meme ses donnees
-	// pour un appel soap par exemple
-	// l'entete est separe des donnees par un double retour a la ligne
-	// on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
-	if (is_string($donnees) && strlen($donnees)) {
-		$entete = '';
-		// on repasse tous les \r\n et \r en simples \n
-		$donnees = str_replace("\r\n", "\n", $donnees);
-		$donnees = str_replace("\r", "\n", $donnees);
-		// un double retour a la ligne signifie la fin de l'entete et le debut des donnees
-		$p = strpos($donnees, "\n\n");
-		if ($p !== false) {
-			$entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
-			$donnees = substr($donnees, $p + 2);
-		}
-		$chaine = str_replace("\n", "\r\n", $donnees);
-	} else {
-		/* boundary automatique */
-		// Si on a plus de 500 octects de donnees, on "boundarise"
-		if ($boundary === '') {
-			$taille = 0;
-			foreach ($donnees as $cle => $valeur) {
-				if (is_array($valeur)) {
-					foreach ($valeur as $val2) {
-						$taille += strlen($val2);
-					}
-				} else {
-					// faut-il utiliser spip_strlen() dans inc/charsets ?
-					$taille += strlen($valeur);
-				}
-			}
-			if ($taille > 500) {
-				$boundary = substr(md5(random_int(0, mt_getrandmax()) . 'spip'), 0, 8);
-			}
-		}
-
-		if (is_string($boundary) and strlen($boundary)) {
-			// fabrique une chaine HTTP pour un POST avec boundary
-			$entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
-			$chaine = '';
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine .= "\r\n--$boundary\r\n";
-							$chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
-							$chaine .= "\r\n";
-							$chaine .= $val2;
-						}
-					} else {
-						$chaine .= "\r\n--$boundary\r\n";
-						$chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
-						$chaine .= "\r\n";
-						$chaine .= $valeur;
-					}
-				}
-				$chaine .= "\r\n--$boundary\r\n";
-			}
-		} else {
-			// fabrique une chaine HTTP simple pour un POST
-			$entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
-			$chaine = [];
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
-						}
-					} else {
-						$chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
-					}
-				}
-				$chaine = implode('&', $chaine);
-			} else {
-				$chaine = $donnees;
-			}
-		}
-	}
-
-	return [$entete, $chaine];
+    // permettre a la fonction qui a demande le post de formater elle meme ses donnees
+    // pour un appel soap par exemple
+    // l'entete est separe des donnees par un double retour a la ligne
+    // on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
+    if (is_string($donnees) && strlen($donnees)) {
+        $entete = '';
+        // on repasse tous les \r\n et \r en simples \n
+        $donnees = str_replace("\r\n", "\n", $donnees);
+        $donnees = str_replace("\r", "\n", $donnees);
+        // un double retour a la ligne signifie la fin de l'entete et le debut des donnees
+        $p = strpos($donnees, "\n\n");
+        if ($p !== false) {
+            $entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
+            $donnees = substr($donnees, $p + 2);
+        }
+        $chaine = str_replace("\n", "\r\n", $donnees);
+    } else {
+        /* boundary automatique */
+        // Si on a plus de 500 octects de donnees, on "boundarise"
+        if ($boundary === '') {
+            $taille = 0;
+            foreach ($donnees as $cle => $valeur) {
+                if (is_array($valeur)) {
+                    foreach ($valeur as $val2) {
+                        $taille += strlen($val2);
+                    }
+                } else {
+                    // faut-il utiliser spip_strlen() dans inc/charsets ?
+                    $taille += strlen($valeur);
+                }
+            }
+            if ($taille > 500) {
+                $boundary = substr(md5(random_int(0, mt_getrandmax()) . 'spip'), 0, 8);
+            }
+        }
+
+        if (is_string($boundary) and strlen($boundary)) {
+            // fabrique une chaine HTTP pour un POST avec boundary
+            $entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
+            $chaine = '';
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine .= "\r\n--$boundary\r\n";
+                            $chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
+                            $chaine .= "\r\n";
+                            $chaine .= $val2;
+                        }
+                    } else {
+                        $chaine .= "\r\n--$boundary\r\n";
+                        $chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
+                        $chaine .= "\r\n";
+                        $chaine .= $valeur;
+                    }
+                }
+                $chaine .= "\r\n--$boundary\r\n";
+            }
+        } else {
+            // fabrique une chaine HTTP simple pour un POST
+            $entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
+            $chaine = [];
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
+                        }
+                    } else {
+                        $chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
+                    }
+                }
+                $chaine = implode('&', $chaine);
+            } else {
+                $chaine = $donnees;
+            }
+        }
+    }
+
+    return [$entete, $chaine];
 }
 
 /**
@@ -390,20 +390,20 @@ 
  */
 function url_to_ascii($url_idn) {
 
-	if ($parts = parse_url($url_idn)) {
-		$host = $parts['host'];
-		if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
-			include_spip('inc/idna_convert.class');
-			$IDN = new idna_convert();
-			$host_ascii = $IDN->encode($host);
-			$url_idn = explode($host, $url_idn, 2);
-			$url_idn = implode($host_ascii, $url_idn);
-		}
-		// et on urlencode les char utf si besoin dans le path
-		$url_idn = preg_replace_callback('/[^\x20-\x7f]/', fn($match) => urlencode($match[0]), $url_idn);
-	}
-
-	return $url_idn;
+    if ($parts = parse_url($url_idn)) {
+        $host = $parts['host'];
+        if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
+            include_spip('inc/idna_convert.class');
+            $IDN = new idna_convert();
+            $host_ascii = $IDN->encode($host);
+            $url_idn = explode($host, $url_idn, 2);
+            $url_idn = implode($host_ascii, $url_idn);
+        }
+        // et on urlencode les char utf si besoin dans le path
+        $url_idn = preg_replace_callback('/[^\x20-\x7f]/', fn($match) => urlencode($match[0]), $url_idn);
+    }
+
+    return $url_idn;
 }
 
 /**
@@ -444,209 +444,209 @@ 
  *     string file : nom du fichier si enregistre dans un fichier
  */
 function recuperer_url($url, $options = []) {
-	// Conserve la mémoire de la méthode fournit éventuellement
-	$methode_demandee = $options['methode'] ?? '';
-	$default = [
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'headers' => [],
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-	];
-	$options = array_merge($default, $options);
-	// copier directement dans un fichier ?
-	$copy = $options['file'];
-
-	if ($options['methode'] == 'HEAD') {
-		$options['taille_max'] = 0;
-	}
-	if (is_null($options['taille_max'])) {
-		$options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
-	}
-
-	spip_log('recuperer_url ' . $options['methode'] . " sur $url", 'distant' . _LOG_DEBUG);
-
-	// Ajout des en-têtes spécifiques si besoin
-	$formatted_data = '';
-	if (!empty($options['headers'])) {
-		foreach ($options['headers'] as $champ => $valeur) {
-			$formatted_data .= $champ . ': ' . $valeur . "\r\n";
-		}
-	}
-
-	if (!empty($options['datas'])) {
-		[$head, $postdata] = prepare_donnees_post($options['datas'], $options['boundary']);
-		$head .= $formatted_data;
-		if (stripos($head, 'Content-Length:') === false) {
-			$head .= 'Content-Length: ' . strlen($postdata) . "\r\n";
-		}
-		$formatted_data = $head . "\r\n" . $postdata;
-		if (
-			strlen($postdata)
-			and !$methode_demandee
-		) {
-			$options['methode'] = 'POST';
-		}
-	} elseif ($formatted_data) {
-		$formatted_data .= "\r\n";
-	}
-
-	// Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
-	$url = preg_replace(',^feed://,i', 'http://', $url);
-	if (!tester_url_absolue($url)) {
-		$url = 'http://' . $url;
-	} elseif (strncmp($url, '//', 2) == 0) {
-		$url = 'http:' . $url;
-	}
-
-	$url = url_to_ascii($url);
-
-	$result = [
-		'status' => 0,
-		'headers' => '',
-		'page' => '',
-		'length' => 0,
-		'last_modified' => '',
-		'location' => '',
-		'url' => $url
-	];
-
-	// si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
-	$refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
-
-	// ouvrir la connexion et envoyer la requete et ses en-tetes
-	[$handle, $fopen] = init_http(
-		$options['methode'],
-		$url,
-		$refuser_gz,
-		$options['uri_referer'],
-		$formatted_data,
-		$options['version_http'],
-		$options['if_modified_since']
-	);
-	if (!$handle) {
-		spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
-
-		return false;
-	}
-
-	// Sauf en fopen, envoyer le flux d'entree
-	// et recuperer les en-tetes de reponses
-	if (!$fopen) {
-		$res = recuperer_entetes_complets($handle, $options['if_modified_since']);
-		if (!$res) {
-			fclose($handle);
-			$t = @parse_url($url);
-			$host = $t['host'];
-			// Chinoisierie inexplicable pour contrer
-			// les actions liberticides de l'empire du milieu
-			if (
-				!need_proxy($host)
-				and $res = @file_get_contents($url)
-			) {
-				$result['length'] = strlen($res);
-				if ($copy) {
-					ecrire_fichier($copy, $res);
-					$result['file'] = $copy;
-				} else {
-					$result['page'] = $res;
-				}
-				$res = [
-					'status' => 200,
-				];
-			} else {
-				spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
-				return false;
-			}
-		} elseif ($res['location'] and $options['follow_location']) {
-			$options['follow_location']--;
-			fclose($handle);
-			include_spip('inc/filtres');
-			$url = suivre_lien($url, $res['location']);
-
-			// une redirection doit se faire en GET, sauf status explicite 307 ou 308 qui indique de garder la meme methode
-			if ($options['methode'] !== 'GET') {
-				if (empty($res['status']) or !in_array($res['status'], [307, 308])) {
-					$options['methode'] = 'GET';
-					$options['datas'] = '';
-				}
-			}
-			spip_log('recuperer_url recommence ' . $options['methode'] . " sur $url", 'distant' . _LOG_DEBUG);
-
-			return recuperer_url($url, $options);
-		} elseif ($res['status'] !== 200) {
-			spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
-		}
-		$result['status'] = $res['status'];
-		if (isset($res['headers'])) {
-			$result['headers'] = $res['headers'];
-		}
-		if (isset($res['last_modified'])) {
-			$result['last_modified'] = $res['last_modified'];
-		}
-		if (isset($res['location'])) {
-			$result['location'] = $res['location'];
-		}
-	}
-
-	// on ne veut que les entetes
-	if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
-		spip_log('RESULTAT recuperer_url ' . $options['methode'] . " sur $url : " . json_encode($result), 'distant' . _LOG_DEBUG);
-		return $result;
-	}
-
-
-	// s'il faut deballer, le faire via un fichier temporaire
-	// sinon la memoire explose pour les gros flux
-
-	$gz = false;
-	if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
-		$gz = (_DIR_TMP . md5(uniqid(random_int(0, mt_getrandmax()))) . '.tmp.gz');
-	}
-
-	// si on a pas deja recuperer le contenu par une methode detournee
-	if (!$result['length']) {
-		$res = recuperer_body($handle, $options['taille_max'], $gz ?: $copy);
-		fclose($handle);
-		if ($copy) {
-			$result['length'] = $res;
-			$result['file'] = $copy;
-		} elseif ($res) {
-			$result['page'] = &$res;
-			$result['length'] = strlen($result['page']);
-		}
-		if (!$result['status']) {
-			$result['status'] = 200; // on a reussi, donc !
-		}
-	}
-	if (!$result['page']) {
-		return $result;
-	}
-
-	// Decompresser au besoin
-	if ($gz) {
-		$result['page'] = implode('', gzfile($gz));
-		supprimer_fichier($gz);
-	}
-
-	// Faut-il l'importer dans notre charset local ?
-	if ($options['transcoder']) {
-		include_spip('inc/charsets');
-		$result['page'] = transcoder_page($result['page'], $result['headers']);
-	}
-
-	$trace = json_decode(json_encode($result), true);
-	$trace['page'] = '...';
-	spip_log('RESULTAT recuperer_url ' . $options['methode'] . " sur $url : " . json_encode($trace), 'distant' . _LOG_DEBUG);
-
-	return $result;
+    // Conserve la mémoire de la méthode fournit éventuellement
+    $methode_demandee = $options['methode'] ?? '';
+    $default = [
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'headers' => [],
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+    ];
+    $options = array_merge($default, $options);
+    // copier directement dans un fichier ?
+    $copy = $options['file'];
+
+    if ($options['methode'] == 'HEAD') {
+        $options['taille_max'] = 0;
+    }
+    if (is_null($options['taille_max'])) {
+        $options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
+    }
+
+    spip_log('recuperer_url ' . $options['methode'] . " sur $url", 'distant' . _LOG_DEBUG);
+
+    // Ajout des en-têtes spécifiques si besoin
+    $formatted_data = '';
+    if (!empty($options['headers'])) {
+        foreach ($options['headers'] as $champ => $valeur) {
+            $formatted_data .= $champ . ': ' . $valeur . "\r\n";
+        }
+    }
+
+    if (!empty($options['datas'])) {
+        [$head, $postdata] = prepare_donnees_post($options['datas'], $options['boundary']);
+        $head .= $formatted_data;
+        if (stripos($head, 'Content-Length:') === false) {
+            $head .= 'Content-Length: ' . strlen($postdata) . "\r\n";
+        }
+        $formatted_data = $head . "\r\n" . $postdata;
+        if (
+            strlen($postdata)
+            and !$methode_demandee
+        ) {
+            $options['methode'] = 'POST';
+        }
+    } elseif ($formatted_data) {
+        $formatted_data .= "\r\n";
+    }
+
+    // Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
+    $url = preg_replace(',^feed://,i', 'http://', $url);
+    if (!tester_url_absolue($url)) {
+        $url = 'http://' . $url;
+    } elseif (strncmp($url, '//', 2) == 0) {
+        $url = 'http:' . $url;
+    }
+
+    $url = url_to_ascii($url);
+
+    $result = [
+        'status' => 0,
+        'headers' => '',
+        'page' => '',
+        'length' => 0,
+        'last_modified' => '',
+        'location' => '',
+        'url' => $url
+    ];
+
+    // si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
+    $refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
+
+    // ouvrir la connexion et envoyer la requete et ses en-tetes
+    [$handle, $fopen] = init_http(
+        $options['methode'],
+        $url,
+        $refuser_gz,
+        $options['uri_referer'],
+        $formatted_data,
+        $options['version_http'],
+        $options['if_modified_since']
+    );
+    if (!$handle) {
+        spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
+
+        return false;
+    }
+
+    // Sauf en fopen, envoyer le flux d'entree
+    // et recuperer les en-tetes de reponses
+    if (!$fopen) {
+        $res = recuperer_entetes_complets($handle, $options['if_modified_since']);
+        if (!$res) {
+            fclose($handle);
+            $t = @parse_url($url);
+            $host = $t['host'];
+            // Chinoisierie inexplicable pour contrer
+            // les actions liberticides de l'empire du milieu
+            if (
+                !need_proxy($host)
+                and $res = @file_get_contents($url)
+            ) {
+                $result['length'] = strlen($res);
+                if ($copy) {
+                    ecrire_fichier($copy, $res);
+                    $result['file'] = $copy;
+                } else {
+                    $result['page'] = $res;
+                }
+                $res = [
+                    'status' => 200,
+                ];
+            } else {
+                spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
+                return false;
+            }
+        } elseif ($res['location'] and $options['follow_location']) {
+            $options['follow_location']--;
+            fclose($handle);
+            include_spip('inc/filtres');
+            $url = suivre_lien($url, $res['location']);
+
+            // une redirection doit se faire en GET, sauf status explicite 307 ou 308 qui indique de garder la meme methode
+            if ($options['methode'] !== 'GET') {
+                if (empty($res['status']) or !in_array($res['status'], [307, 308])) {
+                    $options['methode'] = 'GET';
+                    $options['datas'] = '';
+                }
+            }
+            spip_log('recuperer_url recommence ' . $options['methode'] . " sur $url", 'distant' . _LOG_DEBUG);
+
+            return recuperer_url($url, $options);
+        } elseif ($res['status'] !== 200) {
+            spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
+        }
+        $result['status'] = $res['status'];
+        if (isset($res['headers'])) {
+            $result['headers'] = $res['headers'];
+        }
+        if (isset($res['last_modified'])) {
+            $result['last_modified'] = $res['last_modified'];
+        }
+        if (isset($res['location'])) {
+            $result['location'] = $res['location'];
+        }
+    }
+
+    // on ne veut que les entetes
+    if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
+        spip_log('RESULTAT recuperer_url ' . $options['methode'] . " sur $url : " . json_encode($result), 'distant' . _LOG_DEBUG);
+        return $result;
+    }
+
+
+    // s'il faut deballer, le faire via un fichier temporaire
+    // sinon la memoire explose pour les gros flux
+
+    $gz = false;
+    if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
+        $gz = (_DIR_TMP . md5(uniqid(random_int(0, mt_getrandmax()))) . '.tmp.gz');
+    }
+
+    // si on a pas deja recuperer le contenu par une methode detournee
+    if (!$result['length']) {
+        $res = recuperer_body($handle, $options['taille_max'], $gz ?: $copy);
+        fclose($handle);
+        if ($copy) {
+            $result['length'] = $res;
+            $result['file'] = $copy;
+        } elseif ($res) {
+            $result['page'] = &$res;
+            $result['length'] = strlen($result['page']);
+        }
+        if (!$result['status']) {
+            $result['status'] = 200; // on a reussi, donc !
+        }
+    }
+    if (!$result['page']) {
+        return $result;
+    }
+
+    // Decompresser au besoin
+    if ($gz) {
+        $result['page'] = implode('', gzfile($gz));
+        supprimer_fichier($gz);
+    }
+
+    // Faut-il l'importer dans notre charset local ?
+    if ($options['transcoder']) {
+        include_spip('inc/charsets');
+        $result['page'] = transcoder_page($result['page'], $result['headers']);
+    }
+
+    $trace = json_decode(json_encode($result), true);
+    $trace['page'] = '...';
+    spip_log('RESULTAT recuperer_url ' . $options['methode'] . " sur $url : " . json_encode($trace), 'distant' . _LOG_DEBUG);
+
+    return $result;
 }
 
 /**
@@ -662,73 +662,73 @@ 
  * @return array|bool|mixed
  */
 function recuperer_url_cache($url, $options = []) {
-	if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
-		define('_DELAI_RECUPERER_URL_CACHE', 3600);
-	}
-	$default = [
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-		'delai_cache' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _DELAI_RECUPERER_URL_CACHE,
-	];
-	$options = array_merge($default, $options);
-
-	// cas ou il n'est pas possible de cacher
-	if (!empty($options['data']) or $options['methode'] == 'POST') {
-		return recuperer_url($url, $options);
-	}
-
-	// ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
-	static $errors = [];
-	if (isset($errors[$url])) {
-		return $errors[$url];
-	}
-
-	$sig = $options;
-	unset($sig['if_modified_since']);
-	unset($sig['delai_cache']);
-	$sig['url'] = $url;
-
-	$dir = sous_repertoire(_DIR_CACHE, 'curl');
-	$cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
-	$sub = sous_repertoire($dir, substr($cache, 0, 2));
-	$cache = "$sub$cache";
-
-	$res = false;
-	$is_cached = file_exists($cache);
-	if (
-		$is_cached
-		and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
-	) {
-		lire_fichier($cache, $res);
-		if ($res = unserialize($res)) {
-			// mettre le last_modified et le status=304 ?
-		}
-	}
-	if (!$res) {
-		$res = recuperer_url($url, $options);
-		// ne pas recharger cette url non cachee dans le meme hit puisque non disponible
-		if (!$res) {
-			if ($is_cached) {
-				// on a pas reussi a recuperer mais on avait un cache : l'utiliser
-				lire_fichier($cache, $res);
-				$res = unserialize($res);
-			}
-
-			return $errors[$url] = $res;
-		}
-		ecrire_fichier($cache, serialize($res));
-	}
-
-	return $res;
+    if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
+        define('_DELAI_RECUPERER_URL_CACHE', 3600);
+    }
+    $default = [
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+        'delai_cache' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _DELAI_RECUPERER_URL_CACHE,
+    ];
+    $options = array_merge($default, $options);
+
+    // cas ou il n'est pas possible de cacher
+    if (!empty($options['data']) or $options['methode'] == 'POST') {
+        return recuperer_url($url, $options);
+    }
+
+    // ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
+    static $errors = [];
+    if (isset($errors[$url])) {
+        return $errors[$url];
+    }
+
+    $sig = $options;
+    unset($sig['if_modified_since']);
+    unset($sig['delai_cache']);
+    $sig['url'] = $url;
+
+    $dir = sous_repertoire(_DIR_CACHE, 'curl');
+    $cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
+    $sub = sous_repertoire($dir, substr($cache, 0, 2));
+    $cache = "$sub$cache";
+
+    $res = false;
+    $is_cached = file_exists($cache);
+    if (
+        $is_cached
+        and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
+    ) {
+        lire_fichier($cache, $res);
+        if ($res = unserialize($res)) {
+            // mettre le last_modified et le status=304 ?
+        }
+    }
+    if (!$res) {
+        $res = recuperer_url($url, $options);
+        // ne pas recharger cette url non cachee dans le meme hit puisque non disponible
+        if (!$res) {
+            if ($is_cached) {
+                // on a pas reussi a recuperer mais on avait un cache : l'utiliser
+                lire_fichier($cache, $res);
+                $res = unserialize($res);
+            }
+
+            return $errors[$url] = $res;
+        }
+        ecrire_fichier($cache, serialize($res));
+    }
+
+    return $res;
 }
 
 /**
@@ -746,42 +746,42 @@ 
  *   string contenu de la resource
  */
 function recuperer_body($handle, $taille_max = _INC_DISTANT_MAX_SIZE, $fichier = '') {
-	$tmpfile = null;
-	$taille = 0;
-	$result = '';
-	$fp = false;
-	if ($fichier) {
-		include_spip('inc/acces');
-		$tmpfile = "$fichier." . creer_uniqid() . '.tmp';
-		$fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
-		if (!$fp and file_exists($fichier)) {
-			return filesize($fichier);
-		}
-		if (!$fp) {
-			return false;
-		}
-		$result = 0; // on renvoie la taille du fichier
-	}
-	while (!feof($handle) and $taille < $taille_max) {
-		$res = fread($handle, 16384);
-		$taille += strlen($res);
-		if ($fp) {
-			fwrite($fp, $res);
-			$result = $taille;
-		} else {
-			$result .= $res;
-		}
-	}
-	if ($fp) {
-		spip_fclose_unlock($fp);
-		spip_unlink($fichier);
-		@rename($tmpfile, $fichier);
-		if (!file_exists($fichier)) {
-			return false;
-		}
-	}
-
-	return $result;
+    $tmpfile = null;
+    $taille = 0;
+    $result = '';
+    $fp = false;
+    if ($fichier) {
+        include_spip('inc/acces');
+        $tmpfile = "$fichier." . creer_uniqid() . '.tmp';
+        $fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
+        if (!$fp and file_exists($fichier)) {
+            return filesize($fichier);
+        }
+        if (!$fp) {
+            return false;
+        }
+        $result = 0; // on renvoie la taille du fichier
+    }
+    while (!feof($handle) and $taille < $taille_max) {
+        $res = fread($handle, 16384);
+        $taille += strlen($res);
+        if ($fp) {
+            fwrite($fp, $res);
+            $result = $taille;
+        } else {
+            $result .= $res;
+        }
+    }
+    if ($fp) {
+        spip_fclose_unlock($fp);
+        spip_unlink($fichier);
+        @rename($tmpfile, $fichier);
+        if (!file_exists($fichier)) {
+            return false;
+        }
+    }
+
+    return $result;
 }
 
 /**
@@ -803,35 +803,35 @@ 
  *   string location
  */
 function recuperer_entetes_complets($handle, $if_modified_since = false) {
-	$result = ['status' => 0, 'headers' => [], 'last_modified' => 0, 'location' => ''];
-
-	$s = @trim(fgets($handle, 16384));
-	if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
-		return false;
-	}
-	$result['status'] = intval($r[1]);
-	while ($s = trim(fgets($handle, 16384))) {
-		$result['headers'][] = $s . "\n";
-		preg_match(',^([^:]*): *(.*)$,i', $s, $r);
-		[, $d, $v] = $r;
-		if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
-			$result['location'] = $v;
-		} elseif ($d == 'Last-Modified') {
-			$result['last_modified'] = strtotime($v);
-		}
-	}
-	if (
-		$if_modified_since
-		and $result['last_modified']
-		and $if_modified_since > $result['last_modified']
-		and $result['status'] == 200
-	) {
-		$result['status'] = 304;
-	}
-
-	$result['headers'] = implode('', $result['headers']);
-
-	return $result;
+    $result = ['status' => 0, 'headers' => [], 'last_modified' => 0, 'location' => ''];
+
+    $s = @trim(fgets($handle, 16384));
+    if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
+        return false;
+    }
+    $result['status'] = intval($r[1]);
+    while ($s = trim(fgets($handle, 16384))) {
+        $result['headers'][] = $s . "\n";
+        preg_match(',^([^:]*): *(.*)$,i', $s, $r);
+        [, $d, $v] = $r;
+        if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
+            $result['location'] = $v;
+        } elseif ($d == 'Last-Modified') {
+            $result['last_modified'] = strtotime($v);
+        }
+    }
+    if (
+        $if_modified_since
+        and $result['last_modified']
+        and $if_modified_since > $result['last_modified']
+        and $result['status'] == 200
+    ) {
+        $result['status'] = 304;
+    }
+
+    $result['headers'] = implode('', $result['headers']);
+
+    return $result;
 }
 
 /**
@@ -853,22 +853,22 @@ 
  *     Nom du fichier pour copie locale
  **/
 function nom_fichier_copie_locale($source, $extension) {
-	include_spip('inc/documents');
+    include_spip('inc/documents');
 
-	$d = creer_repertoire_documents('distant'); # IMG/distant/
-	$d = sous_repertoire($d, $extension); # IMG/distant/pdf/
+    $d = creer_repertoire_documents('distant'); # IMG/distant/
+    $d = sous_repertoire($d, $extension); # IMG/distant/pdf/
 
-	// on se place tout le temps comme si on etait a la racine
-	if (_DIR_RACINE) {
-		$d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
-	}
+    // on se place tout le temps comme si on etait a la racine
+    if (_DIR_RACINE) {
+        $d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
+    }
 
-	$m = md5($source);
+    $m = md5($source);
 
-	return $d
-	. substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
-	. substr($m, 0, 4)
-	. ".$extension";
+    return $d
+    . substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
+    . substr($m, 0, 4)
+    . ".$extension";
 }
 
 /**
@@ -886,70 +886,70 @@ 
  *      Nom du fichier calculé
  **/
 function fichier_copie_locale($source) {
-	// Si c'est deja local pas de souci
-	if (!tester_url_absolue($source)) {
-		if (_DIR_RACINE) {
-			$source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
-		}
-
-		return $source;
-	}
-
-	// optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
-	// a deja ete copie en local avec cette extension
-	// dans ce cas elle est fiable, pas la peine de requeter en base
-	$path_parts = pathinfo($source);
-	if (!isset($path_parts['extension'])) {
-		$path_parts['extension'] = '';
-	}
-	$ext = $path_parts ? $path_parts['extension'] : '';
-	if (
-		$ext
-		and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
-		and $f = nom_fichier_copie_locale($source, $ext)
-		and file_exists(_DIR_RACINE . $f)
-	) {
-		return $f;
-	}
-
-
-	// Si c'est deja dans la table des documents,
-	// ramener le nom de sa copie potentielle
-	$ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
-
-	if ($ext) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-
-	// voir si l'extension indiquee dans le nom du fichier est ok
-	// et si il n'aurait pas deja ete rapatrie
-
-	$ext = $path_parts ? $path_parts['extension'] : '';
-
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		$f = nom_fichier_copie_locale($source, $ext);
-		if (file_exists(_DIR_RACINE . $f)) {
-			return $f;
-		}
-	}
-
-	// Ping  pour voir si son extension est connue et autorisee
-	// avec mise en cache du resultat du ping
-
-	$cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
-	if (
-		!@file_exists($cache)
-		or !$path_parts = @unserialize(spip_file_get_contents($cache))
-		or _request('var_mode') === 'recalcul'
-	) {
-		$path_parts = recuperer_infos_distantes($source, ['charger_si_petite_image' => false]);
-		ecrire_fichier($cache, serialize($path_parts));
-	}
-	$ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-	spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
+    // Si c'est deja local pas de souci
+    if (!tester_url_absolue($source)) {
+        if (_DIR_RACINE) {
+            $source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
+        }
+
+        return $source;
+    }
+
+    // optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
+    // a deja ete copie en local avec cette extension
+    // dans ce cas elle est fiable, pas la peine de requeter en base
+    $path_parts = pathinfo($source);
+    if (!isset($path_parts['extension'])) {
+        $path_parts['extension'] = '';
+    }
+    $ext = $path_parts ? $path_parts['extension'] : '';
+    if (
+        $ext
+        and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
+        and $f = nom_fichier_copie_locale($source, $ext)
+        and file_exists(_DIR_RACINE . $f)
+    ) {
+        return $f;
+    }
+
+
+    // Si c'est deja dans la table des documents,
+    // ramener le nom de sa copie potentielle
+    $ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
+
+    if ($ext) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+
+    // voir si l'extension indiquee dans le nom du fichier est ok
+    // et si il n'aurait pas deja ete rapatrie
+
+    $ext = $path_parts ? $path_parts['extension'] : '';
+
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        $f = nom_fichier_copie_locale($source, $ext);
+        if (file_exists(_DIR_RACINE . $f)) {
+            return $f;
+        }
+    }
+
+    // Ping  pour voir si son extension est connue et autorisee
+    // avec mise en cache du resultat du ping
+
+    $cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
+    if (
+        !@file_exists($cache)
+        or !$path_parts = @unserialize(spip_file_get_contents($cache))
+        or _request('var_mode') === 'recalcul'
+    ) {
+        $path_parts = recuperer_infos_distantes($source, ['charger_si_petite_image' => false]);
+        ecrire_fichier($cache, serialize($path_parts));
+    }
+    $ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+    spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
 }
 
 
@@ -978,110 +978,110 @@ 
  **/
 function recuperer_infos_distantes($source, $options = []) {
 
-	// pas la peine de perdre son temps
-	if (!tester_url_absolue($source)) {
-		return false;
-	}
-
-	$taille_max = $options['taille_max'] ?? 0;
-	$charger_si_petite_image = !!($options['charger_si_petite_image'] ?? true);
-	$callback_valider_url = $options['callback_valider_url'] ?? null;
-
-	# charger les alias des types mime
-	include_spip('base/typedoc');
-
-	$a = [];
-	$mime_type = '';
-	// On va directement charger le debut des images et des fichiers html,
-	// de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
-	// ca echoue l'utilisateur devra les entrer...
-	$reponse = recuperer_url($source, ['taille_max' => $taille_max, 'refuser_gz' => true]);
-	if (
-		$callback_valider_url
-		and is_callable($callback_valider_url)
-		and !$callback_valider_url($reponse['url'])
-	) {
-		return false;
-	}
-	$headers = $reponse['headers'] ?? '';
-	$a['body'] = $reponse['page'] ?? '';
-	if ($headers) {
-		if (!$extension = distant_trouver_extension_selon_headers($source, $headers)) {
-			return false;
-		}
-
-		$a['extension'] = $extension;
-
-		if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
-			$a['taille'] = intval($regs[1]);
-		}
-	}
-
-	// Echec avec HEAD, on tente avec GET
-	if (!$a and !$taille_max) {
-		spip_log("tenter GET $source", 'distant');
-		$options['taille_max'] = _INC_DISTANT_MAX_SIZE;
-		$a = recuperer_infos_distantes($source, $options);
-	}
-
-	// si on a rien trouve pas la peine d'insister
-	if (!$a) {
-		return false;
-	}
-
-	// S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
-	// recharger le document en GET et recuperer des donnees supplementaires...
-	include_spip('inc/filtres_images_lib_mini');
-	if (
-		strpos($mime_type, 'image/') === 0
-		and $extension = _image_trouver_extension_depuis_mime($mime_type)
-	) {
-		if (
-			$taille_max == 0
-			and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
-			and in_array($extension, formats_image_acceptables())
-			and $charger_si_petite_image
-		) {
-			$options['taille_max'] = _INC_DISTANT_MAX_SIZE;
-			$a = recuperer_infos_distantes($source, $options);
-		} else {
-			if ($a['body']) {
-				$a['extension'] = $extension;
-				$a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
-				ecrire_fichier($a['fichier'], $a['body']);
-				$size_image = @spip_getimagesize($a['fichier']);
-				$a['largeur'] = intval($size_image[0]);
-				$a['hauteur'] = intval($size_image[1]);
-				$a['type_image'] = true;
-			}
-		}
-	}
-
-	// Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
-	// ce sera mieux que 0x0
-	// Flash is dead!
-	if (
-		$a and isset($a['extension']) and $a['extension'] == 'swf'
-		and empty($a['largeur'])
-	) {
-		$a['largeur'] = 425;
-		$a['hauteur'] = 350;
-	}
-
-	if ($mime_type == 'text/html') {
-		include_spip('inc/filtres');
-		$page = recuperer_url($source, ['transcoder' => true, 'taille_max' => _INC_DISTANT_MAX_SIZE]);
-		$page = $page['page'] ?? '';
-		if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
-			$a['titre'] = corriger_caracteres(trim($regs[1]));
-		}
-		if (!isset($a['taille']) or !$a['taille']) {
-			$a['taille'] = strlen($page); # a peu pres
-		}
-	}
-	$a['mime_type'] = $mime_type;
-
-	return $a;
+    // pas la peine de perdre son temps
+    if (!tester_url_absolue($source)) {
+        return false;
+    }
+
+    $taille_max = $options['taille_max'] ?? 0;
+    $charger_si_petite_image = !!($options['charger_si_petite_image'] ?? true);
+    $callback_valider_url = $options['callback_valider_url'] ?? null;
+
+    # charger les alias des types mime
+    include_spip('base/typedoc');
+
+    $a = [];
+    $mime_type = '';
+    // On va directement charger le debut des images et des fichiers html,
+    // de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
+    // ca echoue l'utilisateur devra les entrer...
+    $reponse = recuperer_url($source, ['taille_max' => $taille_max, 'refuser_gz' => true]);
+    if (
+        $callback_valider_url
+        and is_callable($callback_valider_url)
+        and !$callback_valider_url($reponse['url'])
+    ) {
+        return false;
+    }
+    $headers = $reponse['headers'] ?? '';
+    $a['body'] = $reponse['page'] ?? '';
+    if ($headers) {
+        if (!$extension = distant_trouver_extension_selon_headers($source, $headers)) {
+            return false;
+        }
+
+        $a['extension'] = $extension;
+
+        if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
+            $a['taille'] = intval($regs[1]);
+        }
+    }
+
+    // Echec avec HEAD, on tente avec GET
+    if (!$a and !$taille_max) {
+        spip_log("tenter GET $source", 'distant');
+        $options['taille_max'] = _INC_DISTANT_MAX_SIZE;
+        $a = recuperer_infos_distantes($source, $options);
+    }
+
+    // si on a rien trouve pas la peine d'insister
+    if (!$a) {
+        return false;
+    }
+
+    // S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
+    // recharger le document en GET et recuperer des donnees supplementaires...
+    include_spip('inc/filtres_images_lib_mini');
+    if (
+        strpos($mime_type, 'image/') === 0
+        and $extension = _image_trouver_extension_depuis_mime($mime_type)
+    ) {
+        if (
+            $taille_max == 0
+            and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
+            and in_array($extension, formats_image_acceptables())
+            and $charger_si_petite_image
+        ) {
+            $options['taille_max'] = _INC_DISTANT_MAX_SIZE;
+            $a = recuperer_infos_distantes($source, $options);
+        } else {
+            if ($a['body']) {
+                $a['extension'] = $extension;
+                $a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
+                ecrire_fichier($a['fichier'], $a['body']);
+                $size_image = @spip_getimagesize($a['fichier']);
+                $a['largeur'] = intval($size_image[0]);
+                $a['hauteur'] = intval($size_image[1]);
+                $a['type_image'] = true;
+            }
+        }
+    }
+
+    // Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
+    // ce sera mieux que 0x0
+    // Flash is dead!
+    if (
+        $a and isset($a['extension']) and $a['extension'] == 'swf'
+        and empty($a['largeur'])
+    ) {
+        $a['largeur'] = 425;
+        $a['hauteur'] = 350;
+    }
+
+    if ($mime_type == 'text/html') {
+        include_spip('inc/filtres');
+        $page = recuperer_url($source, ['transcoder' => true, 'taille_max' => _INC_DISTANT_MAX_SIZE]);
+        $page = $page['page'] ?? '';
+        if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
+            $a['titre'] = corriger_caracteres(trim($regs[1]));
+        }
+        if (!isset($a['taille']) or !$a['taille']) {
+            $a['taille'] = strlen($page); # a peu pres
+        }
+    }
+    $a['mime_type'] = $mime_type;
+
+    return $a;
 }
 
 /**
@@ -1090,70 +1090,70 @@ 
  * @return false|mixed
  */
 function distant_trouver_extension_selon_headers($source, $headers) {
-	if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
-		$mime_type = (trim($regs[1]));
-	} else {
-		$mime_type = '';
-	} // inconnu
-
-	// Appliquer les alias
-	while (isset($GLOBALS['mime_alias'][$mime_type])) {
-		$mime_type = $GLOBALS['mime_alias'][$mime_type];
-	}
-
-	// pour corriger_extension()
-	include_spip('inc/documents');
-
-	// Si on a un mime-type insignifiant
-	// text/plain,application/octet-stream ou vide
-	// c'est peut-etre que le serveur ne sait pas
-	// ce qu'il sert ; on va tenter de detecter via l'extension de l'url
-	// ou le Content-Disposition: attachment; filename=...
-	$t = null;
-	if (in_array($mime_type, ['text/plain', '', 'application/octet-stream'])) {
-		if (
-			!$t
-			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-		) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-		}
-		if (
-			!$t
-			and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
-			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
-		) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-		}
-	}
-
-	// Autre mime/type (ou text/plain avec fichier d'extension inconnue)
-	if (!$t) {
-		$t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
-	}
-
-	// Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
-	// On essaie de nouveau avec l'extension
-	if (
-		!$t
-		and $mime_type != 'text/plain'
-		and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-	) {
-		# eviter xxx.3 => 3gp (> SPIP 3)
-		$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-	}
-
-	if ($t) {
-		spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
-		return $t['extension'];
-	} else {
-		# par defaut on retombe sur '.bin' si c'est autorise
-		spip_log("mime-type $mime_type inconnu", 'distant');
-		$t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
-		if (!$t) {
-			return false;
-		}
-		return $t['extension'];
-	}
+    if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
+        $mime_type = (trim($regs[1]));
+    } else {
+        $mime_type = '';
+    } // inconnu
+
+    // Appliquer les alias
+    while (isset($GLOBALS['mime_alias'][$mime_type])) {
+        $mime_type = $GLOBALS['mime_alias'][$mime_type];
+    }
+
+    // pour corriger_extension()
+    include_spip('inc/documents');
+
+    // Si on a un mime-type insignifiant
+    // text/plain,application/octet-stream ou vide
+    // c'est peut-etre que le serveur ne sait pas
+    // ce qu'il sert ; on va tenter de detecter via l'extension de l'url
+    // ou le Content-Disposition: attachment; filename=...
+    $t = null;
+    if (in_array($mime_type, ['text/plain', '', 'application/octet-stream'])) {
+        if (
+            !$t
+            and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+        ) {
+            $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+        }
+        if (
+            !$t
+            and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
+            and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
+        ) {
+            $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+        }
+    }
+
+    // Autre mime/type (ou text/plain avec fichier d'extension inconnue)
+    if (!$t) {
+        $t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
+    }
+
+    // Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
+    // On essaie de nouveau avec l'extension
+    if (
+        !$t
+        and $mime_type != 'text/plain'
+        and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+    ) {
+        # eviter xxx.3 => 3gp (> SPIP 3)
+        $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+    }
+
+    if ($t) {
+        spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
+        return $t['extension'];
+    } else {
+        # par defaut on retombe sur '.bin' si c'est autorise
+        spip_log("mime-type $mime_type inconnu", 'distant');
+        $t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
+        if (!$t) {
+            return false;
+        }
+        return $t['extension'];
+    }
 }
 
 /**
@@ -1169,45 +1169,45 @@ 
  */
 function need_proxy($host, $http_proxy = null, $http_noproxy = null) {
 
-	$http_proxy ??= $GLOBALS['meta']['http_proxy'] ?? null;
-
-	// rien a faire si pas de proxy :)
-	if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
-		return '';
-	}
-
-	if (is_null($http_noproxy)) {
-		$http_noproxy = $GLOBALS['meta']['http_noproxy'] ?? null;
-	}
-	// si pas d'exception, on retourne le proxy
-	if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
-		return $http_proxy;
-	}
-
-	// si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
-	// $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
-	$http_noproxy = str_replace("\n", ' ', $http_noproxy);
-	$http_noproxy = str_replace("\r", ' ', $http_noproxy);
-	$http_noproxy = " $http_noproxy ";
-	$domain = $host;
-	// si le domaine exact www.example.org est dans les exceptions
-	if (strpos($http_noproxy, (string) " $domain ") !== false) {
-		return '';
-	}
-
-	while (strpos($domain, '.') !== false) {
-		$domain = explode('.', $domain);
-		array_shift($domain);
-		$domain = implode('.', $domain);
-
-		// ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
-		if (strpos($http_noproxy, (string) " .$domain ") !== false) {
-			return '';
-		}
-	}
-
-	// ok c'est pas une exception
-	return $http_proxy;
+    $http_proxy ??= $GLOBALS['meta']['http_proxy'] ?? null;
+
+    // rien a faire si pas de proxy :)
+    if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
+        return '';
+    }
+
+    if (is_null($http_noproxy)) {
+        $http_noproxy = $GLOBALS['meta']['http_noproxy'] ?? null;
+    }
+    // si pas d'exception, on retourne le proxy
+    if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
+        return $http_proxy;
+    }
+
+    // si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
+    // $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
+    $http_noproxy = str_replace("\n", ' ', $http_noproxy);
+    $http_noproxy = str_replace("\r", ' ', $http_noproxy);
+    $http_noproxy = " $http_noproxy ";
+    $domain = $host;
+    // si le domaine exact www.example.org est dans les exceptions
+    if (strpos($http_noproxy, (string) " $domain ") !== false) {
+        return '';
+    }
+
+    while (strpos($domain, '.') !== false) {
+        $domain = explode('.', $domain);
+        array_shift($domain);
+        $domain = implode('.', $domain);
+
+        // ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
+        if (strpos($http_noproxy, (string) " .$domain ") !== false) {
+            return '';
+        }
+    }
+
+    // ok c'est pas une exception
+    return $http_proxy;
 }
 
 
@@ -1230,59 +1230,59 @@ 
  * @return array
  */
 function init_http($method, $url, $refuse_gz = false, $referer = '', $datas = '', $vers = 'HTTP/1.0', $date = '') {
-	$user = $via_proxy = $proxy_user = '';
-	$fopen = false;
-
-	$t = @parse_url($url);
-	$host = $t['host'];
-	if ($t['scheme'] == 'http') {
-		$scheme = 'http';
-		$noproxy = '';
-	} elseif ($t['scheme'] == 'https') {
-		$scheme = 'ssl';
-		$noproxy = 'ssl://';
-		if (!isset($t['port']) || !($port = $t['port'])) {
-			$t['port'] = 443;
-		}
-	} else {
-		$scheme = $t['scheme'];
-		$noproxy = $scheme . '://';
-	}
-	if (isset($t['user'])) {
-		$user = [$t['user'], $t['pass']];
-	}
-
-	if (!isset($t['port']) || !($port = $t['port'])) {
-		$port = 80;
-	}
-	if (!isset($t['path']) || !($path = $t['path'])) {
-		$path = '/';
-	}
-
-	if (!empty($t['query'])) {
-		$path .= '?' . $t['query'];
-	}
-
-	$f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
-	if (!$f or !is_resource($f)) {
-		// fallback : fopen si on a pas fait timeout dans lance_requete
-		// ce qui correspond a $f===110
-		if (
-			$f !== 110
-			and !need_proxy($host)
-			and !_request('tester_proxy')
-			and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
-		) {
-			$f = @fopen($url, 'rb');
-			spip_log("connexion vers $url par simple fopen", 'distant');
-			$fopen = true;
-		} else {
-			// echec total
-			$f = false;
-		}
-	}
-
-	return [$f, $fopen];
+    $user = $via_proxy = $proxy_user = '';
+    $fopen = false;
+
+    $t = @parse_url($url);
+    $host = $t['host'];
+    if ($t['scheme'] == 'http') {
+        $scheme = 'http';
+        $noproxy = '';
+    } elseif ($t['scheme'] == 'https') {
+        $scheme = 'ssl';
+        $noproxy = 'ssl://';
+        if (!isset($t['port']) || !($port = $t['port'])) {
+            $t['port'] = 443;
+        }
+    } else {
+        $scheme = $t['scheme'];
+        $noproxy = $scheme . '://';
+    }
+    if (isset($t['user'])) {
+        $user = [$t['user'], $t['pass']];
+    }
+
+    if (!isset($t['port']) || !($port = $t['port'])) {
+        $port = 80;
+    }
+    if (!isset($t['path']) || !($path = $t['path'])) {
+        $path = '/';
+    }
+
+    if (!empty($t['query'])) {
+        $path .= '?' . $t['query'];
+    }
+
+    $f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
+    if (!$f or !is_resource($f)) {
+        // fallback : fopen si on a pas fait timeout dans lance_requete
+        // ce qui correspond a $f===110
+        if (
+            $f !== 110
+            and !need_proxy($host)
+            and !_request('tester_proxy')
+            and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
+        ) {
+            $f = @fopen($url, 'rb');
+            spip_log("connexion vers $url par simple fopen", 'distant');
+            $fopen = true;
+        } else {
+            // echec total
+            $f = false;
+        }
+    }
+
+    return [$f, $fopen];
 }
 
 /**
@@ -1317,123 +1317,123 @@ 
  *   resource socket vers l'url demandee
  */
 function lance_requete(
-	$method,
-	$scheme,
-	$user,
-	$host,
-	$path,
-	$port,
-	$noproxy,
-	$refuse_gz = false,
-	$referer = '',
-	$datas = '',
-	$vers = 'HTTP/1.0',
-	$date = ''
+    $method,
+    $scheme,
+    $user,
+    $host,
+    $path,
+    $port,
+    $noproxy,
+    $refuse_gz = false,
+    $referer = '',
+    $datas = '',
+    $vers = 'HTTP/1.0',
+    $date = ''
 ) {
 
-	$proxy_user = '';
-	$http_proxy = need_proxy($host);
-	if ($user) {
-		$user = urlencode($user[0]) . ':' . urlencode($user[1]);
-	}
-
-	$connect = '';
-	if ($http_proxy) {
-		if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme, ['tls','ssl'])) {
-			$path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
-			$connect = 'CONNECT ' . $path_host . " $vers\r\n"
-				. "Host: $path_host\r\n"
-				. "Proxy-Connection: Keep-Alive\r\n";
-		} else {
-			$path = (in_array($scheme, ['tls','ssl']) ? 'https://' : "$scheme://")
-				. (!$user ? '' : "$user@")
-				. "$host" . (($port != 80) ? ":$port" : '') . $path;
-		}
-		$t2 = @parse_url($http_proxy);
-		$first_host = $t2['host'];
-		$port = ($t2['port'] ?? null) ?: 80;
-		if ($t2['user'] ?? null) {
-			$proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
-		}
-	} else {
-		$first_host = $noproxy . $host;
-	}
-
-	if ($connect) {
-		$streamContext = stream_context_create([
-			'ssl' => [
-				'verify_peer' => false,
-				'allow_self_signed' => true,
-				'SNI_enabled' => true,
-				'peer_name' => $host,
-			]
-		]);
-		$f = @stream_socket_client(
-			"tcp://$first_host:$port",
-			$errno,
-			$errstr,
-			_INC_DISTANT_CONNECT_TIMEOUT,
-			STREAM_CLIENT_CONNECT,
-			$streamContext
-		);
-		spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-
-		fputs($f, $connect);
-		fputs($f, "\r\n");
-		$res = fread($f, 1024);
-		if (
-			!$res
-			or !count($res = explode(' ', $res))
-			or $res[1] !== '200'
-		) {
-			spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
-			fclose($f);
-
-			return false;
-		}
-		// important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
-		stream_set_blocking($f, true);
-		// envoyer le handshake
-		stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
-		spip_log("OK CONNECT sur $first_host:$port", 'connect');
-	} else {
-		$ntry = 3;
-		do {
-			$f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
-		} while (!$f and $ntry-- and $errno !== 110 and sleep(1));
-		spip_log("Recuperer $path sur $first_host:$port par $f");
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-	}
-
-	$site = $GLOBALS['meta']['adresse_site'] ?? '';
-
-	$host_port = $host;
-	if ($port != (in_array($scheme, ['tls','ssl']) ? 443 : 80)) {
-		$host_port .= ":$port";
-	}
-	$req = "$method $path $vers\r\n"
-		. "Host: $host_port\r\n"
-		. 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
-		. ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
-		. (!$site ? '' : "Referer: $site/$referer\r\n")
-		. (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
-		. (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
-		. (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
-		. (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
+    $proxy_user = '';
+    $http_proxy = need_proxy($host);
+    if ($user) {
+        $user = urlencode($user[0]) . ':' . urlencode($user[1]);
+    }
+
+    $connect = '';
+    if ($http_proxy) {
+        if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme, ['tls','ssl'])) {
+            $path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
+            $connect = 'CONNECT ' . $path_host . " $vers\r\n"
+                . "Host: $path_host\r\n"
+                . "Proxy-Connection: Keep-Alive\r\n";
+        } else {
+            $path = (in_array($scheme, ['tls','ssl']) ? 'https://' : "$scheme://")
+                . (!$user ? '' : "$user@")
+                . "$host" . (($port != 80) ? ":$port" : '') . $path;
+        }
+        $t2 = @parse_url($http_proxy);
+        $first_host = $t2['host'];
+        $port = ($t2['port'] ?? null) ?: 80;
+        if ($t2['user'] ?? null) {
+            $proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
+        }
+    } else {
+        $first_host = $noproxy . $host;
+    }
+
+    if ($connect) {
+        $streamContext = stream_context_create([
+            'ssl' => [
+                'verify_peer' => false,
+                'allow_self_signed' => true,
+                'SNI_enabled' => true,
+                'peer_name' => $host,
+            ]
+        ]);
+        $f = @stream_socket_client(
+            "tcp://$first_host:$port",
+            $errno,
+            $errstr,
+            _INC_DISTANT_CONNECT_TIMEOUT,
+            STREAM_CLIENT_CONNECT,
+            $streamContext
+        );
+        spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+
+        fputs($f, $connect);
+        fputs($f, "\r\n");
+        $res = fread($f, 1024);
+        if (
+            !$res
+            or !count($res = explode(' ', $res))
+            or $res[1] !== '200'
+        ) {
+            spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
+            fclose($f);
+
+            return false;
+        }
+        // important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
+        stream_set_blocking($f, true);
+        // envoyer le handshake
+        stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
+        spip_log("OK CONNECT sur $first_host:$port", 'connect');
+    } else {
+        $ntry = 3;
+        do {
+            $f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
+        } while (!$f and $ntry-- and $errno !== 110 and sleep(1));
+        spip_log("Recuperer $path sur $first_host:$port par $f");
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+    }
+
+    $site = $GLOBALS['meta']['adresse_site'] ?? '';
+
+    $host_port = $host;
+    if ($port != (in_array($scheme, ['tls','ssl']) ? 443 : 80)) {
+        $host_port .= ":$port";
+    }
+    $req = "$method $path $vers\r\n"
+        . "Host: $host_port\r\n"
+        . 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
+        . ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
+        . (!$site ? '' : "Referer: $site/$referer\r\n")
+        . (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
+        . (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
+        . (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
+        . (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
 
 #	spip_log("Requete\n$req", 'distant');
-	fputs($f, $req);
-	fputs($f, $datas ?: "\r\n");
+    fputs($f, $req);
+    fputs($f, $datas ?: "\r\n");
 
-	return $f;
+    return $f;
 }

ecrire/public/debusquer.php

Indentation +669 added lines, -669 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('public/decompiler');
@@ -68,124 +68,124 @@ 
  *     - true si $opt 'erreurs' = 'reset'
  **/
 function public_debusquer_dist($message = '', $lieu = '', $opt = []) {
-	static $tableau_des_erreurs = [];
-
-	// Pour des tests unitaires, pouvoir récupérer les erreurs générées
-	if (isset($opt['erreurs'])) {
-		if ($opt['erreurs'] == 'get') {
-			return $tableau_des_erreurs;
-		}
-		if ($opt['erreurs'] == 'reset') {
-			$tableau_des_erreurs = [];
-
-			return true;
-		}
-	}
-
-	// Erreur ou appel final ?
-	if ($message) {
-		$message = debusquer_compose_message($message);
-		$tableau_des_erreurs[] = [$message, $lieu];
-		set_request('var_mode', 'debug');
-		$GLOBALS['bouton_admin_debug'] = true;
-		// Permettre a la compil de continuer
-		if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
-			$lieu->code = "''";
-		}
-		// forcer l'appel au debusqueur en cas de boucles infernales
-		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and (is_countable($tableau_des_erreurs) ? count($tableau_des_erreurs) : 0) > _DEBUG_MAX_SQUELETTE_ERREURS);
-		if (!$urgence) {
-			return;
-		}
-	}
-	if (empty($GLOBALS['debug_objets']['principal'])) {
-		// espace public ?
-		if (isset($GLOBALS['fond'])) {
-			$GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
-		}
-	}
-
-	include_spip('inc/autoriser');
-	if (!autoriser('debug')) {
-		return;
-	}
-	include_spip('inc/headers');
-	include_spip('inc/filtres');
-
-	lang_select($GLOBALS['visiteur_session']['lang']);
-	$fonc = preg_replace(',\W,', '_', _request('var_mode_objet') ?? '');
-	$mode = preg_replace(',\W,', '_', _request('var_mode_affiche') ?? '');
-
-	$self = str_replace("\\'", ''', self());
-	$self = parametre_url($self, 'var_mode', 'debug');
-
-	$res = debusquer_bandeau($tableau_des_erreurs)
-		. '<br />'
-		. debusquer_squelette($fonc, $mode, $self);
-
-	if (!_DIR_RESTREINT or headers_sent()) {
-		return $res;
-	}
-	if ($tableau_des_erreurs) {
-		http_response_code(503);
-	}
-
-	http_no_cache();
-	if (isset($_GET['var_profile'])) {
-		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
-		$titre = parametre_url($titre, 'var_mode', '');
-	} else {
-		if (!$fonc) {
-			$fonc = $GLOBALS['debug_objets']['principal'];
-		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
-	}
-	if ($message === false) {
-		lang_select();
-
-		return debusquer_entete($titre, $res);
-	} else {
-		echo debusquer_entete($titre, $res);
-	}
-	exit;
+    static $tableau_des_erreurs = [];
+
+    // Pour des tests unitaires, pouvoir récupérer les erreurs générées
+    if (isset($opt['erreurs'])) {
+        if ($opt['erreurs'] == 'get') {
+            return $tableau_des_erreurs;
+        }
+        if ($opt['erreurs'] == 'reset') {
+            $tableau_des_erreurs = [];
+
+            return true;
+        }
+    }
+
+    // Erreur ou appel final ?
+    if ($message) {
+        $message = debusquer_compose_message($message);
+        $tableau_des_erreurs[] = [$message, $lieu];
+        set_request('var_mode', 'debug');
+        $GLOBALS['bouton_admin_debug'] = true;
+        // Permettre a la compil de continuer
+        if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
+            $lieu->code = "''";
+        }
+        // forcer l'appel au debusqueur en cas de boucles infernales
+        $urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and (is_countable($tableau_des_erreurs) ? count($tableau_des_erreurs) : 0) > _DEBUG_MAX_SQUELETTE_ERREURS);
+        if (!$urgence) {
+            return;
+        }
+    }
+    if (empty($GLOBALS['debug_objets']['principal'])) {
+        // espace public ?
+        if (isset($GLOBALS['fond'])) {
+            $GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
+        }
+    }
+
+    include_spip('inc/autoriser');
+    if (!autoriser('debug')) {
+        return;
+    }
+    include_spip('inc/headers');
+    include_spip('inc/filtres');
+
+    lang_select($GLOBALS['visiteur_session']['lang']);
+    $fonc = preg_replace(',\W,', '_', _request('var_mode_objet') ?? '');
+    $mode = preg_replace(',\W,', '_', _request('var_mode_affiche') ?? '');
+
+    $self = str_replace("\\'", '&#39;', self());
+    $self = parametre_url($self, 'var_mode', 'debug');
+
+    $res = debusquer_bandeau($tableau_des_erreurs)
+        . '<br />'
+        . debusquer_squelette($fonc, $mode, $self);
+
+    if (!_DIR_RESTREINT or headers_sent()) {
+        return $res;
+    }
+    if ($tableau_des_erreurs) {
+        http_response_code(503);
+    }
+
+    http_no_cache();
+    if (isset($_GET['var_profile'])) {
+        $titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
+        $titre = parametre_url($titre, 'var_mode', '');
+    } else {
+        if (!$fonc) {
+            $fonc = $GLOBALS['debug_objets']['principal'];
+        }
+        $titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+    }
+    if ($message === false) {
+        lang_select();
+
+        return debusquer_entete($titre, $res);
+    } else {
+        echo debusquer_entete($titre, $res);
+    }
+    exit;
 }
 
 function debusquer_compose_message($msg) {
-	if (is_array($msg)) {
-		// si c'est un texte, c'est une traduction a faire, mais
-		// sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
-		if (!is_numeric($msg[0]) and count($msg) == 2) {
-			// message avec argument: instancier
-			$msg = _T($msg[0], $msg[1], 'spip-debug-arg');
-		} else {
-			// message SQL: interpreter
-			$msg = debusquer_requete($msg);
-		}
-	}
-	// FIXME: le fond n'est pas la si on n'est pas dans un squelette
-	// cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
-	$fond = $GLOBALS['fond'] ?? '';
-	// une erreur critique sort $message en array
-	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
-
-	return $msg;
+    if (is_array($msg)) {
+        // si c'est un texte, c'est une traduction a faire, mais
+        // sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
+        if (!is_numeric($msg[0]) and count($msg) == 2) {
+            // message avec argument: instancier
+            $msg = _T($msg[0], $msg[1], 'spip-debug-arg');
+        } else {
+            // message SQL: interpreter
+            $msg = debusquer_requete($msg);
+        }
+    }
+    // FIXME: le fond n'est pas la si on n'est pas dans un squelette
+    // cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
+    $fond = $GLOBALS['fond'] ?? '';
+    // une erreur critique sort $message en array
+    $debug = is_array($msg) ? $msg[1] : $msg;
+    spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+
+    return $msg;
 }
 
 function debusquer_bandeau($erreurs) {
 
-	if (!empty($erreurs)) {
-		$n = [(is_countable($erreurs) ? count($erreurs) : 0) . ' ' . _T('zbug_erreur_squelette')];
+    if (!empty($erreurs)) {
+        $n = [(is_countable($erreurs) ? count($erreurs) : 0) . ' ' . _T('zbug_erreur_squelette')];
 
-		return debusquer_navigation($erreurs, $n);
-	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
-		include_spip('public/tracer');
-		[$temps, $nav] = chrono_requete($GLOBALS['tableau_des_temps']);
+        return debusquer_navigation($erreurs, $n);
+    } elseif (!empty($GLOBALS['tableau_des_temps'])) {
+        include_spip('public/tracer');
+        [$temps, $nav] = chrono_requete($GLOBALS['tableau_des_temps']);
 
-		return debusquer_navigation($temps, $nav, 'debug-profile');
-	} else {
-		return '';
-	}
+        return debusquer_navigation($temps, $nav, 'debug-profile');
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -195,42 +195,42 @@ 
  * @return string Code HTML
  **/
 function debusquer_contexte($env) {
-	if (is_string($env) and is_array($env_tab = @unserialize($env))) {
-		$env = $env_tab;
-	}
-
-	if (!$env) {
-		return '';
-	}
-	$res = '';
-	foreach ($env as $nom => $valeur) {
-		if (is_array($valeur)) {
-			$valeur_simple = [];
-			foreach ($valeur as $v) {
-				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
-				} elseif (is_object($v)) {
-					$valeur_simple[] = get_class($v);
-				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
-				} else {
-					$valeur_simple[] = $v;
-				}
-			}
-			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
-		} elseif (is_object($valeur)) {
-			$valeur = get_class($valeur);
-		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
-		}
-		$res .= "\n<tr><td><strong>" . nl2br((string) entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br((string) entites_html($valeur))
-			. "</td></tr>\n";
-	}
-
-	return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
+    if (is_string($env) and is_array($env_tab = @unserialize($env))) {
+        $env = $env_tab;
+    }
+
+    if (!$env) {
+        return '';
+    }
+    $res = '';
+    foreach ($env as $nom => $valeur) {
+        if (is_array($valeur)) {
+            $valeur_simple = [];
+            foreach ($valeur as $v) {
+                if (is_array($v)) {
+                    $valeur_simple[] = 'array:' . count($v);
+                } elseif (is_object($v)) {
+                    $valeur_simple[] = get_class($v);
+                } elseif (is_string($v)) {
+                    $valeur_simple[] = "'" . $v . "'";
+                } else {
+                    $valeur_simple[] = $v;
+                }
+            }
+            $n = count($valeur);
+            $valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
+            $valeur .= '[' . join(', ', $valeur_simple) . ']';
+        } elseif (is_object($valeur)) {
+            $valeur = get_class($valeur);
+        } elseif (is_string($valeur)) {
+            $valeur = "'" . $valeur . "'";
+        }
+        $res .= "\n<tr><td><strong>" . nl2br((string) entites_html($nom))
+            . '</strong></td><td>:&nbsp;' . nl2br((string) entites_html($valeur))
+            . "</td></tr>\n";
+    }
+
+    return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
 }
 
 // Affichage du tableau des erreurs ou des temps de calcul
@@ -238,66 +238,66 @@ 
 
 function debusquer_navigation($tableau, $caption = [], $id = 'debug-nav') {
 
-	if (_request('exec') == 'valider_xml') {
-		return '';
-	}
-	$GLOBALS['bouton_admin_debug'] = true;
-	$res = '';
-	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
-	foreach ($tableau as $i => $err) {
-		$boucle = $ligne = $skel = '';
-		[$msg, $lieu] = $err;
-		if (is_object($lieu)) {
-			$ligne = $lieu->ligne;
-			$boucle = !empty($lieu->id_boucle) ? $lieu->id_boucle : '';
-			if (isset($lieu->descr['nom'])) {
-				$nom_code = $lieu->descr['nom'];
-				$skel = $lieu->descr['sourcefile'];
-				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
-				$skel = "<a href='$h3'><b>$skel</b></a>";
-				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
-					$boucle = "<a href='$h3'><b>$boucle</b></a>";
-				}
-			}
-		}
-
-		$j = ($i + 1);
-		$res .= "<tr id='req$j'><td style='text-align: right'>"
-			. $j
-			. "&nbsp;</td><td style='text-align: left'>"
-			. (is_array($msg) ? implode('', $msg) : $msg)
-			. "</td><td style='text-align: left'>"
-			. ($skel ?: '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td class='spip-debug-arg' style='text-align: left'>"
-			. ($boucle ?: '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td style='text-align: right'>"
-			. $ligne
-			. "</td></tr>\n";
-	}
-
-	return "\n<table id='$id'>"
-	. "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
-	. $caption[0]
+    if (_request('exec') == 'valider_xml') {
+        return '';
+    }
+    $GLOBALS['bouton_admin_debug'] = true;
+    $res = '';
+    $href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
+    foreach ($tableau as $i => $err) {
+        $boucle = $ligne = $skel = '';
+        [$msg, $lieu] = $err;
+        if (is_object($lieu)) {
+            $ligne = $lieu->ligne;
+            $boucle = !empty($lieu->id_boucle) ? $lieu->id_boucle : '';
+            if (isset($lieu->descr['nom'])) {
+                $nom_code = $lieu->descr['nom'];
+                $skel = $lieu->descr['sourcefile'];
+                $h2 = parametre_url($href, 'var_mode_objet', $nom_code);
+                $h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+                $skel = "<a href='$h3'><b>$skel</b></a>";
+                if ($boucle) {
+                    $h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+                    $boucle = "<a href='$h3'><b>$boucle</b></a>";
+                }
+            }
+        }
+
+        $j = ($i + 1);
+        $res .= "<tr id='req$j'><td style='text-align: right'>"
+            . $j
+            . "&nbsp;</td><td style='text-align: left'>"
+            . (is_array($msg) ? implode('', $msg) : $msg)
+            . "</td><td style='text-align: left'>"
+            . ($skel ?: '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td class='spip-debug-arg' style='text-align: left'>"
+            . ($boucle ?: '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td style='text-align: right'>"
+            . $ligne
+            . "</td></tr>\n";
+    }
+
+    return "\n<table id='$id'>"
+    . "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
+    . $caption[0]
 ## aide locale courte a ecrire, avec lien vers une grosse page de documentation
 #		aider('erreur_compilation'),
-	. '</caption>'
-	//  fausse caption du chrono (mais vraie nav)
-	. (!empty($caption[1]) ? $caption[1] : '')
-	. '<tr><th>'
-	. _T('numero')
-	. '</th><th>'
-	. _T('public:message')
-	. '</th><th>'
-	. _T('squelette')
-	. '</th><th>'
-	. _T('zbug_boucle')
-	. '</th><th>'
-	. _T('ligne')
-	. '</th></tr>'
-	. $res
-	. '</table>';
+    . '</caption>'
+    //  fausse caption du chrono (mais vraie nav)
+    . (!empty($caption[1]) ? $caption[1] : '')
+    . '<tr><th>'
+    . _T('numero')
+    . '</th><th>'
+    . _T('public:message')
+    . '</th><th>'
+    . _T('squelette')
+    . '</th><th>'
+    . _T('zbug_boucle')
+    . '</th><th>'
+    . _T('ligne')
+    . '</th></tr>'
+    . $res
+    . '</table>';
 }
 
 
@@ -317,514 +317,514 @@ 
  *    ou un tableau si l'erreur est critique
  **/
 function debusquer_requete($message) {
-	[$errno, $msg, $query] = $message;
-
-	// FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
-	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
-	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
-		$errno = $regs[2];
-	} elseif (
-		is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
-		and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
-	) {
-		$errno = $regs[1];
-	}
-
-	// Erreur systeme
-	if (is_numeric($errno) and $errno > 0 and $errno < 200) {
-		$retour = '<tt><br /><br /><blink>'
-			. _T('info_erreur_systeme', ['errsys' => $errno])
-			. "</blink><br />\n<b>"
-			. _T(
-				'info_erreur_systeme2',
-				['script' => generer_url_ecrire('base_repair')]
-			)
-			. '</b><br />';
-		spip_log("Erreur systeme $errno");
-
-		return [$retour, ''];
-	}
-
-	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
-		. spip_htmlspecialchars($msg)
-		. "\n<br /><span style='color: red'><b>"
-		. spip_htmlspecialchars($query)
-		. '</b></span></tt><br />';
-
-	//. aider('erreur_mysql');
-
-	return $err;
+    [$errno, $msg, $query] = $message;
+
+    // FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
+    // il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
+    if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
+        $errno = $regs[2];
+    } elseif (
+        is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
+        and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
+    ) {
+        $errno = $regs[1];
+    }
+
+    // Erreur systeme
+    if (is_numeric($errno) and $errno > 0 and $errno < 200) {
+        $retour = '<tt><br /><br /><blink>'
+            . _T('info_erreur_systeme', ['errsys' => $errno])
+            . "</blink><br />\n<b>"
+            . _T(
+                'info_erreur_systeme2',
+                ['script' => generer_url_ecrire('base_repair')]
+            )
+            . '</b><br />';
+        spip_log("Erreur systeme $errno");
+
+        return [$retour, ''];
+    }
+
+    // Requete erronee
+    $err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+        . spip_htmlspecialchars($msg)
+        . "\n<br /><span style='color: red'><b>"
+        . spip_htmlspecialchars($query)
+        . '</b></span></tt><br />';
+
+    //. aider('erreur_mysql');
+
+    return $err;
 }
 
 
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
-	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
-		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
-			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
-				$y = substr_count($v[0], "\n");
-			} else {
-				if ($v[1][0] == '#') { // balise dynamique
-				$incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
-				} else // inclusion
-				{
-					$incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
-				}
-				$y = substr_count($incl, "\n")
-					+ substr_count($r[1], "\n")
-					+ substr_count($r[3], "\n");
-			}
-			if ($n <= ($y + $debut)) {
-				if ($v[1][0] == '?') {
-					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				} elseif ($v[1][0] == '!') {
-					if ($incl = trouve_squelette_inclus($v[1])) {
-						return trouve_boucle_debug($n, $incl, $debut);
-					}
-				}
-
-				return [$nom, $boucle, $v[2] - 1 + $n - $debut];
-			}
-			$debut += $y;
-		}
-	}
-
-	return [$nom, $boucle, $n - $debut];
+    $id = $nom . $boucle;
+    if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
+        foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
+            if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
+                $y = substr_count($v[0], "\n");
+            } else {
+                if ($v[1][0] == '#') { // balise dynamique
+                $incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
+                } else // inclusion
+                {
+                    $incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
+                }
+                $y = substr_count($incl, "\n")
+                    + substr_count($r[1], "\n")
+                    + substr_count($r[3], "\n");
+            }
+            if ($n <= ($y + $debut)) {
+                if ($v[1][0] == '?') {
+                    return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
+                } elseif ($v[1][0] == '!') {
+                    if ($incl = trouve_squelette_inclus($v[1])) {
+                        return trouve_boucle_debug($n, $incl, $debut);
+                    }
+                }
+
+                return [$nom, $boucle, $v[2] - 1 + $n - $debut];
+            }
+            $debut += $y;
+        }
+    }
+
+    return [$nom, $boucle, $n - $debut];
 }
 
 function trouve_squelette_inclus($script) {
 
-	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
-	// si le script X.php n'est pas ecrire/public.php
-	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
-	if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
-		if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
-				$reg[1] = 'inconnu';
-		}
-	}
-	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
-
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
-		if (preg_match($incl, $v)) {
-			return $k;
-		}
-	}
-
-	return '';
+    preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
+    // si le script X.php n'est pas ecrire/public.php
+    // on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
+    if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
+    if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
+        if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
+                $reg[1] = 'inconnu';
+        }
+    }
+    }
+    $incl = ',' . $reg[1] . '[.]\w$,';
+
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
+        if (preg_match($incl, $v)) {
+            return $k;
+        }
+    }
+
+    return '';
 }
 
 function reference_boucle_debug($n, $nom, $self) {
-	[$skel, $boucle, $ligne] = trouve_boucle_debug($n, $nom);
-
-	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
-				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
-	} else {
-		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
-
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
-	}
+    [$skel, $boucle, $ligne] = trouve_boucle_debug($n, $nom);
+
+    if (!$boucle) {
+        return !$ligne ? '' :
+            (' (' .
+                (($nom != $skel) ? _T('squelette_inclus_ligne') :
+                    _T('squelette_ligne')) .
+                " <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
+    } else {
+        $self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
+
+        return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
+            " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+    }
 }
 
 // affiche un texte avec numero de ligne et ancre.
 
 function ancre_texte($texte, $fautifs = [], $nocpt = false) {
 
-	$var_mode_ligne = _request('var_mode_ligne');
-	if ($var_mode_ligne) {
-		$fautifs[] = [$var_mode_ligne];
-	}
-	$res = '';
-
-	$s = highlight_string($texte, true);
-	if (substr($s, 0, 6) == '<code>') {
-		$s = substr($s, 6);
-		$res = '<code>';
-	}
-
-	$s = preg_replace(
-		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
-		$s
-	);
-
-
-	$tableau = explode('<br />', $s);
-
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
-
-	$format10 = str_replace('white', 'lightgrey', $format);
-	$formaterr = 'color: red;';
-	$i = 1;
-	$flignes = [];
-	$loc = [0, 0];
-	foreach ($fautifs as $lc) {
-		if (is_array($lc)) {
-			$l = array_shift($lc);
-			$flignes[$l] = $lc;
-		} else {
-			$flignes[$lc] = $loc;
-		}
-	}
-
-	$ancre = md5($texte);
-	foreach ($tableau as $ligne) {
-		if (isset($flignes[$i])) {
-			$ligne = str_replace('&nbsp;', ' ', $ligne);
-			$indexmesg = $flignes[$i][1];
-			$err = textebrut($flignes[$i][2]);
-			// tentative de pointer sur la colonne fautive;
-			// marche pas car highlight_string rajoute des entites. A revoir.
-			// $m = $flignes[$i][0];
-			// $ligne = substr($ligne, 0, $m-1) .
-			// sprintf($formaterr, substr($ligne,$m));
-			$bg = $formaterr;
-		} else {
-			$indexmesg = $ancre;
-			$err = $bg = '';
-		}
-		$res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
-		$i++;
-	}
-
-	return "<div id='T$ancre'>"
-	. '<div onclick="'
-	. "jQuery(this).parent().find('a').toggle();"
-	. '" title="'
-	. _T('masquer_colonne')
-	. '" style="cursor: pointer;">'
-	. ($nocpt ? '' : _T('info_numero_abbreviation'))
-	. '</div>
+    $var_mode_ligne = _request('var_mode_ligne');
+    if ($var_mode_ligne) {
+        $fautifs[] = [$var_mode_ligne];
+    }
+    $res = '';
+
+    $s = highlight_string($texte, true);
+    if (substr($s, 0, 6) == '<code>') {
+        $s = substr($s, 6);
+        $res = '<code>';
+    }
+
+    $s = preg_replace(
+        ',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
+        '<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+        $s
+    );
+
+
+    $tableau = explode('<br />', $s);
+
+    $format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+
+    $format10 = str_replace('white', 'lightgrey', $format);
+    $formaterr = 'color: red;';
+    $i = 1;
+    $flignes = [];
+    $loc = [0, 0];
+    foreach ($fautifs as $lc) {
+        if (is_array($lc)) {
+            $l = array_shift($lc);
+            $flignes[$l] = $lc;
+        } else {
+            $flignes[$lc] = $loc;
+        }
+    }
+
+    $ancre = md5($texte);
+    foreach ($tableau as $ligne) {
+        if (isset($flignes[$i])) {
+            $ligne = str_replace('&nbsp;', ' ', $ligne);
+            $indexmesg = $flignes[$i][1];
+            $err = textebrut($flignes[$i][2]);
+            // tentative de pointer sur la colonne fautive;
+            // marche pas car highlight_string rajoute des entites. A revoir.
+            // $m = $flignes[$i][0];
+            // $ligne = substr($ligne, 0, $m-1) .
+            // sprintf($formaterr, substr($ligne,$m));
+            $bg = $formaterr;
+        } else {
+            $indexmesg = $ancre;
+            $err = $bg = '';
+        }
+        $res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+        $i++;
+    }
+
+    return "<div id='T$ancre'>"
+    . '<div onclick="'
+    . "jQuery(this).parent().find('a').toggle();"
+    . '" title="'
+    . _T('masquer_colonne')
+    . '" style="cursor: pointer;">'
+    . ($nocpt ? '' : _T('info_numero_abbreviation'))
+    . '</div>
 	' . $res . "</div>\n";
 }
 
 // l'environnement graphique du debuggueur
 
 function debusquer_squelette($fonc, $mode, $self) {
-	$legend = null;
-	$texte = '';
-
-	if ($mode !== 'validation') {
-		if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
-			$res = "<div id='spip-boucles'>\n"
-				. debusquer_navigation_squelettes($self)
-				. '</div>';
-		} else {
-			$res = '';
-		}
-		if ($fonc) {
-			$id = " id='$fonc'";
-			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
-				[$legend, $texte, $res2] = debusquer_source($fonc, $mode);
-				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
-				$texte = ancre_texte($texte, ['', '']);
-			}
-		} else {
-			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
-			} else {
-				// cas de l'appel sur erreur: montre la page
-				return $GLOBALS['debug_objets']['resultat']['tout'] ?? '';
-			}
-		}
-	} else {
-		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
-		// Si erreur, signaler leur nombre dans le formulaire admin
-		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
-		[$texte, $err] = emboite_texte($val, $fonc, $self);
-		if ($err === false) {
-			$err = _T('impossible');
-		} elseif ($err === true) {
-			$err = _T('correcte');
-		} else {
-			$err = ": $err";
-		}
-		$legend = _T('validation') . ' ' . $err;
-		$res = $id = '';
-	}
-
-	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
-		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
-		. ($legend ?: $mode)
-		. '</a></legend>'
-		. $texte
-		. '</fieldset></div>'
-		. '</div>');
+    $legend = null;
+    $texte = '';
+
+    if ($mode !== 'validation') {
+        if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
+            $res = "<div id='spip-boucles'>\n"
+                . debusquer_navigation_squelettes($self)
+                . '</div>';
+        } else {
+            $res = '';
+        }
+        if ($fonc) {
+            $id = " id='$fonc'";
+            if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
+                [$legend, $texte, $res2] = debusquer_source($fonc, $mode);
+                $texte .= $res2;
+            } elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
+                $legend = _T('zbug_' . $mode);
+                $texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+                $texte = ancre_texte($texte, ['', '']);
+            }
+        } else {
+            if (strlen(trim($res))) {
+                return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+            } else {
+                // cas de l'appel sur erreur: montre la page
+                return $GLOBALS['debug_objets']['resultat']['tout'] ?? '';
+            }
+        }
+    } else {
+        $valider = charger_fonction('valider', 'xml');
+        $val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+        // Si erreur, signaler leur nombre dans le formulaire admin
+        $GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
+        [$texte, $err] = emboite_texte($val, $fonc, $self);
+        if ($err === false) {
+            $err = _T('impossible');
+        } elseif ($err === true) {
+            $err = _T('correcte');
+        } else {
+            $err = ": $err";
+        }
+        $legend = _T('validation') . ' ' . $err;
+        $res = $id = '';
+    }
+
+    return !trim($texte) ? '' : (
+        "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+        . "<div id='debug_boucle'><fieldset$id><legend>"
+        . "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+        . ($legend ?: $mode)
+        . '</a></legend>'
+        . $texte
+        . '</fieldset></div>'
+        . '</div>');
 }
 
 
 function emboite_texte($res, $fonc = '', $self = '') {
-	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
-
-	if (!$texte and !$errs) {
-		return [ancre_texte('', ['', '']), false];
-	}
-	if (!$errs) {
-		return [ancre_texte($texte, ['', '']), true];
-	}
-
-	if (!isset($GLOBALS['debug_objets'])) {
-		$colors = ['#e0e0f0', '#f8f8ff'];
-		$encore = count_occ($errs);
-		$encore2 = [];
-		$fautifs = [];
-
-		$err = '<tr><th>'
-			. _T('numero')
-			. '</th><th>'
-			. _T('occurence')
-			. '</th><th>'
-			. _T('ligne')
-			. '</th><th>'
-			. _T('colonne')
-			. '</th><th>'
-			. _T('erreur')
-			. '</th></tr>';
-
-		$i = 0;
-		$style = "style='text-align: right; padding-right: 5px'";
-		foreach ($errs as $r) {
-			$i++;
-			[$msg, $ligne, $col] = $r;
-			#spip_log("$r = list($msg, $ligne, $col");
-			if (isset($encore2[$msg])) {
-				$ref = ++$encore2[$msg];
-			} else {
-				$encore2[$msg] = $ref = 1;
-			}
-			$err .= "<tr  style='background-color: "
-				. $colors[$i % 2]
-				. "'><td $style><a href='#debut_err'>"
-				. $i
-				. "</a></td><td $style>"
-				. "$ref/$encore[$msg]</td>"
-				. "<td $style><a href='#L"
-				. $ligne
-				. "' id='T$i'>"
-				. $ligne
-				. "</a></td><td $style>"
-				. $col
-				. "</td><td>$msg</td></tr>\n";
-			$fautifs[] = [$ligne, $col, $i, $msg];
-		}
-		$err = "<h2 style='text-align: center'>"
-			. $i
-			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
-			. "</a></h2><table id='debut_err' style='width: 100%'>"
-			. $err
-			. " </table><a id='fin_err'></a>";
-
-		return [ancre_texte($texte, $fautifs), $err];
-	} else {
-		[$msg, $fermant, $ouvrant] = $errs[0];
-		$rf = reference_boucle_debug($fermant, $fonc, $self);
-		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
-
-		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
-	}
+    $errs = $res->err;
+    $texte = $res->entete . ($errs ? '' : $res->page);
+
+    if (!$texte and !$errs) {
+        return [ancre_texte('', ['', '']), false];
+    }
+    if (!$errs) {
+        return [ancre_texte($texte, ['', '']), true];
+    }
+
+    if (!isset($GLOBALS['debug_objets'])) {
+        $colors = ['#e0e0f0', '#f8f8ff'];
+        $encore = count_occ($errs);
+        $encore2 = [];
+        $fautifs = [];
+
+        $err = '<tr><th>'
+            . _T('numero')
+            . '</th><th>'
+            . _T('occurence')
+            . '</th><th>'
+            . _T('ligne')
+            . '</th><th>'
+            . _T('colonne')
+            . '</th><th>'
+            . _T('erreur')
+            . '</th></tr>';
+
+        $i = 0;
+        $style = "style='text-align: right; padding-right: 5px'";
+        foreach ($errs as $r) {
+            $i++;
+            [$msg, $ligne, $col] = $r;
+            #spip_log("$r = list($msg, $ligne, $col");
+            if (isset($encore2[$msg])) {
+                $ref = ++$encore2[$msg];
+            } else {
+                $encore2[$msg] = $ref = 1;
+            }
+            $err .= "<tr  style='background-color: "
+                . $colors[$i % 2]
+                . "'><td $style><a href='#debut_err'>"
+                . $i
+                . "</a></td><td $style>"
+                . "$ref/$encore[$msg]</td>"
+                . "<td $style><a href='#L"
+                . $ligne
+                . "' id='T$i'>"
+                . $ligne
+                . "</a></td><td $style>"
+                . $col
+                . "</td><td>$msg</td></tr>\n";
+            $fautifs[] = [$ligne, $col, $i, $msg];
+        }
+        $err = "<h2 style='text-align: center'>"
+            . $i
+            . "<a href='#fin_err'>"
+            . ' ' . _T('erreur_texte')
+            . "</a></h2><table id='debut_err' style='width: 100%'>"
+            . $err
+            . " </table><a id='fin_err'></a>";
+
+        return [ancre_texte($texte, $fautifs), $err];
+    } else {
+        [$msg, $fermant, $ouvrant] = $errs[0];
+        $rf = reference_boucle_debug($fermant, $fonc, $self);
+        $ro = reference_boucle_debug($ouvrant, $fonc, $self);
+        $err = $msg .
+            "<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
+            "<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+
+        return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
+    }
 }
 
 function count_occ($regs) {
-	$encore = [];
-	foreach ($regs as $r) {
-		if (isset($encore[$r[0]])) {
-			$encore[$r[0]]++;
-		} else {
-			$encore[$r[0]] = 1;
-		}
-	}
-
-	return $encore;
+    $encore = [];
+    foreach ($regs as $r) {
+        if (isset($encore[$r[0]])) {
+            $encore[$r[0]]++;
+        } else {
+            $encore[$r[0]] = 1;
+        }
+    }
+
+    return $encore;
 }
 
 function debusquer_navigation_squelettes($self) {
 
-	$res = '';
-	$boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
-	$contexte = $GLOBALS['debug_objets']['contexte'];
-	$t_skel = _T('squelette');
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
-		$self2 = parametre_url($self, 'var_mode_objet', $nom);
-		$nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
-		$temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
-			'zbug_profile',
-			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
-		);
-
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
-			. $t_skel
-			. ' '
-			. $sourcefile
-			. "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
-			. $t_skel
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
-			. _T('zbug_resultat')
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
-			. _T('zbug_code')
-			. "</a>\n<a href='"
-			. str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
-			. "'>"
-			. _T('zbug_calcul')
-			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
-			. debusquer_contexte($contexte[$sourcefile])
-		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
-		. "</fieldset>\n";
-	}
-
-	return $res;
+    $res = '';
+    $boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
+    $contexte = $GLOBALS['debug_objets']['contexte'];
+    $t_skel = _T('squelette');
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
+        $self2 = parametre_url($self, 'var_mode_objet', $nom);
+        $nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
+        $temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
+            'zbug_profile',
+            ['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
+        );
+
+        $res .= "<fieldset id='f_" . $nom . "'><legend>"
+            . $t_skel
+            . ' '
+            . $sourcefile
+            . "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
+            . $t_skel
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
+            . _T('zbug_resultat')
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
+            . _T('zbug_code')
+            . "</a>\n<a href='"
+            . str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
+            . "'>"
+            . _T('zbug_calcul')
+            . '</a></legend>'
+            . (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+            . debusquer_contexte($contexte[$sourcefile])
+        . (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
+        . "</fieldset>\n";
+    }
+
+    return $res;
 }
 
 function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source) {
-	$i = 0;
-	$res = '';
-	$var_mode_objet = _request('var_mode_objet');
-	$gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
-
-	foreach ($boucles as $objet => $boucle) {
-		if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
-			$i++;
-			$nom = $boucle->id_boucle;
-			$req = $boucle->type_requete;
-			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
-				'</td></tr>';
-		}
-	}
-
-	return $res;
+    $i = 0;
+    $res = '';
+    $var_mode_objet = _request('var_mode_objet');
+    $gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
+
+    foreach ($boucles as $objet => $boucle) {
+        if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
+            $i++;
+            $nom = $boucle->id_boucle;
+            $req = $boucle->type_requete;
+            $crit = public_decompiler($boucle, $gram, 0, 'criteres');
+            $self2 = $self . '&amp;var_mode_objet=' . $objet;
+
+            $res .= "\n<tr style='background-color: " .
+                ($i % 2 ? '#e0e0f0' : '#f8f8ff') .
+                "'><td  align='right'>$i</td><td>\n" .
+                "<a  class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
+                _T('zbug_boucle') .
+                "</a></td><td>\n<a class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
+                _T('zbug_resultat') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=code#f_$nom_skel'>" .
+                _T('zbug_code') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                str_replace('var_mode=', 'var_profile=', $self2) .
+                "'>" .
+                _T('zbug_calcul') .
+                "</a></td><td>\n" .
+                (($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
+                "</td><td>\n" .
+                $req .
+                "</td><td>\n" .
+                spip_htmlspecialchars($crit) .
+                '</td></tr>';
+        }
+    }
+
+    return $res;
 }
 
 function debusquer_source($objet, $affiche) {
-	$quoi = $GLOBALS['debug_objets'][$affiche][$objet];
-	if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
-		$nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
-	} else {
-		$nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
-	}
-	$res2 = '';
-
-	if ($affiche == 'resultat') {
-		$legend = $nom;
-		$req = $GLOBALS['debug_objets']['requete'][$objet];
-		if (function_exists('_mysql_traite_query')) {
-			$c = strtolower(_request('connect') ?? '');
-			$c = $GLOBALS['connexions'][$c ?: 0]['prefixe'];
-			$req = _mysql_traite_query($req, '', $c);
-		}
-		//  permettre le copier/coller facile
-		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
-		//  formatage et affichage des resultats bruts de la requete
-		$ress_req = spip_query($req);
-		$brut_sql = '';
-		$num = 1;
-		//  eviter l'affichage de milliers de lignes
-		//  personnalisation possible dans mes_options
-		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
-		while ($retours_sql = sql_fetch($ress_req)) {
-			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
-				$brut_sql .= '<p>';
-				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
-				}
-				$brut_sql .= '</p>';
-			}
-			$num++;
-		}
-		$res2 = interdire_scripts($brut_sql);
-		foreach ($quoi as $view) {
-			//  ne pas afficher les $contexte_inclus
-			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
-			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
-			}
-		}
-	} elseif ($affiche == 'code') {
-		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
-	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
-		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
-		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
-		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
-	} elseif ($affiche == 'squelette') {
-		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
-		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
-	}
-
-	return [$legend, $res, $res2];
+    $quoi = $GLOBALS['debug_objets'][$affiche][$objet];
+    if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
+        $nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
+    } else {
+        $nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
+    }
+    $res2 = '';
+
+    if ($affiche == 'resultat') {
+        $legend = $nom;
+        $req = $GLOBALS['debug_objets']['requete'][$objet];
+        if (function_exists('_mysql_traite_query')) {
+            $c = strtolower(_request('connect') ?? '');
+            $c = $GLOBALS['connexions'][$c ?: 0]['prefixe'];
+            $req = _mysql_traite_query($req, '', $c);
+        }
+        //  permettre le copier/coller facile
+        // $res = ancre_texte($req, array(), true);
+        $res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+        //  formatage et affichage des resultats bruts de la requete
+        $ress_req = spip_query($req);
+        $brut_sql = '';
+        $num = 1;
+        //  eviter l'affichage de milliers de lignes
+        //  personnalisation possible dans mes_options
+        $max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
+        while ($retours_sql = sql_fetch($ress_req)) {
+            if ($num <= $max_aff) {
+                $brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+                $brut_sql .= '<p>';
+                foreach ($retours_sql as $key => $val) {
+                    $brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+                }
+                $brut_sql .= '</p>';
+            }
+            $num++;
+        }
+        $res2 = interdire_scripts($brut_sql);
+        foreach ($quoi as $view) {
+            //  ne pas afficher les $contexte_inclus
+            $view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
+            if ($view) {
+                $res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+            }
+        }
+    } elseif ($affiche == 'code') {
+        $legend = $nom;
+        $res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+    } elseif ($affiche == 'boucle') {
+        $legend = _T('zbug_boucle') . ' ' . $nom;
+        // Le compilateur prefixe le nom des boucles par l'extension du fichier source.
+        $gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
+        $res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
+    } elseif ($affiche == 'squelette') {
+        $legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
+        $res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
+    }
+
+    return [$legend, $res, $res2];
 }
 
 function debusquer_entete($titre, $corps) {
 
-	include_spip('balise/formulaire_admin');
-	include_spip('public/assembler'); // pour inclure_balise_dynamique
-	include_spip('inc/texte'); // pour corriger_typo
-
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . spip_htmlspecialchars($titre) . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
-	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
-	'</div></body></html>';
+    include_spip('balise/formulaire_admin');
+    include_spip('public/assembler'); // pour inclure_balise_dynamique
+    include_spip('inc/texte'); // pour corriger_typo
+
+    return _DOCTYPE_ECRIRE .
+    html_lang_attributes() .
+    "<head>\n<title>" .
+    ('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
+        _T('admin_debug') . ' ' . spip_htmlspecialchars($titre) . ' (' .
+        supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
+    ")</title>\n" .
+    "<meta http-equiv='Content-Type' content='text/html" .
+    (($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
+    "' />\n" .
+    http_script('', 'jquery.js')
+    . "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
+    . "' type='text/css' />" .
+    "</head>\n" .
+    "<body style='margin:0 10px;'>\n" .
+    "<div id='spip-debug-header'>" .
+    $corps .
+    inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+    '</div></body></html>';
 }