spip / SPIP

ecrire/lang/public_en.php

Indentation +114 added lines, -114 removed lines

@@ -5,118 +5,118 @@
 
 return [
 
-	// A
-	'accueil_site' => 'Home',
-	'article' => 'Article',
-	'articles' => 'Articles',
-	'articles_auteur' => 'Articles by this author',
-	'articles_populaires' => 'Most popular articles',
-	'articles_rubrique' => 'Articles in this section',
-	'aucun_article' => 'No articles here',
-	'aucun_auteur' => 'No authors here',
-	'aucun_site' => 'No links here',
-	'aucune_breve' => 'No news items here',
-	'aucune_rubrique' => 'No sections here',
-	'auteur' => 'Author',
-	'autres' => 'Others',
-	'autres_breves' => 'Other news',
-	'autres_groupes_mots_clefs' => 'Other groups of keywords',
-	'autres_sites' => 'Other websites',
-
-	// B
-	'bonjour' => 'Hello',
-
-	// C
-	'commenter_site' => 'Comment on this site',
-	'contact' => 'Contact',
-	'copie_document_impossible' => 'Impossible to copy this document',
-
-	// D
-	'date' => 'Date',
-	'dernier_ajout' => 'Latest update',
-	'dernieres_breves' => 'Latest news',
-	'derniers_articles' => 'Latest articles',
-	'derniers_commentaires' => 'Latest comments',
-	'derniers_messages_forum' => 'Latest forum posts',
-
-	// E
-	'edition_mode_texte' => 'Text mode only',
-	'en_reponse' => 'Replying to:',
-	'en_resume' => 'Summary',
-	'envoyer_message' => 'Send a message',
-	'espace_prive' => 'Back-office',
-
-	// F
-	'formats_acceptes' => 'Valid formats: @formats@.',
-
-	// H
-	'hierarchie_site' => 'Site map',
-
-	// J
-	'jours' => 'days',
-
-	// L
-	'lien_connecter' => 'Log in',
-
-	// M
-	'meme_auteur' => 'By the same author',
-	'meme_rubrique' => 'Also in this section',
-	'memes_auteurs' => 'By the same authors',
-	'message' => 'Message',
-	'messages_forum' => 'Forum posts',
-	'messages_recents' => 'Most recent forum posts',
-	'mots_clef' => 'Keyword',
-	'mots_clefs' => 'Keywords',
-	'mots_clefs_meme_groupe' => 'Other keywords in this group',
-
-	// N
-	'navigation' => 'Browsing',
-	'nom' => 'Name',
-	'nouveautes' => 'What’s new',
-	'nouveautes_web' => 'What’s new on the Web',
-	'nouveaux_articles' => 'New articles',
-	'nouvelles_breves' => 'Latest news items',
-
-	// P
-	'page_precedente' => 'previous page',
-	'page_suivante' => 'next page',
-	'par_auteur' => 'by ',
-	'participer_site' => 'You can take active part in this website and write your own articles by signing up here. You will receive an email with your account information for the back-office of the site.',
-	'plan_site' => 'Site Map',
-	'popularite' => 'Popularity',
-	'poster_message' => 'Post a message',
-	'proposer_site' => 'You can suggest a website for inclusion in this section:',
-
-	// R
-	'repondre_article' => 'Comment on this article',
-	'repondre_breve' => 'Comment on this news item',
-	'resultats_recherche' => 'Search results',
-	'retour_debut_forums' => 'Back to forum top',
-	'rss_abonnement' => 'Simply copy the following URL into your aggregator:',
-	'rss_abonnement_titre' => 'Subscribe',
-	'rss_abonnement_titre_page' => 'Subscribe to',
-	'rss_explication' => 'An RSS thread collects information about a site’s update. It delivers the content of the tickets or the comments or an extract of them, as well as a link to the full versions et some other information. This thread is to be read by an RSS aggregator.',
-	'rss_explication_titre' => 'What is an RSS feed?',
-	'rubrique' => 'Section',
-	'rubriques' => 'Sections',
-
-	// S
-	'signatures_petition' => 'Signatures',
-	'site_realise_avec_spip' => 'Site powered by SPIP',
-	'sites_web' => 'Websites',
-	'sous_rubriques' => 'Subsections',
-	'spam' => 'Spam',
-	'suite' => 'continue',
-	'sur_web' => 'Around the Web',
-	'syndiquer_rubrique' => 'Subscribe to this section',
-	'syndiquer_site' => 'Subscribe to the whole site',
-
-	// T
-	'texte_lettre_information' => 'Here is the site newsletter',
-	'texte_lettre_information_2' => 'This site contains news items published since',
-
-	// V
-	'ver_imprimer' => 'Printable version',
-	'voir_en_ligne' => 'View online',
-	'voir_squelette' => 'show the template of this page',
+    // A
+    'accueil_site' => 'Home',
+    'article' => 'Article',
+    'articles' => 'Articles',
+    'articles_auteur' => 'Articles by this author',
+    'articles_populaires' => 'Most popular articles',
+    'articles_rubrique' => 'Articles in this section',
+    'aucun_article' => 'No articles here',
+    'aucun_auteur' => 'No authors here',
+    'aucun_site' => 'No links here',
+    'aucune_breve' => 'No news items here',
+    'aucune_rubrique' => 'No sections here',
+    'auteur' => 'Author',
+    'autres' => 'Others',
+    'autres_breves' => 'Other news',
+    'autres_groupes_mots_clefs' => 'Other groups of keywords',
+    'autres_sites' => 'Other websites',
+
+    // B
+    'bonjour' => 'Hello',
+
+    // C
+    'commenter_site' => 'Comment on this site',
+    'contact' => 'Contact',
+    'copie_document_impossible' => 'Impossible to copy this document',
+
+    // D
+    'date' => 'Date',
+    'dernier_ajout' => 'Latest update',
+    'dernieres_breves' => 'Latest news',
+    'derniers_articles' => 'Latest articles',
+    'derniers_commentaires' => 'Latest comments',
+    'derniers_messages_forum' => 'Latest forum posts',
+
+    // E
+    'edition_mode_texte' => 'Text mode only',
+    'en_reponse' => 'Replying to:',
+    'en_resume' => 'Summary',
+    'envoyer_message' => 'Send a message',
+    'espace_prive' => 'Back-office',
+
+    // F
+    'formats_acceptes' => 'Valid formats: @formats@.',
+
+    // H
+    'hierarchie_site' => 'Site map',
+
+    // J
+    'jours' => 'days',
+
+    // L
+    'lien_connecter' => 'Log in',
+
+    // M
+    'meme_auteur' => 'By the same author',
+    'meme_rubrique' => 'Also in this section',
+    'memes_auteurs' => 'By the same authors',
+    'message' => 'Message',
+    'messages_forum' => 'Forum posts',
+    'messages_recents' => 'Most recent forum posts',
+    'mots_clef' => 'Keyword',
+    'mots_clefs' => 'Keywords',
+    'mots_clefs_meme_groupe' => 'Other keywords in this group',
+
+    // N
+    'navigation' => 'Browsing',
+    'nom' => 'Name',
+    'nouveautes' => 'What’s new',
+    'nouveautes_web' => 'What’s new on the Web',
+    'nouveaux_articles' => 'New articles',
+    'nouvelles_breves' => 'Latest news items',
+
+    // P
+    'page_precedente' => 'previous page',
+    'page_suivante' => 'next page',
+    'par_auteur' => 'by ',
+    'participer_site' => 'You can take active part in this website and write your own articles by signing up here. You will receive an email with your account information for the back-office of the site.',
+    'plan_site' => 'Site Map',
+    'popularite' => 'Popularity',
+    'poster_message' => 'Post a message',
+    'proposer_site' => 'You can suggest a website for inclusion in this section:',
+
+    // R
+    'repondre_article' => 'Comment on this article',
+    'repondre_breve' => 'Comment on this news item',
+    'resultats_recherche' => 'Search results',
+    'retour_debut_forums' => 'Back to forum top',
+    'rss_abonnement' => 'Simply copy the following URL into your aggregator:',
+    'rss_abonnement_titre' => 'Subscribe',
+    'rss_abonnement_titre_page' => 'Subscribe to',
+    'rss_explication' => 'An RSS thread collects information about a site’s update. It delivers the content of the tickets or the comments or an extract of them, as well as a link to the full versions et some other information. This thread is to be read by an RSS aggregator.',
+    'rss_explication_titre' => 'What is an RSS feed?',
+    'rubrique' => 'Section',
+    'rubriques' => 'Sections',
+
+    // S
+    'signatures_petition' => 'Signatures',
+    'site_realise_avec_spip' => 'Site powered by SPIP',
+    'sites_web' => 'Websites',
+    'sous_rubriques' => 'Subsections',
+    'spam' => 'Spam',
+    'suite' => 'continue',
+    'sur_web' => 'Around the Web',
+    'syndiquer_rubrique' => 'Subscribe to this section',
+    'syndiquer_site' => 'Subscribe to the whole site',
+
+    // T
+    'texte_lettre_information' => 'Here is the site newsletter',
+    'texte_lettre_information_2' => 'This site contains news items published since',
+
+    // V
+    'ver_imprimer' => 'Printable version',
+    'voir_en_ligne' => 'View online',
+    'voir_squelette' => 'show the template of this page',
 ];

prive/formulaires/inscription.php

Indentation +127 added lines, -127 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -39,26 +39,26 @@ 
  */
 function formulaires_inscription_charger_dist($mode = '', $options = [], $retour = '') {
 
-	$id = ($options['id'] ?? 0);
-
-	// fournir le mode de la config ou tester si l'argument du formulaire est un mode accepte par celle-ci
-	// pas de formulaire si le mode est interdit
-	include_spip('inc/autoriser');
-	if (!autoriser('inscrireauteur', $mode, $id)) {
-		return false;
-	}
-
-	// pas de formulaire si on a déjà une session avec un statut égal ou meilleur au mode
-	if (isset($GLOBALS['visiteur_session']['statut']) && $GLOBALS['visiteur_session']['statut'] <= $mode) {
-		return false;
-	}
-
-	return [
-		'nom_inscription' => '',
-		'mail_inscription' => '',
-		'id' => $id,
-		'_mode' => $mode
-	];
+    $id = ($options['id'] ?? 0);
+
+    // fournir le mode de la config ou tester si l'argument du formulaire est un mode accepte par celle-ci
+    // pas de formulaire si le mode est interdit
+    include_spip('inc/autoriser');
+    if (!autoriser('inscrireauteur', $mode, $id)) {
+        return false;
+    }
+
+    // pas de formulaire si on a déjà une session avec un statut égal ou meilleur au mode
+    if (isset($GLOBALS['visiteur_session']['statut']) && $GLOBALS['visiteur_session']['statut'] <= $mode) {
+        return false;
+    }
+
+    return [
+        'nom_inscription' => '',
+        'mail_inscription' => '',
+        'id' => $id,
+        '_mode' => $mode
+    ];
 }
 
 
@@ -71,65 +71,65 @@ 
  * @return array
  */
 function formulaires_inscription_verifier_dist($mode = '', $options = [], $retour = '') {
-	set_request('_upgrade_auteur'); // securite
-	include_spip('inc/filtres');
-	$erreurs = [];
-
-	$id = ($options['id'] ?? 0);
-
-	include_spip('inc/autoriser');
-	if (!autoriser('inscrireauteur', $mode, $id) || strlen((string) _request('nobot')) > 0) {
-		$erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
-	}
-
-	if (!$nom = _request('nom_inscription')) {
-		$erreurs['nom_inscription'] = _T('info_obligatoire');
-	} elseif (!nom_acceptable(_request('nom_inscription'))) {
-		$erreurs['nom_inscription'] = _T('ecrire:info_nom_pas_conforme');
-	}
-	if (!$mail = (string) _request('mail_inscription')) {
-		$erreurs['mail_inscription'] = _T('info_obligatoire');
-	}
-
-	// compatibilite avec anciennes fonction surchargeables
-	// plus de definition par defaut
-	if ($erreurs === []) {
-		include_spip('action/inscrire_auteur');
-		$f = function_exists('test_inscription') ? 'test_inscription' : 'test_inscription_dist';
-		$declaration = $f($mode, $mail, $nom, $options);
-		if (is_string($declaration)) {
-			$k = (str_contains($declaration, 'mail')) ?
-				'mail_inscription' : 'nom_inscription';
-			$erreurs[$k] = _T($declaration);
-		} else {
-			include_spip('base/abstract_sql');
-
-			if (
-				$row = sql_fetsel(
-					'statut, id_auteur, login, email',
-					'spip_auteurs',
-					'email=' . sql_quote($declaration['email'])
-				)
-			) {
-				if ($row['statut'] == '5poubelle' && empty($declaration['pass'])) {
-					// irrecuperable
-					$erreurs['message_erreur'] = _T('form_forum_access_refuse');
-				} else {
-					if ($row['statut'] != 'nouveau' && empty($declaration['pass'])) {
-						if ((int) $row['statut'] > (int) $mode) {
-							set_request('_upgrade_auteur', $row['id_auteur']);
-						} else {
-							// deja inscrit
-							$erreurs['message_erreur'] = _T('form_forum_email_deja_enregistre');
-						}
-					}
-				}
-				spip_logger()->info($row['id_auteur'] . ' veut se resinscrire');
-			}
-		}
-	}
-
-	return $erreurs;
+    set_request('_upgrade_auteur'); // securite
+    include_spip('inc/filtres');
+    $erreurs = [];
+
+    $id = ($options['id'] ?? 0);
+
+    include_spip('inc/autoriser');
+    if (!autoriser('inscrireauteur', $mode, $id) || strlen((string) _request('nobot')) > 0) {
+        $erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
+    }
+
+    if (!$nom = _request('nom_inscription')) {
+        $erreurs['nom_inscription'] = _T('info_obligatoire');
+    } elseif (!nom_acceptable(_request('nom_inscription'))) {
+        $erreurs['nom_inscription'] = _T('ecrire:info_nom_pas_conforme');
+    }
+    if (!$mail = (string) _request('mail_inscription')) {
+        $erreurs['mail_inscription'] = _T('info_obligatoire');
+    }
+
+    // compatibilite avec anciennes fonction surchargeables
+    // plus de definition par defaut
+    if ($erreurs === []) {
+        include_spip('action/inscrire_auteur');
+        $f = function_exists('test_inscription') ? 'test_inscription' : 'test_inscription_dist';
+        $declaration = $f($mode, $mail, $nom, $options);
+        if (is_string($declaration)) {
+            $k = (str_contains($declaration, 'mail')) ?
+                'mail_inscription' : 'nom_inscription';
+            $erreurs[$k] = _T($declaration);
+        } else {
+            include_spip('base/abstract_sql');
+
+            if (
+                $row = sql_fetsel(
+                    'statut, id_auteur, login, email',
+                    'spip_auteurs',
+                    'email=' . sql_quote($declaration['email'])
+                )
+            ) {
+                if ($row['statut'] == '5poubelle' && empty($declaration['pass'])) {
+                    // irrecuperable
+                    $erreurs['message_erreur'] = _T('form_forum_access_refuse');
+                } else {
+                    if ($row['statut'] != 'nouveau' && empty($declaration['pass'])) {
+                        if ((int) $row['statut'] > (int) $mode) {
+                            set_request('_upgrade_auteur', $row['id_auteur']);
+                        } else {
+                            // deja inscrit
+                            $erreurs['message_erreur'] = _T('form_forum_email_deja_enregistre');
+                        }
+                    }
+                }
+                spip_logger()->info($row['id_auteur'] . ' veut se resinscrire');
+            }
+        }
+    }
+
+    return $erreurs;
 }
 
 /**
@@ -140,51 +140,51 @@ 
  * @return array
  */
 function formulaires_inscription_traiter_dist($mode = '', array $options = [], $retour = '') {
-	if ($retour) {
-		refuser_traiter_formulaire_ajax();
-	}
-
-	include_spip('inc/filtres');
-	include_spip('inc/autoriser');
-
-	$id = ($options['id'] ?? 0);
-
-	if (!autoriser('inscrireauteur', $mode, $id)) {
-		$desc = 'rien a faire ici';
-	} else {
-		if ($id_auteur = _request('_upgrade_auteur')) {
-			include_spip('action/editer_auteur');
-			autoriser_exception('modifier', 'auteur', $id_auteur);
-			autoriser_exception('instituer', 'auteur', $id_auteur);
-			auteur_modifier($id_auteur, ['statut' => $mode]);
-			autoriser_exception('modifier', 'auteur', $id_auteur, false);
-			autoriser_exception('instituer', 'auteur', $id_auteur, false);
-
-			return ['message_ok' => _T('form_forum_email_deja_enregistre'), 'id_auteur' => $id_auteur];
-		}
-
-		$nom = _request('nom_inscription');
-		$mail_complet = _request('mail_inscription');
-
-		$inscrire_auteur = charger_fonction('inscrire_auteur', 'action');
-		$desc = $inscrire_auteur($mode, $mail_complet, $nom, $options);
-	}
-
-	// erreur ?
-	if (is_string($desc)) {
-		return ['message_erreur' => $desc];
-	} // OK
-	else {
-		$retours = [
-			'message_ok' => _T('form_forum_identifiant_mail'),
-			'id_auteur' => $desc['id_auteur']
-		];
-
-		// Si on demande à rediriger juste après validation du formulaire
-		if ($retour) {
-			$retours['redirect'] = $retour;
-		}
-
-		return $retours;
-	}
+    if ($retour) {
+        refuser_traiter_formulaire_ajax();
+    }
+
+    include_spip('inc/filtres');
+    include_spip('inc/autoriser');
+
+    $id = ($options['id'] ?? 0);
+
+    if (!autoriser('inscrireauteur', $mode, $id)) {
+        $desc = 'rien a faire ici';
+    } else {
+        if ($id_auteur = _request('_upgrade_auteur')) {
+            include_spip('action/editer_auteur');
+            autoriser_exception('modifier', 'auteur', $id_auteur);
+            autoriser_exception('instituer', 'auteur', $id_auteur);
+            auteur_modifier($id_auteur, ['statut' => $mode]);
+            autoriser_exception('modifier', 'auteur', $id_auteur, false);
+            autoriser_exception('instituer', 'auteur', $id_auteur, false);
+
+            return ['message_ok' => _T('form_forum_email_deja_enregistre'), 'id_auteur' => $id_auteur];
+        }
+
+        $nom = _request('nom_inscription');
+        $mail_complet = _request('mail_inscription');
+
+        $inscrire_auteur = charger_fonction('inscrire_auteur', 'action');
+        $desc = $inscrire_auteur($mode, $mail_complet, $nom, $options);
+    }
+
+    // erreur ?
+    if (is_string($desc)) {
+        return ['message_erreur' => $desc];
+    } // OK
+    else {
+        $retours = [
+            'message_ok' => _T('form_forum_identifiant_mail'),
+            'id_auteur' => $desc['id_auteur']
+        ];
+
+        // Si on demande à rediriger juste après validation du formulaire
+        if ($retour) {
+            $retours['redirect'] = $retour;
+        }
+
+        return $retours;
+    }
 }

Spacing +2 added lines, -2 removed lines

@@ -108,7 +108,7 @@ 
 				$row = sql_fetsel(
 					'statut, id_auteur, login, email',
 					'spip_auteurs',
-					'email=' . sql_quote($declaration['email'])
+					'email='.sql_quote($declaration['email'])
 				)
 			) {
 				if ($row['statut'] == '5poubelle' && empty($declaration['pass'])) {
@@ -124,7 +124,7 @@ 
 						}
 					}
 				}
-				spip_logger()->info($row['id_auteur'] . ' veut se resinscrire');
+				spip_logger()->info($row['id_auteur'].' veut se resinscrire');
 			}
 		}
 	}

prive/formulaires/mot_de_passe.php

Indentation +131 added lines, -131 removed lines

@@ -10,31 +10,31 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
 
 function retrouve_auteur($id_auteur, $jeton = '') {
-	if ($id_auteur = (int) $id_auteur) {
-		return sql_fetsel(
-			'*',
-			'spip_auteurs',
-			['id_auteur=' . (int) $id_auteur, "statut<>'5poubelle'", "pass<>''", "login<>''"]
-		);
-	} elseif ($jeton) {
-		include_spip('action/inscrire_auteur');
-		if (
-			($auteur = auteur_verifier_jeton($jeton))
-			&& $auteur['statut'] != '5poubelle'
-			&& $auteur['pass'] != ''
-			&& $auteur['login'] != ''
-		) {
-			return $auteur;
-		}
-	}
-
-	return false;
+    if ($id_auteur = (int) $id_auteur) {
+        return sql_fetsel(
+            '*',
+            'spip_auteurs',
+            ['id_auteur=' . (int) $id_auteur, "statut<>'5poubelle'", "pass<>''", "login<>''"]
+        );
+    } elseif ($jeton) {
+        include_spip('action/inscrire_auteur');
+        if (
+            ($auteur = auteur_verifier_jeton($jeton))
+            && $auteur['statut'] != '5poubelle'
+            && $auteur['pass'] != ''
+            && $auteur['login'] != ''
+        ) {
+            return $auteur;
+        }
+    }
+
+    return false;
 }
 
 // chargement des valeurs par defaut des champs du formulaire
@@ -49,30 +49,30 @@ 
  */
 function formulaires_mot_de_passe_charger_dist($id_auteur = null, $jeton = null) {
 
-	$valeurs = [];
-	// compatibilite anciens appels du formulaire
-	if (is_null($jeton)) {
-		$jeton = _request('p');
-	}
-	$auteur = retrouve_auteur($id_auteur, $jeton);
-
-	if ($auteur) {
-		$valeurs['id_auteur'] = $id_auteur; // a toutes fins utiles pour le formulaire
-		if ($jeton) {
-			$valeurs['_hidden'] = '<input type="hidden" name="p" value="' . $jeton . '" />';
-		}
-	} else {
-		$valeurs['message_erreur'] = _T('pass_erreur_code_inconnu');
-		$valeurs['editable'] = false; // pas de saisie
-	}
-	$valeurs['oubli'] = '';
-	// le champ login n'est pas utilise, mais il est destine aux navigateurs smarts
-	// qui veulent remplir le formulaire avec login/mot de passe
-	// et qui sinon remplissent le champ nobot (autocomplete=off n'est pas une option, certains navigateurs l'ignorant)
-	$valeurs['login'] = '';
-	$valeurs['nobot'] = '';
-
-	return $valeurs;
+    $valeurs = [];
+    // compatibilite anciens appels du formulaire
+    if (is_null($jeton)) {
+        $jeton = _request('p');
+    }
+    $auteur = retrouve_auteur($id_auteur, $jeton);
+
+    if ($auteur) {
+        $valeurs['id_auteur'] = $id_auteur; // a toutes fins utiles pour le formulaire
+        if ($jeton) {
+            $valeurs['_hidden'] = '<input type="hidden" name="p" value="' . $jeton . '" />';
+        }
+    } else {
+        $valeurs['message_erreur'] = _T('pass_erreur_code_inconnu');
+        $valeurs['editable'] = false; // pas de saisie
+    }
+    $valeurs['oubli'] = '';
+    // le champ login n'est pas utilise, mais il est destine aux navigateurs smarts
+    // qui veulent remplir le formulaire avec login/mot de passe
+    // et qui sinon remplissent le champ nobot (autocomplete=off n'est pas une option, certains navigateurs l'ignorant)
+    $valeurs['login'] = '';
+    $valeurs['nobot'] = '';
+
+    return $valeurs;
 }
 
 /**
@@ -83,36 +83,36 @@ 
  * @param int $id_auteur
  */
 function formulaires_mot_de_passe_verifier_dist($id_auteur = null, $jeton = null) {
-	$erreurs = [];
-	if (!_request('oubli')) {
-		$erreurs['oubli'] = _T('info_obligatoire');
-	} else {
-		if (strlen((string) ($p = _request('oubli'))) < _PASS_LONGUEUR_MINI) {
-			$erreurs['oubli'] = _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
-		} else {
-			if (!is_null($c = _request('oubli_confirm'))) {
-				if (!$c) {
-					$erreurs['oubli_confirm'] = _T('info_obligatoire');
-				} elseif ($c !== $p) {
-					$erreurs['oubli'] = _T('info_passes_identiques');
-				}
-			}
-		}
-	}
-	if (isset($erreurs['oubli'])) {
-		set_request('oubli');
-		set_request('oubli_confirm');
-	}
-
-	if (_request('nobot')) {
-		$erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
-	}
-	// precaution
-	if (_request('login')) {
-		set_request('login');
-	}
-
-	return $erreurs;
+    $erreurs = [];
+    if (!_request('oubli')) {
+        $erreurs['oubli'] = _T('info_obligatoire');
+    } else {
+        if (strlen((string) ($p = _request('oubli'))) < _PASS_LONGUEUR_MINI) {
+            $erreurs['oubli'] = _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
+        } else {
+            if (!is_null($c = _request('oubli_confirm'))) {
+                if (!$c) {
+                    $erreurs['oubli_confirm'] = _T('info_obligatoire');
+                } elseif ($c !== $p) {
+                    $erreurs['oubli'] = _T('info_passes_identiques');
+                }
+            }
+        }
+    }
+    if (isset($erreurs['oubli'])) {
+        set_request('oubli');
+        set_request('oubli_confirm');
+    }
+
+    if (_request('nobot')) {
+        $erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
+    }
+    // precaution
+    if (_request('login')) {
+        set_request('login');
+    }
+
+    return $erreurs;
 }
 
 /**
@@ -122,61 +122,61 @@ 
  * @param int $id_auteur
  */
 function formulaires_mot_de_passe_traiter_dist($id_auteur = null, $jeton = null) {
-	$res = ['message_ok' => ''];
-	refuser_traiter_formulaire_ajax(); // puisqu'on va loger l'auteur a la volee (c'est bonus)
-
-	// compatibilite anciens appels du formulaire
-	if (is_null($jeton)) {
-		$jeton = _request('p');
-	}
-	$row = retrouve_auteur($id_auteur, $jeton);
-
-	if (
-		$row
-		&& ($id_auteur = $row['id_auteur'])
-		&& ($oubli = _request('oubli'))
-	) {
-		include_spip('action/editer_auteur');
-		include_spip('action/inscrire_auteur');
-		if ($err = auteur_modifier($id_auteur, ['pass' => $oubli])) {
-			$res = ['message_erreur' => $err];
-		} else {
-			auteur_effacer_jeton($id_auteur);
-
-			// Par défaut, on rappelle de s'identifier avec son email s'il existe
-			// et qu'il n'est PAS utilisé par quelqu'un d'autre
-			if (
-				$row['email'] && !sql_fetsel(
-					'id_auteur',
-					'spip_auteurs',
-					[
-						'(email=' . sql_quote($row['email']) . ' or login=' . sql_quote($row['email']) . ')',
-						'id_auteur != ' . $id_auteur
-					],
-					'',
-					'',
-					'0,1'
-				)
-			) {
-				$identifiant = $row['email'];
-			}
-			// Sinon on dit d'utiliser le login
-			else {
-				$identifiant = $row['login'];
-			}
-			$res['message_ok'] = '<b>' . _T('pass_nouveau_enregistre') . '</b>' .
-				'<br />' . _T('pass_rappel_login', ['login' => $identifiant]);
-
-			include_spip('inc/auth');
-			$auth = auth_identifier_login($row['login'], $oubli);
-			if (!is_array($auth)) {
-				spip_logger()->error('Erreur identification ' . $row['login'] . " après changement de mot de passe: $auth");
-			}
-			elseif ($auth['id_auteur'] == $id_auteur) {
-				auth_loger($auth);
-			}
-		}
-	}
-
-	return $res;
+    $res = ['message_ok' => ''];
+    refuser_traiter_formulaire_ajax(); // puisqu'on va loger l'auteur a la volee (c'est bonus)
+
+    // compatibilite anciens appels du formulaire
+    if (is_null($jeton)) {
+        $jeton = _request('p');
+    }
+    $row = retrouve_auteur($id_auteur, $jeton);
+
+    if (
+        $row
+        && ($id_auteur = $row['id_auteur'])
+        && ($oubli = _request('oubli'))
+    ) {
+        include_spip('action/editer_auteur');
+        include_spip('action/inscrire_auteur');
+        if ($err = auteur_modifier($id_auteur, ['pass' => $oubli])) {
+            $res = ['message_erreur' => $err];
+        } else {
+            auteur_effacer_jeton($id_auteur);
+
+            // Par défaut, on rappelle de s'identifier avec son email s'il existe
+            // et qu'il n'est PAS utilisé par quelqu'un d'autre
+            if (
+                $row['email'] && !sql_fetsel(
+                    'id_auteur',
+                    'spip_auteurs',
+                    [
+                        '(email=' . sql_quote($row['email']) . ' or login=' . sql_quote($row['email']) . ')',
+                        'id_auteur != ' . $id_auteur
+                    ],
+                    '',
+                    '',
+                    '0,1'
+                )
+            ) {
+                $identifiant = $row['email'];
+            }
+            // Sinon on dit d'utiliser le login
+            else {
+                $identifiant = $row['login'];
+            }
+            $res['message_ok'] = '<b>' . _T('pass_nouveau_enregistre') . '</b>' .
+                '<br />' . _T('pass_rappel_login', ['login' => $identifiant]);
+
+            include_spip('inc/auth');
+            $auth = auth_identifier_login($row['login'], $oubli);
+            if (!is_array($auth)) {
+                spip_logger()->error('Erreur identification ' . $row['login'] . " après changement de mot de passe: $auth");
+            }
+            elseif ($auth['id_auteur'] == $id_auteur) {
+                auth_loger($auth);
+            }
+        }
+    }
+
+    return $res;
 }

Spacing +7 added lines, -7 removed lines

@@ -20,7 +20,7 @@ 
 		return sql_fetsel(
 			'*',
 			'spip_auteurs',
-			['id_auteur=' . (int) $id_auteur, "statut<>'5poubelle'", "pass<>''", "login<>''"]
+			['id_auteur='.(int) $id_auteur, "statut<>'5poubelle'", "pass<>''", "login<>''"]
 		);
 	} elseif ($jeton) {
 		include_spip('action/inscrire_auteur');
@@ -59,7 +59,7 @@ 
 	if ($auteur) {
 		$valeurs['id_auteur'] = $id_auteur; // a toutes fins utiles pour le formulaire
 		if ($jeton) {
-			$valeurs['_hidden'] = '<input type="hidden" name="p" value="' . $jeton . '" />';
+			$valeurs['_hidden'] = '<input type="hidden" name="p" value="'.$jeton.'" />';
 		}
 	} else {
 		$valeurs['message_erreur'] = _T('pass_erreur_code_inconnu');
@@ -150,8 +150,8 @@ 
 					'id_auteur',
 					'spip_auteurs',
 					[
-						'(email=' . sql_quote($row['email']) . ' or login=' . sql_quote($row['email']) . ')',
-						'id_auteur != ' . $id_auteur
+						'(email='.sql_quote($row['email']).' or login='.sql_quote($row['email']).')',
+						'id_auteur != '.$id_auteur
 					],
 					'',
 					'',
@@ -164,13 +164,13 @@ 
 			else {
 				$identifiant = $row['login'];
 			}
-			$res['message_ok'] = '<b>' . _T('pass_nouveau_enregistre') . '</b>' .
-				'<br />' . _T('pass_rappel_login', ['login' => $identifiant]);
+			$res['message_ok'] = '<b>'._T('pass_nouveau_enregistre').'</b>'.
+				'<br />'._T('pass_rappel_login', ['login' => $identifiant]);
 
 			include_spip('inc/auth');
 			$auth = auth_identifier_login($row['login'], $oubli);
 			if (!is_array($auth)) {
-				spip_logger()->error('Erreur identification ' . $row['login'] . " après changement de mot de passe: $auth");
+				spip_logger()->error('Erreur identification '.$row['login']." après changement de mot de passe: $auth");
 			}
 			elseif ($auth['id_auteur'] == $id_auteur) {
 				auth_loger($auth);

Braces +1 added lines, -2 removed lines

@@ -171,8 +171,7 @@
 			$auth = auth_identifier_login($row['login'], $oubli);
 			if (!is_array($auth)) {
 				spip_logger()->error('Erreur identification ' . $row['login'] . " après changement de mot de passe: $auth");
-			}
-			elseif ($auth['id_auteur'] == $id_auteur) {
+			} elseif ($auth['id_auteur'] == $id_auteur) {
 				auth_loger($auth);
 			}
 		}

ecrire/notifications/instituerarticle.php

Indentation +44 added lines, -44 removed lines

@@ -10,53 +10,53 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Fonction appelee par divers pipelines
 function notifications_instituerarticle_dist($quoi, $id_article, $options) {
 
-	// ne devrait jamais se produire
-	if ($options['statut'] == $options['statut_ancien']) {
-		spip_logger('notifications')->info('statut inchange');
-
-		return;
-	}
-
-	include_spip('inc/texte');
-
-	$modele = '';
-	if ($options['statut'] == 'publie') {
-		if (
-			$GLOBALS['meta']['post_dates'] == 'non'
-			&& strtotime((string) $options['date']) > time()
-		) {
-			$modele = 'notifications/article_valide';
-		} else {
-			$modele = 'notifications/article_publie';
-		}
-	}
-
-	if ($options['statut'] == 'prop' && $options['statut_ancien'] != 'publie') {
-		$modele = 'notifications/article_propose';
-	}
-
-	if ($modele) {
-		$destinataires = [];
-		if ($GLOBALS['meta']['suivi_edito'] == 'oui') {
-			$destinataires = explode(',', (string) $GLOBALS['meta']['adresse_suivi']);
-		}
-
-
-		$destinataires = pipeline(
-			'notifications_destinataires',
-			[
-				'args' => ['quoi' => $quoi, 'id' => $id_article, 'options' => $options],
-				'data' => $destinataires
-			]
-		);
-
-		$texte = email_notification_article($id_article, $modele);
-		notifications_envoyer_mails($destinataires, $texte);
-	}
+    // ne devrait jamais se produire
+    if ($options['statut'] == $options['statut_ancien']) {
+        spip_logger('notifications')->info('statut inchange');
+
+        return;
+    }
+
+    include_spip('inc/texte');
+
+    $modele = '';
+    if ($options['statut'] == 'publie') {
+        if (
+            $GLOBALS['meta']['post_dates'] == 'non'
+            && strtotime((string) $options['date']) > time()
+        ) {
+            $modele = 'notifications/article_valide';
+        } else {
+            $modele = 'notifications/article_publie';
+        }
+    }
+
+    if ($options['statut'] == 'prop' && $options['statut_ancien'] != 'publie') {
+        $modele = 'notifications/article_propose';
+    }
+
+    if ($modele) {
+        $destinataires = [];
+        if ($GLOBALS['meta']['suivi_edito'] == 'oui') {
+            $destinataires = explode(',', (string) $GLOBALS['meta']['adresse_suivi']);
+        }
+
+
+        $destinataires = pipeline(
+            'notifications_destinataires',
+            [
+                'args' => ['quoi' => $quoi, 'id' => $id_article, 'options' => $options],
+                'data' => $destinataires
+            ]
+        );
+
+        $texte = email_notification_article($id_article, $modele);
+        notifications_envoyer_mails($destinataires, $texte);
+    }
 }

ecrire/install/etape_3.php

Indentation +348 added lines, -348 removed lines

@@ -12,7 +12,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/headers');
@@ -20,201 +20,201 @@ 
 
 function install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db) {
 
-	$logger = spip_logger();
-
-	// Prefix des tables :
-	// S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
-	// a partir de ce qui est envoye a l'installation
-	if (!defined('_INSTALL_TABLE_PREFIX')) {
-		$table_prefix = ($GLOBALS['table_prefix'] != 'spip')
-			? $GLOBALS['table_prefix']
-			: preparer_prefixe_tables(_request('tprefix'));
-		// S'il est vide on remet spip
-		if (!$table_prefix) {
-			$table_prefix = 'spip';
-		}
-	} else {
-		$table_prefix = _INSTALL_TABLE_PREFIX;
-	}
-
-	if (preg_match(',(.*):(.*),', (string) $adresse_db, $r)) {
-		[, $adresse_db, $port] = $r;
-	} else {
-		$port = '';
-	}
-
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	$fquery = sql_serveur('query', $server_db);
-	if ($choix_db == 'new_spip') {
-		$re = ',^[a-z_][a-z_0-9-]*$,i';
-		if (preg_match($re, (string) $sel_db)) {
-			$ok = sql_create_base($sel_db, $server_db);
-			if (!$ok) {
-				$re = "Impossible de creer la base $re";
-				$logger->info($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
-			}
-		} else {
-			$re = "Le nom de la base doit correspondre a $re";
-			$logger->info($re);
-
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
-		}
-	}
-
-	// on rejoue la connexion apres avoir teste si il faut lui indiquer
-	// un sql_mode
-	install_mode_appel($server_db, false);
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	// Completer le tableau decrivant la connexion
-
-	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
-	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
-
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
-	if ($old) {
-		$old = sql_fetch($old, $server_db);
-	}
-	if (!$old) {
-		// Si possible, demander au serveur d'envoyer les textes
-		// dans le codage std de SPIP,
-		$charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
-
-		if ($charset) {
-			sql_set_charset($charset['charset'], $server_db);
-			$GLOBALS['meta']['charset_sql_base'] =
-				$charset['charset'];
-			$GLOBALS['meta']['charset_collation_sql_base'] =
-				$charset['collation'];
-			$GLOBALS['meta']['charset_sql_connexion'] =
-				$charset['charset'];
-			$charsetbase = $charset['charset'];
-		} else {
-			$logger->info(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
-			$charsetbase = 'standard';
-		}
-		$logger->info("Creation des tables. Codage $charsetbase");
-		creer_base($server_db); // AT LAST
-		// memoriser avec quel charset on l'a creee
-
-		if ($charset) {
-			$t = [
-				'nom' => 'charset_sql_base',
-				'valeur' => $charset['charset'],
-				'impt' => 'non'
-			];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-			$t['nom'] = 'charset_collation_sql_base';
-			$t['valeur'] = $charset['collation'];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-			$t['nom'] = 'charset_sql_connexion';
-			$t['valeur'] = $charset['charset'];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-		}
-		$t = [
-			'nom' => 'version_installee',
-			'valeur' => $GLOBALS['spip_version_base'],
-			'impt' => 'non'
-		];
-		@sql_insertq('spip_meta', $t, [], $server_db);
-		$t['nom'] = 'nouvelle_install';
-		$t['valeur'] = 1;
-		@sql_insertq('spip_meta', $t, [], $server_db);
-		// positionner la langue par defaut du site si un cookie de lang a ete mis
-		if (isset($_COOKIE['spip_lang_ecrire'])) {
-			@sql_insertq(
-				'spip_meta',
-				['nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']],
-				[],
-				$server_db
-			);
-		}
-	} else {
-		// pour recreer les tables disparues au besoin
-		$logger->info('Table des Meta deja la. Verification des autres.');
-		creer_base($server_db);
-		$fupdateq = sql_serveur('updateq', $server_db);
-
-		$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
-
-		if ($r) {
-			$r = sql_fetch($r, $server_db);
-		}
-		$version_installee = $r ? (double)$r['valeur'] : 0;
-		if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
-			$fupdateq(
-				'spip_meta',
-				['valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'],
-				"nom='version_installee'",
-				'',
-				$server_db
-			);
-			$logger->info('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
-		}
-		// eliminer la derniere operation d'admin mal terminee
-		// notamment la mise a jour
-		@$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
-	}
-
-	// recuperer le charset de la connexion dans les meta
-	$charset = '';
-	$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
-	if ($r) {
-		$r = sql_fetch($r, $server_db);
-	}
-	if ($r) {
-		$charset = $r['valeur'];
-	}
-
-	$ligne_rappel = install_mode_appel($server_db);
-
-	$result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
-	if (!$result_ok) {
-		return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
-	}
-
-	if ($chmod_db) {
-		install_fichier_connexion(
-			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
-		);
-	}
-
-	// si ce fichier existe a cette etape c'est qu'il provient
-	// d'une installation qui ne l'a pas cree correctement.
-	// Le supprimer pour que _FILE_CONNECT_TMP prime.
-
-	if (_FILE_CONNECT && file_exists(_FILE_CONNECT)) {
-		spip_unlink(_FILE_CONNECT);
-	}
-
-	install_fichier_connexion(
-		_FILE_CONNECT_TMP,
-		$ligne_rappel
-		. install_connexion(
-			$adresse_db,
-			$port,
-			$login_db,
-			$pass_db,
-			$sel_db,
-			$server_db,
-			$table_prefix,
-			'',
-			$charset
-		)
-	);
-
-	return '';
+    $logger = spip_logger();
+
+    // Prefix des tables :
+    // S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
+    // a partir de ce qui est envoye a l'installation
+    if (!defined('_INSTALL_TABLE_PREFIX')) {
+        $table_prefix = ($GLOBALS['table_prefix'] != 'spip')
+            ? $GLOBALS['table_prefix']
+            : preparer_prefixe_tables(_request('tprefix'));
+        // S'il est vide on remet spip
+        if (!$table_prefix) {
+            $table_prefix = 'spip';
+        }
+    } else {
+        $table_prefix = _INSTALL_TABLE_PREFIX;
+    }
+
+    if (preg_match(',(.*):(.*),', (string) $adresse_db, $r)) {
+        [, $adresse_db, $port] = $r;
+    } else {
+        $port = '';
+    }
+
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    $fquery = sql_serveur('query', $server_db);
+    if ($choix_db == 'new_spip') {
+        $re = ',^[a-z_][a-z_0-9-]*$,i';
+        if (preg_match($re, (string) $sel_db)) {
+            $ok = sql_create_base($sel_db, $server_db);
+            if (!$ok) {
+                $re = "Impossible de creer la base $re";
+                $logger->info($re);
+                return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+            }
+        } else {
+            $re = "Le nom de la base doit correspondre a $re";
+            $logger->info($re);
+
+            return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+        }
+    }
+
+    // on rejoue la connexion apres avoir teste si il faut lui indiquer
+    // un sql_mode
+    install_mode_appel($server_db, false);
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    // Completer le tableau decrivant la connexion
+
+    $GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
+    $GLOBALS['connexions'][$server_db]['db'] = $sel_db;
+
+    $old = sql_showbase($table_prefix . '_meta', $server_db);
+    if ($old) {
+        $old = sql_fetch($old, $server_db);
+    }
+    if (!$old) {
+        // Si possible, demander au serveur d'envoyer les textes
+        // dans le codage std de SPIP,
+        $charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
+
+        if ($charset) {
+            sql_set_charset($charset['charset'], $server_db);
+            $GLOBALS['meta']['charset_sql_base'] =
+                $charset['charset'];
+            $GLOBALS['meta']['charset_collation_sql_base'] =
+                $charset['collation'];
+            $GLOBALS['meta']['charset_sql_connexion'] =
+                $charset['charset'];
+            $charsetbase = $charset['charset'];
+        } else {
+            $logger->info(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+            $charsetbase = 'standard';
+        }
+        $logger->info("Creation des tables. Codage $charsetbase");
+        creer_base($server_db); // AT LAST
+        // memoriser avec quel charset on l'a creee
+
+        if ($charset) {
+            $t = [
+                'nom' => 'charset_sql_base',
+                'valeur' => $charset['charset'],
+                'impt' => 'non'
+            ];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+            $t['nom'] = 'charset_collation_sql_base';
+            $t['valeur'] = $charset['collation'];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+            $t['nom'] = 'charset_sql_connexion';
+            $t['valeur'] = $charset['charset'];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+        }
+        $t = [
+            'nom' => 'version_installee',
+            'valeur' => $GLOBALS['spip_version_base'],
+            'impt' => 'non'
+        ];
+        @sql_insertq('spip_meta', $t, [], $server_db);
+        $t['nom'] = 'nouvelle_install';
+        $t['valeur'] = 1;
+        @sql_insertq('spip_meta', $t, [], $server_db);
+        // positionner la langue par defaut du site si un cookie de lang a ete mis
+        if (isset($_COOKIE['spip_lang_ecrire'])) {
+            @sql_insertq(
+                'spip_meta',
+                ['nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']],
+                [],
+                $server_db
+            );
+        }
+    } else {
+        // pour recreer les tables disparues au besoin
+        $logger->info('Table des Meta deja la. Verification des autres.');
+        creer_base($server_db);
+        $fupdateq = sql_serveur('updateq', $server_db);
+
+        $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
+
+        if ($r) {
+            $r = sql_fetch($r, $server_db);
+        }
+        $version_installee = $r ? (double)$r['valeur'] : 0;
+        if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
+            $fupdateq(
+                'spip_meta',
+                ['valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'],
+                "nom='version_installee'",
+                '',
+                $server_db
+            );
+            $logger->info('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+        }
+        // eliminer la derniere operation d'admin mal terminee
+        // notamment la mise a jour
+        @$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
+    }
+
+    // recuperer le charset de la connexion dans les meta
+    $charset = '';
+    $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
+    if ($r) {
+        $r = sql_fetch($r, $server_db);
+    }
+    if ($r) {
+        $charset = $r['valeur'];
+    }
+
+    $ligne_rappel = install_mode_appel($server_db);
+
+    $result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
+    if (!$result_ok) {
+        return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
+    }
+
+    if ($chmod_db) {
+        install_fichier_connexion(
+            _FILE_CHMOD_TMP,
+            "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+        );
+    }
+
+    // si ce fichier existe a cette etape c'est qu'il provient
+    // d'une installation qui ne l'a pas cree correctement.
+    // Le supprimer pour que _FILE_CONNECT_TMP prime.
+
+    if (_FILE_CONNECT && file_exists(_FILE_CONNECT)) {
+        spip_unlink(_FILE_CONNECT);
+    }
+
+    install_fichier_connexion(
+        _FILE_CONNECT_TMP,
+        $ligne_rappel
+        . install_connexion(
+            $adresse_db,
+            $port,
+            $login_db,
+            $pass_db,
+            $sel_db,
+            $server_db,
+            $table_prefix,
+            '',
+            $charset
+        )
+    );
+
+    return '';
 }
 
 /**
@@ -229,166 +229,166 @@ 
  * @return string Le préfixe corrigé
  */
 function preparer_prefixe_tables($prefixe) {
-	return trim(preg_replace(',^\d+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
+    return trim(preg_replace(',^\d+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
 }
 
 function install_propose_ldap() {
-	return generer_form_ecrire('install', (
-	fieldset(
-		_T('info_authentification_externe'),
-		[
-			'etape' => [
-				'label' => _T('texte_annuaire_ldap_1'),
-				'valeur' => 'ldap1',
-				'hidden' => true
-			]
-		],
-		bouton_suivant(_T('bouton_acces_ldap'))
-	)));
+    return generer_form_ecrire('install', (
+    fieldset(
+        _T('info_authentification_externe'),
+        [
+            'etape' => [
+                'label' => _T('texte_annuaire_ldap_1'),
+                'valeur' => 'ldap1',
+                'hidden' => true
+            ]
+        ],
+        bouton_suivant(_T('bouton_acces_ldap'))
+    )));
 }
 
 
 function install_premier_auteur($email, $login, $nom, #[\SensitiveParameter] $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
-	info_etape(
-		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
-		($auteur_obligatoire ?
-			''
-			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
-		)
-	)
-	. generer_form_ecrire('install', (
-		"\n<input type='hidden' name='etape' value='3b' />"
-		. $hidden
-		. fieldset(
-			_T('info_identification_publique'),
-			[
-				'nom' => [
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
-					'valeur' => $nom,
-					'required' => $auteur_obligatoire,
-				],
-				'email' => [
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
-					'valeur' => $email,
-				]
-			]
-		)
-
-		. fieldset(
-			_T('entree_identifiants_connexion'),
-			[
-				'login' => [
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
-						'info_login_trop_court_car_pluriel',
-						['nb' => _LOGIN_TROP_COURT]
-					) . "\n",
-					'valeur' => $login,
-					'required' => $auteur_obligatoire,
-				],
-				'pass' => [
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
-						'info_passe_trop_court_car_pluriel',
-						['nb' => _PASS_LONGUEUR_MINI]
-					) . "\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				],
-				'pass_verif' => [
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				]
-			]
-		)
-		. bouton_suivant()));
+    return info_progression_etape(3, 'etape_', 'install/') .
+    info_etape(
+        _T('info_informations_personnelles'),
+        '<b>' . _T('texte_informations_personnelles_1') . '</b>' .
+        aider('install5', true) .
+        '<p>' .
+        ($auteur_obligatoire ?
+            ''
+            :
+            _T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+        )
+    )
+    . generer_form_ecrire('install', (
+        "\n<input type='hidden' name='etape' value='3b' />"
+        . $hidden
+        . fieldset(
+            _T('info_identification_publique'),
+            [
+                'nom' => [
+                    'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+                    'valeur' => $nom,
+                    'required' => $auteur_obligatoire,
+                ],
+                'email' => [
+                    'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+                    'valeur' => $email,
+                ]
+            ]
+        )
+
+        . fieldset(
+            _T('entree_identifiants_connexion'),
+            [
+                'login' => [
+                    'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+                        'info_login_trop_court_car_pluriel',
+                        ['nb' => _LOGIN_TROP_COURT]
+                    ) . "\n",
+                    'valeur' => $login,
+                    'required' => $auteur_obligatoire,
+                ],
+                'pass' => [
+                    'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+                        'info_passe_trop_court_car_pluriel',
+                        ['nb' => _PASS_LONGUEUR_MINI]
+                    ) . "\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                ],
+                'pass_verif' => [
+                    'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                ]
+            ]
+        )
+        . bouton_suivant()));
 }
 
 function install_etape_3_dist() {
-	$ldap_present = _request('ldap_present');
-
-	if (!$ldap_present) {
-		$adresse_db = defined('_INSTALL_HOST_DB')
-			? _INSTALL_HOST_DB
-			: _request('adresse_db');
-
-		$login_db = defined('_INSTALL_USER_DB')
-			? _INSTALL_USER_DB
-			: _request('login_db');
-
-		$pass_db = defined('_INSTALL_PASS_DB')
-			? _INSTALL_PASS_DB
-			: _request('pass_db');
-
-		$server_db = defined('_INSTALL_SERVER_DB')
-			? _INSTALL_SERVER_DB
-			: _request('server_db');
-
-		$chmod_db = defined('_SPIP_CHMOD')
-			? _SPIP_CHMOD
-			: _request('chmod');
-
-		$choix_db = defined('_INSTALL_NAME_DB')
-			? _INSTALL_NAME_DB
-			: _request('choix_db');
-
-		$sel_db = ($choix_db == 'new_spip')
-			? _request('table_new') : $choix_db;
-
-		$res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
-
-		if ($res) {
-			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
-				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
-				. '</div>';
-		}
-	} else {
-		$res = '';
-		[$adresse_db, $login_db, $pass_db, $sel_db, $server_db] = analyse_fichier_connection(_FILE_CONNECT_TMP);
-		$GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
-	}
-
-	if (!$res) {
-		if (file_exists(_FILE_CONNECT_TMP)) {
-			include(_FILE_CONNECT_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		if (file_exists(_FILE_CHMOD_TMP)) {
-			include(_FILE_CHMOD_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
-			. (defined('_INSTALL_NAME_DB') ? ''
-				: "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
-
-		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
-
-		$res = "<div class='success'><b>"
-			. _T('info_base_installee')
-			. '</b></div>'
-			. install_premier_auteur(
-				_request('email'),
-				_request('login'),
-				_request('nom'),
-				_request('pass'),
-				$hidden,
-				$auteur_obligatoire
-			)
-			. (($ldap_present || !function_exists('ldap_connect'))
-				? '' : install_propose_ldap());
-	}
-
-
-	$minipage = new Installation();
-	echo $minipage->page($res);
+    $ldap_present = _request('ldap_present');
+
+    if (!$ldap_present) {
+        $adresse_db = defined('_INSTALL_HOST_DB')
+            ? _INSTALL_HOST_DB
+            : _request('adresse_db');
+
+        $login_db = defined('_INSTALL_USER_DB')
+            ? _INSTALL_USER_DB
+            : _request('login_db');
+
+        $pass_db = defined('_INSTALL_PASS_DB')
+            ? _INSTALL_PASS_DB
+            : _request('pass_db');
+
+        $server_db = defined('_INSTALL_SERVER_DB')
+            ? _INSTALL_SERVER_DB
+            : _request('server_db');
+
+        $chmod_db = defined('_SPIP_CHMOD')
+            ? _SPIP_CHMOD
+            : _request('chmod');
+
+        $choix_db = defined('_INSTALL_NAME_DB')
+            ? _INSTALL_NAME_DB
+            : _request('choix_db');
+
+        $sel_db = ($choix_db == 'new_spip')
+            ? _request('table_new') : $choix_db;
+
+        $res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
+
+        if ($res) {
+            $res = info_progression_etape(2, 'etape_', 'install/', true)
+                . "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+                . $res
+                . '<p>' . _T('texte_operation_echec') . '</p>'
+                . '</div>';
+        }
+    } else {
+        $res = '';
+        [$adresse_db, $login_db, $pass_db, $sel_db, $server_db] = analyse_fichier_connection(_FILE_CONNECT_TMP);
+        $GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
+    }
+
+    if (!$res) {
+        if (file_exists(_FILE_CONNECT_TMP)) {
+            include(_FILE_CONNECT_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        if (file_exists(_FILE_CHMOD_TMP)) {
+            include(_FILE_CHMOD_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        $hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
+            . (defined('_INSTALL_NAME_DB') ? ''
+                : "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
+
+        $auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
+
+        $res = "<div class='success'><b>"
+            . _T('info_base_installee')
+            . '</b></div>'
+            . install_premier_auteur(
+                _request('email'),
+                _request('login'),
+                _request('nom'),
+                _request('pass'),
+                $hidden,
+                $auteur_obligatoire
+            )
+            . (($ldap_present || !function_exists('ldap_connect'))
+                ? '' : install_propose_ldap());
+    }
+
+
+    $minipage = new Installation();
+    echo $minipage->page($res);
 }

Spacing +24 added lines, -24 removed lines

@@ -47,7 +47,7 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	$fquery = sql_serveur('query', $server_db);
 	if ($choix_db == 'new_spip') {
@@ -57,13 +57,13 @@ 
 			if (!$ok) {
 				$re = "Impossible de creer la base $re";
 				$logger->info($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+				return '<p>'._T('avis_connexion_erreur_creer_base')."</p><!--\n$re\n-->";
 			}
 		} else {
 			$re = "Le nom de la base doit correspondre a $re";
 			$logger->info($re);
 
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+			return '<p>'._T('avis_connexion_erreur_nom_base')."</p><!--\n$re\n-->";
 		}
 	}
 
@@ -74,14 +74,14 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	// Completer le tableau decrivant la connexion
 
 	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
 	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
 
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
+	$old = sql_showbase($table_prefix.'_meta', $server_db);
 	if ($old) {
 		$old = sql_fetch($old, $server_db);
 	}
@@ -100,7 +100,7 @@ 
 				$charset['charset'];
 			$charsetbase = $charset['charset'];
 		} else {
-			$logger->info(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+			$logger->info(_DEFAULT_CHARSET.' inconnu du serveur SQL');
 			$charsetbase = 'standard';
 		}
 		$logger->info("Creation des tables. Codage $charsetbase");
@@ -150,7 +150,7 @@ 
 		if ($r) {
 			$r = sql_fetch($r, $server_db);
 		}
-		$version_installee = $r ? (double)$r['valeur'] : 0;
+		$version_installee = $r ? (double) $r['valeur'] : 0;
 		if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
 			$fupdateq(
 				'spip_meta',
@@ -159,7 +159,7 @@ 
 				'',
 				$server_db
 			);
-			$logger->info('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+			$logger->info('nouvelle version installee: '.$GLOBALS['spip_version_base']);
 		}
 		// eliminer la derniere operation d'admin mal terminee
 		// notamment la mise a jour
@@ -186,7 +186,7 @@ 
 	if ($chmod_db) {
 		install_fichier_connexion(
 			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ".sprintf('0%3o', $chmod_db).");\n"
 		);
 	}
 
@@ -249,16 +249,16 @@ 
 
 
 function install_premier_auteur($email, $login, $nom, #[\SensitiveParameter] $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
+	return info_progression_etape(3, 'etape_', 'install/').
 	info_etape(
 		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
+		'<b>'._T('texte_informations_personnelles_1').'</b>'.
+		aider('install5', true).
+		'<p>'.
 		($auteur_obligatoire ?
 			''
 			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+			_T('texte_informations_personnelles_2').' '._T('info_laisser_champs_vides')
 		)
 	)
 	. generer_form_ecrire('install', (
@@ -268,12 +268,12 @@ 
 			_T('info_identification_publique'),
 			[
 				'nom' => [
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+					'label' => '<b>'._T('entree_signature')."</b><br />\n"._T('entree_nom_pseudo_1')."\n",
 					'valeur' => $nom,
 					'required' => $auteur_obligatoire,
 				],
 				'email' => [
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+					'label' => '<b>'._T('entree_adresse_email')."</b>\n",
 					'valeur' => $email,
 				]
 			]
@@ -283,23 +283,23 @@ 
 			_T('entree_identifiants_connexion'),
 			[
 				'login' => [
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_login')."</b><br />\n"._T(
 						'info_login_trop_court_car_pluriel',
 						['nb' => _LOGIN_TROP_COURT]
-					) . "\n",
+					)."\n",
 					'valeur' => $login,
 					'required' => $auteur_obligatoire,
 				],
 				'pass' => [
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_mot_passe')."</b><br />\n"._T(
 						'info_passe_trop_court_car_pluriel',
 						['nb' => _PASS_LONGUEUR_MINI]
-					) . "\n",
+					)."\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				],
 				'pass_verif' => [
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+					'label' => '<b>'._T('info_confirmer_passe')."</b><br />\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				]
@@ -343,9 +343,9 @@ 
 
 		if ($res) {
 			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+				. "<div class='error'><h3>"._T('avis_operation_echec').'</h3>'
 				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
+				. '<p>'._T('texte_operation_echec').'</p>'
 				. '</div>';
 		}
 	} else {
@@ -369,7 +369,7 @@ 
 
 		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
 			. (defined('_INSTALL_NAME_DB') ? ''
-				: "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
+				: "\n<input type='hidden' name='sel_db' value=\"".spip_htmlspecialchars($sel_db).'" />');
 
 		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
 

ecrire/public/parametrer.php

Indentation +247 added lines, -247 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_fichiers_fonctions();
@@ -29,178 +29,178 @@ 
 # En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines
 
 function public_parametrer_dist($fond, $contexte = '', $cache = '', string $connect = '') {
-	static $composer, $styliser, $notes = null;
-	$courant = null;
-	$page = tester_redirection($fond, $contexte, $connect);
-	if ($page) {
-		return $page;
-	}
-
-	if (isset($contexte['lang'])) {
-		$lang = $contexte['lang'];
-	} elseif (!isset($lang)) {
-		$lang = $GLOBALS['meta']['langue_site'];
-	}
-
-	$select = ((!isset($GLOBALS['forcer_lang']) || !$GLOBALS['forcer_lang']) && $lang != $GLOBALS['spip_lang']);
-	if ($select) {
-		$select = lang_select($lang);
-	}
-
-	$debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
-
-	if (!$styliser) {
-		$styliser = charger_fonction('styliser', 'public');
-	}
-	[$skel, $mime_type, $gram, $sourcefile] =
-		$styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect);
-
-	if ($skel) {
-		// sauver le nom de l'eventuel squelette en cours d'execution
-		// (recursion possible a cause des modeles)
-		if ($debug) {
-			$courant = $GLOBALS['debug_objets']['courant'] ?? null;
-			$GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
-		}
-
-		// charger le squelette en specifiant les langages cibles et source
-		// au cas il faudrait le compiler (source posterieure au resultat)
-
-		if (!$composer) {
-			$composer = charger_fonction('composer', 'public');
-		}
-		$fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
-	} else {
-		$fonc = '';
-	}
-
-	if (!$fonc) { // squelette inconnu (==='') ou faux (===false)
-		$page = $fonc;
-	} else {
-		// Preparer l'appel de la fonction principale du squelette
-
-		spip_timer($a = 'calcul page ' . random_int(0, 1000));
-
-		// On cree un marqueur de notes unique lie a cette composition
-		// et on enregistre l'etat courant des globales de notes...
-		if (is_null($notes)) {
-			$notes = charger_fonction('notes', 'inc', true);
-		}
-		if ($notes) {
-			$notes('', 'empiler');
-		}
-
-		// Rajouter d'office ces deux parametres
-		// (mais vaudrait mieux que le compilateur sache le simuler
-		// car ca interdit l'usage de criteres conditionnels dessus).
-		if (!isset($contexte['date'])) {
-			$contexte['date'] = date('Y-m-d H:i:s');
-			$contexte['date_default'] = true;
-		} else {
-			$contexte['date'] = normaliser_date($contexte['date'], true);
-		}
-
-		if (!isset($contexte['date_redac'])) {
-			$contexte['date_redac'] = date('Y-m-d H:i:s');
-			$contexte['date_redac_default'] = true;
-		} else {
-			$contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
-		}
-
-		// Passer le nom du cache pour produire sa destruction automatique
-		try {
-			$page = $fonc(['cache' => $cache], [$contexte]);
-		} catch (Throwable $e) {
-			$msg = _T('zbug_erreur_execution_page') . " $sourcefile";
-			$full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
-			$full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
-			$corps = "<pre>$msg</pre>";
-			$page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
-			erreur_squelette($full_msg);
-			unset($msg, $full_msg, $corps);
-		}
-
-		// Restituer les globales de notes telles qu'elles etaient avant l'appel
-		// Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
-		// etre dans son resultat, autrement elles ne seraient pas prises en
-		// compte a chaque calcul d'un texte contenant un modele, mais seulement
-		// quand le modele serait calcule, et on aurait des resultats incoherents)
-		if ($notes) {
-			$notes('', 'depiler');
-		}
-
-		// reinjecter en dynamique la pile des notes
-		// si il y a des inclure dynamiques
-		// si la pile n'est pas vide
-		// la generalisation de cette injection permettrait de corriger le point juste au dessus
-		// en faisant remonter les notes a l'incluant (A tester et valider avant application)
-		if ($notes) {
-			$page['notes'] = $notes('', 'sauver_etat');
-		}
-
-		// spip_log: un joli contexte
-		$infos = presenter_contexte(array_filter($contexte));
-
-		$profile = spip_timer($a);
-		spip_logger()->info("calcul ($profile) [$skel] $infos"
-			. ' (' . strlen((string) $page['texte']) . ' octets)');
-
-		if (defined('_CALCUL_PROFILER') && (int) $profile > _CALCUL_PROFILER) {
-			spip_logger('profiler')->notice("calcul ($profile) [$skel] $infos"
-				. ' (' . strlen((string) $page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI']);
-		}
-
-		if ($debug) {
-			// si c'est ce que demande le debusqueur, lui passer la main
-			$t = strlen((string) $page['texte']) ? $page['texte'] : ' ';
-			$GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
-			$GLOBALS['debug_objets']['courant'] = $courant;
-			$GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
-			if (
-				$GLOBALS['debug_objets']['sourcefile']
-				&& _request('var_mode_objet') == $fonc
-				&& _request('var_mode_affiche') == 'resultat'
-			) {
-				erreur_squelette();
-			}
-		}
-		// Si #CACHE{} n'etait pas la, le mettre a $delais
-		if (!isset($page['entetes']['X-Spip-Cache'])) {
-			// Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut
-			// si aucun #CACHE{} spécifié
-			// le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme
-			// entre public et prive
-			if (test_espace_prive() || str_starts_with((string) $fond, 'modeles/')) {
-				$page['entetes']['X-Spip-Cache'] = 0;
-			} else {
-				$page['entetes']['X-Spip-Cache'] = $GLOBALS['delais'] ?? 36000;
-			}
-		}
-
-		$page['contexte'] = $contexte;
-
-		// faire remonter le fichier source
-		static $js_inclus = false;
-		if (defined('_VAR_INCLURE') && _VAR_INCLURE) {
-			$page['sourcefile'] = $sourcefile;
-			$page['texte'] =
-				"<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
-				. ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
-			$js_inclus = true;
-		}
-
-		// Si un modele contenait #SESSION, on note l'info dans $page
-		if (isset($GLOBALS['cache_utilise_session'])) {
-			$page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
-			unset($GLOBALS['cache_utilise_session']);
-		}
-	}
-
-	if ($select) {
-		lang_select();
-	}
-
-	return $page;
+    static $composer, $styliser, $notes = null;
+    $courant = null;
+    $page = tester_redirection($fond, $contexte, $connect);
+    if ($page) {
+        return $page;
+    }
+
+    if (isset($contexte['lang'])) {
+        $lang = $contexte['lang'];
+    } elseif (!isset($lang)) {
+        $lang = $GLOBALS['meta']['langue_site'];
+    }
+
+    $select = ((!isset($GLOBALS['forcer_lang']) || !$GLOBALS['forcer_lang']) && $lang != $GLOBALS['spip_lang']);
+    if ($select) {
+        $select = lang_select($lang);
+    }
+
+    $debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
+
+    if (!$styliser) {
+        $styliser = charger_fonction('styliser', 'public');
+    }
+    [$skel, $mime_type, $gram, $sourcefile] =
+        $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect);
+
+    if ($skel) {
+        // sauver le nom de l'eventuel squelette en cours d'execution
+        // (recursion possible a cause des modeles)
+        if ($debug) {
+            $courant = $GLOBALS['debug_objets']['courant'] ?? null;
+            $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
+        }
+
+        // charger le squelette en specifiant les langages cibles et source
+        // au cas il faudrait le compiler (source posterieure au resultat)
+
+        if (!$composer) {
+            $composer = charger_fonction('composer', 'public');
+        }
+        $fonc = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
+    } else {
+        $fonc = '';
+    }
+
+    if (!$fonc) { // squelette inconnu (==='') ou faux (===false)
+        $page = $fonc;
+    } else {
+        // Preparer l'appel de la fonction principale du squelette
+
+        spip_timer($a = 'calcul page ' . random_int(0, 1000));
+
+        // On cree un marqueur de notes unique lie a cette composition
+        // et on enregistre l'etat courant des globales de notes...
+        if (is_null($notes)) {
+            $notes = charger_fonction('notes', 'inc', true);
+        }
+        if ($notes) {
+            $notes('', 'empiler');
+        }
+
+        // Rajouter d'office ces deux parametres
+        // (mais vaudrait mieux que le compilateur sache le simuler
+        // car ca interdit l'usage de criteres conditionnels dessus).
+        if (!isset($contexte['date'])) {
+            $contexte['date'] = date('Y-m-d H:i:s');
+            $contexte['date_default'] = true;
+        } else {
+            $contexte['date'] = normaliser_date($contexte['date'], true);
+        }
+
+        if (!isset($contexte['date_redac'])) {
+            $contexte['date_redac'] = date('Y-m-d H:i:s');
+            $contexte['date_redac_default'] = true;
+        } else {
+            $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);
+        }
+
+        // Passer le nom du cache pour produire sa destruction automatique
+        try {
+            $page = $fonc(['cache' => $cache], [$contexte]);
+        } catch (Throwable $e) {
+            $msg = _T('zbug_erreur_execution_page') . " $sourcefile";
+            $full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
+            $full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
+            $corps = "<pre>$msg</pre>";
+            $page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
+            erreur_squelette($full_msg);
+            unset($msg, $full_msg, $corps);
+        }
+
+        // Restituer les globales de notes telles qu'elles etaient avant l'appel
+        // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
+        // etre dans son resultat, autrement elles ne seraient pas prises en
+        // compte a chaque calcul d'un texte contenant un modele, mais seulement
+        // quand le modele serait calcule, et on aurait des resultats incoherents)
+        if ($notes) {
+            $notes('', 'depiler');
+        }
+
+        // reinjecter en dynamique la pile des notes
+        // si il y a des inclure dynamiques
+        // si la pile n'est pas vide
+        // la generalisation de cette injection permettrait de corriger le point juste au dessus
+        // en faisant remonter les notes a l'incluant (A tester et valider avant application)
+        if ($notes) {
+            $page['notes'] = $notes('', 'sauver_etat');
+        }
+
+        // spip_log: un joli contexte
+        $infos = presenter_contexte(array_filter($contexte));
+
+        $profile = spip_timer($a);
+        spip_logger()->info("calcul ($profile) [$skel] $infos"
+            . ' (' . strlen((string) $page['texte']) . ' octets)');
+
+        if (defined('_CALCUL_PROFILER') && (int) $profile > _CALCUL_PROFILER) {
+            spip_logger('profiler')->notice("calcul ($profile) [$skel] $infos"
+                . ' (' . strlen((string) $page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI']);
+        }
+
+        if ($debug) {
+            // si c'est ce que demande le debusqueur, lui passer la main
+            $t = strlen((string) $page['texte']) ? $page['texte'] : ' ';
+            $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
+            $GLOBALS['debug_objets']['courant'] = $courant;
+            $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
+            if (
+                $GLOBALS['debug_objets']['sourcefile']
+                && _request('var_mode_objet') == $fonc
+                && _request('var_mode_affiche') == 'resultat'
+            ) {
+                erreur_squelette();
+            }
+        }
+        // Si #CACHE{} n'etait pas la, le mettre a $delais
+        if (!isset($page['entetes']['X-Spip-Cache'])) {
+            // Dans l'espace prive ou dans un modeles/ on pose un cache 0 par defaut
+            // si aucun #CACHE{} spécifié
+            // le contexte implicite qui conditionne le cache assure qu'on retombe pas sur le meme
+            // entre public et prive
+            if (test_espace_prive() || str_starts_with((string) $fond, 'modeles/')) {
+                $page['entetes']['X-Spip-Cache'] = 0;
+            } else {
+                $page['entetes']['X-Spip-Cache'] = $GLOBALS['delais'] ?? 36000;
+            }
+        }
+
+        $page['contexte'] = $contexte;
+
+        // faire remonter le fichier source
+        static $js_inclus = false;
+        if (defined('_VAR_INCLURE') && _VAR_INCLURE) {
+            $page['sourcefile'] = $sourcefile;
+            $page['texte'] =
+                "<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
+                . ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
+            $js_inclus = true;
+        }
+
+        // Si un modele contenait #SESSION, on note l'info dans $page
+        if (isset($GLOBALS['cache_utilise_session'])) {
+            $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
+            unset($GLOBALS['cache_utilise_session']);
+        }
+    }
+
+    if ($select) {
+        lang_select();
+    }
+
+    return $page;
 }
 
 /**
@@ -209,37 +209,37 @@ 
  * @return string
 */
 function presenter_contexte($contexte, $profondeur_max = 1, $max_lines = 0) {
-	$infos = [];
-	$line = 0;
-	foreach ($contexte as $var => $val) {
-		$line++;
-		if ($max_lines && $max_lines < $line) {
-			$infos[] = '…';
-			break;
-		}
-		if ($val === null) {
-			$val = '';
-		} elseif (is_array($val)) {
-			if ($profondeur_max > 0) {
-				$val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
-			} else {
-				$val = 'array:' . count($val);
-			}
-		} elseif (is_object($val)) {
-			$val = $val::class;
-		} elseif (strlen("$val") > 30) {
-			$val = substr("$val", 0, 29) . '…';
-			if (strstr($val, ' ')) {
-				$val = "'$val'";
-			}
-		} elseif (strstr((string) $val, ' ')) {
-			$val = "'$val'";
-		} elseif (!strlen((string) $val)) {
-			$val = "''";
-		}
-		$infos[] = $var . '=' . $val;
-	}
-	return implode(', ', $infos);
+    $infos = [];
+    $line = 0;
+    foreach ($contexte as $var => $val) {
+        $line++;
+        if ($max_lines && $max_lines < $line) {
+            $infos[] = '…';
+            break;
+        }
+        if ($val === null) {
+            $val = '';
+        } elseif (is_array($val)) {
+            if ($profondeur_max > 0) {
+                $val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
+            } else {
+                $val = 'array:' . count($val);
+            }
+        } elseif (is_object($val)) {
+            $val = $val::class;
+        } elseif (strlen("$val") > 30) {
+            $val = substr("$val", 0, 29) . '…';
+            if (strstr($val, ' ')) {
+                $val = "'$val'";
+            }
+        } elseif (strstr((string) $val, ' ')) {
+            $val = "'$val'";
+        } elseif (!strlen((string) $val)) {
+            $val = "''";
+        }
+        $infos[] = $var . '=' . $val;
+    }
+    return implode(', ', $infos);
 }
 
 
@@ -256,11 +256,11 @@ 
  * @return array|bool
  */
 function tester_redirection($fond, $contexte, $connect) {
-	static $tester_redirection = null;
-	if (is_null($tester_redirection)) {
-		$tester_redirection = charger_fonction('tester_redirection', 'public');
-	}
-	return $tester_redirection($fond, $contexte, $connect);
+    static $tester_redirection = null;
+    if (is_null($tester_redirection)) {
+        $tester_redirection = charger_fonction('tester_redirection', 'public');
+    }
+    return $tester_redirection($fond, $contexte, $connect);
 }
 
 
@@ -276,42 +276,42 @@ 
  * @return array|bool
  */
 function public_tester_redirection_dist($fond, $contexte, $connect) {
-	if (
-		$fond == 'article'
-		&& !empty($contexte['id_article'])
-		&& ($id_article = (int) $contexte['id_article'])
-	) {
-		include_spip('public/quete'); // pour quete_virtuel et ses dependances
-		$m = quete_virtuel($id_article, $connect) ?? '';
-		if (strlen($m)) {
-			include_spip('inc/texte');
-			// les navigateurs pataugent si l'URL est vide
-			if ($url = virtuel_redirige($m, true)) {
-				// passer en url absolue car cette redirection pourra
-				// etre utilisee dans un contexte d'url qui change
-				// y compris url arbo
-				$status = 302;
-				if (defined('_STATUS_REDIRECTION_VIRTUEL')) {
-					$status = _STATUS_REDIRECTION_VIRTUEL;
-				}
-				if (!preg_match(',^\w+:,', (string) $url)) {
-					include_spip('inc/filtres_mini');
-					$url = url_absolue($url);
-				}
-				$url = str_replace('&amp;', '&', (string) $url);
-
-				return [
-					'texte' => '<'
-						. "?php include_spip('inc/headers');redirige_par_entete('"
-						. texte_script($url)
-						. "','',$status);"
-						. '?' . '>',
-					'process_ins' => 'php',
-					'status' => $status
-				];
-			}
-		}
-	}
-
-	return false;
+    if (
+        $fond == 'article'
+        && !empty($contexte['id_article'])
+        && ($id_article = (int) $contexte['id_article'])
+    ) {
+        include_spip('public/quete'); // pour quete_virtuel et ses dependances
+        $m = quete_virtuel($id_article, $connect) ?? '';
+        if (strlen($m)) {
+            include_spip('inc/texte');
+            // les navigateurs pataugent si l'URL est vide
+            if ($url = virtuel_redirige($m, true)) {
+                // passer en url absolue car cette redirection pourra
+                // etre utilisee dans un contexte d'url qui change
+                // y compris url arbo
+                $status = 302;
+                if (defined('_STATUS_REDIRECTION_VIRTUEL')) {
+                    $status = _STATUS_REDIRECTION_VIRTUEL;
+                }
+                if (!preg_match(',^\w+:,', (string) $url)) {
+                    include_spip('inc/filtres_mini');
+                    $url = url_absolue($url);
+                }
+                $url = str_replace('&amp;', '&', (string) $url);
+
+                return [
+                    'texte' => '<'
+                        . "?php include_spip('inc/headers');redirige_par_entete('"
+                        . texte_script($url)
+                        . "','',$status);"
+                        . '?' . '>',
+                    'process_ins' => 'php',
+                    'status' => $status
+                ];
+            }
+        }
+    }
+
+    return false;
 }

Spacing +12 added lines, -12 removed lines

@@ -79,7 +79,7 @@ 
 	} else {
 		// Preparer l'appel de la fonction principale du squelette
 
-		spip_timer($a = 'calcul page ' . random_int(0, 1000));
+		spip_timer($a = 'calcul page '.random_int(0, 1000));
 
 		// On cree un marqueur de notes unique lie a cette composition
 		// et on enregistre l'etat courant des globales de notes...
@@ -111,8 +111,8 @@ 
 		try {
 			$page = $fonc(['cache' => $cache], [$contexte]);
 		} catch (Throwable $e) {
-			$msg = _T('zbug_erreur_execution_page') . " $sourcefile";
-			$full_msg = $msg . ' | File ' . $e->getFile() . ' Line ' . $e->getLine() . ' : ' . $e->getMessage();
+			$msg = _T('zbug_erreur_execution_page')." $sourcefile";
+			$full_msg = $msg.' | File '.$e->getFile().' Line '.$e->getLine().' : '.$e->getMessage();
 			$full_msg = str_replace(_ROOT_RACINE, '[…]/', $full_msg);
 			$corps = "<pre>$msg</pre>";
 			$page = analyse_resultat_skel($fond, ['cache' => $cache], $corps, $sourcefile);
@@ -143,17 +143,17 @@ 
 
 		$profile = spip_timer($a);
 		spip_logger()->info("calcul ($profile) [$skel] $infos"
-			. ' (' . strlen((string) $page['texte']) . ' octets)');
+			. ' ('.strlen((string) $page['texte']).' octets)');
 
 		if (defined('_CALCUL_PROFILER') && (int) $profile > _CALCUL_PROFILER) {
 			spip_logger('profiler')->notice("calcul ($profile) [$skel] $infos"
-				. ' (' . strlen((string) $page['texte']) . ' octets) | ' . $_SERVER['REQUEST_URI']);
+				. ' ('.strlen((string) $page['texte']).' octets) | '.$_SERVER['REQUEST_URI']);
 		}
 
 		if ($debug) {
 			// si c'est ce que demande le debusqueur, lui passer la main
 			$t = strlen((string) $page['texte']) ? $page['texte'] : ' ';
-			$GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
+			$GLOBALS['debug_objets']['resultat'][$fonc.'tout'] = $t;
 			$GLOBALS['debug_objets']['courant'] = $courant;
 			$GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
 			if (
@@ -184,7 +184,7 @@ 
 		if (defined('_VAR_INCLURE') && _VAR_INCLURE) {
 			$page['sourcefile'] = $sourcefile;
 			$page['texte'] =
-				"<div class='inclure_blocs'><h6>" . $page['sourcefile'] . '</h6>' . $page['texte'] . '</div>'
+				"<div class='inclure_blocs'><h6>".$page['sourcefile'].'</h6>'.$page['texte'].'</div>'
 				. ($js_inclus ? '' : "<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
 			$js_inclus = true;
 		}
@@ -221,14 +221,14 @@ 
 			$val = '';
 		} elseif (is_array($val)) {
 			if ($profondeur_max > 0) {
-				$val = 'array:' . count($val) . '(' . presenter_contexte($val, $profondeur_max - 1, 3) . ')';
+				$val = 'array:'.count($val).'('.presenter_contexte($val, $profondeur_max - 1, 3).')';
 			} else {
-				$val = 'array:' . count($val);
+				$val = 'array:'.count($val);
 			}
 		} elseif (is_object($val)) {
 			$val = $val::class;
 		} elseif (strlen("$val") > 30) {
-			$val = substr("$val", 0, 29) . '…';
+			$val = substr("$val", 0, 29).'…';
 			if (strstr($val, ' ')) {
 				$val = "'$val'";
 			}
@@ -237,7 +237,7 @@ 
 		} elseif (!strlen((string) $val)) {
 			$val = "''";
 		}
-		$infos[] = $var . '=' . $val;
+		$infos[] = $var.'='.$val;
 	}
 	return implode(', ', $infos);
 }
@@ -305,7 +305,7 @@ 
 						. "?php include_spip('inc/headers');redirige_par_entete('"
 						. texte_script($url)
 						. "','',$status);"
-						. '?' . '>',
+						. '?'.'>',
 					'process_ins' => 'php',
 					'status' => $status
 				];

ecrire/public/references.php

Indentation +532 added lines, -532 removed lines

@@ -18,7 +18,7 @@ 
  * @package SPIP\Core\Compilateur\References
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,14 +43,14 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	return $p->id_boucle;
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    return $p->id_boucle;
 }
 
 
@@ -73,17 +73,17 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle_mere($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	if (!empty($p->descr['id_mere'])) {
-		return $p->descr['id_mere'];
-	}
-	return '';
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    if (!empty($p->descr['id_mere'])) {
+        return $p->descr['id_mere'];
+    }
+    return '';
 }
 
 /**
@@ -117,74 +117,74 @@ 
  *     Code PHP pour obtenir le champ SQL
  */
 function index_pile(
-	$idb,
-	$nom_champ,
-	&$boucles,
-	$explicite = '',
-	$defaut = null,
-	$remonte_pile = true,
-	$select = true
+    $idb,
+    $nom_champ,
+    &$boucles,
+    $explicite = '',
+    $defaut = null,
+    $remonte_pile = true,
+    $select = true
 ) {
-	if (!is_string($defaut)) {
-		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
-	}
-
-	$idb_origine = $idb;
-	$nom_champ_origine = $nom_champ;
-
-	$i = 0;
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-		while (($idb !== $explicite) && ($idb !== '')) {
-			#	spip_logger()->info("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
-			$i++;
-			$idb = $boucles[$idb]->id_parent;
-		}
-	}
-
-	#	spip_logger()->info("Cherche: $nom_champ a partir de '$idb'");
-	$nom_champ = strtolower($nom_champ);
-	$conditionnel = [];
-	// attention: entre la boucle nommee 0, "" et le tableau vide,
-	// il y a incoherences qu'il vaut mieux eviter
-	while (isset($boucles[$idb])) {
-		$joker = true;
-		// modifie $joker si tous les champs sont autorisés.
-		// $t = le select pour le champ, si on l'a trouvé (ou si joker)
-		// $c = le nom du champ demandé
-		[$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if ($select && !in_array($t, $boucles[$idb]->select)) {
-				$boucles[$idb]->select[] = $t;
-			}
-			// renseigner la boucle source de ce champ pour les traitements
-			$boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
-			$champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
-			if (!$joker) {
-				return index_compose($conditionnel, $champ);
-			}
-
-			// tant que l'on trouve des tables avec joker, on continue
-			// avec la boucle parente et on conditionne à l'exécution
-			// la présence du champ. Si le champ existe à l'exécution
-			// dans une boucle, il est pris, sinon on le cherche dans le parent...
-			$conditionnel[] = "isset($champ)?$champ";
-		}
-
-		if ($remonte_pile) {
-			#	spip_logger()->info("On remonte vers $i");
-			// Sinon on remonte d'un cran
-			$idb = $boucles[$idb]->id_parent;
-			$i++;
-		} else {
-			$idb = null;
-		}
-	}
-
-	#	spip_logger()->info("Pas vu $nom_champ");
-	// esperons qu'il y sera
-	// ou qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel, $defaut);
+    if (!is_string($defaut)) {
+        $defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
+    }
+
+    $idb_origine = $idb;
+    $nom_champ_origine = $nom_champ;
+
+    $i = 0;
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !== '')) {
+            #	spip_logger()->info("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
+            $i++;
+            $idb = $boucles[$idb]->id_parent;
+        }
+    }
+
+    #	spip_logger()->info("Cherche: $nom_champ a partir de '$idb'");
+    $nom_champ = strtolower($nom_champ);
+    $conditionnel = [];
+    // attention: entre la boucle nommee 0, "" et le tableau vide,
+    // il y a incoherences qu'il vaut mieux eviter
+    while (isset($boucles[$idb])) {
+        $joker = true;
+        // modifie $joker si tous les champs sont autorisés.
+        // $t = le select pour le champ, si on l'a trouvé (ou si joker)
+        // $c = le nom du champ demandé
+        [$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if ($select && !in_array($t, $boucles[$idb]->select)) {
+                $boucles[$idb]->select[] = $t;
+            }
+            // renseigner la boucle source de ce champ pour les traitements
+            $boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
+            $champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
+            if (!$joker) {
+                return index_compose($conditionnel, $champ);
+            }
+
+            // tant que l'on trouve des tables avec joker, on continue
+            // avec la boucle parente et on conditionne à l'exécution
+            // la présence du champ. Si le champ existe à l'exécution
+            // dans une boucle, il est pris, sinon on le cherche dans le parent...
+            $conditionnel[] = "isset($champ)?$champ";
+        }
+
+        if ($remonte_pile) {
+            #	spip_logger()->info("On remonte vers $i");
+            // Sinon on remonte d'un cran
+            $idb = $boucles[$idb]->id_parent;
+            $i++;
+        } else {
+            $idb = null;
+        }
+    }
+
+    #	spip_logger()->info("Pas vu $nom_champ");
+    // esperons qu'il y sera
+    // ou qu'on a fourni une valeur par "defaut" plus pertinent
+    return index_compose($conditionnel, $defaut);
 }
 
 /**
@@ -198,12 +198,12 @@ 
  * @return string              Code PHP complet de recherche d'un champ
  */
 function index_compose($conditionnel, $defaut) {
-	while ($c = array_pop($conditionnel)) {
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(" . ($defaut ?: "''") . '))';
-	}
+    while ($c = array_pop($conditionnel)) {
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(" . ($defaut ?: "''") . '))';
+    }
 
-	return $defaut;
+    return $defaut;
 }
 
 /**
@@ -239,98 +239,98 @@ 
  **/
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
 
-	$r = $boucles[$idb]->type_requete;
-	// boucle recursive, c'est foutu...
-	if ($r == TYPE_RECURSIF) {
-		return [];
-	}
-	if (!$r) {
-		$joker = false; // indiquer a l'appelant
-		# continuer pour chercher l'erreur suivante
-		return ["'#" . $r . ':' . $nom_champ . "'", ''];
-	}
-
-	$desc = $boucles[$idb]->show;
-	// le nom du champ est il une exception de la table ? un alias ?
-	$excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
-	if ($excep) {
-		$excep = $excep[$nom_champ] ?? '';
-	}
-
-	// il y a un alias connu pour ce champ
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-		return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-
-	// le champ existe dans la table, on le prend.
-	if (isset($desc['field'][$nom_champ])) {
-		$t = $boucles[$idb]->id_table ?? '';
-		$joker = false; // indiquer a l'appelant
-		// note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
-		return ["$t.$nom_champ", $nom_champ];
-	}
-
-	// Tous les champs sont-ils acceptés ?
-	// Si oui, on retourne le champ, et on lève le flag joker
-	// C'est le cas des itérateurs DATA qui acceptent tout
-	// et testent la présence du champ à l'exécution et non à la compilation
-	// car ils ne connaissent pas ici leurs contenus.
-	if (
-		/*$joker AND */
-		isset($desc['field']['*'])
-	) {
-		$joker = true; // indiquer a l'appelant
-		return [$nom_champ, $nom_champ];
-	}
-
-	$joker = false; // indiquer a l'appelant
-
-	// la table de jointure est explicitement indiquée (rubrique.titre)
-	if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
-		[, $_table, $_nom_champ] = $r;
-		if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
-			$_alias = $cle . '_' . $_nom_champ;
-			return index_exception(
-				$boucles[$idb],
-				$desc,
-				$_alias,
-				[$_table, $_nom_champ]
-			);
-		}
-		return ['', ''];
-	}
-
-	// pas d'alias, pas de champ, pas de joker...
-	// tenter via une jointure...
-
-	// regarder si le champ est deja dans une jointure existante
-	// sinon, si il y a des joitures explicites, la construire
-	if (
-		!($t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]))
-		&& $boucles[$idb]->jointures_explicites
-	) {
-		// [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
-		// fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
-		// mais est-ce ce qu'on veut ?
-		$jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
-		if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
-			$t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
-		}
-	}
-
-	if ($t) {
-		// si on a trouvé une jointure possible, on fait comme
-		// si c'était une exception pour le champ demandé
-		return index_exception(
-			$boucles[$idb],
-			$desc,
-			$nom_champ,
-			[$t[1]['id_table'], reset($t[2])]
-		);
-	}
-
-	return ['', ''];
+    $r = $boucles[$idb]->type_requete;
+    // boucle recursive, c'est foutu...
+    if ($r == TYPE_RECURSIF) {
+        return [];
+    }
+    if (!$r) {
+        $joker = false; // indiquer a l'appelant
+        # continuer pour chercher l'erreur suivante
+        return ["'#" . $r . ':' . $nom_champ . "'", ''];
+    }
+
+    $desc = $boucles[$idb]->show;
+    // le nom du champ est il une exception de la table ? un alias ?
+    $excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
+    if ($excep) {
+        $excep = $excep[$nom_champ] ?? '';
+    }
+
+    // il y a un alias connu pour ce champ
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    }
+
+    // le champ existe dans la table, on le prend.
+    if (isset($desc['field'][$nom_champ])) {
+        $t = $boucles[$idb]->id_table ?? '';
+        $joker = false; // indiquer a l'appelant
+        // note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
+        return ["$t.$nom_champ", $nom_champ];
+    }
+
+    // Tous les champs sont-ils acceptés ?
+    // Si oui, on retourne le champ, et on lève le flag joker
+    // C'est le cas des itérateurs DATA qui acceptent tout
+    // et testent la présence du champ à l'exécution et non à la compilation
+    // car ils ne connaissent pas ici leurs contenus.
+    if (
+        /*$joker AND */
+        isset($desc['field']['*'])
+    ) {
+        $joker = true; // indiquer a l'appelant
+        return [$nom_champ, $nom_champ];
+    }
+
+    $joker = false; // indiquer a l'appelant
+
+    // la table de jointure est explicitement indiquée (rubrique.titre)
+    if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
+        [, $_table, $_nom_champ] = $r;
+        if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
+            $_alias = $cle . '_' . $_nom_champ;
+            return index_exception(
+                $boucles[$idb],
+                $desc,
+                $_alias,
+                [$_table, $_nom_champ]
+            );
+        }
+        return ['', ''];
+    }
+
+    // pas d'alias, pas de champ, pas de joker...
+    // tenter via une jointure...
+
+    // regarder si le champ est deja dans une jointure existante
+    // sinon, si il y a des joitures explicites, la construire
+    if (
+        !($t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]))
+        && $boucles[$idb]->jointures_explicites
+    ) {
+        // [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
+        // fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
+        // mais est-ce ce qu'on veut ?
+        $jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
+        if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
+            $t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
+        }
+    }
+
+    if ($t) {
+        // si on a trouvé une jointure possible, on fait comme
+        // si c'était une exception pour le champ demandé
+        return index_exception(
+            $boucles[$idb],
+            $desc,
+            $nom_champ,
+            [$t[1]['id_table'], reset($t[2])]
+        );
+    }
+
+    return ['', ''];
 }
 
 
@@ -358,52 +358,52 @@ 
  *     est une expression pour le SELECT de la boucle du style "mots.titre AS titre_mot"
  **/
 function index_exception(&$boucle, $desc, $nom_champ, $excep) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_array($excep)) {
-		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
-		$t = null;
-		if (count($excep) == 3) {
-			$index_exception_derogatoire = array_pop($excep);
-			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
-		}
-		if ($t == null) {
-			[$e, $x] = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
-			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) {
-				return ['', ''];
-			}
-			$e = $j['table'];
-			if (!$t = array_search($e, $boucle->from)) {
-				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k, ',')) {
-					$l = (preg_split('/\s*,\s*/', $k));
-					$k = $desc['key']['PRIMARY KEY'];
-					if (!in_array($k, $l)) {
-						spip_logger()->info("jointure impossible $e " . implode(',', $l));
-
-						return ['', ''];
-					}
-				}
-				$k = [$boucle->id_table, [$e], $k];
-				fabrique_jointures($boucle, [$k]);
-				$t = array_search($e, $boucle->from);
-			}
-		}
-	} else {
-		$t = $boucle->id_table;
-	}
-	// demander a SQL de gerer le synonyme
-	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) {
-		$excep .= ' AS ' . $nom_champ;
-	}
-
-	return ["$t.$excep", $nom_champ];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_array($excep)) {
+        // permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
+        $t = null;
+        if (count($excep) == 3) {
+            $index_exception_derogatoire = array_pop($excep);
+            $t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
+        }
+        if ($t == null) {
+            [$e, $x] = $excep;  #PHP4 affecte de gauche a droite
+            $excep = $x;    #PHP5 de droite a gauche !
+            $j = $trouver_table($e, $boucle->sql_serveur);
+            if (!$j) {
+                return ['', ''];
+            }
+            $e = $j['table'];
+            if (!$t = array_search($e, $boucle->from)) {
+                $k = $j['key']['PRIMARY KEY'];
+                if (strpos($k, ',')) {
+                    $l = (preg_split('/\s*,\s*/', $k));
+                    $k = $desc['key']['PRIMARY KEY'];
+                    if (!in_array($k, $l)) {
+                        spip_logger()->info("jointure impossible $e " . implode(',', $l));
+
+                        return ['', ''];
+                    }
+                }
+                $k = [$boucle->id_table, [$e], $k];
+                fabrique_jointures($boucle, [$k]);
+                $t = array_search($e, $boucle->from);
+            }
+        }
+    } else {
+        $t = $boucle->id_table;
+    }
+    // demander a SQL de gerer le synonyme
+    // ca permet que excep soit dynamique (Cedric, 2/3/06)
+    if ($excep != $nom_champ) {
+        $excep .= ' AS ' . $nom_champ;
+    }
+
+    return ["$t.$excep", $nom_champ];
 }
 
 /**
@@ -428,7 +428,7 @@ 
  *     Code PHP pour retrouver le champ
  */
 function champ_sql($champ, $p, $defaut = null, $remonte_pile = true) {
-	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
+    return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
 }
 
 
@@ -448,9 +448,9 @@ 
  *     Code PHP pour d'exécution de la balise et de ses filtres
  **/
 function calculer_champ($p) {
-	$p = calculer_balise($p->nom_champ, $p);
+    $p = calculer_balise($p->nom_champ, $p);
 
-	return applique_filtres($p);
+    return applique_filtres($p);
 }
 
 
@@ -487,26 +487,26 @@ 
  **/
 function calculer_balise(string $nom, Champ $p): Champ {
 
-	// S'agit-t-il d'une balise_XXXX[_dist]() ?
-	if ($f = charger_fonction($nom, 'balise', true)) {
-		$p->balise_calculee = true;
-		$res = $f($p);
-		if ($res !== null && is_object($res)) {
-			return $res;
-		}
-	}
-
-	// Certaines des balises comportant un _ sont generiques
-	if ($balise_generique = chercher_balise_generique($nom)) {
-		$res = $balise_generique['fonction_generique']($p);
-		if ($res !== null && is_object($res)) {
-			return $res;
-		}
-	}
-
-	$f = charger_fonction('DEFAUT', 'calculer_balise');
-
-	return $f($nom, $p);
+    // S'agit-t-il d'une balise_XXXX[_dist]() ?
+    if ($f = charger_fonction($nom, 'balise', true)) {
+        $p->balise_calculee = true;
+        $res = $f($p);
+        if ($res !== null && is_object($res)) {
+            return $res;
+        }
+    }
+
+    // Certaines des balises comportant un _ sont generiques
+    if ($balise_generique = chercher_balise_generique($nom)) {
+        $res = $balise_generique['fonction_generique']($p);
+        if ($res !== null && is_object($res)) {
+            return $res;
+        }
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 
@@ -534,33 +534,33 @@ 
  **/
 function calculer_balise_DEFAUT_dist($nom, $p) {
 
-	// ca pourrait etre un champ SQL homonyme,
-	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
-
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (str_starts_with($nom, 'ID_')) {
-		$p->interdire_scripts = false;
-	}
-
-	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
-	// SI le champ SQL n'est pas trouve
-	// ET si la balise a une forme de couleur
-	// ET s'il n'y a ni filtre ni etoile
-	// ALORS retourner la couleur.
-	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
-	if (preg_match('/^[A-F]{1,6}$/i', $nom) && !$p->etoile && !$p->fonctions) {
-		$p->code = "'#$nom'";
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    // ca pourrait etre un champ SQL homonyme,
+    $p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
+
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (str_starts_with($nom, 'ID_')) {
+        $p->interdire_scripts = false;
+    }
+
+    // Compatibilite ascendante avec les couleurs html (#FEFEFE) :
+    // SI le champ SQL n'est pas trouve
+    // ET si la balise a une forme de couleur
+    // ET s'il n'y a ni filtre ni etoile
+    // ALORS retourner la couleur.
+    // Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
+    if (preg_match('/^[A-F]{1,6}$/i', $nom) && !$p->etoile && !$p->fonctions) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -608,52 +608,52 @@ 
  **/
 function calculer_balise_dynamique($p, $nom, $l, $supp = []) {
 
-	if (!balise_distante_interdite($p)) {
-		$p->code = "''";
-
-		return $p;
-	}
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
-		$p->fonctions = [];
-	}
-
-	if ($p->param && ($c = $p->param[0])) {
-		// liste d'arguments commence toujours par la chaine vide
-		array_shift($c);
-		// construire la liste d'arguments comme pour un filtre
-		$param = compose_filtres_args($p, $c, ',');
-	} else {
-		$param = '';
-	}
-	$collecte = collecter_balise_dynamique($l, $p, $nom);
-
-	$dans_un_modele = false;
-	if (
-		!empty($p->descr['sourcefile']) && ($f = $p->descr['sourcefile']) && basename(dirname($f)) === 'modeles'
-	) {
-		$dans_un_modele = true;
-	}
-
-	// un modele est toujours inséré en texte dans son contenant
-	// donc si on est dans le public avec un cache on va perdre le dynamisme
-	// et on risque de mettre en cache les valeurs pre-remplies du formulaire
-	// on passe donc par une fonction proxy qui si besoin va collecter les arguments
-	// et injecter le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
-	// (dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave))
-	$p->code = sprintf(
-		$dans_un_modele ? CODE_EXECUTER_BALISE_MODELE : CODE_EXECUTER_BALISE,
-		$nom,
-		implode(',', $collecte),
-		($collecte ? $param : substr($param, 1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		($supp ? ', ' . implode(',', $supp) : (''))
-	);
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    if (!balise_distante_interdite($p)) {
+        $p->code = "''";
+
+        return $p;
+    }
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
+        $p->fonctions = [];
+    }
+
+    if ($p->param && ($c = $p->param[0])) {
+        // liste d'arguments commence toujours par la chaine vide
+        array_shift($c);
+        // construire la liste d'arguments comme pour un filtre
+        $param = compose_filtres_args($p, $c, ',');
+    } else {
+        $param = '';
+    }
+    $collecte = collecter_balise_dynamique($l, $p, $nom);
+
+    $dans_un_modele = false;
+    if (
+        !empty($p->descr['sourcefile']) && ($f = $p->descr['sourcefile']) && basename(dirname($f)) === 'modeles'
+    ) {
+        $dans_un_modele = true;
+    }
+
+    // un modele est toujours inséré en texte dans son contenant
+    // donc si on est dans le public avec un cache on va perdre le dynamisme
+    // et on risque de mettre en cache les valeurs pre-remplies du formulaire
+    // on passe donc par une fonction proxy qui si besoin va collecter les arguments
+    // et injecter le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
+    // (dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave))
+    $p->code = sprintf(
+        $dans_un_modele ? CODE_EXECUTER_BALISE_MODELE : CODE_EXECUTER_BALISE,
+        $nom,
+        implode(',', $collecte),
+        ($collecte ? $param : substr($param, 1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        ($supp ? ', ' . implode(',', $supp) : (''))
+    );
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -683,17 +683,17 @@ 
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
 function collecter_balise_dynamique(array $l, Champ &$p, string $nom): array {
-	$args = [];
-	foreach ($l as $c) {
-		if ($c === null) {
-			$args[] = 'null';
-		} else {
-			$x = calculer_balise($c, $p);
-			$args[] = $x->code;
-		}
-	}
-
-	return $args;
+    $args = [];
+    foreach ($l as $c) {
+        if ($c === null) {
+            $args[] = 'null';
+        } else {
+            $x = calculer_balise($c, $p);
+            $args[] = $x->code;
+        }
+    }
+
+    return $args;
 }
 
 
@@ -708,19 +708,19 @@ 
  *     Nom de la connexion
  **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if (
-		$nom && isset($p->boucles[$nom])
-	) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (
-			strlen($s) && strlen($serveur = strtolower($s)) && !in_array($serveur, $GLOBALS['exception_des_connect'])
-		) {
-			return $serveur;
-		}
-	}
-
-	return '';
+    $nom = $p->id_boucle;
+    if (
+        $nom && isset($p->boucles[$nom])
+    ) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (
+            strlen($s) && strlen($serveur = strtolower($s)) && !in_array($serveur, $GLOBALS['exception_des_connect'])
+        ) {
+            return $serveur;
+        }
+    }
+
+    return '';
 }
 
 
@@ -744,15 +744,15 @@ 
  *     - false : La balise est interdite car le serveur est distant
  **/
 function balise_distante_interdite($p) {
-	$nom = $p->id_boucle;
+    $nom = $p->id_boucle;
 
-	if ($nom && trouver_nom_serveur_distant($p)) {
-		spip_logger()->info($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+    if ($nom && trouver_nom_serveur_distant($p)) {
+        spip_logger()->info($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
 
-		return false;
-	}
+        return false;
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -762,75 +762,75 @@ 
 //
 function champs_traitements($p) {
 
-	if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
-		$ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
-	} else {
-		// quand on utilise un traitement catch-all *
-		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
-		// leur propre securite
-		$ps = $p->balise_calculee ? false : $GLOBALS['table_des_traitements']['*'];
-	}
-
-	if (is_array($ps)) {
-		// Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
-		$idb = index_boucle($p);
-		// si le champ a ete trouve dans une boucle parente sa source est renseignee ici
-		if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
-			$idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
-		}
-
-		// mais on peut aussi etre hors boucle. Se mefier.
-		$type_requete = $p->boucles[$idb]->type_requete ?? false;
-		$table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
-
-		// bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
-		if ($type_requete && isset($GLOBALS['table_des_tables'][$type_requete])) {
-			$type_alias = $type_requete;
-			$type_requete = $GLOBALS['table_des_tables'][$type_requete];
-		} else {
-			$type_alias = false;
-		}
-
-		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql && isset($ps[$table_sql])) {
-			$ps = $ps[$table_sql];
-		} // ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete && isset($ps[$type_requete])) {
-			$ps = $ps[$type_requete];
-		} // ou pour une boucle utilisant un alias ("hierarchie")
-		elseif ($type_alias && isset($ps[$type_alias])) {
-			$ps = $ps[$type_alias];
-		} // ou pour indifféremment quelle que soit la boucle
-		elseif (isset($ps[0])) {
-			$ps = $ps[0];
-		} else {
-			$ps = false;
-		}
-	}
-
-	if (!$ps) {
-		return $p->code;
-	}
-
-	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
-	// ou si in INCLURE contient {doublons}
-	// on insere une fonction de remplissage du tableau des doublons
-	// dans les filtres propre() ou typo()
-	// (qui traitent les raccourcis <docXX> referencant les docs)
-
-	if (
-		isset($p->descr['documents'])
-		&& $p->descr['documents']
-		&& (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
-	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
-	}
-
-	// La protection des champs par |safehtml est assuree par les extensions
-	// dans la declaration des traitements des champs sensibles
-
-	// Remplacer enfin le placeholder %s par le vrai code de la balise
-	return str_replace('%s', $p->code, $ps);
+    if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
+        $ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
+    } else {
+        // quand on utilise un traitement catch-all *
+        // celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
+        // leur propre securite
+        $ps = $p->balise_calculee ? false : $GLOBALS['table_des_traitements']['*'];
+    }
+
+    if (is_array($ps)) {
+        // Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
+        $idb = index_boucle($p);
+        // si le champ a ete trouve dans une boucle parente sa source est renseignee ici
+        if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
+            $idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
+        }
+
+        // mais on peut aussi etre hors boucle. Se mefier.
+        $type_requete = $p->boucles[$idb]->type_requete ?? false;
+        $table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
+
+        // bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
+        if ($type_requete && isset($GLOBALS['table_des_tables'][$type_requete])) {
+            $type_alias = $type_requete;
+            $type_requete = $GLOBALS['table_des_tables'][$type_requete];
+        } else {
+            $type_alias = false;
+        }
+
+        // le traitement peut n'etre defini que pour une table en particulier "spip_articles"
+        if ($table_sql && isset($ps[$table_sql])) {
+            $ps = $ps[$table_sql];
+        } // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete && isset($ps[$type_requete])) {
+            $ps = $ps[$type_requete];
+        } // ou pour une boucle utilisant un alias ("hierarchie")
+        elseif ($type_alias && isset($ps[$type_alias])) {
+            $ps = $ps[$type_alias];
+        } // ou pour indifféremment quelle que soit la boucle
+        elseif (isset($ps[0])) {
+            $ps = $ps[0];
+        } else {
+            $ps = false;
+        }
+    }
+
+    if (!$ps) {
+        return $p->code;
+    }
+
+    // Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
+    // ou si in INCLURE contient {doublons}
+    // on insere une fonction de remplissage du tableau des doublons
+    // dans les filtres propre() ou typo()
+    // (qui traitent les raccourcis <docXX> referencant les docs)
+
+    if (
+        isset($p->descr['documents'])
+        && $p->descr['documents']
+        && (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
+    ) {
+        $ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+    }
+
+    // La protection des champs par |safehtml est assuree par les extensions
+    // dans la declaration des traitements des champs sensibles
+
+    // Remplacer enfin le placeholder %s par le vrai code de la balise
+    return str_replace('%s', $p->code, $ps);
 }
 
 
@@ -842,95 +842,95 @@ 
 //
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	$code = $p->etoile == '' ? champs_traitements($p) : $p->code;
+    // Traitements standards (cf. supra)
+    $code = $p->etoile == '' ? champs_traitements($p) : $p->code;
 
-	// Appliquer les filtres perso
-	if ($p->param) {
-		$code = compose_filtres($p, $code);
-	}
+    // Appliquer les filtres perso
+    if ($p->param) {
+        $code = compose_filtres($p, $code);
+    }
 
-	// S'il y a un lien avec la session, ajouter un code qui levera
-	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session'])) {
-		$code = "invalideur_session(\$Cache, $code)";
-	}
+    // S'il y a un lien avec la session, ajouter un code qui levera
+    // un drapeau dans la structure d'invalidation $Cache
+    if (isset($p->descr['session'])) {
+        $code = "invalideur_session(\$Cache, $code)";
+    }
 
-	return sandbox_composer_interdire_scripts($code, $p);
+    return sandbox_composer_interdire_scripts($code, $p);
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 function compose_filtres(&$p, $code) {
 
-	$image_miette = false;
-	foreach ($p->param as $filtre) {
-		$fonc = array_shift($filtre);
-		if (!$fonc) {
-			continue;
-		} // normalement qu'au premier tour.
-		$is_filtre_image = (str_starts_with($fonc, 'image_') && $fonc != 'image_graver');
-		if ($image_miette && !$is_filtre_image) {
-			// il faut graver maintenant car apres le filtre en cours
-			// on est pas sur d'avoir encore le nom du fichier dans le pipe
-			$code = "filtrer('image_graver', $code)";
-			$image_miette = false;
-		}
-
-		// recuperer les arguments du filtre,
-		// a separer par "," ou ":" dans le cas du filtre "?{a,b}"
-		$countfiltre = is_countable($filtre) ? count($filtre) : 0;
-		if ($fonc !== '?') {
-			$sep = ',';
-		} else {
-			$sep = ':';
-			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if ($countfiltre != 2) {
-				$filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
-				$countfiltre = 2;
-			}
-		}
-		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist, 1));
-		if ($logique) {
-			$code = $logique;
-		} else {
-			$code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
-			if ($is_filtre_image) {
-				$image_miette = true;
-			}
-		}
-	}
-	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette) {
-		$code = "filtrer('image_graver',$code)";
-	}
-
-	return $code;
+    $image_miette = false;
+    foreach ($p->param as $filtre) {
+        $fonc = array_shift($filtre);
+        if (!$fonc) {
+            continue;
+        } // normalement qu'au premier tour.
+        $is_filtre_image = (str_starts_with($fonc, 'image_') && $fonc != 'image_graver');
+        if ($image_miette && !$is_filtre_image) {
+            // il faut graver maintenant car apres le filtre en cours
+            // on est pas sur d'avoir encore le nom du fichier dans le pipe
+            $code = "filtrer('image_graver', $code)";
+            $image_miette = false;
+        }
+
+        // recuperer les arguments du filtre,
+        // a separer par "," ou ":" dans le cas du filtre "?{a,b}"
+        $countfiltre = is_countable($filtre) ? count($filtre) : 0;
+        if ($fonc !== '?') {
+            $sep = ',';
+        } else {
+            $sep = ':';
+            // |?{a,b} *doit* avoir exactement 2 arguments ; on les force
+            if ($countfiltre != 2) {
+                $filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
+                $countfiltre = 2;
+            }
+        }
+        $arglist = compose_filtres_args($p, $filtre, $sep);
+        $logique = filtre_logique($fonc, $code, substr($arglist, 1));
+        if ($logique) {
+            $code = $logique;
+        } else {
+            $code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
+            if ($is_filtre_image) {
+                $image_miette = true;
+            }
+        }
+    }
+    // ramasser les images intermediaires inutiles et graver l'image finale
+    if ($image_miette) {
+        $code = "filtrer('image_graver',$code)";
+    }
+
+    return $code;
 }
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
 function filtre_logique($fonc, $code, $arg) {
-	return match (true) {
-		in_array($fonc, $GLOBALS['table_criteres_infixes']) => "($code $fonc $arg)",
-		$fonc == 'and' || $fonc == 'et' => "((($code) AND ($arg)) ?' ' :'')",
-		$fonc == 'or' || $fonc == 'ou' => "((($code) OR ($arg)) ?' ' :'')",
-		$fonc == 'xor' || $fonc == 'xou' => "((($code) XOR ($arg)) ?' ' :'')",
-		$fonc == 'sinon' => "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)",
-		$fonc == 'not' || $fonc == 'non' => "(($code) ?'' :' ')",
-		$fonc == 'yes' || $fonc == 'oui' => "(($code) ?' ' :'')",
-		default => '',
-	};
+    return match (true) {
+        in_array($fonc, $GLOBALS['table_criteres_infixes']) => "($code $fonc $arg)",
+        $fonc == 'and' || $fonc == 'et' => "((($code) AND ($arg)) ?' ' :'')",
+        $fonc == 'or' || $fonc == 'ou' => "((($code) OR ($arg)) ?' ' :'')",
+        $fonc == 'xor' || $fonc == 'xou' => "((($code) XOR ($arg)) ?' ' :'')",
+        $fonc == 'sinon' => "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)",
+        $fonc == 'not' || $fonc == 'non' => "(($code) ?'' :' ')",
+        $fonc == 'yes' || $fonc == 'oui' => "(($code) ?' ' :'')",
+        default => '',
+    };
 }
 
 function compose_filtres_args($p, $args, $sep) {
-	$arglist = '';
-	foreach ($args as $arg) {
-		$arglist .= $sep .
-			calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
-	}
+    $arglist = '';
+    foreach ($args as $arg) {
+        $arglist .= $sep .
+            calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
+    }
 
-	return $arglist;
+    return $arglist;
 }
 
 
@@ -948,15 +948,15 @@ 
  **/
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut = null) {
 
-	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
-	if ($boucles[$idb]->externe) {
-		index_pile($idb, $nom_champ, $boucles, '', $defaut);
-		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
-		// on ignore le defaut fourni dans ce cas
-		$defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
-	}
+    // si recursif, forcer l'extraction du champ SQL mais ignorer le code
+    if ($boucles[$idb]->externe) {
+        index_pile($idb, $nom_champ, $boucles, '', $defaut);
+        // retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
+        // on ignore le defaut fourni dans ce cas
+        $defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
 }
 
 //
@@ -970,30 +970,30 @@ 
 //
 
 function rindex_pile($p, $champ, $motif) {
-	$n = 0;
-	$b = $p->id_boucle;
-	$p->code = '';
-	while ($b != '') {
-		foreach ($p->boucles[$b]->criteres as $critere) {
-			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
-					"]['$champ']";
-				$b = '';
-				break 2;
-			}
-		}
-		$n++;
-		$b = $p->boucles[$b]->id_parent;
-	}
-
-	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code) {
-		$p->code = "''";
-	}
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    $n = 0;
+    $b = $p->id_boucle;
+    $p->code = '';
+    while ($b != '') {
+        foreach ($p->boucles[$b]->criteres as $critere) {
+            if ($critere->op == $motif) {
+                $p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
+                    "]['$champ']";
+                $b = '';
+                break 2;
+            }
+        }
+        $n++;
+        $b = $p->boucles[$b]->id_parent;
+    }
+
+    // si on est hors d'une boucle de {recherche}, cette balise est vide
+    if (!$p->code) {
+        $p->code = "''";
+    }
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -1003,7 +1003,7 @@ 
  * @return string Nom de la balise, avec indication de boucle explicite si présent.
  */
 function zbug_presenter_champ($p, $champ = '') {
-	$balise = $champ ?: $p->nom_champ;
-	$explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
-	return "#{$explicite}{$balise}";
+    $balise = $champ ?: $p->nom_champ;
+    $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+    return "#{$explicite}{$balise}";
 }

Spacing +16 added lines, -16 removed lines

@@ -126,7 +126,7 @@ 
 	$select = true
 ) {
 	if (!is_string($defaut)) {
-		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
+		$defaut = '($Pile[0][\''.strtolower($nom_champ).'\'] ?? null)';
 	}
 
 	$idb_origine = $idb;
@@ -159,7 +159,7 @@ 
 			}
 			// renseigner la boucle source de ce champ pour les traitements
 			$boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
-			$champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
+			$champ = '$Pile[$SP'.($i ? "-$i" : '').'][\''.$c.'\']';
 			if (!$joker) {
 				return index_compose($conditionnel, $champ);
 			}
@@ -200,7 +200,7 @@ 
 function index_compose($conditionnel, $defaut) {
 	while ($c = array_pop($conditionnel)) {
 		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(" . ($defaut ?: "''") . '))';
+		$defaut = "($c:(".($defaut ?: "''").'))';
 	}
 
 	return $defaut;
@@ -247,7 +247,7 @@ 
 	if (!$r) {
 		$joker = false; // indiquer a l'appelant
 		# continuer pour chercher l'erreur suivante
-		return ["'#" . $r . ':' . $nom_champ . "'", ''];
+		return ["'#".$r.':'.$nom_champ."'", ''];
 	}
 
 	$desc = $boucles[$idb]->show;
@@ -290,7 +290,7 @@ 
 	if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
 		[, $_table, $_nom_champ] = $r;
 		if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
-			$_alias = $cle . '_' . $_nom_champ;
+			$_alias = $cle.'_'.$_nom_champ;
 			return index_exception(
 				$boucles[$idb],
 				$desc,
@@ -371,8 +371,8 @@ 
 			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
 		}
 		if ($t == null) {
-			[$e, $x] = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
+			[$e, $x] = $excep; #PHP4 affecte de gauche a droite
+			$excep = $x; #PHP5 de droite a gauche !
 			$j = $trouver_table($e, $boucle->sql_serveur);
 			if (!$j) {
 				return ['', ''];
@@ -384,7 +384,7 @@ 
 					$l = (preg_split('/\s*,\s*/', $k));
 					$k = $desc['key']['PRIMARY KEY'];
 					if (!in_array($k, $l)) {
-						spip_logger()->info("jointure impossible $e " . implode(',', $l));
+						spip_logger()->info("jointure impossible $e ".implode(',', $l));
 
 						return ['', ''];
 					}
@@ -400,7 +400,7 @@ 
 	// demander a SQL de gerer le synonyme
 	// ca permet que excep soit dynamique (Cedric, 2/3/06)
 	if ($excep != $nom_champ) {
-		$excep .= ' AS ' . $nom_champ;
+		$excep .= ' AS '.$nom_champ;
 	}
 
 	return ["$t.$excep", $nom_champ];
@@ -648,7 +648,7 @@ 
 		implode(',', $collecte),
 		($collecte ? $param : substr($param, 1)), # virer la virgule
 		memoriser_contexte_compil($p),
-		($supp ? ', ' . implode(',', $supp) : (''))
+		($supp ? ', '.implode(',', $supp) : (''))
 	);
 
 	$p->interdire_scripts = false;
@@ -682,7 +682,7 @@ 
  * @return array
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
-function collecter_balise_dynamique(array $l, Champ &$p, string $nom): array {
+function collecter_balise_dynamique(array $l, Champ & $p, string $nom): array {
 	$args = [];
 	foreach ($l as $c) {
 		if ($c === null) {
@@ -747,7 +747,7 @@ 
 	$nom = $p->id_boucle;
 
 	if ($nom && trouver_nom_serveur_distant($p)) {
-		spip_logger()->info($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+		spip_logger()->info($nom.':'.$p->nom_champ.' '._T('zbug_distant_interdit'));
 
 		return false;
 	}
@@ -823,7 +823,7 @@ 
 		&& $p->descr['documents']
 		&& (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
 	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
 	}
 
 	// La protection des champs par |safehtml est assuree par les extensions
@@ -926,7 +926,7 @@ 
 function compose_filtres_args($p, $args, $sep) {
 	$arglist = '';
 	foreach ($args as $arg) {
-		$arglist .= $sep .
+		$arglist .= $sep.
 			calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
 	}
 
@@ -976,7 +976,7 @@ 
 	while ($b != '') {
 		foreach ($p->boucles[$b]->criteres as $critere) {
 			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
+				$p->code = '$Pile[$SP'.(($n == 0) ? '' : "-$n").
 					"]['$champ']";
 				$b = '';
 				break 2;
@@ -1004,6 +1004,6 @@ 
  */
 function zbug_presenter_champ($p, $champ = '') {
 	$balise = $champ ?: $p->nom_champ;
-	$explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+	$explicite = $p->nom_boucle ? $p->nom_boucle.':' : '';
 	return "#{$explicite}{$balise}";
 }

ecrire/public/normaliser.php

Indentation +50 added lines, -50 removed lines

@@ -13,15 +13,15 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function phraser_vieux_modele($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function phraser_vieux_inclu($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 /**
@@ -32,24 +32,24 @@ 
  * @return void
  */
 function normaliser_args_inclumodel($p) {
-	$params = $p->param;
-	if (!$params) {
-		return;
-	}
-	$args = $params[0];
-	if ($args[0]) {
-		return;
-	} // filtre immediat
-	array_shift($p->param);
-	foreach ($p->param as $l) {
-		if (!array_shift($l)) {
-			$args = array_merge($args, $l);
-			array_shift($p->param);
-		} else {
-			break;
-		} // filtre
-	}
-	array_unshift($p->param, $args);
+    $params = $p->param;
+    if (!$params) {
+        return;
+    }
+    $args = $params[0];
+    if ($args[0]) {
+        return;
+    } // filtre immediat
+    array_shift($p->param);
+    foreach ($p->param as $l) {
+        if (!array_shift($l)) {
+            $args = array_merge($args, $l);
+            array_shift($p->param);
+        } else {
+            break;
+        } // filtre
+    }
+    array_unshift($p->param, $args);
 }
 
 
@@ -59,35 +59,35 @@ 
  * @return void
  */
 function normaliser_inclure($champ) {
-	normaliser_args_inclumodel($champ);
-	$l = $champ->param[0];
-	if (is_array($l) && !$l[0]) {
-		foreach ($l as $k => $p) {
-			if ($p && $p[0]->type == 'texte' && !strpos((string) $p[0]->texte, '=')) {
-				$p[0]->texte = trim((string) $p[0]->texte);
-			}
-		}
-		foreach ($l as $k => $p) {
-			if (
-				!$p || $p[0]->type != 'texte'
-				|| !preg_match('/^fond\s*=\s*(.*)$/', (string) $p[0]->texte, $r)
-			) {
-				continue;
-			}
+    normaliser_args_inclumodel($champ);
+    $l = $champ->param[0];
+    if (is_array($l) && !$l[0]) {
+        foreach ($l as $k => $p) {
+            if ($p && $p[0]->type == 'texte' && !strpos((string) $p[0]->texte, '=')) {
+                $p[0]->texte = trim((string) $p[0]->texte);
+            }
+        }
+        foreach ($l as $k => $p) {
+            if (
+                !$p || $p[0]->type != 'texte'
+                || !preg_match('/^fond\s*=\s*(.*)$/', (string) $p[0]->texte, $r)
+            ) {
+                continue;
+            }
 
-			if ($r[1]) {
-				$p[0]->texte = $r[1];
-			} else {
-				unset($p[0]);
-			}
-			$champ->texte = $p;
-			unset($champ->param[0][$k]);
-			if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
-				array_shift($champ->param);
-			}
+            if ($r[1]) {
+                $p[0]->texte = $r[1];
+            } else {
+                unset($p[0]);
+            }
+            $champ->texte = $p;
+            unset($champ->param[0][$k]);
+            if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
+                array_shift($champ->param);
+            }
 
-			return;
-		}
-	}
-	spip_logger('vieilles_def')->info('inclure sans fond ni fichier');
+            return;
+        }
+    }
+    spip_logger('vieilles_def')->info('inclure sans fond ni fichier');
 }

ecrire/public/cacher.php

Indentation +276 added lines, -276 removed lines

@@ -14,7 +14,7 @@ 
 use Spip\Component\Hasher\Hash32;
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -23,24 +23,24 @@ 
  * @internal Temporary fonction until DI in SPIP
  */
 function cache_instance(): CacheInterface {
-	static $cache = null;
-	return $cache ??= new LimitedFilesystem('calcul', _DIR_CACHE);
+    static $cache = null;
+    return $cache ??= new LimitedFilesystem('calcul', _DIR_CACHE);
 }
 
 /**
  * Returns a key cache (id) for this data
  */
 function cache_key(array $contexte, array $page): string {
-	static $hasher = null;
-	$hasher ??= new Hash32();
-	return $hasher->hash([$contexte, $page]) . '.cache';
+    static $hasher = null;
+    $hasher ??= new Hash32();
+    return $hasher->hash([$contexte, $page]) . '.cache';
 }
 
 /**
  * Écrire le cache dans un casier
  */
 function ecrire_cache(string $cache_key, array $valeur): bool {
-	return cache_instance()->set($cache_key, ['cache_key' => $cache_key, 'valeur' => $valeur]);
+    return cache_instance()->set($cache_key, ['cache_key' => $cache_key, 'valeur' => $valeur]);
 }
 
 /**
@@ -49,7 +49,7 @@ 
  * @return null|mixed null: probably cache miss
  */
 function lire_cache(string $cache_key): mixed {
-	return cache_instance()->get($cache_key)['valeur'] ?? null;
+    return cache_instance()->get($cache_key)['valeur'] ?? null;
 }
 
 /**
@@ -58,16 +58,16 @@ 
  * Parano : on signe le cache, afin d'interdire un hack d'injection dans notre memcache
  */
 function cache_signature(&$page): string {
-	if (!isset($GLOBALS['meta']['cache_signature'])) {
-		include_spip('inc/acces');
-		ecrire_meta(
-			'cache_signature',
-			hash('sha256', $_SERVER['DOCUMENT_ROOT'] . ($_SERVER['SERVER_SIGNATURE'] ?? '') . creer_uniqid()),
-			'non'
-		);
-	}
-
-	return (new Hash32())->hash($GLOBALS['meta']['cache_signature'] . $page['texte']);
+    if (!isset($GLOBALS['meta']['cache_signature'])) {
+        include_spip('inc/acces');
+        ecrire_meta(
+            'cache_signature',
+            hash('sha256', $_SERVER['DOCUMENT_ROOT'] . ($_SERVER['SERVER_SIGNATURE'] ?? '') . creer_uniqid()),
+            'non'
+        );
+    }
+
+    return (new Hash32())->hash($GLOBALS['meta']['cache_signature'] . $page['texte']);
 }
 
 /**
@@ -79,14 +79,14 @@ 
  * on positionne un flag gz si on comprime, pour savoir si on doit decompresser ou pas
  */
 function gzip_page(array $page): array {
-	if (function_exists('gzcompress') && strlen((string) $page['texte']) > 16 * 1024) {
-		$page['gz'] = true;
-		$page['texte'] = gzcompress((string) $page['texte']);
-	} else {
-		$page['gz'] = false;
-	}
-
-	return $page;
+    if (function_exists('gzcompress') && strlen((string) $page['texte']) > 16 * 1024) {
+        $page['gz'] = true;
+        $page['texte'] = gzcompress((string) $page['texte']);
+    } else {
+        $page['gz'] = false;
+    }
+
+    return $page;
 }
 
 /**
@@ -97,10 +97,10 @@ 
  * de decompresser deux fois de suite un cache (ce qui echoue)
  */
 function gunzip_page(array &$page): void {
-	if ($page['gz']) {
-		$page['texte'] = gzuncompress($page['texte']);
-		$page['gz'] = false; // ne pas gzuncompress deux fois une meme page
-	}
+    if ($page['gz']) {
+        $page['texte'] = gzuncompress($page['texte']);
+        $page['gz'] = false; // ne pas gzuncompress deux fois une meme page
+    }
 }
 
 /**
@@ -114,72 +114,72 @@ 
  *  - -1 si il faut calculer sans stocker en cache
  */
 function cache_valide(array &$page, int $date): int {
-	$now = $_SERVER['REQUEST_TIME'];
-
-	// Apparition d'un nouvel article post-date ?
-	if (
-		isset($GLOBALS['meta']['post_dates'])
-		&& $GLOBALS['meta']['post_dates'] == 'non'
-		&& isset($GLOBALS['meta']['date_prochain_postdate'])
-		&& $now > $GLOBALS['meta']['date_prochain_postdate']
-	) {
-		spip_logger()->info('Un article post-date invalide le cache');
-		include_spip('inc/rubriques');
-		calculer_prochain_postdate(true);
-	}
-
-	if (defined('_VAR_NOCACHE') && _VAR_NOCACHE) {
-		return -1;
-	}
-	if (isset($GLOBALS['meta']['cache_inhib']) && $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
-		return -1;
-	}
-	if (defined('_NO_CACHE')) {
-		return (_NO_CACHE == 0 && !isset($page['texte'])) ? 1 : _NO_CACHE;
-	}
-
-	// pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
-	if (!$page || !isset($page['texte']) || !isset($page['entetes']['X-Spip-Cache'])) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// controle de la signature
-	if ($page['sig'] !== cache_signature($page)) {
-		return _IS_BOT ? -1 : 1;
-	}
-
-	// #CACHE{n,statique} => on n'invalide pas avec derniere_modif
-	// cf. ecrire/public/balises.php, balise_CACHE_dist()
-	// Cache invalide par la meta 'derniere_modif'
-	// sauf pour les bots, qui utilisent toujours le cache
-	if (
-		(!isset($page['entetes']['X-Spip-Statique']) || $page['entetes']['X-Spip-Statique'] !== 'oui')
-		&& (
-			!_IS_BOT
-			&& $GLOBALS['derniere_modif_invalide']
-			&& isset($GLOBALS['meta']['derniere_modif'])
-			&& $date < $GLOBALS['meta']['derniere_modif']
-		)
-	) {
-		return 1;
-	}
-
-	// Sinon comparer l'age du fichier a sa duree de cache
-	$duree = (int) $page['entetes']['X-Spip-Cache'];
-	$cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
-	if ($duree == 0) {  #CACHE{0}
-	return -1;
-	} // sauf pour les bots, qui utilisent toujours le cache
-	else {
-		if (
-			!_IS_BOT && $date + $duree < $now
-			|| $date < $cache_mark
-		) {
-			return _IS_BOT ? -1 : 1;
-		} else {
-			return 0;
-		}
-	}
+    $now = $_SERVER['REQUEST_TIME'];
+
+    // Apparition d'un nouvel article post-date ?
+    if (
+        isset($GLOBALS['meta']['post_dates'])
+        && $GLOBALS['meta']['post_dates'] == 'non'
+        && isset($GLOBALS['meta']['date_prochain_postdate'])
+        && $now > $GLOBALS['meta']['date_prochain_postdate']
+    ) {
+        spip_logger()->info('Un article post-date invalide le cache');
+        include_spip('inc/rubriques');
+        calculer_prochain_postdate(true);
+    }
+
+    if (defined('_VAR_NOCACHE') && _VAR_NOCACHE) {
+        return -1;
+    }
+    if (isset($GLOBALS['meta']['cache_inhib']) && $_SERVER['REQUEST_TIME'] < $GLOBALS['meta']['cache_inhib']) {
+        return -1;
+    }
+    if (defined('_NO_CACHE')) {
+        return (_NO_CACHE == 0 && !isset($page['texte'])) ? 1 : _NO_CACHE;
+    }
+
+    // pas de cache ? on le met a jour, sauf pour les bots (on leur calcule la page sans mise en cache)
+    if (!$page || !isset($page['texte']) || !isset($page['entetes']['X-Spip-Cache'])) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // controle de la signature
+    if ($page['sig'] !== cache_signature($page)) {
+        return _IS_BOT ? -1 : 1;
+    }
+
+    // #CACHE{n,statique} => on n'invalide pas avec derniere_modif
+    // cf. ecrire/public/balises.php, balise_CACHE_dist()
+    // Cache invalide par la meta 'derniere_modif'
+    // sauf pour les bots, qui utilisent toujours le cache
+    if (
+        (!isset($page['entetes']['X-Spip-Statique']) || $page['entetes']['X-Spip-Statique'] !== 'oui')
+        && (
+            !_IS_BOT
+            && $GLOBALS['derniere_modif_invalide']
+            && isset($GLOBALS['meta']['derniere_modif'])
+            && $date < $GLOBALS['meta']['derniere_modif']
+        )
+    ) {
+        return 1;
+    }
+
+    // Sinon comparer l'age du fichier a sa duree de cache
+    $duree = (int) $page['entetes']['X-Spip-Cache'];
+    $cache_mark = ($GLOBALS['meta']['cache_mark'] ?? 0);
+    if ($duree == 0) {  #CACHE{0}
+    return -1;
+    } // sauf pour les bots, qui utilisent toujours le cache
+    else {
+        if (
+            !_IS_BOT && $date + $duree < $now
+            || $date < $cache_mark
+        ) {
+            return _IS_BOT ? -1 : 1;
+        } else {
+            return 0;
+        }
+    }
 }
 
 /**
@@ -193,58 +193,58 @@ 
  */
 function creer_cache(&$page, &$cache_key) {
 
-	// Ne rien faire si on est en preview, debug, ou si une erreur
-	// grave s'est presentee (compilation du squelette, MySQL, etc)
-	// le cas var_nocache ne devrait jamais arriver ici (securite)
-	// le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
-	if (
-		defined('_VAR_NOCACHE') && _VAR_NOCACHE
-		|| defined('spip_interdire_cache')
-	) {
-		return;
-	}
-
-	// Si la page a un invalideur de session, utiliser un cache_key spécifique
-	if (
-		isset($page['invalideurs'])
-		&& isset($page['invalideurs']['session'])
-	) {
-		// on verifie que le contenu du chemin cache indique seulement
-		// "cache sessionne" ; sa date indique la date de validite
-		// des caches sessionnes
-		if (!$tmp = lire_cache($cache_key)) {
-			spip_logger()->info('Creation cache sessionne ' . $cache_key);
-			$tmp = [
-				'invalideurs' => ['session' => ''],
-				'lastmodified' => $_SERVER['REQUEST_TIME']
-			];
-			ecrire_cache($cache_key, $tmp);
-		}
-		$cache_key = cache_key(
-			['cache_key' => $cache_key],
-			['session' => $page['invalideurs']['session']]
-		);
-	}
-
-	// ajouter la date de production dans le cache lui meme
-	// (qui contient deja sa duree de validite)
-	$page['lastmodified'] = $_SERVER['REQUEST_TIME'];
-
-	// compresser le contenu si besoin
-	$pagez = gzip_page($page);
-
-	// signer le contenu
-	$pagez['sig'] = cache_signature($pagez);
-
-	// l'enregistrer, compresse ou non...
-	$ok = ecrire_cache($cache_key, $pagez);
-
-	spip_logger()->info((_IS_BOT ? 'Bot:' : '') . "Creation du cache $cache_key pour "
-		. $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'));
-
-	// Inserer ses invalideurs
-	include_spip('inc/invalideur');
-	maj_invalideurs($cache_key, $page);
+    // Ne rien faire si on est en preview, debug, ou si une erreur
+    // grave s'est presentee (compilation du squelette, MySQL, etc)
+    // le cas var_nocache ne devrait jamais arriver ici (securite)
+    // le cas spip_interdire_cache correspond a une ereur SQL grave non anticipable
+    if (
+        defined('_VAR_NOCACHE') && _VAR_NOCACHE
+        || defined('spip_interdire_cache')
+    ) {
+        return;
+    }
+
+    // Si la page a un invalideur de session, utiliser un cache_key spécifique
+    if (
+        isset($page['invalideurs'])
+        && isset($page['invalideurs']['session'])
+    ) {
+        // on verifie que le contenu du chemin cache indique seulement
+        // "cache sessionne" ; sa date indique la date de validite
+        // des caches sessionnes
+        if (!$tmp = lire_cache($cache_key)) {
+            spip_logger()->info('Creation cache sessionne ' . $cache_key);
+            $tmp = [
+                'invalideurs' => ['session' => ''],
+                'lastmodified' => $_SERVER['REQUEST_TIME']
+            ];
+            ecrire_cache($cache_key, $tmp);
+        }
+        $cache_key = cache_key(
+            ['cache_key' => $cache_key],
+            ['session' => $page['invalideurs']['session']]
+        );
+    }
+
+    // ajouter la date de production dans le cache lui meme
+    // (qui contient deja sa duree de validite)
+    $page['lastmodified'] = $_SERVER['REQUEST_TIME'];
+
+    // compresser le contenu si besoin
+    $pagez = gzip_page($page);
+
+    // signer le contenu
+    $pagez['sig'] = cache_signature($pagez);
+
+    // l'enregistrer, compresse ou non...
+    $ok = ecrire_cache($cache_key, $pagez);
+
+    spip_logger()->info((_IS_BOT ? 'Bot:' : '') . "Creation du cache $cache_key pour "
+        . $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'));
+
+    // Inserer ses invalideurs
+    include_spip('inc/invalideur');
+    maj_invalideurs($cache_key, $page);
 }
 
 /**
@@ -272,132 +272,132 @@ 
  */
 function public_cacher_dist($contexte, &$use_cache, &$cache_key, &$page, &$lastmodified) {
 
-	# fonction de cache minimale : dire "non on ne met rien en cache"
-	# $use_cache = -1; return;
-
-	// Second appel, destine a l'enregistrement du cache sur le disque
-	if (isset($cache_key)) {
-		creer_cache($page, $cache_key);
-		return;
-	}
-
-	// Toute la suite correspond au premier appel
-	$contexte_implicite = $page['contexte_implicite'];
-
-	// Cas ignorant le cache car completement dynamique
-	if (
-		!empty($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] === 'POST'
-		|| _request('connect')
-	) {
-		$use_cache = -1;
-		$lastmodified = 0;
-		$cache_key = '';
-		$page = [];
-
-		return;
-	}
-
-	// Controler l'existence d'un cache nous correspondant
-	$cache_key = cache_key($contexte, $page);
-	$lastmodified = 0;
-
-	// charger le cache s'il existe (et si il a bien le bon hash = anticollision)
-	if (!$page = lire_cache($cache_key)) {
-		$page = [];
-	}
-
-	// s'il est sessionne, charger celui correspondant a notre session
-	if (
-		isset($page['invalideurs'])
-		&& isset($page['invalideurs']['session'])
-	) {
-		$cache_key_session = cache_key(
-			['cache_key' => $cache_key],
-			['session' => spip_session()]
-		);
-		if (
-			($page_session = lire_cache($cache_key_session)) && $page_session['lastmodified'] >= $page['lastmodified']
-		) {
-			$page = $page_session;
-		} else {
-			$page = [];
-		}
-	}
-
-
-	// Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
-	// ne le faire que si la base est disponible
-	$invalider = false;
-	if (isset($GLOBALS['meta']['invalider']) && spip_connect()) {
-		$invalider = true;
-	}
-
-	// Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
-	// on supprime le cache
-	if (
-		defined('_VAR_MODE')
-		&& _VAR_MODE
-		&& (
-			isset($_COOKIE['spip_session'])
-			|| isset($_COOKIE['spip_admin'])
-			|| @file_exists(_ACCESS_FILE_NAME)
-		)
-	) {
-		$page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
-		$invalider = true;
-	}
-	if ($invalider) {
-		include_spip('inc/invalideur');
-		retire_caches($cache_key); # API invalideur inutile
-		cache_instance()->delete($cache_key);
-		if (isset($cache_key_session) && $cache_key_session) {
-			cache_instance()->delete($cache_key_session);
-		}
-	}
-
-	// $delais par defaut
-	// pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
-	// qui sont a cache nul par defaut
-	if (!isset($GLOBALS['delais'])) {
-		if (!defined('_DUREE_CACHE_DEFAUT')) {
-			define('_DUREE_CACHE_DEFAUT', 24 * 3600);
-		}
-		$GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
-	}
-
-	// determiner la validite de la page
-	if ($page) {
-		$use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
-		// le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
-		// par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
-		$page['contexte_implicite'] = $contexte_implicite;
-		if (!$use_cache) {
-			// $page est un cache utilisable
-			gunzip_page($page);
-
-			return;
-		}
-	} else {
-		$page = ['contexte_implicite' => $contexte_implicite];
-		$use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
-	}
-
-	// Si pas valide mais pas de connexion a la base, le garder quand meme
-	if (!spip_connect()) {
-		if (isset($page['texte'])) {
-			gunzip_page($page);
-			$use_cache = 0;
-		} else {
-			spip_logger()->info("Erreur base de donnees, impossible utiliser $cache_key");
-			include_spip('inc/minipres');
-
-			return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
-		}
-	}
-
-	if ($use_cache < 0) {
-		$cache_key = '';
-	}
-
-	return;
+    # fonction de cache minimale : dire "non on ne met rien en cache"
+    # $use_cache = -1; return;
+
+    // Second appel, destine a l'enregistrement du cache sur le disque
+    if (isset($cache_key)) {
+        creer_cache($page, $cache_key);
+        return;
+    }
+
+    // Toute la suite correspond au premier appel
+    $contexte_implicite = $page['contexte_implicite'];
+
+    // Cas ignorant le cache car completement dynamique
+    if (
+        !empty($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] === 'POST'
+        || _request('connect')
+    ) {
+        $use_cache = -1;
+        $lastmodified = 0;
+        $cache_key = '';
+        $page = [];
+
+        return;
+    }
+
+    // Controler l'existence d'un cache nous correspondant
+    $cache_key = cache_key($contexte, $page);
+    $lastmodified = 0;
+
+    // charger le cache s'il existe (et si il a bien le bon hash = anticollision)
+    if (!$page = lire_cache($cache_key)) {
+        $page = [];
+    }
+
+    // s'il est sessionne, charger celui correspondant a notre session
+    if (
+        isset($page['invalideurs'])
+        && isset($page['invalideurs']['session'])
+    ) {
+        $cache_key_session = cache_key(
+            ['cache_key' => $cache_key],
+            ['session' => spip_session()]
+        );
+        if (
+            ($page_session = lire_cache($cache_key_session)) && $page_session['lastmodified'] >= $page['lastmodified']
+        ) {
+            $page = $page_session;
+        } else {
+            $page = [];
+        }
+    }
+
+
+    // Faut-il effacer des pages invalidees (en particulier ce cache-ci) ?
+    // ne le faire que si la base est disponible
+    $invalider = false;
+    if (isset($GLOBALS['meta']['invalider']) && spip_connect()) {
+        $invalider = true;
+    }
+
+    // Si un calcul, recalcul [ou preview, mais c'est recalcul] est demande,
+    // on supprime le cache
+    if (
+        defined('_VAR_MODE')
+        && _VAR_MODE
+        && (
+            isset($_COOKIE['spip_session'])
+            || isset($_COOKIE['spip_admin'])
+            || @file_exists(_ACCESS_FILE_NAME)
+        )
+    ) {
+        $page = ['contexte_implicite' => $contexte_implicite]; // ignorer le cache deja lu
+        $invalider = true;
+    }
+    if ($invalider) {
+        include_spip('inc/invalideur');
+        retire_caches($cache_key); # API invalideur inutile
+        cache_instance()->delete($cache_key);
+        if (isset($cache_key_session) && $cache_key_session) {
+            cache_instance()->delete($cache_key_session);
+        }
+    }
+
+    // $delais par defaut
+    // pour toutes les pages sans #CACHE{} hors modeles/ et espace privé
+    // qui sont a cache nul par defaut
+    if (!isset($GLOBALS['delais'])) {
+        if (!defined('_DUREE_CACHE_DEFAUT')) {
+            define('_DUREE_CACHE_DEFAUT', 24 * 3600);
+        }
+        $GLOBALS['delais'] = _DUREE_CACHE_DEFAUT;
+    }
+
+    // determiner la validite de la page
+    if ($page) {
+        $use_cache = cache_valide($page, $page['lastmodified'] ?? 0);
+        // le contexte implicite n'est pas stocke dans le cache, mais il y a equivalence
+        // par le nom du cache. On le reinjecte donc ici pour utilisation eventuelle au calcul
+        $page['contexte_implicite'] = $contexte_implicite;
+        if (!$use_cache) {
+            // $page est un cache utilisable
+            gunzip_page($page);
+
+            return;
+        }
+    } else {
+        $page = ['contexte_implicite' => $contexte_implicite];
+        $use_cache = cache_valide($page, 0); // fichier cache absent : provoque le calcul
+    }
+
+    // Si pas valide mais pas de connexion a la base, le garder quand meme
+    if (!spip_connect()) {
+        if (isset($page['texte'])) {
+            gunzip_page($page);
+            $use_cache = 0;
+        } else {
+            spip_logger()->info("Erreur base de donnees, impossible utiliser $cache_key");
+            include_spip('inc/minipres');
+
+            return minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
+        }
+    }
+
+    if ($use_cache < 0) {
+        $cache_key = '';
+    }
+
+    return;
 }

Spacing +6 added lines, -6 removed lines

@@ -33,7 +33,7 @@ 
 function cache_key(array $contexte, array $page): string {
 	static $hasher = null;
 	$hasher ??= new Hash32();
-	return $hasher->hash([$contexte, $page]) . '.cache';
+	return $hasher->hash([$contexte, $page]).'.cache';
 }
 
 /**
@@ -62,12 +62,12 @@ 
 		include_spip('inc/acces');
 		ecrire_meta(
 			'cache_signature',
-			hash('sha256', $_SERVER['DOCUMENT_ROOT'] . ($_SERVER['SERVER_SIGNATURE'] ?? '') . creer_uniqid()),
+			hash('sha256', $_SERVER['DOCUMENT_ROOT'].($_SERVER['SERVER_SIGNATURE'] ?? '').creer_uniqid()),
 			'non'
 		);
 	}
 
-	return (new Hash32())->hash($GLOBALS['meta']['cache_signature'] . $page['texte']);
+	return (new Hash32())->hash($GLOBALS['meta']['cache_signature'].$page['texte']);
 }
 
 /**
@@ -213,7 +213,7 @@ 
 		// "cache sessionne" ; sa date indique la date de validite
 		// des caches sessionnes
 		if (!$tmp = lire_cache($cache_key)) {
-			spip_logger()->info('Creation cache sessionne ' . $cache_key);
+			spip_logger()->info('Creation cache sessionne '.$cache_key);
 			$tmp = [
 				'invalideurs' => ['session' => ''],
 				'lastmodified' => $_SERVER['REQUEST_TIME']
@@ -239,8 +239,8 @@ 
 	// l'enregistrer, compresse ou non...
 	$ok = ecrire_cache($cache_key, $pagez);
 
-	spip_logger()->info((_IS_BOT ? 'Bot:' : '') . "Creation du cache $cache_key pour "
-		. $page['entetes']['X-Spip-Cache'] . ' secondes' . ($ok ? '' : ' (erreur!)'));
+	spip_logger()->info((_IS_BOT ? 'Bot:' : '')."Creation du cache $cache_key pour "
+		. $page['entetes']['X-Spip-Cache'].' secondes'.($ok ? '' : ' (erreur!)'));
 
 	// Inserer ses invalideurs
 	include_spip('inc/invalideur');