spip / SPIP

ecrire/auth/spip.php

Spacing +34 added lines, -34 removed lines

@@ -49,7 +49,7 @@ 
 		$row = sql_fetsel(
 			'*',
 			'spip_auteurs',
-			'login=' . sql_quote($login, $serveur, 'text') . " AND statut<>'5poubelle'",
+			'login='.sql_quote($login, $serveur, 'text')." AND statut<>'5poubelle'",
 			'',
 			'',
 			'',
@@ -77,20 +77,20 @@ 
 		// legacy = md5 ou sha256
 		case 32:
 			// tres anciens mots de passe encodes en md5(alea.pass)
-			$hash = md5($row['alea_actuel'] . $pass);
+			$hash = md5($row['alea_actuel'].$pass);
 			$methode = 'md5';
 		case 64:
 			if (empty($hash)) {
 				// anciens mots de passe encodes en sha256(alea.pass)
 				include_spip('auth/sha256.inc');
-				$hash = spip_sha256($row['alea_actuel'] . $pass);
+				$hash = spip_sha256($row['alea_actuel'].$pass);
 				$methode = 'sha256';
 			}
 			if ($row['pass'] === $hash) {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via $methode", 'auth' . _LOG_DEBUG);
+				spip_log("validation du mot de passe pour l'auteur #".$row['id_auteur']." $login via $methode", 'auth'._LOG_DEBUG);
 				// ce n'est pas cense arriver, mais si jamais c'est un backup inutilisable, il faut le nettoyer pour ne pas bloquer la creation d'une nouvelle cle d'auth
 				if (!empty($row['backup_cles'])) {
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur='.intval($row['id_auteur']));
 				}
 				break;
 			}
@@ -108,19 +108,19 @@ 
 				and !empty($row['backup_cles'])
 			) {
 				if ($cles->restore($row['backup_cles'], $pass, $row['pass'], $row['id_auteur'])) {
-					spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
+					spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #'.$row['id_auteur'], 'auth'._LOG_INFO_IMPORTANTE);
 					if ($cles->save()) {
 						$secret = $cles->getSecretAuth();
 					}
 					else {
-						spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+						spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth'._LOG_ERREUR);
 						// et on echoue car on ne veut pas que la situation reste telle quelle
-						raler_fichier(_DIR_ETC . 'cles.php');
+						raler_fichier(_DIR_ETC.'cles.php');
 					}
 				}
 				else {
-					spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+					spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #'.$row['id_auteur']." n'est pas valide", 'auth'._LOG_ERREUR);
+					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur='.intval($row['id_auteur']));
 				}
 			}
 
@@ -128,7 +128,7 @@ 
 				unset($row);
 			}
 			else {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
+				spip_log("validation du mot de passe pour l'auteur #".$row['id_auteur']." $login via Password::verifier", 'auth'._LOG_DEBUG);
 			}
 			break;
 	}
@@ -175,7 +175,7 @@ 
 			@sql_update(
 				'spip_auteurs',
 				$set,
-				'id_auteur=' . intval($row['id_auteur']) . ' AND pass=' . sql_quote(
+				'id_auteur='.intval($row['id_auteur']).' AND pass='.sql_quote(
 					$row['pass'],
 					$serveur,
 					'text'
@@ -223,24 +223,24 @@ 
 
 	// si force, on ne verifie pas la presence d'un backup chez un webmestre
 	if ($force) {
-		spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth' . _LOG_INFO_IMPORTANTE);
+		spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth'._LOG_INFO_IMPORTANTE);
 		$secret = $cles->getSecretAuth(true);
 		return true;
 	}
 
-	$has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut=' . sql_quote('0minirezo') . ' AND webmestre=' . sql_quote('oui') . " AND backup_cles!=''");
+	$has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut='.sql_quote('0minirezo').' AND webmestre='.sql_quote('oui')." AND backup_cles!=''");
 	$has_backup = array_column($has_backup, 'id_auteur');
 	if (empty($has_backup)) {
-		spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth' . _LOG_INFO_IMPORTANTE);
+		spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth'._LOG_INFO_IMPORTANTE);
 		if ($secret = $cles->getSecretAuth(true)) {
 			return true;
 		}
-		spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+		spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth'._LOG_ERREUR);
 		// et on echoue car on ne veut pas que la situation reste telle quelle
-		raler_fichier(_DIR_ETC . 'cles.php');
+		raler_fichier(_DIR_ETC.'cles.php');
 	}
 	else {
-		spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
+		spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #'.implode(', #', $has_backup).' doit se connecter pour restaurer son backup des cles', 'auth'._LOG_ERREUR);
 	}
 	return false;
 }
@@ -257,8 +257,8 @@ 
 	$flux['data'] .=
 		  '<script type="text/javascript">/*<![CDATA[*/'
 		. "$js\n"
-		. "var login_info={'login':'" . $flux['args']['contexte']['var_login'] . "',"
-		. "'page_auteur': '" . generer_url_public('informer_auteur') . "',"
+		. "var login_info={'login':'".$flux['args']['contexte']['var_login']."',"
+		. "'page_auteur': '".generer_url_public('informer_auteur')."',"
 		. "'informe_auteur_en_cours':false,"
 		. "'attente_informe':0};"
 		. "jQuery(function(){jQuery('#var_login').change(actualise_auteur);});"
@@ -301,7 +301,7 @@ 
 		} else {
 			$n = sql_countsel(
 				'spip_auteurs',
-				'login=' . sql_quote($new_login) . ' AND id_auteur!=' . intval($id_auteur) . " AND statut!='5poubelle'",
+				'login='.sql_quote($new_login).' AND id_auteur!='.intval($id_auteur)." AND statut!='5poubelle'",
 				'',
 				'',
 				$serveur
@@ -329,7 +329,7 @@ 
 	}
 	if (
 		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+		or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur='.intval($id_auteur), '', '', '', '', $serveur)
 	) {
 		return false;
 	}
@@ -344,7 +344,7 @@ 
 		$anciens = sql_allfetsel(
 			'id_auteur',
 			'spip_auteurs',
-			'login=' . sql_quote($new_login, $serveur, 'text') . " AND statut='5poubelle'",
+			'login='.sql_quote($new_login, $serveur, 'text')." AND statut='5poubelle'",
 			'',
 			'',
 			'',
@@ -378,8 +378,8 @@ 
 		$r = sql_getfetsel(
 			'login',
 			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
+			"statut<>'5poubelle'".
+			' AND (length(pass)>0)'.
 			" AND (login=$l)",
 			'',
 			'',
@@ -398,8 +398,8 @@ 
 		return sql_getfetsel(
 			'login',
 			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
+			"statut<>'5poubelle'".
+			' AND (length(pass)>0)'.
 			" AND (login<>'' AND (nom=$l OR email=$l))",
 			'',
 			'',
@@ -468,7 +468,7 @@ 
 
 	if (
 		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+		or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur='.intval($id_auteur), '', '', '', '', $serveur)
 	) {
 		return false;
 	}
@@ -529,8 +529,8 @@ 
 		or isset($champs['statut'])
 		or (isset($options['all']) and $options['all'])
 	) {
-		$htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
-		$htpasswd = _DIR_TMP . _AUTH_USER_FILE;
+		$htaccess = _DIR_RESTREINT._ACCESS_FILE_NAME;
+		$htpasswd = _DIR_TMP._AUTH_USER_FILE;
 
 		// Cette variable de configuration peut etre posee par un plugin
 		// par exemple acces_restreint ;
@@ -540,7 +540,7 @@ 
 			and !@file_exists($htaccess)
 		) {
 			spip_unlink($htpasswd);
-			spip_unlink($htpasswd . '-admin');
+			spip_unlink($htpasswd.'-admin');
 
 			return;
 		}
@@ -558,16 +558,16 @@ 
 		);
 		while ($t = sql_fetch($s)) {
 			if (strlen($t['login']) and strlen($t['htpass'])) {
-				$p1 .= $t['login'] . ':' . $t['htpass'] . "\n";
+				$p1 .= $t['login'].':'.$t['htpass']."\n";
 				if ($t['statut'] == '0minirezo') {
-					$p2 .= $t['login'] . ':' . $t['htpass'] . "\n";
+					$p2 .= $t['login'].':'.$t['htpass']."\n";
 				}
 			}
 		}
 		sql_free($s);
 		if ($p1) {
 			ecrire_fichier($htpasswd, $p1);
-			ecrire_fichier($htpasswd . '-admin', $p2);
+			ecrire_fichier($htpasswd.'-admin', $p2);
 			spip_log("Ecriture de $htpasswd et $htpasswd-admin");
 		}
 	}

Braces +5 added lines, -10 removed lines

@@ -111,14 +111,12 @@ 
 					spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
 					if ($cles->save()) {
 						$secret = $cles->getSecretAuth();
-					}
-					else {
+					} else {
 						spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
 						// et on echoue car on ne veut pas que la situation reste telle quelle
 						raler_fichier(_DIR_ETC . 'cles.php');
 					}
-				}
-				else {
+				} else {
 					spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
 					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
 				}
@@ -126,8 +124,7 @@ 
 
 			if (!$secret or !Password::verifier($pass, $row['pass'], $secret)) {
 				unset($row);
-			}
-			else {
+			} else {
 				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
 			}
 			break;
@@ -238,8 +235,7 @@ 
 		spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
 		// et on echoue car on ne veut pas que la situation reste telle quelle
 		raler_fichier(_DIR_ETC . 'cles.php');
-	}
-	else {
+	} else {
 		spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
 	}
 	return false;
@@ -479,8 +475,7 @@ 
 	if (!$secret) {
 		if (auth_spip_initialiser_secret()) {
 			$secret = $cles->getSecretAuth();
-		}
-		else {
+		} else {
 			return false;
 		}
 	}

Indentation +409 added lines, -409 removed lines

@@ -18,7 +18,7 @@ 
 use Spip\Chiffrer\SpipCles;
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -33,169 +33,169 @@ 
  */
 function auth_spip_dist($login, #[\SensitiveParameter] $pass, $serveur = '', $phpauth = false) {
 
-	// retrouver le login
-	$login = auth_spip_retrouver_login($login);
-	// login inconnu, n'allons pas plus loin
-	if (!$login) {
-		return [];
-	}
-
-	$md5pass = '';
-	$shapass = $shanext = '';
-	$auteur_peut_sauver_cles = false;
-
-	if ($pass) {
-		$row = sql_fetsel(
-			'*',
-			'spip_auteurs',
-			'login=' . sql_quote($login, $serveur, 'text') . " AND statut<>'5poubelle'",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-
-		// lever un flag si cet auteur peut sauver les cles
-		if ($row['statut'] === '0minirezo' and $row['webmestre'] === 'oui' and isset($row['backup_cles'])) {
-			$auteur_peut_sauver_cles = true;
-		}
-	}
-
-	// login inexistant ou mot de passe vide
-	if (!$pass or !$row) {
-		return [];
-	}
-
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-
-	$hash = null;
-	switch (strlen($row['pass'])) {
-		// legacy = md5 ou sha256
-		case 32:
-			// tres anciens mots de passe encodes en md5(alea.pass)
-			$hash = md5($row['alea_actuel'] . $pass);
-			$methode = 'md5';
-		case 64:
-			if (empty($hash)) {
-				// anciens mots de passe encodes en sha256(alea.pass)
-				include_spip('auth/sha256.inc');
-				$hash = spip_sha256($row['alea_actuel'] . $pass);
-				$methode = 'sha256';
-			}
-			if ($row['pass'] === $hash) {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via $methode", 'auth' . _LOG_DEBUG);
-				// ce n'est pas cense arriver, mais si jamais c'est un backup inutilisable, il faut le nettoyer pour ne pas bloquer la creation d'une nouvelle cle d'auth
-				if (!empty($row['backup_cles'])) {
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
-				}
-				break;
-			}
-
-		// on teste la methode par defaut, au cas ou ce serait un pass moderne qui a la malchance d'etre en 64char de long
-
-		case 60:
-		case 98:
-		default:
-			// doit-on restaurer un backup des cles ?
-			// si on a le bon pass on peut decoder le backup, retrouver la cle, et du coup valider le pass
-			if (
-				!$secret
-				and $auteur_peut_sauver_cles
-				and !empty($row['backup_cles'])
-			) {
-				if ($cles->restore($row['backup_cles'], $pass, $row['pass'], $row['id_auteur'])) {
-					spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
-					if ($cles->save()) {
-						$secret = $cles->getSecretAuth();
-					}
-					else {
-						spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
-						// et on echoue car on ne veut pas que la situation reste telle quelle
-						raler_fichier(_DIR_ETC . 'cles.php');
-					}
-				}
-				else {
-					spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
-				}
-			}
-
-			if (!$secret or !Password::verifier($pass, $row['pass'], $secret)) {
-				unset($row);
-			}
-			else {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
-			}
-			break;
-	}
-
-	// Migration depuis ancienne version : si on a pas encore de cle
-	// ET si c'est le login d'un auteur qui peut sauver la cle
-	// créer la clé (en s'assurant bien que personne n'a de backup d'un precedent fichier cle.php)
-	// si c'est un auteur normal, on ne fait rien, il garde son ancien pass hashé en sha256 en attendant le login d'un webmestre
-	if (!$secret and $auteur_peut_sauver_cles) {
-		if (auth_spip_initialiser_secret()) {
-			$secret = $cles->getSecretAuth();
-		}
-	}
-
-	// login/mot de passe incorrect
-	if (empty($row)) {
-		return [];
-	}
-
-	// fait tourner le codage du pass dans la base
-	// sauf si phpauth : cela reviendrait a changer l'alea a chaque hit, et aucune action verifiable par securiser_action()
-	if (!$phpauth and $secret) {
-		include_spip('inc/acces'); // pour creer_uniqid et verifier_htaccess
-		$pass_hash_next = Password::hacher($pass, $secret);
-		if ($pass_hash_next) {
-			$set = [
-				'alea_actuel' => 'alea_futur', // @deprecated 4.1
-				'alea_futur' => sql_quote(creer_uniqid(), $serveur, 'text'), // @deprecated 4.1
-				'pass' => sql_quote($pass_hash_next, $serveur, 'text'),
-			];
-
-			// regenerer un htpass si on a active/desactive le plugin htpasswd
-			// et/ou que l'algo a change - pour etre certain de toujours utiliser le bon algo
-			$htpass = generer_htpass($pass);
-			if (strlen($htpass) !== strlen($row['htpass'])) {
-				$set['htpass'] = sql_quote($htpass, $serveur, 'text');
-			}
-
-			// a chaque login de webmestre : sauvegarde chiffree des clés du site (avec les pass du webmestre)
-			if ($auteur_peut_sauver_cles) {
-				$set['backup_cles'] = sql_quote($cles->backup($pass), $serveur, 'text');
-			}
-
-			@sql_update(
-				'spip_auteurs',
-				$set,
-				'id_auteur=' . intval($row['id_auteur']) . ' AND pass=' . sql_quote(
-					$row['pass'],
-					$serveur,
-					'text'
-				),
-				[],
-				$serveur
-			);
-
-			// si on a change le htpass car changement d'algo, regenerer les fichiers htpasswd
-			if (isset($set['htpass'])) {
-				ecrire_acces();
-			}
-		}
-
-		// En profiter pour verifier la securite de tmp/
-		// Si elle ne fonctionne pas a l'installation, prevenir
-		if (!verifier_htaccess(_DIR_TMP) and defined('_ECRIRE_INSTALL')) {
-			return false;
-		}
-	}
-
-	return $row;
+    // retrouver le login
+    $login = auth_spip_retrouver_login($login);
+    // login inconnu, n'allons pas plus loin
+    if (!$login) {
+        return [];
+    }
+
+    $md5pass = '';
+    $shapass = $shanext = '';
+    $auteur_peut_sauver_cles = false;
+
+    if ($pass) {
+        $row = sql_fetsel(
+            '*',
+            'spip_auteurs',
+            'login=' . sql_quote($login, $serveur, 'text') . " AND statut<>'5poubelle'",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+
+        // lever un flag si cet auteur peut sauver les cles
+        if ($row['statut'] === '0minirezo' and $row['webmestre'] === 'oui' and isset($row['backup_cles'])) {
+            $auteur_peut_sauver_cles = true;
+        }
+    }
+
+    // login inexistant ou mot de passe vide
+    if (!$pass or !$row) {
+        return [];
+    }
+
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+
+    $hash = null;
+    switch (strlen($row['pass'])) {
+        // legacy = md5 ou sha256
+        case 32:
+            // tres anciens mots de passe encodes en md5(alea.pass)
+            $hash = md5($row['alea_actuel'] . $pass);
+            $methode = 'md5';
+        case 64:
+            if (empty($hash)) {
+                // anciens mots de passe encodes en sha256(alea.pass)
+                include_spip('auth/sha256.inc');
+                $hash = spip_sha256($row['alea_actuel'] . $pass);
+                $methode = 'sha256';
+            }
+            if ($row['pass'] === $hash) {
+                spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via $methode", 'auth' . _LOG_DEBUG);
+                // ce n'est pas cense arriver, mais si jamais c'est un backup inutilisable, il faut le nettoyer pour ne pas bloquer la creation d'une nouvelle cle d'auth
+                if (!empty($row['backup_cles'])) {
+                    sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+                }
+                break;
+            }
+
+        // on teste la methode par defaut, au cas ou ce serait un pass moderne qui a la malchance d'etre en 64char de long
+
+        case 60:
+        case 98:
+        default:
+            // doit-on restaurer un backup des cles ?
+            // si on a le bon pass on peut decoder le backup, retrouver la cle, et du coup valider le pass
+            if (
+                !$secret
+                and $auteur_peut_sauver_cles
+                and !empty($row['backup_cles'])
+            ) {
+                if ($cles->restore($row['backup_cles'], $pass, $row['pass'], $row['id_auteur'])) {
+                    spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
+                    if ($cles->save()) {
+                        $secret = $cles->getSecretAuth();
+                    }
+                    else {
+                        spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+                        // et on echoue car on ne veut pas que la situation reste telle quelle
+                        raler_fichier(_DIR_ETC . 'cles.php');
+                    }
+                }
+                else {
+                    spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
+                    sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+                }
+            }
+
+            if (!$secret or !Password::verifier($pass, $row['pass'], $secret)) {
+                unset($row);
+            }
+            else {
+                spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
+            }
+            break;
+    }
+
+    // Migration depuis ancienne version : si on a pas encore de cle
+    // ET si c'est le login d'un auteur qui peut sauver la cle
+    // créer la clé (en s'assurant bien que personne n'a de backup d'un precedent fichier cle.php)
+    // si c'est un auteur normal, on ne fait rien, il garde son ancien pass hashé en sha256 en attendant le login d'un webmestre
+    if (!$secret and $auteur_peut_sauver_cles) {
+        if (auth_spip_initialiser_secret()) {
+            $secret = $cles->getSecretAuth();
+        }
+    }
+
+    // login/mot de passe incorrect
+    if (empty($row)) {
+        return [];
+    }
+
+    // fait tourner le codage du pass dans la base
+    // sauf si phpauth : cela reviendrait a changer l'alea a chaque hit, et aucune action verifiable par securiser_action()
+    if (!$phpauth and $secret) {
+        include_spip('inc/acces'); // pour creer_uniqid et verifier_htaccess
+        $pass_hash_next = Password::hacher($pass, $secret);
+        if ($pass_hash_next) {
+            $set = [
+                'alea_actuel' => 'alea_futur', // @deprecated 4.1
+                'alea_futur' => sql_quote(creer_uniqid(), $serveur, 'text'), // @deprecated 4.1
+                'pass' => sql_quote($pass_hash_next, $serveur, 'text'),
+            ];
+
+            // regenerer un htpass si on a active/desactive le plugin htpasswd
+            // et/ou que l'algo a change - pour etre certain de toujours utiliser le bon algo
+            $htpass = generer_htpass($pass);
+            if (strlen($htpass) !== strlen($row['htpass'])) {
+                $set['htpass'] = sql_quote($htpass, $serveur, 'text');
+            }
+
+            // a chaque login de webmestre : sauvegarde chiffree des clés du site (avec les pass du webmestre)
+            if ($auteur_peut_sauver_cles) {
+                $set['backup_cles'] = sql_quote($cles->backup($pass), $serveur, 'text');
+            }
+
+            @sql_update(
+                'spip_auteurs',
+                $set,
+                'id_auteur=' . intval($row['id_auteur']) . ' AND pass=' . sql_quote(
+                    $row['pass'],
+                    $serveur,
+                    'text'
+                ),
+                [],
+                $serveur
+            );
+
+            // si on a change le htpass car changement d'algo, regenerer les fichiers htpasswd
+            if (isset($set['htpass'])) {
+                ecrire_acces();
+            }
+        }
+
+        // En profiter pour verifier la securite de tmp/
+        // Si elle ne fonctionne pas a l'installation, prevenir
+        if (!verifier_htaccess(_DIR_TMP) and defined('_ECRIRE_INSTALL')) {
+            return false;
+        }
+    }
+
+    return $row;
 }
 
 /**
@@ -210,36 +210,36 @@ 
  * @return bool
  */
 function auth_spip_initialiser_secret(bool $force = false): bool {
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-
-	// on ne fait rien si on a un secret dispo
-	if ($secret) {
-		return false;
-	}
-
-	// si force, on ne verifie pas la presence d'un backup chez un webmestre
-	if ($force) {
-		spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth' . _LOG_INFO_IMPORTANTE);
-		$secret = $cles->getSecretAuth(true);
-		return true;
-	}
-
-	$has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut=' . sql_quote('0minirezo') . ' AND webmestre=' . sql_quote('oui') . " AND backup_cles!=''");
-	$has_backup = array_column($has_backup, 'id_auteur');
-	if (empty($has_backup)) {
-		spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth' . _LOG_INFO_IMPORTANTE);
-		if ($secret = $cles->getSecretAuth(true)) {
-			return true;
-		}
-		spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
-		// et on echoue car on ne veut pas que la situation reste telle quelle
-		raler_fichier(_DIR_ETC . 'cles.php');
-	}
-	else {
-		spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
-	}
-	return false;
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+
+    // on ne fait rien si on a un secret dispo
+    if ($secret) {
+        return false;
+    }
+
+    // si force, on ne verifie pas la presence d'un backup chez un webmestre
+    if ($force) {
+        spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth' . _LOG_INFO_IMPORTANTE);
+        $secret = $cles->getSecretAuth(true);
+        return true;
+    }
+
+    $has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut=' . sql_quote('0minirezo') . ' AND webmestre=' . sql_quote('oui') . " AND backup_cles!=''");
+    $has_backup = array_column($has_backup, 'id_auteur');
+    if (empty($has_backup)) {
+        spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth' . _LOG_INFO_IMPORTANTE);
+        if ($secret = $cles->getSecretAuth(true)) {
+            return true;
+        }
+        spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+        // et on echoue car on ne veut pas que la situation reste telle quelle
+        raler_fichier(_DIR_ETC . 'cles.php');
+    }
+    else {
+        spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
+    }
+    return false;
 }
 
 /**
@@ -249,19 +249,19 @@ 
  * @return array
  */
 function auth_spip_formulaire_login($flux) {
-	// javascript qui gere la securite du login en evitant de faire circuler le pass en clair
-	$js = file_get_contents(find_in_path('prive/javascript/login.js'));
-	$flux['data'] .=
-		  '<script type="text/javascript">/*<![CDATA[*/'
-		. "$js\n"
-		. "var login_info={'login':'" . $flux['args']['contexte']['var_login'] . "',"
-		. "'page_auteur': '" . generer_url_public('informer_auteur') . "',"
-		. "'informe_auteur_en_cours':false,"
-		. "'attente_informe':0};"
-		. "jQuery(function(){jQuery('#var_login').change(actualise_auteur);});"
-		. '/*]]>*/</script>';
-
-	return $flux;
+    // javascript qui gere la securite du login en evitant de faire circuler le pass en clair
+    $js = file_get_contents(find_in_path('prive/javascript/login.js'));
+    $flux['data'] .=
+            '<script type="text/javascript">/*<![CDATA[*/'
+        . "$js\n"
+        . "var login_info={'login':'" . $flux['args']['contexte']['var_login'] . "',"
+        . "'page_auteur': '" . generer_url_public('informer_auteur') . "',"
+        . "'informe_auteur_en_cours':false,"
+        . "'attente_informe':0};"
+        . "jQuery(function(){jQuery('#var_login').change(actualise_auteur);});"
+        . '/*]]>*/</script>';
+
+    return $flux;
 }
 
 
@@ -273,11 +273,11 @@ 
  *   toujours true pour un auteur cree dans SPIP
  */
 function auth_spip_autoriser_modifier_login(string $serveur = ''): bool {
-	// les fonctions d'ecriture sur base distante sont encore incompletes
-	if (strlen($serveur)) {
-		return false;
-	}
-	return true;
+    // les fonctions d'ecriture sur base distante sont encore incompletes
+    if (strlen($serveur)) {
+        return false;
+    }
+    return true;
 }
 
 /**
@@ -291,25 +291,25 @@ 
  *  message d'erreur si login non valide, chaine vide sinon
  */
 function auth_spip_verifier_login($new_login, $id_auteur = 0, $serveur = '') {
-	// login et mot de passe
-	if (strlen($new_login)) {
-		if (strlen($new_login) < _LOGIN_TROP_COURT) {
-			return _T('info_login_trop_court_car_pluriel', ['nb' => _LOGIN_TROP_COURT]);
-		} else {
-			$n = sql_countsel(
-				'spip_auteurs',
-				'login=' . sql_quote($new_login) . ' AND id_auteur!=' . intval($id_auteur) . " AND statut!='5poubelle'",
-				'',
-				'',
-				$serveur
-			);
-			if ($n) {
-				return _T('info_login_existant');
-			}
-		}
-	}
-
-	return '';
+    // login et mot de passe
+    if (strlen($new_login)) {
+        if (strlen($new_login) < _LOGIN_TROP_COURT) {
+            return _T('info_login_trop_court_car_pluriel', ['nb' => _LOGIN_TROP_COURT]);
+        } else {
+            $n = sql_countsel(
+                'spip_auteurs',
+                'login=' . sql_quote($new_login) . ' AND id_auteur!=' . intval($id_auteur) . " AND statut!='5poubelle'",
+                '',
+                '',
+                $serveur
+            );
+            if ($n) {
+                return _T('info_login_existant');
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -321,41 +321,41 @@ 
  * @return bool
  */
 function auth_spip_modifier_login($new_login, $id_auteur, $serveur = '') {
-	if (is_null($new_login) or auth_spip_verifier_login($new_login, $id_auteur, $serveur) != '') {
-		return false;
-	}
-	if (
-		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
-	) {
-		return false;
-	}
-	if ($new_login == $auteur['login']) {
-		return true;
-	} // on a rien fait mais c'est bon !
-
-	include_spip('action/editer_auteur');
-
-	// vider le login des auteurs a la poubelle qui avaient ce meme login
-	if (strlen($new_login)) {
-		$anciens = sql_allfetsel(
-			'id_auteur',
-			'spip_auteurs',
-			'login=' . sql_quote($new_login, $serveur, 'text') . " AND statut='5poubelle'",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-		while ($row = array_pop($anciens)) {
-			auteur_modifier($row['id_auteur'], ['login' => ''], true); // manque la gestion de $serveur
-		}
-	}
-
-	auteur_modifier($id_auteur, ['login' => $new_login], true); // manque la gestion de $serveur
-
-	return true;
+    if (is_null($new_login) or auth_spip_verifier_login($new_login, $id_auteur, $serveur) != '') {
+        return false;
+    }
+    if (
+        !$id_auteur = intval($id_auteur)
+        or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+    ) {
+        return false;
+    }
+    if ($new_login == $auteur['login']) {
+        return true;
+    } // on a rien fait mais c'est bon !
+
+    include_spip('action/editer_auteur');
+
+    // vider le login des auteurs a la poubelle qui avaient ce meme login
+    if (strlen($new_login)) {
+        $anciens = sql_allfetsel(
+            'id_auteur',
+            'spip_auteurs',
+            'login=' . sql_quote($new_login, $serveur, 'text') . " AND statut='5poubelle'",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+        while ($row = array_pop($anciens)) {
+            auteur_modifier($row['id_auteur'], ['login' => ''], true); // manque la gestion de $serveur
+        }
+    }
+
+    auteur_modifier($id_auteur, ['login' => $new_login], true); // manque la gestion de $serveur
+
+    return true;
 }
 
 /**
@@ -367,44 +367,44 @@ 
  * @return string
  */
 function auth_spip_retrouver_login($login, $serveur = '') {
-	if (!strlen($login)) {
-		return null;
-	} // pas la peine de requeter
-	$l = sql_quote($login, $serveur, 'text');
-	if (
-		$r = sql_getfetsel(
-			'login',
-			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
-			" AND (login=$l)",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		)
-	) {
-		return $r;
-	}
-	// Si pas d'auteur avec ce login
-	// regarder s'il a saisi son nom ou son mail.
-	// Ne pas fusionner avec la requete precedente
-	// car un nom peut etre homonyme d'un autre login
-	else {
-		return sql_getfetsel(
-			'login',
-			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
-			" AND (login<>'' AND (nom=$l OR email=$l))",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-	}
+    if (!strlen($login)) {
+        return null;
+    } // pas la peine de requeter
+    $l = sql_quote($login, $serveur, 'text');
+    if (
+        $r = sql_getfetsel(
+            'login',
+            'spip_auteurs',
+            "statut<>'5poubelle'" .
+            ' AND (length(pass)>0)' .
+            " AND (login=$l)",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        )
+    ) {
+        return $r;
+    }
+    // Si pas d'auteur avec ce login
+    // regarder s'il a saisi son nom ou son mail.
+    // Ne pas fusionner avec la requete precedente
+    // car un nom peut etre homonyme d'un autre login
+    else {
+        return sql_getfetsel(
+            'login',
+            'spip_auteurs',
+            "statut<>'5poubelle'" .
+            ' AND (length(pass)>0)' .
+            " AND (login<>'' AND (nom=$l OR email=$l))",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+    }
 }
 
 /**
@@ -415,11 +415,11 @@ 
  *  toujours true pour un auteur cree dans SPIP
  */
 function auth_spip_autoriser_modifier_pass(string $serveur = ''): bool {
-	// les fonctions d'ecriture sur base distante sont encore incompletes
-	if (strlen($serveur)) {
-		return false;
-	}
-	return true;
+    // les fonctions d'ecriture sur base distante sont encore incompletes
+    if (strlen($serveur)) {
+        return false;
+    }
+    return true;
 }
 
 
@@ -440,12 +440,12 @@ 
  *  message d'erreur si login non valide, chaine vide sinon
  */
 function auth_spip_verifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur = 0, $serveur = '') {
-	// login et mot de passe
-	if (strlen($new_pass) < _PASS_LONGUEUR_MINI) {
-		return _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
-	}
+    // login et mot de passe
+    if (strlen($new_pass) < _PASS_LONGUEUR_MINI) {
+        return _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
+    }
 
-	return '';
+    return '';
 }
 
 /**
@@ -459,47 +459,47 @@ 
  * @return bool
  */
 function auth_spip_modifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur, $serveur = '') {
-	if (is_null($new_pass) or auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
-		return false;
-	}
-
-	if (
-		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
-	) {
-		return false;
-	}
-
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-	if (!$secret) {
-		if (auth_spip_initialiser_secret()) {
-			$secret = $cles->getSecretAuth();
-		}
-		else {
-			return false;
-		}
-	}
-
-
-	include_spip('inc/acces');
-	$set = [
-		'pass' => Password::hacher($new_pass, $secret),
-		'htpass' => generer_htpass($new_pass),
-		'alea_actuel' => creer_uniqid(), // @deprecated 4.1
-		'alea_futur' => creer_uniqid(), // @deprecated 4.1
-		'low_sec' => '',
-	];
-
-	// si c'est un webmestre, on met a jour son backup des cles
-	if ($auteur['statut'] === '0minirezo' and $auteur['webmestre'] === 'oui') {
-		$set['backup_cles'] = $cles->backup($new_pass);
-	}
-
-	include_spip('action/editer_auteur');
-	auteur_modifier($id_auteur, $set, true); // manque la gestion de $serveur
-
-	return true; // on a bien modifie le pass
+    if (is_null($new_pass) or auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
+        return false;
+    }
+
+    if (
+        !$id_auteur = intval($id_auteur)
+        or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+    ) {
+        return false;
+    }
+
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+    if (!$secret) {
+        if (auth_spip_initialiser_secret()) {
+            $secret = $cles->getSecretAuth();
+        }
+        else {
+            return false;
+        }
+    }
+
+
+    include_spip('inc/acces');
+    $set = [
+        'pass' => Password::hacher($new_pass, $secret),
+        'htpass' => generer_htpass($new_pass),
+        'alea_actuel' => creer_uniqid(), // @deprecated 4.1
+        'alea_futur' => creer_uniqid(), // @deprecated 4.1
+        'low_sec' => '',
+    ];
+
+    // si c'est un webmestre, on met a jour son backup des cles
+    if ($auteur['statut'] === '0minirezo' and $auteur['webmestre'] === 'oui') {
+        $set['backup_cles'] = $cles->backup($new_pass);
+    }
+
+    include_spip('action/editer_auteur');
+    auteur_modifier($id_auteur, $set, true); // manque la gestion de $serveur
+
+    return true; // on a bien modifie le pass
 }
 
 /**
@@ -513,58 +513,58 @@ 
  * @return void
  */
 function auth_spip_synchroniser_distant($id_auteur, $champs, $options = [], string $serveur = ''): void {
-	// ne rien faire pour une base distante : on ne sait pas regenerer les htaccess
-	if (strlen($serveur)) {
-		return;
-	}
-	// si un login, pass ou statut a ete modifie
-	// regenerer les fichier htpass
-	if (
-		isset($champs['login'])
-		or isset($champs['pass'])
-		or isset($champs['statut'])
-		or (isset($options['all']) and $options['all'])
-	) {
-		$htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
-		$htpasswd = _DIR_TMP . _AUTH_USER_FILE;
-
-		// Cette variable de configuration peut etre posee par un plugin
-		// par exemple acces_restreint ;
-		// si .htaccess existe, outrepasser spip_meta
-		if (
-			(!isset($GLOBALS['meta']['creer_htpasswd']) or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
-			and !@file_exists($htaccess)
-		) {
-			spip_unlink($htpasswd);
-			spip_unlink($htpasswd . '-admin');
-
-			return;
-		}
-
-		# remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
-		# de devenir redacteur le cas echeant (auth http)... a nettoyer
-		// attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
-
-		$p1 = ''; // login:htpass pour tous
-		$p2 = ''; // login:htpass pour les admins
-		$s = sql_select(
-			'login, htpass, statut',
-			'spip_auteurs',
-			sql_in('statut', ['1comite', '0minirezo', 'nouveau'])
-		);
-		while ($t = sql_fetch($s)) {
-			if (strlen($t['login']) and strlen($t['htpass'])) {
-				$p1 .= $t['login'] . ':' . $t['htpass'] . "\n";
-				if ($t['statut'] == '0minirezo') {
-					$p2 .= $t['login'] . ':' . $t['htpass'] . "\n";
-				}
-			}
-		}
-		sql_free($s);
-		if ($p1) {
-			ecrire_fichier($htpasswd, $p1);
-			ecrire_fichier($htpasswd . '-admin', $p2);
-			spip_log("Ecriture de $htpasswd et $htpasswd-admin");
-		}
-	}
+    // ne rien faire pour une base distante : on ne sait pas regenerer les htaccess
+    if (strlen($serveur)) {
+        return;
+    }
+    // si un login, pass ou statut a ete modifie
+    // regenerer les fichier htpass
+    if (
+        isset($champs['login'])
+        or isset($champs['pass'])
+        or isset($champs['statut'])
+        or (isset($options['all']) and $options['all'])
+    ) {
+        $htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
+        $htpasswd = _DIR_TMP . _AUTH_USER_FILE;
+
+        // Cette variable de configuration peut etre posee par un plugin
+        // par exemple acces_restreint ;
+        // si .htaccess existe, outrepasser spip_meta
+        if (
+            (!isset($GLOBALS['meta']['creer_htpasswd']) or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
+            and !@file_exists($htaccess)
+        ) {
+            spip_unlink($htpasswd);
+            spip_unlink($htpasswd . '-admin');
+
+            return;
+        }
+
+        # remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
+        # de devenir redacteur le cas echeant (auth http)... a nettoyer
+        // attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
+
+        $p1 = ''; // login:htpass pour tous
+        $p2 = ''; // login:htpass pour les admins
+        $s = sql_select(
+            'login, htpass, statut',
+            'spip_auteurs',
+            sql_in('statut', ['1comite', '0minirezo', 'nouveau'])
+        );
+        while ($t = sql_fetch($s)) {
+            if (strlen($t['login']) and strlen($t['htpass'])) {
+                $p1 .= $t['login'] . ':' . $t['htpass'] . "\n";
+                if ($t['statut'] == '0minirezo') {
+                    $p2 .= $t['login'] . ':' . $t['htpass'] . "\n";
+                }
+            }
+        }
+        sql_free($s);
+        if ($p1) {
+            ecrire_fichier($htpasswd, $p1);
+            ecrire_fichier($htpasswd . '-admin', $p2);
+            spip_log("Ecriture de $htpasswd et $htpasswd-admin");
+        }
+    }
 }

ecrire/inc/informer.php

Indentation +61 added lines, -61 removed lines

@@ -11,77 +11,77 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 # Les information d'une rubrique selectionnee dans le mini navigateur
 
 function inc_informer_dist($id, $col, $exclus, $rac, $type, $do = 'aff') {
-	include_spip('inc/texte');
-	$titre = $descriptif = '';
-	if ($type === 'rubrique') {
-		$row = sql_fetsel('titre, descriptif', 'spip_rubriques', 'id_rubrique = ' . intval($id));
-		if ($row) {
-			$titre = typo($row['titre']);
-			$descriptif = propre($row['descriptif']);
-		} else {
-			$titre = _T('info_racine_site');
-		}
-	}
+    include_spip('inc/texte');
+    $titre = $descriptif = '';
+    if ($type === 'rubrique') {
+        $row = sql_fetsel('titre, descriptif', 'spip_rubriques', 'id_rubrique = ' . intval($id));
+        if ($row) {
+            $titre = typo($row['titre']);
+            $descriptif = propre($row['descriptif']);
+        } else {
+            $titre = _T('info_racine_site');
+        }
+    }
 
-	$res = '';
-	if (
-		$type === 'rubrique'
-		and intval($GLOBALS['visiteur_session']['prefs']['display'] ?? 0) !== 1
-		and isset($GLOBALS['meta']['image_process'])
-	) {
-		if ($GLOBALS['meta']['image_process'] !== 'non') {
-			$chercher_logo = charger_fonction('chercher_logo', 'inc');
-			if ($res = $chercher_logo($id, 'id_rubrique', 'on')) {
-				[$fid, $dir, $nom, $format] = $res;
-				include_spip('inc/filtres_images_mini');
-				$res = image_reduire("<img src='$fid' alt='' />", 100, 48);
-				if ($res) {
-					$res = "<div class='informer__media' style='float: " . $GLOBALS['spip_lang_right'] . '; margin-' . $GLOBALS['spip_lang_right'] . ": -5px; margin-top: -5px;'>$res</div>";
-				}
-			}
-		}
-	}
+    $res = '';
+    if (
+        $type === 'rubrique'
+        and intval($GLOBALS['visiteur_session']['prefs']['display'] ?? 0) !== 1
+        and isset($GLOBALS['meta']['image_process'])
+    ) {
+        if ($GLOBALS['meta']['image_process'] !== 'non') {
+            $chercher_logo = charger_fonction('chercher_logo', 'inc');
+            if ($res = $chercher_logo($id, 'id_rubrique', 'on')) {
+                [$fid, $dir, $nom, $format] = $res;
+                include_spip('inc/filtres_images_mini');
+                $res = image_reduire("<img src='$fid' alt='' />", 100, 48);
+                if ($res) {
+                    $res = "<div class='informer__media' style='float: " . $GLOBALS['spip_lang_right'] . '; margin-' . $GLOBALS['spip_lang_right'] . ": -5px; margin-top: -5px;'>$res</div>";
+                }
+            }
+        }
+    }
 
-	$rac = spip_htmlentities($rac, ENT_QUOTES);
-	$do = spip_htmlentities($do, ENT_QUOTES);
-	$id = intval($id);
+    $rac = spip_htmlentities($rac, ENT_QUOTES);
+    $do = spip_htmlentities($do, ENT_QUOTES);
+    $id = intval($id);
 
 # ce lien provoque la selection (directe) de la rubrique cliquee
 # et l'affichage de son titre dans le bandeau
-	$titre = strtr(
-		str_replace(
-			"'",
-			'&#8217;',
-			str_replace('"', '&#34;', textebrut($titre))
-		),
-		"\n\r",
-		'  '
-	);
+    $titre = strtr(
+        str_replace(
+            "'",
+            '&#8217;',
+            str_replace('"', '&#34;', textebrut($titre))
+        ),
+        "\n\r",
+        '  '
+    );
 
-	$js_func = $do . '_selection_titre';
+    $js_func = $do . '_selection_titre';
 
-	return "<div style='display: none;'>"
-	. "<input type='text' id='" . $rac . "_sel' value='$id' />"
-	. "<input type='text' id='" . $rac . "_sel2' value=\""
-	. entites_html($titre)
-	. '" />'
-	. '</div>'
-	. "<div class='informer' style='padding: 5px; border-top: 0px;'>"
-	. '<div class="informer__item">'
-	. (!$res ? '' : $res)
-	. "<p class='informer__titre'><b>" . safehtml($titre) . '</b></p>'
-	. (!$descriptif ? '' : "<div class='informer__descriptif'>" . safehtml($descriptif) . '</div>')
-	. '</div>'
-	. "<div class='informer__action' style='clear:both; text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
-	. "<input type='submit' class='fondo btn submit' value='"
-	. _T('bouton_choisir')
-	. "'\nonclick=\"$js_func('$titre',$id,'selection_rubrique','id_parent'); return false;\" />"
-	. '</div>'
-	. '</div>';
+    return "<div style='display: none;'>"
+    . "<input type='text' id='" . $rac . "_sel' value='$id' />"
+    . "<input type='text' id='" . $rac . "_sel2' value=\""
+    . entites_html($titre)
+    . '" />'
+    . '</div>'
+    . "<div class='informer' style='padding: 5px; border-top: 0px;'>"
+    . '<div class="informer__item">'
+    . (!$res ? '' : $res)
+    . "<p class='informer__titre'><b>" . safehtml($titre) . '</b></p>'
+    . (!$descriptif ? '' : "<div class='informer__descriptif'>" . safehtml($descriptif) . '</div>')
+    . '</div>'
+    . "<div class='informer__action' style='clear:both; text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
+    . "<input type='submit' class='fondo btn submit' value='"
+    . _T('bouton_choisir')
+    . "'\nonclick=\"$js_func('$titre',$id,'selection_rubrique','id_parent'); return false;\" />"
+    . '</div>'
+    . '</div>';
 }

Spacing +8 added lines, -8 removed lines

@@ -20,7 +20,7 @@ 
 	include_spip('inc/texte');
 	$titre = $descriptif = '';
 	if ($type === 'rubrique') {
-		$row = sql_fetsel('titre, descriptif', 'spip_rubriques', 'id_rubrique = ' . intval($id));
+		$row = sql_fetsel('titre, descriptif', 'spip_rubriques', 'id_rubrique = '.intval($id));
 		if ($row) {
 			$titre = typo($row['titre']);
 			$descriptif = propre($row['descriptif']);
@@ -42,7 +42,7 @@ 
 				include_spip('inc/filtres_images_mini');
 				$res = image_reduire("<img src='$fid' alt='' />", 100, 48);
 				if ($res) {
-					$res = "<div class='informer__media' style='float: " . $GLOBALS['spip_lang_right'] . '; margin-' . $GLOBALS['spip_lang_right'] . ": -5px; margin-top: -5px;'>$res</div>";
+					$res = "<div class='informer__media' style='float: ".$GLOBALS['spip_lang_right'].'; margin-'.$GLOBALS['spip_lang_right'].": -5px; margin-top: -5px;'>$res</div>";
 				}
 			}
 		}
@@ -64,21 +64,21 @@ 
 		'  '
 	);
 
-	$js_func = $do . '_selection_titre';
+	$js_func = $do.'_selection_titre';
 
 	return "<div style='display: none;'>"
-	. "<input type='text' id='" . $rac . "_sel' value='$id' />"
-	. "<input type='text' id='" . $rac . "_sel2' value=\""
+	. "<input type='text' id='".$rac."_sel' value='$id' />"
+	. "<input type='text' id='".$rac."_sel2' value=\""
 	. entites_html($titre)
 	. '" />'
 	. '</div>'
 	. "<div class='informer' style='padding: 5px; border-top: 0px;'>"
 	. '<div class="informer__item">'
 	. (!$res ? '' : $res)
-	. "<p class='informer__titre'><b>" . safehtml($titre) . '</b></p>'
-	. (!$descriptif ? '' : "<div class='informer__descriptif'>" . safehtml($descriptif) . '</div>')
+	. "<p class='informer__titre'><b>".safehtml($titre).'</b></p>'
+	. (!$descriptif ? '' : "<div class='informer__descriptif'>".safehtml($descriptif).'</div>')
 	. '</div>'
-	. "<div class='informer__action' style='clear:both; text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
+	. "<div class='informer__action' style='clear:both; text-align: ".$GLOBALS['spip_lang_right'].";'>"
 	. "<input type='submit' class='fondo btn submit' value='"
 	. _T('bouton_choisir')
 	. "'\nonclick=\"$js_func('$titre',$id,'selection_rubrique','id_parent'); return false;\" />"

ecrire/inc/commencer_page.php

Indentation +56 added lines, -56 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,25 +43,25 @@ 
  * @return string Code HTML
  **/
 function inc_commencer_page_dist(
-	$titre = '',
-	$rubrique = 'accueil',
-	$sous_rubrique = 'accueil',
-	$id_rubrique = '',
-	$menu = true,
-	$minipres = false,
-	$alertes = true
+    $titre = '',
+    $rubrique = 'accueil',
+    $sous_rubrique = 'accueil',
+    $id_rubrique = '',
+    $menu = true,
+    $minipres = false,
+    $alertes = true
 ) {
 
-	include_spip('inc/headers');
+    include_spip('inc/headers');
 
-	http_no_cache();
+    http_no_cache();
 
-	return init_entete($titre, $id_rubrique, $minipres)
-	. init_body($rubrique, $sous_rubrique, $id_rubrique, $menu)
-	. "<div id='page'>"
-	. auteurs_recemment_connectes($GLOBALS['connect_id_auteur'])
-	. ($alertes ? alertes_auteur($GLOBALS['connect_id_auteur']) : '')
-	. '<div class="largeur">';
+    return init_entete($titre, $id_rubrique, $minipres)
+    . init_body($rubrique, $sous_rubrique, $id_rubrique, $menu)
+    . "<div id='page'>"
+    . auteurs_recemment_connectes($GLOBALS['connect_id_auteur'])
+    . ($alertes ? alertes_auteur($GLOBALS['connect_id_auteur']) : '')
+    . '<div class="largeur">';
 }
 
 /**
@@ -82,21 +82,21 @@ 
  *     Entête du fichier HTML avec le DOCTYPE
  */
 function init_entete($titre = '', $dummy = 0, $minipres = false) {
-	include_spip('inc/texte');
-	if (!$nom_site_spip = textebrut(typo($GLOBALS['meta']['nom_site']))) {
-		$nom_site_spip = _T('info_mon_site_spip');
-	}
-
-	$titre = '['
-		. $nom_site_spip
-		. ']'
-		. ($titre ? ' ' . textebrut(typo($titre)) : '');
-
-	return _DOCTYPE_ECRIRE
-	. html_lang_attributes()
-	. "<head>\n"
-	. init_head($titre, $dummy, $minipres)
-	. "</head>\n";
+    include_spip('inc/texte');
+    if (!$nom_site_spip = textebrut(typo($GLOBALS['meta']['nom_site']))) {
+        $nom_site_spip = _T('info_mon_site_spip');
+    }
+
+    $titre = '['
+        . $nom_site_spip
+        . ']'
+        . ($titre ? ' ' . textebrut(typo($titre)) : '');
+
+    return _DOCTYPE_ECRIRE
+    . html_lang_attributes()
+    . "<head>\n"
+    . init_head($titre, $dummy, $minipres)
+    . "</head>\n";
 }
 
 /**
@@ -110,7 +110,7 @@ 
  * @return string
  */
 function init_head($titre = '', $dummy = 0, $minipres = false) {
-	return recuperer_fond('prive/squelettes/head/dist', ['titre' => $titre, 'minipres' => $minipres ? ' ' : '']);
+    return recuperer_fond('prive/squelettes/head/dist', ['titre' => $titre, 'minipres' => $minipres ? ' ' : '']);
 }
 
 /**
@@ -132,20 +132,20 @@ 
  */
 function init_body($rubrique = 'accueil', $sous_rubrique = 'accueil', $id_rubrique = '', $menu = true) {
 
-	$res = pipeline('body_prive', "<body class='"
-		. init_body_class() . ' ' . _request('exec') . "'"
-		. ($GLOBALS['spip_lang_rtl'] ? " dir='rtl'" : '')
-		. '>');
+    $res = pipeline('body_prive', "<body class='"
+        . init_body_class() . ' ' . _request('exec') . "'"
+        . ($GLOBALS['spip_lang_rtl'] ? " dir='rtl'" : '')
+        . '>');
 
-	if (!$menu) {
-		return $res;
-	}
+    if (!$menu) {
+        return $res;
+    }
 
 
-	$bandeau = charger_fonction('bandeau', 'inc');
+    $bandeau = charger_fonction('bandeau', 'inc');
 
-	return $res
-	. $bandeau();
+    return $res
+    . $bandeau();
 }
 
 /**
@@ -157,23 +157,23 @@ 
  * @return string Classes CSS (séparées par des espaces)
  */
 function init_body_class() {
-	$display_modes = [
-		0 => 'icones_img_texte' // défaut.
-		/*init*/,
-		1 => 'icones_texte',
-		2 => 'icones_img_texte',
-		3 => 'icones_img'
-	];
+    $display_modes = [
+        0 => 'icones_img_texte' // défaut.
+        /*init*/,
+        1 => 'icones_texte',
+        2 => 'icones_img_texte',
+        3 => 'icones_img'
+    ];
 
-	$prefs = $GLOBALS['visiteur_session']['prefs'] ?? [];
+    $prefs = $GLOBALS['visiteur_session']['prefs'] ?? [];
 
-	$display_mode = $display_modes[intval($prefs['display'] ?? 0)] ?? $display_modes[0];
-	$spip_display_navigation = isset($prefs['display_navigation']) ? spip_sanitize_classname($prefs['display_navigation']) : 'navigation_avec_icones';
+    $display_mode = $display_modes[intval($prefs['display'] ?? 0)] ?? $display_modes[0];
+    $spip_display_navigation = isset($prefs['display_navigation']) ? spip_sanitize_classname($prefs['display_navigation']) : 'navigation_avec_icones';
 
-	$couleur = intval($prefs['couleur'] ?? 2);
+    $couleur = intval($prefs['couleur'] ?? 2);
 
-	$classes = "spip-theme-colors-$couleur $spip_display_navigation $display_mode";
-	return spip_sanitize_classname($classes);
+    $classes = "spip-theme-colors-$couleur $spip_display_navigation $display_mode";
+    return spip_sanitize_classname($classes);
 }
 
 
@@ -184,5 +184,5 @@ 
  * @return string
  */
 function auteurs_recemment_connectes($id_auteur) {
-	return recuperer_fond('prive/objets/liste/auteurs_enligne');
+    return recuperer_fond('prive/objets/liste/auteurs_enligne');
 }

Spacing +2 added lines, -2 removed lines

@@ -90,7 +90,7 @@ 
 	$titre = '['
 		. $nom_site_spip
 		. ']'
-		. ($titre ? ' ' . textebrut(typo($titre)) : '');
+		. ($titre ? ' '.textebrut(typo($titre)) : '');
 
 	return _DOCTYPE_ECRIRE
 	. html_lang_attributes()
@@ -133,7 +133,7 @@ 
 function init_body($rubrique = 'accueil', $sous_rubrique = 'accueil', $id_rubrique = '', $menu = true) {
 
 	$res = pipeline('body_prive', "<body class='"
-		. init_body_class() . ' ' . _request('exec') . "'"
+		. init_body_class().' '._request('exec')."'"
 		. ($GLOBALS['spip_lang_rtl'] ? " dir='rtl'" : '')
 		. '>');
 

ecrire/index.php

Indentation +76 added lines, -76 removed lines

@@ -19,7 +19,7 @@ 
 /** Drapeau indiquant que l'on est dans l'espace privé */
 define('_ESPACE_PRIVE', true);
 if (!defined('_ECRIRE_INC_VERSION')) {
-	include 'inc_version.php';
+    include 'inc_version.php';
 }
 
 include_spip('inc/cookie');
@@ -35,18 +35,18 @@ 
 // alors il faut blinder les variables d'URL
 //
 if (autoriser_sans_cookie($exec, false)) {
-	if (!isset($reinstall)) {
-		$reinstall = 'non';
-	}
-	$var_auth = true;
+    if (!isset($reinstall)) {
+        $reinstall = 'non';
+    }
+    $var_auth = true;
 } else {
-	// Authentification, redefinissable
-	$auth = charger_fonction('auth', 'inc');
-	$var_auth = $auth();
-	if ($var_auth) {
-		echo auth_echec($var_auth);
-		exit;
-	}
+    // Authentification, redefinissable
+    $auth = charger_fonction('auth', 'inc');
+    $var_auth = $auth();
+    if ($var_auth) {
+        echo auth_echec($var_auth);
+        exit;
+    }
 }
 
 // initialiser a la langue par defaut
@@ -57,29 +57,29 @@ 
 
 
 if (_request('action') or _request('var_ajax') or _request('formulaire_action')) {
-	if (!autoriser_sans_cookie($exec)) {
-		// Charger l'aiguilleur qui va mettre sur la bonne voie les traitements derogatoires
-		include_spip('public/aiguiller');
-		if (
-			// cas des appels actions ?action=xxx
-			traiter_appels_actions()
-			or
-			// cas des hits ajax sur les inclusions ajax
-			traiter_appels_inclusions_ajax()
-			or
-			// cas des formulaires charger/verifier/traiter
-			traiter_formulaires_dynamiques()
-		) {
-			exit;
-		} // le hit est fini !
-	}
+    if (!autoriser_sans_cookie($exec)) {
+        // Charger l'aiguilleur qui va mettre sur la bonne voie les traitements derogatoires
+        include_spip('public/aiguiller');
+        if (
+            // cas des appels actions ?action=xxx
+            traiter_appels_actions()
+            or
+            // cas des hits ajax sur les inclusions ajax
+            traiter_appels_inclusions_ajax()
+            or
+            // cas des formulaires charger/verifier/traiter
+            traiter_formulaires_dynamiques()
+        ) {
+            exit;
+        } // le hit est fini !
+    }
 }
 // securiser les redirect du back-office
 if (_request('redirect')) {
-	if (!function_exists('securiser_redirect_action')) {
-		include_spip('public/aiguiller');
-	}
-	set_request('redirect', securiser_redirect_action(_request('redirect')));
+    if (!function_exists('securiser_redirect_action')) {
+        include_spip('public/aiguiller');
+    }
+    set_request('redirect', securiser_redirect_action(_request('redirect')));
 }
 
 
@@ -89,12 +89,12 @@ 
 
 // Controle de la version, sauf si on est deja en train de s'en occuper
 if (
-	!$reinstall == 'oui'
-	and !_AJAX
-	and isset($GLOBALS['meta']['version_installee'])
-	and ($GLOBALS['spip_version_base'] != (str_replace(',', '.', $GLOBALS['meta']['version_installee'])))
+    !$reinstall == 'oui'
+    and !_AJAX
+    and isset($GLOBALS['meta']['version_installee'])
+    and ($GLOBALS['spip_version_base'] != (str_replace(',', '.', $GLOBALS['meta']['version_installee'])))
 ) {
-	$exec = 'demande_mise_a_jour';
+    $exec = 'demande_mise_a_jour';
 }
 
 // Quand une action d'administration est en cours (meta "admin"),
@@ -104,39 +104,39 @@ 
 // sinon c'est qu'elle a ete interrompue et il faut la reprendre
 
 elseif (isset($GLOBALS['meta']['admin'])) {
-	if (preg_match('/^(.*)_(\d+)_/', $GLOBALS['meta']['admin'], $l)) {
-		[, $var_f, $n] = $l;
-	}
-	if (
-		_AJAX
-		or !(
-			isset($_COOKIE['spip_admin'])
-			or (isset($GLOBALS['visiteur_session']) and $GLOBALS['visiteur_session']['statut'] == '0minirezo')
-		)
-	) {
-		spip_log('Quand la meta admin vaut ' .
-			$GLOBALS['meta']['admin'] .
-			' seul un admin peut se connecter et sans AJAX.' .
-			' En cas de probleme, detruire cette meta.');
-		die(_T('info_travaux_texte'));
-	}
-	if ($n) {
-		[, $var_f, $n] = $l;
-		if (tester_url_ecrire("base_$var_f")) {
-			$var_f = "base_$var_f";
-		}
-		if ($var_f != $exec) {
-			spip_log("Le script $var_f lance par auteur$n se substitue a l'exec $exec");
-			$exec = $var_f;
-			set_request('exec', $exec);
-		}
-	}
+    if (preg_match('/^(.*)_(\d+)_/', $GLOBALS['meta']['admin'], $l)) {
+        [, $var_f, $n] = $l;
+    }
+    if (
+        _AJAX
+        or !(
+            isset($_COOKIE['spip_admin'])
+            or (isset($GLOBALS['visiteur_session']) and $GLOBALS['visiteur_session']['statut'] == '0minirezo')
+        )
+    ) {
+        spip_log('Quand la meta admin vaut ' .
+            $GLOBALS['meta']['admin'] .
+            ' seul un admin peut se connecter et sans AJAX.' .
+            ' En cas de probleme, detruire cette meta.');
+        die(_T('info_travaux_texte'));
+    }
+    if ($n) {
+        [, $var_f, $n] = $l;
+        if (tester_url_ecrire("base_$var_f")) {
+            $var_f = "base_$var_f";
+        }
+        if ($var_f != $exec) {
+            spip_log("Le script $var_f lance par auteur$n se substitue a l'exec $exec");
+            $exec = $var_f;
+            set_request('exec', $exec);
+        }
+    }
 }
 // si nom pas plausible, prendre le script par defaut
 // attention aux deux cas 404/403 qui commencent par un 4 !
 elseif (!preg_match(',^[a-z4_][0-9a-z_-]*$,i', $exec)) {
-	$exec = 'accueil';
-	set_request('exec', $exec);
+    $exec = 'accueil';
+    set_request('exec', $exec);
 }
 
 //  si la langue est specifiee par cookie et ne correspond pas
@@ -144,19 +144,19 @@ 
 // on appelle directement la fonction, car un appel d'action peut conduire a une boucle infinie
 // si le cookie n'est pas pose correctement dans l'action
 if (
-	!$var_auth and isset($_COOKIE['spip_lang_ecrire'])
-	and $_COOKIE['spip_lang_ecrire'] <> $GLOBALS['visiteur_session']['lang']
+    !$var_auth and isset($_COOKIE['spip_lang_ecrire'])
+    and $_COOKIE['spip_lang_ecrire'] <> $GLOBALS['visiteur_session']['lang']
 ) {
-	include_spip('action/converser');
-	action_converser_post($GLOBALS['visiteur_session']['lang'], true);
+    include_spip('action/converser');
+    action_converser_post($GLOBALS['visiteur_session']['lang'], true);
 }
 
 if ($var_f = tester_url_ecrire($exec)) {
-	$var_f = charger_fonction($var_f);
-	$var_f(); // at last
+    $var_f = charger_fonction($var_f);
+    $var_f(); // at last
 } else {
-	// Rien de connu: rerouter vers exec=404 au lieu d'echouer
-	// ce qui permet de laisser la main a un plugin
-	$var_f = charger_fonction('404');
-	$var_f($exec);
+    // Rien de connu: rerouter vers exec=404 au lieu d'echouer
+    // ce qui permet de laisser la main a un plugin
+    $var_f = charger_fonction('404');
+    $var_f($exec);
 }

Spacing +5 added lines, -5 removed lines

@@ -9,7 +9,7 @@ 
  *  Ce programme est un logiciel libre distribué sous licence GNU/GPL.     *
 \***************************************************************************/
 
-require_once __DIR__ . '/../vendor/autoload.php';
+require_once __DIR__.'/../vendor/autoload.php';
 
 /**
  * Fichier d'exécution de l'interface privée
@@ -29,7 +29,7 @@ 
 // Determiner l'action demandee
 //
 
-$exec = (string)_request('exec');
+$exec = (string) _request('exec');
 $reinstall = (!is_null(_request('reinstall'))) ? _request('reinstall') : ($exec == 'install' ? 'oui' : null);
 //
 // Les scripts d'insallation n'authentifient pas, forcement,
@@ -115,9 +115,9 @@ 
 			or (isset($GLOBALS['visiteur_session']) and $GLOBALS['visiteur_session']['statut'] == '0minirezo')
 		)
 	) {
-		spip_log('Quand la meta admin vaut ' .
-			$GLOBALS['meta']['admin'] .
-			' seul un admin peut se connecter et sans AJAX.' .
+		spip_log('Quand la meta admin vaut '.
+			$GLOBALS['meta']['admin'].
+			' seul un admin peut se connecter et sans AJAX.'.
 			' En cas de probleme, detruire cette meta.');
 		die(_T('info_travaux_texte'));
 	}

ecrire/action/editer_objet.php

Spacing +20 added lines, -20 removed lines

@@ -76,12 +76,12 @@ 
  */
 function objet_modifier($objet, $id, $set = null) {
 	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_modifier: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+		spip_log("objet_modifier: appel avec type $objet invalide au lieu de $t", 'editer'._LOG_INFO_IMPORTANTE);
 		$objet = $t;
 	}
 	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($modifier = $objet . '_modifier')
+		include_spip('action/editer_'.$objet)
+		and function_exists($modifier = $objet.'_modifier')
 	) {
 		return $modifier($id, $set);
 	}
@@ -90,7 +90,7 @@ 
 	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc or !isset($desc['field'])) {
-		spip_log("Objet $objet inconnu dans objet_modifier", 'editer' . _LOG_ERREUR);
+		spip_log("Objet $objet inconnu dans objet_modifier", 'editer'._LOG_ERREUR);
 
 		return _L("Erreur objet $objet inconnu");
 	}
@@ -170,12 +170,12 @@ 
 function objet_inserer($objet, $id_parent = null, $set = null) {
 	$d = null;
 	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_inserer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+		spip_log("objet_inserer: appel avec type $objet invalide au lieu de $t", 'editer'._LOG_INFO_IMPORTANTE);
 		$objet = $t;
 	}
 	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($inserer = $objet . '_inserer')
+		include_spip('action/editer_'.$objet)
+		and function_exists($inserer = $objet.'_inserer')
 	) {
 		return $inserer($id_parent, $set);
 	}
@@ -196,7 +196,7 @@ 
 			$row = sql_fetsel('id_rubrique, id_secteur, lang', 'spip_rubriques', 'id_parent=0', '', '0+titre,titre', '1');
 			$id_rubrique = $row['id_rubrique'];
 		} else {
-			$row = sql_fetsel('lang, id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+			$row = sql_fetsel('lang, id_secteur', 'spip_rubriques', 'id_rubrique='.intval($id_rubrique));
 		}
 
 		$champs['id_rubrique'] = $id_rubrique;
@@ -314,12 +314,12 @@ 
  */
 function objet_instituer($objet, $id, $c, $calcul_rub = true) {
 	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_instituer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+		spip_log("objet_instituer: appel avec type $objet invalide au lieu de $t", 'editer'._LOG_INFO_IMPORTANTE);
 		$objet = $t;
 	}
 	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($instituer = $objet . '_instituer')
+		include_spip('action/editer_'.$objet)
+		and function_exists($instituer = $objet.'_instituer')
 	) {
 		return $instituer($id, $c, $calcul_rub);
 	}
@@ -348,7 +348,7 @@ 
 	$sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
 	$sel[] = (isset($desc['field']['id_rubrique']) ? 'id_rubrique' : '0 as id_rubrique');
 
-	$row = sql_fetsel($sel, $table_sql, id_table_objet($objet) . '=' . intval($id));
+	$row = sql_fetsel($sel, $table_sql, id_table_objet($objet).'='.intval($id));
 
 	$id_rubrique = $row['id_rubrique'];
 	$statut_ancien = $statut = $row['statut'];
@@ -371,7 +371,7 @@ 
 			if ($s != 'publie' and autoriser('modifier', $objet, $id)) {
 				$statut = $champs['statut'] = $s;
 			} else {
-				spip_log("editer_objet $objet #$id refus " . json_encode($c, JSON_THROW_ON_ERROR), 'editer' . _LOG_INFO_IMPORTANTE);
+				spip_log("editer_objet $objet #$id refus ".json_encode($c, JSON_THROW_ON_ERROR), 'editer'._LOG_INFO_IMPORTANTE);
 			}
 		}
 
@@ -401,7 +401,7 @@ 
 		and isset($c['id_parent'])
 		and $id_parent = $c['id_parent']
 		and $id_parent != $id_rubrique
-		and (sql_fetsel('1', 'spip_rubriques', 'id_rubrique=' . intval($id_parent)))
+		and (sql_fetsel('1', 'spip_rubriques', 'id_rubrique='.intval($id_parent)))
 	) {
 		$champs['id_rubrique'] = $id_parent;
 
@@ -500,7 +500,7 @@ 
 	// Si on deplace l'objet
 	// changer aussi son secteur et sa langue (si heritee)
 	if (isset($champs['id_rubrique'])) {
-		$row_rub = sql_fetsel('id_secteur, lang', 'spip_rubriques', 'id_rubrique=' . sql_quote($champs['id_rubrique']));
+		$row_rub = sql_fetsel('id_secteur, lang', 'spip_rubriques', 'id_rubrique='.sql_quote($champs['id_rubrique']));
 		$langue = $row_rub['lang'];
 
 		if (isset($desc['field']['id_secteur'])) {
@@ -512,7 +512,7 @@ 
 				sql_fetsel(
 					'1',
 					$table_sql,
-					id_table_objet($objet) . '=' . intval($id) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue)
+					id_table_objet($objet).'='.intval($id)." AND langue_choisie<>'oui' AND lang<>".sql_quote($langue)
 				)
 			) {
 				$champs['lang'] = $langue;
@@ -523,7 +523,7 @@ 
 	if (!$champs) {
 		return;
 	}
-	sql_updateq($table_sql, $champs, id_table_objet($objet) . '=' . intval($id));
+	sql_updateq($table_sql, $champs, id_table_objet($objet).'='.intval($id));
 
 	// Changer le statut des rubriques concernees
 	if ($cond) {
@@ -567,7 +567,7 @@ 
  */
 function objet_lire($objet, $valeur_id, $options = []) {
 	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_lire: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+		spip_log("objet_lire: appel avec type $objet invalide au lieu de $t", 'editer'._LOG_INFO_IMPORTANTE);
 		$objet = $t;
 	}
 
@@ -589,7 +589,7 @@ 
 	) {
 		// Il est possible pour un type d'objet de fournir une fonction de lecture de tous les champs d'un objet.
 		if (
-			include_spip('action/editer_' . $objet)
+			include_spip('action/editer_'.$objet)
 			and function_exists($lire = "{$objet}_lire_champs")
 		) {
 			$valeurs = $lire($objet, $valeur_id, $champ_id);
@@ -599,7 +599,7 @@ 
 
 			// La condition est appliquée sur le champ désigné par l'utilisateur.
 			$where = [
-				$champ_id . '=' . sql_quote($valeur_id)
+				$champ_id.'='.sql_quote($valeur_id)
 			];
 
 			// Acquisition de tous les champs de l'objet : si l'accès SQL retourne une erreur on renvoie un tableau vide.

Indentation +561 added lines, -561 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -33,36 +33,36 @@ 
  */
 function action_editer_objet_dist($id = null, $objet = null, $set = null) {
 
-	// appel direct depuis une url avec arg = "objet/id"
-	if (is_null($id) or is_null($objet)) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$arg = $securiser_action();
-		[$objet, $id] = array_pad(explode('/', $arg, 2), 2, null);
-	}
-
-	// appel incorrect ou depuis une url erronnée interdit
-	if (is_null($id) or is_null($objet)) {
-		include_spip('inc/minipres');
-		echo minipres(_T('info_acces_interdit'));
-		die();
-	}
-
-	// si id n'est pas un nombre, c'est une creation
-	// mais on verifie qu'on a toutes les donnees qu'il faut.
-	if (!$id = intval($id)) {
-		// on ne sait pas si un parent existe mais on essaye
-		$id_parent = _request('id_parent');
-		$id = objet_inserer($objet, $id_parent);
-	}
-
-	if (!($id = intval($id)) > 0) {
-		return [$id, _L('echec enregistrement en base')];
-	}
-
-	// Enregistre l'envoi dans la BD
-	$err = objet_modifier($objet, $id, $set);
-
-	return [$id, $err];
+    // appel direct depuis une url avec arg = "objet/id"
+    if (is_null($id) or is_null($objet)) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $arg = $securiser_action();
+        [$objet, $id] = array_pad(explode('/', $arg, 2), 2, null);
+    }
+
+    // appel incorrect ou depuis une url erronnée interdit
+    if (is_null($id) or is_null($objet)) {
+        include_spip('inc/minipres');
+        echo minipres(_T('info_acces_interdit'));
+        die();
+    }
+
+    // si id n'est pas un nombre, c'est une creation
+    // mais on verifie qu'on a toutes les donnees qu'il faut.
+    if (!$id = intval($id)) {
+        // on ne sait pas si un parent existe mais on essaye
+        $id_parent = _request('id_parent');
+        $id = objet_inserer($objet, $id_parent);
+    }
+
+    if (!($id = intval($id)) > 0) {
+        return [$id, _L('echec enregistrement en base')];
+    }
+
+    // Enregistre l'envoi dans la BD
+    $err = objet_modifier($objet, $id, $set);
+
+    return [$id, $err];
 }
 
 /**
@@ -75,85 +75,85 @@ 
  * @return mixed|string
  */
 function objet_modifier($objet, $id, $set = null) {
-	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_modifier: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
-		$objet = $t;
-	}
-	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($modifier = $objet . '_modifier')
-	) {
-		return $modifier($id, $set);
-	}
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc or !isset($desc['field'])) {
-		spip_log("Objet $objet inconnu dans objet_modifier", 'editer' . _LOG_ERREUR);
-
-		return _L("Erreur objet $objet inconnu");
-	}
-	include_spip('inc/modifier');
-
-	$champ_date = '';
-	if (isset($desc['date']) and $desc['date']) {
-		$champ_date = $desc['date'];
-	} elseif (isset($desc['field']['date'])) {
-		$champ_date = 'date';
-	}
-
-	$include_list = array_keys($desc['field']);
-	// on ne traite pas la cle primaire par defaut, notamment car
-	// sur une creation, id_x vaut 'oui', et serait enregistre en id_x=0 dans la base
-	$include_list = array_diff($include_list, [$desc['key']['PRIMARY KEY']]);
-
-	if (isset($desc['champs_editables']) and is_array($desc['champs_editables'])) {
-		$include_list = $desc['champs_editables'];
-	}
-	$c = collecter_requests(
-		// include list
-		$include_list,
-		// exclude list
-		[$champ_date, 'statut', 'id_parent', 'id_secteur'],
-		// donnees eventuellement fournies
-		$set
-	);
-
-	// Si l'objet est publie, invalider les caches et demander sa reindexation
-	if (objet_test_si_publie($objet, $id)) {
-		$invalideur = "id='$objet/$id'";
-		$indexation = true;
-	} else {
-		$invalideur = '';
-		$indexation = false;
-	}
-
-	if (
-		$err = objet_modifier_champs(
-			$objet,
-			$id,
-			[
-			'data' => $set,
-			'nonvide' => '',
-			'invalideur' => $invalideur,
-			'indexation' => $indexation,
-			// champ a mettre a date('Y-m-d H:i:s') s'il y a modif
-			'date_modif' => (isset($desc['field']['date_modif']) ? 'date_modif' : '')
-			],
-			$c
-		)
-	) {
-		return $err;
-	}
-
-	// Modification de statut, changement de rubrique ?
-	// FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
-	//         le tableau $set hors liste d’exclusion, mais du coup on a possiblement des champs en trop.
-	$c = collecter_requests([$champ_date, 'statut', 'id_parent'], [], $set);
-	$err = objet_instituer($objet, $id, $c);
-
-	return $err;
+    if (($t = objet_type($objet)) !== $objet) {
+        spip_log("objet_modifier: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+        $objet = $t;
+    }
+    if (
+        include_spip('action/editer_' . $objet)
+        and function_exists($modifier = $objet . '_modifier')
+    ) {
+        return $modifier($id, $set);
+    }
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc or !isset($desc['field'])) {
+        spip_log("Objet $objet inconnu dans objet_modifier", 'editer' . _LOG_ERREUR);
+
+        return _L("Erreur objet $objet inconnu");
+    }
+    include_spip('inc/modifier');
+
+    $champ_date = '';
+    if (isset($desc['date']) and $desc['date']) {
+        $champ_date = $desc['date'];
+    } elseif (isset($desc['field']['date'])) {
+        $champ_date = 'date';
+    }
+
+    $include_list = array_keys($desc['field']);
+    // on ne traite pas la cle primaire par defaut, notamment car
+    // sur une creation, id_x vaut 'oui', et serait enregistre en id_x=0 dans la base
+    $include_list = array_diff($include_list, [$desc['key']['PRIMARY KEY']]);
+
+    if (isset($desc['champs_editables']) and is_array($desc['champs_editables'])) {
+        $include_list = $desc['champs_editables'];
+    }
+    $c = collecter_requests(
+        // include list
+        $include_list,
+        // exclude list
+        [$champ_date, 'statut', 'id_parent', 'id_secteur'],
+        // donnees eventuellement fournies
+        $set
+    );
+
+    // Si l'objet est publie, invalider les caches et demander sa reindexation
+    if (objet_test_si_publie($objet, $id)) {
+        $invalideur = "id='$objet/$id'";
+        $indexation = true;
+    } else {
+        $invalideur = '';
+        $indexation = false;
+    }
+
+    if (
+        $err = objet_modifier_champs(
+            $objet,
+            $id,
+            [
+            'data' => $set,
+            'nonvide' => '',
+            'invalideur' => $invalideur,
+            'indexation' => $indexation,
+            // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
+            'date_modif' => (isset($desc['field']['date_modif']) ? 'date_modif' : '')
+            ],
+            $c
+        )
+    ) {
+        return $err;
+    }
+
+    // Modification de statut, changement de rubrique ?
+    // FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
+    //         le tableau $set hors liste d’exclusion, mais du coup on a possiblement des champs en trop.
+    $c = collecter_requests([$champ_date, 'statut', 'id_parent'], [], $set);
+    $err = objet_instituer($objet, $id, $c);
+
+    return $err;
 }
 
 /**
@@ -168,157 +168,157 @@ 
  * @return bool|int
  */
 function objet_inserer($objet, $id_parent = null, $set = null) {
-	$d = null;
-	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_inserer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
-		$objet = $t;
-	}
-	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($inserer = $objet . '_inserer')
-	) {
-		return $inserer($id_parent, $set);
-	}
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc or !isset($desc['field'])) {
-		return 0;
-	}
-
-	$lang_rub = '';
-	$champs = [];
-	if (isset($desc['field']['id_rubrique'])) {
-		// Si id_rubrique vaut 0 ou n'est pas definie, creer l'objet
-		// dans la premiere rubrique racine
-		if (!$id_rubrique = intval($id_parent)) {
-			$row = sql_fetsel('id_rubrique, id_secteur, lang', 'spip_rubriques', 'id_parent=0', '', '0+titre,titre', '1');
-			$id_rubrique = $row['id_rubrique'];
-		} else {
-			$row = sql_fetsel('lang, id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-		}
-
-		$champs['id_rubrique'] = $id_rubrique;
-		if (isset($desc['field']['id_secteur'])) {
-			$champs['id_secteur'] = $row['id_secteur'];
-		}
-		$lang_rub = $row['lang'];
-	}
-
-	// La langue a la creation : si les liens de traduction sont autorises
-	// dans les rubriques, on essaie avec la langue de l'auteur,
-	// ou a defaut celle de la rubrique
-	// Sinon c'est la langue de la rubrique qui est choisie + heritee
-	if (
-		isset($desc['field']['lang']) and !empty($GLOBALS['meta']['multi_objets']) and in_array(
-			$table_sql,
-			explode(',', $GLOBALS['meta']['multi_objets'])
-		)
-	) {
-		lang_select($GLOBALS['visiteur_session']['lang']);
-		if (
-			in_array(
-				$GLOBALS['spip_lang'],
-				explode(',', $GLOBALS['meta']['langues_multilingue'])
-			)
-		) {
-			$champs['lang'] = $GLOBALS['spip_lang'];
-			if (isset($desc['field']['langue_choisie'])) {
-				$champs['langue_choisie'] = 'oui';
-			}
-		}
-	} elseif (isset($desc['field']['lang']) and isset($desc['field']['langue_choisie'])) {
-		$champs['lang'] = ($lang_rub ?: $GLOBALS['meta']['langue_site']);
-		$champs['langue_choisie'] = 'non';
-	}
-
-	if (isset($desc['field']['statut'])) {
-		if (isset($desc['statut_textes_instituer'])) {
-			$cles_statut = array_keys($desc['statut_textes_instituer']);
-			$champs['statut'] = reset($cles_statut);
-		} else {
-			$champs['statut'] = 'prepa';
-		}
-	}
-
-
-	if ((isset($desc['date']) and $d = $desc['date']) or isset($desc['field'][$d = 'date'])) {
-		$champs[$d] = date('Y-m-d H:i:s');
-	}
-
-	if ($set) {
-		$champs = array_merge($champs, $set);
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline(
-		'pre_insertion',
-		[
-			'args' => [
-				'table' => $table_sql,
-				'id_parent' => $id_parent,
-			],
-			'data' => $champs
-		]
-	);
-
-	$id = sql_insertq($table_sql, $champs);
-
-	if ($id) {
-		// controler si le serveur n'a pas renvoye une erreur
-		// et associer l'auteur sinon
-		// si la table n'a pas deja un champ id_auteur
-		// et si le form n'a pas poste un id_auteur (meme vide, ce qui sert a annuler cette auto association)
-		if (
-			$id > 0
-			and !isset($desc['field']['id_auteur'])
-		) {
-			$id_auteur = ((is_null(_request('id_auteur')) and isset($GLOBALS['visiteur_session']['id_auteur'])) ?
-				$GLOBALS['visiteur_session']['id_auteur']
-				: _request('id_auteur'));
-			if ($id_auteur) {
-				include_spip('action/editer_auteur');
-				auteur_associer($id_auteur, [$objet => $id]);
-			}
-		}
-
-		pipeline(
-			'post_insertion',
-			[
-				'args' => [
-					'table' => $table_sql,
-					'id_parent' => $id_parent,
-					'id_objet' => $id,
-				],
-				'data' => $champs
-			]
-		);
-	}
+    $d = null;
+    if (($t = objet_type($objet)) !== $objet) {
+        spip_log("objet_inserer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+        $objet = $t;
+    }
+    if (
+        include_spip('action/editer_' . $objet)
+        and function_exists($inserer = $objet . '_inserer')
+    ) {
+        return $inserer($id_parent, $set);
+    }
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc or !isset($desc['field'])) {
+        return 0;
+    }
+
+    $lang_rub = '';
+    $champs = [];
+    if (isset($desc['field']['id_rubrique'])) {
+        // Si id_rubrique vaut 0 ou n'est pas definie, creer l'objet
+        // dans la premiere rubrique racine
+        if (!$id_rubrique = intval($id_parent)) {
+            $row = sql_fetsel('id_rubrique, id_secteur, lang', 'spip_rubriques', 'id_parent=0', '', '0+titre,titre', '1');
+            $id_rubrique = $row['id_rubrique'];
+        } else {
+            $row = sql_fetsel('lang, id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+        }
+
+        $champs['id_rubrique'] = $id_rubrique;
+        if (isset($desc['field']['id_secteur'])) {
+            $champs['id_secteur'] = $row['id_secteur'];
+        }
+        $lang_rub = $row['lang'];
+    }
+
+    // La langue a la creation : si les liens de traduction sont autorises
+    // dans les rubriques, on essaie avec la langue de l'auteur,
+    // ou a defaut celle de la rubrique
+    // Sinon c'est la langue de la rubrique qui est choisie + heritee
+    if (
+        isset($desc['field']['lang']) and !empty($GLOBALS['meta']['multi_objets']) and in_array(
+            $table_sql,
+            explode(',', $GLOBALS['meta']['multi_objets'])
+        )
+    ) {
+        lang_select($GLOBALS['visiteur_session']['lang']);
+        if (
+            in_array(
+                $GLOBALS['spip_lang'],
+                explode(',', $GLOBALS['meta']['langues_multilingue'])
+            )
+        ) {
+            $champs['lang'] = $GLOBALS['spip_lang'];
+            if (isset($desc['field']['langue_choisie'])) {
+                $champs['langue_choisie'] = 'oui';
+            }
+        }
+    } elseif (isset($desc['field']['lang']) and isset($desc['field']['langue_choisie'])) {
+        $champs['lang'] = ($lang_rub ?: $GLOBALS['meta']['langue_site']);
+        $champs['langue_choisie'] = 'non';
+    }
+
+    if (isset($desc['field']['statut'])) {
+        if (isset($desc['statut_textes_instituer'])) {
+            $cles_statut = array_keys($desc['statut_textes_instituer']);
+            $champs['statut'] = reset($cles_statut);
+        } else {
+            $champs['statut'] = 'prepa';
+        }
+    }
+
+
+    if ((isset($desc['date']) and $d = $desc['date']) or isset($desc['field'][$d = 'date'])) {
+        $champs[$d] = date('Y-m-d H:i:s');
+    }
+
+    if ($set) {
+        $champs = array_merge($champs, $set);
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline(
+        'pre_insertion',
+        [
+            'args' => [
+                'table' => $table_sql,
+                'id_parent' => $id_parent,
+            ],
+            'data' => $champs
+        ]
+    );
+
+    $id = sql_insertq($table_sql, $champs);
+
+    if ($id) {
+        // controler si le serveur n'a pas renvoye une erreur
+        // et associer l'auteur sinon
+        // si la table n'a pas deja un champ id_auteur
+        // et si le form n'a pas poste un id_auteur (meme vide, ce qui sert a annuler cette auto association)
+        if (
+            $id > 0
+            and !isset($desc['field']['id_auteur'])
+        ) {
+            $id_auteur = ((is_null(_request('id_auteur')) and isset($GLOBALS['visiteur_session']['id_auteur'])) ?
+                $GLOBALS['visiteur_session']['id_auteur']
+                : _request('id_auteur'));
+            if ($id_auteur) {
+                include_spip('action/editer_auteur');
+                auteur_associer($id_auteur, [$objet => $id]);
+            }
+        }
+
+        pipeline(
+            'post_insertion',
+            [
+                'args' => [
+                    'table' => $table_sql,
+                    'id_parent' => $id_parent,
+                    'id_objet' => $id,
+                ],
+                'data' => $champs
+            ]
+        );
+    }
 	
-	// Appeler une notification
-	if ($notifications = charger_fonction('notifications', 'inc')) {
-		$notifications(
-			"{$objet}_inserer",
-			$id,
-			[
-				'id_parent' => $id_parent,
-				'champs' => $champs,
-			]
-		);
-		$notifications(
-			'objet_inserer',
-			$id,
-			[
-				'objet' => $objet,
-				'id_objet' => $id,
-				'id_parent' => $id_parent,
-				'champs' => $champs,
-			]
-		);
-	}
-
-	return $id;
+    // Appeler une notification
+    if ($notifications = charger_fonction('notifications', 'inc')) {
+        $notifications(
+            "{$objet}_inserer",
+            $id,
+            [
+                'id_parent' => $id_parent,
+                'champs' => $champs,
+            ]
+        );
+        $notifications(
+            'objet_inserer',
+            $id,
+            [
+                'objet' => $objet,
+                'id_objet' => $id,
+                'id_parent' => $id_parent,
+                'champs' => $champs,
+            ]
+        );
+    }
+
+    return $id;
 }
 
 
@@ -335,138 +335,138 @@ 
  * @return string
  */
 function objet_instituer($objet, $id, $c, $calcul_rub = true) {
-	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_instituer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
-		$objet = $t;
-	}
-	if (
-		include_spip('action/editer_' . $objet)
-		and function_exists($instituer = $objet . '_instituer')
-	) {
-		return $instituer($id, $c, $calcul_rub);
-	}
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc or !isset($desc['field'])) {
-		return _L("Impossible d'instituer $objet : non connu en base");
-	}
-
-	include_spip('inc/autoriser');
-	include_spip('inc/rubriques');
-	include_spip('inc/modifier');
-
-	$sel = [];
-	$sel[] = (isset($desc['field']['statut']) ? 'statut' : "'' as statut");
-
-	$champ_date = '';
-	if (isset($desc['date']) and $desc['date']) {
-		$champ_date = $desc['date'];
-	} elseif (isset($desc['field']['date'])) {
-		$champ_date = 'date';
-	}
-
-	$sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
-	$sel[] = (isset($desc['field']['id_rubrique']) ? 'id_rubrique' : '0 as id_rubrique');
-
-	$row = sql_fetsel($sel, $table_sql, id_table_objet($objet) . '=' . intval($id));
-
-	$id_rubrique = $row['id_rubrique'];
-	$statut_ancien = $statut = $row['statut'];
-	$date_ancienne = $date = $row['date'];
-	$champs = [];
-
-	$d = ($date and isset($c[$champ_date])) ? $c[$champ_date] : null;
-	$s = (isset($desc['field']['statut']) and isset($c['statut'])) ? $c['statut'] : $statut;
-
-	// cf autorisations dans inc/instituer_objet
-	if ($s != $statut or ($d and $d != $date)) {
-		if (
-			$id_rubrique ?
-			autoriser('publierdans', 'rubrique', $id_rubrique)
-			:
-			autoriser('instituer', $objet, $id, null, ['statut' => $s])
-		) {
-			$statut = $champs['statut'] = $s;
-		} else {
-			if ($s != 'publie' and autoriser('modifier', $objet, $id)) {
-				$statut = $champs['statut'] = $s;
-			} else {
-				spip_log("editer_objet $objet #$id refus " . json_encode($c, JSON_THROW_ON_ERROR), 'editer' . _LOG_INFO_IMPORTANTE);
-			}
-		}
-
-		// En cas de publication, fixer la date a "maintenant"
-		// sauf si $c commande autre chose
-		// ou si l'objet est deja date dans le futur
-		// En cas de proposition d'un objet (mais pas depublication), idem
-		if ($champ_date) {
-			if (
-				$champs['statut'] == 'publie'
-				or ($champs['statut'] == 'prop' and !in_array($statut_ancien, ['publie', 'prop']))
-				or $d
-			) {
-				if ($d or strtotime($d = $date) > time()) {
-					$champs[$champ_date] = $date = $d;
-				} else {
-					$champs[$champ_date] = $date = date('Y-m-d H:i:s');
-				}
-			}
-		}
-	}
-
-	// Verifier que la rubrique demandee existe et est differente
-	// de la rubrique actuelle
-	if (
-		$id_rubrique
-		and isset($c['id_parent'])
-		and $id_parent = $c['id_parent']
-		and $id_parent != $id_rubrique
-		and (sql_fetsel('1', 'spip_rubriques', 'id_rubrique=' . intval($id_parent)))
-	) {
-		$champs['id_rubrique'] = $id_parent;
-
-		// si l'objet etait publie
-		// et que le demandeur n'est pas admin de la rubrique
-		// repasser l'objet en statut 'propose'.
-		if (
-			$statut == 'publie'
-			and !autoriser('publierdans', 'rubrique', $id_rubrique)
-		) {
-			$champs['statut'] = 'prop';
-		}
-	}
-
-
-	// Envoyer aux plugins
-	$champs = pipeline(
-		'pre_edition',
-		[
-			'args' => [
-				'table' => $table_sql,
-				'id_objet' => $id,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-			],
-			'data' => $champs
-		]
-	);
-
-	if (!(is_countable($champs) ? count($champs) : 0)) {
-		return '';
-	}
-
-	// Envoyer les modifs.
-	objet_editer_heritage($objet, $id, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
-
-	// Invalider les caches
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='$objet/$id'");
-
-	/*
+    if (($t = objet_type($objet)) !== $objet) {
+        spip_log("objet_instituer: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+        $objet = $t;
+    }
+    if (
+        include_spip('action/editer_' . $objet)
+        and function_exists($instituer = $objet . '_instituer')
+    ) {
+        return $instituer($id, $c, $calcul_rub);
+    }
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc or !isset($desc['field'])) {
+        return _L("Impossible d'instituer $objet : non connu en base");
+    }
+
+    include_spip('inc/autoriser');
+    include_spip('inc/rubriques');
+    include_spip('inc/modifier');
+
+    $sel = [];
+    $sel[] = (isset($desc['field']['statut']) ? 'statut' : "'' as statut");
+
+    $champ_date = '';
+    if (isset($desc['date']) and $desc['date']) {
+        $champ_date = $desc['date'];
+    } elseif (isset($desc['field']['date'])) {
+        $champ_date = 'date';
+    }
+
+    $sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
+    $sel[] = (isset($desc['field']['id_rubrique']) ? 'id_rubrique' : '0 as id_rubrique');
+
+    $row = sql_fetsel($sel, $table_sql, id_table_objet($objet) . '=' . intval($id));
+
+    $id_rubrique = $row['id_rubrique'];
+    $statut_ancien = $statut = $row['statut'];
+    $date_ancienne = $date = $row['date'];
+    $champs = [];
+
+    $d = ($date and isset($c[$champ_date])) ? $c[$champ_date] : null;
+    $s = (isset($desc['field']['statut']) and isset($c['statut'])) ? $c['statut'] : $statut;
+
+    // cf autorisations dans inc/instituer_objet
+    if ($s != $statut or ($d and $d != $date)) {
+        if (
+            $id_rubrique ?
+            autoriser('publierdans', 'rubrique', $id_rubrique)
+            :
+            autoriser('instituer', $objet, $id, null, ['statut' => $s])
+        ) {
+            $statut = $champs['statut'] = $s;
+        } else {
+            if ($s != 'publie' and autoriser('modifier', $objet, $id)) {
+                $statut = $champs['statut'] = $s;
+            } else {
+                spip_log("editer_objet $objet #$id refus " . json_encode($c, JSON_THROW_ON_ERROR), 'editer' . _LOG_INFO_IMPORTANTE);
+            }
+        }
+
+        // En cas de publication, fixer la date a "maintenant"
+        // sauf si $c commande autre chose
+        // ou si l'objet est deja date dans le futur
+        // En cas de proposition d'un objet (mais pas depublication), idem
+        if ($champ_date) {
+            if (
+                $champs['statut'] == 'publie'
+                or ($champs['statut'] == 'prop' and !in_array($statut_ancien, ['publie', 'prop']))
+                or $d
+            ) {
+                if ($d or strtotime($d = $date) > time()) {
+                    $champs[$champ_date] = $date = $d;
+                } else {
+                    $champs[$champ_date] = $date = date('Y-m-d H:i:s');
+                }
+            }
+        }
+    }
+
+    // Verifier que la rubrique demandee existe et est differente
+    // de la rubrique actuelle
+    if (
+        $id_rubrique
+        and isset($c['id_parent'])
+        and $id_parent = $c['id_parent']
+        and $id_parent != $id_rubrique
+        and (sql_fetsel('1', 'spip_rubriques', 'id_rubrique=' . intval($id_parent)))
+    ) {
+        $champs['id_rubrique'] = $id_parent;
+
+        // si l'objet etait publie
+        // et que le demandeur n'est pas admin de la rubrique
+        // repasser l'objet en statut 'propose'.
+        if (
+            $statut == 'publie'
+            and !autoriser('publierdans', 'rubrique', $id_rubrique)
+        ) {
+            $champs['statut'] = 'prop';
+        }
+    }
+
+
+    // Envoyer aux plugins
+    $champs = pipeline(
+        'pre_edition',
+        [
+            'args' => [
+                'table' => $table_sql,
+                'id_objet' => $id,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+            ],
+            'data' => $champs
+        ]
+    );
+
+    if (!(is_countable($champs) ? count($champs) : 0)) {
+        return '';
+    }
+
+    // Envoyer les modifs.
+    objet_editer_heritage($objet, $id, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
+
+    // Invalider les caches
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='$objet/$id'");
+
+    /*
 	if ($date) {
 		$t = strtotime($date);
 		$p = @$GLOBALS['meta']['date_prochain_postdate'];
@@ -475,60 +475,60 @@ 
 		}
 	}*/
 
-	// Pipeline
-	pipeline(
-		'post_edition',
-		[
-			'args' => [
-				'table' => $table_sql,
-				'id_objet' => $id,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-			],
-			'data' => $champs
-		]
-	);
-
-	// Notifications
-	if ($notifications = charger_fonction('notifications', 'inc')) {
-		$notifications(
-			"{$objet}_instituer",
-			$id,
-			[
-				'statut' => $statut,
-				'statut_ancien' => $statut_ancien,
-				'date' => $date,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-				'champs' => $champs,
-			]
-		);
-		$notifications(
-			'objet_instituer',
-			$id,
-			[
-				'objet' => $objet,
-				'id_objet' => $id,
-				'statut' => $statut,
-				'statut_ancien' => $statut_ancien,
-				'date' => $date,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-				'champs' => $champs,
-			]
-		);
+    // Pipeline
+    pipeline(
+        'post_edition',
+        [
+            'args' => [
+                'table' => $table_sql,
+                'id_objet' => $id,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+            ],
+            'data' => $champs
+        ]
+    );
+
+    // Notifications
+    if ($notifications = charger_fonction('notifications', 'inc')) {
+        $notifications(
+            "{$objet}_instituer",
+            $id,
+            [
+                'statut' => $statut,
+                'statut_ancien' => $statut_ancien,
+                'date' => $date,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+                'champs' => $champs,
+            ]
+        );
+        $notifications(
+            'objet_instituer',
+            $id,
+            [
+                'objet' => $objet,
+                'id_objet' => $id,
+                'statut' => $statut,
+                'statut_ancien' => $statut_ancien,
+                'date' => $date,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+                'champs' => $champs,
+            ]
+        );
 		
-		// Rétro-compat
-		$notifications(
-			"instituer$objet",
-			$id,
-			['statut' => $statut, 'statut_ancien' => $statut_ancien, 'date' => $date, 'date_ancienne' => $date_ancienne]
-		);
-	}
-
-	return ''; // pas d'erreur
+        // Rétro-compat
+        $notifications(
+            "instituer$objet",
+            $id,
+            ['statut' => $statut, 'statut_ancien' => $statut_ancien, 'date' => $date, 'date_ancienne' => $date_ancienne]
+        );
+    }
+
+    return ''; // pas d'erreur
 }
 
 /**
@@ -543,51 +543,51 @@ 
  * @return void
  */
 function objet_editer_heritage($objet, $id, $id_rubrique, $statut, $champs, $cond = true) {
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_sql);
-
-	// Si on deplace l'objet
-	// changer aussi son secteur et sa langue (si heritee)
-	if (isset($champs['id_rubrique'])) {
-		$row_rub = sql_fetsel('id_secteur, lang', 'spip_rubriques', 'id_rubrique=' . sql_quote($champs['id_rubrique']));
-		$langue = $row_rub['lang'];
-
-		if (isset($desc['field']['id_secteur'])) {
-			$champs['id_secteur'] = $row_rub['id_secteur'];
-		}
-
-		if (isset($desc['field']['lang']) and isset($desc['field']['langue_choisie'])) {
-			if (
-				sql_fetsel(
-					'1',
-					$table_sql,
-					id_table_objet($objet) . '=' . intval($id) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue)
-				)
-			) {
-				$champs['lang'] = $langue;
-			}
-		}
-	}
-
-	if (!$champs) {
-		return;
-	}
-	sql_updateq($table_sql, $champs, id_table_objet($objet) . '=' . intval($id));
-
-	// Changer le statut des rubriques concernees
-	if ($cond) {
-		include_spip('inc/rubriques');
-		//$postdate = ($GLOBALS['meta']["post_dates"] == "non" AND isset($champs['date']) AND (strtotime($champs['date']) < time()))?$champs['date']:false;
-		$postdate = false;
-		// On rajoute les infos de l'objet
-		$infos = [
-			'objet' => $objet,
-			'id_objet' => $id,
-			'statut_ancien' => $statut,
-		];
-		calculer_rubriques_if($id_rubrique, $champs, $infos, $postdate);
-	}
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_sql);
+
+    // Si on deplace l'objet
+    // changer aussi son secteur et sa langue (si heritee)
+    if (isset($champs['id_rubrique'])) {
+        $row_rub = sql_fetsel('id_secteur, lang', 'spip_rubriques', 'id_rubrique=' . sql_quote($champs['id_rubrique']));
+        $langue = $row_rub['lang'];
+
+        if (isset($desc['field']['id_secteur'])) {
+            $champs['id_secteur'] = $row_rub['id_secteur'];
+        }
+
+        if (isset($desc['field']['lang']) and isset($desc['field']['langue_choisie'])) {
+            if (
+                sql_fetsel(
+                    '1',
+                    $table_sql,
+                    id_table_objet($objet) . '=' . intval($id) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue)
+                )
+            ) {
+                $champs['lang'] = $langue;
+            }
+        }
+    }
+
+    if (!$champs) {
+        return;
+    }
+    sql_updateq($table_sql, $champs, id_table_objet($objet) . '=' . intval($id));
+
+    // Changer le statut des rubriques concernees
+    if ($cond) {
+        include_spip('inc/rubriques');
+        //$postdate = ($GLOBALS['meta']["post_dates"] == "non" AND isset($champs['date']) AND (strtotime($champs['date']) < time()))?$champs['date']:false;
+        $postdate = false;
+        // On rajoute les infos de l'objet
+        $infos = [
+            'objet' => $objet,
+            'id_objet' => $id,
+            'statut_ancien' => $statut,
+        ];
+        calculer_rubriques_if($id_rubrique, $champs, $infos, $postdate);
+    }
 }
 
 
@@ -616,75 +616,75 @@ 
  *     string|int : valeur du champ demande pour l'objet demande
  */
 function objet_lire($objet, $valeur_id, $options = []) {
-	if (($t = objet_type($objet)) !== $objet) {
-		spip_log("objet_lire: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
-		$objet = $t;
-	}
-
-	// tableau du cache des descriptions et des id d'objet (au sens id_xxx).
-	// Les tableaux sont toujours indexés par le trio [objet][cle][valeur_cle]
-	static $descriptions = [];
-
-	// On détermine le nom du champ id de la table.
-	include_spip('base/objets');
-	$primary = id_table_objet($objet);
-
-	// On détermine l'id à utiliser.
-	$champ_id = (!empty($options['champ_id']) ? $options['champ_id'] : $primary);
-
-	// Si l'objet n'a pas encore été stocké, il faut récupérer sa description complète.
-	if (
-		!isset($descriptions[$objet][$champ_id][$valeur_id])
-		or (isset($options['force']) and $options['force'])
-	) {
-		// Il est possible pour un type d'objet de fournir une fonction de lecture de tous les champs d'un objet.
-		if (
-			include_spip('action/editer_' . $objet)
-			and function_exists($lire = "{$objet}_lire_champs")
-		) {
-			$valeurs = $lire($objet, $valeur_id, $champ_id);
-		} else {
-			// On récupère la table SQL à partir du type d'objet.
-			$table = table_objet_sql($objet);
-
-			// La condition est appliquée sur le champ désigné par l'utilisateur.
-			$where = [
-				$champ_id . '=' . sql_quote($valeur_id)
-			];
-
-			// Acquisition de tous les champs de l'objet : si l'accès SQL retourne une erreur on renvoie un tableau vide.
-			$valeurs = sql_fetsel('*', $table, $where);
-		}
-
-		if (!$valeurs) {
-			$valeurs = false;
-		}
-
-		$descriptions[$objet][$champ_id][$valeur_id] = $valeurs;
-
-		if ($champ_id !== $primary and isset($valeurs[$primary])) {
-			$descriptions[$objet][$primary][$valeurs[$primary]] = $valeurs;
-			$descriptions[$objet][$champ_id][$valeur_id] = &$descriptions[$objet][$primary][$valeurs[$primary]];
-		}
-	}
-
-	$retour = $descriptions[$objet][$champ_id][$valeur_id];
-
-	// On ne retourne maintenant que les champs demandés.
-	// - on détermine les informations à renvoyer.
-	if ($retour and !empty($options['champs'])) {
-		$champs = $options['champs'];
-		// Extraction des seules informations demandées.
-		// -- si on demande une information unique on renvoie la valeur simple, sinon on renvoie un tableau.
-		// -- si une information n'est pas un champ valide elle n'est pas renvoyée sans renvoyer d'erreur.
-		if (is_array($champs)) {
-			// Tableau des informations valides
-			$retour = array_intersect_key($retour, array_flip($champs));
-		} else {
-			// Valeur unique demandée.
-			$retour = ($retour[$champs] ?? false);
-		}
-	}
-
-	return $retour;
+    if (($t = objet_type($objet)) !== $objet) {
+        spip_log("objet_lire: appel avec type $objet invalide au lieu de $t", 'editer' . _LOG_INFO_IMPORTANTE);
+        $objet = $t;
+    }
+
+    // tableau du cache des descriptions et des id d'objet (au sens id_xxx).
+    // Les tableaux sont toujours indexés par le trio [objet][cle][valeur_cle]
+    static $descriptions = [];
+
+    // On détermine le nom du champ id de la table.
+    include_spip('base/objets');
+    $primary = id_table_objet($objet);
+
+    // On détermine l'id à utiliser.
+    $champ_id = (!empty($options['champ_id']) ? $options['champ_id'] : $primary);
+
+    // Si l'objet n'a pas encore été stocké, il faut récupérer sa description complète.
+    if (
+        !isset($descriptions[$objet][$champ_id][$valeur_id])
+        or (isset($options['force']) and $options['force'])
+    ) {
+        // Il est possible pour un type d'objet de fournir une fonction de lecture de tous les champs d'un objet.
+        if (
+            include_spip('action/editer_' . $objet)
+            and function_exists($lire = "{$objet}_lire_champs")
+        ) {
+            $valeurs = $lire($objet, $valeur_id, $champ_id);
+        } else {
+            // On récupère la table SQL à partir du type d'objet.
+            $table = table_objet_sql($objet);
+
+            // La condition est appliquée sur le champ désigné par l'utilisateur.
+            $where = [
+                $champ_id . '=' . sql_quote($valeur_id)
+            ];
+
+            // Acquisition de tous les champs de l'objet : si l'accès SQL retourne une erreur on renvoie un tableau vide.
+            $valeurs = sql_fetsel('*', $table, $where);
+        }
+
+        if (!$valeurs) {
+            $valeurs = false;
+        }
+
+        $descriptions[$objet][$champ_id][$valeur_id] = $valeurs;
+
+        if ($champ_id !== $primary and isset($valeurs[$primary])) {
+            $descriptions[$objet][$primary][$valeurs[$primary]] = $valeurs;
+            $descriptions[$objet][$champ_id][$valeur_id] = &$descriptions[$objet][$primary][$valeurs[$primary]];
+        }
+    }
+
+    $retour = $descriptions[$objet][$champ_id][$valeur_id];
+
+    // On ne retourne maintenant que les champs demandés.
+    // - on détermine les informations à renvoyer.
+    if ($retour and !empty($options['champs'])) {
+        $champs = $options['champs'];
+        // Extraction des seules informations demandées.
+        // -- si on demande une information unique on renvoie la valeur simple, sinon on renvoie un tableau.
+        // -- si une information n'est pas un champ valide elle n'est pas renvoyée sans renvoyer d'erreur.
+        if (is_array($champs)) {
+            // Tableau des informations valides
+            $retour = array_intersect_key($retour, array_flip($champs));
+        } else {
+            // Valeur unique demandée.
+            $retour = ($retour[$champs] ?? false);
+        }
+    }
+
+    return $retour;
 }

ecrire/inc/bandeau.php

Spacing +6 added lines, -6 removed lines

@@ -50,7 +50,7 @@ 
 			$_id = $e['id_table_objet'];
 			if (isset($contexte[$_id]) and $id = intval($contexte[$_id])) {
 				$table = $e['table_objet_sql'];
-				$row = sql_fetsel('*', $table, "$_id=" . intval($id));
+				$row = sql_fetsel('*', $table, "$_id=".intval($id));
 				if (isset($row['id_rubrique'])) {
 					$contexte['id_rubrique'] = $row['id_rubrique'];
 					if (isset($row['id_secteur'])) {
@@ -114,8 +114,8 @@ 
 				$boutons_admin[$parent]->sousmenu = array_slice($boutons_admin[$parent]->sousmenu, 0, $position)
 					+ [
 						$id => new Bouton(
-							($icones and !empty($infos['icone'])) ? find_in_theme($infos['icone']) : '',  // icone
-							$infos['titre'],  // titre
+							($icones and !empty($infos['icone'])) ? find_in_theme($infos['icone']) : '', // icone
+							$infos['titre'], // titre
 							(isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
 							(isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
 						)
@@ -132,8 +132,8 @@ 
 				$boutons_admin = array_slice($boutons_admin, 0, $position)
 					+ [
 						$id => new Bouton(
-							($icones and isset($infos['icone']) and $infos['icone']) ? find_in_theme($infos['icone']) : '',  // icone
-							$infos['titre'],  // titre
+							($icones and isset($infos['icone']) and $infos['icone']) ? find_in_theme($infos['icone']) : '', // icone
+							$infos['titre'], // titre
 							(isset($infos['action']) and $infos['action']) ? $infos['action'] : null,
 							(isset($infos['parametres']) and $infos['parametres']) ? $infos['parametres'] : null
 						)
@@ -220,7 +220,7 @@ 
 		$url = str_replace('&', '&', $url);
 		while (preg_match(',[&?]([a-z_]+)=@([a-z_]+)@,i', $url, $matches)) {
 			if ($matches[2] == 'id_secteur' and !isset($contexte['id_secteur']) and isset($contexte['id_rubrique'])) {
-				$contexte['id_secteur'] = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($contexte['id_rubrique']));
+				$contexte['id_secteur'] = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique='.intval($contexte['id_rubrique']));
 			}
 			$val = _request($matches[2], $contexte);
 			$url = parametre_url($url, $matches[1], $val ?: '', '&');

Indentation +149 added lines, -149 removed lines

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

ecrire/inc/lang.php

Spacing +10 added lines, -12 removed lines

@@ -40,13 +40,13 @@ 
 function changer_langue($lang, $liste_langues = null) {
 
 	if (is_null($liste_langues)) {
-		$liste_langues = ($GLOBALS['meta']['langues_proposees'] ?? '') . ',' . ($GLOBALS['meta']['langues_multilingue'] ?? '');
+		$liste_langues = ($GLOBALS['meta']['langues_proposees'] ?? '').','.($GLOBALS['meta']['langues_multilingue'] ?? '');
 	} else {
 		if (is_array($liste_langues)) {
 			$liste_langues = implode(',', $liste_langues);
 		}
 	}
-	$liste_langues = ',' . $liste_langues . ',';
+	$liste_langues = ','.$liste_langues.',';
 
 	// Si la langue demandee n'existe pas, on essaie d'autres variantes
 	// Exemple : 'pt-br' => 'pt_br' => 'pt'
@@ -192,7 +192,7 @@ 
 	}
 	foreach ($langues as $l) {
 		$selected = ($l == $default) ? ' selected=\'selected\'' : '';
-		$ret .= "<option value='$l'$selected>[" . $l . '] ' . traduire_nom_langue($l) . "</option>\n";
+		$ret .= "<option value='$l'$selected>[".$l.'] '.traduire_nom_langue($l)."</option>\n";
 	}
 
 	if (!test_espace_prive()) {
@@ -210,23 +210,21 @@ 
 		$base,
 		$cible,
 		(select_langues($nom_select, $change, $ret)
-			. "<noscript><div style='display:inline'><input type='submit' class='fondo' value='" . _T('bouton_changer') . "' /></div></noscript>"),
+			. "<noscript><div style='display:inline'><input type='submit' class='fondo' value='"._T('bouton_changer')."' /></div></noscript>"),
 		" method='post'"
 	);
 }
 
 function select_langues($nom_select, $change, $options, $label = '') {
 	static $cpt = 0;
-	$id = 'menu_langues' . $cpt++;
+	$id = 'menu_langues'.$cpt++;
 
 	return
-		"<label for='$id'>" . ($label ?: _T('info_langues')) . '</label> ' .
+		"<label for='$id'>".($label ?: _T('info_langues')).'</label> '.
 		"<select name='$nom_select' id='$id' "
 		. ((!test_espace_prive()) ?
-			("class='forml menu_langues'") :
-			(($nom_select == 'var_lang_ecrire') ?
-				("class='lang_ecrire'") :
-				"class='fondl'"))
+			("class='forml menu_langues'") : (($nom_select == 'var_lang_ecrire') ?
+				("class='lang_ecrire'") : "class='fondl'"))
 		. $change
 		. ">\n"
 		. $options
@@ -352,7 +350,7 @@ 
 		and (!isset($GLOBALS['spip_lang'])
 			or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
 	) {
-		return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues);//@:install
+		return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues); //@:install
 	}
 	// en theorie là, la globale est définie, sinon c'est un problème.
 	if (!isset($GLOBALS['spip_lang'])) {
@@ -455,7 +453,7 @@ 
 	if (!isset($GLOBALS['meta']['langue_site'])) {
 		// Initialisation : le francais si dispo, sinon la premiere langue trouvee
 		$GLOBALS['meta']['langue_site'] = $tout =
-			(!$all_langs or (strpos(',' . _LANGUE_PAR_DEFAUT . ',', (string) ",$all_langs,") !== false))
+			(!$all_langs or (strpos(','._LANGUE_PAR_DEFAUT.',', (string) ",$all_langs,") !== false))
 				? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
 		ecrire_meta('langue_site', $tout);
 	}

Indentation +256 added lines, -256 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\Langue
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -38,35 +38,35 @@ 
  **/
 function changer_langue($lang, $liste_langues = null) {
 
-	if (is_null($liste_langues)) {
-		$liste_langues = ($GLOBALS['meta']['langues_proposees'] ?? '') . ',' . ($GLOBALS['meta']['langues_multilingue'] ?? '');
-	} else {
-		if (is_array($liste_langues)) {
-			$liste_langues = implode(',', $liste_langues);
-		}
-	}
-	$liste_langues = ',' . $liste_langues . ',';
-
-	// Si la langue demandee n'existe pas, on essaie d'autres variantes
-	// Exemple : 'pt-br' => 'pt_br' => 'pt'
-	$lang = str_replace('-', '_', trim($lang));
-	if (!$lang) {
-		return false;
-	}
-
-	if (
-		strpos($liste_langues, (string) ",$lang,") !== false
-		or ($lang = preg_replace(',_.*,', '', $lang)
-			and str_contains($liste_langues, (string) ",$lang,"))
-	) {
-		$GLOBALS['spip_lang_rtl'] = lang_dir($lang, '', '_rtl');
-		$GLOBALS['spip_lang_right'] = $GLOBALS['spip_lang_rtl'] ? 'left' : 'right';
-		$GLOBALS['spip_lang_left'] = $GLOBALS['spip_lang_rtl'] ? 'right' : 'left';
-
-		return $GLOBALS['spip_lang'] = $lang;
-	} else {
-		return false;
-	}
+    if (is_null($liste_langues)) {
+        $liste_langues = ($GLOBALS['meta']['langues_proposees'] ?? '') . ',' . ($GLOBALS['meta']['langues_multilingue'] ?? '');
+    } else {
+        if (is_array($liste_langues)) {
+            $liste_langues = implode(',', $liste_langues);
+        }
+    }
+    $liste_langues = ',' . $liste_langues . ',';
+
+    // Si la langue demandee n'existe pas, on essaie d'autres variantes
+    // Exemple : 'pt-br' => 'pt_br' => 'pt'
+    $lang = str_replace('-', '_', trim($lang));
+    if (!$lang) {
+        return false;
+    }
+
+    if (
+        strpos($liste_langues, (string) ",$lang,") !== false
+        or ($lang = preg_replace(',_.*,', '', $lang)
+            and str_contains($liste_langues, (string) ",$lang,"))
+    ) {
+        $GLOBALS['spip_lang_rtl'] = lang_dir($lang, '', '_rtl');
+        $GLOBALS['spip_lang_right'] = $GLOBALS['spip_lang_rtl'] ? 'left' : 'right';
+        $GLOBALS['spip_lang_left'] = $GLOBALS['spip_lang_rtl'] ? 'right' : 'left';
+
+        return $GLOBALS['spip_lang'] = $lang;
+    } else {
+        return false;
+    }
 }
 
 //
@@ -79,9 +79,9 @@ 
 // par exemple le francais pour l'espagnol, l'anglais pour l'allemand, etc.
 
 function choisir_traduction($trads, $lang = '') {
-	$k = approcher_langue($trads, $lang);
+    $k = approcher_langue($trads, $lang);
 
-	return $k ? $trads[$k] : array_shift($trads);
+    return $k ? $trads[$k] : array_shift($trads);
 }
 
 // retourne son 2e argument si c'est un index du premier
@@ -89,21 +89,21 @@ 
 // la langue X etant consideree comme une approche de X_Y
 function approcher_langue($trads, $lang = '') {
 
-	if (!$lang) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	if (isset($trads[$lang])) {
-		return $lang;
-	} // cas des langues xx_yy
-	else {
-		$r = explode('_', $lang);
-		if (isset($trads[$r[0]])) {
-			return $r[0];
-		}
-	}
-
-	return '';
+    if (!$lang) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    if (isset($trads[$lang])) {
+        return $lang;
+    } // cas des langues xx_yy
+    else {
+        $r = explode('_', $lang);
+        if (isset($trads[$r[0]])) {
+            return $r[0];
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -118,10 +118,10 @@ 
  *     Nom de la langue, sinon son code.
  **/
 function traduire_nom_langue($lang) {
-	include_spip('inc/lang_liste');
-	include_spip('inc/charsets');
+    include_spip('inc/lang_liste');
+    include_spip('inc/charsets');
 
-	return html2unicode($GLOBALS['codes_langues'][$lang] ?? $lang);
+    return html2unicode($GLOBALS['codes_langues'][$lang] ?? $lang);
 }
 
 //
@@ -134,10 +134,10 @@ 
 // hebreu a priori), 'droitier' sinon.
 // C'est utilise par #LANG_DIR, #LANG_LEFT, #LANG_RIGHT.
 function lang_dir($lang = '', $droitier = 'ltr', $gaucher = 'rtl') {
-	static $lang_rtl = ['ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi'];
+    static $lang_rtl = ['ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi'];
 
-	return in_array(($lang ?: $GLOBALS['spip_lang']), $lang_rtl) ?
-		$gaucher : $droitier;
+    return in_array(($lang ?: $GLOBALS['spip_lang']), $lang_rtl) ?
+        $gaucher : $droitier;
 }
 
 // typo francaise ou anglaise ?
@@ -146,29 +146,29 @@ 
 // sinon determiner la typo en fonction de la langue courante
 
 function lang_typo($lang = '') {
-	if (!$lang) {
-		$lang = $GLOBALS['lang_objet'] ?? $GLOBALS['spip_lang'];
-	}
-	if (
-		$lang == 'eo'
-		or $lang == 'fr'
-		or strncmp($lang, 'fr_', 3) == 0
-		or $lang == 'cpf'
-	) {
-		return 'fr';
-	} else {
-		return 'en';
-	}
+    if (!$lang) {
+        $lang = $GLOBALS['lang_objet'] ?? $GLOBALS['spip_lang'];
+    }
+    if (
+        $lang == 'eo'
+        or $lang == 'fr'
+        or strncmp($lang, 'fr_', 3) == 0
+        or $lang == 'cpf'
+    ) {
+        return 'fr';
+    } else {
+        return 'en';
+    }
 }
 
 // gestion de la globale $lang_objet pour que les textes soient affiches
 // avec les memes typo et direction dans l'espace prive que dans le public
 function changer_typo($lang = '') {
-	if ($lang) {
-		$GLOBALS['lang_objet'] = $lang;
-	} else {
-		unset($GLOBALS['lang_objet']);
-	}
+    if ($lang) {
+        $GLOBALS['lang_objet'] = $lang;
+    } else {
+        unset($GLOBALS['lang_objet']);
+    }
 }
 
 //
@@ -178,58 +178,58 @@ 
 // pour 'changer_lang' (langue de l'article, espace prive), c'est en Ajax
 //
 function menu_langues($nom_select, $default = '') {
-	include_spip('inc/actions');
-
-	$langues = liste_options_langues($nom_select);
-	$ret = '';
-	if (!count($langues)) {
-		return '';
-	}
-
-	if (!$default) {
-		$default = $GLOBALS['spip_lang'];
-	}
-	foreach ($langues as $l) {
-		$selected = ($l == $default) ? ' selected=\'selected\'' : '';
-		$ret .= "<option value='$l'$selected>[" . $l . '] ' . traduire_nom_langue($l) . "</option>\n";
-	}
-
-	if (!test_espace_prive()) {
-		$cible = self();
-		$base = '';
-	} else {
-		$cible = self();
-		$base = spip_connect() ? 'base' : '';
-	}
-
-	$change = ' onchange="this.parentNode.parentNode.submit()"';
-
-	return generer_action_auteur(
-		'converser',
-		$base,
-		$cible,
-		(select_langues($nom_select, $change, $ret)
-			. "<noscript><div style='display:inline'><input type='submit' class='fondo' value='" . _T('bouton_changer') . "' /></div></noscript>"),
-		" method='post'"
-	);
+    include_spip('inc/actions');
+
+    $langues = liste_options_langues($nom_select);
+    $ret = '';
+    if (!count($langues)) {
+        return '';
+    }
+
+    if (!$default) {
+        $default = $GLOBALS['spip_lang'];
+    }
+    foreach ($langues as $l) {
+        $selected = ($l == $default) ? ' selected=\'selected\'' : '';
+        $ret .= "<option value='$l'$selected>[" . $l . '] ' . traduire_nom_langue($l) . "</option>\n";
+    }
+
+    if (!test_espace_prive()) {
+        $cible = self();
+        $base = '';
+    } else {
+        $cible = self();
+        $base = spip_connect() ? 'base' : '';
+    }
+
+    $change = ' onchange="this.parentNode.parentNode.submit()"';
+
+    return generer_action_auteur(
+        'converser',
+        $base,
+        $cible,
+        (select_langues($nom_select, $change, $ret)
+            . "<noscript><div style='display:inline'><input type='submit' class='fondo' value='" . _T('bouton_changer') . "' /></div></noscript>"),
+        " method='post'"
+    );
 }
 
 function select_langues($nom_select, $change, $options, $label = '') {
-	static $cpt = 0;
-	$id = 'menu_langues' . $cpt++;
-
-	return
-		"<label for='$id'>" . ($label ?: _T('info_langues')) . '</label> ' .
-		"<select name='$nom_select' id='$id' "
-		. ((!test_espace_prive()) ?
-			("class='forml menu_langues'") :
-			(($nom_select == 'var_lang_ecrire') ?
-				("class='lang_ecrire'") :
-				"class='fondl'"))
-		. $change
-		. ">\n"
-		. $options
-		. '</select>';
+    static $cpt = 0;
+    $id = 'menu_langues' . $cpt++;
+
+    return
+        "<label for='$id'>" . ($label ?: _T('info_langues')) . '</label> ' .
+        "<select name='$nom_select' id='$id' "
+        . ((!test_espace_prive()) ?
+            ("class='forml menu_langues'") :
+            (($nom_select == 'var_lang_ecrire') ?
+                ("class='lang_ecrire'") :
+                "class='fondl'"))
+        . $change
+        . ">\n"
+        . $options
+        . '</select>';
 }
 
 /**
@@ -251,34 +251,34 @@ 
  */
 function liste_options_langues($nom_select) {
 
-	switch ($nom_select) {
-		# #MENU_LANG
-		case 'var_lang':
-			# menu de changement de la langue d'un article
-			# les langues selectionnees dans la configuration "multilinguisme"
-		case 'changer_lang':
-			$langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
-			break;
-		# menu de l'interface (privee, installation et panneau de login)
-		# les langues presentes sous forme de fichiers de langue
-		# on force la relecture du repertoire des langues pour etre synchrone.
-		case 'var_lang_ecrire':
-		default:
-			$GLOBALS['meta']['langues_proposees'] = '';
-			init_langues();
-			$langues = explode(',', $GLOBALS['meta']['langues_proposees']);
-			break;
+    switch ($nom_select) {
+        # #MENU_LANG
+        case 'var_lang':
+            # menu de changement de la langue d'un article
+            # les langues selectionnees dans la configuration "multilinguisme"
+        case 'changer_lang':
+            $langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
+            break;
+        # menu de l'interface (privee, installation et panneau de login)
+        # les langues presentes sous forme de fichiers de langue
+        # on force la relecture du repertoire des langues pour etre synchrone.
+        case 'var_lang_ecrire':
+        default:
+            $GLOBALS['meta']['langues_proposees'] = '';
+            init_langues();
+            $langues = explode(',', $GLOBALS['meta']['langues_proposees']);
+            break;
 
 # dernier choix possible : toutes les langues = langues_proposees
 # + langues_multilingues ; mais, ne sert pas
 #			$langues = explode(',', $GLOBALS['all_langs']);
-	}
-	if (count($langues) <= 1) {
-		return [];
-	}
-	sort($langues);
+    }
+    if (count($langues) <= 1) {
+        return [];
+    }
+    sort($langues);
 
-	return $langues;
+    return $langues;
 }
 
 
@@ -293,39 +293,39 @@ 
  **/
 function verifier_lang_url() {
 
-	// quelle langue est demandee ?
-	$lang_demandee = (test_espace_prive() ? $GLOBALS['spip_lang'] : $GLOBALS['meta']['langue_site']);
-	if (isset($_COOKIE['spip_lang_ecrire'])) {
-		$lang_demandee = $_COOKIE['spip_lang_ecrire'];
-	}
-	if (!test_espace_prive() and isset($_COOKIE['spip_lang'])) {
-		$lang_demandee = $_COOKIE['spip_lang'];
-	}
-	if (isset($_GET['lang'])) {
-		$lang_demandee = $_GET['lang'];
-	}
-
-	// Renvoyer si besoin (et si la langue demandee existe)
-	if (
-		$GLOBALS['spip_lang'] != $lang_demandee
-		and changer_langue($lang_demandee)
-		and $lang_demandee != @$_GET['lang']
-	) {
-		$destination = parametre_url(self(), 'lang', $lang_demandee, '&');
-		// ici on a besoin des var_truc
-		foreach ($_GET as $var => $val) {
-			if (!strncmp('var_', $var, 4)) {
-				$destination = parametre_url($destination, $var, $val, '&');
-			}
-		}
-		include_spip('inc/headers');
-		redirige_par_entete($destination);
-	}
-
-	// Subtilite : si la langue demandee par cookie est la bonne
-	// alors on fait comme si $lang etait passee dans l'URL
-	// (pour criteres {lang}).
-	$GLOBALS['lang'] = $_GET['lang'] = $GLOBALS['spip_lang'];
+    // quelle langue est demandee ?
+    $lang_demandee = (test_espace_prive() ? $GLOBALS['spip_lang'] : $GLOBALS['meta']['langue_site']);
+    if (isset($_COOKIE['spip_lang_ecrire'])) {
+        $lang_demandee = $_COOKIE['spip_lang_ecrire'];
+    }
+    if (!test_espace_prive() and isset($_COOKIE['spip_lang'])) {
+        $lang_demandee = $_COOKIE['spip_lang'];
+    }
+    if (isset($_GET['lang'])) {
+        $lang_demandee = $_GET['lang'];
+    }
+
+    // Renvoyer si besoin (et si la langue demandee existe)
+    if (
+        $GLOBALS['spip_lang'] != $lang_demandee
+        and changer_langue($lang_demandee)
+        and $lang_demandee != @$_GET['lang']
+    ) {
+        $destination = parametre_url(self(), 'lang', $lang_demandee, '&');
+        // ici on a besoin des var_truc
+        foreach ($_GET as $var => $val) {
+            if (!strncmp('var_', $var, 4)) {
+                $destination = parametre_url($destination, $var, $val, '&');
+            }
+        }
+        include_spip('inc/headers');
+        redirige_par_entete($destination);
+    }
+
+    // Subtilite : si la langue demandee par cookie est la bonne
+    // alors on fait comme si $lang etait passee dans l'URL
+    // (pour criteres {lang}).
+    $GLOBALS['lang'] = $_GET['lang'] = $GLOBALS['spip_lang'];
 }
 
 
@@ -343,22 +343,22 @@ 
  *     La langue sélectionnée
  **/
 function utiliser_langue_site($liste_langues = null) {
-	// s'il existe une langue du site (en gros tout le temps en théorie)
-	if (
-		isset($GLOBALS['meta']['langue_site'])
-		// et si spip_langue est pas encore définie (ce que va faire changer_langue())
-		// ou qu'elle n'est pas identique à la langue du site
-		and (!isset($GLOBALS['spip_lang'])
-			or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
-	) {
-		return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues);//@:install
-	}
-	// en theorie là, la globale est définie, sinon c'est un problème.
-	if (!isset($GLOBALS['spip_lang'])) {
-		spip_log('La globale spip_lang est indéfinie dans utiliser_langue_site() !', _LOG_ERREUR);
-	}
-
-	return $GLOBALS['spip_lang'];
+    // s'il existe une langue du site (en gros tout le temps en théorie)
+    if (
+        isset($GLOBALS['meta']['langue_site'])
+        // et si spip_langue est pas encore définie (ce que va faire changer_langue())
+        // ou qu'elle n'est pas identique à la langue du site
+        and (!isset($GLOBALS['spip_lang'])
+            or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
+    ) {
+        return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues);//@:install
+    }
+    // en theorie là, la globale est définie, sinon c'est un problème.
+    if (!isset($GLOBALS['spip_lang'])) {
+        spip_log('La globale spip_lang est indéfinie dans utiliser_langue_site() !', _LOG_ERREUR);
+    }
+
+    return $GLOBALS['spip_lang'];
 }
 
 /**
@@ -377,35 +377,35 @@ 
  **/
 function utiliser_langue_visiteur($liste_langues = null) {
 
-	// si on est dans l'espace public et pas de $liste_langues : se limiter a la config langues_multilingue si définie
-	if (is_null($liste_langues) and !test_espace_prive() and !empty($GLOBALS['meta']['langues_multilingue'])) {
-		$liste_langues = $GLOBALS['meta']['langues_multilingue'];
-	}
-
-	$l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
-	if (isset($_COOKIE[$l])) {
-		if (changer_langue($l = $_COOKIE[$l], $liste_langues)) {
-			return $l;
-		}
-	}
-
-	if (isset($GLOBALS['visiteur_session']['lang'])) {
-		if (changer_langue($l = $GLOBALS['visiteur_session']['lang'], $liste_langues)) {
-			return $l;
-		}
-	}
-
-	if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
-		foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s) {
-			if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
-				if (changer_langue($l = strtolower($r[1]), $liste_langues)) {
-					return $l;
-				}
-			}
-		}
-	}
-
-	return utiliser_langue_site($liste_langues);
+    // si on est dans l'espace public et pas de $liste_langues : se limiter a la config langues_multilingue si définie
+    if (is_null($liste_langues) and !test_espace_prive() and !empty($GLOBALS['meta']['langues_multilingue'])) {
+        $liste_langues = $GLOBALS['meta']['langues_multilingue'];
+    }
+
+    $l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
+    if (isset($_COOKIE[$l])) {
+        if (changer_langue($l = $_COOKIE[$l], $liste_langues)) {
+            return $l;
+        }
+    }
+
+    if (isset($GLOBALS['visiteur_session']['lang'])) {
+        if (changer_langue($l = $GLOBALS['visiteur_session']['lang'], $liste_langues)) {
+            return $l;
+        }
+    }
+
+    if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
+        foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s) {
+            if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
+                if (changer_langue($l = strtolower($r[1]), $liste_langues)) {
+                    return $l;
+                }
+            }
+        }
+    }
+
+    return utiliser_langue_site($liste_langues);
 }
 
 
@@ -415,7 +415,7 @@ 
  * @return int
  */
 function match_langue($chaine) {
-	return preg_match('/^[a-z]{2,3}(_[a-z]{2,3}){0,2}$/', $chaine);
+    return preg_match('/^[a-z]{2,3}(_[a-z]{2,3}){0,2}$/', $chaine);
 }
 
 /**
@@ -433,36 +433,36 @@ 
  **/
 function init_langues() {
 
-	// liste des langues dans les meta, sauf a l'install
-	$all_langs = $GLOBALS['meta']['langues_proposees'] ?? '';
-
-	$tout = [];
-	if (!$all_langs) {
-		// trouver tous les modules lang/spip_xx.php
-		$modules = find_all_in_path('lang/', '/spip_([a-z_]+)\.php$');
-		foreach ($modules as $name => $path) {
-			if (preg_match(',^spip_([a-z_]+)\.php$,', $name, $regs)) {
-				if (match_langue($regs[1])) {
-					$tout[] = $regs[1];
-				}
-			}
-		}
-		sort($tout);
-		$tout = join(',', $tout);
-		// Si les langues n'ont pas change, ne rien faire
-		if ($tout != $all_langs) {
-			$GLOBALS['meta']['langues_proposees'] = $tout;
-			include_spip('inc/meta');
-			ecrire_meta('langues_proposees', $tout);
-		}
-	}
-	if (!isset($GLOBALS['meta']['langue_site'])) {
-		// Initialisation : le francais si dispo, sinon la premiere langue trouvee
-		$GLOBALS['meta']['langue_site'] = $tout =
-			(!$all_langs or (strpos(',' . _LANGUE_PAR_DEFAUT . ',', (string) ",$all_langs,") !== false))
-				? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
-		ecrire_meta('langue_site', $tout);
-	}
+    // liste des langues dans les meta, sauf a l'install
+    $all_langs = $GLOBALS['meta']['langues_proposees'] ?? '';
+
+    $tout = [];
+    if (!$all_langs) {
+        // trouver tous les modules lang/spip_xx.php
+        $modules = find_all_in_path('lang/', '/spip_([a-z_]+)\.php$');
+        foreach ($modules as $name => $path) {
+            if (preg_match(',^spip_([a-z_]+)\.php$,', $name, $regs)) {
+                if (match_langue($regs[1])) {
+                    $tout[] = $regs[1];
+                }
+            }
+        }
+        sort($tout);
+        $tout = join(',', $tout);
+        // Si les langues n'ont pas change, ne rien faire
+        if ($tout != $all_langs) {
+            $GLOBALS['meta']['langues_proposees'] = $tout;
+            include_spip('inc/meta');
+            ecrire_meta('langues_proposees', $tout);
+        }
+    }
+    if (!isset($GLOBALS['meta']['langue_site'])) {
+        // Initialisation : le francais si dispo, sinon la premiere langue trouvee
+        $GLOBALS['meta']['langue_site'] = $tout =
+            (!$all_langs or (strpos(',' . _LANGUE_PAR_DEFAUT . ',', (string) ",$all_langs,") !== false))
+                ? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
+        ecrire_meta('langue_site', $tout);
+    }
 }
 
 /**
@@ -476,10 +476,10 @@ 
  *     Code html de la balise <html>
  **/
 function html_lang_attributes() {
-	$lang = $GLOBALS['spip_lang'];
-	$dir = lang_dir($lang);
+    $lang = $GLOBALS['spip_lang'];
+    $dir = lang_dir($lang);
 
-	return "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n";
+    return "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n";
 }
 
 
@@ -493,7 +493,7 @@ 
  * @return string
  */
 function aide_lang_dir($spip_lang, $spip_lang_rtl) {
-	return ($spip_lang <> 'he') ? $spip_lang_rtl : '';
+    return ($spip_lang <> 'he') ? $spip_lang_rtl : '';
 }
 
 

ecrire/public/composer.php

Braces +1 added lines, -2 removed lines

@@ -381,8 +381,7 @@
 function executer_balise_dynamique_dans_un_modele(...$args) {
 	if (test_espace_prive()) {
 		return executer_balise_dynamique(...$args);
-	}
-	else {
+	} else {
 		$str_args = base64_encode(serialize($args));
 		return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
 	}

Indentation +768 added lines, -768 removed lines

@@ -18,7 +18,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte');
@@ -41,234 +41,234 @@ 
 
 function public_composer_dist($squelette, $mime_type, $gram, $source, string $connect = '') {
 
-	$skel = null;
-	$boucle = null;
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['courant'] = $nom;
-	}
-
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)) {
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_log($skel_code, 'comp')
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	// charger le source, si possible, et compiler
-	$skel_code = '';
-	if (lire_fichier($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) {
-		return false;
-	}
-
-	foreach ($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		try {
-			eval("return true; $f ;");
-		} catch (\ParseError $e) {
-			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		}
-
-		// contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	$code = '';
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom)) {
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		} else {
-			// code semantiquement faux: bug du compilateur
-			// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if (
-			$GLOBALS['debug_objets']['sourcefile']
-			and (_request('var_mode_objet') == $nom)
-			and (_request('var_mode_affiche') == 'code')
-		) {
-			erreur_squelette();
-		}
-	}
-
-	return $nom ?: false;
+    $skel = null;
+    $boucle = null;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['courant'] = $nom;
+    }
+
+    $phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)) {
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_log($skel_code, 'comp')
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    // charger le source, si possible, et compiler
+    $skel_code = '';
+    if (lire_fichier($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) {
+        return false;
+    }
+
+    foreach ($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        try {
+            eval("return true; $f ;");
+        } catch (\ParseError $e) {
+            // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        }
+
+        // contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    $code = '';
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom)) {
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        } else {
+            // code semantiquement faux: bug du compilateur
+            // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if (
+            $GLOBALS['debug_objets']['sourcefile']
+            and (_request('var_mode_objet') == $nom)
+            and (_request('var_mode_affiche') == 'code')
+        ) {
+            erreur_squelette();
+        }
+    }
+
+    return $nom ?: false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles) {
 
-	$code = null;
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join(', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE) {
-		$code = "
+    $code = null;
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join(', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE) {
+        $code = "
 /*
  * Squelette : $sourcefile
  * Date :      " . gmdate('D, d M Y H:i:s', @filemtime($sourcefile)) . ' GMT
  * Compile :   ' . gmdate('D, d M Y H:i:s', time()) . ' GMT
  * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   ' . $noms)) . '
  */ ';
-	}
+    }
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
-	if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
-		ecrire_fichier($phpfile, $code);
-	}
+    $code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
+    if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
+        ecrire_fichier($phpfile, $code);
+    }
 
-	return $code;
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)) {
-		if (@file_exists($fonc = 'mes_fonctions.php')) {
-			$date_change = @filemtime($fonc);
-		} # compatibilite
-		if (defined('_FILE_OPTIONS')) {
-			$date_change = max($date_change, @filemtime(_FILE_OPTIONS));
-		}
-	}
-
-	return (
-		(defined('_VAR_MODE') and in_array(_VAR_MODE, ['recalcul', 'preview', 'debug']))
-		or !@file_exists($skel)
-		or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
-			> ($date = @filemtime($skel)))
-		or ($date_change > $date)
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)) {
+        if (@file_exists($fonc = 'mes_fonctions.php')) {
+            $date_change = @filemtime($fonc);
+        } # compatibilite
+        if (defined('_FILE_OPTIONS')) {
+            $date_change = max($date_change, @filemtime(_FILE_OPTIONS));
+        }
+    }
+
+    return (
+        (defined('_VAR_MODE') and in_array(_VAR_MODE, ['recalcul', 'preview', 'debug']))
+        or !@file_exists($skel)
+        or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
+            > ($date = @filemtime($skel)))
+        or ($date_change > $date)
+    );
 }
 
 // Activer l'invalideur de session
 function invalideur_session(&$Cache, $code = null) {
-	$Cache['session'] = spip_session();
+    $Cache['session'] = spip_session();
 
-	return $code;
+    return $code;
 }
 
 
 function analyse_resultat_skel($nom, $cache, $corps, $source = '') {
-	static $filtres = [];
-	$headers = [];
-	$corps ??= '';
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (
-		stripos($corps, 'header') !== false
-		and preg_match_all(
-			'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-			$corps,
-			$regs,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
-				$headers[$j] .= '|' . $r[3];
-			} else {
-				$headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
-			}
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		strpos($corps, '<' . '?') === false
-		or
-		(strpos($corps, '<' . '?xml') !== false and
-			strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-	)
-		? 'html'
-		: 'php';
-
-	$skel = [
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	];
-
-	// traiter #FILTRE{} et filtres
-	if (!isset($filtres[$nom])) {
-		$filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
-	}
-	$filtres_headers = [];
-	if (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre'])) {
-		$filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
-		unset($headers['X-Spip-Filtre']);
-	}
-	if (is_array($filtres[$nom]) || $filtres[$nom] instanceof \Countable ? count($filtres[$nom]) : 0 or count($filtres_headers)) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
-
-		if ($process_ins == 'html') {
-			$skel['process_ins'] = (
-				strpos($corps, '<' . '?') === false
-				or
-				(strpos($corps, '<' . '?xml') !== false and
-					strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-			)
-				? 'html'
-				: 'php';
-		}
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = [];
+    $headers = [];
+    $corps ??= '';
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (
+        stripos($corps, 'header') !== false
+        and preg_match_all(
+            '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+            $corps,
+            $regs,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
+                $headers[$j] .= '|' . $r[3];
+            } else {
+                $headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
+            }
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        strpos($corps, '<' . '?') === false
+        or
+        (strpos($corps, '<' . '?xml') !== false and
+            strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = [
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    ];
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
+    }
+    $filtres_headers = [];
+    if (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre'])) {
+        $filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
+        unset($headers['X-Spip-Filtre']);
+    }
+    if (is_array($filtres[$nom]) || $filtres[$nom] instanceof \Countable ? count($filtres[$nom]) : 0 or count($filtres_headers)) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
+
+        if ($process_ins == 'html') {
+            $skel['process_ins'] = (
+                strpos($corps, '<' . '?') === false
+                or
+                (strpos($corps, '<' . '?xml') !== false and
+                    strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+            )
+                ? 'html'
+                : 'php';
+        }
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -282,7 +282,7 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-	. '>');
+    . '>');
 
 /**
  * Synthétise une balise dynamique : crée l'appel à l'inclusion
@@ -302,35 +302,35 @@ 
  *     Code PHP pour inclure le squelette de la balise dynamique
  **/
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	if (
-		strncmp($file, '/', 1) !== 0
-		// pas de lien symbolique sous Windows
-		and !(stristr(PHP_OS, 'WIN') and str_contains($file, ':'))
-	) {
-		$file = './" . _DIR_RACINE . "' . $file;
-	}
-
-	$lang = $context_compil[4];
-	if (preg_match(',\W,', $lang)) {
-		$lang = '';
-	}
-
-	$args = array_map('argumenter_squelette', $args);
-	if (!empty($context_compil['appel_php_depuis_modele'])) {
-		$args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
-	}
-	$args = join(', ', $args);
-
-	$r = sprintf(
-		CODE_INCLURE_BALISE,
-		$file,
-		$lang,
-		$nom,
-		$args,
-		join(', ', array_map('_q', $context_compil))
-	);
-
-	return $r;
+    if (
+        strncmp($file, '/', 1) !== 0
+        // pas de lien symbolique sous Windows
+        and !(stristr(PHP_OS, 'WIN') and str_contains($file, ':'))
+    ) {
+        $file = './" . _DIR_RACINE . "' . $file;
+    }
+
+    $lang = $context_compil[4];
+    if (preg_match(',\W,', $lang)) {
+        $lang = '';
+    }
+
+    $args = array_map('argumenter_squelette', $args);
+    if (!empty($context_compil['appel_php_depuis_modele'])) {
+        $args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
+    }
+    $args = join(', ', $args);
+
+    $r = sprintf(
+        CODE_INCLURE_BALISE,
+        $file,
+        $lang,
+        $nom,
+        $args,
+        join(', ', array_map('_q', $context_compil))
+    );
+
+    return $r;
 }
 
 /**
@@ -348,18 +348,18 @@ 
  **/
 function argumenter_squelette($v) {
 
-	if (is_object($v)) {
-		return var_export($v, true);
-	} elseif (!is_array($v)) {
-		return "'" . texte_script((string) $v) . "'";
-	} else {
-		$out = [];
-		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-		}
-
-		return 'array(' . join(', ', $out) . ')';
-	}
+    if (is_object($v)) {
+        return var_export($v, true);
+    } elseif (!is_array($v)) {
+        return "'" . texte_script((string) $v) . "'";
+    } else {
+        $out = [];
+        foreach ($v as $k => $val) {
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        }
+
+        return 'array(' . join(', ', $out) . ')';
+    }
 }
 
 /**
@@ -378,13 +378,13 @@ 
  * @return string
  */
 function executer_balise_dynamique_dans_un_modele(...$args) {
-	if (test_espace_prive()) {
-		return executer_balise_dynamique(...$args);
-	}
-	else {
-		$str_args = base64_encode(serialize($args));
-		return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
-	}
+    if (test_espace_prive()) {
+        return executer_balise_dynamique(...$args);
+    }
+    else {
+        $str_args = base64_encode(serialize($args));
+        return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
+    }
 }
 
 
@@ -415,87 +415,87 @@ 
  *     Code PHP d'exécutant l'inclusion du squelette (ou texte) de la balise dynamique
  **/
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	/** @var string Nom de la balise à charger (balise demandée ou balise générique) */
-	$nom_balise = $nom;
-	/** @var string Nom de la balise générique (si utilisée) */
-	$nom_balise_generique = '';
-
-	$appel_php_depuis_modele = false;
-	if (
-		is_array($context_compil)
-		and !is_numeric($context_compil[3])
-		and empty($context_compil[0])
-		and empty($context_compil[1])
-		and empty($context_compil[2])
-		and empty($context_compil[3])
-	) {
-		$appel_php_depuis_modele = true;
-	}
-
-	if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
-		// Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
-		if ($balise_generique = chercher_balise_generique($nom)) {
-			// injecter en premier arg le nom de la balise
-			array_unshift($args, $nom);
-			$nom_balise_generique = $balise_generique['nom_generique'];
-			$fonction_balise = $balise_generique['fonction_generique'];
-			$nom_balise = $nom_balise_generique;
-		}
-		unset($balise_generique);
-	}
-
-	if (!$fonction_balise) {
-		$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-		erreur_squelette($msg, $context_compil);
-
-		return '';
-	}
-
-	// retrouver le fichier qui a déclaré la fonction
-	// même si la fonction dynamique est déclarée dans un fichier de fonctions.
-	// Attention sous windows, getFileName() retourne un antislash.
-	$reflector = new ReflectionFunction($fonction_balise);
-	$file = str_replace('\\', '/', $reflector->getFileName());
-	if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
-		$file = substr($file, strlen(_ROOT_RACINE));
-	}
-
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nom_balise . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil);
-
-	if (!is_array($r)) {
-		return $r;
-	}
-
-	// verifier que la fonction dyn est la,
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nom_balise . '_dyn')) {
-		if (
-			$balise_generique = chercher_balise_generique($nom)
-			and $nom_balise_generique = $balise_generique['nom_generique']
-			and $file = include_spip('balise/' . strtolower($nom_balise_generique))
-			and function_exists('balise_' . $nom_balise_generique . '_dyn')
-		) {
-			// et lui injecter en premier arg le nom de la balise
-			array_unshift($r, $nom);
-			$nom_balise = $nom_balise_generique;
-			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
-			}
-		} else {
-			$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-			erreur_squelette($msg, $context_compil);
-
-			return '';
-		}
-	}
-
-	if ($appel_php_depuis_modele) {
-		$context_compil['appel_php_depuis_modele'] = true;
-	}
-	return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
+    /** @var string Nom de la balise à charger (balise demandée ou balise générique) */
+    $nom_balise = $nom;
+    /** @var string Nom de la balise générique (si utilisée) */
+    $nom_balise_generique = '';
+
+    $appel_php_depuis_modele = false;
+    if (
+        is_array($context_compil)
+        and !is_numeric($context_compil[3])
+        and empty($context_compil[0])
+        and empty($context_compil[1])
+        and empty($context_compil[2])
+        and empty($context_compil[3])
+    ) {
+        $appel_php_depuis_modele = true;
+    }
+
+    if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
+        // Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
+        if ($balise_generique = chercher_balise_generique($nom)) {
+            // injecter en premier arg le nom de la balise
+            array_unshift($args, $nom);
+            $nom_balise_generique = $balise_generique['nom_generique'];
+            $fonction_balise = $balise_generique['fonction_generique'];
+            $nom_balise = $nom_balise_generique;
+        }
+        unset($balise_generique);
+    }
+
+    if (!$fonction_balise) {
+        $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+        erreur_squelette($msg, $context_compil);
+
+        return '';
+    }
+
+    // retrouver le fichier qui a déclaré la fonction
+    // même si la fonction dynamique est déclarée dans un fichier de fonctions.
+    // Attention sous windows, getFileName() retourne un antislash.
+    $reflector = new ReflectionFunction($fonction_balise);
+    $file = str_replace('\\', '/', $reflector->getFileName());
+    if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
+        $file = substr($file, strlen(_ROOT_RACINE));
+    }
+
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nom_balise . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil);
+
+    if (!is_array($r)) {
+        return $r;
+    }
+
+    // verifier que la fonction dyn est la,
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nom_balise . '_dyn')) {
+        if (
+            $balise_generique = chercher_balise_generique($nom)
+            and $nom_balise_generique = $balise_generique['nom_generique']
+            and $file = include_spip('balise/' . strtolower($nom_balise_generique))
+            and function_exists('balise_' . $nom_balise_generique . '_dyn')
+        ) {
+            // et lui injecter en premier arg le nom de la balise
+            array_unshift($r, $nom);
+            $nom_balise = $nom_balise_generique;
+            if (!_DIR_RESTREINT) {
+                $file = _DIR_RESTREINT_ABS . $file;
+            }
+        } else {
+            $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+            erreur_squelette($msg, $context_compil);
+
+            return '';
+        }
+    }
+
+    if ($appel_php_depuis_modele) {
+        $context_compil['appel_php_depuis_modele'] = true;
+    }
+    return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
 }
 
 /**
@@ -510,23 +510,23 @@ 
  * @return array|null
  */
 function chercher_balise_generique($nom) {
-	if (!str_contains($nom, '_')) {
-		return null;
-	}
-	$nom_generique = $nom;
-	while (false !== ($p = strrpos($nom_generique, '_'))) {
-		$nom_generique = substr($nom_generique, 0, $p + 1);
-		$fonction_generique = charger_fonction($nom_generique, 'balise', true);
-		if ($fonction_generique) {
-			return [
-				'nom' => $nom,
-				'nom_generique' => $nom_generique,
-				'fonction_generique' => $fonction_generique,
-			];
-		}
-		$nom_generique = substr($nom_generique, 0, -1);
-	}
-	return null;
+    if (!str_contains($nom, '_')) {
+        return null;
+    }
+    $nom_generique = $nom;
+    while (false !== ($p = strrpos($nom_generique, '_'))) {
+        $nom_generique = substr($nom_generique, 0, $p + 1);
+        $fonction_generique = charger_fonction($nom_generique, 'balise', true);
+        if ($fonction_generique) {
+            return [
+                'nom' => $nom,
+                'nom_generique' => $nom_generique,
+                'fonction_generique' => $fonction_generique,
+            ];
+        }
+        $nom_generique = substr($nom_generique, 0, -1);
+    }
+    return null;
 }
 
 
@@ -550,50 +550,50 @@ 
  * @return null;
  **/
 function lang_select_public($lang, $lang_select, $titre = null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (
-		isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
-		and $lang_select !== 'oui'
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang)) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 3. l'objet est multilingue !
-	elseif (
-		$lang_select !== 'oui'
-		and strlen($titre) > 10
-		and str_contains($titre, '<multi>')
-		and str_contains(echappe_html($titre), '<multi>')
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (
+        isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
+        and $lang_select !== 'oui'
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang)) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 3. l'objet est multilingue !
+    elseif (
+        $lang_select !== 'oui'
+        and strlen($titre) > 10
+        and str_contains($titre, '<multi>')
+        and str_contains(echappe_html($titre), '<multi>')
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
 // Si un tableau &doublons[articles] est passe en parametre,
 // il faut le nettoyer car il pourrait etre injecte en SQL
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach (explode(',', $liste) as $val) {
-			if ($a = intval($val) and $val === strval($a)) {
-				$n .= ',' . $val;
-			}
-		}
-		if (strlen($n)) {
-			$envd[$table] = $n;
-		} else {
-			unset($envd[$table]);
-		}
-	}
-
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach (explode(',', $liste) as $val) {
+            if ($a = intval($val) and $val === strval($a)) {
+                $n .= ',' . $val;
+            }
+        }
+        if (strlen($n)) {
+            $envd[$table] = $n;
+        } else {
+            unset($envd[$table]);
+        }
+    }
+
+    return $envd;
 }
 
 /**
@@ -612,21 +612,21 @@ 
  *     Opérateur trouvé (SELF ou SUBSELECT) sinon false.
  **/
 function match_self($w) {
-	if (is_string($w)) {
-		return false;
-	}
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $w;
-		}
-		foreach (array_filter($w, 'is_array') as $sw) {
-			if ($m = match_self($sw)) {
-				return $m;
-			}
-		}
-	}
-
-	return false;
+    if (is_string($w)) {
+        return false;
+    }
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $w;
+        }
+        foreach (array_filter($w, 'is_array') as $sw) {
+            if ($m = match_self($sw)) {
+                return $m;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -642,16 +642,16 @@ 
  *     est remplacée par son code.
  **/
 function remplace_sous_requete($w, $sousrequete) {
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $sousrequete;
-		}
-		foreach ($w as $k => $sw) {
-			$w[$k] = remplace_sous_requete($sw, $sousrequete);
-		}
-	}
-
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $sousrequete;
+        }
+        foreach ($w as $k => $sw) {
+            $w[$k] = remplace_sous_requete($sw, $sousrequete);
+        }
+    }
+
+    return $w;
 }
 
 /**
@@ -665,17 +665,17 @@ 
  *     - Conditions avec des sous requêtes
  **/
 function trouver_sous_requetes($where) {
-	$where_simples = [];
-	$where_sous = [];
-	foreach ($where as $k => $w) {
-		if (match_self($w)) {
-			$where_sous[$k] = $w;
-		} else {
-			$where_simples[$k] = $w;
-		}
-	}
-
-	return [$where_simples, $where_sous];
+    $where_simples = [];
+    $where_sous = [];
+    foreach ($where as $k => $w) {
+        if (match_self($w)) {
+            $where_sous[$k] = $w;
+        } else {
+            $where_simples[$k] = $w;
+        }
+    }
+
+    return [$where_simples, $where_sous];
 }
 
 
@@ -701,292 +701,292 @@ 
  * @return resource
  */
 function calculer_select(
-	$select = [],
-	$from = [],
-	$from_type = [],
-	$where = [],
-	$join = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$table = '',
-	$id = '',
-	$serveur = '',
-	$requeter = true
+    $select = [],
+    $from = [],
+    $from_type = [],
+    $where = [],
+    $join = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $table = '',
+    $id = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// retirer les criteres vides:
-	// {X ?} avec X absent de l'URL
-	// {par #ENV{X}} avec X absent de l'URL
-	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-	$menage = false;
-	foreach ($where as $k => $v) {
-		if (is_array($v) and count($v)) {
-			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-				$op = false;
-			} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-				$op = false;
-			} else {
-				$op = $v[0] ?: $v;
-			}
-		} else {
-			$op = $v;
-		}
-		if ((!$op) or ($op == 1) or ($op == '0=0')) {
-			unset($where[$k]);
-			$menage = true;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby, ['']);
-
-	// remplacer les sous requetes recursives au calcul
-	[$where_simples, $where_sous] = trouver_sous_requetes($where);
-	foreach ($where_sous as $k => $w) {
-		$menage = true;
-		// on recupere la sous requete
-		$sous = match_self($w);
-		if ($sous[0] == 'SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples, $sous[2]);
-			$wheresub = [
-				$sous[2],
-				'0=0'
-			]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-					[$sous[1] . ' AS id'],
-					$from,
-					$from_type,
-					$wheresub,
-					$jsub,
-					[],
-					[],
-					'',
-					$having,
-					$table,
-					$id,
-					$serveur,
-					false
-				) . ')');
-				if (!$i) {
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle => $wj) {
-						if (
-							(is_countable($wj) ? count($wj) : 0) == 4
-							and str_contains($wherestring, (string) "{$cle}.")
-						) {
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++ < 1);
-		}
-		if ($sous[0] == 'SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-				$sous[1], # select
-				$sous[2], #from
-				[], #from_type
-				$sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
-				#where, qui peut etre de la forme string comme dans sql_select
-					[], #join
-				$sous[4] ?: [], #groupby
-				$sous[5] ?: [], #orderby
-				$sous[6], #limit
-				$sous[7] ?: [], #having
-				$table,
-				$id,
-				$serveur,
-				false
-			) . ')');
-		}
-		array_pop($where_simples);
-	}
-
-	foreach ($having as $k => $v) {
-		if ((!$v) or ($v == 1) or ($v == '0=0')) {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
-
-	$afrom = [];
-	$equiv = [];
-	$k = count($join);
-	foreach (array_reverse($join, true) as $cledef => $j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		$join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
-		if (count($join[$cle]) == 2) {
-			$join[$cle][] = $join[$cle][1];
-		}
-		if ((is_array($join[$cle]) || $join[$cle] instanceof \Countable ? count($join[$cle]) : 0) == 3) {
-			$join[$cle][] = '';
-		}
-		[$t, $c, $carr, $and] = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle)) {
-			$cle = "L$k";
-		}
-		$cle_where_lie = "JOIN-$cle";
-		if (
-			!$menage
-			or isset($afrom[$cle])
-			or calculer_jointnul($cle, $select)
-			or calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
-			or calculer_jointnul($cle, $having)
-			or calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
-		) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach ($select as $i => $s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach ($groupby as $i => $g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = [
-				"\n" .
-				($from_type[$cle] ?? 'INNER') . ' JOIN',
-				$from[$cle],
-				"AS $cle",
-				'ON (',
-				"$cle.$c",
-				'=',
-				"$t.$carr",
-				($and ? 'AND ' . $and : '') .
-				')'
-			];
-			if (isset($afrom[$cle])) {
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[] = $carr;
-		} else {
-			unset($join[$cledef]);
-			if (isset($where_simples[$cle_where_lie])) {
-				unset($where_simples[$cle_where_lie]);
-				unset($where[$cle_where_lie]);
-			}
-		}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
-
-		$t = key($from);
-		$c = current($from);
-		reset($from);
-		$e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
-		if (
-			!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
-				calculer_jointnul($t, $select, $e) or
-				calculer_jointnul($t, $join, $e) or
-				calculer_jointnul($t, $where, $e) or
-				calculer_jointnul($t, $orderby, $e) or
-				calculer_jointnul($t, $groupby, $e) or
-				calculer_jointnul($t, $having, $e))
-			&& count($afrom[$t])
-		) {
-			$nfrom = reset($afrom[$t]);
-			$nt = array_key_first($afrom[$t]);
-			unset($from[$t]);
-			$from[$nt] = $nfrom[1];
-			unset($afrom[$t][$nt]);
-			$afrom[$nt] = $afrom[$t];
-			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
-			$t = $nfrom[4];
-			$alias = '';
-			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-			$oldcle = explode('.', $nfrom[6]);
-			$oldcle = end($oldcle);
-			$newcle = explode('.', $nfrom[4]);
-			$newcle = end($newcle);
-			if ($newcle != $oldcle) {
-				// si l'ancienne cle etait deja dans le select avec un AS
-				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
-				if (preg_match($as, implode(',', $select), $m)) {
-					$alias = '';
-				} else {
-					$alias = ', ' . $nfrom[4] . " AS $oldcle";
-				}
-			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
-			$join = remplacer_jointnul($t, $join, $e);
-			$where = remplacer_jointnul($t, $where, $e);
-			$having = remplacer_jointnul($t, $having, $e);
-			$groupby = remplacer_jointnul($t, $groupby, $e);
-			$orderby = remplacer_jointnul($t, $orderby, $e);
-		}
-		$from = reinjecte_joint($afrom, $from);
-	}
-	if (empty($GLOBALS['debug']) or !is_array($GLOBALS['debug'])) {
-		$wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
-		$GLOBALS['debug'] = [];
-		if ($wasdebug) {
-			$GLOBALS['debug']['debug'] = true;
-		}
-	}
-	$GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
-	$r = sql_select(
-		$select,
-		$from,
-		$where,
-		$groupby,
-		array_filter($orderby),
-		$limit,
-		$having,
-		$serveur,
-		$requeter
-	);
-	unset($GLOBALS['debug']['aucasou']);
-
-	return $r;
+    // retirer les criteres vides:
+    // {X ?} avec X absent de l'URL
+    // {par #ENV{X}} avec X absent de l'URL
+    // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+    $menage = false;
+    foreach ($where as $k => $v) {
+        if (is_array($v) and count($v)) {
+            if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                $op = false;
+            } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                $op = false;
+            } else {
+                $op = $v[0] ?: $v;
+            }
+        } else {
+            $op = $v;
+        }
+        if ((!$op) or ($op == 1) or ($op == '0=0')) {
+            unset($where[$k]);
+            $menage = true;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby, ['']);
+
+    // remplacer les sous requetes recursives au calcul
+    [$where_simples, $where_sous] = trouver_sous_requetes($where);
+    foreach ($where_sous as $k => $w) {
+        $menage = true;
+        // on recupere la sous requete
+        $sous = match_self($w);
+        if ($sous[0] == 'SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples, $sous[2]);
+            $wheresub = [
+                $sous[2],
+                '0=0'
+            ]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                    [$sous[1] . ' AS id'],
+                    $from,
+                    $from_type,
+                    $wheresub,
+                    $jsub,
+                    [],
+                    [],
+                    '',
+                    $having,
+                    $table,
+                    $id,
+                    $serveur,
+                    false
+                ) . ')');
+                if (!$i) {
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle => $wj) {
+                        if (
+                            (is_countable($wj) ? count($wj) : 0) == 4
+                            and str_contains($wherestring, (string) "{$cle}.")
+                        ) {
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++ < 1);
+        }
+        if ($sous[0] == 'SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                $sous[1], # select
+                $sous[2], #from
+                [], #from_type
+                $sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
+                #where, qui peut etre de la forme string comme dans sql_select
+                    [], #join
+                $sous[4] ?: [], #groupby
+                $sous[5] ?: [], #orderby
+                $sous[6], #limit
+                $sous[7] ?: [], #having
+                $table,
+                $id,
+                $serveur,
+                false
+            ) . ')');
+        }
+        array_pop($where_simples);
+    }
+
+    foreach ($having as $k => $v) {
+        if ((!$v) or ($v == 1) or ($v == '0=0')) {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
+
+    $afrom = [];
+    $equiv = [];
+    $k = count($join);
+    foreach (array_reverse($join, true) as $cledef => $j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        $join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
+        if (count($join[$cle]) == 2) {
+            $join[$cle][] = $join[$cle][1];
+        }
+        if ((is_array($join[$cle]) || $join[$cle] instanceof \Countable ? count($join[$cle]) : 0) == 3) {
+            $join[$cle][] = '';
+        }
+        [$t, $c, $carr, $and] = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle)) {
+            $cle = "L$k";
+        }
+        $cle_where_lie = "JOIN-$cle";
+        if (
+            !$menage
+            or isset($afrom[$cle])
+            or calculer_jointnul($cle, $select)
+            or calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
+            or calculer_jointnul($cle, $having)
+            or calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
+        ) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach ($select as $i => $s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach ($groupby as $i => $g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = [
+                "\n" .
+                ($from_type[$cle] ?? 'INNER') . ' JOIN',
+                $from[$cle],
+                "AS $cle",
+                'ON (',
+                "$cle.$c",
+                '=',
+                "$t.$carr",
+                ($and ? 'AND ' . $and : '') .
+                ')'
+            ];
+            if (isset($afrom[$cle])) {
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[] = $carr;
+        } else {
+            unset($join[$cledef]);
+            if (isset($where_simples[$cle_where_lie])) {
+                unset($where_simples[$cle_where_lie]);
+                unset($where[$cle_where_lie]);
+            }
+        }
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+
+        $t = key($from);
+        $c = current($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
+        if (
+            !(strpos($t, ' ') or // jointure des le depart cf boucle_doc
+                calculer_jointnul($t, $select, $e) or
+                calculer_jointnul($t, $join, $e) or
+                calculer_jointnul($t, $where, $e) or
+                calculer_jointnul($t, $orderby, $e) or
+                calculer_jointnul($t, $groupby, $e) or
+                calculer_jointnul($t, $having, $e))
+            && count($afrom[$t])
+        ) {
+            $nfrom = reset($afrom[$t]);
+            $nt = array_key_first($afrom[$t]);
+            unset($from[$t]);
+            $from[$nt] = $nfrom[1];
+            unset($afrom[$t][$nt]);
+            $afrom[$nt] = $afrom[$t];
+            unset($afrom[$t]);
+            $e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+            $t = $nfrom[4];
+            $alias = '';
+            // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+            $oldcle = explode('.', $nfrom[6]);
+            $oldcle = end($oldcle);
+            $newcle = explode('.', $nfrom[4]);
+            $newcle = end($newcle);
+            if ($newcle != $oldcle) {
+                // si l'ancienne cle etait deja dans le select avec un AS
+                // reprendre simplement ce AS
+                $as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+                if (preg_match($as, implode(',', $select), $m)) {
+                    $alias = '';
+                } else {
+                    $alias = ', ' . $nfrom[4] . " AS $oldcle";
+                }
+            }
+            $select = remplacer_jointnul($t . $alias, $select, $e);
+            $join = remplacer_jointnul($t, $join, $e);
+            $where = remplacer_jointnul($t, $where, $e);
+            $having = remplacer_jointnul($t, $having, $e);
+            $groupby = remplacer_jointnul($t, $groupby, $e);
+            $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    if (empty($GLOBALS['debug']) or !is_array($GLOBALS['debug'])) {
+        $wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
+        $GLOBALS['debug'] = [];
+        if ($wasdebug) {
+            $GLOBALS['debug']['debug'] = true;
+        }
+    }
+    $GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
+    $r = sql_select(
+        $select,
+        $from,
+        $where,
+        $groupby,
+        array_filter($orderby),
+        $limit,
+        $having,
+        $serveur,
+        $requeter
+    );
+    unset($GLOBALS['debug']['aucasou']);
+
+    return $r;
 }
 
 /**
@@ -997,79 +997,79 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = '';
-		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = '';
+        if (strtoupper($join) === 'AND') {
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
 //condition suffisante (mais non necessaire) pour qu'une table soit utile
 
 function calculer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		if ($equiv) {
-			$exp = preg_replace($equiv, '', $exp);
-		}
-
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach ($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) {
+            $exp = preg_replace($equiv, '', $exp);
+        }
+
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach ($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 function reinjecte_joint($afrom, $from) {
-	$from_synth = [];
-	foreach ($from as $k => $v) {
-		$from_synth[$k] = $from[$k];
-		if (isset($afrom[$k])) {
-			foreach ($afrom[$k] as $kk => $vv) {
-				$afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
-			}
-			$from_synth["$k@"] = implode(' ', $afrom[$k]);
-			unset($afrom[$k]);
-		}
-	}
-
-	return $from_synth;
+    $from_synth = [];
+    foreach ($from as $k => $v) {
+        $from_synth[$k] = $from[$k];
+        if (isset($afrom[$k])) {
+            foreach ($afrom[$k] as $kk => $vv) {
+                $afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
+            }
+            $from_synth["$k@"] = implode(' ', $afrom[$k]);
+            unset($afrom[$k]);
+        }
+    }
+
+    return $from_synth;
 }
 
 function remplacer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach ($exp as $k => $v) {
-			$exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach ($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 function calculer_nom_fonction_squel($skel, $mime_type = 'html', string $connect = '') {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
-		$skel = substr($skel, strlen(_DIR_RACINE));
-	}
-
-	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
+        $skel = substr($skel, strlen(_DIR_RACINE));
+    }
+
+    return $mime_type
+    . (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
 }

Spacing +46 added lines, -46 removed lines

@@ -54,7 +54,7 @@ 
 		$GLOBALS['debug_objets']['courant'] = $nom;
 	}
 
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true).$nom.'.php';
 
 	// si squelette est deja compile et perenne, le charger
 	if (!squelette_obsolete($phpfile, $source)) {
@@ -67,7 +67,7 @@ 
 		#}
 	}
 
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+	if (file_exists($lib = $squelette.'_fonctions'.'.php')) {
 		include_once $lib;
 	}
 
@@ -95,7 +95,7 @@ 
 			eval("return true; $f ;");
 		} catch (\ParseError $e) {
 			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
+			$msg = _T('zbug_erreur_compilation').' | Line '.$e->getLine().' : '.$e->getMessage();
 			erreur_squelette($msg, $boucle);
 			// continuer pour trouver d'autres fautes eventuelles
 			// mais prevenir que c'est mort
@@ -123,7 +123,7 @@ 
 
 	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
 		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+		$GLOBALS['debug_objets']['code'][$nom.'tout'] = $code;
 
 		// si c'est ce que demande le debusqueur, lui passer la main
 		if (
@@ -147,13 +147,13 @@ 
 		$code = "
 /*
  * Squelette : $sourcefile
- * Date :      " . gmdate('D, d M Y H:i:s', @filemtime($sourcefile)) . ' GMT
- * Compile :   ' . gmdate('D, d M Y H:i:s', time()) . ' GMT
- * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   ' . $noms)) . '
+ * Date :      ".gmdate('D, d M Y H:i:s', @filemtime($sourcefile)).' GMT
+ * Compile :   ' . gmdate('D, d M Y H:i:s', time()).' GMT
+ * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   '.$noms)).'
  */ ';
 	}
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
+	$code = '<'."?php\n".$code.join('', $boucles)."\n";
 	if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
 		ecrire_fichier($phpfile, $code);
 	}
@@ -215,18 +215,18 @@ 
 			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
 
 			if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
-				$headers[$j] .= '|' . $r[3];
+				$headers[$j] .= '|'.$r[3];
 			} else {
-				$headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
+				$headers[$j] = str_replace(['\\\\', "\\'", '\\"'], ['\\', "'", '"'], $r[3]);
 			}
 		}
 	}
 	// S'agit-il d'un resultat constant ou contenant du code php
 	$process_ins = (
-		strpos($corps, '<' . '?') === false
+		strpos($corps, '<'.'?') === false
 		or
-		(strpos($corps, '<' . '?xml') !== false and
-			strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+		(strpos($corps, '<'.'?xml') !== false and
+			strpos(str_replace('<'.'?xml', '', $corps), '<'.'?') === false)
 	)
 		? 'html'
 		: 'php';
@@ -255,10 +255,10 @@ 
 
 		if ($process_ins == 'html') {
 			$skel['process_ins'] = (
-				strpos($corps, '<' . '?') === false
+				strpos($corps, '<'.'?') === false
 				or
-				(strpos($corps, '<' . '?xml') !== false and
-					strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+				(strpos($corps, '<'.'?xml') !== false and
+					strpos(str_replace('<'.'?xml', '', $corps), '<'.'?') === false)
 			)
 				? 'html'
 				: 'php';
@@ -276,7 +276,7 @@ 
 //
 
 /** Code PHP pour inclure une balise dynamique à l'exécution d'une page */
-define('CODE_INCLURE_BALISE', '<' . '?php
+define('CODE_INCLURE_BALISE', '<'.'?php
 include_once("%s");
 if ($lang_select = "%s") $lang_select = lang_select($lang_select);
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
@@ -307,7 +307,7 @@ 
 		// pas de lien symbolique sous Windows
 		and !(stristr(PHP_OS, 'WIN') and str_contains($file, ':'))
 	) {
-		$file = './" . _DIR_RACINE . "' . $file;
+		$file = './" . _DIR_RACINE . "'.$file;
 	}
 
 	$lang = $context_compil[4];
@@ -317,7 +317,7 @@ 
 
 	$args = array_map('argumenter_squelette', $args);
 	if (!empty($context_compil['appel_php_depuis_modele'])) {
-		$args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
+		$args[0] = 'arguments_balise_dyn_depuis_modele('.$args[0].')';
 	}
 	$args = join(', ', $args);
 
@@ -351,14 +351,14 @@ 
 	if (is_object($v)) {
 		return var_export($v, true);
 	} elseif (!is_array($v)) {
-		return "'" . texte_script((string) $v) . "'";
+		return "'".texte_script((string) $v)."'";
 	} else {
 		$out = [];
 		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+			$out [] = argumenter_squelette($k).'=>'.argumenter_squelette($val);
 		}
 
-		return 'array(' . join(', ', $out) . ')';
+		return 'array('.join(', ', $out).')';
 	}
 }
 
@@ -383,7 +383,7 @@ 
 	}
 	else {
 		$str_args = base64_encode(serialize($args));
-		return "<?" . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
+		return "<?"."php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
 	}
 }
 
@@ -461,7 +461,7 @@ 
 	}
 
 	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nom_balise . '_stat';
+	$f = 'balise_'.$nom_balise.'_stat';
 
 	$r = !function_exists($f) ? $args : $f($args, $context_compil);
 
@@ -471,18 +471,18 @@ 
 
 	// verifier que la fonction dyn est la,
 	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nom_balise . '_dyn')) {
+	if (!function_exists('balise_'.$nom_balise.'_dyn')) {
 		if (
 			$balise_generique = chercher_balise_generique($nom)
 			and $nom_balise_generique = $balise_generique['nom_generique']
-			and $file = include_spip('balise/' . strtolower($nom_balise_generique))
-			and function_exists('balise_' . $nom_balise_generique . '_dyn')
+			and $file = include_spip('balise/'.strtolower($nom_balise_generique))
+			and function_exists('balise_'.$nom_balise_generique.'_dyn')
 		) {
 			// et lui injecter en premier arg le nom de la balise
 			array_unshift($r, $nom);
 			$nom_balise = $nom_balise_generique;
 			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
+				$file = _DIR_RESTREINT_ABS.$file;
 			}
 		} else {
 			$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
@@ -583,7 +583,7 @@ 
 		$n = '';
 		foreach (explode(',', $liste) as $val) {
 			if ($a = intval($val) and $val === strval($a)) {
-				$n .= ',' . $val;
+				$n .= ','.$val;
 			}
 		}
 		if (strlen($n)) {
@@ -762,8 +762,8 @@ 
 			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
 			$i = 0;
 			do {
-				$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-					[$sous[1] . ' AS id'],
+				$where[$k] = remplace_sous_requete($w, '('.calculer_select(
+					[$sous[1].' AS id'],
 					$from,
 					$from_type,
 					$wheresub,
@@ -776,7 +776,7 @@ 
 					$id,
 					$serveur,
 					false
-				) . ')');
+				).')');
 				if (!$i) {
 					$i = 1;
 					$wherestring = calculer_where_to_string($where[$k]);
@@ -796,7 +796,7 @@ 
 		if ($sous[0] == 'SUBSELECT') {
 			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
 			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+			$where[$k] = remplace_sous_requete($w, '('.calculer_select(
 				$sous[1], # select
 				$sous[2], #from
 				[], #from_type
@@ -811,7 +811,7 @@ 
 				$id,
 				$serveur,
 				false
-			) . ')');
+			).')');
 		}
 		array_pop($where_simples);
 	}
@@ -874,15 +874,15 @@ 
 			// sans recours a preg_match
 			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
 			$afrom[$t][$cle] = [
-				"\n" .
-				($from_type[$cle] ?? 'INNER') . ' JOIN',
+				"\n".
+				($from_type[$cle] ?? 'INNER').' JOIN',
 				$from[$cle],
 				"AS $cle",
 				'ON (',
 				"$cle.$c",
 				'=',
 				"$t.$carr",
-				($and ? 'AND ' . $and : '') .
+				($and ? 'AND '.$and : '').
 				')'
 			];
 			if (isset($afrom[$cle])) {
@@ -920,7 +920,7 @@ 
 		$t = key($from);
 		$c = current($from);
 		reset($from);
-		$e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
+		$e = '/\b('."$t\\.".join('|'.$t.'\.', $equiv).')\b/';
 		if (
 			!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
 				calculer_jointnul($t, $select, $e) or
@@ -938,7 +938,7 @@ 
 			unset($afrom[$t][$nt]);
 			$afrom[$nt] = $afrom[$t];
 			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+			$e = '/\b'.preg_quote($nfrom[6]).'\b/';
 			$t = $nfrom[4];
 			$alias = '';
 			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
@@ -949,14 +949,14 @@ 
 			if ($newcle != $oldcle) {
 				// si l'ancienne cle etait deja dans le select avec un AS
 				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+				$as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
 				if (preg_match($as, implode(',', $select), $m)) {
 					$alias = '';
 				} else {
-					$alias = ', ' . $nfrom[4] . " AS $oldcle";
+					$alias = ', '.$nfrom[4]." AS $oldcle";
 				}
 			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
+			$select = remplacer_jointnul($t.$alias, $select, $e);
 			$join = remplacer_jointnul($t, $join, $e);
 			$where = remplacer_jointnul($t, $where, $e);
 			$having = remplacer_jointnul($t, $having, $e);
@@ -1006,9 +1006,9 @@ 
 	} else {
 		$exp = '';
 		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+			return $exp.join(" $join ", array_map('calculer_where_to_string', $v));
 		} else {
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 		}
 	}
 }
@@ -1070,6 +1070,6 @@ 
 	}
 
 	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)).'_'
+	. md5($GLOBALS['spip_version_code'].' * '.$skel.(isset($GLOBALS['marqueur_skel']) ? '*'.$GLOBALS['marqueur_skel'] : ''));
 }

ecrire/public/debusquer.php

Spacing +87 added lines, -90 removed lines

@@ -147,7 +147,7 @@ 
 		if (!$fonc) {
 			$fonc = $GLOBALS['debug_objets']['principal'];
 		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+		$titre = !$mode ? $fonc : ($mode.(isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' '.$GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
 	}
 	if ($message === false) {
 		lang_select();
@@ -176,7 +176,7 @@ 
 	$fond = $GLOBALS['fond'] ?? '';
 	// une erreur critique sort $message en array
 	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+	spip_log('Debug: '.$debug.' ('.$fond.')');
 
 	return $msg;
 }
@@ -184,7 +184,7 @@ 
 function debusquer_bandeau($erreurs) {
 
 	if (!empty($erreurs)) {
-		$n = [(is_countable($erreurs) ? count($erreurs) : 0) . ' ' . _T('zbug_erreur_squelette')];
+		$n = [(is_countable($erreurs) ? count($erreurs) : 0).' '._T('zbug_erreur_squelette')];
 
 		return debusquer_navigation($erreurs, $n);
 	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
@@ -217,25 +217,25 @@ 
 			$valeur_simple = [];
 			foreach ($valeur as $v) {
 				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
+					$valeur_simple[] = 'array:'.count($v);
 				} elseif (is_object($v)) {
 					$valeur_simple[] = get_class($v);
 				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
+					$valeur_simple[] = "'".$v."'";
 				} else {
 					$valeur_simple[] = $v;
 				}
 			}
 			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
+			$valeur = (($n > 3) ? 'array:'.$n.' ' : '');
+			$valeur .= '['.join(', ', $valeur_simple).']';
 		} elseif (is_object($valeur)) {
 			$valeur = get_class($valeur);
 		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
+			$valeur = "'".$valeur."'";
 		}
-		$res .= "\n<tr><td><strong>" . nl2br((string) entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br((string) entites_html($valeur))
+		$res .= "\n<tr><td><strong>".nl2br((string) entites_html($nom))
+			. '</strong></td><td>:&nbsp;'.nl2br((string) entites_html($valeur))
 			. "</td></tr>\n";
 	}
 
@@ -260,7 +260,7 @@ 
 	if ($ligne) {
 		$msg .= " L$ligne";
 	}
-	spip_log($msg, "debusquer" . _LOG_ERREUR);
+	spip_log($msg, "debusquer"._LOG_ERREUR);
 }
 
 
@@ -285,10 +285,10 @@ 
 				$nom_code = $lieu->descr['nom'];
 				$skel = $lieu->descr['sourcefile'];
 				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette').'#L'.$ligne;
 				$skel = "<a href='$h3'><b>$skel</b></a>";
 				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+					$h3 = parametre_url($h2.$boucle, 'var_mode_affiche', 'boucle');
 					$boucle = "<a href='$h3'><b>$boucle</b></a>";
 				}
 			}
@@ -377,7 +377,7 @@ 
 	}
 
 	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+	$err = '<b>'._T('avis_erreur_mysql')." $errno</b><br /><tt>\n"
 		. spip_htmlspecialchars($msg)
 		. "\n<br /><span style='color: red'><b>"
 		. spip_htmlspecialchars($query)
@@ -391,7 +391,7 @@ 
 
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
+	$id = $nom.$boucle;
 	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
 		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
 			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
@@ -437,7 +437,7 @@ 
 		}
 	}
 	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
+	$incl = ','.$reg[1].'[.]\w$,';
 
 	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
 		if (preg_match($incl, $v)) {
@@ -452,16 +452,13 @@ 
 	[$skel, $boucle, $ligne] = trouve_boucle_debug($n, $nom);
 
 	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
+		return !$ligne ? '' : (' ('.
+				(($nom != $skel) ? _T('squelette_inclus_ligne') : _T('squelette_ligne')).
 				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
 	} else {
 		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
 
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" : " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
 	}
 }
 
@@ -483,14 +480,14 @@ 
 
 	$s = preg_replace(
 		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+		'<\1>\2</\1><br />'."\n".'<\1>\3</\1>',
 		$s
 	);
 
 
 	$tableau = explode('<br />', $s);
 
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: ".($nocpt ? 'hidden' : 'visible').";%s' href='#T%s' title=\"%s\">%0".strval(@strlen(count($tableau)))."d</a></span> %s<br />\n";
 
 	$format10 = str_replace('white', 'lightgrey', $format);
 	$formaterr = 'color: red;';
@@ -534,7 +531,7 @@ 
 	. '" style="cursor: pointer;">'
 	. ($nocpt ? '' : _T('info_numero_abbreviation'))
 	. '</div>
-	' . $res . "</div>\n";
+	' . $res."</div>\n";
 }
 
 // l'environnement graphique du debuggueur
@@ -556,14 +553,14 @@ 
 			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
 				[$legend, $texte, $res2] = debusquer_source($fonc, $mode);
 				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc.'tout'])) {
+				$legend = _T('zbug_'.$mode);
+				$texte = $GLOBALS['debug_objets'][$mode][$fonc.'tout'];
 				$texte = ancre_texte($texte, ['', '']);
 			}
 		} else {
 			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+				return "<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
 			} else {
 				// cas de l'appel sur erreur: montre la page
 				return $GLOBALS['debug_objets']['resultat']['tout'] ?? '';
@@ -571,7 +568,7 @@ 
 		}
 	} else {
 		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc.'tout']);
 		// Si erreur, signaler leur nombre dans le formulaire admin
 		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
 		[$texte, $err] = emboite_texte($val, $fonc, $self);
@@ -582,14 +579,14 @@ 
 		} else {
 			$err = ": $err";
 		}
-		$legend = _T('validation') . ' ' . $err;
+		$legend = _T('validation').' '.$err;
 		$res = $id = '';
 	}
 
 	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+		"<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
 		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+		. "<a href='".$self.'#f_'.substr($fonc, 0, 37)."'> &#8593; "
 		. ($legend ?: $mode)
 		. '</a></legend>'
 		. $texte
@@ -600,7 +597,7 @@ 
 
 function emboite_texte($res, $fonc = '', $self = '') {
 	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
+	$texte = $res->entete.($errs ? '' : $res->page);
 
 	if (!$texte and !$errs) {
 		return [ancre_texte('', ['', '']), false];
@@ -656,7 +653,7 @@ 
 		$err = "<h2 style='text-align: center'>"
 			. $i
 			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
+			. ' '._T('erreur_texte')
 			. "</a></h2><table id='debut_err' style='width: 100%'>"
 			. $err
 			. " </table><a id='fin_err'></a>";
@@ -666,9 +663,9 @@ 
 		[$msg, $fermant, $ouvrant] = $errs[0];
 		$rf = reference_boucle_debug($fermant, $fonc, $self);
 		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+		$err = $msg.
+			"<a href='#L".$fermant."'>$fermant</a>$rf<br />".
+			"<a href='#L".$ouvrant."'>$ouvrant</a>$ro";
 
 		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
 	}
@@ -701,7 +698,7 @@ 
 			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
 		);
 
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
+		$res .= "<fieldset id='f_".$nom."'><legend>"
 			. $t_skel
 			. ' '
 			. $sourcefile
@@ -716,7 +713,7 @@ 
 			. "'>"
 			. _T('zbug_calcul')
 			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+			. (!$temps ? '' : ("\n<span style='display:block;float:".$GLOBALS['spip_lang_right']."'>$temps</span><br />"))
 			. debusquer_contexte($contexte[$sourcefile])
 		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
 		. "</fieldset>\n";
@@ -737,33 +734,33 @@ 
 			$nom = $boucle->id_boucle;
 			$req = $boucle->type_requete;
 			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
+			$self2 = $self.'&amp;var_mode_objet='.$objet;
+
+			$res .= "\n<tr style='background-color: ".
+				($i % 2 ? '#e0e0f0' : '#f8f8ff').
+				"'><td  align='right'>$i</td><td>\n".
+				"<a  class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=boucle#f_$nom_skel'>".
+				_T('zbug_boucle').
+				"</a></td><td>\n<a class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=resultat#f_$nom_skel'>".
+				_T('zbug_resultat').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				$self2.
+				"&amp;var_mode_affiche=code#f_$nom_skel'>".
+				_T('zbug_code').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				str_replace('var_mode=', 'var_profile=', $self2).
+				"'>".
+				_T('zbug_calcul').
+				"</a></td><td>\n".
+				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom).
+				"</td><td>\n".
+				$req.
+				"</td><td>\n".
+				spip_htmlspecialchars($crit).
 				'</td></tr>';
 		}
 	}
@@ -790,7 +787,7 @@ 
 		}
 		//  permettre le copier/coller facile
 		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+		$res = "<div id='T".md5($req)."'>\n<pre>\n".$req."</pre>\n</div>\n";
 		//  formatage et affichage des resultats bruts de la requete
 		$ress_req = spip_query($req);
 		$brut_sql = '';
@@ -800,10 +797,10 @@ 
 		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
 		while ($retours_sql = sql_fetch($ress_req)) {
 			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+				$brut_sql .= '<h3>'.($num == 1 ? $num.' sur '.sql_count($ress_req) : $num).'</h3>';
 				$brut_sql .= '<p>';
 				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+					$brut_sql .= '<strong>'.$key.'</strong> => '.spip_htmlspecialchars(couper($val, 150))."<br />\n";
 				}
 				$brut_sql .= '</p>';
 			}
@@ -814,14 +811,14 @@ 
 			//  ne pas afficher les $contexte_inclus
 			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
 			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+				$res2 .= "\n<br /><fieldset>".interdire_scripts($view).'</fieldset>';
 			}
 		}
 	} elseif ($affiche == 'code') {
 		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+		$res = ancre_texte('<'."?php\n".$quoi."\n?".'>');
 	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
+		$legend = _T('zbug_boucle').' '.$nom;
 		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
 		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
 		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
@@ -839,23 +836,23 @@ 
 	include_spip('public/assembler'); // pour inclure_balise_dynamique
 	include_spip('inc/texte'); // pour corriger_typo
 
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . spip_htmlspecialchars($titre) . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
+	return _DOCTYPE_ECRIRE.
+	html_lang_attributes().
+	"<head>\n<title>".
+	('SPIP '.$GLOBALS['spip_version_affichee'].' '.
+		_T('admin_debug').' '.spip_htmlspecialchars($titre).' ('.
+		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))).
+	")</title>\n".
+	"<meta http-equiv='Content-Type' content='text/html".
+	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '').
+	"' />\n".
 	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+	. "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
+	. "' type='text/css' />".
+	"</head>\n".
+	"<body style='margin:0 10px;'>\n".
+	"<div id='spip-debug-header'>".
+	$corps.
+	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false).
 	'</div></body></html>';
 }

Indentation +695 added lines, -695 removed lines

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