spip / SPIP

ecrire/public/evaluer_page.php

Indentation +37 added lines, -37 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -29,50 +29,50 @@ 
  * @return void
  */
 
- /** @var bool Évaluation réussie ? */
+    /** @var bool Évaluation réussie ? */
 $res = true;
 
 // Cas d'une page contenant du PHP :
 if (empty($page['process_ins']) or $page['process_ins'] != 'html') {
-	include_spip('inc/lang');
+    include_spip('inc/lang');
 
-	// restaurer l'etat des notes avant calcul
-	if (
-		isset($page['notes'])
-		and $page['notes']
-		and $notes = charger_fonction('notes', 'inc', true)
-	) {
-		$notes($page['notes'], 'restaurer_etat');
-	}
-	ob_start();
-	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace('<' . '?xml', "<\1?xml", $page['texte']);
-	}
+    // restaurer l'etat des notes avant calcul
+    if (
+        isset($page['notes'])
+        and $page['notes']
+        and $notes = charger_fonction('notes', 'inc', true)
+    ) {
+        $notes($page['notes'], 'restaurer_etat');
+    }
+    ob_start();
+    if (strpos($page['texte'], '?xml') !== false) {
+        $page['texte'] = str_replace('<' . '?xml', "<\1?xml", $page['texte']);
+    }
 
-	try {
-		$res = eval('?' . '>' . $page['texte']);
-		$page['texte'] = ob_get_contents();
-	} catch (\Throwable $e) {
-		$code = $page['texte'];
-		$GLOBALS['numero_ligne_php'] = 1;
-		if (!function_exists('numerote_ligne_php')) {
-			function numerote_ligne_php($match) {
-				$GLOBALS['numero_ligne_php']++;
-				return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
-			}
-		}
-		$code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
-		$code = trim(highlight_string($code, true));
-		erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]);
-		$page['texte'] = '<!-- Erreur -->';
-	}
-	ob_end_clean();
+    try {
+        $res = eval('?' . '>' . $page['texte']);
+        $page['texte'] = ob_get_contents();
+    } catch (\Throwable $e) {
+        $code = $page['texte'];
+        $GLOBALS['numero_ligne_php'] = 1;
+        if (!function_exists('numerote_ligne_php')) {
+            function numerote_ligne_php($match) {
+                $GLOBALS['numero_ligne_php']++;
+                return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
+            }
+        }
+        $code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
+        $code = trim(highlight_string($code, true));
+        erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]);
+        $page['texte'] = '<!-- Erreur -->';
+    }
+    ob_end_clean();
 
-	$page['process_ins'] = 'html';
+    $page['process_ins'] = 'html';
 
-	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace("<\1?xml", '<' . '?xml', $page['texte']);
-	}
+    if (strpos($page['texte'], '?xml') !== false) {
+        $page['texte'] = str_replace("<\1?xml", '<' . '?xml', $page['texte']);
+    }
 }
 
 // le résultat de calcul d'un squelette est toujours de type string

ecrire/inc/urls.php

Indentation +205 added lines, -205 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('base/objets');
 
@@ -57,106 +57,106 @@ 
  *
  */
 function urls_decoder_url($url, $fond = '', $contexte = [], $assembler = false) {
-	static $current_base = null;
+    static $current_base = null;
 
-	// les anciennes fonctions modifient directement les globales
-	// on les sauve avant l'appel, et on les retablit apres !
-	$save = [
-		$GLOBALS['fond'] ?? null,
-		$GLOBALS['contexte'] ?? null,
-		$_SERVER['REDIRECT_url_propre'] ?? null,
-		$_ENV['url_propre'] ?? null,
-		$GLOBALS['profondeur_url']
-	];
+    // les anciennes fonctions modifient directement les globales
+    // on les sauve avant l'appel, et on les retablit apres !
+    $save = [
+        $GLOBALS['fond'] ?? null,
+        $GLOBALS['contexte'] ?? null,
+        $_SERVER['REDIRECT_url_propre'] ?? null,
+        $_ENV['url_propre'] ?? null,
+        $GLOBALS['profondeur_url']
+    ];
 
-	if (is_null($current_base)) {
-		include_spip('inc/filtres_mini');
-		// le decodage des urls se fait toujours par rapport au site public
-		$current_base = url_absolue(_DIR_RACINE ?: './');
-	}
-	if (strncmp($url, $current_base, strlen($current_base)) == 0) {
-		$url = substr($url, strlen($current_base));
-	}
+    if (is_null($current_base)) {
+        include_spip('inc/filtres_mini');
+        // le decodage des urls se fait toujours par rapport au site public
+        $current_base = url_absolue(_DIR_RACINE ?: './');
+    }
+    if (strncmp($url, $current_base, strlen($current_base)) == 0) {
+        $url = substr($url, strlen($current_base));
+    }
 
-	// si on est en train d'assembler la page principale,
-	// recuperer l'url depuis les globales url propres si fournies
-	// sinon extraire la bonne portion d'url
-	if ($assembler) {
-		if (isset($_SERVER['REDIRECT_url_propre'])) {
-			$url = $_SERVER['REDIRECT_url_propre'];
-		} elseif (isset($_ENV['url_propre'])) {
-			$url = $_ENV['url_propre'];
-		} else {
-			$qs = explode('?', $url);
-			// ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
-			$url = ltrim($qs[0], '/');
-			$url = explode('/', $url);
-			while (count($url) > $GLOBALS['profondeur_url'] + 1) {
-				array_shift($url);
-			}
-			$qs[0] = implode('/', $url);
-			$url = implode('?', $qs);
-		}
-	}
+    // si on est en train d'assembler la page principale,
+    // recuperer l'url depuis les globales url propres si fournies
+    // sinon extraire la bonne portion d'url
+    if ($assembler) {
+        if (isset($_SERVER['REDIRECT_url_propre'])) {
+            $url = $_SERVER['REDIRECT_url_propre'];
+        } elseif (isset($_ENV['url_propre'])) {
+            $url = $_ENV['url_propre'];
+        } else {
+            $qs = explode('?', $url);
+            // ne prendre que le segment d'url qui correspond, en fonction de la profondeur calculee
+            $url = ltrim($qs[0], '/');
+            $url = explode('/', $url);
+            while (count($url) > $GLOBALS['profondeur_url'] + 1) {
+                array_shift($url);
+            }
+            $qs[0] = implode('/', $url);
+            $url = implode('?', $qs);
+        }
+    }
 
-	unset($_SERVER['REDIRECT_url_propre']);
-	unset($_ENV['url_propre']);
-	include_spip('inc/filtres_mini');
-	if (strpos($url, '://') === false) {
-		$GLOBALS['profondeur_url'] = substr_count(ltrim(resolve_path("/$url"), '/'), '/');
-	} else {
-		$GLOBALS['profondeur_url'] = max(0, substr_count($url, '/') - substr_count($current_base, '/'));
-	}
+    unset($_SERVER['REDIRECT_url_propre']);
+    unset($_ENV['url_propre']);
+    include_spip('inc/filtres_mini');
+    if (strpos($url, '://') === false) {
+        $GLOBALS['profondeur_url'] = substr_count(ltrim(resolve_path("/$url"), '/'), '/');
+    } else {
+        $GLOBALS['profondeur_url'] = max(0, substr_count($url, '/') - substr_count($current_base, '/'));
+    }
 
-	$url_redirect = '';
-	$decoder = charger_fonction_url('decoder');
-	if ($decoder) {
-		$a = $decoder($url, $fond, $contexte);
-		if (is_array($a)) {
-			[$ncontexte, $type, $url_redirect, $nfond] = array_pad($a, 4, null);
-			$url_redirect ??= '';
-			if ($url_redirect === $url) {
-				$url_redirect = '';
-			} // securite pour eviter une redirection infinie
-			if ($assembler and strlen($url_redirect)) {
-				spip_log("Redirige $url vers $url_redirect");
-				include_spip('inc/headers');
-				redirige_par_entete($url_redirect, '', 301);
-			}
-			if (isset($nfond)) {
-				$fond = $nfond;
-			} else {
-				if (
-					$fond == ''
-					or $fond == 'type_urls' /* compat avec htaccess 2.0.0 */
-				) {
-					$fond = $type;
-				}
-			}
-			if (isset($ncontexte)) {
-				$contexte = $ncontexte;
-			}
-			if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
-				$contexte['type'] = $type;
-			}
-			if (!defined('_DEFINIR_CONTEXTE_TYPE_PAGE') or _DEFINIR_CONTEXTE_TYPE_PAGE) {
-				$contexte['type-page'] = $type;
-			}
-		}
-	}
+    $url_redirect = '';
+    $decoder = charger_fonction_url('decoder');
+    if ($decoder) {
+        $a = $decoder($url, $fond, $contexte);
+        if (is_array($a)) {
+            [$ncontexte, $type, $url_redirect, $nfond] = array_pad($a, 4, null);
+            $url_redirect ??= '';
+            if ($url_redirect === $url) {
+                $url_redirect = '';
+            } // securite pour eviter une redirection infinie
+            if ($assembler and strlen($url_redirect)) {
+                spip_log("Redirige $url vers $url_redirect");
+                include_spip('inc/headers');
+                redirige_par_entete($url_redirect, '', 301);
+            }
+            if (isset($nfond)) {
+                $fond = $nfond;
+            } else {
+                if (
+                    $fond == ''
+                    or $fond == 'type_urls' /* compat avec htaccess 2.0.0 */
+                ) {
+                    $fond = $type;
+                }
+            }
+            if (isset($ncontexte)) {
+                $contexte = $ncontexte;
+            }
+            if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
+                $contexte['type'] = $type;
+            }
+            if (!defined('_DEFINIR_CONTEXTE_TYPE_PAGE') or _DEFINIR_CONTEXTE_TYPE_PAGE) {
+                $contexte['type-page'] = $type;
+            }
+        }
+    }
 
-	// retablir les globales
-	[$GLOBALS['fond'], $GLOBALS['contexte'], $_SERVER['REDIRECT_url_propre'], $_ENV['url_propre'], $GLOBALS['profondeur_url']] = $save;
+    // retablir les globales
+    [$GLOBALS['fond'], $GLOBALS['contexte'], $_SERVER['REDIRECT_url_propre'], $_ENV['url_propre'], $GLOBALS['profondeur_url']] = $save;
 
-	// vider les globales url propres qui ne doivent plus etre utilisees en cas
-	// d'inversion url => objet
-	// maintenir pour compat ?
-	#if ($assembler) {
-	#	unset($_SERVER['REDIRECT_url_propre']);
-	#	unset($_ENV['url_propre']);
-	#}
+    // vider les globales url propres qui ne doivent plus etre utilisees en cas
+    // d'inversion url => objet
+    // maintenir pour compat ?
+    #if ($assembler) {
+    #	unset($_SERVER['REDIRECT_url_propre']);
+    #	unset($_ENV['url_propre']);
+    #}
 
-	return [$fond, $contexte, $url_redirect];
+    return [$fond, $contexte, $url_redirect];
 }
 
 /**
@@ -169,20 +169,20 @@ 
  * @return array|false|string
  */
 function urls_transition_retrouver_anciennes_url_propres(string $url_propre, string $entite, array $contexte = []): array {
-	if ($url_propre) {
-		if ($GLOBALS['profondeur_url'] <= 0) {
-			$urls_anciennes = charger_fonction_url('decoder', 'propres');
-		} else {
-			$urls_anciennes = charger_fonction_url('decoder', 'arbo');
-		}
+    if ($url_propre) {
+        if ($GLOBALS['profondeur_url'] <= 0) {
+            $urls_anciennes = charger_fonction_url('decoder', 'propres');
+        } else {
+            $urls_anciennes = charger_fonction_url('decoder', 'arbo');
+        }
 
-		if ($urls_anciennes) {
-			$urls_anciennes = $urls_anciennes($url_propre, $entite, $contexte);
-		}
-		return $urls_anciennes ?: [];
-	}
+        if ($urls_anciennes) {
+            $urls_anciennes = $urls_anciennes($url_propre, $entite, $contexte);
+        }
+        return $urls_anciennes ?: [];
+    }
 
-	return [];
+    return [];
 }
 
 /**
@@ -195,41 +195,41 @@ 
  * @return array|false|string
  */
 function urls_transition_retrouver_anciennes_url_html(string $url, string $entite, array $contexte = []): array {
-	// Migration depuis anciennes URLs ?
-	// traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
-	if (
-		$url
-		and $GLOBALS['profondeur_url'] <= 0
-	) {
-		$r = nettoyer_url_page($url, $contexte);
-		if ($r) {
-			[$contexte, $type, , , $suite] = $r;
-			$_id = id_table_objet($type);
-			$id_objet = $contexte[$_id];
-			$url_propre = generer_objet_url($id_objet, $type);
-			if (
-				strlen($url_propre)
-				and !strstr($url, (string) $url_propre)
-				and (
-					objet_test_si_publie($type, $id_objet)
-					or (defined('_VAR_PREVIEW') and _VAR_PREVIEW and autoriser('voir', $type, $id_objet))
-				)
-			) {
-				[, $hash] = array_pad(explode('#', $url_propre), 2, '');
-				$args = [];
-				foreach (array_filter(explode('&', $suite ?? '')) as $fragment) {
-					if ($fragment != "$_id=$id_objet") {
-						$args[] = $fragment;
-					}
-				}
-				$url_redirect = generer_objet_url($id_objet, $type, join('&', array_filter($args)), $hash);
+    // Migration depuis anciennes URLs ?
+    // traiter les injections domain.tld/spip.php/n/importe/quoi/rubrique23
+    if (
+        $url
+        and $GLOBALS['profondeur_url'] <= 0
+    ) {
+        $r = nettoyer_url_page($url, $contexte);
+        if ($r) {
+            [$contexte, $type, , , $suite] = $r;
+            $_id = id_table_objet($type);
+            $id_objet = $contexte[$_id];
+            $url_propre = generer_objet_url($id_objet, $type);
+            if (
+                strlen($url_propre)
+                and !strstr($url, (string) $url_propre)
+                and (
+                    objet_test_si_publie($type, $id_objet)
+                    or (defined('_VAR_PREVIEW') and _VAR_PREVIEW and autoriser('voir', $type, $id_objet))
+                )
+            ) {
+                [, $hash] = array_pad(explode('#', $url_propre), 2, '');
+                $args = [];
+                foreach (array_filter(explode('&', $suite ?? '')) as $fragment) {
+                    if ($fragment != "$_id=$id_objet") {
+                        $args[] = $fragment;
+                    }
+                }
+                $url_redirect = generer_objet_url($id_objet, $type, join('&', array_filter($args)), $hash);
 
-				return [$contexte, $type, $url_redirect, $type];
-			}
-		}
-	}
-	/* Fin compatibilite anciennes urls */
-	return [];
+                return [$contexte, $type, $url_redirect, $type];
+            }
+        }
+    }
+    /* Fin compatibilite anciennes urls */
+    return [];
 }
 
 /**
@@ -242,24 +242,24 @@ 
  * @return string|array
  */
 function urls_liste_objets($preg = true) {
-	static $url_objets = null;
-	if (is_null($url_objets)) {
-		$url_objets = [];
-		// recuperer les tables_objets_sql declarees
-		$tables_objets = lister_tables_objets_sql();
-		foreach ($tables_objets as $t => $infos) {
-			if ($infos['page']) {
-				$url_objets[] = $infos['type'];
-				$url_objets = array_merge($url_objets, $infos['type_surnoms']);
-			}
-		}
-		$url_objets = pipeline('declarer_url_objets', $url_objets);
-	}
-	if (!$preg) {
-		return $url_objets;
-	}
+    static $url_objets = null;
+    if (is_null($url_objets)) {
+        $url_objets = [];
+        // recuperer les tables_objets_sql declarees
+        $tables_objets = lister_tables_objets_sql();
+        foreach ($tables_objets as $t => $infos) {
+            if ($infos['page']) {
+                $url_objets[] = $infos['type'];
+                $url_objets = array_merge($url_objets, $infos['type_surnoms']);
+            }
+        }
+        $url_objets = pipeline('declarer_url_objets', $url_objets);
+    }
+    if (!$preg) {
+        return $url_objets;
+    }
 
-	return implode('|', array_map('preg_quote', $url_objets));
+    return implode('|', array_map('preg_quote', $url_objets));
 }
 
 /**
@@ -273,26 +273,26 @@ 
  * @return array
  */
 function nettoyer_url_page($url, $contexte = []) {
-	$url_objets = urls_liste_objets();
-	$raccourci_url_page_html = ',^(?:[^?]*/)?(' . $url_objets . ')([0-9]+)(?:\.html)?([?&].*)?$,';
-	$raccourci_url_page_id = ',^(?:[^?]*/)?(' . $url_objets . ')\.php3?[?]id_\1=([0-9]+)([?&].*)?$,';
-	$raccourci_url_page_spip = ',^(?:[^?]*/)?(?:spip[.]php)?[?](' . $url_objets . ')([0-9]+)=?(&.*)?$,';
+    $url_objets = urls_liste_objets();
+    $raccourci_url_page_html = ',^(?:[^?]*/)?(' . $url_objets . ')([0-9]+)(?:\.html)?([?&].*)?$,';
+    $raccourci_url_page_id = ',^(?:[^?]*/)?(' . $url_objets . ')\.php3?[?]id_\1=([0-9]+)([?&].*)?$,';
+    $raccourci_url_page_spip = ',^(?:[^?]*/)?(?:spip[.]php)?[?](' . $url_objets . ')([0-9]+)=?(&.*)?$,';
 
-	if (
-		preg_match($raccourci_url_page_html, $url, $regs)
-		or preg_match($raccourci_url_page_id, $url, $regs)
-		or preg_match($raccourci_url_page_spip, $url, $regs)
-	) {
-		$regs = array_pad($regs, 4, null);
-		$type = objet_type($regs[1]);
-		$_id = id_table_objet($type);
-		$contexte[$_id] = $regs[2];
-		$suite = $regs[3];
+    if (
+        preg_match($raccourci_url_page_html, $url, $regs)
+        or preg_match($raccourci_url_page_id, $url, $regs)
+        or preg_match($raccourci_url_page_spip, $url, $regs)
+    ) {
+        $regs = array_pad($regs, 4, null);
+        $type = objet_type($regs[1]);
+        $_id = id_table_objet($type);
+        $contexte[$_id] = $regs[2];
+        $suite = $regs[3];
 
-		return [$contexte, $type, null, $type, $suite];
-	}
+        return [$contexte, $type, null, $type, $suite];
+    }
 
-	return [];
+    return [];
 }
 
 /**
@@ -310,38 +310,38 @@ 
  * @return string
  */
 function generer_objet_url_ecrire($id, string $objet, string $args = '', string $ancre = '', ?bool $public = null, string $connect = ''): string {
-	static $furls = [];
-	$id = intval($id);
-	if (!isset($furls[$objet])) {
-		if (
-			function_exists($f = 'generer_' . $objet . '_url_ecrire')
-			// ou definie par un plugin
-			or $f = charger_fonction($f, 'urls', true)
-			// deprecated
-			or function_exists($f = 'generer_url_ecrire_' . $objet) or $f = charger_fonction($f, 'urls', true)
-		) {
-			$furls[$objet] = $f;
-		} else {
-			$furls[$objet] = '';
-		}
-	}
-	if ($furls[$objet]) {
-		return $furls[$objet]($id, $args, $ancre, $public, $connect);
-	}
-	// si pas de flag public fourni
-	// le calculer en fonction de la declaration de statut
-	if (is_null($public) and !$connect) {
-		$public = objet_test_si_publie($objet, $id, $connect);
-	}
-	if ($public or $connect) {
-		return generer_objet_url_absolue($id, $objet, $args, $ancre, $public, '', $connect);
-	}
-	$a = id_table_objet($objet) . '=' . intval($id);
-	if (!function_exists('objet_info')) {
-		include_spip('inc/filtres');
-	}
+    static $furls = [];
+    $id = intval($id);
+    if (!isset($furls[$objet])) {
+        if (
+            function_exists($f = 'generer_' . $objet . '_url_ecrire')
+            // ou definie par un plugin
+            or $f = charger_fonction($f, 'urls', true)
+            // deprecated
+            or function_exists($f = 'generer_url_ecrire_' . $objet) or $f = charger_fonction($f, 'urls', true)
+        ) {
+            $furls[$objet] = $f;
+        } else {
+            $furls[$objet] = '';
+        }
+    }
+    if ($furls[$objet]) {
+        return $furls[$objet]($id, $args, $ancre, $public, $connect);
+    }
+    // si pas de flag public fourni
+    // le calculer en fonction de la declaration de statut
+    if (is_null($public) and !$connect) {
+        $public = objet_test_si_publie($objet, $id, $connect);
+    }
+    if ($public or $connect) {
+        return generer_objet_url_absolue($id, $objet, $args, $ancre, $public, '', $connect);
+    }
+    $a = id_table_objet($objet) . '=' . intval($id);
+    if (!function_exists('objet_info')) {
+        include_spip('inc/filtres');
+    }
 
-	return generer_url_ecrire(objet_info($objet, 'url_voir'), $a . ($args ? "&$args" : '')) . ($ancre ? "#$ancre" : '');
+    return generer_url_ecrire(objet_info($objet, 'url_voir'), $a . ($args ? "&$args" : '')) . ($ancre ? "#$ancre" : '');
 }
 
 /**
@@ -349,5 +349,5 @@ 
  * @see generer_objet_url_ecrire
  */
 function generer_url_ecrire_objet($objet, $id, $args = '', $ancre = '', $public = null, string $connect = '') {
-	return generer_objet_url_ecrire($id, $objet, $args, $ancre, $public, $connect);
+    return generer_objet_url_ecrire($id, $objet, $args, $ancre, $public, $connect);
 }

ecrire/inc/lien.php

Indentation +192 added lines, -192 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -37,42 +37,42 @@ 
  * @return string
  */
 function inc_lien_dist(
-	$lien,
-	$texte = '',
-	$class = '',
-	$title = '',
-	$hlang = '',
-	$rel = '',
-	string $connect = '',
-	$env = []
+    $lien,
+    $texte = '',
+    $class = '',
+    $title = '',
+    $hlang = '',
+    $rel = '',
+    string $connect = '',
+    $env = []
 ) {
-	return $lien;
+    return $lien;
 }
 
 function expanser_liens($t, string $connect = '', $env = []) {
 
-	$t = pipeline('pre_liens', $t);
+    $t = pipeline('pre_liens', $t);
 
-	// on passe a traiter_modeles la liste des liens reperes pour lui permettre
-	// de remettre le texte d'origine dans les parametres du modele
-	$t = traiter_modeles($t, false, false, $connect);
+    // on passe a traiter_modeles la liste des liens reperes pour lui permettre
+    // de remettre le texte d'origine dans les parametres du modele
+    $t = traiter_modeles($t, false, false, $connect);
 
-	return $t;
+    return $t;
 }
 
 // Meme analyse mais pour eliminer les liens
 // et ne laisser que leur titre, a expliciter si ce n'est fait
 function nettoyer_raccourcis_typo($texte, string $connect = '') {
-	return $texte;
+    return $texte;
 }
 
 // Repere dans la partie texte d'un raccourci [texte->...]
 // la langue et la bulle eventuelles
 function traiter_raccourci_lien_atts($texte) {
-	$bulle = '';
-	$hlang = '';
+    $bulle = '';
+    $hlang = '';
 
-	return [trim($texte), $bulle, $hlang];
+    return [trim($texte), $bulle, $hlang];
 }
 
 define('_RACCOURCI_CHAPO', '/^(\W*)(\W*)(\w*\d+([?#].*)?)$/');
@@ -88,7 +88,7 @@ 
  * @return string
  */
 function virtuel_redirige($virtuel, $url = false) {
-	return $virtuel;
+    return $virtuel;
 }
 
 // Cherche un lien du type [->raccourci 123]
@@ -101,62 +101,62 @@ 
 // 'url':   seulement U  (i.e. generer_url_RACCOURCI)
 
 function calculer_url($ref, $texte = '', $pour = 'url', string $connect = '', $echappe_typo = true) {
-	$r = traiter_lien_implicite($ref, $texte, $pour, $connect);
+    $r = traiter_lien_implicite($ref, $texte, $pour, $connect);
 
-	return $r ?: traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo);
+    return $r ?: traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo);
 }
 
 define('_EXTRAIRE_LIEN', ',^\s*(?:' . _PROTOCOLES_STD . '):?/?/?\s*$,iS');
 
 function traiter_lien_explicite($ref, $texte = '', $pour = 'url', string $connect = '', $echappe_typo = true) {
-	if (preg_match(_EXTRAIRE_LIEN, $ref)) {
-		return ($pour != 'tout') ? '' : ['', '', '', ''];
-	}
-
-	$lien = entites_html(trim($ref));
-
-	// Liens explicites
-	if (!$texte) {
-		$texte = str_replace('"', '', $lien);
-		// evite l'affichage de trops longues urls.
-		$lien_court = charger_fonction('lien_court', 'inc');
-		$texte = $lien_court($texte);
-		if ($echappe_typo) {
-			$texte = '<html>' . quote_amp($texte) . '</html>';
-		}
-	}
-
-	// petites corrections d'URL
-	if (preg_match('/^www\.[^@]+$/S', $lien)) {
-		$lien = 'http://' . $lien;
-	} else {
-		if (strpos($lien, '@') && email_valide($lien)) {
-			if (!$texte) {
-				$texte = $lien;
-			}
-			$lien = 'mailto:' . $lien;
-		}
-	}
-
-	if ($pour == 'url') {
-		return $lien;
-	}
-
-	if ($pour == 'titre') {
-		return $texte;
-	}
-
-	return ['url' => $lien, 'titre' => $texte];
+    if (preg_match(_EXTRAIRE_LIEN, $ref)) {
+        return ($pour != 'tout') ? '' : ['', '', '', ''];
+    }
+
+    $lien = entites_html(trim($ref));
+
+    // Liens explicites
+    if (!$texte) {
+        $texte = str_replace('"', '', $lien);
+        // evite l'affichage de trops longues urls.
+        $lien_court = charger_fonction('lien_court', 'inc');
+        $texte = $lien_court($texte);
+        if ($echappe_typo) {
+            $texte = '<html>' . quote_amp($texte) . '</html>';
+        }
+    }
+
+    // petites corrections d'URL
+    if (preg_match('/^www\.[^@]+$/S', $lien)) {
+        $lien = 'http://' . $lien;
+    } else {
+        if (strpos($lien, '@') && email_valide($lien)) {
+            if (!$texte) {
+                $texte = $lien;
+            }
+            $lien = 'mailto:' . $lien;
+        }
+    }
+
+    if ($pour == 'url') {
+        return $lien;
+    }
+
+    if ($pour == 'titre') {
+        return $texte;
+    }
+
+    return ['url' => $lien, 'titre' => $texte];
 }
 
 function liens_implicite_glose_dist($texte, $id, $type, $args, $ancre, string $connect = '') {
-	if (function_exists($f = 'glossaire_' . $ancre)) {
-		$url = $f($texte, $id);
-	} else {
-		$url = glossaire_std($texte);
-	}
+    if (function_exists($f = 'glossaire_' . $ancre)) {
+        $url = $f($texte, $id);
+    } else {
+        $url = glossaire_std($texte);
+    }
 
-	return $url;
+    return $url;
 }
 
 /**
@@ -178,74 +178,74 @@ 
  * @return array|bool|string
  */
 function traiter_lien_implicite($ref, $texte = '', $pour = 'url', $connect = '') {
-	$cible = $GLOBALS['lien_implicite_cible_public'] ?? null;
-	if (!($match = typer_raccourci($ref))) {
-		return false;
-	}
-
-	[$type, , $id, , $args, , $ancre] = array_pad($match, 7, null);
-
-	# attention dans le cas des sites le lien doit pointer non pas sur
-	# la page locale du site, mais directement sur le site lui-meme
-	$url = '';
-	if ($f = charger_fonction("implicite_$type", 'liens', true)) {
-		$url = $f($texte, $id, $type, $args, $ancre, $connect);
-	}
-
-	if (!$url) {
-		$url = generer_objet_url($id, $type, $args ?? '', $ancre ?? '', $cible, '', $connect ?? '');
-	}
-
-	if (!$url) {
-		return false;
-	}
-
-	if (is_array($url)) {
-		[$type, $id] = array_pad($url, 2, null);
-		$url = generer_objet_url($id, $type, $args ?? '', $ancre ?? '', $cible, '', $connect ?? '');
-	}
-
-	if ($pour === 'url') {
-		return $url;
-	}
-
-	$r = traiter_raccourci_titre($id, $type, $connect);
-	if ($r) {
-		$r['class'] = ($type == 'site') ? 'spip_out' : 'spip_in';
-	}
-
-	if ($texte = trim($texte)) {
-		$r['titre'] = $texte;
-	}
-
-	if (!@$r['titre']) {
-		$r['titre'] = _T($type) . " $id";
-	}
-
-	if ($pour == 'titre') {
-		return $r['titre'];
-	}
-
-	$r['url'] = $url;
-
-	// dans le cas d'un lien vers un doc, ajouter le type='mime/type'
-	if (
-		$type == 'document'
-		and $mime = sql_getfetsel(
-			'mime_type',
-			'spip_types_documents',
-			'extension IN (' . sql_get_select('extension', 'spip_documents', 'id_document=' . sql_quote($id)) . ')',
-			'',
-			'',
-			'',
-			'',
-			$connect
-		)
-	) {
-		$r['mime'] = $mime;
-	}
-
-	return $r;
+    $cible = $GLOBALS['lien_implicite_cible_public'] ?? null;
+    if (!($match = typer_raccourci($ref))) {
+        return false;
+    }
+
+    [$type, , $id, , $args, , $ancre] = array_pad($match, 7, null);
+
+    # attention dans le cas des sites le lien doit pointer non pas sur
+    # la page locale du site, mais directement sur le site lui-meme
+    $url = '';
+    if ($f = charger_fonction("implicite_$type", 'liens', true)) {
+        $url = $f($texte, $id, $type, $args, $ancre, $connect);
+    }
+
+    if (!$url) {
+        $url = generer_objet_url($id, $type, $args ?? '', $ancre ?? '', $cible, '', $connect ?? '');
+    }
+
+    if (!$url) {
+        return false;
+    }
+
+    if (is_array($url)) {
+        [$type, $id] = array_pad($url, 2, null);
+        $url = generer_objet_url($id, $type, $args ?? '', $ancre ?? '', $cible, '', $connect ?? '');
+    }
+
+    if ($pour === 'url') {
+        return $url;
+    }
+
+    $r = traiter_raccourci_titre($id, $type, $connect);
+    if ($r) {
+        $r['class'] = ($type == 'site') ? 'spip_out' : 'spip_in';
+    }
+
+    if ($texte = trim($texte)) {
+        $r['titre'] = $texte;
+    }
+
+    if (!@$r['titre']) {
+        $r['titre'] = _T($type) . " $id";
+    }
+
+    if ($pour == 'titre') {
+        return $r['titre'];
+    }
+
+    $r['url'] = $url;
+
+    // dans le cas d'un lien vers un doc, ajouter le type='mime/type'
+    if (
+        $type == 'document'
+        and $mime = sql_getfetsel(
+            'mime_type',
+            'spip_types_documents',
+            'extension IN (' . sql_get_select('extension', 'spip_documents', 'id_document=' . sql_quote($id)) . ')',
+            '',
+            '',
+            '',
+            '',
+            $connect
+        )
+    ) {
+        $r['mime'] = $mime;
+    }
+
+    return $r;
 }
 
 // analyse des raccourcis issus de [TITRE->RACCOURCInnn] et connexes
@@ -253,43 +253,43 @@ 
 define('_RACCOURCI_URL', '/^\s*(\w*?)\s*(\d+)(\?(.*?))?(#([^\s]*))?\s*$/S');
 
 function typer_raccourci($lien) {
-	if (!preg_match(_RACCOURCI_URL, $lien, $match)) {
-		return [];
-	}
-
-	$f = $match[1];
-	// valeur par defaut et alias historiques
-	if (!$f) {
-		$f = 'article';
-	} else {
-		if ($f == 'art') {
-			$f = 'article';
-		} else {
-			if ($f == 'br') {
-				$f = 'breve';
-			} else {
-				if ($f == 'rub') {
-					$f = 'rubrique';
-				} else {
-					if ($f == 'aut') {
-						$f = 'auteur';
-					} else {
-						if ($f == 'doc' or $f == 'im' or $f == 'img' or $f == 'image' or $f == 'emb') {
-							$f = 'document';
-						} else {
-							if (preg_match('/^br..?ve$/S', $f)) {
-								$f = 'breve'; # accents :(
-							}
-						}
-					}
-				}
-			}
-		}
-	}
-
-	$match[0] = $f;
-
-	return $match;
+    if (!preg_match(_RACCOURCI_URL, $lien, $match)) {
+        return [];
+    }
+
+    $f = $match[1];
+    // valeur par defaut et alias historiques
+    if (!$f) {
+        $f = 'article';
+    } else {
+        if ($f == 'art') {
+            $f = 'article';
+        } else {
+            if ($f == 'br') {
+                $f = 'breve';
+            } else {
+                if ($f == 'rub') {
+                    $f = 'rubrique';
+                } else {
+                    if ($f == 'aut') {
+                        $f = 'auteur';
+                    } else {
+                        if ($f == 'doc' or $f == 'im' or $f == 'img' or $f == 'image' or $f == 'emb') {
+                            $f = 'document';
+                        } else {
+                            if (preg_match('/^br..?ve$/S', $f)) {
+                                $f = 'breve'; # accents :(
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    $match[0] = $f;
+
+    return $match;
 }
 
 /**
@@ -304,44 +304,44 @@ 
  * }
  **/
 function traiter_raccourci_titre($id, $type, $connect = null) {
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table(table_objet($type));
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table(table_objet($type));
 
-	if (!($desc and $s = $desc['titre'])) {
-		return [];
-	}
+    if (!($desc and $s = $desc['titre'])) {
+        return [];
+    }
 
-	$_id = $desc['key']['PRIMARY KEY'];
-	$r = sql_fetsel($s, $desc['table'], "$_id=$id", '', '', '', '', $connect);
+    $_id = $desc['key']['PRIMARY KEY'];
+    $r = sql_fetsel($s, $desc['table'], "$_id=$id", '', '', '', '', $connect);
 
-	if (!$r) {
-		return [];
-	}
+    if (!$r) {
+        return [];
+    }
 
-	$r['titre'] = supprimer_numero($r['titre']);
+    $r['titre'] = supprimer_numero($r['titre']);
 
-	if (!$r['titre'] and !empty($r['surnom'])) {
-		$r['titre'] = $r['surnom'];
-	}
+    if (!$r['titre'] and !empty($r['surnom'])) {
+        $r['titre'] = $r['surnom'];
+    }
 
-	if (!isset($r['lang'])) {
-		$r['lang'] = '';
-	}
+    if (!isset($r['lang'])) {
+        $r['lang'] = '';
+    }
 
-	return $r;
+    return $r;
 }
 
 //
 // Raccourcis ancre [#ancre<-]
 //
 function traiter_raccourci_ancre($letexte) {
-	return $letexte;
+    return $letexte;
 }
 
 function traiter_raccourci_glossaire($texte) {
-	return $texte;
+    return $texte;
 }
 
 function glossaire_std($terme) {
-	return $terme;
+    return $terme;
 }

prive/formulaires/editer_liens.php

Indentation +438 added lines, -438 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -36,25 +36,25 @@ 
  *   ($table_source,$objet,$id_objet,$objet_lien)
  */
 function determine_source_lien_objet($a, $b, $c) {
-	$table_source = $objet_lien = $objet = $id_objet = null;
-	// auteurs, article, 23 :
-	// associer des auteurs à l'article 23, sur la table pivot spip_auteurs_liens
-	if (is_numeric($c) and !is_numeric($b)) {
-		$table_source = table_objet($a);
-		$objet_lien = objet_type($a);
-		$objet = objet_type($b);
-		$id_objet = $c;
-	}
-	// article, 23, auteurs
-	// associer des auteurs à l'article 23, sur la table pivot spip_articles_liens
-	if (is_numeric($b) and !is_numeric($c)) {
-		$table_source = table_objet($c);
-		$objet_lien = objet_type($a);
-		$objet = objet_type($a);
-		$id_objet = $b;
-	}
-
-	return [$table_source, $objet, $id_objet, $objet_lien];
+    $table_source = $objet_lien = $objet = $id_objet = null;
+    // auteurs, article, 23 :
+    // associer des auteurs à l'article 23, sur la table pivot spip_auteurs_liens
+    if (is_numeric($c) and !is_numeric($b)) {
+        $table_source = table_objet($a);
+        $objet_lien = objet_type($a);
+        $objet = objet_type($b);
+        $id_objet = $c;
+    }
+    // article, 23, auteurs
+    // associer des auteurs à l'article 23, sur la table pivot spip_articles_liens
+    if (is_numeric($b) and !is_numeric($c)) {
+        $table_source = table_objet($c);
+        $objet_lien = objet_type($a);
+        $objet = objet_type($a);
+        $id_objet = $b;
+    }
+
+    return [$table_source, $objet, $id_objet, $objet_lien];
 }
 
 /**
@@ -80,86 +80,86 @@ 
  */
 function formulaires_editer_liens_charger_dist($a, $b, $c, $options = []) {
 
-	// compat avec ancienne signature ou le 4eme argument est $editable
-	if (!is_array($options)) {
-		$options = ['editable' => $options];
-	} elseif (!isset($options['editable'])) {
-		$options['editable'] = true;
-	}
-
-	$editable = $options['editable'];
-
-	[$table_source, $objet, $id_objet, $objet_lien] = determine_source_lien_objet($a, $b, $c);
-	if (!$table_source or !$objet or !$objet_lien or !$id_objet) {
-		return false;
-	}
-
-	$objet_source = objet_type($table_source);
-	$table_sql_source = table_objet_sql($objet_source);
-
-	// verifier existence de la table xxx_liens
-	include_spip('action/editer_liens');
-	if (!objet_associable($objet_lien)) {
-		return false;
-	}
-
-	// L'éditabilité :) est définie par un test permanent (par exemple "associermots") ET le 4ème argument
-	include_spip('inc/autoriser');
-	$editable = ($editable and autoriser('associer' . $table_source, $objet, $id_objet)
-		and autoriser('modifier', $objet, $id_objet));
-
-	if (
-		!$editable and !count(objet_trouver_liens(
-			[$objet_lien => '*'],
-			[($objet_lien == $objet_source ? $objet : $objet_source) => $id_objet]
-		))
-	) {
-		return false;
-	}
-
-	// squelettes de vue et de d'association
-	// ils sont différents si des rôles sont définis.
-	$skel_vue = $table_source . '_lies';
-	$skel_ajout = $table_source . '_associer';
-
-	// description des roles
-	include_spip('inc/roles');
-	if ($roles = roles_presents($objet_source, $objet)) {
-		// on demande de nouveaux squelettes en conséquence
-		$skel_vue = $table_source . '_roles_lies';
-		$skel_ajout = $table_source . '_roles_associer';
-	}
-
-	$oups = '';
-	if ($editable) {
-		$oups = lien_gerer__oups('editer_liens', 'hash');
-	}
-	$valeurs = [
-		'id' => "$table_source-$objet-$id_objet-$objet_lien", // identifiant unique pour les id du form
-		'_vue_liee' => $skel_vue,
-		'_vue_ajout' => $skel_ajout,
-		'_objet_lien' => $objet_lien,
-		'id_lien_ajoute' => _request('id_lien_ajoute'),
-		'objet' => $objet,
-		'id_objet' => $id_objet,
-		'objet_source' => $objet_source,
-		'table_source' => $table_source,
-		'recherche' => '',
-		'visible' => 0,
-		'ajouter_lien' => '',
-		'supprimer_lien' => '',
-		'qualifier_lien' => '',
-		'ordonner_lien' => '',
-		'desordonner_liens' => '',
-		'_roles' => $roles, # description des roles
-		'_oups' => entites_html($oups),
-		'editable' => $editable,
-	];
-
-	// les options non definies dans $valeurs sont passees telles quelles au formulaire html
-	$valeurs = array_merge($options, $valeurs);
-
-	return $valeurs;
+    // compat avec ancienne signature ou le 4eme argument est $editable
+    if (!is_array($options)) {
+        $options = ['editable' => $options];
+    } elseif (!isset($options['editable'])) {
+        $options['editable'] = true;
+    }
+
+    $editable = $options['editable'];
+
+    [$table_source, $objet, $id_objet, $objet_lien] = determine_source_lien_objet($a, $b, $c);
+    if (!$table_source or !$objet or !$objet_lien or !$id_objet) {
+        return false;
+    }
+
+    $objet_source = objet_type($table_source);
+    $table_sql_source = table_objet_sql($objet_source);
+
+    // verifier existence de la table xxx_liens
+    include_spip('action/editer_liens');
+    if (!objet_associable($objet_lien)) {
+        return false;
+    }
+
+    // L'éditabilité :) est définie par un test permanent (par exemple "associermots") ET le 4ème argument
+    include_spip('inc/autoriser');
+    $editable = ($editable and autoriser('associer' . $table_source, $objet, $id_objet)
+        and autoriser('modifier', $objet, $id_objet));
+
+    if (
+        !$editable and !count(objet_trouver_liens(
+            [$objet_lien => '*'],
+            [($objet_lien == $objet_source ? $objet : $objet_source) => $id_objet]
+        ))
+    ) {
+        return false;
+    }
+
+    // squelettes de vue et de d'association
+    // ils sont différents si des rôles sont définis.
+    $skel_vue = $table_source . '_lies';
+    $skel_ajout = $table_source . '_associer';
+
+    // description des roles
+    include_spip('inc/roles');
+    if ($roles = roles_presents($objet_source, $objet)) {
+        // on demande de nouveaux squelettes en conséquence
+        $skel_vue = $table_source . '_roles_lies';
+        $skel_ajout = $table_source . '_roles_associer';
+    }
+
+    $oups = '';
+    if ($editable) {
+        $oups = lien_gerer__oups('editer_liens', 'hash');
+    }
+    $valeurs = [
+        'id' => "$table_source-$objet-$id_objet-$objet_lien", // identifiant unique pour les id du form
+        '_vue_liee' => $skel_vue,
+        '_vue_ajout' => $skel_ajout,
+        '_objet_lien' => $objet_lien,
+        'id_lien_ajoute' => _request('id_lien_ajoute'),
+        'objet' => $objet,
+        'id_objet' => $id_objet,
+        'objet_source' => $objet_source,
+        'table_source' => $table_source,
+        'recherche' => '',
+        'visible' => 0,
+        'ajouter_lien' => '',
+        'supprimer_lien' => '',
+        'qualifier_lien' => '',
+        'ordonner_lien' => '',
+        'desordonner_liens' => '',
+        '_roles' => $roles, # description des roles
+        '_oups' => entites_html($oups),
+        'editable' => $editable,
+    ];
+
+    // les options non definies dans $valeurs sont passees telles quelles au formulaire html
+    $valeurs = array_merge($options, $valeurs);
+
+    return $valeurs;
 }
 
 /**
@@ -203,170 +203,170 @@ 
  * @return array
  */
 function formulaires_editer_liens_traiter_dist($a, $b, $c, $options = []) {
-	// compat avec ancienne signature ou le 4eme argument est $editable
-	if (!is_array($options)) {
-		$options = ['editable' => $options];
-	} elseif (!isset($options['editable'])) {
-		$options['editable'] = true;
-	}
-
-	$editable = $options['editable'];
-
-	$res = ['editable' => $editable ? true : false];
-	[$table_source, $objet, $id_objet, $objet_lien] = determine_source_lien_objet($a, $b, $c);
-	if (!$table_source or !$objet or !$objet_lien) {
-		return $res;
-	}
-
-
-	if (_request('tout_voir')) {
-		set_request('recherche', '');
-	}
-
-	include_spip('inc/autoriser');
-	if (autoriser('modifier', $objet, $id_objet)) {
-		// recuperer le oups du coup d'avant pour le propager à charger() si on ne fait rien par exemple
-		lien_gerer__oups('editer_liens','request');
-
-		// annuler les suppressions du coup d'avant ?
-		if (
-			_request('annuler_oups')
-			and $oups = lien_gerer__oups('editer_liens','get')
-		) {
-			if ($oups_objets = charger_fonction("editer_liens_oups_{$table_source}_{$objet}_{$objet_lien}", 'action', true)) {
-				$oups_objets($oups);
-			} else {
-				$objet_source = objet_type($table_source);
-				include_spip('action/editer_liens');
-				foreach ($oups as $oup) {
-					if ($objet_lien == $objet_source) {
-						objet_associer([$objet_source => $oup[$objet_source]], [$objet => $oup[$objet]], $oup);
-					} else {
-						objet_associer([$objet => $oup[$objet]], [$objet_source => $oup[$objet_source]], $oup);
-					}
-				}
-			}
-			# oups ne persiste que pour la derniere action, si suppression
-			lien_gerer__oups('editer_liens','reset');
-		}
-
-		$supprimer = _request('supprimer_lien');
-		$ajouter = _request('ajouter_lien');
-		$ordonner = _request('ordonner_lien');
-
-		if (_request('desordonner_liens')) {
-			include_spip('action/editer_liens');
-			objet_qualifier_liens([$objet_lien => '*'], [$objet => $id_objet], ['rang_lien' => 0]);
-		}
-
-		// il est possible de preciser dans une seule variable un remplacement :
-		// remplacer_lien[old][new]
-		if ($remplacer = _request('remplacer_lien')) {
-			foreach ($remplacer as $k => $v) {
-				if ($old = lien_verifier_action($k, '')) {
-					foreach (is_array($v) ? $v : [$v] as $kn => $vn) {
-						if ($new = lien_verifier_action($kn, $vn)) {
-							$supprimer[$old] = 'x';
-							$ajouter[$new] = '+';
-						}
-					}
-				}
-			}
-		}
-
-		if ($supprimer) {
-			if (
-				$supprimer_objets = charger_fonction(
-					"editer_liens_supprimer_{$table_source}_{$objet}_{$objet_lien}",
-					'action',
-					true
-				)
-			) {
-				$oups = $supprimer_objets($supprimer);
-			} else {
-				include_spip('action/editer_liens');
-				$oups = [];
-
-				foreach ($supprimer as $k => $v) {
-					if ($lien = lien_verifier_action($k, $v)) {
-						$lien = explode('-', $lien);
-						[$objet_source, $ids, $objet_lie, $idl, $role] = array_pad($lien, 5, null);
-						// appliquer une condition sur le rôle si défini ('*' pour tous les roles)
-						$cond = (!is_null($role) ? ['role' => $role] : []);
-						if ($objet_lien == $objet_source) {
-							$oups = array_merge(
-								$oups,
-								objet_trouver_liens([$objet_source => $ids], [$objet_lie => $idl], $cond)
-							);
-							objet_dissocier([$objet_source => $ids], [$objet_lie => $idl], $cond);
-						} else {
-							$oups = array_merge(
-								$oups,
-								objet_trouver_liens([$objet_lie => $idl], [$objet_source => $ids], $cond)
-							);
-							objet_dissocier([$objet_lie => $idl], [$objet_source => $ids], $cond);
-						}
-					}
-				}
-			}
-			if (!empty($oups)) {
-				lien_gerer__oups('editer_liens','set', $oups);
-			} else {
-				lien_gerer__oups('editer_liens','reset');
-			}
-		}
-
-		if ($ajouter) {
-			if (
-				$ajouter_objets = charger_fonction("editer_liens_ajouter_{$table_source}_{$objet}_{$objet_lien}", 'action', true)
-			) {
-				$ajout_ok = $ajouter_objets($ajouter);
-			} else {
-				$ajout_ok = false;
-				include_spip('action/editer_liens');
-				foreach ($ajouter as $k => $v) {
-					if ($lien = lien_verifier_action($k, $v)) {
-						$ajout_ok = true;
-						[$objet1, $ids, $objet2, $idl] = explode('-', $lien);
-						$qualifs = lien_retrouver_qualif($objet_lien, $lien);
-						if ($objet_lien == $objet1) {
-							lien_ajouter_liaisons($objet1, $ids, $objet2, $idl, $qualifs);
-						} else {
-							lien_ajouter_liaisons($objet2, $idl, $objet1, $ids, $qualifs);
-						}
-						set_request('id_lien_ajoute', $ids);
-					}
-				}
-			}
-			# oups ne persiste que pour la derniere action, si suppression
-			# une suppression suivie d'un ajout dans le meme hit est un remplacement
-			# non annulable !
-			if ($ajout_ok) {
-				lien_gerer__oups('editer_liens','reset');
-			}
-		}
-
-		if ($ordonner) {
-			include_spip('action/editer_liens');
-			foreach ($ordonner as $k => $rang_lien) {
-				if ($lien = lien_verifier_action($k, '')) {
-					[$objet1, $ids, $objet2, $idl] = explode('-', $lien);
-					$qualif = ['rang_lien' => $rang_lien];
-
-					if ($objet_lien == $objet1) {
-						objet_qualifier_liens([$objet1 => $ids], [$objet2 => $idl], $qualif);
-					} else {
-						objet_qualifier_liens([$objet2 => $idl], [$objet1 => $ids], $qualif);
-					}
-					set_request('id_lien_ajoute', $ids);
-					lien_gerer__oups('editer_liens','reset');
-				}
-			}
-		}
-	}
-
-
-	return $res;
+    // compat avec ancienne signature ou le 4eme argument est $editable
+    if (!is_array($options)) {
+        $options = ['editable' => $options];
+    } elseif (!isset($options['editable'])) {
+        $options['editable'] = true;
+    }
+
+    $editable = $options['editable'];
+
+    $res = ['editable' => $editable ? true : false];
+    [$table_source, $objet, $id_objet, $objet_lien] = determine_source_lien_objet($a, $b, $c);
+    if (!$table_source or !$objet or !$objet_lien) {
+        return $res;
+    }
+
+
+    if (_request('tout_voir')) {
+        set_request('recherche', '');
+    }
+
+    include_spip('inc/autoriser');
+    if (autoriser('modifier', $objet, $id_objet)) {
+        // recuperer le oups du coup d'avant pour le propager à charger() si on ne fait rien par exemple
+        lien_gerer__oups('editer_liens','request');
+
+        // annuler les suppressions du coup d'avant ?
+        if (
+            _request('annuler_oups')
+            and $oups = lien_gerer__oups('editer_liens','get')
+        ) {
+            if ($oups_objets = charger_fonction("editer_liens_oups_{$table_source}_{$objet}_{$objet_lien}", 'action', true)) {
+                $oups_objets($oups);
+            } else {
+                $objet_source = objet_type($table_source);
+                include_spip('action/editer_liens');
+                foreach ($oups as $oup) {
+                    if ($objet_lien == $objet_source) {
+                        objet_associer([$objet_source => $oup[$objet_source]], [$objet => $oup[$objet]], $oup);
+                    } else {
+                        objet_associer([$objet => $oup[$objet]], [$objet_source => $oup[$objet_source]], $oup);
+                    }
+                }
+            }
+            # oups ne persiste que pour la derniere action, si suppression
+            lien_gerer__oups('editer_liens','reset');
+        }
+
+        $supprimer = _request('supprimer_lien');
+        $ajouter = _request('ajouter_lien');
+        $ordonner = _request('ordonner_lien');
+
+        if (_request('desordonner_liens')) {
+            include_spip('action/editer_liens');
+            objet_qualifier_liens([$objet_lien => '*'], [$objet => $id_objet], ['rang_lien' => 0]);
+        }
+
+        // il est possible de preciser dans une seule variable un remplacement :
+        // remplacer_lien[old][new]
+        if ($remplacer = _request('remplacer_lien')) {
+            foreach ($remplacer as $k => $v) {
+                if ($old = lien_verifier_action($k, '')) {
+                    foreach (is_array($v) ? $v : [$v] as $kn => $vn) {
+                        if ($new = lien_verifier_action($kn, $vn)) {
+                            $supprimer[$old] = 'x';
+                            $ajouter[$new] = '+';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($supprimer) {
+            if (
+                $supprimer_objets = charger_fonction(
+                    "editer_liens_supprimer_{$table_source}_{$objet}_{$objet_lien}",
+                    'action',
+                    true
+                )
+            ) {
+                $oups = $supprimer_objets($supprimer);
+            } else {
+                include_spip('action/editer_liens');
+                $oups = [];
+
+                foreach ($supprimer as $k => $v) {
+                    if ($lien = lien_verifier_action($k, $v)) {
+                        $lien = explode('-', $lien);
+                        [$objet_source, $ids, $objet_lie, $idl, $role] = array_pad($lien, 5, null);
+                        // appliquer une condition sur le rôle si défini ('*' pour tous les roles)
+                        $cond = (!is_null($role) ? ['role' => $role] : []);
+                        if ($objet_lien == $objet_source) {
+                            $oups = array_merge(
+                                $oups,
+                                objet_trouver_liens([$objet_source => $ids], [$objet_lie => $idl], $cond)
+                            );
+                            objet_dissocier([$objet_source => $ids], [$objet_lie => $idl], $cond);
+                        } else {
+                            $oups = array_merge(
+                                $oups,
+                                objet_trouver_liens([$objet_lie => $idl], [$objet_source => $ids], $cond)
+                            );
+                            objet_dissocier([$objet_lie => $idl], [$objet_source => $ids], $cond);
+                        }
+                    }
+                }
+            }
+            if (!empty($oups)) {
+                lien_gerer__oups('editer_liens','set', $oups);
+            } else {
+                lien_gerer__oups('editer_liens','reset');
+            }
+        }
+
+        if ($ajouter) {
+            if (
+                $ajouter_objets = charger_fonction("editer_liens_ajouter_{$table_source}_{$objet}_{$objet_lien}", 'action', true)
+            ) {
+                $ajout_ok = $ajouter_objets($ajouter);
+            } else {
+                $ajout_ok = false;
+                include_spip('action/editer_liens');
+                foreach ($ajouter as $k => $v) {
+                    if ($lien = lien_verifier_action($k, $v)) {
+                        $ajout_ok = true;
+                        [$objet1, $ids, $objet2, $idl] = explode('-', $lien);
+                        $qualifs = lien_retrouver_qualif($objet_lien, $lien);
+                        if ($objet_lien == $objet1) {
+                            lien_ajouter_liaisons($objet1, $ids, $objet2, $idl, $qualifs);
+                        } else {
+                            lien_ajouter_liaisons($objet2, $idl, $objet1, $ids, $qualifs);
+                        }
+                        set_request('id_lien_ajoute', $ids);
+                    }
+                }
+            }
+            # oups ne persiste que pour la derniere action, si suppression
+            # une suppression suivie d'un ajout dans le meme hit est un remplacement
+            # non annulable !
+            if ($ajout_ok) {
+                lien_gerer__oups('editer_liens','reset');
+            }
+        }
+
+        if ($ordonner) {
+            include_spip('action/editer_liens');
+            foreach ($ordonner as $k => $rang_lien) {
+                if ($lien = lien_verifier_action($k, '')) {
+                    [$objet1, $ids, $objet2, $idl] = explode('-', $lien);
+                    $qualif = ['rang_lien' => $rang_lien];
+
+                    if ($objet_lien == $objet1) {
+                        objet_qualifier_liens([$objet1 => $ids], [$objet2 => $idl], $qualif);
+                    } else {
+                        objet_qualifier_liens([$objet2 => $idl], [$objet1 => $ids], $qualif);
+                    }
+                    set_request('id_lien_ajoute', $ids);
+                    lien_gerer__oups('editer_liens','reset');
+                }
+            }
+        }
+    }
+
+
+    return $res;
 }
 
 
@@ -389,24 +389,24 @@ 
  * @return string Action demandée si trouvée, sinon ''
  */
 function lien_verifier_action($k, $v) {
-	$action = '';
-	if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $k)) {
-		$action = $k;
-	}
-	if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $v)) {
-		if (is_numeric($k)) {
-			$action = $v;
-		}
-		if (_request($k)) {
-			$action = $v;
-		}
-	}
-	// ajout un role null fictif (plus pratique) si pas défini
-	if ($action and count(explode('-', $action)) == 4) {
-		$action .= '-';
-	}
-
-	return $action;
+    $action = '';
+    if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $k)) {
+        $action = $k;
+    }
+    if (preg_match(',^\w+-[\w*]+-[\w*]+-[\w*]+(-[\w*])?,', $v)) {
+        if (is_numeric($k)) {
+            $action = $v;
+        }
+        if (_request($k)) {
+            $action = $v;
+        }
+    }
+    // ajout un role null fictif (plus pratique) si pas défini
+    if ($action and count(explode('-', $action)) == 4) {
+        $action .= '-';
+    }
+
+    return $action;
 }
 
 
@@ -422,66 +422,66 @@ 
  *   Liste des qualifs pour chaque lien. Tableau vide s'il n'y en a pas.
  **/
 function lien_retrouver_qualif($objet_lien, $lien) {
-	// un role est défini dans la liaison
-	$defs = explode('-', $lien);
-	[$objet1, , $objet2, , $role] = array_pad($defs, 5, null);
-	if ($objet_lien == $objet1) {
-		$colonne_role = roles_colonne($objet1, $objet2);
-	} else {
-		$colonne_role = roles_colonne($objet2, $objet1);
-	}
-
-	// cas ou le role est defini en 5e argument de l'action sur le lien (suppression, ajout rapide sans autre attribut)
-	if ($role) {
-		return [
-			// un seul lien avec ce role
-			[$colonne_role => $role]
-		];
-	}
-
-	// retrouver les rôles postés pour cette liaison, s'il y en a.
-	$qualifier_lien = _request('qualifier_lien');
-	if (!$qualifier_lien or !is_array($qualifier_lien)) {
-		return [];
-	}
-
-	// pas avec l'action complete (incluant le role)
-	$qualif = [];
-	if (
-		(!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien])
-		and count($defs) == 5
-	) {
-		// on tente avec l'action sans le role
-		array_pop($defs);
-		$lien = implode('-', $defs);
-		if (!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien]) {
-			$qualif = [];
-		}
-	}
-
-	// $qualif de la forme array(role=>array(...),valeur=>array(...),....)
-	// on le reforme en array(array(role=>..,valeur=>..,..),array(role=>..,valeur=>..,..),...)
-	$qualifs = [];
-	while (is_countable($qualif) ? count($qualif) : 0) {
-		$q = [];
-		foreach ($qualif as $att => $values) {
-			if (is_array($values)) {
-				$q[$att] = array_shift($qualif[$att]);
-				if (!(is_countable($qualif[$att]) ? count($qualif[$att]) : 0)) {
-					unset($qualif[$att]);
-				}
-			} else {
-				$q[$att] = $values;
-				unset($qualif[$att]);
-			}
-		}
-		// pas de rôle vide
-		if (!$colonne_role or !isset($q[$colonne_role]) or $q[$colonne_role]) {
-			$qualifs[] = $q;
-		}
-	}
-
-	return $qualifs;
+    // un role est défini dans la liaison
+    $defs = explode('-', $lien);
+    [$objet1, , $objet2, , $role] = array_pad($defs, 5, null);
+    if ($objet_lien == $objet1) {
+        $colonne_role = roles_colonne($objet1, $objet2);
+    } else {
+        $colonne_role = roles_colonne($objet2, $objet1);
+    }
+
+    // cas ou le role est defini en 5e argument de l'action sur le lien (suppression, ajout rapide sans autre attribut)
+    if ($role) {
+        return [
+            // un seul lien avec ce role
+            [$colonne_role => $role]
+        ];
+    }
+
+    // retrouver les rôles postés pour cette liaison, s'il y en a.
+    $qualifier_lien = _request('qualifier_lien');
+    if (!$qualifier_lien or !is_array($qualifier_lien)) {
+        return [];
+    }
+
+    // pas avec l'action complete (incluant le role)
+    $qualif = [];
+    if (
+        (!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien])
+        and count($defs) == 5
+    ) {
+        // on tente avec l'action sans le role
+        array_pop($defs);
+        $lien = implode('-', $defs);
+        if (!isset($qualifier_lien[$lien]) or !$qualif = $qualifier_lien[$lien]) {
+            $qualif = [];
+        }
+    }
+
+    // $qualif de la forme array(role=>array(...),valeur=>array(...),....)
+    // on le reforme en array(array(role=>..,valeur=>..,..),array(role=>..,valeur=>..,..),...)
+    $qualifs = [];
+    while (is_countable($qualif) ? count($qualif) : 0) {
+        $q = [];
+        foreach ($qualif as $att => $values) {
+            if (is_array($values)) {
+                $q[$att] = array_shift($qualif[$att]);
+                if (!(is_countable($qualif[$att]) ? count($qualif[$att]) : 0)) {
+                    unset($qualif[$att]);
+                }
+            } else {
+                $q[$att] = $values;
+                unset($qualif[$att]);
+            }
+        }
+        // pas de rôle vide
+        if (!$colonne_role or !isset($q[$colonne_role]) or $q[$colonne_role]) {
+            $qualifs[] = $q;
+        }
+    }
+
+    return $qualifs;
 }
 
 /**
@@ -500,14 +500,14 @@ 
  **/
 function lien_ajouter_liaisons($objet_source, $ids, $objet_lien, $idl, $qualifs) {
 
-	// retrouver la colonne de roles s'il y en a a lier
-	if (is_array($qualifs) and count($qualifs)) {
-		foreach ($qualifs as $qualif) {
-			objet_associer([$objet_source => $ids], [$objet_lien => $idl], $qualif);
-		}
-	} else {
-		objet_associer([$objet_source => $ids], [$objet_lien => $idl]);
-	}
+    // retrouver la colonne de roles s'il y en a a lier
+    if (is_array($qualifs) and count($qualifs)) {
+        foreach ($qualifs as $qualif) {
+            objet_associer([$objet_source => $ids], [$objet_lien => $idl], $qualif);
+        }
+    } else {
+        objet_associer([$objet_source => $ids], [$objet_lien => $idl]);
+    }
 }
 
 
@@ -519,79 +519,79 @@ 
  * @return array|string|null
  */
 function lien_gerer__oups(string $form, string $action, ?array $valeur = null) {
-	static $_oups_value;
-
-	switch ($action) {
-		case 'reset':
-			$res = (empty($_oups_value) ? false : true);
-			$_oups_value = null;
-			return $res;
-
-		case 'get':
-			return $_oups_value ?: null;
-
-		case 'set':
-			$_oups_value = $valeur;
-			return true;
-
-		case 'request':
-			$_oups_value = null;
-			if ($oups = _request('_oups')) {
-				include_spip('inc/filtres');
-				// on accepte uniquement une valeur signée
-				if ($oups = decoder_contexte_ajax($oups, $form)) {
-					if (!is_array($oups)
-						or empty($oups['id_auteur'])
-						or $oups['id_auteur'] !== $GLOBALS['visiteur_session']['id_auteur']
-						or empty($oups['time'])
-						or $oups['time'] < $_SERVER['REQUEST_TIME'] - 86400
-						or empty($oups['args'])
-						or $oups['args'] !== lien_gerer__oups_collecter_args($form, debug_backtrace(null, 5))
-						or empty($oups['oups_value'])) {
-						$oups = null;
-					}
-					else {
-						$oups = $oups['oups_value'];
-						// controler le contenu
-						foreach ($oups as $k => $oup) {
-							if (!is_array($oup)) {
-								unset($oups[$k]);
-							}
-							else {
-								foreach ($oup as $champ => $valeur) {
-									if (!is_scalar($champ)
-										or !is_scalar($valeur)
-										or preg_match(',\W,', $champ)
-									) {
-										unset($oups[$k][$champ]);
-									}
-								}
-								if (empty($oups[$k])) {
-									unset($oups[$k]);
-								}
-							}
-						}
-					}
-					$_oups_value = $oups;
-					return $_oups_value;
-				}
-			}
-			break;
-
-		case 'hash':
-			if (!$_oups_value) {
-				return '';
-			}
-
-			include_spip('inc/filtres');
-			$oups = [
-				'id_auteur' => $GLOBALS['visiteur_session']['id_auteur'] ?? 0,
-				'time' => strtotime(date('Y-m-d H:00:00')),
-				'args' => lien_gerer__oups_collecter_args($form, debug_backtrace(null, 5)),
-				'oups_value' => $_oups_value,
-			];
-			return encoder_contexte_ajax($oups, $form);
-	}
+    static $_oups_value;
+
+    switch ($action) {
+        case 'reset':
+            $res = (empty($_oups_value) ? false : true);
+            $_oups_value = null;
+            return $res;
+
+        case 'get':
+            return $_oups_value ?: null;
+
+        case 'set':
+            $_oups_value = $valeur;
+            return true;
+
+        case 'request':
+            $_oups_value = null;
+            if ($oups = _request('_oups')) {
+                include_spip('inc/filtres');
+                // on accepte uniquement une valeur signée
+                if ($oups = decoder_contexte_ajax($oups, $form)) {
+                    if (!is_array($oups)
+                        or empty($oups['id_auteur'])
+                        or $oups['id_auteur'] !== $GLOBALS['visiteur_session']['id_auteur']
+                        or empty($oups['time'])
+                        or $oups['time'] < $_SERVER['REQUEST_TIME'] - 86400
+                        or empty($oups['args'])
+                        or $oups['args'] !== lien_gerer__oups_collecter_args($form, debug_backtrace(null, 5))
+                        or empty($oups['oups_value'])) {
+                        $oups = null;
+                    }
+                    else {
+                        $oups = $oups['oups_value'];
+                        // controler le contenu
+                        foreach ($oups as $k => $oup) {
+                            if (!is_array($oup)) {
+                                unset($oups[$k]);
+                            }
+                            else {
+                                foreach ($oup as $champ => $valeur) {
+                                    if (!is_scalar($champ)
+                                        or !is_scalar($valeur)
+                                        or preg_match(',\W,', $champ)
+                                    ) {
+                                        unset($oups[$k][$champ]);
+                                    }
+                                }
+                                if (empty($oups[$k])) {
+                                    unset($oups[$k]);
+                                }
+                            }
+                        }
+                    }
+                    $_oups_value = $oups;
+                    return $_oups_value;
+                }
+            }
+            break;
+
+        case 'hash':
+            if (!$_oups_value) {
+                return '';
+            }
+
+            include_spip('inc/filtres');
+            $oups = [
+                'id_auteur' => $GLOBALS['visiteur_session']['id_auteur'] ?? 0,
+                'time' => strtotime(date('Y-m-d H:00:00')),
+                'args' => lien_gerer__oups_collecter_args($form, debug_backtrace(null, 5)),
+                'oups_value' => $_oups_value,
+            ];
+            return encoder_contexte_ajax($oups, $form);
+    }
 }
 
 /**
@@ -600,19 +600,19 @@ 
  * @return false|float|int|mixed|Services_JSON_Error|string
  */
 function lien_gerer__oups_collecter_args($form, $trace) {
-	$args = '';
-	if (!empty($trace)) {
-		do {
-			$t = array_shift($trace);
-			$function = $t['function'] ?? '';
-			if (strpos($function, 'formulaires_'. $form) === 0) {
-				if (isset($t['args'])) {
-					$args = json_encode($t['args']);
-				}
-				break;
-			}
-		}
-		while (count($trace));
-	}
-	return $args;
+    $args = '';
+    if (!empty($trace)) {
+        do {
+            $t = array_shift($trace);
+            $function = $t['function'] ?? '';
+            if (strpos($function, 'formulaires_'. $form) === 0) {
+                if (isset($t['args'])) {
+                    $args = json_encode($t['args']);
+                }
+                break;
+            }
+        }
+        while (count($trace));
+    }
+    return $args;
 }

ecrire/maj/2021.php

Indentation +17 added lines, -17 removed lines

@@ -19,21 +19,21 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 $GLOBALS['maj'][2021_02_18_00] = [
-	['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
-	['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
+    ['sql_alter', "TABLE spip_auteurs CHANGE imessage imessage VARCHAR(3) DEFAULT '' NOT NULL" ],
+    ['sql_updateq', 'spip_auteurs', ['imessage' => 'oui'], "imessage != 'non' OR imessage IS NULL" ],
 ];
 
 $GLOBALS['maj'][2022_02_23_02] = [
-	['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL" ],
-	['sql_delete', 'spip_meta', "nom='secret_du_site'" ],
+    ['sql_alter', "TABLE spip_auteurs ADD backup_cles mediumtext DEFAULT '' NOT NULL" ],
+    ['sql_delete', 'spip_meta', "nom='secret_du_site'" ],
 ];
 
 $GLOBALS['maj'][2022_02_23_03] = [
-	['maj2021_supprimer_toutes_sessions_si_aucun_backup_cles'],
+    ['maj2021_supprimer_toutes_sessions_si_aucun_backup_cles'],
 ];
 
 /**
@@ -44,15 +44,15 @@ 
  * - les autres auteurs vont tous regénérer un mot de passe plus sécure au premier login
  **/
 function maj2021_supprimer_toutes_sessions_si_aucun_backup_cles() {
-	if (!sql_countsel('spip_auteurs', "webmestre='oui' AND backup_cles!=''")) {
-		spip_log('supprimer sessions auteur', 'maj');
-		if ($dir = opendir(_DIR_SESSIONS)) {
-			while (($f = readdir($dir)) !== false) {
-				spip_unlink(_DIR_SESSIONS . $f);
-				if (time() >= _TIME_OUT) {
-					return;
-				}
-			}
-		}
-	}
+    if (!sql_countsel('spip_auteurs', "webmestre='oui' AND backup_cles!=''")) {
+        spip_log('supprimer sessions auteur', 'maj');
+        if ($dir = opendir(_DIR_SESSIONS)) {
+            while (($f = readdir($dir)) !== false) {
+                spip_unlink(_DIR_SESSIONS . $f);
+                if (time() >= _TIME_OUT) {
+                    return;
+                }
+            }
+        }
+    }
 }

ecrire/action/api_transmettre.php

Indentation +80 added lines, -80 removed lines

@@ -17,92 +17,92 @@
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 function action_api_transmettre_dist($arg = null) {
 
-	// Obtenir l'argument 'id_auteur/cle/format/fond'
-	if (is_null($arg)) {
-		$arg = _request('arg');
-	}
-
-	$args = explode('/', $arg);
-
-	if (count($args) !== 4) {
-		action_api_transmettre_fail($arg);
-	}
-
-	[$id_auteur, $cle, $format, $fond] = $args;
-	$id_auteur = intval($id_auteur);
-
-	if (preg_match(',[^\w\\.-],', $format)) {
-		action_api_transmettre_fail("format $format ??");
-	}
-	if (preg_match(',[^\w\\.-],', $fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	// verifier la cle
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-
-	$qs = $_SERVER['QUERY_STRING'];
-	// retirer action et arg de la qs
-	$contexte = [];
-	parse_str($qs, $contexte);
-	foreach ($contexte as $k => $v) {
-		if (in_array($k, ['action', 'arg', 'var_mode'])) {
-			unset($contexte[$k]);
-		}
-	}
-	$qs = http_build_query($contexte);
-	include_spip('inc/acces');
-	if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
-		// si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
-		include_spip('inc/autoriser');
-		$autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
-		if (
-			!$id_auteur
-			or empty($GLOBALS['visiteur_session']['id_auteur'])
-			or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
-			or !autoriser('transmettre', $autoriser_type, $id_auteur)
-		) {
-			action_api_transmettre_fail("auth QS $qs ??");
-		}
-	}
-
-	$contexte['id_auteur'] = $id_auteur;
-
-	$fond = "transmettre/$format/$fond";
-
-	if (!trouver_fond($fond)) {
-		$fond = "prive/$fond";
-	}
-
-	if (!trouver_fond($fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	$res = recuperer_fond($fond, $contexte, ['raw' => true]);
-	if (!empty($res['entetes'])) {
-		foreach ($res['entetes'] as $h => $v) {
-			header("$h: $v");
-		}
-	}
-
-	$res = ltrim($res['texte']);
-	if (empty($res)) {
-		spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
-	}
-
-	echo $res;
-	exit();
+    // Obtenir l'argument 'id_auteur/cle/format/fond'
+    if (is_null($arg)) {
+        $arg = _request('arg');
+    }
+
+    $args = explode('/', $arg);
+
+    if (count($args) !== 4) {
+        action_api_transmettre_fail($arg);
+    }
+
+    [$id_auteur, $cle, $format, $fond] = $args;
+    $id_auteur = intval($id_auteur);
+
+    if (preg_match(',[^\w\\.-],', $format)) {
+        action_api_transmettre_fail("format $format ??");
+    }
+    if (preg_match(',[^\w\\.-],', $fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    // verifier la cle
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+
+    $qs = $_SERVER['QUERY_STRING'];
+    // retirer action et arg de la qs
+    $contexte = [];
+    parse_str($qs, $contexte);
+    foreach ($contexte as $k => $v) {
+        if (in_array($k, ['action', 'arg', 'var_mode'])) {
+            unset($contexte[$k]);
+        }
+    }
+    $qs = http_build_query($contexte);
+    include_spip('inc/acces');
+    if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
+        // si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
+        include_spip('inc/autoriser');
+        $autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
+        if (
+            !$id_auteur
+            or empty($GLOBALS['visiteur_session']['id_auteur'])
+            or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
+            or !autoriser('transmettre', $autoriser_type, $id_auteur)
+        ) {
+            action_api_transmettre_fail("auth QS $qs ??");
+        }
+    }
+
+    $contexte['id_auteur'] = $id_auteur;
+
+    $fond = "transmettre/$format/$fond";
+
+    if (!trouver_fond($fond)) {
+        $fond = "prive/$fond";
+    }
+
+    if (!trouver_fond($fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    $res = recuperer_fond($fond, $contexte, ['raw' => true]);
+    if (!empty($res['entetes'])) {
+        foreach ($res['entetes'] as $h => $v) {
+            header("$h: $v");
+        }
+    }
+
+    $res = ltrim($res['texte']);
+    if (empty($res)) {
+        spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
+    }
+
+    echo $res;
+    exit();
 }
 
 function action_api_transmettre_fail($arg) {
-	include_spip('inc/minipres');
-	echo minipres(_T('info_acces_interdit'), $arg);
-	exit;
+    include_spip('inc/minipres');
+    echo minipres(_T('info_acces_interdit'), $arg);
+    exit;
 }

ecrire/src/Texte/Collecteur/AbstractCollecteur.php

Indentation +149 added lines, -149 removed lines

@@ -14,154 +14,154 @@
 
 abstract class AbstractCollecteur {
 
-	protected static string $markPrefix = 'COLLECT';
-	protected string $markId;
-
-	/**
-	 * Collecteur générique des occurences d'une preg dans un texte avec leurs positions et longueur
-	 * @param string $texte
-	 *   texte à analyser pour la collecte
-	 * @param string $if_chars
-	 *   caractere(s) à tester avant de tenter la preg
-	 * @param string $start_with
-	 *   caractere(s) par lesquels commencent l'expression recherchée (permet de démarrer la preg à la prochaine occurence de cette chaine)
-	 * @param string $preg
-	 *   preg utilisée pour la collecte
-	 * @param int $max_items
-	 *   pour limiter le nombre de preg collectée (pour la detection simple de présence par exemple)
-	 * @return array
-	 */
-	protected static function collecteur(string $texte, string $if_chars, string $start_with, string $preg, int $max_items = 0): array {
-
-		$collection = [];
-		$pos = 0;
-		while (
-			(!$if_chars || strpos($texte, $if_chars, $pos) !== false)
-			and ($next = ($start_with ? strpos($texte, $start_with, $pos) : $pos)) !== false
-			and preg_match($preg, $texte, $r, PREG_OFFSET_CAPTURE, $next)) {
-
-			$found_pos = $r[0][1];
-			$found_length = strlen($r[0][0]);
-			$match = [
-				'raw' => $r[0][0],
-				'match' => array_column($r, 0),
-				'pos' => $found_pos,
-				'length' => $found_length
-			];
-
-			$collection[] = $match;
-
-			if ($max_items and count($collection) === $max_items) {
-				break;
-			}
-
-			$pos = $match['pos'] + $match['length'];
-		}
-
-		return $collection;
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-		foreach ($collection as &$c) {
-			$c['raw'] = $sanitize_callback($c['raw']);
-		}
-
-		return $collection;
-	}
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		$collection = [];
-		return $collection;
-	}
-
-	public function detecter($texte): bool {
-		if (!empty($this->markId) and strpos($texte, $this->markId) !== false) {
-			return true;
-		}
-		return !empty($this->collecter($texte, ['detecter_presence' => true]));
-	}
-
-	/**
-	 * Echapper les occurences de la collecte par un texte neutre du point de vue HTML
-	 *
-	 * @see retablir()
-	 * @param string $texte
-	 * @param array $options
-	 *   string $sanitize_callback
-	 * @return array
-	 *   texte, marqueur utilise pour echapper les modeles
-	 */
-	public function echapper(string $texte, array $options = []): string {
-		if (!function_exists('creer_uniqid')) {
-			include_spip('inc/acces');
-		}
-
-		$collection = $this->collecter($texte, $options);
-		if (!empty($options['sanitize_callback']) and is_callable($options['sanitize_callback'])) {
-			$collection = $this->sanitizer_collection($collection, $options['sanitize_callback']);
-		}
-
-		if (!empty($collection)) {
-			if (empty($this->markId)) {
-				// generer un marqueur qui n'existe pas dans le texte
-				do {
-					$this->markId = substr(md5(uniqid(static::class, 1)), 0, 7);
-					$this->markId = "@|".static::$markPrefix . $this->markId . "|";
-				} while (strpos($texte, $this->markId) !== false);
-			}
-
-			$offset_pos = 0;
-			foreach ($collection as $c) {
-				$rempl = $this->markId . base64_encode($c['raw']) . '|@';
-				$texte = substr_replace($texte, $rempl, $c['pos'] + $offset_pos, $c['length']);
-				$offset_pos += strlen($rempl) - $c['length'];
-			}
-		}
-
-		return $texte;
-	}
-
-
-	/**
-	 * Retablir les occurences échappées précédemment
-	 *
-	 * @see echapper()
-	 * @param string $texte
-	 * @return string
-	 */
-	function retablir(string $texte): string {
-
-		if (!empty($this->markId)) {
-			$lm = strlen($this->markId);
-			$pos = 0;
-			while (
-				($p = strpos($texte, $this->markId, $pos)) !== false
-				and $end = strpos($texte, '|@', $p + $lm)
-			) {
-				$base64 = substr($texte, $p + $lm, $end - ($p + $lm));
-				if ($c = base64_decode($base64, true)) {
-					$texte = substr_replace($texte, $c, $p, $end + 2 - $p);
-					$pos = $p + strlen($c);
-				}
-				else {
-					$pos = $end;
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'COLLECT';
+    protected string $markId;
+
+    /**
+     * Collecteur générique des occurences d'une preg dans un texte avec leurs positions et longueur
+     * @param string $texte
+     *   texte à analyser pour la collecte
+     * @param string $if_chars
+     *   caractere(s) à tester avant de tenter la preg
+     * @param string $start_with
+     *   caractere(s) par lesquels commencent l'expression recherchée (permet de démarrer la preg à la prochaine occurence de cette chaine)
+     * @param string $preg
+     *   preg utilisée pour la collecte
+     * @param int $max_items
+     *   pour limiter le nombre de preg collectée (pour la detection simple de présence par exemple)
+     * @return array
+     */
+    protected static function collecteur(string $texte, string $if_chars, string $start_with, string $preg, int $max_items = 0): array {
+
+        $collection = [];
+        $pos = 0;
+        while (
+            (!$if_chars || strpos($texte, $if_chars, $pos) !== false)
+            and ($next = ($start_with ? strpos($texte, $start_with, $pos) : $pos)) !== false
+            and preg_match($preg, $texte, $r, PREG_OFFSET_CAPTURE, $next)) {
+
+            $found_pos = $r[0][1];
+            $found_length = strlen($r[0][0]);
+            $match = [
+                'raw' => $r[0][0],
+                'match' => array_column($r, 0),
+                'pos' => $found_pos,
+                'length' => $found_length
+            ];
+
+            $collection[] = $match;
+
+            if ($max_items and count($collection) === $max_items) {
+                break;
+            }
+
+            $pos = $match['pos'] + $match['length'];
+        }
+
+        return $collection;
+    }
+
+    /**
+     * Sanitizer une collection d'occurences
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+        foreach ($collection as &$c) {
+            $c['raw'] = $sanitize_callback($c['raw']);
+        }
+
+        return $collection;
+    }
+
+    /**
+     * @param string $texte
+     * @param array $options
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        $collection = [];
+        return $collection;
+    }
+
+    public function detecter($texte): bool {
+        if (!empty($this->markId) and strpos($texte, $this->markId) !== false) {
+            return true;
+        }
+        return !empty($this->collecter($texte, ['detecter_presence' => true]));
+    }
+
+    /**
+     * Echapper les occurences de la collecte par un texte neutre du point de vue HTML
+     *
+     * @see retablir()
+     * @param string $texte
+     * @param array $options
+     *   string $sanitize_callback
+     * @return array
+     *   texte, marqueur utilise pour echapper les modeles
+     */
+    public function echapper(string $texte, array $options = []): string {
+        if (!function_exists('creer_uniqid')) {
+            include_spip('inc/acces');
+        }
+
+        $collection = $this->collecter($texte, $options);
+        if (!empty($options['sanitize_callback']) and is_callable($options['sanitize_callback'])) {
+            $collection = $this->sanitizer_collection($collection, $options['sanitize_callback']);
+        }
+
+        if (!empty($collection)) {
+            if (empty($this->markId)) {
+                // generer un marqueur qui n'existe pas dans le texte
+                do {
+                    $this->markId = substr(md5(uniqid(static::class, 1)), 0, 7);
+                    $this->markId = "@|".static::$markPrefix . $this->markId . "|";
+                } while (strpos($texte, $this->markId) !== false);
+            }
+
+            $offset_pos = 0;
+            foreach ($collection as $c) {
+                $rempl = $this->markId . base64_encode($c['raw']) . '|@';
+                $texte = substr_replace($texte, $rempl, $c['pos'] + $offset_pos, $c['length']);
+                $offset_pos += strlen($rempl) - $c['length'];
+            }
+        }
+
+        return $texte;
+    }
+
+
+    /**
+     * Retablir les occurences échappées précédemment
+     *
+     * @see echapper()
+     * @param string $texte
+     * @return string
+     */
+    function retablir(string $texte): string {
+
+        if (!empty($this->markId)) {
+            $lm = strlen($this->markId);
+            $pos = 0;
+            while (
+                ($p = strpos($texte, $this->markId, $pos)) !== false
+                and $end = strpos($texte, '|@', $p + $lm)
+            ) {
+                $base64 = substr($texte, $p + $lm, $end - ($p + $lm));
+                if ($c = base64_decode($base64, true)) {
+                    $texte = substr_replace($texte, $c, $p, $end + 2 - $p);
+                    $pos = $p + strlen($c);
+                }
+                else {
+                    $pos = $end;
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

ecrire/src/Texte/Collecteur/Idiomes.php

Indentation +110 added lines, -110 removed lines

@@ -23,115 +23,115 @@
  */
 class Idiomes extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'IDIOME';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_idiome;
-
-	public function __construct(?string $preg = null) {
-
-		$this->preg_idiome = ($preg ?: '@<:(?:([a-z0-9_]+):)?([a-z0-9_]+):>@isS');
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences d'idiomes : on ne fait rien
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-
-		return $collection;
-	}
-
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 *   bool $collecter_liens
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		if (!$texte) {
-			return [];
-		}
-
-		// collecter les matchs de la preg
-		$idiomes = $this->collecteur($texte, '', '<:', $this->preg_idiome, empty($options['detecter_presence']) ? 0 : 1);
-
-		// si on veut seulement detecter la présence, on peut retourner tel quel
-		if (empty($options['detecter_presence'])) {
-
-			$pos_prev = 0;
-			foreach ($idiomes as $k => &$idiome) {
-
-				$idiome['module'] = $idiome['match'][1];
-				$idiome['chaine'] = $idiome['match'][2];
-			}
-		}
-
-		return $idiomes;
-	}
-
-	/**
-	 * Traiter les idiomes d'un texte
-	 *
-	 * @uses inc_traduire_dist()
-	 * @uses code_echappement()
-	 * @uses echappe_retour()
-	 *
-	 * @param string $texte
-	 * @param array $options
-	 *   ?string $lang
-	 *   ?bool echappe_span
-	 * @return string
-	 */
-	public function traiter(string $texte, array $options) {
-		static $traduire;
-		if ($texte) {
-
-			$idiomes = $this->collecter($texte);
-			if (!empty($idiomes)) {
-				$lang = $options['lang'] ?? $GLOBALS['spip_lang'];
-				$echappe_span = $options['echappe_span'] ?? false;
-
-				if (is_null($traduire)) {
-					$traduire = charger_fonction('traduire', 'inc');
-					include_spip('inc/lang');
-				}
-
-				$offset_pos = 0;
-				foreach ($idiomes as $idiome) {
-
-					$cle = ($idiome['module'] ? $idiome['module'] . ':' : '') . $idiome['chaine'];
-					$desc = $traduire($cle, $lang, true);
-					$l = $desc->langue;
-
-					// si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
-					if (strlen($desc->texte ?? '')) {
-						$trad = code_echappement($desc->texte, 'idiome', false);
-						if ($l !== $lang) {
-							$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-						}
-						if (lang_dir($l) !== lang_dir($lang)) {
-							$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-						}
-						if (!$echappe_span) {
-							$trad = echappe_retour($trad, 'idiome');
-						}
-						$texte = substr_replace($texte, $trad, $idiome['pos'] + $offset_pos, $idiome['length']);
-						$offset_pos += strlen($trad) - $idiome['length'];
-					}
-
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'IDIOME';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_idiome;
+
+    public function __construct(?string $preg = null) {
+
+        $this->preg_idiome = ($preg ?: '@<:(?:([a-z0-9_]+):)?([a-z0-9_]+):>@isS');
+    }
+
+    /**
+     * Sanitizer une collection d'occurences d'idiomes : on ne fait rien
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+
+        return $collection;
+    }
+
+
+    /**
+     * @param string $texte
+     * @param array $options
+     *   bool $collecter_liens
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        if (!$texte) {
+            return [];
+        }
+
+        // collecter les matchs de la preg
+        $idiomes = $this->collecteur($texte, '', '<:', $this->preg_idiome, empty($options['detecter_presence']) ? 0 : 1);
+
+        // si on veut seulement detecter la présence, on peut retourner tel quel
+        if (empty($options['detecter_presence'])) {
+
+            $pos_prev = 0;
+            foreach ($idiomes as $k => &$idiome) {
+
+                $idiome['module'] = $idiome['match'][1];
+                $idiome['chaine'] = $idiome['match'][2];
+            }
+        }
+
+        return $idiomes;
+    }
+
+    /**
+     * Traiter les idiomes d'un texte
+     *
+     * @uses inc_traduire_dist()
+     * @uses code_echappement()
+     * @uses echappe_retour()
+     *
+     * @param string $texte
+     * @param array $options
+     *   ?string $lang
+     *   ?bool echappe_span
+     * @return string
+     */
+    public function traiter(string $texte, array $options) {
+        static $traduire;
+        if ($texte) {
+
+            $idiomes = $this->collecter($texte);
+            if (!empty($idiomes)) {
+                $lang = $options['lang'] ?? $GLOBALS['spip_lang'];
+                $echappe_span = $options['echappe_span'] ?? false;
+
+                if (is_null($traduire)) {
+                    $traduire = charger_fonction('traduire', 'inc');
+                    include_spip('inc/lang');
+                }
+
+                $offset_pos = 0;
+                foreach ($idiomes as $idiome) {
+
+                    $cle = ($idiome['module'] ? $idiome['module'] . ':' : '') . $idiome['chaine'];
+                    $desc = $traduire($cle, $lang, true);
+                    $l = $desc->langue;
+
+                    // si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
+                    if (strlen($desc->texte ?? '')) {
+                        $trad = code_echappement($desc->texte, 'idiome', false);
+                        if ($l !== $lang) {
+                            $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                        }
+                        if (lang_dir($l) !== lang_dir($lang)) {
+                            $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                        }
+                        if (!$echappe_span) {
+                            $trad = echappe_retour($trad, 'idiome');
+                        }
+                        $texte = substr_replace($texte, $trad, $idiome['pos'] + $offset_pos, $idiome['length']);
+                        $offset_pos += strlen($trad) - $idiome['length'];
+                    }
+
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }

ecrire/src/Texte/Collecteur/Modeles.php

Indentation +197 added lines, -197 removed lines

@@ -22,202 +22,202 @@
  */
 class Modeles extends AbstractCollecteur {
 
-	protected static string $markPrefix = 'MODELE';
-
-	/**
-	 * La preg pour découper et collecter les modèles
-	 * @var string
-	 */
-	protected string $preg_modele;
-
-	public function __construct(?string $preg = null) {
-
-		$this->preg_modele = ($preg ?:
-			'@<([a-z_-]{3,})' # <modele
-			. '\s*([0-9]*)\s*' # id
-			. '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
-			. '\s*/?' . '>@isS' # fin du modele >
-		);
-	}
-
-	/**
-	 * Sanitizer une collection d'occurences de modèle : on ne fait rien
-	 *
-	 * @param array $collection
-	 * @param string $sanitize_callback
-	 * @return array
-	 */
-	protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
-
-		return $collection;
-	}
-
-	/**
-	 * @param string $texte
-	 * @param array $options
-	 *   bool $collecter_liens
-	 * @return array
-	 */
-	public function collecter(string $texte, array $options = []): array {
-		if (!$texte) {
-			return [];
-		}
-
-		// collecter les matchs de la preg
-		$modeles = $this->collecteur($texte, '', '<', $this->preg_modele);
-
-		$pos_prev = 0;
-		foreach ($modeles as $k => &$modele) {
-			$pos = $modele['pos'];
-			$modele['type'] = $modele['match'][1];
-			$modele['id'] = $modele['match'][2] ?? '';
-			$modele['params'] = $modele['match'][3] ?? '';
-
-			$longueur = $modele['length'];
-			$end = $pos + $longueur;
-
-			// il faut avoir un id ou des params commençant par un | sinon c'est une simple balise html
-			if (empty($modele['id']) and empty($modele['params'])) {
-				unset($modeles[$k]);
-				continue;
-			}
-
-			// si on veut seulement detecter la présence, on peut retourner tel quel
-			if (!empty($options['detecter_presence'])) {
-				break;
-			}
-
-			$modele['lien'] = false;
-			if (!empty($options['collecter_liens'])
-				and $pos_fermeture_lien = stripos($texte, '</a>', $end)
-				and !strlen(trim(substr($texte, $end, $pos_fermeture_lien - $end)))) {
-
-				$pos_lien_ouvrant = stripos($texte, '<a', $pos_prev);
-				if ($pos_lien_ouvrant !== false
-					and $pos_lien_ouvrant < $pos
-					and preg_match('/<a\s[^<>]*>\s*$/i', substr($texte, $pos_prev, $pos - $pos_prev), $r)
-				) {
-					$modele['lien'] = [
-						'href' => extraire_attribut($r[0], 'href'),
-						'class' => extraire_attribut($r[0], 'class'),
-						'mime' => extraire_attribut($r[0], 'type'),
-						'title' => extraire_attribut($r[0], 'title'),
-						'hreflang' => extraire_attribut($r[0], 'hreflang')
-					];
-					$n = strlen($r[0]);
-					$pos -= $n;
-					$longueur = $pos_fermeture_lien - $pos + 4;
-					$end = $pos + $longueur;
-				}
-			}
-
-
-			$modele['pos'] = $pos;
-			$modele['length'] = $longueur;
-			$pos_prev = $end;
-		}
-
-		return $modeles;
-	}
-
-	/**
-	 * Traiter les modeles d'un texte
-	 * @param string $texte
-	 * @param array $options
-	 *   bool|array $doublons
-	 *   string $echap
-	 *   ?Spip\Texte\CollecteurLiens $collecteurLiens
-	 *   ?array $env
-	 *   ?string $connect
-	 * @return string
-	 */
-	public function traiter(string $texte, array $options) {
-		if ($texte) {
-			$doublons = $options['doublons'] ?? false;
-			$echap = $options['echap'] ?? '';
-			$collecteurLiens = $options['collecteurLiens'] ?? null;
-			$env = $options['env'] ?? [];
-			$connect = $options['connect'] ?? '';
-
-			// preserver la compatibilite : true = recherche des documents
-			if ($doublons === true) {
-				$doublons = ['documents' => ['doc', 'emb', 'img']];
-			}
-
-			$modeles = $this->collecter($texte, ['collecter_liens' => true]);
-			if (!empty($modeles)) {
-				include_spip('public/assembler');
-				$wrap_embed_html = charger_fonction('wrap_embed_html', 'inc', true);
-
-				$offset_pos = 0;
-				foreach ($modeles as $m) {
-					// calculer le modele
-					# hack indexation
-					if ($doublons) {
-						$texte .= preg_replace(',[|][^|=]*,s', ' ', $m['params']);
-					} # version normale
-					else {
-						// si un tableau de liens a ete passe, reinjecter le contenu d'origine
-						// dans les parametres, plutot que les liens echappes
-						$params = $m['params'];
-						if (!is_null($collecteurLiens)) {
-							$params = $collecteurLiens->retablir($params);
-						}
-
-						$modele = inclure_modele($m['type'], $m['id'], $params, $m['lien'], $connect ?? '', $env);
-
-						// en cas d'echec,
-						// si l'objet demande a une url,
-						// creer un petit encadre vers elle
-						if ($modele === false) {
-							$modele = $m['raw'];
-
-							if (!is_null($collecteurLiens)) {
-								$modele = $collecteurLiens->retablir($modele);
-							}
-
-							$contexte = array_merge($env, ['id' => $m['id'], 'type' => $m['type'], 'modele' => $modele]);
-
-							if (!empty($m['lien'])) {
-								# un eventuel guillemet (") sera reechappe par #ENV
-								$contexte['lien'] = str_replace('&quot;', '"', $m['lien']['href']);
-								$contexte['lien_class'] = $m['lien']['class'];
-								$contexte['lien_mime'] = $m['lien']['mime'];
-								$contexte['lien_title'] = $m['lien']['title'];
-								$contexte['lien_hreflang'] = $m['lien']['hreflang'];
-							}
-
-							$modele = recuperer_fond('modeles/dist', $contexte, [], $connect ?? '');
-						}
-
-						// le remplacer dans le texte
-						if ($modele !== false) {
-							$modele = protege_js_modeles($modele);
-
-							if ($wrap_embed_html) {
-								$modele = $wrap_embed_html($m['raw'], $modele);
-							}
-
-							$rempl = code_echappement($modele, $echap);
-							$texte = substr_replace($texte, $rempl, $m['pos'] + $offset_pos, $m['length']);
-							$offset_pos += strlen($rempl) - $m['length'];
-						}
-					}
-
-					// hack pour tout l'espace prive
-					if ((test_espace_prive() or ($doublons)) and !empty($m['id'])) {
-						$type = strtolower($m['type']);
-						foreach ($doublons ?: ['documents' => ['doc', 'emb', 'img']] as $quoi => $type_modeles) {
-							if (in_array($type, $type_modeles)) {
-								$GLOBALS["doublons_{$quoi}_inclus"][] = $m['id'];
-							}
-						}
-					}
-				}
-			}
-		}
-
-		return $texte;
-	}
+    protected static string $markPrefix = 'MODELE';
+
+    /**
+     * La preg pour découper et collecter les modèles
+     * @var string
+     */
+    protected string $preg_modele;
+
+    public function __construct(?string $preg = null) {
+
+        $this->preg_modele = ($preg ?:
+            '@<([a-z_-]{3,})' # <modele
+            . '\s*([0-9]*)\s*' # id
+            . '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
+            . '\s*/?' . '>@isS' # fin du modele >
+        );
+    }
+
+    /**
+     * Sanitizer une collection d'occurences de modèle : on ne fait rien
+     *
+     * @param array $collection
+     * @param string $sanitize_callback
+     * @return array
+     */
+    protected function sanitizer_collection(array $collection, string $sanitize_callback): array {
+
+        return $collection;
+    }
+
+    /**
+     * @param string $texte
+     * @param array $options
+     *   bool $collecter_liens
+     * @return array
+     */
+    public function collecter(string $texte, array $options = []): array {
+        if (!$texte) {
+            return [];
+        }
+
+        // collecter les matchs de la preg
+        $modeles = $this->collecteur($texte, '', '<', $this->preg_modele);
+
+        $pos_prev = 0;
+        foreach ($modeles as $k => &$modele) {
+            $pos = $modele['pos'];
+            $modele['type'] = $modele['match'][1];
+            $modele['id'] = $modele['match'][2] ?? '';
+            $modele['params'] = $modele['match'][3] ?? '';
+
+            $longueur = $modele['length'];
+            $end = $pos + $longueur;
+
+            // il faut avoir un id ou des params commençant par un | sinon c'est une simple balise html
+            if (empty($modele['id']) and empty($modele['params'])) {
+                unset($modeles[$k]);
+                continue;
+            }
+
+            // si on veut seulement detecter la présence, on peut retourner tel quel
+            if (!empty($options['detecter_presence'])) {
+                break;
+            }
+
+            $modele['lien'] = false;
+            if (!empty($options['collecter_liens'])
+                and $pos_fermeture_lien = stripos($texte, '</a>', $end)
+                and !strlen(trim(substr($texte, $end, $pos_fermeture_lien - $end)))) {
+
+                $pos_lien_ouvrant = stripos($texte, '<a', $pos_prev);
+                if ($pos_lien_ouvrant !== false
+                    and $pos_lien_ouvrant < $pos
+                    and preg_match('/<a\s[^<>]*>\s*$/i', substr($texte, $pos_prev, $pos - $pos_prev), $r)
+                ) {
+                    $modele['lien'] = [
+                        'href' => extraire_attribut($r[0], 'href'),
+                        'class' => extraire_attribut($r[0], 'class'),
+                        'mime' => extraire_attribut($r[0], 'type'),
+                        'title' => extraire_attribut($r[0], 'title'),
+                        'hreflang' => extraire_attribut($r[0], 'hreflang')
+                    ];
+                    $n = strlen($r[0]);
+                    $pos -= $n;
+                    $longueur = $pos_fermeture_lien - $pos + 4;
+                    $end = $pos + $longueur;
+                }
+            }
+
+
+            $modele['pos'] = $pos;
+            $modele['length'] = $longueur;
+            $pos_prev = $end;
+        }
+
+        return $modeles;
+    }
+
+    /**
+     * Traiter les modeles d'un texte
+     * @param string $texte
+     * @param array $options
+     *   bool|array $doublons
+     *   string $echap
+     *   ?Spip\Texte\CollecteurLiens $collecteurLiens
+     *   ?array $env
+     *   ?string $connect
+     * @return string
+     */
+    public function traiter(string $texte, array $options) {
+        if ($texte) {
+            $doublons = $options['doublons'] ?? false;
+            $echap = $options['echap'] ?? '';
+            $collecteurLiens = $options['collecteurLiens'] ?? null;
+            $env = $options['env'] ?? [];
+            $connect = $options['connect'] ?? '';
+
+            // preserver la compatibilite : true = recherche des documents
+            if ($doublons === true) {
+                $doublons = ['documents' => ['doc', 'emb', 'img']];
+            }
+
+            $modeles = $this->collecter($texte, ['collecter_liens' => true]);
+            if (!empty($modeles)) {
+                include_spip('public/assembler');
+                $wrap_embed_html = charger_fonction('wrap_embed_html', 'inc', true);
+
+                $offset_pos = 0;
+                foreach ($modeles as $m) {
+                    // calculer le modele
+                    # hack indexation
+                    if ($doublons) {
+                        $texte .= preg_replace(',[|][^|=]*,s', ' ', $m['params']);
+                    } # version normale
+                    else {
+                        // si un tableau de liens a ete passe, reinjecter le contenu d'origine
+                        // dans les parametres, plutot que les liens echappes
+                        $params = $m['params'];
+                        if (!is_null($collecteurLiens)) {
+                            $params = $collecteurLiens->retablir($params);
+                        }
+
+                        $modele = inclure_modele($m['type'], $m['id'], $params, $m['lien'], $connect ?? '', $env);
+
+                        // en cas d'echec,
+                        // si l'objet demande a une url,
+                        // creer un petit encadre vers elle
+                        if ($modele === false) {
+                            $modele = $m['raw'];
+
+                            if (!is_null($collecteurLiens)) {
+                                $modele = $collecteurLiens->retablir($modele);
+                            }
+
+                            $contexte = array_merge($env, ['id' => $m['id'], 'type' => $m['type'], 'modele' => $modele]);
+
+                            if (!empty($m['lien'])) {
+                                # un eventuel guillemet (") sera reechappe par #ENV
+                                $contexte['lien'] = str_replace('&quot;', '"', $m['lien']['href']);
+                                $contexte['lien_class'] = $m['lien']['class'];
+                                $contexte['lien_mime'] = $m['lien']['mime'];
+                                $contexte['lien_title'] = $m['lien']['title'];
+                                $contexte['lien_hreflang'] = $m['lien']['hreflang'];
+                            }
+
+                            $modele = recuperer_fond('modeles/dist', $contexte, [], $connect ?? '');
+                        }
+
+                        // le remplacer dans le texte
+                        if ($modele !== false) {
+                            $modele = protege_js_modeles($modele);
+
+                            if ($wrap_embed_html) {
+                                $modele = $wrap_embed_html($m['raw'], $modele);
+                            }
+
+                            $rempl = code_echappement($modele, $echap);
+                            $texte = substr_replace($texte, $rempl, $m['pos'] + $offset_pos, $m['length']);
+                            $offset_pos += strlen($rempl) - $m['length'];
+                        }
+                    }
+
+                    // hack pour tout l'espace prive
+                    if ((test_espace_prive() or ($doublons)) and !empty($m['id'])) {
+                        $type = strtolower($m['type']);
+                        foreach ($doublons ?: ['documents' => ['doc', 'emb', 'img']] as $quoi => $type_modeles) {
+                            if (in_array($type, $type_modeles)) {
+                                $GLOBALS["doublons_{$quoi}_inclus"][] = $m['id'];
+                            }
+                        }
+                    }
+                }
+            }
+        }
+
+        return $texte;
+    }
 
 }