spip / SPIP

ecrire/public/composer.php

Indentation +757 added lines, -757 removed lines

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

Spacing +44 added lines, -44 removed lines

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

ecrire/public/boucles.php

Indentation +24 added lines, -24 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -32,7 +32,7 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_DEFAUT_dist($id_boucle, &$boucles) {
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }
 
 
@@ -51,7 +51,7 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_BOUCLE_dist($id_boucle, &$boucles) {
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }
 
 
@@ -81,30 +81,30 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
-	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . '.id_rubrique';
+    $boucle = &$boucles[$id_boucle];
+    $id_table = $boucle->id_table . '.id_rubrique';
 
-	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
-	// sauf en presence du critere {tout} (vu par phraser_html)
-	// ou {id_article} qui positionne aussi le {tout}
+    // Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
+    // sauf en presence du critere {tout} (vu par phraser_html)
+    // ou {id_article} qui positionne aussi le {tout}
 
-	$boucle->hierarchie = 'if (!($id_rubrique = intval('
-		. calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
-		. ")))\n\t\treturn '';\n\t"
-		. "include_spip('inc/rubriques');\n\t"
-		. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
-		. (isset($boucle->modificateur['tout']) ? 'true' : 'false')
-		. ");\n\t"
-		. 'if (!$hierarchie) return "";' . "\n\t";
+    $boucle->hierarchie = 'if (!($id_rubrique = intval('
+        . calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
+        . ")))\n\t\treturn '';\n\t"
+        . "include_spip('inc/rubriques');\n\t"
+        . '$hierarchie = calcul_hierarchie_in($id_rubrique,'
+        . (isset($boucle->modificateur['tout']) ? 'true' : 'false')
+        . ");\n\t"
+        . 'if (!$hierarchie) return "";' . "\n\t";
 
-	$boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
+    $boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
 
-	$order = "FIELD($id_table, \$hierarchie)";
-	if (!isset($boucle->default_order[0]) or $boucle->default_order[0] != ' DESC') {
-		$boucle->default_order[] = "\"$order\"";
-	} else {
-		$boucle->default_order[0] = "\"$order DESC\"";
-	}
+    $order = "FIELD($id_table, \$hierarchie)";
+    if (!isset($boucle->default_order[0]) or $boucle->default_order[0] != ' DESC') {
+        $boucle->default_order[] = "\"$order\"";
+    } else {
+        $boucle->default_order[0] = "\"$order DESC\"";
+    }
 
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }

Spacing +2 added lines, -2 removed lines

@@ -82,7 +82,7 @@ 
  **/
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
 	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . '.id_rubrique';
+	$id_table = $boucle->id_table.'.id_rubrique';
 
 	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
 	// sauf en presence du critere {tout} (vu par phraser_html)
@@ -95,7 +95,7 @@ 
 		. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
 		. (isset($boucle->modificateur['tout']) ? 'true' : 'false')
 		. ");\n\t"
-		. 'if (!$hierarchie) return "";' . "\n\t";
+		. 'if (!$hierarchie) return "";'."\n\t";
 
 	$boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
 

ecrire/public/styliser.php

Indentation +126 added lines, -126 removed lines

@@ -20,7 +20,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Ce fichier doit imperativement definir la fonction ci-dessous:
@@ -39,59 +39,59 @@ 
  * @return array
  */
 function public_styliser_dist($fond, $contexte, $lang = '', $connect = '') {
-	static $styliser_par_z;
-
-	// s'assurer que le fond est licite
-	// car il peut etre construit a partir d'une variable d'environnement
-	if (strpos($fond, '../') !== false or strncmp($fond, '/', 1) == 0) {
-		$fond = '404';
-	}
-
-	if (strncmp($fond, 'modeles/', 8) == 0) {
-		$modele = substr($fond, 8);
-		$modele = styliser_modele($modele, null, $contexte);
-		$fond = "modeles/$modele";
-	}
-
-	// Choisir entre $fond-dist.html, $fond=7.html, etc?
-	$id_rubrique = 0;
-	// Chercher le fond qui va servir de squelette
-	if ($r = quete_rubrique_fond($contexte)) {
-		list($id_rubrique, $lang) = $r;
-	}
-
-	// trouver un squelette du nom demande
-	// ne rien dire si on ne trouve pas,
-	// c'est l'appelant qui sait comment gerer la situation
-	// ou les plugins qui feront mieux dans le pipeline
-	$squelette = trouver_fond($fond, '', true);
-	$ext = $squelette['extension'];
-
-	$flux = [
-		'args' => [
-			'id_rubrique' => $id_rubrique,
-			'ext' => $ext,
-			'fond' => $fond,
-			'lang' => $lang,
-			'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
-			'connect' => $connect
-		],
-		'data' => $squelette['fond'],
-	];
-
-	if (test_espace_prive() or defined('_ZPIP')) {
-		if (!$styliser_par_z) {
-			$styliser_par_z = charger_fonction('styliser_par_z', 'public');
-		}
-		$flux = $styliser_par_z($flux);
-	}
-
-	$flux = styliser_par_objets($flux);
-
-	// pipeline styliser
-	$squelette = pipeline('styliser', $flux);
-
-	return [$squelette, $ext, $ext, "$squelette.$ext"];
+    static $styliser_par_z;
+
+    // s'assurer que le fond est licite
+    // car il peut etre construit a partir d'une variable d'environnement
+    if (strpos($fond, '../') !== false or strncmp($fond, '/', 1) == 0) {
+        $fond = '404';
+    }
+
+    if (strncmp($fond, 'modeles/', 8) == 0) {
+        $modele = substr($fond, 8);
+        $modele = styliser_modele($modele, null, $contexte);
+        $fond = "modeles/$modele";
+    }
+
+    // Choisir entre $fond-dist.html, $fond=7.html, etc?
+    $id_rubrique = 0;
+    // Chercher le fond qui va servir de squelette
+    if ($r = quete_rubrique_fond($contexte)) {
+        list($id_rubrique, $lang) = $r;
+    }
+
+    // trouver un squelette du nom demande
+    // ne rien dire si on ne trouve pas,
+    // c'est l'appelant qui sait comment gerer la situation
+    // ou les plugins qui feront mieux dans le pipeline
+    $squelette = trouver_fond($fond, '', true);
+    $ext = $squelette['extension'];
+
+    $flux = [
+        'args' => [
+            'id_rubrique' => $id_rubrique,
+            'ext' => $ext,
+            'fond' => $fond,
+            'lang' => $lang,
+            'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
+            'connect' => $connect
+        ],
+        'data' => $squelette['fond'],
+    ];
+
+    if (test_espace_prive() or defined('_ZPIP')) {
+        if (!$styliser_par_z) {
+            $styliser_par_z = charger_fonction('styliser_par_z', 'public');
+        }
+        $flux = $styliser_par_z($flux);
+    }
+
+    $flux = styliser_par_objets($flux);
+
+    // pipeline styliser
+    $squelette = pipeline('styliser', $flux);
+
+    return [$squelette, $ext, $ext, "$squelette.$ext"];
 }
 
 /**
@@ -110,32 +110,32 @@ 
  *     Données du pipeline styliser
  **/
 function styliser_par_objets($flux) {
-	if (
-		test_espace_prive()
-		and !$squelette = $flux['data']
-		and strncmp($flux['args']['fond'], 'prive/objets/', 13) == 0
-		and $echafauder = charger_fonction('echafauder', 'prive', true)
-	) {
-		if (strncmp($flux['args']['fond'], 'prive/objets/liste/', 19) == 0) {
-			$table = table_objet(substr($flux['args']['fond'], 19));
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql])) {
-				$flux['data'] = $echafauder($table, $table, $table_sql, 'prive/objets/liste/objets', $flux['args']['ext']);
-			}
-		}
-		if (strncmp($flux['args']['fond'], 'prive/objets/contenu/', 21) == 0) {
-			$type = substr($flux['args']['fond'], 21);
-			$table = table_objet($type);
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql])) {
-				$flux['data'] = $echafauder($type, $table, $table_sql, 'prive/objets/contenu/objet', $flux['args']['ext']);
-			}
-		}
-	}
-
-	return $flux;
+    if (
+        test_espace_prive()
+        and !$squelette = $flux['data']
+        and strncmp($flux['args']['fond'], 'prive/objets/', 13) == 0
+        and $echafauder = charger_fonction('echafauder', 'prive', true)
+    ) {
+        if (strncmp($flux['args']['fond'], 'prive/objets/liste/', 19) == 0) {
+            $table = table_objet(substr($flux['args']['fond'], 19));
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql])) {
+                $flux['data'] = $echafauder($table, $table, $table_sql, 'prive/objets/liste/objets', $flux['args']['ext']);
+            }
+        }
+        if (strncmp($flux['args']['fond'], 'prive/objets/contenu/', 21) == 0) {
+            $type = substr($flux['args']['fond'], 21);
+            $table = table_objet($type);
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql])) {
+                $flux['data'] = $echafauder($type, $table, $table_sql, 'prive/objets/contenu/objet', $flux['args']['ext']);
+            }
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -151,50 +151,50 @@ 
  * @return array
  */
 function quete_rubrique_fond($contexte) {
-	static $liste_objets = null;
-	static $quete = [];
-	if (is_null($liste_objets)) {
-		$liste_objets = [];
-		include_spip('inc/urls');
-		include_spip('public/quete');
-		$l = urls_liste_objets(false);
-		// placer la rubrique en tete des objets
-		$l = array_diff($l, ['rubrique']);
-		array_unshift($l, 'rubrique');
-		foreach ($l as $objet) {
-			$id = id_table_objet($objet);
-			if (!isset($liste_objets[$id])) {
-				$liste_objets[$id] = objet_type($objet, false);
-			}
-		}
-	}
-	$c = array_intersect_key($contexte, $liste_objets);
-	if (!count($c)) {
-		return false;
-	}
-
-	$c = array_map('intval', $c);
-	$s = serialize($c);
-	if (isset($quete[$s])) {
-		return $quete[$s];
-	}
-
-	if (isset($c['id_rubrique']) and $r = $c['id_rubrique']) {
-		unset($c['id_rubrique']);
-		$c = ['id_rubrique' => $r] + $c;
-	}
-
-	foreach ($c as $_id => $id) {
-		if (
-			$id
-			and $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]), $id)
-		) {
-			$lang = isset($row['lang']) ? $row['lang'] : '';
-			if ($_id == 'id_rubrique' or (isset($row['id_rubrique']) and $id = $row['id_rubrique'])) {
-				return $quete[$s] = [$id, $lang];
-			}
-		}
-	}
-
-	return $quete[$s] = false;
+    static $liste_objets = null;
+    static $quete = [];
+    if (is_null($liste_objets)) {
+        $liste_objets = [];
+        include_spip('inc/urls');
+        include_spip('public/quete');
+        $l = urls_liste_objets(false);
+        // placer la rubrique en tete des objets
+        $l = array_diff($l, ['rubrique']);
+        array_unshift($l, 'rubrique');
+        foreach ($l as $objet) {
+            $id = id_table_objet($objet);
+            if (!isset($liste_objets[$id])) {
+                $liste_objets[$id] = objet_type($objet, false);
+            }
+        }
+    }
+    $c = array_intersect_key($contexte, $liste_objets);
+    if (!count($c)) {
+        return false;
+    }
+
+    $c = array_map('intval', $c);
+    $s = serialize($c);
+    if (isset($quete[$s])) {
+        return $quete[$s];
+    }
+
+    if (isset($c['id_rubrique']) and $r = $c['id_rubrique']) {
+        unset($c['id_rubrique']);
+        $c = ['id_rubrique' => $r] + $c;
+    }
+
+    foreach ($c as $_id => $id) {
+        if (
+            $id
+            and $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]), $id)
+        ) {
+            $lang = isset($row['lang']) ? $row['lang'] : '';
+            if ($_id == 'id_rubrique' or (isset($row['id_rubrique']) and $id = $row['id_rubrique'])) {
+                return $quete[$s] = [$id, $lang];
+            }
+        }
+    }
+
+    return $quete[$s] = false;
 }

ecrire/maj/2021.php

Indentation +3 added lines, -3 removed lines

@@ -19,10 +19,10 @@
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 $GLOBALS['maj'][2021021800] = [
-	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
-	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
+    ['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
+    ['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
 ];

Spacing +2 added lines, -2 removed lines

@@ -23,6 +23,6 @@
 }
 
 $GLOBALS['maj'][2021021800] = [
-	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
-	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
+	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL"],
+	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL"],
 ];

ecrire/maj/legacy/v31.php

Indentation +24 added lines, -24 removed lines

@@ -18,12 +18,12 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 $GLOBALS['maj'][21676] = [
-	['ranger_cache_gd2'],
+    ['ranger_cache_gd2'],
 ];
 
 /**
@@ -32,30 +32,30 @@ 
  * https://core.spip.net/issues/3277
  */
 function ranger_cache_gd2() {
-	spip_log('ranger_cache_gd2');
-	$base = _DIR_VAR . 'cache-gd2/';
-	if (is_dir($base) and is_readable($base)) {
-		if ($dir = opendir($base)) {
-			while (($f = readdir($dir)) !== false) {
-				if (
-					!is_dir($base . $f) and strncmp($f, '.', 1) !== 0
-					and preg_match(',[0-9a-f]{32}\.\w+,', $f)
-				) {
-					$sub = substr($f, 0, 2);
-					$sub = sous_repertoire($base, $sub);
-					@rename($base . $f, $sub . substr($f, 2));
-					@unlink($base . $f); // au cas ou le rename a foire (collision)
-				}
-				if (time() >= _TIME_OUT) {
-					return;
-				}
-			}
-		}
-	}
+    spip_log('ranger_cache_gd2');
+    $base = _DIR_VAR . 'cache-gd2/';
+    if (is_dir($base) and is_readable($base)) {
+        if ($dir = opendir($base)) {
+            while (($f = readdir($dir)) !== false) {
+                if (
+                    !is_dir($base . $f) and strncmp($f, '.', 1) !== 0
+                    and preg_match(',[0-9a-f]{32}\.\w+,', $f)
+                ) {
+                    $sub = substr($f, 0, 2);
+                    $sub = sous_repertoire($base, $sub);
+                    @rename($base . $f, $sub . substr($f, 2));
+                    @unlink($base . $f); // au cas ou le rename a foire (collision)
+                }
+                if (time() >= _TIME_OUT) {
+                    return;
+                }
+            }
+        }
+    }
 }
 
 
 $GLOBALS['maj'][21742] = [
-	['sql_alter', "TABLE spip_articles CHANGE url_site url_site text DEFAULT '' NOT NULL"],
-	['sql_alter', "TABLE spip_articles CHANGE virtuel virtuel text DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_articles CHANGE url_site url_site text DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_articles CHANGE virtuel virtuel text DEFAULT '' NOT NULL"],
 ];

Spacing +4 added lines, -4 removed lines

@@ -33,18 +33,18 @@
  */
 function ranger_cache_gd2() {
 	spip_log('ranger_cache_gd2');
-	$base = _DIR_VAR . 'cache-gd2/';
+	$base = _DIR_VAR.'cache-gd2/';
 	if (is_dir($base) and is_readable($base)) {
 		if ($dir = opendir($base)) {
 			while (($f = readdir($dir)) !== false) {
 				if (
-					!is_dir($base . $f) and strncmp($f, '.', 1) !== 0
+					!is_dir($base.$f) and strncmp($f, '.', 1) !== 0
 					and preg_match(',[0-9a-f]{32}\.\w+,', $f)
 				) {
 					$sub = substr($f, 0, 2);
 					$sub = sous_repertoire($base, $sub);
-					@rename($base . $f, $sub . substr($f, 2));
-					@unlink($base . $f); // au cas ou le rename a foire (collision)
+					@rename($base.$f, $sub.substr($f, 2));
+					@unlink($base.$f); // au cas ou le rename a foire (collision)
 				}
 				if (time() >= _TIME_OUT) {
 					return;

ecrire/maj/legacy/v30.php

Indentation +230 added lines, -230 removed lines

@@ -18,18 +18,18 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 $GLOBALS['maj'][16428] = [
-	['maj_liens', 'auteur'], // creer la table liens
-	['maj_liens', 'auteur', 'article'],
-	['sql_drop_table', 'spip_auteurs_articles'],
-	['maj_liens', 'auteur', 'rubrique'],
-	['sql_drop_table', 'spip_auteurs_rubriques'],
-	['maj_liens', 'auteur', 'message'],
-	['sql_drop_table', 'spip_auteurs_messages'],
+    ['maj_liens', 'auteur'], // creer la table liens
+    ['maj_liens', 'auteur', 'article'],
+    ['sql_drop_table', 'spip_auteurs_articles'],
+    ['maj_liens', 'auteur', 'rubrique'],
+    ['sql_drop_table', 'spip_auteurs_rubriques'],
+    ['maj_liens', 'auteur', 'message'],
+    ['sql_drop_table', 'spip_auteurs_messages'],
 ];
 
 /**
@@ -55,89 +55,89 @@ 
  */
 function maj_liens($pivot, $l = '') {
 
-	@define('_LOG_FILTRE_GRAVITE', 8);
-
-	$exceptions_pluriel = ['forum' => 'forum', 'syndic' => 'syndic'];
-
-	$pivot = preg_replace(',[^\w],', '', $pivot); // securite
-	$pivots = (isset($exceptions_pluriel[$pivot]) ? $exceptions_pluriel[$pivot] : $pivot . 's');
-	$liens = 'spip_' . $pivots . '_liens';
-	$id_pivot = 'id_' . $pivot;
-	// Creer spip_auteurs_liens
-	global $tables_auxiliaires;
-	if (!$l) {
-		include_spip('base/auxiliaires');
-		include_spip('base/create');
-		creer_ou_upgrader_table($liens, $tables_auxiliaires[$liens], false);
-	} else {
-		// Preparer
-		$l = preg_replace(',[^\w],', '', $l); // securite
-		$primary = "id_$l";
-		$objet = ($l == 'syndic' ? 'site' : $l);
-		$ls = (isset($exceptions_pluriel[$l]) ? $exceptions_pluriel[$l] : $l . 's');
-		$ancienne_table = 'spip_' . $pivots . '_' . $ls;
-		$pool = 400;
-
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		if (!$desc = $trouver_table($ancienne_table)) {
-			return;
-		}
-
-		// securite pour ne pas perdre de donnees
-		if (!$trouver_table($liens)) {
-			return;
-		}
-
-		$champs = $desc['field'];
-		if (isset($champs['maj'])) {
-			unset($champs['maj']);
-		}
-		if (isset($champs[$primary])) {
-			unset($champs[$primary]);
-		}
-
-		$champs = array_keys($champs);
-		// ne garder que les champs qui existent sur la table destination
-		if ($desc_cible = $trouver_table($liens)) {
-			$champs = array_intersect($champs, array_keys($desc_cible['field']));
-		}
-
-		$champs[] = "$primary as id_objet";
-		$champs[] = "'$objet' as objet";
-		$champs = implode(', ', $champs);
-
-		// Recopier les donnees
-		$sub_pool = 100;
-		while ($ids = array_map('reset', sql_allfetsel("$primary", $ancienne_table, '', '', '', "0,$sub_pool"))) {
-			$insert = [];
-			foreach ($ids as $id) {
-				$n = sql_countsel($liens, "objet='$objet' AND id_objet=" . intval($id));
-				while ($t = sql_allfetsel($champs, $ancienne_table, "$primary=" . intval($id), '', $id_pivot, "$n,$pool")) {
-					$n += count($t);
-					// empiler en s'assurant a minima de l'unicite
-					while ($r = array_shift($t)) {
-						$insert[$r[$id_pivot] . ':' . $r['id_objet']] = $r;
-					}
-					if (count($insert) >= $sub_pool) {
-						maj_liens_insertq_multi_check($liens, $insert, $tables_auxiliaires[$liens]);
-						$insert = [];
-					}
-					// si timeout, sortir, la relance nous ramenera dans cette fonction
-					// et on verifiera/repartira de la
-					if (time() >= _TIME_OUT) {
-						return;
-					}
-				}
-				if (time() >= _TIME_OUT) {
-					return;
-				}
-			}
-			if (count($insert)) {
-				maj_liens_insertq_multi_check($liens, $insert, $tables_auxiliaires[$liens]);
-			}
-			sql_delete($ancienne_table, sql_in($primary, $ids));
-		}
-	}
+    @define('_LOG_FILTRE_GRAVITE', 8);
+
+    $exceptions_pluriel = ['forum' => 'forum', 'syndic' => 'syndic'];
+
+    $pivot = preg_replace(',[^\w],', '', $pivot); // securite
+    $pivots = (isset($exceptions_pluriel[$pivot]) ? $exceptions_pluriel[$pivot] : $pivot . 's');
+    $liens = 'spip_' . $pivots . '_liens';
+    $id_pivot = 'id_' . $pivot;
+    // Creer spip_auteurs_liens
+    global $tables_auxiliaires;
+    if (!$l) {
+        include_spip('base/auxiliaires');
+        include_spip('base/create');
+        creer_ou_upgrader_table($liens, $tables_auxiliaires[$liens], false);
+    } else {
+        // Preparer
+        $l = preg_replace(',[^\w],', '', $l); // securite
+        $primary = "id_$l";
+        $objet = ($l == 'syndic' ? 'site' : $l);
+        $ls = (isset($exceptions_pluriel[$l]) ? $exceptions_pluriel[$l] : $l . 's');
+        $ancienne_table = 'spip_' . $pivots . '_' . $ls;
+        $pool = 400;
+
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        if (!$desc = $trouver_table($ancienne_table)) {
+            return;
+        }
+
+        // securite pour ne pas perdre de donnees
+        if (!$trouver_table($liens)) {
+            return;
+        }
+
+        $champs = $desc['field'];
+        if (isset($champs['maj'])) {
+            unset($champs['maj']);
+        }
+        if (isset($champs[$primary])) {
+            unset($champs[$primary]);
+        }
+
+        $champs = array_keys($champs);
+        // ne garder que les champs qui existent sur la table destination
+        if ($desc_cible = $trouver_table($liens)) {
+            $champs = array_intersect($champs, array_keys($desc_cible['field']));
+        }
+
+        $champs[] = "$primary as id_objet";
+        $champs[] = "'$objet' as objet";
+        $champs = implode(', ', $champs);
+
+        // Recopier les donnees
+        $sub_pool = 100;
+        while ($ids = array_map('reset', sql_allfetsel("$primary", $ancienne_table, '', '', '', "0,$sub_pool"))) {
+            $insert = [];
+            foreach ($ids as $id) {
+                $n = sql_countsel($liens, "objet='$objet' AND id_objet=" . intval($id));
+                while ($t = sql_allfetsel($champs, $ancienne_table, "$primary=" . intval($id), '', $id_pivot, "$n,$pool")) {
+                    $n += count($t);
+                    // empiler en s'assurant a minima de l'unicite
+                    while ($r = array_shift($t)) {
+                        $insert[$r[$id_pivot] . ':' . $r['id_objet']] = $r;
+                    }
+                    if (count($insert) >= $sub_pool) {
+                        maj_liens_insertq_multi_check($liens, $insert, $tables_auxiliaires[$liens]);
+                        $insert = [];
+                    }
+                    // si timeout, sortir, la relance nous ramenera dans cette fonction
+                    // et on verifiera/repartira de la
+                    if (time() >= _TIME_OUT) {
+                        return;
+                    }
+                }
+                if (time() >= _TIME_OUT) {
+                    return;
+                }
+            }
+            if (count($insert)) {
+                maj_liens_insertq_multi_check($liens, $insert, $tables_auxiliaires[$liens]);
+            }
+            sql_delete($ancienne_table, sql_in($primary, $ids));
+        }
+    }
 }
 
 /**
@@ -151,86 +151,86 @@ 
  * @return void
  **/
 function maj_liens_insertq_multi_check($table, $couples, $desc = []) {
-	$n_before = sql_countsel($table);
-	sql_insertq_multi($table, $couples, $desc);
-	$n_after = sql_countsel($table);
-	if (($n_after - $n_before) == count($couples)) {
-		return;
-	}
-	// si ecart, on recommence l'insertion ligne par ligne...
-	// moins rapide mais secure : seul le couple en doublon echouera, et non toute la serie
-	foreach ($couples as $c) {
-		sql_insertq($table, $c, $desc);
-	}
+    $n_before = sql_countsel($table);
+    sql_insertq_multi($table, $couples, $desc);
+    $n_after = sql_countsel($table);
+    if (($n_after - $n_before) == count($couples)) {
+        return;
+    }
+    // si ecart, on recommence l'insertion ligne par ligne...
+    // moins rapide mais secure : seul le couple en doublon echouera, et non toute la serie
+    foreach ($couples as $c) {
+        sql_insertq($table, $c, $desc);
+    }
 }
 
 $GLOBALS['maj'][17311] = [
-	[
-		'ecrire_meta',
-		'multi_objets',
-		implode(
-			',',
-			array_diff(
-				[
-					(isset($GLOBALS['meta']['multi_rubriques']) and $GLOBALS['meta']['multi_rubriques'] == 'oui')
-						? 'spip_rubriques' : '',
-					(isset($GLOBALS['meta']['multi_articles']) and $GLOBALS['meta']['multi_articles'] == 'oui')
-						? 'spip_articles' : ''
-				],
-				['']
-			)
-		)
-	],
-	[
-		'ecrire_meta',
-		'gerer_trad_objets',
-		implode(
-			',',
-			array_diff(
-				[
-					(isset($GLOBALS['meta']['gerer_trad']) and $GLOBALS['meta']['gerer_trad'] == 'oui')
-						? 'spip_articles' : ''
-				],
-				['']
-			)
-		)
-	],
+    [
+        'ecrire_meta',
+        'multi_objets',
+        implode(
+            ',',
+            array_diff(
+                [
+                    (isset($GLOBALS['meta']['multi_rubriques']) and $GLOBALS['meta']['multi_rubriques'] == 'oui')
+                        ? 'spip_rubriques' : '',
+                    (isset($GLOBALS['meta']['multi_articles']) and $GLOBALS['meta']['multi_articles'] == 'oui')
+                        ? 'spip_articles' : ''
+                ],
+                ['']
+            )
+        )
+    ],
+    [
+        'ecrire_meta',
+        'gerer_trad_objets',
+        implode(
+            ',',
+            array_diff(
+                [
+                    (isset($GLOBALS['meta']['gerer_trad']) and $GLOBALS['meta']['gerer_trad'] == 'oui')
+                        ? 'spip_articles' : ''
+                ],
+                ['']
+            )
+        )
+    ],
 ];
 $GLOBALS['maj'][17555] = [
-	['sql_alter', "TABLE spip_resultats ADD table_objet varchar(30) DEFAULT '' NOT NULL"],
-	['sql_alter', "TABLE spip_resultats ADD serveur char(16) DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_resultats ADD table_objet varchar(30) DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_resultats ADD serveur char(16) DEFAULT '' NOT NULL"],
 ];
 
 $GLOBALS['maj'][17563] = [
-	['sql_alter', "TABLE spip_articles ADD virtuel VARCHAR(255) DEFAULT '' NOT NULL"],
-	['sql_update', 'spip_articles', ['virtuel' => 'SUBSTRING(chapo,2)', 'chapo' => "''"], "chapo LIKE '=_%'"],
+    ['sql_alter', "TABLE spip_articles ADD virtuel VARCHAR(255) DEFAULT '' NOT NULL"],
+    ['sql_update', 'spip_articles', ['virtuel' => 'SUBSTRING(chapo,2)', 'chapo' => "''"], "chapo LIKE '=_%'"],
 ];
 
 $GLOBALS['maj'][17577] = [
-	['maj_tables', ['spip_jobs', 'spip_jobs_liens']],
+    ['maj_tables', ['spip_jobs', 'spip_jobs_liens']],
 ];
 
 $GLOBALS['maj'][17743] = [
-	['sql_update', 'spip_auteurs', ['prefs' => 'bio', 'bio' => "''"], "statut='nouveau' AND bio<>''"],
+    ['sql_update', 'spip_auteurs', ['prefs' => 'bio', 'bio' => "''"], "statut='nouveau' AND bio<>''"],
 ];
 
 $GLOBALS['maj'][18219] = [
-	['sql_alter', 'TABLE spip_rubriques DROP id_import'],
-	['sql_alter', 'TABLE spip_rubriques DROP export'],
+    ['sql_alter', 'TABLE spip_rubriques DROP id_import'],
+    ['sql_alter', 'TABLE spip_rubriques DROP export'],
 ];
 
 $GLOBALS['maj'][18310] = [
-	['sql_alter', "TABLE spip_auteurs_liens CHANGE vu vu VARCHAR(6) DEFAULT 'non' NOT NULL"],
+    ['sql_alter', "TABLE spip_auteurs_liens CHANGE vu vu VARCHAR(6) DEFAULT 'non' NOT NULL"],
 ];
 
 $GLOBALS['maj'][18597] = [
-	['sql_alter', "TABLE spip_rubriques ADD profondeur smallint(5) DEFAULT '0' NOT NULL"],
-	['maj_propager_les_secteurs'],
+    ['sql_alter', "TABLE spip_rubriques ADD profondeur smallint(5) DEFAULT '0' NOT NULL"],
+    ['maj_propager_les_secteurs'],
 ];
 
 $GLOBALS['maj'][18955] = [
-	['sql_alter', 'TABLE spip_auteurs_liens ADD INDEX id_objet (id_objet)'],
-	['sql_alter', 'TABLE spip_auteurs_liens ADD INDEX objet (objet)'],
+    ['sql_alter', 'TABLE spip_auteurs_liens ADD INDEX id_objet (id_objet)'],
+    ['sql_alter', 'TABLE spip_auteurs_liens ADD INDEX objet (objet)'],
 ];
 
 /**
@@ -239,8 +239,8 @@ 
  * @uses propager_les_secteurs()
  **/
 function maj_propager_les_secteurs() {
-	include_spip('inc/rubriques');
-	propager_les_secteurs();
+    include_spip('inc/rubriques');
+    propager_les_secteurs();
 }
 
 /**
@@ -253,87 +253,87 @@ 
 function maj_collation_sqlite() {
 
 
-	include_spip('base/dump');
-	$tables = base_lister_toutes_tables();
-
-	// rien a faire si base non sqlite
-	if (strncmp($GLOBALS['connexions'][0]['type'], 'sqlite', 6) !== 0) {
-		return;
-	}
-
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	// forcer le vidage de cache
-	$trouver_table('');
-
-	// cas particulier spip_auteurs : retablir le collate binary sur le login
-	$desc = $trouver_table('spip_auteurs');
-	spip_log('spip_auteurs : ' . var_export($desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
-	if (stripos($desc['field']['login'], 'BINARY') === false) {
-		spip_log('Retablir champ login BINARY sur table spip_auteurs', 'maj');
-		sql_alter('table spip_auteurs change login login VARCHAR(255) BINARY');
-		$trouver_table('');
-		$new_desc = $trouver_table('spip_auteurs');
-		spip_log('Apres conversion spip_auteurs : ' . var_export($new_desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
-	}
-
-	foreach ($tables as $table) {
-		if (time() >= _TIME_OUT) {
-			return;
-		}
-		if ($desc = $trouver_table($table)) {
-			$desc_collate = _sqlite_remplacements_definitions_table($desc['field']);
-			if ($d = array_diff($desc['field'], $desc_collate)) {
-				spip_log("Table $table COLLATE incorrects", 'maj');
-
-				// cas particulier spip_urls :
-				// supprimer les doublons avant conversion sinon echec (on garde les urls les plus recentes)
-				if ($table == 'spip_urls') {
-					// par date DESC pour conserver les urls les plus recentes
-					$data = sql_allfetsel('*', 'spip_urls', '', '', 'date DESC');
-					$urls = [];
-					foreach ($data as $d) {
-						$key = $d['id_parent'] . '::' . strtolower($d['url']);
-						if (!isset($urls[$key])) {
-							$urls[$key] = true;
-						} else {
-							spip_log(
-								'Suppression doublon dans spip_urls avant conversion : ' . serialize($d),
-								'maj.' . _LOG_INFO_IMPORTANTE
-							);
-							sql_delete('spip_urls', 'id_parent=' . sql_quote($d['id_parent']) . ' AND url=' . sql_quote($d['url']));
-						}
-					}
-				}
-				foreach ($desc['field'] as $field => $type) {
-					if ($desc['field'][$field] !== $desc_collate[$field]) {
-						spip_log("Conversion COLLATE table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
-						sql_alter("table $table change $field $field " . $desc_collate[$field]);
-						$trouver_table('');
-						$new_desc = $trouver_table($table);
-						spip_log(
-							"Apres conversion $table : " . var_export($new_desc['field'], true),
-							'maj.' . _LOG_INFO_IMPORTANTE
-						);
-						continue 2; // inutile de continuer pour cette table : un seul alter remet tout a jour en sqlite
-					}
-				}
-			}
-		}
-	}
-
-	// forcer le vidage de cache
-	$trouver_table('');
+    include_spip('base/dump');
+    $tables = base_lister_toutes_tables();
+
+    // rien a faire si base non sqlite
+    if (strncmp($GLOBALS['connexions'][0]['type'], 'sqlite', 6) !== 0) {
+        return;
+    }
+
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    // forcer le vidage de cache
+    $trouver_table('');
+
+    // cas particulier spip_auteurs : retablir le collate binary sur le login
+    $desc = $trouver_table('spip_auteurs');
+    spip_log('spip_auteurs : ' . var_export($desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
+    if (stripos($desc['field']['login'], 'BINARY') === false) {
+        spip_log('Retablir champ login BINARY sur table spip_auteurs', 'maj');
+        sql_alter('table spip_auteurs change login login VARCHAR(255) BINARY');
+        $trouver_table('');
+        $new_desc = $trouver_table('spip_auteurs');
+        spip_log('Apres conversion spip_auteurs : ' . var_export($new_desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
+    }
+
+    foreach ($tables as $table) {
+        if (time() >= _TIME_OUT) {
+            return;
+        }
+        if ($desc = $trouver_table($table)) {
+            $desc_collate = _sqlite_remplacements_definitions_table($desc['field']);
+            if ($d = array_diff($desc['field'], $desc_collate)) {
+                spip_log("Table $table COLLATE incorrects", 'maj');
+
+                // cas particulier spip_urls :
+                // supprimer les doublons avant conversion sinon echec (on garde les urls les plus recentes)
+                if ($table == 'spip_urls') {
+                    // par date DESC pour conserver les urls les plus recentes
+                    $data = sql_allfetsel('*', 'spip_urls', '', '', 'date DESC');
+                    $urls = [];
+                    foreach ($data as $d) {
+                        $key = $d['id_parent'] . '::' . strtolower($d['url']);
+                        if (!isset($urls[$key])) {
+                            $urls[$key] = true;
+                        } else {
+                            spip_log(
+                                'Suppression doublon dans spip_urls avant conversion : ' . serialize($d),
+                                'maj.' . _LOG_INFO_IMPORTANTE
+                            );
+                            sql_delete('spip_urls', 'id_parent=' . sql_quote($d['id_parent']) . ' AND url=' . sql_quote($d['url']));
+                        }
+                    }
+                }
+                foreach ($desc['field'] as $field => $type) {
+                    if ($desc['field'][$field] !== $desc_collate[$field]) {
+                        spip_log("Conversion COLLATE table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
+                        sql_alter("table $table change $field $field " . $desc_collate[$field]);
+                        $trouver_table('');
+                        $new_desc = $trouver_table($table);
+                        spip_log(
+                            "Apres conversion $table : " . var_export($new_desc['field'], true),
+                            'maj.' . _LOG_INFO_IMPORTANTE
+                        );
+                        continue 2; // inutile de continuer pour cette table : un seul alter remet tout a jour en sqlite
+                    }
+                }
+            }
+        }
+    }
+
+    // forcer le vidage de cache
+    $trouver_table('');
 }
 
 
 $GLOBALS['maj'][19236] = [
-	['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom='version_installee'"], // version base principale
-	['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom LIKE '%_base_version'"],  // version base plugins
-	['maj_collation_sqlite'],
+    ['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom='version_installee'"], // version base principale
+    ['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom LIKE '%_base_version'"],  // version base plugins
+    ['maj_collation_sqlite'],
 ];
 
 $GLOBALS['maj'][19268] = [
-	['supprimer_toutes_sessions'],
+    ['supprimer_toutes_sessions'],
 ];
 
 /**
@@ -342,13 +342,13 @@ 
  * Obligera tous les auteurs à se reconnecter !
  **/
 function supprimer_toutes_sessions() {
-	spip_log('supprimer sessions auteur');
-	if ($dir = opendir(_DIR_SESSIONS)) {
-		while (($f = readdir($dir)) !== false) {
-			spip_unlink(_DIR_SESSIONS . $f);
-			if (time() >= _TIME_OUT) {
-				return;
-			}
-		}
-	}
+    spip_log('supprimer sessions auteur');
+    if ($dir = opendir(_DIR_SESSIONS)) {
+        while (($f = readdir($dir)) !== false) {
+            spip_unlink(_DIR_SESSIONS . $f);
+            if (time() >= _TIME_OUT) {
+                return;
+            }
+        }
+    }
 }

Spacing +20 added lines, -20 removed lines

@@ -60,9 +60,9 @@ 
 	$exceptions_pluriel = ['forum' => 'forum', 'syndic' => 'syndic'];
 
 	$pivot = preg_replace(',[^\w],', '', $pivot); // securite
-	$pivots = (isset($exceptions_pluriel[$pivot]) ? $exceptions_pluriel[$pivot] : $pivot . 's');
-	$liens = 'spip_' . $pivots . '_liens';
-	$id_pivot = 'id_' . $pivot;
+	$pivots = (isset($exceptions_pluriel[$pivot]) ? $exceptions_pluriel[$pivot] : $pivot.'s');
+	$liens = 'spip_'.$pivots.'_liens';
+	$id_pivot = 'id_'.$pivot;
 	// Creer spip_auteurs_liens
 	global $tables_auxiliaires;
 	if (!$l) {
@@ -74,8 +74,8 @@ 
 		$l = preg_replace(',[^\w],', '', $l); // securite
 		$primary = "id_$l";
 		$objet = ($l == 'syndic' ? 'site' : $l);
-		$ls = (isset($exceptions_pluriel[$l]) ? $exceptions_pluriel[$l] : $l . 's');
-		$ancienne_table = 'spip_' . $pivots . '_' . $ls;
+		$ls = (isset($exceptions_pluriel[$l]) ? $exceptions_pluriel[$l] : $l.'s');
+		$ancienne_table = 'spip_'.$pivots.'_'.$ls;
 		$pool = 400;
 
 		$trouver_table = charger_fonction('trouver_table', 'base');
@@ -111,12 +111,12 @@ 
 		while ($ids = array_map('reset', sql_allfetsel("$primary", $ancienne_table, '', '', '', "0,$sub_pool"))) {
 			$insert = [];
 			foreach ($ids as $id) {
-				$n = sql_countsel($liens, "objet='$objet' AND id_objet=" . intval($id));
-				while ($t = sql_allfetsel($champs, $ancienne_table, "$primary=" . intval($id), '', $id_pivot, "$n,$pool")) {
+				$n = sql_countsel($liens, "objet='$objet' AND id_objet=".intval($id));
+				while ($t = sql_allfetsel($champs, $ancienne_table, "$primary=".intval($id), '', $id_pivot, "$n,$pool")) {
 					$n += count($t);
 					// empiler en s'assurant a minima de l'unicite
 					while ($r = array_shift($t)) {
-						$insert[$r[$id_pivot] . ':' . $r['id_objet']] = $r;
+						$insert[$r[$id_pivot].':'.$r['id_objet']] = $r;
 					}
 					if (count($insert) >= $sub_pool) {
 						maj_liens_insertq_multi_check($liens, $insert, $tables_auxiliaires[$liens]);
@@ -267,13 +267,13 @@ 
 
 	// cas particulier spip_auteurs : retablir le collate binary sur le login
 	$desc = $trouver_table('spip_auteurs');
-	spip_log('spip_auteurs : ' . var_export($desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
+	spip_log('spip_auteurs : '.var_export($desc['field'], true), 'maj.'._LOG_INFO_IMPORTANTE);
 	if (stripos($desc['field']['login'], 'BINARY') === false) {
 		spip_log('Retablir champ login BINARY sur table spip_auteurs', 'maj');
 		sql_alter('table spip_auteurs change login login VARCHAR(255) BINARY');
 		$trouver_table('');
 		$new_desc = $trouver_table('spip_auteurs');
-		spip_log('Apres conversion spip_auteurs : ' . var_export($new_desc['field'], true), 'maj.' . _LOG_INFO_IMPORTANTE);
+		spip_log('Apres conversion spip_auteurs : '.var_export($new_desc['field'], true), 'maj.'._LOG_INFO_IMPORTANTE);
 	}
 
 	foreach ($tables as $table) {
@@ -292,27 +292,27 @@ 
 					$data = sql_allfetsel('*', 'spip_urls', '', '', 'date DESC');
 					$urls = [];
 					foreach ($data as $d) {
-						$key = $d['id_parent'] . '::' . strtolower($d['url']);
+						$key = $d['id_parent'].'::'.strtolower($d['url']);
 						if (!isset($urls[$key])) {
 							$urls[$key] = true;
 						} else {
 							spip_log(
-								'Suppression doublon dans spip_urls avant conversion : ' . serialize($d),
-								'maj.' . _LOG_INFO_IMPORTANTE
+								'Suppression doublon dans spip_urls avant conversion : '.serialize($d),
+								'maj.'._LOG_INFO_IMPORTANTE
 							);
-							sql_delete('spip_urls', 'id_parent=' . sql_quote($d['id_parent']) . ' AND url=' . sql_quote($d['url']));
+							sql_delete('spip_urls', 'id_parent='.sql_quote($d['id_parent']).' AND url='.sql_quote($d['url']));
 						}
 					}
 				}
 				foreach ($desc['field'] as $field => $type) {
 					if ($desc['field'][$field] !== $desc_collate[$field]) {
-						spip_log("Conversion COLLATE table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
-						sql_alter("table $table change $field $field " . $desc_collate[$field]);
+						spip_log("Conversion COLLATE table $table", 'maj.'._LOG_INFO_IMPORTANTE);
+						sql_alter("table $table change $field $field ".$desc_collate[$field]);
 						$trouver_table('');
 						$new_desc = $trouver_table($table);
 						spip_log(
-							"Apres conversion $table : " . var_export($new_desc['field'], true),
-							'maj.' . _LOG_INFO_IMPORTANTE
+							"Apres conversion $table : ".var_export($new_desc['field'], true),
+							'maj.'._LOG_INFO_IMPORTANTE
 						);
 						continue 2; // inutile de continuer pour cette table : un seul alter remet tout a jour en sqlite
 					}
@@ -328,7 +328,7 @@ 
 
 $GLOBALS['maj'][19236] = [
 	['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom='version_installee'"], // version base principale
-	['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom LIKE '%_base_version'"],  // version base plugins
+	['sql_updateq', 'spip_meta', ['impt' => 'oui'], "nom LIKE '%_base_version'"], // version base plugins
 	['maj_collation_sqlite'],
 ];
 
@@ -345,7 +345,7 @@ 
 	spip_log('supprimer sessions auteur');
 	if ($dir = opendir(_DIR_SESSIONS)) {
 		while (($f = readdir($dir)) !== false) {
-			spip_unlink(_DIR_SESSIONS . $f);
+			spip_unlink(_DIR_SESSIONS.$f);
 			if (time() >= _TIME_OUT) {
 				return;
 			}

ecrire/maj/legacy/v21.php

Indentation +31 added lines, -31 removed lines

@@ -18,7 +18,7 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/medias');
@@ -27,27 +27,27 @@ 
 
 // http://archives.rezo.net/archives/spip-zone.mbox/C6RZKNBUNJYN42IOEOC4QKVCA233AMLI/
 $GLOBALS['maj'][13833] = [
-	['sql_alter', 'TABLE spip_documents_liens ADD INDEX objet(id_objet,objet)']
+    ['sql_alter', 'TABLE spip_documents_liens ADD INDEX objet(id_objet,objet)']
 ];
 
 // 2.1
 
 $GLOBALS['maj'][13904] = [
-	['sql_alter', "TABLE spip_auteurs ADD webmestre varchar(3)  DEFAULT 'non' NOT NULL"],
-	[
-		'sql_update',
-		'spip_auteurs',
-		['webmestre' => "'oui'"],
-		sql_in('id_auteur', defined('_ID_WEBMESTRES') ? explode(
-			':',
-			_ID_WEBMESTRES
-		) : (autoriser('configurer') ? [$GLOBALS['visiteur_session']['id_auteur']] : [0]))
-	] // le webmestre est celui qui fait l'upgrade si rien de defini
+    ['sql_alter', "TABLE spip_auteurs ADD webmestre varchar(3)  DEFAULT 'non' NOT NULL"],
+    [
+        'sql_update',
+        'spip_auteurs',
+        ['webmestre' => "'oui'"],
+        sql_in('id_auteur', defined('_ID_WEBMESTRES') ? explode(
+            ':',
+            _ID_WEBMESTRES
+        ) : (autoriser('configurer') ? [$GLOBALS['visiteur_session']['id_auteur']] : [0]))
+    ] // le webmestre est celui qui fait l'upgrade si rien de defini
 ];
 
 // sites plantes en mode "'su" au lieu de "sus"
 $GLOBALS['maj'][13929] = [
-	['sql_update', 'spip_syndic', ['syndication' => "'sus'"], "syndication LIKE '\\'%'"]
+    ['sql_update', 'spip_syndic', ['syndication' => "'sus'"], "syndication LIKE '\\'%'"]
 ];
 
 // Types de fichiers m4a/m4b/m4p/m4u/m4v/dv
@@ -61,24 +61,24 @@ 
 // La version 14588 etait une mauvaise piste:
 // Retour en arriere pour ceux qui l'ont subi, ne rien faire sinon
 if (@$GLOBALS['meta']['version_installee'] >= 14588) {
-	// "mode" est un mot-cle d'Oracle
-	$GLOBALS['maj'][14588] = [
-		['sql_alter', 'TABLE spip_documents  DROP INDEX mode'],
-		[
-			'sql_alter',
-			"TABLE spip_documents  CHANGE mode genre ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
-		],
-		['sql_alter', 'TABLE spip_documents  ADD INDEX genre(genre)']
-	];
-	// solution moins intrusive au pb de mot-cle d'Oracle, retour avant 14588
-	$GLOBALS['maj'][14598] = [
-		['sql_alter', 'TABLE spip_documents  DROP INDEX genre'],
-		[
-			'sql_alter',
-			"TABLE spip_documents  CHANGE genre mode ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
-		],
-		['sql_alter', 'TABLE spip_documents  ADD INDEX mode(mode)']
-	];
+    // "mode" est un mot-cle d'Oracle
+    $GLOBALS['maj'][14588] = [
+        ['sql_alter', 'TABLE spip_documents  DROP INDEX mode'],
+        [
+            'sql_alter',
+            "TABLE spip_documents  CHANGE mode genre ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
+        ],
+        ['sql_alter', 'TABLE spip_documents  ADD INDEX genre(genre)']
+    ];
+    // solution moins intrusive au pb de mot-cle d'Oracle, retour avant 14588
+    $GLOBALS['maj'][14598] = [
+        ['sql_alter', 'TABLE spip_documents  DROP INDEX genre'],
+        [
+            'sql_alter',
+            "TABLE spip_documents  CHANGE genre mode ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
+        ],
+        ['sql_alter', 'TABLE spip_documents  ADD INDEX mode(mode)']
+    ];
 }
 
 // Restauration correcte des types mime des fichiers Ogg

ecrire/maj/legacy/v32.php

Indentation +2 added lines, -2 removed lines

@@ -18,10 +18,10 @@
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 $GLOBALS['maj'][23375] = [
-	['sql_alter', 'TABLE spip_auteurs CHANGE prefs prefs text'],
+    ['sql_alter', 'TABLE spip_auteurs CHANGE prefs prefs text'],
 ];

ecrire/maj/legacy/v40.php

Indentation +42 added lines, -42 removed lines

@@ -20,7 +20,7 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -35,49 +35,49 @@ 
  **/
 function maj_timestamp_mysql($tables = null) {
 
-	include_spip('base/dump');
-	if (is_null($tables)) {
-		$tables = base_lister_toutes_tables();
-	} elseif (is_string($tables)) {
-		$tables = [$tables];
-	} elseif (!is_array($tables)) {
-		return;
-	}
+    include_spip('base/dump');
+    if (is_null($tables)) {
+        $tables = base_lister_toutes_tables();
+    } elseif (is_string($tables)) {
+        $tables = [$tables];
+    } elseif (!is_array($tables)) {
+        return;
+    }
 
-	// rien a faire si base non mysql
-	if (strncmp($GLOBALS['connexions'][0]['type'], 'mysql', 5) !== 0) {
-		return;
-	}
+    // rien a faire si base non mysql
+    if (strncmp($GLOBALS['connexions'][0]['type'], 'mysql', 5) !== 0) {
+        return;
+    }
 
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	// forcer le vidage de cache
-	$trouver_table('');
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    // forcer le vidage de cache
+    $trouver_table('');
 
-	foreach ($tables as $table) {
-		if (time() >= _TIME_OUT) {
-			return;
-		}
-		if ($desc = $trouver_table($table)) {
-			$fields_corrected = _mysql_remplacements_definitions_table($desc['field']);
-			$d = array_diff($desc['field'], $fields_corrected);
-			if ($d) {
-				spip_log("Table $table TIMESTAMP incorrect", 'maj');
-				foreach ($desc['field'] as $field => $type) {
-					if ($desc['field'][$field] !== $fields_corrected[$field]) {
-						spip_log("Adaptation TIMESTAMP table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
-						sql_alter("table $table change $field $field " . $fields_corrected[$field]);
-						$trouver_table('');
-						$new_desc = $trouver_table($table);
-						spip_log(
-							"Apres conversion $table : " . var_export($new_desc['field'], true),
-							'maj.' . _LOG_INFO_IMPORTANTE
-						);
-					}
-				}
-			}
-		}
-	}
+    foreach ($tables as $table) {
+        if (time() >= _TIME_OUT) {
+            return;
+        }
+        if ($desc = $trouver_table($table)) {
+            $fields_corrected = _mysql_remplacements_definitions_table($desc['field']);
+            $d = array_diff($desc['field'], $fields_corrected);
+            if ($d) {
+                spip_log("Table $table TIMESTAMP incorrect", 'maj');
+                foreach ($desc['field'] as $field => $type) {
+                    if ($desc['field'][$field] !== $fields_corrected[$field]) {
+                        spip_log("Adaptation TIMESTAMP table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
+                        sql_alter("table $table change $field $field " . $fields_corrected[$field]);
+                        $trouver_table('');
+                        $new_desc = $trouver_table($table);
+                        spip_log(
+                            "Apres conversion $table : " . var_export($new_desc['field'], true),
+                            'maj.' . _LOG_INFO_IMPORTANTE
+                        );
+                    }
+                }
+            }
+        }
+    }
 
-	// forcer le vidage de cache
-	$trouver_table('');
+    // forcer le vidage de cache
+    $trouver_table('');
 }

Spacing +4 added lines, -4 removed lines

@@ -64,13 +64,13 @@
 				spip_log("Table $table TIMESTAMP incorrect", 'maj');
 				foreach ($desc['field'] as $field => $type) {
 					if ($desc['field'][$field] !== $fields_corrected[$field]) {
-						spip_log("Adaptation TIMESTAMP table $table", 'maj.' . _LOG_INFO_IMPORTANTE);
-						sql_alter("table $table change $field $field " . $fields_corrected[$field]);
+						spip_log("Adaptation TIMESTAMP table $table", 'maj.'._LOG_INFO_IMPORTANTE);
+						sql_alter("table $table change $field $field ".$fields_corrected[$field]);
 						$trouver_table('');
 						$new_desc = $trouver_table($table);
 						spip_log(
-							"Apres conversion $table : " . var_export($new_desc['field'], true),
-							'maj.' . _LOG_INFO_IMPORTANTE
+							"Apres conversion $table : ".var_export($new_desc['field'], true),
+							'maj.'._LOG_INFO_IMPORTANTE
 						);
 					}
 				}