spip / SPIP

ecrire/base/dump.php

Indentation +531 added lines, -531 removed lines

@@ -16,7 +16,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 define('_VERSION_ARCHIVE', '1.3');
@@ -37,7 +37,7 @@ 
  * @return string
  **/
 function base_dump_meta_name($rub) {
-	return $meta = "status_dump_{$rub}_" . abs($GLOBALS['visiteur_session']['id_auteur']);
+    return $meta = "status_dump_{$rub}_" . abs($GLOBALS['visiteur_session']['id_auteur']);
 }
 
 /**
@@ -52,14 +52,14 @@ 
  * @return string
  **/
 function base_dump_dir($meta) {
-	include_spip('inc/documents');
-	// determine upload va aussi initialiser l'index "restreint"
-	$maindir = determine_upload();
-	if (!$GLOBALS['visiteur_session']['restreint']) {
-		$maindir = _DIR_DUMP;
-	}
-
-	return sous_repertoire($maindir, $meta);
+    include_spip('inc/documents');
+    // determine upload va aussi initialiser l'index "restreint"
+    $maindir = determine_upload();
+    if (!$GLOBALS['visiteur_session']['restreint']) {
+        $maindir = _DIR_DUMP;
+    }
+
+    return sous_repertoire($maindir, $meta);
 }
 
 /**
@@ -73,28 +73,28 @@ 
  * @return array
  */
 function base_lister_toutes_tables(
-	$serveur = '',
-	$tables = [],
-	$exclude = [],
-	$affiche_vrai_prefixe = false
+    $serveur = '',
+    $tables = [],
+    $exclude = [],
+    $affiche_vrai_prefixe = false
 ) {
-	spip_connect($serveur);
-	$connexion = $GLOBALS['connexions'][$serveur ?: 0];
-	$prefixe = $connexion['prefixe'];
-
-	$p = '/^' . $prefixe . '/';
-	$res = $tables;
-	foreach (sql_alltable(null, $serveur) as $t) {
-		if (preg_match($p, (string) $t)) {
-			$t1 = preg_replace($p, 'spip', (string) $t);
-			if (!in_array($t1, $tables) && !in_array($t1, $exclude)) {
-				$res[] = ($affiche_vrai_prefixe ? $t : $t1);
-			}
-		}
-	}
-	sort($res);
-
-	return $res;
+    spip_connect($serveur);
+    $connexion = $GLOBALS['connexions'][$serveur ?: 0];
+    $prefixe = $connexion['prefixe'];
+
+    $p = '/^' . $prefixe . '/';
+    $res = $tables;
+    foreach (sql_alltable(null, $serveur) as $t) {
+        if (preg_match($p, (string) $t)) {
+            $t1 = preg_replace($p, 'spip', (string) $t);
+            if (!in_array($t1, $tables) && !in_array($t1, $exclude)) {
+                $res[] = ($affiche_vrai_prefixe ? $t : $t1);
+            }
+        }
+    }
+    sort($res);
+
+    return $res;
 }
 
 /**
@@ -104,10 +104,10 @@ 
  * @return string
  */
 function base_prefixe_tables($serveur = '') {
-	spip_connect($serveur);
-	$connexion = $GLOBALS['connexions'][$serveur ?: 0];
+    spip_connect($serveur);
+    $connexion = $GLOBALS['connexions'][$serveur ?: 0];
 
-	return $connexion['prefixe'];
+    return $connexion['prefixe'];
 }
 
 
@@ -122,26 +122,26 @@ 
  * @return array
  */
 function base_saisie_tables($name, $tables, $exclude = [], $post = null, $serveur = '') {
-	include_spip('inc/filtres');
-	$res = [];
-	foreach ($tables as $k => $t) {
-		// par defaut tout est coche sauf les tables dans $exclude
-		$check = is_null($post) ? !in_array($t, $exclude) : in_array($t, $post);
-
-		$res[$k] = "<input type='checkbox' value='$t' name='$name"
-			. "[]' id='$name$k'"
-			. ($check ? " checked='checked'" : '')
-			. "/>\n"
-			. "<label for='$name$k'>$t</label>"
-			. ' ('
-			. sinon(
-				singulier_ou_pluriel(sql_countsel($t, '', '', '', $serveur), 'dump:une_donnee', 'dump:nb_donnees'),
-				_T('dump:aucune_donnee')
-			)
-			. ')';
-	}
-
-	return $res;
+    include_spip('inc/filtres');
+    $res = [];
+    foreach ($tables as $k => $t) {
+        // par defaut tout est coche sauf les tables dans $exclude
+        $check = is_null($post) ? !in_array($t, $exclude) : in_array($t, $post);
+
+        $res[$k] = "<input type='checkbox' value='$t' name='$name"
+            . "[]' id='$name$k'"
+            . ($check ? " checked='checked'" : '')
+            . "/>\n"
+            . "<label for='$name$k'>$t</label>"
+            . ' ('
+            . sinon(
+                singulier_ou_pluriel(sql_countsel($t, '', '', '', $serveur), 'dump:une_donnee', 'dump:nb_donnees'),
+                _T('dump:aucune_donnee')
+            )
+            . ')';
+    }
+
+    return $res;
 }
 
 
@@ -153,27 +153,27 @@ 
  * @return array
  */
 function lister_tables_noexport() {
-	// par defaut tout est exporte sauf les tables ci-dessous
-	static $EXPORT_tables_noexport = null;
-	if (!is_null($EXPORT_tables_noexport)) {
-		return $EXPORT_tables_noexport;
-	}
-
-	$EXPORT_tables_noexport = [
-		'spip_caches', // plugin invalideur
-		'spip_resultats', // resultats de recherche ... c'est un cache !
-		'spip_test', // c'est un test !
-		#'spip_referers',
-		#'spip_referers_articles',
-		#'spip_visites',
-		#'spip_visites_articles',
-		#'spip_versions',
-		#'spip_versions_fragments'
-	];
-
-	$EXPORT_tables_noexport = pipeline('lister_tables_noexport', $EXPORT_tables_noexport);
-
-	return $EXPORT_tables_noexport;
+    // par defaut tout est exporte sauf les tables ci-dessous
+    static $EXPORT_tables_noexport = null;
+    if (!is_null($EXPORT_tables_noexport)) {
+        return $EXPORT_tables_noexport;
+    }
+
+    $EXPORT_tables_noexport = [
+        'spip_caches', // plugin invalideur
+        'spip_resultats', // resultats de recherche ... c'est un cache !
+        'spip_test', // c'est un test !
+        #'spip_referers',
+        #'spip_referers_articles',
+        #'spip_visites',
+        #'spip_visites_articles',
+        #'spip_versions',
+        #'spip_versions_fragments'
+    ];
+
+    $EXPORT_tables_noexport = pipeline('lister_tables_noexport', $EXPORT_tables_noexport);
+
+    return $EXPORT_tables_noexport;
 }
 
 /**
@@ -184,25 +184,25 @@ 
  * @return array
  */
 function lister_tables_noimport() {
-	static $IMPORT_tables_noimport = null;
-	if (!is_null($IMPORT_tables_noimport)) {
-		return $IMPORT_tables_noimport;
-	}
-
-	$IMPORT_tables_noimport = [];
-	// par defaut tout est importe sauf les tables ci-dessous
-	// possibiliter de definir cela tables via la meta
-	// compatibilite
-	if (isset($GLOBALS['meta']['IMPORT_tables_noimport'])) {
-		$IMPORT_tables_noimport = unserialize($GLOBALS['meta']['IMPORT_tables_noimport']);
-		if (!is_array($IMPORT_tables_noimport)) {
-			include_spip('inc/meta');
-			effacer_meta('IMPORT_tables_noimport');
-		}
-	}
-	$IMPORT_tables_noimport = pipeline('lister_tables_noimport', $IMPORT_tables_noimport);
-
-	return $IMPORT_tables_noimport;
+    static $IMPORT_tables_noimport = null;
+    if (!is_null($IMPORT_tables_noimport)) {
+        return $IMPORT_tables_noimport;
+    }
+
+    $IMPORT_tables_noimport = [];
+    // par defaut tout est importe sauf les tables ci-dessous
+    // possibiliter de definir cela tables via la meta
+    // compatibilite
+    if (isset($GLOBALS['meta']['IMPORT_tables_noimport'])) {
+        $IMPORT_tables_noimport = unserialize($GLOBALS['meta']['IMPORT_tables_noimport']);
+        if (!is_array($IMPORT_tables_noimport)) {
+            include_spip('inc/meta');
+            effacer_meta('IMPORT_tables_noimport');
+        }
+    }
+    $IMPORT_tables_noimport = pipeline('lister_tables_noimport', $IMPORT_tables_noimport);
+
+    return $IMPORT_tables_noimport;
 }
 
 
@@ -214,23 +214,23 @@ 
  * @return array
  */
 function lister_tables_noerase() {
-	static $IMPORT_tables_noerase = null;
-	if (!is_null($IMPORT_tables_noerase)) {
-		return $IMPORT_tables_noerase;
-	}
-
-	$IMPORT_tables_noerase = [
-		'spip_meta',
-		// par defaut on ne vide pas les stats, car elles ne figurent pas dans les dump
-		// et le cas echeant, un bouton dans l'admin permet de les vider a la main...
-		'spip_referers',
-		'spip_referers_articles',
-		'spip_visites',
-		'spip_visites_articles'
-	];
-	$IMPORT_tables_noerase = pipeline('lister_tables_noerase', $IMPORT_tables_noerase);
-
-	return $IMPORT_tables_noerase;
+    static $IMPORT_tables_noerase = null;
+    if (!is_null($IMPORT_tables_noerase)) {
+        return $IMPORT_tables_noerase;
+    }
+
+    $IMPORT_tables_noerase = [
+        'spip_meta',
+        // par defaut on ne vide pas les stats, car elles ne figurent pas dans les dump
+        // et le cas echeant, un bouton dans l'admin permet de les vider a la main...
+        'spip_referers',
+        'spip_referers_articles',
+        'spip_visites',
+        'spip_visites_articles'
+    ];
+    $IMPORT_tables_noerase = pipeline('lister_tables_noerase', $IMPORT_tables_noerase);
+
+    return $IMPORT_tables_noerase;
 }
 
 
@@ -244,86 +244,86 @@ 
  * @return array
  */
 function base_liste_table_for_dump($exclude_tables = []) {
-	$tables_for_dump = [];
-	$tables_pointees = [];
-	$tables = [];
-	$tables_principales = $GLOBALS['tables_principales'];
-	$tables_auxiliaires = $GLOBALS['tables_auxiliaires'];
-	$tables_jointures = $GLOBALS['tables_jointures'];
-
-	if (
-		include_spip('base/objets')
-		&& function_exists('lister_tables_objets_sql')
-	) {
-		$tables = lister_tables_objets_sql();
-		foreach ($tables as $t => $infos) {
-			if ($infos['principale'] && !isset($tables_principales[$t])) {
-				$tables_principales[$t] = true;
-			}
-			if (!$infos['principale'] && !isset($tables_auxiliaires[$t])) {
-				$tables_auxiliaires[$t] = true;
-			}
-			if (is_countable($infos['tables_jointures']) ? count($infos['tables_jointures']) : 0) {
-				$tables_jointures[$t] = array_merge(
-					$tables_jointures[$t] ?? [],
-					$infos['tables_jointures']
-				);
-			}
-		}
-	}
-
-	// on construit un index des tables de liens
-	// pour les ajouter SI les deux tables qu'ils connectent sont sauvegardees
-	$tables_for_link = [];
-	foreach ($tables_jointures as $table => $liste_relations) {
-		if (is_array($liste_relations)) {
-			$nom = $table;
-			if (!isset($tables_auxiliaires[$nom]) && !isset($tables_principales[$nom])) {
-				$nom = "spip_$table";
-			}
-			if (isset($tables_auxiliaires[$nom]) || isset($tables_principales[$nom])) {
-				foreach ($liste_relations as $link_table) {
-					if (isset($tables_auxiliaires[$link_table])/*||isset($tables_principales[$link_table])*/) {
-						$tables_for_link[$link_table][] = $nom;
-					} else {
-						if (isset($tables_auxiliaires["spip_$link_table"])/*||isset($tables_principales["spip_$link_table"])*/) {
-							$tables_for_link["spip_$link_table"][] = $nom;
-						}
-					}
-				}
-			}
-		}
-	}
-
-	$liste_tables = [...array_keys($tables_principales), ...array_keys($tables_auxiliaires), ...array_keys($tables)];
-	foreach ($liste_tables as $table) {
-		//		$name = preg_replace("{^spip_}","",$table);
-		if (
-			!isset($tables_pointees[$table])
-			&& !in_array($table, $exclude_tables)
-			&& !isset($tables_for_link[$table])
-		) {
-			$tables_for_dump[] = $table;
-			$tables_pointees[$table] = 1;
-		}
-	}
-	foreach ($tables_for_link as $link_table => $liste) {
-		$connecte = true;
-		foreach ($liste as $connect_table) {
-			if (!in_array($connect_table, $tables_for_dump)) {
-				$connecte = false;
-			}
-		}
-		if ($connecte) {
-			# on ajoute les liaisons en premier
-			# si une restauration est interrompue,
-			# cela se verra mieux si il manque des objets
-			# que des liens
-		array_unshift($tables_for_dump, $link_table);
-		}
-	}
-
-	return [$tables_for_dump, $tables_for_link];
+    $tables_for_dump = [];
+    $tables_pointees = [];
+    $tables = [];
+    $tables_principales = $GLOBALS['tables_principales'];
+    $tables_auxiliaires = $GLOBALS['tables_auxiliaires'];
+    $tables_jointures = $GLOBALS['tables_jointures'];
+
+    if (
+        include_spip('base/objets')
+        && function_exists('lister_tables_objets_sql')
+    ) {
+        $tables = lister_tables_objets_sql();
+        foreach ($tables as $t => $infos) {
+            if ($infos['principale'] && !isset($tables_principales[$t])) {
+                $tables_principales[$t] = true;
+            }
+            if (!$infos['principale'] && !isset($tables_auxiliaires[$t])) {
+                $tables_auxiliaires[$t] = true;
+            }
+            if (is_countable($infos['tables_jointures']) ? count($infos['tables_jointures']) : 0) {
+                $tables_jointures[$t] = array_merge(
+                    $tables_jointures[$t] ?? [],
+                    $infos['tables_jointures']
+                );
+            }
+        }
+    }
+
+    // on construit un index des tables de liens
+    // pour les ajouter SI les deux tables qu'ils connectent sont sauvegardees
+    $tables_for_link = [];
+    foreach ($tables_jointures as $table => $liste_relations) {
+        if (is_array($liste_relations)) {
+            $nom = $table;
+            if (!isset($tables_auxiliaires[$nom]) && !isset($tables_principales[$nom])) {
+                $nom = "spip_$table";
+            }
+            if (isset($tables_auxiliaires[$nom]) || isset($tables_principales[$nom])) {
+                foreach ($liste_relations as $link_table) {
+                    if (isset($tables_auxiliaires[$link_table])/*||isset($tables_principales[$link_table])*/) {
+                        $tables_for_link[$link_table][] = $nom;
+                    } else {
+                        if (isset($tables_auxiliaires["spip_$link_table"])/*||isset($tables_principales["spip_$link_table"])*/) {
+                            $tables_for_link["spip_$link_table"][] = $nom;
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    $liste_tables = [...array_keys($tables_principales), ...array_keys($tables_auxiliaires), ...array_keys($tables)];
+    foreach ($liste_tables as $table) {
+        //		$name = preg_replace("{^spip_}","",$table);
+        if (
+            !isset($tables_pointees[$table])
+            && !in_array($table, $exclude_tables)
+            && !isset($tables_for_link[$table])
+        ) {
+            $tables_for_dump[] = $table;
+            $tables_pointees[$table] = 1;
+        }
+    }
+    foreach ($tables_for_link as $link_table => $liste) {
+        $connecte = true;
+        foreach ($liste as $connect_table) {
+            if (!in_array($connect_table, $tables_for_dump)) {
+                $connecte = false;
+            }
+        }
+        if ($connecte) {
+            # on ajoute les liaisons en premier
+            # si une restauration est interrompue,
+            # cela se verra mieux si il manque des objets
+            # que des liens
+        array_unshift($tables_for_dump, $link_table);
+        }
+    }
+
+    return [$tables_for_dump, $tables_for_link];
 }
 
 /**
@@ -338,35 +338,35 @@ 
  * @param string $serveur
  */
 function base_vider_tables_destination_copie($tables, $exclure_tables = [], $serveur = '') {
-	$trouver_table = charger_fonction('trouver_table', 'base');
-
-	spip_log(
-		'Vider ' . count($tables) . " tables sur serveur '$serveur' : " . implode(', ', $tables),
-		'base.' . _LOG_INFO_IMPORTANTE
-	);
-	foreach ($tables as $table) {
-		// sur le serveur principal, il ne faut pas supprimer l'auteur loge !
-		if (!in_array($table, $exclure_tables) && ($table != 'spip_auteurs' || $serveur != '')) {
-			// regarder si il y a au moins un champ impt='non'
-			$desc = $trouver_table($table, $serveur);
-			if (isset($desc['field']['impt'])) {
-				sql_delete($table, "impt='oui'", $serveur);
-			} elseif ($desc) {
-				sql_delete($table, '', $serveur);
-			}
-		}
-	}
-
-	// sur le serveur principal, il ne faut pas supprimer l'auteur loge !
-	// Bidouille pour garder l'acces admin actuel pendant toute la restauration
-	if (
-		$serveur == ''
-		&& in_array('spip_auteurs', $tables)
-		&& !in_array('spip_auteurs', $exclure_tables)
-	) {
-		base_conserver_copieur(true, $serveur);
-		sql_delete('spip_auteurs', 'id_auteur>0', $serveur);
-	}
+    $trouver_table = charger_fonction('trouver_table', 'base');
+
+    spip_log(
+        'Vider ' . count($tables) . " tables sur serveur '$serveur' : " . implode(', ', $tables),
+        'base.' . _LOG_INFO_IMPORTANTE
+    );
+    foreach ($tables as $table) {
+        // sur le serveur principal, il ne faut pas supprimer l'auteur loge !
+        if (!in_array($table, $exclure_tables) && ($table != 'spip_auteurs' || $serveur != '')) {
+            // regarder si il y a au moins un champ impt='non'
+            $desc = $trouver_table($table, $serveur);
+            if (isset($desc['field']['impt'])) {
+                sql_delete($table, "impt='oui'", $serveur);
+            } elseif ($desc) {
+                sql_delete($table, '', $serveur);
+            }
+        }
+    }
+
+    // sur le serveur principal, il ne faut pas supprimer l'auteur loge !
+    // Bidouille pour garder l'acces admin actuel pendant toute la restauration
+    if (
+        $serveur == ''
+        && in_array('spip_auteurs', $tables)
+        && !in_array('spip_auteurs', $exclure_tables)
+    ) {
+        base_conserver_copieur(true, $serveur);
+        sql_delete('spip_auteurs', 'id_auteur>0', $serveur);
+    }
 }
 
 /**
@@ -377,36 +377,36 @@ 
  * @return void
  */
 function base_conserver_copieur($move = true, $serveur = '') {
-	// s'asurer qu'on a pas deja fait la manip !
-	if ($GLOBALS['visiteur_session']['id_auteur'] > 0 && sql_countsel('spip_auteurs', 'id_auteur>0')) {
-		spip_log(
-			'Conserver copieur dans id_auteur=' . $GLOBALS['visiteur_session']['id_auteur'] . " pour le serveur '$serveur'",
-			'dump.' . _LOG_INFO_IMPORTANTE
-		);
-		sql_delete('spip_auteurs', 'id_auteur<0', $serveur);
-		if ($move) {
-			sql_updateq(
-				'spip_auteurs',
-				['id_auteur' => -$GLOBALS['visiteur_session']['id_auteur']],
-				'id_auteur=' . (int) $GLOBALS['visiteur_session']['id_auteur'],
-				[],
-				$serveur
-			);
-		} else {
-			$row = sql_fetsel(
-				'*',
-				'spip_auteurs',
-				'id_auteur=' . $GLOBALS['visiteur_session']['id_auteur'],
-				'',
-				'',
-				'',
-				'',
-				$serveur
-			);
-			$row['id_auteur'] = -$GLOBALS['visiteur_session']['id_auteur'];
-			sql_insertq('spip_auteurs', $row, [], $serveur);
-		}
-	}
+    // s'asurer qu'on a pas deja fait la manip !
+    if ($GLOBALS['visiteur_session']['id_auteur'] > 0 && sql_countsel('spip_auteurs', 'id_auteur>0')) {
+        spip_log(
+            'Conserver copieur dans id_auteur=' . $GLOBALS['visiteur_session']['id_auteur'] . " pour le serveur '$serveur'",
+            'dump.' . _LOG_INFO_IMPORTANTE
+        );
+        sql_delete('spip_auteurs', 'id_auteur<0', $serveur);
+        if ($move) {
+            sql_updateq(
+                'spip_auteurs',
+                ['id_auteur' => -$GLOBALS['visiteur_session']['id_auteur']],
+                'id_auteur=' . (int) $GLOBALS['visiteur_session']['id_auteur'],
+                [],
+                $serveur
+            );
+        } else {
+            $row = sql_fetsel(
+                '*',
+                'spip_auteurs',
+                'id_auteur=' . $GLOBALS['visiteur_session']['id_auteur'],
+                '',
+                '',
+                '',
+                '',
+                $serveur
+            );
+            $row['id_auteur'] = -$GLOBALS['visiteur_session']['id_auteur'];
+            sql_insertq('spip_auteurs', $row, [], $serveur);
+        }
+    }
 }
 
 /**
@@ -421,21 +421,21 @@ 
  * @param string $serveur
  */
 function base_detruire_copieur_si_besoin($serveur = '') {
-	// rien a faire si ce n'est pas le serveur principal !
-	if ($serveur == '') {
-		if (sql_countsel('spip_auteurs', 'id_auteur>0')) {
-			spip_log("Detruire copieur id_auteur<0 pour le serveur '$serveur'", 'dump.' . _LOG_INFO_IMPORTANTE);
-			sql_delete('spip_auteurs', 'id_auteur<0', $serveur);
-		} else {
-			spip_log(
-				"Restaurer copieur id_auteur<0 pour le serveur '$serveur' (aucun autre auteur en base)",
-				'dump.' . _LOG_INFO_IMPORTANTE
-			);
-			sql_update('spip_auteurs', ['id_auteur' => '-id_auteur'], 'id_auteur<0');
-		}
-	} else {
-		spip_log("Pas de destruction copieur sur serveur '$serveur'", 'dump.' . _LOG_INFO_IMPORTANTE);
-	}
+    // rien a faire si ce n'est pas le serveur principal !
+    if ($serveur == '') {
+        if (sql_countsel('spip_auteurs', 'id_auteur>0')) {
+            spip_log("Detruire copieur id_auteur<0 pour le serveur '$serveur'", 'dump.' . _LOG_INFO_IMPORTANTE);
+            sql_delete('spip_auteurs', 'id_auteur<0', $serveur);
+        } else {
+            spip_log(
+                "Restaurer copieur id_auteur<0 pour le serveur '$serveur' (aucun autre auteur en base)",
+                'dump.' . _LOG_INFO_IMPORTANTE
+            );
+            sql_update('spip_auteurs', ['id_auteur' => '-id_auteur'], 'id_auteur<0');
+        }
+    } else {
+        spip_log("Pas de destruction copieur sur serveur '$serveur'", 'dump.' . _LOG_INFO_IMPORTANTE);
+    }
 }
 
 /**
@@ -450,40 +450,40 @@ 
  * @return array
  */
 function base_preparer_table_dest($table, $desc, $serveur_dest, $init = false) {
-	$upgrade = false;
-	// si la table existe et qu'on est a l'init, la dropper
-	if (($desc_dest = sql_showtable($table, true, $serveur_dest)) && $init) {
-		if ($serveur_dest == '' && in_array($table, ['spip_meta', 'spip_auteurs'])) {
-			// ne pas dropper auteurs et meta sur le serveur principal
-			// faire un simple upgrade a la place
-			// pour ajouter les champs manquants
-			$upgrade = true;
-			// coherence avec le drop sur les autres tables
-			base_vider_tables_destination_copie([$table], [], $serveur_dest);
-			if ($table == 'spip_meta') {
-				// virer les version base qui vont venir avec l'import
-				sql_delete($table, "nom like '%_base_version'", $serveur_dest);
-				// hum casse la base si pas version_installee a l'import ...
-				sql_delete($table, "nom='version_installee'", $serveur_dest);
-			}
-		} else {
-			sql_drop_table($table, '', $serveur_dest);
-			spip_log("drop table '$table' sur serveur '$serveur_dest'", 'dump.' . _LOG_INFO_IMPORTANTE);
-		}
-		$desc_dest = false;
-	}
-	// si la table n'existe pas dans la destination, la creer a l'identique !
-	if (!$desc_dest) {
-		spip_log("creation '$table' sur serveur '$serveur_dest'", 'dump.' . _LOG_INFO_IMPORTANTE);
-		include_spip('base/create');
-		creer_ou_upgrader_table($table, $desc, 'auto', $upgrade, $serveur_dest);
-		$desc_dest = sql_showtable($table, true, $serveur_dest);
-	}
-	if (!$desc_dest) {
-		spip_log("Erreur creation '$table' sur serveur '$serveur_dest'" . var_export($desc, 1), 'dump.' . _LOG_ERREUR);
-	}
-
-	return $desc_dest;
+    $upgrade = false;
+    // si la table existe et qu'on est a l'init, la dropper
+    if (($desc_dest = sql_showtable($table, true, $serveur_dest)) && $init) {
+        if ($serveur_dest == '' && in_array($table, ['spip_meta', 'spip_auteurs'])) {
+            // ne pas dropper auteurs et meta sur le serveur principal
+            // faire un simple upgrade a la place
+            // pour ajouter les champs manquants
+            $upgrade = true;
+            // coherence avec le drop sur les autres tables
+            base_vider_tables_destination_copie([$table], [], $serveur_dest);
+            if ($table == 'spip_meta') {
+                // virer les version base qui vont venir avec l'import
+                sql_delete($table, "nom like '%_base_version'", $serveur_dest);
+                // hum casse la base si pas version_installee a l'import ...
+                sql_delete($table, "nom='version_installee'", $serveur_dest);
+            }
+        } else {
+            sql_drop_table($table, '', $serveur_dest);
+            spip_log("drop table '$table' sur serveur '$serveur_dest'", 'dump.' . _LOG_INFO_IMPORTANTE);
+        }
+        $desc_dest = false;
+    }
+    // si la table n'existe pas dans la destination, la creer a l'identique !
+    if (!$desc_dest) {
+        spip_log("creation '$table' sur serveur '$serveur_dest'", 'dump.' . _LOG_INFO_IMPORTANTE);
+        include_spip('base/create');
+        creer_ou_upgrader_table($table, $desc, 'auto', $upgrade, $serveur_dest);
+        $desc_dest = sql_showtable($table, true, $serveur_dest);
+    }
+    if (!$desc_dest) {
+        spip_log("Erreur creation '$table' sur serveur '$serveur_dest'" . var_export($desc, 1), 'dump.' . _LOG_ERREUR);
+    }
+
+    return $desc_dest;
 }
 
 /**
@@ -529,211 +529,211 @@ 
  */
 function base_copier_tables($status_file, $tables, $serveur_source, $serveur_dest, $options = []) {
 
-	$status = [];
-	$callback_progression = $options['callback_progression'] ?? '';
-	$max_time = $options['max_time'] ?? 0;
-	$drop_source = $options['drop_source'] ?? false;
-	$no_erase_dest = $options['no_erase_dest'] ?? [];
-	$where = $options['where'] ?? [];
-	$fonction_base_inserer = $options['fonction_base_inserer'] ?? 'inserer_copie';
-	$desc_tables_dest = $options['desc_tables_dest'] ?? [];
-	$racine_fonctions = $options['racine_fonctions_dest'] ?? 'base';
-	$data_pool = $options['data_pool'] ?? 50 * 1024;
-
-	spip_log(
-		'Copier ' . count($tables) . " tables de '$serveur_source' vers '$serveur_dest'",
-		'dump.' . _LOG_INFO_IMPORTANTE
-	);
-
-	if (!$inserer_copie = charger_fonction($fonction_base_inserer, $racine_fonctions, true)) {
-		spip_log("Fonction '{$racine_fonctions}_$fonction_base_inserer' inconnue. Abandon", 'dump.' . _LOG_INFO_IMPORTANTE);
-
-		return true; // echec mais on a fini, donc true
-	}
-	if (!$preparer_table_dest = charger_fonction('preparer_table_dest', $racine_fonctions, true)) {
-		spip_log("Fonction '{$racine_fonctions}_$preparer_table_dest' inconnue. Abandon", 'dump.' . _LOG_INFO_IMPORTANTE);
-
-		return true; // echec mais on a fini, donc true
-	}
-
-	if (
-		!lire_fichier($status_file, $status)
-		|| !($status = unserialize($status))
-	) {
-		$status = [];
-	}
-	$status['etape'] = 'basecopie';
-
-	// puis relister les tables a importer
-	// et les vider si besoin, au moment du premier passage ici
-	$initialisation_copie = $status['dump_status_copie'] ?? 0;
-
-	// si init pas encore faite, vider les tables du serveur destination
-	if (!$initialisation_copie) {
-		if (
-			!$vider_tables_destination_copie = charger_fonction(
-				'vider_tables_destination_copie',
-				$racine_fonctions,
-				true
-			)
-		) {
-			spip_log(
-				"Fonction '{$racine_fonctions}_vider_tables_destination_copie' inconnue. Abandon",
-				'dump.' . _LOG_INFO_IMPORTANTE
-			);
-
-			return true; // echec mais on a fini, donc true
-		}
-		$vider_tables_destination_copie($tables, $no_erase_dest, $serveur_dest);
-		$status['dump_status_copie'] = 'ok';
-		ecrire_fichier($status_file, serialize($status));
-	}
-
-	// les tables auteurs et meta doivent etre copiees en dernier !
-	if (in_array('spip_auteurs', $tables)) {
-		$tables = array_diff($tables, ['spip_auteurs']);
-		$tables[] = 'spip_auteurs';
-	}
-	if (in_array('spip_meta', $tables)) {
-		$tables = array_diff($tables, ['spip_meta']);
-		$tables[] = 'spip_meta';
-	}
-	spip_log('Tables a copier :' . implode(', ', $tables), 'dump.' . _LOG_INFO);
-
-	$trouver_table = charger_fonction('trouver_table', 'base');
-
-	foreach ($tables as $table) {
-		// si table commence par spip_ c'est une table SPIP, renommer le prefixe si besoin
-		// sinon chercher la vraie table
-		$desc_source = false;
-		if (str_starts_with((string) $table, 'spip_')) {
-			$desc_source = $trouver_table(preg_replace(',^spip_,', '', (string) $table), $serveur_source, true);
-		}
-		if (!$desc_source || !isset($desc_source['exist']) || !$desc_source['exist']) {
-			$desc_source = $trouver_table($table, $serveur_source, false);
-		}
-
-		// verifier que la table est presente dans la base source
-		if ($desc_source) {
-			// $status['tables_copiees'][$table] contient l'avancement
-			// de la copie pour la $table : 0 a N et -N quand elle est finie (-1 si vide et finie...)
-			if (!isset($status['tables_copiees'][$table])) {
-				$status['tables_copiees'][$table] = 0;
-			}
-
-			if (
-				is_numeric($status['tables_copiees'][$table])
-				&& $status['tables_copiees'][$table] >= 0
-				&& ($desc_dest = $preparer_table_dest(
-					$table,
-					$desc_tables_dest[$table] ?? $desc_source,
-					$serveur_dest,
-					$status['tables_copiees'][$table] == 0
-				))
-			) {
-				if ($callback_progression) {
-					$callback_progression($status['tables_copiees'][$table], 0, $table);
-				}
-				while (true) {
-					$n = (int) $status['tables_copiees'][$table];
-					// on copie par lot de 400
-					$res = sql_select(
-						'*',
-						$table,
-						$where[$table] ?? '',
-						'',
-						'',
-						"$n,400",
-						'',
-						$serveur_source
-					);
-					while ($row = sql_fetch($res, $serveur_source)) {
-						$rows = [$row];
-						// lire un groupe de donnees si demande en option
-						// (permet un envoi par lot vers la destination)
-						if ($data_pool > 0) {
-							$s = strlen(serialize($row));
-							while ($s < $data_pool && ($row = sql_fetch($res, $serveur_source))) {
-								$s += strlen(serialize($row));
-								$rows[] = $row;
-							}
-						}
-						// si l'enregistrement est deja en base, ca fera un echec ou un doublon
-						// mais si ca renvoie false c'est une erreur fatale => abandon
-						if ($inserer_copie($table, $rows, $desc_dest, $serveur_dest) === false) {
-							// forcer la sortie, charge a l'appelant de gerer l'echec
-							spip_log("Erreur fatale dans $inserer_copie table $table", 'dump' . _LOG_ERREUR);
-							$status['errors'][] = "Erreur fatale  lors de la copie de la table $table";
-							ecrire_fichier($status_file, serialize($status));
-
-							// copie finie
-							return true;
-						}
-						$status['tables_copiees'][$table] += count($rows);
-						if ($max_time && time() > $max_time) {
-							break;
-						}
-					}
-					if ($n == $status['tables_copiees'][$table]) {
-						break;
-					}
-					spip_log("recopie $table " . $status['tables_copiees'][$table], 'dump.' . _LOG_INFO_IMPORTANTE);
-					if ($callback_progression) {
-						$callback_progression($status['tables_copiees'][$table], 0, $table);
-					}
-					ecrire_fichier($status_file, serialize($status));
-					if ($max_time && time() > $max_time) {
-						return false;
-					} // on a pas fini, mais le temps imparti est ecoule
-				}
-				if ($drop_source) {
-					sql_drop_table($table, '', $serveur_source);
-					spip_log("drop $table sur serveur source '$serveur_source'", 'dump.' . _LOG_INFO_IMPORTANTE);
-				}
-				$status['tables_copiees'][$table] = ($status['tables_copiees'][$table] ? -$status['tables_copiees'][$table] : 'zero');
-				ecrire_fichier($status_file, serialize($status));
-				spip_log('tables_recopiees ' . implode(',', array_keys($status['tables_copiees'])), 'dump.' . _LOG_INFO);
-				if ($callback_progression) {
-					$callback_progression($status['tables_copiees'][$table], $status['tables_copiees'][$table], $table);
-				}
-			} else {
-				if ($status['tables_copiees'][$table] < 0) {
-					spip_log("Table $table deja copiee : " . $status['tables_copiees'][$table], 'dump.' . _LOG_INFO);
-				}
-				if ($callback_progression) {
-					$callback_progression(
-						0,
-						$status['tables_copiees'][$table],
-						"$table" . ((is_numeric($status['tables_copiees'][$table]) && $status['tables_copiees'][$table] >= 0) ? '[Echec]' : '')
-					);
-				}
-			}
-		} else {
-			$status['errors'][] = "Impossible de lire la description de la table $table";
-			ecrire_fichier($status_file, serialize($status));
-			spip_log("Impossible de lire la description de la table $table", 'dump.' . _LOG_ERREUR);
-		}
-	}
-
-	// si le nombre de tables envoyees n'est pas egal au nombre de tables demandees
-	// abandonner
-	if ((is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) < count($tables)) {
-		spip_log(
-			'Nombre de tables copiees incorrect : ' . (is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) . '/' . count($tables),
-			'dump.' . _LOG_ERREUR
-		);
-		$status['errors'][] = 'Nombre de tables copiees incorrect : ' . (is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) . '/' . count($tables);
-		ecrire_fichier($status_file, serialize($status));
-	}
-
-	if ($detruire_copieur_si_besoin = charger_fonction('detruire_copieur_si_besoin', $racine_fonctions, true)) {
-		$detruire_copieur_si_besoin($serveur_dest);
-	} else {
-		spip_log("Fonction '{$racine_fonctions}_detruire_copieur_si_besoin' inconnue.", 'dump.' . _LOG_INFO_IMPORTANTE);
-	}
-
-	// OK, copie complete
-	return true;
+    $status = [];
+    $callback_progression = $options['callback_progression'] ?? '';
+    $max_time = $options['max_time'] ?? 0;
+    $drop_source = $options['drop_source'] ?? false;
+    $no_erase_dest = $options['no_erase_dest'] ?? [];
+    $where = $options['where'] ?? [];
+    $fonction_base_inserer = $options['fonction_base_inserer'] ?? 'inserer_copie';
+    $desc_tables_dest = $options['desc_tables_dest'] ?? [];
+    $racine_fonctions = $options['racine_fonctions_dest'] ?? 'base';
+    $data_pool = $options['data_pool'] ?? 50 * 1024;
+
+    spip_log(
+        'Copier ' . count($tables) . " tables de '$serveur_source' vers '$serveur_dest'",
+        'dump.' . _LOG_INFO_IMPORTANTE
+    );
+
+    if (!$inserer_copie = charger_fonction($fonction_base_inserer, $racine_fonctions, true)) {
+        spip_log("Fonction '{$racine_fonctions}_$fonction_base_inserer' inconnue. Abandon", 'dump.' . _LOG_INFO_IMPORTANTE);
+
+        return true; // echec mais on a fini, donc true
+    }
+    if (!$preparer_table_dest = charger_fonction('preparer_table_dest', $racine_fonctions, true)) {
+        spip_log("Fonction '{$racine_fonctions}_$preparer_table_dest' inconnue. Abandon", 'dump.' . _LOG_INFO_IMPORTANTE);
+
+        return true; // echec mais on a fini, donc true
+    }
+
+    if (
+        !lire_fichier($status_file, $status)
+        || !($status = unserialize($status))
+    ) {
+        $status = [];
+    }
+    $status['etape'] = 'basecopie';
+
+    // puis relister les tables a importer
+    // et les vider si besoin, au moment du premier passage ici
+    $initialisation_copie = $status['dump_status_copie'] ?? 0;
+
+    // si init pas encore faite, vider les tables du serveur destination
+    if (!$initialisation_copie) {
+        if (
+            !$vider_tables_destination_copie = charger_fonction(
+                'vider_tables_destination_copie',
+                $racine_fonctions,
+                true
+            )
+        ) {
+            spip_log(
+                "Fonction '{$racine_fonctions}_vider_tables_destination_copie' inconnue. Abandon",
+                'dump.' . _LOG_INFO_IMPORTANTE
+            );
+
+            return true; // echec mais on a fini, donc true
+        }
+        $vider_tables_destination_copie($tables, $no_erase_dest, $serveur_dest);
+        $status['dump_status_copie'] = 'ok';
+        ecrire_fichier($status_file, serialize($status));
+    }
+
+    // les tables auteurs et meta doivent etre copiees en dernier !
+    if (in_array('spip_auteurs', $tables)) {
+        $tables = array_diff($tables, ['spip_auteurs']);
+        $tables[] = 'spip_auteurs';
+    }
+    if (in_array('spip_meta', $tables)) {
+        $tables = array_diff($tables, ['spip_meta']);
+        $tables[] = 'spip_meta';
+    }
+    spip_log('Tables a copier :' . implode(', ', $tables), 'dump.' . _LOG_INFO);
+
+    $trouver_table = charger_fonction('trouver_table', 'base');
+
+    foreach ($tables as $table) {
+        // si table commence par spip_ c'est une table SPIP, renommer le prefixe si besoin
+        // sinon chercher la vraie table
+        $desc_source = false;
+        if (str_starts_with((string) $table, 'spip_')) {
+            $desc_source = $trouver_table(preg_replace(',^spip_,', '', (string) $table), $serveur_source, true);
+        }
+        if (!$desc_source || !isset($desc_source['exist']) || !$desc_source['exist']) {
+            $desc_source = $trouver_table($table, $serveur_source, false);
+        }
+
+        // verifier que la table est presente dans la base source
+        if ($desc_source) {
+            // $status['tables_copiees'][$table] contient l'avancement
+            // de la copie pour la $table : 0 a N et -N quand elle est finie (-1 si vide et finie...)
+            if (!isset($status['tables_copiees'][$table])) {
+                $status['tables_copiees'][$table] = 0;
+            }
+
+            if (
+                is_numeric($status['tables_copiees'][$table])
+                && $status['tables_copiees'][$table] >= 0
+                && ($desc_dest = $preparer_table_dest(
+                    $table,
+                    $desc_tables_dest[$table] ?? $desc_source,
+                    $serveur_dest,
+                    $status['tables_copiees'][$table] == 0
+                ))
+            ) {
+                if ($callback_progression) {
+                    $callback_progression($status['tables_copiees'][$table], 0, $table);
+                }
+                while (true) {
+                    $n = (int) $status['tables_copiees'][$table];
+                    // on copie par lot de 400
+                    $res = sql_select(
+                        '*',
+                        $table,
+                        $where[$table] ?? '',
+                        '',
+                        '',
+                        "$n,400",
+                        '',
+                        $serveur_source
+                    );
+                    while ($row = sql_fetch($res, $serveur_source)) {
+                        $rows = [$row];
+                        // lire un groupe de donnees si demande en option
+                        // (permet un envoi par lot vers la destination)
+                        if ($data_pool > 0) {
+                            $s = strlen(serialize($row));
+                            while ($s < $data_pool && ($row = sql_fetch($res, $serveur_source))) {
+                                $s += strlen(serialize($row));
+                                $rows[] = $row;
+                            }
+                        }
+                        // si l'enregistrement est deja en base, ca fera un echec ou un doublon
+                        // mais si ca renvoie false c'est une erreur fatale => abandon
+                        if ($inserer_copie($table, $rows, $desc_dest, $serveur_dest) === false) {
+                            // forcer la sortie, charge a l'appelant de gerer l'echec
+                            spip_log("Erreur fatale dans $inserer_copie table $table", 'dump' . _LOG_ERREUR);
+                            $status['errors'][] = "Erreur fatale  lors de la copie de la table $table";
+                            ecrire_fichier($status_file, serialize($status));
+
+                            // copie finie
+                            return true;
+                        }
+                        $status['tables_copiees'][$table] += count($rows);
+                        if ($max_time && time() > $max_time) {
+                            break;
+                        }
+                    }
+                    if ($n == $status['tables_copiees'][$table]) {
+                        break;
+                    }
+                    spip_log("recopie $table " . $status['tables_copiees'][$table], 'dump.' . _LOG_INFO_IMPORTANTE);
+                    if ($callback_progression) {
+                        $callback_progression($status['tables_copiees'][$table], 0, $table);
+                    }
+                    ecrire_fichier($status_file, serialize($status));
+                    if ($max_time && time() > $max_time) {
+                        return false;
+                    } // on a pas fini, mais le temps imparti est ecoule
+                }
+                if ($drop_source) {
+                    sql_drop_table($table, '', $serveur_source);
+                    spip_log("drop $table sur serveur source '$serveur_source'", 'dump.' . _LOG_INFO_IMPORTANTE);
+                }
+                $status['tables_copiees'][$table] = ($status['tables_copiees'][$table] ? -$status['tables_copiees'][$table] : 'zero');
+                ecrire_fichier($status_file, serialize($status));
+                spip_log('tables_recopiees ' . implode(',', array_keys($status['tables_copiees'])), 'dump.' . _LOG_INFO);
+                if ($callback_progression) {
+                    $callback_progression($status['tables_copiees'][$table], $status['tables_copiees'][$table], $table);
+                }
+            } else {
+                if ($status['tables_copiees'][$table] < 0) {
+                    spip_log("Table $table deja copiee : " . $status['tables_copiees'][$table], 'dump.' . _LOG_INFO);
+                }
+                if ($callback_progression) {
+                    $callback_progression(
+                        0,
+                        $status['tables_copiees'][$table],
+                        "$table" . ((is_numeric($status['tables_copiees'][$table]) && $status['tables_copiees'][$table] >= 0) ? '[Echec]' : '')
+                    );
+                }
+            }
+        } else {
+            $status['errors'][] = "Impossible de lire la description de la table $table";
+            ecrire_fichier($status_file, serialize($status));
+            spip_log("Impossible de lire la description de la table $table", 'dump.' . _LOG_ERREUR);
+        }
+    }
+
+    // si le nombre de tables envoyees n'est pas egal au nombre de tables demandees
+    // abandonner
+    if ((is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) < count($tables)) {
+        spip_log(
+            'Nombre de tables copiees incorrect : ' . (is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) . '/' . count($tables),
+            'dump.' . _LOG_ERREUR
+        );
+        $status['errors'][] = 'Nombre de tables copiees incorrect : ' . (is_countable($status['tables_copiees']) ? count($status['tables_copiees']) : 0) . '/' . count($tables);
+        ecrire_fichier($status_file, serialize($status));
+    }
+
+    if ($detruire_copieur_si_besoin = charger_fonction('detruire_copieur_si_besoin', $racine_fonctions, true)) {
+        $detruire_copieur_si_besoin($serveur_dest);
+    } else {
+        spip_log("Fonction '{$racine_fonctions}_detruire_copieur_si_besoin' inconnue.", 'dump.' . _LOG_INFO_IMPORTANTE);
+    }
+
+    // OK, copie complete
+    return true;
 }
 
 /**
@@ -747,31 +747,31 @@ 
  */
 function base_inserer_copie($table, $rows, $desc_dest, $serveur_dest) {
 
-	// verifier le nombre d'insertion
-	$nb1 = sql_countsel($table, '', '', '', $serveur_dest);
-	// si l'enregistrement est deja en base, ca fera un echec ou un doublon
-	$r = sql_insertq_multi($table, $rows, $desc_dest, $serveur_dest);
-	$nb = sql_countsel($table, '', '', '', $serveur_dest);
-	if ($nb - $nb1 < count($rows)) {
-		spip_log(
-			'base_inserer_copie : ' . ($nb - $nb1) . ' insertions au lieu de ' . count($rows) . '. On retente 1 par 1',
-			'dump' . _LOG_INFO_IMPORTANTE
-		);
-		foreach ($rows as $row) {
-			// si l'enregistrement est deja en base, ca fera un echec ou un doublon
-			$r = sql_insertq($table, $row, $desc_dest, $serveur_dest);
-		}
-		// on reverifie le total
-		$r = 0;
-		$nb = sql_countsel($table, '', '', '', $serveur_dest);
-		if ($nb - $nb1 < count($rows)) {
-			spip_log(
-				'base_inserer_copie : ' . ($nb - $nb1) . ' insertions au lieu de ' . count($rows) . ' apres insertion 1 par 1',
-				'dump' . _LOG_ERREUR
-			);
-			$r = false;
-		}
-	}
-
-	return $r;
+    // verifier le nombre d'insertion
+    $nb1 = sql_countsel($table, '', '', '', $serveur_dest);
+    // si l'enregistrement est deja en base, ca fera un echec ou un doublon
+    $r = sql_insertq_multi($table, $rows, $desc_dest, $serveur_dest);
+    $nb = sql_countsel($table, '', '', '', $serveur_dest);
+    if ($nb - $nb1 < count($rows)) {
+        spip_log(
+            'base_inserer_copie : ' . ($nb - $nb1) . ' insertions au lieu de ' . count($rows) . '. On retente 1 par 1',
+            'dump' . _LOG_INFO_IMPORTANTE
+        );
+        foreach ($rows as $row) {
+            // si l'enregistrement est deja en base, ca fera un echec ou un doublon
+            $r = sql_insertq($table, $row, $desc_dest, $serveur_dest);
+        }
+        // on reverifie le total
+        $r = 0;
+        $nb = sql_countsel($table, '', '', '', $serveur_dest);
+        if ($nb - $nb1 < count($rows)) {
+            spip_log(
+                'base_inserer_copie : ' . ($nb - $nb1) . ' insertions au lieu de ' . count($rows) . ' apres insertion 1 par 1',
+                'dump' . _LOG_ERREUR
+            );
+            $r = false;
+        }
+    }
+
+    return $r;
 }

ecrire/base/create.php

Indentation +98 added lines, -98 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\Installation
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/acces');
@@ -32,18 +32,18 @@ 
  * @return bool
  */
 function base_determine_autoinc($table, $desc = []) {
-	if (($t = lister_tables_principales()) && isset($t[$table])) {
-		$autoinc = true;
-	} elseif (($t = lister_tables_auxiliaires()) && isset($t[$table])) {
-		$autoinc = false;
-	} else {
-		// essayer de faire au mieux !
-		$autoinc = (isset($desc['key']['PRIMARY KEY'])
-			&& !str_contains((string) $desc['key']['PRIMARY KEY'], ',')
-			&& !str_contains((string) $desc['field'][$desc['key']['PRIMARY KEY']], 'default'));
-	}
+    if (($t = lister_tables_principales()) && isset($t[$table])) {
+        $autoinc = true;
+    } elseif (($t = lister_tables_auxiliaires()) && isset($t[$table])) {
+        $autoinc = false;
+    } else {
+        // essayer de faire au mieux !
+        $autoinc = (isset($desc['key']['PRIMARY KEY'])
+            && !str_contains((string) $desc['key']['PRIMARY KEY'], ',')
+            && !str_contains((string) $desc['field'][$desc['key']['PRIMARY KEY']], 'default'));
+    }
 
-	return $autoinc;
+    return $autoinc;
 }
 
 /**
@@ -60,58 +60,58 @@ 
  * @return void
  */
 function creer_ou_upgrader_table($table, $desc, $autoinc, $upgrade = false, $serveur = '') {
-	#spip_log("creer_ou_upgrader_table table=$table autoinc=$autoinc upgrade=$upgrade","dbinstall"._LOG_INFO_IMPORTANTE);
-	$sql_desc = $upgrade ? sql_showtable($table, true, $serveur) : false;
-	#if (!$sql_desc) $sql_desc = false;
-	#spip_log("table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-	if (!$sql_desc) {
-		if ($autoinc === 'auto') {
-			$autoinc = base_determine_autoinc($table, $desc);
-		}
-		#spip_log("sql_create $table autoinc=$autoinc","dbinstall"._LOG_INFO_IMPORTANTE);
-		if (isset($desc['field']) && isset($desc['key'])) {
-			sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
-		}
-		// verifier la bonne installation de la table (php-fpm es-tu la ?)
-		$sql_desc = sql_showtable($table, true, $serveur);
-		#if (!$sql_desc) $sql_desc = false;
-		#spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-		if (!$sql_desc) {
-			// on retente avec un sleep ?
-			sleep(1);
-			sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
-			$sql_desc = sql_showtable($table, true, $serveur);
-			#if (!$sql_desc) $sql_desc = false;
-			#spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-			if (!$sql_desc) {
-				spip_log("Echec creation table $table", 'maj' . _LOG_CRITIQUE);
-			}
-		}
-	} else {
-		#spip_log("sql_alter $table ... (on s'en fiche)","dbinstall"._LOG_INFO_IMPORTANTE);
-		// ajouter les champs manquants
-		// on ne supprime jamais les champs, car c'est dangereux
-		// c'est toujours a faire manuellement
-		$last = '';
-		if (isset($desc['field'])) {
-			foreach ($desc['field'] as $field => $type) {
-				if (!isset($sql_desc['field'][$field])) {
-					sql_alter("TABLE $table ADD $field $type" . ($last ? " AFTER $last" : ''), $serveur);
-				}
-				$last = $field;
-			}
-		}
-		if (isset($desc['key'])) {
-			foreach ($desc['key'] as $key => $type) {
-				// Ne pas oublier les cas des cles non nommees dans la declaration et qui sont retournees
-				// par le showtable sous la forme d'un index de tableau "KEY $type" et non "KEY"
-				if (!isset($sql_desc['key'][$key]) && !isset($sql_desc['key']["$key $type"])) {
-					sql_alter("TABLE $table ADD $key ($type)", $serveur);
-				}
-				$last = $field;
-			}
-		}
-	}
+    #spip_log("creer_ou_upgrader_table table=$table autoinc=$autoinc upgrade=$upgrade","dbinstall"._LOG_INFO_IMPORTANTE);
+    $sql_desc = $upgrade ? sql_showtable($table, true, $serveur) : false;
+    #if (!$sql_desc) $sql_desc = false;
+    #spip_log("table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+    if (!$sql_desc) {
+        if ($autoinc === 'auto') {
+            $autoinc = base_determine_autoinc($table, $desc);
+        }
+        #spip_log("sql_create $table autoinc=$autoinc","dbinstall"._LOG_INFO_IMPORTANTE);
+        if (isset($desc['field']) && isset($desc['key'])) {
+            sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
+        }
+        // verifier la bonne installation de la table (php-fpm es-tu la ?)
+        $sql_desc = sql_showtable($table, true, $serveur);
+        #if (!$sql_desc) $sql_desc = false;
+        #spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+        if (!$sql_desc) {
+            // on retente avec un sleep ?
+            sleep(1);
+            sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
+            $sql_desc = sql_showtable($table, true, $serveur);
+            #if (!$sql_desc) $sql_desc = false;
+            #spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+            if (!$sql_desc) {
+                spip_log("Echec creation table $table", 'maj' . _LOG_CRITIQUE);
+            }
+        }
+    } else {
+        #spip_log("sql_alter $table ... (on s'en fiche)","dbinstall"._LOG_INFO_IMPORTANTE);
+        // ajouter les champs manquants
+        // on ne supprime jamais les champs, car c'est dangereux
+        // c'est toujours a faire manuellement
+        $last = '';
+        if (isset($desc['field'])) {
+            foreach ($desc['field'] as $field => $type) {
+                if (!isset($sql_desc['field'][$field])) {
+                    sql_alter("TABLE $table ADD $field $type" . ($last ? " AFTER $last" : ''), $serveur);
+                }
+                $last = $field;
+            }
+        }
+        if (isset($desc['key'])) {
+            foreach ($desc['key'] as $key => $type) {
+                // Ne pas oublier les cas des cles non nommees dans la declaration et qui sont retournees
+                // par le showtable sous la forme d'un index de tableau "KEY $type" et non "KEY"
+                if (!isset($sql_desc['key'][$key]) && !isset($sql_desc['key']["$key $type"])) {
+                    sql_alter("TABLE $table ADD $key ($type)", $serveur);
+                }
+                $last = $field;
+            }
+        }
+    }
 }
 
 /**
@@ -133,26 +133,26 @@ 
  * @return void
  */
 function alterer_base($tables_inc, $tables_noinc, $up = false, $serveur = '') {
-	if ($up === false) {
-		$old = false;
-		$up = [];
-	} else {
-		$old = true;
-		if (!is_array($up)) {
-			$up = [$up];
-		}
-	}
-	foreach ($tables_inc as $k => $v) {
-		if (!$old || in_array($k, $up)) {
-			creer_ou_upgrader_table($k, $v, true, $old, $serveur);
-		}
-	}
+    if ($up === false) {
+        $old = false;
+        $up = [];
+    } else {
+        $old = true;
+        if (!is_array($up)) {
+            $up = [$up];
+        }
+    }
+    foreach ($tables_inc as $k => $v) {
+        if (!$old || in_array($k, $up)) {
+            creer_ou_upgrader_table($k, $v, true, $old, $serveur);
+        }
+    }
 
-	foreach ($tables_noinc as $k => $v) {
-		if (!$old || in_array($k, $up)) {
-			creer_ou_upgrader_table($k, $v, false, $old, $serveur);
-		}
-	}
+    foreach ($tables_noinc as $k => $v) {
+        if (!$old || in_array($k, $up)) {
+            creer_ou_upgrader_table($k, $v, false, $old, $serveur);
+        }
+    }
 }
 
 /**
@@ -172,16 +172,16 @@ 
  */
 function creer_base($serveur = '') {
 
-	// Note: les mises a jour reexecutent ce code pour s'assurer
-	// de la conformite de la base
-	// pas de panique sur  "already exists" et "duplicate entry" donc.
+    // Note: les mises a jour reexecutent ce code pour s'assurer
+    // de la conformite de la base
+    // pas de panique sur  "already exists" et "duplicate entry" donc.
 
-	alterer_base(
-		lister_tables_principales(),
-		lister_tables_auxiliaires(),
-		false,
-		$serveur
-	);
+    alterer_base(
+        lister_tables_principales(),
+        lister_tables_auxiliaires(),
+        false,
+        $serveur
+    );
 }
 
 /**
@@ -201,10 +201,10 @@ 
  * @return void
  */
 function maj_tables($upgrade_tables = [], $serveur = '') {
-	alterer_base(
-		lister_tables_principales(),
-		lister_tables_auxiliaires(),
-		$upgrade_tables,
-		$serveur
-	);
+    alterer_base(
+        lister_tables_principales(),
+        lister_tables_auxiliaires(),
+        $upgrade_tables,
+        $serveur
+    );
 }

ecrire/base/trouver_table.php

Indentation +147 added lines, -147 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\SQL\Tables
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('base/objets');
 
@@ -67,150 +67,150 @@ 
  *
  **/
 function base_trouver_table_dist($nom, $serveur = '', $table_spip = true, array $options = []) {
-	$desc_cache = null;
-	static $nom_cache_desc_sql = [];
-
-	if (
-		!spip_connect($serveur)
-		|| !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
-	) {
-		return null;
-	}
-
-	$options += [
-		// si false, baissera le niveau de log si une table demandée n’existe pas
-		'log_missing' => true,
-	];
-
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$objets_sql = lister_tables_objets_sql('::md5');
-
-	// le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
-	// ce qui permet une auto invalidation en cas de modif manuelle du fichier
-	// de connexion, et tout risque d'ambiguite
-	if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
-		$nom_cache_desc_sql[$serveur][$objets_sql] =
-			_DIR_CACHE . 'sql_desc_'
-			. ($serveur ? "{$serveur}_" : '')
-			. substr(md5($connexion['db'] . ':' . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
-			. '.txt';
-		// nouveau nom de cache = nouvelle version en memoire
-		unset($connexion['tables']);
-	}
-
-	// un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
-	if (!$nom) {
-		spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
-		$connexion['tables'] = [];
-
-		return null;
-	}
-
-	$nom_sql = $nom;
-	$nom_sql = preg_match('/\.(.*)$/', $nom, $s) ? $s[1] : $nom;
-
-	$fdesc = $desc = '';
-	$connexion = &$GLOBALS['connexions'][$serveur ?: 0];
-
-	// base sous SPIP: gerer les abreviations explicites des noms de table
-	if (
-		$connexion['spip_connect_version']
-		&& $table_spip
-		&& isset($GLOBALS['table_des_tables'][$nom])
-	) {
-		$nom = $GLOBALS['table_des_tables'][$nom];
-		$nom_sql = 'spip_' . $nom;
-	}
-
-	// si c'est la premiere table qu'on cherche
-	// et si on est pas explicitement en recalcul
-	// on essaye de recharger le cache des decriptions de ce serveur
-	// dans le fichier cache
-	if (
-		!isset($connexion['tables'][$nom_sql])
-		&& defined('_VAR_MODE')
-		&& _VAR_MODE !== 'recalcul'
-		&& (!isset($connexion['tables']) || !$connexion['tables'])
-		&& lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
-		&& ($desc_cache = unserialize($desc_cache))
-	) {
-		$connexion['tables'] = $desc_cache;
-	}
-	if ($table_spip && !isset($connexion['tables'][$nom_sql])) {
-		if (isset($GLOBALS['tables_principales'][$nom_sql])) {
-			$fdesc = $GLOBALS['tables_principales'][$nom_sql];
-		}
-		// meme si pas d'abreviation declaree, trouver la table spip_$nom
-		// si c'est une table principale,
-		// puisqu'on le fait aussi pour les tables auxiliaires
-		elseif ($nom_sql == $nom && isset($GLOBALS['tables_principales']['spip_' . $nom])) {
-			$nom_sql = 'spip_' . $nom;
-			$fdesc = &$GLOBALS['tables_principales'][$nom_sql];
-		} elseif (
-			isset($GLOBALS['tables_auxiliaires'][$n = $nom])
-			|| isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
-		) {
-			$nom_sql = $n;
-			$fdesc = &$GLOBALS['tables_auxiliaires'][$n];
-		}  # table locale a cote de SPIP, comme non SPIP:
-	}
-	if (!isset($connexion['tables'][$nom_sql])) {
-		// La *vraie* base a la priorite
-		$exists = sql_table_exists($nom_sql, $table_spip, $serveur);
-		if (
-			!$exists
-			|| !($desc = sql_showtable($nom_sql, $table_spip, $serveur))
-			|| !$desc['field']
-		) {
-			if (!$fdesc) {
-				$log_level = $options['log_missing'] ? _LOG_INFO_IMPORTANTE : _LOG_DEBUG;
-				spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . $log_level);
-
-				return null;
-			}
-			// on ne sait pas lire la structure de la table :
-			// on retombe sur la description donnee dans les fichiers spip
-			$desc = $fdesc;
-			$desc['exist'] = false;
-		} else {
-			$desc['exist'] = true;
-			// gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
-			// pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
-			if (! $desc['key']) {
-				spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
-				unset($desc['key']);
-			}
-		}
-
-		$desc['table'] = $desc['table_sql'] = $nom_sql;
-		$desc['connexion'] = $serveur;
-
-		// charger les infos declarees pour cette table
-		// en lui passant les infos connues
-		// $desc est prioritaire pour la description de la table
-		$desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
-		// s'assurer qu'on a toujours un 'key'
-		if (!isset($desc['key']) && !empty($fdesc['key'])) {
-			$desc['key'] = $fdesc['key'];
-		}
-		if (! isset($desc['key'])) {
-			$desc['key'] = [];
-		}
-
-		// si tables_objets_sql est bien fini d'init, on peut cacher
-		$connexion['tables'][$nom_sql] = $desc;
-		$res = &$connexion['tables'][$nom_sql];
-		// une nouvelle table a ete decrite
-		// mettons donc a jour le cache des descriptions de ce serveur
-		if (is_writable(_DIR_CACHE)) {
-			ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
-		}
-	} else {
-		$res = &$connexion['tables'][$nom_sql];
-	}
-
-	// toujours retourner $nom dans id_table
-	$res['id_table'] = $nom;
-
-	return $res;
+    $desc_cache = null;
+    static $nom_cache_desc_sql = [];
+
+    if (
+        !spip_connect($serveur)
+        || !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
+    ) {
+        return null;
+    }
+
+    $options += [
+        // si false, baissera le niveau de log si une table demandée n’existe pas
+        'log_missing' => true,
+    ];
+
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $objets_sql = lister_tables_objets_sql('::md5');
+
+    // le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
+    // ce qui permet une auto invalidation en cas de modif manuelle du fichier
+    // de connexion, et tout risque d'ambiguite
+    if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
+        $nom_cache_desc_sql[$serveur][$objets_sql] =
+            _DIR_CACHE . 'sql_desc_'
+            . ($serveur ? "{$serveur}_" : '')
+            . substr(md5($connexion['db'] . ':' . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
+            . '.txt';
+        // nouveau nom de cache = nouvelle version en memoire
+        unset($connexion['tables']);
+    }
+
+    // un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
+    if (!$nom) {
+        spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
+        $connexion['tables'] = [];
+
+        return null;
+    }
+
+    $nom_sql = $nom;
+    $nom_sql = preg_match('/\.(.*)$/', $nom, $s) ? $s[1] : $nom;
+
+    $fdesc = $desc = '';
+    $connexion = &$GLOBALS['connexions'][$serveur ?: 0];
+
+    // base sous SPIP: gerer les abreviations explicites des noms de table
+    if (
+        $connexion['spip_connect_version']
+        && $table_spip
+        && isset($GLOBALS['table_des_tables'][$nom])
+    ) {
+        $nom = $GLOBALS['table_des_tables'][$nom];
+        $nom_sql = 'spip_' . $nom;
+    }
+
+    // si c'est la premiere table qu'on cherche
+    // et si on est pas explicitement en recalcul
+    // on essaye de recharger le cache des decriptions de ce serveur
+    // dans le fichier cache
+    if (
+        !isset($connexion['tables'][$nom_sql])
+        && defined('_VAR_MODE')
+        && _VAR_MODE !== 'recalcul'
+        && (!isset($connexion['tables']) || !$connexion['tables'])
+        && lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
+        && ($desc_cache = unserialize($desc_cache))
+    ) {
+        $connexion['tables'] = $desc_cache;
+    }
+    if ($table_spip && !isset($connexion['tables'][$nom_sql])) {
+        if (isset($GLOBALS['tables_principales'][$nom_sql])) {
+            $fdesc = $GLOBALS['tables_principales'][$nom_sql];
+        }
+        // meme si pas d'abreviation declaree, trouver la table spip_$nom
+        // si c'est une table principale,
+        // puisqu'on le fait aussi pour les tables auxiliaires
+        elseif ($nom_sql == $nom && isset($GLOBALS['tables_principales']['spip_' . $nom])) {
+            $nom_sql = 'spip_' . $nom;
+            $fdesc = &$GLOBALS['tables_principales'][$nom_sql];
+        } elseif (
+            isset($GLOBALS['tables_auxiliaires'][$n = $nom])
+            || isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
+        ) {
+            $nom_sql = $n;
+            $fdesc = &$GLOBALS['tables_auxiliaires'][$n];
+        }  # table locale a cote de SPIP, comme non SPIP:
+    }
+    if (!isset($connexion['tables'][$nom_sql])) {
+        // La *vraie* base a la priorite
+        $exists = sql_table_exists($nom_sql, $table_spip, $serveur);
+        if (
+            !$exists
+            || !($desc = sql_showtable($nom_sql, $table_spip, $serveur))
+            || !$desc['field']
+        ) {
+            if (!$fdesc) {
+                $log_level = $options['log_missing'] ? _LOG_INFO_IMPORTANTE : _LOG_DEBUG;
+                spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . $log_level);
+
+                return null;
+            }
+            // on ne sait pas lire la structure de la table :
+            // on retombe sur la description donnee dans les fichiers spip
+            $desc = $fdesc;
+            $desc['exist'] = false;
+        } else {
+            $desc['exist'] = true;
+            // gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
+            // pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
+            if (! $desc['key']) {
+                spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
+                unset($desc['key']);
+            }
+        }
+
+        $desc['table'] = $desc['table_sql'] = $nom_sql;
+        $desc['connexion'] = $serveur;
+
+        // charger les infos declarees pour cette table
+        // en lui passant les infos connues
+        // $desc est prioritaire pour la description de la table
+        $desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
+        // s'assurer qu'on a toujours un 'key'
+        if (!isset($desc['key']) && !empty($fdesc['key'])) {
+            $desc['key'] = $fdesc['key'];
+        }
+        if (! isset($desc['key'])) {
+            $desc['key'] = [];
+        }
+
+        // si tables_objets_sql est bien fini d'init, on peut cacher
+        $connexion['tables'][$nom_sql] = $desc;
+        $res = &$connexion['tables'][$nom_sql];
+        // une nouvelle table a ete decrite
+        // mettons donc a jour le cache des descriptions de ce serveur
+        if (is_writable(_DIR_CACHE)) {
+            ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
+        }
+    } else {
+        $res = &$connexion['tables'][$nom_sql];
+    }
+
+    // toujours retourner $nom dans id_table
+    $res['id_table'] = $nom;
+
+    return $res;
 }

ecrire/xml/valider.php

Indentation +315 added lines, -315 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -22,317 +22,317 @@ 
  **/
 class ValidateurXML
 {
-	public function validerElement($phraseur, $name, $attrs) {
-		if (!($p = isset($this->dtc->elements[$name]))) {
-			if ($p = strpos((string) $name, ':')) {
-				$name = substr((string) $name, $p + 1);
-				$p = isset($this->dtc->elements[$name]);
-			}
-			if (!$p) {
-				coordonnees_erreur($this, " <b>$name</b>&nbsp;: "
-					. _T('zxml_inconnu_balise'));
-
-				return;
-			}
-		}
-		// controler les filles illegitimes, ca suffit
-		$depth = $this->depth;
-		$ouvrant = $this->ouvrant;
-		#spip_log("trouve $name apres " . $ouvrant[$depth]);
-		if (isset($ouvrant[$depth]) && preg_match('/^\s*(\w+)/', (string) $ouvrant[$depth], $r)) {
-			$pere = $r[1];
-			#spip_log("pere $pere");
-			if (isset($this->dtc->elements[$pere])) {
-				$fils = $this->dtc->elements[$pere];
-				#spip_log("rejeton $name fils " . @join(',',$fils));
-				if (!($p = @in_array($name, $fils)) && ($p = strpos((string) $name, ':'))) {
-					$p = substr((string) $name, $p + 1);
-					$p = @in_array($p, $fils);
-				}
-				if (!$p) {
-					$bons_peres = @implode('</b>, <b>', $this->dtc->peres[$name]);
-					coordonnees_erreur($this, " <b>$name</b> "
-						. _T('zxml_non_fils')
-						. ' <b>'
-						. $pere
-						. '</b>'
-						. ($bons_peres ? '<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>' : ''));
-				} elseif ($this->dtc->regles[$pere][0] == '/') {
-					$frat = substr((string) $depth, 2);
-					if (!isset($this->fratrie[$frat])) {
-						$this->fratrie[$frat] = '';
-					}
-					$this->fratrie[$frat] .= "$name ";
-				}
-			}
-		}
-		// Init de la suite des balises a memoriser si regle difficile
-		if ($this->dtc->regles[$name] && $this->dtc->regles[$name][0] == '/') {
-			$this->fratrie[$depth] = '';
-		}
-		if (isset($this->dtc->attributs[$name])) {
-			foreach ($this->dtc->attributs[$name] as $n => $v) {
-				if ($v[1] == '#REQUIRED' && !isset($attrs[$n])) {
-					coordonnees_erreur($this, " <b>$n</b>"
-						. '&nbsp;:&nbsp;'
-						. _T('zxml_obligatoire_attribut')
-						. " <b>$name</b>");
-				}
-			}
-		}
-	}
-
-	public function validerAttribut($phraseur, $name, $val, $bal) {
-		// Si la balise est inconnue, eviter d'insister
-		if (!isset($this->dtc->attributs[$bal])) {
-			return;
-		}
-
-		$a = $this->dtc->attributs[$bal];
-		if (!isset($a[$name])) {
-			$bons = implode(', ', array_keys($a));
-			if ($bons) {
-				$bons = " title=' " .
-					_T('zxml_connus_attributs') .
-					'&nbsp;: ' .
-					$bons .
-					"'";
-			}
-			$bons .= " style='font-weight: bold'";
-			coordonnees_erreur($this, " <b>$name</b> "
-				. _T('zxml_inconnu_attribut') . ' ' . _T('zxml_de')
-				. " <a$bons>$bal</a> ("
-				. _T('zxml_survoler')
-				. ')');
-		} else {
-			$type = $a[$name][0];
-			if (!preg_match('/^\w+$/', (string) $type)) {
-				$this->valider_motif($phraseur, $name, $val, $bal, $type);
-			} else {
-				if (method_exists($this, $f = 'validerAttribut_' . $type)) {
-					$this->$f($phraseur, $name, $val, $bal);
-				}
-			}
-			#		else spip_log("$type type d'attribut inconnu");
-		}
-	}
-
-	public function validerAttribut_NMTOKEN($phraseur, $name, $val, $bal) {
-		$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKEN);
-	}
-
-	public function validerAttribut_NMTOKENS($phraseur, $name, $val, $bal) {
-		$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKENS);
-	}
-
-	public function validerAttribut_ID($phraseur, $name, $val, $bal) {
-		if (isset($this->ids[$val])) {
-			[$l, $c] = $this->ids[$val];
-			coordonnees_erreur($this, " <p><b>$val</b> "
-				. _T('zxml_valeur_attribut')
-				. " <b>$name</b> "
-				. _T('zxml_de')
-				. " <b>$bal</b> "
-				. _T('zxml_vu')
-				. " (L$l,C$c)");
-		} else {
-			$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_ID);
-			$this->ids[$val] = [xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
-		}
-	}
-
-	public function validerAttribut_IDREF($phraseur, $name, $val, $bal) {
-		$this->idrefs[] = [$val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
-	}
-
-	public function validerAttribut_IDREFS($phraseur, $name, $val, $bal) {
-		$this->idrefss[] = [$val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
-	}
-
-	public function valider_motif($phraseur, $name, $val, $bal, $motif) {
-		if (!preg_match($motif, (string) $val)) {
-			coordonnees_erreur($this, "<b>$val</b> "
-				. _T('zxml_valeur_attribut')
-				. " <b>$name</b> "
-				. _T('zxml_de')
-				. " <b>$bal</b> "
-				. _T('zxml_non_conforme')
-				. '</p><p>'
-				. '<b>' . $motif . '</b>');
-		}
-	}
-
-	public function valider_idref($nom, $ligne, $col) {
-		if (!isset($this->ids[$nom])) {
-			$this->err[] = [" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col];
-		}
-	}
-
-	public function valider_passe2() {
-		if (!$this->err) {
-			foreach ($this->idrefs as $idref) {
-				[$nom, $ligne, $col] = $idref;
-				$this->valider_idref($nom, $ligne, $col);
-			}
-			foreach ($this->idrefss as $idref) {
-				[$noms, $ligne, $col] = $idref;
-				foreach (preg_split('/\s+/', (string) $noms) as $nom) {
-					$this->valider_idref($nom, $ligne, $col);
-				}
-			}
-		}
-	}
-
-	public function debutElement($phraseur, $name, $attrs) {
-		if ($this->dtc->elements) {
-			$this->validerElement($phraseur, $name, $attrs);
-		}
-
-		if ($f = $this->process['debut']) {
-			$f($this, $name, $attrs);
-		}
-		$depth = $this->depth;
-		$this->debuts[$depth] = strlen((string) $this->res);
-		foreach ($attrs as $k => $v) {
-			$this->validerAttribut($phraseur, $k, $v, $name);
-		}
-	}
-
-	public function finElement($phraseur, $name) {
-		$depth = $this->depth;
-		$contenu = $this->contenu;
-
-		$n = strlen((string) $this->res);
-		$c = strlen(trim((string) $contenu[$depth]));
-		$k = $this->debuts[$depth];
-
-		$regle = $this->dtc->regles[$name] ?? false;
-		$vide = ($regle == 'EMPTY');
-		// controler que les balises devant etre vides le sont
-		if ($vide) {
-			if ($n != $k + $c) {
-				coordonnees_erreur($this, " <p><b>$name</b> " . _T('zxml_nonvide_balise'));
-			}
-			// pour les regles PCDATA ou iteration de disjonction, tout est fait
-		} elseif ($regle && $regle != '*') {
-			if ($regle == '+') {
-				// iteration de disjonction non vide: 1 balise au -
-				if ($n == $k) {
-					coordonnees_erreur($this, "<p>\n<b>$name</b> "
-						. _T('zxml_vide_balise'));
-				}
-			} else {
-				$f = $this->fratrie[substr((string) $depth, 2)] ?? null;
-				if (is_null($f) || !preg_match($regle, (string) $f)) {
-					coordonnees_erreur(
-						$this,
-						" <p>\n<b>$name</b> "
-						. _T('zxml_succession_fils_incorrecte')
-						. '&nbsp;: <b>'
-						. $f
-						. '</b>'
-					);
-				}
-			}
-		}
-		if ($f = $this->process['fin']) {
-			$f($this, $name, $vide);
-		}
-	}
-
-	public function textElement($phraseur, $data) {
-		if (trim((string) $data)) {
-			$d = $this->depth;
-			$d = $this->ouvrant[$d];
-			preg_match('/^\s*(\S+)/', (string) $d, $m);
-			if (isset($this->dtc->pcdata[$m[1]]) && $this->dtc->pcdata[$m[1]]) {
-				coordonnees_erreur($this, ' <p><b>' . $m[1] . '</b> '
-					. _T('zxml_nonvide_balise')); // message a affiner
-			}
-		}
-		if ($f = $this->process['text']) {
-			$f($this, $data);
-		}
-	}
-
-	public function piElement($phraseur, $target, $data) {
-		if ($f = $this->process['pi']) {
-			$f($this, $target, $data);
-		}
-	}
-
-	// Denonciation des entitees XML inconnues
-	// Pour contourner le bug de conception de SAX qui ne signale pas si elles
-	// sont dans un attribut, les  entites les plus frequentes ont ete
-	// transcodees au prealable  (sauf & < > " que SAX traite correctement).
-	// On ne les verra donc pas passer a cette etape, contrairement a ce que
-	// le source de la page laisse legitimement supposer.
-
-	public function defaultElement($phraseur, $data) {
-		if (
-			!preg_match('/^<!--/', (string) $data)
-			&& preg_match_all('/&([^;]*)?/', (string) $data, $r, PREG_SET_ORDER)
-		) {
-			foreach ($r as $m) {
-				[$t, $e] = $m;
-				if (!isset($this->dtc->entites[$e])) {
-					coordonnees_erreur($this, " <b>$e</b> "
-						. _T('zxml_inconnu_entite')
-						. ' ');
-				}
-			}
-		}
-		if (isset($this->process['default']) && ($f = $this->process['default'])) {
-			$f($this, $data);
-		}
-	}
-
-	public function phraserTout($phraseur, $data) {
-		xml_parsestring($this, $data);
-
-		if (!$this->dtc || preg_match(',^' . _MESSAGE_DOCTYPE . ',', (string) $data)) {
-			$this->err[] = ['DOCTYPE ?', 0, 0];
-		} else {
-			$this->valider_passe2();
-		}
-	}
-
-	/**
-	 * Constructeur
-	 *
-	 * @param array $process ?
-	 **/
-	public function __construct($process = []) {
-		if (is_array($process)) {
-			$this->process = $process;
-		}
-	}
-
-	public $ids = [];
-	public $idrefs = [];
-	public $idrefss = [];
-	public $debuts = [];
-	public $fratrie = [];
-
-	public $dtc = null;
-	public $sax = null;
-	public $depth = '';
-	public $entete = '';
-	public $page = '';
-	public $res = '';
-	public array $err = [];
-	public array $contenu = [];
-	public array $versions = [];
-
-	public array $ouvrant = [];
-	public array $reperes = [];
-	public array $process = [
-		'debut' => 'xml_debutElement',
-		'fin' => 'xml_finElement',
-		'text' => 'xml_textElement',
-		'pi' => 'xml_piElement',
-		'default' => 'xml_defaultElement'
-	];
+    public function validerElement($phraseur, $name, $attrs) {
+        if (!($p = isset($this->dtc->elements[$name]))) {
+            if ($p = strpos((string) $name, ':')) {
+                $name = substr((string) $name, $p + 1);
+                $p = isset($this->dtc->elements[$name]);
+            }
+            if (!$p) {
+                coordonnees_erreur($this, " <b>$name</b>&nbsp;: "
+                    . _T('zxml_inconnu_balise'));
+
+                return;
+            }
+        }
+        // controler les filles illegitimes, ca suffit
+        $depth = $this->depth;
+        $ouvrant = $this->ouvrant;
+        #spip_log("trouve $name apres " . $ouvrant[$depth]);
+        if (isset($ouvrant[$depth]) && preg_match('/^\s*(\w+)/', (string) $ouvrant[$depth], $r)) {
+            $pere = $r[1];
+            #spip_log("pere $pere");
+            if (isset($this->dtc->elements[$pere])) {
+                $fils = $this->dtc->elements[$pere];
+                #spip_log("rejeton $name fils " . @join(',',$fils));
+                if (!($p = @in_array($name, $fils)) && ($p = strpos((string) $name, ':'))) {
+                    $p = substr((string) $name, $p + 1);
+                    $p = @in_array($p, $fils);
+                }
+                if (!$p) {
+                    $bons_peres = @implode('</b>, <b>', $this->dtc->peres[$name]);
+                    coordonnees_erreur($this, " <b>$name</b> "
+                        . _T('zxml_non_fils')
+                        . ' <b>'
+                        . $pere
+                        . '</b>'
+                        . ($bons_peres ? '<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>' : ''));
+                } elseif ($this->dtc->regles[$pere][0] == '/') {
+                    $frat = substr((string) $depth, 2);
+                    if (!isset($this->fratrie[$frat])) {
+                        $this->fratrie[$frat] = '';
+                    }
+                    $this->fratrie[$frat] .= "$name ";
+                }
+            }
+        }
+        // Init de la suite des balises a memoriser si regle difficile
+        if ($this->dtc->regles[$name] && $this->dtc->regles[$name][0] == '/') {
+            $this->fratrie[$depth] = '';
+        }
+        if (isset($this->dtc->attributs[$name])) {
+            foreach ($this->dtc->attributs[$name] as $n => $v) {
+                if ($v[1] == '#REQUIRED' && !isset($attrs[$n])) {
+                    coordonnees_erreur($this, " <b>$n</b>"
+                        . '&nbsp;:&nbsp;'
+                        . _T('zxml_obligatoire_attribut')
+                        . " <b>$name</b>");
+                }
+            }
+        }
+    }
+
+    public function validerAttribut($phraseur, $name, $val, $bal) {
+        // Si la balise est inconnue, eviter d'insister
+        if (!isset($this->dtc->attributs[$bal])) {
+            return;
+        }
+
+        $a = $this->dtc->attributs[$bal];
+        if (!isset($a[$name])) {
+            $bons = implode(', ', array_keys($a));
+            if ($bons) {
+                $bons = " title=' " .
+                    _T('zxml_connus_attributs') .
+                    '&nbsp;: ' .
+                    $bons .
+                    "'";
+            }
+            $bons .= " style='font-weight: bold'";
+            coordonnees_erreur($this, " <b>$name</b> "
+                . _T('zxml_inconnu_attribut') . ' ' . _T('zxml_de')
+                . " <a$bons>$bal</a> ("
+                . _T('zxml_survoler')
+                . ')');
+        } else {
+            $type = $a[$name][0];
+            if (!preg_match('/^\w+$/', (string) $type)) {
+                $this->valider_motif($phraseur, $name, $val, $bal, $type);
+            } else {
+                if (method_exists($this, $f = 'validerAttribut_' . $type)) {
+                    $this->$f($phraseur, $name, $val, $bal);
+                }
+            }
+            #		else spip_log("$type type d'attribut inconnu");
+        }
+    }
+
+    public function validerAttribut_NMTOKEN($phraseur, $name, $val, $bal) {
+        $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKEN);
+    }
+
+    public function validerAttribut_NMTOKENS($phraseur, $name, $val, $bal) {
+        $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKENS);
+    }
+
+    public function validerAttribut_ID($phraseur, $name, $val, $bal) {
+        if (isset($this->ids[$val])) {
+            [$l, $c] = $this->ids[$val];
+            coordonnees_erreur($this, " <p><b>$val</b> "
+                . _T('zxml_valeur_attribut')
+                . " <b>$name</b> "
+                . _T('zxml_de')
+                . " <b>$bal</b> "
+                . _T('zxml_vu')
+                . " (L$l,C$c)");
+        } else {
+            $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_ID);
+            $this->ids[$val] = [xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
+        }
+    }
+
+    public function validerAttribut_IDREF($phraseur, $name, $val, $bal) {
+        $this->idrefs[] = [$val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
+    }
+
+    public function validerAttribut_IDREFS($phraseur, $name, $val, $bal) {
+        $this->idrefss[] = [$val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur)];
+    }
+
+    public function valider_motif($phraseur, $name, $val, $bal, $motif) {
+        if (!preg_match($motif, (string) $val)) {
+            coordonnees_erreur($this, "<b>$val</b> "
+                . _T('zxml_valeur_attribut')
+                . " <b>$name</b> "
+                . _T('zxml_de')
+                . " <b>$bal</b> "
+                . _T('zxml_non_conforme')
+                . '</p><p>'
+                . '<b>' . $motif . '</b>');
+        }
+    }
+
+    public function valider_idref($nom, $ligne, $col) {
+        if (!isset($this->ids[$nom])) {
+            $this->err[] = [" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col];
+        }
+    }
+
+    public function valider_passe2() {
+        if (!$this->err) {
+            foreach ($this->idrefs as $idref) {
+                [$nom, $ligne, $col] = $idref;
+                $this->valider_idref($nom, $ligne, $col);
+            }
+            foreach ($this->idrefss as $idref) {
+                [$noms, $ligne, $col] = $idref;
+                foreach (preg_split('/\s+/', (string) $noms) as $nom) {
+                    $this->valider_idref($nom, $ligne, $col);
+                }
+            }
+        }
+    }
+
+    public function debutElement($phraseur, $name, $attrs) {
+        if ($this->dtc->elements) {
+            $this->validerElement($phraseur, $name, $attrs);
+        }
+
+        if ($f = $this->process['debut']) {
+            $f($this, $name, $attrs);
+        }
+        $depth = $this->depth;
+        $this->debuts[$depth] = strlen((string) $this->res);
+        foreach ($attrs as $k => $v) {
+            $this->validerAttribut($phraseur, $k, $v, $name);
+        }
+    }
+
+    public function finElement($phraseur, $name) {
+        $depth = $this->depth;
+        $contenu = $this->contenu;
+
+        $n = strlen((string) $this->res);
+        $c = strlen(trim((string) $contenu[$depth]));
+        $k = $this->debuts[$depth];
+
+        $regle = $this->dtc->regles[$name] ?? false;
+        $vide = ($regle == 'EMPTY');
+        // controler que les balises devant etre vides le sont
+        if ($vide) {
+            if ($n != $k + $c) {
+                coordonnees_erreur($this, " <p><b>$name</b> " . _T('zxml_nonvide_balise'));
+            }
+            // pour les regles PCDATA ou iteration de disjonction, tout est fait
+        } elseif ($regle && $regle != '*') {
+            if ($regle == '+') {
+                // iteration de disjonction non vide: 1 balise au -
+                if ($n == $k) {
+                    coordonnees_erreur($this, "<p>\n<b>$name</b> "
+                        . _T('zxml_vide_balise'));
+                }
+            } else {
+                $f = $this->fratrie[substr((string) $depth, 2)] ?? null;
+                if (is_null($f) || !preg_match($regle, (string) $f)) {
+                    coordonnees_erreur(
+                        $this,
+                        " <p>\n<b>$name</b> "
+                        . _T('zxml_succession_fils_incorrecte')
+                        . '&nbsp;: <b>'
+                        . $f
+                        . '</b>'
+                    );
+                }
+            }
+        }
+        if ($f = $this->process['fin']) {
+            $f($this, $name, $vide);
+        }
+    }
+
+    public function textElement($phraseur, $data) {
+        if (trim((string) $data)) {
+            $d = $this->depth;
+            $d = $this->ouvrant[$d];
+            preg_match('/^\s*(\S+)/', (string) $d, $m);
+            if (isset($this->dtc->pcdata[$m[1]]) && $this->dtc->pcdata[$m[1]]) {
+                coordonnees_erreur($this, ' <p><b>' . $m[1] . '</b> '
+                    . _T('zxml_nonvide_balise')); // message a affiner
+            }
+        }
+        if ($f = $this->process['text']) {
+            $f($this, $data);
+        }
+    }
+
+    public function piElement($phraseur, $target, $data) {
+        if ($f = $this->process['pi']) {
+            $f($this, $target, $data);
+        }
+    }
+
+    // Denonciation des entitees XML inconnues
+    // Pour contourner le bug de conception de SAX qui ne signale pas si elles
+    // sont dans un attribut, les  entites les plus frequentes ont ete
+    // transcodees au prealable  (sauf & < > " que SAX traite correctement).
+    // On ne les verra donc pas passer a cette etape, contrairement a ce que
+    // le source de la page laisse legitimement supposer.
+
+    public function defaultElement($phraseur, $data) {
+        if (
+            !preg_match('/^<!--/', (string) $data)
+            && preg_match_all('/&([^;]*)?/', (string) $data, $r, PREG_SET_ORDER)
+        ) {
+            foreach ($r as $m) {
+                [$t, $e] = $m;
+                if (!isset($this->dtc->entites[$e])) {
+                    coordonnees_erreur($this, " <b>$e</b> "
+                        . _T('zxml_inconnu_entite')
+                        . ' ');
+                }
+            }
+        }
+        if (isset($this->process['default']) && ($f = $this->process['default'])) {
+            $f($this, $data);
+        }
+    }
+
+    public function phraserTout($phraseur, $data) {
+        xml_parsestring($this, $data);
+
+        if (!$this->dtc || preg_match(',^' . _MESSAGE_DOCTYPE . ',', (string) $data)) {
+            $this->err[] = ['DOCTYPE ?', 0, 0];
+        } else {
+            $this->valider_passe2();
+        }
+    }
+
+    /**
+     * Constructeur
+     *
+     * @param array $process ?
+     **/
+    public function __construct($process = []) {
+        if (is_array($process)) {
+            $this->process = $process;
+        }
+    }
+
+    public $ids = [];
+    public $idrefs = [];
+    public $idrefss = [];
+    public $debuts = [];
+    public $fratrie = [];
+
+    public $dtc = null;
+    public $sax = null;
+    public $depth = '';
+    public $entete = '';
+    public $page = '';
+    public $res = '';
+    public array $err = [];
+    public array $contenu = [];
+    public array $versions = [];
+
+    public array $ouvrant = [];
+    public array $reperes = [];
+    public array $process = [
+        'debut' => 'xml_debutElement',
+        'fin' => 'xml_finElement',
+        'text' => 'xml_textElement',
+        'pi' => 'xml_piElement',
+        'default' => 'xml_defaultElement'
+    ];
 }
 
 
@@ -342,8 +342,8 @@ 
  *
  **/
 function xml_valider_dist($page, $apply = false, $process = false, $doctype = '', $charset = null) {
-	$f = new ValidateurXML($process);
-	$sax = charger_fonction('sax', 'xml');
+    $f = new ValidateurXML($process);
+    $sax = charger_fonction('sax', 'xml');
 
-	return $sax($page, $apply, $f, $doctype, $charset);
+    return $sax($page, $apply, $f, $doctype, $charset);
 }

ecrire/xml/analyser_dtd.php

Indentation +309 added lines, -309 removed lines

@@ -10,58 +10,58 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('xml/interfaces');
 
 function charger_dtd($grammaire, $avail, $rotlvl) {
-	$r = null;
-	static $dtd = []; # cache bien utile pour le validateur en boucle
-
-	if (isset($dtd[$grammaire])) {
-		return $dtd[$grammaire];
-	}
-
-	if ($avail == 'SYSTEM') {
-		$grammaire = find_in_path($grammaire);
-	}
-
-	$file = _DIR_CACHE_XML . preg_replace('/[^\w.]/', '_', (string) $rotlvl) . '.gz';
-
-	if (lire_fichier($file, $r)) {
-		if (!$grammaire) {
-			return [];
-		}
-		if ($avail == 'SYSTEM' && filemtime($file) < filemtime($grammaire)) {
-			$r = false;
-		}
-	}
-
-	if ($r) {
-		$dtc = unserialize($r);
-	} else {
-		spip_timer('dtd');
-		$dtc = new DTC();
-		// L'analyseur retourne un booleen de reussite et modifie $dtc.
-		// Retourner vide en cas d'echec
-		if (!analyser_dtd($grammaire, $avail, $dtc)) {
-			$dtc = [];
-		} else {
-			// tri final pour presenter les suggestions de corrections
-			foreach ($dtc->peres as $k => $v) {
-				asort($v);
-				$dtc->peres[$k] = $v;
-			}
-
-			spip_log("Analyser DTD $avail $grammaire (" . spip_timer('dtd') . ') ' . (is_countable($dtc->macros) ? count($dtc->macros) : 0) . ' macros, ' . (is_countable($dtc->elements) ? count($dtc->elements) : 0) . ' elements, ' . (is_countable($dtc->attributs) ? count($dtc->attributs) : 0) . " listes d'attributs, " . (is_countable($dtc->entites) ? count($dtc->entites) : 0) . ' entites');
-			#	$r = $dtc->regles; ksort($r);foreach($r as $l => $v) {$t=array_keys($dtc->attributs[$l]);echo "<b>$l</b> '$v' ", count($t), " attributs: ", join (', ',$t);$t=$dtc->peres[$l];echo "<br />",count($t), " peres: ", @join (', ',$t), "<br />\n";}exit;
-			ecrire_fichier($file, serialize($dtc), true);
-		}
-	}
-	$dtd[$grammaire] = $dtc;
-
-	return $dtc;
+    $r = null;
+    static $dtd = []; # cache bien utile pour le validateur en boucle
+
+    if (isset($dtd[$grammaire])) {
+        return $dtd[$grammaire];
+    }
+
+    if ($avail == 'SYSTEM') {
+        $grammaire = find_in_path($grammaire);
+    }
+
+    $file = _DIR_CACHE_XML . preg_replace('/[^\w.]/', '_', (string) $rotlvl) . '.gz';
+
+    if (lire_fichier($file, $r)) {
+        if (!$grammaire) {
+            return [];
+        }
+        if ($avail == 'SYSTEM' && filemtime($file) < filemtime($grammaire)) {
+            $r = false;
+        }
+    }
+
+    if ($r) {
+        $dtc = unserialize($r);
+    } else {
+        spip_timer('dtd');
+        $dtc = new DTC();
+        // L'analyseur retourne un booleen de reussite et modifie $dtc.
+        // Retourner vide en cas d'echec
+        if (!analyser_dtd($grammaire, $avail, $dtc)) {
+            $dtc = [];
+        } else {
+            // tri final pour presenter les suggestions de corrections
+            foreach ($dtc->peres as $k => $v) {
+                asort($v);
+                $dtc->peres[$k] = $v;
+            }
+
+            spip_log("Analyser DTD $avail $grammaire (" . spip_timer('dtd') . ') ' . (is_countable($dtc->macros) ? count($dtc->macros) : 0) . ' macros, ' . (is_countable($dtc->elements) ? count($dtc->elements) : 0) . ' elements, ' . (is_countable($dtc->attributs) ? count($dtc->attributs) : 0) . " listes d'attributs, " . (is_countable($dtc->entites) ? count($dtc->entites) : 0) . ' entites');
+            #	$r = $dtc->regles; ksort($r);foreach($r as $l => $v) {$t=array_keys($dtc->attributs[$l]);echo "<b>$l</b> '$v' ", count($t), " attributs: ", join (', ',$t);$t=$dtc->peres[$l];echo "<br />",count($t), " peres: ", @join (', ',$t), "<br />\n";}exit;
+            ecrire_fichier($file, serialize($dtc), true);
+        }
+    }
+    $dtd[$grammaire] = $dtc;
+
+    return $dtc;
 }
 
 // Compiler une regle de production en une Regexp qu'on appliquera sur la
@@ -73,137 +73,137 @@ 
 // et parentheser le tout pour que  | + * ? s'applique dessus.
 
 function compilerRegle($val) {
-	return str_replace(
-		'()',
-		'',
-		preg_replace(
-			'/\s*,\s*/',
-			'',
-			preg_replace(
-				'/(\w+)\s*/',
-				'(?:\1 )',
-				preg_replace(
-					'/\s*\)/',
-					')',
-					preg_replace(
-						'/\s*([(+*|?])\s*/',
-						'\1',
-						preg_replace('/\s*#\w+\s*[,|]?\s*/', '', (string) $val)
-					)
-				)
-			)
-		)
-	);
+    return str_replace(
+        '()',
+        '',
+        preg_replace(
+            '/\s*,\s*/',
+            '',
+            preg_replace(
+                '/(\w+)\s*/',
+                '(?:\1 )',
+                preg_replace(
+                    '/\s*\)/',
+                    ')',
+                    preg_replace(
+                        '/\s*([(+*|?])\s*/',
+                        '\1',
+                        preg_replace('/\s*#\w+\s*[,|]?\s*/', '', (string) $val)
+                    )
+                )
+            )
+        )
+    );
 }
 
 
 function analyser_dtd($loc, $avail, &$dtc) {
-	// creer le repertoire de cache si ce n'est fait
-	// (utile aussi pour le resultat de la compil)
-	$file = sous_repertoire(_DIR_CACHE_XML);
-	// si DTD locale, ignorer ce repertoire pour le moment
-	if ($avail == 'SYSTEM') {
-		$file = $loc;
-		if (_DIR_RACINE && str_starts_with((string) $file, (string) _DIR_RACINE)) {
-			$file = substr((string) $file, strlen((string) _DIR_RACINE));
-		}
-		$file = find_in_path($file);
-	} else {
-		$file .= preg_replace('/[^\w.]/', '_', (string) $loc);
-	}
-
-	$dtd = '';
-	if (@is_readable($file)) {
-		lire_fichier($file, $dtd);
-	} else {
-		if ($avail == 'PUBLIC') {
-			include_spip('inc/distant');
-			$dtd = recuperer_url($loc);
-			$dtd = trim($dtd['page'] ?? '');
-			if ($dtd) {
-				ecrire_fichier($file, $dtd, true);
-			}
-		}
-	}
-
-	$dtd = ltrim($dtd);
-	if (!$dtd) {
-		spip_log("DTD '$loc' ($file) inaccessible");
-
-		return false;
-	} else {
-		spip_log("analyse de la DTD $loc ");
-	}
-
-	while ($dtd) {
-		if ($dtd[0] != '<') {
-			$r = analyser_dtd_lexeme($dtd, $dtc, $loc);
-		} elseif ($dtd[1] != '!') {
-			$r = analyser_dtd_pi($dtd, $dtc, $loc);
-		} elseif ($dtd[2] == '[') {
-			$r = analyser_dtd_data($dtd, $dtc, $loc);
-		} else {
-			$r = match ($dtd[3]) {
-				'%' => analyser_dtd_data($dtd, $dtc, $loc),
-				'T' => analyser_dtd_attlist($dtd, $dtc, $loc),
-				'L' => analyser_dtd_element($dtd, $dtc, $loc),
-				'N' => analyser_dtd_entity($dtd, $dtc, $loc),
-				'O' => analyser_dtd_notation($dtd, $dtc, $loc),
-				'-' => analyser_dtd_comment($dtd, $dtc, $loc),
-				default => -1,
-			};
-		}
-		if (!is_string($r)) {
-			spip_log("erreur $r dans la DTD  " . substr($dtd, 0, 80) . '.....');
-
-			return false;
-		}
-		$dtd = $r;
-	}
-
-	return true;
+    // creer le repertoire de cache si ce n'est fait
+    // (utile aussi pour le resultat de la compil)
+    $file = sous_repertoire(_DIR_CACHE_XML);
+    // si DTD locale, ignorer ce repertoire pour le moment
+    if ($avail == 'SYSTEM') {
+        $file = $loc;
+        if (_DIR_RACINE && str_starts_with((string) $file, (string) _DIR_RACINE)) {
+            $file = substr((string) $file, strlen((string) _DIR_RACINE));
+        }
+        $file = find_in_path($file);
+    } else {
+        $file .= preg_replace('/[^\w.]/', '_', (string) $loc);
+    }
+
+    $dtd = '';
+    if (@is_readable($file)) {
+        lire_fichier($file, $dtd);
+    } else {
+        if ($avail == 'PUBLIC') {
+            include_spip('inc/distant');
+            $dtd = recuperer_url($loc);
+            $dtd = trim($dtd['page'] ?? '');
+            if ($dtd) {
+                ecrire_fichier($file, $dtd, true);
+            }
+        }
+    }
+
+    $dtd = ltrim($dtd);
+    if (!$dtd) {
+        spip_log("DTD '$loc' ($file) inaccessible");
+
+        return false;
+    } else {
+        spip_log("analyse de la DTD $loc ");
+    }
+
+    while ($dtd) {
+        if ($dtd[0] != '<') {
+            $r = analyser_dtd_lexeme($dtd, $dtc, $loc);
+        } elseif ($dtd[1] != '!') {
+            $r = analyser_dtd_pi($dtd, $dtc, $loc);
+        } elseif ($dtd[2] == '[') {
+            $r = analyser_dtd_data($dtd, $dtc, $loc);
+        } else {
+            $r = match ($dtd[3]) {
+                '%' => analyser_dtd_data($dtd, $dtc, $loc),
+                'T' => analyser_dtd_attlist($dtd, $dtc, $loc),
+                'L' => analyser_dtd_element($dtd, $dtc, $loc),
+                'N' => analyser_dtd_entity($dtd, $dtc, $loc),
+                'O' => analyser_dtd_notation($dtd, $dtc, $loc),
+                '-' => analyser_dtd_comment($dtd, $dtc, $loc),
+                default => -1,
+            };
+        }
+        if (!is_string($r)) {
+            spip_log("erreur $r dans la DTD  " . substr($dtd, 0, 80) . '.....');
+
+            return false;
+        }
+        $dtd = $r;
+    }
+
+    return true;
 }
 
 function analyser_dtd_comment($dtd, &$dtc, $grammaire) {
-	// ejecter les commentaires, surtout quand ils contiennent du code.
-	// Option /s car sur plusieurs lignes parfois
+    // ejecter les commentaires, surtout quand ils contiennent du code.
+    // Option /s car sur plusieurs lignes parfois
 
-	if (!preg_match('/^<!--.*?-->\s*(.*)$/s', (string) $dtd, $m)) {
-		return -6;
-	}
+    if (!preg_match('/^<!--.*?-->\s*(.*)$/s', (string) $dtd, $m)) {
+        return -6;
+    }
 
-	return $m[1];
+    return $m[1];
 }
 
 function analyser_dtd_pi($dtd, &$dtc, $grammaire) {
-	if (!preg_match('/^<\?.*?>\s*(.*)$/s', (string) $dtd, $m)) {
-		return -10;
-	}
+    if (!preg_match('/^<\?.*?>\s*(.*)$/s', (string) $dtd, $m)) {
+        return -10;
+    }
 
-	return $m[1];
+    return $m[1];
 }
 
 function analyser_dtd_lexeme($dtd, &$dtc, $grammaire) {
 
-	if (!preg_match(_REGEXP_ENTITY_DEF, (string) $dtd, $m)) {
-		return -9;
-	}
-
-	[, $s] = $m;
-	$n = $dtc->macros[$s];
-
-	if (is_array($n)) {
-		// en cas d'inclusion, l'espace de nom est le meme
-		// mais gaffe aux DTD dont l'URL est relative a l'engloblante
-		if (
-			$n[0] == 'PUBLIC' && !tester_url_absolue($n[1])
-		) {
-			$n[1] = substr((string) $grammaire, 0, strrpos((string) $grammaire, '/') + 1) . $n[1];
-		}
-		analyser_dtd($n[1], $n[0], $dtc);
-	}
-
-	return ltrim(substr((string) $dtd, strlen($m[0])));
+    if (!preg_match(_REGEXP_ENTITY_DEF, (string) $dtd, $m)) {
+        return -9;
+    }
+
+    [, $s] = $m;
+    $n = $dtc->macros[$s];
+
+    if (is_array($n)) {
+        // en cas d'inclusion, l'espace de nom est le meme
+        // mais gaffe aux DTD dont l'URL est relative a l'engloblante
+        if (
+            $n[0] == 'PUBLIC' && !tester_url_absolue($n[1])
+        ) {
+            $n[1] = substr((string) $grammaire, 0, strrpos((string) $grammaire, '/') + 1) . $n[1];
+        }
+        analyser_dtd($n[1], $n[0], $dtc);
+    }
+
+    return ltrim(substr((string) $dtd, strlen($m[0])));
 }
 
 // il faudrait gerer plus proprement les niveaux d'inclusion:
@@ -211,78 +211,78 @@ 
 
 function analyser_dtd_data($dtd, &$dtc, $grammaire) {
 
-	if (!preg_match(_REGEXP_INCLUDE_USE, (string) $dtd, $m)) {
-		return -11;
-	}
-	if (
-		!preg_match(
-			'/^((\s*<!(\[\s*%\s*[^;]*;\s*\[([^]<]*<[^>]*>)*[^]<]*\]\]>)|([^]>]*>))*[^]<]*)\]\]>\s*/s',
-			$m[2],
-			$r
-		)
-	) {
-		return -12;
-	}
-
-	return $dtc->macros[$m[1]] == 'INCLUDE'
-		? $r[1] . substr($m[2], strlen($r[0]))
-		: substr($m[2], strlen($r[0]));
+    if (!preg_match(_REGEXP_INCLUDE_USE, (string) $dtd, $m)) {
+        return -11;
+    }
+    if (
+        !preg_match(
+            '/^((\s*<!(\[\s*%\s*[^;]*;\s*\[([^]<]*<[^>]*>)*[^]<]*\]\]>)|([^]>]*>))*[^]<]*)\]\]>\s*/s',
+            $m[2],
+            $r
+        )
+    ) {
+        return -12;
+    }
+
+    return $dtc->macros[$m[1]] == 'INCLUDE'
+        ? $r[1] . substr($m[2], strlen($r[0]))
+        : substr($m[2], strlen($r[0]));
 }
 
 function analyser_dtd_notation($dtd, &$dtc, $grammaire) {
-	if (!preg_match('/^<!NOTATION.*?>\s*(.*)$/s', (string) $dtd, $m)) {
-		return -8;
-	}
-	spip_log('analyser_dtd_notation a ecrire');
+    if (!preg_match('/^<!NOTATION.*?>\s*(.*)$/s', (string) $dtd, $m)) {
+        return -8;
+    }
+    spip_log('analyser_dtd_notation a ecrire');
 
-	return $m[1];
+    return $m[1];
 }
 
 function analyser_dtd_entity($dtd, &$dtc, $grammaire) {
-	if (!preg_match(_REGEXP_ENTITY_DECL, (string) $dtd, $m)) {
-		return -2;
-	}
-
-	[$t, $term, $nom, $type, $k1, $k2, $k3, $k4, $k5, $k6, $c, $q, $alt, $dtd] = $m;
-
-	if (isset($dtc->macros[$nom]) && $dtc->macros[$nom]) {
-		return $dtd;
-	}
-	if (isset($dtc->entites[$nom])) {
-		spip_log("redefinition de l'entite $nom");
-	}
-	if ($k6) {
-		return $k6 . $dtd;
-	} // cas du synonyme complet
-	$val = expanserEntite(($k2 ? $k3 : ($k4 ? $k5 : $k6)), $dtc->macros);
-
-	// cas particulier double evaluation: 'PUBLIC "..." "...."'
-	if (preg_match('/(PUBLIC|SYSTEM)\s+"([^"]*)"\s*("([^"]*)")?\s*$/s', $val, $r)) {
-		[$t, $type, $val, $q, $alt] = $r;
-	}
-
-	if (!$term) {
-		$dtc->entites[$nom] = $val;
-	} elseif (!$type) {
-		$dtc->macros[$nom] = $val;
-	} else {
-		if ($type == 'SYSTEM' && !$alt) {
-			$alt = $val;
-		}
-		if (!$alt) {
-			$dtc->macros[$nom] = $val;
-		} else {
-			if (
-				$type == 'PUBLIC' && !str_contains($alt, '/')
-			) {
-				$alt = preg_replace(',/[^/]+$,', '/', (string) $grammaire)
-					. $alt;
-			}
-			$dtc->macros[$nom] = [$type, $alt];
-		}
-	}
-
-	return $dtd;
+    if (!preg_match(_REGEXP_ENTITY_DECL, (string) $dtd, $m)) {
+        return -2;
+    }
+
+    [$t, $term, $nom, $type, $k1, $k2, $k3, $k4, $k5, $k6, $c, $q, $alt, $dtd] = $m;
+
+    if (isset($dtc->macros[$nom]) && $dtc->macros[$nom]) {
+        return $dtd;
+    }
+    if (isset($dtc->entites[$nom])) {
+        spip_log("redefinition de l'entite $nom");
+    }
+    if ($k6) {
+        return $k6 . $dtd;
+    } // cas du synonyme complet
+    $val = expanserEntite(($k2 ? $k3 : ($k4 ? $k5 : $k6)), $dtc->macros);
+
+    // cas particulier double evaluation: 'PUBLIC "..." "...."'
+    if (preg_match('/(PUBLIC|SYSTEM)\s+"([^"]*)"\s*("([^"]*)")?\s*$/s', $val, $r)) {
+        [$t, $type, $val, $q, $alt] = $r;
+    }
+
+    if (!$term) {
+        $dtc->entites[$nom] = $val;
+    } elseif (!$type) {
+        $dtc->macros[$nom] = $val;
+    } else {
+        if ($type == 'SYSTEM' && !$alt) {
+            $alt = $val;
+        }
+        if (!$alt) {
+            $dtc->macros[$nom] = $val;
+        } else {
+            if (
+                $type == 'PUBLIC' && !str_contains($alt, '/')
+            ) {
+                $alt = preg_replace(',/[^/]+$,', '/', (string) $grammaire)
+                    . $alt;
+            }
+            $dtc->macros[$nom] = [$type, $alt];
+        }
+    }
+
+    return $dtd;
 }
 
 // Dresser le tableau des filles potentielles de l'element
@@ -295,71 +295,71 @@ 
 // Fin du controle en finElement
 
 function analyser_dtd_element($dtd, &$dtc, $grammaire) {
-	if (!preg_match('/^<!ELEMENT\s+([^>\s]+)([^>]*)>\s*(.*)$/s', (string) $dtd, $m)) {
-		return -3;
-	}
-
-	[, $nom, $contenu, $dtd] = $m;
-	$nom = expanserEntite($nom, $dtc->macros);
-
-	if (isset($dtc->elements[$nom])) {
-		spip_log("redefinition de l'element $nom dans la DTD");
-
-		return -4;
-	}
-	$filles = [];
-	$contenu = expanserEntite($contenu, $dtc->macros);
-	$val = $contenu ? compilerRegle($contenu) : '(?:EMPTY )';
-	if ($val == '(?:EMPTY )') {
-		$dtc->regles[$nom] = 'EMPTY';
-	} elseif ($val == '(?:ANY )') {
-		$dtc->regles[$nom] = 'ANY';
-	} else {
-		$last = substr((string) $val, -1);
-		$dtc->regles[$nom] = preg_match('/ \w/', (string) $val) || (!empty($last) && !str_contains('*+?', $last))
-			? "/^$val$/"
-			: $last;
-		$filles = array_values(preg_split('/\W+/', (string) $val, -1, PREG_SPLIT_NO_EMPTY));
-
-		foreach ($filles as $k) {
-			if (!isset($dtc->peres[$k])) {
-				$dtc->peres[$k] = [];
-			}
-			if (!in_array($nom, $dtc->peres[$k])) {
-				$dtc->peres[$k][] = $nom;
-			}
-		}
-	}
-	$dtc->pcdata[$nom] = (!str_contains($contenu, '#PCDATA'));
-	$dtc->elements[$nom] = $filles;
-
-	return $dtd;
+    if (!preg_match('/^<!ELEMENT\s+([^>\s]+)([^>]*)>\s*(.*)$/s', (string) $dtd, $m)) {
+        return -3;
+    }
+
+    [, $nom, $contenu, $dtd] = $m;
+    $nom = expanserEntite($nom, $dtc->macros);
+
+    if (isset($dtc->elements[$nom])) {
+        spip_log("redefinition de l'element $nom dans la DTD");
+
+        return -4;
+    }
+    $filles = [];
+    $contenu = expanserEntite($contenu, $dtc->macros);
+    $val = $contenu ? compilerRegle($contenu) : '(?:EMPTY )';
+    if ($val == '(?:EMPTY )') {
+        $dtc->regles[$nom] = 'EMPTY';
+    } elseif ($val == '(?:ANY )') {
+        $dtc->regles[$nom] = 'ANY';
+    } else {
+        $last = substr((string) $val, -1);
+        $dtc->regles[$nom] = preg_match('/ \w/', (string) $val) || (!empty($last) && !str_contains('*+?', $last))
+            ? "/^$val$/"
+            : $last;
+        $filles = array_values(preg_split('/\W+/', (string) $val, -1, PREG_SPLIT_NO_EMPTY));
+
+        foreach ($filles as $k) {
+            if (!isset($dtc->peres[$k])) {
+                $dtc->peres[$k] = [];
+            }
+            if (!in_array($nom, $dtc->peres[$k])) {
+                $dtc->peres[$k][] = $nom;
+            }
+        }
+    }
+    $dtc->pcdata[$nom] = (!str_contains($contenu, '#PCDATA'));
+    $dtc->elements[$nom] = $filles;
+
+    return $dtd;
 }
 
 
 function analyser_dtd_attlist($dtd, &$dtc, $grammaire) {
-	if (!preg_match('/^<!ATTLIST\s+(\S+)\s+([^>]*)>\s*(.*)/s', (string) $dtd, $m)) {
-		return -5;
-	}
-
-	[, $nom, $val, $dtd] = $m;
-	$nom = expanserEntite($nom, $dtc->macros);
-	$val = expanserEntite($val, $dtc->macros);
-	if (!isset($dtc->attributs[$nom])) {
-		$dtc->attributs[$nom] = [];
-	}
-
-	if (preg_match_all("/\s*(\S+)\s+(([(][^)]*[)])|(\S+))\s+([^\s']*)(\s*'[^']*')?/", $val, $r2, PREG_SET_ORDER)) {
-		foreach ($r2 as $m2) {
-			$v = preg_match('/^\w+$/', $m2[2]) ? $m2[2]
-				: ('/^' . preg_replace('/\s+/', '', $m2[2]) . '$/');
-			$m21 = expanserEntite($m2[1], $dtc->macros);
-			$m25 = expanserEntite($m2[5], $dtc->macros);
-			$dtc->attributs[$nom][$m21] = [$v, $m25];
-		}
-	}
-
-	return $dtd;
+    if (!preg_match('/^<!ATTLIST\s+(\S+)\s+([^>]*)>\s*(.*)/s', (string) $dtd, $m)) {
+        return -5;
+    }
+
+    [, $nom, $val, $dtd] = $m;
+    $nom = expanserEntite($nom, $dtc->macros);
+    $val = expanserEntite($val, $dtc->macros);
+    if (!isset($dtc->attributs[$nom])) {
+        $dtc->attributs[$nom] = [];
+    }
+
+    if (preg_match_all("/\s*(\S+)\s+(([(][^)]*[)])|(\S+))\s+([^\s']*)(\s*'[^']*')?/", $val, $r2, PREG_SET_ORDER)) {
+        foreach ($r2 as $m2) {
+            $v = preg_match('/^\w+$/', $m2[2]) ? $m2[2]
+                : ('/^' . preg_replace('/\s+/', '', $m2[2]) . '$/');
+            $m21 = expanserEntite($m2[1], $dtc->macros);
+            $m25 = expanserEntite($m2[5], $dtc->macros);
+            $dtc->attributs[$nom][$m21] = [$v, $m25];
+        }
+    }
+
+    return $dtd;
 }
 
 
@@ -375,26 +375,26 @@ 
  * @return string|array
  **/
 function expanserEntite($val, $macros = []) {
-	static $vu = [];
-	if (!is_string($val)) {
-		return $vu;
-	}
-
-	if (preg_match_all(_REGEXP_ENTITY_USE, $val, $r, PREG_SET_ORDER)) {
-		foreach ($r as $m) {
-			$ent = $m[1];
-			// il peut valoir ""
-			if (!isset($macros[$ent])) {
-				spip_log("Entite $ent inconnu");
-			} else {
-				if (!isset($vu[$ent])) {
-					$vu[$ent] = 0;
-				}
-				++$vu[$ent];
-				$val = str_replace($m[0], $macros[$ent], $val);
-			}
-		}
-	}
-
-	return trim(preg_replace('/\s+/', ' ', $val));
+    static $vu = [];
+    if (!is_string($val)) {
+        return $vu;
+    }
+
+    if (preg_match_all(_REGEXP_ENTITY_USE, $val, $r, PREG_SET_ORDER)) {
+        foreach ($r as $m) {
+            $ent = $m[1];
+            // il peut valoir ""
+            if (!isset($macros[$ent])) {
+                spip_log("Entite $ent inconnu");
+            } else {
+                if (!isset($vu[$ent])) {
+                    $vu[$ent] = 0;
+                }
+                ++$vu[$ent];
+                $val = str_replace($m[0], $macros[$ent], $val);
+            }
+        }
+    }
+
+    return trim(preg_replace('/\s+/', ' ', $val));
 }

ecrire/index.php

Indentation +75 added lines, -75 removed lines

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

ecrire/exec/base_delete_all.php

Indentation +30 added lines, -30 removed lines

@@ -16,40 +16,40 @@
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
  * Exec de la page de destruction des tables de SPIP
  **/
 function exec_base_delete_all_dist() {
-	include_spip('inc/autoriser');
-	if (!autoriser('detruire')) {
-		include_spip('inc/minipres');
-		echo minipres();
-	} else {
-		include_spip('base/dump');
-		$res = base_lister_toutes_tables('', [], [], true);
-		if (!$res) {
-			include_spip('inc/minipres');
-			spip_log('Erreur base de donnees');
-			echo minipres(
-				_T('info_travaux_titre'),
-				_T('titre_probleme_technique') . '<p><tt>' . sql_errno() . ' ' . sql_error() . '</tt></p>'
-			);
-		} else {
-			$res = base_saisie_tables('delete', $res);
-			include_spip('inc/headers');
-			$res = "\n<ol style='text-align:left'><li>\n" .
-				implode("</li>\n<li>", $res) .
-				'</li></ol>';
-			$admin = charger_fonction('admin', 'inc');
-			$res = $admin('delete_all', _T('titre_page_delete_all'), $res);
-			if (!$res) {
-				redirige_url_ecrire('install', '');
-			} else {
-				echo $res;
-			}
-		}
-	}
+    include_spip('inc/autoriser');
+    if (!autoriser('detruire')) {
+        include_spip('inc/minipres');
+        echo minipres();
+    } else {
+        include_spip('base/dump');
+        $res = base_lister_toutes_tables('', [], [], true);
+        if (!$res) {
+            include_spip('inc/minipres');
+            spip_log('Erreur base de donnees');
+            echo minipres(
+                _T('info_travaux_titre'),
+                _T('titre_probleme_technique') . '<p><tt>' . sql_errno() . ' ' . sql_error() . '</tt></p>'
+            );
+        } else {
+            $res = base_saisie_tables('delete', $res);
+            include_spip('inc/headers');
+            $res = "\n<ol style='text-align:left'><li>\n" .
+                implode("</li>\n<li>", $res) .
+                '</li></ol>';
+            $admin = charger_fonction('admin', 'inc');
+            $res = $admin('delete_all', _T('titre_page_delete_all'), $res);
+            if (!$res) {
+                redirige_url_ecrire('install', '');
+            } else {
+                echo $res;
+            }
+        }
+    }
 }

ecrire/exec/puce_statut.php

Indentation +20 added lines, -20 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/presentation');
@@ -30,7 +30,7 @@ 
  * @uses exec_puce_statut_args()
  **/
 function exec_puce_statut_dist(): void {
-	exec_puce_statut_args(_request('id'), _request('type'));
+    exec_puce_statut_args(_request('id'), _request('type'));
 }
 
 /**
@@ -49,22 +49,22 @@ 
  *     Type d'objet
  **/
 function exec_puce_statut_args($id, $type): void {
-	$id = (int) $id;
-	if (
-		($table_objet_sql = table_objet_sql($type))
-		&& ($d = lister_tables_objets_sql($table_objet_sql))
-		&& isset($d['statut_textes_instituer'])
-		&& $d['statut_textes_instituer']
-	) {
-		$prim = id_table_objet($type);
-		$select = isset($d['field']['id_rubrique']) ? 'id_rubrique,statut' : '0 as id_rubrique,statut';
-		$r = sql_fetsel($select, $table_objet_sql, "$prim=$id");
-		$statut = $r['statut'];
-		$id_rubrique = $r['id_rubrique'];
-	} else {
-		$id_rubrique = $id;
-		$statut = 'prop'; // arbitraire
-	}
-	$puce_statut = charger_fonction('puce_statut', 'inc');
-	ajax_retour($puce_statut($id, $statut, $id_rubrique, $type, true));
+    $id = (int) $id;
+    if (
+        ($table_objet_sql = table_objet_sql($type))
+        && ($d = lister_tables_objets_sql($table_objet_sql))
+        && isset($d['statut_textes_instituer'])
+        && $d['statut_textes_instituer']
+    ) {
+        $prim = id_table_objet($type);
+        $select = isset($d['field']['id_rubrique']) ? 'id_rubrique,statut' : '0 as id_rubrique,statut';
+        $r = sql_fetsel($select, $table_objet_sql, "$prim=$id");
+        $statut = $r['statut'];
+        $id_rubrique = $r['id_rubrique'];
+    } else {
+        $id_rubrique = $id;
+        $statut = 'prop'; // arbitraire
+    }
+    $puce_statut = charger_fonction('puce_statut', 'inc');
+    ajax_retour($puce_statut($id, $statut, $id_rubrique, $type, true));
 }

ecrire/exec/informer.php

Indentation +15 added lines, -15 removed lines

@@ -16,7 +16,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/actions');
@@ -28,20 +28,20 @@ 
  * @uses ajax_retour()
  **/
 function exec_informer_dist() {
-	$id = (int) _request('id');
-	$col = (int) _request('col');
-	$exclus = (int) _request('exclus');
-	$do = _request('do');
+    $id = (int) _request('id');
+    $col = (int) _request('col');
+    $exclus = (int) _request('exclus');
+    $do = _request('do');
 
-	if (preg_match('/^\w*$/', (string) $do)) {
-		if (!$do) {
-			$do = 'aff';
-		}
+    if (preg_match('/^\w*$/', (string) $do)) {
+        if (!$do) {
+            $do = 'aff';
+        }
 
-		$informer = charger_fonction('informer', 'inc');
-		$res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do);
-	} else {
-		$res = '';
-	}
-	ajax_retour($res);
+        $informer = charger_fonction('informer', 'inc');
+        $res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do);
+    } else {
+        $res = '';
+    }
+    ajax_retour($res);
 }