spip / SPIP

ecrire/public/cacher.php

Indentation +321 added lines, -321 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -25,9 +25,9 @@ 
  * @return string
  */
 function generer_nom_fichier_cache($contexte, $page) {
-	$u = md5(var_export([$contexte, $page], true));
+    $u = md5(var_export([$contexte, $page], true));
 
-	return $u . '.cache';
+    return $u . '.cache';
 }
 
 /**
@@ -43,26 +43,26 @@ 
  * @return string
  */
 function cache_chemin_fichier($nom_cache, $ecrire = false) {
-	static $l1, $l2;
-	if (is_null($l1)) {
-		$length = (defined('_CACHE_PROFONDEUR_STOCKAGE') ? min(8, max(_CACHE_PROFONDEUR_STOCKAGE, 2)) : 4);
-		$l1 = intval(floor($length / 2));
-		$l2 = $length - $l1;
-	}
-	$d = substr($nom_cache, 0, $l1);
-	$u = substr($nom_cache, $l1, $l2);
-
-	if ($ecrire) {
-		$rep = sous_repertoire(_DIR_CACHE, '', false, true);
-		$rep = sous_repertoire($rep, 'calcul/', false, true);
-		$rep = sous_repertoire($rep, $d, false, true);
-	}
-	else {
-		// en lecture on essaye pas de creer les repertoires, on va au plus vite
-		$rep = _DIR_CACHE . "calcul/$d/";
-	}
-
-	return $rep . $u . '.cache';
+    static $l1, $l2;
+    if (is_null($l1)) {
+        $length = (defined('_CACHE_PROFONDEUR_STOCKAGE') ? min(8, max(_CACHE_PROFONDEUR_STOCKAGE, 2)) : 4);
+        $l1 = intval(floor($length / 2));
+        $l2 = $length - $l1;
+    }
+    $d = substr($nom_cache, 0, $l1);
+    $u = substr($nom_cache, $l1, $l2);
+
+    if ($ecrire) {
+        $rep = sous_repertoire(_DIR_CACHE, '', false, true);
+        $rep = sous_repertoire($rep, 'calcul/', false, true);
+        $rep = sous_repertoire($rep, $d, false, true);
+    }
+    else {
+        // en lecture on essaye pas de creer les repertoires, on va au plus vite
+        $rep = _DIR_CACHE . "calcul/$d/";
+    }
+
+    return $rep . $u . '.cache';
 }
 
 /**
@@ -73,7 +73,7 @@ 
  * @return bool
  */
 function ecrire_cache($nom_cache, $valeur) {
-	return ecrire_fichier(cache_chemin_fichier($nom_cache, true), serialize(['nom_cache' => $nom_cache, 'valeur' => $valeur]));
+    return ecrire_fichier(cache_chemin_fichier($nom_cache, true), serialize(['nom_cache' => $nom_cache, 'valeur' => $valeur]));
 }
 
 /**
@@ -83,38 +83,38 @@ 
  * @return mixed
  */
 function lire_cache($nom_cache) {
-	$tmp = [];
-	if (
-		file_exists($f = cache_chemin_fichier($nom_cache))
-		and lire_fichier($f, $tmp)
-		and $tmp = unserialize($tmp)
-		and $tmp['nom_cache'] == $nom_cache
-		and isset($tmp['valeur'])
-	) {
-		return $tmp['valeur'];
-	}
-
-	return false;
+    $tmp = [];
+    if (
+        file_exists($f = cache_chemin_fichier($nom_cache))
+        and lire_fichier($f, $tmp)
+        and $tmp = unserialize($tmp)
+        and $tmp['nom_cache'] == $nom_cache
+        and isset($tmp['valeur'])
+    ) {
+        return $tmp['valeur'];
+    }
+
+    return false;
 }
 
 // Parano : on signe le cache, afin d'interdire un hack d'injection
 // dans notre memcache
 function cache_signature(&$page) {
-	if (!isset($GLOBALS['meta']['cache_signature'])) {
-		include_spip('inc/acces');
-		include_spip('auth/sha256.inc');
-		ecrire_meta(
-			'cache_signature',
-			spip_sha256(
-				$_SERVER['DOCUMENT_ROOT']
-				. ($_SERVER['SERVER_SIGNATURE'] ?? '')
-				. creer_uniqid()
-			),
-			'non'
-		);
-	}
-
-	return crc32($GLOBALS['meta']['cache_signature'] . $page['texte']);
+    if (!isset($GLOBALS['meta']['cache_signature'])) {
+        include_spip('inc/acces');
+        include_spip('auth/sha256.inc');
+        ecrire_meta(
+            'cache_signature',
+            spip_sha256(
+                $_SERVER['DOCUMENT_ROOT']
+                . ($_SERVER['SERVER_SIGNATURE'] ?? '')
+                . creer_uniqid()
+            ),
+            'non'
+        );
+    }
+
+    return crc32($GLOBALS['meta']['cache_signature'] . $page['texte']);
 }
 
 /**
@@ -127,14 +127,14 @@ 
  * @return array
  */
 function gzip_page($page) {
-	if (function_exists('gzcompress') and strlen($page['texte']) > 16 * 1024) {
-		$page['gz'] = true;
-		$page['texte'] = gzcompress($page['texte']);
-	} else {
-		$page['gz'] = false;
-	}
-
-	return $page;
+    if (function_exists('gzcompress') and strlen($page['texte']) > 16 * 1024) {
+        $page['gz'] = true;
+        $page['texte'] = gzcompress($page['texte']);
+    } else {
+        $page['gz'] = false;
+    }
+
+    return $page;
 }
 
 /**
@@ -147,10 +147,10 @@ 
  * @return void
  */
 function gunzip_page(&$page) {
-	if ($page['gz']) {
-		$page['texte'] = gzuncompress($page['texte']);
-		$page['gz'] = false; // ne pas gzuncompress deux fois une meme page
-	}
+    if ($page['gz']) {
+        $page['texte'] = gzuncompress($page['texte']);
+        $page['gz'] = false; // ne pas gzuncompress deux fois une meme page
+    }
 }
 
 /**
@@ -165,72 +165,72 @@ 
  * -1 si il faut calculer sans stocker en cache
  */
 function cache_valide(&$page, $date) {
-	$now = $_SERVER['REQUEST_TIME'];
-
-	// Apparition d'un nouvel article post-date ?
-	if (
-		isset($GLOBALS['meta']['post_dates'])
-		and $GLOBALS['meta']['post_dates'] == 'non'
-		and isset($GLOBALS['meta']['date_prochain_postdate'])
-		and $now > $GLOBALS['meta']['date_prochain_postdate']
-	) {
-		spip_log('Un article post-date invalide le cache');
-		include_spip('inc/rubriques');
-		calculer_prochain_postdate(true);
-	}
-
-	if (defined('_VAR_NOCACHE') and _VAR_NOCACHE) {
-		return -1;
-	}
-	if (isset($GLOBALS['meta']['cache_inhib']) and $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
-		return -1;
-	}
-	if (defined('_NO_CACHE')) {
-		return (_NO_CACHE == 0 and !isset($page['texte'])) ? 1 : _NO_CACHE;
-	}
-
-	// pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
-	if (!$page or !isset($page['texte']) or !isset($page['entetes']['X-Spip-Cache'])) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// controle de la signature
-	if ($page['sig'] !== cache_signature($page)) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// #CACHE{n,statique} => on n'invalide pas avec derniere_modif
-	// cf. ecrire/public/balises.php, balise_CACHE_dist()
-	if (!isset($page['entetes']['X-Spip-Statique']) or $page['entetes']['X-Spip-Statique'] !== 'oui') {
-		// Cache invalide par la meta 'derniere_modif'
-		// sauf pour les bots, qui utilisent toujours le cache
-		if (
-			!_IS_BOT
-			and $GLOBALS['derniere_modif_invalide']
-			and isset($GLOBALS['meta']['derniere_modif'])
-			and $date < $GLOBALS['meta']['derniere_modif']
-		) {
-			return 1;
-		}
-	}
-
-	// Sinon comparer l'age du fichier a sa duree de cache
-	$duree = intval($page['entetes']['X-Spip-Cache']);
-	$cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
-	if ($duree == 0) {  #CACHE{0}
-	return -1;
-	} // sauf pour les bots, qui utilisent toujours le cache
-	else {
-		if (
-			(!_IS_BOT and $date + $duree < $now)
-			# le cache est anterieur a la derniere purge : l'ignorer, meme pour les bots
-			or $date < $cache_mark
-		) {
-			return _IS_BOT ? -1 : 1;
-		} else {
-			return 0;
-		}
-	}
+    $now = $_SERVER['REQUEST_TIME'];
+
+    // Apparition d'un nouvel article post-date ?
+    if (
+        isset($GLOBALS['meta']['post_dates'])
+        and $GLOBALS['meta']['post_dates'] == 'non'
+        and isset($GLOBALS['meta']['date_prochain_postdate'])
+        and $now > $GLOBALS['meta']['date_prochain_postdate']
+    ) {
+        spip_log('Un article post-date invalide le cache');
+        include_spip('inc/rubriques');
+        calculer_prochain_postdate(true);
+    }
+
+    if (defined('_VAR_NOCACHE') and _VAR_NOCACHE) {
+        return -1;
+    }
+    if (isset($GLOBALS['meta']['cache_inhib']) and $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
+        return -1;
+    }
+    if (defined('_NO_CACHE')) {
+        return (_NO_CACHE == 0 and !isset($page['texte'])) ? 1 : _NO_CACHE;
+    }
+
+    // pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
+    if (!$page or !isset($page['texte']) or !isset($page['entetes']['X-Spip-Cache'])) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // controle de la signature
+    if ($page['sig'] !== cache_signature($page)) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // #CACHE{n,statique} => on n'invalide pas avec derniere_modif
+    // cf. ecrire/public/balises.php, balise_CACHE_dist()
+    if (!isset($page['entetes']['X-Spip-Statique']) or $page['entetes']['X-Spip-Statique'] !== 'oui') {
+        // Cache invalide par la meta 'derniere_modif'
+        // sauf pour les bots, qui utilisent toujours le cache
+        if (
+            !_IS_BOT
+            and $GLOBALS['derniere_modif_invalide']
+            and isset($GLOBALS['meta']['derniere_modif'])
+            and $date < $GLOBALS['meta']['derniere_modif']
+        ) {
+            return 1;
+        }
+    }
+
+    // Sinon comparer l'age du fichier a sa duree de cache
+    $duree = intval($page['entetes']['X-Spip-Cache']);
+    $cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
+    if ($duree == 0) {  #CACHE{0}
+    return -1;
+    } // sauf pour les bots, qui utilisent toujours le cache
+    else {
+        if (
+            (!_IS_BOT and $date + $duree < $now)
+            # le cache est anterieur a la derniere purge : l'ignorer, meme pour les bots
+            or $date < $cache_mark
+        ) {
+            return _IS_BOT ? -1 : 1;
+        } else {
+            return 0;
+        }
+    }
 }
 
 /**
@@ -243,59 +243,59 @@ 
  */
 function creer_cache(&$page, &$chemin_cache) {
 
-	// Ne rien faire si on est en preview, debug, ou si une erreur
-	// grave s'est presentee (compilation du squelette, MySQL, etc)
-	// le cas var_nocache ne devrait jamais arriver ici (securite)
-	// le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
-	if (
-		(defined('_VAR_NOCACHE') and _VAR_NOCACHE)
-		or defined('spip_interdire_cache')
-	) {
-		return;
-	}
-
-	// Si la page c1234 a un invalideur de session 'zz', sauver dans
-	// 'tmp/cache/MD5(chemin_cache)_zz'
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		// on verifie que le contenu du chemin cache indique seulement
-		// "cache sessionne" ; sa date indique la date de validite
-		// des caches sessionnes
-		if (!$tmp = lire_cache($chemin_cache)) {
-			spip_log('Creation cache sessionne ' . $chemin_cache);
-			$tmp = [
-				'invalideurs' => ['session' => ''],
-				'lastmodified' => $_SERVER['REQUEST_TIME']
-			];
-			ecrire_cache($chemin_cache, $tmp);
-		}
-		$chemin_cache = generer_nom_fichier_cache(
-			['chemin_cache' => $chemin_cache],
-			['session' => $page['invalideurs']['session']]
-		);
-	}
-
-	// ajouter la date de production dans le cache lui meme
-	// (qui contient deja sa duree de validite)
-	$page['lastmodified'] = $_SERVER['REQUEST_TIME'];
-
-	// compresser le contenu si besoin
-	$pagez = gzip_page($page);
-
-	// signer le contenu
-	$pagez['sig'] = cache_signature($pagez);
-
-	// l'enregistrer, compresse ou non...
-	$ok = ecrire_cache($chemin_cache, $pagez);
-
-	spip_log((_IS_BOT ? 'Bot:' : '') . "Creation du cache $chemin_cache pour "
-		. $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'), _LOG_INFO);
-
-	// Inserer ses invalideurs
-	include_spip('inc/invalideur');
-	maj_invalideurs($chemin_cache, $page);
+    // Ne rien faire si on est en preview, debug, ou si une erreur
+    // grave s'est presentee (compilation du squelette, MySQL, etc)
+    // le cas var_nocache ne devrait jamais arriver ici (securite)
+    // le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
+    if (
+        (defined('_VAR_NOCACHE') and _VAR_NOCACHE)
+        or defined('spip_interdire_cache')
+    ) {
+        return;
+    }
+
+    // Si la page c1234 a un invalideur de session 'zz', sauver dans
+    // 'tmp/cache/MD5(chemin_cache)_zz'
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        // on verifie que le contenu du chemin cache indique seulement
+        // "cache sessionne" ; sa date indique la date de validite
+        // des caches sessionnes
+        if (!$tmp = lire_cache($chemin_cache)) {
+            spip_log('Creation cache sessionne ' . $chemin_cache);
+            $tmp = [
+                'invalideurs' => ['session' => ''],
+                'lastmodified' => $_SERVER['REQUEST_TIME']
+            ];
+            ecrire_cache($chemin_cache, $tmp);
+        }
+        $chemin_cache = generer_nom_fichier_cache(
+            ['chemin_cache' => $chemin_cache],
+            ['session' => $page['invalideurs']['session']]
+        );
+    }
+
+    // ajouter la date de production dans le cache lui meme
+    // (qui contient deja sa duree de validite)
+    $page['lastmodified'] = $_SERVER['REQUEST_TIME'];
+
+    // compresser le contenu si besoin
+    $pagez = gzip_page($page);
+
+    // signer le contenu
+    $pagez['sig'] = cache_signature($pagez);
+
+    // l'enregistrer, compresse ou non...
+    $ok = ecrire_cache($chemin_cache, $pagez);
+
+    spip_log((_IS_BOT ? 'Bot:' : '') . "Creation du cache $chemin_cache pour "
+        . $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'), _LOG_INFO);
+
+    // Inserer ses invalideurs
+    include_spip('inc/invalideur');
+    maj_invalideurs($chemin_cache, $page);
 }
 
 
@@ -308,15 +308,15 @@ 
  * @return void
  */
 function nettoyer_petit_cache($prefix, $duree = 300) {
-	// determiner le repertoire a purger : 'tmp/CACHE/rech/'
-	$dircache = sous_repertoire(_DIR_CACHE, $prefix);
-	if (spip_touch($dircache . 'purger_' . $prefix, $duree, true)) {
-		foreach (preg_files($dircache, '[.]txt$') as $f) {
-			if ($_SERVER['REQUEST_TIME'] - (@file_exists($f) ? @filemtime($f) : 0) > $duree) {
-				spip_unlink($f);
-			}
-		}
-	}
+    // determiner le repertoire a purger : 'tmp/CACHE/rech/'
+    $dircache = sous_repertoire(_DIR_CACHE, $prefix);
+    if (spip_touch($dircache . 'purger_' . $prefix, $duree, true)) {
+        foreach (preg_files($dircache, '[.]txt$') as $f) {
+            if ($_SERVER['REQUEST_TIME'] - (@file_exists($f) ? @filemtime($f) : 0) > $duree) {
+                spip_unlink($f);
+            }
+        }
+    }
 }
 
 
@@ -344,134 +344,134 @@ 
  */
 function public_cacher_dist($contexte, &$use_cache, &$chemin_cache, &$page, &$lastmodified) {
 
-	# fonction de cache minimale : dire "non on ne met rien en cache"
-	# $use_cache = -1; return;
-
-	// Second appel, destine a l'enregistrement du cache sur le disque
-	if (isset($chemin_cache)) {
-		creer_cache($page, $chemin_cache);
-		return;
-	}
-
-	// Toute la suite correspond au premier appel
-	$contexte_implicite = $page['contexte_implicite'];
-
-	// Cas ignorant le cache car completement dynamique
-	if (
-		(!empty($_SERVER['REQUEST_METHOD']) and $_SERVER['REQUEST_METHOD'] === 'POST')
-		or _request('connect')
-	) {
-		$use_cache = -1;
-		$lastmodified = 0;
-		$chemin_cache = '';
-		$page = [];
-
-		return;
-	}
-
-	// Controler l'existence d'un cache nous correspondant
-	$chemin_cache = generer_nom_fichier_cache($contexte, $page);
-	$lastmodified = 0;
-
-	// charger le cache s'il existe (et si il a bien le bon hash = anticollision)
-	if (!$page = lire_cache($chemin_cache)) {
-		$page = [];
-	}
-
-	// s'il est sessionne, charger celui correspondant a notre session
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		$chemin_cache_session = generer_nom_fichier_cache(
-			['chemin_cache' => $chemin_cache],
-			['session' => spip_session()]
-		);
-		if (
-			$page_session = lire_cache($chemin_cache_session)
-			and $page_session['lastmodified'] >= $page['lastmodified']
-		) {
-			$page = $page_session;
-		} else {
-			$page = [];
-		}
-	}
-
-
-	// Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
-	if (isset($GLOBALS['meta']['invalider'])) {
-		// ne le faire que si la base est disponible
-		if (spip_connect()) {
-			include_spip('inc/invalideur');
-			retire_caches($chemin_cache); # API invalideur inutile
-			supprimer_fichier(_DIR_CACHE . $chemin_cache);
-			if (isset($chemin_cache_session) and $chemin_cache_session) {
-				supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
-			}
-		}
-	}
-
-	// Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
-	// on supprime le cache
-	if (
-		defined('_VAR_MODE') &&
-		_VAR_MODE &&
-		(isset($_COOKIE['spip_session']) ||
-			isset($_COOKIE['spip_admin']) ||
-			@file_exists(_ACCESS_FILE_NAME))
-	) {
-		$page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
-		include_spip('inc/invalideur');
-		retire_caches($chemin_cache); # API invalideur inutile
-		supprimer_fichier(_DIR_CACHE . $chemin_cache);
-		if (isset($chemin_cache_session) and $chemin_cache_session) {
-			supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
-		}
-	}
-
-	// $delais par defaut
-	// pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
-	// qui sont a cache nul par defaut
-	if (!isset($GLOBALS['delais'])) {
-		if (!defined('_DUREE_CACHE_DEFAUT')) {
-			define('_DUREE_CACHE_DEFAUT', 24 * 3600);
-		}
-		$GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
-	}
-
-	// determiner la validite de la page
-	if ($page) {
-		$use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
-		// le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
-		// par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
-		$page['contexte_implicite'] = $contexte_implicite;
-		if (!$use_cache) {
-			// $page est un cache utilisable
-			gunzip_page($page);
-
-			return;
-		}
-	} else {
-		$page = ['contexte_implicite' => $contexte_implicite];
-		$use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
-	}
-
-	// Si pas valide mais pas de connexion a la base, le garder quand meme
-	if (!spip_connect()) {
-		if (isset($page['texte'])) {
-			gunzip_page($page);
-			$use_cache = 0;
-		} else {
-			spip_log("Erreur base de donnees, impossible utiliser $chemin_cache");
-			include_spip('inc/minipres');
-
-			return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
-		}
-	}
-
-	if ($use_cache < 0) {
-		$chemin_cache = '';
-	}
-
-	return;
+    # fonction de cache minimale : dire "non on ne met rien en cache"
+    # $use_cache = -1; return;
+
+    // Second appel, destine a l'enregistrement du cache sur le disque
+    if (isset($chemin_cache)) {
+        creer_cache($page, $chemin_cache);
+        return;
+    }
+
+    // Toute la suite correspond au premier appel
+    $contexte_implicite = $page['contexte_implicite'];
+
+    // Cas ignorant le cache car completement dynamique
+    if (
+        (!empty($_SERVER['REQUEST_METHOD']) and $_SERVER['REQUEST_METHOD'] === 'POST')
+        or _request('connect')
+    ) {
+        $use_cache = -1;
+        $lastmodified = 0;
+        $chemin_cache = '';
+        $page = [];
+
+        return;
+    }
+
+    // Controler l'existence d'un cache nous correspondant
+    $chemin_cache = generer_nom_fichier_cache($contexte, $page);
+    $lastmodified = 0;
+
+    // charger le cache s'il existe (et si il a bien le bon hash = anticollision)
+    if (!$page = lire_cache($chemin_cache)) {
+        $page = [];
+    }
+
+    // s'il est sessionne, charger celui correspondant a notre session
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        $chemin_cache_session = generer_nom_fichier_cache(
+            ['chemin_cache' => $chemin_cache],
+            ['session' => spip_session()]
+        );
+        if (
+            $page_session = lire_cache($chemin_cache_session)
+            and $page_session['lastmodified'] >= $page['lastmodified']
+        ) {
+            $page = $page_session;
+        } else {
+            $page = [];
+        }
+    }
+
+
+    // Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
+    if (isset($GLOBALS['meta']['invalider'])) {
+        // ne le faire que si la base est disponible
+        if (spip_connect()) {
+            include_spip('inc/invalideur');
+            retire_caches($chemin_cache); # API invalideur inutile
+            supprimer_fichier(_DIR_CACHE . $chemin_cache);
+            if (isset($chemin_cache_session) and $chemin_cache_session) {
+                supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
+            }
+        }
+    }
+
+    // Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
+    // on supprime le cache
+    if (
+        defined('_VAR_MODE') &&
+        _VAR_MODE &&
+        (isset($_COOKIE['spip_session']) ||
+            isset($_COOKIE['spip_admin']) ||
+            @file_exists(_ACCESS_FILE_NAME))
+    ) {
+        $page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
+        include_spip('inc/invalideur');
+        retire_caches($chemin_cache); # API invalideur inutile
+        supprimer_fichier(_DIR_CACHE . $chemin_cache);
+        if (isset($chemin_cache_session) and $chemin_cache_session) {
+            supprimer_fichier(_DIR_CACHE . $chemin_cache_session);
+        }
+    }
+
+    // $delais par defaut
+    // pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
+    // qui sont a cache nul par defaut
+    if (!isset($GLOBALS['delais'])) {
+        if (!defined('_DUREE_CACHE_DEFAUT')) {
+            define('_DUREE_CACHE_DEFAUT', 24 * 3600);
+        }
+        $GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
+    }
+
+    // determiner la validite de la page
+    if ($page) {
+        $use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
+        // le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
+        // par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
+        $page['contexte_implicite'] = $contexte_implicite;
+        if (!$use_cache) {
+            // $page est un cache utilisable
+            gunzip_page($page);
+
+            return;
+        }
+    } else {
+        $page = ['contexte_implicite' => $contexte_implicite];
+        $use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
+    }
+
+    // Si pas valide mais pas de connexion a la base, le garder quand meme
+    if (!spip_connect()) {
+        if (isset($page['texte'])) {
+            gunzip_page($page);
+            $use_cache = 0;
+        } else {
+            spip_log("Erreur base de donnees, impossible utiliser $chemin_cache");
+            include_spip('inc/minipres');
+
+            return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
+        }
+    }
+
+    if ($use_cache < 0) {
+        $chemin_cache = '';
+    }
+
+    return;
 }

ecrire/public/assembler.php

Indentation +633 added lines, -633 removed lines

@@ -20,178 +20,178 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // En cas de modification, il faut aussi actualiser la regexp de nettoyer_uri_var() dans inc/utils.php
 if (!defined('_CONTEXTE_IGNORE_VARIABLES')) {
-	define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
+    define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
 }
 
 function assembler($fond, string $connect = '') {
 
-	$chemin_cache = null;
-	$lastmodified = null;
-	$res = null;
-	// flag_preserver est modifie ici, et utilise en globale
-	// use_cache sert a informer le bouton d'admin pr savoir s'il met un *
-	// contexte est utilise en globale dans le formulaire d'admin
-
-	$GLOBALS['contexte'] = calculer_contexte();
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(
-		',\.[a-zA-Z0-9]*$,',
-		'',
-		preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
-	);
-	// Cette fonction est utilisee deux fois
-	$cacher = charger_fonction('cacher', 'public', true);
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
-	} else {
-		$GLOBALS['use_cache'] = -1;
-	}
-	// Si un resultat est retourne, c'est un message d'impossibilite
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	if (!$chemin_cache || !$lastmodified) {
-		$lastmodified = time();
-	}
-
-	$headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
-	$calculer_page = true;
-
-	// Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
-	// une perennite valide a meme reponse qu'une requete HEAD (par defaut les
-	// pages sont dynamiques)
-	if (
-		isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and (!defined('_VAR_MODE') or !_VAR_MODE)
-		and $chemin_cache
-		and isset($page['entetes'])
-		and isset($page['entetes']['Cache-Control'])
-		and strstr($page['entetes']['Cache-Control'], 'max-age=')
-		and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
-	) {
-		$since = preg_replace(
-			'/;.*/',
-			'',
-			$_SERVER['HTTP_IF_MODIFIED_SINCE']
-		);
-		$since = str_replace('GMT', '', $since);
-		if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
-			$page['status'] = 304;
-			$headers_only = true;
-			$calculer_page = false;
-		}
-	}
-
-	// Si requete HEAD ou Last-modified compatible, ignorer le texte
-	// et pas de content-type (pour contrer le bouton admin de inc-public)
-	if (!$calculer_page) {
-		$page['texte'] = '';
-	} else {
-		// si la page est prise dans le cache
-		if (!$GLOBALS['use_cache']) {
-			// Informer les boutons d'admin du contexte
-			// (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
-			$GLOBALS['contexte'] = $page['contexte'];
-
-			// vider les globales url propres qui ne doivent plus etre utilisees en cas
-			// d'inversion url => objet
-			// plus necessaire si on utilise bien la fonction urls_decoder_url
-			#unset($_SERVER['REDIRECT_url_propre']);
-			#unset($_ENV['url_propre']);
-		} else {
-			// Compat ascendante :
-			// 1. $contexte est global
-			// (a evacuer car urls_decoder_url gere ce probleme ?)
-			// et calculer la page
-			if (!test_espace_prive()) {
-				include_spip('inc/urls');
-				[$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
-					nettoyer_uri(),
-					$fond,
-					$GLOBALS['contexte'],
-					true
-				);
-			}
-			// squelette par defaut
-			if (!strlen($fond ?? '')) {
-				$fond = 'sommaire';
-			}
-
-			// produire la page : peut mettre a jour $lastmodified
-			$produire_page = charger_fonction('produire_page', 'public');
-			$page = $produire_page(
-				$fond,
-				$GLOBALS['contexte'],
-				$GLOBALS['use_cache'],
-				$chemin_cache,
-				null,
-				$page,
-				$lastmodified,
-				$connect
-			);
-			if ($page === '') {
-				$erreur = _T(
-					'info_erreur_squelette2',
-					['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
-				);
-				erreur_squelette($erreur);
-				// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-				$page = ['texte' => '', 'erreur' => $erreur];
-			}
-		}
-
-		if ($page and $chemin_cache) {
-			$page['cache'] = $chemin_cache;
-		}
-
-		auto_content_type($page);
-
-		$GLOBALS['flag_preserver'] |= headers_sent();
-
-		// Definir les entetes si ce n'est fait
-		if (!$GLOBALS['flag_preserver']) {
-			// Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
-			if (
-				trim($page['texte']) === ''
-				and _VAR_MODE !== 'debug'
-				and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
-			) {
-				$GLOBALS['contexte']['fond_erreur'] = $fond;
-				$page = message_page_indisponible($page, $GLOBALS['contexte']);
-			}
-			// pas de cache client en mode 'observation'
-			if (defined('_VAR_MODE') and _VAR_MODE) {
-				$page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
-				$page['entetes']['Pragma'] = 'no-cache';
-			}
-		}
-	}
-
-	// Entete Last-Modified:
-	// eviter d'etre incoherent en envoyant un lastmodified identique
-	// a celui qu'on a refuse d'honorer plus haut (cf. #655)
-	if (
-		$lastmodified
-		and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and !isset($page['entetes']['Last-Modified'])
-	) {
-		$page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
-	}
-
-	// fermer la connexion apres les headers si requete HEAD
-	if ($headers_only) {
-		$page['entetes']['Connection'] = 'close';
-	}
-
-	return $page;
+    $chemin_cache = null;
+    $lastmodified = null;
+    $res = null;
+    // flag_preserver est modifie ici, et utilise en globale
+    // use_cache sert a informer le bouton d'admin pr savoir s'il met un *
+    // contexte est utilise en globale dans le formulaire d'admin
+
+    $GLOBALS['contexte'] = calculer_contexte();
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond . preg_replace(
+        ',\.[a-zA-Z0-9]*$,',
+        '',
+        preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
+    );
+    // Cette fonction est utilisee deux fois
+    $cacher = charger_fonction('cacher', 'public', true);
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
+    } else {
+        $GLOBALS['use_cache'] = -1;
+    }
+    // Si un resultat est retourne, c'est un message d'impossibilite
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    if (!$chemin_cache || !$lastmodified) {
+        $lastmodified = time();
+    }
+
+    $headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
+    $calculer_page = true;
+
+    // Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
+    // une perennite valide a meme reponse qu'une requete HEAD (par defaut les
+    // pages sont dynamiques)
+    if (
+        isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and (!defined('_VAR_MODE') or !_VAR_MODE)
+        and $chemin_cache
+        and isset($page['entetes'])
+        and isset($page['entetes']['Cache-Control'])
+        and strstr($page['entetes']['Cache-Control'], 'max-age=')
+        and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
+    ) {
+        $since = preg_replace(
+            '/;.*/',
+            '',
+            $_SERVER['HTTP_IF_MODIFIED_SINCE']
+        );
+        $since = str_replace('GMT', '', $since);
+        if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
+            $page['status'] = 304;
+            $headers_only = true;
+            $calculer_page = false;
+        }
+    }
+
+    // Si requete HEAD ou Last-modified compatible, ignorer le texte
+    // et pas de content-type (pour contrer le bouton admin de inc-public)
+    if (!$calculer_page) {
+        $page['texte'] = '';
+    } else {
+        // si la page est prise dans le cache
+        if (!$GLOBALS['use_cache']) {
+            // Informer les boutons d'admin du contexte
+            // (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
+            $GLOBALS['contexte'] = $page['contexte'];
+
+            // vider les globales url propres qui ne doivent plus etre utilisees en cas
+            // d'inversion url => objet
+            // plus necessaire si on utilise bien la fonction urls_decoder_url
+            #unset($_SERVER['REDIRECT_url_propre']);
+            #unset($_ENV['url_propre']);
+        } else {
+            // Compat ascendante :
+            // 1. $contexte est global
+            // (a evacuer car urls_decoder_url gere ce probleme ?)
+            // et calculer la page
+            if (!test_espace_prive()) {
+                include_spip('inc/urls');
+                [$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
+                    nettoyer_uri(),
+                    $fond,
+                    $GLOBALS['contexte'],
+                    true
+                );
+            }
+            // squelette par defaut
+            if (!strlen($fond ?? '')) {
+                $fond = 'sommaire';
+            }
+
+            // produire la page : peut mettre a jour $lastmodified
+            $produire_page = charger_fonction('produire_page', 'public');
+            $page = $produire_page(
+                $fond,
+                $GLOBALS['contexte'],
+                $GLOBALS['use_cache'],
+                $chemin_cache,
+                null,
+                $page,
+                $lastmodified,
+                $connect
+            );
+            if ($page === '') {
+                $erreur = _T(
+                    'info_erreur_squelette2',
+                    ['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
+                );
+                erreur_squelette($erreur);
+                // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+                $page = ['texte' => '', 'erreur' => $erreur];
+            }
+        }
+
+        if ($page and $chemin_cache) {
+            $page['cache'] = $chemin_cache;
+        }
+
+        auto_content_type($page);
+
+        $GLOBALS['flag_preserver'] |= headers_sent();
+
+        // Definir les entetes si ce n'est fait
+        if (!$GLOBALS['flag_preserver']) {
+            // Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
+            if (
+                trim($page['texte']) === ''
+                and _VAR_MODE !== 'debug'
+                and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
+            ) {
+                $GLOBALS['contexte']['fond_erreur'] = $fond;
+                $page = message_page_indisponible($page, $GLOBALS['contexte']);
+            }
+            // pas de cache client en mode 'observation'
+            if (defined('_VAR_MODE') and _VAR_MODE) {
+                $page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
+                $page['entetes']['Pragma'] = 'no-cache';
+            }
+        }
+    }
+
+    // Entete Last-Modified:
+    // eviter d'etre incoherent en envoyant un lastmodified identique
+    // a celui qu'on a refuse d'honorer plus haut (cf. #655)
+    if (
+        $lastmodified
+        and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and !isset($page['entetes']['Last-Modified'])
+    ) {
+        $page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
+    }
+
+    // fermer la connexion apres les headers si requete HEAD
+    if ($headers_only) {
+        $page['entetes']['Connection'] = 'close';
+    }
+
+    return $page;
 }
 
 /**
@@ -208,19 +208,19 @@ 
  */
 function calculer_contexte() {
 
-	$contexte = [];
-	foreach ($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-	foreach ($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($_GET as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+    foreach ($_POST as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -231,25 +231,25 @@ 
  * @return array
  */
 function calculer_contexte_implicite() {
-	static $notes = null;
-	if (is_null($notes)) {
-		$notes = charger_fonction('notes', 'inc', true);
-	}
-	$contexte_implicite = [
-		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
-		'host' => ($_SERVER['HTTP_HOST'] ?? null),
-		'https' => ($_SERVER['HTTPS'] ?? ''),
-		'espace' => test_espace_prive(),
-		'marqueur' => ($GLOBALS['marqueur'] ?? ''),
-		'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
-		'notes' => $notes ? $notes('', 'contexter_cache') : '',
-		'spip_version_code' => $GLOBALS['spip_version_code'],
-	];
-	if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-		$contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
-	}
-
-	return $contexte_implicite;
+    static $notes = null;
+    if (is_null($notes)) {
+        $notes = charger_fonction('notes', 'inc', true);
+    }
+    $contexte_implicite = [
+        'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
+        'host' => ($_SERVER['HTTP_HOST'] ?? null),
+        'https' => ($_SERVER['HTTPS'] ?? ''),
+        'espace' => test_espace_prive(),
+        'marqueur' => ($GLOBALS['marqueur'] ?? ''),
+        'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
+        'notes' => $notes ? $notes('', 'contexter_cache') : '',
+        'spip_version_code' => $GLOBALS['spip_version_code'],
+    ];
+    if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
+        $contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
+    }
+
+    return $contexte_implicite;
 }
 
 //
@@ -258,55 +258,55 @@ 
 
 function auto_content_type($page) {
 
-	if (!isset($GLOBALS['flag_preserver'])) {
-		$GLOBALS['flag_preserver'] = ($page && preg_match(
-			'/header\s*\(\s*.content\-type:/isx',
-			$page['texte']
-		) || (isset($page['entetes']['Content-Type'])));
-	}
+    if (!isset($GLOBALS['flag_preserver'])) {
+        $GLOBALS['flag_preserver'] = ($page && preg_match(
+            '/header\s*\(\s*.content\-type:/isx',
+            $page['texte']
+        ) || (isset($page['entetes']['Content-Type'])));
+    }
 }
 
 function inclure_page($fond, $contexte, string $connect = '') {
-	$use_cache = null;
-	$chemin_cache = null;
-	$lastinclude = null;
-	$res = null;
-	static $cacher, $produire_page;
-
-	// enlever le fond de contexte inclus car sinon il prend la main
-	// dans les sous inclusions -> boucle infinie d'inclusion identique
-	// (cette precaution n'est probablement plus utile)
-	unset($contexte['fond']);
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond;
-	if (is_null($cacher)) {
-		$cacher = charger_fonction('cacher', 'public', true);
-	}
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
-	} else {
-		$use_cache = -1;
-	}
-	// $res = message d'erreur : on sort de la
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	// Si use_cache ne vaut pas 0, la page doit etre calculee
-	// produire la page : peut mettre a jour $lastinclude
-	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
-	if ($use_cache) {
-		if (is_null($produire_page)) {
-			$produire_page = charger_fonction('produire_page', 'public');
-		}
-		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
-	}
-	// dans tous les cas, mettre a jour $GLOBALS['lastmodified']
-	$GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
-
-	return $page;
+    $use_cache = null;
+    $chemin_cache = null;
+    $lastinclude = null;
+    $res = null;
+    static $cacher, $produire_page;
+
+    // enlever le fond de contexte inclus car sinon il prend la main
+    // dans les sous inclusions -> boucle infinie d'inclusion identique
+    // (cette precaution n'est probablement plus utile)
+    unset($contexte['fond']);
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond;
+    if (is_null($cacher)) {
+        $cacher = charger_fonction('cacher', 'public', true);
+    }
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
+    } else {
+        $use_cache = -1;
+    }
+    // $res = message d'erreur : on sort de la
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    // Si use_cache ne vaut pas 0, la page doit etre calculee
+    // produire la page : peut mettre a jour $lastinclude
+    // le contexte_cache envoye a cacher() a ete conserve et est passe a produire
+    if ($use_cache) {
+        if (is_null($produire_page)) {
+            $produire_page = charger_fonction('produire_page', 'public');
+        }
+        $page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
+    }
+    // dans tous les cas, mettre a jour $GLOBALS['lastmodified']
+    $GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
+
+    return $page;
 }
 
 /**
@@ -324,41 +324,41 @@ 
  * @return array
  */
 function public_produire_page_dist(
-	$fond,
-	$contexte,
-	$use_cache,
-	$chemin_cache,
-	$contexte_cache,
-	&$page,
-	&$lastinclude,
-	$connect = ''
+    $fond,
+    $contexte,
+    $use_cache,
+    $chemin_cache,
+    $contexte_cache,
+    &$page,
+    &$lastinclude,
+    $connect = ''
 ) {
-	static $parametrer, $cacher;
-	if (!$parametrer) {
-		$parametrer = charger_fonction('parametrer', 'public');
-	}
-	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
-	// et on l'enregistre sur le disque
-	if (
-		$chemin_cache
-		and $use_cache > -1
-		and is_array($page)
-		and count($page)
-		and isset($page['entetes']['X-Spip-Cache'])
-		and $page['entetes']['X-Spip-Cache'] > 0
-	) {
-		if (is_null($cacher)) {
-			$cacher = charger_fonction('cacher', 'public', true);
-		}
-		$lastinclude = time();
-		if ($cacher) {
-			$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
-		} else {
-			$use_cache = -1;
-		}
-	}
-
-	return $page;
+    static $parametrer, $cacher;
+    if (!$parametrer) {
+        $parametrer = charger_fonction('parametrer', 'public');
+    }
+    $page = $parametrer($fond, $contexte, $chemin_cache, $connect);
+    // et on l'enregistre sur le disque
+    if (
+        $chemin_cache
+        and $use_cache > -1
+        and is_array($page)
+        and count($page)
+        and isset($page['entetes']['X-Spip-Cache'])
+        and $page['entetes']['X-Spip-Cache'] > 0
+    ) {
+        if (is_null($cacher)) {
+            $cacher = charger_fonction('cacher', 'public', true);
+        }
+        $lastinclude = time();
+        if ($cacher) {
+            $cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
+        } else {
+            $use_cache = -1;
+        }
+    }
+
+    return $page;
 }
 
 // Fonction inseree par le compilateur dans le code compile.
@@ -372,14 +372,14 @@ 
 // 4: langue
 
 function inserer_balise_dynamique($contexte_exec, $contexte_compil) {
-	arguments_balise_dyn_depuis_modele(null, 'reset');
-
-	if (!is_array($contexte_exec)) {
-		echo $contexte_exec;
-	} // message d'erreur etc
-	else {
-		inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
-	}
+    arguments_balise_dyn_depuis_modele(null, 'reset');
+
+    if (!is_array($contexte_exec)) {
+        echo $contexte_exec;
+    } // message d'erreur etc
+    else {
+        inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
+    }
 }
 
 /**
@@ -392,101 +392,101 @@ 
  * @return string|void
  */
 function inclure_balise_dynamique($texte, $echo = true, $contexte_compil = []) {
-	if (is_array($texte)) {
-		[$fond, $delainc, $contexte_inclus] = $texte;
-
-		// delais a l'ancienne, c'est pratiquement mort
-		$d = $GLOBALS['delais'] ?? null;
-		$GLOBALS['delais'] = $delainc;
-
-		$page = recuperer_fond(
-			$fond,
-			$contexte_inclus,
-			['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
-		);
-
-		$texte = $page['texte'];
-
-		$GLOBALS['delais'] = $d;
-		// Faire remonter les entetes
-		if (
-			isset($page['entetes'])
-			and is_array($page['entetes'])
-		) {
-			// mais pas toutes
-			unset($page['entetes']['X-Spip-Cache']);
-			unset($page['entetes']['Content-Type']);
-			if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
-				if (!is_array($GLOBALS['page']['entetes'])) {
-					$GLOBALS['page']['entetes'] = [];
-				}
-				$GLOBALS['page']['entetes'] =
-					array_merge($GLOBALS['page']['entetes'], $page['entetes']);
-			}
-		}
-		// _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
-		if (
-			isset($page['contexte']['_pipelines'])
-			and is_array($page['contexte']['_pipelines'])
-			and count($page['contexte']['_pipelines'])
-		) {
-			foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
-				$args['contexte'] = $page['contexte'];
-				unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
-				$texte = pipeline(
-					$pipe,
-					[
-						'data' => $texte,
-						'args' => $args
-					]
-				);
-			}
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		// compatibilite : avant on donnait le numero de ligne ou rien.
-		$ligne = intval($contexte_compil[3] ?? $contexte_compil);
-		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
-	}
-	if ($echo) {
-		echo $texte;
-	} else {
-		return $texte;
-	}
+    if (is_array($texte)) {
+        [$fond, $delainc, $contexte_inclus] = $texte;
+
+        // delais a l'ancienne, c'est pratiquement mort
+        $d = $GLOBALS['delais'] ?? null;
+        $GLOBALS['delais'] = $delainc;
+
+        $page = recuperer_fond(
+            $fond,
+            $contexte_inclus,
+            ['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
+        );
+
+        $texte = $page['texte'];
+
+        $GLOBALS['delais'] = $d;
+        // Faire remonter les entetes
+        if (
+            isset($page['entetes'])
+            and is_array($page['entetes'])
+        ) {
+            // mais pas toutes
+            unset($page['entetes']['X-Spip-Cache']);
+            unset($page['entetes']['Content-Type']);
+            if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
+                if (!is_array($GLOBALS['page']['entetes'])) {
+                    $GLOBALS['page']['entetes'] = [];
+                }
+                $GLOBALS['page']['entetes'] =
+                    array_merge($GLOBALS['page']['entetes'], $page['entetes']);
+            }
+        }
+        // _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
+        if (
+            isset($page['contexte']['_pipelines'])
+            and is_array($page['contexte']['_pipelines'])
+            and count($page['contexte']['_pipelines'])
+        ) {
+            foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
+                $args['contexte'] = $page['contexte'];
+                unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
+                $texte = pipeline(
+                    $pipe,
+                    [
+                        'data' => $texte,
+                        'args' => $args
+                    ]
+                );
+            }
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        // compatibilite : avant on donnait le numero de ligne ou rien.
+        $ligne = intval($contexte_compil[3] ?? $contexte_compil);
+        $GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
+    }
+    if ($echo) {
+        echo $texte;
+    } else {
+        return $texte;
+    }
 }
 
 function message_page_indisponible($page, $contexte) {
-	static $deja = false;
-	if ($deja) {
-		return 'erreur';
-	}
-	$codes = [
-		'404' => '404 Not Found',
-		'503' => '503 Service Unavailable',
-	];
-
-	$contexte['status'] = ($page !== false) ? '404' : '503';
-	$contexte['code'] = $codes[$contexte['status']];
-	$contexte['fond'] = '404'; // gere les 2 erreurs
-	if (!isset($contexte['lang'])) {
-		include_spip('inc/lang');
-		$contexte['lang'] = $GLOBALS['spip_lang'];
-	}
-
-	$deja = true;
-	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
-	// ex restriction d'acces => 401
-	$contexte = pipeline('page_indisponible', $contexte);
-
-	// produire la page d'erreur
-	$page = inclure_page($contexte['fond'], $contexte);
-	if (!$page) {
-		$page = inclure_page('404', $contexte);
-	}
-	$page['status'] = $contexte['status'];
-
-	return $page;
+    static $deja = false;
+    if ($deja) {
+        return 'erreur';
+    }
+    $codes = [
+        '404' => '404 Not Found',
+        '503' => '503 Service Unavailable',
+    ];
+
+    $contexte['status'] = ($page !== false) ? '404' : '503';
+    $contexte['code'] = $codes[$contexte['status']];
+    $contexte['fond'] = '404'; // gere les 2 erreurs
+    if (!isset($contexte['lang'])) {
+        include_spip('inc/lang');
+        $contexte['lang'] = $GLOBALS['spip_lang'];
+    }
+
+    $deja = true;
+    // passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
+    // ex restriction d'acces => 401
+    $contexte = pipeline('page_indisponible', $contexte);
+
+    // produire la page d'erreur
+    $page = inclure_page($contexte['fond'], $contexte);
+    if (!$page) {
+        $page = inclure_page('404', $contexte);
+    }
+    $page['status'] = $contexte['status'];
+
+    return $page;
 }
 
 /**
@@ -498,44 +498,44 @@ 
  * @return mixed
  */
 function arguments_balise_dyn_depuis_modele($arg, $operation = 'set') {
-	static $balise_dyn_appellee_par_modele = null;
-	switch ($operation) {
-		case 'read':
-			return $balise_dyn_appellee_par_modele;
-		case 'reset':
-			$balise_dyn_appellee_par_modele = null;
-			return null;
-		case 'set':
-		default:
-			$balise_dyn_appellee_par_modele = $arg;
-			return $arg;
-	}
+    static $balise_dyn_appellee_par_modele = null;
+    switch ($operation) {
+        case 'read':
+            return $balise_dyn_appellee_par_modele;
+        case 'reset':
+            $balise_dyn_appellee_par_modele = null;
+            return null;
+        case 'set':
+        default:
+            $balise_dyn_appellee_par_modele = $arg;
+            return $arg;
+    }
 }
 
 // temporairement ici : a mettre dans le futur inc/modeles
 // creer_contexte_de_modele('left', 'autostart=true', ...) renvoie un array()
 function creer_contexte_de_modele($args) {
-	$contexte = [];
-	foreach ($args as $var => $val) {
-		if (is_int($var)) { // argument pas formate
-			if (in_array($val, ['left', 'right', 'center'])) {
-				$var = 'align';
-				$contexte[$var] = $val;
-			} else {
-				$args = explode('=', $val);
-				if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
-				$contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
-				} else // notation abregee
-				{
-					$contexte[trim($val)] = trim($val);
-				}
-			}
-		} else {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($args as $var => $val) {
+        if (is_int($var)) { // argument pas formate
+            if (in_array($val, ['left', 'right', 'center'])) {
+                $var = 'align';
+                $contexte[$var] = $val;
+            } else {
+                $args = explode('=', $val);
+                if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+                $contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
+                } else // notation abregee
+                {
+                    $contexte[trim($val)] = trim($val);
+                }
+            }
+        } else {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -550,43 +550,43 @@ 
  * @return string
  */
 function styliser_modele($modele, $id, $contexte = null) {
-	static $styliseurs = null;
-	if (is_null($styliseurs)) {
-		$tables_objet = lister_tables_objets_sql();
-		foreach ($tables_objet as $table => $desc) {
-			if (
-				isset($desc['modeles']) and $desc['modeles']
-				and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
-				and function_exists($desc['modeles_styliser'])
-			) {
-				$primary = id_table_objet($table);
-				foreach ($desc['modeles'] as $m) {
-					$styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
-				}
-			}
-		}
-	}
-
-	if (isset($styliseurs[$modele])) {
-		$styliseur = $styliseurs[$modele]['callback'];
-		$primary = $styliseurs[$modele]['primary'];
-		if (is_null($id) and $contexte) {
-			if (isset($contexte['id'])) {
-				$id = $contexte['id'];
-			} elseif (isset($contexte[$primary])) {
-				$id = $contexte[$primary];
-			}
-		}
-		if (is_null($id)) {
-			$msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
-			erreur_squelette($msg);
-			// on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
-			$id = 0;
-		}
-		$modele = $styliseur($modele, $id);
-	}
-
-	return $modele;
+    static $styliseurs = null;
+    if (is_null($styliseurs)) {
+        $tables_objet = lister_tables_objets_sql();
+        foreach ($tables_objet as $table => $desc) {
+            if (
+                isset($desc['modeles']) and $desc['modeles']
+                and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
+                and function_exists($desc['modeles_styliser'])
+            ) {
+                $primary = id_table_objet($table);
+                foreach ($desc['modeles'] as $m) {
+                    $styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
+                }
+            }
+        }
+    }
+
+    if (isset($styliseurs[$modele])) {
+        $styliseur = $styliseurs[$modele]['callback'];
+        $primary = $styliseurs[$modele]['primary'];
+        if (is_null($id) and $contexte) {
+            if (isset($contexte['id'])) {
+                $id = $contexte['id'];
+            } elseif (isset($contexte[$primary])) {
+                $id = $contexte[$primary];
+            }
+        }
+        if (is_null($id)) {
+            $msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
+            erreur_squelette($msg);
+            // on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
+            $id = 0;
+        }
+        $modele = $styliseur($modele, $id);
+    }
+
+    return $modele;
 }
 
 /**
@@ -603,102 +603,102 @@ 
  */
 function inclure_modele($type, $id, $params, $lien, string $connect = '', $env = []) {
 
-	static $compteur;
-	if (++$compteur > 10) {
-		return '';
-	} # ne pas boucler indefiniment
-
-	$type = strtolower($type);
-	$type = styliser_modele($type, $id);
-
-	$fond = $class = '';
-
-	$params = array_filter(explode('|', $params));
-	if ($params) {
-		$soustype = current($params);
-		$soustype = strtolower(trim($soustype));
-		if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
-			$soustype = next($params);
-			$soustype = strtolower($soustype);
-		}
-
-		if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
-			if (!trouve_modele($fond = ($type . '_' . $soustype))) {
-				$fond = '';
-				$class = $soustype;
-			}
-			// enlever le sous type des params
-			$params = array_diff($params, [$soustype]);
-		}
-	}
-
-	// Si ca marche pas en precisant le sous-type, prendre le type
-	if (!$fond and !trouve_modele($fond = $type)) {
-		spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
-
-		return false;
-	}
-	$fond = 'modeles/' . $fond;
-	// Creer le contexte
-	$contexte = $env;
-	$contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
-
-	// Le numero du modele est mis dans l'environnement
-	// d'une part sous l'identifiant "id"
-	// et d'autre part sous l'identifiant de la cle primaire
-	// par la fonction id_table_objet,
-	// (<article1> =>> article =>> id_article =>> id_article=1)
-	$_id = id_table_objet($type);
-	$contexte['id'] = $contexte[$_id] = $id;
-
-	if (isset($class)) {
-		$contexte['class'] = $class;
-	}
-
-	// Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
-	if ($lien) {
-		# un eventuel guillemet (") sera reechappe par #ENV
-		$contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
-		$contexte['lien_class'] = $lien['class'];
-		$contexte['lien_mime'] = $lien['mime'];
-		$contexte['lien_title'] = $lien['title'];
-		$contexte['lien_hreflang'] = $lien['hreflang'];
-	}
-
-	// Traiter les parametres
-	// par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
-	$arg_list = creer_contexte_de_modele($params);
-	$contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
-	$contexte = array_merge($contexte, $arg_list);
-
-	// Appliquer le modele avec le contexte
-	$retour = recuperer_fond($fond, $contexte, [], $connect);
-
-	// Regarder si le modele tient compte des liens (il *doit* alors indiquer
-	// spip_lien_ok dans les classes de son conteneur de premier niveau ;
-	// sinon, s'il y a un lien, on l'ajoute classiquement
-	if (
-		strstr(
-			' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
-			'spip_lien_ok'
-		)
-	) {
-		$retour = inserer_attribut(
-			$retour,
-			'class',
-			trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
-		);
-	} else {
-		if ($lien) {
-			$retour = "<a href=\"" . $lien['href'] . "\" class=\"" . $lien['class'] . "\">" . $retour . '</a>';
-		}
-	}
-
-	$compteur--;
-
-	return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
-		? encoder_contexte_ajax($contexte, '', $retour)
-		: $retour;
+    static $compteur;
+    if (++$compteur > 10) {
+        return '';
+    } # ne pas boucler indefiniment
+
+    $type = strtolower($type);
+    $type = styliser_modele($type, $id);
+
+    $fond = $class = '';
+
+    $params = array_filter(explode('|', $params));
+    if ($params) {
+        $soustype = current($params);
+        $soustype = strtolower(trim($soustype));
+        if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
+            $soustype = next($params);
+            $soustype = strtolower($soustype);
+        }
+
+        if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
+            if (!trouve_modele($fond = ($type . '_' . $soustype))) {
+                $fond = '';
+                $class = $soustype;
+            }
+            // enlever le sous type des params
+            $params = array_diff($params, [$soustype]);
+        }
+    }
+
+    // Si ca marche pas en precisant le sous-type, prendre le type
+    if (!$fond and !trouve_modele($fond = $type)) {
+        spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
+
+        return false;
+    }
+    $fond = 'modeles/' . $fond;
+    // Creer le contexte
+    $contexte = $env;
+    $contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
+
+    // Le numero du modele est mis dans l'environnement
+    // d'une part sous l'identifiant "id"
+    // et d'autre part sous l'identifiant de la cle primaire
+    // par la fonction id_table_objet,
+    // (<article1> =>> article =>> id_article =>> id_article=1)
+    $_id = id_table_objet($type);
+    $contexte['id'] = $contexte[$_id] = $id;
+
+    if (isset($class)) {
+        $contexte['class'] = $class;
+    }
+
+    // Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
+    if ($lien) {
+        # un eventuel guillemet (") sera reechappe par #ENV
+        $contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
+        $contexte['lien_class'] = $lien['class'];
+        $contexte['lien_mime'] = $lien['mime'];
+        $contexte['lien_title'] = $lien['title'];
+        $contexte['lien_hreflang'] = $lien['hreflang'];
+    }
+
+    // Traiter les parametres
+    // par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
+    $arg_list = creer_contexte_de_modele($params);
+    $contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
+    $contexte = array_merge($contexte, $arg_list);
+
+    // Appliquer le modele avec le contexte
+    $retour = recuperer_fond($fond, $contexte, [], $connect);
+
+    // Regarder si le modele tient compte des liens (il *doit* alors indiquer
+    // spip_lien_ok dans les classes de son conteneur de premier niveau ;
+    // sinon, s'il y a un lien, on l'ajoute classiquement
+    if (
+        strstr(
+            ' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
+            'spip_lien_ok'
+        )
+    ) {
+        $retour = inserer_attribut(
+            $retour,
+            'class',
+            trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
+        );
+    } else {
+        if ($lien) {
+            $retour = "<a href=\"" . $lien['href'] . "\" class=\"" . $lien['class'] . "\">" . $retour . '</a>';
+        }
+    }
+
+    $compteur--;
+
+    return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
+        ? encoder_contexte_ajax($contexte, '', $retour)
+        : $retour;
 }
 
 // Un inclure_page qui marche aussi pour l'espace prive
@@ -707,105 +707,105 @@ 
 // 	recuperer_fond($fond,$contexte,array('raw'=>true))
 function evaluer_fond($fond, $contexte = [], string $connect = '') {
 
-	$page = inclure_page($fond, $contexte, $connect);
-
-	if (!$page) {
-		return $page;
-	}
-	// eval $page et affecte $res
-	include _ROOT_RESTREINT . 'public/evaluer_page.php';
-
-	// Lever un drapeau (global) si le fond utilise #SESSION
-	// a destination de public/parametrer
-	// pour remonter vers les inclusions appelantes
-	// il faut bien lever ce drapeau apres avoir evalue le fond
-	// pour ne pas faire descendre le flag vers les inclusions appelees
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
-	}
-
-	return $page;
+    $page = inclure_page($fond, $contexte, $connect);
+
+    if (!$page) {
+        return $page;
+    }
+    // eval $page et affecte $res
+    include _ROOT_RESTREINT . 'public/evaluer_page.php';
+
+    // Lever un drapeau (global) si le fond utilise #SESSION
+    // a destination de public/parametrer
+    // pour remonter vers les inclusions appelantes
+    // il faut bien lever ce drapeau apres avoir evalue le fond
+    // pour ne pas faire descendre le flag vers les inclusions appelees
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        $GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+    }
+
+    return $page;
 }
 
 
 function page_base_href(&$texte) {
-	static $set_html_base = null;
-	if (is_null($set_html_base)) {
-		if (!defined('_SET_HTML_BASE')) {
-			// si la profondeur est superieure a 1
-			// est que ce n'est pas une url page ni une url action
-			// activer par defaut
-		$set_html_base = ((
-				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
-				and _request(_SPIP_PAGE) !== 'login'
-				and !_request('action')) ? true : false);
-		} else {
-			$set_html_base = _SET_HTML_BASE;
-		}
-	}
-
-	if (
-		$set_html_base
-		and isset($GLOBALS['html']) and $GLOBALS['html']
-		and $GLOBALS['profondeur_url'] > 0
-		and ($poshead = strpos($texte, '</head>')) !== false
-	) {
-		$head = substr($texte, 0, $poshead);
-		$insert = false;
-		$href_base = false;
-		if (strpos($head, '<base') === false) {
-			$insert = true;
-		} else {
-			// si aucun <base ...> n'a de href il faut en inserer un
-			// sinon juste re-ecrire les ancres si besoin
-			$insert = true;
-			include_spip('inc/filtres');
-			$bases = extraire_balises($head, 'base');
-			foreach ($bases as $base) {
-				if ($href_base = extraire_attribut($base, 'href')) {
-					$insert = false;
-					break;
-				}
-			}
-		}
-
-		if ($insert) {
-			include_spip('inc/filtres_mini');
-			// ajouter un base qui reglera tous les liens relatifs
-			$href_base = url_absolue('./');
-			$base = "\n<base href=\"$href_base\" />";
-			if (($pos = strpos($head, '<head>')) !== false) {
-				$head = substr_replace($head, $base, $pos + 6, 0);
-			} elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
-				$head = str_replace($r[0], $r[0] . $base, $head);
-			}
-			$texte = $head . substr($texte, $poshead);
-		}
-		if ($href_base) {
-			// gerer les ancres
-			$base = $_SERVER['REQUEST_URI'];
-			// pas de guillemets ni < dans l'URL qu'on insere dans le HTML
-			if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
-				$base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
-			}
-			if (strpos($texte, "href='#") !== false) {
-				$texte = str_replace("href='#", "href='$base#", $texte);
-			}
-			if (strpos($texte, 'href="#') !== false) {
-				$texte = str_replace('href="#', "href=\"$base#", $texte);
-			}
-		}
-	}
+    static $set_html_base = null;
+    if (is_null($set_html_base)) {
+        if (!defined('_SET_HTML_BASE')) {
+            // si la profondeur est superieure a 1
+            // est que ce n'est pas une url page ni une url action
+            // activer par defaut
+        $set_html_base = ((
+                $GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
+                and _request(_SPIP_PAGE) !== 'login'
+                and !_request('action')) ? true : false);
+        } else {
+            $set_html_base = _SET_HTML_BASE;
+        }
+    }
+
+    if (
+        $set_html_base
+        and isset($GLOBALS['html']) and $GLOBALS['html']
+        and $GLOBALS['profondeur_url'] > 0
+        and ($poshead = strpos($texte, '</head>')) !== false
+    ) {
+        $head = substr($texte, 0, $poshead);
+        $insert = false;
+        $href_base = false;
+        if (strpos($head, '<base') === false) {
+            $insert = true;
+        } else {
+            // si aucun <base ...> n'a de href il faut en inserer un
+            // sinon juste re-ecrire les ancres si besoin
+            $insert = true;
+            include_spip('inc/filtres');
+            $bases = extraire_balises($head, 'base');
+            foreach ($bases as $base) {
+                if ($href_base = extraire_attribut($base, 'href')) {
+                    $insert = false;
+                    break;
+                }
+            }
+        }
+
+        if ($insert) {
+            include_spip('inc/filtres_mini');
+            // ajouter un base qui reglera tous les liens relatifs
+            $href_base = url_absolue('./');
+            $base = "\n<base href=\"$href_base\" />";
+            if (($pos = strpos($head, '<head>')) !== false) {
+                $head = substr_replace($head, $base, $pos + 6, 0);
+            } elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
+                $head = str_replace($r[0], $r[0] . $base, $head);
+            }
+            $texte = $head . substr($texte, $poshead);
+        }
+        if ($href_base) {
+            // gerer les ancres
+            $base = $_SERVER['REQUEST_URI'];
+            // pas de guillemets ni < dans l'URL qu'on insere dans le HTML
+            if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
+                $base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
+            }
+            if (strpos($texte, "href='#") !== false) {
+                $texte = str_replace("href='#", "href='$base#", $texte);
+            }
+            if (strpos($texte, 'href="#') !== false) {
+                $texte = str_replace('href="#', "href=\"$base#", $texte);
+            }
+        }
+    }
 }
 
 
 // Envoyer les entetes, en retenant ceux qui sont a usage interne
 // et demarrent par X-Spip-...
 function envoyer_entetes($entetes) {
-	foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
-	@header(strlen($v) ? "$k: $v" : $k);
-	}
+    foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
+    @header(strlen($v) ? "$k: $v" : $k);
+    }
 }

ecrire/public/criteres.php

Indentation +1718 added lines, -1718 removed lines

@@ -21,7 +21,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -47,12 +47,12 @@ 
  **/
 function critere_racine_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
 
-	$c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -69,15 +69,15 @@ 
  * @return void|array
  **/
 function critere_exclus_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id = $boucle->primary;
-
-	if ($not or !$id) {
-		return ['zbug_critere_inconnu', ['critere' => $not . $crit->op]];
-	}
-	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id = $boucle->primary;
+
+    if ($not or !$id) {
+        return ['zbug_critere_inconnu', ['critere' => $not . $crit->op]];
+    }
+    $arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
+    $boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
 }
 
 
@@ -97,73 +97,73 @@ 
  * @return void|array
  **/
 function critere_doublons_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
-
-	// la table nécessite une clé primaire, non composée
-	if (!$primary or strpos($primary, ',')) {
-		return ['zbug_doublon_sur_table_sans_cle_primaire'];
-	}
-
-	$not = ($crit->not ? '' : 'NOT');
-
-	// le doublon s'applique sur un type de boucle (article)
-	$nom = "'" . $boucle->type_requete . "'";
-
-	// compléter le nom avec un nom précisé {doublons nom}
-	// on obtient $nom = "'article' . 'nom'"
-	if (isset($crit->param[0])) {
-		$nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	}
-
-	// code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
-	$init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
-	$init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
-
-	// on crée un sql_in avec la clé primaire de la table
-	// et la collection des doublons déjà emmagasinés dans le tableau
-	// $doublons et son index, ici $nom
-
-	// debut du code "sql_in('articles.id_article', "
-	$debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
-	// lecture des données du doublon "$doublons[$doublon_index[] = "
-	// Attention : boucle->doublons désigne une variable qu'on affecte
-	$debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
-
-	// le debut complet du code des doublons
-	$debut_doub = $debut_in . $debut_doub;
-
-	// nom du doublon "('article' . 'nom')]"
-	$fin_doub = "($nom)]";
-
-	// si on trouve un autre critère doublon,
-	// on fusionne pour avoir un seul IN, et on s'en va !
-	foreach ($boucle->where as $k => $w) {
-		if (strpos($w[0], $debut_doub) === 0) {
-			// fusionner le sql_in (du where)
-			$boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
-			// fusionner l'initialisation (du hash) pour faire plus joli
-			$x = strpos($boucle->hash, $init_comment);
-			$len = strlen($init_comment);
-			$boucle->hash =
-				substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
-
-			return;
-		}
-	}
-
-	// mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
-	$boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
-
-	// déclarer le doublon s'il n'existe pas encore
-	$boucle->hash .= $init_comment . $init_code;
-
-
-	# la ligne suivante avait l'intention d'eviter une collecte deja faite
-	# mais elle fait planter une boucle a 2 critere doublons:
-	# {!doublons A}{doublons B}
-	# (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
-	#	if ($crit->not) $boucle->doublons = "";
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
+
+    // la table nécessite une clé primaire, non composée
+    if (!$primary or strpos($primary, ',')) {
+        return ['zbug_doublon_sur_table_sans_cle_primaire'];
+    }
+
+    $not = ($crit->not ? '' : 'NOT');
+
+    // le doublon s'applique sur un type de boucle (article)
+    $nom = "'" . $boucle->type_requete . "'";
+
+    // compléter le nom avec un nom précisé {doublons nom}
+    // on obtient $nom = "'article' . 'nom'"
+    if (isset($crit->param[0])) {
+        $nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    }
+
+    // code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
+    $init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
+    $init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
+
+    // on crée un sql_in avec la clé primaire de la table
+    // et la collection des doublons déjà emmagasinés dans le tableau
+    // $doublons et son index, ici $nom
+
+    // debut du code "sql_in('articles.id_article', "
+    $debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
+    // lecture des données du doublon "$doublons[$doublon_index[] = "
+    // Attention : boucle->doublons désigne une variable qu'on affecte
+    $debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
+
+    // le debut complet du code des doublons
+    $debut_doub = $debut_in . $debut_doub;
+
+    // nom du doublon "('article' . 'nom')]"
+    $fin_doub = "($nom)]";
+
+    // si on trouve un autre critère doublon,
+    // on fusionne pour avoir un seul IN, et on s'en va !
+    foreach ($boucle->where as $k => $w) {
+        if (strpos($w[0], $debut_doub) === 0) {
+            // fusionner le sql_in (du where)
+            $boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
+            // fusionner l'initialisation (du hash) pour faire plus joli
+            $x = strpos($boucle->hash, $init_comment);
+            $len = strlen($init_comment);
+            $boucle->hash =
+                substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
+
+            return;
+        }
+    }
+
+    // mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
+    $boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
+
+    // déclarer le doublon s'il n'existe pas encore
+    $boucle->hash .= $init_comment . $init_code;
+
+
+    # la ligne suivante avait l'intention d'eviter une collecte deja faite
+    # mais elle fait planter une boucle a 2 critere doublons:
+    # {!doublons A}{doublons B}
+    # (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
+    #	if ($crit->not) $boucle->doublons = "";
 }
 
 
@@ -184,14 +184,14 @@ 
  * @return void
  **/
 function critere_lang_select_dist($idb, &$boucles, $crit) {
-	if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
-		$param = 'oui';
-	}
-	if ($crit->not) {
-		$param = ($param == 'oui') ? 'non' : 'oui';
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->lang_select = $param;
+    if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
+        $param = 'oui';
+    }
+    if ($crit->not) {
+        $param = ($param == 'oui') ? 'non' : 'oui';
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->lang_select = $param;
 }
 
 
@@ -213,15 +213,15 @@ 
  * @return void
  **/
 function critere_debut_dist($idb, &$boucles, $crit) {
-	[$un, $deux] = $crit->param;
-	$un = $un[0]->texte;
-	$deux = $deux[0]->texte;
-	if ($deux) {
-		$boucles[$idb]->limit =
-			'intval($Pile[0]["debut' . $un . '"]) . ",' . $deux . '"';
-	} else {
-		calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
-	}
+    [$un, $deux] = $crit->param;
+    $un = $un[0]->texte;
+    $deux = $deux[0]->texte;
+    if ($deux) {
+        $boucles[$idb]->limit =
+            'intval($Pile[0]["debut' . $un . '"]) . ",' . $deux . '"';
+    } else {
+        calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
+    }
 }
 
 
@@ -255,58 +255,58 @@ 
  **/
 function critere_pagination_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// definition de la taille de la page
-	$pas = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-
-	if (!preg_match(_CODE_QUOTE, $pas, $r)) {
-		$pas = "((\$a = intval($pas)) ? \$a : 10)";
-	} else {
-		$r = intval($r[2]);
-		$pas = strval($r ?: 10);
-	}
-
-	// Calcul du nommage de la pagination si il existe.
-	// La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
-	// compatible avec l'ancienne car certains cas fonctionnent correctement
-	$type = "'$idb'";
-	// Calcul d'un nommage spécifique de la pagination si précisé.
-	// Syntaxe {pagination 20, nom}
-	if (isset($crit->param[0][1])) {
-		$type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
-	} // Ancienne syntaxe {pagination 20 nom} pour compatibilité
-	elseif (isset($crit->param[1][0])) {
-		$type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	}
-
-	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
-	$boucle->modificateur['debut_nom'] = $type;
-	$partie =
-		// tester si le numero de page demande est de la forme '@yyy'
-		'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
-		. "\tif (\$debut_boucle && \$debut_boucle[0] === '@') {\n"
-		. "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
-		. "\t\t" . '$iter->seek(0);' . "\n"
-		. "\t}\n"
-		. "\t" . '$debut_boucle = intval($debut_boucle)';
-
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    // definition de la taille de la page
+    $pas = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+
+    if (!preg_match(_CODE_QUOTE, $pas, $r)) {
+        $pas = "((\$a = intval($pas)) ? \$a : 10)";
+    } else {
+        $r = intval($r[2]);
+        $pas = strval($r ?: 10);
+    }
+
+    // Calcul du nommage de la pagination si il existe.
+    // La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
+    // compatible avec l'ancienne car certains cas fonctionnent correctement
+    $type = "'$idb'";
+    // Calcul d'un nommage spécifique de la pagination si précisé.
+    // Syntaxe {pagination 20, nom}
+    if (isset($crit->param[0][1])) {
+        $type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
+    } // Ancienne syntaxe {pagination 20 nom} pour compatibilité
+    elseif (isset($crit->param[1][0])) {
+        $type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    }
+
+    $debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
+    $boucle->modificateur['debut_nom'] = $type;
+    $partie =
+        // tester si le numero de page demande est de la forme '@yyy'
+        'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
+        . "\tif (\$debut_boucle && \$debut_boucle[0] === '@') {\n"
+        . "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
+        . "\t\t" . '$iter->seek(0);' . "\n"
+        . "\t}\n"
+        . "\t" . '$debut_boucle = intval($debut_boucle)';
+
+    $boucle->hash .= '
 	$command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');';
 
-	$boucle->total_parties = $pas;
-	calculer_parties($boucles, $idb, $partie, 'p+');
-	// ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
-	// sauf si pas de primaire, ou si primaire composee
-	// dans ce cas, on ne sait pas gerer une pagination indirecte
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (
-		$boucle->primary
-		and !preg_match('/[,\s]/', $boucle->primary)
-		and !in_array($t, $boucle->select)
-	) {
-		$boucle->select[] = $t;
-	}
+    $boucle->total_parties = $pas;
+    calculer_parties($boucles, $idb, $partie, 'p+');
+    // ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
+    // sauf si pas de primaire, ou si primaire composee
+    // dans ce cas, on ne sait pas gerer une pagination indirecte
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (
+        $boucle->primary
+        and !preg_match('/[,\s]/', $boucle->primary)
+        and !in_array($t, $boucle->select)
+    ) {
+        $boucle->select[] = $t;
+    }
 }
 
 
@@ -328,24 +328,24 @@ 
  **/
 function critere_recherche_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	if (!$boucle->primary or strpos($boucle->primary, ',')) {
-		erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
+    if (!$boucle->primary or strpos($boucle->primary, ',')) {
+        erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
 
-		return;
-	}
+        return;
+    }
 
-	if (isset($crit->param[0])) {
-		$quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	} else {
-		$quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
-	}
+    if (isset($crit->param[0])) {
+        $quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    } else {
+        $quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
+    }
 
-	$_modificateur = var_export($boucle->modificateur, true);
-	$boucle->hash .= '
+    $_modificateur = var_export($boucle->modificateur, true);
+    $boucle->hash .= '
 	// RECHERCHE'
-		. ($crit->cond ? '
+        . ($crit->cond ? '
 	if (!strlen(' . $quoi . ')){
 		list($rech_select, $rech_where) = array("0 as points","");
 	} else' : '') . '
@@ -356,21 +356,21 @@ 
 	';
 
 
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (!in_array($t, $boucles[$idb]->select)) {
-		$boucle->select[] = $t;
-	} # pour postgres, neuneu ici
-	// jointure uniquement sur le serveur principal
-	// (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
-	if (!$boucle->sql_serveur) {
-		$boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
-		$boucle->from['resultats'] = 'spip_resultats';
-	}
-	$boucle->select[] = '$rech_select';
-	//$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
-
-	// et la recherche trouve
-	$boucle->where[] = '$rech_where?$rech_where:\'\'';
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (!in_array($t, $boucles[$idb]->select)) {
+        $boucle->select[] = $t;
+    } # pour postgres, neuneu ici
+    // jointure uniquement sur le serveur principal
+    // (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
+    if (!$boucle->sql_serveur) {
+        $boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
+        $boucle->from['resultats'] = 'spip_resultats';
+    }
+    $boucle->select[] = '$rech_select';
+    //$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
+
+    // et la recherche trouve
+    $boucle->where[] = '$rech_where?$rech_where:\'\'';
 }
 
 /**
@@ -387,25 +387,25 @@ 
  * @return void
  **/
 function critere_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-	$arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
-	$dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
-	$boucle->where[] =
-		[
-			"'OR'",
-			[
-				"'AND'",
-				["'='", "'$table.id_trad'", 0],
-				["'='", "'$table.$prim'", $dprim]
-			],
-			[
-				"'AND'",
-				["'>'", "'$table.id_trad'", 0],
-				["'='", "'$table.id_trad'", $arg]
-			]
-		];
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+    $arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
+    $dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
+    $boucle->where[] =
+        [
+            "'OR'",
+            [
+                "'AND'",
+                ["'='", "'$table.id_trad'", 0],
+                ["'='", "'$table.$prim'", $dprim]
+            ],
+            [
+                "'AND'",
+                ["'>'", "'$table.id_trad'", 0],
+                ["'='", "'$table.id_trad'", $arg]
+            ]
+        ];
 }
 
 
@@ -423,17 +423,17 @@ 
  * @return void
  **/
 function critere_origine_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-
-	$c =
-		[
-			"'OR'",
-			["'='", "'$table." . "id_trad'", "'$table.$prim'"],
-			["'='", "'$table.id_trad'", "'0'"]
-		];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+
+    $c =
+        [
+            "'OR'",
+            ["'='", "'$table." . "id_trad'", "'$table.$prim'"],
+            ["'='", "'$table.id_trad'", "'0'"]
+        ];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -450,17 +450,17 @@ 
  **/
 function critere_meme_parent_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
-	$id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
-	$mparent = $boucle->id_table . '.' . $id_parent;
-
-	if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
-		$boucle->where[] = ["'='", "'$mparent'", $arg];
-	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
-	else {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]];
-	}
+    $boucle = &$boucles[$idb];
+    $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
+    $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
+    $mparent = $boucle->id_table . '.' . $id_parent;
+
+    if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
+        $boucle->where[] = ["'='", "'$mparent'", $arg];
+    } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
+    else {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]];
+    }
 }
 
 
@@ -491,37 +491,37 @@ 
  **/
 function critere_branche_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	// prendre en priorite un identifiant en parametre {branche XX}
-	if (isset($crit->param[0])) {
-		$arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		// sinon on le prend chez une boucle parente
-	} else {
-		$arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
-	}
-
-	//Trouver une jointure
-	$champ = 'id_rubrique';
-	$desc = $boucle->show;
-	//Seulement si necessaire
-	if (!array_key_exists($champ, $desc['field'])) {
-		$cle = trouver_jointure_champ($champ, $boucle);
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		$desc = $trouver_table($boucle->from[$cle]);
-		if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
-			$decompose = decompose_champ_id_objet($champ);
-			$champ = array_shift($decompose);
-			$boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
-		}
-	} else {
-		$cle = $boucle->id_table;
-	}
-
-	$c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
-		. ($not ? ", 'NOT'" : '') . ')';
-	$boucle->where[] = !$crit->cond ? $c :
-		("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    // prendre en priorite un identifiant en parametre {branche XX}
+    if (isset($crit->param[0])) {
+        $arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        // sinon on le prend chez une boucle parente
+    } else {
+        $arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
+    }
+
+    //Trouver une jointure
+    $champ = 'id_rubrique';
+    $desc = $boucle->show;
+    //Seulement si necessaire
+    if (!array_key_exists($champ, $desc['field'])) {
+        $cle = trouver_jointure_champ($champ, $boucle);
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        $desc = $trouver_table($boucle->from[$cle]);
+        if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
+            $decompose = decompose_champ_id_objet($champ);
+            $champ = array_shift($decompose);
+            $boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
+        }
+    } else {
+        $cle = $boucle->id_table;
+    }
+
+    $c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
+        . ($not ? ", 'NOT'" : '') . ')';
+    $boucle->where[] = !$crit->cond ? $c :
+        ("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
 }
 
 /**
@@ -537,15 +537,15 @@ 
  **/
 function critere_logo_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$not = ($crit->not ? 'NOT' : '');
-	$serveur = $boucle->sql_serveur;
+    $boucle = &$boucles[$idb];
+    $not = ($crit->not ? 'NOT' : '');
+    $serveur = $boucle->sql_serveur;
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
+    $c = "sql_in('" .
+        $boucle->id_table . '.' . $boucle->primary
+        . "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
 
-	$boucle->where[] = $c;
+    $boucle->where[] = $c;
 }
 
 
@@ -567,31 +567,31 @@ 
  * @return void|array
  **/
 function critere_fusion_dist($idb, &$boucles, $crit) {
-	if ($t = isset($crit->param[0])) {
-		$t = $crit->param[0];
-		if ($t[0]->type == 'texte') {
-			$t = $t[0]->texte;
-			if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
-				$t = table_objet_sql($r[1]);
-				$t = array_search($t, $boucles[$idb]->from);
-				if ($t) {
-					$t .= '.' . $r[2];
-				}
-			}
-		} else {
-			$t = '".'
-				. calculer_critere_arg_dynamique($idb, $boucles, $t)
-				. '."';
-		}
-	}
-	if ($t) {
-		$boucles[$idb]->group[] = $t;
-		if (!in_array($t, $boucles[$idb]->select)) {
-			$boucles[$idb]->select[] = $t;
-		}
-	} else {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
-	}
+    if ($t = isset($crit->param[0])) {
+        $t = $crit->param[0];
+        if ($t[0]->type == 'texte') {
+            $t = $t[0]->texte;
+            if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
+                $t = table_objet_sql($r[1]);
+                $t = array_search($t, $boucles[$idb]->from);
+                if ($t) {
+                    $t .= '.' . $r[2];
+                }
+            }
+        } else {
+            $t = '".'
+                . calculer_critere_arg_dynamique($idb, $boucles, $t)
+                . '."';
+        }
+    }
+    if ($t) {
+        $boucles[$idb]->group[] = $t;
+        if (!in_array($t, $boucles[$idb]->select)) {
+            $boucles[$idb]->select[] = $t;
+        }
+    } else {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+    }
 }
 
 /**
@@ -611,7 +611,7 @@ 
  * @return void
  **/
 function critere_fusion_supprimer_dist($idb, &$boucles, $crit) {
-	$boucles[$idb]->group = [];
+    $boucles[$idb]->group = [];
 }
 
 /**
@@ -648,44 +648,44 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_collecte_dist($idb, &$boucles, $crit) {
-	if (isset($crit->param[0])) {
-		$_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		$boucle = $boucles[$idb];
-		$boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
-		$n = is_countable($boucle->order) ? count($boucle->order) : 0;
-		if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
-			// l'instruction COLLATE doit être placée avant ASC ou DESC
-			// notamment lors de l'utilisation `{!par xxx}{collate yyy}`
-			if (
-				(false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
-				or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
-			) {
-				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
-			} else {
-				$boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
-			}
-		}
-	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . (is_countable($boucles[$idb]->order) ? count($boucles[$idb]->order) : 0)]]);
-	}
+    if (isset($crit->param[0])) {
+        $_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        $boucle = $boucles[$idb];
+        $boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
+        $n = is_countable($boucle->order) ? count($boucle->order) : 0;
+        if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
+            // l'instruction COLLATE doit être placée avant ASC ou DESC
+            // notamment lors de l'utilisation `{!par xxx}{collate yyy}`
+            if (
+                (false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
+                or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
+            ) {
+                $boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
+            } else {
+                $boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
+            }
+        }
+    } else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . (is_countable($boucles[$idb]->order) ? count($boucles[$idb]->order) : 0)]]);
+    }
 }
 
 function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = '') {
-	$boucle = $boucles[$idb];
-	$alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
-	$var = '$champs_' . $idb;
-	$desc = (strpos($boucle->in, (string) "static $var =") !== false);
-	if (!$desc) {
-		$desc = $boucle->show['field'];
-		$desc = implode(',', array_map('_q', array_keys($desc)));
-		$boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
-	}
-	if ($desc) {
-		$alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
-	}
-	$arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
-
-	return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
+    $boucle = $boucles[$idb];
+    $alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
+    $var = '$champs_' . $idb;
+    $desc = (strpos($boucle->in, (string) "static $var =") !== false);
+    if (!$desc) {
+        $desc = $boucle->show['field'];
+        $desc = implode(',', array_map('_q', array_keys($desc)));
+        $boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
+    }
+    if ($desc) {
+        $alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
+    }
+    $arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
+
+    return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
 }
 
 /**
@@ -724,7 +724,7 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_par_dist($idb, &$boucles, $crit) {
-	return critere_parinverse($idb, $boucles, $crit);
+    return critere_parinverse($idb, $boucles, $crit);
 }
 
 /**
@@ -746,93 +746,93 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_parinverse($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
-	if (isset($boucle->modificateur['collate'])) {
-		$collecte = ' . ' . $boucle->modificateur['collate'];
-	}
-
-	// Pour chaque paramètre du critère
-	foreach ($crit->param as $tri) {
-		$order = $fct = '';
-		// tris specifiés dynamiquement {par #ENV{tri}}
-		if ($tri[0]->type != 'texte') {
-			// calculer le order dynamique qui verifie les champs
-			$order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
-			// ajouter 'hasard' comme possibilité de tri dynamique
-			calculer_critere_par_hasard($idb, $boucles, $crit);
-		}
-		// tris textuels {par titre}
-		else {
-			$par = array_shift($tri);
-			$par = $par->texte;
-
-			// tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
-			if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
-				$expression = trim($m[1]);
-				$champ = trim($m[2]);
-				if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
-					$order = $f($idb, $boucles, $crit, $tri, $champ);
-				} else {
-					return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-				}
-
-			// tris de la forme {par champ} ou {par FONCTION(champ)}
-			} elseif ($boucle->type_requete == 'DATA' or preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
-				// {par FONCTION(champ)}
-				if (isset($match) and count($match) > 2) {
-					$par = substr($match[2], 1, -1);
-					$fct = $match[1];
-				}
-				// quelques cas spécifiques {par hasard}, {par date}
-				if ($par == 'hasard') {
-					$order = calculer_critere_par_hasard($idb, $boucles, $crit);
-				} elseif ($par == 'date' and !empty($boucle->show['date'])) {
-					$order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
-				} else {
-					// cas général {par champ}, {par table.champ}, ...
-					$order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
-				}
-			}
-
-			// on ne sait pas traiter…
-			else {
-				return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-			}
-
-			// En cas d'erreur de squelette retournée par une fonction
-			if (is_array($order)) {
-				return $order;
-			}
-		}
-
-		if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
-			$t = $m[1];
-			if (strpos($t, '.') and !in_array($t, $boucle->select)) {
-				$boucle->select[] = $t;
-			}
-		} else {
-			$sens = '';
-		}
-
-		if ($fct) {
-			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
-				$order = "'$fct(" . $r[1] . ")'";
-			} else {
-				$order = "'$fct(' . $order . ')'";
-			}
-		}
-		$t = $order . $collecte . $sens;
-		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-			$t = $r[1] . $r[2];
-		}
-
-		$boucle->order[] = $t;
-	}
+    $boucle = &$boucles[$idb];
+
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
+    if (isset($boucle->modificateur['collate'])) {
+        $collecte = ' . ' . $boucle->modificateur['collate'];
+    }
+
+    // Pour chaque paramètre du critère
+    foreach ($crit->param as $tri) {
+        $order = $fct = '';
+        // tris specifiés dynamiquement {par #ENV{tri}}
+        if ($tri[0]->type != 'texte') {
+            // calculer le order dynamique qui verifie les champs
+            $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
+            // ajouter 'hasard' comme possibilité de tri dynamique
+            calculer_critere_par_hasard($idb, $boucles, $crit);
+        }
+        // tris textuels {par titre}
+        else {
+            $par = array_shift($tri);
+            $par = $par->texte;
+
+            // tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
+            if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
+                $expression = trim($m[1]);
+                $champ = trim($m[2]);
+                if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
+                    $order = $f($idb, $boucles, $crit, $tri, $champ);
+                } else {
+                    return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+                }
+
+            // tris de la forme {par champ} ou {par FONCTION(champ)}
+            } elseif ($boucle->type_requete == 'DATA' or preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
+                // {par FONCTION(champ)}
+                if (isset($match) and count($match) > 2) {
+                    $par = substr($match[2], 1, -1);
+                    $fct = $match[1];
+                }
+                // quelques cas spécifiques {par hasard}, {par date}
+                if ($par == 'hasard') {
+                    $order = calculer_critere_par_hasard($idb, $boucles, $crit);
+                } elseif ($par == 'date' and !empty($boucle->show['date'])) {
+                    $order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
+                } else {
+                    // cas général {par champ}, {par table.champ}, ...
+                    $order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
+                }
+            }
+
+            // on ne sait pas traiter…
+            else {
+                return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+            }
+
+            // En cas d'erreur de squelette retournée par une fonction
+            if (is_array($order)) {
+                return $order;
+            }
+        }
+
+        if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
+            $t = $m[1];
+            if (strpos($t, '.') and !in_array($t, $boucle->select)) {
+                $boucle->select[] = $t;
+            }
+        } else {
+            $sens = '';
+        }
+
+        if ($fct) {
+            if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
+                $order = "'$fct(" . $r[1] . ")'";
+            } else {
+                $order = "'$fct(' . $order . ')'";
+            }
+        }
+        $t = $order . $collecte . $sens;
+        if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+            $t = $r[1] . $r[2];
+        }
+
+        $boucle->order[] = $t;
+    }
 }
 
 /**
@@ -846,13 +846,13 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_hasard($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// Si ce n'est fait, ajouter un champ 'hasard' dans le select
-	$parha = 'rand() AS hasard';
-	if (!in_array($parha, $boucle->select)) {
-		$boucle->select[] = $parha;
-	}
-	return "'hasard'";
+    $boucle = &$boucles[$idb];
+    // Si ce n'est fait, ajouter un champ 'hasard' dans le select
+    $parha = 'rand() AS hasard';
+    if (!in_array($parha, $boucle->select)) {
+        $boucle->select[] = $parha;
+    }
+    return "'hasard'";
 }
 
 /**
@@ -876,24 +876,24 @@ 
  * @return string|array Clause pour le Order by (array si erreur)
  */
 function calculer_critere_par_expression_num($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-	$asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
-	$boucle->select[] = $texte . " AS $asnum";
-
-	$orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
-	$orderassinum = trim($orderassinum, "'");
-
-	$order = "'$orderassinum, $asnum'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+    $asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
+    $boucle->select[] = $texte . " AS $asnum";
+
+    $orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
+    $orderassinum = trim($orderassinum, "'");
+
+    $order = "'$orderassinum, $asnum'";
+    return $order;
 }
 
 /**
@@ -914,35 +914,35 @@ 
  * @return string|array Clause pour le Order by (array si erreur)
  */
 function calculer_critere_par_expression_sinum($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-
-	$as = false;
-	$select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
-	foreach ($boucle->select as $s) {
-		if (strpos($s, $select) === 0) {
-			$as = trim(substr($s, strlen($select)));
-			if (!preg_match(',\W,', $as)) {
-				break;
-			}
-			$as = false;
-		}
-	}
-
-	if (!$as) {
-		$as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
-		$boucle->select[] = $select . $as;
-	}
-	$order = "'$as'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+
+    $as = false;
+    $select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
+    foreach ($boucle->select as $s) {
+        if (strpos($s, $select) === 0) {
+            $as = trim(substr($s, strlen($select)));
+            if (!preg_match(',\W,', $as)) {
+                break;
+            }
+            $as = false;
+        }
+    }
+
+    if (!$as) {
+        $as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
+        $boucle->select[] = $select . $as;
+    }
+    $order = "'$as'";
+    return $order;
 }
 
 
@@ -962,14 +962,14 @@ 
  * @return string|array Clause pour le Order by (array si erreur)
  */
 function calculer_critere_par_expression_multi($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
-	$order = "'multi'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+    $order = "'multi'";
+    return $order;
 }
 
 /**
@@ -988,56 +988,56 @@ 
  * @return array|string
  */
 function calculer_critere_par_champ($idb, &$boucles, $crit, $par, $raw = false) {
-	$boucle = &$boucles[$idb];
-	$desc = $boucle->show;
-
-	// le champ existe dans la table, pas de souci (le plus commun)
-	if (isset($desc['field'][$par])) {
-		$par = $boucle->id_table . '.' . $par;
-	}
-	// le champ est peut être une jointure
-	else {
-		$table = $table_alias = false; // toutes les tables de jointure possibles
-		$champ = $par;
-
-		// le champ demandé est une exception de jointure {par titre_mot}
-		if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
-			[$table, $champ] = $GLOBALS['exceptions_des_jointures'][$par];
-		} // la table de jointure est explicitement indiquée {par truc.muche}
-		elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
-			[, $table, $champ] = $r;
-			$table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
-			$table = table_objet_sql($table);
-		}
-
-		// Si on connait la table d'arrivée, on la demande donc explicitement
-		// Sinon on cherche le champ dans les tables possibles de jointures
-		// Si la table est déjà dans le from, on la réutilise.
-		if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif (
-			$boucle->jointures_explicites
-			and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
-		) {
-			$par = $alias . '.' . $champ;
-		} elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
-			$par = $alias . '.' . $champ;
-		// en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
-		} elseif (
-			$table_alias
-			and isset($boucle->from[$table_alias])
-			and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
-		) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif ($table) {
-			// On avait table + champ, mais on ne les a pas trouvés
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-		} else {
-			// Sinon tant pis, ca doit etre un champ synthetise (cf points)
-		}
-	}
-
-	return $raw ? $par : "'$par'";
+    $boucle = &$boucles[$idb];
+    $desc = $boucle->show;
+
+    // le champ existe dans la table, pas de souci (le plus commun)
+    if (isset($desc['field'][$par])) {
+        $par = $boucle->id_table . '.' . $par;
+    }
+    // le champ est peut être une jointure
+    else {
+        $table = $table_alias = false; // toutes les tables de jointure possibles
+        $champ = $par;
+
+        // le champ demandé est une exception de jointure {par titre_mot}
+        if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
+            [$table, $champ] = $GLOBALS['exceptions_des_jointures'][$par];
+        } // la table de jointure est explicitement indiquée {par truc.muche}
+        elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
+            [, $table, $champ] = $r;
+            $table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
+            $table = table_objet_sql($table);
+        }
+
+        // Si on connait la table d'arrivée, on la demande donc explicitement
+        // Sinon on cherche le champ dans les tables possibles de jointures
+        // Si la table est déjà dans le from, on la réutilise.
+        if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif (
+            $boucle->jointures_explicites
+            and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
+        ) {
+            $par = $alias . '.' . $champ;
+        } elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
+            $par = $alias . '.' . $champ;
+        // en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
+        } elseif (
+            $table_alias
+            and isset($boucle->from[$table_alias])
+            and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
+        ) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif ($table) {
+            // On avait table + champ, mais on ne les a pas trouvés
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+        } else {
+            // Sinon tant pis, ca doit etre un champ synthetise (cf points)
+        }
+    }
+
+    return $raw ? $par : "'$par'";
 }
 
 /**
@@ -1051,11 +1051,11 @@ 
  * @return string Champ pour le compilateur si trouvé, tel que "'alias.champ'", sinon vide.
  */
 function critere_par_joint($table, $champ, &$boucle) {
-	$t = array_search($table, $boucle->from);
-	if (!$t) {
-		$t = trouver_jointure_champ($champ, $boucle);
-	}
-	return !$t ? '' : ("'" . $t . '.' . $champ . "'");
+    $t = array_search($table, $boucle->from);
+    if (!$t) {
+        $t = trouver_jointure_champ($champ, $boucle);
+    }
+    return !$t ? '' : ("'" . $t . '.' . $champ . "'");
 }
 
 /**
@@ -1080,33 +1080,33 @@ 
  */
 function critere_inverse_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// Classement par ordre inverse
-	if ($crit->not) {
-		critere_parinverse($idb, $boucles, $crit);
-	} else {
-		$order = "' DESC'";
-		// Classement par ordre inverse fonction eventuelle de #ENV{...}
-		if (isset($crit->param[0])) {
-			$critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-			$order = "(($critere)?' DESC':'')";
-		}
-
-		$n = is_countable($boucle->order) ? count($boucle->order) : 0;
-		if (!$n) {
-			if (isset($boucle->default_order[0])) {
-				$boucle->default_order[0] .= ' . " DESC"';
-			} else {
-				$boucle->default_order[] = ' DESC';
-			}
-		} else {
-			$t = $boucle->order[$n - 1] . " . $order";
-			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-				$t = $r[1] . $r[2];
-			}
-			$boucle->order[$n - 1] = $t;
-		}
-	}
+    $boucle = &$boucles[$idb];
+    // Classement par ordre inverse
+    if ($crit->not) {
+        critere_parinverse($idb, $boucles, $crit);
+    } else {
+        $order = "' DESC'";
+        // Classement par ordre inverse fonction eventuelle de #ENV{...}
+        if (isset($crit->param[0])) {
+            $critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+            $order = "(($critere)?' DESC':'')";
+        }
+
+        $n = is_countable($boucle->order) ? count($boucle->order) : 0;
+        if (!$n) {
+            if (isset($boucle->default_order[0])) {
+                $boucle->default_order[0] .= ' . " DESC"';
+            } else {
+                $boucle->default_order[] = ' DESC';
+            }
+        } else {
+            $t = $boucle->order[$n - 1] . " . $order";
+            if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+                $t = $r[1] . $r[2];
+            }
+            $boucle->order[$n - 1] = $t;
+        }
+    }
 }
 
 /**
@@ -1118,139 +1118,139 @@ 
  * @return void|array
  */
 function critere_par_ordre_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
 
-	$crit2 = clone $crit;
-	$crit2->not = false;
-	$crit2->param = [reset($crit->param)];
-	$res = critere_parinverse($idb, $boucles, $crit2);
+    $crit2 = clone $crit;
+    $crit2->not = false;
+    $crit2->param = [reset($crit->param)];
+    $res = critere_parinverse($idb, $boucles, $crit2);
 
-	// erreur ?
-	if (is_array($res)) {
-		return $res;
-	}
+    // erreur ?
+    if (is_array($res)) {
+        return $res;
+    }
 
-	$_order = array_pop($boucle->order);
+    $_order = array_pop($boucle->order);
 
-	$_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
+    $_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
 
-	$order = "'-FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste(array_reverse($_liste),'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
-	$boucle->order[] = $order;
+    $order = "'-FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste(array_reverse($_liste),'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
+    $boucle->order[] = $order;
 }
 
 
 function critere_agenda_dist($idb, &$boucles, $crit) {
-	$params = $crit->param;
-
-	if ((is_countable($params) ? count($params) : 0) < 1) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
-	}
-
-	$boucle = &$boucles[$idb];
-	$parent = $boucle->id_parent;
-	$fields = $boucle->show['field'];
-
-	$date = array_shift($params);
-	$type = array_shift($params);
-
-	// la valeur $type doit etre connue a la compilation
-	// donc etre forcement reduite a un litteral unique dans le source
-	$type = is_object($type[0]) ? $type[0]->texte : null;
-
-	// La valeur date doit designer un champ de la table SQL.
-	// Si c'est un litteral unique dans le source, verifier a la compil,
-	// sinon synthetiser le test de verif pour execution ulterieure
-	// On prendra arbitrairement le premier champ si test negatif.
-	if (((is_countable($date) ? count($date) : 0) == 1) and ($date[0]->type == 'texte')) {
-		$date = $date[0]->texte;
-		if (!isset($fields[$date])) {
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
-		}
-	} else {
-		$a = calculer_liste($date, $idb, $boucles, $parent);
-		$noms = array_keys($fields);
-		$defaut = $noms[0];
-		$noms = join(' ', $noms);
-		# bien laisser 2 espaces avant $nom pour que strpos<>0
-		$cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
-		$date = "'.(($cond)\n?\$a:\"$defaut\").'";
-	}
-	$annee = $params ? array_shift($params) : '';
-	$annee = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois = $params ? array_shift($params) : '';
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour = $params ? array_shift($params) : '';
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$annee2 = $params ? array_shift($params) : '';
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois2 = $params ? array_shift($params) : '';
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour2 = $params ? array_shift($params) : '';
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$date = $boucle->id_table . ".$date";
-
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
-	if ($type == 'jour') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m%d\')'",
-			("sql_quote($annee . $mois . $jour$quote_end)")
-		];
-	} elseif ($type == 'mois') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m\')'",
-			("sql_quote($annee . $mois$quote_end)")
-		];
-	} elseif ($type == 'semaine') {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_debut_semaine($annee, $mois, $jour)")
-			],
-			[
-				"'<='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_fin_semaine($annee, $mois, $jour)")
-			]
-		];
-	} elseif ((is_countable($crit->param) ? count($crit->param) : 0) > 2) {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("sql_quote($annee . $mois . $jour$quote_end)")
-			],
-			["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
-		];
-	}
-	// sinon on prend tout
+    $params = $crit->param;
+
+    if ((is_countable($params) ? count($params) : 0) < 1) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+    }
+
+    $boucle = &$boucles[$idb];
+    $parent = $boucle->id_parent;
+    $fields = $boucle->show['field'];
+
+    $date = array_shift($params);
+    $type = array_shift($params);
+
+    // la valeur $type doit etre connue a la compilation
+    // donc etre forcement reduite a un litteral unique dans le source
+    $type = is_object($type[0]) ? $type[0]->texte : null;
+
+    // La valeur date doit designer un champ de la table SQL.
+    // Si c'est un litteral unique dans le source, verifier a la compil,
+    // sinon synthetiser le test de verif pour execution ulterieure
+    // On prendra arbitrairement le premier champ si test negatif.
+    if (((is_countable($date) ? count($date) : 0) == 1) and ($date[0]->type == 'texte')) {
+        $date = $date[0]->texte;
+        if (!isset($fields[$date])) {
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
+        }
+    } else {
+        $a = calculer_liste($date, $idb, $boucles, $parent);
+        $noms = array_keys($fields);
+        $defaut = $noms[0];
+        $noms = join(' ', $noms);
+        # bien laisser 2 espaces avant $nom pour que strpos<>0
+        $cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
+        $date = "'.(($cond)\n?\$a:\"$defaut\").'";
+    }
+    $annee = $params ? array_shift($params) : '';
+    $annee = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois = $params ? array_shift($params) : '';
+    $mois = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour = $params ? array_shift($params) : '';
+    $jour = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $annee2 = $params ? array_shift($params) : '';
+    $annee2 = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee2, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois2 = $params ? array_shift($params) : '';
+    $mois2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois2, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour2 = $params ? array_shift($params) : '';
+    $jour2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour2, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $date = $boucle->id_table . ".$date";
+
+    $quote_end = ",'" . $boucle->sql_serveur . "','text'";
+    if ($type == 'jour') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m%d\')'",
+            ("sql_quote($annee . $mois . $jour$quote_end)")
+        ];
+    } elseif ($type == 'mois') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m\')'",
+            ("sql_quote($annee . $mois$quote_end)")
+        ];
+    } elseif ($type == 'semaine') {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_debut_semaine($annee, $mois, $jour)")
+            ],
+            [
+                "'<='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_fin_semaine($annee, $mois, $jour)")
+            ]
+        ];
+    } elseif ((is_countable($crit->param) ? count($crit->param) : 0) > 2) {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("sql_quote($annee . $mois . $jour$quote_end)")
+            ],
+            ["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
+        ];
+    }
+    // sinon on prend tout
 }
 
 
@@ -1275,33 +1275,33 @@ 
  * @return void
  **/
 function calculer_critere_parties($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$a1 = $crit->param[0];
-	$a2 = $crit->param[1];
-	$op = $crit->op;
-
-	[$a11, $a12] = calculer_critere_parties_aux($idb, $boucles, $a1);
-	[$a21, $a22] = calculer_critere_parties_aux($idb, $boucles, $a2);
-
-	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
-		$boucle->limit = $a11 . ',' . $a21;
-	} else {
-		// 3 dans {1/3}, {2,3} ou {1,n-3}
-		$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
-		// 2 dans {2/3}, {2,5}, {n-2,1}
-		$partie = ($a11 != 'n') ? $a11 : $a12;
-		$mode = (($op == '/') ? '/' :
-			(($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
-		// cas simple {0,#ENV{truc}} compilons le en LIMIT :
-		if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
-			$boucle->limit =
-				(is_numeric($a11) ? "'$a11'" : $a11)
-				. ".','."
-				. (is_numeric($a21) ? "'$a21'" : $a21);
-		} else {
-			calculer_parties($boucles, $idb, $partie, $mode);
-		}
-	}
+    $boucle = &$boucles[$idb];
+    $a1 = $crit->param[0];
+    $a2 = $crit->param[1];
+    $op = $crit->op;
+
+    [$a11, $a12] = calculer_critere_parties_aux($idb, $boucles, $a1);
+    [$a21, $a22] = calculer_critere_parties_aux($idb, $boucles, $a2);
+
+    if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
+        $boucle->limit = $a11 . ',' . $a21;
+    } else {
+        // 3 dans {1/3}, {2,3} ou {1,n-3}
+        $boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
+        // 2 dans {2/3}, {2,5}, {n-2,1}
+        $partie = ($a11 != 'n') ? $a11 : $a12;
+        $mode = (($op == '/') ? '/' :
+            (($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
+        // cas simple {0,#ENV{truc}} compilons le en LIMIT :
+        if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
+            $boucle->limit =
+                (is_numeric($a11) ? "'$a11'" : $a11)
+                . ".','."
+                . (is_numeric($a21) ? "'$a21'" : $a21);
+        } else {
+            calculer_parties($boucles, $idb, $partie, $mode);
+        }
+    }
 }
 
 /**
@@ -1329,63 +1329,63 @@ 
  * @return void
  **/
 function calculer_parties(&$boucles, $id_boucle, $debut, $mode) {
-	$total_parties = $boucles[$id_boucle]->total_parties;
-
-	preg_match(',([+-/p])([+-/])?,', $mode, $regs);
-	[, $op1, $op2] = array_pad($regs, 3, null);
-	$nombre_boucle = "\$Numrows['$id_boucle']['total']";
-	// {1/3}
-	if ($op1 == '/') {
-		$pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
-		$totpos = is_numeric($total_parties) ? ($total_parties) :
-			"($total_parties ? $total_parties : 1)";
-		$fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
-		$debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
-	} else {
-		// cas {n-1,x}
-		if ($op1 == '-') {
-			$debut = "$nombre_boucle - $debut;";
-		}
-
-		// cas {x,n-1}
-		if ($op2 == '-') {
-			$fin = '$debut_boucle + ' . $nombre_boucle . ' - '
-				. (is_numeric($total_parties) ? ($total_parties + 1) :
-					($total_parties . ' - 1'));
-		} else {
-			// {x,1} ou {pagination}
-			$fin = '$debut_boucle'
-				. (is_numeric($total_parties) ?
-					(($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
-					('+' . $total_parties . ' - 1'));
-		}
-
-		// {pagination}, gerer le debut_xx=-1 pour tout voir
-		if ($op1 == 'p') {
-			$debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
-			$debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
-			$fin = "(\$tout ? $nombre_boucle : $fin)";
-		}
-	}
-
-	// Notes :
-	// $debut_boucle et $fin_boucle sont les indices SQL du premier
-	// et du dernier demandes dans la boucle : 0 pour le premier,
-	// n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
-	// Utiliser min pour rabattre $fin_boucle sur total_boucle.
-
-	$boucles[$id_boucle]->mode_partie = "\n\t"
-		. '$debut_boucle = ' . $debut . ";\n	"
-		. "\$debut_boucle = intval(\$debut_boucle);\n	"
-		. '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
-		. '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
-		. '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
-		. "\n\tif (\$debut_boucle>0"
-		. " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
-		. " AND \$iter->seek(\$debut_boucle,'continue'))"
-		. "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
-
-	$boucles[$id_boucle]->partie = "
+    $total_parties = $boucles[$id_boucle]->total_parties;
+
+    preg_match(',([+-/p])([+-/])?,', $mode, $regs);
+    [, $op1, $op2] = array_pad($regs, 3, null);
+    $nombre_boucle = "\$Numrows['$id_boucle']['total']";
+    // {1/3}
+    if ($op1 == '/') {
+        $pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
+        $totpos = is_numeric($total_parties) ? ($total_parties) :
+            "($total_parties ? $total_parties : 1)";
+        $fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
+        $debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
+    } else {
+        // cas {n-1,x}
+        if ($op1 == '-') {
+            $debut = "$nombre_boucle - $debut;";
+        }
+
+        // cas {x,n-1}
+        if ($op2 == '-') {
+            $fin = '$debut_boucle + ' . $nombre_boucle . ' - '
+                . (is_numeric($total_parties) ? ($total_parties + 1) :
+                    ($total_parties . ' - 1'));
+        } else {
+            // {x,1} ou {pagination}
+            $fin = '$debut_boucle'
+                . (is_numeric($total_parties) ?
+                    (($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
+                    ('+' . $total_parties . ' - 1'));
+        }
+
+        // {pagination}, gerer le debut_xx=-1 pour tout voir
+        if ($op1 == 'p') {
+            $debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
+            $debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
+            $fin = "(\$tout ? $nombre_boucle : $fin)";
+        }
+    }
+
+    // Notes :
+    // $debut_boucle et $fin_boucle sont les indices SQL du premier
+    // et du dernier demandes dans la boucle : 0 pour le premier,
+    // n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
+    // Utiliser min pour rabattre $fin_boucle sur total_boucle.
+
+    $boucles[$id_boucle]->mode_partie = "\n\t"
+        . '$debut_boucle = ' . $debut . ";\n	"
+        . "\$debut_boucle = intval(\$debut_boucle);\n	"
+        . '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
+        . '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
+        . '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
+        . "\n\tif (\$debut_boucle>0"
+        . " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
+        . " AND \$iter->seek(\$debut_boucle,'continue'))"
+        . "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
+
+    $boucles[$id_boucle]->partie = "
 		if (\$Numrows['$id_boucle']['compteur_boucle'] <= \$debut_boucle) continue;
 		if (\$Numrows['$id_boucle']['compteur_boucle']-1 > \$fin_boucle) break;";
 }
@@ -1402,26 +1402,26 @@ 
  * @return array          Valeur de l'élément (peut être une expression PHP), Nombre soustrait
  **/
 function calculer_critere_parties_aux($idb, &$boucles, $param) {
-	if ($param[0]->type != 'texte') {
-		$a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
-		if (isset($param[1]->texte)) {
-			preg_match(',^\s*(-([0-9]+))?\s*$,', $param[1]->texte, $m);
-
-			return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
-		} else {
-			return ["intval($a1)", 0];
-		}
-	} else {
-		preg_match(',^\s*(([0-9]+)|n)\s*(-\s*([0-9]+)?\s*)?$,', $param[0]->texte, $m);
-		$a1 = $m[1];
-		if (empty($m[3])) {
-			return [$a1, 0];
-		} elseif (!empty($m[4])) {
-			return [$a1, $m[4]];
-		} else {
-			return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
-		}
-	}
+    if ($param[0]->type != 'texte') {
+        $a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
+        if (isset($param[1]->texte)) {
+            preg_match(',^\s*(-([0-9]+))?\s*$,', $param[1]->texte, $m);
+
+            return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
+        } else {
+            return ["intval($a1)", 0];
+        }
+    } else {
+        preg_match(',^\s*(([0-9]+)|n)\s*(-\s*([0-9]+)?\s*)?$,', $param[0]->texte, $m);
+        $a1 = $m[1];
+        if (empty($m[3])) {
+            return [$a1, 0];
+        } elseif (!empty($m[4])) {
+            return [$a1, $m[4]];
+        } else {
+            return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
+        }
+    }
 }
 
 
@@ -1448,47 +1448,47 @@ 
  *     array : Erreur sur un des critères
  **/
 function calculer_criteres($idb, &$boucles) {
-	$msg = '';
-	$boucle = $boucles[$idb];
-	$table = strtoupper($boucle->type_requete);
-	$serveur = strtolower($boucle->sql_serveur);
-
-	$defaut = charger_fonction('DEFAUT', 'calculer_critere');
-	// s'il y avait une erreur de syntaxe, propager cette info
-	if (!is_array($boucle->criteres)) {
-		return [];
-	}
-
-	foreach ($boucle->criteres as $crit) {
-		$critere = $crit->op;
-		// critere personnalise ?
-		if (
-			(!$serveur or
-				((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-					and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-				)
-			)
-			and (!function_exists($f = 'critere_' . $table . '_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-			and (!function_exists($f = 'critere_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-		) {
-			// fonction critere standard
-			$f = $defaut;
-		}
-		// compile le critere
-		$res = $f($idb, $boucles, $crit);
-
-		// Gestion centralisee des erreurs pour pouvoir propager
-		if (is_array($res)) {
-			$msg = $res;
-			erreur_squelette($msg, $boucle);
-		}
-	}
-
-	return $msg;
+    $msg = '';
+    $boucle = $boucles[$idb];
+    $table = strtoupper($boucle->type_requete);
+    $serveur = strtolower($boucle->sql_serveur);
+
+    $defaut = charger_fonction('DEFAUT', 'calculer_critere');
+    // s'il y avait une erreur de syntaxe, propager cette info
+    if (!is_array($boucle->criteres)) {
+        return [];
+    }
+
+    foreach ($boucle->criteres as $crit) {
+        $critere = $crit->op;
+        // critere personnalise ?
+        if (
+            (!$serveur or
+                ((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                    and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                )
+            )
+            and (!function_exists($f = 'critere_' . $table . '_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+            and (!function_exists($f = 'critere_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+        ) {
+            // fonction critere standard
+            $f = $defaut;
+        }
+        // compile le critere
+        $res = $f($idb, $boucles, $crit);
+
+        // Gestion centralisee des erreurs pour pouvoir propager
+        if (is_array($res)) {
+            $msg = $res;
+            erreur_squelette($msg, $boucle);
+        }
+    }
+
+    return $msg;
 }
 
 /**
@@ -1503,11 +1503,11 @@ 
  * @return string         Code compilé rééchappé
  */
 function kwote($lisp, $serveur = '', $type = '') {
-	if (preg_match(_CODE_QUOTE, $lisp, $r)) {
-		return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
-	} else {
-		return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
-	}
+    if (preg_match(_CODE_QUOTE, $lisp, $r)) {
+        return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
+    } else {
+        return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+    }
 }
 
 
@@ -1526,81 +1526,81 @@ 
  * @return void|array
  **/
 function critere_IN_dist($idb, &$boucles, $crit) {
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
-	}
-	[$arg, $op, $val, $col, $where_complement] = $r;
-
-	$in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
-
-	//	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
-	$where = $in;
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		$where = ["'?'", $pred, $where, "''"];
-		if ($where_complement) { // condition annexe du type "AND (objet='article')"
-		$where_complement = ["'?'", $pred, $where_complement, "''"];
-		}
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-		{
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) { // condition annexe du type "AND (objet='article')"
-	$boucles[$idb]->where[] = $where_complement;
-	}
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+    }
+    [$arg, $op, $val, $col, $where_complement] = $r;
+
+    $in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
+
+    //	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
+    $where = $in;
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        $where = ["'?'", $pred, $where, "''"];
+        if ($where_complement) { // condition annexe du type "AND (objet='article')"
+        $where_complement = ["'?'", $pred, $where_complement, "''"];
+        }
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+        {
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) { // condition annexe du type "AND (objet='article')"
+    $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col) {
-	static $num = [];
-	$descr = $boucles[$idb]->descr;
-	$cpt = &$num[$descr['nom']][$descr['gram']][$idb];
-
-	$var = '$in' . $cpt++;
-	$x = "\n\t$var = array();";
-	foreach ($val as $k => $v) {
-		if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
-			// optimiser le traitement des constantes
-			if (is_numeric($r[2])) {
-				$x .= "\n\t$var" . "[]= $r[2];";
-			} else {
-				$x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
-			}
-		} else {
-			// Pour permettre de passer des tableaux de valeurs
-			// on repere l'utilisation brute de #ENV**{X},
-			// c'est-a-dire sa  traduction en ($PILE[0][X]).
-			// et on deballe mais en rajoutant l'anti XSS
-			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
-		}
-	}
-
-	$boucles[$idb]->in .= $x;
-
-	// inserer le tri par defaut selon les ordres du IN ...
-	// avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
-	// et que l'on limite donc strictement aux cas necessaires :
-	// si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
-	if (!$crit2) {
-		$boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
-	}
-
-	return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
+    static $num = [];
+    $descr = $boucles[$idb]->descr;
+    $cpt = &$num[$descr['nom']][$descr['gram']][$idb];
+
+    $var = '$in' . $cpt++;
+    $x = "\n\t$var = array();";
+    foreach ($val as $k => $v) {
+        if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
+            // optimiser le traitement des constantes
+            if (is_numeric($r[2])) {
+                $x .= "\n\t$var" . "[]= $r[2];";
+            } else {
+                $x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
+            }
+        } else {
+            // Pour permettre de passer des tableaux de valeurs
+            // on repere l'utilisation brute de #ENV**{X},
+            // c'est-a-dire sa  traduction en ($PILE[0][X]).
+            // et on deballe mais en rajoutant l'anti XSS
+            $x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
+        }
+    }
+
+    $boucles[$idb]->in .= $x;
+
+    // inserer le tri par defaut selon les ordres du IN ...
+    // avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
+    // et que l'on limite donc strictement aux cas necessaires :
+    // si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
+    if (!$crit2) {
+        $boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
+    }
+
+    return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
 }
 
 /**
@@ -1616,22 +1616,22 @@ 
  * @return void
  */
 function critere_where_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	if (isset($crit->param[0])) {
-		$_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
-	} else {
-		$_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
-	}
-
-	if ($crit->cond) {
-		$_where = "((\$zzw = $_where) ? \$zzw : '')";
-	}
-
-	if ($crit->not) {
-		$_where = "array('NOT',$_where)";
-	}
-
-	$boucle->where[] = $_where;
+    $boucle = &$boucles[$idb];
+    if (isset($crit->param[0])) {
+        $_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
+    } else {
+        $_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
+    }
+
+    if ($crit->cond) {
+        $_where = "((\$zzw = $_where) ? \$zzw : '')";
+    }
+
+    if ($crit->not) {
+        $_where = "array('NOT',$_where)";
+    }
+
+    $boucle->where[] = $_where;
 }
 
 /**
@@ -1659,31 +1659,31 @@ 
  * @return void
  */
 function critere_id__dist($idb, &$boucles, $crit) {
-	/** @var Boucle $boucle */
-	$boucle = $boucles[$idb];
-
-	$champs = lister_champs_id_conditionnel(
-		$boucle->show['table'],
-		$boucle->show,
-		$boucle->sql_serveur
-	);
-
-	// ne pas tenir compte des critères identiques déjà présents.
-	if (!empty($boucle->modificateur['criteres'])) {
-		$champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
-	}
-	// nous aider en mode debug.
-	$boucle->debug[] = 'id_ : ' . implode(', ', $champs);
-	$boucle->modificateur['id_'] = $champs;
-
-	// créer un critère {id_xxx?} de chaque champ retenu
-	foreach ($champs as $champ) {
-		$critere_id_table = new Critere();
-		$critere_id_table->op = $champ;
-		$critere_id_table->cond = '?';
-		$critere_id_table->ligne = $crit->ligne;
-		calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
-	}
+    /** @var Boucle $boucle */
+    $boucle = $boucles[$idb];
+
+    $champs = lister_champs_id_conditionnel(
+        $boucle->show['table'],
+        $boucle->show,
+        $boucle->sql_serveur
+    );
+
+    // ne pas tenir compte des critères identiques déjà présents.
+    if (!empty($boucle->modificateur['criteres'])) {
+        $champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
+    }
+    // nous aider en mode debug.
+    $boucle->debug[] = 'id_ : ' . implode(', ', $champs);
+    $boucle->modificateur['id_'] = $champs;
+
+    // créer un critère {id_xxx?} de chaque champ retenu
+    foreach ($champs as $champ) {
+        $critere_id_table = new Critere();
+        $critere_id_table->op = $champ;
+        $critere_id_table->cond = '?';
+        $critere_id_table->ligne = $crit->ligne;
+        calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
+    }
 }
 
 /**
@@ -1703,75 +1703,75 @@ 
  * @return array Liste de nom de champs (tel que id_article, id_mot, id_parent ...)
  */
 function lister_champs_id_conditionnel($table, $desc = null, $serveur = '') {
-	// calculer la description de la table
-	if (!is_array($desc)) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		return [];
-	}
-
-	// Les champs id_xx de la table demandée
-	$champs = array_filter(
-		array_keys($desc['field']),
-		fn($champ) => strpos($champ, 'id_') === 0 or (in_array($champ, ['objet']))
-	);
-
-	// Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
-	if (
-		in_array('id_rubrique', $champs)
-		and !in_array('id_secteur', $champs)
-	) {
-		$champs[] = 'id_secteur';
-	}
-
-	// On ne fera pas mieux pour les tables d’un autre serveur
-	if ($serveur) {
-		return $champs;
-	}
-
-	$primary = false;
-	$associable = false;
-	include_spip('action/editer_liens');
-
-	if (isset($desc['type'])) {
-		$primary = id_table_objet($desc['type']);
-		$associable = objet_associable($desc['type']);
-	}
-	if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
-		$associable = true;
-	}
-
-	// liste de toutes les tables principales, sauf la notre
-	$tables = lister_tables_objets_sql();
-	unset($tables[$table]);
-
-	foreach ($tables as $_table => $_desc) {
-		if (
-			$associable
-			or ($primary and in_array($primary, array_keys($_desc['field'])))
-			or objet_associable($_desc['type'])
-		) {
-			$champs[] = id_table_objet($_table);
-		}
-	}
-	$champs = array_values(array_unique($champs));
-
-	// Exclusions de certains id
-	$exclusions = pipeline(
-		'exclure_id_conditionnel',
-		[
-			'args' => [
-				'table' => $table,
-				'id_table_objet' => $primary,
-				'associable' => $associable,
-			],
-			'data' => [],
-		]
-	);
-	$champs = array_diff($champs, $exclusions);
-
-	return $champs;
+    // calculer la description de la table
+    if (!is_array($desc)) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        return [];
+    }
+
+    // Les champs id_xx de la table demandée
+    $champs = array_filter(
+        array_keys($desc['field']),
+        fn($champ) => strpos($champ, 'id_') === 0 or (in_array($champ, ['objet']))
+    );
+
+    // Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
+    if (
+        in_array('id_rubrique', $champs)
+        and !in_array('id_secteur', $champs)
+    ) {
+        $champs[] = 'id_secteur';
+    }
+
+    // On ne fera pas mieux pour les tables d’un autre serveur
+    if ($serveur) {
+        return $champs;
+    }
+
+    $primary = false;
+    $associable = false;
+    include_spip('action/editer_liens');
+
+    if (isset($desc['type'])) {
+        $primary = id_table_objet($desc['type']);
+        $associable = objet_associable($desc['type']);
+    }
+    if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
+        $associable = true;
+    }
+
+    // liste de toutes les tables principales, sauf la notre
+    $tables = lister_tables_objets_sql();
+    unset($tables[$table]);
+
+    foreach ($tables as $_table => $_desc) {
+        if (
+            $associable
+            or ($primary and in_array($primary, array_keys($_desc['field'])))
+            or objet_associable($_desc['type'])
+        ) {
+            $champs[] = id_table_objet($_table);
+        }
+    }
+    $champs = array_values(array_unique($champs));
+
+    // Exclusions de certains id
+    $exclusions = pipeline(
+        'exclure_id_conditionnel',
+        [
+            'args' => [
+                'table' => $table,
+                'id_table_objet' => $primary,
+                'associable' => $associable,
+            ],
+            'data' => [],
+        ]
+    );
+    $champs = array_diff($champs, $exclusions);
+
+    return $champs;
 }
 
 /**
@@ -1826,28 +1826,28 @@ 
  * @return void
  */
 function critere_tri_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	// definition du champ par defaut
-	$_champ_defaut = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-	$_liste_sens_defaut = !isset($crit->param[1][0]) ? '1'
-		: calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	$_variable = !isset($crit->param[2][0]) ? "'$idb'"
-		: calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
-
-	$_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
-
-	$_sens_defaut = "(is_array(\$s=$_liste_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
-	$_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
-
-	$boucle->modificateur['tri_champ'] = $_tri;
-	$boucle->modificateur['tri_sens'] = $_sens;
-	$boucle->modificateur['tri_liste_sens_defaut'] = $_liste_sens_defaut;
-	$boucle->modificateur['tri_nom'] = $_variable;
-	// faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
-	// evite des erreurs sql, mais peut empecher des tri sur jointure ...
-	$boucle->hash .= "
+    $boucle = &$boucles[$idb];
+
+    // definition du champ par defaut
+    $_champ_defaut = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+    $_liste_sens_defaut = !isset($crit->param[1][0]) ? '1'
+        : calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    $_variable = !isset($crit->param[2][0]) ? "'$idb'"
+        : calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
+
+    $_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
+
+    $_sens_defaut = "(is_array(\$s=$_liste_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
+    $_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
+
+    $boucle->modificateur['tri_champ'] = $_tri;
+    $boucle->modificateur['tri_sens'] = $_sens;
+    $boucle->modificateur['tri_liste_sens_defaut'] = $_liste_sens_defaut;
+    $boucle->modificateur['tri_nom'] = $_variable;
+    // faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
+    // evite des erreurs sql, mais peut empecher des tri sur jointure ...
+    $boucle->hash .= "
 	\$senstri = '';
 	\$tri = $_tri;
 	if (\$tri){
@@ -1855,8 +1855,8 @@ 
 		\$senstri = (\$senstri<0)?' DESC':'';
 	};
 	";
-	$boucle->select[] = '".tri_champ_select($tri)."';
-	$boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
+    $boucle->select[] = '".tri_champ_select($tri)."';
+    $boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
 }
 
 # criteres de comparaison
@@ -1873,21 +1873,21 @@ 
  * @return void|array
  **/
 function calculer_critere_DEFAUT_dist($idb, &$boucles, $crit) {
-	// double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
-	if (($crit->op == ',') or ($crit->op == '/')) {
-		calculer_critere_parties($idb, $boucles, $crit);
-		return;
-	}
-
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		#	// on produit une erreur seulement si le critere n'a pas de '?'
-		#	if (!$crit->cond) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op]];
-		#	}
-	} else {
-		calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
-	}
+    // double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
+    if (($crit->op == ',') or ($crit->op == '/')) {
+        calculer_critere_parties($idb, $boucles, $crit);
+        return;
+    }
+
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        #	// on produit une erreur seulement si le critere n'a pas de '?'
+        #	if (!$crit->cond) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op]];
+        #	}
+    } else {
+        calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
+    }
 }
 
 
@@ -1907,62 +1907,62 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) {
-	[$arg, $op, $val, $col, $where_complement] = $args;
-
-	$where = ["'$op'", "'$arg'", $val[0]];
-
-	// inserer la negation (cf !...)
-
-	if ($crit->not) {
-		$where = ["'NOT'", $where];
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else {
-			// un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	// inserer la condition (cf {lang?})
-	// traiter a part la date, elle est mise d'office par SPIP,
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		if ($col === 'date' or $col === 'date_redac') {
-			if ($pred === "\$Pile[0]['" . $col . "']") {
-				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
-			}
-		}
-
-		if ($op === '=' and !$crit->not) {
-			$where = [
-				"'?'",
-				"(is_array($pred))",
-				critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
-				$where
-			];
-		}
-		$where = ["'?'", "!is_whereable($pred)", "''", $where];
-		if ($where_complement) {
-			// condition annexe du type "AND (objet='article')"
-			$where_complement = ["'?'", "!is_whereable($pred)", "''", $where_complement];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) {
-		// condition annexe du type "AND (objet='article')"
-		$boucles[$idb]->where[] = $where_complement;
-	}
+    [$arg, $op, $val, $col, $where_complement] = $args;
+
+    $where = ["'$op'", "'$arg'", $val[0]];
+
+    // inserer la negation (cf !...)
+
+    if ($crit->not) {
+        $where = ["'NOT'", $where];
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else {
+            // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    // inserer la condition (cf {lang?})
+    // traiter a part la date, elle est mise d'office par SPIP,
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        if ($col === 'date' or $col === 'date_redac') {
+            if ($pred === "\$Pile[0]['" . $col . "']") {
+                $pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
+            }
+        }
+
+        if ($op === '=' and !$crit->not) {
+            $where = [
+                "'?'",
+                "(is_array($pred))",
+                critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
+                $where
+            ];
+        }
+        $where = ["'?'", "!is_whereable($pred)", "''", $where];
+        if ($where_complement) {
+            // condition annexe du type "AND (objet='article')"
+            $where_complement = ["'?'", "!is_whereable($pred)", "''", $where_complement];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) {
+        // condition annexe du type "AND (objet='article')"
+        $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 
@@ -2003,165 +2003,165 @@ 
  **/
 function calculer_critere_infixe($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$type = $boucle->type_requete;
-	$table = $boucle->id_table;
-	$desc = $boucle->show;
-	$col_vraie = null;
-
-	[$fct, $col, $op, $val, $args_sql] =
-		calculer_critere_infixe_ops($idb, $boucles, $crit);
-
-	$col_alias = $col;
-	$where_complement = false;
-
-	// Cas particulier : id_enfant => utiliser la colonne id_objet
-	if ($col == 'id_enfant') {
-		$col = $boucle->primary;
-	}
-
-	// Cas particulier : id_parent => verifier les exceptions de tables
-	if (
-		(in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
-		or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
-	) {
-		$col = $GLOBALS['exceptions_des_tables'][$table][$col];
-	} // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
-	else {
-		if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
-			$table = $critere_secteur($idb, $boucles, $val, $crit);
-		}
-
-		// cas id_article=xx qui se mappe en id_objet=xx AND objet=article
-		// sauf si exception declaree : sauter cette etape
-		else {
-			if (
-				!isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
-				and !isset($GLOBALS['exceptions_des_jointures'][$col])
-				and count(trouver_champs_decomposes($col, $desc)) > 1
-			) {
-				$e = decompose_champ_id_objet($col);
-				$col = array_shift($e);
-				$where_complement = primary_doublee($e, $table);
-			} // Cas particulier : expressions de date
-			else {
-				if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
-					[$col, $col_vraie] = $c;
-					$table = '';
-				} // table explicitée {mots.titre}
-				else {
-					if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-						[, $table, $col] = $r;
-						$col_alias = $col;
-
-						$trouver_table = charger_fonction('trouver_table', 'base');
-						if (
-							$desc = $trouver_table($table, $boucle->sql_serveur)
-							and isset($desc['field'][$col])
-							and $cle = array_search($desc['table'], $boucle->from)
-						) {
-							$table = $cle;
-						} else {
-							$table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
-						}
-						#$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
-						if (!$table) {
-							return '';
-						}
-					}
-					// si le champ n'est pas trouvé dans la table,
-					// on cherche si une jointure peut l'obtenir
-					elseif (@!array_key_exists($col, $desc['field'])) {
-						// Champ joker * des iterateurs DATA qui accepte tout
-						if (@array_key_exists('*', $desc['field'])) {
-							$desc['field'][$col_vraie ?: $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
-						}
-						else {
-							$r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
-							if (!$r) {
-								return '';
-							}
-							[$col, $col_alias, $table, $where_complement, $desc] = $r;
-						}
-					}
-				}
-			}
-		}
-	}
-
-	$col_vraie = ($col_vraie ?: $col);
-	// Dans tous les cas,
-	// virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
-	// et passer dans sql_quote avec le type si connu
-	// et int sinon si la valeur est numerique
-	// sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
-	// Ne pas utiliser intval, PHP tronquant les Bigint de SQL
-	if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
-		$type_cast_quote = ($desc['field'][$col_vraie] ?? 'int NOT NULL');
-		// defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
-		// prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
-		if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
-			$val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
-		}
-		// sinon expliciter les
-		// sql_quote(truc) en sql_quote(truc,'',type)
-		// sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
-		// sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
-		// sans toucher aux
-		// sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
-		// sql_quote(truc,'','varchar')
-		elseif (
-			preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
-			// si pas deja un type
-			and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
-		) {
-			$r = $r[1]
-				. ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
-				. ",'" . addslashes($type_cast_quote) . "'";
-			$val[0] = "sql_quote($r)";
-		}
-		elseif (
-			strpos($val[0], '@@defaultcast@@') !== false
-			and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-		) {
-			$val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
-		}
-	}
-
-	if (
-		strpos($val[0], '@@defaultcast@@') !== false
-		and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-	) {
-		$val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
-	}
-
-	// Indicateur pour permettre aux fonctionx boucle_X de modifier
-	// leurs requetes par defaut, notamment le champ statut
-	// Ne pas confondre champs de la table principale et des jointures
-	if ($table === $boucle->id_table) {
-		$boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
-		if ($col_alias != $col_vraie) {
-			$boucles[$idb]->modificateur['criteres'][$col_alias] = true;
-		}
-	}
-
-	// inserer le nom de la table SQL devant le nom du champ
-	if ($table) {
-		if ($col[0] == '`') {
-			$arg = "$table." . substr($col, 1, -1);
-		} else {
-			$arg = "$table.$col";
-		}
-	} else {
-		$arg = $col;
-	}
-
-	// inserer la fonction SQL
-	if ($fct) {
-		$arg = "$fct($arg$args_sql)";
-	}
-
-	return [$arg, $op, $val, $col_alias, $where_complement];
+    $boucle = &$boucles[$idb];
+    $type = $boucle->type_requete;
+    $table = $boucle->id_table;
+    $desc = $boucle->show;
+    $col_vraie = null;
+
+    [$fct, $col, $op, $val, $args_sql] =
+        calculer_critere_infixe_ops($idb, $boucles, $crit);
+
+    $col_alias = $col;
+    $where_complement = false;
+
+    // Cas particulier : id_enfant => utiliser la colonne id_objet
+    if ($col == 'id_enfant') {
+        $col = $boucle->primary;
+    }
+
+    // Cas particulier : id_parent => verifier les exceptions de tables
+    if (
+        (in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
+        or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
+    ) {
+        $col = $GLOBALS['exceptions_des_tables'][$table][$col];
+    } // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
+    else {
+        if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
+            $table = $critere_secteur($idb, $boucles, $val, $crit);
+        }
+
+        // cas id_article=xx qui se mappe en id_objet=xx AND objet=article
+        // sauf si exception declaree : sauter cette etape
+        else {
+            if (
+                !isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
+                and !isset($GLOBALS['exceptions_des_jointures'][$col])
+                and count(trouver_champs_decomposes($col, $desc)) > 1
+            ) {
+                $e = decompose_champ_id_objet($col);
+                $col = array_shift($e);
+                $where_complement = primary_doublee($e, $table);
+            } // Cas particulier : expressions de date
+            else {
+                if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
+                    [$col, $col_vraie] = $c;
+                    $table = '';
+                } // table explicitée {mots.titre}
+                else {
+                    if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+                        [, $table, $col] = $r;
+                        $col_alias = $col;
+
+                        $trouver_table = charger_fonction('trouver_table', 'base');
+                        if (
+                            $desc = $trouver_table($table, $boucle->sql_serveur)
+                            and isset($desc['field'][$col])
+                            and $cle = array_search($desc['table'], $boucle->from)
+                        ) {
+                            $table = $cle;
+                        } else {
+                            $table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
+                        }
+                        #$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
+                        if (!$table) {
+                            return '';
+                        }
+                    }
+                    // si le champ n'est pas trouvé dans la table,
+                    // on cherche si une jointure peut l'obtenir
+                    elseif (@!array_key_exists($col, $desc['field'])) {
+                        // Champ joker * des iterateurs DATA qui accepte tout
+                        if (@array_key_exists('*', $desc['field'])) {
+                            $desc['field'][$col_vraie ?: $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
+                        }
+                        else {
+                            $r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
+                            if (!$r) {
+                                return '';
+                            }
+                            [$col, $col_alias, $table, $where_complement, $desc] = $r;
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    $col_vraie = ($col_vraie ?: $col);
+    // Dans tous les cas,
+    // virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
+    // et passer dans sql_quote avec le type si connu
+    // et int sinon si la valeur est numerique
+    // sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
+    // Ne pas utiliser intval, PHP tronquant les Bigint de SQL
+    if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
+        $type_cast_quote = ($desc['field'][$col_vraie] ?? 'int NOT NULL');
+        // defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
+        // prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
+        if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
+            $val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
+        }
+        // sinon expliciter les
+        // sql_quote(truc) en sql_quote(truc,'',type)
+        // sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
+        // sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
+        // sans toucher aux
+        // sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
+        // sql_quote(truc,'','varchar')
+        elseif (
+            preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
+            // si pas deja un type
+            and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
+        ) {
+            $r = $r[1]
+                . ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
+                . ",'" . addslashes($type_cast_quote) . "'";
+            $val[0] = "sql_quote($r)";
+        }
+        elseif (
+            strpos($val[0], '@@defaultcast@@') !== false
+            and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+        ) {
+            $val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
+        }
+    }
+
+    if (
+        strpos($val[0], '@@defaultcast@@') !== false
+        and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+    ) {
+        $val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
+    }
+
+    // Indicateur pour permettre aux fonctionx boucle_X de modifier
+    // leurs requetes par defaut, notamment le champ statut
+    // Ne pas confondre champs de la table principale et des jointures
+    if ($table === $boucle->id_table) {
+        $boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
+        if ($col_alias != $col_vraie) {
+            $boucles[$idb]->modificateur['criteres'][$col_alias] = true;
+        }
+    }
+
+    // inserer le nom de la table SQL devant le nom du champ
+    if ($table) {
+        if ($col[0] == '`') {
+            $arg = "$table." . substr($col, 1, -1);
+        } else {
+            $arg = "$table.$col";
+        }
+    } else {
+        $arg = $col;
+    }
+
+    // inserer la fonction SQL
+    if ($fct) {
+        $arg = "$fct($arg$args_sql)";
+    }
+
+    return [$arg, $op, $val, $col_alias, $where_complement];
 }
 
 
@@ -2190,77 +2190,77 @@ 
  **/
 function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table) {
 
-	$where = '';
-
-	$calculer_critere_externe = 'calculer_critere_externe_init';
-	// gestion par les plugins des jointures tordues
-	// pas automatiques mais necessaires
-	$table_sql = table_objet_sql($table);
-	if (
-		isset($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and
-		(
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
-			or
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
-		)
-	) {
-		$t = $GLOBALS['exceptions_des_jointures'][$table_sql];
-		$index = $t[$col] ?? $t[''] ?? [];
-
-		if ((is_countable($index) ? count($index) : 0) == 3) {
-			[$t, $col, $calculer_critere_externe] = $index;
-		} elseif ((is_countable($index) ? count($index) : 0) == 2) {
-			[$t, $col] = $t[$col];
-		} elseif ((is_countable($index) ? count($index) : 0) == 1) {
-			[$calculer_critere_externe] = $index;
-			$t = $table;
-		} else {
-			$t = '';
-		} // jointure non declaree. La trouver.
-	} elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
-		[$t, $col] = $GLOBALS['exceptions_des_jointures'][$col];
-	} else {
-		$t = '';
-	} // jointure non declaree. La trouver.
-
-	// ici on construit le from pour fournir $col en piochant dans les jointures
-
-	// si des jointures explicites sont fournies, on cherche d'abord dans celles ci
-	// permet de forcer une table de lien quand il y a ambiguite
-	// <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
-	// alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
-	$table = '';
-	if ($boucle->jointures_explicites) {
-		$jointures_explicites = explode(' ', $boucle->jointures_explicites);
-		$table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	// et sinon on cherche parmi toutes les jointures declarees
-	if (!$table) {
-		$table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	if (!$table) {
-		return '';
-	}
-
-	// il ne reste plus qu'a trouver le champ dans les from
-	[$nom, $desc, $cle] = trouver_champ_exterieur($col, $boucle->from, $boucle);
-
-	if ((is_countable($cle) ? count($cle) : 0) > 1 or reset($cle) !== $col) {
-		$col_alias = $col; // id_article devient juste le nom d'origine
-		if ((is_countable($cle) ? count($cle) : 0) > 1 and reset($cle) == 'id_objet') {
-			$e = decompose_champ_id_objet($col);
-			$col = array_shift($e);
-			$where = primary_doublee($e, $table);
-		} else {
-			$col = reset($cle);
-		}
-	}
-
-	return [$col, $col_alias, $table, $where, $desc];
+    $where = '';
+
+    $calculer_critere_externe = 'calculer_critere_externe_init';
+    // gestion par les plugins des jointures tordues
+    // pas automatiques mais necessaires
+    $table_sql = table_objet_sql($table);
+    if (
+        isset($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and
+        (
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
+            or
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
+        )
+    ) {
+        $t = $GLOBALS['exceptions_des_jointures'][$table_sql];
+        $index = $t[$col] ?? $t[''] ?? [];
+
+        if ((is_countable($index) ? count($index) : 0) == 3) {
+            [$t, $col, $calculer_critere_externe] = $index;
+        } elseif ((is_countable($index) ? count($index) : 0) == 2) {
+            [$t, $col] = $t[$col];
+        } elseif ((is_countable($index) ? count($index) : 0) == 1) {
+            [$calculer_critere_externe] = $index;
+            $t = $table;
+        } else {
+            $t = '';
+        } // jointure non declaree. La trouver.
+    } elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
+        [$t, $col] = $GLOBALS['exceptions_des_jointures'][$col];
+    } else {
+        $t = '';
+    } // jointure non declaree. La trouver.
+
+    // ici on construit le from pour fournir $col en piochant dans les jointures
+
+    // si des jointures explicites sont fournies, on cherche d'abord dans celles ci
+    // permet de forcer une table de lien quand il y a ambiguite
+    // <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
+    // alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
+    $table = '';
+    if ($boucle->jointures_explicites) {
+        $jointures_explicites = explode(' ', $boucle->jointures_explicites);
+        $table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    // et sinon on cherche parmi toutes les jointures declarees
+    if (!$table) {
+        $table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    if (!$table) {
+        return '';
+    }
+
+    // il ne reste plus qu'a trouver le champ dans les from
+    [$nom, $desc, $cle] = trouver_champ_exterieur($col, $boucle->from, $boucle);
+
+    if ((is_countable($cle) ? count($cle) : 0) > 1 or reset($cle) !== $col) {
+        $col_alias = $col; // id_article devient juste le nom d'origine
+        if ((is_countable($cle) ? count($cle) : 0) > 1 and reset($cle) == 'id_objet') {
+            $e = decompose_champ_id_objet($col);
+            $col = array_shift($e);
+            $where = primary_doublee($e, $table);
+        } else {
+            $col = reset($cle);
+        }
+    }
+
+    return [$col, $col_alias, $table, $where, $desc];
 }
 
 
@@ -2281,10 +2281,10 @@ 
  *     - valeur
  **/
 function primary_doublee($decompose, $table) {
-	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+    $e1 = reset($decompose);
+    $e2 = "sql_quote('" . end($decompose) . "')";
 
-	return ["'='", "'$table." . $e1 . "'", $e2];
+    return ["'='", "'$table." . $e1 . "'", $e2];
 }
 
 /**
@@ -2315,57 +2315,57 @@ 
  *     Vide sinon.
  */
 function calculer_critere_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	// si on demande un truc du genre spip_mots
-	// avec aussi spip_mots_liens dans les jointures dispo
-	// et qu'on est la
-	// il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
-	if (
-		$checkarrivee
-		and is_string($checkarrivee)
-		and $a = table_objet($checkarrivee)
-		and in_array($a . '_liens', $joints)
-	) {
-		if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
-			return $res;
-		}
-	}
-	foreach ($joints as $joint) {
-		if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
-			// alias de table dans le from
-			$t = array_search($arrivee[0], $boucle->from);
-			// recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
-			$cols = $arrivee[2];
-			// mais on ignore la 3eme cle si presente qui correspond alors au point de depart
-			if ((is_countable($cols) ? count($cols) : 0) > 2) {
-				array_pop($cols);
-			}
-			if ($t) {
-				// la table est déjà dans le FROM, on vérifie si le champ est utilisé.
-				$joindre = false;
-				foreach ($cols as $col) {
-					$c = '/\b' . $t . ".$col" . '\b/';
-					if (trouver_champ($c, $boucle->where)) {
-						$joindre = true;
-					} else {
-						// mais ca peut etre dans le FIELD pour le Having
-						$c = "/FIELD.$t" . ".$col,/";
-						if (trouver_champ($c, $boucle->select)) {
-							$joindre = true;
-						}
-					}
-				}
-				if (!$joindre) {
-					return $t;
-				}
-			}
-			array_pop($arrivee);
-			if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
-				return $res;
-			}
-		}
-	}
-
-	return '';
+    // si on demande un truc du genre spip_mots
+    // avec aussi spip_mots_liens dans les jointures dispo
+    // et qu'on est la
+    // il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
+    if (
+        $checkarrivee
+        and is_string($checkarrivee)
+        and $a = table_objet($checkarrivee)
+        and in_array($a . '_liens', $joints)
+    ) {
+        if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
+            return $res;
+        }
+    }
+    foreach ($joints as $joint) {
+        if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
+            // alias de table dans le from
+            $t = array_search($arrivee[0], $boucle->from);
+            // recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
+            $cols = $arrivee[2];
+            // mais on ignore la 3eme cle si presente qui correspond alors au point de depart
+            if ((is_countable($cols) ? count($cols) : 0) > 2) {
+                array_pop($cols);
+            }
+            if ($t) {
+                // la table est déjà dans le FROM, on vérifie si le champ est utilisé.
+                $joindre = false;
+                foreach ($cols as $col) {
+                    $c = '/\b' . $t . ".$col" . '\b/';
+                    if (trouver_champ($c, $boucle->where)) {
+                        $joindre = true;
+                    } else {
+                        // mais ca peut etre dans le FIELD pour le Having
+                        $c = "/FIELD.$t" . ".$col,/";
+                        if (trouver_champ($c, $boucle->select)) {
+                            $joindre = true;
+                        }
+                    }
+                }
+                if (!$joindre) {
+                    return $t;
+                }
+            }
+            array_pop($arrivee);
+            if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
+                return $res;
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -2391,35 +2391,35 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	$primary_arrivee = id_table_objet($checkarrivee);
-
-	// [FIXME] $checkarrivee peut-il arriver avec false ????
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
-	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
-
-	if (!$intermediaire or !$arrivee) {
-		return '';
-	}
-	array_pop($intermediaire); // enlever la cle en 3eme argument
-	array_pop($arrivee); // enlever la cle en 3eme argument
-
-	$res = fabrique_jointures(
-		$boucle,
-		[
-			[
-				$boucle->id_table,
-				$intermediaire,
-				[id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
-			],
-			[reset($intermediaire), $arrivee, $primary_arrivee]
-		],
-		$cond,
-		$desc,
-		$boucle->id_table,
-		[$col]
-	);
-
-	return $res;
+    $primary_arrivee = id_table_objet($checkarrivee);
+
+    // [FIXME] $checkarrivee peut-il arriver avec false ????
+    $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
+    $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
+
+    if (!$intermediaire or !$arrivee) {
+        return '';
+    }
+    array_pop($intermediaire); // enlever la cle en 3eme argument
+    array_pop($arrivee); // enlever la cle en 3eme argument
+
+    $res = fabrique_jointures(
+        $boucle,
+        [
+            [
+                $boucle->id_table,
+                $intermediaire,
+                [id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
+            ],
+            [reset($intermediaire), $arrivee, $primary_arrivee]
+        ],
+        $cond,
+        $desc,
+        $boucle->id_table,
+        [$col]
+    );
+
+    return $res;
 }
 
 
@@ -2436,17 +2436,17 @@ 
  *     false sinon.
  **/
 function trouver_champ($champ, $where) {
-	if (!is_array($where)) {
-		return preg_match($champ, $where);
-	} else {
-		foreach ($where as $clause) {
-			if (trouver_champ($champ, $clause)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($where)) {
+        return preg_match($champ, $where);
+    } else {
+        foreach ($where as $clause) {
+            if (trouver_champ($champ, $clause)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 
@@ -2472,129 +2472,129 @@ 
  *     - string $args_sql  Suite des arguments du critère. ?
  **/
 function calculer_critere_infixe_ops($idb, &$boucles, $crit) {
-	// cas d'une valeur comparee a elle-meme ou son referent
-	if (count($crit->param) == 0) {
-		$op = '=';
-		$col = $val = $crit->op;
-		if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-			$val = $r[2];
-		}
-		// Cas special {lang} : aller chercher $GLOBALS['spip_lang']
-		if ($val == 'lang') {
-			$val = [kwote('$GLOBALS[\'spip_lang\']')];
-		} else {
-			$defaut = null;
-			if ($val == 'id_parent') {
-				// Si id_parent, comparer l'id_parent avec l'id_objet
-				// de la boucle superieure.... faudrait verifier qu'il existe
-				// pour eviter l'erreur SQL
-				$val = $boucles[$idb]->primary;
-				// mais si pas de boucle superieure, prendre id_parent dans l'env
-				$defaut = "(\$Pile[0]['id_parent'] ?? null)";
-			} elseif ($val == 'id_enfant') {
-				// Si id_enfant, comparer l'id_objet avec l'id_parent
-				// de la boucle superieure
-				$val = 'id_parent';
-			} elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
-				// un critere conditionnel sur date est traite a part
-				// car la date est mise d'office par SPIP,
-				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
-			}
-
-			$val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
-			$val = [kwote($val)];
-		}
-	} else {
-		// comparaison explicite
-		// le phraseur impose que le premier param soit du texte
-		$params = $crit->param;
-		$op = $crit->op;
-		if ($op == '==') {
-			$op = 'REGEXP';
-		}
-		$col = array_shift($params);
-		$col = $col[0]->texte;
-
-		$val = [];
-		$parent = $boucles[$idb]->id_parent;
-
-		// Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
-		// celui ne sachant pas ce qu'est un critere infixe
-		// et a fortiori son 2e operande qu'entoure " ou '
-		if (
-			count($params) == 1
-			and (is_countable($params[0]) ? count($params[0]) : 0) == 3
-			and $params[0][0]->type == 'texte'
-			and $params[0][2]->type == 'texte'
-			and ($p = $params[0][0]->texte) == $params[0][2]->texte
-			and (($p == "'") or ($p == '"'))
-			and $params[0][1]->type == 'champ'
-		) {
-			$val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
-		} else {
-			foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
-				$a = calculer_liste($p, $idb, $boucles, $parent);
-				if (strcasecmp($op, 'IN') == 0) {
-					$val[] = $a;
-				} else {
-					$val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
-				} // toujours quoter en char ici
-			}
-		}
-	}
-
-	$fct = $args_sql = '';
-	// fonction SQL ?
-	// chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
-	if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
-		$fct = $m[1];
-		preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
-		$col = $a[1];
-		if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
-			$col = $m[1];
-			$args_sql = $m[2];
-		}
-		$args_sql .= $a[2];
-	}
-
-	return [$fct, $col, $op, $val, $args_sql];
+    // cas d'une valeur comparee a elle-meme ou son referent
+    if (count($crit->param) == 0) {
+        $op = '=';
+        $col = $val = $crit->op;
+        if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+            $val = $r[2];
+        }
+        // Cas special {lang} : aller chercher $GLOBALS['spip_lang']
+        if ($val == 'lang') {
+            $val = [kwote('$GLOBALS[\'spip_lang\']')];
+        } else {
+            $defaut = null;
+            if ($val == 'id_parent') {
+                // Si id_parent, comparer l'id_parent avec l'id_objet
+                // de la boucle superieure.... faudrait verifier qu'il existe
+                // pour eviter l'erreur SQL
+                $val = $boucles[$idb]->primary;
+                // mais si pas de boucle superieure, prendre id_parent dans l'env
+                $defaut = "(\$Pile[0]['id_parent'] ?? null)";
+            } elseif ($val == 'id_enfant') {
+                // Si id_enfant, comparer l'id_objet avec l'id_parent
+                // de la boucle superieure
+                $val = 'id_parent';
+            } elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
+                // un critere conditionnel sur date est traite a part
+                // car la date est mise d'office par SPIP,
+                $defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
+            }
+
+            $val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
+            $val = [kwote($val)];
+        }
+    } else {
+        // comparaison explicite
+        // le phraseur impose que le premier param soit du texte
+        $params = $crit->param;
+        $op = $crit->op;
+        if ($op == '==') {
+            $op = 'REGEXP';
+        }
+        $col = array_shift($params);
+        $col = $col[0]->texte;
+
+        $val = [];
+        $parent = $boucles[$idb]->id_parent;
+
+        // Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
+        // celui ne sachant pas ce qu'est un critere infixe
+        // et a fortiori son 2e operande qu'entoure " ou '
+        if (
+            count($params) == 1
+            and (is_countable($params[0]) ? count($params[0]) : 0) == 3
+            and $params[0][0]->type == 'texte'
+            and $params[0][2]->type == 'texte'
+            and ($p = $params[0][0]->texte) == $params[0][2]->texte
+            and (($p == "'") or ($p == '"'))
+            and $params[0][1]->type == 'champ'
+        ) {
+            $val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
+        } else {
+            foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
+                $a = calculer_liste($p, $idb, $boucles, $parent);
+                if (strcasecmp($op, 'IN') == 0) {
+                    $val[] = $a;
+                } else {
+                    $val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
+                } // toujours quoter en char ici
+            }
+        }
+    }
+
+    $fct = $args_sql = '';
+    // fonction SQL ?
+    // chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
+    if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
+        $fct = $m[1];
+        preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
+        $col = $a[1];
+        if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
+            $col = $m[1];
+            $args_sql = $m[2];
+        }
+        $args_sql .= $a[2];
+    }
+
+    return [$fct, $col, $op, $val, $args_sql];
 }
 
 // compatibilite ancienne version
 
 function calculer_vieux_in($params) {
-	$deb = $params[0][0];
-	$k = (is_countable($params) ? count($params) : 0) - 1;
-	$last = $params[$k];
-	$j = (is_countable($last) ? count($last) : 0) - 1;
-	$last = $last[$j];
-	$n = isset($last->texte) ? strlen($last->texte) : 0;
-
-	if (
-		!((isset($deb->texte[0]) and $deb->texte[0] == '(')
-		&& (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
-	) {
-		return $params;
-	}
-	$params[0][0]->texte = substr($deb->texte, 1);
-	// attention, on peut avoir k=0,j=0 ==> recalculer
-	$last = $params[$k][$j];
-	$n = strlen($last->texte);
-	$params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
-	$newp = [];
-	foreach ($params as $v) {
-		if ($v[0]->type != 'texte') {
-			$newp[] = $v;
-		} else {
-			foreach (explode(',', $v[0]->texte) as $x) {
-				$t = new Texte();
-				$t->texte = $x;
-				$newp[] = [$t];
-			}
-		}
-	}
-
-	return $newp;
+    $deb = $params[0][0];
+    $k = (is_countable($params) ? count($params) : 0) - 1;
+    $last = $params[$k];
+    $j = (is_countable($last) ? count($last) : 0) - 1;
+    $last = $last[$j];
+    $n = isset($last->texte) ? strlen($last->texte) : 0;
+
+    if (
+        !((isset($deb->texte[0]) and $deb->texte[0] == '(')
+        && (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
+    ) {
+        return $params;
+    }
+    $params[0][0]->texte = substr($deb->texte, 1);
+    // attention, on peut avoir k=0,j=0 ==> recalculer
+    $last = $params[$k][$j];
+    $n = strlen($last->texte);
+    $params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
+    $newp = [];
+    foreach ($params as $v) {
+        if ($v[0]->type != 'texte') {
+            $newp[] = $v;
+        } else {
+            foreach (explode(',', $v[0]->texte) as $x) {
+                $t = new Texte();
+                $t->texte = $x;
+                $newp[] = [$t];
+            }
+        }
+    }
+
+    return $newp;
 }
 
 /**
@@ -2613,95 +2613,95 @@ 
  *     - nom de la colonne de date (si le calcul n'est pas relatif)
  **/
 function calculer_critere_infixe_date($idb, &$boucles, $col) {
-	if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
-		return '';
-	}
-
-	$boucle = $boucles[$idb];
-	$table = $boucle->show;
-
-	// si c'est une colonne de la table, ne rien faire
-	if (isset($table['field'][$col])) {
-		return '';
-	}
-
-	// Le type de critère à prendre en compte
-	$col = $regs[1];
-
-	// Si on trouve un nom de champ date précis, on l'utilise, pas besoin de déclaration dans l'API objet
-	if (isset($regs[3]) and $suite = $regs[3]) {
-		# Recherche de l'existence du champ date_xxxx,
-		# si oui choisir ce champ, sinon choisir xxxx
-		if (isset($table['field']["date$suite"])) {
-			$date_orig = 'date' . $suite;
-		} else {
-			$date_orig = substr($suite, 1);
-		}
-
-		$pred = $date_orig;
-	} else { // Sinon il FAUT avoir déclaré le champ date officiel dans l'API objet
-		// Si aucune déclaration trouvée, on quitte
-		if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
-			return '';
-		}
-		// Par défaut, on prend le champ date déclaré dans l'API
-		$pred = $date_orig = $GLOBALS['table_date'][$table['id_table']] ?? $table['date'];
-
-		// Si c'est pour du relatif
-		if (isset($regs[2]) and $rel = $regs[2]) {
-			$pred = 'date';
-		}
-	}
-
-	$date_compare = "\"' . normaliser_date(" .
-		calculer_argument_precedent($idb, $pred, $boucles) .
-		") . '\"";
-
-	$col_vraie = $date_orig;
-	$date_orig = $boucle->id_table . '.' . $date_orig;
-
-	switch ($col) {
-		case 'date':
-			$col = $date_orig;
-			break;
-		case 'jour':
-			$col = "DAYOFMONTH($date_orig)";
-			break;
-		case 'mois':
-			$col = "MONTH($date_orig)";
-			break;
-		case 'annee':
-			$col = "YEAR($date_orig)";
-			break;
-		case 'heure':
-			$col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
-			break;
-		case 'age':
-			$col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'age_relatif':
-			$col = calculer_param_date($date_compare, $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'jour_relatif':
-			$col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'mois_relatif':
-			$col = 'MONTH(' . $date_compare . ')-MONTH(' .
-				$date_orig . ')+12*(YEAR(' . $date_compare .
-				')-YEAR(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'annee_relatif':
-			$col = 'YEAR(' . $date_compare . ')-YEAR(' .
-				$date_orig . ')';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-	}
-
-	return [$col, $col_vraie];
+    if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
+        return '';
+    }
+
+    $boucle = $boucles[$idb];
+    $table = $boucle->show;
+
+    // si c'est une colonne de la table, ne rien faire
+    if (isset($table['field'][$col])) {
+        return '';
+    }
+
+    // Le type de critère à prendre en compte
+    $col = $regs[1];
+
+    // Si on trouve un nom de champ date précis, on l'utilise, pas besoin de déclaration dans l'API objet
+    if (isset($regs[3]) and $suite = $regs[3]) {
+        # Recherche de l'existence du champ date_xxxx,
+        # si oui choisir ce champ, sinon choisir xxxx
+        if (isset($table['field']["date$suite"])) {
+            $date_orig = 'date' . $suite;
+        } else {
+            $date_orig = substr($suite, 1);
+        }
+
+        $pred = $date_orig;
+    } else { // Sinon il FAUT avoir déclaré le champ date officiel dans l'API objet
+        // Si aucune déclaration trouvée, on quitte
+        if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
+            return '';
+        }
+        // Par défaut, on prend le champ date déclaré dans l'API
+        $pred = $date_orig = $GLOBALS['table_date'][$table['id_table']] ?? $table['date'];
+
+        // Si c'est pour du relatif
+        if (isset($regs[2]) and $rel = $regs[2]) {
+            $pred = 'date';
+        }
+    }
+
+    $date_compare = "\"' . normaliser_date(" .
+        calculer_argument_precedent($idb, $pred, $boucles) .
+        ") . '\"";
+
+    $col_vraie = $date_orig;
+    $date_orig = $boucle->id_table . '.' . $date_orig;
+
+    switch ($col) {
+        case 'date':
+            $col = $date_orig;
+            break;
+        case 'jour':
+            $col = "DAYOFMONTH($date_orig)";
+            break;
+        case 'mois':
+            $col = "MONTH($date_orig)";
+            break;
+        case 'annee':
+            $col = "YEAR($date_orig)";
+            break;
+        case 'heure':
+            $col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
+            break;
+        case 'age':
+            $col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'age_relatif':
+            $col = calculer_param_date($date_compare, $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'jour_relatif':
+            $col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'mois_relatif':
+            $col = 'MONTH(' . $date_compare . ')-MONTH(' .
+                $date_orig . ')+12*(YEAR(' . $date_compare .
+                ')-YEAR(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'annee_relatif':
+            $col = 'YEAR(' . $date_compare . ')-YEAR(' .
+                $date_orig . ')';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+    }
+
+    return [$col, $col_vraie];
 }
 
 /**
@@ -2720,16 +2720,16 @@ 
  *     de colonne SQL et une date.
  **/
 function calculer_param_date($date_compare, $date_orig) {
-	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
-		$init = "'\" . (\$x = $r[1]) . \"'";
-		$date_compare = '\'$x\'';
-	} else {
-		$init = $date_compare;
-	}
-
-	return
-		// optimisation : mais prevoir le support SQLite avant
-		"TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
+    if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
+        $init = "'\" . (\$x = $r[1]) . \"'";
+        $date_compare = '\'$x\'';
+    } else {
+        $init = $date_compare;
+    }
+
+    return
+        // optimisation : mais prevoir le support SQLite avant
+        "TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
 }
 
 /**
@@ -2747,20 +2747,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_source_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$args = [];
-	foreach ($crit->param as &$param) {
-		array_push(
-			$args,
-			calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
-		);
-	}
+    $boucle = &$boucles[$idb];
 
-	$boucle->hash .= '
+    $args = [];
+    foreach ($crit->param as &$param) {
+        array_push(
+            $args,
+            calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
+        );
+    }
+
+    $boucle->hash .= '
 	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
 
-	$boucle->hash .= '
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
 }
 
@@ -2778,8 +2778,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datacache_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ';';
 }
 
@@ -2795,12 +2795,12 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_php_args_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '$command[\'args\']=array();';
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '$command[\'args\']=array();';
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 /**
@@ -2817,16 +2817,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2851,16 +2851,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_enum_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2875,11 +2875,11 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datapath_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 
@@ -2911,20 +2911,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_si_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// il faut initialiser 1 fois le tableau a chaque appel de la boucle
-	// (par exemple lorsque notre boucle est appelee dans une autre boucle)
-	// mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
-	$boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
-	if ($crit->param) {
-		foreach ($crit->param as $param) {
-			$boucle->hash .= "\t\$command['si'][] = "
-				. calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
-		}
-		// interdire {si 0} aussi !
-	} else {
-		$boucle->hash .= '$command[\'si\'][] = 0;';
-	}
+    $boucle = &$boucles[$idb];
+    // il faut initialiser 1 fois le tableau a chaque appel de la boucle
+    // (par exemple lorsque notre boucle est appelee dans une autre boucle)
+    // mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
+    $boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
+    if ($crit->param) {
+        foreach ($crit->param as $param) {
+            $boucle->hash .= "\t\$command['si'][] = "
+                . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
+        }
+        // interdire {si 0} aussi !
+    } else {
+        $boucle->hash .= '$command[\'si\'][] = 0;';
+    }
 }
 
 /**
@@ -2941,8 +2941,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_POUR_tableau_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ');
 	$command[\'sourcemode\'] = \'table\';';
 }
@@ -2963,27 +2963,27 @@ 
  */
 function critere_noeud_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
 
-	if (!$primary or strpos($primary, ',')) {
-		erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
+    if (!$primary or strpos($primary, ',')) {
+        erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
 
-		return;
-	}
-	$table = $boucle->type_requete;
-	$table_sql = table_objet_sql(objet_type($table));
+        return;
+    }
+    $table = $boucle->type_requete;
+    $table_sql = table_objet_sql(objet_type($table));
 
-	$id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
+    $id_parent = $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] ?? 'id_parent';
 
-	$in = 'IN';
-	$where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
-	if ($not) {
-		$where = ["'NOT'", $where];
-	}
+    $in = 'IN';
+    $where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
+    if ($not) {
+        $where = ["'NOT'", $where];
+    }
 
-	$boucle->where[] = $where;
+    $boucle->where[] = $where;
 }
 
 /**
@@ -2999,8 +2999,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_feuille_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$crit->not = $not ? false : true;
-	critere_noeud_dist($idb, $boucles, $crit);
-	$crit->not = $not;
+    $not = $crit->not;
+    $crit->not = $not ? false : true;
+    critere_noeud_dist($idb, $boucles, $crit);
+    $crit->not = $not;
 }

ecrire/req/mysql.php

Indentation +884 added lines, -884 removed lines

@@ -20,11 +20,11 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_MYSQL_NOPLANES')) {
-	define('_MYSQL_NOPLANES', true);
+    define('_MYSQL_NOPLANES', true);
 }
 
 /**
@@ -41,112 +41,112 @@ 
  *     - tableau décrivant la connexion sinon
  */
 function req_mysql_dist($host, $port, $login, $pass, $db = '', $prefixe = '') {
-	if (!extension_loaded(\mysqli::class)) {
-		return false;
-	}
-
-	// si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
-	try {
-		if (
-			$port and !is_numeric($socket = $port)
-			and (!$host or $host === 'localhost')
-		) {
-			$link = @mysqli_connect($host, $login, $pass, '', null, $socket);
-		} elseif ($port) {
-			$link = @mysqli_connect($host, $login, $pass, '', $port);
-		} else {
-			$link = @mysqli_connect($host, $login, $pass);
-		}
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		$link = false;
-	}
-
-	if (!$link) {
-		spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
-
-		return false;
-	}
-	$last = '';
-	if (!$db) {
-		$ok = $link;
-		$db = 'spip';
-	} else {
-		$ok = mysqli_select_db($link, $db);
-		if (
-			defined('_MYSQL_SET_SQL_MODE')
-			or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
-		) {
-			mysqli_query($link, $last = "set sql_mode=''");
-		}
-	}
-
-	spip_log(
-		"Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? 'operationnelle' : 'impossible'),
-		_LOG_DEBUG
-	);
-
-	return !$ok ? false : [
-		'db' => $db,
-		'last' => $last,
-		'prefixe' => $prefixe ?: $db,
-		'link' => $link,
-		'total_requetes' => 0,
-	];
+    if (!extension_loaded(\mysqli::class)) {
+        return false;
+    }
+
+    // si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
+    try {
+        if (
+            $port and !is_numeric($socket = $port)
+            and (!$host or $host === 'localhost')
+        ) {
+            $link = @mysqli_connect($host, $login, $pass, '', null, $socket);
+        } elseif ($port) {
+            $link = @mysqli_connect($host, $login, $pass, '', $port);
+        } else {
+            $link = @mysqli_connect($host, $login, $pass);
+        }
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        $link = false;
+    }
+
+    if (!$link) {
+        spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
+
+        return false;
+    }
+    $last = '';
+    if (!$db) {
+        $ok = $link;
+        $db = 'spip';
+    } else {
+        $ok = mysqli_select_db($link, $db);
+        if (
+            defined('_MYSQL_SET_SQL_MODE')
+            or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
+        ) {
+            mysqli_query($link, $last = "set sql_mode=''");
+        }
+    }
+
+    spip_log(
+        "Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? 'operationnelle' : 'impossible'),
+        _LOG_DEBUG
+    );
+
+    return !$ok ? false : [
+        'db' => $db,
+        'last' => $last,
+        'prefixe' => $prefixe ?: $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    ];
 }
 
 
 $GLOBALS['spip_mysql_functions_1'] = [
-	'alter' => 'spip_mysql_alter',
-	'count' => 'spip_mysql_count',
-	'countsel' => 'spip_mysql_countsel',
-	'create' => 'spip_mysql_create',
-	'create_base' => 'spip_mysql_create_base',
-	'create_view' => 'spip_mysql_create_view',
-	'date_proche' => 'spip_mysql_date_proche',
-	'delete' => 'spip_mysql_delete',
-	'drop_table' => 'spip_mysql_drop_table',
-	'drop_view' => 'spip_mysql_drop_view',
-	'errno' => 'spip_mysql_errno',
-	'error' => 'spip_mysql_error',
-	'explain' => 'spip_mysql_explain',
-	'fetch' => 'spip_mysql_fetch',
-	'seek' => 'spip_mysql_seek',
-	'free' => 'spip_mysql_free',
-	'hex' => 'spip_mysql_hex',
-	'in' => 'spip_mysql_in',
-	'insert' => 'spip_mysql_insert',
-	'insertq' => 'spip_mysql_insertq',
-	'insertq_multi' => 'spip_mysql_insertq_multi',
-	'listdbs' => 'spip_mysql_listdbs',
-	'multi' => 'spip_mysql_multi',
-	'optimize' => 'spip_mysql_optimize',
-	'query' => 'spip_mysql_query',
-	'quote' => 'spip_mysql_quote',
-	'replace' => 'spip_mysql_replace',
-	'replace_multi' => 'spip_mysql_replace_multi',
-	'repair' => 'spip_mysql_repair',
-	'select' => 'spip_mysql_select',
-	'selectdb' => 'spip_mysql_selectdb',
-	'set_charset' => 'spip_mysql_set_charset',
-	'get_charset' => 'spip_mysql_get_charset',
-	'showbase' => 'spip_mysql_showbase',
-	'showtable' => 'spip_mysql_showtable',
-	'table_exists' => 'spip_mysql_table_exists',
-	'update' => 'spip_mysql_update',
-	'updateq' => 'spip_mysql_updateq',
-
-	// association de chaque nom http d'un charset aux couples MySQL
-	'charsets' => [
-		'cp1250' => ['charset' => 'cp1250', 'collation' => 'cp1250_general_ci'],
-		'cp1251' => ['charset' => 'cp1251', 'collation' => 'cp1251_general_ci'],
-		'cp1256' => ['charset' => 'cp1256', 'collation' => 'cp1256_general_ci'],
-		'iso-8859-1' => ['charset' => 'latin1', 'collation' => 'latin1_swedish_ci'],
+    'alter' => 'spip_mysql_alter',
+    'count' => 'spip_mysql_count',
+    'countsel' => 'spip_mysql_countsel',
+    'create' => 'spip_mysql_create',
+    'create_base' => 'spip_mysql_create_base',
+    'create_view' => 'spip_mysql_create_view',
+    'date_proche' => 'spip_mysql_date_proche',
+    'delete' => 'spip_mysql_delete',
+    'drop_table' => 'spip_mysql_drop_table',
+    'drop_view' => 'spip_mysql_drop_view',
+    'errno' => 'spip_mysql_errno',
+    'error' => 'spip_mysql_error',
+    'explain' => 'spip_mysql_explain',
+    'fetch' => 'spip_mysql_fetch',
+    'seek' => 'spip_mysql_seek',
+    'free' => 'spip_mysql_free',
+    'hex' => 'spip_mysql_hex',
+    'in' => 'spip_mysql_in',
+    'insert' => 'spip_mysql_insert',
+    'insertq' => 'spip_mysql_insertq',
+    'insertq_multi' => 'spip_mysql_insertq_multi',
+    'listdbs' => 'spip_mysql_listdbs',
+    'multi' => 'spip_mysql_multi',
+    'optimize' => 'spip_mysql_optimize',
+    'query' => 'spip_mysql_query',
+    'quote' => 'spip_mysql_quote',
+    'replace' => 'spip_mysql_replace',
+    'replace_multi' => 'spip_mysql_replace_multi',
+    'repair' => 'spip_mysql_repair',
+    'select' => 'spip_mysql_select',
+    'selectdb' => 'spip_mysql_selectdb',
+    'set_charset' => 'spip_mysql_set_charset',
+    'get_charset' => 'spip_mysql_get_charset',
+    'showbase' => 'spip_mysql_showbase',
+    'showtable' => 'spip_mysql_showtable',
+    'table_exists' => 'spip_mysql_table_exists',
+    'update' => 'spip_mysql_update',
+    'updateq' => 'spip_mysql_updateq',
+
+    // association de chaque nom http d'un charset aux couples MySQL
+    'charsets' => [
+        'cp1250' => ['charset' => 'cp1250', 'collation' => 'cp1250_general_ci'],
+        'cp1251' => ['charset' => 'cp1251', 'collation' => 'cp1251_general_ci'],
+        'cp1256' => ['charset' => 'cp1256', 'collation' => 'cp1256_general_ci'],
+        'iso-8859-1' => ['charset' => 'latin1', 'collation' => 'latin1_swedish_ci'],
 //'iso-8859-6'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'iso-8859-9' => ['charset' => 'latin5', 'collation' => 'latin5_turkish_ci'],
+        'iso-8859-9' => ['charset' => 'latin5', 'collation' => 'latin5_turkish_ci'],
 //'iso-8859-15'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci']
-	]
+        'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci']
+    ]
 ];
 
 
@@ -157,9 +157,9 @@ 
  * @return Object Information de connexion pour mysqli
  */
 function _mysql_link($serveur = '') {
-	$link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -172,10 +172,10 @@ 
  * @return mysqli_result|bool Jeu de résultats pour fetch()
  */
 function spip_mysql_set_charset($charset, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	spip_log('changement de charset sql : ' . 'SET NAMES ' . _q($charset), _LOG_DEBUG);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    spip_log('changement de charset sql : ' . 'SET NAMES ' . _q($charset), _LOG_DEBUG);
 
-	return mysqli_query($connexion['link'], $connexion['last'] = 'SET NAMES ' . _q($charset));
+    return mysqli_query($connexion['link'], $connexion['last'] = 'SET NAMES ' . _q($charset));
 }
 
 
@@ -188,11 +188,11 @@ 
  * @return array Description du charset (son nom est dans 'charset')
  */
 function spip_mysql_get_charset($charset = [], $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$connexion['last'] = $c = 'SHOW CHARACTER SET'
-		. (!$charset ? '' : (' LIKE ' . _q($charset['charset'])));
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $connexion['last'] = $c = 'SHOW CHARACTER SET'
+        . (!$charset ? '' : (' LIKE ' . _q($charset['charset'])));
 
-	return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
+    return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
 }
 
 /**
@@ -208,80 +208,80 @@ 
  */
 function spip_mysql_query($query, $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = _mysql_traite_query($query, $db, $prefixe);
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile']) or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	$connexion['total_requetes']++;
-
-	// ajouter un debug utile dans log/mysql-slow.log ?
-	$debug = '';
-	if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
-		if (isset($GLOBALS['debug']['aucasou'])) {
-			[, $id, , $infos] = $GLOBALS['debug']['aucasou'];
-			$debug .= "BOUCLE$id @ " . ($infos[0] ?? '') . ' | ';
-		}
-		if (isset($_SERVER['REQUEST_URI'])) {
-			$debug .= $_SERVER['REQUEST_URI'];
-		}
-		if (!empty($GLOBALS['ip'])) {
-			$debug .= ' + ' . $GLOBALS['ip'];
-		}
-		$debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
-	}
-	try {
-		$r = mysqli_query($link, $query . $debug);
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		$r = false;
-		// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-		// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-	}
-
-	//Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
-	if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
-		if ($e == 2006) { //Si Gone Away on relance une connexion vierge
-			//Fermer la connexion defaillante
-			mysqli_close($connexion['link']);
-			unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
-			//Relancer une connexion vierge
-			spip_connect($serveur);
-			$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-			$link = $connexion['link'];
-			//On retente au cas où
-			try {
-				$r = mysqli_query($link, $query . $debug);
-			} catch (\mysqli_sql_exception $e) {
-				spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-				$r = false;
-				// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-				// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-			}
-		}
-	}
-
-	// Log de l'erreur eventuelle
-	if ($e = spip_mysql_errno($serveur)) {
-		// et du fautif
-		$e .= spip_mysql_error($query, $serveur);
-	}
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = _mysql_traite_query($query, $db, $prefixe);
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile']) or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    $connexion['total_requetes']++;
+
+    // ajouter un debug utile dans log/mysql-slow.log ?
+    $debug = '';
+    if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
+        if (isset($GLOBALS['debug']['aucasou'])) {
+            [, $id, , $infos] = $GLOBALS['debug']['aucasou'];
+            $debug .= "BOUCLE$id @ " . ($infos[0] ?? '') . ' | ';
+        }
+        if (isset($_SERVER['REQUEST_URI'])) {
+            $debug .= $_SERVER['REQUEST_URI'];
+        }
+        if (!empty($GLOBALS['ip'])) {
+            $debug .= ' + ' . $GLOBALS['ip'];
+        }
+        $debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
+    }
+    try {
+        $r = mysqli_query($link, $query . $debug);
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        $r = false;
+        // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+        // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+    }
+
+    //Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
+    if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
+        if ($e == 2006) { //Si Gone Away on relance une connexion vierge
+            //Fermer la connexion defaillante
+            mysqli_close($connexion['link']);
+            unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
+            //Relancer une connexion vierge
+            spip_connect($serveur);
+            $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+            $link = $connexion['link'];
+            //On retente au cas où
+            try {
+                $r = mysqli_query($link, $query . $debug);
+            } catch (\mysqli_sql_exception $e) {
+                spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+                $r = false;
+                // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+                // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+            }
+        }
+    }
+
+    // Log de l'erreur eventuelle
+    if ($e = spip_mysql_errno($serveur)) {
+        // et du fautif
+        $e .= spip_mysql_error($query, $serveur);
+    }
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 /**
@@ -296,12 +296,12 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_alter($query, $serveur = '', $requeter = true) {
-	// ici on supprime les ` entourant le nom de table pour permettre
-	// la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
-	// d'utiliser ceux-ci, copie-colle de phpmyadmin
-	$query = preg_replace(',^TABLE\s*`([^`]*)`,i', "TABLE \\1", $query);
+    // ici on supprime les ` entourant le nom de table pour permettre
+    // la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
+    // d'utiliser ceux-ci, copie-colle de phpmyadmin
+    $query = preg_replace(',^TABLE\s*`([^`]*)`,i', "TABLE \\1", $query);
 
-	return spip_mysql_query('ALTER ' . $query, $serveur, $requeter); # i.e. que PG se debrouille
+    return spip_mysql_query('ALTER ' . $query, $serveur, $requeter); # i.e. que PG se debrouille
 }
 
 
@@ -314,9 +314,9 @@ 
  * @return bool            Toujours true
  */
 function spip_mysql_optimize($table, $serveur = '', $requeter = true) {
-	spip_mysql_query('OPTIMIZE TABLE ' . $table);
+    spip_mysql_query('OPTIMIZE TABLE ' . $table);
 
-	return true;
+    return true;
 }
 
 
@@ -329,18 +329,18 @@ 
  * @return array           Tableau de l'explication
  */
 function spip_mysql_explain($query, $serveur = '', $requeter = true) {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return [];
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
-	$r = mysqli_query($link, $query);
-
-	return spip_mysql_fetch($r, null, $serveur);
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return [];
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
+    $r = mysqli_query($link, $query);
+
+    return spip_mysql_fetch($r, null, $serveur);
 }
 
 
@@ -369,35 +369,35 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = '',
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = '',
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
 
-	$from = (!is_array($from) ? $from : spip_mysql_select_as($from));
-	$query =
-		calculer_mysql_expression('SELECT', $select, ', ')
-		. calculer_mysql_expression('FROM', $from, ', ')
-		. calculer_mysql_expression('WHERE', $where)
-		. calculer_mysql_expression('GROUP BY', $groupby, ',')
-		. calculer_mysql_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
-		. ($limit ? "\nLIMIT $limit" : '');
+    $from = (!is_array($from) ? $from : spip_mysql_select_as($from));
+    $query =
+        calculer_mysql_expression('SELECT', $select, ', ')
+        . calculer_mysql_expression('FROM', $from, ', ')
+        . calculer_mysql_expression('WHERE', $where)
+        . calculer_mysql_expression('GROUP BY', $groupby, ',')
+        . calculer_mysql_expression('HAVING', $having)
+        . ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
+        . ($limit ? "\nLIMIT $limit" : '');
 
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) {
-		return $query;
-	}
-	$r = spip_mysql_query($query, $serveur, $requeter);
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) {
+        return $query;
+    }
+    $r = spip_mysql_query($query, $serveur, $requeter);
 
-	return $r ?: $query;
+    return $r ?: $query;
 }
 
 
@@ -414,7 +414,7 @@ 
  * @return string texte du orderby préparé
  */
 function spip_mysql_order($orderby) {
-	return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
+    return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
 }
 
 
@@ -437,26 +437,26 @@ 
  *     Contrainte pour clause WHERE
  */
 function calculer_mysql_where($v) {
-	if (!is_array($v)) {
-		return $v;
-	}
-
-	$op = array_shift($v);
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = calculer_mysql_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = calculer_mysql_where(array_shift($v));
-			if ($n == 2) {
-				return "($arg $op $arg2)";
-			} else {
-				return "($arg $op ($arg2) : $v[0])";
-			}
-		}
-	}
+    if (!is_array($v)) {
+        return $v;
+    }
+
+    $op = array_shift($v);
+    if (!($n = count($v))) {
+        return $op;
+    } else {
+        $arg = calculer_mysql_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = calculer_mysql_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 /**
@@ -471,21 +471,21 @@ 
  * @return string            texte de l'expression, une partie donc, du texte la requête.
  */
 function calculer_mysql_expression($expression, $v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	$exp = "\n$expression ";
-
-	if (!is_array($v)) {
-		return $exp . $v;
-	} else {
-		if (strtoupper($join) === 'AND') {
-			return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    $exp = "\n$expression ";
+
+    if (!is_array($v)) {
+        return $exp . $v;
+    } else {
+        if (strtoupper($join) === 'AND') {
+            return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -496,26 +496,26 @@ 
  * @return string Sélection de colonnes pour une clause SELECT
  */
 function spip_mysql_select_as($args) {
-	$res = '';
-	foreach ($args as $k => $v) {
-		if (substr($k, -1) == '@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$res .= '  ' . $v;
-		} else {
-			if (!is_numeric($k)) {
-				$p = strpos($v, ' ');
-				if ($p) {
-					$v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
-				} else {
-					$v .= " AS `$k`";
-				}
-			}
-			$res .= ', ' . $v;
-		}
-	}
-
-	return substr($res, 2);
+    $res = '';
+    foreach ($args as $k => $v) {
+        if (substr($k, -1) == '@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $res .= '  ' . $v;
+        } else {
+            if (!is_numeric($k)) {
+                $p = strpos($v, ' ');
+                if ($p) {
+                    $v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
+                } else {
+                    $v .= " AS `$k`";
+                }
+            }
+            $res .= ', ' . $v;
+        }
+    }
+
+    return substr($res, 2);
 }
 
 
@@ -540,58 +540,58 @@ 
  */
 function _mysql_traite_query($query, $db = '', $prefixe = '', $echappe_textes = true) {
 
-	if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
-		$pref = '`' . $db . '`.';
-	} else {
-		$pref = '';
-	}
-
-	if ($prefixe) {
-		$pref .= $prefixe . '_';
-	}
-
-	if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
-		$suite = '';
-	} else {
-		$suite = strstr($query, (string) $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-		// propager le prefixe en cas de requete imbriquee
-		// il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
-		// modifier une requete qui est en fait juste du texte dans un champ
-		if (stripos($suite, 'SELECT') !== false) {
-			if ($echappe_textes) {
-				[$suite_echap, $textes] = query_echappe_textes($suite);
-			}
-			else {
-				$suite_echap = $suite;
-			}
-			if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite_echap, $r)) {
-				$suite_echap = $r[1] . _mysql_traite_query($r[2], $db, $prefixe, false);
-				if ($echappe_textes) {
-					$suite = query_reinjecte_textes($suite_echap, $textes);
-				}
-				else {
-					$suite = $suite_echap;
-				}
-			}
-		}
-	}
-	$r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
-
-	// en option, remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	// remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	if (
-		defined('_MYSQL_NOPLANES')
-		and _MYSQL_NOPLANES
-		and !empty($GLOBALS['meta']['charset_sql_connexion'])
-		and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
-	) {
-		include_spip('inc/charsets');
-		$r = utf8_noplanes($r);
-	}
-
-	#spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
-	return $r;
+    if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
+        $pref = '`' . $db . '`.';
+    } else {
+        $pref = '';
+    }
+
+    if ($prefixe) {
+        $pref .= $prefixe . '_';
+    }
+
+    if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
+        $suite = '';
+    } else {
+        $suite = strstr($query, (string) $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+        // propager le prefixe en cas de requete imbriquee
+        // il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
+        // modifier une requete qui est en fait juste du texte dans un champ
+        if (stripos($suite, 'SELECT') !== false) {
+            if ($echappe_textes) {
+                [$suite_echap, $textes] = query_echappe_textes($suite);
+            }
+            else {
+                $suite_echap = $suite;
+            }
+            if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite_echap, $r)) {
+                $suite_echap = $r[1] . _mysql_traite_query($r[2], $db, $prefixe, false);
+                if ($echappe_textes) {
+                    $suite = query_reinjecte_textes($suite_echap, $textes);
+                }
+                else {
+                    $suite = $suite_echap;
+                }
+            }
+        }
+    }
+    $r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
+
+    // en option, remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    // remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    if (
+        defined('_MYSQL_NOPLANES')
+        and _MYSQL_NOPLANES
+        and !empty($GLOBALS['meta']['charset_sql_connexion'])
+        and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
+    ) {
+        include_spip('inc/charsets');
+        $r = utf8_noplanes($r);
+    }
+
+    #spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
+    return $r;
 }
 
 /**
@@ -609,17 +609,17 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_selectdb($db, $serveur = '', $requeter = true) {
-	$link = _mysql_link($serveur);
-	try {
-		$ok = mysqli_select_db($link, $db);
-	} catch (\mysqli_sql_exception $e) {
-		$ok = false;
-	}
-	if (!$ok) {
-		spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
-	}
-
-	return $ok;
+    $link = _mysql_link($serveur);
+    try {
+        $ok = mysqli_select_db($link, $db);
+    } catch (\mysqli_sql_exception $e) {
+        $ok = false;
+    }
+    if (!$ok) {
+        spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
+    }
+
+    return $ok;
 }
 
 
@@ -640,14 +640,14 @@ 
  *     Liste de noms de bases de données
  **/
 function spip_mysql_listdbs($serveur = '', $requeter = true) {
-	$dbs = [];
-	if ($res = spip_mysql_query('SHOW DATABASES', $serveur)) {
-		while ($row = mysqli_fetch_assoc($res)) {
-			$dbs[] = $row['Database'];
-		}
-	}
-
-	return $dbs;
+    $dbs = [];
+    if ($res = spip_mysql_query('SHOW DATABASES', $serveur)) {
+        while ($row = mysqli_fetch_assoc($res)) {
+            $dbs[] = $row['Database'];
+        }
+    }
+
+    return $dbs;
 }
 
 
@@ -670,73 +670,73 @@ 
  *     - true si la requête réussie, false sinon.
  */
 function spip_mysql_create(
-	$nom,
-	$champs,
-	$cles,
-	$autoinc = false,
-	$temporary = false,
-	$serveur = '',
-	$requeter = true
+    $nom,
+    $champs,
+    $cles,
+    $autoinc = false,
+    $temporary = false,
+    $serveur = '',
+    $requeter = true
 ) {
 
-	$query = '';
-	$keys = '';
-	$s = '';
-	$p = '';
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) {
-		return;
-	}
-
-	$res = spip_mysql_query('SELECT version() as v', $serveur);
-	if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
-		spip_mysql_query("SET sql_mode=''", $serveur);
-	}
-
-	foreach ($cles as $k => $v) {
-		$keys .= "$s\n\t\t$k ($v)";
-		if ($k == 'PRIMARY KEY') {
-			$p = $v;
-		}
-		$s = ',';
-	}
-	$s = '';
-
-	$character_set = '';
-	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
-	}
-	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
-	}
-
-	foreach ($champs as $k => $v) {
-		$v = _mysql_remplacements_definitions_table($v);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
-			if (
-				preg_match(',(char|text),i', $defs[1])
-				and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
-			) {
-				$v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
-			}
-		}
-
-		$query .= "$s\n\t\t$k $v"
-			. (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
-				? ' auto_increment'
-				: ''
-			);
-		$s = ',';
-	}
-	$temporary = $temporary ? 'TEMPORARY' : '';
-	$q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ')'
-		. (defined('_MYSQL_ENGINE') ? ' ENGINE=' . _MYSQL_ENGINE : '')
-		. ($character_set ? " DEFAULT $character_set" : '')
-		. "\n";
-
-	return spip_mysql_query($q, $serveur);
+    $query = '';
+    $keys = '';
+    $s = '';
+    $p = '';
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) {
+        return;
+    }
+
+    $res = spip_mysql_query('SELECT version() as v', $serveur);
+    if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
+        spip_mysql_query("SET sql_mode=''", $serveur);
+    }
+
+    foreach ($cles as $k => $v) {
+        $keys .= "$s\n\t\t$k ($v)";
+        if ($k == 'PRIMARY KEY') {
+            $p = $v;
+        }
+        $s = ',';
+    }
+    $s = '';
+
+    $character_set = '';
+    if (@$GLOBALS['meta']['charset_sql_base']) {
+        $character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
+    }
+    if (@$GLOBALS['meta']['charset_collation_sql_base']) {
+        $character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
+    }
+
+    foreach ($champs as $k => $v) {
+        $v = _mysql_remplacements_definitions_table($v);
+        if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
+            if (
+                preg_match(',(char|text),i', $defs[1])
+                and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
+            ) {
+                $v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
+            }
+        }
+
+        $query .= "$s\n\t\t$k $v"
+            . (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
+                ? ' auto_increment'
+                : ''
+            );
+        $s = ',';
+    }
+    $temporary = $temporary ? 'TEMPORARY' : '';
+    $q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ')'
+        . (defined('_MYSQL_ENGINE') ? ' ENGINE=' . _MYSQL_ENGINE : '')
+        . ($character_set ? " DEFAULT $character_set" : '')
+        . "\n";
+
+    return spip_mysql_query($q, $serveur);
 }
 
 
@@ -749,25 +749,25 @@ 
  *     Définition SQL adaptée pour MySQL d'un champ de table
  */
 function _mysql_remplacements_definitions_table($query) {
-	// quelques remplacements
-	$num = '(\s*\([0-9]*\))?';
-	$enum = '(\s*\([^\)]*\))?';
-
-	$remplace = [
-		'/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
-		'/^TIMESTAMP($| NULL DEFAULT NULL)/is' => 'TIMESTAMP DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP',
-	];
-
-	if (is_string($query)) {
-		$query = preg_replace(array_keys($remplace), $remplace, $query);
-	} elseif (is_array($query)) {
-		$keys = array_keys($remplace);
-		foreach ($query as $k => $q) {
-			$query[$k] = preg_replace($keys, $remplace, $q);
-		}
-	}
-
-	return $query;
+    // quelques remplacements
+    $num = '(\s*\([0-9]*\))?';
+    $enum = '(\s*\([^\)]*\))?';
+
+    $remplace = [
+        '/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
+        '/^TIMESTAMP($| NULL DEFAULT NULL)/is' => 'TIMESTAMP DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP',
+    ];
+
+    if (is_string($query)) {
+        $query = preg_replace(array_keys($remplace), $remplace, $query);
+    } elseif (is_array($query)) {
+        $keys = array_keys($remplace);
+        foreach ($query as $k => $q) {
+            $query[$k] = preg_replace($keys, $remplace, $q);
+        }
+    }
+
+    return $query;
 }
 
 
@@ -780,7 +780,7 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_mysql_create_base($nom, $serveur = '', $requeter = true) {
-	return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
+    return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
 }
 
 
@@ -801,19 +801,19 @@ 
  *     - string texte de la requête si $requeter vaut false
  */
 function spip_mysql_create_view($nom, $query_select, $serveur = '', $requeter = true) {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", _LOG_ERREUR);
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", _LOG_ERREUR);
 
-		return false;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_mysql_query($query, $serveur, $requeter);
+    return spip_mysql_query($query, $serveur, $requeter);
 }
 
 
@@ -829,11 +829,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_table($table, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
+    return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
 }
 
 /**
@@ -848,11 +848,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -869,7 +869,7 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_mysql_showbase($match, $serveur = '', $requeter = true) {
-	return spip_mysql_query('SHOW TABLES LIKE ' . _q($match), $serveur, $requeter);
+    return spip_mysql_query('SHOW TABLES LIKE ' . _q($match), $serveur, $requeter);
 }
 
 /**
@@ -885,18 +885,18 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_repair($table, $serveur = '', $requeter = true) {
-	$table_status = spip_mysql_fetch(spip_mysql_query('SHOW TABLE STATUS WHERE Name = ' . _q($table), $serveur, true));
-	$engine = $table_status['Engine'];
-	if ($engine == 'InnoDB') {
-		if (spip_mysql_alter("TABLE $table ENGINE = InnoDB", $serveur, $requeter)) {
-			return [' OK '];
-		}
-	} elseif ($engine == 'MyISAM') {
-		return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
-	} else {
-		spip_log("spip_mysql_repair impossible pour la table $table engine $engine", 'mysql.' . _LOG_DEBUG);
-	}
-	return false;
+    $table_status = spip_mysql_fetch(spip_mysql_query('SHOW TABLE STATUS WHERE Name = ' . _q($table), $serveur, true));
+    $engine = $table_status['Engine'];
+    if ($engine == 'InnoDB') {
+        if (spip_mysql_alter("TABLE $table ENGINE = InnoDB", $serveur, $requeter)) {
+            return [' OK '];
+        }
+    } elseif ($engine == 'MyISAM') {
+        return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
+    } else {
+        spip_log("spip_mysql_repair impossible pour la table $table engine $engine", 'mysql.' . _LOG_DEBUG);
+    }
+    return false;
 }
 
 /**
@@ -914,12 +914,12 @@ 
  *     - string : requete sql, si $requeter = true
  **/
 function spip_mysql_table_exists(string $table, $serveur = '', $requeter = true) {
-	$r = spip_mysql_query('SHOW TABLES LIKE ' . _q($table), $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	$res = spip_mysql_fetch($r);
-	return (bool) $res;
+    $r = spip_mysql_query('SHOW TABLES LIKE ' . _q($table), $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    $res = spip_mysql_fetch($r);
+    return (bool) $res;
 }
 
 define('_MYSQL_RE_SHOW_TABLE', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -942,86 +942,86 @@ 
  *     - array description de la table sinon
  */
 function spip_mysql_showtable($nom_table, $serveur = '', $requeter = true) {
-	$s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
-	if (!$s) {
-		return '';
-	}
-	if (!$requeter) {
-		return $s;
-	}
-
-	[, $a] = mysqli_fetch_array($s, MYSQLI_NUM);
-	if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
-		$desc = $r[1];
-		// extraction d'une KEY éventuelle en prenant garde de ne pas
-		// relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
-		if (preg_match('/^(.*?),([^,]*\sKEY[ (].*)$/s', $desc, $r)) {
-			$namedkeys = $r[2];
-			$desc = $r[1];
-		} else {
-			$namedkeys = '';
-		}
-
-		$fields = [];
-		foreach (preg_split('/,\s*`/', $desc) as $v) {
-			preg_match('/^\s*`?([^`]*)`\s*(.*)/', $v, $r);
-			$fields[strtolower($r[1])] = $r[2];
-		}
-		$keys = [];
-
-		foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
-			if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', $v, $r)) {
-				$k = str_replace('`', '', trim($r[1]));
-				$t = strtolower(str_replace('`', '', $r[2]));
-				if ($k && !isset($keys[$k])) {
-					$keys[$k] = $t;
-				} else {
-					$keys[] = $t;
-				}
-			}
-		}
-		spip_mysql_free($s);
-
-		return ['field' => $fields, 'key' => $keys];
-	}
-
-	$res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
-	if ($res) {
-		$nfields = [];
-		$nkeys = [];
-		while ($val = spip_mysql_fetch($res)) {
-			$nfields[$val['Field']] = $val['Type'];
-			if ($val['Null'] == 'NO') {
-				$nfields[$val['Field']] .= ' NOT NULL';
-			}
-			if ($val['Default'] === '0' || $val['Default']) {
-				if (preg_match('/[A-Z_]/', $val['Default'])) {
-					$nfields[$val['Field']] .= ' DEFAULT ' . $val['Default'];
-				} else {
-					$nfields[$val['Field']] .= " DEFAULT '" . $val['Default'] . "'";
-				}
-			}
-			if ($val['Extra']) {
-				$nfields[$val['Field']] .= ' ' . $val['Extra'];
-			}
-			if ($val['Key'] == 'PRI') {
-				$nkeys['PRIMARY KEY'] = $val['Field'];
-			} else {
-				if ($val['Key'] == 'MUL') {
-					$nkeys['KEY ' . $val['Field']] = $val['Field'];
-				} else {
-					if ($val['Key'] == 'UNI') {
-						$nkeys['UNIQUE KEY ' . $val['Field']] = $val['Field'];
-					}
-				}
-			}
-		}
-		spip_mysql_free($res);
-
-		return ['field' => $nfields, 'key' => $nkeys];
-	}
-
-	return '';
+    $s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
+    if (!$s) {
+        return '';
+    }
+    if (!$requeter) {
+        return $s;
+    }
+
+    [, $a] = mysqli_fetch_array($s, MYSQLI_NUM);
+    if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
+        $desc = $r[1];
+        // extraction d'une KEY éventuelle en prenant garde de ne pas
+        // relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
+        if (preg_match('/^(.*?),([^,]*\sKEY[ (].*)$/s', $desc, $r)) {
+            $namedkeys = $r[2];
+            $desc = $r[1];
+        } else {
+            $namedkeys = '';
+        }
+
+        $fields = [];
+        foreach (preg_split('/,\s*`/', $desc) as $v) {
+            preg_match('/^\s*`?([^`]*)`\s*(.*)/', $v, $r);
+            $fields[strtolower($r[1])] = $r[2];
+        }
+        $keys = [];
+
+        foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
+            if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', $v, $r)) {
+                $k = str_replace('`', '', trim($r[1]));
+                $t = strtolower(str_replace('`', '', $r[2]));
+                if ($k && !isset($keys[$k])) {
+                    $keys[$k] = $t;
+                } else {
+                    $keys[] = $t;
+                }
+            }
+        }
+        spip_mysql_free($s);
+
+        return ['field' => $fields, 'key' => $keys];
+    }
+
+    $res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
+    if ($res) {
+        $nfields = [];
+        $nkeys = [];
+        while ($val = spip_mysql_fetch($res)) {
+            $nfields[$val['Field']] = $val['Type'];
+            if ($val['Null'] == 'NO') {
+                $nfields[$val['Field']] .= ' NOT NULL';
+            }
+            if ($val['Default'] === '0' || $val['Default']) {
+                if (preg_match('/[A-Z_]/', $val['Default'])) {
+                    $nfields[$val['Field']] .= ' DEFAULT ' . $val['Default'];
+                } else {
+                    $nfields[$val['Field']] .= " DEFAULT '" . $val['Default'] . "'";
+                }
+            }
+            if ($val['Extra']) {
+                $nfields[$val['Field']] .= ' ' . $val['Extra'];
+            }
+            if ($val['Key'] == 'PRI') {
+                $nkeys['PRIMARY KEY'] = $val['Field'];
+            } else {
+                if ($val['Key'] == 'MUL') {
+                    $nkeys['KEY ' . $val['Field']] = $val['Field'];
+                } else {
+                    if ($val['Key'] == 'UNI') {
+                        $nkeys['UNIQUE KEY ' . $val['Field']] = $val['Field'];
+                    }
+                }
+            }
+        }
+        spip_mysql_free($res);
+
+        return ['field' => $nfields, 'key' => $nkeys];
+    }
+
+    return '';
 }
 
 
@@ -1040,13 +1040,13 @@ 
  *     - false Erreur
  */
 function spip_mysql_fetch($r, $t = '', $serveur = '', $requeter = true) {
-	if (!$t) {
-		$t = \MYSQLI_ASSOC;
-	}
-	if ($r) {
-		return mysqli_fetch_array($r, $t);
-	}
-	return false;
+    if (!$t) {
+        $t = \MYSQLI_ASSOC;
+    }
+    if ($r) {
+        return mysqli_fetch_array($r, $t);
+    }
+    return false;
 }
 
 /**
@@ -1059,10 +1059,10 @@ 
  * @return bool True si déplacement réussi, false sinon.
  **/
 function spip_mysql_seek($r, $row_number, $serveur = '', $requeter = true) {
-	if ($r and mysqli_num_rows($r)) {
-		return mysqli_data_seek($r, $row_number);
-	}
-	return false;
+    if ($r and mysqli_num_rows($r)) {
+        return mysqli_data_seek($r, $row_number);
+    }
+    return false;
 }
 
 
@@ -1080,26 +1080,26 @@ 
  *     - int Nombre de lignes (0 si la requête n'a pas réussie)
  **/
 function spip_mysql_countsel(
-	$from = [],
-	$where = [],
-	$groupby = '',
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = '',
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-
-	$r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	if (!$r instanceof mysqli_result) {
-		return 0;
-	}
-	[$c] = mysqli_fetch_array($r, MYSQLI_NUM);
-	mysqli_free_result($r);
-
-	return intval($c);
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+
+    $r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    if (!$r instanceof mysqli_result) {
+        return 0;
+    }
+    [$c] = mysqli_fetch_array($r, MYSQLI_NUM);
+    mysqli_free_result($r);
+
+    return intval($c);
 }
 
 
@@ -1122,16 +1122,16 @@ 
  *     Erreur eventuelle
  **/
 function spip_mysql_error($query = '', $serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
-	$s = mysqli_error($link);
-	if ($s) {
-		$trace = debug_backtrace();
-		if ($trace[0]['function'] != 'spip_mysql_error') {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
-		}
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
+    $s = mysqli_error($link);
+    if ($s) {
+        $trace = debug_backtrace();
+        if ($trace[0]['function'] != 'spip_mysql_error') {
+            spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
+        }
+    }
+
+    return $s;
 }
 
 
@@ -1146,18 +1146,18 @@ 
  *     0, pas d'erreur. Autre, numéro de l'erreur.
  **/
 function spip_mysql_errno($serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ?: 0]['link'];
-	$s = mysqli_errno($link);
-	// 2006 MySQL server has gone away
-	// 2013 Lost connection to MySQL server during query
-	if (in_array($s, [2006, 2013])) {
-		define('spip_interdire_cache', true);
-	}
-	if ($s) {
-		spip_log("Erreur mysql $s", _LOG_ERREUR);
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ?: 0]['link'];
+    $s = mysqli_errno($link);
+    // 2006 MySQL server has gone away
+    // 2013 Lost connection to MySQL server during query
+    if (in_array($s, [2006, 2013])) {
+        define('spip_interdire_cache', true);
+    }
+    if ($s) {
+        spip_log("Erreur mysql $s", _LOG_ERREUR);
+    }
+
+    return $s;
 }
 
 
@@ -1171,9 +1171,9 @@ 
  * @return int               Nombre de lignes
  */
 function spip_mysql_count($r, $serveur = '', $requeter = true) {
-	if ($r) {
-		return mysqli_num_rows($r);
-	}
+    if ($r) {
+        return mysqli_num_rows($r);
+    }
 }
 
 
@@ -1189,11 +1189,11 @@ 
  * @return bool              True si réussi
  */
 function spip_mysql_free($r, $serveur = '', $requeter = true) {
-	if ($r instanceof mysqli_result) {
-		mysqli_free_result($r);
-		return true;
-	}
-	return false;
+    if ($r instanceof mysqli_result) {
+        mysqli_free_result($r);
+        return true;
+    }
+    return false;
 }
 
 
@@ -1221,59 +1221,59 @@ 
  **/
 function spip_mysql_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
 
-	$e = null;
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
-
-	// remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	if (
-		defined('_MYSQL_NOPLANES')
-		and _MYSQL_NOPLANES
-		and !empty($GLOBALS['meta']['charset_sql_connexion'])
-		and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
-	) {
-		include_spip('inc/charsets');
-		$valeurs = utf8_noplanes($valeurs);
-	}
-
-	$query = "INSERT INTO $table $champs VALUES $valeurs";
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-		$e = '';
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	#spip_log($query, 'mysql.'._LOG_DEBUG);
-	$r = false;
-	$insert = false;
-	try {
-		$insert = mysqli_query($link, $query);
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-		// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-	}
-	if ($insert) {
-		$r = mysqli_insert_id($link);
-	} else {
-		// Log de l'erreur eventuelle
-		if ($e = spip_mysql_errno($serveur)) {
-			// et du fautif
-			$e .= spip_mysql_error($query, $serveur);
-		}
-	}
-
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
-
-	// return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
+    $e = null;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
+
+    // remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    if (
+        defined('_MYSQL_NOPLANES')
+        and _MYSQL_NOPLANES
+        and !empty($GLOBALS['meta']['charset_sql_connexion'])
+        and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
+    ) {
+        include_spip('inc/charsets');
+        $valeurs = utf8_noplanes($valeurs);
+    }
+
+    $query = "INSERT INTO $table $champs VALUES $valeurs";
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+        $e = '';
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    #spip_log($query, 'mysql.'._LOG_DEBUG);
+    $r = false;
+    $insert = false;
+    try {
+        $insert = mysqli_query($link, $query);
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+        // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+    }
+    if ($insert) {
+        $r = mysqli_insert_id($link);
+    } else {
+        // Log de l'erreur eventuelle
+        if ($e = spip_mysql_errno($serveur)) {
+            // et du fautif
+            $e .= spip_mysql_error($query, $serveur);
+        }
+    }
+
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+
+    // return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
 }
 
 /**
@@ -1298,26 +1298,26 @@ 
  **/
 function spip_mysql_insertq($table, $couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$couples = [];
-	}
-	$fields = $desc['field'] ?? [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-	}
-
-	return spip_mysql_insert(
-		$table,
-		'(' . join(',', array_keys($couples)) . ')',
-		'(' . join(',', $couples) . ')',
-		$desc,
-		$serveur,
-		$requeter
-	);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $couples = [];
+    }
+    $fields = $desc['field'] ?? [];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+    }
+
+    return spip_mysql_insert(
+        $table,
+        '(' . join(',', array_keys($couples)) . ')',
+        '(' . join(',', $couples) . ')',
+        $desc,
+        $serveur,
+        $requeter
+    );
 }
 
 
@@ -1342,34 +1342,34 @@ 
  **/
 function spip_mysql_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$tab_couples = [];
-	}
-	$fields = $desc['field'] ?? [];
-
-	$cles = '(' . join(',', array_keys(reset($tab_couples))) . ')';
-	$valeurs = [];
-	$r = false;
-
-	// Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-		}
-		$valeurs[] = '(' . join(',', $couples) . ')';
-		if (count($valeurs) >= 100) {
-			$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-			$valeurs = [];
-		}
-	}
-	if (count($valeurs)) {
-		$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-	}
-
-	return $r; // dans le cas d'une table auto_increment, le dernier insert_id
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $tab_couples = [];
+    }
+    $fields = $desc['field'] ?? [];
+
+    $cles = '(' . join(',', array_keys(reset($tab_couples))) . ')';
+    $valeurs = [];
+    $r = false;
+
+    // Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+        }
+        $valeurs[] = '(' . join(',', $couples) . ')';
+        if (count($valeurs) >= 100) {
+            $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+            $valeurs = [];
+        }
+    }
+    if (count($valeurs)) {
+        $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+    }
+
+    return $r; // dans le cas d'une table auto_increment, le dernier insert_id
 }
 
 /**
@@ -1394,20 +1394,20 @@ 
  *     - array Tableau décrivant la requête et son temps d'exécution si var_profile est actif
  */
 function spip_mysql_update($table, $champs, $where = '', $desc = [], $serveur = '', $requeter = true) {
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
-	}
-	if (!empty($set)) {
-		return spip_mysql_query(
-			calculer_mysql_expression('UPDATE', $table, ',')
-			. calculer_mysql_expression('SET', $set, ',')
-			. calculer_mysql_expression('WHERE', $where),
-			$serveur,
-			$requeter
-		);
-	}
-	return false;
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if (!empty($set)) {
+        return spip_mysql_query(
+            calculer_mysql_expression('UPDATE', $table, ',')
+            . calculer_mysql_expression('SET', $set, ',')
+            . calculer_mysql_expression('WHERE', $where),
+            $serveur,
+            $requeter
+        );
+    }
+    return false;
 }
 
 /**
@@ -1440,29 +1440,29 @@ 
  */
 function spip_mysql_updateq($table, $champs, $where = '', $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$champs) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$champs = [];
-	} else {
-		$fields = $desc['field'];
-	}
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
-	}
-
-	return spip_mysql_query(
-		calculer_mysql_expression('UPDATE', $table, ',')
-		. calculer_mysql_expression('SET', $set, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
+    if (!$champs) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $champs = [];
+    } else {
+        $fields = $desc['field'];
+    }
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
+    }
+
+    return spip_mysql_query(
+        calculer_mysql_expression('UPDATE', $table, ',')
+        . calculer_mysql_expression('SET', $set, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
 }
 
 /**
@@ -1478,22 +1478,22 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_mysql_delete($table, $where = '', $serveur = '', $requeter = true) {
-	$res = spip_mysql_query(
-		calculer_mysql_expression('DELETE FROM', $table, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
-	if (!$requeter) {
-		return $res;
-	}
-	if ($res) {
-		$link = _mysql_link($serveur);
-
-		return mysqli_affected_rows($link);
-	} else {
-		return false;
-	}
+    $res = spip_mysql_query(
+        calculer_mysql_expression('DELETE FROM', $table, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
+    if (!$requeter) {
+        return $res;
+    }
+    if ($res) {
+        $link = _mysql_link($serveur);
+
+        return mysqli_affected_rows($link);
+    } else {
+        return false;
+    }
 }
 
 
@@ -1522,10 +1522,10 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_mysql_replace($table, $couples, $desc = [], $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
-		',',
-		array_map('_q', $couples)
-	) . ')', $serveur, $requeter);
+    return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
+        ',',
+        array_map('_q', $couples)
+    ) . ')', $serveur, $requeter);
 }
 
 
@@ -1554,14 +1554,14 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_mysql_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
-	$cles = '(' . join(',', array_keys($tab_couples[0])) . ')';
-	$valeurs = [];
-	foreach ($tab_couples as $couples) {
-		$valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
-	}
-	$valeurs = implode(', ', $valeurs);
-
-	return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
+    $cles = '(' . join(',', array_keys($tab_couples[0])) . ')';
+    $valeurs = [];
+    foreach ($tab_couples as $couples) {
+        $valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
+    }
+    $valeurs = implode(', ', $valeurs);
+
+    return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
 }
 
 
@@ -1576,32 +1576,32 @@ 
  * @return string       texte de sélection pour la requête
  */
 function spip_mysql_multi($objet, $lang) {
-	$lengthlang = strlen("[$lang]");
-	$posmulti = 'INSTR(' . $objet . ", '<multi>')";
-	$posfinmulti = 'INSTR(' . $objet . ", '</multi>')";
-	$debutchaine = 'LEFT(' . $objet . ", $posmulti-1)";
-	$finchaine = 'RIGHT(' . $objet . ', CHAR_LENGTH(' . $objet . ") -(7+$posfinmulti))";
-	$chainemulti = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
-	$poslang = "INSTR($chainemulti,'[" . $lang . "]')";
-	$poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
-	$chainelang = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
-	$posfinlang = 'INSTR(' . $chainelang . ", '[')";
-	$chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
-	//$chainelang = "LEFT($chainelang,$posfinlang-1)";
-	$retour = "(TRIM(IF($posmulti = 0 , " .
-		'     TRIM(' . $objet . '), ' .
-		'     CONCAT( ' .
-		"          $debutchaine, " .
-		'          IF( ' .
-		"               $poslang = 0, " .
-		"                     $chainemulti, " .
-		"               $chainelang" .
-		'          ), ' .
-		"          $finchaine" .
-		'     ) ' .
-		'))) AS multi';
-
-	return $retour;
+    $lengthlang = strlen("[$lang]");
+    $posmulti = 'INSTR(' . $objet . ", '<multi>')";
+    $posfinmulti = 'INSTR(' . $objet . ", '</multi>')";
+    $debutchaine = 'LEFT(' . $objet . ", $posmulti-1)";
+    $finchaine = 'RIGHT(' . $objet . ', CHAR_LENGTH(' . $objet . ") -(7+$posfinmulti))";
+    $chainemulti = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
+    $poslang = "INSTR($chainemulti,'[" . $lang . "]')";
+    $poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
+    $chainelang = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
+    $posfinlang = 'INSTR(' . $chainelang . ", '[')";
+    $chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
+    //$chainelang = "LEFT($chainelang,$posfinlang-1)";
+    $retour = "(TRIM(IF($posmulti = 0 , " .
+        '     TRIM(' . $objet . '), ' .
+        '     CONCAT( ' .
+        "          $debutchaine, " .
+        '          IF( ' .
+        "               $poslang = 0, " .
+        "                     $chainemulti, " .
+        "               $chainelang" .
+        '          ), ' .
+        "          $finchaine" .
+        '     ) ' .
+        '))) AS multi';
+
+    return $retour;
 }
 
 /**
@@ -1615,7 +1615,7 @@ 
  *     Valeur hexadécimale pour MySQL
  **/
 function spip_mysql_hex($v) {
-	return '0x' . $v;
+    return '0x' . $v;
 }
 
 /**
@@ -1631,15 +1631,15 @@ 
  *    Donnée prête à être utilisée par le gestionnaire SQL
  */
 function spip_mysql_quote($v, $type = '') {
-	if (!is_array($v)) {
-		return spip_mysql_cite($v, $type);
-	}
-
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_mysql_quote($r, $type);
-	}
-	return implode(',', $v);
+    if (!is_array($v)) {
+        return spip_mysql_cite($v, $type);
+    }
+
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_mysql_quote($r, $type);
+    }
+    return implode(',', $v);
 }
 
 /**
@@ -1655,18 +1655,18 @@ 
  *     Expression SQL
  **/
 function spip_mysql_date_proche($champ, $interval, $unite) {
-	$use_now = ( ($champ === 'maj' or strpos($champ, '.maj')) ? true : false );
-	return '('
-	. $champ
-	. (($interval <= 0) ? '>' : '<')
-	. (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. ($use_now ? 'NOW()' : sql_quote(date('Y-m-d H:i:s')))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0 - $interval))
-	. ' '
-	. $unite
-	. '))';
+    $use_now = ( ($champ === 'maj' or strpos($champ, '.maj')) ? true : false );
+    return '('
+    . $champ
+    . (($interval <= 0) ? '>' : '<')
+    . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
+    . '('
+    . ($use_now ? 'NOW()' : sql_quote(date('Y-m-d H:i:s')))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0 - $interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 
@@ -1690,7 +1690,7 @@ 
  *     Expression de requête SQL
  **/
 function spip_mysql_in($val, $valeurs, $not = '', $serveur = '', $requeter = true) {
-	return "($val $not IN ($valeurs))";
+    return "($val $not IN ($valeurs))";
 }
 
 
@@ -1702,39 +1702,39 @@ 
  * @return string|number     texte ou nombre échappé
  */
 function spip_mysql_cite($v, $type) {
-	if (!$type) {
-		if (is_bool($v)) {
-			return strval(intval($v));
-		} elseif (is_numeric($v)) {
-			return strval($v);
-		} elseif ($v === null) {
-			return "''";
-		}
-		return "'" . addslashes($v) . "'";
-	}
-
-	if ($v === null) {
-		if (stripos($type, 'NOT NULL') === false) {
-			// null php se traduit en NULL SQL
-			return 'NULL';
-		} else {
-			return "''";
-		}
-	} elseif (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
-		return $v;
-	} elseif (sql_test_int($type)) {
-		if (
-			is_numeric($v)
-			or ($v and ctype_xdigit(substr($v, 2)) and $v[0] === '0' and $v[1] === 'x')
-		) {
-			return $v;
-		} else {
-			// si pas numerique, forcer le intval
-			return intval($v);
-		}
-	}
-
-	return ("'" . addslashes($v) . "'");
+    if (!$type) {
+        if (is_bool($v)) {
+            return strval(intval($v));
+        } elseif (is_numeric($v)) {
+            return strval($v);
+        } elseif ($v === null) {
+            return "''";
+        }
+        return "'" . addslashes($v) . "'";
+    }
+
+    if ($v === null) {
+        if (stripos($type, 'NOT NULL') === false) {
+            // null php se traduit en NULL SQL
+            return 'NULL';
+        } else {
+            return "''";
+        }
+    } elseif (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
+        return $v;
+    } elseif (sql_test_int($type)) {
+        if (
+            is_numeric($v)
+            or ($v and ctype_xdigit(substr($v, 2)) and $v[0] === '0' and $v[1] === 'x')
+        ) {
+            return $v;
+        } else {
+            // si pas numerique, forcer le intval
+            return intval($v);
+        }
+    }
+
+    return ("'" . addslashes($v) . "'");
 }
 
 /**
@@ -1744,7 +1744,7 @@ 
  *     True si on a les fonctions, false sinon
  */
 function spip_versions_mysql() {
-	return function_exists('mysqli_query');
+    return function_exists('mysqli_query');
 }
 
 
@@ -1757,20 +1757,20 @@ 
  *     - chaîne : code compilé pour le faire désactiver par SPIP sinon
  */
 function test_rappel_nom_base_mysql($server_db) {
-	$GLOBALS['mysql_rappel_nom_base'] = true;
-	sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
-	$ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
+    $GLOBALS['mysql_rappel_nom_base'] = true;
+    sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    $ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
 
-	if ($ok) {
-		sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    if ($ok) {
+        sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
 
-		return '';
-	} else {
-		$GLOBALS['mysql_rappel_nom_base'] = false;
+        return '';
+    } else {
+        $GLOBALS['mysql_rappel_nom_base'] = false;
 
-		return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
-		"/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
-	}
+        return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
+        "/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
+    }
 }
 
 /**
@@ -1784,13 +1784,13 @@ 
  *     - chaîne : code compilé pour l'indiquer le résultat du test à SPIP
  */
 function test_sql_mode_mysql($server_db) {
-	$res = sql_select('version() as v', '', '', '', '', '', '', $server_db);
-	$row = sql_fetch($res, $server_db);
-	if (version_compare($row['v'], '5.0.0', '>=')) {
-		defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
+    $res = sql_select('version() as v', '', '', '', '', '', '', $server_db);
+    $row = sql_fetch($res, $server_db);
+    if (version_compare($row['v'], '5.0.0', '>=')) {
+        defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
 
-		return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
-	}
+        return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
+    }
 
-	return '';
+    return '';
 }

ecrire/req/pg.exp.php

Indentation +1177 added lines, -1177 removed lines

@@ -18,7 +18,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 define('_DEFAULT_DB', 'spip');
@@ -31,159 +31,159 @@ 
 // si ca ne marche toujours pas, echec.
 
 function req_pg_dist($addr, $port, $login, $pass, $db = '', $prefixe = '') {
-	static $last_connect = [];
-	if (!extension_loaded('pgsql')) {
-		return false;
-	}
-
-	// si provient de selectdb
-	if (empty($addr) && empty($port) && empty($login) && empty($pass)) {
-		foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
-			${$a} = $last_connect[$a];
-		}
-	}
-	[$host, $p] = array_pad(explode(';', $addr), 2, null);
-	if ($p > 0) {
-		$port = " port=$p";
-	} else {
-		$port = '';
-	}
-	$erreurs = [];
-	if ($db) {
-		@$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-	} elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-		$erreurs[] = pg_last_error();
-		if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-			$db = $login;
-		} else {
-			$erreurs[] = pg_last_error();
-			$db = _DEFAULT_DB;
-			$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-		}
-	}
-	if (!$link) {
-		$erreurs[] = pg_last_error();
-		foreach ($erreurs as $e) {
-			spip_log('Echec pg_connect. Erreur : ' . $e, 'pg.' . _LOG_HS);
-		}
-
-		return false;
-	}
-
-	if ($link) {
-		$last_connect = [
-			'addr' => $addr,
-			'port' => $port,
-			'login' => $login,
-			'pass' => $pass,
-			'db' => $db,
-			'prefixe' => $prefixe,
-		];
-	}
-
-	spip_log(
-		"Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),
-		'pg.' . _LOG_DEBUG
-	);
-
-	return !$link ? false : [
-		'db' => $db,
-		'prefixe' => $prefixe ?: $db,
-		'link' => $link,
-	];
+    static $last_connect = [];
+    if (!extension_loaded('pgsql')) {
+        return false;
+    }
+
+    // si provient de selectdb
+    if (empty($addr) && empty($port) && empty($login) && empty($pass)) {
+        foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
+            ${$a} = $last_connect[$a];
+        }
+    }
+    [$host, $p] = array_pad(explode(';', $addr), 2, null);
+    if ($p > 0) {
+        $port = " port=$p";
+    } else {
+        $port = '';
+    }
+    $erreurs = [];
+    if ($db) {
+        @$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+    } elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+        $erreurs[] = pg_last_error();
+        if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+            $db = $login;
+        } else {
+            $erreurs[] = pg_last_error();
+            $db = _DEFAULT_DB;
+            $link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+        }
+    }
+    if (!$link) {
+        $erreurs[] = pg_last_error();
+        foreach ($erreurs as $e) {
+            spip_log('Echec pg_connect. Erreur : ' . $e, 'pg.' . _LOG_HS);
+        }
+
+        return false;
+    }
+
+    if ($link) {
+        $last_connect = [
+            'addr' => $addr,
+            'port' => $port,
+            'login' => $login,
+            'pass' => $pass,
+            'db' => $db,
+            'prefixe' => $prefixe,
+        ];
+    }
+
+    spip_log(
+        "Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),
+        'pg.' . _LOG_DEBUG
+    );
+
+    return !$link ? false : [
+        'db' => $db,
+        'prefixe' => $prefixe ?: $db,
+        'link' => $link,
+    ];
 }
 
 $GLOBALS['spip_pg_functions_1'] = [
-	'alter' => 'spip_pg_alter',
-	'count' => 'spip_pg_count',
-	'countsel' => 'spip_pg_countsel',
-	'create' => 'spip_pg_create',
-	'create_base' => 'spip_pg_create_base',
-	'create_view' => 'spip_pg_create_view',
-	'date_proche' => 'spip_pg_date_proche',
-	'delete' => 'spip_pg_delete',
-	'drop_table' => 'spip_pg_drop_table',
-	'drop_view' => 'spip_pg_drop_view',
-	'errno' => 'spip_pg_errno',
-	'error' => 'spip_pg_error',
-	'explain' => 'spip_pg_explain',
-	'fetch' => 'spip_pg_fetch',
-	'seek' => 'spip_pg_seek',
-	'free' => 'spip_pg_free',
-	'hex' => 'spip_pg_hex',
-	'in' => 'spip_pg_in',
-	'insert' => 'spip_pg_insert',
-	'insertq' => 'spip_pg_insertq',
-	'insertq_multi' => 'spip_pg_insertq_multi',
-	'listdbs' => 'spip_pg_listdbs',
-	'multi' => 'spip_pg_multi',
-	'optimize' => 'spip_pg_optimize',
-	'query' => 'spip_pg_query',
-	'quote' => 'spip_pg_quote',
-	'replace' => 'spip_pg_replace',
-	'replace_multi' => 'spip_pg_replace_multi',
-	'select' => 'spip_pg_select',
-	'selectdb' => 'spip_pg_selectdb',
-	'set_connect_charset' => 'spip_pg_set_connect_charset',
-	'showbase' => 'spip_pg_showbase',
-	'showtable' => 'spip_pg_showtable',
-	'update' => 'spip_pg_update',
-	'updateq' => 'spip_pg_updateq',
+    'alter' => 'spip_pg_alter',
+    'count' => 'spip_pg_count',
+    'countsel' => 'spip_pg_countsel',
+    'create' => 'spip_pg_create',
+    'create_base' => 'spip_pg_create_base',
+    'create_view' => 'spip_pg_create_view',
+    'date_proche' => 'spip_pg_date_proche',
+    'delete' => 'spip_pg_delete',
+    'drop_table' => 'spip_pg_drop_table',
+    'drop_view' => 'spip_pg_drop_view',
+    'errno' => 'spip_pg_errno',
+    'error' => 'spip_pg_error',
+    'explain' => 'spip_pg_explain',
+    'fetch' => 'spip_pg_fetch',
+    'seek' => 'spip_pg_seek',
+    'free' => 'spip_pg_free',
+    'hex' => 'spip_pg_hex',
+    'in' => 'spip_pg_in',
+    'insert' => 'spip_pg_insert',
+    'insertq' => 'spip_pg_insertq',
+    'insertq_multi' => 'spip_pg_insertq_multi',
+    'listdbs' => 'spip_pg_listdbs',
+    'multi' => 'spip_pg_multi',
+    'optimize' => 'spip_pg_optimize',
+    'query' => 'spip_pg_query',
+    'quote' => 'spip_pg_quote',
+    'replace' => 'spip_pg_replace',
+    'replace_multi' => 'spip_pg_replace_multi',
+    'select' => 'spip_pg_select',
+    'selectdb' => 'spip_pg_selectdb',
+    'set_connect_charset' => 'spip_pg_set_connect_charset',
+    'showbase' => 'spip_pg_showbase',
+    'showtable' => 'spip_pg_showtable',
+    'update' => 'spip_pg_update',
+    'updateq' => 'spip_pg_updateq',
 ];
 
 // Par ou ca passe une fois les traductions faites
 function spip_pg_trace_query($query, $serveur = '') {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-		$e = '';
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	$r = spip_pg_query_simple($link, $query);
-
-	// Log de l'erreur eventuelle
-	if ($e = spip_pg_errno($serveur)) {
-		$e .= spip_pg_error($query, $serveur);
-	} // et du fautif
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+        $e = '';
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    $r = spip_pg_query_simple($link, $query);
+
+    // Log de l'erreur eventuelle
+    if ($e = spip_pg_errno($serveur)) {
+        $e .= spip_pg_error($query, $serveur);
+    } // et du fautif
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 // Fonction de requete generale quand on est sur que c'est SQL standard.
 // Elle change juste le noms des tables ($table_prefix) dans le FROM etc
 
 function spip_pg_query($query, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
-		$suite = strstr($query, (string) $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-	} else {
-		$suite = '';
-	}
-	$query = preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', $query) . $suite;
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
-
-	return spip_pg_trace_query($query, $serveur);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
+        $suite = strstr($query, (string) $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+    } else {
+        $suite = '';
+    }
+    $query = preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', $query) . $suite;
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
+
+    return spip_pg_trace_query($query, $serveur);
 }
 
 function spip_pg_query_simple($link, $query) {
-	#spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
-	return pg_query($link, $query);
+    #spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
+    return pg_query($link, $query);
 }
 
 /*
@@ -195,196 +195,196 @@ 
  * de requetes showtable intempestives
  */
 function spip_pg_ajouter_champs_timestamp($table, $couples, $desc = '', $serveur = '') {
-	static $tables = [];
-
-	if (!isset($tables[$table])) {
-		if (!$desc) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table, $serveur);
-			// si pas de description, on ne fait rien, ou on die() ?
-			if (!$desc) {
-				return $couples;
-			}
-		}
-
-		// recherche des champs avec simplement 'TIMESTAMP'
-		// cependant, il faudra peut etre etendre
-		// avec la gestion de DEFAULT et ON UPDATE
-		// mais ceux-ci ne sont pas utilises dans le core
-		$tables[$table] = [];
-		foreach ($desc['field'] as $k => $v) {
-			$v = strtolower(ltrim($v));
-			// ne pas ajouter de timestamp now() si un default est specifie
-			if (strpos($v, 'timestamp') === 0 and !str_contains($v, 'default')) {
-				$tables[$table][] = $k;
-			}
-		}
-	}
-
-	// ajout des champs type 'timestamp' absents
-	foreach ($tables[$table] as $maj) {
-		if (!array_key_exists($maj, $couples)) {
-			$couples[$maj] = 'NOW()';
-		}
-	}
-
-	return $couples;
+    static $tables = [];
+
+    if (!isset($tables[$table])) {
+        if (!$desc) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table, $serveur);
+            // si pas de description, on ne fait rien, ou on die() ?
+            if (!$desc) {
+                return $couples;
+            }
+        }
+
+        // recherche des champs avec simplement 'TIMESTAMP'
+        // cependant, il faudra peut etre etendre
+        // avec la gestion de DEFAULT et ON UPDATE
+        // mais ceux-ci ne sont pas utilises dans le core
+        $tables[$table] = [];
+        foreach ($desc['field'] as $k => $v) {
+            $v = strtolower(ltrim($v));
+            // ne pas ajouter de timestamp now() si un default est specifie
+            if (strpos($v, 'timestamp') === 0 and !str_contains($v, 'default')) {
+                $tables[$table][] = $k;
+            }
+        }
+    }
+
+    // ajout des champs type 'timestamp' absents
+    foreach ($tables[$table] as $maj) {
+        if (!array_key_exists($maj, $couples)) {
+            $couples[$maj] = 'NOW()';
+        }
+    }
+
+    return $couples;
 }
 
 
 // Alter en PG ne traite pas les index
 function spip_pg_alter($query, $serveur = '', $requeter = true) {
-	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
-	// tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"...
-	// ou revoir l'api de sql_alter en creant un
-	// sql_alter_table($table,array($actions));
-	if (!preg_match('/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
-		spip_log("$query mal comprise", 'pg.' . _LOG_ERREUR);
-
-		return false;
-	}
-	$debut = $regs[1];
-	$table = $regs[3];
-	$suite = $regs[4];
-	$todo = explode(',', $suite);
-	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = [];
-	$i = 0;
-	$ouverte = false;
-	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
-		$o = (str_contains($do, '('));
-		$f = (str_contains($do, ')'));
-		if ($o and !$f) {
-			$ouverte = true;
-		} elseif ($f) {
-			$ouverte = false;
-		}
-		if (!$ouverte) {
-			$i++;
-		}
-	}
-	$todo = $todo2;
-	$query = $debut . ' ' . array_shift($todo);
-
-	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
-		spip_log("$query incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		if ($r[1]) {
-			spip_log("j'ignore IGNORE dans $query", 'pg.' . _LOG_AVERTISSEMENT);
-		}
-		$f = 'spip_pg_alter_' . strtolower($r[3]);
-		if (function_exists($f)) {
-			$f($r[2], $r[4], $serveur, $requeter);
-		} else {
-			spip_log("$query non prevu", 'pg.' . _LOG_ERREUR);
-		}
-	}
-	// Alter a plusieurs args. Faudrait optimiser.
-	if ($todo) {
-		spip_pg_alter("TABLE $table " . join(',', $todo));
-	}
+    // il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
+    // tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"...
+    // ou revoir l'api de sql_alter en creant un
+    // sql_alter_table($table,array($actions));
+    if (!preg_match('/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
+        spip_log("$query mal comprise", 'pg.' . _LOG_ERREUR);
+
+        return false;
+    }
+    $debut = $regs[1];
+    $table = $regs[3];
+    $suite = $regs[4];
+    $todo = explode(',', $suite);
+    // on remet les morceaux dechires ensembles... que c'est laid !
+    $todo2 = [];
+    $i = 0;
+    $ouverte = false;
+    while ($do = array_shift($todo)) {
+        $todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+        $o = (str_contains($do, '('));
+        $f = (str_contains($do, ')'));
+        if ($o and !$f) {
+            $ouverte = true;
+        } elseif ($f) {
+            $ouverte = false;
+        }
+        if (!$ouverte) {
+            $i++;
+        }
+    }
+    $todo = $todo2;
+    $query = $debut . ' ' . array_shift($todo);
+
+    if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
+        spip_log("$query incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        if ($r[1]) {
+            spip_log("j'ignore IGNORE dans $query", 'pg.' . _LOG_AVERTISSEMENT);
+        }
+        $f = 'spip_pg_alter_' . strtolower($r[3]);
+        if (function_exists($f)) {
+            $f($r[2], $r[4], $serveur, $requeter);
+        } else {
+            spip_log("$query non prevu", 'pg.' . _LOG_ERREUR);
+        }
+    }
+    // Alter a plusieurs args. Faudrait optimiser.
+    if ($todo) {
+        spip_pg_alter("TABLE $table " . join(',', $todo));
+    }
 }
 
 function spip_pg_alter_change($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', $arg, $r)) {
-		spip_log("alter change: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		[, $old, $new, $type, $default, $null, $def2] = $r;
-		$actions = ["ALTER $old TYPE " . mysql2pg_type($type)];
-		if ($null) {
-			$actions[] = "ALTER $old SET NOT NULL";
-		} else {
-			$actions[] = "ALTER $old DROP NOT NULL";
-		}
-
-		if ($d = ($default ?: $def2)) {
-			$actions[] = "ALTER $old SET $d";
-		} else {
-			$actions[] = "ALTER $old DROP DEFAULT";
-		}
-
-		spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
-
-		if ($old != $new) {
-			spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
-		}
-	}
+    if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', $arg, $r)) {
+        spip_log("alter change: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        [, $old, $new, $type, $default, $null, $def2] = $r;
+        $actions = ["ALTER $old TYPE " . mysql2pg_type($type)];
+        if ($null) {
+            $actions[] = "ALTER $old SET NOT NULL";
+        } else {
+            $actions[] = "ALTER $old DROP NOT NULL";
+        }
+
+        if ($d = ($default ?: $def2)) {
+            $actions[] = "ALTER $old SET $d";
+        } else {
+            $actions[] = "ALTER $old DROP DEFAULT";
+        }
+
+        spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
+
+        if ($old != $new) {
+            spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
+        }
+    }
 }
 
 function spip_pg_alter_add($table, $arg, $serveur = '', $requeter = true) {
-	$nom_index = null;
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', $arg, $r)) {
-		spip_log("alter add $arg  incompris", 'pg.' . _LOG_ERREUR);
-
-		return null;
-	}
-	if (!$r[1] or $r[1] == 'COLUMN') {
-		preg_match('/`?(\w+)`?(.*)/', $r[2], $m);
-		if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
-			$m[2] = $n[1];
-		}
-
-		return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]), $serveur, $requeter);
-	} elseif ($r[1][0] == 'P') {
-		// la primary peut etre sur plusieurs champs
-		$r[2] = trim(str_replace('`', '', $r[2]));
-		$m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
-
-		return spip_pg_query(
-			"ALTER TABLE $table ADD CONSTRAINT $table" . '_pkey PRIMARY KEY (' . $m . ')',
-			$serveur,
-			$requeter
-		);
-	} else {
-		preg_match('/([^\s,]*)\s*(.*)?/', $r[2], $m);
-		// peut etre "(colonne)" ou "nom_index (colonnes)"
-		// bug potentiel si qqn met "(colonne, colonne)"
-		//
-		// nom_index (colonnes)
-		if ($m[2]) {
-			$colonnes = substr($m[2], 1, -1);
-			$nom_index = $m[1];
-		} else {
-			// (colonne)
-			if ($m[1][0] == '(') {
-				$colonnes = substr($m[1], 1, -1);
-				if (str_contains(',', $colonnes)) {
-					spip_log('PG : Erreur, impossible de creer un index sur plusieurs colonnes'
-						. " sans qu'il ait de nom ($table, ($colonnes))", 'pg.' . _LOG_ERREUR);
-				} else {
-					$nom_index = $colonnes;
-				}
-			} // nom_index
-			else {
-				$nom_index = $colonnes = $m[1];
-			}
-		}
-
-		return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
-	}
+    $nom_index = null;
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', $arg, $r)) {
+        spip_log("alter add $arg  incompris", 'pg.' . _LOG_ERREUR);
+
+        return null;
+    }
+    if (!$r[1] or $r[1] == 'COLUMN') {
+        preg_match('/`?(\w+)`?(.*)/', $r[2], $m);
+        if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
+            $m[2] = $n[1];
+        }
+
+        return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]), $serveur, $requeter);
+    } elseif ($r[1][0] == 'P') {
+        // la primary peut etre sur plusieurs champs
+        $r[2] = trim(str_replace('`', '', $r[2]));
+        $m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
+
+        return spip_pg_query(
+            "ALTER TABLE $table ADD CONSTRAINT $table" . '_pkey PRIMARY KEY (' . $m . ')',
+            $serveur,
+            $requeter
+        );
+    } else {
+        preg_match('/([^\s,]*)\s*(.*)?/', $r[2], $m);
+        // peut etre "(colonne)" ou "nom_index (colonnes)"
+        // bug potentiel si qqn met "(colonne, colonne)"
+        //
+        // nom_index (colonnes)
+        if ($m[2]) {
+            $colonnes = substr($m[2], 1, -1);
+            $nom_index = $m[1];
+        } else {
+            // (colonne)
+            if ($m[1][0] == '(') {
+                $colonnes = substr($m[1], 1, -1);
+                if (str_contains(',', $colonnes)) {
+                    spip_log('PG : Erreur, impossible de creer un index sur plusieurs colonnes'
+                        . " sans qu'il ait de nom ($table, ($colonnes))", 'pg.' . _LOG_ERREUR);
+                } else {
+                    $nom_index = $colonnes;
+                }
+            } // nom_index
+            else {
+                $nom_index = $colonnes = $m[1];
+            }
+        }
+
+        return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
+    }
 }
 
 function spip_pg_alter_drop($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r)) {
-		spip_log("alter drop: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		if (!$r[1] or $r[1] == 'COLUMN') {
-			return spip_pg_query("ALTER TABLE $table DROP " . $r[2], $serveur);
-		} elseif ($r[1][0] == 'P') {
-			return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
-		} else {
-			return spip_pg_query('DROP INDEX ' . $table . '_' . $r[2], $serveur);
-		}
-	}
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r)) {
+        spip_log("alter drop: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        if (!$r[1] or $r[1] == 'COLUMN') {
+            return spip_pg_query("ALTER TABLE $table DROP " . $r[2], $serveur);
+        } elseif ($r[1][0] == 'P') {
+            return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+        } else {
+            return spip_pg_query('DROP INDEX ' . $table . '_' . $r[2], $serveur);
+        }
+    }
 }
 
 function spip_pg_alter_modify($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^`?(\w+)`?\s+(.*)$/', $arg, $r)) {
-		spip_log("alter modify: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		return spip_pg_alter_change($table, $r[1] . ' ' . $arg, $serveur = '', $requeter = true);
-	}
+    if (!preg_match('/^`?(\w+)`?\s+(.*)$/', $arg, $r)) {
+        spip_log("alter modify: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        return spip_pg_alter_change($table, $r[1] . ' ' . $arg, $serveur = '', $requeter = true);
+    }
 }
 
 // attention (en pg) :
@@ -392,17 +392,17 @@ 
 // - alter table A rename X to Y = changer le nom de la colonne X en Y
 // pour l'instant, traiter simplement RENAME TO X
 function spip_pg_alter_rename($table, $arg, $serveur = '', $requeter = true) {
-	$rename = '';
-	// si TO, mais pas au debut
-	if (!stripos($arg, 'TO ')) {
-		$rename = $arg;
-	} elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
-		$rename = $r[2];
-	} else {
-		spip_log("alter rename: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	}
-
-	return $rename ? spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
+    $rename = '';
+    // si TO, mais pas au debut
+    if (!stripos($arg, 'TO ')) {
+        $rename = $arg;
+    } elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
+        $rename = $r[2];
+    } else {
+        spip_log("alter rename: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    }
+
+    return $rename ? spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
 }
 
 
@@ -418,59 +418,59 @@ 
  * @return bool ou requete
  */
 function spip_pg_create_index($nom, $table, $champs, $serveur = '', $requeter = true) {
-	if (!($nom or $table or $champs)) {
-		spip_log(
-			"Champ manquant pour creer un index pg ($nom, $table, (" . @join(',', $champs) . '))',
-			'pg.' . _LOG_ERREUR
-		);
-
-		return false;
-	}
-
-	$nom = str_replace('`', '', $nom);
-	$champs = str_replace('`', '', $champs);
-
-	// PG ne differentie pas noms des index en fonction des tables
-	// il faut donc creer des noms uniques d'index pour une base pg
-	$nom = $table . '_' . $nom;
-	// enlever d'eventuelles parentheses deja presentes sur champs
-	if (!is_array($champs)) {
-		if ($champs[0] == '(') {
-			$champs = substr($champs, 1, -1);
-		}
-		$champs = [$champs];
-	}
-	$query = "CREATE INDEX $nom ON $table (" . join(',', $champs) . ')';
-	if (!$requeter) {
-		return $query;
-	}
-	$res = spip_pg_query($query, $serveur, $requeter);
-
-	return $res;
+    if (!($nom or $table or $champs)) {
+        spip_log(
+            "Champ manquant pour creer un index pg ($nom, $table, (" . @join(',', $champs) . '))',
+            'pg.' . _LOG_ERREUR
+        );
+
+        return false;
+    }
+
+    $nom = str_replace('`', '', $nom);
+    $champs = str_replace('`', '', $champs);
+
+    // PG ne differentie pas noms des index en fonction des tables
+    // il faut donc creer des noms uniques d'index pour une base pg
+    $nom = $table . '_' . $nom;
+    // enlever d'eventuelles parentheses deja presentes sur champs
+    if (!is_array($champs)) {
+        if ($champs[0] == '(') {
+            $champs = substr($champs, 1, -1);
+        }
+        $champs = [$champs];
+    }
+    $query = "CREATE INDEX $nom ON $table (" . join(',', $champs) . ')';
+    if (!$requeter) {
+        return $query;
+    }
+    $res = spip_pg_query($query, $serveur, $requeter);
+
+    return $res;
 }
 
 
 function spip_pg_explain($query, $serveur = '', $requeter = true) {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return [];
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
-		$suite = strstr($query, (string) $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-	} else {
-		$suite = '';
-	}
-	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', $query) . $suite;
-
-	if (!$requeter) {
-		return $query;
-	}
-	$r = spip_pg_query_simple($link, $query);
-
-	return spip_pg_fetch($r, null, $serveur);
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return [];
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
+        $suite = strstr($query, (string) $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+    } else {
+        $suite = '';
+    }
+    $query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', $query) . $suite;
+
+    if (!$requeter) {
+        return $query;
+    }
+    $r = spip_pg_query_simple($link, $query);
+
+    return spip_pg_fetch($r, null, $serveur);
 }
 
 
@@ -489,92 +489,92 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_pg_selectdb($db, $serveur = '', $requeter = true) {
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ? strtolower($serveur) : 0;
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ? strtolower($serveur) : 0;
 
-	if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')) {
-		if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
-			return $db;
-		}
-	}
+    if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')) {
+        if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
+            return $db;
+        }
+    }
 
-	return false;
+    return false;
 }
 
 // Qu'une seule base pour le moment
 
 function spip_pg_listdbs($serveur) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$dbs = [];
-	$res = spip_pg_query_simple($link, 'select * From pg_database');
-	while ($row = pg_fetch_array($res, null, PGSQL_NUM)) {
-		$dbs[] = reset($row);
-	}
-
-	return $dbs;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $dbs = [];
+    $res = spip_pg_query_simple($link, 'select * From pg_database');
+    while ($row = pg_fetch_array($res, null, PGSQL_NUM)) {
+        $dbs[] = reset($row);
+    }
+
+    return $dbs;
 }
 
 function spip_pg_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = [],
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = [],
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$limit = preg_match('/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/', $limit, $limatch);
-	if ($limit) {
-		$offset = $limatch[2];
-		$count = $limatch[3];
-	}
-
-	$select = spip_pg_frommysql($select);
-
-	// si pas de tri explicitement demande, le GROUP BY ne
-	// contient que la clef primaire.
-	// lui ajouter alors le champ de tri par defaut
-	if (preg_match('/FIELD\(([a-z]+\.[a-z]+),/i', $orderby[0], $groupbyplus)) {
-		$groupby[] = $groupbyplus[1];
-	}
-
-	$orderby = spip_pg_orderby($orderby, $select);
-
-	if ($having) {
-		if (is_array($having)) {
-			$having = join("\n\tAND ", array_map('calculer_pg_where', $having));
-		}
-	}
-	$from = spip_pg_from($from, $prefixe);
-	$query = 'SELECT ' . $select
-		. (!$from ? '' : "\nFROM $from")
-		. (!$where ? '' : ("\nWHERE " . (!is_array($where) ? calculer_pg_where($where) : (join(
-			"\n\tAND ",
-			array_map('calculer_pg_where', $where)
-		)))))
-		. spip_pg_groupby($groupby, $from, $select)
-		. (!$having ? '' : "\nHAVING $having")
-		. ($orderby ? ("\nORDER BY $orderby") : '')
-		. (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
-
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) {
-		return $query;
-	}
-
-	$r = spip_pg_trace_query($query, $serveur);
-
-	return $r ?: $query;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $limit = preg_match('/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/', $limit, $limatch);
+    if ($limit) {
+        $offset = $limatch[2];
+        $count = $limatch[3];
+    }
+
+    $select = spip_pg_frommysql($select);
+
+    // si pas de tri explicitement demande, le GROUP BY ne
+    // contient que la clef primaire.
+    // lui ajouter alors le champ de tri par defaut
+    if (preg_match('/FIELD\(([a-z]+\.[a-z]+),/i', $orderby[0], $groupbyplus)) {
+        $groupby[] = $groupbyplus[1];
+    }
+
+    $orderby = spip_pg_orderby($orderby, $select);
+
+    if ($having) {
+        if (is_array($having)) {
+            $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
+        }
+    }
+    $from = spip_pg_from($from, $prefixe);
+    $query = 'SELECT ' . $select
+        . (!$from ? '' : "\nFROM $from")
+        . (!$where ? '' : ("\nWHERE " . (!is_array($where) ? calculer_pg_where($where) : (join(
+            "\n\tAND ",
+            array_map('calculer_pg_where', $where)
+        )))))
+        . spip_pg_groupby($groupby, $from, $select)
+        . (!$having ? '' : "\nHAVING $having")
+        . ($orderby ? ("\nORDER BY $orderby") : '')
+        . (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
+
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) {
+        return $query;
+    }
+
+    $r = spip_pg_trace_query($query, $serveur);
+
+    return $r ?: $query;
 ;
 }
 
@@ -582,26 +582,26 @@ 
 // car le reste de la requete utilise les alias (AS) systematiquement
 
 function spip_pg_from($from, $prefixe) {
-	if (is_array($from)) {
-		$from = spip_pg_select_as($from);
-	}
+    if (is_array($from)) {
+        $from = spip_pg_select_as($from);
+    }
 
-	return !$prefixe ? $from : preg_replace('/(\b)spip_/', '\1' . $prefixe . '_', $from);
+    return !$prefixe ? $from : preg_replace('/(\b)spip_/', '\1' . $prefixe . '_', $from);
 }
 
 function spip_pg_orderby($order, $select) {
-	$res = [];
-	$arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', $order));
-
-	foreach ($arg as $v) {
-		if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v . '/', $select, $m)) {
-			$res[] = $m[1];
-		} else {
-			$res[] = $v;
-		}
-	}
-
-	return spip_pg_frommysql(join(',', $res));
+    $res = [];
+    $arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', $order));
+
+    foreach ($arg as $v) {
+        if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v . '/', $select, $m)) {
+            $res[] = $m[1];
+        } else {
+            $res[] = $v;
+        }
+    }
+
+    return spip_pg_frommysql(join(',', $res));
 }
 
 // Conversion a l'arrach' des jointures MySQL en jointures PG
@@ -609,56 +609,56 @@ 
 // et pour enlever les repetitions (sans incidence de perf, mais ca fait sale)
 
 function spip_pg_groupby($groupby, $from, $select) {
-	$join = strpos($from, ',');
-	// ismplifier avant de decouper
-	if (is_string($select)) { // fct SQL sur colonne et constante apostrophee ==> la colonne
-	$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $select);
-	}
-
-	if ($join or $groupby) {
-		$join = is_array($select) ? $select : explode(', ', $select);
-	}
-	if ($join) {
-		// enlever les 0 as points, '', ...
-		foreach ($join as $k => $v) {
-			$v = str_replace('DISTINCT ', '', $v);
-			// fct SQL sur colonne et constante apostrophee ==> la colonne
-			$v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $v);
-			$v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/', '\\1', $v);
-			// resultat d'agregat ne sont pas a mettre dans le groupby
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i', '', $v);
-			// idem sans AS (fetch numerique)
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i', '', $v);
-			// des AS simples : on garde le cote droit du AS
-			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i', '\\1', $v);
-			// ne reste plus que les vrais colonnes, ou des constantes a virer
-			if (preg_match(',^[\'"],', $v) or is_numeric($v)) {
-				unset($join[$k]);
-			} else {
-				$join[$k] = trim($v);
-			}
-		}
-		$join = array_diff($join, ['']);
-		$join = implode(',', $join);
-	}
-	if (is_array($groupby)) {
-		$groupby = join(',', $groupby);
-	}
-	if ($join) {
-		$groupby = $groupby ? "$groupby, $join" : $join;
-	}
-	if (!$groupby) {
-		return '';
-	}
-
-	$groupby = spip_pg_frommysql($groupby);
-	// Ne pas mettre dans le Group-By des valeurs numeriques
-	// issue de prepare_recherche
-	$groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i', '', $groupby);
-	$groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i', '', $groupby);
-	$groupby = preg_replace('/\s+AS\s+\w+\s*/i', '', $groupby);
-
-	return "\nGROUP BY $groupby";
+    $join = strpos($from, ',');
+    // ismplifier avant de decouper
+    if (is_string($select)) { // fct SQL sur colonne et constante apostrophee ==> la colonne
+    $select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $select);
+    }
+
+    if ($join or $groupby) {
+        $join = is_array($select) ? $select : explode(', ', $select);
+    }
+    if ($join) {
+        // enlever les 0 as points, '', ...
+        foreach ($join as $k => $v) {
+            $v = str_replace('DISTINCT ', '', $v);
+            // fct SQL sur colonne et constante apostrophee ==> la colonne
+            $v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $v);
+            $v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/', '\\1', $v);
+            // resultat d'agregat ne sont pas a mettre dans le groupby
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i', '', $v);
+            // idem sans AS (fetch numerique)
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i', '', $v);
+            // des AS simples : on garde le cote droit du AS
+            $v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i', '\\1', $v);
+            // ne reste plus que les vrais colonnes, ou des constantes a virer
+            if (preg_match(',^[\'"],', $v) or is_numeric($v)) {
+                unset($join[$k]);
+            } else {
+                $join[$k] = trim($v);
+            }
+        }
+        $join = array_diff($join, ['']);
+        $join = implode(',', $join);
+    }
+    if (is_array($groupby)) {
+        $groupby = join(',', $groupby);
+    }
+    if ($join) {
+        $groupby = $groupby ? "$groupby, $join" : $join;
+    }
+    if (!$groupby) {
+        return '';
+    }
+
+    $groupby = spip_pg_frommysql($groupby);
+    // Ne pas mettre dans le Group-By des valeurs numeriques
+    // issue de prepare_recherche
+    $groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i', '', $groupby);
+    $groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i', '', $groupby);
+    $groupby = preg_replace('/\s+AS\s+\w+\s*/i', '', $groupby);
+
+    return "\nGROUP BY $groupby";
 }
 
 // Conversion des operateurs MySQL en PG
@@ -669,492 +669,492 @@ 
 // A ameliorer.
 
 function spip_pg_frommysql($arg) {
-	if (is_array($arg)) {
-		$arg = join(', ', $arg);
-	}
-
-	$res = spip_pg_fromfield($arg);
-
-	$res = preg_replace('/\brand[(][)]/i', 'random()', $res);
-
-	$res = preg_replace(
-		'/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
-		'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
-		$res
-	);
-	$res = preg_replace(
-		'/\b0[+]([a-zA-Z0-9_.]+)\s*/',
-		'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-		$res
-	);
-	$res = preg_replace(
-		'/\bconv[(]([^,]*)[^)]*[)]/i',
-		'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/UNIX_TIMESTAMP\s*[(]\s*[)]/',
-		' EXTRACT(epoch FROM NOW())',
-		$res
-	);
-
-	// la fonction md5(integer) n'est pas connu en pg
-	// il faut donc forcer les types en text (cas de md5(id_article))
-	$res = preg_replace(
-		'/md5\s*[(]([^)]*)[)]/i',
-		'MD5(CAST(\1 AS text))',
-		$res
-	);
-
-	$res = preg_replace(
-		'/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
-		' EXTRACT(epoch FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(day FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(month FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(year FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
-		' EXTRACT(day FROM \1 - \'0001-01-01\')',
-		$res
-	);
-
-	$res = preg_replace('/(EXTRACT[(][^ ]* FROM *)"([^"]*)"/', '\1\'\2\'', $res);
-
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
-
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
-
-	$res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
-	$res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
-	$res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
-
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
-
-	$res = preg_replace('/(timestamp .\d+)-00-/', '\1-01-', $res);
-	$res = preg_replace('/(timestamp .\d+-\d+)-00/', '\1-01', $res);
+    if (is_array($arg)) {
+        $arg = join(', ', $arg);
+    }
+
+    $res = spip_pg_fromfield($arg);
+
+    $res = preg_replace('/\brand[(][)]/i', 'random()', $res);
+
+    $res = preg_replace(
+        '/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
+        'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
+        $res
+    );
+    $res = preg_replace(
+        '/\b0[+]([a-zA-Z0-9_.]+)\s*/',
+        'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+        $res
+    );
+    $res = preg_replace(
+        '/\bconv[(]([^,]*)[^)]*[)]/i',
+        'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/UNIX_TIMESTAMP\s*[(]\s*[)]/',
+        ' EXTRACT(epoch FROM NOW())',
+        $res
+    );
+
+    // la fonction md5(integer) n'est pas connu en pg
+    // il faut donc forcer les types en text (cas de md5(id_article))
+    $res = preg_replace(
+        '/md5\s*[(]([^)]*)[)]/i',
+        'MD5(CAST(\1 AS text))',
+        $res
+    );
+
+    $res = preg_replace(
+        '/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
+        ' EXTRACT(epoch FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(day FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(month FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(year FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
+        ' EXTRACT(day FROM \1 - \'0001-01-01\')',
+        $res
+    );
+
+    $res = preg_replace('/(EXTRACT[(][^ ]* FROM *)"([^"]*)"/', '\1\'\2\'', $res);
+
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
+
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
+
+    $res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
+    $res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
+    $res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+
+    $res = preg_replace('/(timestamp .\d+)-00-/', '\1-01-', $res);
+    $res = preg_replace('/(timestamp .\d+-\d+)-00/', '\1-01', $res);
 # correct en theorie mais produit des debordements arithmetiques
 #	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)(timestamp *'[^']*' *[+-] *timestamp *'[^']*') *[)]/", '\2', $res);
-	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
-	$res = preg_replace('/\sLIKE\s+/', ' ILIKE ', $res);
+    $res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
+    $res = preg_replace('/\sLIKE\s+/', ' ILIKE ', $res);
 
-	return str_replace('REGEXP', '~', $res);
+    return str_replace('REGEXP', '~', $res);
 }
 
 function spip_pg_fromfield($arg) {
-	while (preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
-		preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
-		$res = '';
-		$n = 0;
-		$index = $m[2];
-		foreach ($r[1] as $v) {
-			$n++;
-			$res .= "\nwhen $index=$v then $n";
-		}
-		$arg = $m[1] . "case $res else 0 end "
-			. substr($arg, strlen($m[0]));
-	}
-
-	return $arg;
+    while (preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
+        preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
+        $res = '';
+        $n = 0;
+        $index = $m[2];
+        foreach ($r[1] as $v) {
+            $n++;
+            $res .= "\nwhen $index=$v then $n";
+        }
+        $arg = $m[1] . "case $res else 0 end "
+            . substr($arg, strlen($m[0]));
+    }
+
+    return $arg;
 }
 
 function calculer_pg_where($v) {
-	if (!is_array($v)) {
-		return spip_pg_frommysql($v);
-	}
-
-	$op = str_replace('REGEXP', '~', array_shift($v));
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = calculer_pg_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = calculer_pg_where(array_shift($v));
-			if ($n == 2) {
-				return "($arg $op $arg2)";
-			} else {
-				return "($arg $op ($arg2) : $v[0])";
-			}
-		}
-	}
+    if (!is_array($v)) {
+        return spip_pg_frommysql($v);
+    }
+
+    $op = str_replace('REGEXP', '~', array_shift($v));
+    if (!($n = count($v))) {
+        return $op;
+    } else {
+        $arg = calculer_pg_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = calculer_pg_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 
 function calculer_pg_expression($expression, $v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
+    if (empty($v)) {
+        return '';
+    }
 
-	$exp = "\n$expression ";
+    $exp = "\n$expression ";
 
-	if (!is_array($v)) {
-		$v = [$v];
-	}
+    if (!is_array($v)) {
+        $v = [$v];
+    }
 
-	if (strtoupper($join) === 'AND') {
-		return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
-	} else {
-		return $exp . join($join, $v);
-	}
+    if (strtoupper($join) === 'AND') {
+        return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
+    } else {
+        return $exp . join($join, $v);
+    }
 }
 
 function spip_pg_select_as($args) {
-	$argsas = '';
-	foreach ($args as $k => $v) {
-		if (substr($k, -1) == '@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$argsas .= '  ' . $v;
-		} else {
-			$as = '';
-			//  spip_log("$k : $v", _LOG_DEBUG);
-			if (!is_numeric($k)) {
-				if (preg_match('/\.(.*)$/', $k, $r)) {
-					$v = $k;
-				} elseif ($v != $k) {
-					$p = strpos($v, ' ');
-					if ($p) {
-						$v = substr($v, 0, $p) . " AS $k" . substr($v, $p);
-					} else {
-						$as = " AS $k";
-					}
-				}
-			}
-			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
-			// if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
-			$argsas .= ', ' . $v . $as;
-		}
-	}
-
-	return substr($argsas, 2);
+    $argsas = '';
+    foreach ($args as $k => $v) {
+        if (substr($k, -1) == '@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $argsas .= '  ' . $v;
+        } else {
+            $as = '';
+            //  spip_log("$k : $v", _LOG_DEBUG);
+            if (!is_numeric($k)) {
+                if (preg_match('/\.(.*)$/', $k, $r)) {
+                    $v = $k;
+                } elseif ($v != $k) {
+                    $p = strpos($v, ' ');
+                    if ($p) {
+                        $v = substr($v, 0, $p) . " AS $k" . substr($v, $p);
+                    } else {
+                        $as = " AS $k";
+                    }
+                }
+            }
+            // spip_log("subs $k : $v avec $as", _LOG_DEBUG);
+            // if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
+            $argsas .= ', ' . $v . $as;
+        }
+    }
+
+    return substr($argsas, 2);
 }
 
 function spip_pg_fetch($res, $t = '', $serveur = '', $requeter = true) {
 
-	if ($res) {
-		$res = pg_fetch_array($res, null, PGSQL_ASSOC);
-	}
+    if ($res) {
+        $res = pg_fetch_array($res, null, PGSQL_ASSOC);
+    }
 
-	return $res;
+    return $res;
 }
 
 function spip_pg_seek($r, $row_number, $serveur = '', $requeter = true) {
-	if ($r) {
-		return pg_result_seek($r, $row_number);
-	}
+    if ($r) {
+        return pg_result_seek($r, $row_number);
+    }
 }
 
 
 function spip_pg_countsel(
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-	$r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	if (!is_resource($r)) {
-		return 0;
-	}
-	[$c] = pg_fetch_array($r, null, PGSQL_NUM);
-
-	return $c;
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+    $r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    if (!is_resource($r)) {
+        return 0;
+    }
+    [$c] = pg_fetch_array($r, null, PGSQL_NUM);
+
+    return $c;
 }
 
 function spip_pg_count($res, $serveur = '', $requeter = true) {
-	return !$res ? 0 : pg_numrows($res);
+    return !$res ? 0 : pg_numrows($res);
 }
 
 function spip_pg_free($res, $serveur = '', $requeter = true) {
-	// rien a faire en postgres
+    // rien a faire en postgres
 }
 
 function spip_pg_delete($table, $where = '', $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
 
-	$query = calculer_pg_expression('DELETE FROM', $table, ',')
-		. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('DELETE FROM', $table, ',')
+        . calculer_pg_expression('WHERE', $where, 'AND');
 
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
 
-	$res = spip_pg_trace_query($query, $serveur);
-	if ($res) {
-		return pg_affected_rows($res);
-	} else {
-		return false;
-	}
+    $res = spip_pg_trace_query($query, $serveur);
+    if ($res) {
+        return pg_affected_rows($res);
+    } else {
+        return false;
+    }
 }
 
 function spip_pg_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	$seq = spip_pg_sequence($table, true);
-	// si pas de cle primaire dans l'insertion, renvoyer curval
-	if (!preg_match(",\b$seq\b,", $champs)) {
-		$seq = spip_pg_sequence($table);
-		$seq = prefixer_table_spip($seq, $prefixe);
-		$seq = "currval('$seq')";
-	}
-
-	$table = prefixer_table_spip($table, $prefixe);
-	$ret = !$seq ? '' : (" RETURNING $seq");
-	$ins = (strlen($champs) < 3)
-		? ' DEFAULT VALUES'
-		: "$champs VALUES $valeurs";
-	$q = "INSERT INTO $table $ins $ret";
-	if (!$requeter) {
-		return $q;
-	}
-	$connexion['last'] = $q;
-	$r = spip_pg_query_simple($link, $q);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    $seq = spip_pg_sequence($table, true);
+    // si pas de cle primaire dans l'insertion, renvoyer curval
+    if (!preg_match(",\b$seq\b,", $champs)) {
+        $seq = spip_pg_sequence($table);
+        $seq = prefixer_table_spip($seq, $prefixe);
+        $seq = "currval('$seq')";
+    }
+
+    $table = prefixer_table_spip($table, $prefixe);
+    $ret = !$seq ? '' : (" RETURNING $seq");
+    $ins = (strlen($champs) < 3)
+        ? ' DEFAULT VALUES'
+        : "$champs VALUES $valeurs";
+    $q = "INSERT INTO $table $ins $ret";
+    if (!$requeter) {
+        return $q;
+    }
+    $connexion['last'] = $q;
+    $r = spip_pg_query_simple($link, $q);
 #	spip_log($q,'pg.'._LOG_DEBUG);
-	if ($r) {
-		if (!$ret) {
-			return 0;
-		}
-		if ($r2 = pg_fetch_array($r, null, PGSQL_NUM)) {
-			return $r2[0];
-		}
-	}
-
-	return false;
+    if ($r) {
+        if (!$ret) {
+            return 0;
+        }
+        if ($r2 = pg_fetch_array($r, null, PGSQL_NUM)) {
+            return $r2[0];
+        }
+    }
+
+    return false;
 }
 
 function spip_pg_insertq($table, $couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	return spip_pg_insert(
-		$table,
-		'(' . join(',', array_keys($couples)) . ')',
-		'(' . join(',', $couples) . ')',
-		$desc,
-		$serveur,
-		$requeter
-	);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = spip_pg_cite($val, $fields[$champ]);
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+    return spip_pg_insert(
+        $table,
+        '(' . join(',', array_keys($couples)) . ')',
+        '(' . join(',', $couples) . ')',
+        $desc,
+        $serveur,
+        $requeter
+    );
 }
 
 
 function spip_pg_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'] ?? [];
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	// une premiere fois pour ajouter maj dans les cles
-	$c = $tab_couples[0] ?? [];
-	$les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
-
-	$cles = '(' . join(',', array_keys($les_cles)) . ')';
-	$valeurs = [];
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
-		}
-		// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-		$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-		$valeurs[] = '(' . join(',', $couples) . ')';
-	}
-	$valeurs = implode(', ', $valeurs);
-
-	return spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'] ?? [];
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    // une premiere fois pour ajouter maj dans les cles
+    $c = $tab_couples[0] ?? [];
+    $les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
+
+    $cles = '(' . join(',', array_keys($les_cles)) . ')';
+    $valeurs = [];
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = spip_pg_cite($val, $fields[$champ]);
+        }
+        // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+        $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+        $valeurs[] = '(' . join(',', $couples) . ')';
+    }
+    $valeurs = implode(', ', $valeurs);
+
+    return spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
 function spip_pg_update($table, $couples, $where = '', $desc = '', $serveur = '', $requeter = true) {
 
-	if (!$couples) {
-		return;
-	}
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
+    if (!$couples) {
+        return;
+    }
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
 
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-	$set = [];
-	foreach ($couples as $champ => $val) {
-		$set[] = $champ . '=' . $val;
-	}
+    $set = [];
+    foreach ($couples as $champ => $val) {
+        $set[] = $champ . '=' . $val;
+    }
 
-	$query = calculer_pg_expression('UPDATE', $table, ',')
-		. calculer_pg_expression('SET', $set, ',')
-		. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('UPDATE', $table, ',')
+        . calculer_pg_expression('SET', $set, ',')
+        . calculer_pg_expression('WHERE', $where, 'AND');
 
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
 
-	return spip_pg_trace_query($query, $serveur);
+    return spip_pg_trace_query($query, $serveur);
 }
 
 // idem, mais les valeurs sont des constantes a mettre entre apostrophes
 // sauf les expressions de date lorsqu'il s'agit de fonctions SQL (NOW etc)
 function spip_pg_updateq($table, $couples, $where = '', $desc = [], $serveur = '', $requeter = true) {
-	if (!$couples) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	$fields = $desc['field'];
-	foreach ($couples as $k => $val) {
-		$couples[$k] = spip_pg_cite($val, $fields[$k]);
-	}
-
-	return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
+    if (!$couples) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    $fields = $desc['field'];
+    foreach ($couples as $k => $val) {
+        $couples[$k] = spip_pg_cite($val, $fields[$k]);
+    }
+
+    return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
 }
 
 
 function spip_pg_replace($table, $values, $desc, $serveur = '', $requeter = true) {
-	if (!$values) {
-		spip_log("replace vide $table", 'pg.' . _LOG_AVERTISSEMENT);
-
-		return 0;
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$prim = $desc['key']['PRIMARY KEY'];
-	$ids = preg_split('/,\s*/', $prim);
-	$noprims = $prims = [];
-	foreach ($values as $k => $v) {
-		$values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
-
-		if (!in_array($k, $ids)) {
-			$noprims[$k] = "$k=$v";
-		} else {
-			$prims[$k] = "$k=$v";
-		}
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
-
-	$where = join(' AND ', $prims);
-	if (!$where) {
-		return spip_pg_insert(
-			$table,
-			'(' . join(',', array_keys($values)) . ')',
-			'(' . join(',', $values) . ')',
-			$desc,
-			$serveur
-		);
-	}
-	$couples = join(',', $noprims);
-
-	$seq = spip_pg_sequence($table);
-	$table = prefixer_table_spip($table, $prefixe);
-	$seq = prefixer_table_spip($seq, $prefixe);
-
-	$connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
-	if ($couples) {
-		$couples = spip_pg_query_simple($link, $q);
+    if (!$values) {
+        spip_log("replace vide $table", 'pg.' . _LOG_AVERTISSEMENT);
+
+        return 0;
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $prim = $desc['key']['PRIMARY KEY'];
+    $ids = preg_split('/,\s*/', $prim);
+    $noprims = $prims = [];
+    foreach ($values as $k => $v) {
+        $values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
+
+        if (!in_array($k, $ids)) {
+            $noprims[$k] = "$k=$v";
+        } else {
+            $prims[$k] = "$k=$v";
+        }
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
+
+    $where = join(' AND ', $prims);
+    if (!$where) {
+        return spip_pg_insert(
+            $table,
+            '(' . join(',', array_keys($values)) . ')',
+            '(' . join(',', $values) . ')',
+            $desc,
+            $serveur
+        );
+    }
+    $couples = join(',', $noprims);
+
+    $seq = spip_pg_sequence($table);
+    $table = prefixer_table_spip($table, $prefixe);
+    $seq = prefixer_table_spip($seq, $prefixe);
+
+    $connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
+    if ($couples) {
+        $couples = spip_pg_query_simple($link, $q);
 #	  spip_log($q,'pg.'._LOG_DEBUG);
-		if (!$couples) {
-			return false;
-		}
-		$couples = pg_affected_rows($couples);
-	}
-	if (!$couples) {
-		$ret = !$seq ? '' :
-			(" RETURNING nextval('$seq') < $prim");
-		$connexion['last'] = $q = "INSERT INTO $table (" . join(',', array_keys($values)) . ') VALUES (' . join(
-			',',
-			$values
-		) . ")$ret";
-		$couples = spip_pg_query_simple($link, $q);
-		if (!$couples) {
-			return false;
-		} elseif ($ret) {
-			$r = pg_fetch_array($couples, null, PGSQL_NUM);
-			if ($r[0]) {
-				$connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
-				// Le code de SPIP met parfois la sequence a 0 (dans l'import)
-				// MySQL n'en dit rien, on fait pareil pour PG
-				$r = @pg_query($link, $q);
-			}
-		}
-	}
-
-	return $couples;
+        if (!$couples) {
+            return false;
+        }
+        $couples = pg_affected_rows($couples);
+    }
+    if (!$couples) {
+        $ret = !$seq ? '' :
+            (" RETURNING nextval('$seq') < $prim");
+        $connexion['last'] = $q = "INSERT INTO $table (" . join(',', array_keys($values)) . ') VALUES (' . join(
+            ',',
+            $values
+        ) . ")$ret";
+        $couples = spip_pg_query_simple($link, $q);
+        if (!$couples) {
+            return false;
+        } elseif ($ret) {
+            $r = pg_fetch_array($couples, null, PGSQL_NUM);
+            if ($r[0]) {
+                $connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
+                // Le code de SPIP met parfois la sequence a 0 (dans l'import)
+                // MySQL n'en dit rien, on fait pareil pour PG
+                $r = @pg_query($link, $q);
+            }
+        }
+    }
+
+    return $couples;
 }
 
 
 function spip_pg_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
-	$retour = null;
-	// boucler pour traiter chaque requete independemment
-	foreach ($tab_couples as $couples) {
-		$retour = spip_pg_replace($table, $couples, $desc, $serveur, $requeter);
-	}
-
-	// renvoie le dernier id
-	return $retour;
+    $retour = null;
+    // boucler pour traiter chaque requete independemment
+    foreach ($tab_couples as $couples) {
+        $retour = spip_pg_replace($table, $couples, $desc, $serveur, $requeter);
+    }
+
+    // renvoie le dernier id
+    return $retour;
 }
 
 
@@ -1163,149 +1163,149 @@ 
 
 function spip_pg_sequence($table, $raw = false) {
 
-	include_spip('base/serial');
-	if (!isset($GLOBALS['tables_principales'][$table])) {
-		return false;
-	}
-	$desc = $GLOBALS['tables_principales'][$table];
-	$prim = @$desc['key']['PRIMARY KEY'];
-	if (
-		!preg_match('/^\w+$/', $prim)
-		or !str_contains($desc['field'][$prim], 'int')
-	) {
-		return '';
-	} else {
-		return $raw ? $prim : $table . '_' . $prim . '_seq';
-	}
+    include_spip('base/serial');
+    if (!isset($GLOBALS['tables_principales'][$table])) {
+        return false;
+    }
+    $desc = $GLOBALS['tables_principales'][$table];
+    $prim = @$desc['key']['PRIMARY KEY'];
+    if (
+        !preg_match('/^\w+$/', $prim)
+        or !str_contains($desc['field'][$prim], 'int')
+    ) {
+        return '';
+    } else {
+        return $raw ? $prim : $table . '_' . $prim . '_seq';
+    }
 }
 
 // Explicite les conversions de Mysql d'une valeur $v de type $t
 // Dans le cas d'un champ date, pas d'apostrophe, c'est une syntaxe ad hoc
 
 function spip_pg_cite($v, $t) {
-	if (is_null($v)) {
-		return 'NULL';
-	} // null php se traduit en NULL SQL
-
-	if (sql_test_date($t)) {
-		if ($v and (strpos('0123456789', (string) $v[0]) === false)) {
-			return spip_pg_frommysql($v);
-		} else {
-			if (strncmp($v, '0000', 4) == 0) {
-				$v = '0001' . substr($v, 4);
-			}
-			if (strpos($v, '-00-00') === 4) {
-				$v = substr($v, 0, 4) . '-01-01' . substr($v, 10);
-			}
-
-			return "timestamp '$v'";
-		}
-	} elseif (!sql_test_int($t)) {
-		return ("'" . pg_escape_string($v) . "'");
-	} elseif (is_numeric($v) or (strpos($v, 'CAST(') === 0)) {
-		return $v;
-	} elseif ($v[0] == '0' and $v[1] !== 'x' and ctype_xdigit(substr($v, 1))) {
-		return substr($v, 1);
-	} else {
-		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.' . _LOG_AVERTISSEMENT);
-
-		return intval($v);
-	}
+    if (is_null($v)) {
+        return 'NULL';
+    } // null php se traduit en NULL SQL
+
+    if (sql_test_date($t)) {
+        if ($v and (strpos('0123456789', (string) $v[0]) === false)) {
+            return spip_pg_frommysql($v);
+        } else {
+            if (strncmp($v, '0000', 4) == 0) {
+                $v = '0001' . substr($v, 4);
+            }
+            if (strpos($v, '-00-00') === 4) {
+                $v = substr($v, 0, 4) . '-01-01' . substr($v, 10);
+            }
+
+            return "timestamp '$v'";
+        }
+    } elseif (!sql_test_int($t)) {
+        return ("'" . pg_escape_string($v) . "'");
+    } elseif (is_numeric($v) or (strpos($v, 'CAST(') === 0)) {
+        return $v;
+    } elseif ($v[0] == '0' and $v[1] !== 'x' and ctype_xdigit(substr($v, 1))) {
+        return substr($v, 1);
+    } else {
+        spip_log("Warning: '$v'  n'est pas de type $t", 'pg.' . _LOG_AVERTISSEMENT);
+
+        return intval($v);
+    }
 }
 
 function spip_pg_hex($v) {
-	return "CAST(x'" . $v . "' as bigint)";
+    return "CAST(x'" . $v . "' as bigint)";
 }
 
 function spip_pg_quote($v, $type = '') {
-	if (!is_array($v)) {
-		return spip_pg_cite($v, $type);
-	}
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_pg_quote($r, $type);
-	}
-
-	return join(',', $v);
+    if (!is_array($v)) {
+        return spip_pg_cite($v, $type);
+    }
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_pg_quote($r, $type);
+    }
+
+    return join(',', $v);
 }
 
 function spip_pg_date_proche($champ, $interval, $unite) {
-	return '('
-	. $champ
-	. (($interval <= 0) ? '>' : '<')
-	. (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. sql_quote(date('Y-m-d H:i:s'))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0 - $interval))
-	. ' '
-	. $unite
-	. '))';
+    return '('
+    . $champ
+    . (($interval <= 0) ? '>' : '<')
+    . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
+    . '('
+    . sql_quote(date('Y-m-d H:i:s'))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0 - $interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 function spip_pg_in($val, $valeurs, $not = '', $serveur = '') {
 //
 // IN (...) souvent limite a 255  elements, d'ou cette fonction assistante
 //
-	// s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
-	if (!$valeurs) {
-		return $not ? '0=0' : '0=1';
-	}
-	if (strpos($valeurs, "CAST(x'") !== false) {
-		return "($val=" . join("OR $val=", explode(',', $valeurs)) . ')';
-	}
-	$n = $i = 0;
-	$in_sql = '';
-	while ($n = strpos($valeurs, ',', $n + 1)) {
-		if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-				substr($valeurs, 0, $n) .
-				"))\n" .
-				($not ? "AND\t" : "OR\t");
-			$valeurs = substr($valeurs, $n + 1);
-			$i = $n = 0;
-		}
-	}
-	$in_sql .= "($val $not IN ($valeurs))";
-
-	return "($in_sql)";
+    // s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
+    if (!$valeurs) {
+        return $not ? '0=0' : '0=1';
+    }
+    if (strpos($valeurs, "CAST(x'") !== false) {
+        return "($val=" . join("OR $val=", explode(',', $valeurs)) . ')';
+    }
+    $n = $i = 0;
+    $in_sql = '';
+    while ($n = strpos($valeurs, ',', $n + 1)) {
+        if ((++$i) >= 255) {
+            $in_sql .= "($val $not IN (" .
+                substr($valeurs, 0, $n) .
+                "))\n" .
+                ($not ? "AND\t" : "OR\t");
+            $valeurs = substr($valeurs, $n + 1);
+            $i = $n = 0;
+        }
+    }
+    $in_sql .= "($val $not IN ($valeurs))";
+
+    return "($in_sql)";
 }
 
 function spip_pg_error($query = '', $serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
-	$s = $link ? pg_last_error($link) : pg_last_error();
-	if ($s) {
-		$s = str_replace('ERROR', 'errcode: 1000 ', $s);
-		spip_log("$s - $query", 'pg.' . _LOG_ERREUR);
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
+    $s = $link ? pg_last_error($link) : pg_last_error();
+    if ($s) {
+        $s = str_replace('ERROR', 'errcode: 1000 ', $s);
+        spip_log("$s - $query", 'pg.' . _LOG_ERREUR);
+    }
+
+    return $s;
 }
 
 function spip_pg_errno($serveur = '') {
-	// il faudrait avoir la derniere ressource retournee et utiliser
-	// http://fr2.php.net/manual/fr/function.pg-result-error.php
-	return 0;
+    // il faudrait avoir la derniere ressource retournee et utiliser
+    // http://fr2.php.net/manual/fr/function.pg-result-error.php
+    return 0;
 }
 
 function spip_pg_drop_table($table, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
-	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter)) {
-		return true;
-	} else {
-		return false;
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
+    if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+        return true;
+    } else {
+        return false;
+    }
 }
 
 // supprime une vue
 function spip_pg_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -1322,40 +1322,40 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_pg_showbase($match, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE ' . _q($match);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE ' . _q($match);
 
-	return spip_pg_query_simple($link, $q);
+    return spip_pg_query_simple($link, $q);
 }
 
 function spip_pg_showtable($nom_table, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE ' . _q($nom_table);
-
-	$res = spip_pg_query_simple($link, $q);
-	if (!$res) {
-		return false;
-	}
-
-	// etrangement, $res peut ne rien contenir, mais arriver ici...
-	// il faut en tenir compte dans le return
-	$fields = [];
-	while ($field = pg_fetch_array($res, null, PGSQL_NUM)) {
-		$fields[$field[0]] = $field[2] . (!$field[1] ? '' : (' DEFAULT ' . $field[1]));
-	}
-	$connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE ' . _q($nom_table);
-	$res = spip_pg_query_simple($link, $q);
-	$keys = [];
-	while ($index = pg_fetch_array($res, null, PGSQL_NUM)) {
-		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
-			$nom = str_replace($nom_table . '_', '', $r[2]);
-			$keys[($r[1] ? 'PRIMARY KEY' : ('KEY ' . $nom))] = $r[3];
-		}
-	}
-
-	return count($fields) ? ['field' => $fields, 'key' => $keys] : false;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE ' . _q($nom_table);
+
+    $res = spip_pg_query_simple($link, $q);
+    if (!$res) {
+        return false;
+    }
+
+    // etrangement, $res peut ne rien contenir, mais arriver ici...
+    // il faut en tenir compte dans le return
+    $fields = [];
+    while ($field = pg_fetch_array($res, null, PGSQL_NUM)) {
+        $fields[$field[0]] = $field[2] . (!$field[1] ? '' : (' DEFAULT ' . $field[1]));
+    }
+    $connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE ' . _q($nom_table);
+    $res = spip_pg_query_simple($link, $q);
+    $keys = [];
+    while ($index = pg_fetch_array($res, null, PGSQL_NUM)) {
+        if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
+            $nom = str_replace($nom_table . '_', '', $r[2]);
+            $keys[($r[1] ? 'PRIMARY KEY' : ('KEY ' . $nom))] = $r[3];
+        }
+    }
+
+    return count($fields) ? ['field' => $fields, 'key' => $keys] : false;
 }
 
 // Fonction de creation d'une table SQL nommee $nom
@@ -1366,116 +1366,116 @@ 
 // Le nom des index est prefixe par celui de la table pour eviter les conflits
 function spip_pg_create($nom, $champs, $cles, $autoinc = false, $temporary = false, $serveur = '', $requeter = true) {
 
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$nom = prefixer_table_spip($nom, $connexion['prefixe']);
-
-	$query = $prim = $prim_name = $v = $s = $p = '';
-	$keys = [];
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) {
-		return;
-	}
-
-	foreach ($cles as $k => $v) {
-		if (strpos($k, 'KEY ') === 0) {
-			$n = str_replace('`', '', $k);
-			$v = str_replace('`', '"', $v);
-			$i = $nom . preg_replace('/KEY +/', '_', $n);
-			if ($k != $n) {
-				$i = "\"$i\"";
-			}
-			$keys[] = "CREATE INDEX $i ON $nom ($v);";
-		} elseif (strpos($k, 'UNIQUE ') === 0) {
-			$k = preg_replace('/^UNIQUE +/', '', $k);
-			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`', '"', $k) . " UNIQUE ($v)";
-		} else {
-			$prim .= "$s\n\t\t" . str_replace('`', '"', $k) . " ($v)";
-		}
-		if ($k == 'PRIMARY KEY') {
-			$prim_name = $v;
-		}
-		$s = ',';
-	}
-	$s = '';
-
-	$character_set = '';
-	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
-	}
-	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
-	}
-
-	foreach ($champs as $k => $v) {
-		$k = str_replace('`', '"', $k);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
-			if (preg_match(',(char|text),i', $defs[1]) and !preg_match(',binary,i', $defs[1])) {
-				$v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
-			}
-		}
-
-		$query .= "$s\n\t\t$k "
-			. (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', $v))
-				? ' bigserial'
-				: mysql2pg_type($v)
-			);
-		$s = ',';
-	}
-	$temporary = $temporary ? 'TEMPORARY' : '';
-
-	// En l'absence de "if not exists" en PG, on neutralise les erreurs
-
-	$q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ')' .
-		($character_set ? " DEFAULT $character_set" : '')
-		. "\n";
-
-	if (!$requeter) {
-		return $q;
-	}
-	$connexion['last'] = $q;
-	$r = @pg_query($link, $q);
-
-	if (!$r) {
-		spip_log("Impossible de creer cette table: $q", 'pg.' . _LOG_ERREUR);
-	} else {
-		foreach ($keys as $index) {
-			pg_query($link, $index);
-		}
-	}
-
-	return $r;
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $nom = prefixer_table_spip($nom, $connexion['prefixe']);
+
+    $query = $prim = $prim_name = $v = $s = $p = '';
+    $keys = [];
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) {
+        return;
+    }
+
+    foreach ($cles as $k => $v) {
+        if (strpos($k, 'KEY ') === 0) {
+            $n = str_replace('`', '', $k);
+            $v = str_replace('`', '"', $v);
+            $i = $nom . preg_replace('/KEY +/', '_', $n);
+            if ($k != $n) {
+                $i = "\"$i\"";
+            }
+            $keys[] = "CREATE INDEX $i ON $nom ($v);";
+        } elseif (strpos($k, 'UNIQUE ') === 0) {
+            $k = preg_replace('/^UNIQUE +/', '', $k);
+            $prim .= "$s\n\t\tCONSTRAINT " . str_replace('`', '"', $k) . " UNIQUE ($v)";
+        } else {
+            $prim .= "$s\n\t\t" . str_replace('`', '"', $k) . " ($v)";
+        }
+        if ($k == 'PRIMARY KEY') {
+            $prim_name = $v;
+        }
+        $s = ',';
+    }
+    $s = '';
+
+    $character_set = '';
+    if (@$GLOBALS['meta']['charset_sql_base']) {
+        $character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
+    }
+    if (@$GLOBALS['meta']['charset_collation_sql_base']) {
+        $character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
+    }
+
+    foreach ($champs as $k => $v) {
+        $k = str_replace('`', '"', $k);
+        if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
+            if (preg_match(',(char|text),i', $defs[1]) and !preg_match(',binary,i', $defs[1])) {
+                $v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
+            }
+        }
+
+        $query .= "$s\n\t\t$k "
+            . (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', $v))
+                ? ' bigserial'
+                : mysql2pg_type($v)
+            );
+        $s = ',';
+    }
+    $temporary = $temporary ? 'TEMPORARY' : '';
+
+    // En l'absence de "if not exists" en PG, on neutralise les erreurs
+
+    $q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ')' .
+        ($character_set ? " DEFAULT $character_set" : '')
+        . "\n";
+
+    if (!$requeter) {
+        return $q;
+    }
+    $connexion['last'] = $q;
+    $r = @pg_query($link, $q);
+
+    if (!$r) {
+        spip_log("Impossible de creer cette table: $q", 'pg.' . _LOG_ERREUR);
+    } else {
+        foreach ($keys as $index) {
+            pg_query($link, $index);
+        }
+    }
+
+    return $r;
 }
 
 
 function spip_pg_create_base($nom, $serveur = '', $requeter = true) {
-	return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
+    return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
 }
 
 // Fonction de creation d'une vue SQL nommee $nom
 function spip_pg_create_view($nom, $query_select, $serveur = '', $requeter = true) {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		if ($requeter) {
-			spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.' . _LOG_ERREUR);
-		}
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        if ($requeter) {
+            spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.' . _LOG_ERREUR);
+        }
 
-		return false;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_pg_query($query, $serveur, $requeter);
+    return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 function spip_pg_set_connect_charset($charset, $serveur = '', $requeter = true) {
-	spip_log('changement de charset sql a ecrire en PG', 'pg.' . _LOG_ERREUR);
+    spip_log('changement de charset sql a ecrire en PG', 'pg.' . _LOG_ERREUR);
 }
 
 
@@ -1488,50 +1488,50 @@ 
  * @return bool|string true / false / requete
  **/
 function spip_pg_optimize($table, $serveur = '', $requeter = true) {
-	return spip_pg_query('VACUUM ' . $table, $serveur, $requeter);
+    return spip_pg_query('VACUUM ' . $table, $serveur, $requeter);
 }
 
 // Selectionner la sous-chaine dans $objet
 // correspondant a $lang. Cf balise Multi de Spip
 
 function spip_pg_multi($objet, $lang) {
-	$r = 'regexp_replace('
-		. $objet
-		. ",'<multi>.*[[]"
-		. $lang
-		. "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
+    $r = 'regexp_replace('
+        . $objet
+        . ",'<multi>.*[[]"
+        . $lang
+        . "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
 
-	return $r;
+    return $r;
 }
 
 // Palanquee d'idiosyncrasies MySQL dans les creations de table
 // A completer par les autres, mais essayer de reduire en amont.
 
 function mysql2pg_type($v) {
-	$remplace = [
-		'/auto_increment/i' => '', // non reconnu
-		'/bigint/i' => 'bigint',
-		'/mediumint/i' => 'mediumint',
-		'/smallint/i' => 'smallint',
-		'/tinyint/i' => 'int',
-		'/int\s*[(]\s*\d+\s*[)]/i' => 'int',
-		'/longtext/i' => 'text',
-		'/mediumtext/i' => 'text',
-		'/tinytext/i' => 'text',
-		'/longblob/i' => 'text',
-		'/0000-00-00/' => '0001-01-01',
-		'/datetime/i' => 'timestamp',
-		'/unsigned/i' => '',
-		'/double/i' => 'double precision',
-		'/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
-		'/ENUM *[(][^)]*[)]/i' => 'varchar(255)',
-		'/(timestamp .* )ON .*$/is' => '\\1',
-	];
-
-	return preg_replace(array_keys($remplace), array_values($remplace), $v);
+    $remplace = [
+        '/auto_increment/i' => '', // non reconnu
+        '/bigint/i' => 'bigint',
+        '/mediumint/i' => 'mediumint',
+        '/smallint/i' => 'smallint',
+        '/tinyint/i' => 'int',
+        '/int\s*[(]\s*\d+\s*[)]/i' => 'int',
+        '/longtext/i' => 'text',
+        '/mediumtext/i' => 'text',
+        '/tinytext/i' => 'text',
+        '/longblob/i' => 'text',
+        '/0000-00-00/' => '0001-01-01',
+        '/datetime/i' => 'timestamp',
+        '/unsigned/i' => '',
+        '/double/i' => 'double precision',
+        '/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
+        '/ENUM *[(][^)]*[)]/i' => 'varchar(255)',
+        '/(timestamp .* )ON .*$/is' => '\\1',
+    ];
+
+    return preg_replace(array_keys($remplace), array_values($remplace), $v);
 }
 
 // Renvoie false si on n'a pas les fonctions pg (pour l'install)
 function spip_versions_pg() {
-	return function_exists('pg_connect');
+    return function_exists('pg_connect');
 }

ecrire/inc/rubriques.php

Indentation +621 added lines, -621 removed lines

@@ -19,7 +19,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -55,65 +55,65 @@ 
  * @return void
  **/
 function calculer_rubriques_if($id_rubrique, $modifs, $infos = [], $postdate = false) {
-	$statuts_publies = null;
-	$neuf = false;
-
-	// Compat avec l'ancienne signature
-	if (is_string($infos)) {
-		$infos = ['statut_ancien' => $infos];
-	}
-	if (!isset($infos['statut_ancien'])) {
-		$infos['statut_ancien'] = '';
-	}
-
-	// On recherche quels statuts tester
-	if (
-		isset($infos['objet'])
-		and include_spip('inc/filtres')
-		and $declaration_statut = objet_info($infos['objet'], 'statut')
-		and is_array($declaration_statut)
-	) {
-		foreach ($declaration_statut as $champ_statut) {
-			if ($champ_statut['champ'] == 'statut') {
-				$statuts_publies = array_map('trim', explode(',', $champ_statut['publie']));
-				break; // stop on a trouvé le bon champ
-			}
-		}
-	} else {
-		$statuts_publies = ['publie'];
-	}
-
-	if (in_array($infos['statut_ancien'], $statuts_publies)) {
-		if (
-			isset($modifs['statut'])
-			or isset($modifs['id_rubrique'])
-			or ($postdate and strtotime($postdate) > time())
-		) {
-			$neuf |= depublier_branche_rubrique_if($id_rubrique);
-		}
-		// ne publier que si c'est pas un postdate, ou si la date n'est pas dans le futur
-		if ($postdate) {
-			calculer_prochain_postdate(true);
-			$neuf |= (strtotime($postdate) <= time()); // par securite
-		} elseif (isset($modifs['id_rubrique'])) {
-			$neuf |= publier_branche_rubrique($modifs['id_rubrique']);
-		}
-	} elseif (isset($modifs['statut']) and in_array($modifs['statut'], $statuts_publies)) {
-		if ($postdate) {
-			calculer_prochain_postdate(true);
-			$neuf |= (strtotime($postdate) <= time()); // par securite
-		} else {
-			$neuf |= publier_branche_rubrique($id_rubrique);
-		}
-	}
-
-	if ($neuf) {
-		// Sauver la date de la derniere mise a jour (pour menu_rubriques)
-		ecrire_meta('date_calcul_rubriques', date('U'));
-	}
-
-	$langues = calculer_langues_utilisees();
-	ecrire_meta('langues_utilisees', $langues);
+    $statuts_publies = null;
+    $neuf = false;
+
+    // Compat avec l'ancienne signature
+    if (is_string($infos)) {
+        $infos = ['statut_ancien' => $infos];
+    }
+    if (!isset($infos['statut_ancien'])) {
+        $infos['statut_ancien'] = '';
+    }
+
+    // On recherche quels statuts tester
+    if (
+        isset($infos['objet'])
+        and include_spip('inc/filtres')
+        and $declaration_statut = objet_info($infos['objet'], 'statut')
+        and is_array($declaration_statut)
+    ) {
+        foreach ($declaration_statut as $champ_statut) {
+            if ($champ_statut['champ'] == 'statut') {
+                $statuts_publies = array_map('trim', explode(',', $champ_statut['publie']));
+                break; // stop on a trouvé le bon champ
+            }
+        }
+    } else {
+        $statuts_publies = ['publie'];
+    }
+
+    if (in_array($infos['statut_ancien'], $statuts_publies)) {
+        if (
+            isset($modifs['statut'])
+            or isset($modifs['id_rubrique'])
+            or ($postdate and strtotime($postdate) > time())
+        ) {
+            $neuf |= depublier_branche_rubrique_if($id_rubrique);
+        }
+        // ne publier que si c'est pas un postdate, ou si la date n'est pas dans le futur
+        if ($postdate) {
+            calculer_prochain_postdate(true);
+            $neuf |= (strtotime($postdate) <= time()); // par securite
+        } elseif (isset($modifs['id_rubrique'])) {
+            $neuf |= publier_branche_rubrique($modifs['id_rubrique']);
+        }
+    } elseif (isset($modifs['statut']) and in_array($modifs['statut'], $statuts_publies)) {
+        if ($postdate) {
+            calculer_prochain_postdate(true);
+            $neuf |= (strtotime($postdate) <= time()); // par securite
+        } else {
+            $neuf |= publier_branche_rubrique($id_rubrique);
+        }
+    }
+
+    if ($neuf) {
+        // Sauver la date de la derniere mise a jour (pour menu_rubriques)
+        ecrire_meta('date_calcul_rubriques', date('U'));
+    }
+
+    $langues = calculer_langues_utilisees();
+    ecrire_meta('langues_utilisees', $langues);
 }
 
 
@@ -131,22 +131,22 @@ 
  *     true si le statut change effectivement
  */
 function publier_branche_rubrique($id_rubrique) {
-	$id_pred = $id_rubrique;
-	while (true) {
-		sql_updateq(
-			'spip_rubriques',
-			['statut' => 'publie', 'date' => date('Y-m-d H:i:s')],
-			'id_rubrique=' . intval($id_rubrique)
-		);
-		$id_parent = sql_getfetsel('id_parent', 'spip_rubriques AS R', 'R.id_rubrique=' . intval($id_rubrique));
-		if (!$id_parent) {
-			break;
-		}
-		$id_rubrique = $id_parent;
-	}
+    $id_pred = $id_rubrique;
+    while (true) {
+        sql_updateq(
+            'spip_rubriques',
+            ['statut' => 'publie', 'date' => date('Y-m-d H:i:s')],
+            'id_rubrique=' . intval($id_rubrique)
+        );
+        $id_parent = sql_getfetsel('id_parent', 'spip_rubriques AS R', 'R.id_rubrique=' . intval($id_rubrique));
+        if (!$id_parent) {
+            break;
+        }
+        $id_rubrique = $id_parent;
+    }
 
 #	spip_log(" publier_branche_rubrique($id_rubrique $id_pred");
-	return $id_pred != $id_rubrique;
+    return $id_pred != $id_rubrique;
 }
 
 /**
@@ -164,20 +164,20 @@ 
  *     true si le statut change effectivement
  */
 function depublier_branche_rubrique_if($id_rubrique) {
-	$date = date('Y-m-d H:i:s'); // figer la date
-
-	#	spip_log("depublier_branche_rubrique($id_rubrique ?");
-	$id_pred = $id_rubrique;
-	while ($id_pred) {
-		if (!depublier_rubrique_if($id_pred, $date)) {
-			return $id_pred != $id_rubrique;
-		}
-		// passer au parent si on a depublie
-		$r = sql_fetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id_pred));
-		$id_pred = $r['id_parent'];
-	}
-
-	return $id_pred != $id_rubrique;
+    $date = date('Y-m-d H:i:s'); // figer la date
+
+    #	spip_log("depublier_branche_rubrique($id_rubrique ?");
+    $id_pred = $id_rubrique;
+    while ($id_pred) {
+        if (!depublier_rubrique_if($id_pred, $date)) {
+            return $id_pred != $id_rubrique;
+        }
+        // passer au parent si on a depublie
+        $r = sql_fetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id_pred));
+        $id_pred = $r['id_parent'];
+    }
+
+    return $id_pred != $id_rubrique;
 }
 
 /**
@@ -194,61 +194,61 @@ 
  *    true si la rubrique a été dépubliée
  */
 function depublier_rubrique_if($id_rubrique, $date = null) {
-	if (is_null($date)) {
-		$date = date('Y-m-d H:i:s');
-	}
-	$postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
-		' AND date <= ' . sql_quote($date) : '';
-
-	if (!$id_rubrique = intval($id_rubrique)) {
-		return false;
-	}
-
-	// verifier qu'elle existe et est bien publiee
-	$r = sql_fetsel('id_rubrique,statut', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-	if (!$r or $r['statut'] !== 'publie') {
-		return false;
-	}
-
-	// On met le nombre de chaque type d'enfants dans un tableau
-	// Le type de l'objet est au pluriel
-	$compte = [
-		'articles' => sql_countsel(
-			'spip_articles',
-			'id_rubrique=' . intval($id_rubrique) . " AND statut='publie'$postdates"
-		),
-		'rubriques' => sql_countsel('spip_rubriques', 'id_parent=' . intval($id_rubrique) . " AND statut='publie'"),
-		'documents' => sql_countsel(
-			'spip_documents AS D JOIN spip_documents_liens AS L ON D.id_document=L.id_document',
-			'L.id_objet=' . intval($id_rubrique) . " AND L.objet='rubrique' and D.mode NOT IN('logoon', 'logooff') "
-		)
-	];
-
-	// On passe le tableau des comptes dans un pipeline pour que les plugins puissent ajouter (ou retirer) des enfants
-	$compte = pipeline(
-		'objet_compte_enfants',
-		[
-			'args' => [
-				'objet' => 'rubrique',
-				'id_objet' => $id_rubrique,
-				'statut' => 'publie',
-				'date' => $date
-			],
-			'data' => $compte
-		]
-	);
-
-	// S'il y a au moins un enfant de n'importe quoi, on ne dépublie pas
-	foreach ($compte as $objet => $n) {
-		if ($n) {
-			return false;
-		}
-	}
-
-	sql_updateq('spip_rubriques', ['statut' => 'prepa'], 'id_rubrique=' . intval($id_rubrique));
+    if (is_null($date)) {
+        $date = date('Y-m-d H:i:s');
+    }
+    $postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
+        ' AND date <= ' . sql_quote($date) : '';
+
+    if (!$id_rubrique = intval($id_rubrique)) {
+        return false;
+    }
+
+    // verifier qu'elle existe et est bien publiee
+    $r = sql_fetsel('id_rubrique,statut', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+    if (!$r or $r['statut'] !== 'publie') {
+        return false;
+    }
+
+    // On met le nombre de chaque type d'enfants dans un tableau
+    // Le type de l'objet est au pluriel
+    $compte = [
+        'articles' => sql_countsel(
+            'spip_articles',
+            'id_rubrique=' . intval($id_rubrique) . " AND statut='publie'$postdates"
+        ),
+        'rubriques' => sql_countsel('spip_rubriques', 'id_parent=' . intval($id_rubrique) . " AND statut='publie'"),
+        'documents' => sql_countsel(
+            'spip_documents AS D JOIN spip_documents_liens AS L ON D.id_document=L.id_document',
+            'L.id_objet=' . intval($id_rubrique) . " AND L.objet='rubrique' and D.mode NOT IN('logoon', 'logooff') "
+        )
+    ];
+
+    // On passe le tableau des comptes dans un pipeline pour que les plugins puissent ajouter (ou retirer) des enfants
+    $compte = pipeline(
+        'objet_compte_enfants',
+        [
+            'args' => [
+                'objet' => 'rubrique',
+                'id_objet' => $id_rubrique,
+                'statut' => 'publie',
+                'date' => $date
+            ],
+            'data' => $compte
+        ]
+    );
+
+    // S'il y a au moins un enfant de n'importe quoi, on ne dépublie pas
+    foreach ($compte as $objet => $n) {
+        if ($n) {
+            return false;
+        }
+    }
+
+    sql_updateq('spip_rubriques', ['statut' => 'prepa'], 'id_rubrique=' . intval($id_rubrique));
 
 #		spip_log("depublier_rubrique $id_pred");
-	return true;
+    return true;
 }
 
 
@@ -271,18 +271,18 @@ 
  **/
 function calculer_rubriques() {
 
-	calculer_rubriques_publiees();
+    calculer_rubriques_publiees();
 
-	// Apres chaque (de)publication
-	// recalculer les langues utilisees sur le site
-	$langues = calculer_langues_utilisees();
-	ecrire_meta('langues_utilisees', $langues);
+    // Apres chaque (de)publication
+    // recalculer les langues utilisees sur le site
+    $langues = calculer_langues_utilisees();
+    ecrire_meta('langues_utilisees', $langues);
 
-	// Sauver la date de la derniere mise a jour (pour menu_rubriques)
-	ecrire_meta('date_calcul_rubriques', date('U'));
+    // Sauver la date de la derniere mise a jour (pour menu_rubriques)
+    ecrire_meta('date_calcul_rubriques', date('U'));
 
-	// on calcule la date du prochain article post-date
-	calculer_prochain_postdate();
+    // on calcule la date du prochain article post-date
+    calculer_prochain_postdate();
 }
 
 
@@ -299,61 +299,61 @@ 
  **/
 function calculer_rubriques_publiees() {
 
-	// Mettre les compteurs a zero
-	sql_updateq('spip_rubriques', ['date_tmp' => '0000-00-00 00:00:00', 'statut_tmp' => 'prepa']);
-
-	//
-	// Publier et dater les rubriques qui ont un article publie
-	//
-
-	// Afficher les articles post-dates ?
-	$postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
-		'AND A.date <= ' . sql_quote(date('Y-m-d H:i:s')) : '';
-
-	$r = sql_select(
-		'R.id_rubrique AS id, max(A.date) AS date_h',
-		'spip_rubriques AS R JOIN spip_articles AS A ON R.id_rubrique = A.id_rubrique',
-		"A.date>R.date_tmp AND A.statut='publie' $postdates ",
-		'R.id_rubrique'
-	);
-	while ($row = sql_fetch($r)) {
-		sql_updateq(
-			'spip_rubriques',
-			['statut_tmp' => 'publie', 'date_tmp' => $row['date_h']],
-			'id_rubrique=' . intval($row['id'])
-		);
-	}
-
-	// point d'entree pour permettre a des plugins de gerer le statut
-	// autrement (par ex: toute rubrique est publiee des sa creation)
-	// Ce pipeline fait ce qu'il veut, mais s'il touche aux statuts/dates
-	// c'est statut_tmp/date_tmp qu'il doit modifier
-	// [C'est un trigger... a renommer en trig_calculer_rubriques ?]
-	pipeline('calculer_rubriques', null);
-
-
-	// Les rubriques qui ont une rubrique fille plus recente
-	// on tourne tant que les donnees remontent vers la racine.
-	do {
-		$continuer = false;
-		$r = sql_select(
-			'R.id_rubrique AS id, max(SR.date_tmp) AS date_h',
-			'spip_rubriques AS R JOIN spip_rubriques AS SR ON R.id_rubrique = SR.id_parent',
-			"(SR.date_tmp>R.date_tmp OR R.statut_tmp<>'publie') AND SR.statut_tmp='publie' ",
-			'R.id_rubrique'
-		);
-		while ($row = sql_fetch($r)) {
-			sql_updateq(
-				'spip_rubriques',
-				['statut_tmp' => 'publie', 'date_tmp' => $row['date_h']],
-				'id_rubrique=' . intval($row['id'])
-			);
-			$continuer = true;
-		}
-	} while ($continuer);
-
-	// Enregistrement des modifs
-	sql_update('spip_rubriques', ['date' => 'date_tmp', 'statut' => 'statut_tmp']);
+    // Mettre les compteurs a zero
+    sql_updateq('spip_rubriques', ['date_tmp' => '0000-00-00 00:00:00', 'statut_tmp' => 'prepa']);
+
+    //
+    // Publier et dater les rubriques qui ont un article publie
+    //
+
+    // Afficher les articles post-dates ?
+    $postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
+        'AND A.date <= ' . sql_quote(date('Y-m-d H:i:s')) : '';
+
+    $r = sql_select(
+        'R.id_rubrique AS id, max(A.date) AS date_h',
+        'spip_rubriques AS R JOIN spip_articles AS A ON R.id_rubrique = A.id_rubrique',
+        "A.date>R.date_tmp AND A.statut='publie' $postdates ",
+        'R.id_rubrique'
+    );
+    while ($row = sql_fetch($r)) {
+        sql_updateq(
+            'spip_rubriques',
+            ['statut_tmp' => 'publie', 'date_tmp' => $row['date_h']],
+            'id_rubrique=' . intval($row['id'])
+        );
+    }
+
+    // point d'entree pour permettre a des plugins de gerer le statut
+    // autrement (par ex: toute rubrique est publiee des sa creation)
+    // Ce pipeline fait ce qu'il veut, mais s'il touche aux statuts/dates
+    // c'est statut_tmp/date_tmp qu'il doit modifier
+    // [C'est un trigger... a renommer en trig_calculer_rubriques ?]
+    pipeline('calculer_rubriques', null);
+
+
+    // Les rubriques qui ont une rubrique fille plus recente
+    // on tourne tant que les donnees remontent vers la racine.
+    do {
+        $continuer = false;
+        $r = sql_select(
+            'R.id_rubrique AS id, max(SR.date_tmp) AS date_h',
+            'spip_rubriques AS R JOIN spip_rubriques AS SR ON R.id_rubrique = SR.id_parent',
+            "(SR.date_tmp>R.date_tmp OR R.statut_tmp<>'publie') AND SR.statut_tmp='publie' ",
+            'R.id_rubrique'
+        );
+        while ($row = sql_fetch($r)) {
+            sql_updateq(
+                'spip_rubriques',
+                ['statut_tmp' => 'publie', 'date_tmp' => $row['date_h']],
+                'id_rubrique=' . intval($row['id'])
+            );
+            $continuer = true;
+        }
+    } while ($continuer);
+
+    // Enregistrement des modifs
+    sql_update('spip_rubriques', ['date' => 'date_tmp', 'statut' => 'statut_tmp']);
 }
 
 /**
@@ -368,123 +368,123 @@ 
  * @return void
  **/
 function propager_les_secteurs() {
-	// Profondeur 0
-	// Toutes les rubriques racines sont de profondeur 0
-	// et fixer les id_secteur des rubriques racines
-	sql_update('spip_rubriques', ['id_secteur' => 'id_rubrique', 'profondeur' => 0], 'id_parent=0');
-	// Toute rubrique non racine est de profondeur >0
-	sql_updateq('spip_rubriques', ['profondeur' => 1], 'id_parent<>0 AND profondeur=0');
-
-	// securite : pas plus d'iteration que de rubriques dans la base
-	$maxiter = sql_countsel('spip_rubriques');
-
-	// reparer les rubriques qui n'ont pas l'id_secteur de leur parent
-	// on fait profondeur par profondeur
-
-	$prof = 0;
-	do {
-		$continuer = false;
-
-		// Par recursivite : si toutes les rubriques de profondeur $prof sont bonnes
-		// on fixe le profondeur $prof+1
-
-		// Toutes les rubriques dont le parent est de profondeur $prof ont une profondeur $prof+1
-		// on teste A.profondeur > $prof+1 car :
-		// - toutes les rubriques de profondeur 0 à $prof sont bonnes
-		// - si A.profondeur = $prof+1 c'est bon
-		// - cela nous protege de la boucle infinie en cas de reference circulaire dans les rubriques
-		$maxiter2 = $maxiter;
-		while (
-			$maxiter2--
-			and $rows = sql_allfetsel(
-				'A.id_rubrique AS id, R.id_secteur AS id_secteur, R.profondeur+1 as profondeur',
-				'spip_rubriques AS A JOIN spip_rubriques AS R ON A.id_parent = R.id_rubrique',
-				'R.profondeur=' . intval($prof) . ' AND (A.id_secteur <> R.id_secteur OR A.profondeur > R.profondeur+1)',
-				'',
-				'R.id_secteur',
-				'0,100'
-			)
-		) {
-			$id_secteur = null;
-			$ids = [];
-			while ($row = array_shift($rows)) {
-				if ($row['id_secteur'] !== $id_secteur) {
-					if (count($ids)) {
-						sql_updateq(
-							'spip_rubriques',
-							['id_secteur' => $id_secteur, 'profondeur' => $prof + 1],
-							sql_in('id_rubrique', $ids)
-						);
-					}
-					$id_secteur = $row['id_secteur'];
-					$ids = [];
-				}
-				$ids[] = $row['id'];
-			}
-			if (count($ids)) {
-				sql_updateq(
-					'spip_rubriques',
-					['id_secteur' => $id_secteur, 'profondeur' => $prof + 1],
-					sql_in('id_rubrique', $ids)
-				);
-			}
-		}
-
-
-		// Toutes les rubriques de profondeur $prof+1 qui n'ont pas un parent de profondeur $prof sont decalees
-		$maxiter2 = $maxiter;
-		while (
-			$maxiter2--
-			and $rows = sql_allfetsel(
-				'id_rubrique as id',
-				'spip_rubriques',
-				'profondeur=' . intval($prof + 1) . ' AND id_parent NOT IN (' . sql_get_select(
-					'zzz.id_rubrique',
-					'spip_rubriques AS zzz',
-					'zzz.profondeur=' . intval($prof)
-				) . ')',
-				'',
-				'',
-				'0,100'
-			)
-		) {
-			$rows = array_column($rows, 'id');
-			sql_updateq('spip_rubriques', ['profondeur' => $prof + 2], sql_in('id_rubrique', $rows));
-		}
-
-		// ici on a fini de valider $prof+1, toutes les rubriques de prondeur 0 a $prof+1 sont OK
-		// si pas de rubrique a profondeur $prof+1 pas la peine de continuer
-		// si il reste des rubriques non vues, c'est une branche morte ou reference circulaire (base foireuse)
-		// on arrete les frais
-		if (sql_countsel('spip_rubriques', 'profondeur=' . intval($prof + 1))) {
-			$prof++;
-			$continuer = true;
-		}
-	} while ($continuer and $maxiter--);
-
-	// loger si la table des rubriques semble foireuse
-	// et mettre un id_secteur=0 sur ces rubriques pour eviter toute selection par les boucles
-	if (sql_countsel('spip_rubriques', 'profondeur>' . intval($prof + 1))) {
-		spip_log(
-			'Les rubriques de profondeur>' . ($prof + 1) . ' semblent suspectes (branches morte ou reference circulaire dans les parents)',
-			_LOG_CRITIQUE
-		);
-		sql_update('spip_rubriques', ['id_secteur' => 0], 'profondeur>' . intval($prof + 1));
-	}
-
-	// reparer les articles
-	$r = sql_select(
-		'A.id_article AS id, R.id_secteur AS secteur',
-		'spip_articles AS A, spip_rubriques AS R',
-		'A.id_rubrique = R.id_rubrique AND A.id_secteur <> R.id_secteur'
-	);
-
-	while ($row = sql_fetch($r)) {
-		sql_update('spip_articles', ['id_secteur' => $row['secteur']], 'id_article=' . intval($row['id']));
-	}
-
-	// avertir les plugins qui peuvent faire leur mises a jour egalement
-	pipeline('trig_propager_les_secteurs', '');
+    // Profondeur 0
+    // Toutes les rubriques racines sont de profondeur 0
+    // et fixer les id_secteur des rubriques racines
+    sql_update('spip_rubriques', ['id_secteur' => 'id_rubrique', 'profondeur' => 0], 'id_parent=0');
+    // Toute rubrique non racine est de profondeur >0
+    sql_updateq('spip_rubriques', ['profondeur' => 1], 'id_parent<>0 AND profondeur=0');
+
+    // securite : pas plus d'iteration que de rubriques dans la base
+    $maxiter = sql_countsel('spip_rubriques');
+
+    // reparer les rubriques qui n'ont pas l'id_secteur de leur parent
+    // on fait profondeur par profondeur
+
+    $prof = 0;
+    do {
+        $continuer = false;
+
+        // Par recursivite : si toutes les rubriques de profondeur $prof sont bonnes
+        // on fixe le profondeur $prof+1
+
+        // Toutes les rubriques dont le parent est de profondeur $prof ont une profondeur $prof+1
+        // on teste A.profondeur > $prof+1 car :
+        // - toutes les rubriques de profondeur 0 à $prof sont bonnes
+        // - si A.profondeur = $prof+1 c'est bon
+        // - cela nous protege de la boucle infinie en cas de reference circulaire dans les rubriques
+        $maxiter2 = $maxiter;
+        while (
+            $maxiter2--
+            and $rows = sql_allfetsel(
+                'A.id_rubrique AS id, R.id_secteur AS id_secteur, R.profondeur+1 as profondeur',
+                'spip_rubriques AS A JOIN spip_rubriques AS R ON A.id_parent = R.id_rubrique',
+                'R.profondeur=' . intval($prof) . ' AND (A.id_secteur <> R.id_secteur OR A.profondeur > R.profondeur+1)',
+                '',
+                'R.id_secteur',
+                '0,100'
+            )
+        ) {
+            $id_secteur = null;
+            $ids = [];
+            while ($row = array_shift($rows)) {
+                if ($row['id_secteur'] !== $id_secteur) {
+                    if (count($ids)) {
+                        sql_updateq(
+                            'spip_rubriques',
+                            ['id_secteur' => $id_secteur, 'profondeur' => $prof + 1],
+                            sql_in('id_rubrique', $ids)
+                        );
+                    }
+                    $id_secteur = $row['id_secteur'];
+                    $ids = [];
+                }
+                $ids[] = $row['id'];
+            }
+            if (count($ids)) {
+                sql_updateq(
+                    'spip_rubriques',
+                    ['id_secteur' => $id_secteur, 'profondeur' => $prof + 1],
+                    sql_in('id_rubrique', $ids)
+                );
+            }
+        }
+
+
+        // Toutes les rubriques de profondeur $prof+1 qui n'ont pas un parent de profondeur $prof sont decalees
+        $maxiter2 = $maxiter;
+        while (
+            $maxiter2--
+            and $rows = sql_allfetsel(
+                'id_rubrique as id',
+                'spip_rubriques',
+                'profondeur=' . intval($prof + 1) . ' AND id_parent NOT IN (' . sql_get_select(
+                    'zzz.id_rubrique',
+                    'spip_rubriques AS zzz',
+                    'zzz.profondeur=' . intval($prof)
+                ) . ')',
+                '',
+                '',
+                '0,100'
+            )
+        ) {
+            $rows = array_column($rows, 'id');
+            sql_updateq('spip_rubriques', ['profondeur' => $prof + 2], sql_in('id_rubrique', $rows));
+        }
+
+        // ici on a fini de valider $prof+1, toutes les rubriques de prondeur 0 a $prof+1 sont OK
+        // si pas de rubrique a profondeur $prof+1 pas la peine de continuer
+        // si il reste des rubriques non vues, c'est une branche morte ou reference circulaire (base foireuse)
+        // on arrete les frais
+        if (sql_countsel('spip_rubriques', 'profondeur=' . intval($prof + 1))) {
+            $prof++;
+            $continuer = true;
+        }
+    } while ($continuer and $maxiter--);
+
+    // loger si la table des rubriques semble foireuse
+    // et mettre un id_secteur=0 sur ces rubriques pour eviter toute selection par les boucles
+    if (sql_countsel('spip_rubriques', 'profondeur>' . intval($prof + 1))) {
+        spip_log(
+            'Les rubriques de profondeur>' . ($prof + 1) . ' semblent suspectes (branches morte ou reference circulaire dans les parents)',
+            _LOG_CRITIQUE
+        );
+        sql_update('spip_rubriques', ['id_secteur' => 0], 'profondeur>' . intval($prof + 1));
+    }
+
+    // reparer les articles
+    $r = sql_select(
+        'A.id_article AS id, R.id_secteur AS secteur',
+        'spip_articles AS A, spip_rubriques AS R',
+        'A.id_rubrique = R.id_rubrique AND A.id_secteur <> R.id_secteur'
+    );
+
+    while ($row = sql_fetch($r)) {
+        sql_update('spip_articles', ['id_secteur' => $row['secteur']], 'id_article=' . intval($row['id']));
+    }
+
+    // avertir les plugins qui peuvent faire leur mises a jour egalement
+    pipeline('trig_propager_les_secteurs', '');
 }
 
 
@@ -499,23 +499,23 @@ 
  *     true si un changement a eu lieu
  **/
 function calculer_langues_rubriques_etape() {
-	$s = sql_select(
-		'A.id_rubrique AS id_rubrique, R.lang AS lang',
-		'spip_rubriques AS A, spip_rubriques AS R',
-		"A.id_parent = R.id_rubrique AND A.langue_choisie != 'oui' AND R.lang<>'' AND R.lang<>A.lang"
-	);
-
-	$t = false;
-	while ($row = sql_fetch($s)) {
-		$id_rubrique = $row['id_rubrique'];
-		$t = sql_updateq(
-			'spip_rubriques',
-			['lang' => $row['lang'], 'langue_choisie' => 'non'],
-			'id_rubrique=' . intval($id_rubrique)
-		);
-	}
-
-	return $t;
+    $s = sql_select(
+        'A.id_rubrique AS id_rubrique, R.lang AS lang',
+        'spip_rubriques AS A, spip_rubriques AS R',
+        "A.id_parent = R.id_rubrique AND A.langue_choisie != 'oui' AND R.lang<>'' AND R.lang<>A.lang"
+    );
+
+    $t = false;
+    while ($row = sql_fetch($s)) {
+        $id_rubrique = $row['id_rubrique'];
+        $t = sql_updateq(
+            'spip_rubriques',
+            ['lang' => $row['lang'], 'langue_choisie' => 'non'],
+            'id_rubrique=' . intval($id_rubrique)
+        );
+    }
+
+    return $t;
 }
 
 /**
@@ -535,38 +535,38 @@ 
  **/
 function calculer_langues_rubriques() {
 
-	// rubriques (recursivite)
-	sql_updateq(
-		'spip_rubriques',
-		['lang' => $GLOBALS['meta']['langue_site'], 'langue_choisie' => 'non'],
-		"id_parent=0 AND langue_choisie != 'oui'"
-	);
-	while (calculer_langues_rubriques_etape()) {
-		;
-	}
-
-	// articles
-	$s = sql_select(
-		'A.id_article AS id_article, R.lang AS lang',
-		'spip_articles AS A, spip_rubriques AS R',
-		"A.id_rubrique = R.id_rubrique AND A.langue_choisie != 'oui' AND (length(A.lang)=0 OR length(R.lang)>0) AND R.lang<>A.lang"
-	);
-	while ($row = sql_fetch($s)) {
-		$id_article = $row['id_article'];
-		sql_updateq(
-			'spip_articles',
-			['lang' => $row['lang'], 'langue_choisie' => 'non'],
-			'id_article=' . intval($id_article)
-		);
-	}
-
-	if ($GLOBALS['meta']['multi_rubriques'] == 'oui') {
-		$langues = calculer_langues_utilisees();
-		ecrire_meta('langues_utilisees', $langues);
-	}
-
-	// avertir les plugins qui peuvent faire leur mises a jour egalement
-	pipeline('trig_calculer_langues_rubriques', '');
+    // rubriques (recursivite)
+    sql_updateq(
+        'spip_rubriques',
+        ['lang' => $GLOBALS['meta']['langue_site'], 'langue_choisie' => 'non'],
+        "id_parent=0 AND langue_choisie != 'oui'"
+    );
+    while (calculer_langues_rubriques_etape()) {
+        ;
+    }
+
+    // articles
+    $s = sql_select(
+        'A.id_article AS id_article, R.lang AS lang',
+        'spip_articles AS A, spip_rubriques AS R',
+        "A.id_rubrique = R.id_rubrique AND A.langue_choisie != 'oui' AND (length(A.lang)=0 OR length(R.lang)>0) AND R.lang<>A.lang"
+    );
+    while ($row = sql_fetch($s)) {
+        $id_article = $row['id_article'];
+        sql_updateq(
+            'spip_articles',
+            ['lang' => $row['lang'], 'langue_choisie' => 'non'],
+            'id_article=' . intval($id_article)
+        );
+    }
+
+    if ($GLOBALS['meta']['multi_rubriques'] == 'oui') {
+        $langues = calculer_langues_utilisees();
+        ecrire_meta('langues_utilisees', $langues);
+    }
+
+    // avertir les plugins qui peuvent faire leur mises a jour egalement
+    pipeline('trig_calculer_langues_rubriques', '');
 }
 
 
@@ -583,80 +583,80 @@ 
  *    Liste des langues utilisées séparées par des virgules
  **/
 function calculer_langues_utilisees($serveur = '') {
-	include_spip('public/interfaces');
-	include_spip('public/compiler');
-	include_spip('public/composer');
-	include_spip('public/phraser_html');
-	$langues = [];
-
-	$langues[$GLOBALS['meta']['langue_site']] = 1;
-
-	include_spip('base/objets');
-	$tables = lister_tables_objets_sql();
-	$trouver_table = charger_fonction('trouver_table', 'base');
-
-	foreach (array_keys($tables) as $t) {
-		$desc = $trouver_table($t, $serveur);
-		// c'est une table avec des langues
-		if (
-			$desc['exist']
-			and isset($desc['field']['lang'])
-			and isset($desc['field']['langue_choisie'])
-		) {
-			$boucle = new Boucle();
-			$boucle->show = $desc;
-			$boucle->nom = 'calculer_langues_utilisees';
-			$boucle->id_boucle = $desc['table_objet'];
-			$boucle->id_table = $desc['table_objet'];
-			$boucle->primary = $desc['key']['PRIMARY KEY'] ?? '';
-			$boucle->sql_serveur = $serveur;
-			$boucle->select[] = 'DISTINCT lang';
-			$boucle->from[$desc['table_objet']] = $t;
-			$boucle->separateur[] = ',';
-			$boucle->return = '$Pile[$SP][\'lang\']';
-			$boucle->iterateur = 'sql';
-
-			$boucle->descr['nom'] = 'calculer_langues_utilisees'; // eviter notice php
-			$boucle->descr['sourcefile'] = 'internal';
-			$boucle->descr['gram'] = 'html';
-
-			$boucle = pipeline('pre_boucle', $boucle);
-
-			if (
-				isset($desc['statut'])
-				and $desc['statut']
-			) {
-				$boucles = [
-					'calculer_langues_utilisees' => $boucle,
-				];
-				// generer un nom de fonction "anonyme" unique
-				do {
-					$functionname = 'f_calculer_langues_utilisees_' . $boucle->id_table . '_' . time() . '_' . random_int(0, mt_getrandmax());
-				} while (function_exists($functionname));
-				$code = calculer_boucle('calculer_langues_utilisees', $boucles);
-				$code = '$SP=0; $command=array();$command["connect"] = $connect = "' . $serveur . '"; $Pile=array(0=>array());' . "\n" . $code;
-				$code = 'function ' . $functionname . '(){' . $code . '};$res = ' . $functionname . '();';
-				$res = '';
-				eval($code);
-				$res = explode(',', $res);
-				foreach ($res as $lang) {
-					$langues[$lang] = 1;
-				}
-			} else {
-				$res = sql_select(implode(',', $boucle->select), $boucle->from);
-				while ($row = sql_fetch($res)) {
-					$langues[$row['lang']] = 1;
-				}
-			}
-		}
-	}
-
-	$langues = array_filter(array_keys($langues));
-	sort($langues);
-	$langues = join(',', $langues);
-	spip_log("langues utilisees: $langues");
-
-	return $langues;
+    include_spip('public/interfaces');
+    include_spip('public/compiler');
+    include_spip('public/composer');
+    include_spip('public/phraser_html');
+    $langues = [];
+
+    $langues[$GLOBALS['meta']['langue_site']] = 1;
+
+    include_spip('base/objets');
+    $tables = lister_tables_objets_sql();
+    $trouver_table = charger_fonction('trouver_table', 'base');
+
+    foreach (array_keys($tables) as $t) {
+        $desc = $trouver_table($t, $serveur);
+        // c'est une table avec des langues
+        if (
+            $desc['exist']
+            and isset($desc['field']['lang'])
+            and isset($desc['field']['langue_choisie'])
+        ) {
+            $boucle = new Boucle();
+            $boucle->show = $desc;
+            $boucle->nom = 'calculer_langues_utilisees';
+            $boucle->id_boucle = $desc['table_objet'];
+            $boucle->id_table = $desc['table_objet'];
+            $boucle->primary = $desc['key']['PRIMARY KEY'] ?? '';
+            $boucle->sql_serveur = $serveur;
+            $boucle->select[] = 'DISTINCT lang';
+            $boucle->from[$desc['table_objet']] = $t;
+            $boucle->separateur[] = ',';
+            $boucle->return = '$Pile[$SP][\'lang\']';
+            $boucle->iterateur = 'sql';
+
+            $boucle->descr['nom'] = 'calculer_langues_utilisees'; // eviter notice php
+            $boucle->descr['sourcefile'] = 'internal';
+            $boucle->descr['gram'] = 'html';
+
+            $boucle = pipeline('pre_boucle', $boucle);
+
+            if (
+                isset($desc['statut'])
+                and $desc['statut']
+            ) {
+                $boucles = [
+                    'calculer_langues_utilisees' => $boucle,
+                ];
+                // generer un nom de fonction "anonyme" unique
+                do {
+                    $functionname = 'f_calculer_langues_utilisees_' . $boucle->id_table . '_' . time() . '_' . random_int(0, mt_getrandmax());
+                } while (function_exists($functionname));
+                $code = calculer_boucle('calculer_langues_utilisees', $boucles);
+                $code = '$SP=0; $command=array();$command["connect"] = $connect = "' . $serveur . '"; $Pile=array(0=>array());' . "\n" . $code;
+                $code = 'function ' . $functionname . '(){' . $code . '};$res = ' . $functionname . '();';
+                $res = '';
+                eval($code);
+                $res = explode(',', $res);
+                foreach ($res as $lang) {
+                    $langues[$lang] = 1;
+                }
+            } else {
+                $res = sql_select(implode(',', $boucle->select), $boucle->from);
+                while ($row = sql_fetch($res)) {
+                    $langues[$row['lang']] = 1;
+                }
+            }
+        }
+    }
+
+    $langues = array_filter(array_keys($langues));
+    sort($langues);
+    $langues = join(',', $langues);
+    spip_log("langues utilisees: $langues");
+
+    return $langues;
 }
 
 /**
@@ -673,9 +673,9 @@ 
  *     incluant les rubriques noeuds et toutes leurs descendances
  */
 function calcul_branche_in($id) {
-	$calcul_branche_in = charger_fonction('calcul_branche_in', 'inc');
+    $calcul_branche_in = charger_fonction('calcul_branche_in', 'inc');
 
-	return $calcul_branche_in($id);
+    return $calcul_branche_in($id);
 }
 
 /**
@@ -693,9 +693,9 @@ 
  *     incluant les rubriques transmises et toutes leurs parentées
  */
 function calcul_hierarchie_in($id, $tout = true) {
-	$calcul_hierarchie_in = charger_fonction('calcul_hierarchie_in', 'inc');
+    $calcul_hierarchie_in = charger_fonction('calcul_hierarchie_in', 'inc');
 
-	return $calcul_hierarchie_in($id, $tout);
+    return $calcul_hierarchie_in($id, $tout);
 }
 
 
@@ -716,40 +716,40 @@ 
  *     incluant les rubriques noeuds et toutes leurs descendances
  */
 function inc_calcul_branche_in_dist($id) {
-	static $b = [];
-
-	// normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
-	if (!is_array($id)) {
-		$id = explode(',', $id);
-	}
-	$id = join(',', array_map('intval', $id));
-	if (isset($b[$id])) {
-		return $b[$id];
-	}
-
-	// Notre branche commence par la rubrique de depart
-	$branche = $r = $id;
-
-	// On ajoute une generation (les filles de la generation precedente)
-	// jusqu'a epuisement, en se protegeant des references circulaires
-	$maxiter = 10000;
-	while (
-		$maxiter-- and $filles = sql_allfetsel(
-			'id_rubrique',
-			'spip_rubriques',
-			sql_in('id_parent', $r) . ' AND ' . sql_in('id_rubrique', $r, 'NOT')
-		)
-	) {
-		$r = join(',', array_column($filles, 'id_rubrique'));
-		$branche .= ',' . $r;
-	}
-
-	# securite pour ne pas plomber la conso memoire sur les sites prolifiques
-	if (strlen($branche) < 10000) {
-		$b[$id] = $branche;
-	}
-
-	return $branche;
+    static $b = [];
+
+    // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
+    if (!is_array($id)) {
+        $id = explode(',', $id);
+    }
+    $id = join(',', array_map('intval', $id));
+    if (isset($b[$id])) {
+        return $b[$id];
+    }
+
+    // Notre branche commence par la rubrique de depart
+    $branche = $r = $id;
+
+    // On ajoute une generation (les filles de la generation precedente)
+    // jusqu'a epuisement, en se protegeant des references circulaires
+    $maxiter = 10000;
+    while (
+        $maxiter-- and $filles = sql_allfetsel(
+            'id_rubrique',
+            'spip_rubriques',
+            sql_in('id_parent', $r) . ' AND ' . sql_in('id_rubrique', $r, 'NOT')
+        )
+    ) {
+        $r = join(',', array_column($filles, 'id_rubrique'));
+        $branche .= ',' . $r;
+    }
+
+    # securite pour ne pas plomber la conso memoire sur les sites prolifiques
+    if (strlen($branche) < 10000) {
+        $b[$id] = $branche;
+    }
+
+    return $branche;
 }
 
 
@@ -771,45 +771,45 @@ 
  *     incluant les rubriques transmises et toutes leurs parentées
  */
 function inc_calcul_hierarchie_in_dist($id, $tout = true) {
-	static $b = [];
-
-	// normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
-	if (!is_array($id)) {
-		$id = explode(',', $id);
-	}
-	$id = join(',', array_map('intval', $id));
-
-	if (isset($b[$id])) {
-		// Notre branche commence par la rubrique de depart si $tout=true
-		return $tout ? (strlen($b[$id]) ? $b[$id] . ",$id" : $id) : $b[$id];
-	}
-
-	$hier = '';
-
-	// On ajoute une generation (les filles de la generation precedente)
-	// jusqu'a epuisement, en se protegeant des references circulaires
-	$ids_nouveaux_parents = $id;
-	$maxiter = 10000;
-	while (
-		$maxiter-- and $parents = sql_allfetsel(
-			'id_parent',
-			'spip_rubriques',
-			sql_in('id_rubrique', $ids_nouveaux_parents) . ' AND ' . sql_in('id_parent', $hier, 'NOT')
-		)
-	) {
-		$ids_nouveaux_parents = join(',', array_column($parents, 'id_parent'));
-		$hier = $ids_nouveaux_parents . (strlen($hier) ? ',' . $hier : '');
-	}
-
-	# securite pour ne pas plomber la conso memoire sur les sites prolifiques
-	if (strlen($hier) < 10000) {
-		$b[$id] = $hier;
-	}
-
-	// Notre branche commence par la rubrique de depart si $tout=true
-	$hier = $tout ? (strlen($hier) ? "$hier,$id" : $id) : $hier;
-
-	return $hier;
+    static $b = [];
+
+    // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
+    if (!is_array($id)) {
+        $id = explode(',', $id);
+    }
+    $id = join(',', array_map('intval', $id));
+
+    if (isset($b[$id])) {
+        // Notre branche commence par la rubrique de depart si $tout=true
+        return $tout ? (strlen($b[$id]) ? $b[$id] . ",$id" : $id) : $b[$id];
+    }
+
+    $hier = '';
+
+    // On ajoute une generation (les filles de la generation precedente)
+    // jusqu'a epuisement, en se protegeant des references circulaires
+    $ids_nouveaux_parents = $id;
+    $maxiter = 10000;
+    while (
+        $maxiter-- and $parents = sql_allfetsel(
+            'id_parent',
+            'spip_rubriques',
+            sql_in('id_rubrique', $ids_nouveaux_parents) . ' AND ' . sql_in('id_parent', $hier, 'NOT')
+        )
+    ) {
+        $ids_nouveaux_parents = join(',', array_column($parents, 'id_parent'));
+        $hier = $ids_nouveaux_parents . (strlen($hier) ? ',' . $hier : '');
+    }
+
+    # securite pour ne pas plomber la conso memoire sur les sites prolifiques
+    if (strlen($hier) < 10000) {
+        $b[$id] = $hier;
+    }
+
+    // Notre branche commence par la rubrique de depart si $tout=true
+    $hier = $tout ? (strlen($hier) ? "$hier,$id" : $id) : $hier;
+
+    return $hier;
 }
 
 
@@ -827,47 +827,47 @@ 
  * @return void
  **/
 function calculer_prochain_postdate($check = false) {
-	include_spip('base/abstract_sql');
-	if ($check) {
-		$postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
-			'AND A.date <= ' . sql_quote(date('Y-m-d H:i:s')) : '';
-
-		$r = sql_select(
-			'DISTINCT A.id_rubrique AS id',
-			'spip_articles AS A LEFT JOIN spip_rubriques AS R ON A.id_rubrique=R.id_rubrique',
-			"R.statut != 'publie' AND A.statut='publie'$postdates"
-		);
-		while ($row = sql_fetch($r)) {
-			publier_branche_rubrique($row['id']);
-		}
-
-		pipeline('trig_calculer_prochain_postdate', '');
-	}
-
-	$t = sql_fetsel(
-		'date',
-		'spip_articles',
-		"statut='publie' AND date > " . sql_quote(date('Y-m-d H:i:s')),
-		'',
-		'date',
-		'1'
-	);
-
-	if ($t) {
-		$t = $t['date'];
-		if (
-			!isset($GLOBALS['meta']['date_prochain_postdate'])
-			or $t <> $GLOBALS['meta']['date_prochain_postdate']
-		) {
-			ecrire_meta('date_prochain_postdate', strtotime($t));
-			ecrire_meta('derniere_modif', time());
-		}
-	} else {
-		effacer_meta('date_prochain_postdate');
-		ecrire_meta('derniere_modif', time());
-	}
-
-	spip_log("prochain postdate: $t");
+    include_spip('base/abstract_sql');
+    if ($check) {
+        $postdates = ($GLOBALS['meta']['post_dates'] == 'non') ?
+            'AND A.date <= ' . sql_quote(date('Y-m-d H:i:s')) : '';
+
+        $r = sql_select(
+            'DISTINCT A.id_rubrique AS id',
+            'spip_articles AS A LEFT JOIN spip_rubriques AS R ON A.id_rubrique=R.id_rubrique',
+            "R.statut != 'publie' AND A.statut='publie'$postdates"
+        );
+        while ($row = sql_fetch($r)) {
+            publier_branche_rubrique($row['id']);
+        }
+
+        pipeline('trig_calculer_prochain_postdate', '');
+    }
+
+    $t = sql_fetsel(
+        'date',
+        'spip_articles',
+        "statut='publie' AND date > " . sql_quote(date('Y-m-d H:i:s')),
+        '',
+        'date',
+        '1'
+    );
+
+    if ($t) {
+        $t = $t['date'];
+        if (
+            !isset($GLOBALS['meta']['date_prochain_postdate'])
+            or $t <> $GLOBALS['meta']['date_prochain_postdate']
+        ) {
+            ecrire_meta('date_prochain_postdate', strtotime($t));
+            ecrire_meta('derniere_modif', time());
+        }
+    } else {
+        effacer_meta('date_prochain_postdate');
+        ecrire_meta('derniere_modif', time());
+    }
+
+    spip_log("prochain postdate: $t");
 }
 
 /**
@@ -892,62 +892,62 @@ 
  */
 function creer_rubrique_nommee($titre, $id_parent = 0, $serveur = '') {
 
-	// eclater l'arborescence demandee
-	// echapper les </multi> et autres balises fermantes html
-	$titre = preg_replace(',</([a-z][^>]*)>,ims', "<@\\1>", $titre);
-	$arbo = explode('/', preg_replace(',^/,', '', $titre));
-	include_spip('base/abstract_sql');
-	foreach ($arbo as $titre) {
-		// retablir les </multi> et autres balises fermantes html
-		$titre = preg_replace(',<@([a-z][^>]*)>,ims', "</\\1>", $titre);
-		$r = sql_getfetsel(
-			'id_rubrique',
-			'spip_rubriques',
-			'titre = ' . sql_quote($titre) . ' AND id_parent=' . intval($id_parent),
-			$groupby = [],
-			$orderby = [],
-			$limit = '',
-			$having = [],
-			$serveur
-		);
-		if ($r !== null) {
-			$id_parent = $r;
-		} else {
-			$id_rubrique = sql_insertq('spip_rubriques', [
-					'titre' => $titre,
-					'id_parent' => $id_parent,
-					'statut' => 'prepa'
-				], $desc = [], $serveur);
-			if ($id_parent > 0) {
-				$data = sql_fetsel(
-					'id_secteur,lang',
-					'spip_rubriques',
-					"id_rubrique=$id_parent",
-					$groupby = [],
-					$orderby = [],
-					$limit = '',
-					$having = [],
-					$serveur
-				);
-				$id_secteur = $data['id_secteur'];
-				$lang = $data['lang'];
-			} else {
-				$id_secteur = $id_rubrique;
-				$lang = $GLOBALS['meta']['langue_site'];
-			}
-
-			sql_updateq(
-				'spip_rubriques',
-				['id_secteur' => $id_secteur, 'lang' => $lang],
-				'id_rubrique=' . intval($id_rubrique),
-				[],
-				$serveur
-			);
-
-			// pour la recursion
-			$id_parent = $id_rubrique;
-		}
-	}
-
-	return intval($id_parent);
+    // eclater l'arborescence demandee
+    // echapper les </multi> et autres balises fermantes html
+    $titre = preg_replace(',</([a-z][^>]*)>,ims', "<@\\1>", $titre);
+    $arbo = explode('/', preg_replace(',^/,', '', $titre));
+    include_spip('base/abstract_sql');
+    foreach ($arbo as $titre) {
+        // retablir les </multi> et autres balises fermantes html
+        $titre = preg_replace(',<@([a-z][^>]*)>,ims', "</\\1>", $titre);
+        $r = sql_getfetsel(
+            'id_rubrique',
+            'spip_rubriques',
+            'titre = ' . sql_quote($titre) . ' AND id_parent=' . intval($id_parent),
+            $groupby = [],
+            $orderby = [],
+            $limit = '',
+            $having = [],
+            $serveur
+        );
+        if ($r !== null) {
+            $id_parent = $r;
+        } else {
+            $id_rubrique = sql_insertq('spip_rubriques', [
+                    'titre' => $titre,
+                    'id_parent' => $id_parent,
+                    'statut' => 'prepa'
+                ], $desc = [], $serveur);
+            if ($id_parent > 0) {
+                $data = sql_fetsel(
+                    'id_secteur,lang',
+                    'spip_rubriques',
+                    "id_rubrique=$id_parent",
+                    $groupby = [],
+                    $orderby = [],
+                    $limit = '',
+                    $having = [],
+                    $serveur
+                );
+                $id_secteur = $data['id_secteur'];
+                $lang = $data['lang'];
+            } else {
+                $id_secteur = $id_rubrique;
+                $lang = $GLOBALS['meta']['langue_site'];
+            }
+
+            sql_updateq(
+                'spip_rubriques',
+                ['id_secteur' => $id_secteur, 'lang' => $lang],
+                'id_rubrique=' . intval($id_rubrique),
+                [],
+                $serveur
+            );
+
+            // pour la recursion
+            $id_parent = $id_rubrique;
+        }
+    }
+
+    return intval($id_parent);
 }

ecrire/inc/distant.php

Indentation +1086 added lines, -1086 removed lines

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

ecrire/lang/ecrire_pt_br.php

Indentation +839 added lines, -839 removed lines

@@ -4,879 +4,879 @@
 // ** ne pas modifier le fichier **
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 $GLOBALS[$GLOBALS['idx_lang']] = array(
 
-	// A
-	'activer_plugin' => 'Ativar o plugin',
-	'affichage' => 'Exibição',
-	'aide_non_disponible' => 'Esta parte da ajuda online ainda não está disponível neste idioma.',
-	'annuler_recherche' => 'Cancelar a busca',
-	'auteur' => 'Autor:',
-	'avis_acces_interdit' => 'Acesso negado.',
-	'avis_acces_interdit_prive' => 'Você não está autorizado a acessar a página <b>@exec@</b>.',
-	'avis_article_modifie' => 'Atenção, @nom_auteur_modif@ editou esta matéria há @date_diff@ minutos',
-	'avis_aucun_resultat' => 'Nenhum resultado.',
-	'avis_base_inaccessible' => 'Não foi possível conectar com a base de dados @base@.',
-	'avis_chemin_invalide_1' => 'O caminho que você escolheu',
-	'avis_chemin_invalide_2' => 'não parece válido. Por favor, volte à página anterior e verifique as informações fornecidas.',
-	'avis_connexion_echec_1' => 'A conexão com a base de dados falhou.',
-	'avis_connexion_echec_2' => 'Volte à página anterior e verifique as informações que você forneceu.',
-	'avis_connexion_echec_3' => '<b>N.B.</b> Em diversos servidores, você precisa <b>solicitar</b> a ativação do seu acesso à base de dados antes de poder utilizá-la. Se você não consegue se conectar, verifique se você efetuou esse pedido.',
-	'avis_connexion_erreur_creer_base' => 'Não foi possível criar a base de dados.',
-	'avis_connexion_erreur_fichier_cle_manquant_1' => 'A instalação deve ser realizada por um webmaster com um backup das chaves e sua senha.',
-	'avis_connexion_erreur_fichier_cle_manquant_2' => 'A instalação deve ser feita por um webmaster com um backup das chaves',
-	'avis_connexion_erreur_nom_base' => 'O nome da base só pode conter letras, números e traços',
-	'avis_connexion_ldap_echec_1' => 'A conexão ao servidor LDAP falhou.',
-	'avis_connexion_ldap_echec_2' => 'Volte à página anterior e verifique as informações que você forneceu.',
-	'avis_connexion_ldap_echec_3' => 'Opcionalmente, não use o suporte LDAP para importar os usuários.',
-	'avis_deplacement_rubrique' => 'Atenção! Esta seção contém @contient_breves@ nota@scb@: se você a transferir, por favor, marque este quadrado.',
-	'avis_erreur_connexion_mysql' => 'Erro de conexão SQL',
-	'avis_erreur_creation_compte' => 'Erro durante a inicialização da conta',
-	'avis_espace_interdit' => '<b>Área interdita</b> <div>O SPIP já está instalado.</div>',
-	'avis_lecture_noms_bases_1' => 'O programa de instalação não pôde ler os nomes das bases de dados instaladas.',
-	'avis_lecture_noms_bases_2' => 'Ou nenhuma base de dados esta disponível, ou a função que permite listar as bases foi desativada por razões de segurança (o que é o caso de diversos provedores de hospedagem).',
-	'avis_lecture_noms_bases_3' => 'No segundo caso, é provável que uma base de dados com o nome do seu login possa ser utilizada:',
-	'avis_non_acces_page' => 'Você não tem acesso a esta página.',
-	'avis_operation_echec' => 'A operação falhou.',
-	'avis_operation_impossible' => 'Operação impossível',
-	'avis_suppression_base' => 'ATENÇÃO, a supressão dos dados é irreversível',
+    // A
+    'activer_plugin' => 'Ativar o plugin',
+    'affichage' => 'Exibição',
+    'aide_non_disponible' => 'Esta parte da ajuda online ainda não está disponível neste idioma.',
+    'annuler_recherche' => 'Cancelar a busca',
+    'auteur' => 'Autor:',
+    'avis_acces_interdit' => 'Acesso negado.',
+    'avis_acces_interdit_prive' => 'Você não está autorizado a acessar a página <b>@exec@</b>.',
+    'avis_article_modifie' => 'Atenção, @nom_auteur_modif@ editou esta matéria há @date_diff@ minutos',
+    'avis_aucun_resultat' => 'Nenhum resultado.',
+    'avis_base_inaccessible' => 'Não foi possível conectar com a base de dados @base@.',
+    'avis_chemin_invalide_1' => 'O caminho que você escolheu',
+    'avis_chemin_invalide_2' => 'não parece válido. Por favor, volte à página anterior e verifique as informações fornecidas.',
+    'avis_connexion_echec_1' => 'A conexão com a base de dados falhou.',
+    'avis_connexion_echec_2' => 'Volte à página anterior e verifique as informações que você forneceu.',
+    'avis_connexion_echec_3' => '<b>N.B.</b> Em diversos servidores, você precisa <b>solicitar</b> a ativação do seu acesso à base de dados antes de poder utilizá-la. Se você não consegue se conectar, verifique se você efetuou esse pedido.',
+    'avis_connexion_erreur_creer_base' => 'Não foi possível criar a base de dados.',
+    'avis_connexion_erreur_fichier_cle_manquant_1' => 'A instalação deve ser realizada por um webmaster com um backup das chaves e sua senha.',
+    'avis_connexion_erreur_fichier_cle_manquant_2' => 'A instalação deve ser feita por um webmaster com um backup das chaves',
+    'avis_connexion_erreur_nom_base' => 'O nome da base só pode conter letras, números e traços',
+    'avis_connexion_ldap_echec_1' => 'A conexão ao servidor LDAP falhou.',
+    'avis_connexion_ldap_echec_2' => 'Volte à página anterior e verifique as informações que você forneceu.',
+    'avis_connexion_ldap_echec_3' => 'Opcionalmente, não use o suporte LDAP para importar os usuários.',
+    'avis_deplacement_rubrique' => 'Atenção! Esta seção contém @contient_breves@ nota@scb@: se você a transferir, por favor, marque este quadrado.',
+    'avis_erreur_connexion_mysql' => 'Erro de conexão SQL',
+    'avis_erreur_creation_compte' => 'Erro durante a inicialização da conta',
+    'avis_espace_interdit' => '<b>Área interdita</b> <div>O SPIP já está instalado.</div>',
+    'avis_lecture_noms_bases_1' => 'O programa de instalação não pôde ler os nomes das bases de dados instaladas.',
+    'avis_lecture_noms_bases_2' => 'Ou nenhuma base de dados esta disponível, ou a função que permite listar as bases foi desativada por razões de segurança (o que é o caso de diversos provedores de hospedagem).',
+    'avis_lecture_noms_bases_3' => 'No segundo caso, é provável que uma base de dados com o nome do seu login possa ser utilizada:',
+    'avis_non_acces_page' => 'Você não tem acesso a esta página.',
+    'avis_operation_echec' => 'A operação falhou.',
+    'avis_operation_impossible' => 'Operação impossível',
+    'avis_suppression_base' => 'ATENÇÃO, a supressão dos dados é irreversível',
 
-	// B
-	'bouton_acces_ldap' => 'Incluir o acesso ao LDAP',
-	'bouton_ajouter' => 'Incluir',
-	'bouton_annuler' => 'Anular',
-	'bouton_cache_activer' => 'Reativar o cache',
-	'bouton_cache_desactiver' => 'Desativar temporariamente o cache',
-	'bouton_demande_publication' => 'Solicitar a publicação desta matéria',
-	'bouton_desactive_tout' => 'Desativar tudo',
-	'bouton_desinstaller' => 'Desinstalar',
-	'bouton_effacer_tout' => 'Apagar TUDO',
-	'bouton_envoyer_message' => 'Mensagem definitiva: enviar',
-	'bouton_fermer' => 'Fechar',
-	'bouton_mettre_a_jour_base' => 'Atualizar a base de dados',
-	'bouton_modifier' => 'Alterar',
-	'bouton_radio_afficher' => 'Exibir',
-	'bouton_radio_apparaitre_liste_redacteurs_connectes' => 'Exibir nas listas de redatores conectados',
-	'bouton_radio_envoi_annonces_adresse' => 'Enviar os avisos para o endereço:',
-	'bouton_radio_envoi_liste_nouveautes' => 'Enviar a lista de novidades',
-	'bouton_radio_non_apparaitre_liste_redacteurs_connectes' => 'Não exibir na lista de redatores',
-	'bouton_radio_non_envoi_annonces_editoriales' => 'Não enviar os avisos editoriais',
-	'bouton_redirection' => 'REDIRECIONAMENTO',
-	'bouton_reinitialiser_aux_valeurs_par_defaut' => 'Reiniciar aos valores padrão',
-	'bouton_relancer_inscription' => 'Reiniciar o registro',
-	'bouton_relancer_inscriptions' => 'Reiniciar os registros',
-	'bouton_relancer_installation' => 'Reiniciar a instalação',
-	'bouton_reset_password' => 'Criar uma nova senha e enviá-la por e-mail',
-	'bouton_suivant' => 'Avançar',
-	'bouton_tenter_recuperation' => 'Tentar uma reparação',
-	'bouton_test_proxy' => 'Testar o proxy',
-	'bouton_vider_cache' => 'Limpar o cache',
+    // B
+    'bouton_acces_ldap' => 'Incluir o acesso ao LDAP',
+    'bouton_ajouter' => 'Incluir',
+    'bouton_annuler' => 'Anular',
+    'bouton_cache_activer' => 'Reativar o cache',
+    'bouton_cache_desactiver' => 'Desativar temporariamente o cache',
+    'bouton_demande_publication' => 'Solicitar a publicação desta matéria',
+    'bouton_desactive_tout' => 'Desativar tudo',
+    'bouton_desinstaller' => 'Desinstalar',
+    'bouton_effacer_tout' => 'Apagar TUDO',
+    'bouton_envoyer_message' => 'Mensagem definitiva: enviar',
+    'bouton_fermer' => 'Fechar',
+    'bouton_mettre_a_jour_base' => 'Atualizar a base de dados',
+    'bouton_modifier' => 'Alterar',
+    'bouton_radio_afficher' => 'Exibir',
+    'bouton_radio_apparaitre_liste_redacteurs_connectes' => 'Exibir nas listas de redatores conectados',
+    'bouton_radio_envoi_annonces_adresse' => 'Enviar os avisos para o endereço:',
+    'bouton_radio_envoi_liste_nouveautes' => 'Enviar a lista de novidades',
+    'bouton_radio_non_apparaitre_liste_redacteurs_connectes' => 'Não exibir na lista de redatores',
+    'bouton_radio_non_envoi_annonces_editoriales' => 'Não enviar os avisos editoriais',
+    'bouton_redirection' => 'REDIRECIONAMENTO',
+    'bouton_reinitialiser_aux_valeurs_par_defaut' => 'Reiniciar aos valores padrão',
+    'bouton_relancer_inscription' => 'Reiniciar o registro',
+    'bouton_relancer_inscriptions' => 'Reiniciar os registros',
+    'bouton_relancer_installation' => 'Reiniciar a instalação',
+    'bouton_reset_password' => 'Criar uma nova senha e enviá-la por e-mail',
+    'bouton_suivant' => 'Avançar',
+    'bouton_tenter_recuperation' => 'Tentar uma reparação',
+    'bouton_test_proxy' => 'Testar o proxy',
+    'bouton_vider_cache' => 'Limpar o cache',
 
-	// C
-	'cache_modifiable_webmestre' => 'Este parâmetro é modificável pelo webmaster do site.',
-	'calendrier_synchro' => 'Se você usa um programa de agenda compatível com <b>iCal</b>, você pode sincronizá-lo com as informações deste site.',
-	'config_activer_champs' => 'Ativar os campos a seguir',
-	'config_choix_base_sup' => 'indicar uma base neste servidor',
-	'config_erreur_base_sup' => 'O SPIP não tem acesso à lista de bases acessíveis',
-	'config_info_base_sup' => 'Se você tiver outras bases de dados para serem consultadas via SPIP, em seu servidor SQL ou em outro, o formulário abaixo permite configurá-las. Se você deixar determinados campos em branco, os dados de conexão da base principal serão utilizados.',
-	'config_info_base_sup_disponibles' => 'Bases suplementares já consultáveis:',
-	'config_info_enregistree' => 'A nova configuração foi gravada',
-	'config_info_logos' => 'Cada elemento do site pode ter um ícone, bem como um ícone de «mouseOver»',
-	'config_info_logos_utiliser' => 'Usar os ícones',
-	'config_info_logos_utiliser_non' => 'Não usar o ícones',
-	'config_info_logos_utiliser_survol' => 'Usar os ícones de mouseOver',
-	'config_info_logos_utiliser_survol_non' => 'Não usar os ícones de mouseOver',
-	'config_info_redirection' => 'Ao ativar esta opção, você poderá criar matérias virtuais, meras referências a matérias publicadas em outros sites ou fora do SPIP.',
-	'config_redirection' => 'Matérias virtuais',
-	'config_titre_base_sup' => 'Configuração de uma base suplementar',
-	'config_titre_base_sup_choix' => 'Escolha uma base suplementar',
-	'connexion_ldap' => 'Conexão:',
-	'creer_et_associer_un_auteur' => 'Criar e vincular um autor',
+    // C
+    'cache_modifiable_webmestre' => 'Este parâmetro é modificável pelo webmaster do site.',
+    'calendrier_synchro' => 'Se você usa um programa de agenda compatível com <b>iCal</b>, você pode sincronizá-lo com as informações deste site.',
+    'config_activer_champs' => 'Ativar os campos a seguir',
+    'config_choix_base_sup' => 'indicar uma base neste servidor',
+    'config_erreur_base_sup' => 'O SPIP não tem acesso à lista de bases acessíveis',
+    'config_info_base_sup' => 'Se você tiver outras bases de dados para serem consultadas via SPIP, em seu servidor SQL ou em outro, o formulário abaixo permite configurá-las. Se você deixar determinados campos em branco, os dados de conexão da base principal serão utilizados.',
+    'config_info_base_sup_disponibles' => 'Bases suplementares já consultáveis:',
+    'config_info_enregistree' => 'A nova configuração foi gravada',
+    'config_info_logos' => 'Cada elemento do site pode ter um ícone, bem como um ícone de «mouseOver»',
+    'config_info_logos_utiliser' => 'Usar os ícones',
+    'config_info_logos_utiliser_non' => 'Não usar o ícones',
+    'config_info_logos_utiliser_survol' => 'Usar os ícones de mouseOver',
+    'config_info_logos_utiliser_survol_non' => 'Não usar os ícones de mouseOver',
+    'config_info_redirection' => 'Ao ativar esta opção, você poderá criar matérias virtuais, meras referências a matérias publicadas em outros sites ou fora do SPIP.',
+    'config_redirection' => 'Matérias virtuais',
+    'config_titre_base_sup' => 'Configuração de uma base suplementar',
+    'config_titre_base_sup_choix' => 'Escolha uma base suplementar',
+    'connexion_ldap' => 'Conexão:',
+    'creer_et_associer_un_auteur' => 'Criar e vincular um autor',
 
-	// D
-	'date_mot_heures' => 'horas',
+    // D
+    'date_mot_heures' => 'horas',
 
-	// E
-	'ecran_connexion_couleur_principale' => 'Cor principal',
-	'ecran_connexion_image_fond' => 'Imagem de fundo',
-	'ecran_connexion_image_fond_explication' => 'Usar uma imagem (formato JPEG, 1920x1080 pixels)',
-	'ecran_connexion_image_revenir_couleur_defaut' => 'Reverter para a cor padrão',
-	'ecran_connexion_titre' => 'Tela de conexão',
-	'ecran_securite' => ' + tela de segurança @version@',
-	'email' => 'e-mail',
-	'email_2' => 'e-mail:',
-	'en_savoir_plus' => 'Saiba mais',
-	'entree_adresse_annuaire' => 'Endereço do catálogo',
-	'entree_adresse_email' => 'Seu endereço de e-mail',
-	'entree_adresse_email_2' => 'Endereço de e-mail',
-	'entree_base_donnee_1' => 'Endereço da base de dados',
-	'entree_base_donnee_2' => '(Frequentemente este endereço corresponde ao do seu site, às vezes ele corresponde ao nome «localhost», algumas vezes ele pode ser deixado completamente em branco.)',
-	'entree_biographie' => 'Biografia curta em poucas palavras.',
-	'entree_chemin_acces' => '<b>Informe</b> o caminho de acesso:',
-	'entree_cle_pgp' => 'Sua chave PGP',
-	'entree_cle_pgp_2' => 'Chave PGP',
-	'entree_contenu_rubrique' => '(Conteúdo da seção em poucas palavras.)',
-	'entree_identifiants_connexion' => 'Seus dados de conexão...',
-	'entree_identifiants_connexion_2' => 'Dados de conexão',
-	'entree_informations_connexion_ldap' => 'Informe neste formulário os dados de conexão ao seu catálogo LDAP.
+    // E
+    'ecran_connexion_couleur_principale' => 'Cor principal',
+    'ecran_connexion_image_fond' => 'Imagem de fundo',
+    'ecran_connexion_image_fond_explication' => 'Usar uma imagem (formato JPEG, 1920x1080 pixels)',
+    'ecran_connexion_image_revenir_couleur_defaut' => 'Reverter para a cor padrão',
+    'ecran_connexion_titre' => 'Tela de conexão',
+    'ecran_securite' => ' + tela de segurança @version@',
+    'email' => 'e-mail',
+    'email_2' => 'e-mail:',
+    'en_savoir_plus' => 'Saiba mais',
+    'entree_adresse_annuaire' => 'Endereço do catálogo',
+    'entree_adresse_email' => 'Seu endereço de e-mail',
+    'entree_adresse_email_2' => 'Endereço de e-mail',
+    'entree_base_donnee_1' => 'Endereço da base de dados',
+    'entree_base_donnee_2' => '(Frequentemente este endereço corresponde ao do seu site, às vezes ele corresponde ao nome «localhost», algumas vezes ele pode ser deixado completamente em branco.)',
+    'entree_biographie' => 'Biografia curta em poucas palavras.',
+    'entree_chemin_acces' => '<b>Informe</b> o caminho de acesso:',
+    'entree_cle_pgp' => 'Sua chave PGP',
+    'entree_cle_pgp_2' => 'Chave PGP',
+    'entree_contenu_rubrique' => '(Conteúdo da seção em poucas palavras.)',
+    'entree_identifiants_connexion' => 'Seus dados de conexão...',
+    'entree_identifiants_connexion_2' => 'Dados de conexão',
+    'entree_informations_connexion_ldap' => 'Informe neste formulário os dados de conexão ao seu catálogo LDAP.
 Estas informações deverão ser fornecidas pelo administrador do sistema ou da rede.',
-	'entree_infos_perso' => 'Quem é você?',
-	'entree_infos_perso_2' => 'Quem é o autor?',
-	'entree_interieur_rubrique' => 'No interior da seção:',
-	'entree_liens_sites' => '<b>Link hipertexto</b> (referência, site a visitar...)',
-	'entree_login' => 'Seu login',
-	'entree_login_connexion_1' => 'O login de conexão',
-	'entree_login_connexion_2' => '(Frequentemente corresponde ao seu login para acesso por FTP; às vezes pode ser deixado em branco)',
-	'entree_mot_passe' => 'Sua senha',
-	'entree_mot_passe_1' => 'A senha de conexão',
-	'entree_mot_passe_2' => '(Frequentemente corresponde à sua senha para acesso por FTP; às vezes pode ser deixado em branco)',
-	'entree_nom_fichier' => 'Por favor, informe o nome do arquivo @texte_compresse@:',
-	'entree_nom_pseudo' => 'Seu nome ou apelido',
-	'entree_nom_pseudo_1' => '(Seu nome ou apelido)',
-	'entree_nom_pseudo_2' => 'Nome ou apelido',
-	'entree_nom_site' => 'O nome do seu site',
-	'entree_nom_site_2' => 'Nome do site do autor',
-	'entree_nouveau_passe' => 'Nova senha',
-	'entree_passe_ldap' => 'Senha',
-	'entree_port_annuaire' => 'O número da porta do catálogo',
-	'entree_signature' => 'Assinatura',
-	'entree_titre_obligatoire' => '<b>Título</b> [Obrigatório]<br />',
-	'entree_url' => 'O endereço (URL) do seu site',
-	'entree_url_2' => 'Endereço (URL) do site',
-	'erreur_connect_deja_existant' => 'Já existe um servidor com esse nome',
-	'erreur_contenu_suspect' => 'Texto escapado',
-	'erreur_email_deja_existant' => 'Esse endereço de email já está em uso.',
-	'erreur_nom_connect_incorrect' => 'Este nome de servidor não é autorizado',
-	'erreur_plugin_attribut_balise_manquant' => 'Atributo @attribut@ faltando no tag @balise@.',
-	'erreur_plugin_desinstalation_echouee' => 'A desinstalação do plugin falhou. No entanto, você pode desativá-lo.',
-	'erreur_plugin_fichier_absent' => 'Arquivo ausente',
-	'erreur_plugin_fichier_def_absent' => 'Arquivo de definição ausente',
-	'erreur_plugin_nom_fonction_interdit' => 'Nome de função não permitido',
-	'erreur_plugin_nom_manquant' => 'Nome do plugin ausente',
-	'erreur_plugin_prefix_manquant' => 'Área de nomeação do plugin não definida',
-	'erreur_plugin_tag_plugin_absent' => '&lt;plugin&gt; ausente no arquivo de definição',
-	'erreur_plugin_version_manquant' => 'Versão do plugin ausente',
-	'erreur_type_fichier' => 'Tipo de arquivo incorreto',
+    'entree_infos_perso' => 'Quem é você?',
+    'entree_infos_perso_2' => 'Quem é o autor?',
+    'entree_interieur_rubrique' => 'No interior da seção:',
+    'entree_liens_sites' => '<b>Link hipertexto</b> (referência, site a visitar...)',
+    'entree_login' => 'Seu login',
+    'entree_login_connexion_1' => 'O login de conexão',
+    'entree_login_connexion_2' => '(Frequentemente corresponde ao seu login para acesso por FTP; às vezes pode ser deixado em branco)',
+    'entree_mot_passe' => 'Sua senha',
+    'entree_mot_passe_1' => 'A senha de conexão',
+    'entree_mot_passe_2' => '(Frequentemente corresponde à sua senha para acesso por FTP; às vezes pode ser deixado em branco)',
+    'entree_nom_fichier' => 'Por favor, informe o nome do arquivo @texte_compresse@:',
+    'entree_nom_pseudo' => 'Seu nome ou apelido',
+    'entree_nom_pseudo_1' => '(Seu nome ou apelido)',
+    'entree_nom_pseudo_2' => 'Nome ou apelido',
+    'entree_nom_site' => 'O nome do seu site',
+    'entree_nom_site_2' => 'Nome do site do autor',
+    'entree_nouveau_passe' => 'Nova senha',
+    'entree_passe_ldap' => 'Senha',
+    'entree_port_annuaire' => 'O número da porta do catálogo',
+    'entree_signature' => 'Assinatura',
+    'entree_titre_obligatoire' => '<b>Título</b> [Obrigatório]<br />',
+    'entree_url' => 'O endereço (URL) do seu site',
+    'entree_url_2' => 'Endereço (URL) do site',
+    'erreur_connect_deja_existant' => 'Já existe um servidor com esse nome',
+    'erreur_contenu_suspect' => 'Texto escapado',
+    'erreur_email_deja_existant' => 'Esse endereço de email já está em uso.',
+    'erreur_nom_connect_incorrect' => 'Este nome de servidor não é autorizado',
+    'erreur_plugin_attribut_balise_manquant' => 'Atributo @attribut@ faltando no tag @balise@.',
+    'erreur_plugin_desinstalation_echouee' => 'A desinstalação do plugin falhou. No entanto, você pode desativá-lo.',
+    'erreur_plugin_fichier_absent' => 'Arquivo ausente',
+    'erreur_plugin_fichier_def_absent' => 'Arquivo de definição ausente',
+    'erreur_plugin_nom_fonction_interdit' => 'Nome de função não permitido',
+    'erreur_plugin_nom_manquant' => 'Nome do plugin ausente',
+    'erreur_plugin_prefix_manquant' => 'Área de nomeação do plugin não definida',
+    'erreur_plugin_tag_plugin_absent' => '&lt;plugin&gt; ausente no arquivo de definição',
+    'erreur_plugin_version_manquant' => 'Versão do plugin ausente',
+    'erreur_type_fichier' => 'Tipo de arquivo incorreto',
 
-	// H
-	'htaccess_a_simuler' => 'Aviso: a configuração do seu servidor HTTP não leva em conta os arquivos @htaccess@. Para poder garantir um bom nível de segurança, é preciso que você altere esta configuração, ou que as constantes @constantes@ (definíveis no arquivo mes_options.php) tenham como valor os diretórios abaixo de @document_root@.',
-	'htaccess_inoperant' => 'htaccess inoperante',
+    // H
+    'htaccess_a_simuler' => 'Aviso: a configuração do seu servidor HTTP não leva em conta os arquivos @htaccess@. Para poder garantir um bom nível de segurança, é preciso que você altere esta configuração, ou que as constantes @constantes@ (definíveis no arquivo mes_options.php) tenham como valor os diretórios abaixo de @document_root@.',
+    'htaccess_inoperant' => 'htaccess inoperante',
 
-	// I
-	'ical_info1' => 'Esta página apresenta diversos métodos para se manter a par da atividade deste site.',
-	'ical_info2' => 'Para mais informações sobre todas estas técnicas, não deixe de consultar <a href="@spipnet@">a documentação do SPIP</a>.',
-	'ical_info_calendrier' => 'Dois calendários estão à sua disposição. O primeiro é um mapa do site anunciando todas as matérias publicadas. O segundo contém os avisos editoriais bem como suas últimas mensagens privadas: ele lhe é reservado graças a uma chave pessoal, que você pode alterar a qualquer momento ao renovar a sua senha.',
-	'ical_methode_http' => 'Transferência',
-	'ical_methode_webcal' => 'Sincronização (webcal://)',
-	'ical_texte_prive' => 'Este calendário, de uso estritamente pessoal, o informa sobre a atividade editorial privada deste site (tarefas e encontros pessoais, matérias e notas propostas...).',
-	'ical_texte_public' => 'Este calendário permite-lhe acompanhar a atividade pública deste site (matérias e notas publicadas).',
-	'ical_texte_rss' => 'Você pode sindicar as novidades deste site em qualquer leitor de arquivos em formato XML/RSS (Rich Site Summary). É também o formato que permite ao SPIP ler as novidades publicadas em outros sites que utilizem um formato de troca de informações compatível (sites sindicados).',
-	'ical_titre_js' => 'Javascript',
-	'ical_titre_mailing' => 'Mailing-list',
-	'ical_titre_rss' => 'Arquivos de sindicação',
-	'icone_accueil' => 'Página Inicial',
-	'icone_activer_cookie' => 'Ativar o coockie de correspondência',
-	'icone_activite' => 'Atividade',
-	'icone_admin_plugin' => 'Gerenciamento dos plugins',
-	'icone_administration' => 'Manutenção',
-	'icone_afficher_auteurs' => 'Exibir os autores',
-	'icone_afficher_visiteurs' => 'Exibir os visitantes',
-	'icone_arret_discussion' => 'Não participar mais desta discussão',
-	'icone_calendrier' => 'Calendário',
-	'icone_configuration' => 'Configuração',
-	'icone_creer_auteur' => 'Criar um novo autor e vinculá-lo a esta matéria',
-	'icone_creer_mot_cle' => 'Criar uma nova palavra-chave e vinculá-la a esta matéria',
-	'icone_creer_rubrique_2' => 'Criar uma nova seção',
-	'icone_developpement' => 'Desenvolvimento',
-	'icone_edition' => 'Edição',
-	'icone_ma_langue' => 'Meu idioma',
-	'icone_mes_infos' => 'Minhas informações',
-	'icone_mes_preferences' => 'Minhas preferências',
-	'icone_modifier_article' => 'Editar esta matéria',
-	'icone_modifier_rubrique' => 'Editar esta seção',
-	'icone_publication' => 'Publicação',
-	'icone_relancer_signataire' => 'Reconfirmar o assinante',
-	'icone_retour' => 'Voltar',
-	'icone_retour_article' => 'Voltar para a matéria',
-	'icone_squelette' => 'Templates',
-	'icone_suivi_publication' => 'Acompanhamento da publicação',
-	'icone_supprimer_cookie' => 'Excluir o cookie de correspondência',
-	'icone_supprimer_rubrique' => 'Excluir esta seção',
-	'icone_supprimer_signature' => 'Excluir esta assinatura',
-	'icone_valider_signature' => 'Validar esta assinatura',
-	'image_administrer_rubrique' => 'Você pode administrar esta seção',
-	'impossible_modifier_login_auteur' => 'Não foi possível alterar o login.',
-	'impossible_modifier_pass_auteur' => 'Não foi possível alterar a senha.',
-	'info_1_article' => '1 matéria',
-	'info_1_auteur' => '1 autor',
-	'info_1_message' => '1 mensagem',
-	'info_1_mot_cle' => '1 palavra-chave',
-	'info_1_rubrique' => '1 seção',
-	'info_1_visiteur' => '1 visitante',
-	'info_activer_cookie' => 'Você pode ativar um <b>cookie de correspondência</b>, que lhe permitirá passar facilmente do site público para o site privado.',
-	'info_activer_menu_developpement' => 'Exibir o menu Desenvolvimento',
-	'info_admin_etre_webmestre' => 'Me conceder direitos de webmaster',
-	'info_admin_je_suis_webmestre' => 'Eu sou <b>webmaster</b>',
-	'info_admin_statuer_webmestre' => 'Dar a este administrador os direitos de webmaster',
-	'info_admin_webmestre' => 'Este administrador é <b>webmaster</b>',
-	'info_administrateur' => 'Administrador',
-	'info_administrateur_1' => 'Administrador',
-	'info_administrateur_2' => 'do site (<i>use com cuidado</i>)',
-	'info_administrateur_site_01' => 'Se você é administrador do site, por favor,',
-	'info_administrateur_site_02' => 'clique neste link',
-	'info_administrateurs' => 'Administradores',
-	'info_administrer_rubrique' => 'Você pode administrar esta seção',
-	'info_adresse' => 'no endereço:',
-	'info_adresse_desinscription' => 'Endereço da desinscrição:',
-	'info_adresse_url' => 'Endereço (URL) do site público',
-	'info_afficher_par_nb' => 'Exibir por',
-	'info_aide_en_ligne' => 'Ajuda online SPIP',
-	'info_ajout_image' => 'Assim que você incluir imagens e documentos anexados a uma matéria, o SPIP pode criar para você, automaticamente, ícones (miniaturas) das imagens inseridas. Isto permite, por exemplo, criar automaticamente uma galeria ou um portfólio.',
-	'info_ajouter_rubrique' => 'Incluir outra seção para administrar:',
-	'info_annonce_nouveautes' => 'Aviso das novidades',
-	'info_article' => 'matéria',
-	'info_article_2' => 'matérias',
-	'info_article_a_paraitre' => 'As matérias pós-datadas para exibição',
-	'info_articles_02' => 'matérias',
-	'info_articles_2' => 'Matérias',
-	'info_articles_auteur' => 'As matérias deste autor',
-	'info_articles_miens' => 'Minhas matérias',
-	'info_articles_tous' => 'Todas as matérias',
-	'info_articles_trouves' => 'Matérias encontradas',
-	'info_attente_validation' => 'Suas matérias aguardando validação',
-	'info_aucun_article' => 'Nenhuma matéria',
-	'info_aucun_auteur' => 'Nenhum autor',
-	'info_aucun_message' => 'Nenhuma mensagem',
-	'info_aucun_rubrique' => 'Nenhuma seção',
-	'info_aujourdhui' => 'Hoje:',
-	'info_auteur_gere_rubriques' => 'Este autor gerencia as seções a seguir:',
-	'info_auteur_gere_toutes_rubriques' => 'Este autor gerencia <b>todas as seções</b>',
-	'info_auteur_gere_toutes_rubriques_2' => 'Eu gerencio <b>todas as seções</b>',
-	'info_auteurs' => 'Os autores',
-	'info_auteurs_par_tri' => 'Autores@partri@',
-	'info_auteurs_trouves' => 'Autores encontrados',
-	'info_authentification_externe' => 'Autenticação externa',
-	'info_avertissement' => 'Aviso',
-	'info_barre_outils' => 'com sua barra de ferramentas?',
-	'info_base_installee' => 'A estrutura da sua base de dados foi instalada.',
-	'info_bio' => 'Biografia',
-	'info_cache_desactive' => 'O cache está temporariamente desativado.',
-	'info_chapeau' => 'Introdução',
-	'info_chapeau_2' => 'Introdução:',
-	'info_chemin_acces_1' => 'Opções: <b>Caminho de acesso no diretório</b>',
-	'info_chemin_acces_2' => 'A partir daqui, você deverá configurar o caminho de acesso às informações do diretório. Esta informação é indispensávelpara ler os perfis dos usuários no diretório.',
-	'info_chemin_acces_annuaire' => 'Opções: <b>Caminho de acesso no diretório</b>',
-	'info_choix_base' => 'Terceiro passo:',
-	'info_classement_1' => '<sup><u>o</u></sup> em @liste@',
-	'info_classement_2' => '<sup><u>a</u></sup> em @liste@',
-	'info_code_acces' => 'Não se esqueça dos seus dados de conexão!',
-	'info_config_suivi' => 'Se este endereço corresponde a uma mailing-list, você pode informar abaixo o endereço onde os participantes do site podem se inscrever. Este endereço pode ser um URL (por exemplo a página de inscrição na lista pela Web), ou um endereço de e-mail dotado de um assunto específico (par exemple: <tt>@adresse_suivi@?subject=subscribe</tt>):',
-	'info_config_suivi_explication' => 'Voce pode assinar a  mailing-list deste site. Você irá receber por e-mail, os avisos de matérias e notas propostos para publicação.',
-	'info_confirmer_passe' => 'Confirmar a nova senha:',
-	'info_conflit_edition_avis_non_sauvegarde' => 'Atenção os campos a seguir foram alterados por terceiros. As suas modificações nestes campos não foram, por isso, gravadas.',
-	'info_conflit_edition_differences' => 'Diferenças:',
-	'info_conflit_edition_version_enregistree' => 'A versão gravada:',
-	'info_conflit_edition_votre_version' => 'A sua versão:',
-	'info_connexion_base' => 'Teste de conexão com a base',
-	'info_connexion_base_donnee' => 'Conexão à sua base de dados',
-	'info_connexion_ldap_ok' => '<b>A conexão LDAP foi efetuada.</b><p>Você pode passar para o próximo passo.</p>',
-	'info_connexion_mysql' => 'Sua conexão SQL',
-	'info_connexion_ok' => 'A conexão foi obtida.',
-	'info_contact' => 'Contato',
-	'info_contenu_articles' => 'Conteúdo das matérias',
-	'info_contributions' => 'Contribuições',
-	'info_creation_paragraphe' => 'Para criar parágrafos, basta deixar linhas em branco.',
-	'info_creation_rubrique' => 'Antes de poder escrever matérias, você deve criar, pelo menos, uma seção.<br />',
-	'info_creation_tables' => 'Criação das tabelas da base',
-	'info_creer_base' => '<b>Criar</b> uma nova base de dados:',
-	'info_dans_rubrique' => 'Na seção:',
-	'info_date_publication_anterieure' => 'Data de redação anterior:',
-	'info_date_referencement' => 'DATA DE REFERENCIAMENTO DESTE SITE:',
-	'info_derniere_etape' => 'Terminou!',
-	'info_descriptif' => 'Descrição:',
-	'info_desinstaller_plugin' => 'exclui os dados e desativa o plugin',
-	'info_discussion_cours' => 'Discussões em andamento',
-	'info_ecrire_article' => 'Antes de poder escrever matérias, você precisa criar pelo menos uma seção.',
-	'info_email_envoi' => 'Endereço de e-mail de envio (opcional)',
-	'info_email_envoi_txt' => 'Informe aqui o endereço a ser utilizado para enviar os e-mails (por padrão, o endereço de destino será usado como endereço de envio):',
-	'info_email_webmestre' => 'Endereço de e-mail do webmaster',
-	'info_envoi_email_automatique' => 'Envio automático de e-mails',
-	'info_envoyer_maintenant' => 'Enviar agora',
-	'info_etape_suivante' => 'Avançar para a próxima etapa',
-	'info_etape_suivante_1' => 'Você pode passar para a próxima etapa.',
-	'info_etape_suivante_2' => 'Você pode passar para a próxima etapa.',
-	'info_exceptions_proxy' => 'Exceções para o proxy',
-	'info_exportation_base' => 'exportação da base para @archive@',
-	'info_facilite_suivi_activite' => 'Para facilitar o acompanhamento da atividade editorial do site, o SPIP pode avisar por e-mail, por exemplo para uma mailing-list de redatores, os avisos dos pedidos de publicação e das validações das matérias. Informe um ou mais endereços, separados por vírgula.',
-	'info_fichiers_authent' => 'Arquivos de autenticação «.htpasswd»',
-	'info_forums_abo_invites' => 'O seu site comporta fóruns por assinatura; os visitantes são convidados a se registrar no site público.',
-	'info_gauche_admin_tech' => '<b>Esta página é acessível apenas aos responsáveis pelo site.</b><p>Ela dá acesso às diferentes funções de manutenção técnica. Algumas dessas funções possuem um processo específico de autenticação que exige acesso FTP ao website.</p>',
-	'info_gauche_admin_vider' => '<b>Esta página é acessível apenas aos responsáveis pelo site.</b><p> Ela dá acesso às diferentes funções de manutenção técnica. Algumas dessas funções possuem um processo específico de autenticação que exige acesso FTP ao website.</p>',
-	'info_gauche_auteurs' => 'Aqui, você encontra todos os autores do site.
+    // I
+    'ical_info1' => 'Esta página apresenta diversos métodos para se manter a par da atividade deste site.',
+    'ical_info2' => 'Para mais informações sobre todas estas técnicas, não deixe de consultar <a href="@spipnet@">a documentação do SPIP</a>.',
+    'ical_info_calendrier' => 'Dois calendários estão à sua disposição. O primeiro é um mapa do site anunciando todas as matérias publicadas. O segundo contém os avisos editoriais bem como suas últimas mensagens privadas: ele lhe é reservado graças a uma chave pessoal, que você pode alterar a qualquer momento ao renovar a sua senha.',
+    'ical_methode_http' => 'Transferência',
+    'ical_methode_webcal' => 'Sincronização (webcal://)',
+    'ical_texte_prive' => 'Este calendário, de uso estritamente pessoal, o informa sobre a atividade editorial privada deste site (tarefas e encontros pessoais, matérias e notas propostas...).',
+    'ical_texte_public' => 'Este calendário permite-lhe acompanhar a atividade pública deste site (matérias e notas publicadas).',
+    'ical_texte_rss' => 'Você pode sindicar as novidades deste site em qualquer leitor de arquivos em formato XML/RSS (Rich Site Summary). É também o formato que permite ao SPIP ler as novidades publicadas em outros sites que utilizem um formato de troca de informações compatível (sites sindicados).',
+    'ical_titre_js' => 'Javascript',
+    'ical_titre_mailing' => 'Mailing-list',
+    'ical_titre_rss' => 'Arquivos de sindicação',
+    'icone_accueil' => 'Página Inicial',
+    'icone_activer_cookie' => 'Ativar o coockie de correspondência',
+    'icone_activite' => 'Atividade',
+    'icone_admin_plugin' => 'Gerenciamento dos plugins',
+    'icone_administration' => 'Manutenção',
+    'icone_afficher_auteurs' => 'Exibir os autores',
+    'icone_afficher_visiteurs' => 'Exibir os visitantes',
+    'icone_arret_discussion' => 'Não participar mais desta discussão',
+    'icone_calendrier' => 'Calendário',
+    'icone_configuration' => 'Configuração',
+    'icone_creer_auteur' => 'Criar um novo autor e vinculá-lo a esta matéria',
+    'icone_creer_mot_cle' => 'Criar uma nova palavra-chave e vinculá-la a esta matéria',
+    'icone_creer_rubrique_2' => 'Criar uma nova seção',
+    'icone_developpement' => 'Desenvolvimento',
+    'icone_edition' => 'Edição',
+    'icone_ma_langue' => 'Meu idioma',
+    'icone_mes_infos' => 'Minhas informações',
+    'icone_mes_preferences' => 'Minhas preferências',
+    'icone_modifier_article' => 'Editar esta matéria',
+    'icone_modifier_rubrique' => 'Editar esta seção',
+    'icone_publication' => 'Publicação',
+    'icone_relancer_signataire' => 'Reconfirmar o assinante',
+    'icone_retour' => 'Voltar',
+    'icone_retour_article' => 'Voltar para a matéria',
+    'icone_squelette' => 'Templates',
+    'icone_suivi_publication' => 'Acompanhamento da publicação',
+    'icone_supprimer_cookie' => 'Excluir o cookie de correspondência',
+    'icone_supprimer_rubrique' => 'Excluir esta seção',
+    'icone_supprimer_signature' => 'Excluir esta assinatura',
+    'icone_valider_signature' => 'Validar esta assinatura',
+    'image_administrer_rubrique' => 'Você pode administrar esta seção',
+    'impossible_modifier_login_auteur' => 'Não foi possível alterar o login.',
+    'impossible_modifier_pass_auteur' => 'Não foi possível alterar a senha.',
+    'info_1_article' => '1 matéria',
+    'info_1_auteur' => '1 autor',
+    'info_1_message' => '1 mensagem',
+    'info_1_mot_cle' => '1 palavra-chave',
+    'info_1_rubrique' => '1 seção',
+    'info_1_visiteur' => '1 visitante',
+    'info_activer_cookie' => 'Você pode ativar um <b>cookie de correspondência</b>, que lhe permitirá passar facilmente do site público para o site privado.',
+    'info_activer_menu_developpement' => 'Exibir o menu Desenvolvimento',
+    'info_admin_etre_webmestre' => 'Me conceder direitos de webmaster',
+    'info_admin_je_suis_webmestre' => 'Eu sou <b>webmaster</b>',
+    'info_admin_statuer_webmestre' => 'Dar a este administrador os direitos de webmaster',
+    'info_admin_webmestre' => 'Este administrador é <b>webmaster</b>',
+    'info_administrateur' => 'Administrador',
+    'info_administrateur_1' => 'Administrador',
+    'info_administrateur_2' => 'do site (<i>use com cuidado</i>)',
+    'info_administrateur_site_01' => 'Se você é administrador do site, por favor,',
+    'info_administrateur_site_02' => 'clique neste link',
+    'info_administrateurs' => 'Administradores',
+    'info_administrer_rubrique' => 'Você pode administrar esta seção',
+    'info_adresse' => 'no endereço:',
+    'info_adresse_desinscription' => 'Endereço da desinscrição:',
+    'info_adresse_url' => 'Endereço (URL) do site público',
+    'info_afficher_par_nb' => 'Exibir por',
+    'info_aide_en_ligne' => 'Ajuda online SPIP',
+    'info_ajout_image' => 'Assim que você incluir imagens e documentos anexados a uma matéria, o SPIP pode criar para você, automaticamente, ícones (miniaturas) das imagens inseridas. Isto permite, por exemplo, criar automaticamente uma galeria ou um portfólio.',
+    'info_ajouter_rubrique' => 'Incluir outra seção para administrar:',
+    'info_annonce_nouveautes' => 'Aviso das novidades',
+    'info_article' => 'matéria',
+    'info_article_2' => 'matérias',
+    'info_article_a_paraitre' => 'As matérias pós-datadas para exibição',
+    'info_articles_02' => 'matérias',
+    'info_articles_2' => 'Matérias',
+    'info_articles_auteur' => 'As matérias deste autor',
+    'info_articles_miens' => 'Minhas matérias',
+    'info_articles_tous' => 'Todas as matérias',
+    'info_articles_trouves' => 'Matérias encontradas',
+    'info_attente_validation' => 'Suas matérias aguardando validação',
+    'info_aucun_article' => 'Nenhuma matéria',
+    'info_aucun_auteur' => 'Nenhum autor',
+    'info_aucun_message' => 'Nenhuma mensagem',
+    'info_aucun_rubrique' => 'Nenhuma seção',
+    'info_aujourdhui' => 'Hoje:',
+    'info_auteur_gere_rubriques' => 'Este autor gerencia as seções a seguir:',
+    'info_auteur_gere_toutes_rubriques' => 'Este autor gerencia <b>todas as seções</b>',
+    'info_auteur_gere_toutes_rubriques_2' => 'Eu gerencio <b>todas as seções</b>',
+    'info_auteurs' => 'Os autores',
+    'info_auteurs_par_tri' => 'Autores@partri@',
+    'info_auteurs_trouves' => 'Autores encontrados',
+    'info_authentification_externe' => 'Autenticação externa',
+    'info_avertissement' => 'Aviso',
+    'info_barre_outils' => 'com sua barra de ferramentas?',
+    'info_base_installee' => 'A estrutura da sua base de dados foi instalada.',
+    'info_bio' => 'Biografia',
+    'info_cache_desactive' => 'O cache está temporariamente desativado.',
+    'info_chapeau' => 'Introdução',
+    'info_chapeau_2' => 'Introdução:',
+    'info_chemin_acces_1' => 'Opções: <b>Caminho de acesso no diretório</b>',
+    'info_chemin_acces_2' => 'A partir daqui, você deverá configurar o caminho de acesso às informações do diretório. Esta informação é indispensávelpara ler os perfis dos usuários no diretório.',
+    'info_chemin_acces_annuaire' => 'Opções: <b>Caminho de acesso no diretório</b>',
+    'info_choix_base' => 'Terceiro passo:',
+    'info_classement_1' => '<sup><u>o</u></sup> em @liste@',
+    'info_classement_2' => '<sup><u>a</u></sup> em @liste@',
+    'info_code_acces' => 'Não se esqueça dos seus dados de conexão!',
+    'info_config_suivi' => 'Se este endereço corresponde a uma mailing-list, você pode informar abaixo o endereço onde os participantes do site podem se inscrever. Este endereço pode ser um URL (por exemplo a página de inscrição na lista pela Web), ou um endereço de e-mail dotado de um assunto específico (par exemple: <tt>@adresse_suivi@?subject=subscribe</tt>):',
+    'info_config_suivi_explication' => 'Voce pode assinar a  mailing-list deste site. Você irá receber por e-mail, os avisos de matérias e notas propostos para publicação.',
+    'info_confirmer_passe' => 'Confirmar a nova senha:',
+    'info_conflit_edition_avis_non_sauvegarde' => 'Atenção os campos a seguir foram alterados por terceiros. As suas modificações nestes campos não foram, por isso, gravadas.',
+    'info_conflit_edition_differences' => 'Diferenças:',
+    'info_conflit_edition_version_enregistree' => 'A versão gravada:',
+    'info_conflit_edition_votre_version' => 'A sua versão:',
+    'info_connexion_base' => 'Teste de conexão com a base',
+    'info_connexion_base_donnee' => 'Conexão à sua base de dados',
+    'info_connexion_ldap_ok' => '<b>A conexão LDAP foi efetuada.</b><p>Você pode passar para o próximo passo.</p>',
+    'info_connexion_mysql' => 'Sua conexão SQL',
+    'info_connexion_ok' => 'A conexão foi obtida.',
+    'info_contact' => 'Contato',
+    'info_contenu_articles' => 'Conteúdo das matérias',
+    'info_contributions' => 'Contribuições',
+    'info_creation_paragraphe' => 'Para criar parágrafos, basta deixar linhas em branco.',
+    'info_creation_rubrique' => 'Antes de poder escrever matérias, você deve criar, pelo menos, uma seção.<br />',
+    'info_creation_tables' => 'Criação das tabelas da base',
+    'info_creer_base' => '<b>Criar</b> uma nova base de dados:',
+    'info_dans_rubrique' => 'Na seção:',
+    'info_date_publication_anterieure' => 'Data de redação anterior:',
+    'info_date_referencement' => 'DATA DE REFERENCIAMENTO DESTE SITE:',
+    'info_derniere_etape' => 'Terminou!',
+    'info_descriptif' => 'Descrição:',
+    'info_desinstaller_plugin' => 'exclui os dados e desativa o plugin',
+    'info_discussion_cours' => 'Discussões em andamento',
+    'info_ecrire_article' => 'Antes de poder escrever matérias, você precisa criar pelo menos uma seção.',
+    'info_email_envoi' => 'Endereço de e-mail de envio (opcional)',
+    'info_email_envoi_txt' => 'Informe aqui o endereço a ser utilizado para enviar os e-mails (por padrão, o endereço de destino será usado como endereço de envio):',
+    'info_email_webmestre' => 'Endereço de e-mail do webmaster',
+    'info_envoi_email_automatique' => 'Envio automático de e-mails',
+    'info_envoyer_maintenant' => 'Enviar agora',
+    'info_etape_suivante' => 'Avançar para a próxima etapa',
+    'info_etape_suivante_1' => 'Você pode passar para a próxima etapa.',
+    'info_etape_suivante_2' => 'Você pode passar para a próxima etapa.',
+    'info_exceptions_proxy' => 'Exceções para o proxy',
+    'info_exportation_base' => 'exportação da base para @archive@',
+    'info_facilite_suivi_activite' => 'Para facilitar o acompanhamento da atividade editorial do site, o SPIP pode avisar por e-mail, por exemplo para uma mailing-list de redatores, os avisos dos pedidos de publicação e das validações das matérias. Informe um ou mais endereços, separados por vírgula.',
+    'info_fichiers_authent' => 'Arquivos de autenticação «.htpasswd»',
+    'info_forums_abo_invites' => 'O seu site comporta fóruns por assinatura; os visitantes são convidados a se registrar no site público.',
+    'info_gauche_admin_tech' => '<b>Esta página é acessível apenas aos responsáveis pelo site.</b><p>Ela dá acesso às diferentes funções de manutenção técnica. Algumas dessas funções possuem um processo específico de autenticação que exige acesso FTP ao website.</p>',
+    'info_gauche_admin_vider' => '<b>Esta página é acessível apenas aos responsáveis pelo site.</b><p> Ela dá acesso às diferentes funções de manutenção técnica. Algumas dessas funções possuem um processo específico de autenticação que exige acesso FTP ao website.</p>',
+    'info_gauche_auteurs' => 'Aqui, você encontra todos os autores do site.
 Os status dos autores é indicado pela côr dos ícones (administrador = verde; redator = amarelo).',
-	'info_gauche_auteurs_exterieurs' => 'Os autores externos, sem acesso ao site, são indicados por um ícone azul;
+    'info_gauche_auteurs_exterieurs' => 'Os autores externos, sem acesso ao site, são indicados por um ícone azul;
 os autores excluídos por um ícone cinza.',
-	'info_gauche_messagerie' => 'O sistema interno de mensagens permite a troca de mensagens entre redatores, a criação de lembretes (para seu uso pessoal) ou exibir anúncios na página de entrada da área privada (se você for administrador).',
-	'info_gauche_statistiques_referers' => 'Esta página apresenta a lista dos  <i>referers</i>, ou seja, dos sites que contêm links para o seu site, unicamente para ontem e hoje; esta lista é zerada a cada 24 horas.',
-	'info_gauche_visiteurs_enregistres' => 'Você encontrará aqui os visitantes registrados na área pública do site (fóruns por assinatura).',
-	'info_generation_miniatures_images' => 'Geração de miniaturas das imagens',
-	'info_gerer_trad_objets' => '@objets@ : gerenciar os links de tradução',
-	'info_hebergeur_desactiver_envoi_email' => 'Alguns serviços de hospedagem desativam o envio automático de e-mails a partir dos seus servidores. Neste caso, as funcionalidades a seguir não funcionarão.',
-	'info_hier' => 'ontem:',
-	'info_identification_publique' => 'Sua identificação pública...',
-	'info_image_process' => 'Por favor, selecione o melhor método de criação dos ícones, clicando na imagem correspondente.',
-	'info_image_process2' => 'Se nenhuma imagem está sendo exibida, o servidor que hospeda o seu site não foi configurado para utilizar essas ferramentas. Se você deseja usar essas funções, contate o responsável técnico e solicite as extensões «GD» ou «Imagick».',
-	'info_images_auto' => 'Imagens calculadas automaticamente',
-	'info_informations_personnelles' => 'Informações pessoais',
-	'info_inscription' => 'Inscrição online',
-	'info_inscription_automatique' => 'Inscrição automática de novos redatores',
-	'info_jeu_caractere' => 'Conjunto de caracteres do site',
-	'info_jours' => 'dias',
-	'info_laisser_champs_vides' => 'deixar estes campos vazios)',
-	'info_langues' => 'Idiomas do site',
-	'info_ldap_ok' => 'A autenticação LDAP está instalada.',
-	'info_lien_hypertexte' => 'Link hipertexto:',
-	'info_liste_nouveautes_envoyee' => 'A lista de novidades foi enviada',
-	'info_liste_redacteurs_connectes' => 'Lista de redatores conectados',
-	'info_login_existant' => 'Este login já está cadastrado.',
-	'info_login_trop_court' => 'Login muito curto.',
-	'info_login_trop_court_car_pluriel' => 'O login deve conter pelo menos @nb@ caracteres.',
-	'info_logos' => 'Os ícones',
-	'info_maximum' => 'máximo:',
-	'info_meme_rubrique' => 'Na mesma seção',
-	'info_message_en_redaction' => 'Suas mensagens em fase de redação',
-	'info_message_technique' => 'Mensagem técnica:',
-	'info_messagerie_interne' => 'Mensageria interna',
-	'info_mise_a_niveau_base' => 'atualização da sua base SQL',
-	'info_mise_a_niveau_base_2' => '{{Atenção!}} Você instalou uma versão de arquivos SPIP {anterior} à que estava instalada no site: a sua base de dados corre o risco de se corromper e o seu site não funcionar mais.<br />{{Reinstale os arquivos SPIP.}}',
-	'info_modification_enregistree' => 'Sua alteração foi gravada',
-	'info_modifier_auteur' => 'Editar o autor:',
-	'info_modifier_rubrique' => 'Editar a seção:',
-	'info_modifier_titre' => 'Editar: @titre@',
-	'info_mon_site_spip' => 'Meu site SPIP',
-	'info_moyenne' => 'média:',
-	'info_multi_cet_article' => 'Idioma desta matéria:',
-	'info_multi_langues_choisies' => 'Por favor, selecione a seguir os idiomas à disposição dos redatores do seu site.
+    'info_gauche_messagerie' => 'O sistema interno de mensagens permite a troca de mensagens entre redatores, a criação de lembretes (para seu uso pessoal) ou exibir anúncios na página de entrada da área privada (se você for administrador).',
+    'info_gauche_statistiques_referers' => 'Esta página apresenta a lista dos  <i>referers</i>, ou seja, dos sites que contêm links para o seu site, unicamente para ontem e hoje; esta lista é zerada a cada 24 horas.',
+    'info_gauche_visiteurs_enregistres' => 'Você encontrará aqui os visitantes registrados na área pública do site (fóruns por assinatura).',
+    'info_generation_miniatures_images' => 'Geração de miniaturas das imagens',
+    'info_gerer_trad_objets' => '@objets@ : gerenciar os links de tradução',
+    'info_hebergeur_desactiver_envoi_email' => 'Alguns serviços de hospedagem desativam o envio automático de e-mails a partir dos seus servidores. Neste caso, as funcionalidades a seguir não funcionarão.',
+    'info_hier' => 'ontem:',
+    'info_identification_publique' => 'Sua identificação pública...',
+    'info_image_process' => 'Por favor, selecione o melhor método de criação dos ícones, clicando na imagem correspondente.',
+    'info_image_process2' => 'Se nenhuma imagem está sendo exibida, o servidor que hospeda o seu site não foi configurado para utilizar essas ferramentas. Se você deseja usar essas funções, contate o responsável técnico e solicite as extensões «GD» ou «Imagick».',
+    'info_images_auto' => 'Imagens calculadas automaticamente',
+    'info_informations_personnelles' => 'Informações pessoais',
+    'info_inscription' => 'Inscrição online',
+    'info_inscription_automatique' => 'Inscrição automática de novos redatores',
+    'info_jeu_caractere' => 'Conjunto de caracteres do site',
+    'info_jours' => 'dias',
+    'info_laisser_champs_vides' => 'deixar estes campos vazios)',
+    'info_langues' => 'Idiomas do site',
+    'info_ldap_ok' => 'A autenticação LDAP está instalada.',
+    'info_lien_hypertexte' => 'Link hipertexto:',
+    'info_liste_nouveautes_envoyee' => 'A lista de novidades foi enviada',
+    'info_liste_redacteurs_connectes' => 'Lista de redatores conectados',
+    'info_login_existant' => 'Este login já está cadastrado.',
+    'info_login_trop_court' => 'Login muito curto.',
+    'info_login_trop_court_car_pluriel' => 'O login deve conter pelo menos @nb@ caracteres.',
+    'info_logos' => 'Os ícones',
+    'info_maximum' => 'máximo:',
+    'info_meme_rubrique' => 'Na mesma seção',
+    'info_message_en_redaction' => 'Suas mensagens em fase de redação',
+    'info_message_technique' => 'Mensagem técnica:',
+    'info_messagerie_interne' => 'Mensageria interna',
+    'info_mise_a_niveau_base' => 'atualização da sua base SQL',
+    'info_mise_a_niveau_base_2' => '{{Atenção!}} Você instalou uma versão de arquivos SPIP {anterior} à que estava instalada no site: a sua base de dados corre o risco de se corromper e o seu site não funcionar mais.<br />{{Reinstale os arquivos SPIP.}}',
+    'info_modification_enregistree' => 'Sua alteração foi gravada',
+    'info_modifier_auteur' => 'Editar o autor:',
+    'info_modifier_rubrique' => 'Editar a seção:',
+    'info_modifier_titre' => 'Editar: @titre@',
+    'info_mon_site_spip' => 'Meu site SPIP',
+    'info_moyenne' => 'média:',
+    'info_multi_cet_article' => 'Idioma desta matéria:',
+    'info_multi_langues_choisies' => 'Por favor, selecione a seguir os idiomas à disposição dos redatores do seu site.
 Os idiomas já utilizados no site (no topo da lista) não podem ser desativados.',
-	'info_multi_objets' => '@objets@ : ativar o menu de idioma',
-	'info_multi_secteurs' => '... apenas para as seções situadas na raiz?',
-	'info_nb_articles' => '@nb@ matérias',
-	'info_nb_auteurs' => '@nb@ autores',
-	'info_nb_messages' => '@nb@ mensagens',
-	'info_nb_mots_cles' => '@nb@ palavras-chave',
-	'info_nb_rubriques' => '@nb@ seções',
-	'info_nb_visiteurs' => '@nb@ visitantes',
-	'info_nom' => 'Nome',
-	'info_nom_destinataire' => 'Nome do destinatário',
-	'info_nom_pas_conforme' => 'tags HTML não são permitidas',
-	'info_nom_site' => 'Nome do seu site',
-	'info_nombre_articles' => '@nb_articles@ matérias,',
-	'info_nombre_rubriques' => '@nb_rubriques@ seções,',
-	'info_nombre_sites' => '@nb_sites@ sites,',
-	'info_non_deplacer' => 'Não mover...',
-	'info_non_envoi_annonce_dernieres_nouveautes' => 'O SPIP pode enviar regularmente o anúncio das últimas novidades do site (matérias e notas publicadas recentemente).',
-	'info_non_envoi_liste_nouveautes' => 'Não enviar a lista de novidades',
-	'info_non_modifiable' => 'não pode ser modificado',
-	'info_non_suppression_mot_cle' => 'Eu não quero excluir esta palavra-chave.',
-	'info_notes' => 'Observações',
-	'info_nouvel_article' => 'Nova matéria',
-	'info_nouvelle_traduction' => 'Nova tradução:',
-	'info_numero_article' => 'MATÉRIA NÚMERO:',
-	'info_obligatoire_02' => '(obrigatório)',
-	'info_option_accepter_visiteurs' => 'Aceitar a inscrição de visitantes do site público',
-	'info_option_ne_pas_accepter_visiteurs' => 'Recusar a inscrição dos visitantes',
-	'info_options_avancees' => 'OPÇÕES AVANÇADAS',
-	'info_ou' => 'ou...',
-	'info_page_interdite' => 'Página não autorizada',
-	'info_par_nom' => 'por nome',
-	'info_par_nombre_article' => 'por número de matérias',
-	'info_par_statut' => 'por status',
-	'info_par_tri' => '’(por @tri@)’',
-	'info_passe_trop_court' => 'Senha muito curta.',
-	'info_passe_trop_court_car_pluriel' => 'A senha deve conter pelo menos @nb@ caracteres.',
-	'info_passes_identiques' => 'As duas senhas não são idênticas.',
-	'info_plus_cinq_car' => 'mais de 5 caracteres',
-	'info_plus_cinq_car_2' => '(Mais de 5 caracteres)',
-	'info_plus_trois_car' => '(Mais de 3 caracteres)',
-	'info_popularite' => 'popularidade: @popularite@; visitas: @visites@',
-	'info_post_scriptum' => 'Rodapé',
-	'info_post_scriptum_2' => 'Rodapé:',
-	'info_pour' => 'para',
-	'info_preview_texte' => 'É possível visualizar os diferentes elementos editoriais do site que tenham  pelo menos o status de «proposto», bem como os elementos em fase de redação de que se é autor. Esta funcionalidade deve estar disponível para os administradores, para os redatores, ou para ninguém?',
-	'info_procedez_par_etape' => 'proceder passo-a-passo',
-	'info_procedure_maj_version' => 'o procedimento de atualização deve ser rodado para adaptar a base de dados à nova versão do SPIP.',
-	'info_proxy_ok' => 'Teste do proxy bem sucedido',
-	'info_ps' => 'P.S.',
-	'info_publier' => 'publicar',
-	'info_publies' => 'Suas matérias publicadas online',
-	'info_question_accepter_visiteurs' => 'Se os templates do seu site prevêem o cadastramento de visitantes sem acesso à área privada, por favor, ative a opção abaixo:',
-	'info_question_inscription_nouveaux_redacteurs' => 'Você quer aceitar inscrições de novos redatores a partir do site público? Se você aceitar, os visitantes poderão se cadastrar através de um formulário automatizado, tendo acesso à área privada para propôr as suas próprias matérias. <div class="notice">Durante a fase de inscrição, os usuários recebem um e-mail automático, fornecendo-lhes os seus códigos de acesso à área privada. Alguns serviços de hospedagem desativam o envio de e-mails a partir dos seus servidores: nesse caso, a inscrição automática é impossível.</div>',
-	'info_qui_edite' => '@nom_auteur_modif@ trabalhou neste conteúdo há @date_diff@ minutos',
-	'info_racine_site' => 'Raiz do site',
-	'info_recharger_page' => 'Por favor, atualize esta página em alguns instantes.',
-	'info_recherche_auteur_zero' => 'Nenhum resultado para «@cherche_auteur@».',
-	'info_recommencer' => 'Por favor, recomece.',
-	'info_redacteur_1' => 'Redator',
-	'info_redacteur_2' => 'com acesso à área privada (<i>recomendado</i>)',
-	'info_redacteurs' => 'Redatores',
-	'info_redaction_en_cours' => 'EM FASE DE REDAÇÃO',
-	'info_redirection' => 'Redirecionamento',
-	'info_redirection_activee' => 'O redirecionamento foi ativado.',
-	'info_redirection_boucle' => 'Você tentou redirecionar a matéria para ela mesma.',
-	'info_redirection_desactivee' => 'O redirecionamento foi excluído.',
-	'info_refuses' => 'Suas matérias recusadas',
-	'info_reglage_ldap' => 'Opções: <b>Configuração da importação LDAP</b>',
-	'info_renvoi_article' => '<b>Redirecionamento.</b> Esta matéria redireciona para a página:',
-	'info_reserve_admin' => 'Apenas os administradores podem alterar este endereço.',
-	'info_restreindre_rubrique' => 'Restringir o gerenciamento à seção:',
-	'info_resultat_recherche' => 'Resultados da busca:',
-	'info_rubriques' => 'Seções',
-	'info_rubriques_02' => 'seções',
-	'info_rubriques_trouvees' => 'Seções encontradas',
-	'info_sans_titre' => 'Sem título',
-	'info_selection_chemin_acces' => '<b>Selecione</b> a seguir o caminho para acessar o diretório:',
-	'info_signatures' => 'assinaturas',
-	'info_site' => 'Site',
-	'info_site_2' => 'site:',
-	'info_site_min' => 'site',
-	'info_site_reference_2' => 'Site referenciado',
-	'info_site_web' => 'Website:',
-	'info_sites' => 'sites',
-	'info_sites_lies_mot' => 'Os sites referenciados vinculados a esta palavra-chave',
-	'info_sites_proxy' => 'Utilizar um proxy',
-	'info_sites_trouves' => 'Sites encontrados',
-	'info_sous_titre' => 'Subtítulo:',
-	'info_statut_administrateur' => 'Administrador',
-	'info_statut_auteur' => 'Status deste autor:',
-	'info_statut_auteur_2' => 'Eu sou',
-	'info_statut_auteur_a_confirmer' => 'Inscrição a confirmar',
-	'info_statut_auteur_autre' => 'Outro status:',
-	'info_statut_redacteur' => 'Redator',
-	'info_statut_utilisateurs_1' => 'Status padrão dos usuários importados',
-	'info_statut_utilisateurs_2' => 'Escolha o status atribuído às pessoas que constam do diretório LDAP, quando elas se conectarem pela primeira vêz. Você poderá, em seguida, alterar caso a caso este valor para cada autor.',
-	'info_suivi_activite' => 'Acompanhamento da atividade editorial',
-	'info_surtitre' => 'Sobretítulo:',
-	'info_syndication_integrale_1' => 'O seu site propõe arquivos de sindicação (ver «<a href="@url@">@titre@</a>»).',
-	'info_syndication_integrale_2' => 'Você deseja transmitir as matérias integralmente, ou difundir apenas um resumo de algumas centenas de caracteres?',
-	'info_table_prefix' => 'Você pode alterar o prefixo do nome das tabelas de dados (indispensável no caso de pretender instalar diversos sites na mesma base de dados). Este prefixo deve estar em minúsculas, não acentuadas, e sem espaços.',
-	'info_taille_maximale_images' => 'SPIP irá testar o tamanho máximo das imagens que o sistema pode tratar (em milhões de pixels).<br />As imagens muito grandes não serão reduzidas.',
-	'info_taille_maximale_vignette' => 'Tamanho máximo dos ícones gerados pelo sistema:',
-	'info_terminer_installation' => 'Você pode agora terminar o procedimento de instalação padrão.',
-	'info_texte' => 'Texto',
-	'info_texte_explicatif' => 'Texto explicativo',
-	'info_texte_long' => '(o texto é longo: ele aparecerá em diversas partes que serão recombinadas após validação.)',
-	'info_texte_message' => 'Texto da sua mensagem',
-	'info_texte_message_02' => 'Texto da mensagem',
-	'info_titre' => 'Título:',
-	'info_total' => 'total:',
-	'info_tous_articles_en_redaction' => 'Todas as matérias em fase de redação',
-	'info_tous_articles_presents' => 'Todas as matérias publicadas nesta seção',
-	'info_tous_articles_refuses' => 'Todas as matérias recusadas',
-	'info_tous_les' => 'todos os:',
-	'info_tout_site' => 'Todo o site',
-	'info_tout_site2' => 'A matéria não foi traduzida para este idioma.',
-	'info_tout_site3' => 'A matéria foi traduzida para este idioma, mas foram feitas alterações na matéria de referência. A tradução procisa ser atualizada.',
-	'info_tout_site4' => 'A matéria foi traduzida para este idioma e a tradução está em dia.',
-	'info_tout_site5' => 'Matéria original.',
-	'info_tout_site6' => '<b>Atenção:</b> apenas as matérias originais estão exibidas.
+    'info_multi_objets' => '@objets@ : ativar o menu de idioma',
+    'info_multi_secteurs' => '... apenas para as seções situadas na raiz?',
+    'info_nb_articles' => '@nb@ matérias',
+    'info_nb_auteurs' => '@nb@ autores',
+    'info_nb_messages' => '@nb@ mensagens',
+    'info_nb_mots_cles' => '@nb@ palavras-chave',
+    'info_nb_rubriques' => '@nb@ seções',
+    'info_nb_visiteurs' => '@nb@ visitantes',
+    'info_nom' => 'Nome',
+    'info_nom_destinataire' => 'Nome do destinatário',
+    'info_nom_pas_conforme' => 'tags HTML não são permitidas',
+    'info_nom_site' => 'Nome do seu site',
+    'info_nombre_articles' => '@nb_articles@ matérias,',
+    'info_nombre_rubriques' => '@nb_rubriques@ seções,',
+    'info_nombre_sites' => '@nb_sites@ sites,',
+    'info_non_deplacer' => 'Não mover...',
+    'info_non_envoi_annonce_dernieres_nouveautes' => 'O SPIP pode enviar regularmente o anúncio das últimas novidades do site (matérias e notas publicadas recentemente).',
+    'info_non_envoi_liste_nouveautes' => 'Não enviar a lista de novidades',
+    'info_non_modifiable' => 'não pode ser modificado',
+    'info_non_suppression_mot_cle' => 'Eu não quero excluir esta palavra-chave.',
+    'info_notes' => 'Observações',
+    'info_nouvel_article' => 'Nova matéria',
+    'info_nouvelle_traduction' => 'Nova tradução:',
+    'info_numero_article' => 'MATÉRIA NÚMERO:',
+    'info_obligatoire_02' => '(obrigatório)',
+    'info_option_accepter_visiteurs' => 'Aceitar a inscrição de visitantes do site público',
+    'info_option_ne_pas_accepter_visiteurs' => 'Recusar a inscrição dos visitantes',
+    'info_options_avancees' => 'OPÇÕES AVANÇADAS',
+    'info_ou' => 'ou...',
+    'info_page_interdite' => 'Página não autorizada',
+    'info_par_nom' => 'por nome',
+    'info_par_nombre_article' => 'por número de matérias',
+    'info_par_statut' => 'por status',
+    'info_par_tri' => '’(por @tri@)’',
+    'info_passe_trop_court' => 'Senha muito curta.',
+    'info_passe_trop_court_car_pluriel' => 'A senha deve conter pelo menos @nb@ caracteres.',
+    'info_passes_identiques' => 'As duas senhas não são idênticas.',
+    'info_plus_cinq_car' => 'mais de 5 caracteres',
+    'info_plus_cinq_car_2' => '(Mais de 5 caracteres)',
+    'info_plus_trois_car' => '(Mais de 3 caracteres)',
+    'info_popularite' => 'popularidade: @popularite@; visitas: @visites@',
+    'info_post_scriptum' => 'Rodapé',
+    'info_post_scriptum_2' => 'Rodapé:',
+    'info_pour' => 'para',
+    'info_preview_texte' => 'É possível visualizar os diferentes elementos editoriais do site que tenham  pelo menos o status de «proposto», bem como os elementos em fase de redação de que se é autor. Esta funcionalidade deve estar disponível para os administradores, para os redatores, ou para ninguém?',
+    'info_procedez_par_etape' => 'proceder passo-a-passo',
+    'info_procedure_maj_version' => 'o procedimento de atualização deve ser rodado para adaptar a base de dados à nova versão do SPIP.',
+    'info_proxy_ok' => 'Teste do proxy bem sucedido',
+    'info_ps' => 'P.S.',
+    'info_publier' => 'publicar',
+    'info_publies' => 'Suas matérias publicadas online',
+    'info_question_accepter_visiteurs' => 'Se os templates do seu site prevêem o cadastramento de visitantes sem acesso à área privada, por favor, ative a opção abaixo:',
+    'info_question_inscription_nouveaux_redacteurs' => 'Você quer aceitar inscrições de novos redatores a partir do site público? Se você aceitar, os visitantes poderão se cadastrar através de um formulário automatizado, tendo acesso à área privada para propôr as suas próprias matérias. <div class="notice">Durante a fase de inscrição, os usuários recebem um e-mail automático, fornecendo-lhes os seus códigos de acesso à área privada. Alguns serviços de hospedagem desativam o envio de e-mails a partir dos seus servidores: nesse caso, a inscrição automática é impossível.</div>',
+    'info_qui_edite' => '@nom_auteur_modif@ trabalhou neste conteúdo há @date_diff@ minutos',
+    'info_racine_site' => 'Raiz do site',
+    'info_recharger_page' => 'Por favor, atualize esta página em alguns instantes.',
+    'info_recherche_auteur_zero' => 'Nenhum resultado para «@cherche_auteur@».',
+    'info_recommencer' => 'Por favor, recomece.',
+    'info_redacteur_1' => 'Redator',
+    'info_redacteur_2' => 'com acesso à área privada (<i>recomendado</i>)',
+    'info_redacteurs' => 'Redatores',
+    'info_redaction_en_cours' => 'EM FASE DE REDAÇÃO',
+    'info_redirection' => 'Redirecionamento',
+    'info_redirection_activee' => 'O redirecionamento foi ativado.',
+    'info_redirection_boucle' => 'Você tentou redirecionar a matéria para ela mesma.',
+    'info_redirection_desactivee' => 'O redirecionamento foi excluído.',
+    'info_refuses' => 'Suas matérias recusadas',
+    'info_reglage_ldap' => 'Opções: <b>Configuração da importação LDAP</b>',
+    'info_renvoi_article' => '<b>Redirecionamento.</b> Esta matéria redireciona para a página:',
+    'info_reserve_admin' => 'Apenas os administradores podem alterar este endereço.',
+    'info_restreindre_rubrique' => 'Restringir o gerenciamento à seção:',
+    'info_resultat_recherche' => 'Resultados da busca:',
+    'info_rubriques' => 'Seções',
+    'info_rubriques_02' => 'seções',
+    'info_rubriques_trouvees' => 'Seções encontradas',
+    'info_sans_titre' => 'Sem título',
+    'info_selection_chemin_acces' => '<b>Selecione</b> a seguir o caminho para acessar o diretório:',
+    'info_signatures' => 'assinaturas',
+    'info_site' => 'Site',
+    'info_site_2' => 'site:',
+    'info_site_min' => 'site',
+    'info_site_reference_2' => 'Site referenciado',
+    'info_site_web' => 'Website:',
+    'info_sites' => 'sites',
+    'info_sites_lies_mot' => 'Os sites referenciados vinculados a esta palavra-chave',
+    'info_sites_proxy' => 'Utilizar um proxy',
+    'info_sites_trouves' => 'Sites encontrados',
+    'info_sous_titre' => 'Subtítulo:',
+    'info_statut_administrateur' => 'Administrador',
+    'info_statut_auteur' => 'Status deste autor:',
+    'info_statut_auteur_2' => 'Eu sou',
+    'info_statut_auteur_a_confirmer' => 'Inscrição a confirmar',
+    'info_statut_auteur_autre' => 'Outro status:',
+    'info_statut_redacteur' => 'Redator',
+    'info_statut_utilisateurs_1' => 'Status padrão dos usuários importados',
+    'info_statut_utilisateurs_2' => 'Escolha o status atribuído às pessoas que constam do diretório LDAP, quando elas se conectarem pela primeira vêz. Você poderá, em seguida, alterar caso a caso este valor para cada autor.',
+    'info_suivi_activite' => 'Acompanhamento da atividade editorial',
+    'info_surtitre' => 'Sobretítulo:',
+    'info_syndication_integrale_1' => 'O seu site propõe arquivos de sindicação (ver «<a href="@url@">@titre@</a>»).',
+    'info_syndication_integrale_2' => 'Você deseja transmitir as matérias integralmente, ou difundir apenas um resumo de algumas centenas de caracteres?',
+    'info_table_prefix' => 'Você pode alterar o prefixo do nome das tabelas de dados (indispensável no caso de pretender instalar diversos sites na mesma base de dados). Este prefixo deve estar em minúsculas, não acentuadas, e sem espaços.',
+    'info_taille_maximale_images' => 'SPIP irá testar o tamanho máximo das imagens que o sistema pode tratar (em milhões de pixels).<br />As imagens muito grandes não serão reduzidas.',
+    'info_taille_maximale_vignette' => 'Tamanho máximo dos ícones gerados pelo sistema:',
+    'info_terminer_installation' => 'Você pode agora terminar o procedimento de instalação padrão.',
+    'info_texte' => 'Texto',
+    'info_texte_explicatif' => 'Texto explicativo',
+    'info_texte_long' => '(o texto é longo: ele aparecerá em diversas partes que serão recombinadas após validação.)',
+    'info_texte_message' => 'Texto da sua mensagem',
+    'info_texte_message_02' => 'Texto da mensagem',
+    'info_titre' => 'Título:',
+    'info_total' => 'total:',
+    'info_tous_articles_en_redaction' => 'Todas as matérias em fase de redação',
+    'info_tous_articles_presents' => 'Todas as matérias publicadas nesta seção',
+    'info_tous_articles_refuses' => 'Todas as matérias recusadas',
+    'info_tous_les' => 'todos os:',
+    'info_tout_site' => 'Todo o site',
+    'info_tout_site2' => 'A matéria não foi traduzida para este idioma.',
+    'info_tout_site3' => 'A matéria foi traduzida para este idioma, mas foram feitas alterações na matéria de referência. A tradução procisa ser atualizada.',
+    'info_tout_site4' => 'A matéria foi traduzida para este idioma e a tradução está em dia.',
+    'info_tout_site5' => 'Matéria original.',
+    'info_tout_site6' => '<b>Atenção:</b> apenas as matérias originais estão exibidas.
 As traduções estão associadas ao original, numa côr que indica o seu status:',
-	'info_traductions' => 'Traduções',
-	'info_travail_colaboratif' => 'Trabalho colaborativo nas matérias',
-	'info_un_article' => 'uma matéria,',
-	'info_un_site' => 'um site,',
-	'info_une_rubrique' => 'uma seção,',
-	'info_une_rubrique_02' => '1 seção',
-	'info_url' => 'URL:',
-	'info_url_proxy' => 'URL do proxy',
-	'info_url_proxy_pas_conforme' => 'O URL do proxy não é válido.',
-	'info_url_site_pas_conforme' => 'O URL do site não é válido.',
-	'info_url_test_proxy' => 'URL de teste',
-	'info_urlref' => 'Link hipertexto:',
-	'info_utilisation_spip' => 'Você pode agora começar a utilizar o sistema de publicação assistida...',
-	'info_visites_par_mois' => 'Exibir por mês:',
-	'info_visiteur_1' => 'Visitante',
-	'info_visiteur_2' => 'do site público',
-	'info_visiteurs' => 'Visitantes',
-	'info_visiteurs_02' => 'Visitantes do site público',
-	'info_webmestre_forces' => 'Os webmasters são definidos em <tt>@file_options@</tt>.',
-	'install_adresse_base_hebergeur' => 'Endereço da base de dados atribuído pelo serviço de hospedagem:',
-	'install_connect_ok' => 'A nova base de dados foi corretamente declarada sob o nome de servidor @connect@.',
-	'install_echec_annonce' => 'A instalação irá, provavelmente, falhar, ou levar a um site que não funciona...',
-	'install_extension_mbstring' => 'O SPIP não funciona com:',
-	'install_extension_php_obligatoire' => 'O SPIP exige a extensão php:',
-	'install_login_base_hebergeur' => 'Login de conexão atribuído pelo serviço de hospedagem:',
-	'install_nom_base_hebergeur' => 'Nome da base atribuído pelo serviço de hospedagem:',
-	'install_pas_table' => 'Base atualmente sem tabelas',
-	'install_pass_base_hebergeur' => 'Senha de conexão atribuída pelo serviço de hospedagem',
-	'install_php_extension' => 'As extensões a seguir estão faltando: @extensions@',
-	'install_php_version' => 'PHP versão @version@ é insuficiente (mínimo = @minimum@)',
-	'install_php_version_max' => 'A versão @version@ do PHP é muito recente (máximo = @maximum@)',
-	'install_select_langue' => 'Escolha um idioma e clique no botão «avançar» para iniciar o procedimento de instalação.',
-	'install_select_type_db' => 'Indicar o tipo de base de dados:',
-	'install_select_type_mysql' => 'MySQL',
-	'install_select_type_pg' => 'PostgreSQL',
-	'install_select_type_sqlite2' => 'SQLite 2',
-	'install_select_type_sqlite3' => 'SQLite 3',
-	'install_serveur_hebergeur' => 'Servidor de base de dados atribuído pelo serviço de hospedagem',
-	'install_table_prefix_hebergeur' => 'Prefixo de tabela atribuído pelo serviço de hospedagem:',
-	'install_tables_base' => 'Tabelas da base',
-	'install_types_db_connus' => 'SPIP pode usar <b>MySQL</b> (a mais comum), e <b>SQLite</b>.',
-	'install_types_db_connus_avertissement' => 'O suporte ao <b>PostgreSQL</b> é também proposto a título experimental',
-	'instituer_erreur_statut_a_change' => 'O status já foi alterado',
-	'instituer_erreur_statut_non_autorise' => 'Você não pode escolher este status',
-	'intem_redacteur' => 'redator',
-	'intitule_licence' => 'Licença',
-	'item_accepter_inscriptions' => 'Aceitar as inscrições',
-	'item_activer_messages_avertissement' => 'Ativar as mensagens de aviso',
-	'item_administrateur_2' => 'administrador',
-	'item_afficher_calendrier' => 'Exibir no calendário',
-	'item_autoriser_syndication_integrale' => 'Difundir a íntegra das matérias nos arquivos de sindicação',
-	'item_choix_administrateurs' => 'os administradores',
-	'item_choix_generation_miniature' => 'Gerar automaticamente as miniaturas das imagens.',
-	'item_choix_non_generation_miniature' => 'Não gerar as miniaturas das imagens.',
-	'item_choix_redacteurs' => 'os redatores',
-	'item_choix_visiteurs' => 'os visitantes do site público',
-	'item_creer_fichiers_authent' => 'Criar os arquivos .htpasswd',
-	'item_login' => 'Login',
-	'item_messagerie_agenda' => 'Ativar as mesagens internas e a agenda',
-	'item_mots_cles_association_articles' => 'às matérias',
-	'item_mots_cles_association_rubriques' => 'às seções',
-	'item_mots_cles_association_sites' => 'aos sites referenciados ou sindicados.',
-	'item_non' => 'Não',
-	'item_non_accepter_inscriptions' => 'Não aceitar inscrições',
-	'item_non_activer_messages_avertissement' => 'Sem mensagens de aviso',
-	'item_non_afficher_calendrier' => 'Não exibir no calendário',
-	'item_non_autoriser_syndication_integrale' => 'Difundir apenas um resumo',
-	'item_non_creer_fichiers_authent' => 'Não criar os arquivos',
-	'item_non_messagerie_agenda' => 'Desativar as mensagens internas e a agenda',
-	'item_non_publier_articles' => 'Não publicar as matérias antes da data de publicação fixada.',
-	'item_nouvel_auteur' => 'Novo autor',
-	'item_nouvelle_rubrique' => 'Nova seção',
-	'item_oui' => 'Sim',
-	'item_publier_articles' => 'Publicar as matérias seja qual for a sua data de publicação.',
-	'item_reponse_article' => 'Resposta à matéria',
-	'item_visiteur' => 'Visitante',
+    'info_traductions' => 'Traduções',
+    'info_travail_colaboratif' => 'Trabalho colaborativo nas matérias',
+    'info_un_article' => 'uma matéria,',
+    'info_un_site' => 'um site,',
+    'info_une_rubrique' => 'uma seção,',
+    'info_une_rubrique_02' => '1 seção',
+    'info_url' => 'URL:',
+    'info_url_proxy' => 'URL do proxy',
+    'info_url_proxy_pas_conforme' => 'O URL do proxy não é válido.',
+    'info_url_site_pas_conforme' => 'O URL do site não é válido.',
+    'info_url_test_proxy' => 'URL de teste',
+    'info_urlref' => 'Link hipertexto:',
+    'info_utilisation_spip' => 'Você pode agora começar a utilizar o sistema de publicação assistida...',
+    'info_visites_par_mois' => 'Exibir por mês:',
+    'info_visiteur_1' => 'Visitante',
+    'info_visiteur_2' => 'do site público',
+    'info_visiteurs' => 'Visitantes',
+    'info_visiteurs_02' => 'Visitantes do site público',
+    'info_webmestre_forces' => 'Os webmasters são definidos em <tt>@file_options@</tt>.',
+    'install_adresse_base_hebergeur' => 'Endereço da base de dados atribuído pelo serviço de hospedagem:',
+    'install_connect_ok' => 'A nova base de dados foi corretamente declarada sob o nome de servidor @connect@.',
+    'install_echec_annonce' => 'A instalação irá, provavelmente, falhar, ou levar a um site que não funciona...',
+    'install_extension_mbstring' => 'O SPIP não funciona com:',
+    'install_extension_php_obligatoire' => 'O SPIP exige a extensão php:',
+    'install_login_base_hebergeur' => 'Login de conexão atribuído pelo serviço de hospedagem:',
+    'install_nom_base_hebergeur' => 'Nome da base atribuído pelo serviço de hospedagem:',
+    'install_pas_table' => 'Base atualmente sem tabelas',
+    'install_pass_base_hebergeur' => 'Senha de conexão atribuída pelo serviço de hospedagem',
+    'install_php_extension' => 'As extensões a seguir estão faltando: @extensions@',
+    'install_php_version' => 'PHP versão @version@ é insuficiente (mínimo = @minimum@)',
+    'install_php_version_max' => 'A versão @version@ do PHP é muito recente (máximo = @maximum@)',
+    'install_select_langue' => 'Escolha um idioma e clique no botão «avançar» para iniciar o procedimento de instalação.',
+    'install_select_type_db' => 'Indicar o tipo de base de dados:',
+    'install_select_type_mysql' => 'MySQL',
+    'install_select_type_pg' => 'PostgreSQL',
+    'install_select_type_sqlite2' => 'SQLite 2',
+    'install_select_type_sqlite3' => 'SQLite 3',
+    'install_serveur_hebergeur' => 'Servidor de base de dados atribuído pelo serviço de hospedagem',
+    'install_table_prefix_hebergeur' => 'Prefixo de tabela atribuído pelo serviço de hospedagem:',
+    'install_tables_base' => 'Tabelas da base',
+    'install_types_db_connus' => 'SPIP pode usar <b>MySQL</b> (a mais comum), e <b>SQLite</b>.',
+    'install_types_db_connus_avertissement' => 'O suporte ao <b>PostgreSQL</b> é também proposto a título experimental',
+    'instituer_erreur_statut_a_change' => 'O status já foi alterado',
+    'instituer_erreur_statut_non_autorise' => 'Você não pode escolher este status',
+    'intem_redacteur' => 'redator',
+    'intitule_licence' => 'Licença',
+    'item_accepter_inscriptions' => 'Aceitar as inscrições',
+    'item_activer_messages_avertissement' => 'Ativar as mensagens de aviso',
+    'item_administrateur_2' => 'administrador',
+    'item_afficher_calendrier' => 'Exibir no calendário',
+    'item_autoriser_syndication_integrale' => 'Difundir a íntegra das matérias nos arquivos de sindicação',
+    'item_choix_administrateurs' => 'os administradores',
+    'item_choix_generation_miniature' => 'Gerar automaticamente as miniaturas das imagens.',
+    'item_choix_non_generation_miniature' => 'Não gerar as miniaturas das imagens.',
+    'item_choix_redacteurs' => 'os redatores',
+    'item_choix_visiteurs' => 'os visitantes do site público',
+    'item_creer_fichiers_authent' => 'Criar os arquivos .htpasswd',
+    'item_login' => 'Login',
+    'item_messagerie_agenda' => 'Ativar as mesagens internas e a agenda',
+    'item_mots_cles_association_articles' => 'às matérias',
+    'item_mots_cles_association_rubriques' => 'às seções',
+    'item_mots_cles_association_sites' => 'aos sites referenciados ou sindicados.',
+    'item_non' => 'Não',
+    'item_non_accepter_inscriptions' => 'Não aceitar inscrições',
+    'item_non_activer_messages_avertissement' => 'Sem mensagens de aviso',
+    'item_non_afficher_calendrier' => 'Não exibir no calendário',
+    'item_non_autoriser_syndication_integrale' => 'Difundir apenas um resumo',
+    'item_non_creer_fichiers_authent' => 'Não criar os arquivos',
+    'item_non_messagerie_agenda' => 'Desativar as mensagens internas e a agenda',
+    'item_non_publier_articles' => 'Não publicar as matérias antes da data de publicação fixada.',
+    'item_nouvel_auteur' => 'Novo autor',
+    'item_nouvelle_rubrique' => 'Nova seção',
+    'item_oui' => 'Sim',
+    'item_publier_articles' => 'Publicar as matérias seja qual for a sua data de publicação.',
+    'item_reponse_article' => 'Resposta à matéria',
+    'item_visiteur' => 'Visitante',
 
-	// J
-	'jour_non_connu_nc' => 'n.c.',
+    // J
+    'jour_non_connu_nc' => 'n.c.',
 
-	// L
-	'label_bando_outils' => 'Barra de ferramentas',
-	'label_bando_outils_afficher' => 'Exibir as ferramentas',
-	'label_bando_outils_masquer' => 'Esconder as ferramentas',
-	'label_choix_langue' => 'Escolha o seu idioma',
-	'label_langue' => 'Idioma',
-	'label_nom_fichier_connect' => 'Informe o nome usado por este servidor',
-	'label_slogan_site' => 'Slogan do site',
-	'label_taille_ecran' => 'Largura da tela',
-	'label_texte_et_icones_navigation' => 'Menu de navegação',
-	'label_texte_et_icones_page' => 'Exibição na página',
-	'ldap_correspondance' => 'herança do campo @champ@',
-	'ldap_correspondance_1' => 'Herança dos campos LDAP',
-	'ldap_correspondance_2' => 'Para cada um dos campos SPIP a seguir, indique o nome do campo LDAP correspondente. Deixe em branco para não preencher, separe por espaços ou vírgulas para tentar vários campos LDAP.',
-	'lien_ajouter_auteur' => 'Incluir este autor',
-	'lien_ajouter_une_rubrique' => 'Incluir esta seção',
-	'lien_email' => 'e-mail',
-	'lien_nom_site' => 'NOME DO SITE:',
-	'lien_rapide_contenu' => 'Ir para o conteúdo',
-	'lien_rapide_navigation' => 'Ir para a navegação',
-	'lien_rapide_recherche' => 'Ir para a busca',
-	'lien_retirer_auteur' => 'Retirar o autor',
-	'lien_retirer_rubrique' => 'Excluir a seção',
-	'lien_retirer_tous_auteurs' => 'Retirar todos os autores',
-	'lien_retirer_toutes_rubriques' => 'Retirar todas as seções',
-	'lien_site' => 'site',
-	'lien_tout_decocher' => 'Desmarcar tudo',
-	'lien_tout_deplier' => 'Expandir tudo',
-	'lien_tout_replier' => 'Retrair tudo',
-	'lien_tout_supprimer' => 'Excluir tudo',
-	'lien_trier_nom' => 'Ordenar pelo nome',
-	'lien_trier_nombre_articles' => 'Ordenar por número de matérias',
-	'lien_trier_statut' => 'Ordenar pelo status',
-	'lien_voir_en_ligne' => 'VER ONLINE:',
-	'logo_article' => 'Ícone da matéria',
-	'logo_auteur' => 'Ícone do autor',
-	'logo_rubrique' => 'Ícone da seção',
-	'logo_site' => 'Ícone deste site',
-	'logo_standard_rubrique' => 'Ícone padrão das seções',
-	'logo_survol' => 'Ícone para mouseOver',
+    // L
+    'label_bando_outils' => 'Barra de ferramentas',
+    'label_bando_outils_afficher' => 'Exibir as ferramentas',
+    'label_bando_outils_masquer' => 'Esconder as ferramentas',
+    'label_choix_langue' => 'Escolha o seu idioma',
+    'label_langue' => 'Idioma',
+    'label_nom_fichier_connect' => 'Informe o nome usado por este servidor',
+    'label_slogan_site' => 'Slogan do site',
+    'label_taille_ecran' => 'Largura da tela',
+    'label_texte_et_icones_navigation' => 'Menu de navegação',
+    'label_texte_et_icones_page' => 'Exibição na página',
+    'ldap_correspondance' => 'herança do campo @champ@',
+    'ldap_correspondance_1' => 'Herança dos campos LDAP',
+    'ldap_correspondance_2' => 'Para cada um dos campos SPIP a seguir, indique o nome do campo LDAP correspondente. Deixe em branco para não preencher, separe por espaços ou vírgulas para tentar vários campos LDAP.',
+    'lien_ajouter_auteur' => 'Incluir este autor',
+    'lien_ajouter_une_rubrique' => 'Incluir esta seção',
+    'lien_email' => 'e-mail',
+    'lien_nom_site' => 'NOME DO SITE:',
+    'lien_rapide_contenu' => 'Ir para o conteúdo',
+    'lien_rapide_navigation' => 'Ir para a navegação',
+    'lien_rapide_recherche' => 'Ir para a busca',
+    'lien_retirer_auteur' => 'Retirar o autor',
+    'lien_retirer_rubrique' => 'Excluir a seção',
+    'lien_retirer_tous_auteurs' => 'Retirar todos os autores',
+    'lien_retirer_toutes_rubriques' => 'Retirar todas as seções',
+    'lien_site' => 'site',
+    'lien_tout_decocher' => 'Desmarcar tudo',
+    'lien_tout_deplier' => 'Expandir tudo',
+    'lien_tout_replier' => 'Retrair tudo',
+    'lien_tout_supprimer' => 'Excluir tudo',
+    'lien_trier_nom' => 'Ordenar pelo nome',
+    'lien_trier_nombre_articles' => 'Ordenar por número de matérias',
+    'lien_trier_statut' => 'Ordenar pelo status',
+    'lien_voir_en_ligne' => 'VER ONLINE:',
+    'logo_article' => 'Ícone da matéria',
+    'logo_auteur' => 'Ícone do autor',
+    'logo_rubrique' => 'Ícone da seção',
+    'logo_site' => 'Ícone deste site',
+    'logo_standard_rubrique' => 'Ícone padrão das seções',
+    'logo_survol' => 'Ícone para mouseOver',
 
-	// M
-	'menu_aide_installation_choix_base' => 'Seleção da sua base',
-	'module_fichier_langue' => 'Arquivo de idioma',
-	'module_raccourci' => 'Atalho',
-	'module_texte_affiche' => 'Texto exibido',
-	'module_texte_explicatif' => 'Você pode inserir os atalhos a seguir nos templates do seu site público. Eles serão traduzidos automaticamente para os idiomas para os quais exista um arquivo de idioma.',
-	'module_texte_traduction' => 'O arquivo de idioma «@module@» está disponível em:',
-	'mois_non_connu' => 'desconhecido',
+    // M
+    'menu_aide_installation_choix_base' => 'Seleção da sua base',
+    'module_fichier_langue' => 'Arquivo de idioma',
+    'module_raccourci' => 'Atalho',
+    'module_texte_affiche' => 'Texto exibido',
+    'module_texte_explicatif' => 'Você pode inserir os atalhos a seguir nos templates do seu site público. Eles serão traduzidos automaticamente para os idiomas para os quais exista um arquivo de idioma.',
+    'module_texte_traduction' => 'O arquivo de idioma «@module@» está disponível em:',
+    'mois_non_connu' => 'desconhecido',
 
-	// N
-	'nouvelle_version_spip' => 'A versão @version@ do SPIP está disponível',
-	'nouvelle_version_spip_majeure' => 'Uma nova versão SPIP @version@ está disponível',
+    // N
+    'nouvelle_version_spip' => 'A versão @version@ do SPIP está disponível',
+    'nouvelle_version_spip_majeure' => 'Uma nova versão SPIP @version@ está disponível',
 
-	// O
-	'onglet_contenu' => 'Conteúdo',
-	'onglet_declarer_une_autre_base' => 'Configurar outra base',
-	'onglet_discuter' => 'Discutir',
-	'onglet_interactivite' => 'Interatividade',
-	'onglet_proprietes' => 'Propriedades',
-	'onglet_repartition_actuelle' => 'atualmente',
-	'onglet_sous_rubriques' => 'Subseções',
+    // O
+    'onglet_contenu' => 'Conteúdo',
+    'onglet_declarer_une_autre_base' => 'Configurar outra base',
+    'onglet_discuter' => 'Discutir',
+    'onglet_interactivite' => 'Interatividade',
+    'onglet_proprietes' => 'Propriedades',
+    'onglet_repartition_actuelle' => 'atualmente',
+    'onglet_sous_rubriques' => 'Subseções',
 
-	// P
-	'page_pas_proxy' => 'Esta página não deve passar pelo proxy',
-	'pas_de_proxy_pour' => 'Se necessário, indique as máquinas ou domínios para os quais este proxy não se aplica (por exemplo: @exemple@)',
-	'phpinfo' => 'Configuração PHP',
-	'plugin_charge_paquet' => 'Carregamento do pacote @name@',
-	'plugin_charger' => 'Transferir',
-	'plugin_erreur_charger' => 'erro: não foi possível carregar @zip@',
-	'plugin_erreur_droit1' => 'O diretório <code>@dest@</code> não está acessível para escrita.',
-	'plugin_erreur_droit2' => 'Por favor, verifique os direitos deste diretório (e criá-lo, caso não exista), ou instalar os arquivos por FTP.',
-	'plugin_erreur_zip' => 'falha pclzip: erro @status@',
-	'plugin_etat_developpement' => 'em desenvolvimento',
-	'plugin_etat_experimental' => 'experimental',
-	'plugin_etat_stable' => 'estável',
-	'plugin_etat_test' => 'em teste',
-	'plugin_impossible_activer' => 'Não foi possível ativar o plugin @plugin@',
-	'plugin_info_automatique1' => 'Se você deseja autorizar a instalaçào automática dos plugins, por favor:',
-	'plugin_info_automatique1_lib' => 'Se você deseja autorizar a instalação automática desta biblioteca, por favor:',
-	'plugin_info_automatique2' => 'crie um diretório <code>@rep@</code> ;',
-	'plugin_info_automatique3' => 'verifique se o servidor está autorizado a escrever neste diretório',
-	'plugin_info_automatique_creer' => 'a ser criado na raiz do site.',
-	'plugin_info_automatique_exemples' => 'exemplos:',
-	'plugin_info_automatique_ftp' => 'Você pode instalar os plugins, por FTP, no diretório <tt>@rep@</tt>',
-	'plugin_info_automatique_lib' => 'Alguns plugins precisam também poder transferir arquivos para o diretório <code>lib/</code>, a ser criado, caso não exista, na raiz do site.',
-	'plugin_info_automatique_liste' => 'Suas listas de plugins:',
-	'plugin_info_automatique_liste_officielle' => 'os plugins oficiais',
-	'plugin_info_automatique_liste_update' => 'Atualizar as listas',
-	'plugin_info_automatique_ou' => 'ou...',
-	'plugin_info_automatique_select' => 'Selecione abaixo um plugin: O SPIP o transferirá e o instalará no diretório <code>@rep@</code>; se o plugin já existir, será atualizado.',
-	'plugin_info_credit' => 'Créditos',
-	'plugin_info_erreur_xml' => 'A declaração deste plugin está incorreta',
-	'plugin_info_install_ok' => 'Instalação bem sucedida',
-	'plugin_info_necessite' => 'Requer:',
-	'plugin_info_non_compatible_spip' => 'Este plugin não é compatível com esta versão do SPIP',
-	'plugin_info_plugins_dist_1' => 'Os plugins abaixo são carregados e ativados no diretório @plugins_dist@.',
-	'plugin_info_plugins_dist_2' => 'Eles não são desativáveis.',
-	'plugin_info_telecharger' => 'transferir de @url@ e instalar em @rep@',
-	'plugin_info_upgrade_ok' => 'Atualização bem sucedida',
-	'plugin_librairies_installees' => 'Bibliotecas instaladas',
-	'plugin_necessite_extension_php' => 'Requer a extensão PHP @plugin@ na versão @version@.',
-	'plugin_necessite_extension_php_sans_version' => 'Requer a extensão PHP @plugin@',
-	'plugin_necessite_lib' => 'Este plugin precisa da biblioteca @lib@',
-	'plugin_necessite_php' => 'Requer @plugin@ na versão @version@.',
-	'plugin_necessite_plugin' => 'Precisa do plugin @plugin@, na versão @version@.',
-	'plugin_necessite_plugin_sans_version' => 'Precisa do plugin @plugin@',
-	'plugin_necessite_spip' => 'É necessário o SPIP na versão @version@, pelo menos.',
-	'plugin_source' => 'fonte: ',
-	'plugin_titre_automatique' => 'Instalação automática',
-	'plugin_titre_automatique_ajouter' => 'Incluir plugins',
-	'plugin_titre_installation' => 'Instalação do plugin @plugin@',
-	'plugin_titre_modifier' => 'Meus plugins',
-	'plugin_utilise_extension_php' => 'A extensão PHP @plugin@ deve estar na versão @version@.',
-	'plugin_utilise_php' => '@plugin@ deve estar na versão @version@.',
-	'plugin_utilise_plugin' => 'O plugin @plugin@ deve estar na versão @version@.',
-	'plugin_zip_active' => 'Continue para o ativar',
-	'plugin_zip_adresse' => 'Indique abaixo o endereço de um arquivo zip de plugin a ser transferido, ou ainda o endereço de uma lista de plugins.',
-	'plugin_zip_adresse_champ' => 'Endereço do plugin ou da lista',
-	'plugin_zip_content' => 'Ele contém os arquivos a seguir (@taille@),<br />prontos para serem instalados no diretório <code>@rep@</code>',
-	'plugin_zip_installe_finie' => 'O arquivo @zip@ foi descompactado e instalado.',
-	'plugin_zip_installe_rep_finie' => 'O arquivo @zip@ foi descompactado e instalado no diretório @rep@',
-	'plugin_zip_installer' => 'Você pode, agora, instalá-lo.',
-	'plugin_zip_telecharge' => 'O arquivo @zip@ foi transferido',
-	'plugins_actif_aucun' => 'Nenhum plugin ativado.',
-	'plugins_actif_un' => 'Um plugin ativado.',
-	'plugins_actifs' => '@count@ plugins ativados.',
-	'plugins_actifs_liste' => 'Ativos',
-	'plugins_compte' => '@count@ plugins',
-	'plugins_disponible_un' => 'Um plugin disponível.',
-	'plugins_disponibles' => '@count@ plugins disponiveis.',
-	'plugins_erreur' => 'Erro nos plugins: @plugins@',
-	'plugins_liste' => 'Lista dos plugins',
-	'plugins_liste_dist' => 'Plugins bloqueados',
-	'plugins_recents' => 'Plugins recentes.',
-	'plugins_tous_liste' => 'Todos',
-	'plugins_vue_hierarchie' => 'Hierarquia',
-	'plugins_vue_liste' => 'Lista',
-	'protocole_ldap' => 'Versão do protocolo:',
+    // P
+    'page_pas_proxy' => 'Esta página não deve passar pelo proxy',
+    'pas_de_proxy_pour' => 'Se necessário, indique as máquinas ou domínios para os quais este proxy não se aplica (por exemplo: @exemple@)',
+    'phpinfo' => 'Configuração PHP',
+    'plugin_charge_paquet' => 'Carregamento do pacote @name@',
+    'plugin_charger' => 'Transferir',
+    'plugin_erreur_charger' => 'erro: não foi possível carregar @zip@',
+    'plugin_erreur_droit1' => 'O diretório <code>@dest@</code> não está acessível para escrita.',
+    'plugin_erreur_droit2' => 'Por favor, verifique os direitos deste diretório (e criá-lo, caso não exista), ou instalar os arquivos por FTP.',
+    'plugin_erreur_zip' => 'falha pclzip: erro @status@',
+    'plugin_etat_developpement' => 'em desenvolvimento',
+    'plugin_etat_experimental' => 'experimental',
+    'plugin_etat_stable' => 'estável',
+    'plugin_etat_test' => 'em teste',
+    'plugin_impossible_activer' => 'Não foi possível ativar o plugin @plugin@',
+    'plugin_info_automatique1' => 'Se você deseja autorizar a instalaçào automática dos plugins, por favor:',
+    'plugin_info_automatique1_lib' => 'Se você deseja autorizar a instalação automática desta biblioteca, por favor:',
+    'plugin_info_automatique2' => 'crie um diretório <code>@rep@</code> ;',
+    'plugin_info_automatique3' => 'verifique se o servidor está autorizado a escrever neste diretório',
+    'plugin_info_automatique_creer' => 'a ser criado na raiz do site.',
+    'plugin_info_automatique_exemples' => 'exemplos:',
+    'plugin_info_automatique_ftp' => 'Você pode instalar os plugins, por FTP, no diretório <tt>@rep@</tt>',
+    'plugin_info_automatique_lib' => 'Alguns plugins precisam também poder transferir arquivos para o diretório <code>lib/</code>, a ser criado, caso não exista, na raiz do site.',
+    'plugin_info_automatique_liste' => 'Suas listas de plugins:',
+    'plugin_info_automatique_liste_officielle' => 'os plugins oficiais',
+    'plugin_info_automatique_liste_update' => 'Atualizar as listas',
+    'plugin_info_automatique_ou' => 'ou...',
+    'plugin_info_automatique_select' => 'Selecione abaixo um plugin: O SPIP o transferirá e o instalará no diretório <code>@rep@</code>; se o plugin já existir, será atualizado.',
+    'plugin_info_credit' => 'Créditos',
+    'plugin_info_erreur_xml' => 'A declaração deste plugin está incorreta',
+    'plugin_info_install_ok' => 'Instalação bem sucedida',
+    'plugin_info_necessite' => 'Requer:',
+    'plugin_info_non_compatible_spip' => 'Este plugin não é compatível com esta versão do SPIP',
+    'plugin_info_plugins_dist_1' => 'Os plugins abaixo são carregados e ativados no diretório @plugins_dist@.',
+    'plugin_info_plugins_dist_2' => 'Eles não são desativáveis.',
+    'plugin_info_telecharger' => 'transferir de @url@ e instalar em @rep@',
+    'plugin_info_upgrade_ok' => 'Atualização bem sucedida',
+    'plugin_librairies_installees' => 'Bibliotecas instaladas',
+    'plugin_necessite_extension_php' => 'Requer a extensão PHP @plugin@ na versão @version@.',
+    'plugin_necessite_extension_php_sans_version' => 'Requer a extensão PHP @plugin@',
+    'plugin_necessite_lib' => 'Este plugin precisa da biblioteca @lib@',
+    'plugin_necessite_php' => 'Requer @plugin@ na versão @version@.',
+    'plugin_necessite_plugin' => 'Precisa do plugin @plugin@, na versão @version@.',
+    'plugin_necessite_plugin_sans_version' => 'Precisa do plugin @plugin@',
+    'plugin_necessite_spip' => 'É necessário o SPIP na versão @version@, pelo menos.',
+    'plugin_source' => 'fonte: ',
+    'plugin_titre_automatique' => 'Instalação automática',
+    'plugin_titre_automatique_ajouter' => 'Incluir plugins',
+    'plugin_titre_installation' => 'Instalação do plugin @plugin@',
+    'plugin_titre_modifier' => 'Meus plugins',
+    'plugin_utilise_extension_php' => 'A extensão PHP @plugin@ deve estar na versão @version@.',
+    'plugin_utilise_php' => '@plugin@ deve estar na versão @version@.',
+    'plugin_utilise_plugin' => 'O plugin @plugin@ deve estar na versão @version@.',
+    'plugin_zip_active' => 'Continue para o ativar',
+    'plugin_zip_adresse' => 'Indique abaixo o endereço de um arquivo zip de plugin a ser transferido, ou ainda o endereço de uma lista de plugins.',
+    'plugin_zip_adresse_champ' => 'Endereço do plugin ou da lista',
+    'plugin_zip_content' => 'Ele contém os arquivos a seguir (@taille@),<br />prontos para serem instalados no diretório <code>@rep@</code>',
+    'plugin_zip_installe_finie' => 'O arquivo @zip@ foi descompactado e instalado.',
+    'plugin_zip_installe_rep_finie' => 'O arquivo @zip@ foi descompactado e instalado no diretório @rep@',
+    'plugin_zip_installer' => 'Você pode, agora, instalá-lo.',
+    'plugin_zip_telecharge' => 'O arquivo @zip@ foi transferido',
+    'plugins_actif_aucun' => 'Nenhum plugin ativado.',
+    'plugins_actif_un' => 'Um plugin ativado.',
+    'plugins_actifs' => '@count@ plugins ativados.',
+    'plugins_actifs_liste' => 'Ativos',
+    'plugins_compte' => '@count@ plugins',
+    'plugins_disponible_un' => 'Um plugin disponível.',
+    'plugins_disponibles' => '@count@ plugins disponiveis.',
+    'plugins_erreur' => 'Erro nos plugins: @plugins@',
+    'plugins_liste' => 'Lista dos plugins',
+    'plugins_liste_dist' => 'Plugins bloqueados',
+    'plugins_recents' => 'Plugins recentes.',
+    'plugins_tous_liste' => 'Todos',
+    'plugins_vue_hierarchie' => 'Hierarquia',
+    'plugins_vue_liste' => 'Lista',
+    'protocole_ldap' => 'Versão do protocolo:',
 
-	// Q
-	'queue_executer_maintenant' => 'Executar agora',
-	'queue_info_purger' => 'Você pode excluir todas as tarefas de fundo em espera e reinicializar a lista com as tarefas periódicas',
-	'queue_nb_jobs_in_queue' => '@nb@ tarefas em espera',
-	'queue_next_job_in_nb_sec' => 'Próxima tarefa em @nb@ s',
-	'queue_no_job_in_queue' => 'Nenhum tarefa em espera',
-	'queue_one_job_in_queue' => '1 tarefa em espera',
-	'queue_priorite_tache' => 'prioridade',
-	'queue_purger_queue' => 'Reiniciar a lista de tarefas',
-	'queue_titre' => 'Tarefas de fundo',
+    // Q
+    'queue_executer_maintenant' => 'Executar agora',
+    'queue_info_purger' => 'Você pode excluir todas as tarefas de fundo em espera e reinicializar a lista com as tarefas periódicas',
+    'queue_nb_jobs_in_queue' => '@nb@ tarefas em espera',
+    'queue_next_job_in_nb_sec' => 'Próxima tarefa em @nb@ s',
+    'queue_no_job_in_queue' => 'Nenhum tarefa em espera',
+    'queue_one_job_in_queue' => '1 tarefa em espera',
+    'queue_priorite_tache' => 'prioridade',
+    'queue_purger_queue' => 'Reiniciar a lista de tarefas',
+    'queue_titre' => 'Tarefas de fundo',
 
-	// R
-	'repertoire_plugins' => 'Diretório:',
-	'required' => '(obrigatório)',
+    // R
+    'repertoire_plugins' => 'Diretório:',
+    'required' => '(obrigatório)',
 
-	// S
-	'sans_heure' => 'sem hora',
-	'statut_admin_restreint' => '(admin limitado)',
-	'statut_webmestre' => 'webmaster',
+    // S
+    'sans_heure' => 'sem hora',
+    'statut_admin_restreint' => '(admin limitado)',
+    'statut_webmestre' => 'webmaster',
 
-	// T
-	'tache_cron_asap' => 'Tarefa CRON @function@ (ASAP)',
-	'tache_cron_secondes' => 'Tarefa CRON @function@ (a cada @nb@ s)',
-	'taille_cache_image' => 'As imagens calculadas automaticamente pelo SPIP (ícones de documentos, títulos apresentados sob a forma gráfica, funções matemáticas em formato TeX...) ocupam, no diretório @dir@, um total de @taille@.',
-	'taille_cache_moins_de' => 'O tamanho do cache é menor do que @octets@.',
-	'taille_cache_octets' => 'O tamanho atual do cache é de cerca de @octets@.',
-	'taille_cache_vide' => 'O cache está vazio.',
-	'taille_repertoire_cache' => 'Tamanho do diretório cache',
-	'text_article_propose_publication' => 'Matéria proposta para publicação.',
-	'texte_acces_ldap_anonyme_1' => 'Alguns servidores LDAP não aceitam nenhum acesso anônimo. Neste caso, é necessário especificar um identificador de acesso inicial de modo a poder, em seguida, pesquisar as informações no diretório. Na maior parte dos casos, entretanto, os campos a seguir poderão ser deixados em branco.',
-	'texte_admin_effacer_01' => 'Este comando apaga <i>todo</i> o conteúdo da base de dados,incluindo <i>todos</i> os acessos dos redatores e administradores. Após executá-lo, você deverá reinstalar o SPIP para recriar uma nova base de dados bem como um acesso inicial de administrador.',
-	'texte_adresse_annuaire_1' => '(Se o seu diretório está instalado na mesma máquina que este website, trata-se provavelmente de «localhost».)',
-	'texte_ajout_auteur' => 'O autor a seguir foi incluído na matéria:',
-	'texte_annuaire_ldap_1' => 'Se você tem acesso a um diretório LDAP, você poderá utilizá-lo para importar automaticamente os usuários para o SPIP.',
-	'texte_article_statut' => 'Esta matéria está:',
-	'texte_article_virtuel' => 'Matéria virtual',
-	'texte_article_virtuel_reference' => '<b>Matéria virtual:</b> matéria referenciada no seu site SPIP, mas redirecionada para um outro URL. Para cancelar o redirecionamento, apague o URL abaixo.',
-	'texte_aucun_resultat_auteur' => 'Nenhum resultado para "@cherche_auteur@"',
-	'texte_auteur_messagerie' => 'Este site pode monitorar permanentemente a lista de editores conectados, permitindo-lhe trocar mensagens em tempo real. Você pode decidir não aparecer nessa lista (ficando "invisível" para os outros usuários).',
-	'texte_auteurs' => 'OS AUTORES',
-	'texte_choix_base_1' => 'Escolha a sua base:',
-	'texte_choix_base_2' => 'O servidor SQL contém várias bases de dados.',
-	'texte_choix_base_3' => '<b>Escolha</b> abaixo a que lhe foi atribuída pelo seu serviço de hospedagem:',
-	'texte_choix_table_prefix' => 'Prefixo das tabelas:',
-	'texte_compte_element' => '@count@ elemento',
-	'texte_compte_elements' => '@count@ elementos',
-	'texte_conflit_edition_correction' => 'Por favor, controle abaixo as diferenças entre as duas versões do texto; você pode também copiar as suas modificações e depois recomeçar.',
-	'texte_connexion_mysql' => 'Consulte as informações fornecidas pelo seu serviço de hospedagem: nelas, você deverá encontrar o servidor de base de dados fornecido e os seus dados de conexão ao servidor SQL.',
-	'texte_contenu_article' => '(Conteúdo da matéria em poucas palavras.)',
-	'texte_contenu_articles' => 'De acordo com o layout adotado pelo seu site, você poderá decidir se certos elementos das matérias serão utilizados. Use a listagem abaixo para indicar quais elementos estão disponíveis.',
-	'texte_crash_base' => 'Se a sua base de dados se corrompeu, você poderá tentar uma reparação automática.',
-	'texte_creer_rubrique' => 'Antes de poder escrever matérias, você precisa criar uma seção.',
-	'texte_date_creation_article' => 'DATA DE CRIAÇÃO DA MATÉRIA:',
-	'texte_date_creation_objet' => 'Data de criação:', # on ajoute le &quot;:&quot;
-	'texte_date_publication_anterieure' => 'Data de redação anterior:',
-	'texte_date_publication_anterieure_nonaffichee' => 'Não exibir a data de redação anterior.',
-	'texte_date_publication_article' => 'DATA DE PUBLICAÇÃO ONLINE:',
-	'texte_date_publication_objet' => 'Data de publicação online:',
-	'texte_definir_comme_traduction_rubrique' => 'Esta seção é uma tradução da seção número:',
-	'texte_descriptif_rapide' => 'Descrição rápida',
-	'texte_effacer_base' => 'Apagar a base de dados do SPIP',
-	'texte_effacer_statistiques' => 'Apagar as estatísticas',
-	'texte_en_cours_validation' => 'Os conteúdos abaixo estão propostos para publicação.',
-	'texte_enrichir_mise_a_jour' => 'Você pode enriquecer a diagramação do seu texto usando «atalhos tipográficos».',
-	'texte_fichier_authent' => '<b>O SPIP pode criar os arquivos especiais  <tt>.htpasswd</tt> e <tt>.htpasswd-admin</tt> no diretório @dossier@?</b><p>
+    // T
+    'tache_cron_asap' => 'Tarefa CRON @function@ (ASAP)',
+    'tache_cron_secondes' => 'Tarefa CRON @function@ (a cada @nb@ s)',
+    'taille_cache_image' => 'As imagens calculadas automaticamente pelo SPIP (ícones de documentos, títulos apresentados sob a forma gráfica, funções matemáticas em formato TeX...) ocupam, no diretório @dir@, um total de @taille@.',
+    'taille_cache_moins_de' => 'O tamanho do cache é menor do que @octets@.',
+    'taille_cache_octets' => 'O tamanho atual do cache é de cerca de @octets@.',
+    'taille_cache_vide' => 'O cache está vazio.',
+    'taille_repertoire_cache' => 'Tamanho do diretório cache',
+    'text_article_propose_publication' => 'Matéria proposta para publicação.',
+    'texte_acces_ldap_anonyme_1' => 'Alguns servidores LDAP não aceitam nenhum acesso anônimo. Neste caso, é necessário especificar um identificador de acesso inicial de modo a poder, em seguida, pesquisar as informações no diretório. Na maior parte dos casos, entretanto, os campos a seguir poderão ser deixados em branco.',
+    'texte_admin_effacer_01' => 'Este comando apaga <i>todo</i> o conteúdo da base de dados,incluindo <i>todos</i> os acessos dos redatores e administradores. Após executá-lo, você deverá reinstalar o SPIP para recriar uma nova base de dados bem como um acesso inicial de administrador.',
+    'texte_adresse_annuaire_1' => '(Se o seu diretório está instalado na mesma máquina que este website, trata-se provavelmente de «localhost».)',
+    'texte_ajout_auteur' => 'O autor a seguir foi incluído na matéria:',
+    'texte_annuaire_ldap_1' => 'Se você tem acesso a um diretório LDAP, você poderá utilizá-lo para importar automaticamente os usuários para o SPIP.',
+    'texte_article_statut' => 'Esta matéria está:',
+    'texte_article_virtuel' => 'Matéria virtual',
+    'texte_article_virtuel_reference' => '<b>Matéria virtual:</b> matéria referenciada no seu site SPIP, mas redirecionada para um outro URL. Para cancelar o redirecionamento, apague o URL abaixo.',
+    'texte_aucun_resultat_auteur' => 'Nenhum resultado para "@cherche_auteur@"',
+    'texte_auteur_messagerie' => 'Este site pode monitorar permanentemente a lista de editores conectados, permitindo-lhe trocar mensagens em tempo real. Você pode decidir não aparecer nessa lista (ficando "invisível" para os outros usuários).',
+    'texte_auteurs' => 'OS AUTORES',
+    'texte_choix_base_1' => 'Escolha a sua base:',
+    'texte_choix_base_2' => 'O servidor SQL contém várias bases de dados.',
+    'texte_choix_base_3' => '<b>Escolha</b> abaixo a que lhe foi atribuída pelo seu serviço de hospedagem:',
+    'texte_choix_table_prefix' => 'Prefixo das tabelas:',
+    'texte_compte_element' => '@count@ elemento',
+    'texte_compte_elements' => '@count@ elementos',
+    'texte_conflit_edition_correction' => 'Por favor, controle abaixo as diferenças entre as duas versões do texto; você pode também copiar as suas modificações e depois recomeçar.',
+    'texte_connexion_mysql' => 'Consulte as informações fornecidas pelo seu serviço de hospedagem: nelas, você deverá encontrar o servidor de base de dados fornecido e os seus dados de conexão ao servidor SQL.',
+    'texte_contenu_article' => '(Conteúdo da matéria em poucas palavras.)',
+    'texte_contenu_articles' => 'De acordo com o layout adotado pelo seu site, você poderá decidir se certos elementos das matérias serão utilizados. Use a listagem abaixo para indicar quais elementos estão disponíveis.',
+    'texte_crash_base' => 'Se a sua base de dados se corrompeu, você poderá tentar uma reparação automática.',
+    'texte_creer_rubrique' => 'Antes de poder escrever matérias, você precisa criar uma seção.',
+    'texte_date_creation_article' => 'DATA DE CRIAÇÃO DA MATÉRIA:',
+    'texte_date_creation_objet' => 'Data de criação:', # on ajoute le &quot;:&quot;
+    'texte_date_publication_anterieure' => 'Data de redação anterior:',
+    'texte_date_publication_anterieure_nonaffichee' => 'Não exibir a data de redação anterior.',
+    'texte_date_publication_article' => 'DATA DE PUBLICAÇÃO ONLINE:',
+    'texte_date_publication_objet' => 'Data de publicação online:',
+    'texte_definir_comme_traduction_rubrique' => 'Esta seção é uma tradução da seção número:',
+    'texte_descriptif_rapide' => 'Descrição rápida',
+    'texte_effacer_base' => 'Apagar a base de dados do SPIP',
+    'texte_effacer_statistiques' => 'Apagar as estatísticas',
+    'texte_en_cours_validation' => 'Os conteúdos abaixo estão propostos para publicação.',
+    'texte_enrichir_mise_a_jour' => 'Você pode enriquecer a diagramação do seu texto usando «atalhos tipográficos».',
+    'texte_fichier_authent' => '<b>O SPIP pode criar os arquivos especiais  <tt>.htpasswd</tt> e <tt>.htpasswd-admin</tt> no diretório @dossier@?</b><p>
 Estes arquivos podem servir para restringir o acesso aos autores e administradores em outras áreas do seu site (programas externos de estatísticas, por exemplo).</p><p>
 Se eles não forem úteis, você poderá deixar esta opção com o seu valor padrão (sem criar os arquivos).</p>',
-	'texte_informations_personnelles_1' => 'O sistema vai criar agora um acesso personalizado ao site.',
-	'texte_informations_personnelles_2' => '(Nota: trata-se de uma reinstalação, se o seu acesso funciona corretamente, você pode',
-	'texte_introductif_article' => '(Texto introdutório da matéria.)',
-	'texte_jeu_caractere' => 'É aconselhável usar no seu site o alfabeto universal (<tt>utf-8</tt>): ele permite a exibição de textos em todos os idiomas, e não tem problemas de compatibilidade com os navegadores modernos.',
-	'texte_jeu_caractere_3' => 'O seu site está configurado atualmente com o conjunto de caracteres:',
-	'texte_jeu_caractere_4' => 'Se isso não corresponde à realidade dos seus dados (por ex., em seguimento a um restauro da base de dados), ou se <em>você lançou este site</em> e deseja utilizar um outro conjunto de caracteres, por favor, indique-o aqui:',
-	'texte_login_ldap_1' => '(Deixe em branco para acesso anônimo, ou informe o caminho completo, por exemplo «<tt>uid=dupont, ou=users, dc=mon-domaine, dc=com</tt>».)',
-	'texte_login_precaution' => 'Atenção! Este é o login com o qual você está conectado agora. Use este formulário com cautela...',
-	'texte_messagerie_agenda' => 'As mensagens internas permitem que os redatores se comuniquem entre si, diretamente da área privada do site. Elas estão associadas a uma agenda.',
-	'texte_mise_a_niveau_base_1' => 'Você acabou de atualizar os arquivos do SPIP.
+    'texte_informations_personnelles_1' => 'O sistema vai criar agora um acesso personalizado ao site.',
+    'texte_informations_personnelles_2' => '(Nota: trata-se de uma reinstalação, se o seu acesso funciona corretamente, você pode',
+    'texte_introductif_article' => '(Texto introdutório da matéria.)',
+    'texte_jeu_caractere' => 'É aconselhável usar no seu site o alfabeto universal (<tt>utf-8</tt>): ele permite a exibição de textos em todos os idiomas, e não tem problemas de compatibilidade com os navegadores modernos.',
+    'texte_jeu_caractere_3' => 'O seu site está configurado atualmente com o conjunto de caracteres:',
+    'texte_jeu_caractere_4' => 'Se isso não corresponde à realidade dos seus dados (por ex., em seguimento a um restauro da base de dados), ou se <em>você lançou este site</em> e deseja utilizar um outro conjunto de caracteres, por favor, indique-o aqui:',
+    'texte_login_ldap_1' => '(Deixe em branco para acesso anônimo, ou informe o caminho completo, por exemplo «<tt>uid=dupont, ou=users, dc=mon-domaine, dc=com</tt>».)',
+    'texte_login_precaution' => 'Atenção! Este é o login com o qual você está conectado agora. Use este formulário com cautela...',
+    'texte_messagerie_agenda' => 'As mensagens internas permitem que os redatores se comuniquem entre si, diretamente da área privada do site. Elas estão associadas a uma agenda.',
+    'texte_mise_a_niveau_base_1' => 'Você acabou de atualizar os arquivos do SPIP.
 Agora é necessário atualizar a base de dados do site.',
-	'texte_modifier_article' => 'Editar a matéria:',
-	'texte_multilinguisme' => 'Se você deseja gerar objetos em diversos idiomas, com uma navegação complexa, você pode incluir um menu de seleção de idioma nesses objetos, de acordo com a estrutura do seu site.',
-	'texte_multilinguisme_trad' => 'Você pode, igualmente, ativar um sistema de gerenciamento de links entre as diferentes traduções em certos objetos.',
-	'texte_non_compresse' => '<i>não compactado</i> (seu servidor não suporta esta funcionalidade)',
-	'texte_nouvelle_version_spip_1' => 'Você instalou uma nova versão do SPIP.',
-	'texte_nouvelle_version_spip_2' => 'Esta nova versão precisa de uma atualização mais completa do que o normal. Se você é o webmaster do site, por favor, apague o arquivo @connect@ e retome a instalação de forma a incluir os seus parâmetros de conexão à base de dados.<p> (NB.: se você não se lembra dos seus parâmetros de conexão, consulte o arquivo @connect@ antes de apagá-lo...)</p>',
-	'texte_operation_echec' => 'Volte à página anterior, escolha uma outra base de dados ou crie uma nova. Verifique as informações fornecidas pelo seu serviço de hospedagem.',
-	'texte_plus_trois_car' => 'mais de 3 caracteres',
-	'texte_plusieurs_articles' => 'Demasiados autores encontrados para "@cherche_auteur@":',
-	'texte_port_annuaire' => '(O valor padrão indicado é geralmente conveniente.)',
-	'texte_presente_plugin' => 'Esta página lista os plugins disponíveis para o site. Você pode ativar os plugins necessários marcando a opção correspondente.',
-	'texte_proposer_publication' => 'Assim que a sua matéria estiver pronta, você pode propor a sua publicação.',
-	'texte_proxy' => 'Em alguns casos (intranet, redes protegidas...), os sites remotos (documentação do SPIP, sites sindicados etc.) só estarão acessíveis através de um <i>proxy HTTP</i>. Nesse caso, informe abaixo o endereço, no formato @proxy_en_cours@.Geralmente, você pode deixar este campo vazio.',
-	'texte_publication_articles_post_dates' => 'Que comportamento o SPIP deve adotar face às matérias em que a data de publicação está pré-datada?',
-	'texte_rappel_selection_champs' => '[Não se esqueça de selecionar corretamente este campo.]',
-	'texte_recalcul_page' => 'Se você quiser recalcular uma única página, passe para a área pública e clique no botão «atualizar».',
-	'texte_recuperer_base' => 'Reparar a base de dados',
-	'texte_reference_mais_redirige' => 'matéria referenciada no seu site em  SPIP, mas redirecionada para outro URL.',
-	'texte_requetes_echouent' => '<b>Já que certas solicitações SQL falharam sistematicamente e sem razão aparente, é possível que a causa esteja na base de dados em si.</b><p>
+    'texte_modifier_article' => 'Editar a matéria:',
+    'texte_multilinguisme' => 'Se você deseja gerar objetos em diversos idiomas, com uma navegação complexa, você pode incluir um menu de seleção de idioma nesses objetos, de acordo com a estrutura do seu site.',
+    'texte_multilinguisme_trad' => 'Você pode, igualmente, ativar um sistema de gerenciamento de links entre as diferentes traduções em certos objetos.',
+    'texte_non_compresse' => '<i>não compactado</i> (seu servidor não suporta esta funcionalidade)',
+    'texte_nouvelle_version_spip_1' => 'Você instalou uma nova versão do SPIP.',
+    'texte_nouvelle_version_spip_2' => 'Esta nova versão precisa de uma atualização mais completa do que o normal. Se você é o webmaster do site, por favor, apague o arquivo @connect@ e retome a instalação de forma a incluir os seus parâmetros de conexão à base de dados.<p> (NB.: se você não se lembra dos seus parâmetros de conexão, consulte o arquivo @connect@ antes de apagá-lo...)</p>',
+    'texte_operation_echec' => 'Volte à página anterior, escolha uma outra base de dados ou crie uma nova. Verifique as informações fornecidas pelo seu serviço de hospedagem.',
+    'texte_plus_trois_car' => 'mais de 3 caracteres',
+    'texte_plusieurs_articles' => 'Demasiados autores encontrados para "@cherche_auteur@":',
+    'texte_port_annuaire' => '(O valor padrão indicado é geralmente conveniente.)',
+    'texte_presente_plugin' => 'Esta página lista os plugins disponíveis para o site. Você pode ativar os plugins necessários marcando a opção correspondente.',
+    'texte_proposer_publication' => 'Assim que a sua matéria estiver pronta, você pode propor a sua publicação.',
+    'texte_proxy' => 'Em alguns casos (intranet, redes protegidas...), os sites remotos (documentação do SPIP, sites sindicados etc.) só estarão acessíveis através de um <i>proxy HTTP</i>. Nesse caso, informe abaixo o endereço, no formato @proxy_en_cours@.Geralmente, você pode deixar este campo vazio.',
+    'texte_publication_articles_post_dates' => 'Que comportamento o SPIP deve adotar face às matérias em que a data de publicação está pré-datada?',
+    'texte_rappel_selection_champs' => '[Não se esqueça de selecionar corretamente este campo.]',
+    'texte_recalcul_page' => 'Se você quiser recalcular uma única página, passe para a área pública e clique no botão «atualizar».',
+    'texte_recuperer_base' => 'Reparar a base de dados',
+    'texte_reference_mais_redirige' => 'matéria referenciada no seu site em  SPIP, mas redirecionada para outro URL.',
+    'texte_requetes_echouent' => '<b>Já que certas solicitações SQL falharam sistematicamente e sem razão aparente, é possível que a causa esteja na base de dados em si.</b><p>
 O seu servidor SQL dispõe de uma funcionalidade de reparação das suas tabelas quando elas são danificadas por acidente. Você poderá tentar esta reparação; em caso de falha, conserve uma cópia da mensagem de erro, que poderá conter indícios do que não está funcionando...</p><p>
 Se o problema persistir, contate o seu serviço de hospedagem.</p>',
-	'texte_selection_langue_principale' => 'Você pode escolher abaixo o «idioma principal» do site. esta escolha não o obriga - felizmente! - a escrever as suas matérias no idioma selecionado, mas permite determinar:
+    'texte_selection_langue_principale' => 'Você pode escolher abaixo o «idioma principal» do site. esta escolha não o obriga - felizmente! - a escrever as suas matérias no idioma selecionado, mas permite determinar:
  <ul><li>o formato padrão das datas no site público;</li>
  <li>a natureza do motor tipográfico que o SPIP deverá usar para a composição dos textos;</li>
  <li>o idioma usado nos formulários do site público;</li>
  <li>o idioma padrão exibido na área privada.</li></ul>',
-	'texte_sous_titre' => 'Subtítulo',
-	'texte_statistiques_visites' => '(barras escuras:  domingo / curva escura: evolução da média)',
-	'texte_statut_attente_validation' => 'aguardando validação',
-	'texte_statut_publies' => 'publicadas online',
-	'texte_statut_refuses' => 'recusadas',
-	'texte_suppression_fichiers' => 'Use este comando para excluir todos os arquivos que constam do cache do SPIP. Isto permite, por exemplo, forçar a reconstrução de todas as páginas, caso você tenha feito alterações importantes no layout ou na estrutura do site.',
-	'texte_sur_titre' => 'Sobretítulo',
-	'texte_table_ok' => ': esta tabela está OK.',
-	'texte_tentative_recuperation' => 'Tentativa de reparação',
-	'texte_tenter_reparation' => 'Tentar uma reparação da base de dados',
-	'texte_test_proxy' => 'Para testar este proxy, informe aqui o endereço de um website que você deseje testar.',
-	'texte_titre_02' => 'Título:',
-	'texte_titre_obligatoire' => '<b>Título</b> [obrigatório]',
-	'texte_travail_article' => '@nom_auteur_modif@ trabalhou nesta matéria há @date_diff@ minutos',
-	'texte_travail_collaboratif' => 'Se é frequente acontecer de mais de um redator trabalhar em uma mesma matéria, o sistema pode exibir as matérias recentemente "abertas", de modo a evitar modificações concorrentes. Esta opção está desativada por padrão, para evitar a exibição de mensagens de aviso desnecessárias.',
-	'texte_vide' => 'vazia',
-	'texte_vider_cache' => 'Esvaziar o cache',
-	'titre_admin_tech' => 'Manutenção técnica',
-	'titre_admin_vider' => 'Manutenção técnica',
-	'titre_ajouter_un_auteur' => 'Incluir um autor',
-	'titre_ajouter_un_mot' => 'Incluir uma palavra-chave',
-	'titre_cadre_afficher_article' => 'Exibir as matérias',
-	'titre_cadre_afficher_traductions' => 'Exibir o status das traduções para os idiomas a seguir:',
-	'titre_cadre_ajouter_auteur' => 'INCLUIR UM AUTOR:',
-	'titre_cadre_interieur_rubrique' => 'Na seção',
-	'titre_cadre_numero_auteur' => 'AUTOR NÚMERO',
-	'titre_cadre_numero_objet' => '@objet@ NÚMERO:',
-	'titre_cadre_signature_obligatoire' => '<b>Assinatura</b> [obrigatório]<br />',
-	'titre_config_contenu_notifications' => 'Notificações',
-	'titre_config_contenu_prive' => 'Na área privada',
-	'titre_config_contenu_public' => 'No site público',
-	'titre_config_fonctions' => 'Configuração do site',
-	'titre_config_langage' => 'Configurar o idioma',
-	'titre_configuration' => 'Configuração do site',
-	'titre_configurer_preferences' => 'Configurar as suas preferências',
-	'titre_configurer_preferences_menus' => 'Configurar as suas preferências de menus',
-	'titre_conflit_edition' => 'Conflito durante a edição',
-	'titre_connexion_ldap' => 'Opções: <b>Sua conexão LDAP</b>',
-	'titre_groupe_mots' => 'GRUPO DE PALAVRAS-CHAVE:',
-	'titre_identite_site' => 'Identidade do site',
-	'titre_langue_article' => 'Idioma da matéria',
-	'titre_langue_rubrique' => 'Idioma da seção',
-	'titre_langue_trad_article' => 'IDIOMA E TRADUÇÕES DA MATÉRIA',
-	'titre_les_articles' => 'AS MATÉRIAS',
-	'titre_messagerie_agenda' => 'Mensagens internas e agenda',
-	'titre_naviguer_dans_le_site' => 'Navegar no site...',
-	'titre_nouvelle_rubrique' => 'Nova seção',
-	'titre_numero_rubrique' => 'SEÇÃO NÚMERO:',
-	'titre_page_articles_edit' => 'Editar: @titre@',
-	'titre_page_articles_page' => 'As matérias',
-	'titre_page_articles_tous' => 'Todo o site',
-	'titre_page_calendrier' => 'Calendário @nom_mois@ @annee@',
-	'titre_page_config_contenu' => 'Configuração do site',
-	'titre_page_delete_all' => 'supressão total e irreversível',
-	'titre_page_recherche' => 'Resultados da busca por @recherche@',
-	'titre_page_statistiques_referers' => 'Estatísticas (links de entrada)',
-	'titre_page_upgrade' => 'Atualização do SPIP',
-	'titre_preference_menus_favoris' => 'Menus favoritos',
-	'titre_publication_articles_post_dates' => 'Publicação de matérias pós-datadas',
-	'titre_reparation' => 'Reparação',
-	'titre_suivi_petition' => 'Acompanhamento das petições',
-	'tls_ldap' => 'Transport Layer Security:',
-	'trad_article_traduction' => 'Todas as versões desta matéria:',
-	'trad_delier' => 'Desvincular destas traduções',
-	'trad_lier' => 'Esta matéria é uma tradução da matéria número:',
-	'trad_new' => 'Escrever uma nova tradução',
+    'texte_sous_titre' => 'Subtítulo',
+    'texte_statistiques_visites' => '(barras escuras:  domingo / curva escura: evolução da média)',
+    'texte_statut_attente_validation' => 'aguardando validação',
+    'texte_statut_publies' => 'publicadas online',
+    'texte_statut_refuses' => 'recusadas',
+    'texte_suppression_fichiers' => 'Use este comando para excluir todos os arquivos que constam do cache do SPIP. Isto permite, por exemplo, forçar a reconstrução de todas as páginas, caso você tenha feito alterações importantes no layout ou na estrutura do site.',
+    'texte_sur_titre' => 'Sobretítulo',
+    'texte_table_ok' => ': esta tabela está OK.',
+    'texte_tentative_recuperation' => 'Tentativa de reparação',
+    'texte_tenter_reparation' => 'Tentar uma reparação da base de dados',
+    'texte_test_proxy' => 'Para testar este proxy, informe aqui o endereço de um website que você deseje testar.',
+    'texte_titre_02' => 'Título:',
+    'texte_titre_obligatoire' => '<b>Título</b> [obrigatório]',
+    'texte_travail_article' => '@nom_auteur_modif@ trabalhou nesta matéria há @date_diff@ minutos',
+    'texte_travail_collaboratif' => 'Se é frequente acontecer de mais de um redator trabalhar em uma mesma matéria, o sistema pode exibir as matérias recentemente "abertas", de modo a evitar modificações concorrentes. Esta opção está desativada por padrão, para evitar a exibição de mensagens de aviso desnecessárias.',
+    'texte_vide' => 'vazia',
+    'texte_vider_cache' => 'Esvaziar o cache',
+    'titre_admin_tech' => 'Manutenção técnica',
+    'titre_admin_vider' => 'Manutenção técnica',
+    'titre_ajouter_un_auteur' => 'Incluir um autor',
+    'titre_ajouter_un_mot' => 'Incluir uma palavra-chave',
+    'titre_cadre_afficher_article' => 'Exibir as matérias',
+    'titre_cadre_afficher_traductions' => 'Exibir o status das traduções para os idiomas a seguir:',
+    'titre_cadre_ajouter_auteur' => 'INCLUIR UM AUTOR:',
+    'titre_cadre_interieur_rubrique' => 'Na seção',
+    'titre_cadre_numero_auteur' => 'AUTOR NÚMERO',
+    'titre_cadre_numero_objet' => '@objet@ NÚMERO:',
+    'titre_cadre_signature_obligatoire' => '<b>Assinatura</b> [obrigatório]<br />',
+    'titre_config_contenu_notifications' => 'Notificações',
+    'titre_config_contenu_prive' => 'Na área privada',
+    'titre_config_contenu_public' => 'No site público',
+    'titre_config_fonctions' => 'Configuração do site',
+    'titre_config_langage' => 'Configurar o idioma',
+    'titre_configuration' => 'Configuração do site',
+    'titre_configurer_preferences' => 'Configurar as suas preferências',
+    'titre_configurer_preferences_menus' => 'Configurar as suas preferências de menus',
+    'titre_conflit_edition' => 'Conflito durante a edição',
+    'titre_connexion_ldap' => 'Opções: <b>Sua conexão LDAP</b>',
+    'titre_groupe_mots' => 'GRUPO DE PALAVRAS-CHAVE:',
+    'titre_identite_site' => 'Identidade do site',
+    'titre_langue_article' => 'Idioma da matéria',
+    'titre_langue_rubrique' => 'Idioma da seção',
+    'titre_langue_trad_article' => 'IDIOMA E TRADUÇÕES DA MATÉRIA',
+    'titre_les_articles' => 'AS MATÉRIAS',
+    'titre_messagerie_agenda' => 'Mensagens internas e agenda',
+    'titre_naviguer_dans_le_site' => 'Navegar no site...',
+    'titre_nouvelle_rubrique' => 'Nova seção',
+    'titre_numero_rubrique' => 'SEÇÃO NÚMERO:',
+    'titre_page_articles_edit' => 'Editar: @titre@',
+    'titre_page_articles_page' => 'As matérias',
+    'titre_page_articles_tous' => 'Todo o site',
+    'titre_page_calendrier' => 'Calendário @nom_mois@ @annee@',
+    'titre_page_config_contenu' => 'Configuração do site',
+    'titre_page_delete_all' => 'supressão total e irreversível',
+    'titre_page_recherche' => 'Resultados da busca por @recherche@',
+    'titre_page_statistiques_referers' => 'Estatísticas (links de entrada)',
+    'titre_page_upgrade' => 'Atualização do SPIP',
+    'titre_preference_menus_favoris' => 'Menus favoritos',
+    'titre_publication_articles_post_dates' => 'Publicação de matérias pós-datadas',
+    'titre_reparation' => 'Reparação',
+    'titre_suivi_petition' => 'Acompanhamento das petições',
+    'tls_ldap' => 'Transport Layer Security:',
+    'trad_article_traduction' => 'Todas as versões desta matéria:',
+    'trad_delier' => 'Desvincular destas traduções',
+    'trad_lier' => 'Esta matéria é uma tradução da matéria número:',
+    'trad_new' => 'Escrever uma nova tradução',
 
-	// U
-	'utf8_convert_erreur_orig' => 'Erro: o conjunto de caracteres @charset@ não é suportado.',
+    // U
+    'utf8_convert_erreur_orig' => 'Erro: o conjunto de caracteres @charset@ não é suportado.',
 
-	// V
-	'version' => 'Versão:'
+    // V
+    'version' => 'Versão:'
 );

ecrire/inc/filtres_dates.php

Indentation +585 added lines, -585 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Filtres
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -37,11 +37,11 @@ 
  *    Date au format SQL tel que `2008-04-01` sinon ''
  **/
 function extraire_date($texte): string {
-	// format = 2001-08
-	if (preg_match(',([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),', $texte, $regs)) {
-		return $regs[1] . '-' . sprintf('%02d', $regs[2]) . '-01';
-	}
-	return '';
+    // format = 2001-08
+    if (preg_match(',([1-2][0-9]{3})[^0-9]*(1[0-2]|0?[1-9]),', $texte, $regs)) {
+        return $regs[1] . '-' . sprintf('%02d', $regs[2]) . '-01';
+    }
+    return '';
 }
 
 
@@ -63,29 +63,29 @@ 
  *     - une chaîne vide si la date est considérée nulle
  **/
 function normaliser_date($date, $forcer_jour = false): string {
-	$date = vider_date($date);
-	if ($date) {
-		if (preg_match('/^[0-9]{8,10}$/', $date)) {
-			$date = date('Y-m-d H:i:s', $date);
-		}
-		if (preg_match('#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#', $date, $regs)) {
-			$regs = array_pad($regs, 4, null); // eviter notice php
-			$date = $regs[1] . '-00-00' . $regs[3];
-		} else {
-			if (preg_match('#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#', $date, $regs)) {
-				$regs = array_pad($regs, 4, null); // eviter notice php
-				$date = preg_replace('@/@', '-', $regs[1]) . '-00' . $regs[3];
-			} else {
-				$date = date('Y-m-d H:i:s', strtotime($date));
-			}
-		}
-
-		if ($forcer_jour) {
-			$date = str_replace('-00', '-01', $date);
-		}
-	}
-
-	return $date;
+    $date = vider_date($date);
+    if ($date) {
+        if (preg_match('/^[0-9]{8,10}$/', $date)) {
+            $date = date('Y-m-d H:i:s', $date);
+        }
+        if (preg_match('#^([12][0-9]{3})([-/]00)?( [-0-9:]+)?$#', $date, $regs)) {
+            $regs = array_pad($regs, 4, null); // eviter notice php
+            $date = $regs[1] . '-00-00' . $regs[3];
+        } else {
+            if (preg_match('#^([12][0-9]{3}[-/][01]?[0-9])([-/]00)?( [-0-9:]+)?$#', $date, $regs)) {
+                $regs = array_pad($regs, 4, null); // eviter notice php
+                $date = preg_replace('@/@', '-', $regs[1]) . '-00' . $regs[3];
+            } else {
+                $date = date('Y-m-d H:i:s', strtotime($date));
+            }
+        }
+
+        if ($forcer_jour) {
+            $date = str_replace('-00', '-01', $date);
+        }
+    }
+
+    return $date;
 }
 
 /**
@@ -98,23 +98,23 @@ 
  *     - Une chaine vide
  **/
 function vider_date($letexte, $verif_format_date = false): string {
-	$letexte ??= '';
-	if (
-		!$verif_format_date
-		or (in_array(strlen($letexte), [10,19]) and
-			  preg_match('/^[0-9]{4}-[0-9]{2}-[0-9]{2}(\s[0-9]{2}:[0-9]{2}:[0-9]{2})?$/', $letexte))
-	) {
-		if (strncmp('0000-00-00', $letexte, 10) == 0) {
-			return '';
-		}
-		if (strncmp('0001-01-01', $letexte, 10) == 0) {
-			return '';
-		}
-		if (strncmp('1970-01-01', $letexte, 10) == 0) {
-			return '';
-		}  // eviter le bug GMT-1
-	}
-	return $letexte;
+    $letexte ??= '';
+    if (
+        !$verif_format_date
+        or (in_array(strlen($letexte), [10,19]) and
+              preg_match('/^[0-9]{4}-[0-9]{2}-[0-9]{2}(\s[0-9]{2}:[0-9]{2}:[0-9]{2})?$/', $letexte))
+    ) {
+        if (strncmp('0000-00-00', $letexte, 10) == 0) {
+            return '';
+        }
+        if (strncmp('0001-01-01', $letexte, 10) == 0) {
+            return '';
+        }
+        if (strncmp('1970-01-01', $letexte, 10) == 0) {
+            return '';
+        }  // eviter le bug GMT-1
+    }
+    return $letexte;
 }
 
 /**
@@ -130,17 +130,17 @@ 
  **/
 function recup_heure($date): array {
 
-	if (preg_match('#([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2}))?#', $date, $elements)) {
-		array_shift($elements);
-		if (!isset($elements[2])) {
-			$elements[2] = 0;
-		}
-		$heure = $elements;
-	} else {
-		$heure = [0, 0, 0];
-	}
-
-	return $heure;
+    if (preg_match('#([0-9]{1,2}):([0-9]{1,2})(?::([0-9]{1,2}))?#', $date, $elements)) {
+        array_shift($elements);
+        if (!isset($elements[2])) {
+            $elements[2] = 0;
+        }
+        $heure = $elements;
+    } else {
+        $heure = [0, 0, 0];
+    }
+
+    return $heure;
 }
 
 /**
@@ -154,13 +154,13 @@ 
  * @return string heures, sinon 0
  **/
 function heures($numdate): string {
-	$heures = null;
-	$date_array = recup_heure($numdate);
-	if ($date_array) {
-		[$heures, $minutes, $secondes] = $date_array;
-	}
+    $heures = null;
+    $date_array = recup_heure($numdate);
+    if ($date_array) {
+        [$heures, $minutes, $secondes] = $date_array;
+    }
 
-	return $heures;
+    return $heures;
 }
 
 /**
@@ -174,13 +174,13 @@ 
  * @return string minutes, sinon 0
  **/
 function minutes($numdate): string {
-	$minutes = null;
-	$date_array = recup_heure($numdate);
-	if ($date_array) {
-		[$heures, $minutes, $secondes] = $date_array;
-	}
+    $minutes = null;
+    $date_array = recup_heure($numdate);
+    if ($date_array) {
+        [$heures, $minutes, $secondes] = $date_array;
+    }
 
-	return $minutes;
+    return $minutes;
 }
 
 /**
@@ -194,13 +194,13 @@ 
  * @return string secondes, sinon 0
  **/
 function secondes($numdate): string {
-	$secondes = null;
-	$date_array = recup_heure($numdate);
-	if ($date_array) {
-		[$heures, $minutes, $secondes] = $date_array;
-	}
+    $secondes = null;
+    $date_array = recup_heure($numdate);
+    if ($date_array) {
+        [$heures, $minutes, $secondes] = $date_array;
+    }
 
-	return $secondes;
+    return $secondes;
 }
 
 /**
@@ -219,11 +219,11 @@ 
  * @return string L'heure formatée dans la langue en cours.
  **/
 function heures_minutes($numdate, $forme = ''): string {
-	if ($forme !== 'abbr') {
-		return _T('date_fmt_heures_minutes', ['h' => heures($numdate), 'm' => minutes($numdate)]);
-	} else {
-		return _T('date_fmt_heures_minutes_court', ['h' => heures($numdate), 'm' => minutes($numdate)]);
-	}
+    if ($forme !== 'abbr') {
+        return _T('date_fmt_heures_minutes', ['h' => heures($numdate), 'm' => minutes($numdate)]);
+    } else {
+        return _T('date_fmt_heures_minutes_court', ['h' => heures($numdate), 'm' => minutes($numdate)]);
+    }
 }
 
 /**
@@ -248,57 +248,57 @@ 
  * @return array [année, mois, jour, heures, minutes, secondes] ou []
  **/
 function recup_date($numdate, $forcer_jour = true): array {
-	if (!$numdate) {
-		return [];
-	}
-	$heures = $minutes = $secondes = 0;
-	if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) {
-		$jour = $regs[1];
-		$mois = $regs[2];
-		$annee = $regs[3];
-		if ($annee < 90) {
-			$annee = 2000 + $annee;
-		} elseif ($annee < 100) {
-			$annee = 1900 + $annee;
-		}
-		[$heures, $minutes, $secondes] = recup_heure($numdate);
-	} elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#', $numdate, $regs)) {
-		$annee = $regs[1];
-		$mois = $regs[2];
-		$jour = $regs[3];
-		[$heures, $minutes, $secondes] = recup_heure($numdate);
-	} elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)) {
-		$annee = $regs[1];
-		$mois = $regs[2];
-		$jour = '';
-		[$heures, $minutes, $secondes] = recup_heure($numdate);
-	} elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)) {
-		$annee = $regs[1];
-		$mois = $regs[2];
-		$jour = $regs[3];
-		$heures = $regs[4];
-		$minutes = $regs[5];
-		$secondes = $regs[6];
-	} else {
-		$annee = $mois = $jour = '';
-	}
-	if ($annee > 4000) {
-		$annee -= 9000;
-	}
-	if (strlen($jour) and substr($jour, 0, 1) == '0') {
-		$jour = substr($jour, 1);
-	}
-
-	if ($forcer_jour and $jour == '0') {
-		$jour = '1';
-	}
-	if ($forcer_jour and $mois == '0') {
-		$mois = '1';
-	}
-	if ($annee or $mois or $jour or $heures or $minutes or $secondes) {
-		return [$annee, $mois, $jour, $heures, $minutes, $secondes];
-	}
-	return [];
+    if (!$numdate) {
+        return [];
+    }
+    $heures = $minutes = $secondes = 0;
+    if (preg_match('#([0-9]{1,2})/([0-9]{1,2})/([0-9]{4}|[0-9]{1,2})#', $numdate, $regs)) {
+        $jour = $regs[1];
+        $mois = $regs[2];
+        $annee = $regs[3];
+        if ($annee < 90) {
+            $annee = 2000 + $annee;
+        } elseif ($annee < 100) {
+            $annee = 1900 + $annee;
+        }
+        [$heures, $minutes, $secondes] = recup_heure($numdate);
+    } elseif (preg_match('#([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})#', $numdate, $regs)) {
+        $annee = $regs[1];
+        $mois = $regs[2];
+        $jour = $regs[3];
+        [$heures, $minutes, $secondes] = recup_heure($numdate);
+    } elseif (preg_match('#([0-9]{4})-([0-9]{2})#', $numdate, $regs)) {
+        $annee = $regs[1];
+        $mois = $regs[2];
+        $jour = '';
+        [$heures, $minutes, $secondes] = recup_heure($numdate);
+    } elseif (preg_match('#^([0-9]{4})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})([0-9]{2})$#', $numdate, $regs)) {
+        $annee = $regs[1];
+        $mois = $regs[2];
+        $jour = $regs[3];
+        $heures = $regs[4];
+        $minutes = $regs[5];
+        $secondes = $regs[6];
+    } else {
+        $annee = $mois = $jour = '';
+    }
+    if ($annee > 4000) {
+        $annee -= 9000;
+    }
+    if (strlen($jour) and substr($jour, 0, 1) == '0') {
+        $jour = substr($jour, 1);
+    }
+
+    if ($forcer_jour and $jour == '0') {
+        $jour = '1';
+    }
+    if ($forcer_jour and $mois == '0') {
+        $mois = '1';
+    }
+    if ($annee or $mois or $jour or $heures or $minutes or $secondes) {
+        return [$annee, $mois, $jour, $heures, $minutes, $secondes];
+    }
+    return [];
 }
 
 /**
@@ -325,10 +325,10 @@ 
  *     La date relative ou complète
  **/
 function date_interface($date, $decalage_maxi = 43200 /* 12*3600 */): string {
-	return sinon(
-		date_relative($date, $decalage_maxi),
-		affdate_heure($date)
-	);
+    return sinon(
+        date_relative($date, $decalage_maxi),
+        affdate_heure($date)
+    );
 }
 
 /**
@@ -361,86 +361,86 @@ 
  **/
 function date_relative($date, $decalage_maxi = 0, $ref_date = null): string {
 
-	if (!$date) {
-		return '';
-	}
-
-	if (is_null($ref_date)) {
-		$ref_time = time();
-	} else {
-		$ref_time = strtotime($ref_date);
-	}
-
-	$decal = date('U', $ref_time) - date('U', strtotime($date));
-
-	if ($decalage_maxi and ($decal > $decalage_maxi or $decal < 0)) {
-		return '';
-	}
-
-	if ($decal < 0) {
-		$il_y_a = 'date_dans';
-		$decal = -1 * $decal;
-	} else {
-		$il_y_a = 'date_il_y_a';
-	}
-
-	if ($decal > 3600 * 24 * 30 * 6) {
-		return affdate_court($date);
-	}
-
-	if ($decal > 3600 * 24 * 30) {
-		$mois = floor($decal / (3600 * 24 * 30));
-		if ($mois < 2) {
-			$delai = "$mois " . _T('date_un_mois');
-		} else {
-			$delai = "$mois " . _T('date_mois');
-		}
-	} else {
-		if ($decal > 3600 * 24 * 7) {
-			$semaines = floor($decal / (3600 * 24 * 7));
-			if ($semaines < 2) {
-				$delai = "$semaines " . _T('date_une_semaine');
-			} else {
-				$delai = "$semaines " . _T('date_semaines');
-			}
-		} else {
-			if ($decal > 3600 * 24) {
-				$jours = floor($decal / (3600 * 24));
-				if ($jours < 2) {
-					return $il_y_a == 'date_dans' ? _T('date_demain') : _T('date_hier');
-				} else {
-					$delai = "$jours " . _T('date_jours');
-				}
-			} else {
-				if ($decal >= 3600) {
-					$heures = floor($decal / 3600);
-					if ($heures < 2) {
-						$delai = "$heures " . _T('date_une_heure');
-					} else {
-						$delai = "$heures " . _T('date_heures');
-					}
-				} else {
-					if ($decal >= 60) {
-						$minutes = floor($decal / 60);
-						if ($minutes < 2) {
-							$delai = "$minutes " . _T('date_une_minute');
-						} else {
-							$delai = "$minutes " . _T('date_minutes');
-						}
-					} else {
-						$secondes = ceil($decal);
-						if ($secondes < 2) {
-							$delai = "$secondes " . _T('date_une_seconde');
-						} else {
-							$delai = "$secondes " . _T('date_secondes');
-						}
-					}
-				}
-			}
-		}
-	}
-
-	return _T($il_y_a, ['delai' => $delai]);
+    if (!$date) {
+        return '';
+    }
+
+    if (is_null($ref_date)) {
+        $ref_time = time();
+    } else {
+        $ref_time = strtotime($ref_date);
+    }
+
+    $decal = date('U', $ref_time) - date('U', strtotime($date));
+
+    if ($decalage_maxi and ($decal > $decalage_maxi or $decal < 0)) {
+        return '';
+    }
+
+    if ($decal < 0) {
+        $il_y_a = 'date_dans';
+        $decal = -1 * $decal;
+    } else {
+        $il_y_a = 'date_il_y_a';
+    }
+
+    if ($decal > 3600 * 24 * 30 * 6) {
+        return affdate_court($date);
+    }
+
+    if ($decal > 3600 * 24 * 30) {
+        $mois = floor($decal / (3600 * 24 * 30));
+        if ($mois < 2) {
+            $delai = "$mois " . _T('date_un_mois');
+        } else {
+            $delai = "$mois " . _T('date_mois');
+        }
+    } else {
+        if ($decal > 3600 * 24 * 7) {
+            $semaines = floor($decal / (3600 * 24 * 7));
+            if ($semaines < 2) {
+                $delai = "$semaines " . _T('date_une_semaine');
+            } else {
+                $delai = "$semaines " . _T('date_semaines');
+            }
+        } else {
+            if ($decal > 3600 * 24) {
+                $jours = floor($decal / (3600 * 24));
+                if ($jours < 2) {
+                    return $il_y_a == 'date_dans' ? _T('date_demain') : _T('date_hier');
+                } else {
+                    $delai = "$jours " . _T('date_jours');
+                }
+            } else {
+                if ($decal >= 3600) {
+                    $heures = floor($decal / 3600);
+                    if ($heures < 2) {
+                        $delai = "$heures " . _T('date_une_heure');
+                    } else {
+                        $delai = "$heures " . _T('date_heures');
+                    }
+                } else {
+                    if ($decal >= 60) {
+                        $minutes = floor($decal / 60);
+                        if ($minutes < 2) {
+                            $delai = "$minutes " . _T('date_une_minute');
+                        } else {
+                            $delai = "$minutes " . _T('date_minutes');
+                        }
+                    } else {
+                        $secondes = ceil($decal);
+                        if ($secondes < 2) {
+                            $delai = "$secondes " . _T('date_une_seconde');
+                        } else {
+                            $delai = "$secondes " . _T('date_secondes');
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    return _T($il_y_a, ['delai' => $delai]);
 }
 
 
@@ -466,32 +466,32 @@ 
  **/
 function date_relativecourt($date, $decalage_maxi = 0): string {
 
-	if (!$date) {
-		return '';
-	}
-	$decal = date('U', strtotime(date('Y-m-d')) - strtotime(date('Y-m-d', strtotime($date))));
-
-	if ($decalage_maxi and ($decal > $decalage_maxi or $decal < 0)) {
-		return '';
-	}
-
-	if ($decal < -24 * 3600) {
-		$retour = date_relative($date, $decalage_maxi);
-	} elseif ($decal < 0) {
-		$retour = _T('date_demain');
-	} else {
-		if ($decal < (3600 * 24)) {
-			$retour = _T('date_aujourdhui');
-		} else {
-			if ($decal < (3600 * 24 * 2)) {
-				$retour = _T('date_hier');
-			} else {
-				$retour = date_relative($date, $decalage_maxi);
-			}
-		}
-	}
-
-	return $retour;
+    if (!$date) {
+        return '';
+    }
+    $decal = date('U', strtotime(date('Y-m-d')) - strtotime(date('Y-m-d', strtotime($date))));
+
+    if ($decalage_maxi and ($decal > $decalage_maxi or $decal < 0)) {
+        return '';
+    }
+
+    if ($decal < -24 * 3600) {
+        $retour = date_relative($date, $decalage_maxi);
+    } elseif ($decal < 0) {
+        $retour = _T('date_demain');
+    } else {
+        if ($decal < (3600 * 24)) {
+            $retour = _T('date_aujourdhui');
+        } else {
+            if ($decal < (3600 * 24 * 2)) {
+                $retour = _T('date_hier');
+            } else {
+                $retour = date_relative($date, $decalage_maxi);
+            }
+        }
+    }
+
+    return $retour;
 }
 
 /**
@@ -508,174 +508,174 @@ 
  * @return string
  */
 function affdate_base($numdate, $vue, $options = []): string {
-	if (is_string($options)) {
-		$options = ['param' => $options];
-	}
-	$date_array = recup_date($numdate, false);
-	if (!$date_array) {
-		return '';
-	}
-	[$annee, $mois, $jour, $heures, $minutes, $secondes] = $date_array;
-
-	// 1er, 21st, etc.
-	$journum = $jour;
-
-	if ($jour == 0) {
-		$jour = '';
-		$njour = 0;
-	} else {
-		$njour = intval($jour);
-		if ($jourth = _T('date_jnum' . $jour)) {
-			$jour = $jourth;
-		}
-	}
-
-	$mois = intval($mois);
-	if ($mois > 0 and $mois < 13) {
-		/* Traiter le cas "abbr" pour les noms de mois */
-		$param = ((isset($options['param']) and $options['param'] === 'abbr') ? '_' . $options['param'] : '');
-		$nommois = _T('date_mois_' . $mois . $param);
-		if ($jour) {
-			$jourmois = _T('date_de_mois_' . $mois, ['j' => $jour, 'nommois' => $nommois]);
-		} else {
-			$jourmois = $nommois;
-		}
-	} else {
-		$nommois = '';
-		$jourmois = '';
-	}
-
-	if ($annee < 0) {
-		$annee = -$annee . ' ' . _T('date_avant_jc');
-		$avjc = true;
-	} else {
-		$avjc = false;
-	}
-
-	switch ($vue) {
-		case 'saison':
-		case 'saison_annee':
-			$saison = '';
-			if ($mois > 0) {
-				$saison = ($options['param'] == 'sud') ? 3 : 1;
-				if (($mois == 3 and $jour >= 21) or $mois > 3) {
-					$saison = ($options['param'] == 'sud') ? 4 : 2;
-				}
-				if (($mois == 6 and $jour >= 21) or $mois > 6) {
-					$saison = ($options['param'] == 'sud') ? 1 : 3;
-				}
-				if (($mois == 9 and $jour >= 21) or $mois > 9) {
-					$saison = ($options['param'] == 'sud') ? 2 : 4;
-				}
-				if (($mois == 12 and $jour >= 21) or $mois > 12) {
-					$saison = ($options['param'] == 'sud') ? 3 : 1;
-				}
-			}
-			if ($vue == 'saison') {
-				return $saison ? _T('date_saison_' . $saison) : '';
-			} else {
-				return $saison ? trim(_T(
-					'date_fmt_saison_annee',
-					['saison' => _T('date_saison_' . $saison), 'annee' => $annee]
-				)) : '';
-			}
-
-		case 'court':
-			if ($avjc) {
-				return $annee;
-			}
-			$a = ((isset($options['annee_courante']) and $options['annee_courante']) ? $options['annee_courante'] : date('Y'));
-			if ($annee < ($a - 100) or $annee > ($a + 100)) {
-				return $annee;
-			}
-			if ($annee != $a) {
-				return _T(
-					'date_fmt_mois_annee',
-					['mois' => $mois, 'nommois' => spip_ucfirst($nommois), 'annee' => $annee]
-				);
-			}
-
-			return _T(
-				'date_fmt_jour_mois',
-				['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
-			);
-
-		case 'jourcourt':
-			if ($avjc) {
-				return $annee;
-			}
-			$a = ((isset($options['annee_courante']) and $options['annee_courante']) ? $options['annee_courante'] : date('Y'));
-			if ($annee < ($a - 100) or $annee > ($a + 100)) {
-				return $annee;
-			}
-			if ($annee != $a) {
-				return _T(
-					'date_fmt_jour_mois_annee',
-					['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
-				);
-			}
-
-			return _T(
-				'date_fmt_jour_mois',
-				['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
-			);
-
-		case 'entier':
-			if ($avjc) {
-				return $annee;
-			}
-			if ($jour) {
-				return _T(
-					'date_fmt_jour_mois_annee',
-					['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
-				);
-			} elseif ($mois) {
-				return trim(_T('date_fmt_mois_annee', ['mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]));
-			} else {
-				return $annee;
-			}
-
-		case 'nom_mois':
-			return $nommois;
-
-		case 'mois':
-			return sprintf('%02s', $mois);
-
-		case 'jour':
-			return $jour;
-
-		case 'journum':
-			return $journum;
-
-		case 'nom_jour':
-			if (!$mois or !$njour) {
-				return '';
-			}
-			$nom = mktime(1, 1, 1, $mois, $njour, $annee);
-			$nom = 1 + (int) date('w', $nom);
-			$param = ((isset($options['param']) and $options['param']) ? '_' . $options['param'] : '');
-
-			return _T('date_jour_' . $nom . $param);
-
-		case 'mois_annee':
-			if ($avjc) {
-				return $annee;
-			}
-
-			return trim(_T('date_fmt_mois_annee', ['mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]));
-
-		case 'annee':
-			return $annee;
-
-		// Cas d'une vue non definie : retomber sur le format
-		// de date propose par http://www.php.net/date
-		default:
-			[$annee, $mois, $jour, $heures, $minutes, $secondes] = $date_array;
-			if (!$time = mktime($heures, $minutes, $secondes, $mois, (int) $jour, $annee)) {
-				$time = strtotime($numdate);
-			}
-			return date($vue, $time);
-	}
+    if (is_string($options)) {
+        $options = ['param' => $options];
+    }
+    $date_array = recup_date($numdate, false);
+    if (!$date_array) {
+        return '';
+    }
+    [$annee, $mois, $jour, $heures, $minutes, $secondes] = $date_array;
+
+    // 1er, 21st, etc.
+    $journum = $jour;
+
+    if ($jour == 0) {
+        $jour = '';
+        $njour = 0;
+    } else {
+        $njour = intval($jour);
+        if ($jourth = _T('date_jnum' . $jour)) {
+            $jour = $jourth;
+        }
+    }
+
+    $mois = intval($mois);
+    if ($mois > 0 and $mois < 13) {
+        /* Traiter le cas "abbr" pour les noms de mois */
+        $param = ((isset($options['param']) and $options['param'] === 'abbr') ? '_' . $options['param'] : '');
+        $nommois = _T('date_mois_' . $mois . $param);
+        if ($jour) {
+            $jourmois = _T('date_de_mois_' . $mois, ['j' => $jour, 'nommois' => $nommois]);
+        } else {
+            $jourmois = $nommois;
+        }
+    } else {
+        $nommois = '';
+        $jourmois = '';
+    }
+
+    if ($annee < 0) {
+        $annee = -$annee . ' ' . _T('date_avant_jc');
+        $avjc = true;
+    } else {
+        $avjc = false;
+    }
+
+    switch ($vue) {
+        case 'saison':
+        case 'saison_annee':
+            $saison = '';
+            if ($mois > 0) {
+                $saison = ($options['param'] == 'sud') ? 3 : 1;
+                if (($mois == 3 and $jour >= 21) or $mois > 3) {
+                    $saison = ($options['param'] == 'sud') ? 4 : 2;
+                }
+                if (($mois == 6 and $jour >= 21) or $mois > 6) {
+                    $saison = ($options['param'] == 'sud') ? 1 : 3;
+                }
+                if (($mois == 9 and $jour >= 21) or $mois > 9) {
+                    $saison = ($options['param'] == 'sud') ? 2 : 4;
+                }
+                if (($mois == 12 and $jour >= 21) or $mois > 12) {
+                    $saison = ($options['param'] == 'sud') ? 3 : 1;
+                }
+            }
+            if ($vue == 'saison') {
+                return $saison ? _T('date_saison_' . $saison) : '';
+            } else {
+                return $saison ? trim(_T(
+                    'date_fmt_saison_annee',
+                    ['saison' => _T('date_saison_' . $saison), 'annee' => $annee]
+                )) : '';
+            }
+
+        case 'court':
+            if ($avjc) {
+                return $annee;
+            }
+            $a = ((isset($options['annee_courante']) and $options['annee_courante']) ? $options['annee_courante'] : date('Y'));
+            if ($annee < ($a - 100) or $annee > ($a + 100)) {
+                return $annee;
+            }
+            if ($annee != $a) {
+                return _T(
+                    'date_fmt_mois_annee',
+                    ['mois' => $mois, 'nommois' => spip_ucfirst($nommois), 'annee' => $annee]
+                );
+            }
+
+            return _T(
+                'date_fmt_jour_mois',
+                ['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
+            );
+
+        case 'jourcourt':
+            if ($avjc) {
+                return $annee;
+            }
+            $a = ((isset($options['annee_courante']) and $options['annee_courante']) ? $options['annee_courante'] : date('Y'));
+            if ($annee < ($a - 100) or $annee > ($a + 100)) {
+                return $annee;
+            }
+            if ($annee != $a) {
+                return _T(
+                    'date_fmt_jour_mois_annee',
+                    ['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
+                );
+            }
+
+            return _T(
+                'date_fmt_jour_mois',
+                ['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
+            );
+
+        case 'entier':
+            if ($avjc) {
+                return $annee;
+            }
+            if ($jour) {
+                return _T(
+                    'date_fmt_jour_mois_annee',
+                    ['jourmois' => $jourmois, 'jour' => $jour, 'mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]
+                );
+            } elseif ($mois) {
+                return trim(_T('date_fmt_mois_annee', ['mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]));
+            } else {
+                return $annee;
+            }
+
+        case 'nom_mois':
+            return $nommois;
+
+        case 'mois':
+            return sprintf('%02s', $mois);
+
+        case 'jour':
+            return $jour;
+
+        case 'journum':
+            return $journum;
+
+        case 'nom_jour':
+            if (!$mois or !$njour) {
+                return '';
+            }
+            $nom = mktime(1, 1, 1, $mois, $njour, $annee);
+            $nom = 1 + (int) date('w', $nom);
+            $param = ((isset($options['param']) and $options['param']) ? '_' . $options['param'] : '');
+
+            return _T('date_jour_' . $nom . $param);
+
+        case 'mois_annee':
+            if ($avjc) {
+                return $annee;
+            }
+
+            return trim(_T('date_fmt_mois_annee', ['mois' => $mois, 'nommois' => $nommois, 'annee' => $annee]));
+
+        case 'annee':
+            return $annee;
+
+        // Cas d'une vue non definie : retomber sur le format
+        // de date propose par http://www.php.net/date
+        default:
+            [$annee, $mois, $jour, $heures, $minutes, $secondes] = $date_array;
+            if (!$time = mktime($heures, $minutes, $secondes, $mois, (int) $jour, $annee)) {
+                $time = strtotime($numdate);
+            }
+            return date($vue, $time);
+    }
 }
 
 
@@ -702,11 +702,11 @@ 
  *     Nom du jour
  **/
 function nom_jour($numdate, $forme = ''): string {
-	if (!($forme === 'abbr' or $forme === 'initiale')) {
-		$forme = '';
-	}
+    if (!($forme === 'abbr' or $forme === 'initiale')) {
+        $forme = '';
+    }
 
-	return affdate_base($numdate, 'nom_jour', ['param' => $forme]);
+    return affdate_base($numdate, 'nom_jour', ['param' => $forme]);
 }
 
 /**
@@ -728,7 +728,7 @@ 
  *     Numéro du jour
  **/
 function jour($numdate): string {
-	return affdate_base($numdate, 'jour');
+    return affdate_base($numdate, 'jour');
 }
 
 /**
@@ -746,7 +746,7 @@ 
  *     Numéro du jour
  **/
 function journum($numdate): string {
-	return affdate_base($numdate, 'journum');
+    return affdate_base($numdate, 'journum');
 }
 
 /**
@@ -764,7 +764,7 @@ 
  *     Numéro du mois (sur 2 chiffres)
  **/
 function mois($numdate): string {
-	return  affdate_base($numdate, 'mois');
+    return  affdate_base($numdate, 'mois');
 }
 
 /**
@@ -788,11 +788,11 @@ 
  *     Nom du mois
  **/
 function nom_mois($numdate, $forme = ''): string {
-	if (!($forme === 'abbr')) {
-		$forme = '';
-	}
+    if (!($forme === 'abbr')) {
+        $forme = '';
+    }
 
-	return affdate_base($numdate, 'nom_mois', ['param' => $forme]);
+    return affdate_base($numdate, 'nom_mois', ['param' => $forme]);
 }
 
 /**
@@ -810,7 +810,7 @@ 
  *     Année (sur 4 chiffres)
  **/
 function annee($numdate): string {
-	return affdate_base($numdate, 'annee');
+    return affdate_base($numdate, 'annee');
 }
 
 
@@ -840,11 +840,11 @@ 
  *     La date formatée
  **/
 function saison($numdate, $hemisphere = 'nord'): string {
-	if ($hemisphere !== 'sud') {
-		$hemisphere = 'nord';
-	}
+    if ($hemisphere !== 'sud') {
+        $hemisphere = 'nord';
+    }
 
-	return affdate_base($numdate, 'saison', ['param' => $hemisphere]);
+    return affdate_base($numdate, 'saison', ['param' => $hemisphere]);
 }
 
 
@@ -873,11 +873,11 @@ 
  *     La date formatée
  **/
 function saison_annee($numdate, $hemisphere = 'nord'): string {
-	if ($hemisphere !== 'sud') {
-		$hemisphere = 'nord';
-	}
+    if ($hemisphere !== 'sud') {
+        $hemisphere = 'nord';
+    }
 
-	return affdate_base($numdate, 'saison_annee', ['param' => $hemisphere]);
+    return affdate_base($numdate, 'saison_annee', ['param' => $hemisphere]);
 }
 
 /**
@@ -905,7 +905,7 @@ 
  *     La date formatée
  **/
 function affdate($numdate, $format = 'entier'): string {
-	return affdate_base($numdate, $format);
+    return affdate_base($numdate, $format);
 }
 
 
@@ -932,7 +932,7 @@ 
  *     La date formatée
  **/
 function affdate_court($numdate, $annee_courante = null): string {
-	return affdate_base($numdate, 'court', ['annee_courante' => $annee_courante]);
+    return affdate_base($numdate, 'court', ['annee_courante' => $annee_courante]);
 }
 
 
@@ -959,7 +959,7 @@ 
  *     La date formatée
  **/
 function affdate_jourcourt($numdate, $annee_courante = null): string {
-	return affdate_base($numdate, 'jourcourt', ['annee_courante' => $annee_courante]);
+    return affdate_base($numdate, 'jourcourt', ['annee_courante' => $annee_courante]);
 }
 
 /**
@@ -977,7 +977,7 @@ 
  *     La date formatée
  **/
 function affdate_mois_annee($numdate): string {
-	return affdate_base($numdate, 'mois_annee');
+    return affdate_base($numdate, 'mois_annee');
 }
 
 /**
@@ -995,16 +995,16 @@ 
  *     La date formatée, sinon ''
  **/
 function affdate_heure($numdate): string {
-	$date_array = recup_date($numdate);
-	if (!$date_array) {
-		return '';
-	}
-	[$annee, $mois, $jour, $heures, $minutes, $sec] = $date_array;
-
-	return _T('date_fmt_jour_heure', [
-		'jour' => affdate($numdate),
-		'heure' => _T('date_fmt_heures_minutes', ['h' => $heures, 'm' => $minutes])
-	]);
+    $date_array = recup_date($numdate);
+    if (!$date_array) {
+        return '';
+    }
+    [$annee, $mois, $jour, $heures, $minutes, $sec] = $date_array;
+
+    return _T('date_fmt_jour_heure', [
+        'jour' => affdate($numdate),
+        'heure' => _T('date_fmt_heures_minutes', ['h' => $heures, 'm' => $minutes])
+    ]);
 }
 
 /**
@@ -1036,117 +1036,117 @@ 
  *     texte de la date
  */
 function affdate_debut_fin($date_debut, $date_fin, $horaire = 'oui', $forme = ''): string {
-	$abbr = $jour = '';
-	$affdate = 'affdate_jourcourt';
-	if (strpos($forme, 'abbr') !== false) {
-		$abbr = 'abbr';
-	}
-	if (strpos($forme, 'annee') !== false) {
-		$affdate = 'affdate';
-	}
-	if (strpos($forme, 'jour') !== false) {
-		$jour = 'jour';
-	}
-
-	$dtstart = $dtend = $dtabbr = '';
-	if (strpos($forme, 'hcal') !== false) {
-		$dtstart = "<abbr class='dtstart' title='" . date_iso($date_debut) . "'>";
-		$dtend = "<abbr class='dtend' title='" . date_iso($date_fin) . "'>";
-		$dtabbr = '</abbr>';
-	}
-
-	$date_debut = strtotime($date_debut);
-	$date_fin = strtotime($date_fin);
-	$d = date('Y-m-d', $date_debut);
-	$f = date('Y-m-d', $date_fin);
-	$h = ($horaire === 'oui' or $horaire === true);
-	$hd = _T('date_fmt_heures_minutes_court', ['h' => date('H', $date_debut), 'm' => date('i', $date_debut)]);
-	$hf = _T('date_fmt_heures_minutes_court', ['h' => date('H', $date_fin), 'm' => date('i', $date_fin)]);
-
-	if ($d == $f) { // meme jour
-		$nomjour = nom_jour($d, $abbr);
-		$s = $affdate($d);
-		$s = _T('date_fmt_jour', ['nomjour' => $nomjour, 'jour' => $s]);
-		if ($h) {
-			if ($hd == $hf) {
-				// Lundi 20 fevrier a 18h25
-				$s = spip_ucfirst(_T('date_fmt_jour_heure', ['jour' => $s, 'heure' => $hd]));
-				$s = "$dtstart$s$dtabbr";
-			} else {
-				// Le <abbr...>lundi 20 fevrier de 18h00</abbr> a <abbr...>20h00</abbr>
-				if ($dtabbr && $dtstart && $dtend) {
-					$s = _T(
-						'date_fmt_jour_heure_debut_fin_abbr',
-						[
-						'jour' => spip_ucfirst($s),
-						'heure_debut' => $hd,
-						'heure_fin' => $hf,
-						'dtstart' => $dtstart,
-						'dtend' => $dtend,
-						'dtabbr' => $dtabbr
-						],
-						[
-							'sanitize' => false
-						]
-					);
-				} // Le lundi 20 fevrier de 18h00 a 20h00
-				else {
-					$s = spip_ucfirst(_T(
-						'date_fmt_jour_heure_debut_fin',
-						['jour' => $s, 'heure_debut' => $hd, 'heure_fin' => $hf]
-					));
-				}
-			}
-		} else {
-			if ($dtabbr && $dtstart) {
-				$s = $dtstart . spip_ucfirst($s) . $dtabbr;
-			} else {
-				$s = spip_ucfirst($s);
-			}
-		}
-	} else {
-		if ((date('Y-m', $date_debut)) == date('Y-m', $date_fin)) { // meme annee et mois, jours differents
-			if (!$h) {
-				$date_debut = jour($d);
-			} else {
-				$date_debut = affdate_jourcourt($d, date('Y', $date_fin));
-			}
-			$date_fin = $affdate($f);
-			if ($jour) {
-				$nomjour_debut = nom_jour($d, $abbr);
-				$date_debut = _T('date_fmt_jour', ['nomjour' => $nomjour_debut, 'jour' => $date_debut]);
-				$nomjour_fin = nom_jour($f, $abbr);
-				$date_fin = _T('date_fmt_jour', ['nomjour' => $nomjour_fin, 'jour' => $date_fin]);
-			}
-			if ($h) {
-				$date_debut = _T('date_fmt_jour_heure', ['jour' => $date_debut, 'heure' => $hd]);
-				$date_fin = _T('date_fmt_jour_heure', ['jour' => $date_fin, 'heure' => $hf]);
-			}
-			$date_debut = $dtstart . $date_debut . $dtabbr;
-			$date_fin = $dtend . $date_fin . $dtabbr;
-
-			$s = _T('date_fmt_periode', ['date_debut' => $date_debut, 'date_fin' => $date_fin]);
-		} else {
-			$date_debut = affdate_jourcourt($d, date('Y', $date_fin));
-			$date_fin = $affdate($f);
-			if ($jour) {
-				$nomjour_debut = nom_jour($d, $abbr);
-				$date_debut = _T('date_fmt_jour', ['nomjour' => $nomjour_debut, 'jour' => $date_debut]);
-				$nomjour_fin = nom_jour($f, $abbr);
-				$date_fin = _T('date_fmt_jour', ['nomjour' => $nomjour_fin, 'jour' => $date_fin]);
-			}
-			if ($h) {
-				$date_debut = _T('date_fmt_jour_heure', ['jour' => $date_debut, 'heure' => $hd]);
-				$date_fin = _T('date_fmt_jour_heure', ['jour' => $date_fin, 'heure' => $hf]);
-			}
-
-			$date_debut = $dtstart . $date_debut . $dtabbr;
-			$date_fin = $dtend . $date_fin . $dtabbr;
-			$s = _T('date_fmt_periode', ['date_debut' => $date_debut, 'date_fin' => $date_fin]);
-		}
-	}
-
-	return $s;
+    $abbr = $jour = '';
+    $affdate = 'affdate_jourcourt';
+    if (strpos($forme, 'abbr') !== false) {
+        $abbr = 'abbr';
+    }
+    if (strpos($forme, 'annee') !== false) {
+        $affdate = 'affdate';
+    }
+    if (strpos($forme, 'jour') !== false) {
+        $jour = 'jour';
+    }
+
+    $dtstart = $dtend = $dtabbr = '';
+    if (strpos($forme, 'hcal') !== false) {
+        $dtstart = "<abbr class='dtstart' title='" . date_iso($date_debut) . "'>";
+        $dtend = "<abbr class='dtend' title='" . date_iso($date_fin) . "'>";
+        $dtabbr = '</abbr>';
+    }
+
+    $date_debut = strtotime($date_debut);
+    $date_fin = strtotime($date_fin);
+    $d = date('Y-m-d', $date_debut);
+    $f = date('Y-m-d', $date_fin);
+    $h = ($horaire === 'oui' or $horaire === true);
+    $hd = _T('date_fmt_heures_minutes_court', ['h' => date('H', $date_debut), 'm' => date('i', $date_debut)]);
+    $hf = _T('date_fmt_heures_minutes_court', ['h' => date('H', $date_fin), 'm' => date('i', $date_fin)]);
+
+    if ($d == $f) { // meme jour
+        $nomjour = nom_jour($d, $abbr);
+        $s = $affdate($d);
+        $s = _T('date_fmt_jour', ['nomjour' => $nomjour, 'jour' => $s]);
+        if ($h) {
+            if ($hd == $hf) {
+                // Lundi 20 fevrier a 18h25
+                $s = spip_ucfirst(_T('date_fmt_jour_heure', ['jour' => $s, 'heure' => $hd]));
+                $s = "$dtstart$s$dtabbr";
+            } else {
+                // Le <abbr...>lundi 20 fevrier de 18h00</abbr> a <abbr...>20h00</abbr>
+                if ($dtabbr && $dtstart && $dtend) {
+                    $s = _T(
+                        'date_fmt_jour_heure_debut_fin_abbr',
+                        [
+                        'jour' => spip_ucfirst($s),
+                        'heure_debut' => $hd,
+                        'heure_fin' => $hf,
+                        'dtstart' => $dtstart,
+                        'dtend' => $dtend,
+                        'dtabbr' => $dtabbr
+                        ],
+                        [
+                            'sanitize' => false
+                        ]
+                    );
+                } // Le lundi 20 fevrier de 18h00 a 20h00
+                else {
+                    $s = spip_ucfirst(_T(
+                        'date_fmt_jour_heure_debut_fin',
+                        ['jour' => $s, 'heure_debut' => $hd, 'heure_fin' => $hf]
+                    ));
+                }
+            }
+        } else {
+            if ($dtabbr && $dtstart) {
+                $s = $dtstart . spip_ucfirst($s) . $dtabbr;
+            } else {
+                $s = spip_ucfirst($s);
+            }
+        }
+    } else {
+        if ((date('Y-m', $date_debut)) == date('Y-m', $date_fin)) { // meme annee et mois, jours differents
+            if (!$h) {
+                $date_debut = jour($d);
+            } else {
+                $date_debut = affdate_jourcourt($d, date('Y', $date_fin));
+            }
+            $date_fin = $affdate($f);
+            if ($jour) {
+                $nomjour_debut = nom_jour($d, $abbr);
+                $date_debut = _T('date_fmt_jour', ['nomjour' => $nomjour_debut, 'jour' => $date_debut]);
+                $nomjour_fin = nom_jour($f, $abbr);
+                $date_fin = _T('date_fmt_jour', ['nomjour' => $nomjour_fin, 'jour' => $date_fin]);
+            }
+            if ($h) {
+                $date_debut = _T('date_fmt_jour_heure', ['jour' => $date_debut, 'heure' => $hd]);
+                $date_fin = _T('date_fmt_jour_heure', ['jour' => $date_fin, 'heure' => $hf]);
+            }
+            $date_debut = $dtstart . $date_debut . $dtabbr;
+            $date_fin = $dtend . $date_fin . $dtabbr;
+
+            $s = _T('date_fmt_periode', ['date_debut' => $date_debut, 'date_fin' => $date_fin]);
+        } else {
+            $date_debut = affdate_jourcourt($d, date('Y', $date_fin));
+            $date_fin = $affdate($f);
+            if ($jour) {
+                $nomjour_debut = nom_jour($d, $abbr);
+                $date_debut = _T('date_fmt_jour', ['nomjour' => $nomjour_debut, 'jour' => $date_debut]);
+                $nomjour_fin = nom_jour($f, $abbr);
+                $date_fin = _T('date_fmt_jour', ['nomjour' => $nomjour_fin, 'jour' => $date_fin]);
+            }
+            if ($h) {
+                $date_debut = _T('date_fmt_jour_heure', ['jour' => $date_debut, 'heure' => $hd]);
+                $date_fin = _T('date_fmt_jour_heure', ['jour' => $date_fin, 'heure' => $hf]);
+            }
+
+            $date_debut = $dtstart . $date_debut . $dtabbr;
+            $date_fin = $dtend . $date_fin . $dtabbr;
+            $s = _T('date_fmt_periode', ['date_debut' => $date_debut, 'date_fin' => $date_fin]);
+        }
+    }
+
+    return $s;
 }
 
 /**
@@ -1167,10 +1167,10 @@ 
  *     Date au format ical
  **/
 function date_ical($date, $addminutes = 0): string {
-	[$heures, $minutes, $secondes] = recup_heure($date);
-	[$annee, $mois, $jour] = recup_date($date);
+    [$heures, $minutes, $secondes] = recup_heure($date);
+    [$annee, $mois, $jour] = recup_date($date);
 
-	return gmdate('Ymd\THis\Z', mktime($heures, $minutes + $addminutes, $secondes, $mois, $jour, $annee));
+    return gmdate('Ymd\THis\Z', mktime($heures, $minutes + $addminutes, $secondes, $mois, $jour, $annee));
 }
 
 
@@ -1194,11 +1194,11 @@ 
  *     La date formatée
  **/
 function date_iso($date_heure): string {
-	[$annee, $mois, $jour] = recup_date($date_heure);
-	[$heures, $minutes, $secondes] = recup_heure($date_heure);
-	$time = @mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
+    [$annee, $mois, $jour] = recup_date($date_heure);
+    [$heures, $minutes, $secondes] = recup_heure($date_heure);
+    $time = @mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
 
-	return gmdate('Y-m-d\TH:i:s\Z', $time);
+    return gmdate('Y-m-d\TH:i:s\Z', $time);
 }
 
 /**
@@ -1221,11 +1221,11 @@ 
  *     La date formatée
  **/
 function date_822($date_heure): string {
-	[$annee, $mois, $jour] = recup_date($date_heure);
-	[$heures, $minutes, $secondes] = recup_heure($date_heure);
-	$time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
+    [$annee, $mois, $jour] = recup_date($date_heure);
+    [$heures, $minutes, $secondes] = recup_heure($date_heure);
+    $time = mktime($heures, $minutes, $secondes, $mois, $jour, $annee);
 
-	return date('r', $time);
+    return date('r', $time);
 }
 
 /**
@@ -1241,11 +1241,11 @@ 
  *     Date au format `Ymd`
  **/
 function date_anneemoisjour($d): string {
-	if (!$d) {
-		$d = date('Y-m-d');
-	}
+    if (!$d) {
+        $d = date('Y-m-d');
+    }
 
-	return substr($d, 0, 4) . substr($d, 5, 2) . substr($d, 8, 2);
+    return substr($d, 0, 4) . substr($d, 5, 2) . substr($d, 8, 2);
 }
 
 /**
@@ -1261,11 +1261,11 @@ 
  *     Date au format `Ym`
  **/
 function date_anneemois($d): string {
-	if (!$d) {
-		$d = date('Y-m-d');
-	}
+    if (!$d) {
+        $d = date('Y-m-d');
+    }
 
-	return substr($d, 0, 4) . substr($d, 5, 2);
+    return substr($d, 0, 4) . substr($d, 5, 2);
 }
 
 /**
@@ -1281,13 +1281,13 @@ 
  *     Date au lundi de la même semaine au format `Ymd`
  **/
 function date_debut_semaine($annee, $mois, $jour): string {
-	$w_day = date('w', mktime(0, 0, 0, $mois, $jour, $annee));
-	if ($w_day == 0) {
-		$w_day = 7;
-	} // Gaffe: le dimanche est zero
-	$debut = $jour - $w_day + 1;
+    $w_day = date('w', mktime(0, 0, 0, $mois, $jour, $annee));
+    if ($w_day == 0) {
+        $w_day = 7;
+    } // Gaffe: le dimanche est zero
+    $debut = $jour - $w_day + 1;
 
-	return date('Ymd', mktime(0, 0, 0, $mois, $debut, $annee));
+    return date('Ymd', mktime(0, 0, 0, $mois, $debut, $annee));
 }
 
 /**
@@ -1303,11 +1303,11 @@ 
  *     Date au dimanche de la même semaine au format `Ymd`
  **/
 function date_fin_semaine($annee, $mois, $jour): string {
-	$w_day = date('w', mktime(0, 0, 0, $mois, $jour, $annee));
-	if ($w_day == 0) {
-		$w_day = 7;
-	} // Gaffe: le dimanche est zero
-	$debut = $jour - $w_day + 1;
+    $w_day = date('w', mktime(0, 0, 0, $mois, $jour, $annee));
+    if ($w_day == 0) {
+        $w_day = 7;
+    } // Gaffe: le dimanche est zero
+    $debut = $jour - $w_day + 1;
 
-	return date('Ymd', mktime(0, 0, 0, $mois, $debut + 6, $annee));
+    return date('Ymd', mktime(0, 0, 0, $mois, $debut + 6, $annee));
 }