spip / SPIP

ecrire/public/sandbox.php

Indentation +99 added lines, -99 removed lines

@@ -23,7 +23,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -41,9 +41,9 @@ 
  *     Texte
  */
 function sandbox_composer_texte($texte, &$p) {
-	$code = "'" . str_replace(['\\', "'"], ['\\\\', "\\'"], $texte) . "'";
+    $code = "'" . str_replace(['\\', "'"], ['\\\\', "\\'"], $texte) . "'";
 
-	return $code;
+    return $code;
 }
 
 
@@ -59,42 +59,42 @@ 
  * @return string
  */
 function sandbox_composer_filtre($fonc, $code, $arglist, &$p, $nb_arg_droite = 1000): string {
-	if (isset($GLOBALS['spip_matrice'][$fonc])) {
-		$code = "filtrer('$fonc',$code$arglist)";
-	}
-
-	// le filtre est defini sous forme de fonction ou de methode
-	// par ex. dans inc_texte, inc_filtres ou mes_fonctions
-	elseif ($f = chercher_filtre($fonc)) {
-		// cas particulier : le filtre |set doit acceder a la $Pile
-		// proto: filtre_set(&$Pile, $val, $args...)
-		if (strpbrk($f, ':')) { // Class::method
-			$refl = new ReflectionMethod($f);
-		} else {
-			$refl = new ReflectionFunction($f);
-		}
-		$refs = $refl->getParameters();
-		if (isset($refs[0]) and $refs[0]->name == 'Pile') {
-			$code = "$f(\$Pile,$code$arglist)";
-			$nb_arg_gauche = 2; // la balise à laquelle s'applique le filtre + $Pile
-		} else {
-			$code = "$f($code$arglist)";
-			$nb_arg_gauche = 1; // la balise à laquelle s'applique le filtre
-		}
-		$nb_args_f = $nb_arg_gauche + $nb_arg_droite;
-		$min_f = $refl->getNumberOfRequiredParameters();
-		if (($nb_args_f < $min_f)) {
-			$msg_args = ['filtre' => texte_script($fonc), 'nb' => $min_f - $nb_args_f];
-			erreur_squelette([ 'zbug_erreur_filtre_nbarg_min', $msg_args], $p);
-		}
-	}
-	// le filtre n'existe pas,
-	// on le notifie
-	else {
-		erreur_squelette(['zbug_erreur_filtre', ['filtre' => texte_script($fonc)]], $p);
-	}
-
-	return $code;
+    if (isset($GLOBALS['spip_matrice'][$fonc])) {
+        $code = "filtrer('$fonc',$code$arglist)";
+    }
+
+    // le filtre est defini sous forme de fonction ou de methode
+    // par ex. dans inc_texte, inc_filtres ou mes_fonctions
+    elseif ($f = chercher_filtre($fonc)) {
+        // cas particulier : le filtre |set doit acceder a la $Pile
+        // proto: filtre_set(&$Pile, $val, $args...)
+        if (strpbrk($f, ':')) { // Class::method
+            $refl = new ReflectionMethod($f);
+        } else {
+            $refl = new ReflectionFunction($f);
+        }
+        $refs = $refl->getParameters();
+        if (isset($refs[0]) and $refs[0]->name == 'Pile') {
+            $code = "$f(\$Pile,$code$arglist)";
+            $nb_arg_gauche = 2; // la balise à laquelle s'applique le filtre + $Pile
+        } else {
+            $code = "$f($code$arglist)";
+            $nb_arg_gauche = 1; // la balise à laquelle s'applique le filtre
+        }
+        $nb_args_f = $nb_arg_gauche + $nb_arg_droite;
+        $min_f = $refl->getNumberOfRequiredParameters();
+        if (($nb_args_f < $min_f)) {
+            $msg_args = ['filtre' => texte_script($fonc), 'nb' => $min_f - $nb_args_f];
+            erreur_squelette([ 'zbug_erreur_filtre_nbarg_min', $msg_args], $p);
+        }
+    }
+    // le filtre n'existe pas,
+    // on le notifie
+    else {
+        erreur_squelette(['zbug_erreur_filtre', ['filtre' => texte_script($fonc)]], $p);
+    }
+
+    return $code;
 }
 
 // Calculer un <INCLURE(xx.php)>
@@ -117,15 +117,15 @@ 
  * @return string
  */
 function sandbox_composer_inclure_php($fichier, &$p, $_contexte) {
-	$compil = texte_script(memoriser_contexte_compil($p));
-	// si inexistant, on essaiera a l'execution
-	if ($path = find_in_path($fichier)) {
-		$path = "\"$path\"";
-	} else {
-		$path = "find_in_path(\"$fichier\")";
-	}
-
-	return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
+    $compil = texte_script(memoriser_contexte_compil($p));
+    // si inexistant, on essaiera a l'execution
+    if ($path = find_in_path($fichier)) {
+        $path = "\"$path\"";
+    } else {
+        $path = "find_in_path(\"$fichier\")";
+    }
+
+    return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
 }
 
 /**
@@ -137,20 +137,20 @@ 
  * @return string
  */
 function sandbox_composer_interdire_scripts($code, &$p) {
-	// Securite
-	if (
-		$p->interdire_scripts
-		and $p->etoile != '**'
-	) {
-		if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r)) {
-			$code = "interdire_scripts($code)";
-		} else {
-			$code = interdire_scripts($r[2]);
-			$code = "sinon(interdire_scripts($r[1]),'$code')";
-		}
-	}
-
-	return $code;
+    // Securite
+    if (
+        $p->interdire_scripts
+        and $p->etoile != '**'
+    ) {
+        if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r)) {
+            $code = "interdire_scripts($code)";
+        } else {
+            $code = interdire_scripts($r[2]);
+            $code = "sinon(interdire_scripts($r[1]),'$code')";
+        }
+    }
+
+    return $code;
 }
 
 
@@ -169,30 +169,30 @@ 
  * @return mixed|string
  */
 function sandbox_filtrer_squelette($skel, $corps, $filtres) {
-	$series_filtres = func_get_args();
-	array_shift($series_filtres);// skel
-	array_shift($series_filtres);// corps
-
-	// proteger les <INCLUDE> et tous les morceaux de php licites
-	if ($skel['process_ins'] == 'php') {
-		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS', 'echapper_php_callback', $corps);
-	}
-
-	// recuperer les couples de remplacement
-	$replace = echapper_php_callback();
-
-	foreach ($series_filtres as $filtres) {
-		if (is_countable($filtres) ? count($filtres) : 0) {
-			foreach ($filtres as $filtre) {
-				if ($filtre and $f = chercher_filtre($filtre)) {
-					$corps = $f($corps);
-				}
-			}
-		}
-	}
-
-	// restaurer les echappements
-	return str_replace($replace[0], $replace[1], $corps);
+    $series_filtres = func_get_args();
+    array_shift($series_filtres);// skel
+    array_shift($series_filtres);// corps
+
+    // proteger les <INCLUDE> et tous les morceaux de php licites
+    if ($skel['process_ins'] == 'php') {
+        $corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS', 'echapper_php_callback', $corps);
+    }
+
+    // recuperer les couples de remplacement
+    $replace = echapper_php_callback();
+
+    foreach ($series_filtres as $filtres) {
+        if (is_countable($filtres) ? count($filtres) : 0) {
+            foreach ($filtres as $filtre) {
+                if ($filtre and $f = chercher_filtre($filtre)) {
+                    $corps = $f($corps);
+                }
+            }
+        }
+    }
+
+    // restaurer les echappements
+    return str_replace($replace[0], $replace[1], $corps);
 }
 
 
@@ -211,21 +211,21 @@ 
  *     - array : Liste( liste des codes PHP, liste des substitutions )
  **/
 function echapper_php_callback($r = null) {
-	static $src = [];
-	static $dst = [];
+    static $src = [];
+    static $dst = [];
 
-	// si on recoit un tableau, on est en mode echappement
-	// on enregistre le code a echapper dans dst, et le code echappe dans src
-	if (is_array($r)) {
-		$dst[] = $r[0];
+    // si on recoit un tableau, on est en mode echappement
+    // on enregistre le code a echapper dans dst, et le code echappe dans src
+    if (is_array($r)) {
+        $dst[] = $r[0];
 
-		return $src[] = '___' . md5($r[0]) . '___';
-	}
+        return $src[] = '___' . md5($r[0]) . '___';
+    }
 
-	// si on recoit pas un tableau, on renvoit les couples de substitution
-	// et on RAZ les remplacements
-	$r = [$src, $dst];
-	$src = $dst = [];
+    // si on recoit pas un tableau, on renvoit les couples de substitution
+    // et on RAZ les remplacements
+    $r = [$src, $dst];
+    $src = $dst = [];
 
-	return $r;
+    return $r;
 }

ecrire/public/decompiler.php

Indentation +176 added lines, -176 removed lines

@@ -11,129 +11,129 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP
 
 function decompiler_boucle($struct, $fmt = '', $prof = 0) {
-	$nom = $struct->id_boucle;
-	$preaff = decompiler_($struct->preaff, $fmt, $prof);
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$altern = decompiler_($struct->altern, $fmt, $prof);
-	$milieu = decompiler_($struct->milieu, $fmt, $prof);
-	$postaff = decompiler_($struct->postaff, $fmt, $prof);
-
-	$type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
-	$type .= ($struct->type_requete ?: $struct->table_optionnelle);
-
-	if ($struct->jointures_explicites) {
-		$type .= ' ' . $struct->jointures_explicites;
-	}
-	if ($struct->table_optionnelle) {
-		$type .= '?';
-	}
-	// Revoir le cas de la boucle recursive
-
-	$crit = $struct->param;
-	if ($crit and !is_array($crit[0])) {
-		$type = strtolower($type) . array_shift($crit);
-	}
-	$crit = decompiler_criteres($struct, $fmt, $prof);
-
-	$f = 'format_boucle_' . $fmt;
-
-	return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
+    $nom = $struct->id_boucle;
+    $preaff = decompiler_($struct->preaff, $fmt, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $altern = decompiler_($struct->altern, $fmt, $prof);
+    $milieu = decompiler_($struct->milieu, $fmt, $prof);
+    $postaff = decompiler_($struct->postaff, $fmt, $prof);
+
+    $type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
+    $type .= ($struct->type_requete ?: $struct->table_optionnelle);
+
+    if ($struct->jointures_explicites) {
+        $type .= ' ' . $struct->jointures_explicites;
+    }
+    if ($struct->table_optionnelle) {
+        $type .= '?';
+    }
+    // Revoir le cas de la boucle recursive
+
+    $crit = $struct->param;
+    if ($crit and !is_array($crit[0])) {
+        $type = strtolower($type) . array_shift($crit);
+    }
+    $crit = decompiler_criteres($struct, $fmt, $prof);
+
+    $f = 'format_boucle_' . $fmt;
+
+    return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
 }
 
 function decompiler_include($struct, $fmt = '', $prof = 0) {
-	$res = [];
-	foreach ($struct->param ?: [] as $couple) {
-		array_shift($couple);
-		foreach ($couple as $v) {
-			$res[] = decompiler_($v, $fmt, $prof);
-		}
-	}
-	$file = is_string($struct->texte) ? $struct->texte :
-		decompiler_($struct->texte, $fmt, $prof);
-	$f = 'format_inclure_' . $fmt;
-
-	return $f($file, $res, $prof);
+    $res = [];
+    foreach ($struct->param ?: [] as $couple) {
+        array_shift($couple);
+        foreach ($couple as $v) {
+            $res[] = decompiler_($v, $fmt, $prof);
+        }
+    }
+    $file = is_string($struct->texte) ? $struct->texte :
+        decompiler_($struct->texte, $fmt, $prof);
+    $f = 'format_inclure_' . $fmt;
+
+    return $f($file, $res, $prof);
 }
 
 function decompiler_texte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_texte_' . $fmt;
+    $f = 'format_texte_' . $fmt;
 
-	return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
+    return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
 }
 
 function decompiler_polyglotte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_polyglotte_' . $fmt;
+    $f = 'format_polyglotte_' . $fmt;
 
-	return $f($struct->traductions, $prof);
+    return $f($struct->traductions, $prof);
 }
 
 function decompiler_idiome($struct, $fmt = '', $prof = 0) {
-	$args = [];
-	foreach ($struct->arg as $k => $v) {
-		$args[$k] = public_decompiler($v, $fmt, $prof);
-	}
+    $args = [];
+    foreach ($struct->arg as $k => $v) {
+        $args[$k] = public_decompiler($v, $fmt, $prof);
+    }
 
-	$filtres = decompiler_liste($struct->param, $fmt, $prof);
+    $filtres = decompiler_liste($struct->param, $fmt, $prof);
 
-	$f = 'format_idiome_' . $fmt;
+    $f = 'format_idiome_' . $fmt;
 
-	return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
+    return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
 }
 
 function decompiler_champ($struct, $fmt = '', $prof = 0) {
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$args = $filtres = '';
-	if ($p = $struct->param) {
-		if ($p[0][0] === '') {
-			$args = decompiler_liste([array_shift($p)], $fmt, $prof);
-		}
-		$filtres = decompiler_liste($p, $fmt, $prof);
-	}
-	$f = 'format_champ_' . $fmt;
-
-	return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $args = $filtres = '';
+    if ($p = $struct->param) {
+        if ($p[0][0] === '') {
+            $args = decompiler_liste([array_shift($p)], $fmt, $prof);
+        }
+        $filtres = decompiler_liste($p, $fmt, $prof);
+    }
+    $f = 'format_champ_' . $fmt;
+
+    return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
 }
 
 function decompiler_liste($sources, $fmt = '', $prof = 0) {
-	if (!is_array($sources)) {
-		return '';
-	}
-	$f = 'format_liste_' . $fmt;
-	$res = '';
-	foreach ($sources as $arg) {
-		if (!is_array($arg)) {
-			continue; // ne devrait pas arriver.
-		} else {
-			$r = array_shift($arg);
-		}
-		$args = [];
-		foreach ($arg as $v) {
-			// cas des arguments entoures de ' ou "
-			if (
-				((is_countable($v) ? count($v) : 0) == 1)
-				and $v[0]->type == 'texte'
-				and (strlen($v[0]->apres) == 1)
-				and $v[0]->apres == $v[0]->avant
-			) {
-				$args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
-			} else {
-				$args[] = decompiler_($v, $fmt, 0 - $prof);
-			}
-		}
-		if (($r !== '') or $args) {
-			$res .= $f($r, $args, $prof);
-		}
-	}
-
-	return $res;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $f = 'format_liste_' . $fmt;
+    $res = '';
+    foreach ($sources as $arg) {
+        if (!is_array($arg)) {
+            continue; // ne devrait pas arriver.
+        } else {
+            $r = array_shift($arg);
+        }
+        $args = [];
+        foreach ($arg as $v) {
+            // cas des arguments entoures de ' ou "
+            if (
+                ((is_countable($v) ? count($v) : 0) == 1)
+                and $v[0]->type == 'texte'
+                and (strlen($v[0]->apres) == 1)
+                and $v[0]->apres == $v[0]->avant
+            ) {
+                $args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
+            } else {
+                $args[] = decompiler_($v, $fmt, 0 - $prof);
+            }
+        }
+        if (($r !== '') or $args) {
+            $res .= $f($r, $args, $prof);
+        }
+    }
+
+    return $res;
 }
 
 // Decompilation des criteres: on triche et on deroge:
@@ -141,93 +141,93 @@ 
 // - le champ apres signale le critere {"separateur"} ou {'separateur'}
 // - les champs sont implicitement etendus (crochets implicites mais interdits)
 function decompiler_criteres($boucle, $fmt = '', $prof = 0) {
-	$sources = $boucle->param;
-	if (!is_array($sources)) {
-		return '';
-	}
-	$res = '';
-	$f = 'format_critere_' . $fmt;
-	foreach ($sources as $crit) {
-		if (!is_array($crit)) {
-			continue;
-		} // boucle recursive
-		array_shift($crit);
-		$args = [];
-		foreach ($crit as $i => $v) {
-			if (
-				((is_countable($v) ? count($v) : 0) == 1)
-				and $v[0]->type == 'texte'
-				and $v[0]->apres
-			) {
-				$args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]];
-			} else {
-				$res2 = [];
-				foreach ($v as $k => $p) {
-					if (
-						isset($p->type)
-						and function_exists($d = 'decompiler_' . $p->type)
-					) {
-						$r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
-						$res2[] = [$p->type, $r];
-					} else {
-						spip_log("critere $i / $k mal forme");
-					}
-				}
-				$args[] = $res2;
-			}
-		}
-		$res .= $f($args);
-	}
-
-	return $res;
+    $sources = $boucle->param;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $res = '';
+    $f = 'format_critere_' . $fmt;
+    foreach ($sources as $crit) {
+        if (!is_array($crit)) {
+            continue;
+        } // boucle recursive
+        array_shift($crit);
+        $args = [];
+        foreach ($crit as $i => $v) {
+            if (
+                ((is_countable($v) ? count($v) : 0) == 1)
+                and $v[0]->type == 'texte'
+                and $v[0]->apres
+            ) {
+                $args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]];
+            } else {
+                $res2 = [];
+                foreach ($v as $k => $p) {
+                    if (
+                        isset($p->type)
+                        and function_exists($d = 'decompiler_' . $p->type)
+                    ) {
+                        $r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
+                        $res2[] = [$p->type, $r];
+                    } else {
+                        spip_log("critere $i / $k mal forme");
+                    }
+                }
+                $args[] = $res2;
+            }
+        }
+        $res .= $f($args);
+    }
+
+    return $res;
 }
 
 
 function decompiler_($liste, $fmt = '', $prof = 0) {
-	if (!is_array($liste)) {
-		return '';
-	}
-	$prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
-	$contenu = [];
-	foreach ($liste as $k => $p) {
-		if (!isset($p->type)) {
-			continue;
-		} #??????
-		$d = 'decompiler_' . $p->type;
-		$next = $liste[$k + 1] ?? false;
-		// Forcer le champ etendu si son source (pas les reecritures)
-		// contenait des args et s'il est suivi d'espaces,
-		// le champ simple les eliminant est un bug helas perenne.
-
-		if (
-			$next
-			and ($next->type == 'texte')
-			and $p->type == 'champ'
-			and !$p->apres
-			and !$p->avant
-			and $p->fonctions
-		) {
-			$n = strlen($next->texte) - strlen(ltrim($next->texte));
-			if ($n) {
-				$champ = new Texte();
-				$champ->texte = substr($next->texte, 0, $n);
-				$champ->ligne = $p->ligne;
-				$p->apres = [$champ];
-				$next->texte = substr($next->texte, $n);
-			}
-		}
-		$contenu[] = [$d($p, $fmt, $prof2), $p->type];
-	}
-	$f = 'format_suite_' . $fmt;
-
-	return $f($contenu);
+    if (!is_array($liste)) {
+        return '';
+    }
+    $prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
+    $contenu = [];
+    foreach ($liste as $k => $p) {
+        if (!isset($p->type)) {
+            continue;
+        } #??????
+        $d = 'decompiler_' . $p->type;
+        $next = $liste[$k + 1] ?? false;
+        // Forcer le champ etendu si son source (pas les reecritures)
+        // contenait des args et s'il est suivi d'espaces,
+        // le champ simple les eliminant est un bug helas perenne.
+
+        if (
+            $next
+            and ($next->type == 'texte')
+            and $p->type == 'champ'
+            and !$p->apres
+            and !$p->avant
+            and $p->fonctions
+        ) {
+            $n = strlen($next->texte) - strlen(ltrim($next->texte));
+            if ($n) {
+                $champ = new Texte();
+                $champ->texte = substr($next->texte, 0, $n);
+                $champ->ligne = $p->ligne;
+                $p->apres = [$champ];
+                $next->texte = substr($next->texte, $n);
+            }
+        }
+        $contenu[] = [$d($p, $fmt, $prof2), $p->type];
+    }
+    $f = 'format_suite_' . $fmt;
+
+    return $f($contenu);
 }
 
 function public_decompiler($liste, $fmt = '', $prof = 0, $quoi = '') {
-	if (!include_spip('public/format_' . $fmt)) {
-		return "'$fmt'?";
-	}
-	$f = 'decompiler_' . $quoi;
+    if (!include_spip('public/format_' . $fmt)) {
+        return "'$fmt'?";
+    }
+    $f = 'decompiler_' . $quoi;
 
-	return $f($liste, $fmt, $prof);
+    return $f($liste, $fmt, $prof);
 }

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 = '', string $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)) {
-		[$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)) {
+        [$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 = $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 = $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/public/iterateur.php

Indentation +654 added lines, -654 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -21,667 +21,667 @@ 
  *
  */
 class IterFactory {
-	public static function create($iterateur, $command, $info = null) {
-
-		$iter = null;
-		// cas des SI {si expression} analises tres tot
-		// pour eviter le chargement de tout iterateur
-		if (isset($command['si'])) {
-			foreach ($command['si'] as $si) {
-				if (!$si) {
-					// $command pour boucle SQL peut generer des erreurs de compilation
-					// s'il est transmis alors qu'on est dans un iterateur vide
-					return new IterDecorator(new EmptyIterator(), [], $info);
-				}
-			}
-		}
-
-		// chercher un iterateur PHP existant (par exemple dans SPL)
-		// (il faudrait passer l'argument ->sql_serveur
-		// pour etre certain qu'on est sur un "php:")
-		if (class_exists($iterateur)) {
-			$a = $command['args'] ?? [];
-
-			// permettre de passer un Iterateur directement {args #ITERATEUR} :
-			// si on recoit deja un iterateur en argument, on l'utilise
-			if ((is_countable($a) ? count($a) : 0) == 1 and is_object($a[0]) and is_subclass_of($a[0], \Iterator::class)) {
-				$iter = $a[0];
-
-				// sinon, on cree un iterateur du type donne
-			} else {
-				// arguments de creation de l'iterateur...
-				// (pas glop)
-				try {
-					switch (is_countable($a) ? count($a) : 0) {
-						case 0:
-							$iter = new $iterateur();
-							break;
-						case 1:
-							$iter = new $iterateur($a[0]);
-							break;
-						case 2:
-							$iter = new $iterateur($a[0], $a[1]);
-							break;
-						case 3:
-							$iter = new $iterateur($a[0], $a[1], $a[2]);
-							break;
-						case 4:
-							$iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
-							break;
-					}
-				} catch (Exception $e) {
-					spip_log("Erreur de chargement de l'iterateur $iterateur");
-					spip_log($e->getMessage());
-					$iter = new EmptyIterator();
-				}
-			}
-		} else {
-			// chercher la classe d'iterateur
-			// IterateurXXX
-			// definie dans le fichier iterateurs/xxx.php
-			$class = 'Iterateur' . $iterateur;
-			if (!class_exists($class)) {
-				if (
-					!include_spip('iterateur/' . strtolower($iterateur))
-					or !class_exists($class)
-				) {
-					die("Iterateur $iterateur non trouvé");
-					// si l'iterateur n'existe pas, on se rabat sur le generique
-					# $iter = new EmptyIterator();
-				}
-			}
-			$iter = new $class($command, $info);
-		}
-
-		return new IterDecorator($iter, $command, $info);
-	}
+    public static function create($iterateur, $command, $info = null) {
+
+        $iter = null;
+        // cas des SI {si expression} analises tres tot
+        // pour eviter le chargement de tout iterateur
+        if (isset($command['si'])) {
+            foreach ($command['si'] as $si) {
+                if (!$si) {
+                    // $command pour boucle SQL peut generer des erreurs de compilation
+                    // s'il est transmis alors qu'on est dans un iterateur vide
+                    return new IterDecorator(new EmptyIterator(), [], $info);
+                }
+            }
+        }
+
+        // chercher un iterateur PHP existant (par exemple dans SPL)
+        // (il faudrait passer l'argument ->sql_serveur
+        // pour etre certain qu'on est sur un "php:")
+        if (class_exists($iterateur)) {
+            $a = $command['args'] ?? [];
+
+            // permettre de passer un Iterateur directement {args #ITERATEUR} :
+            // si on recoit deja un iterateur en argument, on l'utilise
+            if ((is_countable($a) ? count($a) : 0) == 1 and is_object($a[0]) and is_subclass_of($a[0], \Iterator::class)) {
+                $iter = $a[0];
+
+                // sinon, on cree un iterateur du type donne
+            } else {
+                // arguments de creation de l'iterateur...
+                // (pas glop)
+                try {
+                    switch (is_countable($a) ? count($a) : 0) {
+                        case 0:
+                            $iter = new $iterateur();
+                            break;
+                        case 1:
+                            $iter = new $iterateur($a[0]);
+                            break;
+                        case 2:
+                            $iter = new $iterateur($a[0], $a[1]);
+                            break;
+                        case 3:
+                            $iter = new $iterateur($a[0], $a[1], $a[2]);
+                            break;
+                        case 4:
+                            $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
+                            break;
+                    }
+                } catch (Exception $e) {
+                    spip_log("Erreur de chargement de l'iterateur $iterateur");
+                    spip_log($e->getMessage());
+                    $iter = new EmptyIterator();
+                }
+            }
+        } else {
+            // chercher la classe d'iterateur
+            // IterateurXXX
+            // definie dans le fichier iterateurs/xxx.php
+            $class = 'Iterateur' . $iterateur;
+            if (!class_exists($class)) {
+                if (
+                    !include_spip('iterateur/' . strtolower($iterateur))
+                    or !class_exists($class)
+                ) {
+                    die("Iterateur $iterateur non trouvé");
+                    // si l'iterateur n'existe pas, on se rabat sur le generique
+                    # $iter = new EmptyIterator();
+                }
+            }
+            $iter = new $class($command, $info);
+        }
+
+        return new IterDecorator($iter, $command, $info);
+    }
 }
 
 
 class IterDecorator extends FilterIterator {
-	private $iter;
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 *
-	 * @var array
-	 */
-	protected $filtre = [];
-
-	/**
-	 * Fonction de filtrage compilee a partir des criteres de filtre
-	 *
-	 * @var string
-	 */
-	protected $func_filtre = null;
-
-	/**
-	 * Critere {offset, limit}
-	 *
-	 * @var int
-	 * @var int
-	 */
-	protected $offset = null;
-	protected $limit = null;
-
-	/**
-	 * nombre d'elements recuperes depuis la position 0,
-	 * en tenant compte des filtres
-	 *
-	 * @var int
-	 */
-	protected $fetched = 0;
-
-	/**
-	 * Y a t'il une erreur ?
-	 *
-	 * @var bool
-	 **/
-	protected $err = false;
-
-	/**
-	 * Drapeau a activer en cas d'echec
-	 * (select SQL errone, non chargement des DATA, etc)
-	 */
-	public function err() {
-		if (method_exists($this->iter, 'err')) {
-			return $this->iter->err();
-		}
-		if (property_exists($this->iter, 'err')) {
-			return $this->iter->err;
-		}
-
-		return false;
-	}
-
-	public function __construct(Iterator $iter, $command, $info) {
-		parent::__construct($iter);
-		parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
-
-		// recuperer l'iterateur transmis
-		$this->iter = $this->getInnerIterator();
-		$this->command = $command;
-		$this->info = $info;
-		$this->pos = 0;
-		$this->fetched = 0;
-
-		// chercher la liste des champs a retourner par
-		// fetch si l'objet ne les calcule pas tout seul
-		if (!method_exists($this->iter, 'fetch')) {
-			$this->calculer_select();
-			$this->calculer_filtres();
-		}
-
-		// emptyIterator critere {si} faux n'a pas d'erreur !
-		if (isset($this->iter->err)) {
-			$this->err = $this->iter->err;
-		}
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-
-	// calcule les elements a retournes par fetch()
-	// enleve les elements inutiles du select()
-	//
-	private function calculer_select() {
-		if ($select = &$this->command['select']) {
-			foreach ($select as $s) {
-				// /!\ $s = '.nom'
-				if ($s[0] == '.') {
-					$s = substr($s, 1);
-				}
-				$this->select[] = $s;
-			}
-		}
-	}
-
-	// recuperer la valeur d'une balise #X
-	// en fonction des methodes
-	// et proprietes disponibles
-	public function get_select($nom) {
-		if (
-			is_object($this->iter)
-			and method_exists($this->iter, $nom)
-		) {
-			try {
-				return $this->iter->$nom();
-			} catch (Exception $e) {
-				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
-				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
-
-				return '';
-			}
-		}
-		/*
+    private $iter;
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     *
+     * @var array
+     */
+    protected $filtre = [];
+
+    /**
+     * Fonction de filtrage compilee a partir des criteres de filtre
+     *
+     * @var string
+     */
+    protected $func_filtre = null;
+
+    /**
+     * Critere {offset, limit}
+     *
+     * @var int
+     * @var int
+     */
+    protected $offset = null;
+    protected $limit = null;
+
+    /**
+     * nombre d'elements recuperes depuis la position 0,
+     * en tenant compte des filtres
+     *
+     * @var int
+     */
+    protected $fetched = 0;
+
+    /**
+     * Y a t'il une erreur ?
+     *
+     * @var bool
+     **/
+    protected $err = false;
+
+    /**
+     * Drapeau a activer en cas d'echec
+     * (select SQL errone, non chargement des DATA, etc)
+     */
+    public function err() {
+        if (method_exists($this->iter, 'err')) {
+            return $this->iter->err();
+        }
+        if (property_exists($this->iter, 'err')) {
+            return $this->iter->err;
+        }
+
+        return false;
+    }
+
+    public function __construct(Iterator $iter, $command, $info) {
+        parent::__construct($iter);
+        parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
+
+        // recuperer l'iterateur transmis
+        $this->iter = $this->getInnerIterator();
+        $this->command = $command;
+        $this->info = $info;
+        $this->pos = 0;
+        $this->fetched = 0;
+
+        // chercher la liste des champs a retourner par
+        // fetch si l'objet ne les calcule pas tout seul
+        if (!method_exists($this->iter, 'fetch')) {
+            $this->calculer_select();
+            $this->calculer_filtres();
+        }
+
+        // emptyIterator critere {si} faux n'a pas d'erreur !
+        if (isset($this->iter->err)) {
+            $this->err = $this->iter->err;
+        }
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+
+    // calcule les elements a retournes par fetch()
+    // enleve les elements inutiles du select()
+    //
+    private function calculer_select() {
+        if ($select = &$this->command['select']) {
+            foreach ($select as $s) {
+                // /!\ $s = '.nom'
+                if ($s[0] == '.') {
+                    $s = substr($s, 1);
+                }
+                $this->select[] = $s;
+            }
+        }
+    }
+
+    // recuperer la valeur d'une balise #X
+    // en fonction des methodes
+    // et proprietes disponibles
+    public function get_select($nom) {
+        if (
+            is_object($this->iter)
+            and method_exists($this->iter, $nom)
+        ) {
+            try {
+                return $this->iter->$nom();
+            } catch (Exception $e) {
+                // #GETCHILDREN sur un fichier de DirectoryIterator ...
+                spip_log("Methode $nom en echec sur " . get_class($this->iter));
+                spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
+
+                return '';
+            }
+        }
+        /*
 		if (property_exists($this->iter, $nom)) {
 			return $this->iter->$nom;
 		}*/
-		// cle et valeur par defaut
-		// ICI PLANTAGE SI ON NE CONTROLE PAS $nom
-		if (
-			in_array($nom, ['cle', 'valeur'])
-			and method_exists($this, $nom)
-		) {
-			return $this->$nom();
-		}
-
-		// Par defaut chercher en xpath dans la valeur()
-		return table_valeur($this->valeur(), $nom, null);
-	}
-
-
-	private function calculer_filtres() {
-
-		// Issu de calculer_select() de public/composer L.519
-		// TODO: externaliser...
-		//
-		// 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)
-		if ($where = &$this->command['where']) {
-			foreach ($where as $k => $v) {
-				$this->filtre[] = $this->traduire_condition_sql_en_filtre($v);
-			}
-		}
-
-		// critere {2,7}
-		if (isset($this->command['limit']) and $this->command['limit']) {
-			$limit = explode(',', $this->command['limit']);
-			$this->offset = $limit[0];
-			$this->limit = $limit[1];
-		}
-
-		// Creer la fonction de filtrage sur $this
-		if ($this->filtre) {
-			if ($filtres = $this->assembler_filtres($this->filtre)) {
-				$filtres = 'return ' . $filtres . ';';
-				$this->func_filtre = fn() => eval($filtres);
-			}
-			else {
-				$this->func_filtre = null;
-			}
-		}
-	}
-
-	/**
-	 * Assembler le tableau de filtres traduits depuis les conditions SQL
-	 * les filtres vides ou null sont ignores
-	 * @param $filtres
-	 * @param string $operateur
-	 * @return string|null
-	 */
-	protected function assembler_filtres($filtres, $operateur = 'AND') {
-
-		$filtres_string = [];
-		foreach ($filtres as $k => $v) {
-			// si c'est un tableau de OR/AND + 2 sous-filtres, on recurse pour transformer en chaine
-			if (is_array($v) and in_array(reset($v), ['OR', 'AND'])) {
-				$op = array_shift($v);
-				$v = $this->assembler_filtres($v, $op);
-			}
-			if (is_null($v) or !is_string($v) or empty($v)) {
-				continue;
-			}
-			$filtres_string[] = $v;
-		}
-
-		if (!count($filtres_string)) {
-			return null;
-		}
-
-		return '(' . implode(") $operateur (", $filtres_string) . ')';
-	}
-
-	/**
-	 * Traduire un element du tableau where SQL en un filtre
-	 * @param $v
-	 * @return string|array|null
-	 */
-	protected function traduire_condition_sql_en_filtre($v) {
-		if (is_array($v)) {
-			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-				return 'true';
-			} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-				return 'true';
-			} else {
-				$op = $v[0] ?: $v;
-			}
-		} else {
-			$op = $v;
-		}
-		if ((!$op) or ($op == 1) or ($op == '0=0')) {
-			return 'true';
-		}
-		if ($op === '0=1') {
-			return 'false';
-		}
-		// traiter {cle IN a,b} ou {valeur !IN a,b}
-		if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
-			return $this->composer_filtre($regs[1], 'IN', $regs[3], $regs[2]);
-		}
-
-		// 3 possibilites : count($v) =
-		// * 1 : {x y} ; on recoit $v[0] = y
-		// * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
-		// * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
-
-		// 1 : forcement traite par un critere, on passe
-		if (!$v or !is_array($v) or count($v) == 1) {
-			return null; // sera ignore
-		}
-		if (count($v) == 2 and is_array($v[1])) {
-			return $this->composer_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-		}
-		if (count($v) == 3) {
-			// traiter le OR/AND suivi de 2 valeurs
-			if (in_array($op, ['OR', 'AND'])) {
-				array_shift($v);
-				foreach (array_keys($v) as $k) {
-					$v[$k] = $this->traduire_condition_sql_en_filtre($v[$k]);
-					if ($v[$k] === null) {
-						unset($v[$k]);
-					}
-					elseif ($v[$k] === 'true') {
-						if ($op === 'OR') {
-							return 'true';
-						}
-						if ($op === 'AND') {
-							unset($v[$k]);
-						}
-					}
-					elseif ($v[$k] === 'false') {
-						if ($op === 'OR') {
-							unset($v[$k]);
-						}
-						if ($op === 'AND') {
-							return 'false';
-						}
-					}
-				}
-				if (!count($v)) {
-					return null;
-				}
-				if (count($v) === 1) {
-					return reset($v);
-				}
-				array_unshift($v, $op);
-				return $v;
-			}
-			return $this->composer_filtre($v[1], $v[0], $v[2]);
-		}
-
-		return null;  // sera ignore
-	}
-
-	/**
-	 * Calculer un filtre sur un champ du tableau
-	 * @param $cle
-	 * @param $op
-	 * @param $valeur
-	 * @param false $not
-	 * @return string|null
-	 */
-	protected function composer_filtre($cle, $op, $valeur, $not = false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return null;
-			}
-		}
-		// TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
-		# mais c'est normalement deja opere par calculer_critere_infixe()
-		# qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
-		# ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
-		# il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
-
-		# if (!in_array($cle, array('cle', 'valeur')))
-		#	return;
-
-		$a = '$this->get_select(\'' . $cle . '\')';
-
-		$filtre = '';
-
-		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
-			$op = '';
-		} else {
-			if ($op == 'LIKE') {
-				$valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
-				$op = '';
-			} else {
-				if ($op == '=') {
-					$op = '==';
-				} else {
-					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
-						$op = '';
-					} else {
-						if (!in_array($op, ['<', '<=', '>', '>='])) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
-							$op = '';
-						}
-					}
-				}
-			}
-		}
-
-		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
-		}
-
-		if ($not) {
-			$filtre = "!($filtre)";
-		}
-
-		return $filtre;
-	}
-
-
-	public function next() : void {
-		$this->pos++;
-		parent::next();
-	}
-
-	/**
-	 * revient au depart
-	 *
-	 * @return void
-	 */
-	public function rewind() : void {
-		$this->pos = 0;
-		$this->fetched = 0;
-		parent::rewind();
-	}
-
-
-	# Extension SPIP des iterateurs PHP
-	/**
-	 * type de l'iterateur
-	 *
-	 * @var string
-	 */
-	protected $type;
-
-	/**
-	 * parametres de l'iterateur
-	 *
-	 * @var array
-	 */
-	protected $command;
-
-	/**
-	 * infos de compilateur
-	 *
-	 * @var array
-	 */
-	protected $info;
-
-	/**
-	 * position courante de l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $pos = null;
-
-	/**
-	 * nombre total resultats dans l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $total = null;
-
-	/**
-	 * nombre maximal de recherche pour $total
-	 * si l'iterateur n'implemente pas de fonction specifique
-	 */
-	protected $max = 100000;
-
-
-	/**
-	 * Liste des champs a inserer dans les $row
-	 * retournes par ->fetch()
-	 */
-	protected $select = [];
-
-
-	/**
-	 * aller a la position absolue n,
-	 * comptee depuis le debut
-	 *
-	 * @param int $n
-	 *   absolute pos
-	 * @param string $continue
-	 *   param for sql_ api
-	 * @return bool
-	 *   success or fail if not implemented
-	 */
-	public function seek($n = 0, $continue = null) {
-		if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
-			$this->seek_loop($n);
-		}
-		$this->pos = $n;
-		$this->fetched = $n;
-
-		return true;
-	}
-
-	/*
+        // cle et valeur par defaut
+        // ICI PLANTAGE SI ON NE CONTROLE PAS $nom
+        if (
+            in_array($nom, ['cle', 'valeur'])
+            and method_exists($this, $nom)
+        ) {
+            return $this->$nom();
+        }
+
+        // Par defaut chercher en xpath dans la valeur()
+        return table_valeur($this->valeur(), $nom, null);
+    }
+
+
+    private function calculer_filtres() {
+
+        // Issu de calculer_select() de public/composer L.519
+        // TODO: externaliser...
+        //
+        // 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)
+        if ($where = &$this->command['where']) {
+            foreach ($where as $k => $v) {
+                $this->filtre[] = $this->traduire_condition_sql_en_filtre($v);
+            }
+        }
+
+        // critere {2,7}
+        if (isset($this->command['limit']) and $this->command['limit']) {
+            $limit = explode(',', $this->command['limit']);
+            $this->offset = $limit[0];
+            $this->limit = $limit[1];
+        }
+
+        // Creer la fonction de filtrage sur $this
+        if ($this->filtre) {
+            if ($filtres = $this->assembler_filtres($this->filtre)) {
+                $filtres = 'return ' . $filtres . ';';
+                $this->func_filtre = fn() => eval($filtres);
+            }
+            else {
+                $this->func_filtre = null;
+            }
+        }
+    }
+
+    /**
+     * Assembler le tableau de filtres traduits depuis les conditions SQL
+     * les filtres vides ou null sont ignores
+     * @param $filtres
+     * @param string $operateur
+     * @return string|null
+     */
+    protected function assembler_filtres($filtres, $operateur = 'AND') {
+
+        $filtres_string = [];
+        foreach ($filtres as $k => $v) {
+            // si c'est un tableau de OR/AND + 2 sous-filtres, on recurse pour transformer en chaine
+            if (is_array($v) and in_array(reset($v), ['OR', 'AND'])) {
+                $op = array_shift($v);
+                $v = $this->assembler_filtres($v, $op);
+            }
+            if (is_null($v) or !is_string($v) or empty($v)) {
+                continue;
+            }
+            $filtres_string[] = $v;
+        }
+
+        if (!count($filtres_string)) {
+            return null;
+        }
+
+        return '(' . implode(") $operateur (", $filtres_string) . ')';
+    }
+
+    /**
+     * Traduire un element du tableau where SQL en un filtre
+     * @param $v
+     * @return string|array|null
+     */
+    protected function traduire_condition_sql_en_filtre($v) {
+        if (is_array($v)) {
+            if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                return 'true';
+            } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                return 'true';
+            } else {
+                $op = $v[0] ?: $v;
+            }
+        } else {
+            $op = $v;
+        }
+        if ((!$op) or ($op == 1) or ($op == '0=0')) {
+            return 'true';
+        }
+        if ($op === '0=1') {
+            return 'false';
+        }
+        // traiter {cle IN a,b} ou {valeur !IN a,b}
+        if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
+            return $this->composer_filtre($regs[1], 'IN', $regs[3], $regs[2]);
+        }
+
+        // 3 possibilites : count($v) =
+        // * 1 : {x y} ; on recoit $v[0] = y
+        // * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
+        // * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
+
+        // 1 : forcement traite par un critere, on passe
+        if (!$v or !is_array($v) or count($v) == 1) {
+            return null; // sera ignore
+        }
+        if (count($v) == 2 and is_array($v[1])) {
+            return $this->composer_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+        }
+        if (count($v) == 3) {
+            // traiter le OR/AND suivi de 2 valeurs
+            if (in_array($op, ['OR', 'AND'])) {
+                array_shift($v);
+                foreach (array_keys($v) as $k) {
+                    $v[$k] = $this->traduire_condition_sql_en_filtre($v[$k]);
+                    if ($v[$k] === null) {
+                        unset($v[$k]);
+                    }
+                    elseif ($v[$k] === 'true') {
+                        if ($op === 'OR') {
+                            return 'true';
+                        }
+                        if ($op === 'AND') {
+                            unset($v[$k]);
+                        }
+                    }
+                    elseif ($v[$k] === 'false') {
+                        if ($op === 'OR') {
+                            unset($v[$k]);
+                        }
+                        if ($op === 'AND') {
+                            return 'false';
+                        }
+                    }
+                }
+                if (!count($v)) {
+                    return null;
+                }
+                if (count($v) === 1) {
+                    return reset($v);
+                }
+                array_unshift($v, $op);
+                return $v;
+            }
+            return $this->composer_filtre($v[1], $v[0], $v[2]);
+        }
+
+        return null;  // sera ignore
+    }
+
+    /**
+     * Calculer un filtre sur un champ du tableau
+     * @param $cle
+     * @param $op
+     * @param $valeur
+     * @param false $not
+     * @return string|null
+     */
+    protected function composer_filtre($cle, $op, $valeur, $not = false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return null;
+            }
+        }
+        // TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
+        # mais c'est normalement deja opere par calculer_critere_infixe()
+        # qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
+        # ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
+        # il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
+
+        # if (!in_array($cle, array('cle', 'valeur')))
+        #	return;
+
+        $a = '$this->get_select(\'' . $cle . '\')';
+
+        $filtre = '';
+
+        if ($op == 'REGEXP') {
+            $filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+            $op = '';
+        } else {
+            if ($op == 'LIKE') {
+                $valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
+                $filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+                $op = '';
+            } else {
+                if ($op == '=') {
+                    $op = '==';
+                } else {
+                    if ($op == 'IN') {
+                        $filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+                        $op = '';
+                    } else {
+                        if (!in_array($op, ['<', '<=', '>', '>='])) {
+                            spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+                            $op = '';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($op) {
+            $filtre = $a . $op . str_replace('\"', '"', $valeur);
+        }
+
+        if ($not) {
+            $filtre = "!($filtre)";
+        }
+
+        return $filtre;
+    }
+
+
+    public function next() : void {
+        $this->pos++;
+        parent::next();
+    }
+
+    /**
+     * revient au depart
+     *
+     * @return void
+     */
+    public function rewind() : void {
+        $this->pos = 0;
+        $this->fetched = 0;
+        parent::rewind();
+    }
+
+
+    # Extension SPIP des iterateurs PHP
+    /**
+     * type de l'iterateur
+     *
+     * @var string
+     */
+    protected $type;
+
+    /**
+     * parametres de l'iterateur
+     *
+     * @var array
+     */
+    protected $command;
+
+    /**
+     * infos de compilateur
+     *
+     * @var array
+     */
+    protected $info;
+
+    /**
+     * position courante de l'iterateur
+     *
+     * @var int
+     */
+    protected $pos = null;
+
+    /**
+     * nombre total resultats dans l'iterateur
+     *
+     * @var int
+     */
+    protected $total = null;
+
+    /**
+     * nombre maximal de recherche pour $total
+     * si l'iterateur n'implemente pas de fonction specifique
+     */
+    protected $max = 100000;
+
+
+    /**
+     * Liste des champs a inserer dans les $row
+     * retournes par ->fetch()
+     */
+    protected $select = [];
+
+
+    /**
+     * aller a la position absolue n,
+     * comptee depuis le debut
+     *
+     * @param int $n
+     *   absolute pos
+     * @param string $continue
+     *   param for sql_ api
+     * @return bool
+     *   success or fail if not implemented
+     */
+    public function seek($n = 0, $continue = null) {
+        if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
+            $this->seek_loop($n);
+        }
+        $this->pos = $n;
+        $this->fetched = $n;
+
+        return true;
+    }
+
+    /*
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
-	private function seek_loop($n) {
-		if ($this->pos > $n) {
-			$this->rewind();
-		}
-
-		while ($this->pos < $n and $this->valid()) {
-			$this->next();
-		}
-
-		return true;
-	}
-
-	/**
-	 * Avancer de $saut pas
-	 *
-	 * @param  $saut
-	 * @param  $max
-	 * @return int
-	 */
-	public function skip($saut, $max = null) {
-		// pas de saut en arriere autorise pour cette fonction
-		if (($saut = intval($saut)) <= 0) {
-			return $this->pos;
-		}
-		$seek = $this->pos + $saut;
-		// si le saut fait depasser le maxi, on libere la resource
-		// et on sort
-		if (is_null($max)) {
-			$max = $this->count();
-		}
-
-		if ($seek >= $max or $seek >= $this->count()) {
-			// sortie plus rapide que de faire next() jusqu'a la fin !
-			$this->free();
-
-			return $max;
-		}
-
-		$this->seek($seek);
-
-		return $this->pos;
-	}
-
-	/**
-	 * Renvoyer un tableau des donnees correspondantes
-	 * a la position courante de l'iterateur
-	 * en controlant si on respecte le filtre
-	 * Appliquer aussi le critere {offset,limit}
-	 *
-	 * @return array|bool
-	 */
-	public function fetch() {
-		if (method_exists($this->iter, 'fetch')) {
-			return $this->iter->fetch();
-		} else {
-			while (
-				$this->valid()
-				and (
-					!$this->accept()
-					or (isset($this->offset) and $this->fetched++ < $this->offset)
-				)
-			) {
-				$this->next();
-			}
-
-			if (!$this->valid()) {
-				return false;
-			}
-
-			if (
-				isset($this->limit)
-				and $this->fetched > $this->offset + $this->limit
-			) {
-				return false;
-			}
-
-			$r = [];
-			foreach ($this->select as $nom) {
-				$r[$nom] = $this->get_select($nom);
-			}
-			$this->next();
-
-			return $r;
-		}
-	}
-
-	// retourner la cle pour #CLE
-	public function cle() {
-		return $this->key();
-	}
-
-	// retourner la valeur pour #VALEUR
-	public function valeur() {
-		return $this->current();
-	}
-
-	/**
-	 * Accepte-t-on l'entree courante lue ?
-	 * On execute les filtres pour le savoir.
-	 **/
-	public function accept(): bool {
-		if ($f = $this->func_filtre) {
-			return $f();
-		}
-
-		return true;
-	}
-
-	/**
-	 * liberer la ressource
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (method_exists($this->iter, 'free')) {
-			$this->iter->free();
-		}
-		$this->pos = $this->total = 0;
-
-		return true;
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 * pour #TOTAL_BOUCLE
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (
-				method_exists($this->iter, 'count')
-				and !$this->func_filtre
-			) {
-				return $this->total = $this->iter->count();
-			} else {
-				// compter les lignes et rembobiner
-				$total = 0;
-				$pos = $this->pos; // sauver la position
-				$this->rewind();
-				while ($this->fetch() and $total < $this->max) {
-					$total++;
-				}
-				$this->seek($pos);
-				$this->total = $total;
-			}
-		}
-
-		return $this->total;
-	}
+    private function seek_loop($n) {
+        if ($this->pos > $n) {
+            $this->rewind();
+        }
+
+        while ($this->pos < $n and $this->valid()) {
+            $this->next();
+        }
+
+        return true;
+    }
+
+    /**
+     * Avancer de $saut pas
+     *
+     * @param  $saut
+     * @param  $max
+     * @return int
+     */
+    public function skip($saut, $max = null) {
+        // pas de saut en arriere autorise pour cette fonction
+        if (($saut = intval($saut)) <= 0) {
+            return $this->pos;
+        }
+        $seek = $this->pos + $saut;
+        // si le saut fait depasser le maxi, on libere la resource
+        // et on sort
+        if (is_null($max)) {
+            $max = $this->count();
+        }
+
+        if ($seek >= $max or $seek >= $this->count()) {
+            // sortie plus rapide que de faire next() jusqu'a la fin !
+            $this->free();
+
+            return $max;
+        }
+
+        $this->seek($seek);
+
+        return $this->pos;
+    }
+
+    /**
+     * Renvoyer un tableau des donnees correspondantes
+     * a la position courante de l'iterateur
+     * en controlant si on respecte le filtre
+     * Appliquer aussi le critere {offset,limit}
+     *
+     * @return array|bool
+     */
+    public function fetch() {
+        if (method_exists($this->iter, 'fetch')) {
+            return $this->iter->fetch();
+        } else {
+            while (
+                $this->valid()
+                and (
+                    !$this->accept()
+                    or (isset($this->offset) and $this->fetched++ < $this->offset)
+                )
+            ) {
+                $this->next();
+            }
+
+            if (!$this->valid()) {
+                return false;
+            }
+
+            if (
+                isset($this->limit)
+                and $this->fetched > $this->offset + $this->limit
+            ) {
+                return false;
+            }
+
+            $r = [];
+            foreach ($this->select as $nom) {
+                $r[$nom] = $this->get_select($nom);
+            }
+            $this->next();
+
+            return $r;
+        }
+    }
+
+    // retourner la cle pour #CLE
+    public function cle() {
+        return $this->key();
+    }
+
+    // retourner la valeur pour #VALEUR
+    public function valeur() {
+        return $this->current();
+    }
+
+    /**
+     * Accepte-t-on l'entree courante lue ?
+     * On execute les filtres pour le savoir.
+     **/
+    public function accept(): bool {
+        if ($f = $this->func_filtre) {
+            return $f();
+        }
+
+        return true;
+    }
+
+    /**
+     * liberer la ressource
+     *
+     * @return bool
+     */
+    public function free() {
+        if (method_exists($this->iter, 'free')) {
+            $this->iter->free();
+        }
+        $this->pos = $this->total = 0;
+
+        return true;
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     * pour #TOTAL_BOUCLE
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (
+                method_exists($this->iter, 'count')
+                and !$this->func_filtre
+            ) {
+                return $this->total = $this->iter->count();
+            } else {
+                // compter les lignes et rembobiner
+                $total = 0;
+                $pos = $this->pos; // sauver la position
+                $this->rewind();
+                while ($this->fetch() and $total < $this->max) {
+                    $total++;
+                }
+                $this->seek($pos);
+                $this->total = $total;
+            }
+        }
+
+        return $this->total;
+    }
 }

ecrire/public/format_html.php

Indentation +90 added lines, -90 removed lines

@@ -11,127 +11,127 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function format_boucle_html($preaff, $avant, $nom, $type, $crit, $corps, $apres, $altern, $postaff, $prof) {
-	$preaff = $preaff ? "<BB$nom>$preaff" : '';
-	$avant = $avant ? "<B$nom>$avant" : '';
-	$apres = $apres ? "$apres</B$nom>" : '';
-	$altern = $altern ? "$altern<//B$nom>" : '';
-	$postaff = $postaff ? "$postaff</BB$nom>" : '';
-	if (!$corps) {
-		$corps = ' />';
-	} else {
-		$corps = ">$corps</BOUCLE$nom>";
-	}
-
-	return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
+    $preaff = $preaff ? "<BB$nom>$preaff" : '';
+    $avant = $avant ? "<B$nom>$avant" : '';
+    $apres = $apres ? "$apres</B$nom>" : '';
+    $altern = $altern ? "$altern<//B$nom>" : '';
+    $postaff = $postaff ? "$postaff</BB$nom>" : '';
+    if (!$corps) {
+        $corps = ' />';
+    } else {
+        $corps = ">$corps</BOUCLE$nom>";
+    }
+
+    return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
 }
 
 function format_inclure_html($file, $args, $prof) {
-	if (strpos($file, '#') === false) {
-		$t = $file ? ('(' . $file . ')') : '';
-	} else {
-		$t = '{fond=' . $file . '}';
-	}
-	$args = !$args ? '' : ('{' . join(', ', $args) . '}');
-
-	return ('<INCLURE' . $t . $args . '>');
+    if (strpos($file, '#') === false) {
+        $t = $file ? ('(' . $file . ')') : '';
+    } else {
+        $t = '{fond=' . $file . '}';
+    }
+    $args = !$args ? '' : ('{' . join(', ', $args) . '}');
+
+    return ('<INCLURE' . $t . $args . '>');
 }
 
 function format_polyglotte_html($args, $prof) {
-	$contenu = [];
-	foreach ($args as $l => $t) {
-		$contenu[] = ($l ? "[$l]" : '') . $t;
-	}
+    $contenu = [];
+    foreach ($args as $l => $t) {
+        $contenu[] = ($l ? "[$l]" : '') . $t;
+    }
 
-	return ('<multi>' . join(' ', $contenu) . '</multi>');
+    return ('<multi>' . join(' ', $contenu) . '</multi>');
 }
 
 function format_idiome_html($nom, $module, $args, $filtres, $prof) {
-	foreach ($args as $k => $v) {
-		$args[$k] = "$k=$v";
-	}
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
+    foreach ($args as $k => $v) {
+        $args[$k] = "$k=$v";
+    }
+    $args = (!$args ? '' : ('{' . join(',', $args) . '}'));
 
-	return ('<:' . ($module ? "$module:" : '') . $nom . $args . $filtres . ':>');
+    return ('<:' . ($module ? "$module:" : '') . $nom . $args . $filtres . ':>');
 }
 
 function format_champ_html($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof) {
-	$nom = '#'
-		. ($boucle ? ($boucle . ':') : '')
-		. $nom
-		. $etoile
-		. $args
-		. $filtres;
+    $nom = '#'
+        . ($boucle ? ($boucle . ':') : '')
+        . $nom
+        . $etoile
+        . $args
+        . $filtres;
 
-	// Determiner si c'est un champ etendu,
+    // Determiner si c'est un champ etendu,
 
-	$s = ($avant or $apres or $filtres
-		or (strpos($args, '(#') !== false));
+    $s = ($avant or $apres or $filtres
+        or (strpos($args, '(#') !== false));
 
-	return ($s ? "[$avant($nom)$apres]" : $nom);
+    return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
 function format_critere_html($critere) {
-	foreach ($critere as $k => $crit) {
-		$crit_s = '';
-		foreach ($crit as $operande) {
-			[$type, $valeur] = $operande;
-			if ($type == 'champ' and $valeur[0] == '[') {
-				$valeur = substr($valeur, 1, -1);
-				if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
-					$valeur = substr($valeur, 1, -1);
-				}
-			}
-			$crit_s .= $valeur;
-		}
-		$critere[$k] = $crit_s;
-	}
-
-	return (!$critere ? '' : ('{' . join(',', $critere) . '}'));
+    foreach ($critere as $k => $crit) {
+        $crit_s = '';
+        foreach ($crit as $operande) {
+            [$type, $valeur] = $operande;
+            if ($type == 'champ' and $valeur[0] == '[') {
+                $valeur = substr($valeur, 1, -1);
+                if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
+                    $valeur = substr($valeur, 1, -1);
+                }
+            }
+            $crit_s .= $valeur;
+        }
+        $critere[$k] = $crit_s;
+    }
+
+    return (!$critere ? '' : ('{' . join(',', $critere) . '}'));
 }
 
 function format_liste_html($fonc, $args, $prof) {
-	return ((($fonc !== '') ? "|$fonc" : $fonc)
-		. (!$args ? '' : ('{' . join(',', $args) . '}')));
+    return ((($fonc !== '') ? "|$fonc" : $fonc)
+        . (!$args ? '' : ('{' . join(',', $args) . '}')));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
 function format_suite_html($args) {
-	for ($i = 0; $i < (is_countable($args) ? count($args) : 0) - 1; $i++) {
-		[$texte, $type] = $args[$i];
-		[$texte2, $type2] = $args[$i + 1];
-		if (!$texte or !$texte2) {
-			continue;
-		}
-		$c1 = substr($texte, -1);
-		if ($type2 !== 'texte') {
-			// si un texte se termine par ( et est suivi d'un champ
-			// ou assimiles, forcer la notation pleine
-			if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
-				$args[$i + 1][0] = '[(' . $texte2 . ')]';
-			}
-		} else {
-			if ($type == 'texte') {
-				continue;
-			}
-			// si un champ ou assimiles est suivi d'un texte
-			// et si celui-ci commence par un caractere de champ
-			// forcer la notation pleine
-			if (
-				($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
-				or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
-			) {
-				$args[$i][0] = '[(' . $texte . ')]';
-			}
-		}
-	}
-
-	return join('', array_map(fn($arg) => reset($arg), $args));
+    for ($i = 0; $i < (is_countable($args) ? count($args) : 0) - 1; $i++) {
+        [$texte, $type] = $args[$i];
+        [$texte2, $type2] = $args[$i + 1];
+        if (!$texte or !$texte2) {
+            continue;
+        }
+        $c1 = substr($texte, -1);
+        if ($type2 !== 'texte') {
+            // si un texte se termine par ( et est suivi d'un champ
+            // ou assimiles, forcer la notation pleine
+            if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
+                $args[$i + 1][0] = '[(' . $texte2 . ')]';
+            }
+        } else {
+            if ($type == 'texte') {
+                continue;
+            }
+            // si un champ ou assimiles est suivi d'un texte
+            // et si celui-ci commence par un caractere de champ
+            // forcer la notation pleine
+            if (
+                ($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
+                or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
+            ) {
+                $args[$i][0] = '[(' . $texte . ')]';
+            }
+        }
+    }
+
+    return join('', array_map(fn($arg) => reset($arg), $args));
 }
 
 function format_texte_html($texte) {
-	return $texte;
+    return $texte;
 }

ecrire/public/fonctions.php

Indentation +299 added lines, -299 removed lines

@@ -23,7 +23,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -52,75 +52,75 @@ 
  *     Introduction calculée
  **/
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect, $suite = null) {
-	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif)) {
-		return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
-	}
-
-	// De preference ce qui est marque <intro>...</intro>
-	$intro = '';
-	$texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
-	while ($fin = strpos($texte, '</intro>')) {
-		$zone = substr($texte, 0, $fin);
-		$texte = substr($texte, $fin + strlen('</intro>'));
-		if ($deb = strpos($zone, '<intro>') or substr($zone, 0, 7) == '<intro>') {
-			$zone = substr($zone, $deb + 7);
-		}
-		$intro .= $zone;
-	}
-
-	// [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
-	// qui inclus raccourcis et modeles
-	// un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
-	// par ailleurs le nettoyage des raccourcis ne tient pas compte
-	// des surcharges et enrichissement de propre
-	// couper doit se faire apres propre
-	//$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
-
-	// Cependant pour des questions de perfs on coupe quand meme, en prenant
-	// large et en se mefiant des tableaux #1323
-
-	if (strlen($intro)) {
-		$texte = $intro;
-	} else {
-		if (
-			strpos("\n" . $texte, "\n|") === false
-			and strlen($texte) > 2.5 * $longueur
-		) {
-			if (strpos($texte, '<multi') !== false) {
-				$texte = extraire_multi($texte);
-			}
-			$texte = couper($texte, 2 * $longueur);
-		}
-	}
-
-	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$notes('', 'empiler');
-	}
-	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
-	// dans l'introduction.
-	$texte = supprime_img($texte, '');
-	$texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
-
-	if ($notes) {
-		$notes('', 'depiler');
-	}
-
-	if (is_null($suite) and defined('_INTRODUCTION_SUITE')) {
-		$suite = _INTRODUCTION_SUITE;
-	}
-	$texte = couper($texte, $longueur, $suite);
-	// comme on a coupe il faut repasser la typo (on a perdu les insecables)
-	$texte = typo($texte, true, $connect, []);
-
-	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	// une introduction a tojours un <p>
-	if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
-	$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
-	}
-
-	return $texte;
+    // Si un descriptif est envoye, on l'utilise directement
+    if (strlen($descriptif)) {
+        return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
+    }
+
+    // De preference ce qui est marque <intro>...</intro>
+    $intro = '';
+    $texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
+    while ($fin = strpos($texte, '</intro>')) {
+        $zone = substr($texte, 0, $fin);
+        $texte = substr($texte, $fin + strlen('</intro>'));
+        if ($deb = strpos($zone, '<intro>') or substr($zone, 0, 7) == '<intro>') {
+            $zone = substr($zone, $deb + 7);
+        }
+        $intro .= $zone;
+    }
+
+    // [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
+    // qui inclus raccourcis et modeles
+    // un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
+    // par ailleurs le nettoyage des raccourcis ne tient pas compte
+    // des surcharges et enrichissement de propre
+    // couper doit se faire apres propre
+    //$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
+
+    // Cependant pour des questions de perfs on coupe quand meme, en prenant
+    // large et en se mefiant des tableaux #1323
+
+    if (strlen($intro)) {
+        $texte = $intro;
+    } else {
+        if (
+            strpos("\n" . $texte, "\n|") === false
+            and strlen($texte) > 2.5 * $longueur
+        ) {
+            if (strpos($texte, '<multi') !== false) {
+                $texte = extraire_multi($texte);
+            }
+            $texte = couper($texte, 2 * $longueur);
+        }
+    }
+
+    // ne pas tenir compte des notes
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $notes('', 'empiler');
+    }
+    // Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
+    // dans l'introduction.
+    $texte = supprime_img($texte, '');
+    $texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
+
+    if ($notes) {
+        $notes('', 'depiler');
+    }
+
+    if (is_null($suite) and defined('_INTRODUCTION_SUITE')) {
+        $suite = _INTRODUCTION_SUITE;
+    }
+    $texte = couper($texte, $longueur, $suite);
+    // comme on a coupe il faut repasser la typo (on a perdu les insecables)
+    $texte = typo($texte, true, $connect, []);
+
+    // et reparagrapher si necessaire (coherence avec le cas descriptif)
+    // une introduction a tojours un <p>
+    if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
+    $texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+    }
+
+    return $texte;
 }
 
 
@@ -155,73 +155,73 @@ 
  *     Code HTML de la pagination
  **/
 function filtre_pagination_dist(
-	$total,
-	$nom,
-	$position,
-	$pas,
-	$liste = true,
-	$modele = '',
-	string $connect = '',
-	$env = []
+    $total,
+    $nom,
+    $position,
+    $pas,
+    $liste = true,
+    $modele = '',
+    string $connect = '',
+    $env = []
 ) {
-	static $ancres = [];
-	if ($pas < 1) {
-		return '';
-	}
-	$ancre = 'pagination' . $nom; // #pagination_articles
-	$debut = 'debut' . $nom; // 'debut_articles'
-
-	// n'afficher l'ancre qu'une fois
-	if (!isset($ancres[$ancre])) {
-		$bloc_ancre = $ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>";
-	} else {
-		$bloc_ancre = '';
-	}
-	// liste = false : on ne veut que l'ancre
-	if (!$liste) {
-		return $ancres[$ancre];
-	}
-
-	$self = (empty($env['self']) ? self() : $env['self']);
-	$pagination = [
-		'debut' => $debut,
-		'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
-		'total' => $total,
-		'position' => intval($position),
-		'pas' => $pas,
-		'nombre_pages' => floor(($total - 1) / $pas) + 1,
-		'page_courante' => floor(intval($position) / $pas) + 1,
-		'ancre' => $ancre,
-		'bloc_ancre' => $bloc_ancre
-	];
-	if (is_array($env)) {
-		$pagination = array_merge($env, $pagination);
-	}
-
-	// Pas de pagination
-	if ($pagination['nombre_pages'] <= 1) {
-		return '';
-	}
-
-	if ($modele) {
-		$pagination['type_pagination'] = $modele;
-		if (trouver_fond('pagination_' . $modele, 'modeles')) {
-			$modele = '_' . $modele;
-		}
-		else {
-			$modele = '';
-		}
-	}
-
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
-	}
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
-	}
-
-
-	return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
+    static $ancres = [];
+    if ($pas < 1) {
+        return '';
+    }
+    $ancre = 'pagination' . $nom; // #pagination_articles
+    $debut = 'debut' . $nom; // 'debut_articles'
+
+    // n'afficher l'ancre qu'une fois
+    if (!isset($ancres[$ancre])) {
+        $bloc_ancre = $ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>";
+    } else {
+        $bloc_ancre = '';
+    }
+    // liste = false : on ne veut que l'ancre
+    if (!$liste) {
+        return $ancres[$ancre];
+    }
+
+    $self = (empty($env['self']) ? self() : $env['self']);
+    $pagination = [
+        'debut' => $debut,
+        'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
+        'total' => $total,
+        'position' => intval($position),
+        'pas' => $pas,
+        'nombre_pages' => floor(($total - 1) / $pas) + 1,
+        'page_courante' => floor(intval($position) / $pas) + 1,
+        'ancre' => $ancre,
+        'bloc_ancre' => $bloc_ancre
+    ];
+    if (is_array($env)) {
+        $pagination = array_merge($env, $pagination);
+    }
+
+    // Pas de pagination
+    if ($pagination['nombre_pages'] <= 1) {
+        return '';
+    }
+
+    if ($modele) {
+        $pagination['type_pagination'] = $modele;
+        if (trouver_fond('pagination_' . $modele, 'modeles')) {
+            $modele = '_' . $modele;
+        }
+        else {
+            $modele = '';
+        }
+    }
+
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
+    }
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
+    }
+
+
+    return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
 }
 
 
@@ -240,44 +240,44 @@ 
  *     Liste (première page, dernière page).
  **/
 function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) {
-	if ($max <= 0 or $max >= $nombre) {
-		return [1, $nombre];
-	}
-	if ($max <= 1) {
-		return [$courante, $courante];
-	}
-
-	$premiere = max(1, $courante - floor(($max - 1) / 2));
-	$derniere = min($nombre, $premiere + $max - 2);
-	$premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
-
-	return [$premiere, $derniere];
+    if ($max <= 0 or $max >= $nombre) {
+        return [1, $nombre];
+    }
+    if ($max <= 1) {
+        return [$courante, $courante];
+    }
+
+    $premiere = max(1, $courante - floor(($max - 1) / 2));
+    $derniere = min($nombre, $premiere + $max - 2);
+    $premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
+
+    return [$premiere, $derniere];
 }
 
 function filtre_pagination_affiche_texte_lien_page_dist($type_pagination, $numero_page, $rang_item) {
-	if ($numero_page === 'tous') {
-		return '&#8734;';
-	}
-	if ($numero_page === 'prev') {
-		return '&lt;';
-	}
-	if ($numero_page === 'next') {
-		return '&gt;';
-	}
-
-	switch ($type_pagination) {
-		case 'resultats':
-			return $rang_item + 1; // 1 11 21 31...
-		case 'naturel':
-			return $rang_item ?: 1; // 1 10 20 30...
-		case 'rang':
-			return $rang_item; // 0 10 20 30...
-
-		case 'page':
-		case 'prive':
-		default:
-			return $numero_page; // 1 2 3 4 5...
-	}
+    if ($numero_page === 'tous') {
+        return '&#8734;';
+    }
+    if ($numero_page === 'prev') {
+        return '&lt;';
+    }
+    if ($numero_page === 'next') {
+        return '&gt;';
+    }
+
+    switch ($type_pagination) {
+        case 'resultats':
+            return $rang_item + 1; // 1 11 21 31...
+        case 'naturel':
+            return $rang_item ?: 1; // 1 10 20 30...
+        case 'rang':
+            return $rang_item; // 0 10 20 30...
+
+        case 'page':
+        case 'prive':
+        default:
+            return $numero_page; // 1 2 3 4 5...
+    }
 }
 
 /**
@@ -290,15 +290,15 @@ 
  **/
 function lister_objets_avec_logos($type) {
 
-	$objet = objet_type($type);
-	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
-	if ($ids) {
-		$ids = array_column($ids, 'id_objet');
-		return implode(',', $ids);
-	}
-	else {
-		return '0';
-	}
+    $objet = objet_type($type);
+    $ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
+    if ($ids) {
+        $ids = array_column($ids, 'id_objet');
+        return implode(',', $ids);
+    }
+    else {
+        return '0';
+    }
 }
 
 
@@ -314,14 +314,14 @@ 
  *     Code HTML des notes
  **/
 function calculer_notes() {
-	$r = '';
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$r = $notes([]);
-		$notes('', 'depiler');
-		$notes('', 'empiler');
-	}
-
-	return $r;
+    $r = '';
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $r = $notes([]);
+        $notes('', 'depiler');
+        $notes('', 'empiler');
+    }
+
+    return $r;
 }
 
 
@@ -338,10 +338,10 @@ 
  * @return string
  */
 function retrouver_rang_lien($objet_source, $ids, $objet_lie, $idl, $objet_lien) {
-	$res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
-	$res = array_column($res, 'rang_lien', $objet_source);
+    $res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
+    $res = array_column($res, 'rang_lien', $objet_source);
 
-	return ($res[$ids] ?? '');
+    return ($res[$ids] ?? '');
 }
 
 
@@ -358,19 +358,19 @@ 
  * @private
  */
 function lister_objets_liens($objet_source, $objet, $id_objet, $objet_lien) {
-	static $liens = [];
-	if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
-		include_spip('action/editer_liens');
-		// quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
-		if ($objet_lien == $objet and $objet_lien !== $objet_source) {
-			$res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
-		} else {
-			$res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
-		}
-
-		$liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
-	}
-	return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
+    static $liens = [];
+    if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
+        include_spip('action/editer_liens');
+        // quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
+        if ($objet_lien == $objet and $objet_lien !== $objet_source) {
+            $res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
+        } else {
+            $res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
+        }
+
+        $liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
+    }
+    return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
 }
 
 /**
@@ -384,24 +384,24 @@ 
  * @return int|string
  */
 function calculer_rang_smart($titre, $objet_source, $id, $env) {
-	// Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
-	// permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
-	if (
-		isset($env['form']) and $env['form']
-		and isset($env['_objet_lien']) and $env['_objet_lien']
-		and (function_exists('lien_triables') or include_spip('action/editer_liens'))
-		and $r = objet_associable($env['_objet_lien'])
-		and [$p, $table_lien] = $r
-		and lien_triables($table_lien)
-		and isset($env['objet']) and $env['objet']
-		and isset($env['id_objet']) and $env['id_objet']
-		and $objet_source
-		and $id = intval($id)
-	) {
-		$rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
-		return ($rang ?: '');
-	}
-	return recuperer_numero($titre);
+    // Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
+    // permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
+    if (
+        isset($env['form']) and $env['form']
+        and isset($env['_objet_lien']) and $env['_objet_lien']
+        and (function_exists('lien_triables') or include_spip('action/editer_liens'))
+        and $r = objet_associable($env['_objet_lien'])
+        and [$p, $table_lien] = $r
+        and lien_triables($table_lien)
+        and isset($env['objet']) and $env['objet']
+        and isset($env['id_objet']) and $env['id_objet']
+        and $objet_source
+        and $id = intval($id)
+    ) {
+        $rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
+        return ($rang ?: '');
+    }
+    return recuperer_numero($titre);
 }
 
 
@@ -417,7 +417,7 @@ 
  * @return string
  */
 function tri_protege_champ($t) {
-	return preg_replace(',[^\s\w.+\[\]],', '', $t);
+    return preg_replace(',[^\s\w.+\[\]],', '', $t);
 }
 
 /**
@@ -430,43 +430,43 @@ 
  * @return string
  */
 function tri_champ_order($t, $from = null, $senstri = '') {
-	if (strncmp($t, 'multi ', 6) == 0) {
-		return 'multi';
-	}
-
-	$champ = $t;
-
-	$prefixe = '';
-	foreach (['num ', 'sinum '] as $p) {
-		if (strpos($t, $p) === 0) {
-			$champ = substr($t, strlen($p));
-			$prefixe = $p;
-		}
-	}
-
-	// enlever les autres espaces non evacues par tri_protege_champ
-	$champ = preg_replace(',\s,', '', $champ);
-
-	if (is_array($from)) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		foreach ($from as $idt => $table_sql) {
-			if (
-				$desc = $trouver_table($table_sql)
-				and isset($desc['field'][$champ])
-			) {
-				$champ = "$idt.$champ";
-				break;
-			}
-		}
-	}
-	switch ($prefixe) {
-		case 'num ':
-			return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}";
-		case 'sinum ':
-			return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}";
-		default:
-			return $champ . $senstri;
-	}
+    if (strncmp($t, 'multi ', 6) == 0) {
+        return 'multi';
+    }
+
+    $champ = $t;
+
+    $prefixe = '';
+    foreach (['num ', 'sinum '] as $p) {
+        if (strpos($t, $p) === 0) {
+            $champ = substr($t, strlen($p));
+            $prefixe = $p;
+        }
+    }
+
+    // enlever les autres espaces non evacues par tri_protege_champ
+    $champ = preg_replace(',\s,', '', $champ);
+
+    if (is_array($from)) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        foreach ($from as $idt => $table_sql) {
+            if (
+                $desc = $trouver_table($table_sql)
+                and isset($desc['field'][$champ])
+            ) {
+                $champ = "$idt.$champ";
+                break;
+            }
+        }
+    }
+    switch ($prefixe) {
+        case 'num ':
+            return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}";
+        case 'sinum ':
+            return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}";
+        default:
+            return $champ . $senstri;
+    }
 }
 
 /**
@@ -480,18 +480,18 @@ 
  * @return string
  */
 function tri_champ_select($t) {
-	if (strncmp($t, 'multi ', 6) == 0) {
-		$t = substr($t, 6);
-		$t = preg_replace(',\s,', '', $t);
-		$t = sql_multi($t, $GLOBALS['spip_lang']);
-
-		return $t;
-	}
-	if (trim($t) == 'hasard') {
-		return 'rand() AS hasard';
-	}
-
-	return "''";
+    if (strncmp($t, 'multi ', 6) == 0) {
+        $t = substr($t, 6);
+        $t = preg_replace(',\s,', '', $t);
+        $t = sql_multi($t, $GLOBALS['spip_lang']);
+
+        return $t;
+    }
+    if (trim($t) == 'hasard') {
+        return 'rand() AS hasard';
+    }
+
+    return "''";
 }
 
 /**
@@ -503,16 +503,16 @@ 
  * @return string
  */
 function formate_liste_critere_par_ordre_liste($valeurs, $serveur = '') {
-	if (!is_array($valeurs)) {
-		return '';
-	}
-	$f = sql_serveur('quote', $serveur, true);
-	if (!is_string($f) or !$f) {
-		return '';
-	}
-	$valeurs = implode(',', array_map($f, array_unique($valeurs)));
-
-	return $valeurs;
+    if (!is_array($valeurs)) {
+        return '';
+    }
+    $f = sql_serveur('quote', $serveur, true);
+    if (!is_string($f) or !$f) {
+        return '';
+    }
+    $valeurs = implode(',', array_map($f, array_unique($valeurs)));
+
+    return $valeurs;
 }
 
 /**
@@ -535,21 +535,21 @@ 
  *     Valeur $defaut sinon.
  **/
 function appliquer_filtre_sinon($arg, $filtre, $args, $defaut = '') {
-	// Si c'est un filtre d'image, on utilise image_filtrer()
-	// Attention : les 2 premiers arguments sont inversés dans ce cas
-	if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
-		include_spip('inc/filtres_images_lib_mini');
-		$args[1] = $args[0];
-		$args[0] = $filtre;
-		return image_graver(image_filtrer($args));
-	}
-
-	$f = chercher_filtre($filtre);
-	if (!$f) {
-		return $defaut;
-	}
-	array_shift($args); // enlever $arg
-	array_shift($args); // enlever $filtre
-	array_unshift($args, $arg); // remettre $arg
-	return call_user_func_array($f, $args);
+    // Si c'est un filtre d'image, on utilise image_filtrer()
+    // Attention : les 2 premiers arguments sont inversés dans ce cas
+    if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
+        include_spip('inc/filtres_images_lib_mini');
+        $args[1] = $args[0];
+        $args[0] = $filtre;
+        return image_graver(image_filtrer($args));
+    }
+
+    $f = chercher_filtre($filtre);
+    if (!$f) {
+        return $defaut;
+    }
+    array_shift($args); // enlever $arg
+    array_shift($args); // enlever $filtre
+    array_unshift($args, $arg); // remettre $arg
+    return call_user_func_array($f, $args);
 }

ecrire/public/styliser_par_z.php

Indentation +319 added lines, -319 removed lines

@@ -19,7 +19,7 @@ 
  * @package SPIP\Core\Public\Styliser
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -29,193 +29,193 @@ 
  * @return array Données modifiées du pipeline
  */
 function public_styliser_par_z_dist($flux) {
-	static $prefix_path = null;
-	static $prefix_length;
-	static $z_blocs;
-	static $apl_constant;
-	static $page;
-	static $disponible = [];
-	static $echafauder;
-	static $prepend = '';
-
-	if (!isset($prefix_path)) {
-		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive()) {
-			$prefix_path = 'prive/squelettes/';
-			$prefix_length = strlen($prefix_path);
-			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
-			$page = 'exec';
-			$echafauder = charger_fonction('echafauder', 'prive', true);
-			define('_ZCORE_EXCLURE_PATH', '');
-		} else {
-			$prefix_path = '';
-			$prefix_length = 0;
-			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
-			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder', 'public', true);
-			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
-				_DIR_PLUGIN_DIST,
-				'/'
-			) : ''));
-		}
-		$prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
-	}
-	$z_contenu = reset($z_blocs); // contenu par defaut
-
-	$fond = $flux['args']['fond'];
-
-	if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
-		$fond = substr($fond, $prefix_length);
-		$squelette = $flux['data'];
-		$ext = $flux['args']['ext'];
-		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
-		if (
-			defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			and $dir = explode('/', $fond)
-			and count($dir) == 2 // pas un sous repertoire
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
-			and defined($apl_constant)
-			and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
-			and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
-		) {
-			$flux['data'] = $pipe;
-
-			return $flux;
-		}
-
-		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette and !z_fond_valide($squelette)) {
-			$squelette = '';
-			$echafauder = '';
-		}
-		if ($prepend) {
-			$squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
-			if ($squelette) {
-				$flux['data'] = $squelette;
-			}
-		}
-
-		// gerer les squelettes non trouves
-		// -> router vers les /dist.html
-		// ou scaffolding ou page automatique les contenus
-		if (!$squelette) {
-			// si on est sur un ?page=XX non trouve
-			if (
-				(isset($flux['args']['contexte'][$page])
-					and $flux['args']['contexte'][$page] == $fond)
-				or (isset($flux['args']['contexte']['type-page'])
-					and $flux['args']['contexte']['type-page'] == $fond)
-				or ($fond == 'sommaire'
-					and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
-			) {
-				// si on est sur un ?page=XX non trouve
-				// se brancher sur contenu/xx si il existe
-				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond])) {
-					$disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
-				}
-
-				if ($disponible[$fond]) {
-					$flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
-				}
-			}
-
-			// echafaudage :
-			// si c'est un fond de contenu d'un objet en base
-			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
-				$type = substr($fond, strlen($z_contenu) + 1);
-				if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-					$type = $flux['args']['contexte'][$page];
-				}
-				if (!isset($disponible[$type])) {
-					$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-				}
-				if (is_string($disponible[$type])) {
-					$flux['data'] = $disponible[$type];
-				} elseif (
-					$echafauder
-					and include_spip('inc/autoriser')
-					and isset($GLOBALS['visiteur_session']['statut']) // performance
-					and autoriser('echafauder', $type)
-					and $is = $disponible[$type]
-					and is_array($is)
-				) {
-					$flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
-				} else {
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible(
-						$prefix_path . $prepend,
-						$z_contenu,
-						'404',
-						$ext,
-						$echafauder
-					));
-				}
-			}
-
-			// sinon, si on demande un fond non trouve dans un des autres blocs
-			// et si il y a bien un contenu correspondant ou echafaudable
-			// se rabbatre sur le dist.html du bloc concerne
-			else {
-				if (
-					$dir = explode('/', $fond)
-					and $dir = reset($dir)
-					and $dir !== $z_contenu
-					and in_array($dir, $z_blocs)
-				) {
-					$type = substr($fond, strlen("$dir/"));
-					if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-						$type = $flux['args']['contexte'][$page];
-					}
-					if ($type !== 'page' and !isset($disponible[$type])) {
-						$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-					}
-					if ($type == 'page' or $disponible[$type]) {
-						$flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
-					}
-				}
-			}
-			$squelette = $flux['data'];
-		}
-		// layout specifiques par type et compositions :
-		// body-article.html
-		// body-sommaire.html
-		// pour des raisons de perfo, les declinaisons doivent etre dans le
-		// meme dossier que body.html
-		if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
-			if (
-				isset($flux['args']['contexte']['type-page'])
-				and (
-					(isset($flux['args']['contexte']['composition'])
-						and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
-					or
-					file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
-				)
-			) {
-				$flux['data'] = $f;
-			}
-		} elseif (
-			$fond == 'structure'
-			and z_sanitize_var_zajax()
-			and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		} // chercher le fond correspondant a la composition
-		elseif (
-			isset($flux['args']['contexte']['composition'])
-			and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
-			and $dir = substr($fond, $prefix_length)
-			and $dir = explode('/', $dir)
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs)
-			and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		}
-	}
-
-	return $flux;
+    static $prefix_path = null;
+    static $prefix_length;
+    static $z_blocs;
+    static $apl_constant;
+    static $page;
+    static $disponible = [];
+    static $echafauder;
+    static $prepend = '';
+
+    if (!isset($prefix_path)) {
+        $z_blocs = z_blocs(test_espace_prive());
+        if (test_espace_prive()) {
+            $prefix_path = 'prive/squelettes/';
+            $prefix_length = strlen($prefix_path);
+            $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
+            $page = 'exec';
+            $echafauder = charger_fonction('echafauder', 'prive', true);
+            define('_ZCORE_EXCLURE_PATH', '');
+        } else {
+            $prefix_path = '';
+            $prefix_length = 0;
+            $apl_constant = '_Z_AJAX_PARALLEL_LOAD';
+            $page = _SPIP_PAGE;
+            $echafauder = charger_fonction('echafauder', 'public', true);
+            define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
+                _DIR_PLUGIN_DIST,
+                '/'
+            ) : ''));
+        }
+        $prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
+    }
+    $z_contenu = reset($z_blocs); // contenu par defaut
+
+    $fond = $flux['args']['fond'];
+
+    if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
+        $fond = substr($fond, $prefix_length);
+        $squelette = $flux['data'];
+        $ext = $flux['args']['ext'];
+        // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
+        if (
+            defined('_Z_AJAX_PARALLEL_LOAD_OK')
+            and $dir = explode('/', $fond)
+            and count($dir) == 2 // pas un sous repertoire
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
+            and defined($apl_constant)
+            and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
+            and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
+        ) {
+            $flux['data'] = $pipe;
+
+            return $flux;
+        }
+
+        // surcharger aussi les squelettes venant de squelettes-dist/
+        if ($squelette and !z_fond_valide($squelette)) {
+            $squelette = '';
+            $echafauder = '';
+        }
+        if ($prepend) {
+            $squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
+            if ($squelette) {
+                $flux['data'] = $squelette;
+            }
+        }
+
+        // gerer les squelettes non trouves
+        // -> router vers les /dist.html
+        // ou scaffolding ou page automatique les contenus
+        if (!$squelette) {
+            // si on est sur un ?page=XX non trouve
+            if (
+                (isset($flux['args']['contexte'][$page])
+                    and $flux['args']['contexte'][$page] == $fond)
+                or (isset($flux['args']['contexte']['type-page'])
+                    and $flux['args']['contexte']['type-page'] == $fond)
+                or ($fond == 'sommaire'
+                    and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
+            ) {
+                // si on est sur un ?page=XX non trouve
+                // se brancher sur contenu/xx si il existe
+                // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
+                if (!isset($disponible[$fond])) {
+                    $disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
+                }
+
+                if ($disponible[$fond]) {
+                    $flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
+                }
+            }
+
+            // echafaudage :
+            // si c'est un fond de contenu d'un objet en base
+            // generer un fond automatique a la volee pour les webmestres
+            elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
+                $type = substr($fond, strlen($z_contenu) + 1);
+                if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                    $type = $flux['args']['contexte'][$page];
+                }
+                if (!isset($disponible[$type])) {
+                    $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                }
+                if (is_string($disponible[$type])) {
+                    $flux['data'] = $disponible[$type];
+                } elseif (
+                    $echafauder
+                    and include_spip('inc/autoriser')
+                    and isset($GLOBALS['visiteur_session']['statut']) // performance
+                    and autoriser('echafauder', $type)
+                    and $is = $disponible[$type]
+                    and is_array($is)
+                ) {
+                    $flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
+                } else {
+                    $flux['data'] = ($disponible['404'] = z_contenu_disponible(
+                        $prefix_path . $prepend,
+                        $z_contenu,
+                        '404',
+                        $ext,
+                        $echafauder
+                    ));
+                }
+            }
+
+            // sinon, si on demande un fond non trouve dans un des autres blocs
+            // et si il y a bien un contenu correspondant ou echafaudable
+            // se rabbatre sur le dist.html du bloc concerne
+            else {
+                if (
+                    $dir = explode('/', $fond)
+                    and $dir = reset($dir)
+                    and $dir !== $z_contenu
+                    and in_array($dir, $z_blocs)
+                ) {
+                    $type = substr($fond, strlen("$dir/"));
+                    if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                        $type = $flux['args']['contexte'][$page];
+                    }
+                    if ($type !== 'page' and !isset($disponible[$type])) {
+                        $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                    }
+                    if ($type == 'page' or $disponible[$type]) {
+                        $flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
+                    }
+                }
+            }
+            $squelette = $flux['data'];
+        }
+        // layout specifiques par type et compositions :
+        // body-article.html
+        // body-sommaire.html
+        // pour des raisons de perfo, les declinaisons doivent etre dans le
+        // meme dossier que body.html
+        if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
+            if (
+                isset($flux['args']['contexte']['type-page'])
+                and (
+                    (isset($flux['args']['contexte']['composition'])
+                        and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
+                    or
+                    file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
+                )
+            ) {
+                $flux['data'] = $f;
+            }
+        } elseif (
+            $fond == 'structure'
+            and z_sanitize_var_zajax()
+            and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        } // chercher le fond correspondant a la composition
+        elseif (
+            isset($flux['args']['contexte']['composition'])
+            and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
+            and $dir = substr($fond, $prefix_length)
+            and $dir = explode('/', $dir)
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs)
+            and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -225,18 +225,18 @@ 
  * @return array
  */
 function z_blocs($espace_prive = false) {
-	if ($espace_prive) {
-		return ($GLOBALS['z_blocs_ecrire'] ?? [
-			'contenu',
-			'navigation',
-			'extra',
-			'head',
-			'hierarchie',
-			'top'
-		]);
-	}
-
-	return ($GLOBALS['z_blocs'] ?? ['contenu']);
+    if ($espace_prive) {
+        return ($GLOBALS['z_blocs_ecrire'] ?? [
+            'contenu',
+            'navigation',
+            'extra',
+            'head',
+            'hierarchie',
+            'top'
+        ]);
+    }
+
+    return ($GLOBALS['z_blocs'] ?? ['contenu']);
 }
 
 /**
@@ -251,11 +251,11 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path, $z_contenu, $type, $ext, $echafauder = true) {
-	if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
-		return $d;
-	}
+    if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
+        return $d;
+    }
 
-	return $echafauder ? z_echafaudable($type) : false;
+    return $echafauder ? z_echafaudable($type) : false;
 }
 
 /**
@@ -269,14 +269,14 @@ 
  *   `true` si on peut l'utiliser, `false` sinon.
  **/
 function z_fond_valide($squelette) {
-	if (
-		!_ZCORE_EXCLURE_PATH
-		or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
-	) {
-		return true;
-	}
-
-	return false;
+    if (
+        !_ZCORE_EXCLURE_PATH
+        or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
+    ) {
+        return true;
+    }
+
+    return false;
 }
 
 /**
@@ -294,14 +294,14 @@ 
  * @return string
  */
 function z_trouver_bloc($prefix_path, $bloc, $fond, $ext) {
-	if (
-		(defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
-		or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
-	) {
-		return substr($f, 0, -strlen(".$ext"));
-	}
-
-	return '';
+    if (
+        (defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
+        or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
+    ) {
+        return substr($f, 0, -strlen(".$ext"));
+    }
+
+    return '';
 }
 
 /**
@@ -313,52 +313,52 @@ 
  * @return bool
  */
 function z_echafaudable($type) {
-	static $pages = null;
-	static $echafaudable = [];
-	if (isset($echafaudable[$type])) {
-		return $echafaudable[$type];
-	}
-	if (preg_match(',[^\w],', $type)) {
-		return $echafaudable[$type] = false;
-	}
-
-	if (test_espace_prive()) {
-		if (!function_exists('trouver_objet_exec')) {
-			include_spip('inc/pipelines_ecrire');
-		}
-		if ($e = trouver_objet_exec($type)) {
-			return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
-		} else {
-			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (
-				($t = objet_type($type, false)) !== $type
-				and $e = trouver_objet_exec($t)
-			) {
-				return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
-			}
-		}
-	} else {
-		if (is_null($pages)) {
-			$pages = [];
-			$liste = lister_tables_objets_sql();
-			foreach ($liste as $t => $d) {
-				if ($d['page']) {
-					$pages[$d['page']] = [$d['table_objet'], $t];
-				}
-			}
-		}
-		if (!isset($pages[$type])) {
-			return $echafaudable[$type] = false;
-		}
-		if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$pages[$type][] = $trouver_table(reset($pages[$type]));
-		}
-
-		return $echafaudable[$type] = $pages[$type];
-	}
-
-	return $echafaudable[$type] = false;
+    static $pages = null;
+    static $echafaudable = [];
+    if (isset($echafaudable[$type])) {
+        return $echafaudable[$type];
+    }
+    if (preg_match(',[^\w],', $type)) {
+        return $echafaudable[$type] = false;
+    }
+
+    if (test_espace_prive()) {
+        if (!function_exists('trouver_objet_exec')) {
+            include_spip('inc/pipelines_ecrire');
+        }
+        if ($e = trouver_objet_exec($type)) {
+            return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
+        } else {
+            // peut etre c'est un exec=types qui liste tous les objets "type"
+            if (
+                ($t = objet_type($type, false)) !== $type
+                and $e = trouver_objet_exec($t)
+            ) {
+                return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
+            }
+        }
+    } else {
+        if (is_null($pages)) {
+            $pages = [];
+            $liste = lister_tables_objets_sql();
+            foreach ($liste as $t => $d) {
+                if ($d['page']) {
+                    $pages[$d['page']] = [$d['table_objet'], $t];
+                }
+            }
+        }
+        if (!isset($pages[$type])) {
+            return $echafaudable[$type] = false;
+        }
+        if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $pages[$type][] = $trouver_table(reset($pages[$type]));
+        }
+
+        return $echafaudable[$type] = $pages[$type];
+    }
+
+    return $echafaudable[$type] = false;
 }
 
 
@@ -375,46 +375,46 @@ 
  * @return string
  */
 function prive_echafauder_dist($exec, $table, $table_sql, $desc_exec, $ext) {
-	$scaffold = '';
-
-	// page objet ou objet_edit
-	if (is_array($desc_exec)) {
-		$type = $desc_exec['type'];
-		$primary = $desc_exec['id_table_objet'];
-
-		if ($desc_exec['edition'] === false) {
-			$fond = 'objet';
-		} else {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique'])) {
-				$fond = 'objet_edit';
-			} else {
-				$fond = 'objet_edit.sans_rubrique';
-			}
-		}
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
-	} // page objets
-	elseif ($type = $desc_exec and strpos($type, '/') === false) {
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
-	}
-	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
-	// et objet et tire de $table
-	elseif ($fond = $desc_exec) {
-		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
-	}
-
-	$base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
-	$base_dir = sous_repertoire($base_dir, $dir, false);
-	$f = $base_dir . "$exec";
-	ecrire_fichier("$f.$ext", $scaffold);
-
-	return $f;
+    $scaffold = '';
+
+    // page objet ou objet_edit
+    if (is_array($desc_exec)) {
+        $type = $desc_exec['type'];
+        $primary = $desc_exec['id_table_objet'];
+
+        if ($desc_exec['edition'] === false) {
+            $fond = 'objet';
+        } else {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table_sql);
+            if (isset($desc['field']['id_rubrique'])) {
+                $fond = 'objet_edit';
+            } else {
+                $fond = 'objet_edit.sans_rubrique';
+            }
+        }
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
+    } // page objets
+    elseif ($type = $desc_exec and strpos($type, '/') === false) {
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
+    }
+    // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
+    // et objet et tire de $table
+    elseif ($fond = $desc_exec) {
+        $dir = md5(dirname($fond));
+        $scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
+    }
+
+    $base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
+    $base_dir = sous_repertoire($base_dir, $dir, false);
+    $f = $base_dir . "$exec";
+    ecrire_fichier("$f.$ext", $scaffold);
+
+    return $f;
 }
 
 /**
@@ -423,17 +423,17 @@ 
  * @return bool|string
  */
 function z_sanitize_var_zajax() {
-	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) {
-		return false;
-	}
-	if (
-		!$z_blocs = z_blocs(test_espace_prive())
-		or !in_array($z_ajax, $z_blocs)
-	) {
-		set_request('var_zajax'); // enlever cette demande incongrue
-		$z_ajax = false;
-	}
-
-	return $z_ajax;
+    $z_ajax = _request('var_zajax');
+    if (!$z_ajax) {
+        return false;
+    }
+    if (
+        !$z_blocs = z_blocs(test_espace_prive())
+        or !in_array($z_ajax, $z_blocs)
+    ) {
+        set_request('var_zajax'); // enlever cette demande incongrue
+        $z_ajax = false;
+    }
+
+    return $z_ajax;
 }

ecrire/public/normaliser.php

Indentation +159 added lines, -159 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Les fonctions de ce fichier sont appelees en certains points
@@ -25,193 +25,193 @@ 
 // -> https://www.spip.net/fr_article901.html
 
 function phraser_vieux_logos(&$p) {
-	if ($p->param[0][0]) {
-		$args = [''];
-	} else {
-		$args = array_shift($p->param);
-	}
-
-	foreach ($p->param as $couple) {
-		$nom = trim($couple[0]);
-		if ($nom == '') {
-			array_shift($p->param);
-			break;
-		}
-		$r = phraser_logo_faux_filtres($nom);
-		if ($r === 0) {
-			$c = new Texte();
-			$c->texte = $nom;
-			$args[] = [$c];
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 2) {
-			$p->etoile = '**';
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif ($r === 1) {
-			array_shift($p->param);
-			$p->etoile = '*';
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
-			$champ = new Champ();
-			$champ->nom_boucle = $m[2];
-			$champ->nom_champ = $m[3];
-			$champ->etoile = $m[5];
-			$champ = [$champ];
-			if ($m[6]) {
-				$r = new Texte();
-				$r->texte = $m[6];
-				$champ[] = $r;
-			}
-			$args[] = $champ;
-			array_shift($p->param);
-			spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
-		} // le cas else est la seule incompatibilite
-	}
-	array_unshift($p->param, $args);
+    if ($p->param[0][0]) {
+        $args = [''];
+    } else {
+        $args = array_shift($p->param);
+    }
+
+    foreach ($p->param as $couple) {
+        $nom = trim($couple[0]);
+        if ($nom == '') {
+            array_shift($p->param);
+            break;
+        }
+        $r = phraser_logo_faux_filtres($nom);
+        if ($r === 0) {
+            $c = new Texte();
+            $c->texte = $nom;
+            $args[] = [$c];
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 2) {
+            $p->etoile = '**';
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif ($r === 1) {
+            array_shift($p->param);
+            $p->etoile = '*';
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } elseif (preg_match('/^' . NOM_DE_CHAMP . '(.*)$/sS', $nom, $m)) {
+            $champ = new Champ();
+            $champ->nom_boucle = $m[2];
+            $champ->nom_champ = $m[3];
+            $champ->etoile = $m[5];
+            $champ = [$champ];
+            if ($m[6]) {
+                $r = new Texte();
+                $r->texte = $m[6];
+                $champ[] = $r;
+            }
+            $args[] = $champ;
+            array_shift($p->param);
+            spip_log("filtre de logo obsolete $nom", 'vieilles_defs');
+        } // le cas else est la seule incompatibilite
+    }
+    array_unshift($p->param, $args);
 }
 
 
 function phraser_logo_faux_filtres($nom) {
-	switch ($nom) {
-		case 'top':
-		case 'left':
-		case 'right':
-		case 'center':
-		case 'bottom':
-			return 0;
-		case 'lien':
-			return 1;
-		case 'fichier':
-			return 2;
-		default:
-			return $nom;
-	}
+    switch ($nom) {
+        case 'top':
+        case 'left':
+        case 'right':
+        case 'center':
+        case 'bottom':
+            return 0;
+        case 'lien':
+            return 1;
+        case 'fichier':
+            return 2;
+        default:
+            return $nom;
+    }
 }
 
 
 // La balise embed_document est a present le modele emb
 
 function phraser_vieux_emb(&$p) {
-	if (!is_array($p->param)) {
-		$p->param = [];
-	}
-
-	// Produire le premier argument {emb}
-	$texte = new Texte();
-	$texte->texte = 'emb';
-	$param = ['', [$texte]];
-
-	// Transformer les filtres en arguments
-	for ($i = 0; $i < (is_countable($p->param) ? count($p->param) : 0); $i++) {
-		if ($p->param[$i][0]) {
-			if (!strstr($p->param[$i][0], '=')) {
-				break;
-			}# on a rencontre un vrai filtre, c'est fini
-			$texte = new Texte();
-			$texte->texte = $p->param[$i][0];
-			$param[] = [$texte];
-		}
-		array_shift($p->param);
-	}
-	array_unshift($p->param, $param);
-	spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
-	$p->nom_champ = 'MODELE';
+    if (!is_array($p->param)) {
+        $p->param = [];
+    }
+
+    // Produire le premier argument {emb}
+    $texte = new Texte();
+    $texte->texte = 'emb';
+    $param = ['', [$texte]];
+
+    // Transformer les filtres en arguments
+    for ($i = 0; $i < (is_countable($p->param) ? count($p->param) : 0); $i++) {
+        if ($p->param[$i][0]) {
+            if (!strstr($p->param[$i][0], '=')) {
+                break;
+            }# on a rencontre un vrai filtre, c'est fini
+            $texte = new Texte();
+            $texte->texte = $p->param[$i][0];
+            $param[] = [$texte];
+        }
+        array_shift($p->param);
+    }
+    array_unshift($p->param, $param);
+    spip_log('balise EMBED_DOCUMENT obsolete', 'vieilles_defs');
+    $p->nom_champ = 'MODELE';
 }
 
 // Vieux formulaire de recherch
 
 function phraser_vieux_recherche($p) {
-	if ($p->param[0][0]) {
-		$c = new Texte();
-		$c->texte = $p->param[0][0];
-		$p->param[0][1] = [$c];
-		$p->param[0][0] = '';
-		$p->fonctions = [];
-		spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
-	}
+    if ($p->param[0][0]) {
+        $c = new Texte();
+        $c->texte = $p->param[0][0];
+        $p->param[0][1] = [$c];
+        $p->param[0][0] = '';
+        $p->fonctions = [];
+        spip_log('FORMULAIRE_RECHERCHE avec filtre ' . $c->texte, 'vieilles_defs');
+    }
 }
 
 // Gerer la notation [(#EXPOSER|on,off)]
 function phraser_vieux_exposer($p) {
-	if ($a = $p->fonctions) {
-		preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
-		$args = [];
-		if ($regs[1]) {
-			$a = new Texte();
-			$a->texte = $regs[1];
-			$args = ['', [$a]];
-			if ($regs[3]) {
-				$a = new Texte();
-				$a->texte = $regs[3];
-				$args[] = [$a];
-			}
-		}
-		$p->param[0] = $args;
-		$p->fonctions = [];
-		$p->nom_champ = 'EXPOSE';
-	}
+    if ($a = $p->fonctions) {
+        preg_match('#([^,]*)(,(.*))?#', $a[0][0], $regs);
+        $args = [];
+        if ($regs[1]) {
+            $a = new Texte();
+            $a->texte = $regs[1];
+            $args = ['', [$a]];
+            if ($regs[3]) {
+                $a = new Texte();
+                $a->texte = $regs[3];
+                $args[] = [$a];
+            }
+        }
+        $p->param[0] = $args;
+        $p->fonctions = [];
+        $p->nom_champ = 'EXPOSE';
+    }
 }
 
 function phraser_vieux_modele($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function phraser_vieux_inclu($p) {
- normaliser_args_inclumodel($p);
+    normaliser_args_inclumodel($p);
 }
 
 function normaliser_args_inclumodel($p) {
-	$params = $p->param;
-	if (!$params) {
-		return;
-	}
-	$args = $params[0];
-	if ($args[0]) {
-		return;
-	} // filtre immediat
-	array_shift($p->param);
-	foreach ($p->param as $l) {
-		if (!array_shift($l)) {
-			$args = array_merge($args, $l);
-			array_shift($p->param);
-		} else {
-			break;
-		} // filtre
-	}
-	array_unshift($p->param, $args);
+    $params = $p->param;
+    if (!$params) {
+        return;
+    }
+    $args = $params[0];
+    if ($args[0]) {
+        return;
+    } // filtre immediat
+    array_shift($p->param);
+    foreach ($p->param as $l) {
+        if (!array_shift($l)) {
+            $args = array_merge($args, $l);
+            array_shift($p->param);
+        } else {
+            break;
+        } // filtre
+    }
+    array_unshift($p->param, $args);
 }
 
 function normaliser_inclure($champ) {
-	normaliser_args_inclumodel($champ);
-	$l = $champ->param[0];
-	if (is_array($l) and !$l[0]) {
-		foreach ($l as $k => $p) {
-			if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
-				$p[0]->texte = trim($p[0]->texte);
-			}
-		}
-		foreach ($l as $k => $p) {
-			if (
-				!$p or $p[0]->type != 'texte' or
-				!preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
-			) {
-				continue;
-			}
-
-			if ($r[1]) {
-				$p[0]->texte = $r[1];
-			} else {
-				unset($p[0]);
-			}
-			$champ->texte = $p;
-			unset($champ->param[0][$k]);
-			if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
-				array_shift($champ->param);
-			}
-
-			return;
-		}
-	}
-	spip_log('inclure sans fond ni fichier');
+    normaliser_args_inclumodel($champ);
+    $l = $champ->param[0];
+    if (is_array($l) and !$l[0]) {
+        foreach ($l as $k => $p) {
+            if ($p and $p[0]->type == 'texte' and !strpos($p[0]->texte, '=')) {
+                $p[0]->texte = trim($p[0]->texte);
+            }
+        }
+        foreach ($l as $k => $p) {
+            if (
+                !$p or $p[0]->type != 'texte' or
+                !preg_match('/^fond\s*=\s*(.*)$/', $p[0]->texte, $r)
+            ) {
+                continue;
+            }
+
+            if ($r[1]) {
+                $p[0]->texte = $r[1];
+            } else {
+                unset($p[0]);
+            }
+            $champ->texte = $p;
+            unset($champ->param[0][$k]);
+            if ((is_countable($champ->param[0]) ? count($champ->param[0]) : 0) == 1) {
+                array_shift($champ->param);
+            }
+
+            return;
+        }
+    }
+    spip_log('inclure sans fond ni fichier');
 }

ecrire/inc_version.php

Indentation +213 added lines, -213 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -36,15 +36,15 @@ 
 define('_PHP_MIN', '7.4.0');
 
 if (!defined('_DIR_RESTREINT_ABS')) {
-	/** le nom du repertoire ecrire/ */
-	define('_DIR_RESTREINT_ABS', 'ecrire/');
+    /** le nom du repertoire ecrire/ */
+    define('_DIR_RESTREINT_ABS', 'ecrire/');
 }
 
 /** Chemin relatif pour aller dans ecrire
  *  vide si on est dans ecrire, 'ecrire/' sinon */
 define(
-	'_DIR_RESTREINT',
-	(!is_dir(_DIR_RESTREINT_ABS) ? '' : _DIR_RESTREINT_ABS)
+    '_DIR_RESTREINT',
+    (!is_dir(_DIR_RESTREINT_ABS) ? '' : _DIR_RESTREINT_ABS)
 );
 
 /** Chemin relatif pour aller à la racine */
@@ -59,8 +59,8 @@ 
 
 // Icones
 if (!defined('_NOM_IMG_PACK')) {
-	/** Nom du dossier images */
-	define('_NOM_IMG_PACK', 'images/');
+    /** Nom du dossier images */
+    define('_NOM_IMG_PACK', 'images/');
 }
 /** le chemin http (relatif) vers les images standard */
 define('_DIR_IMG_PACK', (_DIR_RACINE . 'prive/' . _NOM_IMG_PACK));
@@ -69,8 +69,8 @@ 
 define('_ROOT_IMG_PACK', dirname(__DIR__) . '/prive/' . _NOM_IMG_PACK);
 
 if (!defined('_JAVASCRIPT')) {
-	/** Nom du repertoire des  bibliotheques JavaScript */
-	define('_JAVASCRIPT', 'javascript/');
+    /** Nom du repertoire des  bibliotheques JavaScript */
+    define('_JAVASCRIPT', 'javascript/');
 } // utilisable avec #CHEMIN et find_in_path
 /** le nom du repertoire des  bibliotheques JavaScript du prive */
 define('_DIR_JAVASCRIPT', (_DIR_RACINE . 'prive/' . _JAVASCRIPT));
@@ -80,47 +80,47 @@ 
 # mais on peut les mettre ailleurs et changer completement les noms
 
 if (!defined('_NOM_TEMPORAIRES_INACCESSIBLES')) {
-	/** Nom du repertoire des fichiers Temporaires Inaccessibles par http:// */
-	define('_NOM_TEMPORAIRES_INACCESSIBLES', 'tmp/');
+    /** Nom du repertoire des fichiers Temporaires Inaccessibles par http:// */
+    define('_NOM_TEMPORAIRES_INACCESSIBLES', 'tmp/');
 }
 if (!defined('_NOM_TEMPORAIRES_ACCESSIBLES')) {
-	/** Nom du repertoire des fichiers Temporaires Accessibles par http:// */
-	define('_NOM_TEMPORAIRES_ACCESSIBLES', 'local/');
+    /** Nom du repertoire des fichiers Temporaires Accessibles par http:// */
+    define('_NOM_TEMPORAIRES_ACCESSIBLES', 'local/');
 }
 if (!defined('_NOM_PERMANENTS_INACCESSIBLES')) {
-	/** Nom du repertoire des fichiers Permanents Inaccessibles par http:// */
-	define('_NOM_PERMANENTS_INACCESSIBLES', 'config/');
+    /** Nom du repertoire des fichiers Permanents Inaccessibles par http:// */
+    define('_NOM_PERMANENTS_INACCESSIBLES', 'config/');
 }
 if (!defined('_NOM_PERMANENTS_ACCESSIBLES')) {
-	/** Nom du repertoire des fichiers Permanents Accessibles par http:// */
-	define('_NOM_PERMANENTS_ACCESSIBLES', 'IMG/');
+    /** Nom du repertoire des fichiers Permanents Accessibles par http:// */
+    define('_NOM_PERMANENTS_ACCESSIBLES', 'IMG/');
 }
 
 
 /** Le nom du fichier de personnalisation */
 if (!defined('_NOM_CONFIG')) {
-	define('_NOM_CONFIG', 'mes_options');
+    define('_NOM_CONFIG', 'mes_options');
 }
 
 // Son emplacement absolu si on le trouve
 if (
-	@file_exists($f = _ROOT_RACINE . _NOM_PERMANENTS_INACCESSIBLES . _NOM_CONFIG . '.php')
-	or (@file_exists($f = _ROOT_RESTREINT . _NOM_CONFIG . '.php'))
+    @file_exists($f = _ROOT_RACINE . _NOM_PERMANENTS_INACCESSIBLES . _NOM_CONFIG . '.php')
+    or (@file_exists($f = _ROOT_RESTREINT . _NOM_CONFIG . '.php'))
 ) {
-	/** Emplacement absolu du fichier d'option */
-	define('_FILE_OPTIONS', $f);
+    /** Emplacement absolu du fichier d'option */
+    define('_FILE_OPTIONS', $f);
 } else {
-	define('_FILE_OPTIONS', '');
+    define('_FILE_OPTIONS', '');
 }
 
 if (!defined('MODULES_IDIOMES')) {
-	/**
-	 * Modules par défaut pour la traduction.
-	 *
-	 * Constante utilisée par le compilateur et le décompilateur
-	 * sa valeur etant traitée par inc_traduire_dist
-	 */
-	define('MODULES_IDIOMES', 'public|spip|ecrire');
+    /**
+     * Modules par défaut pour la traduction.
+     *
+     * Constante utilisée par le compilateur et le décompilateur
+     * sa valeur etant traitée par inc_traduire_dist
+     */
+    define('MODULES_IDIOMES', 'public|spip|ecrire');
 }
 
 // *** Fin des define *** //
@@ -128,10 +128,10 @@ 
 
 // Inclure l'ecran de securite
 if (
-	!defined('_ECRAN_SECURITE')
-	and @file_exists($f = _ROOT_RACINE . _NOM_PERMANENTS_INACCESSIBLES . 'ecran_securite.php')
+    !defined('_ECRAN_SECURITE')
+    and @file_exists($f = _ROOT_RACINE . _NOM_PERMANENTS_INACCESSIBLES . 'ecran_securite.php')
 ) {
-	include $f;
+    include $f;
 }
 
 
@@ -139,30 +139,30 @@ 
  * Détecteur de robot d'indexation
  */
 if (!defined('_IS_BOT')) {
-	define(
-		'_IS_BOT',
-		isset($_SERVER['HTTP_USER_AGENT'])
-		and preg_match(
-			// mots generiques
-			',bot|slurp|crawler|spider|webvac|yandex|'
-			// MSIE 6.0 est un botnet 99,9% du temps, on traite donc ce USER_AGENT comme un bot
-			. 'MSIE 6\.0|'
-			// UA plus cibles
-			. '80legs|accoona|AltaVista|ASPSeek|Baidu|Charlotte|EC2LinkFinder|eStyle|facebook|flipboard|hootsuite|FunWebProducts|Google|Genieo|INA dlweb|InfegyAtlas|Java VM|LiteFinder|Lycos|MetaURI|Moreover|Rambler|Scooter|ScrubbyBloglines|Yahoo|Yeti'
-			. ',i',
-			(string)$_SERVER['HTTP_USER_AGENT']
-		)
-	);
+    define(
+        '_IS_BOT',
+        isset($_SERVER['HTTP_USER_AGENT'])
+        and preg_match(
+            // mots generiques
+            ',bot|slurp|crawler|spider|webvac|yandex|'
+            // MSIE 6.0 est un botnet 99,9% du temps, on traite donc ce USER_AGENT comme un bot
+            . 'MSIE 6\.0|'
+            // UA plus cibles
+            . '80legs|accoona|AltaVista|ASPSeek|Baidu|Charlotte|EC2LinkFinder|eStyle|facebook|flipboard|hootsuite|FunWebProducts|Google|Genieo|INA dlweb|InfegyAtlas|Java VM|LiteFinder|Lycos|MetaURI|Moreover|Rambler|Scooter|ScrubbyBloglines|Yahoo|Yeti'
+            . ',i',
+            (string)$_SERVER['HTTP_USER_AGENT']
+        )
+    );
 }
 
 if (!defined('_IS_CLI')) {
-	define(
-		'_IS_CLI',
-		!isset($_SERVER['HTTP_HOST'])
-		and !strlen($_SERVER['DOCUMENT_ROOT'])
-		and !empty($_SERVER['argv'])
-		and empty($_SERVER['REQUEST_METHOD'])
-	);
+    define(
+        '_IS_CLI',
+        !isset($_SERVER['HTTP_HOST'])
+        and !strlen($_SERVER['DOCUMENT_ROOT'])
+        and !empty($_SERVER['argv'])
+        and empty($_SERVER['REQUEST_METHOD'])
+    );
 }
 
 // *** Parametrage par defaut de SPIP ***
@@ -174,61 +174,61 @@ 
 // Ne pas les rendre indefinies.
 
 global
-	$nombre_de_logs,
-	$taille_des_logs,
-	$table_prefix,
-	$cookie_prefix,
-	$dossier_squelettes,
-	$filtrer_javascript,
-	$type_urls,
-	$debut_date_publication,
-	$ip,
-	$mysql_rappel_connexion,
-	$mysql_rappel_nom_base,
-	$test_i18n,
-	$ignore_auth_http,
-	$ignore_remote_user,
-	$derniere_modif_invalide,
-	$home_server,
-	$help_server,
-	$url_glossaire_externe,
-	$tex_server,
-	$traiter_math,
-	$xhtml,
-	$xml_indent,
-	$source_vignettes,
-	$formats_logos,
-	$controler_dates_rss,
-	$spip_pipeline,
-	$spip_matrice,
-	$plugins,
-	$surcharges,
-	$exceptions_des_tables,
-	$tables_principales,
-	$table_des_tables,
-	$tables_auxiliaires,
-	$table_primary,
-	$table_date,
-	$table_titre,
-	$tables_jointures,
-	$liste_des_statuts,
-	$liste_des_etats,
-	$liste_des_authentifications,
-	$spip_version_branche,
-	$spip_version_code,
-	$spip_version_base,
-	$spip_sql_version,
-	$spip_version_affichee,
-	$visiteur_session,
-	$auteur_session,
-	$connect_statut,
-	$connect_toutes_rubriques,
-	$hash_recherche,
-	$hash_recherche_strict,
-	$ldap_present,
-	$meta,
-	$connect_id_rubrique,
-	$puce;
+    $nombre_de_logs,
+    $taille_des_logs,
+    $table_prefix,
+    $cookie_prefix,
+    $dossier_squelettes,
+    $filtrer_javascript,
+    $type_urls,
+    $debut_date_publication,
+    $ip,
+    $mysql_rappel_connexion,
+    $mysql_rappel_nom_base,
+    $test_i18n,
+    $ignore_auth_http,
+    $ignore_remote_user,
+    $derniere_modif_invalide,
+    $home_server,
+    $help_server,
+    $url_glossaire_externe,
+    $tex_server,
+    $traiter_math,
+    $xhtml,
+    $xml_indent,
+    $source_vignettes,
+    $formats_logos,
+    $controler_dates_rss,
+    $spip_pipeline,
+    $spip_matrice,
+    $plugins,
+    $surcharges,
+    $exceptions_des_tables,
+    $tables_principales,
+    $table_des_tables,
+    $tables_auxiliaires,
+    $table_primary,
+    $table_date,
+    $table_titre,
+    $tables_jointures,
+    $liste_des_statuts,
+    $liste_des_etats,
+    $liste_des_authentifications,
+    $spip_version_branche,
+    $spip_version_code,
+    $spip_version_base,
+    $spip_sql_version,
+    $spip_version_affichee,
+    $visiteur_session,
+    $auteur_session,
+    $connect_statut,
+    $connect_toutes_rubriques,
+    $hash_recherche,
+    $hash_recherche_strict,
+    $ldap_present,
+    $meta,
+    $connect_id_rubrique,
+    $puce;
 
 # comment on logge, defaut 4 tmp/spip.log de 100k, 0 ou 0 suppriment le log
 $nombre_de_logs = 4;
@@ -283,48 +283,48 @@ 
 // Prendre en compte les entetes HTTP_X_FORWARDED_XX
 //
 if (isset($_SERVER['HTTP_X_FORWARDED_PROTO']) and $_SERVER['HTTP_X_FORWARDED_PROTO'] === 'https') {
-	if (empty($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-		$_SERVER['HTTP_X_FORWARDED_HOST'] = $_SERVER['HTTP_HOST'];
-	}
-	if (empty($_SERVER['HTTP_X_FORWARDED_PORT'])) {
-		$_SERVER['HTTP_X_FORWARDED_PORT'] = 443;
-	}
+    if (empty($_SERVER['HTTP_X_FORWARDED_HOST'])) {
+        $_SERVER['HTTP_X_FORWARDED_HOST'] = $_SERVER['HTTP_HOST'];
+    }
+    if (empty($_SERVER['HTTP_X_FORWARDED_PORT'])) {
+        $_SERVER['HTTP_X_FORWARDED_PORT'] = 443;
+    }
 }
 if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-	if (isset($_SERVER['HTTP_X_FORWARDED_PORT']) and is_numeric($_SERVER['HTTP_X_FORWARDED_PORT'])) {
-		$_SERVER['SERVER_PORT'] = $_SERVER['HTTP_X_FORWARDED_PORT'];
-		if (isset($_SERVER['HTTP_X_FORWARDED_PROTO']) and $_SERVER['HTTP_X_FORWARDED_PROTO'] === 'https') {
-			$_SERVER['HTTPS'] = 'on';
-			if (isset($_SERVER['REQUEST_SCHEME'])) {
-				$_SERVER['REQUEST_SCHEME'] = 'https';
-			}
-		}
-	}
-	$host = $_SERVER['HTTP_X_FORWARDED_HOST'];
-	if (strpos($host, ',') !== false) {
-		$h = explode(',', $host);
-		$host = trim(reset($h));
-	}
-	// securite sur le contenu de l'entete
-	$host = strtr($host, "<>?\"\{\}\$'` \r\n", '____________');
-	$_SERVER['HTTP_HOST'] = $host;
+    if (isset($_SERVER['HTTP_X_FORWARDED_PORT']) and is_numeric($_SERVER['HTTP_X_FORWARDED_PORT'])) {
+        $_SERVER['SERVER_PORT'] = $_SERVER['HTTP_X_FORWARDED_PORT'];
+        if (isset($_SERVER['HTTP_X_FORWARDED_PROTO']) and $_SERVER['HTTP_X_FORWARDED_PROTO'] === 'https') {
+            $_SERVER['HTTPS'] = 'on';
+            if (isset($_SERVER['REQUEST_SCHEME'])) {
+                $_SERVER['REQUEST_SCHEME'] = 'https';
+            }
+        }
+    }
+    $host = $_SERVER['HTTP_X_FORWARDED_HOST'];
+    if (strpos($host, ',') !== false) {
+        $h = explode(',', $host);
+        $host = trim(reset($h));
+    }
+    // securite sur le contenu de l'entete
+    $host = strtr($host, "<>?\"\{\}\$'` \r\n", '____________');
+    $_SERVER['HTTP_HOST'] = $host;
 }
 //
 // On note le numero IP du client dans la variable $ip
 //
 if (isset($_SERVER['HTTP_X_FORWARDED_FOR'])) {
-	$ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
-	if (strpos($ip, ',') !== false) {
-		$ip = explode(',', $ip);
-		$ip = reset($ip);
-	}
-	// ecraser $_SERVER['REMOTE_ADDR'] si elle est en localhost
-	if (isset($_SERVER['REMOTE_ADDR']) and $_SERVER['REMOTE_ADDR'] === '127.0.0.1') {
-		$_SERVER['REMOTE_ADDR'] = $ip;
-	}
+    $ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
+    if (strpos($ip, ',') !== false) {
+        $ip = explode(',', $ip);
+        $ip = reset($ip);
+    }
+    // ecraser $_SERVER['REMOTE_ADDR'] si elle est en localhost
+    if (isset($_SERVER['REMOTE_ADDR']) and $_SERVER['REMOTE_ADDR'] === '127.0.0.1') {
+        $_SERVER['REMOTE_ADDR'] = $ip;
+    }
 }
 if (isset($_SERVER['REMOTE_ADDR'])) {
-	$ip = $_SERVER['REMOTE_ADDR'];
+    $ip = $_SERVER['REMOTE_ADDR'];
 }
 
 // Pour renforcer la privacy, decommentez la ligne ci-dessous (ou recopiez-la
@@ -409,24 +409,24 @@ 
 
 // Liste des statuts.
 $liste_des_statuts = [
-	'info_administrateurs' => '0minirezo',
-	'info_redacteurs' => '1comite',
-	'info_visiteurs' => '6forum',
-	'texte_statut_poubelle' => '5poubelle'
+    'info_administrateurs' => '0minirezo',
+    'info_redacteurs' => '1comite',
+    'info_visiteurs' => '6forum',
+    'texte_statut_poubelle' => '5poubelle'
 ];
 
 $liste_des_etats = [
-	'texte_statut_en_cours_redaction' => 'prepa',
-	'texte_statut_propose_evaluation' => 'prop',
-	'texte_statut_publie' => 'publie',
-	'texte_statut_poubelle' => 'poubelle',
-	'texte_statut_refuse' => 'refuse'
+    'texte_statut_en_cours_redaction' => 'prepa',
+    'texte_statut_propose_evaluation' => 'prop',
+    'texte_statut_publie' => 'publie',
+    'texte_statut_poubelle' => 'poubelle',
+    'texte_statut_refuse' => 'refuse'
 ];
 
 // liste des methodes d'authentifications
 $liste_des_authentifications = [
-	'spip' => 'spip',
-	'ldap' => 'ldap'
+    'spip' => 'spip',
+    'ldap' => 'ldap'
 ];
 
 // Experimental : pour supprimer systematiquement l'affichage des numeros
@@ -476,12 +476,12 @@ 
 // Definition personnelles eventuelles
 
 if (_FILE_OPTIONS) {
-	include_once _FILE_OPTIONS;
+    include_once _FILE_OPTIONS;
 }
 
 if (!defined('SPIP_ERREUR_REPORT')) {
-	/** Masquer les warning */
-	define('SPIP_ERREUR_REPORT', E_ALL ^ E_NOTICE ^ E_DEPRECATED);
+    /** Masquer les warning */
+    define('SPIP_ERREUR_REPORT', E_ALL ^ E_NOTICE ^ E_DEPRECATED);
 }
 error_reporting(SPIP_ERREUR_REPORT);
 
@@ -494,10 +494,10 @@ 
 // ===> on execute en neutralisant les messages d'erreur
 
 spip_initialisation_core(
-	(_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
-	(_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
-	(_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
-	(_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
+    (_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
+    (_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
+    (_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
+    (_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
 );
 
 
@@ -507,70 +507,70 @@ 
 // donc il faut avoir tout fini ici avant de charger les plugins
 
 if (@is_readable(_CACHE_PLUGINS_OPT) and @is_readable(_CACHE_PLUGINS_PATH)) {
-	// chargement optimise precompile
-	include_once(_CACHE_PLUGINS_OPT);
+    // chargement optimise precompile
+    include_once(_CACHE_PLUGINS_OPT);
 } else {
-	spip_initialisation_suite();
-	include_spip('inc/plugin');
-	// generer les fichiers php precompiles
-	// de chargement des plugins et des pipelines
-	actualise_plugins_actifs();
+    spip_initialisation_suite();
+    include_spip('inc/plugin');
+    // generer les fichiers php precompiles
+    // de chargement des plugins et des pipelines
+    actualise_plugins_actifs();
 }
 
 // Initialisations non critiques surchargeables par les plugins
 spip_initialisation_suite();
 
 if (!defined('_LOG_FILTRE_GRAVITE')) {
-	/** niveau maxi d'enregistrement des logs */
-	define('_LOG_FILTRE_GRAVITE', _LOG_INFO_IMPORTANTE);
+    /** niveau maxi d'enregistrement des logs */
+    define('_LOG_FILTRE_GRAVITE', _LOG_INFO_IMPORTANTE);
 }
 
 if (!defined('_OUTILS_DEVELOPPEURS')) {
-	/** Activer des outils pour développeurs ? */
-	define('_OUTILS_DEVELOPPEURS', false);
+    /** Activer des outils pour développeurs ? */
+    define('_OUTILS_DEVELOPPEURS', false);
 }
 
 // charger systematiquement inc/autoriser dans l'espace restreint
 if (test_espace_prive()) {
-	include_spip('inc/autoriser');
+    include_spip('inc/autoriser');
 }
 //
 // Installer Spip si pas installe... sauf si justement on est en train
 //
 if (
-	!(_FILE_CONNECT
-	or autoriser_sans_cookie(_request('exec'))
-	or _request('action') == 'cookie'
-	or _request('action') == 'converser'
-	or _request('action') == 'test_dirs')
+    !(_FILE_CONNECT
+    or autoriser_sans_cookie(_request('exec'))
+    or _request('action') == 'cookie'
+    or _request('action') == 'converser'
+    or _request('action') == 'test_dirs')
 ) {
-	// Si on peut installer, on lance illico
-	if (test_espace_prive()) {
-		include_spip('inc/headers');
-		redirige_url_ecrire('install');
-	} else {
-		// Si on est dans le site public, dire que qq s'en occupe
-		include_spip('inc/minipres');
-		utiliser_langue_visiteur();
-		echo minipres(_T('info_travaux_titre'), "<p style='text-align: center;'>" . _T('info_travaux_texte') . '</p>', ['status' => 503]);
-		exit;
-	}
-	// autrement c'est une install ad hoc (spikini...), on sait pas faire
+    // Si on peut installer, on lance illico
+    if (test_espace_prive()) {
+        include_spip('inc/headers');
+        redirige_url_ecrire('install');
+    } else {
+        // Si on est dans le site public, dire que qq s'en occupe
+        include_spip('inc/minipres');
+        utiliser_langue_visiteur();
+        echo minipres(_T('info_travaux_titre'), "<p style='text-align: center;'>" . _T('info_travaux_texte') . '</p>', ['status' => 503]);
+        exit;
+    }
+    // autrement c'est une install ad hoc (spikini...), on sait pas faire
 }
 
 // memoriser un tri sessionne eventuel
 if (
-	isset($_REQUEST['var_memotri'])
-	and $t = $_REQUEST['var_memotri']
-	and (strncmp($t, 'trisession', 10) == 0 or strncmp($t, 'senssession', 11) == 0)
+    isset($_REQUEST['var_memotri'])
+    and $t = $_REQUEST['var_memotri']
+    and (strncmp($t, 'trisession', 10) == 0 or strncmp($t, 'senssession', 11) == 0)
 ) {
-	if (!function_exists('session_set')) {
-		include_spip('inc/session');
-	}
-	$t = preg_replace(',\W,', '_', $t);
-	if ($v = _request($t)) {
-		session_set($t, $v);
-	}
+    if (!function_exists('session_set')) {
+        include_spip('inc/session');
+    }
+    $t = preg_replace(',\W,', '_', $t);
+    if ($v = _request($t)) {
+        session_set($t, $v);
+    }
 }
 
 /**
@@ -580,22 +580,22 @@ 
  * La globale $spip_header_silencieux permet de rendre le header minimal pour raisons de securite
  */
 if (!defined('_HEADER_COMPOSED_BY')) {
-	define('_HEADER_COMPOSED_BY', 'Composed-By: SPIP');
+    define('_HEADER_COMPOSED_BY', 'Composed-By: SPIP');
 }
 if (!headers_sent() and _HEADER_COMPOSED_BY) {
-	if (!defined('_HEADER_VARY')) {
-		define('_HEADER_VARY', 'Vary: Cookie, Accept-Encoding');
-	}
-	if (_HEADER_VARY) {
-		header(_HEADER_VARY);
-	}
-	if (!isset($GLOBALS['spip_header_silencieux']) or !$GLOBALS['spip_header_silencieux']) {
-		include_spip('inc/filtres_mini');
-		header(_HEADER_COMPOSED_BY . " $spip_version_affichee @ www.spip.net + " . url_absolue(_DIR_VAR . 'config.txt'));
-	} else {
-		// header minimal
-		header(_HEADER_COMPOSED_BY . ' @ www.spip.net');
-	}
+    if (!defined('_HEADER_VARY')) {
+        define('_HEADER_VARY', 'Vary: Cookie, Accept-Encoding');
+    }
+    if (_HEADER_VARY) {
+        header(_HEADER_VARY);
+    }
+    if (!isset($GLOBALS['spip_header_silencieux']) or !$GLOBALS['spip_header_silencieux']) {
+        include_spip('inc/filtres_mini');
+        header(_HEADER_COMPOSED_BY . " $spip_version_affichee @ www.spip.net + " . url_absolue(_DIR_VAR . 'config.txt'));
+    } else {
+        // header minimal
+        header(_HEADER_COMPOSED_BY . ' @ www.spip.net');
+    }
 }
 
 $methode = ($_SERVER['REQUEST_METHOD'] ?? ((php_sapi_name() == 'cli') ? 'cli' : ''));