spip / SPIP

ecrire/public/debusquer.php

Indentation +682 added lines, -682 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('public/decompiler');
@@ -66,136 +66,136 @@ 
  *     - string si $message à false.
  **/
 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 count($tableau_des_erreurs) > _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');
-
-	// en cas de squelette inclus,  virer le code de l'incluant:
-	// - il contient souvent une Div restreignant la largeur a 3 fois rien
-	// - ca fait 2 headers !
-	// sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
-	// actif par exemple)
-	if (
-		ob_get_length()
-		and
-		!in_array('ob_gzhandler', ob_get_status())
-	) {
-		ob_end_clean();
-	}
-
-	lang_select($GLOBALS['visiteur_session']['lang']);
-	$fonc = _request('var_mode_objet');
-	$mode = _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 count($tableau_des_erreurs) > _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');
+
+    // en cas de squelette inclus,  virer le code de l'incluant:
+    // - il contient souvent une Div restreignant la largeur a 3 fois rien
+    // - ca fait 2 headers !
+    // sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
+    // actif par exemple)
+    if (
+        ob_get_length()
+        and
+        !in_array('ob_gzhandler', ob_get_status())
+    ) {
+        ob_end_clean();
+    }
+
+    lang_select($GLOBALS['visiteur_session']['lang']);
+    $fonc = _request('var_mode_objet');
+    $mode = _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 = isset($GLOBALS['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 = isset($GLOBALS['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 = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
+    if (!empty($erreurs)) {
+        $n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
 
-		return debusquer_navigation($erreurs, $n);
-	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
-		include_spip('public/tracer');
-		list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
+        return debusquer_navigation($erreurs, $n);
+    } elseif (!empty($GLOBALS['tableau_des_temps'])) {
+        include_spip('public/tracer');
+        list($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 '';
+    }
 }
 
 /**
@@ -205,42 +205,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(entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br(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(entites_html($nom))
+            . '</strong></td><td>:&nbsp;' . nl2br(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
@@ -248,66 +248,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 = '';
-		list($msg, $lieu) = $err;
-		if (is_object($lieu)) {
-			$ligne = $lieu->ligne;
-			$boucle = $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 ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td class='spip-debug-arg' style='text-align: left'>"
-			. ($boucle ? $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 = '';
+        list($msg, $lieu) = $err;
+        if (is_object($lieu)) {
+            $ligne = $lieu->ligne;
+            $boucle = $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 ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td class='spip-debug-arg' style='text-align: left'>"
+            . ($boucle ? $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>';
 }
 
 
@@ -327,124 +327,124 @@ 
  *    ou un tableau si l'erreur est critique
  **/
 function debusquer_requete($message) {
-	list($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;
+    list($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;
 }
 
 
 // https://code.spip.net/@trouve_boucle_debug
 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];
 }
 
 // https://code.spip.net/@trouve_squelette_inclus
 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 '';
 }
 
 // https://code.spip.net/@reference_boucle_debug
 function reference_boucle_debug($n, $nom, $self) {
-	list($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>)";
-	}
+    list($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.
@@ -452,397 +452,397 @@ 
 // https://code.spip.net/@ancre_texte
 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) {
-	$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])) {
-				list($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 isset($GLOBALS['debug_objets']['resultat']['tout'])
-					? $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) : '';
-		list($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 ? $legend : $mode)
-		. '</a></legend>'
-		. $texte
-		. '</fieldset></div>'
-		. '</div>');
+    $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])) {
+                list($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 isset($GLOBALS['debug_objets']['resultat']['tout'])
+                    ? $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) : '';
+        list($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 ? $legend : $mode)
+        . '</a></legend>'
+        . $texte
+        . '</fieldset></div>'
+        . '</div>');
 }
 
 
 // https://code.spip.net/@emboite_texte
 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++;
-			list($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 {
-		list($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++;
+            list($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 {
+        list($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];
+    }
 }
 
 // https://code.spip.net/@count_occ
 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 ? $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 ? $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];
 }
 
 // https://code.spip.net/@debusquer_entete
 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') . ' ' . $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') . ' ' . $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>';
 }

ecrire/public/aiguiller.php

Indentation +269 added lines, -269 removed lines

@@ -11,164 +11,164 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function securiser_redirect_action($redirect) {
-	// cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
-	if (strpos($redirect, '%') !== false) {
-		$r2 = urldecode($redirect);
-		if (($r3 = securiser_redirect_action($r2)) !== $r2) {
-			return $r3;
-		}
-	}
-	if (
-		(tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
-		and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
-	) {
-		// si l'url est une url du site, on la laisse passer sans rien faire
-		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site'] . '/';
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
-		$base = url_de_base();
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
+    // cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
+    if (strpos($redirect, '%') !== false) {
+        $r2 = urldecode($redirect);
+        if (($r3 = securiser_redirect_action($r2)) !== $r2) {
+            return $r3;
+        }
+    }
+    if (
+        (tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
+        and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
+    ) {
+        // si l'url est une url du site, on la laisse passer sans rien faire
+        // c'est encore le plus simple
+        $base = $GLOBALS['meta']['adresse_site'] . '/';
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
+        $base = url_de_base();
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
 
-		return '';
-	}
+        return '';
+    }
 
-	return $redirect;
+    return $redirect;
 }
 
 // https://code.spip.net/@traiter_appels_actions
 function traiter_appels_actions() {
-	// cas de l'appel qui renvoie une redirection (302) ou rien (204)
-	if ($action = _request('action')) {
-		include_spip('base/abstract_sql'); // chargement systematique pour les actions
-		include_spip('inc/autoriser');
-		include_spip('inc/headers');
-		include_spip('inc/actions');
-		// des actions peuvent appeler _T
-		if (!isset($GLOBALS['spip_lang'])) {
-			include_spip('inc/lang');
-			utiliser_langue_visiteur();
-		}
-		// si l'action est provoque par un hit {ajax}
-		// il faut transmettre l'env ajax au redirect
-		// on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
-		if (
-			($v = _request('var_ajax'))
-			and ($v !== 'form')
-			and ($args = _request('var_ajax_env'))
-			and ($url = _request('redirect'))
-		) {
-			$url = parametre_url($url, 'var_ajax', $v, '&');
-			$url = parametre_url($url, 'var_ajax_env', $args, '&');
-			set_request('redirect', $url);
-		} else {
-			if (_request('redirect')) {
-				set_request('redirect', securiser_redirect_action(_request('redirect')));
-			}
-		}
-		$var_f = charger_fonction($action, 'action');
-		$var_f();
-		if (!isset($GLOBALS['redirect'])) {
-			$GLOBALS['redirect'] = _request('redirect');
-			if ($_SERVER['REQUEST_METHOD'] == 'POST') {
-				$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
-			}
-			$GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
-		}
-		if ($url = $GLOBALS['redirect']) {
-			// si l'action est provoque par un hit {ajax}
-			// il faut transmettre l'env ajax au redirect
-			// qui a pu etre defini par l'action
-			if (
-				($v = _request('var_ajax'))
-				and ($v !== 'form')
-				and ($args = _request('var_ajax_env'))
-			) {
-				$url = parametre_url($url, 'var_ajax', $v, '&');
-				$url = parametre_url($url, 'var_ajax_env', $args, '&');
-				// passer l'ancre en variable pour pouvoir la gerer cote serveur
-				$url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
-			}
-			$url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
-			redirige_par_entete($url);
-		}
+    // cas de l'appel qui renvoie une redirection (302) ou rien (204)
+    if ($action = _request('action')) {
+        include_spip('base/abstract_sql'); // chargement systematique pour les actions
+        include_spip('inc/autoriser');
+        include_spip('inc/headers');
+        include_spip('inc/actions');
+        // des actions peuvent appeler _T
+        if (!isset($GLOBALS['spip_lang'])) {
+            include_spip('inc/lang');
+            utiliser_langue_visiteur();
+        }
+        // si l'action est provoque par un hit {ajax}
+        // il faut transmettre l'env ajax au redirect
+        // on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
+        if (
+            ($v = _request('var_ajax'))
+            and ($v !== 'form')
+            and ($args = _request('var_ajax_env'))
+            and ($url = _request('redirect'))
+        ) {
+            $url = parametre_url($url, 'var_ajax', $v, '&');
+            $url = parametre_url($url, 'var_ajax_env', $args, '&');
+            set_request('redirect', $url);
+        } else {
+            if (_request('redirect')) {
+                set_request('redirect', securiser_redirect_action(_request('redirect')));
+            }
+        }
+        $var_f = charger_fonction($action, 'action');
+        $var_f();
+        if (!isset($GLOBALS['redirect'])) {
+            $GLOBALS['redirect'] = _request('redirect');
+            if ($_SERVER['REQUEST_METHOD'] == 'POST') {
+                $GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+            }
+            $GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
+        }
+        if ($url = $GLOBALS['redirect']) {
+            // si l'action est provoque par un hit {ajax}
+            // il faut transmettre l'env ajax au redirect
+            // qui a pu etre defini par l'action
+            if (
+                ($v = _request('var_ajax'))
+                and ($v !== 'form')
+                and ($args = _request('var_ajax_env'))
+            ) {
+                $url = parametre_url($url, 'var_ajax', $v, '&');
+                $url = parametre_url($url, 'var_ajax_env', $args, '&');
+                // passer l'ancre en variable pour pouvoir la gerer cote serveur
+                $url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
+            }
+            $url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
+            redirige_par_entete($url);
+        }
 
-		// attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
-		// et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
-		if (
-			!headers_sent()
-			and !ob_get_length()
-		) {
-			http_status(204);
-		} // No Content
-		return true;
-	}
+        // attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
+        // et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
+        if (
+            !headers_sent()
+            and !ob_get_length()
+        ) {
+            http_status(204);
+        } // No Content
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 
 // https://code.spip.net/@refuser_traiter_formulaire_ajax
 function refuser_traiter_formulaire_ajax() {
-	if (
-		$v = _request('var_ajax')
-		and $v == 'form'
-		and $form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args')
-		and decoder_contexte_ajax($args, $form) !== false
-	) {
-		// on est bien dans le contexte de traitement d'un formulaire en ajax
-		// mais traiter ne veut pas
-		// on le dit a la page qui va resumbit
-		// sans ajax
-		include_spip('inc/actions');
-		ajax_retour('noajax', false);
-		exit;
-	}
+    if (
+        $v = _request('var_ajax')
+        and $v == 'form'
+        and $form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args')
+        and decoder_contexte_ajax($args, $form) !== false
+    ) {
+        // on est bien dans le contexte de traitement d'un formulaire en ajax
+        // mais traiter ne veut pas
+        // on le dit a la page qui va resumbit
+        // sans ajax
+        include_spip('inc/actions');
+        ajax_retour('noajax', false);
+        exit;
+    }
 }
 
 // https://code.spip.net/@traiter_appels_inclusions_ajax
 function traiter_appels_inclusions_ajax() {
-	// traiter les appels de bloc ajax (ex: pagination)
-	if (
-		$v = _request('var_ajax')
-		and $v !== 'form'
-		and $args = _request('var_ajax_env')
-	) {
-		include_spip('inc/filtres');
-		include_spip('inc/actions');
-		if (
-			$args = decoder_contexte_ajax($args)
-			and $fond = $args['fond']
-		) {
-			include_spip('public/assembler');
-			$contexte = calculer_contexte();
-			$contexte = array_merge($args, $contexte);
-			$page = recuperer_fond($fond, $contexte, ['trim' => false]);
-			$texte = $page;
-			if ($ancre = _request('var_ajax_ancre')) {
-				// pas n'importe quoi quand meme dans la variable !
-				$ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
-			}
-		} else {
-			include_spip('inc/headers');
-			http_response_code(400);
-			$texte = _L('signature ajax bloc incorrecte');
-		}
-		ajax_retour($texte, false);
+    // traiter les appels de bloc ajax (ex: pagination)
+    if (
+        $v = _request('var_ajax')
+        and $v !== 'form'
+        and $args = _request('var_ajax_env')
+    ) {
+        include_spip('inc/filtres');
+        include_spip('inc/actions');
+        if (
+            $args = decoder_contexte_ajax($args)
+            and $fond = $args['fond']
+        ) {
+            include_spip('public/assembler');
+            $contexte = calculer_contexte();
+            $contexte = array_merge($args, $contexte);
+            $page = recuperer_fond($fond, $contexte, ['trim' => false]);
+            $texte = $page;
+            if ($ancre = _request('var_ajax_ancre')) {
+                // pas n'importe quoi quand meme dans la variable !
+                $ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
+                $texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
+            }
+        } else {
+            include_spip('inc/headers');
+            http_response_code(400);
+            $texte = _L('signature ajax bloc incorrecte');
+        }
+        ajax_retour($texte, false);
 
-		return true; // on a fini le hit
-	}
+        return true; // on a fini le hit
+    }
 
-	return false;
+    return false;
 }
 
 // au 1er appel, traite les formulaires dynamiques charger/verifier/traiter
@@ -177,152 +177,152 @@ 
 
 // https://code.spip.net/@traiter_formulaires_dynamiques
 function traiter_formulaires_dynamiques($get = false) {
-	static $post = [];
-	static $done = false;
+    static $post = [];
+    static $done = false;
 
-	if ($get) {
-		return $post;
-	}
-	if ($done) {
-		return false;
-	}
-	$done = true;
+    if ($get) {
+        return $post;
+    }
+    if ($done) {
+        return false;
+    }
+    $done = true;
 
-	if (
-		!($form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args'))
-	) {
-		return false;
-	} // le hit peut continuer normalement
+    if (
+        !($form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args'))
+    ) {
+        return false;
+    } // le hit peut continuer normalement
 
-	include_spip('inc/filtres');
-	if (($args = decoder_contexte_ajax($args, $form)) === false) {
-		spip_log("signature ajax form incorrecte : $form");
+    include_spip('inc/filtres');
+    if (($args = decoder_contexte_ajax($args, $form)) === false) {
+        spip_log("signature ajax form incorrecte : $form");
 
-		return false; // continuons le hit comme si de rien etait
-	} else {
-		include_spip('inc/lang');
-		// sauvegarder la lang en cours
-		$old_lang = $GLOBALS['spip_lang'];
-		// changer la langue avec celle qui a cours dans le formulaire
-		// on la depile de $args car c'est un argument implicite masque
-		changer_langue(array_shift($args));
+        return false; // continuons le hit comme si de rien etait
+    } else {
+        include_spip('inc/lang');
+        // sauvegarder la lang en cours
+        $old_lang = $GLOBALS['spip_lang'];
+        // changer la langue avec celle qui a cours dans le formulaire
+        // on la depile de $args car c'est un argument implicite masque
+        changer_langue(array_shift($args));
 
 
-		// inclure mes_fonctions et autres filtres avant verifier/traiter
-		include_fichiers_fonctions();
-		// ainsi que l'API SQL bien utile dans verifier/traiter
-		include_spip('base/abstract_sql');
+        // inclure mes_fonctions et autres filtres avant verifier/traiter
+        include_fichiers_fonctions();
+        // ainsi que l'API SQL bien utile dans verifier/traiter
+        include_spip('base/abstract_sql');
 
-		/**
-		 * Pipeline exécuté lors de la soumission d'un formulaire,
-		 * mais avant l'appel de la fonction de vérification.
-		 */
-		pipeline(
-			'formulaire_receptionner',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => null,
-			]
-		);
+        /**
+         * Pipeline exécuté lors de la soumission d'un formulaire,
+         * mais avant l'appel de la fonction de vérification.
+         */
+        pipeline(
+            'formulaire_receptionner',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => null,
+            ]
+        );
 
-		$verifier = charger_fonction('verifier', "formulaires/$form/", true);
-		$post["erreurs_$form"] = pipeline(
-			'formulaire_verifier',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => $verifier ? call_user_func_array($verifier, $args) : []
-			]
-		);
-		// prise en charge CVT multi etape si besoin
-		if (_request('cvtm_prev_post')) {
-			include_spip('inc/cvt_multietapes');
-			$post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
-				['form' => $form, 'args' => $args],
-				$post["erreurs_$form"]
-			);
-		}
+        $verifier = charger_fonction('verifier', "formulaires/$form/", true);
+        $post["erreurs_$form"] = pipeline(
+            'formulaire_verifier',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => $verifier ? call_user_func_array($verifier, $args) : []
+            ]
+        );
+        // prise en charge CVT multi etape si besoin
+        if (_request('cvtm_prev_post')) {
+            include_spip('inc/cvt_multietapes');
+            $post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
+                ['form' => $form, 'args' => $args],
+                $post["erreurs_$form"]
+            );
+        }
 
-		// accessibilite : si des erreurs mais pas de message general l'ajouter
-		if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
-			$post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
-				count($post["erreurs_$form"]),
-				'avis_1_erreur_saisie',
-				'avis_nb_erreurs_saisie'
-			);
-		}
+        // accessibilite : si des erreurs mais pas de message general l'ajouter
+        if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
+            $post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
+                count($post["erreurs_$form"]),
+                'avis_1_erreur_saisie',
+                'avis_nb_erreurs_saisie'
+            );
+        }
 
-		// si on ne demandait qu'une verif json
-		if (_request('formulaire_action_verifier_json')) {
-			include_spip('inc/json');
-			include_spip('inc/actions');
-			ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
+        // si on ne demandait qu'une verif json
+        if (_request('formulaire_action_verifier_json')) {
+            include_spip('inc/json');
+            include_spip('inc/actions');
+            ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
 
-			return true; // on a fini le hit
-		}
-		$retour = '';
-		if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
-			$rev = '';
-			if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
-				$rev = call_user_func_array($traiter, $args);
-			}
+            return true; // on a fini le hit
+        }
+        $retour = '';
+        if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
+            $rev = '';
+            if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
+                $rev = call_user_func_array($traiter, $args);
+            }
 
-			$rev = pipeline(
-				'formulaire_traiter',
-				[
-					'args' => ['form' => $form, 'args' => $args],
-					'data' => $rev
-				]
-			);
-			// le retour de traiter est
-			// un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
-			// il permet le pipelinage, en particulier
-			// en y passant l'id de l'objet cree/modifie
-			// si message_erreur est present, on considere que le traitement a echoue
-			$post["message_ok_$form"] = '';
-			// on peut avoir message_ok et message_erreur
-			if (isset($rev['message_ok'])) {
-				$post["message_ok_$form"] = $rev['message_ok'];
-			}
+            $rev = pipeline(
+                'formulaire_traiter',
+                [
+                    'args' => ['form' => $form, 'args' => $args],
+                    'data' => $rev
+                ]
+            );
+            // le retour de traiter est
+            // un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
+            // il permet le pipelinage, en particulier
+            // en y passant l'id de l'objet cree/modifie
+            // si message_erreur est present, on considere que le traitement a echoue
+            $post["message_ok_$form"] = '';
+            // on peut avoir message_ok et message_erreur
+            if (isset($rev['message_ok'])) {
+                $post["message_ok_$form"] = $rev['message_ok'];
+            }
 
-			// verifier si traiter n'a pas echoue avec une erreur :
-			if (isset($rev['message_erreur'])) {
-				$post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
-				// si il y a une erreur on ne redirige pas
-			} else {
-				// sinon faire ce qu'il faut :
-				if (isset($rev['editable'])) {
-					$post["editable_$form"] = $rev['editable'];
-				}
-				// si une redirection est demandee, appeler redirigae_formulaire qui choisira
-				// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
-				if (isset($rev['redirect']) and $rev['redirect']) {
-					include_spip('inc/headers');
-					list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
-					$post["message_ok_$form"] .= $message;
-					$retour .= $masque;
-				}
-			}
-		}
-		// si le formulaire a ete soumis en ajax, on le renvoie direct !
-		if (_request('var_ajax')) {
-			if (find_in_path('formulaire_.php', 'balise/', true)) {
-				include_spip('inc/actions');
-				include_spip('public/assembler');
-				array_unshift($args, $form);
-				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
-				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
-				// sans cela le formulaire n'est pas actif apres le hit ajax
-				// la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
-				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
-				ajax_retour($retour, false);
+            // verifier si traiter n'a pas echoue avec une erreur :
+            if (isset($rev['message_erreur'])) {
+                $post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
+                // si il y a une erreur on ne redirige pas
+            } else {
+                // sinon faire ce qu'il faut :
+                if (isset($rev['editable'])) {
+                    $post["editable_$form"] = $rev['editable'];
+                }
+                // si une redirection est demandee, appeler redirigae_formulaire qui choisira
+                // le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
+                if (isset($rev['redirect']) and $rev['redirect']) {
+                    include_spip('inc/headers');
+                    list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
+                    $post["message_ok_$form"] .= $message;
+                    $retour .= $masque;
+                }
+            }
+        }
+        // si le formulaire a ete soumis en ajax, on le renvoie direct !
+        if (_request('var_ajax')) {
+            if (find_in_path('formulaire_.php', 'balise/', true)) {
+                include_spip('inc/actions');
+                include_spip('public/assembler');
+                array_unshift($args, $form);
+                $retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
+                // on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
+                // sans cela le formulaire n'est pas actif apres le hit ajax
+                // la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
+                $retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
+                ajax_retour($retour, false);
 
-				return true; // on a fini le hit
-			}
-		}
-		// restaurer la lang en cours
-		changer_langue($old_lang);
-	}
+                return true; // on a fini le hit
+            }
+        }
+        // restaurer la lang en cours
+        changer_langue($old_lang);
+    }
 
-	return false; // le hit peut continuer normalement
+    return false; // le hit peut continuer normalement
 }

ecrire/action/menu_rubriques.php

Indentation +155 added lines, -155 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/autoriser');
@@ -35,42 +35,42 @@ 
  **/
 function action_menu_rubriques_dist() {
 
-	// si pas acces a ecrire, pas acces au menu
-	// on renvoi un 401 qui fait echouer la requete ajax silencieusement
-	if (!autoriser('ecrire')) {
-		$retour =
-		'<ul class="deroulant__sous-menu" data-profondeur="1">' .
-			'<li class="deroulant__item deroulant__item_plan plan_site" data-profondeur="1">' .
-				'<a class="deroulant__lien" href="' . generer_url_ecrire('accueil') . '" data-profondeur="1">' .
-					'<span class="libelle">' . _T('public:lien_connecter') . '</span>' .
-				'</a>' .
-			'</li>' .
-		'</ul>';
-		include_spip('inc/actions');
-		ajax_retour($retour);
-		exit;
-	}
-
-	if ($date = intval(_request('date'))) {
-		header('Last-Modified: ' . gmdate('D, d M Y H:i:s', $date) . ' GMT');
-	}
-
-	$r = gen_liste_rubriques();
-	if (
-		!$r
-		and isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
-	) {
-		include_spip('inc/headers');
-		header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
-		http_response_code(304);
-		exit;
-	} else {
-		include_spip('inc/actions');
-		$ret = menu_rubriques();
-		ajax_retour($ret);
-		exit;
-	}
+    // si pas acces a ecrire, pas acces au menu
+    // on renvoi un 401 qui fait echouer la requete ajax silencieusement
+    if (!autoriser('ecrire')) {
+        $retour =
+        '<ul class="deroulant__sous-menu" data-profondeur="1">' .
+            '<li class="deroulant__item deroulant__item_plan plan_site" data-profondeur="1">' .
+                '<a class="deroulant__lien" href="' . generer_url_ecrire('accueil') . '" data-profondeur="1">' .
+                    '<span class="libelle">' . _T('public:lien_connecter') . '</span>' .
+                '</a>' .
+            '</li>' .
+        '</ul>';
+        include_spip('inc/actions');
+        ajax_retour($retour);
+        exit;
+    }
+
+    if ($date = intval(_request('date'))) {
+        header('Last-Modified: ' . gmdate('D, d M Y H:i:s', $date) . ' GMT');
+    }
+
+    $r = gen_liste_rubriques();
+    if (
+        !$r
+        and isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
+    ) {
+        include_spip('inc/headers');
+        header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
+        http_response_code(304);
+        exit;
+    } else {
+        include_spip('inc/actions');
+        $ret = menu_rubriques();
+        ajax_retour($ret);
+        exit;
+    }
 }
 
 /**
@@ -84,44 +84,44 @@ 
  *     Code HTML présentant la liste des rubriques
  **/
 function menu_rubriques($complet = true) {
-	$ret = '<li class="deroulant__item deroulant__item_tout toutsite" data-profondeur="1">'
-		. '<a class="deroulant__lien" href="' . generer_url_ecrire('plan') . '" data-profondeur="1">'
-		. '<span class="libelle">' . _T('info_tout_site') . '</span>'
-		. '</a>'
-		. '</li>';
-
-	if (!$complet) {
-		return "<ul class=\"deroulant__sous-menu\" data-profondeur=\"1\">$ret\n</ul>\n";
-	}
-
-	if (!isset($GLOBALS['db_art_cache'])) {
-		gen_liste_rubriques();
-	}
-	$arr_low = extraire_article(0, $GLOBALS['db_art_cache']);
-
-	$total_lignes = $i = sizeof($arr_low);
-
-	if ($i > 0) {
-		$nb_col = min(8, ceil($total_lignes / 30));
-		if ($nb_col <= 1) {
-			$nb_col = ceil($total_lignes / 10);
-		}
-		foreach ($arr_low as $id_rubrique => $titre_rubrique) {
-			if (autoriser('voir', 'rubrique', $id_rubrique)) {
-				$ret .= bandeau_rubrique($id_rubrique, $titre_rubrique, $i);
-				$i++;
-			}
-		}
-
-		$class_cols = ($nb_col > 1 ? "cols-$nb_col" : '');
-		$ret = "<ul class=\"deroulant__sous-menu $class_cols\" data-profondeur=\"1\">"
-			. $ret
-			. "\n</ul>\n";
-	} else {
-		$ret = "<ul class=\"deroulant__sous-menu\" data-profondeur=\"1\">$ret\n</ul>\n";
-	}
-
-	return $ret;
+    $ret = '<li class="deroulant__item deroulant__item_tout toutsite" data-profondeur="1">'
+        . '<a class="deroulant__lien" href="' . generer_url_ecrire('plan') . '" data-profondeur="1">'
+        . '<span class="libelle">' . _T('info_tout_site') . '</span>'
+        . '</a>'
+        . '</li>';
+
+    if (!$complet) {
+        return "<ul class=\"deroulant__sous-menu\" data-profondeur=\"1\">$ret\n</ul>\n";
+    }
+
+    if (!isset($GLOBALS['db_art_cache'])) {
+        gen_liste_rubriques();
+    }
+    $arr_low = extraire_article(0, $GLOBALS['db_art_cache']);
+
+    $total_lignes = $i = sizeof($arr_low);
+
+    if ($i > 0) {
+        $nb_col = min(8, ceil($total_lignes / 30));
+        if ($nb_col <= 1) {
+            $nb_col = ceil($total_lignes / 10);
+        }
+        foreach ($arr_low as $id_rubrique => $titre_rubrique) {
+            if (autoriser('voir', 'rubrique', $id_rubrique)) {
+                $ret .= bandeau_rubrique($id_rubrique, $titre_rubrique, $i);
+                $i++;
+            }
+        }
+
+        $class_cols = ($nb_col > 1 ? "cols-$nb_col" : '');
+        $ret = "<ul class=\"deroulant__sous-menu $class_cols\" data-profondeur=\"1\">"
+            . $ret
+            . "\n</ul>\n";
+    } else {
+        $ret = "<ul class=\"deroulant__sous-menu\" data-profondeur=\"1\">$ret\n</ul>\n";
+    }
+
+    return $ret;
 }
 
 /**
@@ -142,48 +142,48 @@ 
  *     Code HTML présentant la liste des rubriques
  **/
 function bandeau_rubrique($id_rubrique, $titre_rubrique, $zdecal, $profondeur = 1) {
-	static $zmax = 6;
-	$profondeur_next = $profondeur + 1;
-
-	$nav = '<a class="deroulant__lien" href="' . generer_url_entite($id_rubrique, 'rubrique', '', '', false) . "\" data-profondeur=\"$profondeur\">"
-		. '<span class="libelle">' . supprimer_tags(preg_replace(',[\x00-\x1f]+,', ' ', $titre_rubrique)) . '</span>'
-		. "</a>\n";
-
-	// Limiter volontairement le nombre de sous-menus
-	if (!(--$zmax)) {
-		$zmax++;
-
-		return "\n<li class=\"deroulant__item\" data-profondeur=\"$profondeur\">$nav</li>";
-	}
-
-	$arr_rub = extraire_article($id_rubrique, $GLOBALS['db_art_cache']);
-	$i = sizeof($arr_rub);
-	if (!$i) {
-		$zmax++;
-
-		return "\n<li class=\"deroulant__item\" data-profondeur=\"$profondeur\">$nav</li>";
-	}
-
-
-	$nb_col = 1;
-	if ($nb_rub = count($arr_rub)) {
-		$nb_col = min(10, max(1, ceil($nb_rub / 10)));
-	}
-	$class_cols = ($nb_col > 1 ? "cols-$nb_col" : '');
-	$ret = "<li class=\"deroulant__item deroulant__item_parent\" data-profondeur=\"$profondeur\">"
-	 . $nav
-	 . "<ul class=\"deroulant__sous-menu $class_cols\" data-profondeur=\"$profondeur_next\">";
-	foreach ($arr_rub as $id_rub => $titre_rub) {
-		if (autoriser('voir', 'rubrique', $id_rub)) {
-			$titre = supprimer_numero(typo($titre_rub));
-			$ret .= bandeau_rubrique($id_rub, $titre, $zdecal + $i, $profondeur_next);
-			$i++;
-		}
-	}
-	$ret .= "</ul></li>\n";
-	$zmax++;
-
-	return $ret;
+    static $zmax = 6;
+    $profondeur_next = $profondeur + 1;
+
+    $nav = '<a class="deroulant__lien" href="' . generer_url_entite($id_rubrique, 'rubrique', '', '', false) . "\" data-profondeur=\"$profondeur\">"
+        . '<span class="libelle">' . supprimer_tags(preg_replace(',[\x00-\x1f]+,', ' ', $titre_rubrique)) . '</span>'
+        . "</a>\n";
+
+    // Limiter volontairement le nombre de sous-menus
+    if (!(--$zmax)) {
+        $zmax++;
+
+        return "\n<li class=\"deroulant__item\" data-profondeur=\"$profondeur\">$nav</li>";
+    }
+
+    $arr_rub = extraire_article($id_rubrique, $GLOBALS['db_art_cache']);
+    $i = sizeof($arr_rub);
+    if (!$i) {
+        $zmax++;
+
+        return "\n<li class=\"deroulant__item\" data-profondeur=\"$profondeur\">$nav</li>";
+    }
+
+
+    $nb_col = 1;
+    if ($nb_rub = count($arr_rub)) {
+        $nb_col = min(10, max(1, ceil($nb_rub / 10)));
+    }
+    $class_cols = ($nb_col > 1 ? "cols-$nb_col" : '');
+    $ret = "<li class=\"deroulant__item deroulant__item_parent\" data-profondeur=\"$profondeur\">"
+        . $nav
+        . "<ul class=\"deroulant__sous-menu $class_cols\" data-profondeur=\"$profondeur_next\">";
+    foreach ($arr_rub as $id_rub => $titre_rub) {
+        if (autoriser('voir', 'rubrique', $id_rub)) {
+            $titre = supprimer_numero(typo($titre_rub));
+            $ret .= bandeau_rubrique($id_rub, $titre, $zdecal + $i, $profondeur_next);
+            $i++;
+        }
+    }
+    $ret .= "</ul></li>\n";
+    $zmax++;
+
+    return $ret;
 }
 
 
@@ -201,7 +201,7 @@ 
  *     Liste des rubriques enfants de la rubrique (et leur titre)
  **/
 function extraire_article($id_p, $t) {
-	return array_key_exists($id_p, $t) ? $t[$id_p] : [];
+    return array_key_exists($id_p, $t) ? $t[$id_p] : [];
 }
 
 /**
@@ -217,41 +217,41 @@ 
  **/
 function gen_liste_rubriques() {
 
-	include_spip('inc/config');
-	// ici, un petit fichier cache ne fait pas de mal
-	$last = lire_config('date_calcul_rubriques', 0);
-	if (lire_fichier(_CACHE_RUBRIQUES, $cache)) {
-		list($date, $GLOBALS['db_art_cache']) = @unserialize($cache);
-		if ($date == $last) {
-			return false;
-		} // c'etait en cache :-)
-	}
-	// se restreindre aux rubriques utilisees recemment +secteurs
-
-	$where = sql_in_select(
-		'id_rubrique',
-		'id_rubrique',
-		'spip_rubriques',
-		'',
-		'',
-		'id_parent=0 DESC, date DESC',
-		_CACHE_RUBRIQUES_MAX
-	);
-
-	// puis refaire la requete pour avoir l'ordre alphabetique
-
-	$res = sql_select('id_rubrique, titre, id_parent', 'spip_rubriques', $where, '', 'id_parent, 0+titre, titre');
-
-	// il ne faut pas filtrer le autoriser voir ici
-	// car on met le resultat en cache, commun a tout le monde
-	$GLOBALS['db_art_cache'] = [];
-	while ($r = sql_fetch($res)) {
-		$t = sinon($r['titre'], _T('ecrire:info_sans_titre'));
-		$GLOBALS['db_art_cache'][$r['id_parent']][$r['id_rubrique']] = supprimer_numero(typo($t));
-	}
-
-	$t = [$last ? $last : time(), $GLOBALS['db_art_cache']];
-	ecrire_fichier(_CACHE_RUBRIQUES, serialize($t));
-
-	return true;
+    include_spip('inc/config');
+    // ici, un petit fichier cache ne fait pas de mal
+    $last = lire_config('date_calcul_rubriques', 0);
+    if (lire_fichier(_CACHE_RUBRIQUES, $cache)) {
+        list($date, $GLOBALS['db_art_cache']) = @unserialize($cache);
+        if ($date == $last) {
+            return false;
+        } // c'etait en cache :-)
+    }
+    // se restreindre aux rubriques utilisees recemment +secteurs
+
+    $where = sql_in_select(
+        'id_rubrique',
+        'id_rubrique',
+        'spip_rubriques',
+        '',
+        '',
+        'id_parent=0 DESC, date DESC',
+        _CACHE_RUBRIQUES_MAX
+    );
+
+    // puis refaire la requete pour avoir l'ordre alphabetique
+
+    $res = sql_select('id_rubrique, titre, id_parent', 'spip_rubriques', $where, '', 'id_parent, 0+titre, titre');
+
+    // il ne faut pas filtrer le autoriser voir ici
+    // car on met le resultat en cache, commun a tout le monde
+    $GLOBALS['db_art_cache'] = [];
+    while ($r = sql_fetch($res)) {
+        $t = sinon($r['titre'], _T('ecrire:info_sans_titre'));
+        $GLOBALS['db_art_cache'][$r['id_parent']][$r['id_rubrique']] = supprimer_numero(typo($t));
+    }
+
+    $t = [$last ? $last : time(), $GLOBALS['db_art_cache']];
+    ecrire_fichier(_CACHE_RUBRIQUES, serialize($t));
+
+    return true;
 }

Spacing +12 added lines, -12 removed lines

@@ -39,12 +39,12 @@ 
 	// on renvoi un 401 qui fait echouer la requete ajax silencieusement
 	if (!autoriser('ecrire')) {
 		$retour =
-		'<ul class="deroulant__sous-menu" data-profondeur="1">' .
-			'<li class="deroulant__item deroulant__item_plan plan_site" data-profondeur="1">' .
-				'<a class="deroulant__lien" href="' . generer_url_ecrire('accueil') . '" data-profondeur="1">' .
-					'<span class="libelle">' . _T('public:lien_connecter') . '</span>' .
-				'</a>' .
-			'</li>' .
+		'<ul class="deroulant__sous-menu" data-profondeur="1">'.
+			'<li class="deroulant__item deroulant__item_plan plan_site" data-profondeur="1">'.
+				'<a class="deroulant__lien" href="'.generer_url_ecrire('accueil').'" data-profondeur="1">'.
+					'<span class="libelle">'._T('public:lien_connecter').'</span>'.
+				'</a>'.
+			'</li>'.
 		'</ul>';
 		include_spip('inc/actions');
 		ajax_retour($retour);
@@ -52,7 +52,7 @@ 
 	}
 
 	if ($date = intval(_request('date'))) {
-		header('Last-Modified: ' . gmdate('D, d M Y H:i:s', $date) . ' GMT');
+		header('Last-Modified: '.gmdate('D, d M Y H:i:s', $date).' GMT');
 	}
 
 	$r = gen_liste_rubriques();
@@ -62,7 +62,7 @@ 
 		and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
 	) {
 		include_spip('inc/headers');
-		header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
+		header('Content-Type: text/html; charset='.$GLOBALS['meta']['charset']);
 		http_response_code(304);
 		exit;
 	} else {
@@ -85,8 +85,8 @@ 
  **/
 function menu_rubriques($complet = true) {
 	$ret = '<li class="deroulant__item deroulant__item_tout toutsite" data-profondeur="1">'
-		. '<a class="deroulant__lien" href="' . generer_url_ecrire('plan') . '" data-profondeur="1">'
-		. '<span class="libelle">' . _T('info_tout_site') . '</span>'
+		. '<a class="deroulant__lien" href="'.generer_url_ecrire('plan').'" data-profondeur="1">'
+		. '<span class="libelle">'._T('info_tout_site').'</span>'
 		. '</a>'
 		. '</li>';
 
@@ -145,8 +145,8 @@ 
 	static $zmax = 6;
 	$profondeur_next = $profondeur + 1;
 
-	$nav = '<a class="deroulant__lien" href="' . generer_url_entite($id_rubrique, 'rubrique', '', '', false) . "\" data-profondeur=\"$profondeur\">"
-		. '<span class="libelle">' . supprimer_tags(preg_replace(',[\x00-\x1f]+,', ' ', $titre_rubrique)) . '</span>'
+	$nav = '<a class="deroulant__lien" href="'.generer_url_entite($id_rubrique, 'rubrique', '', '', false)."\" data-profondeur=\"$profondeur\">"
+		. '<span class="libelle">'.supprimer_tags(preg_replace(',[\x00-\x1f]+,', ' ', $titre_rubrique)).'</span>'
 		. "</a>\n";
 
 	// Limiter volontairement le nombre de sous-menus

ecrire/action/cookie.php

Indentation +85 added lines, -85 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/actions');
@@ -33,93 +33,93 @@ 
  * @return void
  */
 function action_cookie_dist($set_cookie_admin = null, $change_session = null) {
-	$redirect_echec = $redirect = null;
-	$test_echec_cookie = null;
-	$url = '';
-	if (is_null($set_cookie_admin)) {
-		$set_cookie_admin = _request('cookie_admin');
-		$change_session = _request('change_session');
-		$test_echec_cookie = _request('test_echec_cookie');
+    $redirect_echec = $redirect = null;
+    $test_echec_cookie = null;
+    $url = '';
+    if (is_null($set_cookie_admin)) {
+        $set_cookie_admin = _request('cookie_admin');
+        $change_session = _request('change_session');
+        $test_echec_cookie = _request('test_echec_cookie');
 
-		// La cible de notre operation de connexion
-		$url = securiser_redirect_action(_request('url'));
-		$redirect = $url ? $url : generer_url_ecrire('accueil');
-		$redirect_echec = _request('url_echec');
-		if (!isset($redirect_echec)) {
-			if (strpos($redirect, _DIR_RESTREINT_ABS) !== false) {
-				$redirect_echec = generer_url_public('login', '', true);
-			} else {
-				$redirect_echec = $redirect;
-			}
-		}
-	}
+        // La cible de notre operation de connexion
+        $url = securiser_redirect_action(_request('url'));
+        $redirect = $url ? $url : generer_url_ecrire('accueil');
+        $redirect_echec = _request('url_echec');
+        if (!isset($redirect_echec)) {
+            if (strpos($redirect, _DIR_RESTREINT_ABS) !== false) {
+                $redirect_echec = generer_url_public('login', '', true);
+            } else {
+                $redirect_echec = $redirect;
+            }
+        }
+    }
 
 
-	// rejoue le cookie pour renouveler spip_session
-	if ($change_session == 'oui') {
-		$session = charger_fonction('session', 'inc');
-		$session(true);
-		spip_log('statut 204 pour ' . $_SERVER['REQUEST_URI']);
-		http_response_code(204); // No Content
-		return;
-	}
+    // rejoue le cookie pour renouveler spip_session
+    if ($change_session == 'oui') {
+        $session = charger_fonction('session', 'inc');
+        $session(true);
+        spip_log('statut 204 pour ' . $_SERVER['REQUEST_URI']);
+        http_response_code(204); // No Content
+        return;
+    }
 
-	// tentative de connexion en auth_http
-	if (_request('essai_auth_http') and !$GLOBALS['ignore_auth_http']) {
-		include_spip('inc/auth');
-		if (
-			@$_SERVER['PHP_AUTH_USER']
-			and @$_SERVER['PHP_AUTH_PW']
-			and $auteur = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW'])
-		) {
-			auth_loger($auteur);
-			redirige_par_entete(parametre_url($redirect, 't', time(), '&'));
-		} else {
-			ask_php_auth(
-				_T('info_connexion_refusee'),
-				_T('login_login_pass_incorrect'),
-				_T('login_retour_site'),
-				'url=' . rawurlencode($redirect),
-				_T('login_nouvelle_tentative'),
-				(strpos($url, _DIR_RESTREINT_ABS) !== false)
-			);
-		}
-	} else {
-		// en cas de login sur bonjour=oui, on tente de poser un cookie
-		// puis de passer au login qui diagnostiquera l'echec de cookie
-		// le cas echeant.
-		if ($test_echec_cookie == 'oui') {
-			spip_setcookie('spip_session', 'test_echec_cookie');
-			if ($redirect) {
-				$redirect = parametre_url(
-					parametre_url($redirect_echec, 'var_echec_cookie', 'oui', '&'),
-					'url',
-					rawurlencode($redirect),
-					'&'
-				);
-			}
-		} else {
-			$cook = isset($_COOKIE['spip_admin']) ? $_COOKIE['spip_admin'] : '';
-			// Suppression cookie d'admin ?
-			if ($set_cookie_admin == 'non') {
-				if ($cook) {
-					spip_setcookie('spip_admin', $cook, [
-						'expires' => time() - 3600 * 24
-					]);
-				}
-			} // Ajout de cookie d'admin
-			else {
-				if ($set_cookie_admin and _DUREE_COOKIE_ADMIN) {
-					spip_setcookie('spip_admin', $set_cookie_admin, [
-						'expires' => time() + max(_DUREE_COOKIE_ADMIN, 2 * _RENOUVELLE_ALEA)
-					]);
-				}
-			}
-		}
-	}
+    // tentative de connexion en auth_http
+    if (_request('essai_auth_http') and !$GLOBALS['ignore_auth_http']) {
+        include_spip('inc/auth');
+        if (
+            @$_SERVER['PHP_AUTH_USER']
+            and @$_SERVER['PHP_AUTH_PW']
+            and $auteur = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW'])
+        ) {
+            auth_loger($auteur);
+            redirige_par_entete(parametre_url($redirect, 't', time(), '&'));
+        } else {
+            ask_php_auth(
+                _T('info_connexion_refusee'),
+                _T('login_login_pass_incorrect'),
+                _T('login_retour_site'),
+                'url=' . rawurlencode($redirect),
+                _T('login_nouvelle_tentative'),
+                (strpos($url, _DIR_RESTREINT_ABS) !== false)
+            );
+        }
+    } else {
+        // en cas de login sur bonjour=oui, on tente de poser un cookie
+        // puis de passer au login qui diagnostiquera l'echec de cookie
+        // le cas echeant.
+        if ($test_echec_cookie == 'oui') {
+            spip_setcookie('spip_session', 'test_echec_cookie');
+            if ($redirect) {
+                $redirect = parametre_url(
+                    parametre_url($redirect_echec, 'var_echec_cookie', 'oui', '&'),
+                    'url',
+                    rawurlencode($redirect),
+                    '&'
+                );
+            }
+        } else {
+            $cook = isset($_COOKIE['spip_admin']) ? $_COOKIE['spip_admin'] : '';
+            // Suppression cookie d'admin ?
+            if ($set_cookie_admin == 'non') {
+                if ($cook) {
+                    spip_setcookie('spip_admin', $cook, [
+                        'expires' => time() - 3600 * 24
+                    ]);
+                }
+            } // Ajout de cookie d'admin
+            else {
+                if ($set_cookie_admin and _DUREE_COOKIE_ADMIN) {
+                    spip_setcookie('spip_admin', $set_cookie_admin, [
+                        'expires' => time() + max(_DUREE_COOKIE_ADMIN, 2 * _RENOUVELLE_ALEA)
+                    ]);
+                }
+            }
+        }
+    }
 
-	// Redirection finale
-	if ($redirect) {
-		redirige_par_entete($redirect, true);
-	}
+    // Redirection finale
+    if ($redirect) {
+        redirige_par_entete($redirect, true);
+    }
 }

Spacing +2 added lines, -2 removed lines

@@ -59,7 +59,7 @@ 
 	if ($change_session == 'oui') {
 		$session = charger_fonction('session', 'inc');
 		$session(true);
-		spip_log('statut 204 pour ' . $_SERVER['REQUEST_URI']);
+		spip_log('statut 204 pour '.$_SERVER['REQUEST_URI']);
 		http_response_code(204); // No Content
 		return;
 	}
@@ -79,7 +79,7 @@ 
 				_T('info_connexion_refusee'),
 				_T('login_login_pass_incorrect'),
 				_T('login_retour_site'),
-				'url=' . rawurlencode($redirect),
+				'url='.rawurlencode($redirect),
 				_T('login_nouvelle_tentative'),
 				(strpos($url, _DIR_RESTREINT_ABS) !== false)
 			);

ecrire/public.php

Indentation +188 added lines, -188 removed lines

@@ -21,193 +21,193 @@
 // par souci de compatiilite).
 
 if (isset($GLOBALS['_INC_PUBLIC']) and $GLOBALS['_INC_PUBLIC']) {
-	echo recuperer_fond($fond, $contexte_inclus, [], _request('connect'));
+    echo recuperer_fond($fond, $contexte_inclus, [], _request('connect'));
 } else {
-	$GLOBALS['_INC_PUBLIC'] = 1;
-	define('_PIPELINE_SUFFIX', test_espace_prive() ? '_prive' : '');
-
-	// Faut-il initialiser SPIP ? (oui dans le cas general)
-	if (!defined('_DIR_RESTREINT_ABS')) {
-		if (
-			defined('_DIR_RESTREINT')
-			and @file_exists(_ROOT_RESTREINT . 'inc_version.php')
-		) {
-			include_once _ROOT_RESTREINT . 'inc_version.php';
-		} else {
-			die('inc_version absent ?');
-		}
-	} // $fond defini dans le fichier d'appel ?
-
-	else {
-		if (isset($fond) and !_request('fond')) {
-		} // fond demande dans l'url par page=xxxx ?
-		else {
-			if (isset($_GET[_SPIP_PAGE])) {
-				$fond = (string)$_GET[_SPIP_PAGE];
-
-				// Securite
-				if (
-					strstr($fond, '/')
-					and !(
-						isset($GLOBALS['visiteur_session']) // pour eviter d'evaluer la suite pour les anonymes
-						and include_spip('inc/autoriser')
-						and autoriser('webmestre'))
-				) {
-					include_spip('inc/minipres');
-					echo minipres();
-					exit;
-				}
-				// l'argument Page a priorite sur l'argument action
-				// le cas se presente a cause des RewriteRule d'Apache
-				// qui permettent d'ajouter un argument dans la QueryString
-				// mais pas d'en retirer un en conservant les autres.
-				if (isset($_GET['action']) and $_GET['action'] === $fond) {
-					unset($_GET['action']);
-				}
-				# sinon, fond par defaut
-			} else {
-				// sinon fond par defaut (cf. assembler.php)
-				$fond = pipeline('detecter_fond_par_defaut', '');
-			}
-		}
-	}
-
-	$tableau_des_temps = [];
-
-	// Particularites de certains squelettes
-	if ($fond == 'login') {
-		$forcer_lang = true;
-	}
-
-	if (
-		isset($forcer_lang) and $forcer_lang and ($forcer_lang !== 'non')
-		and !_request('action')
-		and $_SERVER['REQUEST_METHOD'] != 'POST'
-	) {
-		include_spip('inc/lang');
-		verifier_lang_url();
-	}
-
-	$lang = !isset($_GET['lang']) ? '' : lang_select($_GET['lang']);
-
-	// Charger l'aiguilleur des traitements derogatoires
-	// (action en base SQL, formulaires CVT, AJax)
-	if (_request('action') or _request('var_ajax') or _request('formulaire_action')) {
-		include_spip('public/aiguiller');
-		if (
-			// cas des appels actions ?action=xxx
-			traiter_appels_actions()
-			or
-			// cas des hits ajax sur les inclusions ajax
-			traiter_appels_inclusions_ajax()
-			or
-			// cas des formulaires charger/verifier/traiter
-			traiter_formulaires_dynamiques()
-		) {
-			// lancer les taches sur affichage final, comme le cron
-			// mais sans rien afficher
-			$GLOBALS['html'] = false; // ne rien afficher
-			pipeline('affichage_final' . _PIPELINE_SUFFIX, '');
-			exit; // le hit est fini !
-		}
-	}
-
-	// Il y a du texte a produire, charger le metteur en page
-	include_spip('public/assembler');
-	$page = assembler($fond, _request('connect'));
-
-	if (isset($page['status'])) {
-		include_spip('inc/headers');
-		http_response_code($page['status']);
-	}
-
-	// Content-Type ?
-	if (!isset($page['entetes']['Content-Type'])) {
-		$charset = isset($GLOBALS['meta']['charset']) ? $GLOBALS['meta']['charset'] : 'utf-8';
-		$page['entetes']['Content-Type'] = 'text/html; charset=' . $charset;
-		$html = true;
-	} else {
-		$html = preg_match(',^\s*text/html,', $page['entetes']['Content-Type']);
-	}
-
-	// Tester si on est admin et il y a des choses supplementaires a dire
-	// type tableau pour y mettre des choses au besoin.
-	$debug = ((_request('var_mode') == 'debug') or $tableau_des_temps) ? [1] : [];
-
-	// affiche-t-on les boutons d'administration ? voir f_admin()
-	$affiche_boutons_admin = ($html and (
-			(isset($_COOKIE['spip_admin']) and (!isset($flag_preserver) or !$flag_preserver))
-			or ($debug and include_spip('inc/autoriser') and autoriser('debug'))
-			or (defined('_VAR_PREVIEW') and _VAR_PREVIEW)
-		));
-
-	if ($affiche_boutons_admin) {
-		include_spip('balise/formulaire_admin');
-	}
-
-
-	// Execution de la page calculee
-
-	// traitements sur les entetes avant envoi
-	// peut servir pour le plugin de stats
-	$page['entetes'] = pipeline('affichage_entetes_final' . _PIPELINE_SUFFIX, $page['entetes']);
-
-
-	// eval $page et affecte $res
-	include _ROOT_RESTREINT . 'public/evaluer_page.php';
-	envoyer_entetes($page['entetes']);
-	if ($res === false) {
-		include_spip('inc/autoriser');
-		$err = _T('zbug_erreur_execution_page');
-		if (autoriser('webmestre')) {
-			$err .= "\n<hr />\n"
-				. highlight_string($page['codephp'], true)
-				. "\n<hr />\n";
-		}
-		$msg = [$err];
-		erreur_squelette($msg);
-	}
-
-	//
-	// Envoyer le resultat apres post-traitements
-	//
-	// (c'est ici qu'on fait var_recherche, validation, boutons d'admin,
-	// cf. public/assembler.php)
-	echo pipeline('affichage_final' . _PIPELINE_SUFFIX, $page['texte']);
-
-	if ($lang) {
-		lang_select();
-	}
-	// l'affichage de la page a pu lever des erreurs (inclusion manquante)
-	// il faut tester a nouveau
-	$debug = ((_request('var_mode') == 'debug') or $tableau_des_temps) ? [1] : [];
-
-	// Appel au debusqueur en cas d'erreurs ou de demande de trace
-	// at last
-	if ($debug) {
-		// en cas d'erreur, retester l'affichage
-		if ($html and ($affiche_boutons_admin or $debug)) {
-			$var_mode_affiche = _request('var_mode_affiche');
-			$var_mode_objet = _request('var_mode_objet');
-			$GLOBALS['debug_objets'][$var_mode_affiche][$var_mode_objet . 'tout'] = ($var_mode_affiche == 'validation' ? $page['texte'] : '');
-			echo erreur_squelette(false);
-		}
-	} else {
-		if (
-			isset($GLOBALS['meta']['date_prochain_postdate'])
-			and $GLOBALS['meta']['date_prochain_postdate'] <= time()
-		) {
-			include_spip('inc/rubriques');
-			calculer_prochain_postdate(true);
-		}
-
-		// Effectuer une tache de fond ?
-		// si _DIRECT_CRON_FORCE est present, on force l'appel
-		if (defined('_DIRECT_CRON_FORCE')) {
-			cron();
-		}
-
-		// sauver le cache chemin si necessaire
-		save_path_cache();
-	}
+    $GLOBALS['_INC_PUBLIC'] = 1;
+    define('_PIPELINE_SUFFIX', test_espace_prive() ? '_prive' : '');
+
+    // Faut-il initialiser SPIP ? (oui dans le cas general)
+    if (!defined('_DIR_RESTREINT_ABS')) {
+        if (
+            defined('_DIR_RESTREINT')
+            and @file_exists(_ROOT_RESTREINT . 'inc_version.php')
+        ) {
+            include_once _ROOT_RESTREINT . 'inc_version.php';
+        } else {
+            die('inc_version absent ?');
+        }
+    } // $fond defini dans le fichier d'appel ?
+
+    else {
+        if (isset($fond) and !_request('fond')) {
+        } // fond demande dans l'url par page=xxxx ?
+        else {
+            if (isset($_GET[_SPIP_PAGE])) {
+                $fond = (string)$_GET[_SPIP_PAGE];
+
+                // Securite
+                if (
+                    strstr($fond, '/')
+                    and !(
+                        isset($GLOBALS['visiteur_session']) // pour eviter d'evaluer la suite pour les anonymes
+                        and include_spip('inc/autoriser')
+                        and autoriser('webmestre'))
+                ) {
+                    include_spip('inc/minipres');
+                    echo minipres();
+                    exit;
+                }
+                // l'argument Page a priorite sur l'argument action
+                // le cas se presente a cause des RewriteRule d'Apache
+                // qui permettent d'ajouter un argument dans la QueryString
+                // mais pas d'en retirer un en conservant les autres.
+                if (isset($_GET['action']) and $_GET['action'] === $fond) {
+                    unset($_GET['action']);
+                }
+                # sinon, fond par defaut
+            } else {
+                // sinon fond par defaut (cf. assembler.php)
+                $fond = pipeline('detecter_fond_par_defaut', '');
+            }
+        }
+    }
+
+    $tableau_des_temps = [];
+
+    // Particularites de certains squelettes
+    if ($fond == 'login') {
+        $forcer_lang = true;
+    }
+
+    if (
+        isset($forcer_lang) and $forcer_lang and ($forcer_lang !== 'non')
+        and !_request('action')
+        and $_SERVER['REQUEST_METHOD'] != 'POST'
+    ) {
+        include_spip('inc/lang');
+        verifier_lang_url();
+    }
+
+    $lang = !isset($_GET['lang']) ? '' : lang_select($_GET['lang']);
+
+    // Charger l'aiguilleur des traitements derogatoires
+    // (action en base SQL, formulaires CVT, AJax)
+    if (_request('action') or _request('var_ajax') or _request('formulaire_action')) {
+        include_spip('public/aiguiller');
+        if (
+            // cas des appels actions ?action=xxx
+            traiter_appels_actions()
+            or
+            // cas des hits ajax sur les inclusions ajax
+            traiter_appels_inclusions_ajax()
+            or
+            // cas des formulaires charger/verifier/traiter
+            traiter_formulaires_dynamiques()
+        ) {
+            // lancer les taches sur affichage final, comme le cron
+            // mais sans rien afficher
+            $GLOBALS['html'] = false; // ne rien afficher
+            pipeline('affichage_final' . _PIPELINE_SUFFIX, '');
+            exit; // le hit est fini !
+        }
+    }
+
+    // Il y a du texte a produire, charger le metteur en page
+    include_spip('public/assembler');
+    $page = assembler($fond, _request('connect'));
+
+    if (isset($page['status'])) {
+        include_spip('inc/headers');
+        http_response_code($page['status']);
+    }
+
+    // Content-Type ?
+    if (!isset($page['entetes']['Content-Type'])) {
+        $charset = isset($GLOBALS['meta']['charset']) ? $GLOBALS['meta']['charset'] : 'utf-8';
+        $page['entetes']['Content-Type'] = 'text/html; charset=' . $charset;
+        $html = true;
+    } else {
+        $html = preg_match(',^\s*text/html,', $page['entetes']['Content-Type']);
+    }
+
+    // Tester si on est admin et il y a des choses supplementaires a dire
+    // type tableau pour y mettre des choses au besoin.
+    $debug = ((_request('var_mode') == 'debug') or $tableau_des_temps) ? [1] : [];
+
+    // affiche-t-on les boutons d'administration ? voir f_admin()
+    $affiche_boutons_admin = ($html and (
+            (isset($_COOKIE['spip_admin']) and (!isset($flag_preserver) or !$flag_preserver))
+            or ($debug and include_spip('inc/autoriser') and autoriser('debug'))
+            or (defined('_VAR_PREVIEW') and _VAR_PREVIEW)
+        ));
+
+    if ($affiche_boutons_admin) {
+        include_spip('balise/formulaire_admin');
+    }
+
+
+    // Execution de la page calculee
+
+    // traitements sur les entetes avant envoi
+    // peut servir pour le plugin de stats
+    $page['entetes'] = pipeline('affichage_entetes_final' . _PIPELINE_SUFFIX, $page['entetes']);
+
+
+    // eval $page et affecte $res
+    include _ROOT_RESTREINT . 'public/evaluer_page.php';
+    envoyer_entetes($page['entetes']);
+    if ($res === false) {
+        include_spip('inc/autoriser');
+        $err = _T('zbug_erreur_execution_page');
+        if (autoriser('webmestre')) {
+            $err .= "\n<hr />\n"
+                . highlight_string($page['codephp'], true)
+                . "\n<hr />\n";
+        }
+        $msg = [$err];
+        erreur_squelette($msg);
+    }
+
+    //
+    // Envoyer le resultat apres post-traitements
+    //
+    // (c'est ici qu'on fait var_recherche, validation, boutons d'admin,
+    // cf. public/assembler.php)
+    echo pipeline('affichage_final' . _PIPELINE_SUFFIX, $page['texte']);
+
+    if ($lang) {
+        lang_select();
+    }
+    // l'affichage de la page a pu lever des erreurs (inclusion manquante)
+    // il faut tester a nouveau
+    $debug = ((_request('var_mode') == 'debug') or $tableau_des_temps) ? [1] : [];
+
+    // Appel au debusqueur en cas d'erreurs ou de demande de trace
+    // at last
+    if ($debug) {
+        // en cas d'erreur, retester l'affichage
+        if ($html and ($affiche_boutons_admin or $debug)) {
+            $var_mode_affiche = _request('var_mode_affiche');
+            $var_mode_objet = _request('var_mode_objet');
+            $GLOBALS['debug_objets'][$var_mode_affiche][$var_mode_objet . 'tout'] = ($var_mode_affiche == 'validation' ? $page['texte'] : '');
+            echo erreur_squelette(false);
+        }
+    } else {
+        if (
+            isset($GLOBALS['meta']['date_prochain_postdate'])
+            and $GLOBALS['meta']['date_prochain_postdate'] <= time()
+        ) {
+            include_spip('inc/rubriques');
+            calculer_prochain_postdate(true);
+        }
+
+        // Effectuer une tache de fond ?
+        // si _DIRECT_CRON_FORCE est present, on force l'appel
+        if (defined('_DIRECT_CRON_FORCE')) {
+            cron();
+        }
+
+        // sauver le cache chemin si necessaire
+        save_path_cache();
+    }
 }

ecrire/inc/filtres.php

Indentation +2402 added lines, -2402 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Filtres
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/charsets');
@@ -42,8 +42,8 @@ 
  * @return string Fonction PHP correspondante du filtre
  */
 function charger_filtre($fonc, $default = 'filtre_identite_dist') {
-	include_fichiers_fonctions(); // inclure les fichiers fonctions
-	return chercher_filtre($fonc, $default);
+    include_fichiers_fonctions(); // inclure les fichiers fonctions
+    return chercher_filtre($fonc, $default);
 }
 
 /**
@@ -53,7 +53,7 @@ 
  * @return string Texte
  **/
 function filtre_identite_dist($texte) {
- return $texte;
+    return $texte;
 }
 
 /**
@@ -77,38 +77,38 @@ 
  *     Fonction PHP correspondante du filtre demandé
  */
 function chercher_filtre($fonc, $default = null) {
-	if (!$fonc) {
-		return $default;
-	}
-	// Cas des types mime, sans confondre avec les appels de fonction de classe
-	// Foo::Bar
-	// qui peuvent etre avec un namespace : space\Foo::Bar
-	if (preg_match(',^[\w]+/,', $fonc)) {
-		$nom = preg_replace(',\W,', '_', $fonc);
-		$f = chercher_filtre($nom);
-		// cas du sous-type MIME sans filtre associe, passer au type:
-		// si filtre_text_plain pas defini, passe a filtre_text
-		if (!$f and $nom !== $fonc) {
-			$f = chercher_filtre(preg_replace(',\W.*$,', '', $fonc));
-		}
-
-		return $f;
-	}
-
-	include_fichiers_fonctions();
-	foreach (['filtre_' . $fonc, 'filtre_' . $fonc . '_dist', $fonc] as $f) {
-		trouver_filtre_matrice($f); // charge des fichiers spécifiques éventuels
-		// fonction ou name\space\fonction
-		if (is_callable($f)) {
-			return $f;
-		}
-		// méthode statique d'une classe Classe::methode ou name\space\Classe::methode
-		elseif (false === strpos($f, '::') and is_callable([$f])) {
-			return $f;
-		}
-	}
-
-	return $default;
+    if (!$fonc) {
+        return $default;
+    }
+    // Cas des types mime, sans confondre avec les appels de fonction de classe
+    // Foo::Bar
+    // qui peuvent etre avec un namespace : space\Foo::Bar
+    if (preg_match(',^[\w]+/,', $fonc)) {
+        $nom = preg_replace(',\W,', '_', $fonc);
+        $f = chercher_filtre($nom);
+        // cas du sous-type MIME sans filtre associe, passer au type:
+        // si filtre_text_plain pas defini, passe a filtre_text
+        if (!$f and $nom !== $fonc) {
+            $f = chercher_filtre(preg_replace(',\W.*$,', '', $fonc));
+        }
+
+        return $f;
+    }
+
+    include_fichiers_fonctions();
+    foreach (['filtre_' . $fonc, 'filtre_' . $fonc . '_dist', $fonc] as $f) {
+        trouver_filtre_matrice($f); // charge des fichiers spécifiques éventuels
+        // fonction ou name\space\fonction
+        if (is_callable($f)) {
+            return $f;
+        }
+        // méthode statique d'une classe Classe::methode ou name\space\Classe::methode
+        elseif (false === strpos($f, '::') and is_callable([$f])) {
+            return $f;
+        }
+    }
+
+    return $default;
 }
 
 /**
@@ -152,8 +152,8 @@ 
  *     Chaîne vide sinon.
  **/
 function appliquer_filtre($arg, $filtre) {
-	$args = func_get_args();
-	return appliquer_filtre_sinon($arg, $filtre, $args, '');
+    $args = func_get_args();
+    return appliquer_filtre_sinon($arg, $filtre, $args, '');
 }
 
 /**
@@ -178,8 +178,8 @@ 
  *     Texte d'origine sinon
  **/
 function appliquer_si_filtre($arg, $filtre) {
-	$args = func_get_args();
-	return appliquer_filtre_sinon($arg, $filtre, $args, $arg);
+    $args = func_get_args();
+    return appliquer_filtre_sinon($arg, $filtre, $args, $arg);
 }
 
 /**
@@ -195,12 +195,12 @@ 
  *     Version de SPIP
  **/
 function spip_version() {
-	$version = $GLOBALS['spip_version_affichee'];
-	if ($vcs_version = version_vcs_courante(_DIR_RACINE)) {
-		$version .= " $vcs_version";
-	}
+    $version = $GLOBALS['spip_version_affichee'];
+    if ($vcs_version = version_vcs_courante(_DIR_RACINE)) {
+        $version .= " $vcs_version";
+    }
 
-	return $version;
+    return $version;
 }
 
 /**
@@ -213,19 +213,19 @@ 
  *    - string|null si $raw = false
  */
 function version_vcs_courante($dir, $raw = false) {
-	$desc = decrire_version_git($dir);
-	if ($desc === null) {
-		$desc = decrire_version_svn($dir);
-	}
-	if ($desc === null or $raw) {
-		return $desc;
-	}
-	// affichage "GIT [master: abcdef]"
-	$commit = isset($desc['commit_short']) ? $desc['commit_short'] : $desc['commit'];
-	if ($desc['branch']) {
-		$commit = $desc['branch'] . ': ' . $commit;
-	}
-	return "{$desc['vcs']} [$commit]";
+    $desc = decrire_version_git($dir);
+    if ($desc === null) {
+        $desc = decrire_version_svn($dir);
+    }
+    if ($desc === null or $raw) {
+        return $desc;
+    }
+    // affichage "GIT [master: abcdef]"
+    $commit = isset($desc['commit_short']) ? $desc['commit_short'] : $desc['commit'];
+    if ($desc['branch']) {
+        $commit = $desc['branch'] . ': ' . $commit;
+    }
+    return "{$desc['vcs']} [$commit]";
 }
 
 /**
@@ -237,24 +237,24 @@ 
  *      array ['branch' => xx, 'commit' => yy] sinon.
  **/
 function decrire_version_git($dir) {
-	if (!$dir) {
-		$dir = '.';
-	}
+    if (!$dir) {
+        $dir = '.';
+    }
 
-	// version installee par GIT
-	if (lire_fichier($dir . '/.git/HEAD', $c)) {
-		$currentHead = trim(substr($c, 4));
-		if (lire_fichier($dir . '/.git/' . $currentHead, $hash)) {
-			return [
-				'vcs' => 'GIT',
-				'branch' => basename($currentHead),
-				'commit' => trim($hash),
-				'commit_short' => substr(trim($hash), 0, 8),
-			];
-		}
-	}
+    // version installee par GIT
+    if (lire_fichier($dir . '/.git/HEAD', $c)) {
+        $currentHead = trim(substr($c, 4));
+        if (lire_fichier($dir . '/.git/' . $currentHead, $hash)) {
+            return [
+                'vcs' => 'GIT',
+                'branch' => basename($currentHead),
+                'commit' => trim($hash),
+                'commit_short' => substr(trim($hash), 0, 8),
+            ];
+        }
+    }
 
-	return null;
+    return null;
 }
 
 
@@ -267,25 +267,25 @@ 
  *      array ['commit' => yy, 'date' => xx, 'author' => xx] sinon.
  **/
 function decrire_version_svn($dir) {
-	if (!$dir) {
-		$dir = '.';
-	}
-	// version installee par SVN
-	if (file_exists($dir . '/.svn/wc.db') && class_exists('SQLite3')) {
-		$db = new SQLite3($dir . '/.svn/wc.db');
-		$result = $db->query('SELECT changed_revision FROM nodes WHERE local_relpath = "" LIMIT 1');
-		if ($result) {
-			$row = $result->fetchArray();
-			if ($row['changed_revision'] != '') {
-				return [
-					'vcs' => 'SVN',
-					'branch' => '',
-					'commit' => $row['changed_revision'],
-				];
-			}
-		}
-	}
-	return null;
+    if (!$dir) {
+        $dir = '.';
+    }
+    // version installee par SVN
+    if (file_exists($dir . '/.svn/wc.db') && class_exists('SQLite3')) {
+        $db = new SQLite3($dir . '/.svn/wc.db');
+        $result = $db->query('SELECT changed_revision FROM nodes WHERE local_relpath = "" LIMIT 1');
+        if ($result) {
+            $row = $result->fetchArray();
+            if ($row['changed_revision'] != '') {
+                return [
+                    'vcs' => 'SVN',
+                    'branch' => '',
+                    'commit' => $row['changed_revision'],
+                ];
+            }
+        }
+    }
+    return null;
 }
 
 // La matrice est necessaire pour ne filtrer _que_ des fonctions definies dans filtres_images
@@ -332,18 +332,18 @@ 
  *     Code HTML retourné par le filtre
  **/
 function filtrer($filtre) {
-	$tous = func_get_args();
-	if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
-		return image_filtrer($tous);
-	} elseif ($f = chercher_filtre($filtre)) {
-		array_shift($tous);
-		return call_user_func_array($f, $tous);
-	} else {
-		// le filtre n'existe pas, on provoque une erreur
-		$msg = ['zbug_erreur_filtre', ['filtre' => texte_script($filtre)]];
-		erreur_squelette($msg);
-		return '';
-	}
+    $tous = func_get_args();
+    if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
+        return image_filtrer($tous);
+    } elseif ($f = chercher_filtre($filtre)) {
+        array_shift($tous);
+        return call_user_func_array($f, $tous);
+    } else {
+        // le filtre n'existe pas, on provoque une erreur
+        $msg = ['zbug_erreur_filtre', ['filtre' => texte_script($filtre)]];
+        erreur_squelette($msg);
+        return '';
+    }
 }
 
 /**
@@ -360,11 +360,11 @@ 
  * @return bool true si on trouve le filtre dans la matrice, false sinon.
  */
 function trouver_filtre_matrice($filtre) {
-	if (isset($GLOBALS['spip_matrice'][$filtre]) and is_string($f = $GLOBALS['spip_matrice'][$filtre])) {
-		find_in_path($f, '', true);
-		$GLOBALS['spip_matrice'][$filtre] = true;
-	}
-	return !empty($GLOBALS['spip_matrice'][$filtre]);
+    if (isset($GLOBALS['spip_matrice'][$filtre]) and is_string($f = $GLOBALS['spip_matrice'][$filtre])) {
+        find_in_path($f, '', true);
+        $GLOBALS['spip_matrice'][$filtre] = true;
+    }
+    return !empty($GLOBALS['spip_matrice'][$filtre]);
 }
 
 
@@ -392,8 +392,8 @@ 
  * @return mixed
  */
 function filtre_set(&$Pile, $val, $key, $continue = null) {
-	$Pile['vars'][$key] = $val;
-	return $continue ? $val : '';
+    $Pile['vars'][$key] = $val;
+    return $continue ? $val : '';
 }
 
 /**
@@ -419,8 +419,8 @@ 
  * @return string|mixed Retourne `$val` si `$continue` présent, sinon ''.
  */
 function filtre_setenv(&$Pile, $val, $key, $continue = null) {
-	$Pile[0][$key] = $val;
-	return $continue ? $val : '';
+    $Pile[0][$key] = $val;
+    return $continue ? $val : '';
 }
 
 /**
@@ -429,8 +429,8 @@ 
  * @return string
  */
 function filtre_sanitize_env(&$Pile, $keys) {
-	$Pile[0] = spip_sanitize_from_request($Pile[0], $keys);
-	return '';
+    $Pile[0] = spip_sanitize_from_request($Pile[0], $keys);
+    return '';
 }
 
 
@@ -453,18 +453,18 @@ 
  * @return mixed Retourne la valeur (sans la modifier).
  */
 function filtre_debug($val, $key = null) {
-	$debug = (
-		is_null($key) ? '' : (var_export($key, true) . ' = ')
-		) . var_export($val, true);
+    $debug = (
+        is_null($key) ? '' : (var_export($key, true) . ' = ')
+        ) . var_export($val, true);
 
-	include_spip('inc/autoriser');
-	if (autoriser('webmestre')) {
-		echo "<div class='spip_debug'>\n", $debug, "</div>\n";
-	}
+    include_spip('inc/autoriser');
+    if (autoriser('webmestre')) {
+        echo "<div class='spip_debug'>\n", $debug, "</div>\n";
+    }
 
-	spip_log($debug, 'debug');
+    spip_log($debug, 'debug');
 
-	return $val;
+    return $val;
 }
 
 
@@ -492,89 +492,89 @@ 
  *     Texte qui a reçu les filtres
  **/
 function image_filtrer($args) {
-	$filtre = array_shift($args); # enlever $filtre
-	$texte = array_shift($args);
-	if (!strlen($texte)) {
-		return;
-	}
-	find_in_path('filtres_images_mini.php', 'inc/', true);
-	statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
-	// Cas du nom de fichier local
-	$is_file = trim($texte);
-	if (
-		strpos(substr($is_file, strlen(_DIR_RACINE)), '..') !== false
-		  or strpbrk($is_file, "<>\n\r\t") !== false
-		  or strpos($is_file, '/') === 0
-	) {
-		$is_file = false;
-	}
-	if ($is_file) {
-		$is_local_file = function ($path) {
-			if (strpos($path, '?') !== false) {
-				$path = supprimer_timestamp($path);
-				// remove ?24px added by find_in_theme on .svg files
-				$path = preg_replace(',\?[[:digit:]]+(px)$,', '', $path);
-			}
-			return file_exists($path);
-		};
-		if ($is_local_file($is_file) or tester_url_absolue($is_file)) {
-			array_unshift($args, "<img src='$is_file' />");
-			$res = call_user_func_array($filtre, $args);
-			statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
-			return $res;
-		}
-	}
-
-	// Cas general : trier toutes les images, avec eventuellement leur <span>
-	if (
-		preg_match_all(
-			',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
-			$texte,
-			$tags,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($tags as $tag) {
-			$class = extraire_attribut($tag[3], 'class');
-			if (
-				!$class or
-				(strpos($class, 'filtre_inactif') === false
-					// compat historique a virer en 3.2
-					and strpos($class, 'no_image_filtrer') === false)
-			) {
-				array_unshift($args, $tag[3]);
-				if ($reduit = call_user_func_array($filtre, $args)) {
-					// En cas de span spip_documents, modifier le style=...width:
-					if ($tag[1]) {
-						$w = extraire_attribut($reduit, 'width');
-						if (!$w and preg_match(',width:\s*(\d+)px,S', extraire_attribut($reduit, 'style'), $regs)) {
-							$w = $regs[1];
-						}
-						if ($w and ($style = extraire_attribut($tag[1], 'style'))) {
-							$style = preg_replace(',width:\s*\d+px,S', "width:${w}px", $style);
-							$replace = inserer_attribut($tag[1], 'style', $style);
-							$texte = str_replace($tag[1], $replace, $texte);
-						}
-					}
-					// traiter aussi un eventuel mouseover
-					if ($mouseover = extraire_attribut($reduit, 'onmouseover')) {
-						if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)) {
-							$srcover = $match[1];
-							array_shift($args);
-							array_unshift($args, "<img src='" . $match[1] . "' />");
-							$srcover_filter = call_user_func_array($filtre, $args);
-							$srcover_filter = extraire_attribut($srcover_filter, 'src');
-							$reduit = str_replace($srcover, $srcover_filter, $reduit);
-						}
-					}
-					$texte = str_replace($tag[3], $reduit, $texte);
-				}
-				array_shift($args);
-			}
-		}
-	}
-	statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
-	return $texte;
+    $filtre = array_shift($args); # enlever $filtre
+    $texte = array_shift($args);
+    if (!strlen($texte)) {
+        return;
+    }
+    find_in_path('filtres_images_mini.php', 'inc/', true);
+    statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
+    // Cas du nom de fichier local
+    $is_file = trim($texte);
+    if (
+        strpos(substr($is_file, strlen(_DIR_RACINE)), '..') !== false
+          or strpbrk($is_file, "<>\n\r\t") !== false
+          or strpos($is_file, '/') === 0
+    ) {
+        $is_file = false;
+    }
+    if ($is_file) {
+        $is_local_file = function ($path) {
+            if (strpos($path, '?') !== false) {
+                $path = supprimer_timestamp($path);
+                // remove ?24px added by find_in_theme on .svg files
+                $path = preg_replace(',\?[[:digit:]]+(px)$,', '', $path);
+            }
+            return file_exists($path);
+        };
+        if ($is_local_file($is_file) or tester_url_absolue($is_file)) {
+            array_unshift($args, "<img src='$is_file' />");
+            $res = call_user_func_array($filtre, $args);
+            statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
+            return $res;
+        }
+    }
+
+    // Cas general : trier toutes les images, avec eventuellement leur <span>
+    if (
+        preg_match_all(
+            ',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
+            $texte,
+            $tags,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($tags as $tag) {
+            $class = extraire_attribut($tag[3], 'class');
+            if (
+                !$class or
+                (strpos($class, 'filtre_inactif') === false
+                    // compat historique a virer en 3.2
+                    and strpos($class, 'no_image_filtrer') === false)
+            ) {
+                array_unshift($args, $tag[3]);
+                if ($reduit = call_user_func_array($filtre, $args)) {
+                    // En cas de span spip_documents, modifier le style=...width:
+                    if ($tag[1]) {
+                        $w = extraire_attribut($reduit, 'width');
+                        if (!$w and preg_match(',width:\s*(\d+)px,S', extraire_attribut($reduit, 'style'), $regs)) {
+                            $w = $regs[1];
+                        }
+                        if ($w and ($style = extraire_attribut($tag[1], 'style'))) {
+                            $style = preg_replace(',width:\s*\d+px,S', "width:${w}px", $style);
+                            $replace = inserer_attribut($tag[1], 'style', $style);
+                            $texte = str_replace($tag[1], $replace, $texte);
+                        }
+                    }
+                    // traiter aussi un eventuel mouseover
+                    if ($mouseover = extraire_attribut($reduit, 'onmouseover')) {
+                        if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)) {
+                            $srcover = $match[1];
+                            array_shift($args);
+                            array_unshift($args, "<img src='" . $match[1] . "' />");
+                            $srcover_filter = call_user_func_array($filtre, $args);
+                            $srcover_filter = extraire_attribut($srcover_filter, 'src');
+                            $reduit = str_replace($srcover, $srcover_filter, $reduit);
+                        }
+                    }
+                    $texte = str_replace($tag[3], $reduit, $texte);
+                }
+                array_shift($args);
+            }
+        }
+    }
+    statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
+    return $texte;
 }
 
 /**
@@ -589,78 +589,78 @@ 
  **/
 function taille_image($img, $force_refresh = false) {
 
-	static $largeur_img = [], $hauteur_img = [];
-	$srcWidth = 0;
-	$srcHeight = 0;
-
-	$src = extraire_attribut($img, 'src');
-
-	if (!$src) {
-		$src = $img;
-	} else {
-		$srcWidth = extraire_attribut($img, 'width');
-		$srcHeight = extraire_attribut($img, 'height');
-	}
-
-	// ne jamais operer directement sur une image distante pour des raisons de perfo
-	// la copie locale a toutes les chances d'etre la ou de resservir
-	if (tester_url_absolue($src)) {
-		include_spip('inc/distant');
-		$fichier = copie_locale($src);
-		$src = $fichier ? _DIR_RACINE . $fichier : $src;
-	}
-	if (($p = strpos($src, '?')) !== false) {
-		$src = substr($src, 0, $p);
-	}
-
-	$srcsize = false;
-	if (isset($largeur_img[$src]) and !$force_refresh) {
-		$srcWidth = $largeur_img[$src];
-	}
-	if (isset($hauteur_img[$src]) and !$force_refresh) {
-		$srcHeight = $hauteur_img[$src];
-	}
-	if (!$srcWidth or !$srcHeight) {
-		if (
-			file_exists($src)
-			and $srcsize = spip_getimagesize($src)
-		) {
-			if (!$srcWidth) {
-				$largeur_img[$src] = $srcWidth = $srcsize[0];
-			}
-			if (!$srcHeight) {
-				$hauteur_img[$src] = $srcHeight = $srcsize[1];
-			}
-		}
-		elseif (strpos($src, '<svg') !== false) {
-			include_spip('inc/svg');
-			if ($attrs = svg_lire_attributs($src)) {
-				list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
-				if (!$srcWidth) {
-					$largeur_img[$src] = $srcWidth = $width;
-				}
-				if (!$srcHeight) {
-					$hauteur_img[$src] = $srcHeight = $height;
-				}
-			}
-		}
-		// $src peut etre une reference a une image temporaire dont a n'a que le log .src
-		// on s'y refere, l'image sera reconstruite en temps utile si necessaire
-		elseif (
-			@file_exists($f = "$src.src")
-			and lire_fichier($f, $valeurs)
-			and $valeurs = unserialize($valeurs)
-		) {
-			if (!$srcWidth) {
-				$largeur_img[$src] = $srcWidth = $valeurs['largeur_dest'];
-			}
-			if (!$srcHeight) {
-				$hauteur_img[$src] = $srcHeight = $valeurs['hauteur_dest'];
-			}
-		}
-	}
-
-	return [$srcHeight, $srcWidth];
+    static $largeur_img = [], $hauteur_img = [];
+    $srcWidth = 0;
+    $srcHeight = 0;
+
+    $src = extraire_attribut($img, 'src');
+
+    if (!$src) {
+        $src = $img;
+    } else {
+        $srcWidth = extraire_attribut($img, 'width');
+        $srcHeight = extraire_attribut($img, 'height');
+    }
+
+    // ne jamais operer directement sur une image distante pour des raisons de perfo
+    // la copie locale a toutes les chances d'etre la ou de resservir
+    if (tester_url_absolue($src)) {
+        include_spip('inc/distant');
+        $fichier = copie_locale($src);
+        $src = $fichier ? _DIR_RACINE . $fichier : $src;
+    }
+    if (($p = strpos($src, '?')) !== false) {
+        $src = substr($src, 0, $p);
+    }
+
+    $srcsize = false;
+    if (isset($largeur_img[$src]) and !$force_refresh) {
+        $srcWidth = $largeur_img[$src];
+    }
+    if (isset($hauteur_img[$src]) and !$force_refresh) {
+        $srcHeight = $hauteur_img[$src];
+    }
+    if (!$srcWidth or !$srcHeight) {
+        if (
+            file_exists($src)
+            and $srcsize = spip_getimagesize($src)
+        ) {
+            if (!$srcWidth) {
+                $largeur_img[$src] = $srcWidth = $srcsize[0];
+            }
+            if (!$srcHeight) {
+                $hauteur_img[$src] = $srcHeight = $srcsize[1];
+            }
+        }
+        elseif (strpos($src, '<svg') !== false) {
+            include_spip('inc/svg');
+            if ($attrs = svg_lire_attributs($src)) {
+                list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
+                if (!$srcWidth) {
+                    $largeur_img[$src] = $srcWidth = $width;
+                }
+                if (!$srcHeight) {
+                    $hauteur_img[$src] = $srcHeight = $height;
+                }
+            }
+        }
+        // $src peut etre une reference a une image temporaire dont a n'a que le log .src
+        // on s'y refere, l'image sera reconstruite en temps utile si necessaire
+        elseif (
+            @file_exists($f = "$src.src")
+            and lire_fichier($f, $valeurs)
+            and $valeurs = unserialize($valeurs)
+        ) {
+            if (!$srcWidth) {
+                $largeur_img[$src] = $srcWidth = $valeurs['largeur_dest'];
+            }
+            if (!$srcHeight) {
+                $hauteur_img[$src] = $srcHeight = $valeurs['hauteur_dest'];
+            }
+        }
+    }
+
+    return [$srcHeight, $srcWidth];
 }
 
 
@@ -678,12 +678,12 @@ 
  *     Largeur en pixels, NULL ou 0 si aucune image.
  **/
 function largeur($img) {
-	if (!$img) {
-		return;
-	}
-	list($h, $l) = taille_image($img);
+    if (!$img) {
+        return;
+    }
+    list($h, $l) = taille_image($img);
 
-	return $l;
+    return $l;
 }
 
 /**
@@ -700,12 +700,12 @@ 
  *     Hauteur en pixels, NULL ou 0 si aucune image.
  **/
 function hauteur($img) {
-	if (!$img) {
-		return;
-	}
-	list($h, $l) = taille_image($img);
+    if (!$img) {
+        return;
+    }
+    list($h, $l) = taille_image($img);
 
-	return $h;
+    return $h;
 }
 
 
@@ -725,11 +725,11 @@ 
  * @return string
  **/
 function corriger_entites_html($texte) {
-	if (strpos($texte, '&amp;') === false) {
-		return $texte;
-	}
+    if (strpos($texte, '&amp;') === false) {
+        return $texte;
+    }
 
-	return preg_replace(',&amp;(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
+    return preg_replace(',&amp;(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
 }
 
 /**
@@ -744,11 +744,11 @@ 
  * @return string
  **/
 function corriger_toutes_entites_html($texte) {
-	if (strpos($texte, '&amp;') === false) {
-		return $texte;
-	}
+    if (strpos($texte, '&amp;') === false) {
+        return $texte;
+    }
 
-	return preg_replace(',&amp;(#?[a-z0-9]+;),iS', '&\1', $texte);
+    return preg_replace(',&amp;(#?[a-z0-9]+;),iS', '&\1', $texte);
 }
 
 /**
@@ -758,7 +758,7 @@ 
  * @return string
  **/
 function proteger_amp($texte) {
-	return str_replace('&', '&amp;', $texte);
+    return str_replace('&', '&amp;', $texte);
 }
 
 
@@ -789,21 +789,21 @@ 
  * @return mixed|string
  */
 function entites_html($texte, $tout = false, $quote = true) {
-	if (
-		!is_string($texte) or !$texte
-		or strpbrk($texte, "&\"'<>") == false
-	) {
-		return $texte;
-	}
-	include_spip('inc/texte');
-	$flags = ($quote ? ENT_QUOTES : ENT_NOQUOTES);
-	$flags |= ENT_HTML401;
-	$texte = spip_htmlspecialchars(echappe_retour(echappe_html($texte, '', true), '', 'proteger_amp'), $flags);
-	if ($tout) {
-		return corriger_toutes_entites_html($texte);
-	} else {
-		return corriger_entites_html($texte);
-	}
+    if (
+        !is_string($texte) or !$texte
+        or strpbrk($texte, "&\"'<>") == false
+    ) {
+        return $texte;
+    }
+    include_spip('inc/texte');
+    $flags = ($quote ? ENT_QUOTES : ENT_NOQUOTES);
+    $flags |= ENT_HTML401;
+    $texte = spip_htmlspecialchars(echappe_retour(echappe_html($texte, '', true), '', 'proteger_amp'), $flags);
+    if ($tout) {
+        return corriger_toutes_entites_html($texte);
+    } else {
+        return corriger_entites_html($texte);
+    }
 }
 
 /**
@@ -822,37 +822,37 @@ 
  *     Texte converti
  **/
 function filtrer_entites($texte) {
-	if (strpos($texte, '&') === false) {
-		return $texte;
-	}
-	// filtrer
-	$texte = html2unicode($texte);
-	// remettre le tout dans le charset cible
-	$texte = unicode2charset($texte);
-	// cas particulier des " et ' qu'il faut filtrer aussi
-	// (on le faisait deja avec un &quot;)
-	if (strpos($texte, '&#') !== false) {
-		$texte = str_replace(['&#039;', '&#39;', '&#034;', '&#34;'], ["'", "'", '"', '"'], $texte);
-	}
+    if (strpos($texte, '&') === false) {
+        return $texte;
+    }
+    // filtrer
+    $texte = html2unicode($texte);
+    // remettre le tout dans le charset cible
+    $texte = unicode2charset($texte);
+    // cas particulier des " et ' qu'il faut filtrer aussi
+    // (on le faisait deja avec un &quot;)
+    if (strpos($texte, '&#') !== false) {
+        $texte = str_replace(['&#039;', '&#39;', '&#034;', '&#34;'], ["'", "'", '"', '"'], $texte);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
 if (!function_exists('filtre_filtrer_entites_dist')) {
-	/**
-	 * Version sécurisée de filtrer_entites
-	 *
-	 * @uses interdire_scripts()
-	 * @uses filtrer_entites()
-	 *
-	 * @param string $t
-	 * @return string
-	 */
-	function filtre_filtrer_entites_dist($t) {
-		include_spip('inc/texte');
-		return interdire_scripts(filtrer_entites($t));
-	}
+    /**
+     * Version sécurisée de filtrer_entites
+     *
+     * @uses interdire_scripts()
+     * @uses filtrer_entites()
+     *
+     * @param string $t
+     * @return string
+     */
+    function filtre_filtrer_entites_dist($t) {
+        include_spip('inc/texte');
+        return interdire_scripts(filtrer_entites($t));
+    }
 }
 
 
@@ -867,18 +867,18 @@ 
  * @return string|array
  **/
 function supprimer_caracteres_illegaux($texte) {
-	static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
-	static $to = null;
+    static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
+    static $to = null;
 
-	if (is_array($texte)) {
-		return array_map('supprimer_caracteres_illegaux', $texte);
-	}
+    if (is_array($texte)) {
+        return array_map('supprimer_caracteres_illegaux', $texte);
+    }
 
-	if (!$to) {
-		$to = str_repeat('-', strlen($from));
-	}
+    if (!$to) {
+        $to = str_repeat('-', strlen($from));
+    }
 
-	return strtr($texte, $from, $to);
+    return strtr($texte, $from, $to);
 }
 
 /**
@@ -890,10 +890,10 @@ 
  * @return string|array
  **/
 function corriger_caracteres($texte) {
-	$texte = corriger_caracteres_windows($texte);
-	$texte = supprimer_caracteres_illegaux($texte);
+    $texte = corriger_caracteres_windows($texte);
+    $texte = supprimer_caracteres_illegaux($texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -911,40 +911,40 @@ 
  */
 function texte_backend($texte) {
 
-	static $apostrophe = ['&#8217;', "'"]; # n'allouer qu'une fois
+    static $apostrophe = ['&#8217;', "'"]; # n'allouer qu'une fois
 
-	// si on a des liens ou des images, les passer en absolu
-	$texte = liens_absolus($texte);
+    // si on a des liens ou des images, les passer en absolu
+    $texte = liens_absolus($texte);
 
-	// echapper les tags &gt; &lt;
-	$texte = preg_replace(',&(gt|lt);,S', '&amp;\1;', $texte);
+    // echapper les tags &gt; &lt;
+    $texte = preg_replace(',&(gt|lt);,S', '&amp;\1;', $texte);
 
-	// importer les &eacute;
-	$texte = filtrer_entites($texte);
+    // importer les &eacute;
+    $texte = filtrer_entites($texte);
 
-	// " -> &quot; et tout ce genre de choses
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = str_replace('&nbsp;', ' ', $texte);
-	$texte = preg_replace('/\s{2,}/S' . $u, ' ', $texte);
-	// ne pas echapper les sinqle quotes car certains outils de syndication gerent mal
-	$texte = entites_html($texte, false, false);
-	// mais bien echapper les double quotes !
-	$texte = str_replace('"', '&#034;', $texte);
+    // " -> &quot; et tout ce genre de choses
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = str_replace('&nbsp;', ' ', $texte);
+    $texte = preg_replace('/\s{2,}/S' . $u, ' ', $texte);
+    // ne pas echapper les sinqle quotes car certains outils de syndication gerent mal
+    $texte = entites_html($texte, false, false);
+    // mais bien echapper les double quotes !
+    $texte = str_replace('"', '&#034;', $texte);
 
-	// verifier le charset
-	$texte = charset2unicode($texte);
+    // verifier le charset
+    $texte = charset2unicode($texte);
 
-	// Caracteres problematiques en iso-latin 1
-	if (isset($GLOBALS['meta']['charset']) and $GLOBALS['meta']['charset'] == 'iso-8859-1') {
-		$texte = str_replace(chr(156), '&#156;', $texte);
-		$texte = str_replace(chr(140), '&#140;', $texte);
-		$texte = str_replace(chr(159), '&#159;', $texte);
-	}
+    // Caracteres problematiques en iso-latin 1
+    if (isset($GLOBALS['meta']['charset']) and $GLOBALS['meta']['charset'] == 'iso-8859-1') {
+        $texte = str_replace(chr(156), '&#156;', $texte);
+        $texte = str_replace(chr(140), '&#140;', $texte);
+        $texte = str_replace(chr(159), '&#159;', $texte);
+    }
 
-	// l'apostrophe curly pose probleme a certains lecteure de RSS
-	// et le caractere apostrophe alourdit les squelettes avec PHP
-	// ==> on les remplace par l'entite HTML
-	return str_replace($apostrophe, "'", $texte);
+    // l'apostrophe curly pose probleme a certains lecteure de RSS
+    // et le caractere apostrophe alourdit les squelettes avec PHP
+    // ==> on les remplace par l'entite HTML
+    return str_replace($apostrophe, "'", $texte);
 }
 
 /**
@@ -961,7 +961,7 @@ 
  *     Texte encodé et quote pour XML
  */
 function texte_backendq($texte) {
-	return addslashes(texte_backend($texte));
+    return addslashes(texte_backend($texte));
 }
 
 
@@ -984,11 +984,11 @@ 
  *     Numéro de titre, sinon chaîne vide
  **/
 function supprimer_numero($texte) {
-	return preg_replace(
-		',^[[:space:]]*([0-9]+)([.)]|' . chr(194) . '?' . chr(176) . ')[[:space:]]+,S',
-		'',
-		$texte
-	);
+    return preg_replace(
+        ',^[[:space:]]*([0-9]+)([.)]|' . chr(194) . '?' . chr(176) . ')[[:space:]]+,S',
+        '',
+        $texte
+    );
 }
 
 /**
@@ -1011,17 +1011,17 @@ 
  *     Numéro de titre, sinon chaîne vide
  **/
 function recuperer_numero($texte) {
-	if (
-		preg_match(
-			',^[[:space:]]*([0-9]+)([.)]|' . chr(194) . '?' . chr(176) . ')[[:space:]]+,S',
-			$texte,
-			$regs
-		)
-	) {
-		return strval($regs[1]);
-	} else {
-		return '';
-	}
+    if (
+        preg_match(
+            ',^[[:space:]]*([0-9]+)([.)]|' . chr(194) . '?' . chr(176) . ')[[:space:]]+,S',
+            $texte,
+            $regs
+        )
+    ) {
+        return strval($regs[1]);
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -1048,13 +1048,13 @@ 
  *     Texte converti
  **/
 function supprimer_tags($texte, $rempl = '') {
-	$texte = preg_replace(',<(!--|\w|/|!\[endif|!\[if)[^>]*>,US', $rempl, $texte);
-	// ne pas oublier un < final non ferme car coupe
-	$texte = preg_replace(',<(!--|\w|/).*$,US', $rempl, $texte);
-	// mais qui peut aussi etre un simple signe plus petit que
-	$texte = str_replace('<', '&lt;', $texte);
+    $texte = preg_replace(',<(!--|\w|/|!\[endif|!\[if)[^>]*>,US', $rempl, $texte);
+    // ne pas oublier un < final non ferme car coupe
+    $texte = preg_replace(',<(!--|\w|/).*$,US', $rempl, $texte);
+    // mais qui peut aussi etre un simple signe plus petit que
+    $texte = str_replace('<', '&lt;', $texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1077,9 +1077,9 @@ 
  *     Texte converti
  **/
 function echapper_tags($texte, $rempl = '') {
-	$texte = preg_replace('/<([^>]*)>/', "&lt;\\1&gt;", $texte);
+    $texte = preg_replace('/<([^>]*)>/', "&lt;\\1&gt;", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1100,18 +1100,18 @@ 
  *     Texte converti
  **/
 function textebrut($texte) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = preg_replace('/\s+/S' . $u, ' ', $texte);
-	$texte = preg_replace('/<(p|br)( [^>]*)?' . '>/iS', "\n\n", $texte);
-	$texte = preg_replace("/^\n+/", '', $texte);
-	$texte = preg_replace("/\n+$/", '', $texte);
-	$texte = preg_replace("/\n +/", "\n", $texte);
-	$texte = supprimer_tags($texte);
-	$texte = preg_replace('/(&nbsp;| )+/S', ' ', $texte);
-	// nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
-	$texte = str_replace('&#8217;', "'", $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = preg_replace('/\s+/S' . $u, ' ', $texte);
+    $texte = preg_replace('/<(p|br)( [^>]*)?' . '>/iS', "\n\n", $texte);
+    $texte = preg_replace("/^\n+/", '', $texte);
+    $texte = preg_replace("/\n+$/", '', $texte);
+    $texte = preg_replace("/\n +/", "\n", $texte);
+    $texte = supprimer_tags($texte);
+    $texte = preg_replace('/(&nbsp;| )+/S', ' ', $texte);
+    // nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
+    $texte = str_replace('&#8217;', "'", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1127,23 +1127,23 @@ 
  *     Texte avec liens ouvrants
  **/
 function liens_ouvrants($texte) {
-	if (
-		preg_match_all(
-			",(<a\s+[^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+>),imsS",
-			$texte,
-			$liens,
-			PREG_PATTERN_ORDER
-		)
-	) {
-		foreach ($liens[0] as $a) {
-			$rel = 'noopener noreferrer ' . extraire_attribut($a, 'rel');
-			$ablank = inserer_attribut($a, 'rel', $rel);
-			$ablank = inserer_attribut($ablank, 'target', '_blank');
-			$texte = str_replace($a, $ablank, $texte);
-		}
-	}
-
-	return $texte;
+    if (
+        preg_match_all(
+            ",(<a\s+[^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+>),imsS",
+            $texte,
+            $liens,
+            PREG_PATTERN_ORDER
+        )
+    ) {
+        foreach ($liens[0] as $a) {
+            $rel = 'noopener noreferrer ' . extraire_attribut($a, 'rel');
+            $ablank = inserer_attribut($a, 'rel', $rel);
+            $ablank = inserer_attribut($ablank, 'target', '_blank');
+            $texte = str_replace($a, $ablank, $texte);
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -1153,22 +1153,22 @@ 
  * @return string
  */
 function liens_nofollow($texte) {
-	if (stripos($texte, '<a') === false) {
-		return $texte;
-	}
+    if (stripos($texte, '<a') === false) {
+        return $texte;
+    }
 
-	if (preg_match_all(",<a\b[^>]*>,UimsS", $texte, $regs, PREG_PATTERN_ORDER)) {
-		foreach ($regs[0] as $a) {
-			$rel = extraire_attribut($a, 'rel');
-			if (strpos($rel, 'nofollow') === false) {
-				$rel = 'nofollow' . ($rel ? " $rel" : '');
-				$anofollow = inserer_attribut($a, 'rel', $rel);
-				$texte = str_replace($a, $anofollow, $texte);
-			}
-		}
-	}
+    if (preg_match_all(",<a\b[^>]*>,UimsS", $texte, $regs, PREG_PATTERN_ORDER)) {
+        foreach ($regs[0] as $a) {
+            $rel = extraire_attribut($a, 'rel');
+            if (strpos($rel, 'nofollow') === false) {
+                $rel = 'nofollow' . ($rel ? " $rel" : '');
+                $anofollow = inserer_attribut($a, 'rel', $rel);
+                $texte = str_replace($a, $anofollow, $texte);
+            }
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1187,12 +1187,12 @@ 
  *     Texte sans paraghaphes
  **/
 function PtoBR($texte) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = preg_replace('@</p>@iS', "\n", $texte);
-	$texte = preg_replace("@<p\b.*>@UiS", '<br />', $texte);
-	$texte = preg_replace('@^\s*<br />@S' . $u, '', $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = preg_replace('@</p>@iS', "\n", $texte);
+    $texte = preg_replace("@<p\b.*>@UiS", '<br />', $texte);
+    $texte = preg_replace('@^\s*<br />@S' . $u, '', $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1217,14 +1217,14 @@ 
  * @return string Texte encadré du style CSS
  */
 function lignes_longues($texte) {
-	if (!strlen(trim($texte))) {
-		return $texte;
-	}
-	include_spip('inc/texte');
-	$tag = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $texte) ?
-		'div' : 'span';
+    if (!strlen(trim($texte))) {
+        return $texte;
+    }
+    include_spip('inc/texte');
+    $tag = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $texte) ?
+        'div' : 'span';
 
-	return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
+    return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
 }
 
 /**
@@ -1243,30 +1243,30 @@ 
  * @return string Texte en majuscule
  */
 function majuscules($texte) {
-	if (!strlen($texte)) {
-		return '';
-	}
+    if (!strlen($texte)) {
+        return '';
+    }
 
-	// Cas du turc
-	if ($GLOBALS['spip_lang'] == 'tr') {
-		# remplacer hors des tags et des entites
-		if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER)) {
-			foreach ($regs as $n => $match) {
-				$texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
-			}
-		}
+    // Cas du turc
+    if ($GLOBALS['spip_lang'] == 'tr') {
+        # remplacer hors des tags et des entites
+        if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER)) {
+            foreach ($regs as $n => $match) {
+                $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
+            }
+        }
 
-		$texte = str_replace('i', '&#304;', $texte);
+        $texte = str_replace('i', '&#304;', $texte);
 
-		if ($regs) {
-			foreach ($regs as $n => $match) {
-				$texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
-			}
-		}
-	}
+        if ($regs) {
+            foreach ($regs as $n => $match) {
+                $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
+            }
+        }
+    }
 
-	// Cas general
-	return "<span style='text-transform: uppercase;'>$texte</span>";
+    // Cas general
+    return "<span style='text-transform: uppercase;'>$texte</span>";
 }
 
 /**
@@ -1284,29 +1284,29 @@ 
  * @return string
  **/
 function taille_en_octets($taille) {
-	if (!defined('_KILOBYTE')) {
-		/**
-		 * Définit le nombre d'octets dans un Kilobyte
-		 *
-		 * @var int
-		 **/
-		define('_KILOBYTE', 1024);
-	}
+    if (!defined('_KILOBYTE')) {
+        /**
+         * Définit le nombre d'octets dans un Kilobyte
+         *
+         * @var int
+         **/
+        define('_KILOBYTE', 1024);
+    }
 
-	if ($taille < 1) {
-		return '';
-	}
-	if ($taille < _KILOBYTE) {
-		$taille = _T('taille_octets', ['taille' => $taille]);
-	} elseif ($taille < _KILOBYTE * _KILOBYTE) {
-		$taille = _T('taille_ko', ['taille' => round($taille / _KILOBYTE, 1)]);
-	} elseif ($taille < _KILOBYTE * _KILOBYTE * _KILOBYTE) {
-		$taille = _T('taille_mo', ['taille' => round($taille / _KILOBYTE / _KILOBYTE, 1)]);
-	} else {
-		$taille = _T('taille_go', ['taille' => round($taille / _KILOBYTE / _KILOBYTE / _KILOBYTE, 2)]);
-	}
+    if ($taille < 1) {
+        return '';
+    }
+    if ($taille < _KILOBYTE) {
+        $taille = _T('taille_octets', ['taille' => $taille]);
+    } elseif ($taille < _KILOBYTE * _KILOBYTE) {
+        $taille = _T('taille_ko', ['taille' => round($taille / _KILOBYTE, 1)]);
+    } elseif ($taille < _KILOBYTE * _KILOBYTE * _KILOBYTE) {
+        $taille = _T('taille_mo', ['taille' => round($taille / _KILOBYTE / _KILOBYTE, 1)]);
+    } else {
+        $taille = _T('taille_go', ['taille' => round($taille / _KILOBYTE / _KILOBYTE / _KILOBYTE, 2)]);
+    }
 
-	return $taille;
+    return $taille;
 }
 
 
@@ -1328,18 +1328,18 @@ 
  *     Texte prêt pour être utilisé en attribut HTML
  **/
 function attribut_html($texte, $textebrut = true) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	if ($textebrut) {
-		$texte = preg_replace([",\n,", ',\s(?=\s),msS' . $u], [' ', ''], textebrut($texte));
-	}
-	$texte = texte_backend($texte);
-	$texte = str_replace(["'", '"'], ['&#039;', '&#034;'], $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    if ($textebrut) {
+        $texte = preg_replace([",\n,", ',\s(?=\s),msS' . $u], [' ', ''], textebrut($texte));
+    }
+    $texte = texte_backend($texte);
+    $texte = str_replace(["'", '"'], ['&#039;', '&#034;'], $texte);
 
-	return preg_replace(
-		['/&(amp;|#38;)/', '/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/'],
-		['&', '&#38;'],
-		$texte
-	);
+    return preg_replace(
+        ['/&(amp;|#38;)/', '/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/'],
+        ['&', '&#38;'],
+        $texte
+    );
 }
 
 
@@ -1359,12 +1359,12 @@ 
  *     URL ou chaîne vide
  **/
 function vider_url($url, $entites = true) {
-	# un message pour abs_url
-	$GLOBALS['mode_abs_url'] = 'url';
-	$url = trim($url);
-	$r = ',^(?:' . _PROTOCOLES_STD . '):?/?/?$,iS';
+    # un message pour abs_url
+    $GLOBALS['mode_abs_url'] = 'url';
+    $url = trim($url);
+    $r = ',^(?:' . _PROTOCOLES_STD . '):?/?/?$,iS';
 
-	return preg_match($r, $url) ? '' : ($entites ? entites_html($url) : $url);
+    return preg_match($r, $url) ? '' : ($entites ? entites_html($url) : $url);
 }
 
 
@@ -1379,10 +1379,10 @@ 
  * @return string Adresse email maquillée
  **/
 function antispam($texte) {
-	include_spip('inc/acces');
-	$masque = creer_pass_aleatoire(3);
+    include_spip('inc/acces');
+    $masque = creer_pass_aleatoire(3);
 
-	return preg_replace('/@/', " $masque ", $texte);
+    return preg_replace('/@/', " $masque ", $texte);
 }
 
 /**
@@ -1414,12 +1414,12 @@ 
  *     True si on a le droit d'accès, false sinon.
  **/
 function securiser_acces($id_auteur, $cle, $dir, $op = '', $args = '') {
-	include_spip('inc/acces');
-	if ($op) {
-		$dir .= " $op $args";
-	}
+    include_spip('inc/acces');
+    if ($op) {
+        $dir .= " $op $args";
+    }
 
-	return verifier_low_sec($id_auteur, $cle, $dir);
+    return verifier_low_sec($id_auteur, $cle, $dir);
 }
 
 /**
@@ -1444,11 +1444,11 @@ 
  *     Retourne $texte, sinon $sinon.
  **/
 function sinon($texte, $sinon = '') {
-	if ($texte or (!is_array($texte) and strlen($texte))) {
-		return $texte;
-	} else {
-		return $sinon;
-	}
+    if ($texte or (!is_array($texte) and strlen($texte))) {
+        return $texte;
+    } else {
+        return $sinon;
+    }
 }
 
 /**
@@ -1472,7 +1472,7 @@ 
  * @return mixed
  **/
 function choixsivide($a, $vide, $pasvide) {
-	return $a ? $pasvide : $vide;
+    return $a ? $pasvide : $vide;
 }
 
 /**
@@ -1496,7 +1496,7 @@ 
  * @return mixed
  **/
 function choixsiegal($a1, $a2, $v, $f) {
-	return ($a1 == $a2) ? $v : $f;
+    return ($a1 == $a2) ? $v : $f;
 }
 
 //
@@ -1515,13 +1515,13 @@ 
  * @return string
  **/
 function filtrer_ical($texte) {
-	#include_spip('inc/charsets');
-	$texte = html2unicode($texte);
-	$texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
-	$texte = preg_replace("/\n/", ' ', $texte);
-	$texte = preg_replace('/,/', '\,', $texte);
+    #include_spip('inc/charsets');
+    $texte = html2unicode($texte);
+    $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
+    $texte = preg_replace("/\n/", ' ', $texte);
+    $texte = preg_replace('/,/', '\,', $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1546,54 +1546,54 @@ 
  * @return string
  **/
 function post_autobr($texte, $delim = "\n_ ") {
-	if (!function_exists('echappe_html')) {
-		include_spip('inc/texte_mini');
-	}
-	$texte = str_replace("\r\n", "\r", $texte);
-	$texte = str_replace("\r", "\n", $texte);
-
-	if (preg_match(",\n+$,", $texte, $fin)) {
-		$texte = substr($texte, 0, -strlen($fin = $fin[0]));
-	} else {
-		$fin = '';
-	}
-
-	$texte = echappe_html($texte, '', true);
-
-	// echapper les modeles
-	if (strpos($texte, '<') !== false) {
-		include_spip('inc/lien');
-		if (defined('_PREG_MODELE')) {
-			$preg_modeles = '@' . _PREG_MODELE . '@imsS';
-			$texte = echappe_html($texte, '', true, $preg_modeles);
-		}
-	}
-
-	$debut = '';
-	$suite = $texte;
-	while ($t = strpos('-' . $suite, "\n", 1)) {
-		$debut .= substr($suite, 0, $t - 1);
-		$suite = substr($suite, $t);
-		$car = substr($suite, 0, 1);
-		if (
-			($car <> '-') and ($car <> '_') and ($car <> "\n") and ($car <> '|') and ($car <> '}')
-			and !preg_match(',^\s*(\n|</?(quote|div|dl|dt|dd)|$),S', ($suite))
-			and !preg_match(',</?(quote|div|dl|dt|dd)> *$,iS', $debut)
-		) {
-			$debut .= $delim;
-		} else {
-			$debut .= "\n";
-		}
-		if (preg_match(",^\n+,", $suite, $regs)) {
-			$debut .= $regs[0];
-			$suite = substr($suite, strlen($regs[0]));
-		}
-	}
-	$texte = $debut . $suite;
-
-	$texte = echappe_retour($texte);
-
-	return $texte . $fin;
+    if (!function_exists('echappe_html')) {
+        include_spip('inc/texte_mini');
+    }
+    $texte = str_replace("\r\n", "\r", $texte);
+    $texte = str_replace("\r", "\n", $texte);
+
+    if (preg_match(",\n+$,", $texte, $fin)) {
+        $texte = substr($texte, 0, -strlen($fin = $fin[0]));
+    } else {
+        $fin = '';
+    }
+
+    $texte = echappe_html($texte, '', true);
+
+    // echapper les modeles
+    if (strpos($texte, '<') !== false) {
+        include_spip('inc/lien');
+        if (defined('_PREG_MODELE')) {
+            $preg_modeles = '@' . _PREG_MODELE . '@imsS';
+            $texte = echappe_html($texte, '', true, $preg_modeles);
+        }
+    }
+
+    $debut = '';
+    $suite = $texte;
+    while ($t = strpos('-' . $suite, "\n", 1)) {
+        $debut .= substr($suite, 0, $t - 1);
+        $suite = substr($suite, $t);
+        $car = substr($suite, 0, 1);
+        if (
+            ($car <> '-') and ($car <> '_') and ($car <> "\n") and ($car <> '|') and ($car <> '}')
+            and !preg_match(',^\s*(\n|</?(quote|div|dl|dt|dd)|$),S', ($suite))
+            and !preg_match(',</?(quote|div|dl|dt|dd)> *$,iS', $debut)
+        ) {
+            $debut .= $delim;
+        } else {
+            $debut .= "\n";
+        }
+        if (preg_match(",^\n+,", $suite, $regs)) {
+            $debut .= $regs[0];
+            $suite = substr($suite, strlen($regs[0]));
+        }
+    }
+    $texte = $debut . $suite;
+
+    $texte = echappe_retour($texte);
+
+    return $texte . $fin;
 }
 
 
@@ -1634,47 +1634,47 @@ 
  * @return string
  **/
 function extraire_idiome($letexte, $lang = null, $options = []) {
-	static $traduire = false;
-	if (
-		$letexte
-		and preg_match_all(_EXTRAIRE_IDIOME, $letexte, $regs, PREG_SET_ORDER)
-	) {
-		if (!$traduire) {
-			$traduire = charger_fonction('traduire', 'inc');
-			include_spip('inc/lang');
-		}
-		if (!$lang) {
-			$lang = $GLOBALS['spip_lang'];
-		}
-		// Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
-		if (is_bool($options)) {
-			$options = ['echappe_span' => $options];
-		}
-		if (!isset($options['echappe_span'])) {
-			$options = array_merge($options, ['echappe_span' => false]);
-		}
-
-		foreach ($regs as $reg) {
-			$cle = ($reg[1] ? $reg[1] . ':' : '') . $reg[2];
-			$desc = $traduire($cle, $lang, true);
-			$l = $desc->langue;
-			// si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
-			if (strlen($desc->texte)) {
-				$trad = code_echappement($desc->texte, 'idiome', false);
-				if ($l !== $lang) {
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-				}
-				if (lang_dir($l) !== lang_dir($lang)) {
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-				}
-				if (!$options['echappe_span']) {
-					$trad = echappe_retour($trad, 'idiome');
-				}
-				$letexte = str_replace($reg[0], $trad, $letexte);
-			}
-		}
-	}
-	return $letexte;
+    static $traduire = false;
+    if (
+        $letexte
+        and preg_match_all(_EXTRAIRE_IDIOME, $letexte, $regs, PREG_SET_ORDER)
+    ) {
+        if (!$traduire) {
+            $traduire = charger_fonction('traduire', 'inc');
+            include_spip('inc/lang');
+        }
+        if (!$lang) {
+            $lang = $GLOBALS['spip_lang'];
+        }
+        // Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
+        if (is_bool($options)) {
+            $options = ['echappe_span' => $options];
+        }
+        if (!isset($options['echappe_span'])) {
+            $options = array_merge($options, ['echappe_span' => false]);
+        }
+
+        foreach ($regs as $reg) {
+            $cle = ($reg[1] ? $reg[1] . ':' : '') . $reg[2];
+            $desc = $traduire($cle, $lang, true);
+            $l = $desc->langue;
+            // si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
+            if (strlen($desc->texte)) {
+                $trad = code_echappement($desc->texte, 'idiome', false);
+                if ($l !== $lang) {
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                }
+                if (lang_dir($l) !== lang_dir($lang)) {
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                }
+                if (!$options['echappe_span']) {
+                    $trad = echappe_retour($trad, 'idiome');
+                }
+                $letexte = str_replace($reg[0], $trad, $letexte);
+            }
+        }
+    }
+    return $letexte;
 }
 
 /**
@@ -1726,68 +1726,68 @@ 
  **/
 function extraire_multi($letexte, $lang = null, $options = []) {
 
-	if (
-		$letexte
-		and preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)
-	) {
-		if (!$lang) {
-			$lang = $GLOBALS['spip_lang'];
-		}
-
-		// Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
-		if (is_bool($options)) {
-			$options = ['echappe_span' => $options, 'lang_defaut' => _LANGUE_PAR_DEFAUT];
-		}
-		if (!isset($options['echappe_span'])) {
-			$options = array_merge($options, ['echappe_span' => false]);
-		}
-		if (!isset($options['lang_defaut'])) {
-			$options = array_merge($options, ['lang_defaut' => _LANGUE_PAR_DEFAUT]);
-		}
-
-		include_spip('inc/lang');
-		foreach ($regs as $reg) {
-			// chercher la version de la langue courante
-			$trads = extraire_trads($reg[1]);
-			if ($l = approcher_langue($trads, $lang)) {
-				$trad = $trads[$l];
-			} else {
-				if ($options['lang_defaut'] == 'aucune') {
-					$trad = '';
-				} else {
-					// langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
-					// ou la premiere dispo
-					// mais typographier le texte selon les regles de celle-ci
-					// Attention aux blocs multi sur plusieurs lignes
-					if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
-						$l = key($trads);
-					}
-					$trad = $trads[$l];
-					$typographie = charger_fonction(lang_typo($l), 'typographie');
-					$trad = $typographie($trad);
-					// Tester si on echappe en span ou en div
-					// il ne faut pas echapper en div si propre produit un seul paragraphe
-					include_spip('inc/texte');
-					$trad_propre = preg_replace(',(^<p[^>]*>|</p>$),Uims', '', propre($trad));
-					$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
-					if ($mode === 'div') {
-						$trad = rtrim($trad) . "\n\n";
-					}
-					$trad = code_echappement($trad, 'multi', false, $mode);
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-					if (lang_dir($l) !== lang_dir($lang)) {
-						$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-					}
-					if (!$options['echappe_span']) {
-						$trad = echappe_retour($trad, 'multi');
-					}
-				}
-			}
-			$letexte = str_replace($reg[0], $trad, $letexte);
-		}
-	}
-
-	return $letexte;
+    if (
+        $letexte
+        and preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)
+    ) {
+        if (!$lang) {
+            $lang = $GLOBALS['spip_lang'];
+        }
+
+        // Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
+        if (is_bool($options)) {
+            $options = ['echappe_span' => $options, 'lang_defaut' => _LANGUE_PAR_DEFAUT];
+        }
+        if (!isset($options['echappe_span'])) {
+            $options = array_merge($options, ['echappe_span' => false]);
+        }
+        if (!isset($options['lang_defaut'])) {
+            $options = array_merge($options, ['lang_defaut' => _LANGUE_PAR_DEFAUT]);
+        }
+
+        include_spip('inc/lang');
+        foreach ($regs as $reg) {
+            // chercher la version de la langue courante
+            $trads = extraire_trads($reg[1]);
+            if ($l = approcher_langue($trads, $lang)) {
+                $trad = $trads[$l];
+            } else {
+                if ($options['lang_defaut'] == 'aucune') {
+                    $trad = '';
+                } else {
+                    // langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
+                    // ou la premiere dispo
+                    // mais typographier le texte selon les regles de celle-ci
+                    // Attention aux blocs multi sur plusieurs lignes
+                    if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
+                        $l = key($trads);
+                    }
+                    $trad = $trads[$l];
+                    $typographie = charger_fonction(lang_typo($l), 'typographie');
+                    $trad = $typographie($trad);
+                    // Tester si on echappe en span ou en div
+                    // il ne faut pas echapper en div si propre produit un seul paragraphe
+                    include_spip('inc/texte');
+                    $trad_propre = preg_replace(',(^<p[^>]*>|</p>$),Uims', '', propre($trad));
+                    $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
+                    if ($mode === 'div') {
+                        $trad = rtrim($trad) . "\n\n";
+                    }
+                    $trad = code_echappement($trad, 'multi', false, $mode);
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                    if (lang_dir($l) !== lang_dir($lang)) {
+                        $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                    }
+                    if (!$options['echappe_span']) {
+                        $trad = echappe_retour($trad, 'multi');
+                    }
+                }
+            }
+            $letexte = str_replace($reg[0], $trad, $letexte);
+        }
+    }
+
+    return $letexte;
 }
 
 /**
@@ -1803,20 +1803,20 @@ 
  *     Peut retourner un code de langue vide, lorsqu'un texte par défaut est indiqué.
  **/
 function extraire_trads($bloc) {
-	$lang = '';
+    $lang = '';
 // ce reg fait planter l'analyse multi s'il y a de l'{italique} dans le champ
 //	while (preg_match("/^(.*?)[{\[]([a-z_]+)[}\]]/siS", $bloc, $regs)) {
-	while (preg_match('/^(.*?)[\[]([a-z_]+)[\]]/siS', $bloc, $regs)) {
-		$texte = trim($regs[1]);
-		if ($texte or $lang) {
-			$trads[$lang] = $texte;
-		}
-		$bloc = substr($bloc, strlen($regs[0]));
-		$lang = $regs[2];
-	}
-	$trads[$lang] = $bloc;
+    while (preg_match('/^(.*?)[\[]([a-z_]+)[\]]/siS', $bloc, $regs)) {
+        $texte = trim($regs[1]);
+        if ($texte or $lang) {
+            $trads[$lang] = $texte;
+        }
+        $bloc = substr($bloc, strlen($regs[0]));
+        $lang = $regs[2];
+    }
+    $trads[$lang] = $bloc;
 
-	return $trads;
+    return $trads;
 }
 
 
@@ -1827,7 +1827,7 @@ 
  * @return string L'initiale en majuscule
  */
 function filtre_initiale($nom) {
-	return spip_substr(trim(strtoupper(extraire_multi($nom))), 0, 1);
+    return spip_substr(trim(strtoupper(extraire_multi($nom))), 0, 1);
 }
 
 
@@ -1872,33 +1872,33 @@ 
  *      - null (interne) : si on empile
  **/
 function unique($donnee, $famille = '', $cpt = false) {
-	static $mem = [];
-	// permettre de vider la pile et de la restaurer
-	// pour le calcul de introduction...
-	if ($famille == '_spip_raz_') {
-		$tmp = $mem;
-		$mem = [];
-
-		return $tmp;
-	} elseif ($famille == '_spip_set_') {
-		$mem = $donnee;
-
-		return;
-	}
-	// eviter une notice
-	if (!isset($mem[$famille])) {
-		$mem[$famille] = [];
-	}
-	if ($cpt) {
-		return count($mem[$famille]);
-	}
-	// eviter une notice
-	if (!isset($mem[$famille][$donnee])) {
-		$mem[$famille][$donnee] = 0;
-	}
-	if (!($mem[$famille][$donnee]++)) {
-		return $donnee;
-	}
+    static $mem = [];
+    // permettre de vider la pile et de la restaurer
+    // pour le calcul de introduction...
+    if ($famille == '_spip_raz_') {
+        $tmp = $mem;
+        $mem = [];
+
+        return $tmp;
+    } elseif ($famille == '_spip_set_') {
+        $mem = $donnee;
+
+        return;
+    }
+    // eviter une notice
+    if (!isset($mem[$famille])) {
+        $mem[$famille] = [];
+    }
+    if ($cpt) {
+        return count($mem[$famille]);
+    }
+    // eviter une notice
+    if (!isset($mem[$famille][$donnee])) {
+        $mem[$famille][$donnee] = 0;
+    }
+    if (!($mem[$famille][$donnee]++)) {
+        return $donnee;
+    }
 }
 
 
@@ -1928,16 +1928,16 @@ 
  *     Une des valeurs en fonction du compteur.
  **/
 function alterner($i, ...$args) {
-	// recuperer les arguments (attention fonctions un peu space)
-	$num = count($args);
+    // recuperer les arguments (attention fonctions un peu space)
+    $num = count($args);
 
-	if ($num === 1 && is_array($args[0])) {
-		$args = $args[0];
-		$num = count($args);
-	}
+    if ($num === 1 && is_array($args[0])) {
+        $args = $args[0];
+        $num = count($args);
+    }
 
-	// renvoyer le i-ieme argument, modulo le nombre d'arguments
-	return $args[(intval($i) - 1) % $num];
+    // renvoyer le i-ieme argument, modulo le nombre d'arguments
+    return $args[(intval($i) - 1) % $num];
 }
 
 
@@ -1962,49 +1962,49 @@ 
  *     - Tableau complet (si 2e argument)
  **/
 function extraire_attribut($balise, $attribut, $complet = false) {
-	if (is_array($balise)) {
-		array_walk(
-			$balise,
-			function (&$a, $key, $t) {
-				$a = extraire_attribut($a, $t);
-			},
-			$attribut
-		);
-
-		return $balise;
-	}
-	if (
-		preg_match(
-			',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
-			. $attribut
-			. '(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()((?:[\s/][^>]*)?>.*),isS',
-			$balise,
-			$r
-		)
-	) {
-		if (isset($r[3][0]) and ($r[3][0] == '"' || $r[3][0] == "'")) {
-			$r[4] = substr($r[3], 1, -1);
-			$r[3] = $r[3][0];
-		} elseif ($r[3] !== '') {
-			$r[4] = $r[3];
-			$r[3] = '';
-		} else {
-			$r[4] = trim($r[2]);
-		}
-		$att = $r[4];
-		if (strpos($att, '&#') !== false) {
-			$att = str_replace(['&#039;', '&#39;', '&#034;', '&#34;'], ["'", "'", '"', '"'], $att);
-		}
-		$att = filtrer_entites($att);
-	} else {
-		$att = null;
-	}
-
-	if ($complet) {
-		return [$att, $r];
-	} else {
-		return $att;
-	}
+    if (is_array($balise)) {
+        array_walk(
+            $balise,
+            function (&$a, $key, $t) {
+                $a = extraire_attribut($a, $t);
+            },
+            $attribut
+        );
+
+        return $balise;
+    }
+    if (
+        preg_match(
+            ',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
+            . $attribut
+            . '(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()((?:[\s/][^>]*)?>.*),isS',
+            $balise,
+            $r
+        )
+    ) {
+        if (isset($r[3][0]) and ($r[3][0] == '"' || $r[3][0] == "'")) {
+            $r[4] = substr($r[3], 1, -1);
+            $r[3] = $r[3][0];
+        } elseif ($r[3] !== '') {
+            $r[4] = $r[3];
+            $r[3] = '';
+        } else {
+            $r[4] = trim($r[2]);
+        }
+        $att = $r[4];
+        if (strpos($att, '&#') !== false) {
+            $att = str_replace(['&#039;', '&#39;', '&#034;', '&#34;'], ["'", "'", '"', '"'], $att);
+        }
+        $att = filtrer_entites($att);
+    } else {
+        $att = null;
+    }
+
+    if ($complet) {
+        return [$att, $r];
+    } else {
+        return $att;
+    }
 }
 
 /**
@@ -2036,37 +2036,37 @@ 
  *     Code html modifié
  **/
 function inserer_attribut($balise, $attribut, $val, $proteger = true, $vider = false) {
-	// preparer l'attribut
-	// supprimer les &nbsp; etc mais pas les balises html
-	// qui ont un sens dans un attribut value d'un input
-	if ($proteger) {
-		$val = attribut_html($val, false);
-	}
-
-	// echapper les ' pour eviter tout bug
-	$val = str_replace("'", '&#039;', $val);
-	if ($vider and strlen($val) == 0) {
-		$insert = '';
-	} else {
-		$insert = " $attribut='$val'";
-	}
-
-	list($old, $r) = extraire_attribut($balise, $attribut, true);
-
-	if ($old !== null) {
-		// Remplacer l'ancien attribut du meme nom
-		$balise = $r[1] . $insert . $r[5];
-	} else {
-		// preferer une balise " />" (comme <img />)
-		if (preg_match(',/>,', $balise)) {
-			$balise = preg_replace(',\s?/>,S', $insert . ' />', $balise, 1);
-		} // sinon une balise <a ...> ... </a>
-		else {
-			$balise = preg_replace(',\s?>,S', $insert . '>', $balise, 1);
-		}
-	}
-
-	return $balise;
+    // preparer l'attribut
+    // supprimer les &nbsp; etc mais pas les balises html
+    // qui ont un sens dans un attribut value d'un input
+    if ($proteger) {
+        $val = attribut_html($val, false);
+    }
+
+    // echapper les ' pour eviter tout bug
+    $val = str_replace("'", '&#039;', $val);
+    if ($vider and strlen($val) == 0) {
+        $insert = '';
+    } else {
+        $insert = " $attribut='$val'";
+    }
+
+    list($old, $r) = extraire_attribut($balise, $attribut, true);
+
+    if ($old !== null) {
+        // Remplacer l'ancien attribut du meme nom
+        $balise = $r[1] . $insert . $r[5];
+    } else {
+        // preferer une balise " />" (comme <img />)
+        if (preg_match(',/>,', $balise)) {
+            $balise = preg_replace(',\s?/>,S', $insert . ' />', $balise, 1);
+        } // sinon une balise <a ...> ... </a>
+        else {
+            $balise = preg_replace(',\s?>,S', $insert . '>', $balise, 1);
+        }
+    }
+
+    return $balise;
 }
 
 /**
@@ -2084,7 +2084,7 @@ 
  * @return string Code HTML sans l'attribut
  **/
 function vider_attribut($balise, $attribut) {
-	return inserer_attribut($balise, $attribut, '', false, true);
+    return inserer_attribut($balise, $attribut, '', false, true);
 }
 
 /**
@@ -2096,56 +2096,56 @@ 
  * @return string
  */
 function modifier_class($balise, $class, $operation = 'ajouter') {
-	if (is_string($class)) {
-		$class = explode(' ', trim($class));
-	}
-	$class = array_filter($class);
-
-	// si la ou les classes ont des caracteres invalides on ne fait rien
-	if (preg_match(',[^\w-],', implode('', $class))) {
-		return $balise;
-	}
-
-	if ($class) {
-		$class = array_unique($class);
-		$class_courante = extraire_attribut($balise, 'class');
-
-		$class_new = $class_courante;
-		foreach ($class as $c) {
-			if ($c) {
-				$is_class_presente = false;
-				if (
-					strpos($class_courante, $c) !== false
-					and preg_match('/(^|\s)' . preg_quote($c) . '($|\s)/', $class_courante)
-				) {
-					$is_class_presente = true;
-				}
-				if (
-					in_array($operation, ['ajouter', 'commuter'])
-					and !$is_class_presente
-				) {
-					$class_new = rtrim($class_new) . ' ' . $c;
-				}
-				elseif (
-					in_array($operation, ['supprimer', 'commuter'])
-					and $is_class_presente
-				) {
-					$class_new = trim(preg_replace('/(^|\s)' . preg_quote($c) . '($|\s)/', "\\1", $class_new));
-				}
-			}
-		}
-
-		if ($class_new !== $class_courante) {
-			if (strlen($class_new)) {
-				$balise = inserer_attribut($balise, 'class', $class_new);
-			}
-			elseif ($class_courante) {
-				$balise = vider_attribut($balise, 'class');
-			}
-		}
-	}
-
-	return $balise;
+    if (is_string($class)) {
+        $class = explode(' ', trim($class));
+    }
+    $class = array_filter($class);
+
+    // si la ou les classes ont des caracteres invalides on ne fait rien
+    if (preg_match(',[^\w-],', implode('', $class))) {
+        return $balise;
+    }
+
+    if ($class) {
+        $class = array_unique($class);
+        $class_courante = extraire_attribut($balise, 'class');
+
+        $class_new = $class_courante;
+        foreach ($class as $c) {
+            if ($c) {
+                $is_class_presente = false;
+                if (
+                    strpos($class_courante, $c) !== false
+                    and preg_match('/(^|\s)' . preg_quote($c) . '($|\s)/', $class_courante)
+                ) {
+                    $is_class_presente = true;
+                }
+                if (
+                    in_array($operation, ['ajouter', 'commuter'])
+                    and !$is_class_presente
+                ) {
+                    $class_new = rtrim($class_new) . ' ' . $c;
+                }
+                elseif (
+                    in_array($operation, ['supprimer', 'commuter'])
+                    and $is_class_presente
+                ) {
+                    $class_new = trim(preg_replace('/(^|\s)' . preg_quote($c) . '($|\s)/', "\\1", $class_new));
+                }
+            }
+        }
+
+        if ($class_new !== $class_courante) {
+            if (strlen($class_new)) {
+                $balise = inserer_attribut($balise, 'class', $class_new);
+            }
+            elseif ($class_courante) {
+                $balise = vider_attribut($balise, 'class');
+            }
+        }
+    }
+
+    return $balise;
 }
 
 /**
@@ -2155,7 +2155,7 @@ 
  * @return string
  */
 function ajouter_class($balise, $class) {
-	return modifier_class($balise, $class, 'ajouter');
+    return modifier_class($balise, $class, 'ajouter');
 }
 
 /**
@@ -2165,7 +2165,7 @@ 
  * @return string
  */
 function supprimer_class($balise, $class) {
-	return modifier_class($balise, $class, 'supprimer');
+    return modifier_class($balise, $class, 'supprimer');
 }
 
 /**
@@ -2176,7 +2176,7 @@ 
  * @return string
  */
 function commuter_class($balise, $class) {
-	return modifier_class($balise, $class, 'commuter');
+    return modifier_class($balise, $class, 'commuter');
 }
 
 /**
@@ -2187,19 +2187,19 @@ 
  * @return string
  */
 function tester_config($id, $mode = '') {
-	include_spip('action/inscrire_auteur');
+    include_spip('action/inscrire_auteur');
 
-	return tester_statut_inscription($mode, $id);
+    return tester_statut_inscription($mode, $id);
 }
 
 //
 // Quelques fonctions de calcul arithmetique
 //
 function floatstr($a) {
- return str_replace(',', '.', (string)floatval($a));
+    return str_replace(',', '.', (string)floatval($a));
 }
 function strize($f, $a, $b) {
- return floatstr($f(floatstr($a), floatstr($b)));
+    return floatstr($f(floatstr($a), floatstr($b)));
 }
 
 /**
@@ -2218,7 +2218,7 @@ 
  * @return int $a+$b
  **/
 function plus($a, $b) {
-	return $a + $b;
+    return $a + $b;
 }
 function strplus($a, $b) {
 return strize('plus', $a, $b);
@@ -2239,7 +2239,7 @@ 
  * @return int $a-$b
  **/
 function moins($a, $b) {
-	return $a - $b;
+    return $a - $b;
 }
 function strmoins($a, $b) {
 return strize('moins', $a, $b);
@@ -2262,7 +2262,7 @@ 
  * @return int $a*$b
  **/
 function mult($a, $b) {
-	return $a * $b;
+    return $a * $b;
 }
 function strmult($a, $b) {
 return strize('mult', $a, $b);
@@ -2285,7 +2285,7 @@ 
  * @return int $a/$b (ou 0 si $b est nul)
  **/
 function div($a, $b) {
-	return $b ? $a / $b : 0;
+    return $b ? $a / $b : 0;
 }
 function strdiv($a, $b) {
 return strize('div', $a, $b);
@@ -2309,7 +2309,7 @@ 
  * @return int ($nb % $mod) + $add
  **/
 function modulo($nb, $mod, $add = 0) {
-	return ($mod ? $nb % $mod : 0) + $add;
+    return ($mod ? $nb % $mod : 0) + $add;
 }
 
 
@@ -2324,24 +2324,24 @@ 
  *      - true sinon
  **/
 function nom_acceptable($nom) {
-	if (!is_string($nom)) {
-		return false;
-	}
-	if (!defined('_TAGS_NOM_AUTEUR')) {
-		define('_TAGS_NOM_AUTEUR', '');
-	}
-	$tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR));
-	foreach ($tags_acceptes as $tag) {
-		if (strlen($tag)) {
-			$remp1[] = '<' . trim($tag) . '>';
-			$remp1[] = '</' . trim($tag) . '>';
-			$remp2[] = '\x60' . trim($tag) . '\x61';
-			$remp2[] = '\x60/' . trim($tag) . '\x61';
-		}
-	}
-	$v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
+    if (!is_string($nom)) {
+        return false;
+    }
+    if (!defined('_TAGS_NOM_AUTEUR')) {
+        define('_TAGS_NOM_AUTEUR', '');
+    }
+    $tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR));
+    foreach ($tags_acceptes as $tag) {
+        if (strlen($tag)) {
+            $remp1[] = '<' . trim($tag) . '>';
+            $remp1[] = '</' . trim($tag) . '>';
+            $remp2[] = '\x60' . trim($tag) . '\x61';
+            $remp2[] = '\x60/' . trim($tag) . '\x61';
+        }
+    }
+    $v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
 
-	return str_replace('&lt;', '<', $v_nom) == $nom;
+    return str_replace('&lt;', '<', $v_nom) == $nom;
 }
 
 
@@ -2357,14 +2357,14 @@ 
  *      - renvoie un tableau si l'entree est un tableau
  **/
 function email_valide($adresses) {
-	if (is_array($adresses)) {
-		$adresses = array_map('email_valide', $adresses);
-		$adresses = array_filter($adresses);
-		return $adresses;
-	}
+    if (is_array($adresses)) {
+        $adresses = array_map('email_valide', $adresses);
+        $adresses = array_filter($adresses);
+        return $adresses;
+    }
 
-	$email_valide = charger_fonction('email_valide', 'inc');
-	return $email_valide($adresses);
+    $email_valide = charger_fonction('email_valide', 'inc');
+    return $email_valide($adresses);
 }
 
 /**
@@ -2378,27 +2378,27 @@ 
  * @return string Texte
  **/
 function afficher_enclosures($tags) {
-	$s = [];
-	foreach (extraire_balises($tags, 'a') as $tag) {
-		if (
-			extraire_attribut($tag, 'rel') == 'enclosure'
-			and $t = extraire_attribut($tag, 'href')
-		) {
-			$s[] = preg_replace(
-				',>[^<]+</a>,S',
-				'>'
-				. http_img_pack(
-					'attachment-16.png',
-					$t,
-					'title="' . attribut_html($t) . '"'
-				)
-				. '</a>',
-				$tag
-			);
-		}
-	}
-
-	return join('&nbsp;', $s);
+    $s = [];
+    foreach (extraire_balises($tags, 'a') as $tag) {
+        if (
+            extraire_attribut($tag, 'rel') == 'enclosure'
+            and $t = extraire_attribut($tag, 'href')
+        ) {
+            $s[] = preg_replace(
+                ',>[^<]+</a>,S',
+                '>'
+                . http_img_pack(
+                    'attachment-16.png',
+                    $t,
+                    'title="' . attribut_html($t) . '"'
+                )
+                . '</a>',
+                $tag
+            );
+        }
+    }
+
+    return join('&nbsp;', $s);
 }
 
 /**
@@ -2413,15 +2413,15 @@ 
  * @return string Liens trouvés
  **/
 function afficher_tags($tags, $rels = 'tag,directory') {
-	$s = [];
-	foreach (extraire_balises($tags, 'a') as $tag) {
-		$rel = extraire_attribut($tag, 'rel');
-		if (strstr(",$rels,", ",$rel,")) {
-			$s[] = $tag;
-		}
-	}
+    $s = [];
+    foreach (extraire_balises($tags, 'a') as $tag) {
+        $rel = extraire_attribut($tag, 'rel');
+        if (strstr(",$rels,", ",$rel,")) {
+            $s[] = $tag;
+        }
+    }
 
-	return join(', ', $s);
+    return join(', ', $s);
 }
 
 
@@ -2443,21 +2443,21 @@ 
  * @return string Tag HTML `<a>` avec microformat.
  **/
 function enclosure2microformat($e) {
-	if (!$url = filtrer_entites(extraire_attribut($e, 'url'))) {
-		$url = filtrer_entites(extraire_attribut($e, 'href'));
-	}
-	$type = extraire_attribut($e, 'type');
-	if (!$length = extraire_attribut($e, 'length')) {
-		# <media:content : longeur dans fileSize. On tente.
-		$length = extraire_attribut($e, 'fileSize');
-	}
-	$fichier = basename($url);
+    if (!$url = filtrer_entites(extraire_attribut($e, 'url'))) {
+        $url = filtrer_entites(extraire_attribut($e, 'href'));
+    }
+    $type = extraire_attribut($e, 'type');
+    if (!$length = extraire_attribut($e, 'length')) {
+        # <media:content : longeur dans fileSize. On tente.
+        $length = extraire_attribut($e, 'fileSize');
+    }
+    $fichier = basename($url);
 
-	return '<a rel="enclosure"'
-	. ($url ? ' href="' . spip_htmlspecialchars($url) . '"' : '')
-	. ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
-	. ($length ? ' title="' . spip_htmlspecialchars($length) . '"' : '')
-	. '>' . $fichier . '</a>';
+    return '<a rel="enclosure"'
+    . ($url ? ' href="' . spip_htmlspecialchars($url) . '"' : '')
+    . ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
+    . ($length ? ' title="' . spip_htmlspecialchars($length) . '"' : '')
+    . '>' . $fichier . '</a>';
 }
 
 /**
@@ -2475,24 +2475,24 @@ 
  * @return string Tags RSS `<enclosure>`.
  **/
 function microformat2enclosure($tags) {
-	$enclosures = [];
-	foreach (extraire_balises($tags, 'a') as $e) {
-		if (extraire_attribut($e, 'rel') == 'enclosure') {
-			$url = filtrer_entites(extraire_attribut($e, 'href'));
-			$type = extraire_attribut($e, 'type');
-			if (!$length = intval(extraire_attribut($e, 'title'))) {
-				$length = intval(extraire_attribut($e, 'length'));
-			} # vieux data
-			$fichier = basename($url);
-			$enclosures[] = '<enclosure'
-				. ($url ? ' url="' . spip_htmlspecialchars($url) . '"' : '')
-				. ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
-				. ($length ? ' length="' . $length . '"' : '')
-				. ' />';
-		}
-	}
+    $enclosures = [];
+    foreach (extraire_balises($tags, 'a') as $e) {
+        if (extraire_attribut($e, 'rel') == 'enclosure') {
+            $url = filtrer_entites(extraire_attribut($e, 'href'));
+            $type = extraire_attribut($e, 'type');
+            if (!$length = intval(extraire_attribut($e, 'title'))) {
+                $length = intval(extraire_attribut($e, 'length'));
+            } # vieux data
+            $fichier = basename($url);
+            $enclosures[] = '<enclosure'
+                . ($url ? ' url="' . spip_htmlspecialchars($url) . '"' : '')
+                . ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
+                . ($length ? ' length="' . $length . '"' : '')
+                . ' />';
+        }
+    }
 
-	return join("\n", $enclosures);
+    return join("\n", $enclosures);
 }
 
 
@@ -2508,16 +2508,16 @@ 
  * @return string Tags RSS Atom `<dc:subject>`.
  **/
 function tags2dcsubject($tags) {
-	$subjects = '';
-	foreach (extraire_balises($tags, 'a') as $e) {
-		if (extraire_attribut($e, 'rel') == 'tag') {
-			$subjects .= '<dc:subject>'
-				. texte_backend(textebrut($e))
-				. '</dc:subject>' . "\n";
-		}
-	}
+    $subjects = '';
+    foreach (extraire_balises($tags, 'a') as $e) {
+        if (extraire_attribut($e, 'rel') == 'tag') {
+            $subjects .= '<dc:subject>'
+                . texte_backend(textebrut($e))
+                . '</dc:subject>' . "\n";
+        }
+    }
 
-	return $subjects;
+    return $subjects;
 }
 
 /**
@@ -2546,27 +2546,27 @@ 
  *     - Tableau de résultats, si tableau en entrée.
  **/
 function extraire_balise($texte, $tag = 'a') {
-	if (is_array($texte)) {
-		array_walk(
-			$texte,
-			function (&$a, $key, $t) {
-				$a = extraire_balise($a, $t);
-			},
-			$tag
-		);
-
-		return $texte;
-	}
-
-	if (
-		preg_match(
-			",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
-			$texte,
-			$regs
-		)
-	) {
-		return $regs[0];
-	}
+    if (is_array($texte)) {
+        array_walk(
+            $texte,
+            function (&$a, $key, $t) {
+                $a = extraire_balise($a, $t);
+            },
+            $tag
+        );
+
+        return $texte;
+    }
+
+    if (
+        preg_match(
+            ",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
+            $texte,
+            $regs
+        )
+    ) {
+        return $regs[0];
+    }
 }
 
 /**
@@ -2594,30 +2594,30 @@ 
  *     - Tableau de résultats, si tableau en entrée.
  **/
 function extraire_balises($texte, $tag = 'a') {
-	if (is_array($texte)) {
-		array_walk(
-			$texte,
-			function (&$a, $key, $t) {
-				$a = extraire_balises($a, $t);
-			},
-			$tag
-		);
-
-		return $texte;
-	}
-
-	if (
-		preg_match_all(
-			",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
-			$texte,
-			$regs,
-			PREG_PATTERN_ORDER
-		)
-	) {
-		return $regs[0];
-	} else {
-		return [];
-	}
+    if (is_array($texte)) {
+        array_walk(
+            $texte,
+            function (&$a, $key, $t) {
+                $a = extraire_balises($a, $t);
+            },
+            $tag
+        );
+
+        return $texte;
+    }
+
+    if (
+        preg_match_all(
+            ",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
+            $texte,
+            $regs,
+            PREG_PATTERN_ORDER
+        )
+    ) {
+        return $regs[0];
+    } else {
+        return [];
+    }
 }
 
 /**
@@ -2646,11 +2646,11 @@ 
  *     - `$def` si on n'a pas transmis de tableau
  **/
 function in_any($val, $vals, $def = '') {
-	if (!is_array($vals) and $v = unserialize($vals)) {
-		$vals = $v;
-	}
+    if (!is_array($vals) and $v = unserialize($vals)) {
+        $vals = $v;
+    }
 
-	return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : ''));
+    return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : ''));
 }
 
 
@@ -2671,12 +2671,12 @@ 
  *     Résultat du calcul
  **/
 function valeur_numerique($expr) {
-	$a = 0;
-	if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr))) {
-		eval("\$a = $expr;");
-	}
+    $a = 0;
+    if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr))) {
+        eval("\$a = $expr;");
+    }
 
-	return intval($a);
+    return intval($a);
 }
 
 /**
@@ -2695,7 +2695,7 @@ 
  *      Retourne `$a*$b/$c`
  **/
 function regledetrois($a, $b, $c) {
-	return round($a * $b / $c);
+    return round($a * $b / $c);
 }
 
 
@@ -2719,77 +2719,77 @@ 
  **/
 function form_hidden($action) {
 
-	$contexte = [];
-	include_spip('inc/urls');
-	if (
-		$p = urls_decoder_url($action, '')
-		and reset($p)
-	) {
-		$fond = array_shift($p);
-		if ($fond != '404') {
-			$contexte = array_shift($p);
-			$contexte['page'] = $fond;
-			$action = preg_replace('/([?]' . preg_quote($fond) . '[^&=]*[0-9]+)(&|$)/', '?&', $action);
-		}
-	}
-	// defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url
-	if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
-		unset($contexte['type']);
-	}
-	if (!defined('_DEFINIR_CONTEXTE_TYPE_PAGE') or _DEFINIR_CONTEXTE_TYPE_PAGE) {
-		unset($contexte['type-page']);
-	}
-
-	// on va remplir un tableau de valeurs en prenant bien soin de ne pas
-	// ecraser les elements de la forme mots[]=1&mots[]=2
-	$values = [];
-
-	// d'abord avec celles de l'url
-	if (false !== ($p = strpos($action, '?'))) {
-		foreach (preg_split('/&(amp;)?/S', substr($action, $p + 1)) as $c) {
-			$c = explode('=', $c, 2);
-			$var = array_shift($c);
-			$val = array_shift($c);
-			if ($var) {
-				$val = rawurldecode($val);
-				$var = rawurldecode($var); // decoder les [] eventuels
-				if (preg_match(',\[\]$,S', $var)) {
-					$values[] = [$var, $val];
-				} else {
-					if (!isset($values[$var])) {
-						$values[$var] = [$var, $val];
-					}
-				}
-			}
-		}
-	}
-
-	// ensuite avec celles du contexte, sans doublonner !
-	foreach ($contexte as $var => $val) {
-		if (preg_match(',\[\]$,S', $var)) {
-			$values[] = [$var, $val];
-		} else {
-			if (!isset($values[$var])) {
-				$values[$var] = [$var, $val];
-			}
-		}
-	}
-
-	// puis on rassemble le tout
-	$hidden = [];
-	foreach ($values as $value) {
-		list($var, $val) = $value;
-		$hidden[] = '<input name="'
-			. entites_html($var)
-			. '"'
-			. (is_null($val)
-				? ''
-				: ' value="' . entites_html($val) . '"'
-			)
-			. ' type="hidden"' . "\n/>";
-	}
-
-	return join('', $hidden);
+    $contexte = [];
+    include_spip('inc/urls');
+    if (
+        $p = urls_decoder_url($action, '')
+        and reset($p)
+    ) {
+        $fond = array_shift($p);
+        if ($fond != '404') {
+            $contexte = array_shift($p);
+            $contexte['page'] = $fond;
+            $action = preg_replace('/([?]' . preg_quote($fond) . '[^&=]*[0-9]+)(&|$)/', '?&', $action);
+        }
+    }
+    // defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url
+    if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
+        unset($contexte['type']);
+    }
+    if (!defined('_DEFINIR_CONTEXTE_TYPE_PAGE') or _DEFINIR_CONTEXTE_TYPE_PAGE) {
+        unset($contexte['type-page']);
+    }
+
+    // on va remplir un tableau de valeurs en prenant bien soin de ne pas
+    // ecraser les elements de la forme mots[]=1&mots[]=2
+    $values = [];
+
+    // d'abord avec celles de l'url
+    if (false !== ($p = strpos($action, '?'))) {
+        foreach (preg_split('/&(amp;)?/S', substr($action, $p + 1)) as $c) {
+            $c = explode('=', $c, 2);
+            $var = array_shift($c);
+            $val = array_shift($c);
+            if ($var) {
+                $val = rawurldecode($val);
+                $var = rawurldecode($var); // decoder les [] eventuels
+                if (preg_match(',\[\]$,S', $var)) {
+                    $values[] = [$var, $val];
+                } else {
+                    if (!isset($values[$var])) {
+                        $values[$var] = [$var, $val];
+                    }
+                }
+            }
+        }
+    }
+
+    // ensuite avec celles du contexte, sans doublonner !
+    foreach ($contexte as $var => $val) {
+        if (preg_match(',\[\]$,S', $var)) {
+            $values[] = [$var, $val];
+        } else {
+            if (!isset($values[$var])) {
+                $values[$var] = [$var, $val];
+            }
+        }
+    }
+
+    // puis on rassemble le tout
+    $hidden = [];
+    foreach ($values as $value) {
+        list($var, $val) = $value;
+        $hidden[] = '<input name="'
+            . entites_html($var)
+            . '"'
+            . (is_null($val)
+                ? ''
+                : ' value="' . entites_html($val) . '"'
+            )
+            . ' type="hidden"' . "\n/>";
+    }
+
+    return join('', $hidden);
 }
 
 
@@ -2811,7 +2811,7 @@ 
  *    - la première valeur du tableau sinon.
  **/
 function filtre_reset($array) {
-	return !is_array($array) ? null : reset($array);
+    return !is_array($array) ? null : reset($array);
 }
 
 /**
@@ -2832,7 +2832,7 @@ 
  *    - la dernière valeur du tableau sinon.
  **/
 function filtre_end($array) {
-	return !is_array($array) ? null : end($array);
+    return !is_array($array) ? null : end($array);
 }
 
 /**
@@ -2852,11 +2852,11 @@ 
  *
  **/
 function filtre_push($array, $val) {
-	if (!is_array($array) or !array_push($array, $val)) {
-		return '';
-	}
+    if (!is_array($array) or !array_push($array, $val)) {
+        return '';
+    }
 
-	return $array;
+    return $array;
 }
 
 /**
@@ -2875,7 +2875,7 @@ 
  *     - `true` si la valeur existe dans le tableau, `false` sinon.
  **/
 function filtre_find($array, $val) {
-	return (is_array($array) and in_array($val, $array));
+    return (is_array($array) and in_array($val, $array));
 }
 
 
@@ -2892,15 +2892,15 @@ 
  *     Contenu avec urls en absolus
  **/
 function urls_absolues_css($contenu, $source) {
-	$path = suivre_lien(url_absolue($source), './');
+    $path = suivre_lien(url_absolue($source), './');
 
-	return preg_replace_callback(
-		",url\s*\(\s*['\"]?([^'\"/#\s][^:]*)['\"]?\s*\),Uims",
-		function ($x) use ($path) {
-			return "url('" . suivre_lien($path, $x[1]) . "')";
-		},
-		$contenu
-	);
+    return preg_replace_callback(
+        ",url\s*\(\s*['\"]?([^'\"/#\s][^:]*)['\"]?\s*\),Uims",
+        function ($x) use ($path) {
+            return "url('" . suivre_lien($path, $x[1]) . "')";
+        },
+        $contenu
+    );
 }
 
 
@@ -2929,119 +2929,119 @@ 
  *     Chemin du fichier CSS inversé
  **/
 function direction_css($css, $voulue = '') {
-	if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) {
-		return $css;
-	}
-	include_spip('inc/lang');
-	// si on a precise le sens voulu en argument, le prendre en compte
-	if ($voulue = strtolower($voulue)) {
-		if ($voulue != 'rtl' and $voulue != 'ltr') {
-			$voulue = lang_dir($voulue);
-		}
-	} else {
-		$voulue = lang_dir();
-	}
-
-	$r = count($r) > 1;
-	$right = $r ? 'left' : 'right'; // 'right' de la css lue en entree
-	$dir = $r ? 'rtl' : 'ltr';
-	$ndir = $r ? 'ltr' : 'rtl';
-
-	if ($voulue == $dir) {
-		return $css;
-	}
-
-	if (
-		// url absolue
-		preg_match(',^https?:,i', $css)
-		// ou qui contient un ?
-		or (($p = strpos($css, '?')) !== false)
-	) {
-		$distant = true;
-		$cssf = parse_url($css);
-		$cssf = $cssf['path'] . ($cssf['query'] ? '?' . $cssf['query'] : '');
-		$cssf = preg_replace(',[?:&=],', '_', $cssf);
-	} else {
-		$distant = false;
-		$cssf = $css;
-		// 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
-		//propose (rien a faire dans ce cas)
-		$f = preg_replace(',(_rtl)?\.css$,i', '_' . $ndir . '.css', $css);
-		if (@file_exists($f)) {
-			return $f;
-		}
-	}
-
-	// 2.
-	$dir_var = sous_repertoire(_DIR_VAR, 'cache-css');
-	$f = $dir_var
-		. preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
-		. '.' . substr(md5($cssf), 0, 4) . '_' . $ndir . '.css';
-
-	// la css peut etre distante (url absolue !)
-	if ($distant) {
-		include_spip('inc/distant');
-		$res = recuperer_url($css);
-		if (!$res or !$contenu = $res['page']) {
-			return $css;
-		}
-	} else {
-		if (
-			(@filemtime($f) > @filemtime($css))
-			and (_VAR_MODE != 'recalcul')
-		) {
-			return $f;
-		}
-		if (!lire_fichier($css, $contenu)) {
-			return $css;
-		}
-	}
-
-
-	// Inverser la direction gauche-droite en utilisant CSSTidy qui gere aussi les shorthands
-	include_spip('lib/csstidy/class.csstidy');
-	$parser = new csstidy();
-	$parser->set_cfg('optimise_shorthands', 0);
-	$parser->set_cfg('reverse_left_and_right', true);
-	$parser->parse($contenu);
-
-	$contenu = $parser->print->plain();
-
-
-	// reperer les @import auxquels il faut propager le direction_css
-	preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims", $contenu, $regs);
-	$src = [];
-	$src_direction_css = [];
-	$src_faux_abs = [];
-	$d = dirname($css);
-	foreach ($regs[1] as $k => $import_css) {
-		$css_direction = direction_css("$d/$import_css", $voulue);
-		// si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
-		if (substr($css_direction, 0, strlen($d) + 1) == "$d/") {
-			$css_direction = substr($css_direction, strlen($d) + 1);
-		} // si la css_direction commence par $dir_var on la fait passer pour une absolue
-		elseif (substr($css_direction, 0, strlen($dir_var)) == $dir_var) {
-			$css_direction = substr($css_direction, strlen($dir_var));
-			$src_faux_abs['/@@@@@@/' . $css_direction] = $css_direction;
-			$css_direction = '/@@@@@@/' . $css_direction;
-		}
-		$src[] = $regs[0][$k];
-		$src_direction_css[] = str_replace($import_css, $css_direction, $regs[0][$k]);
-	}
-	$contenu = str_replace($src, $src_direction_css, $contenu);
-
-	$contenu = urls_absolues_css($contenu, $css);
-
-	// virer les fausses url absolues que l'on a mis dans les import
-	if (count($src_faux_abs)) {
-		$contenu = str_replace(array_keys($src_faux_abs), $src_faux_abs, $contenu);
-	}
-
-	if (!ecrire_fichier($f, $contenu)) {
-		return $css;
-	}
-
-	return $f;
+    if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) {
+        return $css;
+    }
+    include_spip('inc/lang');
+    // si on a precise le sens voulu en argument, le prendre en compte
+    if ($voulue = strtolower($voulue)) {
+        if ($voulue != 'rtl' and $voulue != 'ltr') {
+            $voulue = lang_dir($voulue);
+        }
+    } else {
+        $voulue = lang_dir();
+    }
+
+    $r = count($r) > 1;
+    $right = $r ? 'left' : 'right'; // 'right' de la css lue en entree
+    $dir = $r ? 'rtl' : 'ltr';
+    $ndir = $r ? 'ltr' : 'rtl';
+
+    if ($voulue == $dir) {
+        return $css;
+    }
+
+    if (
+        // url absolue
+        preg_match(',^https?:,i', $css)
+        // ou qui contient un ?
+        or (($p = strpos($css, '?')) !== false)
+    ) {
+        $distant = true;
+        $cssf = parse_url($css);
+        $cssf = $cssf['path'] . ($cssf['query'] ? '?' . $cssf['query'] : '');
+        $cssf = preg_replace(',[?:&=],', '_', $cssf);
+    } else {
+        $distant = false;
+        $cssf = $css;
+        // 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
+        //propose (rien a faire dans ce cas)
+        $f = preg_replace(',(_rtl)?\.css$,i', '_' . $ndir . '.css', $css);
+        if (@file_exists($f)) {
+            return $f;
+        }
+    }
+
+    // 2.
+    $dir_var = sous_repertoire(_DIR_VAR, 'cache-css');
+    $f = $dir_var
+        . preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
+        . '.' . substr(md5($cssf), 0, 4) . '_' . $ndir . '.css';
+
+    // la css peut etre distante (url absolue !)
+    if ($distant) {
+        include_spip('inc/distant');
+        $res = recuperer_url($css);
+        if (!$res or !$contenu = $res['page']) {
+            return $css;
+        }
+    } else {
+        if (
+            (@filemtime($f) > @filemtime($css))
+            and (_VAR_MODE != 'recalcul')
+        ) {
+            return $f;
+        }
+        if (!lire_fichier($css, $contenu)) {
+            return $css;
+        }
+    }
+
+
+    // Inverser la direction gauche-droite en utilisant CSSTidy qui gere aussi les shorthands
+    include_spip('lib/csstidy/class.csstidy');
+    $parser = new csstidy();
+    $parser->set_cfg('optimise_shorthands', 0);
+    $parser->set_cfg('reverse_left_and_right', true);
+    $parser->parse($contenu);
+
+    $contenu = $parser->print->plain();
+
+
+    // reperer les @import auxquels il faut propager le direction_css
+    preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims", $contenu, $regs);
+    $src = [];
+    $src_direction_css = [];
+    $src_faux_abs = [];
+    $d = dirname($css);
+    foreach ($regs[1] as $k => $import_css) {
+        $css_direction = direction_css("$d/$import_css", $voulue);
+        // si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
+        if (substr($css_direction, 0, strlen($d) + 1) == "$d/") {
+            $css_direction = substr($css_direction, strlen($d) + 1);
+        } // si la css_direction commence par $dir_var on la fait passer pour une absolue
+        elseif (substr($css_direction, 0, strlen($dir_var)) == $dir_var) {
+            $css_direction = substr($css_direction, strlen($dir_var));
+            $src_faux_abs['/@@@@@@/' . $css_direction] = $css_direction;
+            $css_direction = '/@@@@@@/' . $css_direction;
+        }
+        $src[] = $regs[0][$k];
+        $src_direction_css[] = str_replace($import_css, $css_direction, $regs[0][$k]);
+    }
+    $contenu = str_replace($src, $src_direction_css, $contenu);
+
+    $contenu = urls_absolues_css($contenu, $css);
+
+    // virer les fausses url absolues que l'on a mis dans les import
+    if (count($src_faux_abs)) {
+        $contenu = str_replace(array_keys($src_faux_abs), $src_faux_abs, $contenu);
+    }
+
+    if (!ecrire_fichier($f, $contenu)) {
+        return $css;
+    }
+
+    return $f;
 }
 
 
@@ -3064,46 +3064,46 @@ 
  *     - Chemin ou URL du fichier CSS source sinon.
  **/
 function url_absolue_css($css) {
-	if (!preg_match(',\.css$,i', $css, $r)) {
-		return $css;
-	}
+    if (!preg_match(',\.css$,i', $css, $r)) {
+        return $css;
+    }
 
-	$url_absolue_css = url_absolue($css);
+    $url_absolue_css = url_absolue($css);
 
-	$f = basename($css, '.css');
-	$f = sous_repertoire(_DIR_VAR, 'cache-css')
-		. preg_replace(',(.*?)(_rtl|_ltr)?$,', "\\1-urlabs-" . substr(md5("$css-urlabs"), 0, 4) . "\\2", $f)
-		. '.css';
+    $f = basename($css, '.css');
+    $f = sous_repertoire(_DIR_VAR, 'cache-css')
+        . preg_replace(',(.*?)(_rtl|_ltr)?$,', "\\1-urlabs-" . substr(md5("$css-urlabs"), 0, 4) . "\\2", $f)
+        . '.css';
 
-	if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul')) {
-		return $f;
-	}
+    if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul')) {
+        return $f;
+    }
 
-	if ($url_absolue_css == $css) {
-		if (
-			strncmp($GLOBALS['meta']['adresse_site'], $css, $l = strlen($GLOBALS['meta']['adresse_site'])) != 0
-			or !lire_fichier(_DIR_RACINE . substr($css, $l), $contenu)
-		) {
-			include_spip('inc/distant');
-			$contenu = recuperer_url($css);
-			$contenu = $contenu['page'] ?? '';
-			if (!$contenu) {
-				return $css;
-			}
-		}
-	} elseif (!lire_fichier($css, $contenu)) {
-		return $css;
-	}
+    if ($url_absolue_css == $css) {
+        if (
+            strncmp($GLOBALS['meta']['adresse_site'], $css, $l = strlen($GLOBALS['meta']['adresse_site'])) != 0
+            or !lire_fichier(_DIR_RACINE . substr($css, $l), $contenu)
+        ) {
+            include_spip('inc/distant');
+            $contenu = recuperer_url($css);
+            $contenu = $contenu['page'] ?? '';
+            if (!$contenu) {
+                return $css;
+            }
+        }
+    } elseif (!lire_fichier($css, $contenu)) {
+        return $css;
+    }
 
-	// passer les url relatives a la css d'origine en url absolues
-	$contenu = urls_absolues_css($contenu, $css);
+    // passer les url relatives a la css d'origine en url absolues
+    $contenu = urls_absolues_css($contenu, $css);
 
-	// ecrire la css
-	if (!ecrire_fichier($f, $contenu)) {
-		return $css;
-	}
+    // ecrire la css
+    if (!ecrire_fichier($f, $contenu)) {
+        return $css;
+    }
 
-	return $f;
+    return $f;
 }
 
 
@@ -3137,24 +3137,24 @@ 
  *     Valeur trouvée ou valeur par défaut.
  **/
 function table_valeur($table, $cle, $defaut = '', $conserver_null = false) {
-	foreach (explode('/', $cle) as $k) {
-		$table = (is_string($table) ? @unserialize($table) : $table);
+    foreach (explode('/', $cle) as $k) {
+        $table = (is_string($table) ? @unserialize($table) : $table);
 
-		if (is_object($table)) {
-			$table = (($k !== '') and isset($table->$k)) ? $table->$k : $defaut;
-		} elseif (is_array($table)) {
-			if ($conserver_null) {
-				$table = array_key_exists($k, $table) ? $table[$k] : $defaut;
-			} else {
-				$table = ($table[$k] ?? $defaut);
-			}
-		} else {
-			$table = $defaut;
-			break;
-		}
-	}
+        if (is_object($table)) {
+            $table = (($k !== '') and isset($table->$k)) ? $table->$k : $defaut;
+        } elseif (is_array($table)) {
+            if ($conserver_null) {
+                $table = array_key_exists($k, $table) ? $table[$k] : $defaut;
+            } else {
+                $table = ($table[$k] ?? $defaut);
+            }
+        } else {
+            $table = $defaut;
+            break;
+        }
+    }
 
-	return $table;
+    return $table;
 }
 
 /**
@@ -3187,22 +3187,22 @@ 
  *     - string : expression trouvée.
  **/
 function filtre_match_dist($texte, $expression, $modif = 'UimsS', $capte = 0) {
-	if (intval($modif) and $capte == 0) {
-		$capte = $modif;
-		$modif = 'UimsS';
-	}
-	$expression = str_replace('\/', '/', $expression);
-	$expression = str_replace('/', '\/', $expression);
+    if (intval($modif) and $capte == 0) {
+        $capte = $modif;
+        $modif = 'UimsS';
+    }
+    $expression = str_replace('\/', '/', $expression);
+    $expression = str_replace('/', '\/', $expression);
 
-	if (preg_match('/' . $expression . '/' . $modif, $texte, $r)) {
-		if (isset($r[$capte])) {
-			return $r[$capte];
-		} else {
-			return true;
-		}
-	}
+    if (preg_match('/' . $expression . '/' . $modif, $texte, $r)) {
+        if (isset($r[$capte])) {
+            return $r[$capte];
+        } else {
+            return true;
+        }
+    }
 
-	return false;
+    return false;
 }
 
 
@@ -3229,10 +3229,10 @@ 
  *     Texte
  **/
 function replace($texte, $expression, $replace = '', $modif = 'UimsS') {
-	$expression = str_replace('\/', '/', $expression);
-	$expression = str_replace('/', '\/', $expression);
+    $expression = str_replace('\/', '/', $expression);
+    $expression = str_replace('/', '\/', $expression);
 
-	return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
+    return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
 }
 
 
@@ -3250,25 +3250,25 @@ 
  **/
 function traiter_doublons_documents(&$doublons, $letexte) {
 
-	// Verifier dans le texte & les notes (pas beau, helas)
-	$t = $letexte . $GLOBALS['les_notes'];
+    // Verifier dans le texte & les notes (pas beau, helas)
+    $t = $letexte . $GLOBALS['les_notes'];
 
-	if (
-		strstr($t, 'spip_document_') // evite le preg_match_all si inutile
-		and preg_match_all(
-			',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
-			$t,
-			$matches,
-			PREG_PATTERN_ORDER
-		)
-	) {
-		if (!isset($doublons['documents'])) {
-			$doublons['documents'] = '';
-		}
-		$doublons['documents'] .= ',' . join(',', $matches[1]);
-	}
+    if (
+        strstr($t, 'spip_document_') // evite le preg_match_all si inutile
+        and preg_match_all(
+            ',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
+            $t,
+            $matches,
+            PREG_PATTERN_ORDER
+        )
+    ) {
+        if (!isset($doublons['documents'])) {
+            $doublons['documents'] = '';
+        }
+        $doublons['documents'] .= ',' . join(',', $matches[1]);
+    }
 
-	return $letexte;
+    return $letexte;
 }
 
 /**
@@ -3282,7 +3282,7 @@ 
  * @return string Chaîne vide
  **/
 function vide($texte) {
-	return '';
+    return '';
 }
 
 //
@@ -3311,23 +3311,23 @@ 
  *      Code HTML résultant
  **/
 function env_to_params($env, $ignore_params = []) {
-	$ignore_params = array_merge(
-		['id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'],
-		$ignore_params
-	);
-	if (!is_array($env)) {
-		$env = unserialize($env);
-	}
-	$texte = '';
-	if ($env) {
-		foreach ($env as $i => $j) {
-			if (is_string($j) and !in_array($i, $ignore_params)) {
-				$texte .= "<param name='" . attribut_html($i) . "'\n\tvalue='" . attribut_html($j) . "' />";
-			}
-		}
-	}
-
-	return $texte;
+    $ignore_params = array_merge(
+        ['id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'],
+        $ignore_params
+    );
+    if (!is_array($env)) {
+        $env = unserialize($env);
+    }
+    $texte = '';
+    if ($env) {
+        foreach ($env as $i => $j) {
+            if (is_string($j) and !in_array($i, $ignore_params)) {
+                $texte .= "<param name='" . attribut_html($i) . "'\n\tvalue='" . attribut_html($j) . "' />";
+            }
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -3350,23 +3350,23 @@ 
  *      Code HTML résultant
  **/
 function env_to_attributs($env, $ignore_params = []) {
-	$ignore_params = array_merge(
-		['id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'],
-		$ignore_params
-	);
-	if (!is_array($env)) {
-		$env = unserialize($env);
-	}
-	$texte = '';
-	if ($env) {
-		foreach ($env as $i => $j) {
-			if (is_string($j) and !in_array($i, $ignore_params)) {
-				$texte .= attribut_html($i) . "='" . attribut_html($j) . "' ";
-			}
-		}
-	}
+    $ignore_params = array_merge(
+        ['id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'],
+        $ignore_params
+    );
+    if (!is_array($env)) {
+        $env = unserialize($env);
+    }
+    $texte = '';
+    if ($env) {
+        foreach ($env as $i => $j) {
+            if (is_string($j) and !in_array($i, $ignore_params)) {
+                $texte .= attribut_html($i) . "='" . attribut_html($j) . "' ";
+            }
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -3384,7 +3384,7 @@ 
  * @return string Chaînes concaténés
  **/
 function concat(...$args): string {
-	return join('', $args);
+    return join('', $args);
 }
 
 
@@ -3404,23 +3404,23 @@ 
  *     Contenu du ou des fichiers, concaténé
  **/
 function charge_scripts($files, $script = true) {
-	$flux = '';
-	foreach (is_array($files) ? $files : explode('|', $files) as $file) {
-		if (!is_string($file)) {
-			continue;
-		}
-		if ($script) {
-			$file = preg_match(',^\w+$,', $file) ? "javascript/$file.js" : '';
-		}
-		if ($file) {
-			$path = find_in_path($file);
-			if ($path) {
-				$flux .= spip_file_get_contents($path);
-			}
-		}
-	}
-
-	return $flux;
+    $flux = '';
+    foreach (is_array($files) ? $files : explode('|', $files) as $file) {
+        if (!is_string($file)) {
+            continue;
+        }
+        if ($script) {
+            $file = preg_match(',^\w+$,', $file) ? "javascript/$file.js" : '';
+        }
+        if ($file) {
+            $path = find_in_path($file);
+            if ($path) {
+                $flux .= spip_file_get_contents($path);
+            }
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -3431,22 +3431,22 @@ 
  * @return string
  */
 function http_img_variante_svg_si_possible($img_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)$,', $img_file, $m)
-		and $variante_svg_generique = substr($img_file, 0, -strlen($m[0])) . '-xx.svg'
-		and file_exists($variante_svg_generique)
-	) {
-		if ($variante_svg_size = substr($variante_svg_generique, 0, -6) . $m[1] . '.svg' and file_exists($variante_svg_size)) {
-			$img_file = $variante_svg_size;
-		}
-		else {
-			$img_file = $variante_svg_generique;
-		}
-	}
+    // 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)$,', $img_file, $m)
+        and $variante_svg_generique = substr($img_file, 0, -strlen($m[0])) . '-xx.svg'
+        and file_exists($variante_svg_generique)
+    ) {
+        if ($variante_svg_size = substr($variante_svg_generique, 0, -6) . $m[1] . '.svg' and file_exists($variante_svg_size)) {
+            $img_file = $variante_svg_size;
+        }
+        else {
+            $img_file = $variante_svg_generique;
+        }
+    }
 
-	return $img_file;
+    return $img_file;
 }
 
 /**
@@ -3467,54 +3467,54 @@ 
  */
 function http_img_pack($img, $alt, $atts = '', $title = '', $options = []) {
 
-	$img_file = $img;
-	if ($p = strpos($img_file, '?')) {
-		$img_file = substr($img_file, 0, $p);
-	}
-	if (!isset($options['chemin_image']) or $options['chemin_image'] == true) {
-		$img_file = chemin_image($img);
-	}
-	else {
-		if (!isset($options['variante_svg_si_possible']) or $options['variante_svg_si_possible'] == true) {
-			$img_file = http_img_variante_svg_si_possible($img_file);
-		}
-	}
-	if (stripos($atts, 'width') === false) {
-		// utiliser directement l'info de taille presente dans le nom
-		if (
-			(!isset($options['utiliser_suffixe_size'])
-				or $options['utiliser_suffixe_size'] == true
-			  or strpos($img_file, '-xx.svg') !== false)
-			and (preg_match(',-([0-9]+)[.](png|gif|svg)$,', $img, $regs)
-					 or preg_match(',\?([0-9]+)px$,', $img, $regs))
-		) {
-			$largeur = $hauteur = intval($regs[1]);
-		} else {
-			$taille = taille_image($img_file);
-			list($hauteur, $largeur) = $taille;
-			if (!$hauteur or !$largeur) {
-				return '';
-			}
-		}
-		$atts .= " width='" . $largeur . "' height='" . $hauteur . "'";
-	}
-
-	if (file_exists($img_file)) {
-		$img_file = timestamp($img_file);
-	}
-	if ($alt === false) {
-		$alt = '';
-	}
-	elseif ($alt or $alt === '') {
-		$alt = " alt='" . attribut_html($alt) . "'";
-	}
-	else {
-		$alt = " alt='" . attribut_html($title) . "'";
-	}
-	return "<img src='$img_file'$alt"
-	. ($title ? ' title="' . attribut_html($title) . '"' : '')
-	. ' ' . ltrim($atts)
-	. ' />';
+    $img_file = $img;
+    if ($p = strpos($img_file, '?')) {
+        $img_file = substr($img_file, 0, $p);
+    }
+    if (!isset($options['chemin_image']) or $options['chemin_image'] == true) {
+        $img_file = chemin_image($img);
+    }
+    else {
+        if (!isset($options['variante_svg_si_possible']) or $options['variante_svg_si_possible'] == true) {
+            $img_file = http_img_variante_svg_si_possible($img_file);
+        }
+    }
+    if (stripos($atts, 'width') === false) {
+        // utiliser directement l'info de taille presente dans le nom
+        if (
+            (!isset($options['utiliser_suffixe_size'])
+                or $options['utiliser_suffixe_size'] == true
+              or strpos($img_file, '-xx.svg') !== false)
+            and (preg_match(',-([0-9]+)[.](png|gif|svg)$,', $img, $regs)
+                     or preg_match(',\?([0-9]+)px$,', $img, $regs))
+        ) {
+            $largeur = $hauteur = intval($regs[1]);
+        } else {
+            $taille = taille_image($img_file);
+            list($hauteur, $largeur) = $taille;
+            if (!$hauteur or !$largeur) {
+                return '';
+            }
+        }
+        $atts .= " width='" . $largeur . "' height='" . $hauteur . "'";
+    }
+
+    if (file_exists($img_file)) {
+        $img_file = timestamp($img_file);
+    }
+    if ($alt === false) {
+        $alt = '';
+    }
+    elseif ($alt or $alt === '') {
+        $alt = " alt='" . attribut_html($alt) . "'";
+    }
+    else {
+        $alt = " alt='" . attribut_html($title) . "'";
+    }
+    return "<img src='$img_file'$alt"
+    . ($title ? ' title="' . attribut_html($title) . '"' : '')
+    . ' ' . ltrim($atts)
+    . ' />';
 }
 
 /**
@@ -3526,70 +3526,70 @@ 
  * @return string
  */
 function http_style_background($img, $att = '', $size = null) {
-	if ($size and is_numeric($size)) {
-		$size = trim($size) . 'px';
-	}
-	return " style='background" .
-		($att ? '' : '-image') . ': url("' . chemin_image($img) . '")' . ($att ? (' ' . $att) : '') . ';'
-		. ($size ? "background-size:{$size};" : '')
-		. "'";
+    if ($size and is_numeric($size)) {
+        $size = trim($size) . 'px';
+    }
+    return " style='background" .
+        ($att ? '' : '-image') . ': url("' . chemin_image($img) . '")' . ($att ? (' ' . $att) : '') . ';'
+        . ($size ? "background-size:{$size};" : '')
+        . "'";
 }
 
 
 function helper_filtre_balise_img_svg_arguments($alt_or_size, $class_or_size, $size) {
-	$args = [$alt_or_size, $class_or_size, $size];
-	while (is_null(end($args)) and count($args)) {
-		array_pop($args);
-	}
-	if (!count($args)) {
-		return [null, null, null];
-	}
-	if (count($args) < 3) {
-		$maybe_size = array_pop($args);
-		// @2x
-		// @1.5x
-		// 512
-		// 512x*
-		// 512x300
-		if (
-			!strlen($maybe_size)
-			or !preg_match(',^(@\d+(\.\d+)?x|\d+(x\*)?|\d+x\d+)$,', trim($maybe_size))
-		) {
-			$args[] = $maybe_size;
-			$maybe_size = null;
-		}
-		while (count($args) < 2) {
-			$args[] = null; // default alt or class
-		}
-		$args[] = $maybe_size;
-	}
-	return $args;
+    $args = [$alt_or_size, $class_or_size, $size];
+    while (is_null(end($args)) and count($args)) {
+        array_pop($args);
+    }
+    if (!count($args)) {
+        return [null, null, null];
+    }
+    if (count($args) < 3) {
+        $maybe_size = array_pop($args);
+        // @2x
+        // @1.5x
+        // 512
+        // 512x*
+        // 512x300
+        if (
+            !strlen($maybe_size)
+            or !preg_match(',^(@\d+(\.\d+)?x|\d+(x\*)?|\d+x\d+)$,', trim($maybe_size))
+        ) {
+            $args[] = $maybe_size;
+            $maybe_size = null;
+        }
+        while (count($args) < 2) {
+            $args[] = null; // default alt or class
+        }
+        $args[] = $maybe_size;
+    }
+    return $args;
 }
 
 function helper_filtre_balise_img_svg_size($img, $size) {
-	// si size est de la forme '@2x' c'est un coeff multiplicateur sur la densite
-	if (strpos($size, '@') === 0 and substr($size, -1) === 'x') {
-		$coef = floatval(substr($size, 1, -1));
-		list($h, $w) = taille_image($img);
-		$height = intval(round($h / $coef));
-		$width = intval(round($w / $coef));
-	}
-	// sinon c'est une valeur seule si image caree ou largeurxhauteur
-	else {
-		$size = explode('x', $size, 2);
-		$size = array_map('trim', $size);
-		$height = $width = intval(array_shift($size));
-
-		if (count($size) and reset($size)) {
-			$height = array_shift($size);
-			if ($height === '*') {
-				list($h, $w) = taille_image($img);
-				$height = intval(round($h * $width / $w));
-			}
-		}
-	}
-
-	return [$width, $height];
+    // si size est de la forme '@2x' c'est un coeff multiplicateur sur la densite
+    if (strpos($size, '@') === 0 and substr($size, -1) === 'x') {
+        $coef = floatval(substr($size, 1, -1));
+        list($h, $w) = taille_image($img);
+        $height = intval(round($h / $coef));
+        $width = intval(round($w / $coef));
+    }
+    // sinon c'est une valeur seule si image caree ou largeurxhauteur
+    else {
+        $size = explode('x', $size, 2);
+        $size = array_map('trim', $size);
+        $height = $width = intval(array_shift($size));
+
+        if (count($size) and reset($size)) {
+            $height = array_shift($size);
+            if ($height === '*') {
+                list($h, $w) = taille_image($img);
+                $height = intval(round($h * $width / $w));
+            }
+        }
+    }
+
+    return [$width, $height];
 }
 
 /**
@@ -3625,43 +3625,43 @@ 
  */
 function filtre_balise_img_dist($img, $alt = '', $class = null, $size = null) {
 
-	list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
-
-	$img = trim($img);
-	if (strpos($img, '<img') === 0) {
-		if (!is_null($alt)) {
-			$img = inserer_attribut($img, 'alt', $alt);
-		}
-		if (!is_null($class)) {
-			if (strlen($class)) {
-				$img = inserer_attribut($img, 'class', $class);
-			}
-			else {
-				$img = vider_attribut($img, 'class');
-			}
-		}
-	}
-	else {
-		$img = http_img_pack(
-			$img,
-			$alt,
-			$class ? " class='" . attribut_html($class) . "'" : '',
-			'',
-			['chemin_image' => false, 'utiliser_suffixe_size' => false]
-		);
-		if (is_null($alt)) {
-			$img = vider_attribut($img, 'alt');
-		}
-	}
-
-	if ($img and !is_null($size) and strlen($size = trim($size))) {
-		list($width, $height) = helper_filtre_balise_img_svg_size($img, $size);
-
-		$img = inserer_attribut($img, 'width', $width);
-		$img = inserer_attribut($img, 'height', $height);
-	}
-
-	return $img;
+    list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
+
+    $img = trim($img);
+    if (strpos($img, '<img') === 0) {
+        if (!is_null($alt)) {
+            $img = inserer_attribut($img, 'alt', $alt);
+        }
+        if (!is_null($class)) {
+            if (strlen($class)) {
+                $img = inserer_attribut($img, 'class', $class);
+            }
+            else {
+                $img = vider_attribut($img, 'class');
+            }
+        }
+    }
+    else {
+        $img = http_img_pack(
+            $img,
+            $alt,
+            $class ? " class='" . attribut_html($class) . "'" : '',
+            '',
+            ['chemin_image' => false, 'utiliser_suffixe_size' => false]
+        );
+        if (is_null($alt)) {
+            $img = vider_attribut($img, 'alt');
+        }
+    }
+
+    if ($img and !is_null($size) and strlen($size = trim($size))) {
+        list($width, $height) = helper_filtre_balise_img_svg_size($img, $size);
+
+        $img = inserer_attribut($img, 'width', $width);
+        $img = inserer_attribut($img, 'height', $height);
+    }
+
+    return $img;
 }
 
 
@@ -3695,67 +3695,67 @@ 
  */
 function filtre_balise_svg_dist($img, $alt = '', $class = null, $size = null) {
 
-	$img = trim($img);
-	$img_file = $img;
-	if (strpos($img, '<svg') === false) {
-		if ($p = strpos($img_file, '?')) {
-			$img_file = substr($img_file, 0, $p);
-		}
+    $img = trim($img);
+    $img_file = $img;
+    if (strpos($img, '<svg') === false) {
+        if ($p = strpos($img_file, '?')) {
+            $img_file = substr($img_file, 0, $p);
+        }
 
-		if (!$img_file or !$svg = file_get_contents($img_file)) {
-			return '';
-		}
-	}
+        if (!$img_file or !$svg = file_get_contents($img_file)) {
+            return '';
+        }
+    }
 
-	if (!preg_match(",<svg\b[^>]*>,UimsS", $svg, $match)) {
-		return '';
-	}
+    if (!preg_match(",<svg\b[^>]*>,UimsS", $svg, $match)) {
+        return '';
+    }
 
-	list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
+    list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
 
-	$balise_svg = $match[0];
-	$balise_svg_source = $balise_svg;
+    $balise_svg = $match[0];
+    $balise_svg_source = $balise_svg;
 
-	// entete XML à supprimer
-	$svg = preg_replace(',^\s*<\?xml[^>]*\?' . '>,', '', $svg);
+    // entete XML à supprimer
+    $svg = preg_replace(',^\s*<\?xml[^>]*\?' . '>,', '', $svg);
 
-	// IE est toujours mon ami
-	$balise_svg = inserer_attribut($balise_svg, 'focusable', 'false');
+    // IE est toujours mon ami
+    $balise_svg = inserer_attribut($balise_svg, 'focusable', 'false');
 
-	// regler la classe
-	if (!is_null($class)) {
-		if (strlen($class)) {
-			$balise_svg = inserer_attribut($balise_svg, 'class', $class);
-		}
-		else {
-			$balise_svg = vider_attribut($balise_svg, 'class');
-		}
-	}
+    // regler la classe
+    if (!is_null($class)) {
+        if (strlen($class)) {
+            $balise_svg = inserer_attribut($balise_svg, 'class', $class);
+        }
+        else {
+            $balise_svg = vider_attribut($balise_svg, 'class');
+        }
+    }
 
-	// regler le alt
-	if ($alt) {
-		$balise_svg = inserer_attribut($balise_svg, 'role', 'img');
-		$id = 'img-svg-title-' . substr(md5("$img_file:$svg:$alt"), 0, 4);
-		$balise_svg = inserer_attribut($balise_svg, 'aria-labelledby', $id);
-		$title = "<title id=\"$id\">" . entites_html($alt) . "</title>\n";
-		$balise_svg .= $title;
-	}
-	else {
-		$balise_svg = inserer_attribut($balise_svg, 'aria-hidden', 'true');
-	}
+    // regler le alt
+    if ($alt) {
+        $balise_svg = inserer_attribut($balise_svg, 'role', 'img');
+        $id = 'img-svg-title-' . substr(md5("$img_file:$svg:$alt"), 0, 4);
+        $balise_svg = inserer_attribut($balise_svg, 'aria-labelledby', $id);
+        $title = "<title id=\"$id\">" . entites_html($alt) . "</title>\n";
+        $balise_svg .= $title;
+    }
+    else {
+        $balise_svg = inserer_attribut($balise_svg, 'aria-hidden', 'true');
+    }
 
-	$svg = str_replace($balise_svg_source, $balise_svg, $svg);
+    $svg = str_replace($balise_svg_source, $balise_svg, $svg);
 
-	if (!is_null($size) and strlen($size = trim($size))) {
-		list($width, $height) = helper_filtre_balise_img_svg_size($svg, $size);
+    if (!is_null($size) and strlen($size = trim($size))) {
+        list($width, $height) = helper_filtre_balise_img_svg_size($svg, $size);
 
-		if (!function_exists('svg_redimensionner')) {
-			include_spip('inc/svg');
-		}
-		$svg = svg_redimensionner($svg, $width, $height);
-	}
+        if (!function_exists('svg_redimensionner')) {
+            include_spip('inc/svg');
+        }
+        $svg = svg_redimensionner($svg, $width, $height);
+    }
 
-	return $svg;
+    return $svg;
 }
 
 
@@ -3781,18 +3781,18 @@ 
  *     Code HTML résultant
  **/
 function filtre_foreach_dist($tableau, $modele = 'foreach') {
-	$texte = '';
-	if (is_array($tableau)) {
-		foreach ($tableau as $k => $v) {
-			$res = recuperer_fond(
-				'modeles/' . $modele,
-				array_merge(['cle' => $k], (is_array($v) ? $v : ['valeur' => $v]))
-			);
-			$texte .= $res;
-		}
-	}
+    $texte = '';
+    if (is_array($tableau)) {
+        foreach ($tableau as $k => $v) {
+            $res = recuperer_fond(
+                'modeles/' . $modele,
+                array_merge(['cle' => $k], (is_array($v) ? $v : ['valeur' => $v]))
+            );
+            $texte .= $res;
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -3817,37 +3817,37 @@ 
  *         - tout : retourne toutes les informations du plugin actif
  **/
 function filtre_info_plugin_dist($plugin, $type_info, $reload = false) {
-	include_spip('inc/plugin');
-	$plugin = strtoupper($plugin);
-	$plugins_actifs = liste_plugin_actifs();
-
-	if (!$plugin) {
-		return serialize(array_keys($plugins_actifs));
-	} elseif (empty($plugins_actifs[$plugin]) and !$reload) {
-		return '';
-	} elseif (($type_info == 'est_actif') and !$reload) {
-		return $plugins_actifs[$plugin] ? 1 : 0;
-	} elseif (isset($plugins_actifs[$plugin][$type_info]) and !$reload) {
-		return $plugins_actifs[$plugin][$type_info];
-	} else {
-		$get_infos = charger_fonction('get_infos', 'plugins');
-		// On prend en compte les extensions
-		if (!is_dir($plugins_actifs[$plugin]['dir_type'])) {
-			$dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
-		} else {
-			$dir_plugins = $plugins_actifs[$plugin]['dir_type'];
-		}
-		if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], $reload, $dir_plugins)) {
-			return '';
-		}
-		if ($type_info == 'tout') {
-			return $infos;
-		} elseif ($type_info == 'est_actif') {
-			return $infos ? 1 : 0;
-		} else {
-			return strval($infos[$type_info]);
-		}
-	}
+    include_spip('inc/plugin');
+    $plugin = strtoupper($plugin);
+    $plugins_actifs = liste_plugin_actifs();
+
+    if (!$plugin) {
+        return serialize(array_keys($plugins_actifs));
+    } elseif (empty($plugins_actifs[$plugin]) and !$reload) {
+        return '';
+    } elseif (($type_info == 'est_actif') and !$reload) {
+        return $plugins_actifs[$plugin] ? 1 : 0;
+    } elseif (isset($plugins_actifs[$plugin][$type_info]) and !$reload) {
+        return $plugins_actifs[$plugin][$type_info];
+    } else {
+        $get_infos = charger_fonction('get_infos', 'plugins');
+        // On prend en compte les extensions
+        if (!is_dir($plugins_actifs[$plugin]['dir_type'])) {
+            $dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
+        } else {
+            $dir_plugins = $plugins_actifs[$plugin]['dir_type'];
+        }
+        if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], $reload, $dir_plugins)) {
+            return '';
+        }
+        if ($type_info == 'tout') {
+            return $infos;
+        } elseif ($type_info == 'est_actif') {
+            return $infos ? 1 : 0;
+        } else {
+            return strval($infos[$type_info]);
+        }
+    }
 }
 
 
@@ -3874,9 +3874,9 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  */
 function puce_changement_statut($id_objet, $statut, $id_rubrique, $type, $ajax = false) {
-	$puce_statut = charger_fonction('puce_statut', 'inc');
+    $puce_statut = charger_fonction('puce_statut', 'inc');
 
-	return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax);
+    return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax);
 }
 
 
@@ -3906,19 +3906,19 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  */
 function filtre_puce_statut_dist($statut, $objet, $id_objet = 0, $id_parent = 0) {
-	static $puce_statut = null;
-	if (!$puce_statut) {
-		$puce_statut = charger_fonction('puce_statut', 'inc');
-	}
+    static $puce_statut = null;
+    if (!$puce_statut) {
+        $puce_statut = charger_fonction('puce_statut', 'inc');
+    }
 
-	return $puce_statut(
-		$id_objet,
-		$statut,
-		$id_parent,
-		$objet,
-		false,
-		objet_info($objet, 'editable') ? _ACTIVER_PUCE_RAPIDE : false
-	);
+    return $puce_statut(
+        $id_objet,
+        $statut,
+        $id_parent,
+        $objet,
+        false,
+        objet_info($objet, 'editable') ? _ACTIVER_PUCE_RAPIDE : false
+    );
 }
 
 
@@ -3945,97 +3945,97 @@ 
  *   hash du contexte
  */
 function encoder_contexte_ajax($c, $form = '', $emboite = null, $ajaxid = '') {
-	if (
-		is_string($c)
-		and @unserialize($c) !== false
-	) {
-		$c = unserialize($c);
-	}
-
-	// supprimer les parametres debut_x
-	// pour que la pagination ajax ne soit pas plantee
-	// si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
-	// le debut_x=0 n'existe pas, et on resterait sur 1
-	if (is_array($c)) {
-		foreach ($c as $k => $v) {
-			if (strpos($k, 'debut_') === 0) {
-				unset($c[$k]);
-			}
-		}
-	}
-
-	if (!function_exists('calculer_cle_action')) {
-		include_spip('inc/securiser_action');
-	}
-
-	$c = serialize($c);
-	$cle = calculer_cle_action($form . $c);
-	$c = "$cle:$c";
-
-	// on ne stocke pas les contextes dans des fichiers en cache
-	// par defaut, sauf si cette configuration a été forcée
-	// OU que la longueur de l’argument géneré est plus long
-	// que ce qui est toléré.
-	$cache_contextes_ajax = (defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX);
-	if (!$cache_contextes_ajax) {
-		$env = $c;
-		if (function_exists('gzdeflate') && function_exists('gzinflate')) {
-			$env = gzdeflate($env);
-		}
-		$env = _xor($env);
-		$env = base64_encode($env);
-		$len = strlen($env);
-		// Si l’url est trop longue pour le navigateur
-		$max_len = _CACHE_CONTEXTES_AJAX_SUR_LONGUEUR;
-		if ($len > $max_len) {
-			$cache_contextes_ajax = true;
-			spip_log(
-				'Contextes AJAX forces en fichiers !'
-				. ' Cela arrive lorsque la valeur du contexte'
-				. " depasse la longueur maximale autorisee ($max_len). Ici : $len.",
-				_LOG_AVERTISSEMENT
-			);
-		}
-		// Sinon si Suhosin est actif et a une la valeur maximale des variables en GET...
-		elseif (
-			$max_len = @ini_get('suhosin.get.max_value_length')
-			and $max_len < $len
-		) {
-			$cache_contextes_ajax = true;
-			spip_log('Contextes AJAX forces en fichiers !'
-				. ' Cela arrive lorsque la valeur du contexte'
-				. ' depasse la longueur maximale autorisee par Suhosin'
-				. " ($max_len) dans 'suhosin.get.max_value_length'. Ici : $len."
-				. ' Vous devriez modifier les parametres de Suhosin'
-				. ' pour accepter au moins 1024 caracteres.', _LOG_AVERTISSEMENT);
-		}
-	}
-
-	if ($cache_contextes_ajax) {
-		$dir = sous_repertoire(_DIR_CACHE, 'contextes');
-		// stocker les contextes sur disque et ne passer qu'un hash dans l'url
-		$md5 = md5($c);
-		ecrire_fichier("$dir/c$md5", $c);
-		$env = $md5;
-	}
-
-	if ($emboite === null) {
-		return $env;
-	}
-	if (!trim($emboite)) {
-		return '';
-	}
-	// toujours encoder l'url source dans le bloc ajax
-	$r = self();
-	$r = ' data-origin="' . $r . '"';
-	$class = 'ajaxbloc';
-	if ($ajaxid and is_string($ajaxid)) {
-		// ajaxid est normalement conforme a un nom de classe css
-		// on ne verifie pas la conformite, mais on passe entites_html par dessus par precaution
-		$class .= ' ajax-id-' . entites_html($ajaxid);
-	}
-
-	return "<div class='$class' " . "data-ajax-env='$env'$r>\n$emboite</div><!--ajaxbloc-->\n";
+    if (
+        is_string($c)
+        and @unserialize($c) !== false
+    ) {
+        $c = unserialize($c);
+    }
+
+    // supprimer les parametres debut_x
+    // pour que la pagination ajax ne soit pas plantee
+    // si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
+    // le debut_x=0 n'existe pas, et on resterait sur 1
+    if (is_array($c)) {
+        foreach ($c as $k => $v) {
+            if (strpos($k, 'debut_') === 0) {
+                unset($c[$k]);
+            }
+        }
+    }
+
+    if (!function_exists('calculer_cle_action')) {
+        include_spip('inc/securiser_action');
+    }
+
+    $c = serialize($c);
+    $cle = calculer_cle_action($form . $c);
+    $c = "$cle:$c";
+
+    // on ne stocke pas les contextes dans des fichiers en cache
+    // par defaut, sauf si cette configuration a été forcée
+    // OU que la longueur de l’argument géneré est plus long
+    // que ce qui est toléré.
+    $cache_contextes_ajax = (defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX);
+    if (!$cache_contextes_ajax) {
+        $env = $c;
+        if (function_exists('gzdeflate') && function_exists('gzinflate')) {
+            $env = gzdeflate($env);
+        }
+        $env = _xor($env);
+        $env = base64_encode($env);
+        $len = strlen($env);
+        // Si l’url est trop longue pour le navigateur
+        $max_len = _CACHE_CONTEXTES_AJAX_SUR_LONGUEUR;
+        if ($len > $max_len) {
+            $cache_contextes_ajax = true;
+            spip_log(
+                'Contextes AJAX forces en fichiers !'
+                . ' Cela arrive lorsque la valeur du contexte'
+                . " depasse la longueur maximale autorisee ($max_len). Ici : $len.",
+                _LOG_AVERTISSEMENT
+            );
+        }
+        // Sinon si Suhosin est actif et a une la valeur maximale des variables en GET...
+        elseif (
+            $max_len = @ini_get('suhosin.get.max_value_length')
+            and $max_len < $len
+        ) {
+            $cache_contextes_ajax = true;
+            spip_log('Contextes AJAX forces en fichiers !'
+                . ' Cela arrive lorsque la valeur du contexte'
+                . ' depasse la longueur maximale autorisee par Suhosin'
+                . " ($max_len) dans 'suhosin.get.max_value_length'. Ici : $len."
+                . ' Vous devriez modifier les parametres de Suhosin'
+                . ' pour accepter au moins 1024 caracteres.', _LOG_AVERTISSEMENT);
+        }
+    }
+
+    if ($cache_contextes_ajax) {
+        $dir = sous_repertoire(_DIR_CACHE, 'contextes');
+        // stocker les contextes sur disque et ne passer qu'un hash dans l'url
+        $md5 = md5($c);
+        ecrire_fichier("$dir/c$md5", $c);
+        $env = $md5;
+    }
+
+    if ($emboite === null) {
+        return $env;
+    }
+    if (!trim($emboite)) {
+        return '';
+    }
+    // toujours encoder l'url source dans le bloc ajax
+    $r = self();
+    $r = ' data-origin="' . $r . '"';
+    $class = 'ajaxbloc';
+    if ($ajaxid and is_string($ajaxid)) {
+        // ajaxid est normalement conforme a un nom de classe css
+        // on ne verifie pas la conformite, mais on passe entites_html par dessus par precaution
+        $class .= ' ajax-id-' . entites_html($ajaxid);
+    }
+
+    return "<div class='$class' " . "data-ajax-env='$env'$r>\n$emboite</div><!--ajaxbloc-->\n";
 }
 
 /**
@@ -4055,37 +4055,37 @@ 
  *   - false : erreur de décodage
  */
 function decoder_contexte_ajax($c, $form = '') {
-	if (!function_exists('calculer_cle_action')) {
-		include_spip('inc/securiser_action');
-	}
-	if (
-		((defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX) or strlen($c) == 32)
-		and $dir = sous_repertoire(_DIR_CACHE, 'contextes')
-		and lire_fichier("$dir/c$c", $contexte)
-	) {
-		$c = $contexte;
-	} else {
-		$c = @base64_decode($c);
-		$c = _xor($c);
-		if (function_exists('gzdeflate') && function_exists('gzinflate')) {
-			$c = @gzinflate($c);
-		}
-	}
-
-	// extraire la signature en debut de contexte
-	// et la verifier avant de deserializer
-	// format : signature:donneesserializees
-	if ($p = strpos($c, ':')) {
-		$cle = substr($c, 0, $p);
-		$c = substr($c, $p + 1);
-
-		if ($cle == calculer_cle_action($form . $c)) {
-			$env = @unserialize($c);
-			return $env;
-		}
-	}
-
-	return false;
+    if (!function_exists('calculer_cle_action')) {
+        include_spip('inc/securiser_action');
+    }
+    if (
+        ((defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX) or strlen($c) == 32)
+        and $dir = sous_repertoire(_DIR_CACHE, 'contextes')
+        and lire_fichier("$dir/c$c", $contexte)
+    ) {
+        $c = $contexte;
+    } else {
+        $c = @base64_decode($c);
+        $c = _xor($c);
+        if (function_exists('gzdeflate') && function_exists('gzinflate')) {
+            $c = @gzinflate($c);
+        }
+    }
+
+    // extraire la signature en debut de contexte
+    // et la verifier avant de deserializer
+    // format : signature:donneesserializees
+    if ($p = strpos($c, ':')) {
+        $cle = substr($c, 0, $p);
+        $c = substr($c, $p + 1);
+
+        if ($cle == calculer_cle_action($form . $c)) {
+            $env = @unserialize($c);
+            return $env;
+        }
+    }
+
+    return false;
 }
 
 
@@ -4103,20 +4103,20 @@ 
  *    Message décrypté ou encrypté
  **/
 function _xor($message, $key = null) {
-	if (is_null($key)) {
-		if (!function_exists('calculer_cle_action')) {
-			include_spip('inc/securiser_action');
-		}
-		$key = pack('H*', calculer_cle_action('_xor'));
-	}
+    if (is_null($key)) {
+        if (!function_exists('calculer_cle_action')) {
+            include_spip('inc/securiser_action');
+        }
+        $key = pack('H*', calculer_cle_action('_xor'));
+    }
 
-	$keylen = strlen($key);
-	$messagelen = strlen($message);
-	for ($i = 0; $i < $messagelen; $i++) {
-		$message[$i] = ~($message[$i] ^ $key[$i % $keylen]);
-	}
+    $keylen = strlen($key);
+    $messagelen = strlen($message);
+    for ($i = 0; $i < $messagelen; $i++) {
+        $message[$i] = ~($message[$i] ^ $key[$i % $keylen]);
+    }
 
-	return $message;
+    return $message;
 }
 
 /**
@@ -4130,7 +4130,7 @@ 
  * @return string
  */
 function url_reponse_forum($texte) {
- return $texte;
+    return $texte;
 }
 
 /**
@@ -4144,7 +4144,7 @@ 
  * @return string
  */
 function url_rss_forum($texte) {
- return $texte;
+    return $texte;
 }
 
 
@@ -4183,37 +4183,37 @@ 
  *   Code HTML
  */
 function lien_ou_expose($url, $libelle = null, $on = false, $class = '', $title = '', $rel = '', $evt = '') {
-	if ($on) {
-		$bal = 'strong';
-		$class = '';
-		$att = '';
-		// si $on passe la balise et optionnelement une ou ++classe
-		// a.active span.selected.active etc....
-		if (is_string($on) and (strncmp($on, 'a', 1) == 0 or strncmp($on, 'span', 4) == 0 or strncmp($on, 'strong', 6) == 0)) {
-			$on = explode('.', $on);
-			// on verifie que c'est exactement une des 3 balises a, span ou strong
-			if (in_array(reset($on), ['a', 'span', 'strong'])) {
-				$bal = array_shift($on);
-				$class = implode(' ', $on);
-				if ($bal == 'a') {
-					$att = 'href="#" ';
-				}
-			}
-		}
-		$att .= 'class="' . ($class ? attribut_html($class) . ' ' : '') . (defined('_LIEN_OU_EXPOSE_CLASS_ON') ? _LIEN_OU_EXPOSE_CLASS_ON : 'on') . '"';
-	} else {
-		$bal = 'a';
-		$att = "href='$url'"
-			. ($title ? " title='" . attribut_html($title) . "'" : '')
-			. ($class ? " class='" . attribut_html($class) . "'" : '')
-			. ($rel ? " rel='" . attribut_html($rel) . "'" : '')
-			. $evt;
-	}
-	if ($libelle === null) {
-		$libelle = $url;
-	}
-
-	return "<$bal $att>$libelle</$bal>";
+    if ($on) {
+        $bal = 'strong';
+        $class = '';
+        $att = '';
+        // si $on passe la balise et optionnelement une ou ++classe
+        // a.active span.selected.active etc....
+        if (is_string($on) and (strncmp($on, 'a', 1) == 0 or strncmp($on, 'span', 4) == 0 or strncmp($on, 'strong', 6) == 0)) {
+            $on = explode('.', $on);
+            // on verifie que c'est exactement une des 3 balises a, span ou strong
+            if (in_array(reset($on), ['a', 'span', 'strong'])) {
+                $bal = array_shift($on);
+                $class = implode(' ', $on);
+                if ($bal == 'a') {
+                    $att = 'href="#" ';
+                }
+            }
+        }
+        $att .= 'class="' . ($class ? attribut_html($class) . ' ' : '') . (defined('_LIEN_OU_EXPOSE_CLASS_ON') ? _LIEN_OU_EXPOSE_CLASS_ON : 'on') . '"';
+    } else {
+        $bal = 'a';
+        $att = "href='$url'"
+            . ($title ? " title='" . attribut_html($title) . "'" : '')
+            . ($class ? " class='" . attribut_html($class) . "'" : '')
+            . ($rel ? " rel='" . attribut_html($rel) . "'" : '')
+            . $evt;
+    }
+    if ($libelle === null) {
+        $libelle = $url;
+    }
+
+    return "<$bal $att>$libelle</$bal>";
 }
 
 
@@ -4230,39 +4230,39 @@ 
  * @return string : la chaine de langue finale en utilisant la fonction _T()
  */
 function singulier_ou_pluriel($nb, $chaine_un, $chaine_plusieurs, $var = 'nb', $vars = []) {
-	static $local_singulier_ou_pluriel = [];
-
-	// si nb=0 ou pas de $vars valide on retourne une chaine vide, a traiter par un |sinon
-	if (!is_numeric($nb) or $nb == 0) {
-		return '';
-	}
-	if (!is_array($vars)) {
-		return '';
-	}
-
-	$langue = $GLOBALS['spip_lang'];
-	if (!isset($local_singulier_ou_pluriel[$langue])) {
-		$local_singulier_ou_pluriel[$langue] = false;
-		if (
-			$f = charger_fonction("singulier_ou_pluriel_${langue}", 'inc', true)
-			or $f = charger_fonction('singulier_ou_pluriel', 'inc', true)
-		) {
-			$local_singulier_ou_pluriel[$langue] = $f;
-		}
-	}
-
-	// si on a une surcharge on l'utilise
-	if ($local_singulier_ou_pluriel[$langue]) {
-		return ($local_singulier_ou_pluriel[$langue])($nb, $chaine_un, $chaine_plusieurs, $var, $vars);
-	}
-
-	// sinon traitement par defaut
-	$vars[$var] = $nb;
-	if ($nb >= 2) {
-		return _T($chaine_plusieurs, $vars);
-	} else {
-		return _T($chaine_un, $vars);
-	}
+    static $local_singulier_ou_pluriel = [];
+
+    // si nb=0 ou pas de $vars valide on retourne une chaine vide, a traiter par un |sinon
+    if (!is_numeric($nb) or $nb == 0) {
+        return '';
+    }
+    if (!is_array($vars)) {
+        return '';
+    }
+
+    $langue = $GLOBALS['spip_lang'];
+    if (!isset($local_singulier_ou_pluriel[$langue])) {
+        $local_singulier_ou_pluriel[$langue] = false;
+        if (
+            $f = charger_fonction("singulier_ou_pluriel_${langue}", 'inc', true)
+            or $f = charger_fonction('singulier_ou_pluriel', 'inc', true)
+        ) {
+            $local_singulier_ou_pluriel[$langue] = $f;
+        }
+    }
+
+    // si on a une surcharge on l'utilise
+    if ($local_singulier_ou_pluriel[$langue]) {
+        return ($local_singulier_ou_pluriel[$langue])($nb, $chaine_un, $chaine_plusieurs, $var, $vars);
+    }
+
+    // sinon traitement par defaut
+    $vars[$var] = $nb;
+    if ($nb >= 2) {
+        return _T($chaine_plusieurs, $vars);
+    } else {
+        return _T($chaine_un, $vars);
+    }
 }
 
 
@@ -4290,73 +4290,73 @@ 
  */
 function prepare_icone_base($type, $lien, $texte, $fond, $fonction = '', $class = '', $javascript = '') {
 
-	$class_lien = $class_bouton = $class;
-
-	// Normaliser la fonction et compléter la classe en fonction
-	if (in_array($fonction, ['del', 'supprimer.gif'])) {
-		$class_lien .= ' danger';
-		$class_bouton .= ' btn_danger';
-	} elseif ($fonction == 'rien.gif') {
-		$fonction = '';
-	} elseif ($fonction == 'delsafe') {
-		$fonction = 'del';
-	}
-
-	$fond_origine = $fond;
-	// Remappage des icone : article-24.png+new => article-new-24.png
-	if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
-		list($fond, $fonction) = $icone_renommer($fond, $fonction);
-	}
-
-	// Ajouter le type d'objet dans la classe
-	$objet_type = substr(basename($fond), 0, -4);
-	$class_lien .= " $objet_type";
-	$class_bouton .= " $objet_type";
-
-	// Texte
-	$alt = attribut_html($texte);
-	$title = " title=\"$alt\""; // est-ce pertinent de doubler le alt par un title ?
-
-	// Liens : préparer les classes ajax
-	$ajax = '';
-	if ($type === 'lien') {
-		if (strpos($class_lien, 'ajax') !== false) {
-			$ajax = 'ajax';
-			if (strpos($class_lien, 'preload') !== false) {
-				$ajax .= ' preload';
-			}
-			if (strpos($class_lien, 'nocache') !== false) {
-				$ajax .= ' nocache';
-			}
-			$ajax = " class='$ajax'";
-		}
-	}
-
-	// Repérer la taille et l'ajouter dans la classe
-	$size = 24;
-	if (
-		preg_match('/-([0-9]{1,3})[.](gif|png|svg)$/i', $fond, $match)
-		or preg_match('/-([0-9]{1,3})([.](gif|png|svg))?$/i', $fond_origine, $match)
-	) {
-		$size = $match[1];
-	}
-	$class_lien .= " s$size";
-	$class_bouton .= " s$size";
-
-	// Icône
-	$icone = http_img_pack($fond, $alt, "width='$size' height='$size'");
-	$icone = '<span class="icone-image' . ($fonction ? " icone-fonction icone-fonction-$fonction" : '') . "\">$icone</span>";
-
-	// Markup final
-	if ($type == 'lien') {
-		return "<span class='icone $class_lien'>"
-		. "<a href='$lien'$title$ajax$javascript>"
-		. $icone
-		. "<b>$texte</b>"
-		. "</a></span>\n";
-	} else {
-		return bouton_action("$icone $texte", $lien, $class_bouton, $javascript, $alt);
-	}
+    $class_lien = $class_bouton = $class;
+
+    // Normaliser la fonction et compléter la classe en fonction
+    if (in_array($fonction, ['del', 'supprimer.gif'])) {
+        $class_lien .= ' danger';
+        $class_bouton .= ' btn_danger';
+    } elseif ($fonction == 'rien.gif') {
+        $fonction = '';
+    } elseif ($fonction == 'delsafe') {
+        $fonction = 'del';
+    }
+
+    $fond_origine = $fond;
+    // Remappage des icone : article-24.png+new => article-new-24.png
+    if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
+        list($fond, $fonction) = $icone_renommer($fond, $fonction);
+    }
+
+    // Ajouter le type d'objet dans la classe
+    $objet_type = substr(basename($fond), 0, -4);
+    $class_lien .= " $objet_type";
+    $class_bouton .= " $objet_type";
+
+    // Texte
+    $alt = attribut_html($texte);
+    $title = " title=\"$alt\""; // est-ce pertinent de doubler le alt par un title ?
+
+    // Liens : préparer les classes ajax
+    $ajax = '';
+    if ($type === 'lien') {
+        if (strpos($class_lien, 'ajax') !== false) {
+            $ajax = 'ajax';
+            if (strpos($class_lien, 'preload') !== false) {
+                $ajax .= ' preload';
+            }
+            if (strpos($class_lien, 'nocache') !== false) {
+                $ajax .= ' nocache';
+            }
+            $ajax = " class='$ajax'";
+        }
+    }
+
+    // Repérer la taille et l'ajouter dans la classe
+    $size = 24;
+    if (
+        preg_match('/-([0-9]{1,3})[.](gif|png|svg)$/i', $fond, $match)
+        or preg_match('/-([0-9]{1,3})([.](gif|png|svg))?$/i', $fond_origine, $match)
+    ) {
+        $size = $match[1];
+    }
+    $class_lien .= " s$size";
+    $class_bouton .= " s$size";
+
+    // Icône
+    $icone = http_img_pack($fond, $alt, "width='$size' height='$size'");
+    $icone = '<span class="icone-image' . ($fonction ? " icone-fonction icone-fonction-$fonction" : '') . "\">$icone</span>";
+
+    // Markup final
+    if ($type == 'lien') {
+        return "<span class='icone $class_lien'>"
+        . "<a href='$lien'$title$ajax$javascript>"
+        . $icone
+        . "<b>$texte</b>"
+        . "</a></span>\n";
+    } else {
+        return bouton_action("$icone $texte", $lien, $class_bouton, $javascript, $alt);
+    }
 }
 
 /**
@@ -4380,7 +4380,7 @@ 
  *     Code HTML du lien
  **/
 function icone_base($lien, $texte, $fond, $fonction = '', $class = '', $javascript = '') {
-	return prepare_icone_base('lien', $lien, $texte, $fond, $fonction, $class, $javascript);
+    return prepare_icone_base('lien', $lien, $texte, $fond, $fonction, $class, $javascript);
 }
 
 /**
@@ -4415,7 +4415,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_icone_verticale_dist($lien, $texte, $fond, $fonction = '', $class = '', $javascript = '') {
-	return icone_base($lien, $texte, $fond, $fonction, "verticale $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $class", $javascript);
 }
 
 /**
@@ -4460,7 +4460,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_icone_horizontale_dist($lien, $texte, $fond, $fonction = '', $class = '', $javascript = '') {
-	return icone_base($lien, $texte, $fond, $fonction, "horizontale $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "horizontale $class", $javascript);
 }
 
 /**
@@ -4491,7 +4491,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_bouton_action_horizontal_dist($lien, $texte, $fond, $fonction = '', $class = '', $confirm = '') {
-	return prepare_icone_base('bouton', $lien, $texte, $fond, $fonction, $class, $confirm);
+    return prepare_icone_base('bouton', $lien, $texte, $fond, $fonction, $class, $confirm);
 }
 
 /**
@@ -4522,7 +4522,7 @@ 
  *     Code HTML du lien
  */
 function filtre_icone_dist($lien, $texte, $fond, $align = '', $fonction = '', $class = '', $javascript = '') {
-	return icone_base($lien, $texte, $fond, $fonction, "verticale $align $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $align $class", $javascript);
 }
 
 
@@ -4544,7 +4544,7 @@ 
  * @return array Liste des éléments
  */
 function filtre_explode_dist($a, $b) {
- return explode($b, $a);
+    return explode($b, $a);
 }
 
 /**
@@ -4565,7 +4565,7 @@ 
  * @return string Texte
  */
 function filtre_implode_dist($a, $b) {
- return is_array($a) ? implode($b, $a) : $a;
+    return is_array($a) ? implode($b, $a) : $a;
 }
 
 /**
@@ -4574,24 +4574,24 @@ 
  * @return string Code CSS
  */
 function bando_images_background() {
-	include_spip('inc/bandeau');
-	// recuperer tous les boutons et leurs images
-	$boutons = definir_barre_boutons(definir_barre_contexte(), true, false);
+    include_spip('inc/bandeau');
+    // recuperer tous les boutons et leurs images
+    $boutons = definir_barre_boutons(definir_barre_contexte(), true, false);
 
-	$res = '';
-	foreach ($boutons as $page => $detail) {
-		$selecteur = (in_array($page, ['outils_rapides', 'outils_collaboratifs']) ? '' : '.navigation_avec_icones ');
-		if (is_array($detail->sousmenu)) {
-			foreach ($detail->sousmenu as $souspage => $sousdetail) {
-				if ($sousdetail->icone and strlen(trim($sousdetail->icone))) {
-					$img = http_img_variante_svg_si_possible($sousdetail->icone);
-					$res .= "\n$selecteur.bando2_$souspage {background-image:url($img);}";
-				}
-			}
-		}
-	}
+    $res = '';
+    foreach ($boutons as $page => $detail) {
+        $selecteur = (in_array($page, ['outils_rapides', 'outils_collaboratifs']) ? '' : '.navigation_avec_icones ');
+        if (is_array($detail->sousmenu)) {
+            foreach ($detail->sousmenu as $souspage => $sousdetail) {
+                if ($sousdetail->icone and strlen(trim($sousdetail->icone))) {
+                    $img = http_img_variante_svg_si_possible($sousdetail->icone);
+                    $res .= "\n$selecteur.bando2_$souspage {background-image:url($img);}";
+                }
+            }
+        }
+    }
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -4616,27 +4616,27 @@ 
  */
 function bouton_action($libelle, $url, $class = '', $confirm = '', $title = '', $callback = '') {
 
-	// Classes : dispatcher `ajax` sur le formulaire
-	$class_form = '';
-	if (strpos($class, 'ajax') !== false) {
-		$class_form = 'ajax';
-		$class = str_replace('ajax', '', $class);
-	}
-	$class_btn = 'submit ' . trim($class);
+    // Classes : dispatcher `ajax` sur le formulaire
+    $class_form = '';
+    if (strpos($class, 'ajax') !== false) {
+        $class_form = 'ajax';
+        $class = str_replace('ajax', '', $class);
+    }
+    $class_btn = 'submit ' . trim($class);
 
-	if ($confirm) {
-		$confirm = 'confirm("' . attribut_html($confirm) . '")';
-		if ($callback) {
-			$callback = "$confirm?($callback):false";
-		} else {
-			$callback = $confirm;
-		}
-	}
-	$onclick = $callback ? " onclick='return " . addcslashes($callback, "'") . "'" : '';
-	$title = $title ? " title='$title'" : '';
+    if ($confirm) {
+        $confirm = 'confirm("' . attribut_html($confirm) . '")';
+        if ($callback) {
+            $callback = "$confirm?($callback):false";
+        } else {
+            $callback = $confirm;
+        }
+    }
+    $onclick = $callback ? " onclick='return " . addcslashes($callback, "'") . "'" : '';
+    $title = $title ? " title='$title'" : '';
 
-	return "<form class='bouton_action_post $class_form' method='post' action='$url'><div>" . form_hidden($url)
-	. "<button type='submit' class='$class_btn'$title$onclick>$libelle</button></div></form>";
+    return "<form class='bouton_action_post $class_form' method='post' action='$url'><div>" . form_hidden($url)
+    . "<button type='submit' class='$class_btn'$title$onclick>$libelle</button></div></form>";
 }
 
 /**
@@ -4659,94 +4659,94 @@ 
  * @return string
  */
 function generer_info_entite($id_objet, $type_objet, $info, $etoile = '', $params = []) {
-	static $trouver_table = null;
-	static $objets;
-
-	// On verifie qu'on a tout ce qu'il faut
-	$id_objet = intval($id_objet);
-	if (!($id_objet and $type_objet and $info)) {
-		return '';
-	}
-
-	// si on a deja note que l'objet n'existe pas, ne pas aller plus loin
-	if (isset($objets[$type_objet]) and $objets[$type_objet] === false) {
-		return '';
-	}
-
-	// Si on demande l'url, on retourne direct la fonction
-	if ($info == 'url') {
-		return generer_url_entite($id_objet, $type_objet, ...$params);
-	}
-
-	// Sinon on va tout chercher dans la table et on garde en memoire
-	$demande_titre = ($info === 'titre');
-	$demande_introduction = ($info === 'introduction');
-
-	// On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
-	if (
-		!isset($objets[$type_objet][$id_objet])
-		or
-		($demande_titre and !isset($objets[$type_objet][$id_objet]['titre']))
-	) {
-		if (!$trouver_table) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-		}
-		$desc = $trouver_table(table_objet_sql($type_objet));
-		if (!$desc) {
-			return $objets[$type_objet] = false;
-		}
-
-		// Si on demande le titre, on le gere en interne
-		$champ_titre = '';
-		if ($demande_titre) {
-			// si pas de titre declare mais champ titre, il sera peuple par le select *
-			$champ_titre = (!empty($desc['titre'])) ? ', ' . $desc['titre'] : '';
-		}
-		include_spip('base/abstract_sql');
-		include_spip('base/connect_sql');
-		$objets[$type_objet][$id_objet] = sql_fetsel(
-			'*' . $champ_titre,
-			$desc['table_sql'],
-			id_table_objet($type_objet) . ' = ' . intval($id_objet)
-		);
-
-		// Toujours noter la longueur d'introduction, même si pas demandé cette fois-ci
-		$objets[$type_objet]['introduction_longueur'] = $desc['introduction_longueur'] ?? null;
-	}
-
-	// Pour les fonction generer_xxx, si on demande l'introduction,
-	// ajouter la longueur au début des params supplémentaires
-	if ($demande_introduction) {
-		$introduction_longueur = $objets[$type_objet]['introduction_longueur'];
-		array_unshift($params, $introduction_longueur);
-	}
-
-	// Si la fonction generer_TRUC_TYPE existe, on l'utilise pour formater $info_generee
-	if ($generer = charger_fonction("generer_${info}_${type_objet}", '', true)) {
-		$info_generee = $generer($id_objet, $objets[$type_objet][$id_objet], ...$params);
-	} // Si la fonction generer_TRUC_entite existe, on l'utilise pour formater $info_generee
-	else {
-		if ($generer = charger_fonction("generer_${info}_entite", '', true)) {
-			$info_generee = $generer($id_objet, $type_objet, $objets[$type_objet][$id_objet], ...$params);
-		} // Sinon on prend directement le champ SQL tel quel
-		else {
-			$info_generee = (isset($objets[$type_objet][$id_objet][$info]) ? $objets[$type_objet][$id_objet][$info] : '');
-		}
-	}
-
-	// On va ensuite appliquer les traitements automatiques si besoin
-	if (!$etoile) {
-		// FIXME: on fournit un ENV minimum avec id et type et connect=''
-		// mais ce fonctionnement est a ameliorer !
-		$info_generee = appliquer_traitement_champ(
-			$info_generee,
-			$info,
-			table_objet($type_objet),
-			['id_objet' => $id_objet, 'objet' => $type_objet, '']
-		);
-	}
-
-	return $info_generee;
+    static $trouver_table = null;
+    static $objets;
+
+    // On verifie qu'on a tout ce qu'il faut
+    $id_objet = intval($id_objet);
+    if (!($id_objet and $type_objet and $info)) {
+        return '';
+    }
+
+    // si on a deja note que l'objet n'existe pas, ne pas aller plus loin
+    if (isset($objets[$type_objet]) and $objets[$type_objet] === false) {
+        return '';
+    }
+
+    // Si on demande l'url, on retourne direct la fonction
+    if ($info == 'url') {
+        return generer_url_entite($id_objet, $type_objet, ...$params);
+    }
+
+    // Sinon on va tout chercher dans la table et on garde en memoire
+    $demande_titre = ($info === 'titre');
+    $demande_introduction = ($info === 'introduction');
+
+    // On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
+    if (
+        !isset($objets[$type_objet][$id_objet])
+        or
+        ($demande_titre and !isset($objets[$type_objet][$id_objet]['titre']))
+    ) {
+        if (!$trouver_table) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+        }
+        $desc = $trouver_table(table_objet_sql($type_objet));
+        if (!$desc) {
+            return $objets[$type_objet] = false;
+        }
+
+        // Si on demande le titre, on le gere en interne
+        $champ_titre = '';
+        if ($demande_titre) {
+            // si pas de titre declare mais champ titre, il sera peuple par le select *
+            $champ_titre = (!empty($desc['titre'])) ? ', ' . $desc['titre'] : '';
+        }
+        include_spip('base/abstract_sql');
+        include_spip('base/connect_sql');
+        $objets[$type_objet][$id_objet] = sql_fetsel(
+            '*' . $champ_titre,
+            $desc['table_sql'],
+            id_table_objet($type_objet) . ' = ' . intval($id_objet)
+        );
+
+        // Toujours noter la longueur d'introduction, même si pas demandé cette fois-ci
+        $objets[$type_objet]['introduction_longueur'] = $desc['introduction_longueur'] ?? null;
+    }
+
+    // Pour les fonction generer_xxx, si on demande l'introduction,
+    // ajouter la longueur au début des params supplémentaires
+    if ($demande_introduction) {
+        $introduction_longueur = $objets[$type_objet]['introduction_longueur'];
+        array_unshift($params, $introduction_longueur);
+    }
+
+    // Si la fonction generer_TRUC_TYPE existe, on l'utilise pour formater $info_generee
+    if ($generer = charger_fonction("generer_${info}_${type_objet}", '', true)) {
+        $info_generee = $generer($id_objet, $objets[$type_objet][$id_objet], ...$params);
+    } // Si la fonction generer_TRUC_entite existe, on l'utilise pour formater $info_generee
+    else {
+        if ($generer = charger_fonction("generer_${info}_entite", '', true)) {
+            $info_generee = $generer($id_objet, $type_objet, $objets[$type_objet][$id_objet], ...$params);
+        } // Sinon on prend directement le champ SQL tel quel
+        else {
+            $info_generee = (isset($objets[$type_objet][$id_objet][$info]) ? $objets[$type_objet][$id_objet][$info] : '');
+        }
+    }
+
+    // On va ensuite appliquer les traitements automatiques si besoin
+    if (!$etoile) {
+        // FIXME: on fournit un ENV minimum avec id et type et connect=''
+        // mais ce fonctionnement est a ameliorer !
+        $info_generee = appliquer_traitement_champ(
+            $info_generee,
+            $info,
+            table_objet($type_objet),
+            ['id_objet' => $id_objet, 'objet' => $type_objet, '']
+        );
+    }
+
+    return $info_generee;
 }
 
 /**
@@ -4779,36 +4779,36 @@ 
  */
 function generer_introduction_entite($id_objet, $type_objet, $ligne_sql, $introduction_longueur = null, $longueur_ou_suite = null, $suite = null, $connect = '') {
 
-	$descriptif = $ligne_sql['descriptif'] ?? '';
-	$texte = $ligne_sql['texte'] ?? '';
-	// En absence de descriptif, on se rabat sur chapo + texte
-	if (isset($ligne_sql['chapo'])) {
-		$chapo = $ligne_sql['chapo'];
-		$texte = strlen($descriptif) ?
-			'' :
-			"$chapo \n\n $texte";
-	}
+    $descriptif = $ligne_sql['descriptif'] ?? '';
+    $texte = $ligne_sql['texte'] ?? '';
+    // En absence de descriptif, on se rabat sur chapo + texte
+    if (isset($ligne_sql['chapo'])) {
+        $chapo = $ligne_sql['chapo'];
+        $texte = strlen($descriptif) ?
+            '' :
+            "$chapo \n\n $texte";
+    }
 
-	// Longueur en paramètre, sinon celle renseignée dans la description de l'objet, sinon valeur en dur
-	if (!intval($longueur_ou_suite)) {
-		$longueur = intval($introduction_longueur ?: 600);
-	} else {
-		$longueur = intval($longueur_ou_suite);
-	}
+    // Longueur en paramètre, sinon celle renseignée dans la description de l'objet, sinon valeur en dur
+    if (!intval($longueur_ou_suite)) {
+        $longueur = intval($introduction_longueur ?: 600);
+    } else {
+        $longueur = intval($longueur_ou_suite);
+    }
 
-	// On peut optionnellement passer la suite en 1er paramètre de la balise
-	// Ex : #INTRODUCTION{...}
-	if (
-		is_null($suite)
-		and !intval($longueur_ou_suite)
-	) {
-		$suite = $longueur_ou_suite;
-	}
+    // On peut optionnellement passer la suite en 1er paramètre de la balise
+    // Ex : #INTRODUCTION{...}
+    if (
+        is_null($suite)
+        and !intval($longueur_ou_suite)
+    ) {
+        $suite = $longueur_ou_suite;
+    }
 
-	$f = chercher_filtre('introduction');
-	$introduction = $f($descriptif, $texte, $longueur, $connect, $suite);
+    $f = chercher_filtre('introduction');
+    $introduction = $f($descriptif, $texte, $longueur, $connect, $suite);
 
-	return $introduction;
+    return $introduction;
 }
 
 /**
@@ -4822,44 +4822,44 @@ 
  * @return string
  */
 function appliquer_traitement_champ($texte, $champ, $table_objet = '', $env = [], $connect = '') {
-	if (!$champ) {
-		return $texte;
-	}
+    if (!$champ) {
+        return $texte;
+    }
 
-	// On charge les définitions des traitements (inc/texte et fichiers de fonctions)
-	// car il ne faut pas partir du principe que c'est déjà chargé (form ajax, etc)
-	include_fichiers_fonctions();
+    // On charge les définitions des traitements (inc/texte et fichiers de fonctions)
+    // car il ne faut pas partir du principe que c'est déjà chargé (form ajax, etc)
+    include_fichiers_fonctions();
 
-	$champ = strtoupper($champ);
-	$traitements = isset($GLOBALS['table_des_traitements'][$champ]) ? $GLOBALS['table_des_traitements'][$champ] : false;
-	if (!$traitements or !is_array($traitements)) {
-		return $texte;
-	}
+    $champ = strtoupper($champ);
+    $traitements = isset($GLOBALS['table_des_traitements'][$champ]) ? $GLOBALS['table_des_traitements'][$champ] : false;
+    if (!$traitements or !is_array($traitements)) {
+        return $texte;
+    }
 
-	$traitement = '';
-	if ($table_objet and (!isset($traitements[0]) or count($traitements) > 1)) {
-		// necessaire pour prendre en charge les vieux appels avec un table_objet_sql en 3e arg
-		$table_objet = table_objet($table_objet);
-		if (isset($traitements[$table_objet])) {
-			$traitement = $traitements[$table_objet];
-		}
-	}
-	if (!$traitement and isset($traitements[0])) {
-		$traitement = $traitements[0];
-	}
-	// (sinon prendre le premier de la liste par defaut ?)
+    $traitement = '';
+    if ($table_objet and (!isset($traitements[0]) or count($traitements) > 1)) {
+        // necessaire pour prendre en charge les vieux appels avec un table_objet_sql en 3e arg
+        $table_objet = table_objet($table_objet);
+        if (isset($traitements[$table_objet])) {
+            $traitement = $traitements[$table_objet];
+        }
+    }
+    if (!$traitement and isset($traitements[0])) {
+        $traitement = $traitements[0];
+    }
+    // (sinon prendre le premier de la liste par defaut ?)
 
-	if (!$traitement) {
-		return $texte;
-	}
+    if (!$traitement) {
+        return $texte;
+    }
 
-	$traitement = str_replace('%s', "'" . texte_script($texte) . "'", $traitement);
+    $traitement = str_replace('%s', "'" . texte_script($texte) . "'", $traitement);
 
-	// Fournir $connect et $Pile[0] au traitement si besoin
-	$Pile = [0 => $env];
-	eval("\$texte = $traitement;");
+    // Fournir $connect et $Pile[0] au traitement si besoin
+    $Pile = [0 => $env];
+    eval("\$texte = $traitement;");
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -4873,21 +4873,21 @@ 
  * @return string
  */
 function generer_lien_entite($id_objet, $objet, $longueur = 80, $connect = null) {
-	include_spip('inc/liens');
-	$titre = traiter_raccourci_titre($id_objet, $objet, $connect);
-	// lorsque l'objet n'est plus declare (plugin desactive par exemple)
-	// le raccourcis n'est plus valide
-	$titre = isset($titre['titre']) ? typo($titre['titre']) : '';
-	// on essaye avec generer_info_entite ?
-	if (!strlen($titre) and !$connect) {
-		$titre = generer_info_entite($id_objet, $objet, 'titre');
-	}
-	if (!strlen($titre)) {
-		$titre = _T('info_sans_titre');
-	}
-	$url = generer_url_entite($id_objet, $objet, '', '', $connect);
+    include_spip('inc/liens');
+    $titre = traiter_raccourci_titre($id_objet, $objet, $connect);
+    // lorsque l'objet n'est plus declare (plugin desactive par exemple)
+    // le raccourcis n'est plus valide
+    $titre = isset($titre['titre']) ? typo($titre['titre']) : '';
+    // on essaye avec generer_info_entite ?
+    if (!strlen($titre) and !$connect) {
+        $titre = generer_info_entite($id_objet, $objet, 'titre');
+    }
+    if (!strlen($titre)) {
+        $titre = _T('info_sans_titre');
+    }
+    $url = generer_url_entite($id_objet, $objet, '', '', $connect);
 
-	return "<a href='$url' class='$objet'>" . couper($titre, $longueur) . '</a>';
+    return "<a href='$url' class='$objet'>" . couper($titre, $longueur) . '</a>';
 }
 
 
@@ -4904,15 +4904,15 @@ 
  * @return string
  */
 function wrap($texte, $wrap) {
-	$balises = extraire_balises($wrap);
-	if (preg_match_all(",<([a-z]\w*)\b[^>]*>,UimsS", $wrap, $regs, PREG_PATTERN_ORDER)) {
-		$texte = $wrap . $texte;
-		$regs = array_reverse($regs[1]);
-		$wrap = '</' . implode('></', $regs) . '>';
-		$texte = $texte . $wrap;
-	}
+    $balises = extraire_balises($wrap);
+    if (preg_match_all(",<([a-z]\w*)\b[^>]*>,UimsS", $wrap, $regs, PREG_PATTERN_ORDER)) {
+        $texte = $wrap . $texte;
+        $regs = array_reverse($regs[1]);
+        $wrap = '</' . implode('></', $regs) . '>';
+        $texte = $texte . $wrap;
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -4932,44 +4932,44 @@ 
  * @return array|mixed|string
  */
 function filtre_print_dist($u, $join = '<br />', $indent = 0) {
-	if (is_string($u)) {
-		$u = typo($u);
+    if (is_string($u)) {
+        $u = typo($u);
 
-		return $u;
-	}
+        return $u;
+    }
 
-	// caster $u en array si besoin
-	if (is_object($u)) {
-		$u = (array)$u;
-	}
+    // caster $u en array si besoin
+    if (is_object($u)) {
+        $u = (array)$u;
+    }
 
-	if (is_array($u)) {
-		$out = '';
-		// toutes les cles sont numeriques ?
-		// et aucun enfant n'est un tableau
-		// liste simple separee par des virgules
-		$numeric_keys = array_map('is_numeric', array_keys($u));
-		$array_values = array_map('is_array', $u);
-		$object_values = array_map('is_object', $u);
-		if (
-			array_sum($numeric_keys) == count($numeric_keys)
-			and !array_sum($array_values)
-			and !array_sum($object_values)
-		) {
-			return join(', ', array_map('filtre_print_dist', $u));
-		}
+    if (is_array($u)) {
+        $out = '';
+        // toutes les cles sont numeriques ?
+        // et aucun enfant n'est un tableau
+        // liste simple separee par des virgules
+        $numeric_keys = array_map('is_numeric', array_keys($u));
+        $array_values = array_map('is_array', $u);
+        $object_values = array_map('is_object', $u);
+        if (
+            array_sum($numeric_keys) == count($numeric_keys)
+            and !array_sum($array_values)
+            and !array_sum($object_values)
+        ) {
+            return join(', ', array_map('filtre_print_dist', $u));
+        }
 
-		// sinon on passe a la ligne et on indente
-		$i_str = str_pad('', $indent, ' ');
-		foreach ($u as $k => $v) {
-			$out .= $join . $i_str . "$k: " . filtre_print_dist($v, $join, $indent + 2);
-		}
+        // sinon on passe a la ligne et on indente
+        $i_str = str_pad('', $indent, ' ');
+        foreach ($u as $k => $v) {
+            $out .= $join . $i_str . "$k: " . filtre_print_dist($v, $join, $indent + 2);
+        }
 
-		return $out;
-	}
+        return $out;
+    }
 
-	// on sait pas quoi faire...
-	return $u;
+    // on sait pas quoi faire...
+    return $u;
 }
 
 
@@ -4982,10 +4982,10 @@ 
  * @return string|array
  */
 function objet_info($objet, $info) {
-	$table = table_objet_sql($objet);
-	$infos = lister_tables_objets_sql($table);
+    $table = table_objet_sql($objet);
+    $infos = lister_tables_objets_sql($table);
 
-	return (isset($infos[$info]) ? $infos[$info] : '');
+    return (isset($infos[$info]) ? $infos[$info] : '');
 }
 
 /**
@@ -5000,11 +5000,11 @@ 
  *     Texte traduit du comptage, tel que '3 articles'
  */
 function objet_afficher_nb($nb, $objet) {
-	if (!$nb) {
-		return _T(objet_info($objet, 'info_aucun_objet'));
-	} else {
-		return _T(objet_info($objet, $nb == 1 ? 'info_1_objet' : 'info_nb_objets'), ['nb' => $nb]);
-	}
+    if (!$nb) {
+        return _T(objet_info($objet, 'info_aucun_objet'));
+    } else {
+        return _T(objet_info($objet, $nb == 1 ? 'info_1_objet' : 'info_nb_objets'), ['nb' => $nb]);
+    }
 }
 
 /**
@@ -5016,11 +5016,11 @@ 
  * @return string
  */
 function objet_icone($objet, $taille = 24, $class = '') {
-	$icone = objet_info($objet, 'icone_objet') . '-' . $taille . '.png';
-	$icone = chemin_image($icone);
-	$balise_img = charger_filtre('balise_img');
+    $icone = objet_info($objet, 'icone_objet') . '-' . $taille . '.png';
+    $icone = chemin_image($icone);
+    $balise_img = charger_filtre('balise_img');
 
-	return $icone ? $balise_img($icone, _T(objet_info($objet, 'texte_objet')), $class, $taille) : '';
+    return $icone ? $balise_img($icone, _T(objet_info($objet, 'texte_objet')), $class, $taille) : '';
 }
 
 /**
@@ -5041,12 +5041,12 @@ 
  * @return string
  */
 function objet_T($objet, $chaine, $args = [], $options = []) {
-	$chaine = explode(':', $chaine);
-	if ($t = _T($objet . ':' . end($chaine), $args, array_merge($options, ['force' => false]))) {
-		return $t;
-	}
-	$chaine = implode(':', $chaine);
-	return _T($chaine, $args, $options);
+    $chaine = explode(':', $chaine);
+    if ($t = _T($objet . ':' . end($chaine), $args, array_merge($options, ['force' => false]))) {
+        return $t;
+    }
+    $chaine = implode(':', $chaine);
+    return _T($chaine, $args, $options);
 }
 
 /**
@@ -5060,18 +5060,18 @@ 
  * @return string      Code HTML
  */
 function insert_head_css_conditionnel($flux) {
-	if (
-		strpos($flux, '<!-- insert_head_css -->') === false
-		and $p = strpos($flux, '<!-- insert_head -->')
-	) {
-		// plutot avant le premier js externe (jquery) pour etre non bloquant
-		if ($p1 = stripos($flux, '<script src=') and $p1 < $p) {
-			$p = $p1;
-		}
-		$flux = substr_replace($flux, pipeline('insert_head_css', '<!-- insert_head_css -->'), $p, 0);
-	}
+    if (
+        strpos($flux, '<!-- insert_head_css -->') === false
+        and $p = strpos($flux, '<!-- insert_head -->')
+    ) {
+        // plutot avant le premier js externe (jquery) pour etre non bloquant
+        if ($p1 = stripos($flux, '<script src=') and $p1 < $p) {
+            $p = $p1;
+        }
+        $flux = substr_replace($flux, pipeline('insert_head_css', '<!-- insert_head_css -->'), $p, 0);
+    }
 
-	return $flux;
+    return $flux;
 }
 
 /**
@@ -5094,72 +5094,72 @@ 
  * @return string
  */
 function produire_fond_statique($fond, $contexte = [], $options = [], $connect = '') {
-	if (isset($contexte['format'])) {
-		$extension = $contexte['format'];
-		unset($contexte['format']);
-	} else {
-		$extension = 'html';
-		if (preg_match(',[.](css|js|json|xml|svg)$,', $fond, $m)) {
-			$extension = $m[1];
-		}
-	}
-	// recuperer le contenu produit par le squelette
-	$options['raw'] = true;
-	$cache = recuperer_fond($fond, $contexte, $options, $connect);
-
-	// calculer le nom de la css
-	$dir_var = sous_repertoire(_DIR_VAR, 'cache-' . $extension);
-	$nom_safe = preg_replace(',\W,', '_', str_replace('.', '_', $fond));
-	$contexte_implicite = calculer_contexte_implicite();
-
-	// par defaut on hash selon les contextes qui sont a priori moins variables
-	// mais on peut hasher selon le contenu a la demande, si plusieurs contextes produisent un meme contenu
-	// reduit la variabilite du nom et donc le nombre de css concatenees possibles in fine
-	if (isset($options['hash_on_content']) and $options['hash_on_content']) {
-		$hash = md5($contexte_implicite['host'] . '::' . $cache);
-	}
-	else {
-		unset($contexte_implicite['notes']); // pas pertinent pour signaler un changeemnt de contenu pour des css/js
-		ksort($contexte);
-		$hash = md5($fond . json_encode($contexte_implicite) . json_encode($contexte) . $connect);
-	}
-	$filename = $dir_var . $extension . "dyn-$nom_safe-" . substr($hash, 0, 8) . ".$extension";
-
-	// mettre a jour le fichier si il n'existe pas
-	// ou trop ancien
-	// le dernier fichier produit est toujours suffixe par .last
-	// et recopie sur le fichier cible uniquement si il change
-	if (
-		!file_exists($filename)
-		or !file_exists($filename . '.last')
-		or (isset($cache['lastmodified']) and $cache['lastmodified'] and filemtime($filename . '.last') < $cache['lastmodified'])
-		or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
-	) {
-		$contenu = $cache['texte'];
-		// passer les urls en absolu si c'est une css
-		if ($extension == 'css') {
-			$contenu = urls_absolues_css(
-				$contenu,
-				test_espace_prive() ? generer_url_ecrire('accueil') : generer_url_public($fond)
-			);
-		}
-
-		$comment = '';
-		// ne pas insérer de commentaire sur certains formats
-		if (!in_array($extension, ['json', 'xml', 'svg'])) {
-			$comment = "/* #PRODUIRE{fond=$fond";
-			foreach ($contexte as $k => $v) {
-				$comment .= ",$k=$v";
-			}
-			// pas de date dans le commentaire car sinon ca invalide le md5 et force la maj
-			// mais on peut mettre un md5 du contenu, ce qui donne un aperu rapide si la feuille a change ou non
-			$comment .= "}\n   md5:" . md5($contenu) . " */\n";
-		}
-		// et ecrire le fichier si il change
-		ecrire_fichier_calcule_si_modifie($filename, $comment . $contenu, false, true);
-	}
-
-	return timestamp($filename);
+    if (isset($contexte['format'])) {
+        $extension = $contexte['format'];
+        unset($contexte['format']);
+    } else {
+        $extension = 'html';
+        if (preg_match(',[.](css|js|json|xml|svg)$,', $fond, $m)) {
+            $extension = $m[1];
+        }
+    }
+    // recuperer le contenu produit par le squelette
+    $options['raw'] = true;
+    $cache = recuperer_fond($fond, $contexte, $options, $connect);
+
+    // calculer le nom de la css
+    $dir_var = sous_repertoire(_DIR_VAR, 'cache-' . $extension);
+    $nom_safe = preg_replace(',\W,', '_', str_replace('.', '_', $fond));
+    $contexte_implicite = calculer_contexte_implicite();
+
+    // par defaut on hash selon les contextes qui sont a priori moins variables
+    // mais on peut hasher selon le contenu a la demande, si plusieurs contextes produisent un meme contenu
+    // reduit la variabilite du nom et donc le nombre de css concatenees possibles in fine
+    if (isset($options['hash_on_content']) and $options['hash_on_content']) {
+        $hash = md5($contexte_implicite['host'] . '::' . $cache);
+    }
+    else {
+        unset($contexte_implicite['notes']); // pas pertinent pour signaler un changeemnt de contenu pour des css/js
+        ksort($contexte);
+        $hash = md5($fond . json_encode($contexte_implicite) . json_encode($contexte) . $connect);
+    }
+    $filename = $dir_var . $extension . "dyn-$nom_safe-" . substr($hash, 0, 8) . ".$extension";
+
+    // mettre a jour le fichier si il n'existe pas
+    // ou trop ancien
+    // le dernier fichier produit est toujours suffixe par .last
+    // et recopie sur le fichier cible uniquement si il change
+    if (
+        !file_exists($filename)
+        or !file_exists($filename . '.last')
+        or (isset($cache['lastmodified']) and $cache['lastmodified'] and filemtime($filename . '.last') < $cache['lastmodified'])
+        or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
+    ) {
+        $contenu = $cache['texte'];
+        // passer les urls en absolu si c'est une css
+        if ($extension == 'css') {
+            $contenu = urls_absolues_css(
+                $contenu,
+                test_espace_prive() ? generer_url_ecrire('accueil') : generer_url_public($fond)
+            );
+        }
+
+        $comment = '';
+        // ne pas insérer de commentaire sur certains formats
+        if (!in_array($extension, ['json', 'xml', 'svg'])) {
+            $comment = "/* #PRODUIRE{fond=$fond";
+            foreach ($contexte as $k => $v) {
+                $comment .= ",$k=$v";
+            }
+            // pas de date dans le commentaire car sinon ca invalide le md5 et force la maj
+            // mais on peut mettre un md5 du contenu, ce qui donne un aperu rapide si la feuille a change ou non
+            $comment .= "}\n   md5:" . md5($contenu) . " */\n";
+        }
+        // et ecrire le fichier si il change
+        ecrire_fichier_calcule_si_modifie($filename, $comment . $contenu, false, true);
+    }
+
+    return timestamp($filename);
 }
 
 /**
@@ -5172,15 +5172,15 @@ 
  *    $fichier auquel on a ajouté le timestamp
  */
 function timestamp($fichier) {
-	if (
-		!$fichier
-		or !file_exists($fichier)
-		or !$m = filemtime($fichier)
-	) {
-		return $fichier;
-	}
+    if (
+        !$fichier
+        or !file_exists($fichier)
+        or !$m = filemtime($fichier)
+    ) {
+        return $fichier;
+    }
 
-	return "$fichier?$m";
+    return "$fichier?$m";
 }
 
 /**
@@ -5190,11 +5190,11 @@ 
  * @return string
  */
 function supprimer_timestamp($url) {
-	if (strpos($url, '?') === false) {
-		return $url;
-	}
+    if (strpos($url, '?') === false) {
+        return $url;
+    }
 
-	return preg_replace(',\?[[:digit:]]+$,', '', $url);
+    return preg_replace(',\?[[:digit:]]+$,', '', $url);
 }
 
 /**
@@ -5209,9 +5209,9 @@ 
  * @return string
  */
 function filtre_nettoyer_titre_email_dist($titre) {
-	include_spip('inc/envoyer_mail');
+    include_spip('inc/envoyer_mail');
 
-	return nettoyer_titre_email($titre);
+    return nettoyer_titre_email($titre);
 }
 
 /**
@@ -5233,27 +5233,27 @@ 
  * @return string
  */
 function filtre_chercher_rubrique_dist(
-	$titre,
-	$id_objet,
-	$id_parent,
-	$objet,
-	$id_secteur,
-	$restreint,
-	$actionable = false,
-	$retour_sans_cadre = false
+    $titre,
+    $id_objet,
+    $id_parent,
+    $objet,
+    $id_secteur,
+    $restreint,
+    $actionable = false,
+    $retour_sans_cadre = false
 ) {
-	include_spip('inc/filtres_ecrire');
+    include_spip('inc/filtres_ecrire');
 
-	return chercher_rubrique(
-		$titre,
-		$id_objet,
-		$id_parent,
-		$objet,
-		$id_secteur,
-		$restreint,
-		$actionable,
-		$retour_sans_cadre
-	);
+    return chercher_rubrique(
+        $titre,
+        $id_objet,
+        $id_parent,
+        $objet,
+        $id_secteur,
+        $restreint,
+        $actionable,
+        $retour_sans_cadre
+    );
 }
 
 /**
@@ -5282,56 +5282,56 @@ 
  *     Chaîne vide si l'accès est autorisé
  */
 function sinon_interdire_acces($ok = false, $url = '', $statut = 0, $message = null) {
-	if ($ok) {
-		return '';
-	}
-
-	// Vider tous les tampons
-	$level = @ob_get_level();
-	while ($level--) {
-		@ob_end_clean();
-	}
-
-	include_spip('inc/headers');
-
-	// S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302 par défaut)
-	if ($url) {
-		redirige_par_entete($url, '', $statut);
-	}
-
-	// ecriture simplifiee avec message en 3eme argument (= statut 403)
-	if (!is_numeric($statut) and is_null($message)) {
-		$message = $statut;
-		$statut = 0;
-	}
-	if (!$message) {
-		$message = '';
-	}
-	$statut = intval($statut);
-
-	// Si on est dans l'espace privé, on génère du 403 Forbidden par defaut ou du 404
-	if (test_espace_prive()) {
-		if (!$statut or !in_array($statut, [404, 403])) {
-			$statut = 403;
-		}
-		http_response_code(403);
-		$echec = charger_fonction('403', 'exec');
-		$echec($message);
-	} else {
-		// Sinon dans l'espace public on redirige vers une 404 par défaut, car elle toujours présente normalement
-		if (!$statut) {
-			$statut = 404;
-		}
-		// Dans tous les cas on modifie l'entité avec ce qui est demandé
-		http_response_code($statut);
-		// Si le statut est une erreur et qu'il n'y a pas de redirection on va chercher le squelette du même nom
-		if ($statut >= 400) {
-			echo recuperer_fond("$statut", ['erreur' => $message]);
-		}
-	}
-
-
-	exit;
+    if ($ok) {
+        return '';
+    }
+
+    // Vider tous les tampons
+    $level = @ob_get_level();
+    while ($level--) {
+        @ob_end_clean();
+    }
+
+    include_spip('inc/headers');
+
+    // S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302 par défaut)
+    if ($url) {
+        redirige_par_entete($url, '', $statut);
+    }
+
+    // ecriture simplifiee avec message en 3eme argument (= statut 403)
+    if (!is_numeric($statut) and is_null($message)) {
+        $message = $statut;
+        $statut = 0;
+    }
+    if (!$message) {
+        $message = '';
+    }
+    $statut = intval($statut);
+
+    // Si on est dans l'espace privé, on génère du 403 Forbidden par defaut ou du 404
+    if (test_espace_prive()) {
+        if (!$statut or !in_array($statut, [404, 403])) {
+            $statut = 403;
+        }
+        http_response_code(403);
+        $echec = charger_fonction('403', 'exec');
+        $echec($message);
+    } else {
+        // Sinon dans l'espace public on redirige vers une 404 par défaut, car elle toujours présente normalement
+        if (!$statut) {
+            $statut = 404;
+        }
+        // Dans tous les cas on modifie l'entité avec ce qui est demandé
+        http_response_code($statut);
+        // Si le statut est une erreur et qu'il n'y a pas de redirection on va chercher le squelette du même nom
+        if ($statut >= 400) {
+            echo recuperer_fond("$statut", ['erreur' => $message]);
+        }
+    }
+
+
+    exit;
 }
 
 /**
@@ -5342,11 +5342,11 @@ 
  * @return string
  */
 function filtre_compacte_dist($source, $format = null) {
-	if (function_exists('compacte')) {
-		return compacte($source, $format);
-	}
+    if (function_exists('compacte')) {
+        return compacte($source, $format);
+    }
 
-	return $source;
+    return $source;
 }
 
 
@@ -5358,31 +5358,31 @@ 
  * @return string
  */
 function spip_affiche_mot_de_passe_masque($passe, $afficher_partiellement = false, $portion_pourcent = null) {
-	$l = strlen($passe);
-
-	if ($l <= 8 or !$afficher_partiellement) {
-		if (!$l) {
-			return ''; // montrer qu'il y a pas de mot de passe si il y en a pas
-		}
-		return str_pad('', $afficher_partiellement ? $l : 16, '*');
-	}
-
-	if (is_null($portion_pourcent)) {
-		if (!defined('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT')) {
-			define('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT', 20); // 20%
-		}
-		$portion_pourcent = _SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT;
-	}
-	if ($portion_pourcent >= 100) {
-		return $passe;
-	}
-	$e = intval(ceil($l * $portion_pourcent / 100 / 2));
-	$e = max($e, 0);
-	$mid = str_pad('', $l - 2 * $e, '*');
-	if ($e > 0 and strlen($mid) > 8) {
-		$mid = '***...***';
-	}
-	return substr($passe, 0, $e) . $mid . ($e > 0 ? substr($passe, -$e) : '');
+    $l = strlen($passe);
+
+    if ($l <= 8 or !$afficher_partiellement) {
+        if (!$l) {
+            return ''; // montrer qu'il y a pas de mot de passe si il y en a pas
+        }
+        return str_pad('', $afficher_partiellement ? $l : 16, '*');
+    }
+
+    if (is_null($portion_pourcent)) {
+        if (!defined('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT')) {
+            define('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT', 20); // 20%
+        }
+        $portion_pourcent = _SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT;
+    }
+    if ($portion_pourcent >= 100) {
+        return $passe;
+    }
+    $e = intval(ceil($l * $portion_pourcent / 100 / 2));
+    $e = max($e, 0);
+    $mid = str_pad('', $l - 2 * $e, '*');
+    if ($e > 0 and strlen($mid) > 8) {
+        $mid = '***...***';
+    }
+    return substr($passe, 0, $e) . $mid . ($e > 0 ? substr($passe, -$e) : '');
 }
 
 
@@ -5403,64 +5403,64 @@ 
  */
 function identifiant_slug($texte, $type = '', $options = []) {
 
-	$original = $texte;
-	$separateur = (isset($options['separateur']) ? $options['separateur'] : '_');
-	$longueur_maxi = (isset($options['longueur_maxi']) ? $options['longueur_maxi'] : 60);
-	$longueur_mini = (isset($options['longueur_mini']) ? $options['longueur_mini'] : 0);
+    $original = $texte;
+    $separateur = (isset($options['separateur']) ? $options['separateur'] : '_');
+    $longueur_maxi = (isset($options['longueur_maxi']) ? $options['longueur_maxi'] : 60);
+    $longueur_mini = (isset($options['longueur_mini']) ? $options['longueur_mini'] : 0);
 
-	if (!function_exists('translitteration')) {
-		include_spip('inc/charsets');
-	}
+    if (!function_exists('translitteration')) {
+        include_spip('inc/charsets');
+    }
 
-	// pas de balise html
-	if (strpos($texte, '<') !== false) {
-		$texte = strip_tags($texte);
-	}
-	if (strpos($texte, '&') !== false) {
-		$texte = unicode2charset($texte);
-	}
-	// On enlève les espaces indésirables
-	$texte = trim($texte);
+    // pas de balise html
+    if (strpos($texte, '<') !== false) {
+        $texte = strip_tags($texte);
+    }
+    if (strpos($texte, '&') !== false) {
+        $texte = unicode2charset($texte);
+    }
+    // On enlève les espaces indésirables
+    $texte = trim($texte);
 
-	// On enlève les accents et cie
-	$texte = translitteration($texte);
+    // On enlève les accents et cie
+    $texte = translitteration($texte);
 
-	// On remplace tout ce qui n'est pas un mot par un séparateur
-	$texte = preg_replace(',[\W_]+,ms', $separateur, $texte);
+    // On remplace tout ce qui n'est pas un mot par un séparateur
+    $texte = preg_replace(',[\W_]+,ms', $separateur, $texte);
 
-	// nettoyer les doubles occurences du separateur si besoin
-	while (strpos($texte, "$separateur$separateur") !== false) {
-		$texte = str_replace("$separateur$separateur", $separateur, $texte);
-	}
+    // nettoyer les doubles occurences du separateur si besoin
+    while (strpos($texte, "$separateur$separateur") !== false) {
+        $texte = str_replace("$separateur$separateur", $separateur, $texte);
+    }
 
-	// pas de separateur au debut ni a la fin
-	$texte = trim($texte, $separateur);
+    // pas de separateur au debut ni a la fin
+    $texte = trim($texte, $separateur);
 
-	// en minuscules
-	$texte = strtolower($texte);
+    // en minuscules
+    $texte = strtolower($texte);
 
-	switch ($type) {
-		case 'class':
-		case 'id':
-		case 'anchor':
-			if (preg_match(',^\d,', $texte)) {
-				$texte = substr($type, 0, 1) . $texte;
-			}
-	}
+    switch ($type) {
+        case 'class':
+        case 'id':
+        case 'anchor':
+            if (preg_match(',^\d,', $texte)) {
+                $texte = substr($type, 0, 1) . $texte;
+            }
+    }
 
-	if (strlen($texte) > $longueur_maxi) {
-		$texte = substr($texte, 0, $longueur_maxi);
-	}
+    if (strlen($texte) > $longueur_maxi) {
+        $texte = substr($texte, 0, $longueur_maxi);
+    }
 
-	if (strlen($texte) < $longueur_mini and $longueur_mini < $longueur_maxi) {
-		if (preg_match(',^\d,', $texte)) {
-			$texte = ($type ? substr($type, 0, 1) : 's') . $texte;
-		}
-		$texte .= $separateur . md5($original);
-		$texte = substr($texte, 0, $longueur_mini);
-	}
+    if (strlen($texte) < $longueur_mini and $longueur_mini < $longueur_maxi) {
+        if (preg_match(',^\d,', $texte)) {
+            $texte = ($type ? substr($type, 0, 1) : 's') . $texte;
+        }
+        $texte .= $separateur . md5($original);
+        $texte = substr($texte, 0, $longueur_mini);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -5481,14 +5481,14 @@ 
  * @exemple `<:info_maximum|label_nettoyer:>`
  */
 function label_nettoyer(string $text, bool $ucfirst = true): string {
-	$label = rtrim($text, " : \t\n\r\0\x0B\xc2\xa0");
-	if ($label and $label[-1] === ';') {
-		$label = preg_replace('#(\&nbsp;)+$#', '', $label);
-	}
-	if ($ucfirst) {
-		$label = spip_ucfirst($label);
-	}
-	return $label;
+    $label = rtrim($text, " : \t\n\r\0\x0B\xc2\xa0");
+    if ($label and $label[-1] === ';') {
+        $label = preg_replace('#(\&nbsp;)+$#', '', $label);
+    }
+    if ($ucfirst) {
+        $label = spip_ucfirst($label);
+    }
+    return $label;
 }
 
 /**
@@ -5501,8 +5501,8 @@ 
  * @exemple `<:info_maximum|label_ponctuer:>`
  */
 function label_ponctuer(string $text, bool $ucfirst = true): string {
-	$label = label_nettoyer($text, $ucfirst);
-	return _T('label_ponctuer', ['label' => $label]);
+    $label = label_nettoyer($text, $ucfirst);
+    return _T('label_ponctuer', ['label' => $label]);
 }
 
 
@@ -5515,19 +5515,19 @@ 
  * @return array
  */
 function helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, $fonction) {
-	if (!in_array($fonction, ['objet_lister_parents', 'objet_lister_enfants', 'objet_lister_parents_par_type', 'objet_lister_enfants_par_type'])) {
-		return [];
-	}
+    if (!in_array($fonction, ['objet_lister_parents', 'objet_lister_enfants', 'objet_lister_parents_par_type', 'objet_lister_enfants_par_type'])) {
+        return [];
+    }
 
-	// compatibilite signature inversee
-	if (is_numeric($objet) and !is_numeric($id_objet)) {
-		list($objet, $id_objet) = [$id_objet, $objet];
-	}
+    // compatibilite signature inversee
+    if (is_numeric($objet) and !is_numeric($id_objet)) {
+        list($objet, $id_objet) = [$id_objet, $objet];
+    }
 
-	if (!function_exists($fonction)) {
-		include_spip('base/objets');
-	}
-	return $fonction($objet, $id_objet);
+    if (!function_exists($fonction)) {
+        include_spip('base/objets');
+    }
+    return $fonction($objet, $id_objet);
 }
 
 
@@ -5542,7 +5542,7 @@ 
  * @return array
  */
 function filtre_objet_lister_parents_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents');
 }
 
 /**
@@ -5556,7 +5556,7 @@ 
  * @return array
  */
 function filtre_objet_lister_parents_par_type_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents_par_type');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents_par_type');
 }
 
 /**
@@ -5570,7 +5570,7 @@ 
  * @return array
  */
 function filtre_objet_lister_enfants_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants');
 }
 
 /**
@@ -5584,5 +5584,5 @@ 
  * @return array
  */
 function filtre_objet_lister_enfants_par_type_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants_par_type');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants_par_type');
 }

ecrire/inc/flock.php

Indentation +404 added lines, -404 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$,', isset($_ENV['HTTP_HOST']) ? $_ENV['HTTP_HOST'] : ''));
+    /** Permettre d'éviter des tests file_exists sur certains hébergeurs */
+    define('_TEST_FILE_EXISTS', preg_match(',(online|free)[.]fr$,', isset($_ENV['HTTP_HOST']) ? $_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,22 +388,22 @@ 
  *     Chemin du fichier
  **/
 function raler_fichier($fichier) {
-	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;
+    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;
 }
 
 
@@ -418,14 +418,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);
 }
 
 /**
@@ -440,22 +440,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);
 }
 
 /**
@@ -465,12 +465,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);
+    }
 }
 
 /**
@@ -484,26 +484,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);
+    }
 }
 
 /**
@@ -526,25 +526,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);
+        }
+    }
 }
 
 
@@ -557,26 +557,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);
 }
 
 
@@ -605,57 +605,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');
 }
 
 
@@ -688,56 +688,56 @@ 
  *     Chemins des fichiers trouvés.
  **/
 function preg_files($dir, $pattern = -1 /* AUTO */, $maxfiles = 10000, $recurs = []) {
-	$nbfiles = 0;
-	if ($pattern == -1) {
-		$pattern = "^$dir";
-	}
-	$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 (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 = "^$dir";
+    }
+    $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 (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/utils.php

Indentation +2224 added lines, -2225 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -48,66 +48,66 @@ 
  *     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'),
-		_T('fichier_introuvable', ['fichier' => '<b>' . spip_htmlentities($d) . '</b>']),
-		['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'),
+        _T('fichier_introuvable', ['fichier' => '<b>' . spip_htmlentities($d) . '</b>']),
+        ['all_inline' => true,'status' => 404]
+    );
+    exit;
 }
 
 /**
@@ -117,17 +117,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 : []);
-	$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 : []);
+    $crash[$file] = true;
+    ecrire_meta('message_crash_plugins', serialize($crash));
 
-	return false;
+    return false;
 }
 
 
@@ -151,7 +151,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);
 }
 
 /**
@@ -171,7 +171,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function require_spip($f) {
-	return find_in_path($f . '.php', '', 'required');
+    return find_in_path($f . '.php', '', 'required');
 }
 
 
@@ -180,27 +180,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;
+    }
 }
 
 /**
@@ -226,23 +226,23 @@ 
  *     Les paramètres du pipeline modifiés
  **/
 function minipipe($fonc, &$val) {
-	// fonction
-	if (function_exists($fonc)) {
-		$val = call_user_func($fonc, $val);
-	} // Class::Methode
-	else {
-		if (
-			preg_match('/^(\w*)::(\w*)$/S', $fonc, $regs)
-			and $methode = [$regs[1], $regs[2]]
-			and is_callable($methode)
-		) {
-			$val = call_user_func($methode, $val);
-		} else {
-			spip_log("Erreur - '$fonc' non definie !");
-		}
-	}
-
-	return $val;
+    // fonction
+    if (function_exists($fonc)) {
+        $val = call_user_func($fonc, $val);
+    } // Class::Methode
+    else {
+        if (
+            preg_match('/^(\w*)::(\w*)$/S', $fonc, $regs)
+            and $methode = [$regs[1], $regs[2]]
+            and is_callable($methode)
+        ) {
+            $val = call_user_func($methode, $val);
+        } else {
+            spip_log("Erreur - '$fonc' non definie !");
+        }
+    }
+
+    return $val;
 }
 
 /**
@@ -273,46 +273,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;
 }
 
 /**
@@ -356,38 +356,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);
+    }
 }
 
 /**
@@ -398,8 +398,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);
 }
 
 
@@ -418,37 +418,37 @@ 
  **/
 function _request($var, $c = false) {
 
-	if (is_array($c)) {
-		return isset($c[$var]) ? $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 isset($c[$var]) ? $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;
 }
 
 
@@ -466,22 +466,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
 }
 
 /**
@@ -501,25 +501,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;
 }
 
 /**
@@ -527,23 +527,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 (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 (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;
 }
 
 /**
@@ -565,95 +564,95 @@ 
  * @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 = './';
-	}
-
-	$regexp = ',^(' . str_replace('[]', '\[\]', $c) . '[[]?[]]?)(=.*)?$,';
-	$ajouts = array_flip(explode('|', $c));
-	$u = is_array($v) ? $v : rawurlencode($v);
-	$testv = (is_array($v) ? count($v) : strlen($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' : $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 = './';
+    }
+
+    $regexp = ',^(' . str_replace('[]', '\[\]', $c) . '[[]?[]]?)(=.*)?$,';
+    $ajouts = array_flip(explode('|', $c));
+    $u = is_array($v) ? $v : rawurlencode($v);
+    $testv = (is_array($v) ? count($v) : strlen($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' : $w);
+                }
+            }
+        }
+    }
+
+    // eliminer les vides
+    $url = array_filter($url);
+
+    // recomposer l'adresse
+    if ($url) {
+        $a .= '?' . join($sep, $url);
+    }
+
+    return $a . $ancre;
 }
 
 /**
@@ -671,21 +670,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 : '');
 }
 
 /**
@@ -695,16 +694,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']);
 }
 
 /**
@@ -716,16 +715,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);
 }
 
 
@@ -739,48 +738,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;
 }
 
 
@@ -791,7 +790,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;
 }
 
 /**
@@ -801,7 +800,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;
 }
 
 /**
@@ -832,53 +831,53 @@ 
  *     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 (!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')) {
-			$text = str_replace(
-				'_',
-				' ',
-				(($n = strpos($text, ':')) === false ? $texte :
-				substr($texte, $n + 1))
-			);
-		}
-		$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 (!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')) {
+            $text = str_replace(
+                '_',
+                ' ',
+                (($n = strpos($text, ':')) === false ? $texte :
+                substr($texte, $n + 1))
+            );
+        }
+        $o['class'] = null;
+    }
+
+    return _L($text, $args, $o);
 }
 
 
@@ -905,53 +904,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, "@$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, "@$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;
+    }
 }
 
 
@@ -965,13 +964,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;
 }
 
 
@@ -996,33 +995,33 @@ 
  * @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);
+    }
 }
 
 
@@ -1030,21 +1029,21 @@ 
 // sinon renvoie True et le date sauf si ca n'est pas souhaite
 // https://code.spip.net/@spip_touch
 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;
 }
 
 
@@ -1055,11 +1054,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();
 }
 
 /**
@@ -1075,26 +1074,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;
 }
 
 /**
@@ -1126,17 +1125,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);
 }
 
 /**
@@ -1147,9 +1146,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);
 }
 
 /**
@@ -1162,9 +1161,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);
 }
 
 
@@ -1184,36 +1183,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'];
 }
 
 
@@ -1225,11 +1224,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
+    );
 }
 
 
@@ -1252,27 +1251,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"
+        : '';
 }
 
 
@@ -1307,7 +1306,7 @@ 
  *     Texte échappé
  **/
 function texte_script($texte) {
-	return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
+    return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
 }
 
 
@@ -1344,68 +1343,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;
 }
 
 /**
@@ -1418,78 +1417,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"] = '';
 }
 
 
@@ -1513,31 +1512,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) {
-		list($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) {
+        list($icone, $fonction) = $icone_renommer($icone, '');
+        if (file_exists($icone)) {
+            return $icone;
+        }
+    }
+
+    return find_in_path($icone, _NOM_IMG_PACK);
 }
 
 //
@@ -1575,128 +1574,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']));
+    }
 }
 
 
@@ -1716,33 +1715,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;
 }
 
 /**
@@ -1754,17 +1753,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;
 }
 
 /**
@@ -1790,99 +1789,99 @@ 
  *           (cas des raccourcis personalises [->spip20] : il faut implementer une fonction generer_url_spip et une fonction generer_url_ecrire_spip)
  */
 function generer_url_entite($id = '', $entite = '', $args = '', $ancre = '', $public = null, $type = null) {
-	if ($public === null) {
-		$public = !test_espace_prive();
-	}
-	$entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
-
-	if (!$public) {
-		if (!$entite) {
-			return '';
-		}
-		if (!function_exists('generer_url_ecrire_objet')) {
-			include_spip('inc/urls');
-		}
-		$res = generer_url_ecrire_objet($entite, $id, $args, $ancre, false);
-	} else {
-		if ($type === null) {
-			$type = (isset($GLOBALS['type_urls']))
-				? $GLOBALS['type_urls'] // pour surcharge via fichier d'options
-				: ((isset($GLOBALS['meta']['type_urls'])) // sinon la config url_etendues
-					? ($GLOBALS['meta']['type_urls']) : 'page'); // sinon type "page" par défaut
-		}
-
-		$f = charger_fonction($type, 'urls', true);
-		// se rabattre sur les urls page si les urls perso non dispo
-		if (!$f) {
-			$f = charger_fonction('page', 'urls', true);
-		}
-
-		// si $entite='', on veut la fonction de passage URL ==> id
-		// sinon on veut effectuer le passage id ==> URL
-		if (!$entite) {
-			return $f;
-		}
-
-		// mais d'abord il faut tester le cas des urls sur une
-		// base distante
-		if (
-			is_string($public)
-			and $g = charger_fonction('connect', 'urls', true)
-		) {
-			$f = $g;
-		}
-
-		$res = $f(intval($id), $entite, $args, $ancre, $public);
-	}
-	if ($res) {
-		return $res;
-	}
-	// Sinon c'est un raccourci ou compat SPIP < 2
-	if (!function_exists($f = 'generer_url_' . $entite)) {
-		if (!function_exists($f .= '_dist')) {
-			$f = '';
-		}
-	}
-	if ($f) {
-		$url = $f($id, $args, $ancre);
-		if (strlen($args)) {
-			$url .= strstr($url, '?')
-				? '&amp;' . $args
-				: '?' . $args;
-		}
-
-		return $url;
-	}
-	// On a ete gentil mais la ....
-	spip_log("generer_url_entite: entite $entite ($f) inconnue $type $public");
-
-	return '';
+    if ($public === null) {
+        $public = !test_espace_prive();
+    }
+    $entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
+
+    if (!$public) {
+        if (!$entite) {
+            return '';
+        }
+        if (!function_exists('generer_url_ecrire_objet')) {
+            include_spip('inc/urls');
+        }
+        $res = generer_url_ecrire_objet($entite, $id, $args, $ancre, false);
+    } else {
+        if ($type === null) {
+            $type = (isset($GLOBALS['type_urls']))
+                ? $GLOBALS['type_urls'] // pour surcharge via fichier d'options
+                : ((isset($GLOBALS['meta']['type_urls'])) // sinon la config url_etendues
+                    ? ($GLOBALS['meta']['type_urls']) : 'page'); // sinon type "page" par défaut
+        }
+
+        $f = charger_fonction($type, 'urls', true);
+        // se rabattre sur les urls page si les urls perso non dispo
+        if (!$f) {
+            $f = charger_fonction('page', 'urls', true);
+        }
+
+        // si $entite='', on veut la fonction de passage URL ==> id
+        // sinon on veut effectuer le passage id ==> URL
+        if (!$entite) {
+            return $f;
+        }
+
+        // mais d'abord il faut tester le cas des urls sur une
+        // base distante
+        if (
+            is_string($public)
+            and $g = charger_fonction('connect', 'urls', true)
+        ) {
+            $f = $g;
+        }
+
+        $res = $f(intval($id), $entite, $args, $ancre, $public);
+    }
+    if ($res) {
+        return $res;
+    }
+    // Sinon c'est un raccourci ou compat SPIP < 2
+    if (!function_exists($f = 'generer_url_' . $entite)) {
+        if (!function_exists($f .= '_dist')) {
+            $f = '';
+        }
+    }
+    if ($f) {
+        $url = $f($id, $args, $ancre);
+        if (strlen($args)) {
+            $url .= strstr($url, '?')
+                ? '&amp;' . $args
+                : '?' . $args;
+        }
+
+        return $url;
+    }
+    // On a ete gentil mais la ....
+    spip_log("generer_url_entite: entite $entite ($f) inconnue $type $public");
+
+    return '';
 }
 
 function generer_url_ecrire_entite_edit($id, $entite, $args = '', $ancre = '') {
-	$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);
-	}
+    $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;
 }
 
 // https://code.spip.net/@urls_connect_dist
 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");
 }
 
 
@@ -1893,32 +1892,32 @@ 
  * @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);
 }
 
 // https://code.spip.net/@generer_url_entite_absolue
 function generer_url_entite_absolue($id = '', $entite = '', $args = '', $ancre = '', $connect = null) {
-	if (!$connect) {
-		$connect = true;
-	}
-	$h = generer_url_entite($id, $entite, $args, $ancre, $connect);
-	if (!preg_match(',^\w+:,', $h)) {
-		include_spip('inc/filtres_mini');
-		$h = url_absolue($h);
-	}
+    if (!$connect) {
+        $connect = true;
+    }
+    $h = generer_url_entite($id, $entite, $args, $ancre, $connect);
+    if (!preg_match(',^\w+:,', $h)) {
+        include_spip('inc/filtres_mini');
+        $h = url_absolue($h);
+    }
 
-	return $h;
+    return $h;
 }
 
 
@@ -1934,11 +1933,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');
 }
 
 //
@@ -1966,82 +1965,82 @@ 
  */
 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'];
-	}
-
-	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
-	$host = isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : 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'];
-			}
-		}
-	}
-
-	$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'];
+    }
+
+    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
+    $host = isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : 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'];
+            }
+        }
+    }
+
+    $url[$profondeur] = url_de_($http, $host, $GLOBALS['REQUEST_URI'], $profondeur);
+
+    return $url[$profondeur];
 }
 
 /**
@@ -2054,26 +2053,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
-	list($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
+    list($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;
 }
 
 
@@ -2108,26 +2107,26 @@ 
  * @return string URL
  **/
 function generer_url_ecrire($script = '', $args = '', $no_entities = false, $rel = false) {
-	if (!$rel) {
-		$rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
-	} else {
-		if (!is_string($rel)) {
-			$rel = _DIR_RESTREINT ? _DIR_RESTREINT :
-				('./' . _SPIP_ECRIRE_SCRIPT);
-		}
-	}
-
-	list($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));
+    if (!$rel) {
+        $rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
+    } else {
+        if (!is_string($rel)) {
+            $rel = _DIR_RESTREINT ? _DIR_RESTREINT :
+                ('./' . _SPIP_ECRIRE_SCRIPT);
+        }
+    }
+
+    list($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));
 }
 
 //
@@ -2149,12 +2148,12 @@ 
  *     Nom du fichier (constante _SPIP_SCRIPT), sinon nom par défaut
  **/
 function get_spip_script($default = '') {
-	# cas define('_SPIP_SCRIPT', '');
-	if (_SPIP_SCRIPT) {
-		return _SPIP_SCRIPT;
-	} else {
-		return $default;
-	}
+    # cas define('_SPIP_SCRIPT', '');
+    if (_SPIP_SCRIPT) {
+        return _SPIP_SCRIPT;
+    } else {
+        return $default;
+    }
 }
 
 /**
@@ -2183,39 +2182,39 @@ 
  * @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 (!$action) {
-		$action = get_spip_script();
-	}
-	if ($script) {
-		$action = parametre_url($action, _SPIP_PAGE, $script, '&');
-	}
-
-	if ($args) {
-		if (is_array($args)) {
-			$r = '';
-			foreach ($args as $k => $v) {
-				$r .= '&' . $k . '=' . $v;
-			}
-			$args = substr($r, 1);
-		}
-		$action .=
-			(strpos($action, '?') !== false ? '&' : '?') . $args;
-	}
-	if (!$no_entities) {
-		$action = quote_amp($action);
-	}
-
-	// ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
-	return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(',^/[.]/,', '/', "/$action"));
+    // si le script est une action (spip_pass, spip_inscription),
+    // standardiser vers la nouvelle API
+
+    if (!$action) {
+        $action = get_spip_script();
+    }
+    if ($script) {
+        $action = parametre_url($action, _SPIP_PAGE, $script, '&');
+    }
+
+    if ($args) {
+        if (is_array($args)) {
+            $r = '';
+            foreach ($args as $k => $v) {
+                $r .= '&' . $k . '=' . $v;
+            }
+            $args = substr($r, 1);
+        }
+        $action .=
+            (strpos($action, '?') !== false ? '&' : '?') . $args;
+    }
+    if (!$no_entities) {
+        $action = quote_amp($action);
+    }
+
+    // ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
+    return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(',^/[.]/,', '/', "/$action"));
 }
 
 // https://code.spip.net/@generer_url_prive
 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,
@@ -2240,19 +2239,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 ? $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 ? $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";
 }
 
 /**
@@ -2269,22 +2268,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>';
 }
 
 /**
@@ -2303,22 +2302,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;
 }
 
 
@@ -2331,8 +2330,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();
 }
 
 /**
@@ -2352,322 +2351,322 @@ 
  * @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']);
-	}
-
-	//
-	// Capacites php (en fonction de la version)
-	//
-	$GLOBALS['flag_ob'] = (function_exists('ob_start')
-		&& function_exists('ini_get')
-		&& !strstr(@ini_get('disable_functions'), 'ob_'));
-	$GLOBALS['flag_sapi_name'] = function_exists('php_sapi_name');
-	$GLOBALS['flag_get_cfg_var'] = (@get_cfg_var('error_reporting') != '');
-	$GLOBALS['flag_upload'] = (!$GLOBALS['flag_get_cfg_var'] ||
-		(get_cfg_var('upload_max_filesize') > 0));
-
-
-	// 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 = (isset($uri_ref['path']) ? $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']);
+    }
+
+    //
+    // Capacites php (en fonction de la version)
+    //
+    $GLOBALS['flag_ob'] = (function_exists('ob_start')
+        && function_exists('ini_get')
+        && !strstr(@ini_get('disable_functions'), 'ob_'));
+    $GLOBALS['flag_sapi_name'] = function_exists('php_sapi_name');
+    $GLOBALS['flag_get_cfg_var'] = (@get_cfg_var('error_reporting') != '');
+    $GLOBALS['flag_upload'] = (!$GLOBALS['flag_get_cfg_var'] ||
+        (get_cfg_var('upload_max_filesize') > 0));
+
+
+    // 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 = (isset($uri_ref['path']) ? $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();
+        }
+    }
 }
 
 /**
@@ -2676,186 +2675,186 @@ 
  *
  */
 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);
-	}
-
-
-	// 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', 33554432);
-	} // 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
-		);
-	}
-
-	if (!defined('_MEMORY_LIMIT_MIN')) {
-		define('_MEMORY_LIMIT_MIN', 16);
-	} // en Mo
-	// si on est dans l'espace prive et si le besoin est superieur a 8Mo (qui est vraiment le standard)
-	// on verifie que la memoire est suffisante pour le compactage css+js pour eviter la page blanche
-	// il y aura d'autres problemes et l'utilisateur n'ira pas tres loin, mais ce sera plus comprehensible qu'une page blanche
-	if (test_espace_prive() and _MEMORY_LIMIT_MIN > 8) {
-		if ($memory = trim(ini_get('memory_limit')) and $memory != -1) {
-			$unit = strtolower(substr($memory, -1));
-			$memory = substr($memory, 0, -1);
-			switch ($unit) {
-				// Le modifieur 'G' est disponible depuis PHP 5.1.0
-				case 'g':
-					$memory *= 1024;
-				case 'm':
-					$memory *= 1024;
-				case 'k':
-					$memory *= 1024;
-			}
-			if ($memory < _MEMORY_LIMIT_MIN * 1024 * 1024) {
-				@ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN . 'M');
-				if (trim(ini_get('memory_limit')) != $m) {
-					if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
-						define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
-					} // evite une page blanche car on ne saura pas calculer la css dans ce hit
-				}
-			}
-		} else {
-			if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
-				define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
-			}
-		} // evite une page blanche car on ne saura pas calculer la css dans ce hit
-	}
-	// 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);
+    }
+
+
+    // 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', 33554432);
+    } // 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
+        );
+    }
+
+    if (!defined('_MEMORY_LIMIT_MIN')) {
+        define('_MEMORY_LIMIT_MIN', 16);
+    } // en Mo
+    // si on est dans l'espace prive et si le besoin est superieur a 8Mo (qui est vraiment le standard)
+    // on verifie que la memoire est suffisante pour le compactage css+js pour eviter la page blanche
+    // il y aura d'autres problemes et l'utilisateur n'ira pas tres loin, mais ce sera plus comprehensible qu'une page blanche
+    if (test_espace_prive() and _MEMORY_LIMIT_MIN > 8) {
+        if ($memory = trim(ini_get('memory_limit')) and $memory != -1) {
+            $unit = strtolower(substr($memory, -1));
+            $memory = substr($memory, 0, -1);
+            switch ($unit) {
+                // Le modifieur 'G' est disponible depuis PHP 5.1.0
+                case 'g':
+                    $memory *= 1024;
+                case 'm':
+                    $memory *= 1024;
+                case 'k':
+                    $memory *= 1024;
+            }
+            if ($memory < _MEMORY_LIMIT_MIN * 1024 * 1024) {
+                @ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN . 'M');
+                if (trim(ini_get('memory_limit')) != $m) {
+                    if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
+                        define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
+                    } // evite une page blanche car on ne saura pas calculer la css dans ce hit
+                }
+            }
+        } else {
+            if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
+                define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
+            }
+        } // evite une page blanche car on ne saura pas calculer la css dans ce hit
+    }
+    // Protocoles a normaliser dans les chaines de langues
+    if (!defined('_PROTOCOLES_STD')) {
+        define('_PROTOCOLES_STD', 'http|https|ftp|mailto|webcal');
+    }
+
+    init_var_mode();
 }
 
 /**
@@ -2889,136 +2888,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;
+    }
 }
 
 // Annuler les magic quotes \' sur GET POST COOKIE et GLOBALS ;
@@ -3026,84 +3025,84 @@ 
 // la commande is_readable('chemin/vers/fichier/interdit%00truc_normal')
 // https://code.spip.net/@spip_desinfecte
 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);
+            }
+        }
+    }
 }
 
 //  retourne le statut du visiteur s'il s'annonce
 
 // https://code.spip.net/@verifier_visiteur
 function verifier_visiteur() {
-	// Rq: pour que cette fonction marche depuis mes_options
-	// il faut forcer l'init si ce n'est fait
-	// mais on risque de perturber des plugins en initialisant trop tot
-	// certaines constantes
-	@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;
+    // Rq: pour que cette fonction marche depuis mes_options
+    // il faut forcer l'init si ce n'est fait
+    // mais on risque de perturber des plugins en initialisant trop tot
+    // certaines constantes
+    @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;
 }
 
 
@@ -3126,21 +3125,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;
 }
 
 /**
@@ -3157,20 +3156,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;
 }
 
 
@@ -3189,9 +3188,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) : '';
 }
 
 /**
@@ -3201,24 +3200,24 @@ 
  */
 function exec_info_dist() {
 
-	include_spip('inc/autoriser');
-	if (autoriser('phpinfos')) {
-		$cookies_masques = ['spip_session', 'PHPSESSID'];
-		$cookies_backup = [];
-		foreach ($cookies_masques as $k) {
-			if (!empty($_COOKIE[$k])) {
-				$cookies_backup[$k] = $_COOKIE[$k];
-				$_COOKIE[$k] = '******************************';
-			}
-		}
-		phpinfo();
-		foreach ($cookies_backup as $k => $v) {
-			$_COOKIE[$k] = $v;
-		}
-	} else {
-		include_spip('inc/filtres');
-		sinon_interdire_acces();
-	}
+    include_spip('inc/autoriser');
+    if (autoriser('phpinfos')) {
+        $cookies_masques = ['spip_session', 'PHPSESSID'];
+        $cookies_backup = [];
+        foreach ($cookies_masques as $k) {
+            if (!empty($_COOKIE[$k])) {
+                $cookies_backup[$k] = $_COOKIE[$k];
+                $_COOKIE[$k] = '******************************';
+            }
+        }
+        phpinfo();
+        foreach ($cookies_backup as $k => $v) {
+            $_COOKIE[$k] = $v;
+        }
+    } else {
+        include_spip('inc/filtres');
+        sinon_interdire_acces();
+    }
 }
 
 /**
@@ -3238,13 +3237,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);
 }
 
 /**
@@ -3281,108 +3280,108 @@ 
  *     - ou tableau d'information sur le squelette.
  */
 function recuperer_fond($fond, $contexte = [], $options = [], $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	= (isset($GLOBALS['cache_utilise_session']) ? $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 = isset($options['compil']) ? $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	= (isset($GLOBALS['cache_utilise_session']) ? $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 = isset($options['compil']) ? $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;
+    }
 }
 
 /**
@@ -3392,7 +3391,7 @@ 
  * @return string
  */
 function trouve_modele($nom) {
-	return trouver_fond($nom, 'modeles/');
+    return trouver_fond($nom, 'modeles/');
 }
 
 /**
@@ -3408,21 +3407,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;
 }
 
 /**
@@ -3442,21 +3441,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 : '');
 }
 
 /**
@@ -3466,8 +3465,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');
 }
 
 /**
@@ -3477,30 +3476,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;
 }
 
 /**
@@ -3509,20 +3508,20 @@ 
  * @return array|bool
  */
 function spip_getimagesize($fichier) {
-	if (!$imagesize = @getimagesize($fichier)) {
-		include_spip('inc/svg');
-		if ($attrs = svg_lire_attributs($fichier)) {
-			list($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)) {
+            list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
+            $imagesize = [
+                $width,
+                $height,
+                IMAGETYPE_SVG,
+                "width=\"{$width}\" height=\"{$height}\"",
+                'mime' => 'image/svg+xml'
+            ];
+        }
+    }
+    return $imagesize;
 }
 
 /**
@@ -3536,19 +3535,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));
 }
 
 /**
@@ -3562,10 +3561,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);
 }
 
 
@@ -3590,32 +3589,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/headers.php

Indentation +136 added lines, -136 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -38,134 +38,134 @@ 
  * @param int $status Code de redirection (301 ou 302)
  **/
 function redirige_par_entete($url, $equiv = '', $status = 302) {
-	if (!in_array($status, [301, 302])) {
-		$status = 302;
-	}
-
-	$url = trim(strtr($url, "\n\r", '  '));
-	# si l'url de redirection est relative, on la passe en absolue
-	if (!preg_match(',^(\w+:)?//,', $url)) {
-		include_spip('inc/filtres_mini');
-		$url = url_absolue($url);
-	}
-
-	if (defined('_AJAX') and _AJAX) {
-		$url = parametre_url($url, 'var_ajax_redir', 1, '&');
-	}
-
-	// ne pas laisser passer n'importe quoi dans l'url
-	$url = str_replace(['<', '"'], ['&lt;', '&quot;'], $url);
-	$url = str_replace(["\r", "\n", ' '], ['%0D', '%0A', '%20'], $url);
-	while (strpos($url, '%0A') !== false) {
-		$url = str_replace('%0A', '', $url);
-	}
-	// interdire les url inline avec des pseudo-protocoles :
-	if (
-		(preg_match(',data:,i', $url) and preg_match('/base64\s*,/i', $url))
-		or preg_match(',(javascript|mailto):,i', $url)
-	) {
-		$url = './';
-	}
-
-	// Il n'y a que sous Apache que setcookie puis redirection fonctionne
-	include_spip('inc/cookie');
-	if (!defined('_SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE')) {
-		define('_SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE', '^(Apache|Cherokee|nginx)');
-	}
-	if (!defined('_SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE')) {
-		define('_SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE', 'Apache|Cherokee|nginx');
-	}
-	if (
-		(!$equiv and !spip_cookie_envoye()) or (
-			   (!empty($_SERVER['SERVER_SOFTWARE'])
-				   and _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE
-				   and preg_match('/' . _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SOFTWARE']))
-			or (!empty($_SERVER['SERVER_SIGNATURE'])
-				   and _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE
-				   and preg_match('/' . _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SIGNATURE']))
-			or function_exists('apache_getenv')
-			or defined('_SERVER_APACHE')
-		)
-	) {
-		@header('Location: ' . $url);
-		$equiv = '';
-	} else {
-		@header('Refresh: 0; url=' . $url);
-		if (isset($GLOBALS['meta']['charset'])) {
-			@header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
-		}
-		$equiv = "<meta http-equiv='Refresh' content='0; url=$url'>";
-	}
-	include_spip('inc/lang');
-	if ($status != 302) {
-		http_status($status);
-	}
-	echo '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">', "\n",
-	html_lang_attributes(), '
+    if (!in_array($status, [301, 302])) {
+        $status = 302;
+    }
+
+    $url = trim(strtr($url, "\n\r", '  '));
+    # si l'url de redirection est relative, on la passe en absolue
+    if (!preg_match(',^(\w+:)?//,', $url)) {
+        include_spip('inc/filtres_mini');
+        $url = url_absolue($url);
+    }
+
+    if (defined('_AJAX') and _AJAX) {
+        $url = parametre_url($url, 'var_ajax_redir', 1, '&');
+    }
+
+    // ne pas laisser passer n'importe quoi dans l'url
+    $url = str_replace(['<', '"'], ['&lt;', '&quot;'], $url);
+    $url = str_replace(["\r", "\n", ' '], ['%0D', '%0A', '%20'], $url);
+    while (strpos($url, '%0A') !== false) {
+        $url = str_replace('%0A', '', $url);
+    }
+    // interdire les url inline avec des pseudo-protocoles :
+    if (
+        (preg_match(',data:,i', $url) and preg_match('/base64\s*,/i', $url))
+        or preg_match(',(javascript|mailto):,i', $url)
+    ) {
+        $url = './';
+    }
+
+    // Il n'y a que sous Apache que setcookie puis redirection fonctionne
+    include_spip('inc/cookie');
+    if (!defined('_SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE')) {
+        define('_SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE', '^(Apache|Cherokee|nginx)');
+    }
+    if (!defined('_SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE')) {
+        define('_SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE', 'Apache|Cherokee|nginx');
+    }
+    if (
+        (!$equiv and !spip_cookie_envoye()) or (
+                (!empty($_SERVER['SERVER_SOFTWARE'])
+                   and _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE
+                   and preg_match('/' . _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SOFTWARE']))
+            or (!empty($_SERVER['SERVER_SIGNATURE'])
+                   and _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE
+                   and preg_match('/' . _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SIGNATURE']))
+            or function_exists('apache_getenv')
+            or defined('_SERVER_APACHE')
+        )
+    ) {
+        @header('Location: ' . $url);
+        $equiv = '';
+    } else {
+        @header('Refresh: 0; url=' . $url);
+        if (isset($GLOBALS['meta']['charset'])) {
+            @header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
+        }
+        $equiv = "<meta http-equiv='Refresh' content='0; url=$url'>";
+    }
+    include_spip('inc/lang');
+    if ($status != 302) {
+        http_status($status);
+    }
+    echo '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">', "\n",
+    html_lang_attributes(), '
 <head>',
-	$equiv, '
+    $equiv, '
 <title>HTTP ' . $status . '</title>
 ' . ((isset($GLOBALS['meta']['charset'])) ? '<meta http-equiv="Content-Type" content="text/html;charset=' . $GLOBALS['meta']['charset'] . '">' : '') . '
 </head>
 <body>
 <h1>HTTP ' . $status . '</h1>
 <a href="',
-	quote_amp($url),
-	'">',
-	_T('navigateur_pas_redirige'),
-	'</a></body></html>';
+    quote_amp($url),
+    '">',
+    _T('navigateur_pas_redirige'),
+    '</a></body></html>';
 
-	spip_log("redirige $status: $url");
+    spip_log("redirige $status: $url");
 
-	exit;
+    exit;
 }
 
 // https://code.spip.net/@redirige_formulaire
 function redirige_formulaire($url, $equiv = '', $format = 'message') {
-	if (
-		!_AJAX
-		and !headers_sent()
-		and !_request('var_ajax')
-	) {
-		redirige_par_entete(str_replace('&amp;', '&', $url), $equiv);
-	} // si c'est une ancre, fixer simplement le window.location.hash
-	elseif ($format == 'ajaxform' and preg_match(',^#[0-9a-z\-_]+$,i', $url)) {
-		return [
-			// on renvoie un lien masque qui sera traite par ajaxCallback.js
-			"<a href='$url' name='ajax_ancre' style='display:none;'>anchor</a>",
-			// et rien dans le message ok
-			''
-		];
-	} else {
-		// ne pas laisser passer n'importe quoi dans l'url
-		$url = str_replace(['<', '"'], ['&lt;', '&quot;'], $url);
-
-		$url = strtr($url, "\n\r", '  ');
-		# en theorie on devrait faire ca tout le temps, mais quand la chaine
-		# commence par ? c'est imperatif, sinon l'url finale n'est pas la bonne
-		if ($url[0] == '?') {
-			$url = url_de_base() . $url;
-		}
-		$url = str_replace('&amp;', '&', $url);
-		spip_log("redirige formulaire ajax: $url");
-		include_spip('inc/filtres');
-		if ($format == 'ajaxform') {
-			return [
-				// on renvoie un lien masque qui sera traite par ajaxCallback.js
-				'<a href="' . quote_amp($url) . '" name="ajax_redirect"  style="display:none;">' . _T('navigateur_pas_redirige') . '</a>',
-				// et un message au cas ou
-				'<br /><a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>'
-			];
-		} else // format message texte, tout en js inline
-		{
-			return
-				// ie poste les formulaires dans une iframe, il faut donc rediriger son parent
-				"<script type='text/javascript'>if (parent.window){parent.window.document.location.replace(\"$url\");} else {document.location.replace(\"$url\");}</script>"
-				. http_img_pack('loader.svg', '', " class='loader'")
-				. '<br />'
-				. '<a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>';
-		}
-	}
+    if (
+        !_AJAX
+        and !headers_sent()
+        and !_request('var_ajax')
+    ) {
+        redirige_par_entete(str_replace('&amp;', '&', $url), $equiv);
+    } // si c'est une ancre, fixer simplement le window.location.hash
+    elseif ($format == 'ajaxform' and preg_match(',^#[0-9a-z\-_]+$,i', $url)) {
+        return [
+            // on renvoie un lien masque qui sera traite par ajaxCallback.js
+            "<a href='$url' name='ajax_ancre' style='display:none;'>anchor</a>",
+            // et rien dans le message ok
+            ''
+        ];
+    } else {
+        // ne pas laisser passer n'importe quoi dans l'url
+        $url = str_replace(['<', '"'], ['&lt;', '&quot;'], $url);
+
+        $url = strtr($url, "\n\r", '  ');
+        # en theorie on devrait faire ca tout le temps, mais quand la chaine
+        # commence par ? c'est imperatif, sinon l'url finale n'est pas la bonne
+        if ($url[0] == '?') {
+            $url = url_de_base() . $url;
+        }
+        $url = str_replace('&amp;', '&', $url);
+        spip_log("redirige formulaire ajax: $url");
+        include_spip('inc/filtres');
+        if ($format == 'ajaxform') {
+            return [
+                // on renvoie un lien masque qui sera traite par ajaxCallback.js
+                '<a href="' . quote_amp($url) . '" name="ajax_redirect"  style="display:none;">' . _T('navigateur_pas_redirige') . '</a>',
+                // et un message au cas ou
+                '<br /><a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>'
+            ];
+        } else // format message texte, tout en js inline
+        {
+            return
+                // ie poste les formulaires dans une iframe, il faut donc rediriger son parent
+                "<script type='text/javascript'>if (parent.window){parent.window.document.location.replace(\"$url\");} else {document.location.replace(\"$url\");}</script>"
+                . http_img_pack('loader.svg', '', " class='loader'")
+                . '<br />'
+                . '<a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>';
+        }
+    }
 }
 
 /**
@@ -186,7 +186,7 @@ 
  * @return void
  **/
 function redirige_url_ecrire($script = '', $args = '', $equiv = '') {
-	return redirige_par_entete(generer_url_ecrire($script, $args, true), $equiv);
+    return redirige_par_entete(generer_url_ecrire($script, $args, true), $equiv);
 }
 /**
  * Renvoie au client le header HTTP avec le message correspondant au code indiqué.
@@ -201,28 +201,28 @@ 
  *     Code d'erreur
  **/
 function http_status($status) {
-	http_response_code($status);
+    http_response_code($status);
 }
 
 // Retourne ce qui va bien pour que le navigateur ne mette pas la page en cache
 // https://code.spip.net/@http_no_cache
 function http_no_cache() {
-	if (headers_sent()) {
-		spip_log('http_no_cache arrive trop tard');
-
-		return;
-	}
-	$charset = empty($GLOBALS['meta']['charset']) ? 'utf-8' : $GLOBALS['meta']['charset'];
-
-	// selon http://developer.apple.com/internet/safari/faq.html#anchor5
-	// il faudrait aussi pour Safari
-	// header("Cache-Control: post-check=0, pre-check=0", false)
-	// mais ca ne respecte pas
-	// http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9
-
-	header("Content-Type: text/html; charset=$charset");
-	header('Expires: 0');
-	header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
-	header('Cache-Control: no-cache, must-revalidate');
-	header('Pragma: no-cache');
+    if (headers_sent()) {
+        spip_log('http_no_cache arrive trop tard');
+
+        return;
+    }
+    $charset = empty($GLOBALS['meta']['charset']) ? 'utf-8' : $GLOBALS['meta']['charset'];
+
+    // selon http://developer.apple.com/internet/safari/faq.html#anchor5
+    // il faudrait aussi pour Safari
+    // header("Cache-Control: post-check=0, pre-check=0", false)
+    // mais ca ne respecte pas
+    // http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html#sec14.9
+
+    header("Content-Type: text/html; charset=$charset");
+    header('Expires: 0');
+    header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
+    header('Cache-Control: no-cache, must-revalidate');
+    header('Pragma: no-cache');
 }

Spacing +13 added lines, -13 removed lines

@@ -79,20 +79,20 @@ 
 		(!$equiv and !spip_cookie_envoye()) or (
 			   (!empty($_SERVER['SERVER_SOFTWARE'])
 				   and _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE
-				   and preg_match('/' . _SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SOFTWARE']))
+				   and preg_match('/'._SERVEUR_SOFTWARE_ACCEPTE_LOCATION_APRES_COOKIE.'/i', $_SERVER['SERVER_SOFTWARE']))
 			or (!empty($_SERVER['SERVER_SIGNATURE'])
 				   and _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE
-				   and preg_match('/' . _SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE . '/i', $_SERVER['SERVER_SIGNATURE']))
+				   and preg_match('/'._SERVEUR_SIGNATURE_ACCEPTE_LOCATION_APRES_COOKIE.'/i', $_SERVER['SERVER_SIGNATURE']))
 			or function_exists('apache_getenv')
 			or defined('_SERVER_APACHE')
 		)
 	) {
-		@header('Location: ' . $url);
+		@header('Location: '.$url);
 		$equiv = '';
 	} else {
-		@header('Refresh: 0; url=' . $url);
+		@header('Refresh: 0; url='.$url);
 		if (isset($GLOBALS['meta']['charset'])) {
-			@header('Content-Type: text/html; charset=' . $GLOBALS['meta']['charset']);
+			@header('Content-Type: text/html; charset='.$GLOBALS['meta']['charset']);
 		}
 		$equiv = "<meta http-equiv='Refresh' content='0; url=$url'>";
 	}
@@ -104,11 +104,11 @@ 
 	html_lang_attributes(), '
 <head>',
 	$equiv, '
-<title>HTTP ' . $status . '</title>
-' . ((isset($GLOBALS['meta']['charset'])) ? '<meta http-equiv="Content-Type" content="text/html;charset=' . $GLOBALS['meta']['charset'] . '">' : '') . '
+<title>HTTP ' . $status.'</title>
+' . ((isset($GLOBALS['meta']['charset'])) ? '<meta http-equiv="Content-Type" content="text/html;charset='.$GLOBALS['meta']['charset'].'">' : '').'
 </head>
 <body>
-<h1>HTTP ' . $status . '</h1>
+<h1>HTTP ' . $status.'</h1>
 <a href="',
 	quote_amp($url),
 	'">',
@@ -144,7 +144,7 @@ 
 		# en theorie on devrait faire ca tout le temps, mais quand la chaine
 		# commence par ? c'est imperatif, sinon l'url finale n'est pas la bonne
 		if ($url[0] == '?') {
-			$url = url_de_base() . $url;
+			$url = url_de_base().$url;
 		}
 		$url = str_replace('&amp;', '&', $url);
 		spip_log("redirige formulaire ajax: $url");
@@ -152,9 +152,9 @@ 
 		if ($format == 'ajaxform') {
 			return [
 				// on renvoie un lien masque qui sera traite par ajaxCallback.js
-				'<a href="' . quote_amp($url) . '" name="ajax_redirect"  style="display:none;">' . _T('navigateur_pas_redirige') . '</a>',
+				'<a href="'.quote_amp($url).'" name="ajax_redirect"  style="display:none;">'._T('navigateur_pas_redirige').'</a>',
 				// et un message au cas ou
-				'<br /><a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>'
+				'<br /><a href="'.quote_amp($url).'">'._T('navigateur_pas_redirige').'</a>'
 			];
 		} else // format message texte, tout en js inline
 		{
@@ -163,7 +163,7 @@ 
 				"<script type='text/javascript'>if (parent.window){parent.window.document.location.replace(\"$url\");} else {document.location.replace(\"$url\");}</script>"
 				. http_img_pack('loader.svg', '', " class='loader'")
 				. '<br />'
-				. '<a href="' . quote_amp($url) . '">' . _T('navigateur_pas_redirige') . '</a>';
+				. '<a href="'.quote_amp($url).'">'._T('navigateur_pas_redirige').'</a>';
 		}
 	}
 }
@@ -222,7 +222,7 @@ 
 
 	header("Content-Type: text/html; charset=$charset");
 	header('Expires: 0');
-	header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . ' GMT');
+	header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
 	header('Cache-Control: no-cache, must-revalidate');
 	header('Pragma: no-cache');
 }