spip / SPIP

ecrire/base/abstract_sql.php

Spacing +11 added lines, -11 removed lines

@@ -52,17 +52,17 @@ 
 
 	if ($compil_info) {
 		return [
-			$trace[0]['file'],// sourcefile
+			$trace[0]['file'], // sourcefile
 			'', //nom
-			(isset($trace[1]) ? $trace[1]['function'] . "(){\n" : '')
-			. $trace[0]['function'] . '();'
+			(isset($trace[1]) ? $trace[1]['function']."(){\n" : '')
+			. $trace[0]['function'].'();'
 			. (isset($trace[1]) ? "\n}" : ''), //id_boucle
 			$trace[0]['line'], // ligne
 			$GLOBALS['spip_lang'], // lang
 		];
 	}
 
-	$message = count($trace) ? $trace[0]['file'] . ' L' . $trace[0]['line'] : '';
+	$message = count($trace) ? $trace[0]['file'].' L'.$trace[0]['line'] : '';
 	$f = [];
 	while (count($trace) && ($t = array_shift($trace))) {
 		if (in_array($t['function'], ['include_once', 'include_spip', 'find_in_path'])) {
@@ -71,7 +71,7 @@ 
 		$f[] = $t['function'];
 	}
 	if ($f !== []) {
-		$message .= ' [' . implode('(),', $f) . '()]';
+		$message .= ' ['.implode('(),', $f).'()]';
 	}
 
 	return $message;
@@ -264,7 +264,7 @@ 
 		// le debug, c'est pour ce qui a ete produit par le compilateur
 		if (isset($GLOBALS['debug']['aucasou'])) {
 			[$table, $id, ] = $GLOBALS['debug']['aucasou'];
-			$nom = $GLOBALS['debug_objets']['courant'] . $id;
+			$nom = $GLOBALS['debug_objets']['courant'].$id;
 			$GLOBALS['debug_objets']['requete'][$nom] = $query;
 		}
 		$res = $f($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, true);
@@ -1141,7 +1141,7 @@ 
 	// la globale n'est remplie qu'apres l'appel de sql_serveur.
 	if ($spip == null) {
 		$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-		$spip = $connexion['prefixe'] . '\_%';
+		$spip = $connexion['prefixe'].'\_%';
 	}
 
 	return $f($spip, $serveur, $option !== false);
@@ -2298,9 +2298,9 @@ 
 		$jour = 0;
 	}
 
-	return sprintf('%04u', $annee) . '-' . sprintf('%02u', $mois) . '-'
-	. sprintf('%02u', $jour) . ' ' . sprintf('%02u', $h) . ':'
-	. sprintf('%02u', $m) . ':' . sprintf('%02u', $s);
+	return sprintf('%04u', $annee).'-'.sprintf('%02u', $mois).'-'
+	. sprintf('%02u', $jour).' '.sprintf('%02u', $h).':'
+	. sprintf('%02u', $m).':'.sprintf('%02u', $s);
 }
 
 
@@ -2362,7 +2362,7 @@ 
  */
 function prefixer_table_spip($table, $prefixe) {
 	if ($prefixe) {
-		$table = preg_replace('/^spip_/', $prefixe . '_', $table);
+		$table = preg_replace('/^spip_/', $prefixe.'_', $table);
 	}
 	return $table;
 }

Indentation +688 added lines, -688 removed lines

@@ -24,7 +24,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Version de l'API SQL */
@@ -44,37 +44,37 @@ 
  *     contexte de l'erreur
  **/
 function sql_error_backtrace($compil_info = false) {
-	$trace = debug_backtrace();
-	$caller = array_shift($trace);
-	while (count($trace) && (empty($trace[0]['file']) || $trace[0]['file'] === $caller['file'] || $trace[0]['file'] === __FILE__)) {
-		array_shift($trace);
-	}
-
-	if ($compil_info) {
-		return [
-			$trace[0]['file'],// sourcefile
-			'', //nom
-			(isset($trace[1]) ? $trace[1]['function'] . "(){\n" : '')
-			. $trace[0]['function'] . '();'
-			. (isset($trace[1]) ? "\n}" : ''), //id_boucle
-			$trace[0]['line'], // ligne
-			$GLOBALS['spip_lang'], // lang
-		];
-	}
-
-	$message = count($trace) ? $trace[0]['file'] . ' L' . $trace[0]['line'] : '';
-	$f = [];
-	while (count($trace) && ($t = array_shift($trace))) {
-		if (in_array($t['function'], ['include_once', 'include_spip', 'find_in_path'])) {
-			break;
-		}
-		$f[] = $t['function'];
-	}
-	if ($f !== []) {
-		$message .= ' [' . implode('(),', $f) . '()]';
-	}
-
-	return $message;
+    $trace = debug_backtrace();
+    $caller = array_shift($trace);
+    while (count($trace) && (empty($trace[0]['file']) || $trace[0]['file'] === $caller['file'] || $trace[0]['file'] === __FILE__)) {
+        array_shift($trace);
+    }
+
+    if ($compil_info) {
+        return [
+            $trace[0]['file'],// sourcefile
+            '', //nom
+            (isset($trace[1]) ? $trace[1]['function'] . "(){\n" : '')
+            . $trace[0]['function'] . '();'
+            . (isset($trace[1]) ? "\n}" : ''), //id_boucle
+            $trace[0]['line'], // ligne
+            $GLOBALS['spip_lang'], // lang
+        ];
+    }
+
+    $message = count($trace) ? $trace[0]['file'] . ' L' . $trace[0]['line'] : '';
+    $f = [];
+    while (count($trace) && ($t = array_shift($trace))) {
+        if (in_array($t['function'], ['include_once', 'include_spip', 'find_in_path'])) {
+            break;
+        }
+        $f[] = $t['function'];
+    }
+    if ($f !== []) {
+        $message .= ' [' . implode('(),', $f) . '()]';
+    }
+
+    return $message;
 }
 
 
@@ -99,16 +99,16 @@ 
  *
  **/
 function sql_serveur($ins_sql = '', $serveur = '', $continue = false) {
-	static $sql_serveur = [];
-	if (!isset($sql_serveur[$serveur][$ins_sql])) {
-		$f = spip_connect_sql(\SQL_ABSTRACT_VERSION, $ins_sql, $serveur, $continue);
-		if (!is_string($f) || !$f) {
-			return $f;
-		}
-		$sql_serveur[$serveur][$ins_sql] = $f;
-	}
-
-	return $sql_serveur[$serveur][$ins_sql];
+    static $sql_serveur = [];
+    if (!isset($sql_serveur[$serveur][$ins_sql])) {
+        $f = spip_connect_sql(\SQL_ABSTRACT_VERSION, $ins_sql, $serveur, $continue);
+        if (!is_string($f) || !$f) {
+            return $f;
+        }
+        $sql_serveur[$serveur][$ins_sql] = $f;
+    }
+
+    return $sql_serveur[$serveur][$ins_sql];
 }
 
 /**
@@ -130,23 +130,23 @@ 
  *     Retourne le nom du charset si effectivement trouvé, sinon false.
  **/
 function sql_get_charset($charset, $serveur = '', $option = true) {
-	// le nom http du charset differe parfois du nom SQL utf-8 ==> utf8 etc.
-	$desc = sql_serveur('', $serveur, true);
-	$desc = $desc[\SQL_ABSTRACT_VERSION];
-	$c = $desc['charsets'][$charset];
-	if (
-		$c
-		&& function_exists($f = @$desc['get_charset'])
-		&& $f($c, $serveur, $option)
-	) {
-		return $c;
-	}
-	spip_log(
-		"SPIP ne connait pas les Charsets disponibles sur le serveur $serveur. Le serveur choisira seul.",
-		_LOG_AVERTISSEMENT
-	);
-
-	return false;
+    // le nom http du charset differe parfois du nom SQL utf-8 ==> utf8 etc.
+    $desc = sql_serveur('', $serveur, true);
+    $desc = $desc[\SQL_ABSTRACT_VERSION];
+    $c = $desc['charsets'][$charset];
+    if (
+        $c
+        && function_exists($f = @$desc['get_charset'])
+        && $f($c, $serveur, $option)
+    ) {
+        return $c;
+    }
+    spip_log(
+        "SPIP ne connait pas les Charsets disponibles sur le serveur $serveur. Le serveur choisira seul.",
+        _LOG_AVERTISSEMENT
+    );
+
+    return false;
 }
 
 
@@ -172,12 +172,12 @@ 
  *    Retourne true si elle reussie.
  **/
 function sql_set_charset($charset, $serveur = '', $option = true) {
-	$f = sql_serveur('set_charset', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('set_charset', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($charset, $serveur, $option !== false);
+    return $f($charset, $serveur, $option !== false);
 }
 
 
@@ -228,59 +228,59 @@ 
  *
  **/
 function sql_select(
-	$select = [],
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = '',
-	$option = true
+    $select = [],
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = '',
+    $option = true
 ) {
-	$f = sql_serveur('select', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-
-	$debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
-	if ($option !== false && !$debug) {
-		$res = $f(
-			$select,
-			$from,
-			$where,
-			$groupby,
-			$orderby,
-			$limit,
-			$having,
-			$serveur,
-			is_array($option) ? true : $option
-		);
-	} else {
-		$query = $f($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, false);
-		if (!$option) {
-			return $query;
-		}
-		// le debug, c'est pour ce qui a ete produit par le compilateur
-		if (isset($GLOBALS['debug']['aucasou'])) {
-			[$table, $id, ] = $GLOBALS['debug']['aucasou'];
-			$nom = $GLOBALS['debug_objets']['courant'] . $id;
-			$GLOBALS['debug_objets']['requete'][$nom] = $query;
-		}
-		$res = $f($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, true);
-	}
-
-	// en cas d'erreur
-	if (!is_string($res)) {
-		return $res;
-	}
-	// denoncer l'erreur SQL dans sa version brute
-	spip_sql_erreur($serveur);
-	// idem dans sa version squelette (prefixe des tables non substitue)
-	$contexte_compil = sql_error_backtrace(true);
-	erreur_squelette([sql_errno($serveur), sql_error($serveur), $res], $contexte_compil);
-
-	return false;
+    $f = sql_serveur('select', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+
+    $debug = (defined('_VAR_MODE') && _VAR_MODE == 'debug');
+    if ($option !== false && !$debug) {
+        $res = $f(
+            $select,
+            $from,
+            $where,
+            $groupby,
+            $orderby,
+            $limit,
+            $having,
+            $serveur,
+            is_array($option) ? true : $option
+        );
+    } else {
+        $query = $f($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, false);
+        if (!$option) {
+            return $query;
+        }
+        // le debug, c'est pour ce qui a ete produit par le compilateur
+        if (isset($GLOBALS['debug']['aucasou'])) {
+            [$table, $id, ] = $GLOBALS['debug']['aucasou'];
+            $nom = $GLOBALS['debug_objets']['courant'] . $id;
+            $GLOBALS['debug_objets']['requete'][$nom] = $query;
+        }
+        $res = $f($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, true);
+    }
+
+    // en cas d'erreur
+    if (!is_string($res)) {
+        return $res;
+    }
+    // denoncer l'erreur SQL dans sa version brute
+    spip_sql_erreur($serveur);
+    // idem dans sa version squelette (prefixe des tables non substitue)
+    $contexte_compil = sql_error_backtrace(true);
+    erreur_squelette([sql_errno($serveur), sql_error($serveur), $res], $contexte_compil);
+
+    return false;
 }
 
 
@@ -317,16 +317,16 @@ 
  *
  **/
 function sql_get_select(
-	$select = [],
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = ''
+    $select = [],
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = ''
 ) {
-	return sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, false);
+    return sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, false);
 }
 
 
@@ -370,23 +370,23 @@ 
  *
  **/
 function sql_countsel(
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$having = [],
-	$serveur = '',
-	$option = true
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $having = [],
+    $serveur = '',
+    $option = true
 ) {
-	$f = sql_serveur('countsel', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($from, $where, $groupby, $having, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('countsel', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($from, $where, $groupby, $having, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -418,16 +418,16 @@ 
  *     Ce retour n'est pas pertinent pour savoir si l'opération est correctement réalisée.
  **/
 function sql_alter($q, $serveur = '', $option = true) {
-	$f = sql_serveur('alter', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($q, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('alter', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($q, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -450,12 +450,12 @@ 
  *    presentant une ligne de resultat d'une selection
  */
 function sql_fetch(mixed $res, $serveur = '', $option = true) {
-	$f = sql_serveur('fetch', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('fetch', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($res, null, $serveur, $option !== false);
+    return $f($res, null, $serveur, $option !== false);
 }
 
 
@@ -482,20 +482,20 @@ 
  *    presentant une ligne de resultat d'une selection
  */
 function sql_fetch_all(mixed $res, $serveur = '', $option = true) {
-	$rows = [];
-	if (!$res) {
-		return $rows;
-	}
-	$f = sql_serveur('fetch', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return [];
-	}
-	while ($r = $f($res, null, $serveur, $option !== false)) {
-		$rows[] = $r;
-	}
-	sql_free($res, $serveur);
-
-	return $rows;
+    $rows = [];
+    if (!$res) {
+        return $rows;
+    }
+    $f = sql_serveur('fetch', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return [];
+    }
+    while ($r = $f($res, null, $serveur, $option !== false)) {
+        $rows[] = $r;
+    }
+    sql_free($res, $serveur);
+
+    return $rows;
 }
 
 /**
@@ -523,16 +523,16 @@ 
  *    Operation effectuée (true), sinon false.
  **/
 function sql_seek(mixed $res, $row_number, $serveur = '', $option = true) {
-	$f = sql_serveur('seek', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($res, $row_number, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('seek', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($res, $row_number, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -557,16 +557,16 @@ 
  *    False en cas d'erreur.
  **/
 function sql_listdbs($serveur = '', $option = true) {
-	$f = sql_serveur('listdbs', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($serveur);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('listdbs', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($serveur);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -589,16 +589,16 @@ 
  *     - False en cas d'erreur.
  **/
 function sql_selectdb($nom, $serveur = '', $option = true) {
-	$f = sql_serveur('selectdb', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($nom, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('selectdb', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($nom, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -623,16 +623,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_count($res, $serveur = '', $option = true) {
-	$f = sql_serveur('count', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($res, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('count', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($res, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -654,12 +654,12 @@ 
  *     True si réussi
  */
 function sql_free($res, $serveur = '', $option = true) {
-	$f = sql_serveur('free', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('free', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($res);
+    return $f($res);
 }
 
 
@@ -697,17 +697,17 @@ 
  *     - False en cas d'erreur.
  **/
 function sql_insert($table, $noms, $valeurs, $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('insert', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $noms, $valeurs, $desc, $serveur, $option !== false);
-	if ($r === false || $r === null) {
-		spip_sql_erreur($serveur);
-		$r = false;
-	}
-
-	return $r;
+    $f = sql_serveur('insert', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $noms, $valeurs, $desc, $serveur, $option !== false);
+    if ($r === false || $r === null) {
+        spip_sql_erreur($serveur);
+        $r = false;
+    }
+
+    return $r;
 }
 
 /**
@@ -748,17 +748,17 @@ 
  *     - False en cas d'erreur.
  **/
 function sql_insertq($table, $couples = [], $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('insertq', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $couples, $desc, $serveur, $option !== false);
-	if ($r === false || $r === null) {
-		spip_sql_erreur($serveur);
-		$r = false;
-	}
-
-	return $r;
+    $f = sql_serveur('insertq', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $couples, $desc, $serveur, $option !== false);
+    if ($r === false || $r === null) {
+        spip_sql_erreur($serveur);
+        $r = false;
+    }
+
+    return $r;
 }
 
 /**
@@ -793,17 +793,17 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_insertq_multi($table, $couples = [], $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('insertq_multi', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $couples, $desc, $serveur, $option !== false);
-	if ($r === false || $r === null) {
-		spip_sql_erreur($serveur);
-		$r = false;
-	}
-
-	return $r;
+    $f = sql_serveur('insertq_multi', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $couples, $desc, $serveur, $option !== false);
+    if ($r === false || $r === null) {
+        spip_sql_erreur($serveur);
+        $r = false;
+    }
+
+    return $r;
 }
 
 /**
@@ -843,16 +843,16 @@ 
  *     - array Tableau décrivant la requête et son temps d'exécution si var_profile est actif
  */
 function sql_update($table, $exp, $where = '', $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('update', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $exp, $where, $desc, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('update', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $exp, $where, $desc, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -898,16 +898,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_updateq($table, $exp, $where = '', $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('updateq', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $exp, $where, $desc, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('updateq', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $exp, $where, $desc, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -938,16 +938,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_delete($table, $where = '', $serveur = '', $option = true) {
-	$f = sql_serveur('delete', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $where, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('delete', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $where, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -983,16 +983,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_replace($table, $couples, $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('replace', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $couples, $desc, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('replace', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $couples, $desc, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -1030,16 +1030,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $option = true) {
-	$f = sql_serveur('replace_multi', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $tab_couples, $desc, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('replace_multi', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $tab_couples, $desc, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1067,16 +1067,16 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_drop_table($table, $exist = false, $serveur = '', $option = true) {
-	$f = sql_serveur('drop_table', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $exist, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('drop_table', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $exist, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1100,16 +1100,16 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function sql_drop_view($table, $exist = false, $serveur = '', $option = true) {
-	$f = sql_serveur('drop_view', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $exist, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('drop_view', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $exist, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1133,18 +1133,18 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function sql_showbase($spip = null, $serveur = '', $option = true) {
-	$f = sql_serveur('showbase', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-
-	// la globale n'est remplie qu'apres l'appel de sql_serveur.
-	if ($spip == null) {
-		$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-		$spip = $connexion['prefixe'] . '\_%';
-	}
-
-	return $f($spip, $serveur, $option !== false);
+    $f = sql_serveur('showbase', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+
+    // la globale n'est remplie qu'apres l'appel de sql_serveur.
+    if ($spip == null) {
+        $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+        $spip = $connexion['prefixe'] . '\_%';
+    }
+
+    return $f($spip, $serveur, $option !== false);
 }
 
 /**
@@ -1167,15 +1167,15 @@ 
  *     Liste des tables SQL
  **/
 function sql_alltable($spip = null, $serveur = '', $option = true) {
-	$q = sql_showbase($spip, $serveur, $option);
-	$r = [];
-	if ($q) {
-		while ($t = sql_fetch($q, $serveur)) {
-			$r[] = array_shift($t);
-		}
-	}
-
-	return $r;
+    $q = sql_showbase($spip, $serveur, $option);
+    $r = [];
+    if ($q) {
+        while ($t = sql_fetch($q, $serveur)) {
+            $r[] = array_shift($t);
+        }
+    }
+
+    return $r;
 }
 
 /**
@@ -1208,31 +1208,31 @@ 
  *       - 'join' => array() // jointures, si déclarées.
  **/
 function sql_showtable($table, $table_spip = false, $serveur = '', $option = true) {
-	$f = sql_serveur('showtable', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-
-	// la globale n'est remplie qu'apres l'appel de sql_serveur.
-	if ($table_spip) {
-		$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-		$prefixe = $connexion['prefixe'];
-		$vraie_table = prefixer_table_spip($table, $prefixe);
-	} else {
-		$vraie_table = $table;
-	}
-
-	$f = $f($vraie_table, $serveur, $option !== false);
-	if (!$f) {
-		return [];
-	}
-	if (isset($GLOBALS['tables_principales'][$table]['join'])) {
-		$f['join'] = $GLOBALS['tables_principales'][$table]['join'];
-	} elseif (isset($GLOBALS['tables_auxiliaires'][$table]['join'])) {
-		$f['join'] = $GLOBALS['tables_auxiliaires'][$table]['join'];
-	}
-
-	return $f;
+    $f = sql_serveur('showtable', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+
+    // la globale n'est remplie qu'apres l'appel de sql_serveur.
+    if ($table_spip) {
+        $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+        $prefixe = $connexion['prefixe'];
+        $vraie_table = prefixer_table_spip($table, $prefixe);
+    } else {
+        $vraie_table = $table;
+    }
+
+    $f = $f($vraie_table, $serveur, $option !== false);
+    if (!$f) {
+        return [];
+    }
+    if (isset($GLOBALS['tables_principales'][$table]['join'])) {
+        $f['join'] = $GLOBALS['tables_principales'][$table]['join'];
+    } elseif (isset($GLOBALS['tables_auxiliaires'][$table]['join'])) {
+        $f['join'] = $GLOBALS['tables_auxiliaires'][$table]['join'];
+    }
+
+    return $f;
 }
 
 
@@ -1259,21 +1259,21 @@ 
  *     - false en cas d'erreur.
  **/
 function sql_table_exists(string $table, bool $table_spip = true, $serveur = '', $option = true) {
-	$f = sql_serveur('table_exists', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-
-	// la globale n'est remplie qu'apres l'appel de sql_serveur.
-	if ($table_spip) {
-		$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-		$prefixe = $connexion['prefixe'];
-		$vraie_table = prefixer_table_spip($table, $prefixe);
-	} else {
-		$vraie_table = $table;
-	}
-
-	return $f($vraie_table, $serveur, $option !== false);
+    $f = sql_serveur('table_exists', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+
+    // la globale n'est remplie qu'apres l'appel de sql_serveur.
+    if ($table_spip) {
+        $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+        $prefixe = $connexion['prefixe'];
+        $vraie_table = prefixer_table_spip($table, $prefixe);
+    } else {
+        $vraie_table = $table;
+    }
+
+    return $f($vraie_table, $serveur, $option !== false);
 }
 
 
@@ -1319,24 +1319,24 @@ 
  *     true si succès, false en cas d'echec
  **/
 function sql_create(
-	$nom,
-	$champs,
-	$cles = [],
-	$autoinc = false,
-	$temporary = false,
-	$serveur = '',
-	$option = true
+    $nom,
+    $champs,
+    $cles = [],
+    $autoinc = false,
+    $temporary = false,
+    $serveur = '',
+    $option = true
 ) {
-	$f = sql_serveur('create', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($nom, $champs, $cles, $autoinc, $temporary, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('create', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($nom, $champs, $cles, $autoinc, $temporary, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1354,16 +1354,16 @@ 
  * @return bool true si la base est créee.
  **/
 function sql_create_base($nom, $serveur = '', $option = true) {
-	$f = sql_serveur('create_base', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($nom, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('create_base', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($nom, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -1393,16 +1393,16 @@ 
  *     - false en cas d'échec.
  **/
 function sql_create_view($nom, $select_query, $serveur = '', $option = true) {
-	$f = sql_serveur('create_view', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($nom, $select_query, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('create_view', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($nom, $select_query, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1431,12 +1431,12 @@ 
  *     texte de sélection pour la requête
  */
 function sql_multi($sel, $lang, $serveur = '', $option = true) {
-	$f = sql_serveur('multi', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('multi', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($sel, $lang);
+    return $f($sel, $lang);
 }
 
 
@@ -1451,12 +1451,12 @@ 
  *      False si le serveur est indisponible
  */
 function sql_error($serveur = '') {
-	$f = sql_serveur('error', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('error', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f('query inconnue', $serveur);
+    return $f('query inconnue', $serveur);
 }
 
 /**
@@ -1470,12 +1470,12 @@ 
  *      False si le serveur est indisponible
  */
 function sql_errno($serveur = '') {
-	$f = sql_serveur('errno', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('errno', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($serveur);
+    return $f($serveur);
 }
 
 /**
@@ -1493,16 +1493,16 @@ 
  * @return array|false   Tableau de l'explication
  */
 function sql_explain($q, $serveur = '', $option = true) {
-	$f = sql_serveur('explain', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($q, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('explain', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($q, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1520,16 +1520,16 @@ 
  * @return bool            Toujours true
  */
 function sql_optimize($table, $serveur = '', $option = true) {
-	$f = sql_serveur('optimize', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $serveur, $option);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('optimize', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $serveur, $option);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1549,16 +1549,16 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function sql_repair($table, $serveur = '', $option = true) {
-	$f = sql_serveur('repair', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($table, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('repair', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($table, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 
@@ -1583,16 +1583,16 @@ 
  *     - array : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function sql_query($ins, $serveur = '', $option = true) {
-	$f = sql_serveur('query', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($ins, $serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('query', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($ins, $serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 /**
@@ -1640,27 +1640,27 @@ 
  *
  **/
 function sql_fetsel(
-	$select = [],
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = '',
-	$option = true
+    $select = [],
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = '',
+    $option = true
 ) {
-	$q = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
-	if ($option === false) {
-		return $q;
-	}
-	if (!$q) {
-		return [];
-	}
-	$r = sql_fetch($q, $serveur, $option);
-	sql_free($q, $serveur, $option);
-
-	return $r;
+    $q = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
+    if ($option === false) {
+        return $q;
+    }
+    if (!$q) {
+        return [];
+    }
+    $r = sql_fetch($q, $serveur, $option);
+    sql_free($q, $serveur, $option);
+
+    return $r;
 }
 
 
@@ -1717,22 +1717,22 @@ 
  *
  **/
 function sql_allfetsel(
-	$select = [],
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = '',
-	$option = true
+    $select = [],
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = '',
+    $option = true
 ) {
-	$q = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
-	if ($option === false) {
-		return $q;
-	}
+    $q = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
+    if ($option === false) {
+        return $q;
+    }
 
-	return sql_fetch_all($q, $serveur, $option);
+    return sql_fetch_all($q, $serveur, $option);
 }
 
 
@@ -1779,33 +1779,33 @@ 
  *
  **/
 function sql_getfetsel(
-	$select,
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = '',
-	$option = true
+    $select,
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = '',
+    $option = true
 ) {
-	if (preg_match('/\s+as\s+(\w+)$/i', $select, $c)) {
-		$id = $c[1];
-	} elseif (!preg_match('/\W/', $select)) {
-		$id = $select;
-	} else {
-		$id = 'n';
-		$select .= ' AS n';
-	}
-	$r = sql_fetsel($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
-	if ($option === false) {
-		return $r;
-	}
-	if (!$r) {
-		return null;
-	}
-
-	return $r[$id];
+    if (preg_match('/\s+as\s+(\w+)$/i', $select, $c)) {
+        $id = $c[1];
+    } elseif (!preg_match('/\W/', $select)) {
+        $id = $select;
+    } else {
+        $id = 'n';
+        $select .= ' AS n';
+    }
+    $r = sql_fetsel($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur, $option);
+    if ($option === false) {
+        return $r;
+    }
+    if (!$r) {
+        return null;
+    }
+
+    return $r[$id];
 }
 
 /**
@@ -1823,9 +1823,9 @@ 
  *    Numero de version du serveur SQL
  **/
 function sql_version($serveur = '', $option = true) {
-	$row = sql_fetsel('version() AS n', '', '', '', '', '', '', $serveur);
+    $row = sql_fetsel('version() AS n', '', '', '', '', '', '', $serveur);
 
-	return ($row['n']);
+    return ($row['n']);
 }
 
 /**
@@ -1861,16 +1861,16 @@ 
  *    Le serveur SQL prefere t'il des transactions pour les insertions multiples ?
  **/
 function sql_preferer_transaction($serveur = '', $option = true) {
-	$f = sql_serveur('preferer_transaction', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('preferer_transaction', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 ;
@@ -1895,16 +1895,16 @@ 
  *      false en cas d'erreur
  **/
 function sql_demarrer_transaction($serveur = '', $option = true) {
-	$f = sql_serveur('demarrer_transaction', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('demarrer_transaction', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 ;
@@ -1929,16 +1929,16 @@ 
  *      false en cas d'erreur
  **/
 function sql_terminer_transaction($serveur = '', $option = true) {
-	$f = sql_serveur('terminer_transaction', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-	$r = $f($serveur, $option !== false);
-	if ($r === false) {
-		spip_sql_erreur($serveur);
-	}
-
-	return $r;
+    $f = sql_serveur('terminer_transaction', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+    $r = $f($serveur, $option !== false);
+    if ($r === false) {
+        spip_sql_erreur($serveur);
+    }
+
+    return $r;
 }
 
 ;
@@ -1965,12 +1965,12 @@ 
  *     Valeur hexadécimale attendue par le serveur SQL
  **/
 function sql_hex($val, $serveur = '', $option = true) {
-	$f = sql_serveur('hex', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('hex', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($val);
+    return $f($val);
 }
 
 /**
@@ -1996,12 +1996,12 @@ 
  *     La chaine echappee
  **/
 function sql_quote($val, $serveur = '', $type = '') {
-	$f = sql_serveur('quote', $serveur, true);
-	if (!is_string($f) || !$f) {
-		$f = '_q';
-	}
+    $f = sql_serveur('quote', $serveur, true);
+    if (!is_string($f) || !$f) {
+        $f = '_q';
+    }
 
-	return $f($val, $type);
+    return $f($val, $type);
 }
 
 /**
@@ -2026,12 +2026,12 @@ 
  *     - false si le serveur SQL est indisponible
  **/
 function sql_date_proche($champ, $interval, $unite, $serveur = '', $option = true) {
-	$f = sql_serveur('date_proche', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
+    $f = sql_serveur('date_proche', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
 
-	return $f($champ, $interval, $unite);
+    return $f($champ, $interval, $unite);
 }
 
 /**
@@ -2067,26 +2067,26 @@ 
  *     Expression de requête SQL
  **/
 function sql_in_quote($champ, $valeurs, $not = '', $serveur = '', $type = '', $option = true) {
-	$quote = sql_serveur('quote', $serveur, true);
-	if (!is_string($quote) || !$quote) {
-		return false;
-	}
-
-	// sql_quote produit une chaine dans tous les cas
-	$valeurs = array_filter($valeurs, fn($v) => !is_array($v));
-	$valeurs = array_unique($valeurs);
-	$valeurs = $quote($valeurs, $type);
-
-	if (!strlen(trim((string) $valeurs))) {
-		return ($not ? '0=0' : '0=1');
-	}
-
-	$f = sql_serveur('in', $serveur, $option === 'continue' || $option === false);
-	if (!is_string($f) || !$f) {
-		return false;
-	}
-
-	return $f($champ, $valeurs, $not ? 'NOT' : '', $serveur, $option !== false);
+    $quote = sql_serveur('quote', $serveur, true);
+    if (!is_string($quote) || !$quote) {
+        return false;
+    }
+
+    // sql_quote produit une chaine dans tous les cas
+    $valeurs = array_filter($valeurs, fn($v) => !is_array($v));
+    $valeurs = array_unique($valeurs);
+    $valeurs = $quote($valeurs, $type);
+
+    if (!strlen(trim((string) $valeurs))) {
+        return ($not ? '0=0' : '0=1');
+    }
+
+    $f = sql_serveur('in', $serveur, $option === 'continue' || $option === false);
+    if (!is_string($f) || !$f) {
+        return false;
+    }
+
+    return $f($champ, $valeurs, $not ? 'NOT' : '', $serveur, $option !== false);
 }
 
 /**
@@ -2103,19 +2103,19 @@ 
  * @param bool $option
  */
 function sql_in($champ, $valeurs, $not = '', $serveur = '', $option = true) {
-	$type = '';
-	if (!is_array($valeurs)) {
-		$valeurs = (string) $valeurs;
-		if (isset($valeurs[0]) && $valeurs[0] === ',') {
-			$valeurs = substr($valeurs, 1);
-		}
-		// on explode en tableau pour pouvoir securiser le contenu
-		$valeurs = explode(',', $valeurs);
-		// et on force un cast de type int donc
-		$type = 'int';
-	}
-
-	return sql_in_quote($champ, $valeurs, $not, $serveur, $type, $option);
+    $type = '';
+    if (!is_array($valeurs)) {
+        $valeurs = (string) $valeurs;
+        if (isset($valeurs[0]) && $valeurs[0] === ',') {
+            $valeurs = substr($valeurs, 1);
+        }
+        // on explode en tableau pour pouvoir securiser le contenu
+        $valeurs = explode(',', $valeurs);
+        // et on force un cast de type int donc
+        $type = 'int';
+    }
+
+    return sql_in_quote($champ, $valeurs, $not, $serveur, $type, $option);
 }
 
 
@@ -2156,24 +2156,24 @@ 
  *     Expression de requête SQL
  **/
 function sql_in_select(
-	$in,
-	$select,
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$serveur = ''
+    $in,
+    $select,
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $serveur = ''
 ) {
-	$liste = [];
-	$res = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur);
-	while ($r = sql_fetch($res)) {
-		$liste[] = array_shift($r);
-	}
-	sql_free($res);
-
-	return sql_in($in, $liste);
+    $liste = [];
+    $res = sql_select($select, $from, $where, $groupby, $orderby, $limit, $having, $serveur);
+    while ($r = sql_fetch($res)) {
+        $liste[] = array_shift($r);
+    }
+    sql_free($res);
+
+    return sql_in($in, $liste);
 }
 
 /**
@@ -2205,29 +2205,29 @@ 
  *    Position apres le saut.
  */
 function sql_skip($res, $pos, $saut, $count, $serveur = '', $option = true) {
-	// pas de saut en arriere qu'on ne sait pas faire sans sql_seek
-	if (($saut = (int) $saut) <= 0) {
-		return $pos;
-	}
-
-	$seek = $pos + $saut;
-	// si le saut fait depasser le maxi, on libere la resource
-	// et on sort
-	if ($seek >= $count) {
-		sql_free($res, $serveur, $option);
-
-		return $count;
-	}
-
-	if (sql_seek($res, $seek)) {
-		$pos = $seek;
-	} else {
-		while ($pos < $seek && sql_fetch($res, $serveur, $option)) {
-			$pos++;
-		}
-	}
-
-	return $pos;
+    // pas de saut en arriere qu'on ne sait pas faire sans sql_seek
+    if (($saut = (int) $saut) <= 0) {
+        return $pos;
+    }
+
+    $seek = $pos + $saut;
+    // si le saut fait depasser le maxi, on libere la resource
+    // et on sort
+    if ($seek >= $count) {
+        sql_free($res, $serveur, $option);
+
+        return $count;
+    }
+
+    if (sql_seek($res, $seek)) {
+        $pos = $seek;
+    } else {
+        while ($pos < $seek && sql_fetch($res, $serveur, $option)) {
+            $pos++;
+        }
+    }
+
+    return $pos;
 }
 
 
@@ -2247,7 +2247,7 @@ 
  *     True si le champ est de type entier
  */
 function sql_test_int($type, $serveur = '', $option = true) {
-	return preg_match('/^(TINYINT|SMALLINT|MEDIUMINT|INT|INTEGER|BIGINT)/i', trim($type));
+    return preg_match('/^(TINYINT|SMALLINT|MEDIUMINT|INT|INTEGER|BIGINT)/i', trim($type));
 }
 
 /**
@@ -2266,7 +2266,7 @@ 
  *     True si le champ est de type entier
  */
 function sql_test_date($type, $serveur = '', $option = true) {
-	return preg_match('/^(DATE|DATETIME|TIMESTAMP|TIME)/i', trim($type));
+    return preg_match('/^(DATE|DATETIME|TIMESTAMP|TIME)/i', trim($type));
 }
 
 /**
@@ -2288,19 +2288,19 @@ 
  *     La date formatee
  */
 function sql_format_date($annee = 0, $mois = 0, $jour = 0, $h = 0, $m = 0, $s = 0, $serveur = '') {
-	$annee = sprintf('%04s', $annee);
-	$mois = sprintf('%02s', $mois);
-
-	if ($annee == '0000') {
-		$mois = 0;
-	}
-	if ($mois == '00') {
-		$jour = 0;
-	}
-
-	return sprintf('%04u', $annee) . '-' . sprintf('%02u', $mois) . '-'
-	. sprintf('%02u', $jour) . ' ' . sprintf('%02u', $h) . ':'
-	. sprintf('%02u', $m) . ':' . sprintf('%02u', $s);
+    $annee = sprintf('%04s', $annee);
+    $mois = sprintf('%02s', $mois);
+
+    if ($annee == '0000') {
+        $mois = 0;
+    }
+    if ($mois == '00') {
+        $jour = 0;
+    }
+
+    return sprintf('%04u', $annee) . '-' . sprintf('%02u', $mois) . '-'
+    . sprintf('%02u', $jour) . ' ' . sprintf('%02u', $h) . ':'
+    . sprintf('%02u', $m) . ':' . sprintf('%02u', $s);
 }
 
 
@@ -2323,29 +2323,29 @@ 
  **/
 function description_table($nom, $serveur = '') {
 
-	static $trouver_table;
+    static $trouver_table;
 
-	/* toujours utiliser trouver_table
+    /* toujours utiliser trouver_table
 	 qui renverra la description theorique
 	 car sinon on va se comporter differement selon que la table est declaree
 	 ou non
 	 */
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-	if ($desc = $trouver_table($nom, $serveur)) {
-		return $desc;
-	}
-
-	// sauf a l'installation :
-	include_spip('base/serial');
-	if (isset($GLOBALS['tables_principales'][$nom])) {
-		return $GLOBALS['tables_principales'][$nom];
-	}
-
-	include_spip('base/auxiliaires');
-
-	return $GLOBALS['tables_auxiliaires'][$nom] ?? false;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+    if ($desc = $trouver_table($nom, $serveur)) {
+        return $desc;
+    }
+
+    // sauf a l'installation :
+    include_spip('base/serial');
+    if (isset($GLOBALS['tables_principales'][$nom])) {
+        return $GLOBALS['tables_principales'][$nom];
+    }
+
+    include_spip('base/auxiliaires');
+
+    return $GLOBALS['tables_auxiliaires'][$nom] ?? false;
 }
 
 /**
@@ -2358,8 +2358,8 @@ 
  * @return string Table sql éventuellement renommée
  */
 function prefixer_table_spip($table, $prefixe) {
-	if ($prefixe) {
-		$table = preg_replace('/^spip_/', $prefixe . '_', $table);
-	}
-	return $table;
+    if ($prefixe) {
+        $table = preg_replace('/^spip_/', $prefixe . '_', $table);
+    }
+    return $table;
 }

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;
 }

Spacing +35 added lines, -35 removed lines

@@ -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']);
 }
 
 /**
@@ -82,7 +82,7 @@ 
 	$connexion = $GLOBALS['connexions'][$serveur ?: 0];
 	$prefixe = $connexion['prefixe'];
 
-	$p = '/^' . $prefixe . '/';
+	$p = '/^'.$prefixe.'/';
 	$res = $tables;
 	foreach (sql_alltable(null, $serveur) as $t) {
 		if (preg_match($p, (string) $t)) {
@@ -341,8 +341,8 @@ 
 	$trouver_table = charger_fonction('trouver_table', 'base');
 
 	spip_log(
-		'Vider ' . count($tables) . " tables sur serveur '$serveur' : " . implode(', ', $tables),
-		'base.' . _LOG_INFO_IMPORTANTE
+		'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 !
@@ -380,15 +380,15 @@ 
 	// 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
+			'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'],
+				'id_auteur='.(int) $GLOBALS['visiteur_session']['id_auteur'],
 				[],
 				$serveur
 			);
@@ -396,7 +396,7 @@ 
 			$row = sql_fetsel(
 				'*',
 				'spip_auteurs',
-				'id_auteur=' . $GLOBALS['visiteur_session']['id_auteur'],
+				'id_auteur='.$GLOBALS['visiteur_session']['id_auteur'],
 				'',
 				'',
 				'',
@@ -424,17 +424,17 @@ 
 	// 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);
+			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
+				'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);
+		spip_log("Pas de destruction copieur sur serveur '$serveur'", 'dump.'._LOG_INFO_IMPORTANTE);
 	}
 }
 
@@ -468,19 +468,19 @@ 
 			}
 		} else {
 			sql_drop_table($table, '', $serveur_dest);
-			spip_log("drop table '$table' sur serveur '$serveur_dest'", 'dump.' . _LOG_INFO_IMPORTANTE);
+			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);
+		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);
+		spip_log("Erreur creation '$table' sur serveur '$serveur_dest'".var_export($desc, 1), 'dump.'._LOG_ERREUR);
 	}
 
 	return $desc_dest;
@@ -541,17 +541,17 @@ 
 	$data_pool = $options['data_pool'] ?? 50 * 1024;
 
 	spip_log(
-		'Copier ' . count($tables) . " tables de '$serveur_source' vers '$serveur_dest'",
-		'dump.' . _LOG_INFO_IMPORTANTE
+		'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);
+		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);
+		spip_log("Fonction '{$racine_fonctions}_$preparer_table_dest' inconnue. Abandon", 'dump.'._LOG_INFO_IMPORTANTE);
 
 		return true; // echec mais on a fini, donc true
 	}
@@ -579,7 +579,7 @@ 
 		) {
 			spip_log(
 				"Fonction '{$racine_fonctions}_vider_tables_destination_copie' inconnue. Abandon",
-				'dump.' . _LOG_INFO_IMPORTANTE
+				'dump.'._LOG_INFO_IMPORTANTE
 			);
 
 			return true; // echec mais on a fini, donc true
@@ -598,7 +598,7 @@ 
 		$tables = array_diff($tables, ['spip_meta']);
 		$tables[] = 'spip_meta';
 	}
-	spip_log('Tables a copier :' . implode(', ', $tables), 'dump.' . _LOG_INFO);
+	spip_log('Tables a copier :'.implode(', ', $tables), 'dump.'._LOG_INFO);
 
 	$trouver_table = charger_fonction('trouver_table', 'base');
 
@@ -662,7 +662,7 @@ 
 						// 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);
+							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));
 
@@ -677,7 +677,7 @@ 
 					if ($n == $status['tables_copiees'][$table]) {
 						break;
 					}
-					spip_log("recopie $table " . $status['tables_copiees'][$table], 'dump.' . _LOG_INFO_IMPORTANTE);
+					spip_log("recopie $table ".$status['tables_copiees'][$table], 'dump.'._LOG_INFO_IMPORTANTE);
 					if ($callback_progression) {
 						$callback_progression($status['tables_copiees'][$table], 0, $table);
 					}
@@ -688,30 +688,30 @@ 
 				}
 				if ($drop_source) {
 					sql_drop_table($table, '', $serveur_source);
-					spip_log("drop $table sur serveur source '$serveur_source'", 'dump.' . _LOG_INFO_IMPORTANTE);
+					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);
+				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);
+					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]' : '')
+						"$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);
+			spip_log("Impossible de lire la description de la table $table", 'dump.'._LOG_ERREUR);
 		}
 	}
 
@@ -719,17 +719,17 @@ 
 	// 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
+			'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);
+		$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);
+		spip_log("Fonction '{$racine_fonctions}_detruire_copieur_si_besoin' inconnue.", 'dump.'._LOG_INFO_IMPORTANTE);
 	}
 
 	// OK, copie complete
@@ -754,8 +754,8 @@ 
 	$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
+			'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
@@ -766,8 +766,8 @@ 
 		$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
+				'base_inserer_copie : '.($nb - $nb1).' insertions au lieu de '.count($rows).' apres insertion 1 par 1',
+				'dump'._LOG_ERREUR
 			);
 			$r = false;
 		}

ecrire/base/upgrade.php

Spacing +17 added lines, -17 removed lines

@@ -55,7 +55,7 @@ 
 	if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
 		if (!is_numeric(_request('reinstall'))) {
 			include_spip('base/create');
-			spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
+			spip_log('recree les tables eventuellement disparues', 'maj.'._LOG_INFO_IMPORTANTE);
 			creer_base();
 		}
 
@@ -68,7 +68,7 @@ 
 			exit;
 		}
 	}
-	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
+	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.'._LOG_INFO_IMPORTANTE);
 
 	// supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
 	@spip_unlink(_CACHE_RUBRIQUES);
@@ -77,7 +77,7 @@ 
 	@spip_unlink(_CACHE_PLUGINS_OPT);
 	@spip_unlink(_CACHE_PLUGINS_FCT);
 	@spip_unlink(_CACHE_CHEMIN);
-	@spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
+	@spip_unlink(_DIR_TMP.'plugin_xml_cache.gz');
 
 	include_spip('inc/auth');
 	auth_synchroniser_distant();
@@ -116,8 +116,8 @@ 
 	$version_installee = $GLOBALS['meta']['version_installee'] ?? null;
 
 	spip_log(
-		"Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
-		'maj.' . _LOG_INFO_IMPORTANTE
+		"Version anterieure: $version_installee. Courante: ".$GLOBALS['spip_version_base'],
+		'maj.'._LOG_INFO_IMPORTANTE
 	);
 	if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
 		sql_replace(
@@ -150,9 +150,9 @@ 
 	$res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
 	if ($res) {
 		if (!is_array($res)) {
-			spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+			spip_log("Pb d'acces SQL a la mise a jour", 'maj.'._LOG_ERREUR);
 		} else {
-			echo _T('avis_operation_echec') . ' ' . implode(' ', $res);
+			echo _T('avis_operation_echec').' '.implode(' ', $res);
 			echo install_fin_html();
 		}
 	}
@@ -240,9 +240,9 @@ 
 		$res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
 		if ($res) {
 			if (!is_array($res)) {
-				spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+				spip_log("Pb d'acces SQL a la mise a jour", 'maj.'._LOG_ERREUR);
 			} else {
-				echo '<p>' . _T('avis_operation_echec') . ' ' . implode(' ', $res) . '</p>';
+				echo '<p>'._T('avis_operation_echec').' '.implode(' ', $res).'</p>';
 			}
 		}
 	}
@@ -301,7 +301,7 @@ 
 	echo(install_debut_html($titre));
 	// script de rechargement auto sur timeout
 	$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
+	echo http_script("window.setTimeout('location.href=\"".$redirect."\";',".($timeout * 1000).')');
 	echo "<div style='text-align: left'>\n";
 	if (ob_get_level()) {
 		ob_flush();
@@ -389,7 +389,7 @@ 
 				return [$v, $etape];
 			}
 			$n = time() - $time;
-			spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
+			spip_log("$table $meta: $v en $n secondes", 'maj.'._LOG_INFO_IMPORTANTE);
 			if ($meta) {
 				ecrire_meta($meta, $installee = $v, 'oui', $table);
 			}
@@ -405,7 +405,7 @@ 
 	if ($meta) {
 		ecrire_meta($meta, $cible, 'oui', $table);
 	}
-	spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
+	spip_log("MAJ terminee. $meta: $installee", 'maj.'._LOG_INFO_IMPORTANTE);
 
 	return [];
 }
@@ -430,7 +430,7 @@ 
  * @return int
  */
 function serie_alter($serie, $q = [], $meta = '', $table = 'meta', $redirect = '') {
-	$meta2 = $meta . '_maj_' . $serie;
+	$meta2 = $meta.'_maj_'.$serie;
 	$etape = 0;
 	if (isset($GLOBALS[$table][$meta2])) {
 		$etape = (int) $GLOBALS[$table][$meta2];
@@ -443,7 +443,7 @@ 
 				&& function_exists($f = array_shift($r))
 			) {
 				// note: $r (arguments de la fonction $f) peut avoir des données tabulaires
-				spip_log("$msg: $f " . @implode(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
+				spip_log("$msg: $f ".@implode(',', $r), 'maj.'._LOG_INFO_IMPORTANTE);
 				// pour les fonctions atomiques sql_xx
 				// on enregistre le meta avant de lancer la fonction,
 				// de maniere a eviter de boucler sur timeout
@@ -461,12 +461,12 @@ 
 					relance_maj($meta, $table, $redirect);
 				}
 				ecrire_meta($meta2, $i + 1, 'non', $table);
-				spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
+				spip_log("$meta2: ok", 'maj.'._LOG_INFO_IMPORTANTE);
 			} else {
 				if (!is_array($r)) {
-					spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
+					spip_log("maj $i format incorrect", 'maj.'._LOG_ERREUR);
 				} else {
-					spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
+					spip_log("maj $i fonction $f non definie", 'maj.'._LOG_ERREUR);
 				}
 				// en cas d'erreur serieuse, on s'arrete
 				// mais on permet de passer par dessus en rechargeant la page.

Indentation +280 added lines, -280 removed lines

@@ -16,17 +16,17 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_UPGRADE_TIME_OUT')) {
-	/**
-	 * Durée en secondes pour relancer les scripts de mises à jour, x secondes
-	 * avant que la durée d'exécution du script provoque un timeout
-	 *
-	 * @var int
-	 **/
-	define('_UPGRADE_TIME_OUT', 20);
+    /**
+     * Durée en secondes pour relancer les scripts de mises à jour, x secondes
+     * avant que la durée d'exécution du script provoque un timeout
+     *
+     * @var int
+     **/
+    define('_UPGRADE_TIME_OUT', 20);
 }
 
 /**
@@ -49,40 +49,40 @@ 
  * @return void
  */
 function base_upgrade_dist($titre = '', $reprise = '') {
-	if (!$titre) {
-		return;
-	} // anti-testeur automatique
-	if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
-		if (!is_numeric(_request('reinstall'))) {
-			include_spip('base/create');
-			spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
-			creer_base();
-		}
-
-		// quand on rentre par ici, c'est toujours une mise a jour de SPIP
-		// lancement de l'upgrade SPIP
-		$res = maj_base();
-
-		if ($res) {
-			// on arrete tout ici !
-			exit;
-		}
-	}
-	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
-
-	// supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
-	@spip_unlink(_CACHE_RUBRIQUES);
-	@spip_unlink(_CACHE_PIPELINES);
-	@spip_unlink(_CACHE_PLUGINS_PATH);
-	@spip_unlink(_CACHE_PLUGINS_OPT);
-	@spip_unlink(_CACHE_PLUGINS_FCT);
-	@spip_unlink(_CACHE_CHEMIN);
-	@spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
-
-	include_spip('inc/auth');
-	auth_synchroniser_distant();
-	$config = charger_fonction('config', 'inc');
-	$config();
+    if (!$titre) {
+        return;
+    } // anti-testeur automatique
+    if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
+        if (!is_numeric(_request('reinstall'))) {
+            include_spip('base/create');
+            spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
+            creer_base();
+        }
+
+        // quand on rentre par ici, c'est toujours une mise a jour de SPIP
+        // lancement de l'upgrade SPIP
+        $res = maj_base();
+
+        if ($res) {
+            // on arrete tout ici !
+            exit;
+        }
+    }
+    spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
+
+    // supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
+    @spip_unlink(_CACHE_RUBRIQUES);
+    @spip_unlink(_CACHE_PIPELINES);
+    @spip_unlink(_CACHE_PLUGINS_PATH);
+    @spip_unlink(_CACHE_PLUGINS_OPT);
+    @spip_unlink(_CACHE_PLUGINS_FCT);
+    @spip_unlink(_CACHE_CHEMIN);
+    @spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
+
+    include_spip('inc/auth');
+    auth_synchroniser_distant();
+    $config = charger_fonction('config', 'inc');
+    $config();
 }
 
 /**
@@ -113,47 +113,47 @@ 
  */
 function maj_base($version_cible = 0, $redirect = '', $debut_page = true) {
 
-	$version_installee = $GLOBALS['meta']['version_installee'] ?? null;
-
-	spip_log(
-		"Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
-		'maj.' . _LOG_INFO_IMPORTANTE
-	);
-	if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
-		sql_replace(
-			'spip_meta',
-			[
-				'nom' => 'version_installee',
-				'valeur' => $GLOBALS['spip_version_base'],
-				'impt' => 'non'
-			]
-		);
-		return false;
-	}
-	if (!upgrade_test()) {
-		return true;
-	}
-
-	$cible = ($version_cible ?: $GLOBALS['spip_version_base']);
-
-	if ($version_installee < 2021_01_01_00) {
-		include_spip('maj/legacy/v40');
-	}
-
-	include_spip('maj/2021');
-
-	ksort($GLOBALS['maj']);
-	$res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
-	if ($res) {
-		if (!is_array($res)) {
-			spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
-		} else {
-			echo _T('avis_operation_echec') . ' ' . implode(' ', $res);
-			echo install_fin_html();
-		}
-	}
-
-	return $res;
+    $version_installee = $GLOBALS['meta']['version_installee'] ?? null;
+
+    spip_log(
+        "Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
+        'maj.' . _LOG_INFO_IMPORTANTE
+    );
+    if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
+        sql_replace(
+            'spip_meta',
+            [
+                'nom' => 'version_installee',
+                'valeur' => $GLOBALS['spip_version_base'],
+                'impt' => 'non'
+            ]
+        );
+        return false;
+    }
+    if (!upgrade_test()) {
+        return true;
+    }
+
+    $cible = ($version_cible ?: $GLOBALS['spip_version_base']);
+
+    if ($version_installee < 2021_01_01_00) {
+        include_spip('maj/legacy/v40');
+    }
+
+    include_spip('maj/2021');
+
+    ksort($GLOBALS['maj']);
+    $res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
+    if ($res) {
+        if (!is_array($res)) {
+            spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+        } else {
+            echo _T('avis_operation_echec') . ' ' . implode(' ', $res);
+            echo install_fin_html();
+        }
+    }
+
+    return $res;
 }
 
 /**
@@ -195,53 +195,53 @@ 
  */
 function maj_plugin($nom_meta_base_version, $version_cible, $maj, $table_meta = 'meta') {
 
-	if ($table_meta !== 'meta') {
-		installer_table_meta($table_meta);
-	}
-
-	$current_version = null;
-
-	if (
-		(!isset($GLOBALS[$table_meta][$nom_meta_base_version]))
-		|| (!spip_version_compare($current_version = $GLOBALS[$table_meta][$nom_meta_base_version], $version_cible, '='))
-	) {
-		// $maj['create'] contient les directives propres a la premiere creation de base
-		// c'est une operation derogatoire qui fait aboutir directement dans la version_cible
-		if (isset($maj['create'])) {
-			if (!isset($GLOBALS[$table_meta][$nom_meta_base_version])) {
-				// installation : on ne fait que l'operation create
-				$maj = ['init' => $maj['create']];
-				// et on lui ajoute un appel a inc/config
-				// pour creer les metas par defaut
-				$config = charger_fonction('config', 'inc');
-				$maj[$version_cible] = [[$config]];
-			}
-			// dans tous les cas enlever cet index du tableau
-			unset($maj['create']);
-		}
-		// si init, deja dans le bon ordre
-		if (!isset($maj['init'])) {
-			include_spip('inc/plugin'); // pour spip_version_compare
-			uksort($maj, 'spip_version_compare');
-		}
-
-		// la redirection se fait par defaut sur la page d'administration des plugins
-		// sauf lorsque nous sommes sur l'installation de SPIP
-		// ou define _REDIRECT_MAJ_PLUGIN
-		$redirect = (defined('_REDIRECT_MAJ_PLUGIN') ? _REDIRECT_MAJ_PLUGIN : generer_url_ecrire('admin_plugin'));
-		if (defined('_ECRIRE_INSTALL')) {
-			$redirect = parametre_url(generer_url_ecrire('install'), 'etape', _request('etape'));
-		}
-
-		$res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
-		if ($res) {
-			if (!is_array($res)) {
-				spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
-			} else {
-				echo '<p>' . _T('avis_operation_echec') . ' ' . implode(' ', $res) . '</p>';
-			}
-		}
-	}
+    if ($table_meta !== 'meta') {
+        installer_table_meta($table_meta);
+    }
+
+    $current_version = null;
+
+    if (
+        (!isset($GLOBALS[$table_meta][$nom_meta_base_version]))
+        || (!spip_version_compare($current_version = $GLOBALS[$table_meta][$nom_meta_base_version], $version_cible, '='))
+    ) {
+        // $maj['create'] contient les directives propres a la premiere creation de base
+        // c'est une operation derogatoire qui fait aboutir directement dans la version_cible
+        if (isset($maj['create'])) {
+            if (!isset($GLOBALS[$table_meta][$nom_meta_base_version])) {
+                // installation : on ne fait que l'operation create
+                $maj = ['init' => $maj['create']];
+                // et on lui ajoute un appel a inc/config
+                // pour creer les metas par defaut
+                $config = charger_fonction('config', 'inc');
+                $maj[$version_cible] = [[$config]];
+            }
+            // dans tous les cas enlever cet index du tableau
+            unset($maj['create']);
+        }
+        // si init, deja dans le bon ordre
+        if (!isset($maj['init'])) {
+            include_spip('inc/plugin'); // pour spip_version_compare
+            uksort($maj, 'spip_version_compare');
+        }
+
+        // la redirection se fait par defaut sur la page d'administration des plugins
+        // sauf lorsque nous sommes sur l'installation de SPIP
+        // ou define _REDIRECT_MAJ_PLUGIN
+        $redirect = (defined('_REDIRECT_MAJ_PLUGIN') ? _REDIRECT_MAJ_PLUGIN : generer_url_ecrire('admin_plugin'));
+        if (defined('_ECRIRE_INSTALL')) {
+            $redirect = parametre_url(generer_url_ecrire('install'), 'etape', _request('etape'));
+        }
+
+        $res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
+        if ($res) {
+            if (!is_array($res)) {
+                spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+            } else {
+                echo '<p>' . _T('avis_operation_echec') . ' ' . implode(' ', $res) . '</p>';
+            }
+        }
+    }
 }
 
 /**
@@ -258,17 +258,17 @@ 
  * @return void
  */
 function relance_maj($meta, $table, $redirect = '') {
-	include_spip('inc/headers');
-	if (!$redirect) {
-		// recuperer la valeur installee en cours
-		// on la tronque numeriquement, elle ne sert pas reellement
-		// sauf pour verifier que ce n'est pas oui ou non
-		// sinon is_numeric va echouer sur un numero de version 1.2.3
-		$installee = (int) $GLOBALS[$table][$meta];
-		$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	}
-	echo redirige_formulaire($redirect);
-	exit();
+    include_spip('inc/headers');
+    if (!$redirect) {
+        // recuperer la valeur installee en cours
+        // on la tronque numeriquement, elle ne sert pas reellement
+        // sauf pour verifier que ce n'est pas oui ou non
+        // sinon is_numeric va echouer sur un numero de version 1.2.3
+        $installee = (int) $GLOBALS[$table][$meta];
+        $redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
+    }
+    echo redirige_formulaire($redirect);
+    exit();
 }
 
 /**
@@ -281,29 +281,29 @@ 
  * @return void
  */
 function maj_debut_page($installee, $meta, $table) {
-	static $done = false;
-	if ($done) {
-		return;
-	}
-	include_spip('inc/minipres');
-	include_spip('inc/filtres');
-	if (function_exists('ini_set')) {
-		@ini_set('zlib.output_compression', '0'); // pour permettre l'affichage au fur et a mesure
-	}
-	$timeout = _UPGRADE_TIME_OUT * 2;
-	$titre = _T('titre_page_upgrade');
-	$balise_img = charger_filtre('balise_img');
-	$titre .= $balise_img(chemin_image('loader.svg'), '', 'loader');
-	echo(install_debut_html($titre));
-	// script de rechargement auto sur timeout
-	$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
-	echo "<div style='text-align: left'>\n";
-	if (ob_get_level()) {
-		ob_flush();
-	}
-	flush();
-	$done = true;
+    static $done = false;
+    if ($done) {
+        return;
+    }
+    include_spip('inc/minipres');
+    include_spip('inc/filtres');
+    if (function_exists('ini_set')) {
+        @ini_set('zlib.output_compression', '0'); // pour permettre l'affichage au fur et a mesure
+    }
+    $timeout = _UPGRADE_TIME_OUT * 2;
+    $titre = _T('titre_page_upgrade');
+    $balise_img = charger_filtre('balise_img');
+    $titre .= $balise_img(chemin_image('loader.svg'), '', 'loader');
+    echo(install_debut_html($titre));
+    // script de rechargement auto sur timeout
+    $redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
+    echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
+    echo "<div style='text-align: left'>\n";
+    if (ob_get_level()) {
+        ob_flush();
+    }
+    flush();
+    $done = true;
 }
 
 
@@ -347,63 +347,63 @@ 
  *    - tableau vide sinon.
  */
 function maj_while($installee, $cible, $maj, $meta = '', $table = 'meta', $redirect = '', $debut_page = false) {
-	# inclusions pour que les procedures d'upgrade disposent des fonctions de base
-	include_spip('base/create');
-	include_spip('base/abstract_sql');
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	include_spip('inc/plugin'); // pour spip_version_compare
-	$n = 0;
-	$time = time();
-
-	if (!defined('_TIME_OUT')) {
-		/**
-		 * Définir le timeout qui peut-être utilisé dans les fonctions
-		 * de mises à jour qui durent trop longtemps
-		 *
-		 * À utiliser tel que : `if (time() >= _TIME_OUT)`
-		 *
-		 * @var int
-		 */
-		define('_TIME_OUT', $time + _UPGRADE_TIME_OUT);
-	}
-
-	foreach ($maj as $v => $operations) {
-		// si une maj pour cette version
-		if (
-			$v == 'init'
-			|| spip_version_compare($v, $installee, '>') && spip_version_compare($v, $cible, '<=')
-		) {
-			if ($debut_page) {
-				maj_debut_page($v, $meta, $table);
-			}
-			echo "MAJ $v";
-			$etape = serie_alter($v, $operations, $meta, $table, $redirect);
-			$trouver_table(''); // vider le cache des descriptions de table
-			# echec sur une etape en cours ?
-			# on sort
-			if ($etape) {
-				return [$v, $etape];
-			}
-			$n = time() - $time;
-			spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
-			if ($meta) {
-				ecrire_meta($meta, $installee = $v, 'oui', $table);
-			}
-			echo (_IS_CLI ? "\n" : '<br />');
-		}
-		if (time() >= _TIME_OUT) {
-			relance_maj($meta, $table, $redirect);
-		}
-	}
-	$trouver_table(''); // vider le cache des descriptions de table
-	// indispensable pour les chgt de versions qui n'ecrivent pas en base
-	// tant pis pour la redondance eventuelle avec ci-dessus
-	if ($meta) {
-		ecrire_meta($meta, $cible, 'oui', $table);
-	}
-	spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
-
-	return [];
+    # inclusions pour que les procedures d'upgrade disposent des fonctions de base
+    include_spip('base/create');
+    include_spip('base/abstract_sql');
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    include_spip('inc/plugin'); // pour spip_version_compare
+    $n = 0;
+    $time = time();
+
+    if (!defined('_TIME_OUT')) {
+        /**
+         * Définir le timeout qui peut-être utilisé dans les fonctions
+         * de mises à jour qui durent trop longtemps
+         *
+         * À utiliser tel que : `if (time() >= _TIME_OUT)`
+         *
+         * @var int
+         */
+        define('_TIME_OUT', $time + _UPGRADE_TIME_OUT);
+    }
+
+    foreach ($maj as $v => $operations) {
+        // si une maj pour cette version
+        if (
+            $v == 'init'
+            || spip_version_compare($v, $installee, '>') && spip_version_compare($v, $cible, '<=')
+        ) {
+            if ($debut_page) {
+                maj_debut_page($v, $meta, $table);
+            }
+            echo "MAJ $v";
+            $etape = serie_alter($v, $operations, $meta, $table, $redirect);
+            $trouver_table(''); // vider le cache des descriptions de table
+            # echec sur une etape en cours ?
+            # on sort
+            if ($etape) {
+                return [$v, $etape];
+            }
+            $n = time() - $time;
+            spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
+            if ($meta) {
+                ecrire_meta($meta, $installee = $v, 'oui', $table);
+            }
+            echo (_IS_CLI ? "\n" : '<br />');
+        }
+        if (time() >= _TIME_OUT) {
+            relance_maj($meta, $table, $redirect);
+        }
+    }
+    $trouver_table(''); // vider le cache des descriptions de table
+    // indispensable pour les chgt de versions qui n'ecrivent pas en base
+    // tant pis pour la redondance eventuelle avec ci-dessus
+    if ($meta) {
+        ecrire_meta($meta, $cible, 'oui', $table);
+    }
+    spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
+
+    return [];
 }
 
 /**
@@ -426,53 +426,53 @@ 
  * @return int
  */
 function serie_alter($serie, $q = [], $meta = '', $table = 'meta', $redirect = '') {
-	$meta2 = $meta . '_maj_' . $serie;
-	$etape = 0;
-	if (isset($GLOBALS[$table][$meta2])) {
-		$etape = (int) $GLOBALS[$table][$meta2];
-	}
-	foreach ($q as $i => $r) {
-		if ($i >= $etape) {
-			$msg = "maj $table $meta2 etape $i";
-			if (
-				is_array($r)
-				&& function_exists($f = array_shift($r))
-			) {
-				// note: $r (arguments de la fonction $f) peut avoir des données tabulaires
-				spip_log("$msg: $f " . @implode(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
-				// pour les fonctions atomiques sql_xx
-				// on enregistre le meta avant de lancer la fonction,
-				// de maniere a eviter de boucler sur timeout
-				// mais pour les fonctions complexes,
-				// il faut les rejouer jusqu'a achevement.
-				// C'est a elle d'assurer qu'elles progressent a chaque rappel
-				if (str_starts_with($f, 'sql_')) {
-					ecrire_meta($meta2, $i + 1, 'non', $table);
-				}
-				echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
-				$f(...$r);
-				// si temps imparti depasse, on relance sans ecrire en meta
-				// car on est peut etre sorti sur timeout si c'est une fonction longue
-				if (time() >= _TIME_OUT) {
-					relance_maj($meta, $table, $redirect);
-				}
-				ecrire_meta($meta2, $i + 1, 'non', $table);
-				spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
-			} else {
-				if (!is_array($r)) {
-					spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
-				} else {
-					spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
-				}
-				// en cas d'erreur serieuse, on s'arrete
-				// mais on permet de passer par dessus en rechargeant la page.
-				return $i + 1;
-			}
-		}
-	}
-	effacer_meta($meta2, $table);
-
-	return 0;
+    $meta2 = $meta . '_maj_' . $serie;
+    $etape = 0;
+    if (isset($GLOBALS[$table][$meta2])) {
+        $etape = (int) $GLOBALS[$table][$meta2];
+    }
+    foreach ($q as $i => $r) {
+        if ($i >= $etape) {
+            $msg = "maj $table $meta2 etape $i";
+            if (
+                is_array($r)
+                && function_exists($f = array_shift($r))
+            ) {
+                // note: $r (arguments de la fonction $f) peut avoir des données tabulaires
+                spip_log("$msg: $f " . @implode(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
+                // pour les fonctions atomiques sql_xx
+                // on enregistre le meta avant de lancer la fonction,
+                // de maniere a eviter de boucler sur timeout
+                // mais pour les fonctions complexes,
+                // il faut les rejouer jusqu'a achevement.
+                // C'est a elle d'assurer qu'elles progressent a chaque rappel
+                if (str_starts_with($f, 'sql_')) {
+                    ecrire_meta($meta2, $i + 1, 'non', $table);
+                }
+                echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
+                $f(...$r);
+                // si temps imparti depasse, on relance sans ecrire en meta
+                // car on est peut etre sorti sur timeout si c'est une fonction longue
+                if (time() >= _TIME_OUT) {
+                    relance_maj($meta, $table, $redirect);
+                }
+                ecrire_meta($meta2, $i + 1, 'non', $table);
+                spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
+            } else {
+                if (!is_array($r)) {
+                    spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
+                } else {
+                    spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
+                }
+                // en cas d'erreur serieuse, on s'arrete
+                // mais on permet de passer par dessus en rechargeant la page.
+                return $i + 1;
+            }
+        }
+    }
+    effacer_meta($meta2, $table);
+
+    return 0;
 }
 
 /**
@@ -481,16 +481,16 @@ 
  * @return bool True si possible.
  **/
 function upgrade_test() {
-	sql_drop_table('spip_test', true);
-	sql_create('spip_test', ['a' => 'int']);
-	sql_alter('TABLE spip_test ADD b INT');
-	sql_insertq('spip_test', ['b' => 1], ['field' => ['b' => 'int']]);
-	$result = sql_select('b', 'spip_test');
-	// ne pas garder le resultat de la requete sinon sqlite3
-	// ne peut pas supprimer la table spip_test lors du sql_alter qui suit
-	// car cette table serait alors 'verouillee'
-	$result = (bool) $result;
-	sql_alter('TABLE spip_test DROP b');
-
-	return $result;
+    sql_drop_table('spip_test', true);
+    sql_create('spip_test', ['a' => 'int']);
+    sql_alter('TABLE spip_test ADD b INT');
+    sql_insertq('spip_test', ['b' => 1], ['field' => ['b' => 'int']]);
+    $result = sql_select('b', 'spip_test');
+    // ne pas garder le resultat de la requete sinon sqlite3
+    // ne peut pas supprimer la table spip_test lors du sql_alter qui suit
+    // car cette table serait alors 'verouillee'
+    $result = (bool) $result;
+    sql_alter('TABLE spip_test DROP b');
+
+    return $result;
 }

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;
 }

Spacing +9 added lines, -9 removed lines

@@ -90,9 +90,9 @@ 
 	// 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_'
+			_DIR_CACHE.'sql_desc_'
 			. ($serveur ? "{$serveur}_" : '')
-			. substr(md5($connexion['db'] . ':' . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
+			. substr(md5($connexion['db'].':'.$connexion['prefixe'].":$objets_sql"), 0, 8)
 			. '.txt';
 		// nouveau nom de cache = nouvelle version en memoire
 		unset($connexion['tables']);
@@ -119,7 +119,7 @@ 
 		&& isset($GLOBALS['table_des_tables'][$nom])
 	) {
 		$nom = $GLOBALS['table_des_tables'][$nom];
-		$nom_sql = 'spip_' . $nom;
+		$nom_sql = 'spip_'.$nom;
 	}
 
 	// si c'est la premiere table qu'on cherche
@@ -143,12 +143,12 @@ 
 		// 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;
+		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])
+			|| isset($GLOBALS['tables_auxiliaires'][$n = 'spip_'.$nom])
 		) {
 			$nom_sql = $n;
 			$fdesc = &$GLOBALS['tables_auxiliaires'][$n];
@@ -164,7 +164,7 @@ 
 		) {
 			if (!$fdesc) {
 				$log_level = $options['log_missing'] ? _LOG_INFO_IMPORTANTE : _LOG_DEBUG;
-				spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . $log_level);
+				spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base'.$log_level);
 
 				return null;
 			}
@@ -176,7 +176,7 @@ 
 			$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']) {
+			if (!$desc['key']) {
 				spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
 				unset($desc['key']);
 			}
@@ -193,7 +193,7 @@ 
 		if (!isset($desc['key']) && !empty($fdesc['key'])) {
 			$desc['key'] = $fdesc['key'];
 		}
-		if (! isset($desc['key'])) {
+		if (!isset($desc['key'])) {
 			$desc['key'] = [];
 		}
 

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);
 }

Spacing +12 added lines, -12 removed lines

@@ -56,7 +56,7 @@ 
 						. ' <b>'
 						. $pere
 						. '</b>'
-						. ($bons_peres ? '<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>' : ''));
+						. ($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])) {
@@ -92,15 +92,15 @@ 
 		if (!isset($a[$name])) {
 			$bons = implode(', ', array_keys($a));
 			if ($bons) {
-				$bons = " title=' " .
-					_T('zxml_connus_attributs') .
-					'&nbsp;: ' .
-					$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')
+				. _T('zxml_inconnu_attribut').' '._T('zxml_de')
 				. " <a$bons>$bal</a> ("
 				. _T('zxml_survoler')
 				. ')');
@@ -109,7 +109,7 @@ 
 			if (!preg_match('/^\w+$/', (string) $type)) {
 				$this->valider_motif($phraseur, $name, $val, $bal, $type);
 			} else {
-				if (method_exists($this, $f = 'validerAttribut_' . $type)) {
+				if (method_exists($this, $f = 'validerAttribut_'.$type)) {
 					$this->$f($phraseur, $name, $val, $bal);
 				}
 			}
@@ -158,13 +158,13 @@ 
 				. " <b>$bal</b> "
 				. _T('zxml_non_conforme')
 				. '</p><p>'
-				. '<b>' . $motif . '</b>');
+				. '<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];
+			$this->err[] = [" <p><b>$nom</b> "._T('zxml_inconnu_id'), $ligne, $col];
 		}
 	}
 
@@ -211,7 +211,7 @@ 
 		// 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'));
+				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 != '*') {
@@ -246,7 +246,7 @@ 
 			$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> '
+				coordonnees_erreur($this, ' <p><b>'.$m[1].'</b> '
 					. _T('zxml_nonvide_balise')); // message a affiner
 			}
 		}
@@ -290,7 +290,7 @@ 
 	public function phraserTout($phraseur, $data) {
 		xml_parsestring($this, $data);
 
-		if (!$this->dtc || preg_match(',^' . _MESSAGE_DOCTYPE . ',', (string) $data)) {
+		if (!$this->dtc || preg_match(',^'._MESSAGE_DOCTYPE.',', (string) $data)) {
 			$this->err[] = ['DOCTYPE ?', 0, 0];
 		} else {
 			$this->valider_passe2();

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));
 }

Spacing +7 added lines, -7 removed lines

@@ -27,7 +27,7 @@ 
 		$grammaire = find_in_path($grammaire);
 	}
 
-	$file = _DIR_CACHE_XML . preg_replace('/[^\w.]/', '_', (string) $rotlvl) . '.gz';
+	$file = _DIR_CACHE_XML.preg_replace('/[^\w.]/', '_', (string) $rotlvl).'.gz';
 
 	if (lire_fichier($file, $r)) {
 		if (!$grammaire) {
@@ -54,7 +54,7 @@ 
 				$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');
+			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);
 		}
@@ -154,7 +154,7 @@ 
 			};
 		}
 		if (!is_string($r)) {
-			spip_log("erreur $r dans la DTD  " . substr($dtd, 0, 80) . '.....');
+			spip_log("erreur $r dans la DTD  ".substr($dtd, 0, 80).'.....');
 
 			return false;
 		}
@@ -198,7 +198,7 @@ 
 		if (
 			$n[0] == 'PUBLIC' && !tester_url_absolue($n[1])
 		) {
-			$n[1] = substr((string) $grammaire, 0, strrpos((string) $grammaire, '/') + 1) . $n[1];
+			$n[1] = substr((string) $grammaire, 0, strrpos((string) $grammaire, '/') + 1).$n[1];
 		}
 		analyser_dtd($n[1], $n[0], $dtc);
 	}
@@ -225,7 +225,7 @@ 
 	}
 
 	return $dtc->macros[$m[1]] == 'INCLUDE'
-		? $r[1] . substr($m[2], strlen($r[0]))
+		? $r[1].substr($m[2], strlen($r[0]))
 		: substr($m[2], strlen($r[0]));
 }
 
@@ -252,7 +252,7 @@ 
 		spip_log("redefinition de l'entite $nom");
 	}
 	if ($k6) {
-		return $k6 . $dtd;
+		return $k6.$dtd;
 	} // cas du synonyme complet
 	$val = expanserEntite(($k2 ? $k3 : ($k4 ? $k5 : $k6)), $dtc->macros);
 
@@ -352,7 +352,7 @@ 
 	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]) . '$/');
+				: ('/^'.preg_replace('/\s+/', '', $m2[2]).'$/');
 			$m21 = expanserEntite($m2[1], $dtc->macros);
 			$m25 = expanserEntite($m2[5], $dtc->macros);
 			$dtc->attributs[$nom][$m21] = [$v, $m25];

ecrire/req/pg.exp.php

Spacing +83 added lines, -84 removed lines

@@ -59,7 +59,7 @@ 
 	if (!$link) {
 		$erreurs[] = pg_last_error();
 		foreach ($erreurs as $e) {
-			spip_log('Echec pg_connect. Erreur : ' . $e, 'pg.' . _LOG_HS);
+			spip_log('Echec pg_connect. Erreur : '.$e, 'pg.'._LOG_HS);
 		}
 
 		return false;
@@ -77,8 +77,8 @@ 
 	}
 
 	spip_log(
-		"Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),
-		'pg.' . _LOG_DEBUG
+		"Connexion vers $host, base $db, prefixe $prefixe ".($link ? 'operationnelle' : 'impossible'),
+		'pg.'._LOG_DEBUG
 	);
 
 	return $link ? [
@@ -166,7 +166,7 @@ 
 	} else {
 		$suite = '';
 	}
-	$query = preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
+	$query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', (string) $query).$suite;
 
 	// renvoyer la requete inerte si demandee
 	if (!$requeter) {
@@ -234,7 +234,7 @@ 
 	// ou revoir l'api de sql_alter en creant un
 	// sql_alter_table($table,array($actions));
 	if (!preg_match('/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', (string) $query, $regs)) {
-		spip_log("$query mal comprise", 'pg.' . _LOG_ERREUR);
+		spip_log("$query mal comprise", 'pg.'._LOG_ERREUR);
 
 		return false;
 	}
@@ -247,7 +247,7 @@ 
 	$i = 0;
 	$ouverte = false;
 	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i].','.$do : $do;
 		$o = (str_contains($do, '('));
 		$f = (str_contains($do, ')'));
 		if ($o && !$f) {
@@ -260,33 +260,33 @@ 
 		}
 	}
 	$todo = $todo2;
-	$query = $debut . ' ' . array_shift($todo);
+	$query = $debut.' '.array_shift($todo);
 
 	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
-		spip_log("$query incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("$query incompris", 'pg.'._LOG_ERREUR);
 	} else {
 		if ($r[1]) {
-			spip_log("j'ignore IGNORE dans $query", 'pg.' . _LOG_AVERTISSEMENT);
+			spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
 		}
-		$f = 'spip_pg_alter_' . strtolower($r[3]);
+		$f = 'spip_pg_alter_'.strtolower($r[3]);
 		if (function_exists($f)) {
 			$f($r[2], $r[4], $serveur, $requeter);
 		} else {
-			spip_log("$query non prevu", 'pg.' . _LOG_ERREUR);
+			spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
 		}
 	}
 	// Alter a plusieurs args. Faudrait optimiser.
 	if ($todo) {
-		spip_pg_alter("TABLE $table " . implode(',', $todo));
+		spip_pg_alter("TABLE $table ".implode(',', $todo));
 	}
 }
 
 function spip_pg_alter_change($table, $arg, $serveur = '', $requeter = true) {
 	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', (string) $arg, $r)) {
-		spip_log("alter change: $arg  incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("alter change: $arg  incompris", 'pg.'._LOG_ERREUR);
 	} else {
 		[, $old, $new, $type, $default, $null, $def2] = $r;
-		$actions = ["ALTER $old TYPE " . mysql2pg_type($type)];
+		$actions = ["ALTER $old TYPE ".mysql2pg_type($type)];
 		$actions[] = $null ? "ALTER $old SET NOT NULL" : "ALTER $old DROP NOT NULL";
 
 		if ($d = ($default ?: $def2)) {
@@ -295,7 +295,7 @@ 
 			$actions[] = "ALTER $old DROP DEFAULT";
 		}
 
-		spip_pg_query("ALTER TABLE $table " . implode(', ', $actions));
+		spip_pg_query("ALTER TABLE $table ".implode(', ', $actions));
 
 		if ($old !== $new) {
 			spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
@@ -306,7 +306,7 @@ 
 function spip_pg_alter_add($table, $arg, $serveur = '', $requeter = true) {
 	$nom_index = null;
 	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', (string) $arg, $r)) {
-		spip_log("alter add $arg  incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("alter add $arg  incompris", 'pg.'._LOG_ERREUR);
 
 		return null;
 	}
@@ -316,14 +316,14 @@ 
 			$m[2] = $n[1];
 		}
 
-		return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]), $serveur, $requeter);
+		return spip_pg_query("ALTER TABLE $table ADD ".$m[1].' '.mysql2pg_type($m[2]), $serveur, $requeter);
 	} elseif ($r[1][0] == 'P') {
 		// la primary peut etre sur plusieurs champs
 		$r[2] = trim(str_replace('`', '', $r[2]));
 		$m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
 
 		return spip_pg_query(
-			"ALTER TABLE $table ADD CONSTRAINT $table" . '_pkey PRIMARY KEY (' . $m . ')',
+			"ALTER TABLE $table ADD CONSTRAINT $table".'_pkey PRIMARY KEY ('.$m.')',
 			$serveur,
 			$requeter
 		);
@@ -342,7 +342,7 @@ 
 				$colonnes = substr($m[1], 1, -1);
 				if (str_contains(',', $colonnes)) {
 					spip_log('PG : Erreur, impossible de creer un index sur plusieurs colonnes'
-						. " sans qu'il ait de nom ($table, ($colonnes))", 'pg.' . _LOG_ERREUR);
+						. " sans qu'il ait de nom ($table, ($colonnes))", 'pg.'._LOG_ERREUR);
 				} else {
 					$nom_index = $colonnes;
 				}
@@ -358,23 +358,23 @@ 
 
 function spip_pg_alter_drop($table, $arg, $serveur = '', $requeter = true) {
 	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', (string) $arg, $r)) {
-		spip_log("alter drop: $arg  incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
 	} else {
 		if (!$r[1] || $r[1] == 'COLUMN') {
-			return spip_pg_query("ALTER TABLE $table DROP " . $r[2], $serveur);
+			return spip_pg_query("ALTER TABLE $table DROP ".$r[2], $serveur);
 		} elseif ($r[1][0] == 'P') {
-			return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+			return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table".'_pkey', $serveur);
 		} else {
-			return spip_pg_query('DROP INDEX ' . $table . '_' . $r[2], $serveur);
+			return spip_pg_query('DROP INDEX '.$table.'_'.$r[2], $serveur);
 		}
 	}
 }
 
 function spip_pg_alter_modify($table, $arg, $serveur = '', $requeter = true) {
 	if (!preg_match('/^`?(\w+)`?\s+(.*)$/', (string) $arg, $r)) {
-		spip_log("alter modify: $arg  incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("alter modify: $arg  incompris", 'pg.'._LOG_ERREUR);
 	} else {
-		return spip_pg_alter_change($table, $r[1] . ' ' . $arg, $serveur = '', $requeter = true);
+		return spip_pg_alter_change($table, $r[1].' '.$arg, $serveur = '', $requeter = true);
 	}
 }
 
@@ -390,7 +390,7 @@ 
 	} elseif (preg_match('/^(TO)\s*`?(\w*)`?/', (string) $arg, $r)) {
 		$rename = $r[2];
 	} else {
-		spip_log("alter rename: $arg  incompris", 'pg.' . _LOG_ERREUR);
+		spip_log("alter rename: $arg  incompris", 'pg.'._LOG_ERREUR);
 	}
 
 	return $rename ? spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
@@ -411,8 +411,8 @@ 
 function spip_pg_create_index($nom, $table, $champs, $serveur = '', $requeter = true) {
 	if (!($nom || $table || $champs)) {
 		spip_log(
-			"Champ manquant pour creer un index pg ($nom, $table, (" . @implode(',', $champs) . '))',
-			'pg.' . _LOG_ERREUR
+			"Champ manquant pour creer un index pg ($nom, $table, (".@implode(',', $champs).'))',
+			'pg.'._LOG_ERREUR
 		);
 
 		return false;
@@ -423,7 +423,7 @@ 
 
 	// PG ne differentie pas noms des index en fonction des tables
 	// il faut donc creer des noms uniques d'index pour une base pg
-	$nom = $table . '_' . $nom;
+	$nom = $table.'_'.$nom;
 	// enlever d'eventuelles parentheses deja presentes sur champs
 	if (!is_array($champs)) {
 		if ($champs[0] == '(') {
@@ -431,7 +431,7 @@ 
 		}
 		$champs = [$champs];
 	}
-	$query = "CREATE INDEX $nom ON $table (" . implode(',', $champs) . ')';
+	$query = "CREATE INDEX $nom ON $table (".implode(',', $champs).')';
 	if (!$requeter) {
 		return $query;
 	}
@@ -453,7 +453,7 @@ 
 	} else {
 		$suite = '';
 	}
-	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
+	$query = 'EXPLAIN '.preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', (string) $query).$suite;
 
 	if (!$requeter) {
 		return $query;
@@ -542,16 +542,16 @@ 
 		$having = implode("\n\tAND ", array_map('calculer_pg_where', $having));
 	}
 	$from = spip_pg_from($from, $prefixe);
-	$query = 'SELECT ' . $select
+	$query = 'SELECT '.$select
 		. ($from ? "\nFROM $from" : '')
-		. ($where ? "\nWHERE " . (is_array($where) ? implode(
+		. ($where ? "\nWHERE ".(is_array($where) ? implode(
 			"\n\tAND ",
 			array_map('calculer_pg_where', $where)
 		) : (calculer_pg_where($where))) : (''))
 		. spip_pg_groupby($groupby, $from, $select)
 		. ($having ? "\nHAVING $having" : '')
 		. ($orderby ? ("\nORDER BY $orderby") : '')
-		. ($limit ? " LIMIT $count" . ($offset ? " OFFSET $offset" : '') : (''));
+		. ($limit ? " LIMIT $count".($offset ? " OFFSET $offset" : '') : (''));
 
 	// renvoyer la requete inerte si demandee
 	if ($requeter === false) {
@@ -572,7 +572,7 @@ 
 		$from = spip_pg_select_as($from);
 	}
 
-	return $prefixe ? preg_replace('/(\b)spip_/', '\1' . $prefixe . '_', (string) $from) : $from;
+	return $prefixe ? preg_replace('/(\b)spip_/', '\1'.$prefixe.'_', (string) $from) : $from;
 }
 
 function spip_pg_orderby($order, $select) {
@@ -580,7 +580,7 @@ 
 	$arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', (string) $order));
 
 	foreach ($arg as $v) {
-		$res[] = preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v . '/', (string) $select, $m) ? $m[1] : $v;
+		$res[] = preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+'.$v.'/', (string) $select, $m) ? $m[1] : $v;
 	}
 
 	return spip_pg_frommysql(implode(',', $res));
@@ -754,7 +754,7 @@ 
 			$n++;
 			$res .= "\nwhen $index=$v then $n";
 		}
-		$arg = $m[1] . "case $res else 0 end "
+		$arg = $m[1]."case $res else 0 end "
 			. substr((string) $arg, strlen($m[0]));
 	}
 
@@ -797,9 +797,9 @@ 
 	}
 
 	if (strtoupper((string) $join) === 'AND') {
-		return $exp . implode("\n\t$join ", array_map('calculer_pg_where', $v));
+		return $exp.implode("\n\t$join ", array_map('calculer_pg_where', $v));
 	} else {
-		return $exp . implode($join, $v);
+		return $exp.implode($join, $v);
 	}
 }
 
@@ -809,7 +809,7 @@ 
 		if (str_ends_with((string) $k, '@')) {
 			// c'est une jointure qui se refere au from precedent
 			// pas de virgule
-			$argsas .= '  ' . $v;
+			$argsas .= '  '.$v;
 		} else {
 			$as = '';
 			//  spip_log("$k : $v", _LOG_DEBUG);
@@ -819,7 +819,7 @@ 
 				} elseif ($v != $k) {
 					$p = strpos((string) $v, ' ');
 					if ($p) {
-						$v = substr((string) $v, 0, $p) . " AS $k" . substr((string) $v, $p);
+						$v = substr((string) $v, 0, $p)." AS $k".substr((string) $v, $p);
 					} else {
 						$as = " AS $k";
 					}
@@ -827,7 +827,7 @@ 
 			}
 			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
 			// if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
-			$argsas .= ', ' . $v . $as;
+			$argsas .= ', '.$v.$as;
 		}
 	}
 
@@ -858,7 +858,7 @@ 
 	$serveur = '',
 	$requeter = true
 ) {
-	$c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
+	$c = $groupby ? 'DISTINCT '.(is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
 	$r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
 	if (!$requeter) {
 		return $r;
@@ -959,8 +959,8 @@ 
 
 	return spip_pg_insert(
 		$table,
-		'(' . implode(',', array_keys($couples)) . ')',
-		'(' . implode(',', $couples) . ')',
+		'('.implode(',', array_keys($couples)).')',
+		'('.implode(',', $couples).')',
 		$desc,
 		$serveur,
 		$requeter
@@ -983,7 +983,7 @@ 
 	$c = $tab_couples[0] ?? [];
 	$les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
 
-	$cles = '(' . implode(',', array_keys($les_cles)) . ')';
+	$cles = '('.implode(',', array_keys($les_cles)).')';
 	$valeurs = [];
 	foreach ($tab_couples as $couples) {
 		foreach ($couples as $champ => $val) {
@@ -992,7 +992,7 @@ 
 		// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 		$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-		$valeurs[] = '(' . implode(',', $couples) . ')';
+		$valeurs[] = '('.implode(',', $couples).')';
 	}
 	$valeurs = implode(', ', $valeurs);
 
@@ -1013,7 +1013,7 @@ 
 
 	$set = [];
 	foreach ($couples as $champ => $val) {
-		$set[] = $champ . '=' . $val;
+		$set[] = $champ.'='.$val;
 	}
 
 	$query = calculer_pg_expression('UPDATE', $table, ',')
@@ -1048,7 +1048,7 @@ 
 
 function spip_pg_replace($table, $values, $desc, $serveur = '', $requeter = true) {
 	if (!$values) {
-		spip_log("replace vide $table", 'pg.' . _LOG_AVERTISSEMENT);
+		spip_log("replace vide $table", 'pg.'._LOG_AVERTISSEMENT);
 
 		return 0;
 	}
@@ -1082,8 +1082,8 @@ 
 	if (!$where) {
 		return spip_pg_insert(
 			$table,
-			'(' . implode(',', array_keys($values)) . ')',
-			'(' . implode(',', $values) . ')',
+			'('.implode(',', array_keys($values)).')',
+			'('.implode(',', $values).')',
 			$desc,
 			$serveur
 		);
@@ -1104,12 +1104,11 @@ 
 		$couples = pg_affected_rows($couples);
 	}
 	if (!$couples) {
-		$ret = $seq ? " RETURNING nextval('$seq') < $prim" :
-			('');
-		$connexion['last'] = $q = "INSERT INTO $table (" . implode(',', array_keys($values)) . ') VALUES (' . implode(
+		$ret = $seq ? " RETURNING nextval('$seq') < $prim" : ('');
+		$connexion['last'] = $q = "INSERT INTO $table (".implode(',', array_keys($values)).') VALUES ('.implode(
 			',',
 			$values
-		) . ")$ret";
+		).")$ret";
 		$couples = spip_pg_query_simple($link, $q);
 		if (!$couples) {
 			return false;
@@ -1156,7 +1155,7 @@ 
 	) {
 		return '';
 	} else {
-		return $raw ? $prim : $table . '_' . $prim . '_seq';
+		return $raw ? $prim : $table.'_'.$prim.'_seq';
 	}
 }
 
@@ -1173,29 +1172,29 @@ 
 			return spip_pg_frommysql($v);
 		} else {
 			if (str_starts_with((string) $v, '0000')) {
-				$v = '0001' . substr((string) $v, 4);
+				$v = '0001'.substr((string) $v, 4);
 			}
 			if (strpos((string) $v, '-00-00') === 4) {
-				$v = substr((string) $v, 0, 4) . '-01-01' . substr((string) $v, 10);
+				$v = substr((string) $v, 0, 4).'-01-01'.substr((string) $v, 10);
 			}
 
 			return "timestamp '$v'";
 		}
 	} elseif (!sql_test_int($t)) {
-		return ("'" . pg_escape_string($v) . "'");
+		return ("'".pg_escape_string($v)."'");
 	} elseif (is_numeric($v) || str_starts_with((string) $v, 'CAST(')) {
 		return $v;
 	} elseif ($v[0] == '0' && $v[1] !== 'x' && ctype_xdigit(substr((string) $v, 1))) {
 		return substr((string) $v, 1);
 	} else {
-		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.' . _LOG_AVERTISSEMENT);
+		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.'._LOG_AVERTISSEMENT);
 
 		return (int) $v;
 	}
 }
 
 function spip_pg_hex($v) {
-	return "CAST(x'" . $v . "' as bigint)";
+	return "CAST(x'".$v."' as bigint)";
 }
 
 function spip_pg_quote($v, $type = '') {
@@ -1233,15 +1232,15 @@ 
 		return $not ? '0=0' : '0=1';
 	}
 	if (str_contains((string) $valeurs, "CAST(x'")) {
-		return "($val=" . implode("OR $val=", explode(',', (string) $valeurs)) . ')';
+		return "($val=".implode("OR $val=", explode(',', (string) $valeurs)).')';
 	}
 	$n = $i = 0;
 	$in_sql = '';
 	while ($n = strpos((string) $valeurs, ',', $n + 1)) {
 		if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-				substr((string) $valeurs, 0, $n) .
-				"))\n" .
+			$in_sql .= "($val $not IN (".
+				substr((string) $valeurs, 0, $n).
+				"))\n".
 				($not ? "AND\t" : "OR\t");
 			$valeurs = substr((string) $valeurs, $n + 1);
 			$i = $n = 0;
@@ -1257,7 +1256,7 @@ 
 	$s = $link ? pg_last_error($link) : pg_last_error();
 	if ($s) {
 		$s = str_replace('ERROR', 'errcode: 1000 ', $s);
-		spip_log("$s - $query", 'pg.' . _LOG_ERREUR);
+		spip_log("$s - $query", 'pg.'._LOG_ERREUR);
 	}
 
 	return $s;
@@ -1305,7 +1304,7 @@ 
 function spip_pg_showbase($match, $serveur = '', $requeter = true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE ' . _q($match);
+	$connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE '._q($match);
 
 	return spip_pg_query_simple($link, $q);
 }
@@ -1313,7 +1312,7 @@ 
 function spip_pg_showtable($nom_table, $serveur = '', $requeter = true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
 	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE ' . _q($nom_table);
+	$connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE '._q($nom_table);
 
 	$res = spip_pg_query_simple($link, $q);
 	if (!$res) {
@@ -1324,15 +1323,15 @@ 
 	// il faut en tenir compte dans le return
 	$fields = [];
 	while ($field = pg_fetch_array($res, null, PGSQL_NUM)) {
-		$fields[$field[0]] = $field[2] . ($field[1] ? ' DEFAULT ' . $field[1] : (''));
+		$fields[$field[0]] = $field[2].($field[1] ? ' DEFAULT '.$field[1] : (''));
 	}
-	$connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE ' . _q($nom_table);
+	$connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE '._q($nom_table);
 	$res = spip_pg_query_simple($link, $q);
 	$keys = [];
 	while ($index = pg_fetch_array($res, null, PGSQL_NUM)) {
 		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
-			$nom = str_replace($nom_table . '_', '', $r[2]);
-			$keys[($r[1] ? 'PRIMARY KEY' : ('KEY ' . $nom))] = $r[3];
+			$nom = str_replace($nom_table.'_', '', $r[2]);
+			$keys[($r[1] ? 'PRIMARY KEY' : ('KEY '.$nom))] = $r[3];
 		}
 	}
 
@@ -1364,16 +1363,16 @@ 
 		if (str_starts_with($k, 'KEY ')) {
 			$n = str_replace('`', '', $k);
 			$v = str_replace('`', '"', (string) $v);
-			$i = $nom . preg_replace('/KEY +/', '_', $n);
+			$i = $nom.preg_replace('/KEY +/', '_', $n);
 			if ($k != $n) {
 				$i = "\"$i\"";
 			}
 			$keys[] = "CREATE INDEX $i ON $nom ($v);";
 		} elseif (str_starts_with($k, 'UNIQUE ')) {
 			$k = preg_replace('/^UNIQUE +/', '', $k);
-			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`', '"', $k) . " UNIQUE ($v)";
+			$prim .= "$s\n\t\tCONSTRAINT ".str_replace('`', '"', $k)." UNIQUE ($v)";
 		} else {
-			$prim .= "$s\n\t\t" . str_replace('`', '"', $k) . " ($v)";
+			$prim .= "$s\n\t\t".str_replace('`', '"', $k)." ($v)";
 		}
 		if ($k == 'PRIMARY KEY') {
 			$prim_name = $v;
@@ -1384,16 +1383,16 @@ 
 
 	$character_set = '';
 	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
+		$character_set .= ' CHARACTER SET '.$GLOBALS['meta']['charset_sql_base'];
 	}
 	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
+		$character_set .= ' COLLATE '.$GLOBALS['meta']['charset_collation_sql_base'];
 	}
 
 	foreach ($champs as $k => $v) {
 		$k = str_replace('`', '"', $k);
 		if (preg_match(',([a-z]*\s*(\(\s*\d*\s*\))?(\s*binary)?),i', (string) $v, $defs) && (preg_match(',(char|text),i', $defs[1]) && !preg_match(',binary,i', $defs[1]))) {
-			$v = $defs[1] . $character_set . ' ' . substr((string) $v, strlen($defs[1]));
+			$v = $defs[1].$character_set.' '.substr((string) $v, strlen($defs[1]));
 		}
 
 		$query .= "$s\n\t\t$k "
@@ -1407,7 +1406,7 @@ 
 
 	// En l'absence de "if not exists" en PG, on neutralise les erreurs
 
-	$q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ')' .
+	$q = "CREATE $temporary TABLE $nom ($query".($prim ? ",$prim" : '').')'.
 		($character_set ? " DEFAULT $character_set" : '')
 		. "\n";
 
@@ -1418,7 +1417,7 @@ 
 	$r = @pg_query($link, $q);
 
 	if (!$r) {
-		spip_log("Impossible de creer cette table: $q", 'pg.' . _LOG_ERREUR);
+		spip_log("Impossible de creer cette table: $q", 'pg.'._LOG_ERREUR);
 	} else {
 		foreach ($keys as $index) {
 			pg_query($link, $index);
@@ -1441,20 +1440,20 @@ 
 	// vue deja presente
 	if (sql_showtable($nom, false, $serveur)) {
 		if ($requeter) {
-			spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.' . _LOG_ERREUR);
+			spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.'._LOG_ERREUR);
 		}
 
 		return false;
 	}
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+	$query = "CREATE VIEW $nom AS ".$query_select;
 
 	return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 function spip_pg_set_connect_charset($charset, $serveur = '', $requeter = true) {
-	spip_log('changement de charset sql a ecrire en PG', 'pg.' . _LOG_ERREUR);
+	spip_log('changement de charset sql a ecrire en PG', 'pg.'._LOG_ERREUR);
 }
 
 
@@ -1467,7 +1466,7 @@ 
  * @return bool|string true / false / requete
  **/
 function spip_pg_optimize($table, $serveur = '', $requeter = true) {
-	return spip_pg_query('VACUUM ' . $table, $serveur, $requeter);
+	return spip_pg_query('VACUUM '.$table, $serveur, $requeter);
 }
 
 // Selectionner la sous-chaine dans $objet

Indentation +1149 added lines, -1149 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 define('_DEFAULT_DB', 'spip');
@@ -30,155 +30,155 @@ 
 // si ca ne marche toujours pas, echec.
 
 function req_pg_dist($addr, $port, $login, #[\SensitiveParameter] $pass, $db = '', $prefixe = '') {
-	static $last_connect = [];
-	if (!extension_loaded('pgsql')) {
-		return false;
-	}
-
-	// si provient de selectdb
-	if (empty($addr) && empty($port) && empty($login) && empty($pass)) {
-		foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
-			${$a} = $last_connect[$a];
-		}
-	}
-	[$host, $p] = array_pad(explode(';', (string) $addr), 2, null);
-	$port = $p > 0 ? " port=$p" : '';
-	$erreurs = [];
-	if ($db) {
-		@$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-	} elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-		$erreurs[] = pg_last_error();
-		if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-			$db = $login;
-		} else {
-			$erreurs[] = pg_last_error();
-			$db = _DEFAULT_DB;
-			$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-		}
-	}
-	if (!$link) {
-		$erreurs[] = pg_last_error();
-		foreach ($erreurs as $e) {
-			spip_log('Echec pg_connect. Erreur : ' . $e, 'pg.' . _LOG_HS);
-		}
-
-		return false;
-	}
-
-	if ($link) {
-		$last_connect = [
-			'addr' => $addr,
-			'port' => $port,
-			'login' => $login,
-			'pass' => $pass,
-			'db' => $db,
-			'prefixe' => $prefixe,
-		];
-	}
-
-	spip_log(
-		"Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),
-		'pg.' . _LOG_DEBUG
-	);
-
-	return $link ? [
-		'db' => $db,
-		'prefixe' => $prefixe ?: $db,
-		'link' => $link,
-	] : false;
+    static $last_connect = [];
+    if (!extension_loaded('pgsql')) {
+        return false;
+    }
+
+    // si provient de selectdb
+    if (empty($addr) && empty($port) && empty($login) && empty($pass)) {
+        foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
+            ${$a} = $last_connect[$a];
+        }
+    }
+    [$host, $p] = array_pad(explode(';', (string) $addr), 2, null);
+    $port = $p > 0 ? " port=$p" : '';
+    $erreurs = [];
+    if ($db) {
+        @$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+    } elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+        $erreurs[] = pg_last_error();
+        if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+            $db = $login;
+        } else {
+            $erreurs[] = pg_last_error();
+            $db = _DEFAULT_DB;
+            $link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+        }
+    }
+    if (!$link) {
+        $erreurs[] = pg_last_error();
+        foreach ($erreurs as $e) {
+            spip_log('Echec pg_connect. Erreur : ' . $e, 'pg.' . _LOG_HS);
+        }
+
+        return false;
+    }
+
+    if ($link) {
+        $last_connect = [
+            'addr' => $addr,
+            'port' => $port,
+            'login' => $login,
+            'pass' => $pass,
+            'db' => $db,
+            'prefixe' => $prefixe,
+        ];
+    }
+
+    spip_log(
+        "Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),
+        'pg.' . _LOG_DEBUG
+    );
+
+    return $link ? [
+        'db' => $db,
+        'prefixe' => $prefixe ?: $db,
+        'link' => $link,
+    ] : false;
 }
 
 $GLOBALS['spip_pg_functions_1'] = [
-	'alter' => 'spip_pg_alter',
-	'count' => 'spip_pg_count',
-	'countsel' => 'spip_pg_countsel',
-	'create' => 'spip_pg_create',
-	'create_base' => 'spip_pg_create_base',
-	'create_view' => 'spip_pg_create_view',
-	'date_proche' => 'spip_pg_date_proche',
-	'delete' => 'spip_pg_delete',
-	'drop_table' => 'spip_pg_drop_table',
-	'drop_view' => 'spip_pg_drop_view',
-	'errno' => 'spip_pg_errno',
-	'error' => 'spip_pg_error',
-	'explain' => 'spip_pg_explain',
-	'fetch' => 'spip_pg_fetch',
-	'seek' => 'spip_pg_seek',
-	'free' => 'spip_pg_free',
-	'hex' => 'spip_pg_hex',
-	'in' => 'spip_pg_in',
-	'insert' => 'spip_pg_insert',
-	'insertq' => 'spip_pg_insertq',
-	'insertq_multi' => 'spip_pg_insertq_multi',
-	'listdbs' => 'spip_pg_listdbs',
-	'multi' => 'spip_pg_multi',
-	'optimize' => 'spip_pg_optimize',
-	'query' => 'spip_pg_query',
-	'quote' => 'spip_pg_quote',
-	'replace' => 'spip_pg_replace',
-	'replace_multi' => 'spip_pg_replace_multi',
-	'select' => 'spip_pg_select',
-	'selectdb' => 'spip_pg_selectdb',
-	'set_connect_charset' => 'spip_pg_set_connect_charset',
-	'showbase' => 'spip_pg_showbase',
-	'showtable' => 'spip_pg_showtable',
-	'update' => 'spip_pg_update',
-	'updateq' => 'spip_pg_updateq',
+    'alter' => 'spip_pg_alter',
+    'count' => 'spip_pg_count',
+    'countsel' => 'spip_pg_countsel',
+    'create' => 'spip_pg_create',
+    'create_base' => 'spip_pg_create_base',
+    'create_view' => 'spip_pg_create_view',
+    'date_proche' => 'spip_pg_date_proche',
+    'delete' => 'spip_pg_delete',
+    'drop_table' => 'spip_pg_drop_table',
+    'drop_view' => 'spip_pg_drop_view',
+    'errno' => 'spip_pg_errno',
+    'error' => 'spip_pg_error',
+    'explain' => 'spip_pg_explain',
+    'fetch' => 'spip_pg_fetch',
+    'seek' => 'spip_pg_seek',
+    'free' => 'spip_pg_free',
+    'hex' => 'spip_pg_hex',
+    'in' => 'spip_pg_in',
+    'insert' => 'spip_pg_insert',
+    'insertq' => 'spip_pg_insertq',
+    'insertq_multi' => 'spip_pg_insertq_multi',
+    'listdbs' => 'spip_pg_listdbs',
+    'multi' => 'spip_pg_multi',
+    'optimize' => 'spip_pg_optimize',
+    'query' => 'spip_pg_query',
+    'quote' => 'spip_pg_quote',
+    'replace' => 'spip_pg_replace',
+    'replace_multi' => 'spip_pg_replace_multi',
+    'select' => 'spip_pg_select',
+    'selectdb' => 'spip_pg_selectdb',
+    'set_connect_charset' => 'spip_pg_set_connect_charset',
+    'showbase' => 'spip_pg_showbase',
+    'showtable' => 'spip_pg_showtable',
+    'update' => 'spip_pg_update',
+    'updateq' => 'spip_pg_updateq',
 ];
 
 // Par ou ca passe une fois les traductions faites
 function spip_pg_trace_query($query, $serveur = '') {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-		$e = '';
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	$r = spip_pg_query_simple($link, $query);
-
-	// Log de l'erreur eventuelle
-	if ($e = spip_pg_errno($serveur)) {
-		$e .= spip_pg_error($query, $serveur);
-	} // et du fautif
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+        $e = '';
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    $r = spip_pg_query_simple($link, $query);
+
+    // Log de l'erreur eventuelle
+    if ($e = spip_pg_errno($serveur)) {
+        $e .= spip_pg_error($query, $serveur);
+    } // et du fautif
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 // Fonction de requete generale quand on est sur que c'est SQL standard.
 // Elle change juste le noms des tables ($table_prefix) dans le FROM etc
 
 function spip_pg_query($query, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', (string) $query, $regs)) {
-		$suite = strstr((string) $query, (string) $regs[0]);
-		$query = substr((string) $query, 0, -strlen($suite));
-	} else {
-		$suite = '';
-	}
-	$query = preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
-
-	return spip_pg_trace_query($query, $serveur);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', (string) $query, $regs)) {
+        $suite = strstr((string) $query, (string) $regs[0]);
+        $query = substr((string) $query, 0, -strlen($suite));
+    } else {
+        $suite = '';
+    }
+    $query = preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
+
+    return spip_pg_trace_query($query, $serveur);
 }
 
 function spip_pg_query_simple($link, $query) {
-	#spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
-	return pg_query($link, $query);
+    #spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
+    return pg_query($link, $query);
 }
 
 /*
@@ -190,192 +190,192 @@ 
  * de requetes showtable intempestives
  */
 function spip_pg_ajouter_champs_timestamp($table, $couples, $desc = '', $serveur = '') {
-	static $tables = [];
-
-	if (!isset($tables[$table])) {
-		if (!$desc) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table, $serveur);
-			// si pas de description, on ne fait rien, ou on die() ?
-			if (!$desc) {
-				return $couples;
-			}
-		}
-
-		// recherche des champs avec simplement 'TIMESTAMP'
-		// cependant, il faudra peut etre etendre
-		// avec la gestion de DEFAULT et ON UPDATE
-		// mais ceux-ci ne sont pas utilises dans le core
-		$tables[$table] = [];
-		foreach ($desc['field'] as $k => $v) {
-			$v = strtolower(ltrim((string) $v));
-			// ne pas ajouter de timestamp now() si un default est specifie
-			if (str_starts_with($v, 'timestamp') && !str_contains($v, 'default')) {
-				$tables[$table][] = $k;
-			}
-		}
-	}
-
-	// ajout des champs type 'timestamp' absents
-	foreach ($tables[$table] as $maj) {
-		if (!array_key_exists($maj, $couples)) {
-			$couples[$maj] = 'NOW()';
-		}
-	}
-
-	return $couples;
+    static $tables = [];
+
+    if (!isset($tables[$table])) {
+        if (!$desc) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table, $serveur);
+            // si pas de description, on ne fait rien, ou on die() ?
+            if (!$desc) {
+                return $couples;
+            }
+        }
+
+        // recherche des champs avec simplement 'TIMESTAMP'
+        // cependant, il faudra peut etre etendre
+        // avec la gestion de DEFAULT et ON UPDATE
+        // mais ceux-ci ne sont pas utilises dans le core
+        $tables[$table] = [];
+        foreach ($desc['field'] as $k => $v) {
+            $v = strtolower(ltrim((string) $v));
+            // ne pas ajouter de timestamp now() si un default est specifie
+            if (str_starts_with($v, 'timestamp') && !str_contains($v, 'default')) {
+                $tables[$table][] = $k;
+            }
+        }
+    }
+
+    // ajout des champs type 'timestamp' absents
+    foreach ($tables[$table] as $maj) {
+        if (!array_key_exists($maj, $couples)) {
+            $couples[$maj] = 'NOW()';
+        }
+    }
+
+    return $couples;
 }
 
 
 // Alter en PG ne traite pas les index
 function spip_pg_alter($query, $serveur = '', $requeter = true) {
-	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
-	// tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"...
-	// ou revoir l'api de sql_alter en creant un
-	// sql_alter_table($table,array($actions));
-	if (!preg_match('/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', (string) $query, $regs)) {
-		spip_log("$query mal comprise", 'pg.' . _LOG_ERREUR);
-
-		return false;
-	}
-	$debut = $regs[1];
-	$table = $regs[3];
-	$suite = $regs[4];
-	$todo = explode(',', $suite);
-	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = [];
-	$i = 0;
-	$ouverte = false;
-	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
-		$o = (str_contains($do, '('));
-		$f = (str_contains($do, ')'));
-		if ($o && !$f) {
-			$ouverte = true;
-		} elseif ($f) {
-			$ouverte = false;
-		}
-		if (!$ouverte) {
-			$i++;
-		}
-	}
-	$todo = $todo2;
-	$query = $debut . ' ' . array_shift($todo);
-
-	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
-		spip_log("$query incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		if ($r[1]) {
-			spip_log("j'ignore IGNORE dans $query", 'pg.' . _LOG_AVERTISSEMENT);
-		}
-		$f = 'spip_pg_alter_' . strtolower($r[3]);
-		if (function_exists($f)) {
-			$f($r[2], $r[4], $serveur, $requeter);
-		} else {
-			spip_log("$query non prevu", 'pg.' . _LOG_ERREUR);
-		}
-	}
-	// Alter a plusieurs args. Faudrait optimiser.
-	if ($todo) {
-		spip_pg_alter("TABLE $table " . implode(',', $todo));
-	}
+    // il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
+    // tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"...
+    // ou revoir l'api de sql_alter en creant un
+    // sql_alter_table($table,array($actions));
+    if (!preg_match('/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', (string) $query, $regs)) {
+        spip_log("$query mal comprise", 'pg.' . _LOG_ERREUR);
+
+        return false;
+    }
+    $debut = $regs[1];
+    $table = $regs[3];
+    $suite = $regs[4];
+    $todo = explode(',', $suite);
+    // on remet les morceaux dechires ensembles... que c'est laid !
+    $todo2 = [];
+    $i = 0;
+    $ouverte = false;
+    while ($do = array_shift($todo)) {
+        $todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+        $o = (str_contains($do, '('));
+        $f = (str_contains($do, ')'));
+        if ($o && !$f) {
+            $ouverte = true;
+        } elseif ($f) {
+            $ouverte = false;
+        }
+        if (!$ouverte) {
+            $i++;
+        }
+    }
+    $todo = $todo2;
+    $query = $debut . ' ' . array_shift($todo);
+
+    if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
+        spip_log("$query incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        if ($r[1]) {
+            spip_log("j'ignore IGNORE dans $query", 'pg.' . _LOG_AVERTISSEMENT);
+        }
+        $f = 'spip_pg_alter_' . strtolower($r[3]);
+        if (function_exists($f)) {
+            $f($r[2], $r[4], $serveur, $requeter);
+        } else {
+            spip_log("$query non prevu", 'pg.' . _LOG_ERREUR);
+        }
+    }
+    // Alter a plusieurs args. Faudrait optimiser.
+    if ($todo) {
+        spip_pg_alter("TABLE $table " . implode(',', $todo));
+    }
 }
 
 function spip_pg_alter_change($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', (string) $arg, $r)) {
-		spip_log("alter change: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		[, $old, $new, $type, $default, $null, $def2] = $r;
-		$actions = ["ALTER $old TYPE " . mysql2pg_type($type)];
-		$actions[] = $null ? "ALTER $old SET NOT NULL" : "ALTER $old DROP NOT NULL";
-
-		if ($d = ($default ?: $def2)) {
-			$actions[] = "ALTER $old SET $d";
-		} else {
-			$actions[] = "ALTER $old DROP DEFAULT";
-		}
-
-		spip_pg_query("ALTER TABLE $table " . implode(', ', $actions));
-
-		if ($old !== $new) {
-			spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
-		}
-	}
+    if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', (string) $arg, $r)) {
+        spip_log("alter change: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        [, $old, $new, $type, $default, $null, $def2] = $r;
+        $actions = ["ALTER $old TYPE " . mysql2pg_type($type)];
+        $actions[] = $null ? "ALTER $old SET NOT NULL" : "ALTER $old DROP NOT NULL";
+
+        if ($d = ($default ?: $def2)) {
+            $actions[] = "ALTER $old SET $d";
+        } else {
+            $actions[] = "ALTER $old DROP DEFAULT";
+        }
+
+        spip_pg_query("ALTER TABLE $table " . implode(', ', $actions));
+
+        if ($old !== $new) {
+            spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
+        }
+    }
 }
 
 function spip_pg_alter_add($table, $arg, $serveur = '', $requeter = true) {
-	$nom_index = null;
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', (string) $arg, $r)) {
-		spip_log("alter add $arg  incompris", 'pg.' . _LOG_ERREUR);
-
-		return null;
-	}
-	if (!$r[1] || $r[1] == 'COLUMN') {
-		preg_match('/`?(\w+)`?(.*)/', $r[2], $m);
-		if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
-			$m[2] = $n[1];
-		}
-
-		return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]), $serveur, $requeter);
-	} elseif ($r[1][0] == 'P') {
-		// la primary peut etre sur plusieurs champs
-		$r[2] = trim(str_replace('`', '', $r[2]));
-		$m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
-
-		return spip_pg_query(
-			"ALTER TABLE $table ADD CONSTRAINT $table" . '_pkey PRIMARY KEY (' . $m . ')',
-			$serveur,
-			$requeter
-		);
-	} else {
-		preg_match('/([^\s,]*)\s*(.*)?/', $r[2], $m);
-		// peut etre "(colonne)" ou "nom_index (colonnes)"
-		// bug potentiel si qqn met "(colonne, colonne)"
-		//
-		// nom_index (colonnes)
-		if ($m[2]) {
-			$colonnes = substr($m[2], 1, -1);
-			$nom_index = $m[1];
-		} else {
-			// (colonne)
-			if ($m[1][0] == '(') {
-				$colonnes = substr($m[1], 1, -1);
-				if (str_contains(',', $colonnes)) {
-					spip_log('PG : Erreur, impossible de creer un index sur plusieurs colonnes'
-						. " sans qu'il ait de nom ($table, ($colonnes))", 'pg.' . _LOG_ERREUR);
-				} else {
-					$nom_index = $colonnes;
-				}
-			} // nom_index
-			else {
-				$nom_index = $colonnes = $m[1];
-			}
-		}
-
-		return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
-	}
+    $nom_index = null;
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', (string) $arg, $r)) {
+        spip_log("alter add $arg  incompris", 'pg.' . _LOG_ERREUR);
+
+        return null;
+    }
+    if (!$r[1] || $r[1] == 'COLUMN') {
+        preg_match('/`?(\w+)`?(.*)/', $r[2], $m);
+        if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
+            $m[2] = $n[1];
+        }
+
+        return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]), $serveur, $requeter);
+    } elseif ($r[1][0] == 'P') {
+        // la primary peut etre sur plusieurs champs
+        $r[2] = trim(str_replace('`', '', $r[2]));
+        $m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
+
+        return spip_pg_query(
+            "ALTER TABLE $table ADD CONSTRAINT $table" . '_pkey PRIMARY KEY (' . $m . ')',
+            $serveur,
+            $requeter
+        );
+    } else {
+        preg_match('/([^\s,]*)\s*(.*)?/', $r[2], $m);
+        // peut etre "(colonne)" ou "nom_index (colonnes)"
+        // bug potentiel si qqn met "(colonne, colonne)"
+        //
+        // nom_index (colonnes)
+        if ($m[2]) {
+            $colonnes = substr($m[2], 1, -1);
+            $nom_index = $m[1];
+        } else {
+            // (colonne)
+            if ($m[1][0] == '(') {
+                $colonnes = substr($m[1], 1, -1);
+                if (str_contains(',', $colonnes)) {
+                    spip_log('PG : Erreur, impossible de creer un index sur plusieurs colonnes'
+                        . " sans qu'il ait de nom ($table, ($colonnes))", 'pg.' . _LOG_ERREUR);
+                } else {
+                    $nom_index = $colonnes;
+                }
+            } // nom_index
+            else {
+                $nom_index = $colonnes = $m[1];
+            }
+        }
+
+        return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
+    }
 }
 
 function spip_pg_alter_drop($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', (string) $arg, $r)) {
-		spip_log("alter drop: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		if (!$r[1] || $r[1] == 'COLUMN') {
-			return spip_pg_query("ALTER TABLE $table DROP " . $r[2], $serveur);
-		} elseif ($r[1][0] == 'P') {
-			return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
-		} else {
-			return spip_pg_query('DROP INDEX ' . $table . '_' . $r[2], $serveur);
-		}
-	}
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', (string) $arg, $r)) {
+        spip_log("alter drop: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        if (!$r[1] || $r[1] == 'COLUMN') {
+            return spip_pg_query("ALTER TABLE $table DROP " . $r[2], $serveur);
+        } elseif ($r[1][0] == 'P') {
+            return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+        } else {
+            return spip_pg_query('DROP INDEX ' . $table . '_' . $r[2], $serveur);
+        }
+    }
 }
 
 function spip_pg_alter_modify($table, $arg, $serveur = '', $requeter = true) {
-	if (!preg_match('/^`?(\w+)`?\s+(.*)$/', (string) $arg, $r)) {
-		spip_log("alter modify: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	} else {
-		return spip_pg_alter_change($table, $r[1] . ' ' . $arg, $serveur = '', $requeter = true);
-	}
+    if (!preg_match('/^`?(\w+)`?\s+(.*)$/', (string) $arg, $r)) {
+        spip_log("alter modify: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    } else {
+        return spip_pg_alter_change($table, $r[1] . ' ' . $arg, $serveur = '', $requeter = true);
+    }
 }
 
 // attention (en pg) :
@@ -383,17 +383,17 @@ 
 // - alter table A rename X to Y = changer le nom de la colonne X en Y
 // pour l'instant, traiter simplement RENAME TO X
 function spip_pg_alter_rename($table, $arg, $serveur = '', $requeter = true) {
-	$rename = '';
-	// si TO, mais pas au debut
-	if (!stripos((string) $arg, 'TO ')) {
-		$rename = $arg;
-	} elseif (preg_match('/^(TO)\s*`?(\w*)`?/', (string) $arg, $r)) {
-		$rename = $r[2];
-	} else {
-		spip_log("alter rename: $arg  incompris", 'pg.' . _LOG_ERREUR);
-	}
-
-	return $rename ? spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
+    $rename = '';
+    // si TO, mais pas au debut
+    if (!stripos((string) $arg, 'TO ')) {
+        $rename = $arg;
+    } elseif (preg_match('/^(TO)\s*`?(\w*)`?/', (string) $arg, $r)) {
+        $rename = $r[2];
+    } else {
+        spip_log("alter rename: $arg  incompris", 'pg.' . _LOG_ERREUR);
+    }
+
+    return $rename ? spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
 }
 
 
@@ -409,58 +409,58 @@ 
  * @return bool ou requete
  */
 function spip_pg_create_index($nom, $table, $champs, $serveur = '', $requeter = true) {
-	if (!($nom || $table || $champs)) {
-		spip_log(
-			"Champ manquant pour creer un index pg ($nom, $table, (" . @implode(',', $champs) . '))',
-			'pg.' . _LOG_ERREUR
-		);
-
-		return false;
-	}
-
-	$nom = str_replace('`', '', $nom);
-	$champs = str_replace('`', '', (string) $champs);
-
-	// PG ne differentie pas noms des index en fonction des tables
-	// il faut donc creer des noms uniques d'index pour une base pg
-	$nom = $table . '_' . $nom;
-	// enlever d'eventuelles parentheses deja presentes sur champs
-	if (!is_array($champs)) {
-		if ($champs[0] == '(') {
-			$champs = substr($champs, 1, -1);
-		}
-		$champs = [$champs];
-	}
-	$query = "CREATE INDEX $nom ON $table (" . implode(',', $champs) . ')';
-	if (!$requeter) {
-		return $query;
-	}
-
-	return spip_pg_query($query, $serveur, $requeter);
+    if (!($nom || $table || $champs)) {
+        spip_log(
+            "Champ manquant pour creer un index pg ($nom, $table, (" . @implode(',', $champs) . '))',
+            'pg.' . _LOG_ERREUR
+        );
+
+        return false;
+    }
+
+    $nom = str_replace('`', '', $nom);
+    $champs = str_replace('`', '', (string) $champs);
+
+    // PG ne differentie pas noms des index en fonction des tables
+    // il faut donc creer des noms uniques d'index pour une base pg
+    $nom = $table . '_' . $nom;
+    // enlever d'eventuelles parentheses deja presentes sur champs
+    if (!is_array($champs)) {
+        if ($champs[0] == '(') {
+            $champs = substr($champs, 1, -1);
+        }
+        $champs = [$champs];
+    }
+    $query = "CREATE INDEX $nom ON $table (" . implode(',', $champs) . ')';
+    if (!$requeter) {
+        return $query;
+    }
+
+    return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 function spip_pg_explain($query, $serveur = '', $requeter = true) {
-	if (!str_starts_with(ltrim((string) $query), 'SELECT')) {
-		return [];
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	if (preg_match('/\s(SET|VALUES|WHERE)\s/i', (string) $query, $regs)) {
-		$suite = strstr((string) $query, (string) $regs[0]);
-		$query = substr((string) $query, 0, -strlen($suite));
-	} else {
-		$suite = '';
-	}
-	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
-
-	if (!$requeter) {
-		return $query;
-	}
-	$r = spip_pg_query_simple($link, $query);
-
-	return spip_pg_fetch($r, null, $serveur);
+    if (!str_starts_with(ltrim((string) $query), 'SELECT')) {
+        return [];
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    if (preg_match('/\s(SET|VALUES|WHERE)\s/i', (string) $query, $regs)) {
+        $suite = strstr((string) $query, (string) $regs[0]);
+        $query = substr((string) $query, 0, -strlen($suite));
+    } else {
+        $suite = '';
+    }
+    $query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1' . $prefixe . '_', (string) $query) . $suite;
+
+    if (!$requeter) {
+        return $query;
+    }
+    $r = spip_pg_query_simple($link, $query);
+
+    return spip_pg_fetch($r, null, $serveur);
 }
 
 
@@ -479,88 +479,88 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_pg_selectdb($db, $serveur = '', $requeter = true) {
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ? strtolower($serveur) : 0;
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ? strtolower($serveur) : 0;
 
-	if (($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')) && (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link)) {
-		return $db;
-	}
+    if (($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')) && (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link)) {
+        return $db;
+    }
 
-	return false;
+    return false;
 }
 
 // Qu'une seule base pour le moment
 
 function spip_pg_listdbs($serveur) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$link = $connexion['link'];
-	$dbs = [];
-	$res = spip_pg_query_simple($link, 'select * From pg_database');
-	while ($row = pg_fetch_array($res, null, PGSQL_NUM)) {
-		$dbs[] = reset($row);
-	}
-
-	return $dbs;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $link = $connexion['link'];
+    $dbs = [];
+    $res = spip_pg_query_simple($link, 'select * From pg_database');
+    while ($row = pg_fetch_array($res, null, PGSQL_NUM)) {
+        $dbs[] = reset($row);
+    }
+
+    return $dbs;
 }
 
 function spip_pg_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = [],
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = [],
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$limit = preg_match('/^\s*((\d+),)?\s*(\d+)\s*$/', (string) $limit, $limatch);
-	if ($limit) {
-		$offset = $limatch[2];
-		$count = $limatch[3];
-	}
-
-	$select = spip_pg_frommysql($select);
-
-	// si pas de tri explicitement demande, le GROUP BY ne
-	// contient que la clef primaire.
-	// lui ajouter alors le champ de tri par defaut
-	if (preg_match('/FIELD\(([a-z]+\.[a-z]+),/i', (string) $orderby[0], $groupbyplus)) {
-		$groupby[] = $groupbyplus[1];
-	}
-
-	$orderby = spip_pg_orderby($orderby, $select);
-
-	if ($having && is_array($having)) {
-		$having = implode("\n\tAND ", array_map('calculer_pg_where', $having));
-	}
-	$from = spip_pg_from($from, $prefixe);
-	$query = 'SELECT ' . $select
-		. ($from ? "\nFROM $from" : '')
-		. ($where ? "\nWHERE " . (is_array($where) ? implode(
-			"\n\tAND ",
-			array_map('calculer_pg_where', $where)
-		) : (calculer_pg_where($where))) : (''))
-		. spip_pg_groupby($groupby, $from, $select)
-		. ($having ? "\nHAVING $having" : '')
-		. ($orderby ? ("\nORDER BY $orderby") : '')
-		. ($limit ? " LIMIT $count" . ($offset ? " OFFSET $offset" : '') : (''));
-
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) {
-		return $query;
-	}
-
-	$r = spip_pg_trace_query($query, $serveur);
-
-	return $r ?: $query;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $limit = preg_match('/^\s*((\d+),)?\s*(\d+)\s*$/', (string) $limit, $limatch);
+    if ($limit) {
+        $offset = $limatch[2];
+        $count = $limatch[3];
+    }
+
+    $select = spip_pg_frommysql($select);
+
+    // si pas de tri explicitement demande, le GROUP BY ne
+    // contient que la clef primaire.
+    // lui ajouter alors le champ de tri par defaut
+    if (preg_match('/FIELD\(([a-z]+\.[a-z]+),/i', (string) $orderby[0], $groupbyplus)) {
+        $groupby[] = $groupbyplus[1];
+    }
+
+    $orderby = spip_pg_orderby($orderby, $select);
+
+    if ($having && is_array($having)) {
+        $having = implode("\n\tAND ", array_map('calculer_pg_where', $having));
+    }
+    $from = spip_pg_from($from, $prefixe);
+    $query = 'SELECT ' . $select
+        . ($from ? "\nFROM $from" : '')
+        . ($where ? "\nWHERE " . (is_array($where) ? implode(
+            "\n\tAND ",
+            array_map('calculer_pg_where', $where)
+        ) : (calculer_pg_where($where))) : (''))
+        . spip_pg_groupby($groupby, $from, $select)
+        . ($having ? "\nHAVING $having" : '')
+        . ($orderby ? ("\nORDER BY $orderby") : '')
+        . ($limit ? " LIMIT $count" . ($offset ? " OFFSET $offset" : '') : (''));
+
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) {
+        return $query;
+    }
+
+    $r = spip_pg_trace_query($query, $serveur);
+
+    return $r ?: $query;
 ;
 }
 
@@ -568,22 +568,22 @@ 
 // car le reste de la requete utilise les alias (AS) systematiquement
 
 function spip_pg_from($from, $prefixe) {
-	if (is_array($from)) {
-		$from = spip_pg_select_as($from);
-	}
+    if (is_array($from)) {
+        $from = spip_pg_select_as($from);
+    }
 
-	return $prefixe ? preg_replace('/(\b)spip_/', '\1' . $prefixe . '_', (string) $from) : $from;
+    return $prefixe ? preg_replace('/(\b)spip_/', '\1' . $prefixe . '_', (string) $from) : $from;
 }
 
 function spip_pg_orderby($order, $select) {
-	$res = [];
-	$arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', (string) $order));
+    $res = [];
+    $arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', (string) $order));
 
-	foreach ($arg as $v) {
-		$res[] = preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v . '/', (string) $select, $m) ? $m[1] : $v;
-	}
+    foreach ($arg as $v) {
+        $res[] = preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v . '/', (string) $select, $m) ? $m[1] : $v;
+    }
 
-	return spip_pg_frommysql(implode(',', $res));
+    return spip_pg_frommysql(implode(',', $res));
 }
 
 // Conversion a l'arrach' des jointures MySQL en jointures PG
@@ -591,56 +591,56 @@ 
 // et pour enlever les repetitions (sans incidence de perf, mais ca fait sale)
 
 function spip_pg_groupby($groupby, $from, $select) {
-	$join = strpos((string) $from, ',');
-	// ismplifier avant de decouper
-	if (is_string($select)) { // fct SQL sur colonne et constante apostrophee ==> la colonne
-	$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $select);
-	}
-
-	if ($join || $groupby) {
-		$join = is_array($select) ? $select : explode(', ', (string) $select);
-	}
-	if ($join) {
-		// enlever les 0 as points, '', ...
-		foreach ($join as $k => $v) {
-			$v = str_replace('DISTINCT ', '', (string) $v);
-			// fct SQL sur colonne et constante apostrophee ==> la colonne
-			$v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $v);
-			$v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/', '\\1', $v);
-			// resultat d'agregat ne sont pas a mettre dans le groupby
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i', '', $v);
-			// idem sans AS (fetch numerique)
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i', '', $v);
-			// des AS simples : on garde le cote droit du AS
-			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i', '\\1', $v);
-			// ne reste plus que les vrais colonnes, ou des constantes a virer
-			if (preg_match(',^[\'"],', $v) || is_numeric($v)) {
-				unset($join[$k]);
-			} else {
-				$join[$k] = trim($v);
-			}
-		}
-		$join = array_diff($join, ['']);
-		$join = implode(',', $join);
-	}
-	if (is_array($groupby)) {
-		$groupby = implode(',', $groupby);
-	}
-	if ($join) {
-		$groupby = $groupby ? "$groupby, $join" : $join;
-	}
-	if (!$groupby) {
-		return '';
-	}
-
-	$groupby = spip_pg_frommysql($groupby);
-	// Ne pas mettre dans le Group-By des valeurs numeriques
-	// issue de prepare_recherche
-	$groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i', '', (string) $groupby);
-	$groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i', '', $groupby);
-	$groupby = preg_replace('/\s+AS\s+\w+\s*/i', '', $groupby);
-
-	return "\nGROUP BY $groupby";
+    $join = strpos((string) $from, ',');
+    // ismplifier avant de decouper
+    if (is_string($select)) { // fct SQL sur colonne et constante apostrophee ==> la colonne
+    $select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $select);
+    }
+
+    if ($join || $groupby) {
+        $join = is_array($select) ? $select : explode(', ', (string) $select);
+    }
+    if ($join) {
+        // enlever les 0 as points, '', ...
+        foreach ($join as $k => $v) {
+            $v = str_replace('DISTINCT ', '', (string) $v);
+            // fct SQL sur colonne et constante apostrophee ==> la colonne
+            $v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $v);
+            $v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/', '\\1', $v);
+            // resultat d'agregat ne sont pas a mettre dans le groupby
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i', '', $v);
+            // idem sans AS (fetch numerique)
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i', '', $v);
+            // des AS simples : on garde le cote droit du AS
+            $v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i', '\\1', $v);
+            // ne reste plus que les vrais colonnes, ou des constantes a virer
+            if (preg_match(',^[\'"],', $v) || is_numeric($v)) {
+                unset($join[$k]);
+            } else {
+                $join[$k] = trim($v);
+            }
+        }
+        $join = array_diff($join, ['']);
+        $join = implode(',', $join);
+    }
+    if (is_array($groupby)) {
+        $groupby = implode(',', $groupby);
+    }
+    if ($join) {
+        $groupby = $groupby ? "$groupby, $join" : $join;
+    }
+    if (!$groupby) {
+        return '';
+    }
+
+    $groupby = spip_pg_frommysql($groupby);
+    // Ne pas mettre dans le Group-By des valeurs numeriques
+    // issue de prepare_recherche
+    $groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i', '', (string) $groupby);
+    $groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i', '', $groupby);
+    $groupby = preg_replace('/\s+AS\s+\w+\s*/i', '', $groupby);
+
+    return "\nGROUP BY $groupby";
 }
 
 // Conversion des operateurs MySQL en PG
@@ -651,492 +651,492 @@ 
 // A ameliorer.
 
 function spip_pg_frommysql($arg) {
-	if (is_array($arg)) {
-		$arg = implode(', ', $arg);
-	}
-
-	$res = spip_pg_fromfield($arg);
-
-	$res = preg_replace('/\brand[(][)]/i', 'random()', (string) $res);
-
-	$res = preg_replace(
-		'/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
-		'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
-		$res
-	);
-	$res = preg_replace(
-		'/\b0[+]([a-zA-Z0-9_.]+)\s*/',
-		'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-		$res
-	);
-	$res = preg_replace(
-		'/\bconv[(]([^,]*)[^)]*[)]/i',
-		'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/UNIX_TIMESTAMP\s*[(]\s*[)]/',
-		' EXTRACT(epoch FROM NOW())',
-		$res
-	);
-
-	// la fonction md5(integer) n'est pas connu en pg
-	// il faut donc forcer les types en text (cas de md5(id_article))
-	$res = preg_replace(
-		'/md5\s*[(]([^)]*)[)]/i',
-		'MD5(CAST(\1 AS text))',
-		$res
-	);
-
-	$res = preg_replace(
-		'/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
-		' EXTRACT(epoch FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(day FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(month FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-		' EXTRACT(year FROM \1)',
-		$res
-	);
-
-	$res = preg_replace(
-		'/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
-		' EXTRACT(day FROM \1 - \'0001-01-01\')',
-		$res
-	);
-
-	$res = preg_replace('/(EXTRACT[(][^ ]* FROM *)"([^"]*)"/', '\1\'\2\'', $res);
-
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
-
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
-
-	$res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
-	$res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
-	$res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
-
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
-
-	$res = preg_replace('/(timestamp .\d+)-00-/', '\1-01-', $res);
-	$res = preg_replace('/(timestamp .\d+-\d+)-00/', '\1-01', $res);
+    if (is_array($arg)) {
+        $arg = implode(', ', $arg);
+    }
+
+    $res = spip_pg_fromfield($arg);
+
+    $res = preg_replace('/\brand[(][)]/i', 'random()', (string) $res);
+
+    $res = preg_replace(
+        '/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
+        'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
+        $res
+    );
+    $res = preg_replace(
+        '/\b0[+]([a-zA-Z0-9_.]+)\s*/',
+        'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+        $res
+    );
+    $res = preg_replace(
+        '/\bconv[(]([^,]*)[^)]*[)]/i',
+        'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/UNIX_TIMESTAMP\s*[(]\s*[)]/',
+        ' EXTRACT(epoch FROM NOW())',
+        $res
+    );
+
+    // la fonction md5(integer) n'est pas connu en pg
+    // il faut donc forcer les types en text (cas de md5(id_article))
+    $res = preg_replace(
+        '/md5\s*[(]([^)]*)[)]/i',
+        'MD5(CAST(\1 AS text))',
+        $res
+    );
+
+    $res = preg_replace(
+        '/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
+        ' EXTRACT(epoch FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(day FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(month FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+        ' EXTRACT(year FROM \1)',
+        $res
+    );
+
+    $res = preg_replace(
+        '/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
+        ' EXTRACT(day FROM \1 - \'0001-01-01\')',
+        $res
+    );
+
+    $res = preg_replace('/(EXTRACT[(][^ ]* FROM *)"([^"]*)"/', '\1\'\2\'', $res);
+
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
+
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
+
+    $res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
+    $res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
+    $res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+
+    $res = preg_replace('/(timestamp .\d+)-00-/', '\1-01-', $res);
+    $res = preg_replace('/(timestamp .\d+-\d+)-00/', '\1-01', $res);
 # correct en theorie mais produit des debordements arithmetiques
 #	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)(timestamp *'[^']*' *[+-] *timestamp *'[^']*') *[)]/", '\2', $res);
-	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
-	$res = preg_replace('/\sLIKE\s+/', ' ILIKE ', $res);
+    $res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
+    $res = preg_replace('/\sLIKE\s+/', ' ILIKE ', $res);
 
-	return str_replace('REGEXP', '~', $res);
+    return str_replace('REGEXP', '~', $res);
 }
 
 function spip_pg_fromfield($arg) {
-	while (preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', (string) $arg, $m)) {
-		preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
-		$res = '';
-		$n = 0;
-		$index = $m[2];
-		foreach ($r[1] as $v) {
-			$n++;
-			$res .= "\nwhen $index=$v then $n";
-		}
-		$arg = $m[1] . "case $res else 0 end "
-			. substr((string) $arg, strlen($m[0]));
-	}
-
-	return $arg;
+    while (preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', (string) $arg, $m)) {
+        preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
+        $res = '';
+        $n = 0;
+        $index = $m[2];
+        foreach ($r[1] as $v) {
+            $n++;
+            $res .= "\nwhen $index=$v then $n";
+        }
+        $arg = $m[1] . "case $res else 0 end "
+            . substr((string) $arg, strlen($m[0]));
+    }
+
+    return $arg;
 }
 
 function calculer_pg_where($v) {
-	if (!is_array($v)) {
-		return spip_pg_frommysql($v);
-	}
-
-	$op = str_replace('REGEXP', '~', (string) array_shift($v));
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = calculer_pg_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = calculer_pg_where(array_shift($v));
-			if ($n == 2) {
-				return "($arg $op $arg2)";
-			} else {
-				return "($arg $op ($arg2) : $v[0])";
-			}
-		}
-	}
+    if (!is_array($v)) {
+        return spip_pg_frommysql($v);
+    }
+
+    $op = str_replace('REGEXP', '~', (string) array_shift($v));
+    if (!($n = count($v))) {
+        return $op;
+    } else {
+        $arg = calculer_pg_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = calculer_pg_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 
 function calculer_pg_expression($expression, $v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
+    if (empty($v)) {
+        return '';
+    }
 
-	$exp = "\n$expression ";
+    $exp = "\n$expression ";
 
-	if (!is_array($v)) {
-		$v = [$v];
-	}
+    if (!is_array($v)) {
+        $v = [$v];
+    }
 
-	if (strtoupper((string) $join) === 'AND') {
-		return $exp . implode("\n\t$join ", array_map('calculer_pg_where', $v));
-	} else {
-		return $exp . implode($join, $v);
-	}
+    if (strtoupper((string) $join) === 'AND') {
+        return $exp . implode("\n\t$join ", array_map('calculer_pg_where', $v));
+    } else {
+        return $exp . implode($join, $v);
+    }
 }
 
 function spip_pg_select_as($args) {
-	$argsas = '';
-	foreach ($args as $k => $v) {
-		if (str_ends_with((string) $k, '@')) {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$argsas .= '  ' . $v;
-		} else {
-			$as = '';
-			//  spip_log("$k : $v", _LOG_DEBUG);
-			if (!is_numeric($k)) {
-				if (preg_match('/\.(.*)$/', (string) $k, $r)) {
-					$v = $k;
-				} elseif ($v != $k) {
-					$p = strpos((string) $v, ' ');
-					if ($p) {
-						$v = substr((string) $v, 0, $p) . " AS $k" . substr((string) $v, $p);
-					} else {
-						$as = " AS $k";
-					}
-				}
-			}
-			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
-			// if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
-			$argsas .= ', ' . $v . $as;
-		}
-	}
-
-	return substr($argsas, 2);
+    $argsas = '';
+    foreach ($args as $k => $v) {
+        if (str_ends_with((string) $k, '@')) {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $argsas .= '  ' . $v;
+        } else {
+            $as = '';
+            //  spip_log("$k : $v", _LOG_DEBUG);
+            if (!is_numeric($k)) {
+                if (preg_match('/\.(.*)$/', (string) $k, $r)) {
+                    $v = $k;
+                } elseif ($v != $k) {
+                    $p = strpos((string) $v, ' ');
+                    if ($p) {
+                        $v = substr((string) $v, 0, $p) . " AS $k" . substr((string) $v, $p);
+                    } else {
+                        $as = " AS $k";
+                    }
+                }
+            }
+            // spip_log("subs $k : $v avec $as", _LOG_DEBUG);
+            // if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
+            $argsas .= ', ' . $v . $as;
+        }
+    }
+
+    return substr($argsas, 2);
 }
 
 function spip_pg_fetch($res, $t = '', $serveur = '', $requeter = true) {
 
-	if ($res) {
-		$res = pg_fetch_array($res, null, PGSQL_ASSOC);
-	}
+    if ($res) {
+        $res = pg_fetch_array($res, null, PGSQL_ASSOC);
+    }
 
-	return $res;
+    return $res;
 }
 
 function spip_pg_seek($r, $row_number, $serveur = '', $requeter = true) {
-	if ($r) {
-		return pg_result_seek($r, $row_number);
-	}
+    if ($r) {
+        return pg_result_seek($r, $row_number);
+    }
 }
 
 
 function spip_pg_countsel(
-	$from = [],
-	$where = [],
-	$groupby = [],
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = [],
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
-	$r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	if (!is_resource($r)) {
-		return 0;
-	}
-	[$c] = pg_fetch_array($r, null, PGSQL_NUM);
-
-	return $c;
+    $c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
+    $r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    if (!is_resource($r)) {
+        return 0;
+    }
+    [$c] = pg_fetch_array($r, null, PGSQL_NUM);
+
+    return $c;
 }
 
 function spip_pg_count($res, $serveur = '', $requeter = true) {
-	return $res ? pg_num_rows($res) : 0;
+    return $res ? pg_num_rows($res) : 0;
 }
 
 function spip_pg_free($res, $serveur = '', $requeter = true) {
-	// rien a faire en postgres
+    // rien a faire en postgres
 }
 
 function spip_pg_delete($table, $where = '', $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
 
-	$query = calculer_pg_expression('DELETE FROM', $table, ',')
-		. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('DELETE FROM', $table, ',')
+        . calculer_pg_expression('WHERE', $where, 'AND');
 
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
 
-	$res = spip_pg_trace_query($query, $serveur);
-	if ($res) {
-		return pg_affected_rows($res);
-	} else {
-		return false;
-	}
+    $res = spip_pg_trace_query($query, $serveur);
+    if ($res) {
+        return pg_affected_rows($res);
+    } else {
+        return false;
+    }
 }
 
 function spip_pg_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	$seq = spip_pg_sequence($table, true);
-	// si pas de cle primaire dans l'insertion, renvoyer curval
-	if (!preg_match(",\b$seq\b,", (string) $champs)) {
-		$seq = spip_pg_sequence($table);
-		$seq = prefixer_table_spip($seq, $prefixe);
-		$seq = "currval('$seq')";
-	}
-
-	$table = prefixer_table_spip($table, $prefixe);
-	$ret = $seq ? " RETURNING $seq" : ('');
-	$ins = (strlen((string) $champs) < 3)
-		? ' DEFAULT VALUES'
-		: "$champs VALUES $valeurs";
-	$q = "INSERT INTO $table $ins $ret";
-	if (!$requeter) {
-		return $q;
-	}
-	$connexion['last'] = $q;
-	$r = spip_pg_query_simple($link, $q);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    $seq = spip_pg_sequence($table, true);
+    // si pas de cle primaire dans l'insertion, renvoyer curval
+    if (!preg_match(",\b$seq\b,", (string) $champs)) {
+        $seq = spip_pg_sequence($table);
+        $seq = prefixer_table_spip($seq, $prefixe);
+        $seq = "currval('$seq')";
+    }
+
+    $table = prefixer_table_spip($table, $prefixe);
+    $ret = $seq ? " RETURNING $seq" : ('');
+    $ins = (strlen((string) $champs) < 3)
+        ? ' DEFAULT VALUES'
+        : "$champs VALUES $valeurs";
+    $q = "INSERT INTO $table $ins $ret";
+    if (!$requeter) {
+        return $q;
+    }
+    $connexion['last'] = $q;
+    $r = spip_pg_query_simple($link, $q);
 #	spip_log($q,'pg.'._LOG_DEBUG);
-	if ($r) {
-		if (!$ret) {
-			return 0;
-		}
-		if ($r2 = pg_fetch_array($r, null, PGSQL_NUM)) {
-			return $r2[0];
-		}
-	}
-
-	return false;
+    if ($r) {
+        if (!$ret) {
+            return 0;
+        }
+        if ($r2 = pg_fetch_array($r, null, PGSQL_NUM)) {
+            return $r2[0];
+        }
+    }
+
+    return false;
 }
 
 function spip_pg_insertq($table, $couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	return spip_pg_insert(
-		$table,
-		'(' . implode(',', array_keys($couples)) . ')',
-		'(' . implode(',', $couples) . ')',
-		$desc,
-		$serveur,
-		$requeter
-	);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = spip_pg_cite($val, $fields[$champ]);
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+    return spip_pg_insert(
+        $table,
+        '(' . implode(',', array_keys($couples)) . ')',
+        '(' . implode(',', $couples) . ')',
+        $desc,
+        $serveur,
+        $requeter
+    );
 }
 
 
 function spip_pg_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'] ?? [];
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	// une premiere fois pour ajouter maj dans les cles
-	$c = $tab_couples[0] ?? [];
-	$les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
-
-	$cles = '(' . implode(',', array_keys($les_cles)) . ')';
-	$valeurs = [];
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
-		}
-		// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-		$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-		$valeurs[] = '(' . implode(',', $couples) . ')';
-	}
-	$valeurs = implode(', ', $valeurs);
-
-	return spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'] ?? [];
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    // une premiere fois pour ajouter maj dans les cles
+    $c = $tab_couples[0] ?? [];
+    $les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
+
+    $cles = '(' . implode(',', array_keys($les_cles)) . ')';
+    $valeurs = [];
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = spip_pg_cite($val, $fields[$champ]);
+        }
+        // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+        $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+        $valeurs[] = '(' . implode(',', $couples) . ')';
+    }
+    $valeurs = implode(', ', $valeurs);
+
+    return spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
 function spip_pg_update($table, $couples, $where = '', $desc = '', $serveur = '', $requeter = true) {
 
-	if (!$couples) {
-		return;
-	}
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
+    if (!$couples) {
+        return;
+    }
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
 
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-	$set = [];
-	foreach ($couples as $champ => $val) {
-		$set[] = $champ . '=' . $val;
-	}
+    $set = [];
+    foreach ($couples as $champ => $val) {
+        $set[] = $champ . '=' . $val;
+    }
 
-	$query = calculer_pg_expression('UPDATE', $table, ',')
-		. calculer_pg_expression('SET', $set, ',')
-		. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('UPDATE', $table, ',')
+        . calculer_pg_expression('SET', $set, ',')
+        . calculer_pg_expression('WHERE', $where, 'AND');
 
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
 
-	return spip_pg_trace_query($query, $serveur);
+    return spip_pg_trace_query($query, $serveur);
 }
 
 // idem, mais les valeurs sont des constantes a mettre entre apostrophes
 // sauf les expressions de date lorsqu'il s'agit de fonctions SQL (NOW etc)
 function spip_pg_updateq($table, $couples, $where = '', $desc = [], $serveur = '', $requeter = true) {
-	if (!$couples) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	$fields = $desc['field'];
-	foreach ($couples as $k => $val) {
-		$couples[$k] = spip_pg_cite($val, $fields[$k]);
-	}
-
-	return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
+    if (!$couples) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    $fields = $desc['field'];
+    foreach ($couples as $k => $val) {
+        $couples[$k] = spip_pg_cite($val, $fields[$k]);
+    }
+
+    return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
 }
 
 
 function spip_pg_replace($table, $values, $desc, $serveur = '', $requeter = true) {
-	if (!$values) {
-		spip_log("replace vide $table", 'pg.' . _LOG_AVERTISSEMENT);
-
-		return 0;
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$prim = $desc['key']['PRIMARY KEY'];
-	$ids = preg_split('/,\s*/', (string) $prim);
-	$noprims = $prims = [];
-	foreach ($values as $k => $v) {
-		$values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
-
-		if (!in_array($k, $ids)) {
-			$noprims[$k] = "$k=$v";
-		} else {
-			$prims[$k] = "$k=$v";
-		}
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
-
-	$where = implode(' AND ', $prims);
-	if (!$where) {
-		return spip_pg_insert(
-			$table,
-			'(' . implode(',', array_keys($values)) . ')',
-			'(' . implode(',', $values) . ')',
-			$desc,
-			$serveur
-		);
-	}
-	$couples = implode(',', $noprims);
-
-	$seq = spip_pg_sequence($table);
-	$table = prefixer_table_spip($table, $prefixe);
-	$seq = prefixer_table_spip($seq, $prefixe);
-
-	$connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
-	if ($couples) {
-		$couples = spip_pg_query_simple($link, $q);
+    if (!$values) {
+        spip_log("replace vide $table", 'pg.' . _LOG_AVERTISSEMENT);
+
+        return 0;
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $prim = $desc['key']['PRIMARY KEY'];
+    $ids = preg_split('/,\s*/', (string) $prim);
+    $noprims = $prims = [];
+    foreach ($values as $k => $v) {
+        $values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
+
+        if (!in_array($k, $ids)) {
+            $noprims[$k] = "$k=$v";
+        } else {
+            $prims[$k] = "$k=$v";
+        }
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
+
+    $where = implode(' AND ', $prims);
+    if (!$where) {
+        return spip_pg_insert(
+            $table,
+            '(' . implode(',', array_keys($values)) . ')',
+            '(' . implode(',', $values) . ')',
+            $desc,
+            $serveur
+        );
+    }
+    $couples = implode(',', $noprims);
+
+    $seq = spip_pg_sequence($table);
+    $table = prefixer_table_spip($table, $prefixe);
+    $seq = prefixer_table_spip($seq, $prefixe);
+
+    $connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
+    if ($couples) {
+        $couples = spip_pg_query_simple($link, $q);
 #	  spip_log($q,'pg.'._LOG_DEBUG);
-		if (!$couples) {
-			return false;
-		}
-		$couples = pg_affected_rows($couples);
-	}
-	if (!$couples) {
-		$ret = $seq ? " RETURNING nextval('$seq') < $prim" :
-			('');
-		$connexion['last'] = $q = "INSERT INTO $table (" . implode(',', array_keys($values)) . ') VALUES (' . implode(
-			',',
-			$values
-		) . ")$ret";
-		$couples = spip_pg_query_simple($link, $q);
-		if (!$couples) {
-			return false;
-		} elseif ($ret) {
-			$r = pg_fetch_array($couples, null, PGSQL_NUM);
-			if ($r[0]) {
-				$connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
-				// Le code de SPIP met parfois la sequence a 0 (dans l'import)
-				// MySQL n'en dit rien, on fait pareil pour PG
-				$r = @pg_query($link, $q);
-			}
-		}
-	}
-
-	return $couples;
+        if (!$couples) {
+            return false;
+        }
+        $couples = pg_affected_rows($couples);
+    }
+    if (!$couples) {
+        $ret = $seq ? " RETURNING nextval('$seq') < $prim" :
+            ('');
+        $connexion['last'] = $q = "INSERT INTO $table (" . implode(',', array_keys($values)) . ') VALUES (' . implode(
+            ',',
+            $values
+        ) . ")$ret";
+        $couples = spip_pg_query_simple($link, $q);
+        if (!$couples) {
+            return false;
+        } elseif ($ret) {
+            $r = pg_fetch_array($couples, null, PGSQL_NUM);
+            if ($r[0]) {
+                $connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
+                // Le code de SPIP met parfois la sequence a 0 (dans l'import)
+                // MySQL n'en dit rien, on fait pareil pour PG
+                $r = @pg_query($link, $q);
+            }
+        }
+    }
+
+    return $couples;
 }
 
 
 function spip_pg_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
-	$retour = null;
-	// boucler pour traiter chaque requete independemment
-	foreach ($tab_couples as $couples) {
-		$retour = spip_pg_replace($table, $couples, $desc, $serveur, $requeter);
-	}
-
-	// renvoie le dernier id
-	return $retour;
+    $retour = null;
+    // boucler pour traiter chaque requete independemment
+    foreach ($tab_couples as $couples) {
+        $retour = spip_pg_replace($table, $couples, $desc, $serveur, $requeter);
+    }
+
+    // renvoie le dernier id
+    return $retour;
 }
 
 
@@ -1145,144 +1145,144 @@ 
 
 function spip_pg_sequence($table, $raw = false) {
 
-	include_spip('base/serial');
-	if (!isset($GLOBALS['tables_principales'][$table])) {
-		return false;
-	}
-	$desc = $GLOBALS['tables_principales'][$table];
-	$prim = @$desc['key']['PRIMARY KEY'];
-	if (
-		!preg_match('/^\w+$/', (string) $prim) || !str_contains((string) $desc['field'][$prim], 'int')
-	) {
-		return '';
-	} else {
-		return $raw ? $prim : $table . '_' . $prim . '_seq';
-	}
+    include_spip('base/serial');
+    if (!isset($GLOBALS['tables_principales'][$table])) {
+        return false;
+    }
+    $desc = $GLOBALS['tables_principales'][$table];
+    $prim = @$desc['key']['PRIMARY KEY'];
+    if (
+        !preg_match('/^\w+$/', (string) $prim) || !str_contains((string) $desc['field'][$prim], 'int')
+    ) {
+        return '';
+    } else {
+        return $raw ? $prim : $table . '_' . $prim . '_seq';
+    }
 }
 
 // Explicite les conversions de Mysql d'une valeur $v de type $t
 // Dans le cas d'un champ date, pas d'apostrophe, c'est une syntaxe ad hoc
 
 function spip_pg_cite($v, $t) {
-	if (is_null($v)) {
-		return 'NULL';
-	} // null php se traduit en NULL SQL
-
-	if (sql_test_date($t)) {
-		if ($v && !str_contains('0123456789', (string) $v[0])) {
-			return spip_pg_frommysql($v);
-		} else {
-			if (str_starts_with((string) $v, '0000')) {
-				$v = '0001' . substr((string) $v, 4);
-			}
-			if (strpos((string) $v, '-00-00') === 4) {
-				$v = substr((string) $v, 0, 4) . '-01-01' . substr((string) $v, 10);
-			}
-
-			return "timestamp '$v'";
-		}
-	} elseif (!sql_test_int($t)) {
-		return ("'" . pg_escape_string($v) . "'");
-	} elseif (is_numeric($v) || str_starts_with((string) $v, 'CAST(')) {
-		return $v;
-	} elseif ($v[0] == '0' && $v[1] !== 'x' && ctype_xdigit(substr((string) $v, 1))) {
-		return substr((string) $v, 1);
-	} else {
-		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.' . _LOG_AVERTISSEMENT);
-
-		return (int) $v;
-	}
+    if (is_null($v)) {
+        return 'NULL';
+    } // null php se traduit en NULL SQL
+
+    if (sql_test_date($t)) {
+        if ($v && !str_contains('0123456789', (string) $v[0])) {
+            return spip_pg_frommysql($v);
+        } else {
+            if (str_starts_with((string) $v, '0000')) {
+                $v = '0001' . substr((string) $v, 4);
+            }
+            if (strpos((string) $v, '-00-00') === 4) {
+                $v = substr((string) $v, 0, 4) . '-01-01' . substr((string) $v, 10);
+            }
+
+            return "timestamp '$v'";
+        }
+    } elseif (!sql_test_int($t)) {
+        return ("'" . pg_escape_string($v) . "'");
+    } elseif (is_numeric($v) || str_starts_with((string) $v, 'CAST(')) {
+        return $v;
+    } elseif ($v[0] == '0' && $v[1] !== 'x' && ctype_xdigit(substr((string) $v, 1))) {
+        return substr((string) $v, 1);
+    } else {
+        spip_log("Warning: '$v'  n'est pas de type $t", 'pg.' . _LOG_AVERTISSEMENT);
+
+        return (int) $v;
+    }
 }
 
 function spip_pg_hex($v) {
-	return "CAST(x'" . $v . "' as bigint)";
+    return "CAST(x'" . $v . "' as bigint)";
 }
 
 function spip_pg_quote($v, $type = '') {
-	if (!is_array($v)) {
-		return spip_pg_cite($v, $type);
-	}
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_pg_quote($r, $type);
-	}
-
-	return implode(',', $v);
+    if (!is_array($v)) {
+        return spip_pg_cite($v, $type);
+    }
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_pg_quote($r, $type);
+    }
+
+    return implode(',', $v);
 }
 
 function spip_pg_date_proche($champ, $interval, $unite) {
-	return '('
-	. $champ
-	. (($interval <= 0) ? '>' : '<')
-	. (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. sql_quote(date('Y-m-d H:i:s'))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0 - $interval))
-	. ' '
-	. $unite
-	. '))';
+    return '('
+    . $champ
+    . (($interval <= 0) ? '>' : '<')
+    . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
+    . '('
+    . sql_quote(date('Y-m-d H:i:s'))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0 - $interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 function spip_pg_in($val, $valeurs, $not = '', $serveur = '') {
 //
 // IN (...) souvent limite a 255  elements, d'ou cette fonction assistante
 //
-	// s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
-	if (!$valeurs) {
-		return $not ? '0=0' : '0=1';
-	}
-	if (str_contains((string) $valeurs, "CAST(x'")) {
-		return "($val=" . implode("OR $val=", explode(',', (string) $valeurs)) . ')';
-	}
-	$n = $i = 0;
-	$in_sql = '';
-	while ($n = strpos((string) $valeurs, ',', $n + 1)) {
-		if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-				substr((string) $valeurs, 0, $n) .
-				"))\n" .
-				($not ? "AND\t" : "OR\t");
-			$valeurs = substr((string) $valeurs, $n + 1);
-			$i = $n = 0;
-		}
-	}
-	$in_sql .= "($val $not IN ($valeurs))";
-
-	return "($in_sql)";
+    // s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
+    if (!$valeurs) {
+        return $not ? '0=0' : '0=1';
+    }
+    if (str_contains((string) $valeurs, "CAST(x'")) {
+        return "($val=" . implode("OR $val=", explode(',', (string) $valeurs)) . ')';
+    }
+    $n = $i = 0;
+    $in_sql = '';
+    while ($n = strpos((string) $valeurs, ',', $n + 1)) {
+        if ((++$i) >= 255) {
+            $in_sql .= "($val $not IN (" .
+                substr((string) $valeurs, 0, $n) .
+                "))\n" .
+                ($not ? "AND\t" : "OR\t");
+            $valeurs = substr((string) $valeurs, $n + 1);
+            $i = $n = 0;
+        }
+    }
+    $in_sql .= "($val $not IN ($valeurs))";
+
+    return "($in_sql)";
 }
 
 function spip_pg_error($query = '', $serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0]['link'];
-	$s = $link ? pg_last_error($link) : pg_last_error();
-	if ($s) {
-		$s = str_replace('ERROR', 'errcode: 1000 ', $s);
-		spip_log("$s - $query", 'pg.' . _LOG_ERREUR);
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0]['link'];
+    $s = $link ? pg_last_error($link) : pg_last_error();
+    if ($s) {
+        $s = str_replace('ERROR', 'errcode: 1000 ', $s);
+        spip_log("$s - $query", 'pg.' . _LOG_ERREUR);
+    }
+
+    return $s;
 }
 
 function spip_pg_errno($serveur = '') {
-	// il faudrait avoir la derniere ressource retournee et utiliser
-	// http://fr2.php.net/manual/fr/function.pg-result-error.php
-	return 0;
+    // il faudrait avoir la derniere ressource retournee et utiliser
+    // http://fr2.php.net/manual/fr/function.pg-result-error.php
+    return 0;
 }
 
 function spip_pg_drop_table($table, $exist = false, $serveur = '', $requeter = true) {
-	$exist = (bool) $exist ? ' IF EXISTS' : '';
-	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter)) {
-		return true;
-	}
+    $exist = (bool) $exist ? ' IF EXISTS' : '';
+    if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 // supprime une vue
 function spip_pg_drop_view($view, $exist = false, $serveur = '', $requeter = true) {
-	$exist = (bool) $exist ? ' IF EXISTS' : '';
+    $exist = (bool) $exist ? ' IF EXISTS' : '';
 
-	return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -1299,40 +1299,40 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_pg_showbase($match, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE ' . _q($match);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = 'SELECT tablename FROM pg_tables WHERE tablename ILIKE ' . _q($match);
 
-	return spip_pg_query_simple($link, $q);
+    return spip_pg_query_simple($link, $q);
 }
 
 function spip_pg_showtable($nom_table, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE ' . _q($nom_table);
-
-	$res = spip_pg_query_simple($link, $q);
-	if (!$res) {
-		return false;
-	}
-
-	// etrangement, $res peut ne rien contenir, mais arriver ici...
-	// il faut en tenir compte dans le return
-	$fields = [];
-	while ($field = pg_fetch_array($res, null, PGSQL_NUM)) {
-		$fields[$field[0]] = $field[2] . ($field[1] ? ' DEFAULT ' . $field[1] : (''));
-	}
-	$connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE ' . _q($nom_table);
-	$res = spip_pg_query_simple($link, $q);
-	$keys = [];
-	while ($index = pg_fetch_array($res, null, PGSQL_NUM)) {
-		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
-			$nom = str_replace($nom_table . '_', '', $r[2]);
-			$keys[($r[1] ? 'PRIMARY KEY' : ('KEY ' . $nom))] = $r[3];
-		}
-	}
-
-	return count($fields) ? ['field' => $fields, 'key' => $keys] : false;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = 'SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE ' . _q($nom_table);
+
+    $res = spip_pg_query_simple($link, $q);
+    if (!$res) {
+        return false;
+    }
+
+    // etrangement, $res peut ne rien contenir, mais arriver ici...
+    // il faut en tenir compte dans le return
+    $fields = [];
+    while ($field = pg_fetch_array($res, null, PGSQL_NUM)) {
+        $fields[$field[0]] = $field[2] . ($field[1] ? ' DEFAULT ' . $field[1] : (''));
+    }
+    $connexion['last'] = $q = 'SELECT indexdef FROM pg_indexes WHERE tablename ILIKE ' . _q($nom_table);
+    $res = spip_pg_query_simple($link, $q);
+    $keys = [];
+    while ($index = pg_fetch_array($res, null, PGSQL_NUM)) {
+        if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
+            $nom = str_replace($nom_table . '_', '', $r[2]);
+            $keys[($r[1] ? 'PRIMARY KEY' : ('KEY ' . $nom))] = $r[3];
+        }
+    }
+
+    return count($fields) ? ['field' => $fields, 'key' => $keys] : false;
 }
 
 // Fonction de creation d'une table SQL nommee $nom
@@ -1343,114 +1343,114 @@ 
 // Le nom des index est prefixe par celui de la table pour eviter les conflits
 function spip_pg_create($nom, $champs, $cles, $autoinc = false, $temporary = false, $serveur = '', $requeter = true) {
 
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
-	$link = $connexion['link'];
-	$nom = prefixer_table_spip($nom, $connexion['prefixe']);
-
-	$query = $prim = $prim_name = $v = $s = $p = '';
-	$keys = [];
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) {
-		return;
-	}
-
-	foreach ($cles as $k => $v) {
-		if (str_starts_with($k, 'KEY ')) {
-			$n = str_replace('`', '', $k);
-			$v = str_replace('`', '"', (string) $v);
-			$i = $nom . preg_replace('/KEY +/', '_', $n);
-			if ($k != $n) {
-				$i = "\"$i\"";
-			}
-			$keys[] = "CREATE INDEX $i ON $nom ($v);";
-		} elseif (str_starts_with($k, 'UNIQUE ')) {
-			$k = preg_replace('/^UNIQUE +/', '', $k);
-			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`', '"', $k) . " UNIQUE ($v)";
-		} else {
-			$prim .= "$s\n\t\t" . str_replace('`', '"', $k) . " ($v)";
-		}
-		if ($k == 'PRIMARY KEY') {
-			$prim_name = $v;
-		}
-		$s = ',';
-	}
-	$s = '';
-
-	$character_set = '';
-	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
-	}
-	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
-	}
-
-	foreach ($champs as $k => $v) {
-		$k = str_replace('`', '"', $k);
-		if (preg_match(',([a-z]*\s*(\(\s*\d*\s*\))?(\s*binary)?),i', (string) $v, $defs) && (preg_match(',(char|text),i', $defs[1]) && !preg_match(',binary,i', $defs[1]))) {
-			$v = $defs[1] . $character_set . ' ' . substr((string) $v, strlen($defs[1]));
-		}
-
-		$query .= "$s\n\t\t$k "
-			. (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', (string) $v))
-				? ' bigserial'
-				: mysql2pg_type($v)
-			);
-		$s = ',';
-	}
-	$temporary = $temporary ? 'TEMPORARY' : '';
-
-	// En l'absence de "if not exists" en PG, on neutralise les erreurs
-
-	$q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ')' .
-		($character_set ? " DEFAULT $character_set" : '')
-		. "\n";
-
-	if (!$requeter) {
-		return $q;
-	}
-	$connexion['last'] = $q;
-	$r = @pg_query($link, $q);
-
-	if (!$r) {
-		spip_log("Impossible de creer cette table: $q", 'pg.' . _LOG_ERREUR);
-	} else {
-		foreach ($keys as $index) {
-			pg_query($link, $index);
-		}
-	}
-
-	return $r;
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower((string) $serveur) : 0];
+    $link = $connexion['link'];
+    $nom = prefixer_table_spip($nom, $connexion['prefixe']);
+
+    $query = $prim = $prim_name = $v = $s = $p = '';
+    $keys = [];
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) {
+        return;
+    }
+
+    foreach ($cles as $k => $v) {
+        if (str_starts_with($k, 'KEY ')) {
+            $n = str_replace('`', '', $k);
+            $v = str_replace('`', '"', (string) $v);
+            $i = $nom . preg_replace('/KEY +/', '_', $n);
+            if ($k != $n) {
+                $i = "\"$i\"";
+            }
+            $keys[] = "CREATE INDEX $i ON $nom ($v);";
+        } elseif (str_starts_with($k, 'UNIQUE ')) {
+            $k = preg_replace('/^UNIQUE +/', '', $k);
+            $prim .= "$s\n\t\tCONSTRAINT " . str_replace('`', '"', $k) . " UNIQUE ($v)";
+        } else {
+            $prim .= "$s\n\t\t" . str_replace('`', '"', $k) . " ($v)";
+        }
+        if ($k == 'PRIMARY KEY') {
+            $prim_name = $v;
+        }
+        $s = ',';
+    }
+    $s = '';
+
+    $character_set = '';
+    if (@$GLOBALS['meta']['charset_sql_base']) {
+        $character_set .= ' CHARACTER SET ' . $GLOBALS['meta']['charset_sql_base'];
+    }
+    if (@$GLOBALS['meta']['charset_collation_sql_base']) {
+        $character_set .= ' COLLATE ' . $GLOBALS['meta']['charset_collation_sql_base'];
+    }
+
+    foreach ($champs as $k => $v) {
+        $k = str_replace('`', '"', $k);
+        if (preg_match(',([a-z]*\s*(\(\s*\d*\s*\))?(\s*binary)?),i', (string) $v, $defs) && (preg_match(',(char|text),i', $defs[1]) && !preg_match(',binary,i', $defs[1]))) {
+            $v = $defs[1] . $character_set . ' ' . substr((string) $v, strlen($defs[1]));
+        }
+
+        $query .= "$s\n\t\t$k "
+            . (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', (string) $v))
+                ? ' bigserial'
+                : mysql2pg_type($v)
+            );
+        $s = ',';
+    }
+    $temporary = $temporary ? 'TEMPORARY' : '';
+
+    // En l'absence de "if not exists" en PG, on neutralise les erreurs
+
+    $q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ')' .
+        ($character_set ? " DEFAULT $character_set" : '')
+        . "\n";
+
+    if (!$requeter) {
+        return $q;
+    }
+    $connexion['last'] = $q;
+    $r = @pg_query($link, $q);
+
+    if (!$r) {
+        spip_log("Impossible de creer cette table: $q", 'pg.' . _LOG_ERREUR);
+    } else {
+        foreach ($keys as $index) {
+            pg_query($link, $index);
+        }
+    }
+
+    return $r;
 }
 
 
 function spip_pg_create_base($nom, $serveur = '', $requeter = true) {
-	return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
+    return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
 }
 
 // Fonction de creation d'une vue SQL nommee $nom
 function spip_pg_create_view($nom, $query_select, $serveur = '', $requeter = true) {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		if ($requeter) {
-			spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.' . _LOG_ERREUR);
-		}
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        if ($requeter) {
+            spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.' . _LOG_ERREUR);
+        }
 
-		return false;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_pg_query($query, $serveur, $requeter);
+    return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 function spip_pg_set_connect_charset($charset, $serveur = '', $requeter = true) {
-	spip_log('changement de charset sql a ecrire en PG', 'pg.' . _LOG_ERREUR);
+    spip_log('changement de charset sql a ecrire en PG', 'pg.' . _LOG_ERREUR);
 }
 
 
@@ -1463,48 +1463,48 @@ 
  * @return bool|string true / false / requete
  **/
 function spip_pg_optimize($table, $serveur = '', $requeter = true) {
-	return spip_pg_query('VACUUM ' . $table, $serveur, $requeter);
+    return spip_pg_query('VACUUM ' . $table, $serveur, $requeter);
 }
 
 // Selectionner la sous-chaine dans $objet
 // correspondant a $lang. Cf balise Multi de Spip
 
 function spip_pg_multi($objet, $lang) {
-	return 'regexp_replace('
-		. $objet
-		. ",'<multi>.*[[]"
-		. $lang
-		. "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
+    return 'regexp_replace('
+        . $objet
+        . ",'<multi>.*[[]"
+        . $lang
+        . "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
 }
 
 // Palanquee d'idiosyncrasies MySQL dans les creations de table
 // A completer par les autres, mais essayer de reduire en amont.
 
 function mysql2pg_type($v) {
-	$remplace = [
-		'/auto_increment/i' => '', // non reconnu
-		'/bigint/i' => 'bigint',
-		'/mediumint/i' => 'mediumint',
-		'/smallint/i' => 'smallint',
-		'/tinyint/i' => 'int',
-		'/int\s*[(]\s*\d+\s*[)]/i' => 'int',
-		'/longtext/i' => 'text',
-		'/mediumtext/i' => 'text',
-		'/tinytext/i' => 'text',
-		'/longblob/i' => 'text',
-		'/0000-00-00/' => '0001-01-01',
-		'/datetime/i' => 'timestamp',
-		'/unsigned/i' => '',
-		'/double/i' => 'double precision',
-		'/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
-		'/ENUM *[(][^)]*[)]/i' => 'varchar(255)',
-		'/(timestamp .* )ON .*$/is' => '\\1',
-	];
-
-	return preg_replace(array_keys($remplace), array_values($remplace), (string) $v);
+    $remplace = [
+        '/auto_increment/i' => '', // non reconnu
+        '/bigint/i' => 'bigint',
+        '/mediumint/i' => 'mediumint',
+        '/smallint/i' => 'smallint',
+        '/tinyint/i' => 'int',
+        '/int\s*[(]\s*\d+\s*[)]/i' => 'int',
+        '/longtext/i' => 'text',
+        '/mediumtext/i' => 'text',
+        '/tinytext/i' => 'text',
+        '/longblob/i' => 'text',
+        '/0000-00-00/' => '0001-01-01',
+        '/datetime/i' => 'timestamp',
+        '/unsigned/i' => '',
+        '/double/i' => 'double precision',
+        '/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
+        '/ENUM *[(][^)]*[)]/i' => 'varchar(255)',
+        '/(timestamp .* )ON .*$/is' => '\\1',
+    ];
+
+    return preg_replace(array_keys($remplace), array_values($remplace), (string) $v);
 }
 
 // Renvoie false si on n'a pas les fonctions pg (pour l'install)
 function spip_versions_pg() {
-	return function_exists('pg_connect');
+    return function_exists('pg_connect');
 }

ecrire/req/sqlite_generique.php

Spacing +83 added lines, -83 removed lines

@@ -65,35 +65,35 @@ 
 	// determiner le dossier de la base : $addr ou _DIR_DB
 	$f = _DIR_DB;
 	if ($addr && str_contains($addr, '/')) {
-		$f = rtrim($addr, '/') . '/';
+		$f = rtrim($addr, '/').'/';
 	}
 
 	// un nom de base demande et impossible d'obtenir la base, on s'en va :
 	// il faut que la base existe ou que le repertoire parent soit writable
-	if ($db && !is_file($f .= $db . '.sqlite') && !is_writable(dirname($f))) {
-		spip_log("base $f non trouvee ou droits en ecriture manquants", 'sqlite.' . _LOG_HS);
+	if ($db && !is_file($f .= $db.'.sqlite') && !is_writable(dirname($f))) {
+		spip_log("base $f non trouvee ou droits en ecriture manquants", 'sqlite.'._LOG_HS);
 
 		return false;
 	}
 
 	// charger les modules sqlite au besoin
 	if (!_sqlite_charger_version($sqlite_version)) {
-		spip_log("Impossible de trouver/charger le module SQLite ($sqlite_version)!", 'sqlite.' . _LOG_HS);
+		spip_log("Impossible de trouver/charger le module SQLite ($sqlite_version)!", 'sqlite.'._LOG_HS);
 
 		return false;
 	}
 
 	// chargement des constantes
 	// il ne faut pas definir les constantes avant d'avoir charge les modules sqlite
-	$define = 'spip_sqlite' . $sqlite_version . '_constantes';
+	$define = 'spip_sqlite'.$sqlite_version.'_constantes';
 	$define();
 
 	if (!$db) {
 		// si pas de db ->
 		// base temporaire tant qu'on ne connait pas son vrai nom
 		// pour tester la connexion
-		$db = '_sqlite' . $sqlite_version . '_install';
-		$tmp = _DIR_DB . $db . '.sqlite';
+		$db = '_sqlite'.$sqlite_version.'_install';
+		$tmp = _DIR_DB.$db.'.sqlite';
 		$link = spip_sqlite_open($tmp);
 	} else {
 		// Ouvrir (eventuellement creer la base)
@@ -101,7 +101,7 @@ 
 	}
 
 	if (!$link) {
-		spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.' . _LOG_HS);
+		spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.'._LOG_HS);
 
 		return false;
 	}
@@ -198,7 +198,7 @@ 
 		$table = $regs[3];
 		$suite = $regs[4];
 	} else {
-		spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.' . _LOG_ERREUR);
+		spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.'._LOG_ERREUR);
 
 		return false;
 	}
@@ -215,7 +215,7 @@ 
 	$i = 0;
 	$ouverte = false;
 	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i].','.$do : $do;
 		$o = (str_contains($do, '('));
 		$f = (str_contains($do, ')'));
 		if ($o && !$f) {
@@ -241,7 +241,7 @@ 
 		) {
 			spip_log(
 				"SQLite : Probleme de ALTER TABLE, utilisation non reconnue dans : $do \n(requete d'origine : $query)",
-				'sqlite.' . _LOG_ERREUR
+				'sqlite.'._LOG_ERREUR
 			);
 
 			return false;
@@ -337,10 +337,10 @@ 
 
 				// pas geres en sqlite2
 			case 'RENAME':
-				$do = 'RENAME TO' . substr($do, 6);
+				$do = 'RENAME TO'.substr($do, 6);
 			case 'RENAME TO':
 				if (!Sqlite::executer_requete("$debut $do", $serveur)) {
-					spip_log("SQLite : Erreur ALTER TABLE / RENAME : $query", 'sqlite.' . _LOG_ERREUR);
+					spip_log("SQLite : Erreur ALTER TABLE / RENAME : $query", 'sqlite.'._LOG_ERREUR);
 
 					return false;
 				}
@@ -383,7 +383,7 @@ 
 						$colonnes = substr($colonne_origine, 1, -1);
 						if (str_contains(',', $colonnes)) {
 							spip_log('SQLite : Erreur, impossible de creer un index sur plusieurs colonnes'
-								. " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.' . _LOG_ERREUR);
+								. " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.'._LOG_ERREUR);
 							break;
 						} else {
 							$nom_index = $colonnes;
@@ -398,12 +398,12 @@ 
 
 				// pas geres en sqlite2
 			case 'ADD COLUMN':
-				$do = 'ADD' . substr($do, 10);
+				$do = 'ADD'.substr($do, 10);
 			case 'ADD':
 			default:
 				if (!preg_match(',primary\s+key,i', $do)) {
 					if (!Sqlite::executer_requete("$debut $do", $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.'._LOG_ERREUR);
 
 						return false;
 					}
@@ -423,7 +423,7 @@ 
 					}
 					$opts['field'] = [$colonne_ajoutee => $def];
 					if (!_sqlite_modifier_table($table, [$colonne_ajoutee], $opts, $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.'._LOG_ERREUR);
 
 						return false;
 					}
@@ -431,10 +431,10 @@ 
 				break;
 		}
 		// tout est bon, ouf !
-		spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.' . _LOG_INFO);
+		spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.'._LOG_INFO);
 	}
 
-	spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.' . _LOG_INFO);
+	spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.'._LOG_INFO);
 
 	return true;
 }
@@ -502,9 +502,9 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_sqlite_create_base($nom, $serveur = '', $option = true) {
-	$f = $nom . '.sqlite';
+	$f = $nom.'.sqlite';
 	if (!str_contains($nom, '/')) {
-		$f = _DIR_DB . $f;
+		$f = _DIR_DB.$f;
 	}
 
 	$ok = new \PDO("sqlite:$f");
@@ -544,13 +544,13 @@ 
 	if (sql_showtable($nom, false, $serveur)) {
 		spip_log(
 			"Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",
-			'sqlite.' . _LOG_ERREUR
+			'sqlite.'._LOG_ERREUR
 		);
 
 		return false;
 	}
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+	$query = "CREATE VIEW $nom AS ".$query_select;
 
 	return spip_sqlite_query($query, $serveur, $requeter);
 }
@@ -576,8 +576,8 @@ 
 function spip_sqlite_create_index($nom, $table, $champs, $unique = '', $serveur = '', $requeter = true) {
 	if (!($nom || $table || $champs)) {
 		spip_log(
-			"Champ manquant pour creer un index sqlite ($nom, $table, (" . implode(',', $champs) . '))',
-			'sqlite.' . _LOG_ERREUR
+			"Champ manquant pour creer un index sqlite ($nom, $table, (".implode(',', $champs).'))',
+			'sqlite.'._LOG_ERREUR
 		);
 
 		return false;
@@ -585,7 +585,7 @@ 
 
 	// SQLite ne differentie pas noms des index en fonction des tables
 	// il faut donc creer des noms uniques d'index pour une base sqlite
-	$nom = $table . '_' . $nom;
+	$nom = $table.'_'.$nom;
 	// enlever d'eventuelles parentheses deja presentes sur champs
 	if (!is_array($champs)) {
 		if ($champs[0] == '(') {
@@ -607,12 +607,12 @@ 
 	} else {
 		/* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
 		$a = spip_sqlite_showtable($table, $serveur);
-		if (isset($a['key']['KEY ' . $nom])) {
+		if (isset($a['key']['KEY '.$nom])) {
 			return true;
 		}
 	}
 
-	$query = 'CREATE ' . ($unique ? 'UNIQUE ' : '') . "INDEX$ifnotexists $nom ON $table (" . implode(',', $champs) . ')';
+	$query = 'CREATE '.($unique ? 'UNIQUE ' : '')."INDEX$ifnotexists $nom ON $table (".implode(',', $champs).')';
 	$res = spip_sqlite_query($query, $serveur, $requeter);
 	if (!$requeter) {
 		return $res;
@@ -680,7 +680,7 @@ 
 	$serveur = '',
 	$requeter = true
 ) {
-	$c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
+	$c = $groupby ? 'DISTINCT '.(is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
 	$r = spip_sqlite_select(
 		"COUNT($c)",
 		$from,
@@ -790,14 +790,14 @@ 
  */
 function spip_sqlite_drop_index($nom, $table, $serveur = '', $requeter = true) {
 	if (!$nom && !$table) {
-		spip_log("Champ manquant pour supprimer un index sqlite ($nom, $table)", 'sqlite.' . _LOG_ERREUR);
+		spip_log("Champ manquant pour supprimer un index sqlite ($nom, $table)", 'sqlite.'._LOG_ERREUR);
 
 		return false;
 	}
 
 	// SQLite ne differentie pas noms des index en fonction des tables
 	// il faut donc creer des noms uniques d'index pour une base sqlite
-	$index = $table . '_' . $nom;
+	$index = $table.'_'.$nom;
 	$exist = ' IF EXISTS';
 
 	$query = "DROP INDEX$exist $index";
@@ -829,7 +829,7 @@ 
 	if ($s) {
 		$trace = debug_backtrace();
 		if ($trace[0]['function'] != 'spip_sqlite_error') {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'sqlite.' . _LOG_ERREUR);
+			spip_log("$s - $query - ".sql_error_backtrace(), 'sqlite.'._LOG_ERREUR);
 		}
 	}
 
@@ -876,14 +876,14 @@ 
 		$t = $link->errorInfo();
 		$s = ltrim((string) $t[0], '0'); // 00000 si pas d'erreur
 		if ($s) {
-			$s .= ' / ' . $t[1];
+			$s .= ' / '.$t[1];
 		} // ajoute l'erreur du moteur SQLite
 	} else {
 		$s = ': aucune ressource sqlite (link)';
 	}
 
 	if ($s) {
-		spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
+		spip_log("Erreur sqlite $s", 'sqlite.'._LOG_ERREUR);
 	}
 
 	return $s ?: 0;
@@ -907,7 +907,7 @@ 
 	}
 
 	$query = Sqlite::traduire_requete($query, $serveur);
-	$query = 'EXPLAIN ' . $query;
+	$query = 'EXPLAIN '.$query;
 	if (!$requeter) {
 		return $query;
 	}
@@ -1076,7 +1076,7 @@ 
  **/
 function spip_sqlite_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
 
-	$query = "INSERT INTO $table " . ($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
+	$query = "INSERT INTO $table ".($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
 	if ($r = spip_sqlite_query($query, $serveur, $requeter)) {
 		if (!$requeter) {
 			return $r;
@@ -1131,8 +1131,8 @@ 
 
 	$cles = $valeurs = '';
 	if (is_countable($couples) ? count($couples) : 0) {
-		$cles = '(' . implode(',', array_keys($couples)) . ')';
-		$valeurs = '(' . implode(',', $couples) . ')';
+		$cles = '('.implode(',', array_keys($couples)).')';
+		$valeurs = '('.implode(',', $couples).')';
 	}
 
 	return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
@@ -1194,11 +1194,11 @@ 
 
 		$champs = $valeurs = '';
 		if ($couples !== []) {
-			$champs = '(' . implode(',', array_keys($couples)) . ')';
-			$valeurs = '(' . implode(',', $couples) . ')';
-			$query = $query_start . "$champs VALUES $valeurs";
+			$champs = '('.implode(',', array_keys($couples)).')';
+			$valeurs = '('.implode(',', $couples).')';
+			$query = $query_start."$champs VALUES $valeurs";
 		} else {
-			$query = $query_start . 'DEFAULT VALUES';
+			$query = $query_start.'DEFAULT VALUES';
 		}
 
 		if ($requeter) {
@@ -1330,7 +1330,7 @@ 
  * @return string       texte de sélection pour la requête
  */
 function spip_sqlite_multi($objet, $lang) {
-	return 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
+	return 'EXTRAIRE_MULTI('.$objet.", '".$lang."') AS multi";
 }
 
 
@@ -1399,7 +1399,7 @@ 
 function spip_sqlite_date_proche($champ, $interval, $unite) {
 	$op = (($interval <= 0) ? '>' : '<');
 
-	return "($champ $op datetime('" . date('Y-m-d H:i:s') . "', '$interval $unite'))";
+	return "($champ $op datetime('".date('Y-m-d H:i:s')."', '$interval $unite'))";
 }
 
 
@@ -1431,7 +1431,7 @@ 
 				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
 			) {
 				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT ''", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+				spip_log("ALTER $q", 'repair'._LOG_INFO_IMPORTANTE);
 			}
 			if (
 				preg_match(',^(INTEGER),i', (string) $d)
@@ -1441,7 +1441,7 @@ 
 				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
 			) {
 				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0'", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+				spip_log("ALTER $q", 'repair'._LOG_INFO_IMPORTANTE);
 			}
 			if (
 				preg_match(',^(datetime),i', (string) $d)
@@ -1451,7 +1451,7 @@ 
 				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
 			) {
 				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0000-00-00 00:00:00'", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+				spip_log("ALTER $q", 'repair'._LOG_INFO_IMPORTANTE);
 			}
 		}
 
@@ -1502,10 +1502,10 @@ 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 	$couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-	return spip_sqlite_query("REPLACE INTO $table (" . implode(',', array_keys($couples)) . ') VALUES (' . implode(
+	return spip_sqlite_query("REPLACE INTO $table (".implode(',', array_keys($couples)).') VALUES ('.implode(
 		',',
 		$couples
-	) . ')', $serveur);
+	).')', $serveur);
 }
 
 
@@ -1592,7 +1592,7 @@ 
 		. _sqlite_calculer_expression('WHERE', $where)
 		. _sqlite_calculer_expression('GROUP BY', $groupby, ',')
 		. _sqlite_calculer_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . _sqlite_calculer_order($orderby)) : '')
+		. ($orderby ? ("\nORDER BY "._sqlite_calculer_order($orderby)) : '')
 		. ($limit ? "\nLIMIT $limit" : '');
 
 	// dans un select, on doit renvoyer la requête en cas d'erreur
@@ -1630,10 +1630,10 @@ 
 	// interdire la creation d'une nouvelle base,
 	// sauf si on est dans l'installation
 	if (
-		!is_file($f = _DIR_DB . $db . '.sqlite')
+		!is_file($f = _DIR_DB.$db.'.sqlite')
 		&& (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)
 	) {
-		spip_log("Il est interdit de creer la base $db", 'sqlite.' . _LOG_HS);
+		spip_log("Il est interdit de creer la base $db", 'sqlite.'._LOG_HS);
 
 		return false;
 	}
@@ -1642,12 +1642,12 @@ 
 	// avec les identifiants connus
 	$index = $serveur ?: 0;
 
-	if ($link = spip_connect_db('', '', '', '', '@selectdb@' . $db, $serveur, '', '')) {
+	if ($link = spip_connect_db('', '', '', '', '@selectdb@'.$db, $serveur, '', '')) {
 		if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
 			return $db;
 		}
 	} else {
-		spip_log("Impossible de selectionner la base $db", 'sqlite.' . _LOG_HS);
+		spip_log("Impossible de selectionner la base $db", 'sqlite.'._LOG_HS);
 	}
 
 	return false;
@@ -1698,7 +1698,7 @@ 
 	$match = "^$match$";
 
 	return spip_sqlite_query(
-		"SELECT name FROM sqlite_master WHERE type='table' AND tbl_name REGEXP " . _q($match),
+		"SELECT name FROM sqlite_master WHERE type='table' AND tbl_name REGEXP "._q($match),
 		$serveur,
 		$requeter
 	);
@@ -1722,7 +1722,7 @@ 
 	$r = spip_sqlite_query(
 		'SELECT name FROM sqlite_master WHERE'
 			. ' type=\'table\''
-			. ' AND name=' . spip_sqlite_quote($table, 'string')
+			. ' AND name='.spip_sqlite_quote($table, 'string')
 			. ' AND name NOT LIKE \'sqlite_%\'',
 		$serveur,
 		$requeter
@@ -1819,7 +1819,7 @@ 
 				// s'il y a une parenthèse fermante dans la clé
 				// ou dans la définition sans qu'il n'y ait une ouverture avant
 				if (str_contains($k, ')') || preg_match('/^[^\(]*\)/', (string) $def)) {
-					$fields[$k_precedent] .= ',' . $k . ' ' . $def;
+					$fields[$k_precedent] .= ','.$k.' '.$def;
 					continue;
 				}
 
@@ -1854,13 +1854,13 @@ 
 				. 'ORDER BY substr(type,2,1), name';
 			$a = spip_sqlite_query($query, $serveur, $requeter);
 			while ($r = spip_sqlite_fetch($a, null, $serveur)) {
-				$key = str_replace($nom_table . '_', '', (string) $r['name']); // enlever le nom de la table ajoute a l'index
+				$key = str_replace($nom_table.'_', '', (string) $r['name']); // enlever le nom de la table ajoute a l'index
 				$keytype = 'KEY';
 				if (str_contains((string) $r['sql'], 'UNIQUE INDEX')) {
 					$keytype = 'UNIQUE KEY';
 				}
 				$colonnes = preg_replace(',.*\((.*)\).*,', '$1', (string) $r['sql']);
-				$keys[$keytype . ' ' . $key] = $colonnes;
+				$keys[$keytype.' '.$key] = $colonnes;
 			}
 		}
 	} // c'est une vue, on liste les champs disponibles simplement
@@ -1907,7 +1907,7 @@ 
 
 	$set = [];
 	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
+		$set[] = $champ."=$val";
 	}
 	if ($set !== []) {
 		return spip_sqlite_query(
@@ -1962,7 +1962,7 @@ 
 
 	$set = [];
 	foreach ($champs as $champ => $val) {
-		$set[$champ] = $champ . '=' . _sqlite_calculer_cite($val, $fields[$champ] ?? '');
+		$set[$champ] = $champ.'='._sqlite_calculer_cite($val, $fields[$champ] ?? '');
 	}
 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
@@ -1970,7 +1970,7 @@ 
 	$maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
 	foreach ($maj as $champ => $val) {
 		if (!isset($set[$champ])) {
-			$set[$champ] = $champ . '=' . $val;
+			$set[$champ] = $champ.'='.$val;
 		}
 	}
 
@@ -1999,7 +1999,7 @@ 
  */
 function _sqlite_init() {
 	if (!defined('_DIR_DB')) {
-		define('_DIR_DB', _DIR_ETC . 'bases/');
+		define('_DIR_DB', _DIR_ETC.'bases/');
 	}
 	if (!defined('_SQLITE_CHMOD')) {
 		define('_SQLITE_CHMOD', _SPIP_CHMOD);
@@ -2105,9 +2105,9 @@ 
 	}
 
 	// echapper les ' en ''
-	spip_log('Pas de methode ->quote pour echapper', 'sqlite.' . _LOG_INFO_IMPORTANTE);
+	spip_log('Pas de methode ->quote pour echapper', 'sqlite.'._LOG_INFO_IMPORTANTE);
 
-	return ("'" . str_replace("'", "''", $v) . "'");
+	return ("'".str_replace("'", "''", $v)."'");
 }
 
 
@@ -2130,12 +2130,12 @@ 
 	$exp = "\n$expression ";
 
 	if (!is_array($v)) {
-		return $exp . $v;
+		return $exp.$v;
 	} else {
 		if (strtoupper($join) === 'AND') {
-			return $exp . implode("\n\t$join ", array_map('_sqlite_calculer_where', $v));
+			return $exp.implode("\n\t$join ", array_map('_sqlite_calculer_where', $v));
 		} else {
-			return $exp . implode($join, $v);
+			return $exp.implode($join, $v);
 		}
 	}
 }
@@ -2169,17 +2169,17 @@ 
 		if (str_ends_with($k, '@')) {
 			// c'est une jointure qui se refere au from precedent
 			// pas de virgule
-			$res .= '  ' . $v;
+			$res .= '  '.$v;
 		} else {
 			if (!is_numeric($k)) {
 				$p = strpos((string) $v, ' ');
 				if ($p) {
-					$v = substr((string) $v, 0, $p) . " AS '$k'" . substr((string) $v, $p);
+					$v = substr((string) $v, 0, $p)." AS '$k'".substr((string) $v, $p);
 				} else {
 					$v .= " AS '$k'";
 				}
 			}
-			$res .= ', ' . $v;
+			$res .= ', '.$v;
 		}
 	}
 
@@ -2315,13 +2315,13 @@ 
 
 	$def_origine = sql_showtable($table_origine, false, $serveur);
 	if (!$def_origine || !isset($def_origine['field'])) {
-		spip_log("Alter table impossible sur $table_origine : table non trouvee", 'sqlite' . _LOG_ERREUR);
+		spip_log("Alter table impossible sur $table_origine : table non trouvee", 'sqlite'._LOG_ERREUR);
 
 		return false;
 	}
 
 
-	$table_tmp = $table_origine . '_tmp';
+	$table_tmp = $table_origine.'_tmp';
 
 	// 1) creer une table temporaire avec les modifications
 	// - DROP : suppression de la colonne
@@ -2408,7 +2408,7 @@ 
 		} else {
 			// enlever KEY
 			$k = substr($k, 4);
-			$queries[] = "CREATE INDEX $table_destination" . "_$k ON $table_destination ($v)";
+			$queries[] = "CREATE INDEX $table_destination"."_$k ON $table_destination ($v)";
 		}
 	}
 
@@ -2419,7 +2419,7 @@ 
 		foreach ($queries as $q) {
 			if (!Sqlite::executer_requete($q, $serveur)) {
 				spip_log('SQLite : ALTER TABLE table :'
-					. " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
+					. " Erreur a l'execution de la requete : $q", 'sqlite.'._LOG_ERREUR);
 				Sqlite::annuler_transaction($serveur);
 
 				return false;
@@ -2509,27 +2509,27 @@ 
 	$enum = '(\s*\([^\)]*\))?';
 
 	$remplace = [
-		'/enum' . $enum . '/is' => 'VARCHAR(255)',
+		'/enum'.$enum.'/is' => 'VARCHAR(255)',
 		'/COLLATE \w+_bin/is' => 'COLLATE BINARY',
 		'/COLLATE \w+_ci/is' => 'COLLATE NOCASE',
 		'/auto_increment/is' => '',
 		'/current_timestamp\(\)/is' => 'CURRENT_TIMESTAMP', // Fix export depuis mariaDB #4374
 		'/(timestamp .* )ON .*$/is' => '\\1',
 		'/character set \w+/is' => '',
-		'/((big|small|medium|tiny)?int(eger)?)' . $num . '\s*unsigned/is' => '\\1 UNSIGNED',
+		'/((big|small|medium|tiny)?int(eger)?)'.$num.'\s*unsigned/is' => '\\1 UNSIGNED',
 		'/(text\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
-		'/((char|varchar)' . $num . '\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
+		'/((char|varchar)'.$num.'\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
 		'/(datetime\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00 00:00:00'",
 		'/(date\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00'",
 	];
 
 	// pour l'autoincrement, il faut des INTEGER NOT NULL PRIMARY KEY
 	$remplace_autocinc = [
-		'/(big|small|medium|tiny)?int(eger)?' . $num . '/is' => 'INTEGER'
+		'/(big|small|medium|tiny)?int(eger)?'.$num.'/is' => 'INTEGER'
 	];
 	// pour les int non autoincrement, il faut un DEFAULT
 	$remplace_nonautocinc = [
-		'/((big|small|medium|tiny)?int(eger)?' . $num . '\s+not\s+null)\s*$/is' => "\\1 DEFAULT 0",
+		'/((big|small|medium|tiny)?int(eger)?'.$num.'\s+not\s+null)\s*$/is' => "\\1 DEFAULT 0",
 	];
 
 	if (is_string($query)) {
@@ -2571,7 +2571,7 @@ 
 		return str_ireplace('BINARY', 'COLLATE BINARY', $champ);
 	}
 	if (preg_match(',^(char|varchar|(long|small|medium|tiny)?text),i', $champ)) {
-		return $champ . ' COLLATE NOCASE';
+		return $champ.' COLLATE NOCASE';
 	}
 
 	return $champ;
@@ -2661,7 +2661,7 @@ 
 		} else {
 			/* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
 			$a = spip_sqlite_showtable($nom, $serveur);
-			if (isset($a['key']['KEY ' . $nom])) {
+			if (isset($a['key']['KEY '.$nom])) {
 				return true;
 			}
 		}
@@ -2669,7 +2669,7 @@ 
 
 	$temporary = $temporary ? ' TEMPORARY' : '';
 
-	return "CREATE$temporary TABLE$ifnotexists $nom ($query" . ($keys ? ",$keys" : '') . ")\n";
+	return "CREATE$temporary TABLE$ifnotexists $nom ($query".($keys ? ",$keys" : '').")\n";
 }
 
 

Indentation +1604 added lines, -1604 removed lines

@@ -20,7 +20,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // TODO: get/set_caracteres ?
@@ -43,88 +43,88 @@ 
  * @return array|bool
  */
 function req_sqlite_dist($addr, $port, $login, #[\SensitiveParameter] $pass, $db = '', $prefixe = '', $sqlite_version = '') {
-	static $last_connect = [];
-
-	// si provient de selectdb
-	// un code pour etre sur que l'on vient de select_db()
-	if (str_contains($db, $code = '@selectdb@')) {
-		foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
-			${$a} = $last_connect[$a];
-		}
-		$db = str_replace($code, '', $db);
-	}
-
-	/*
+    static $last_connect = [];
+
+    // si provient de selectdb
+    // un code pour etre sur que l'on vient de select_db()
+    if (str_contains($db, $code = '@selectdb@')) {
+        foreach (['addr', 'port', 'login', 'pass', 'prefixe'] as $a) {
+            ${$a} = $last_connect[$a];
+        }
+        $db = str_replace($code, '', $db);
+    }
+
+    /*
 	 * En sqlite, seule l'adresse du fichier est importante.
 	 * Ce sera $db le nom,
 	 * le path est $addr
 	 * (_DIR_DB si $addr est vide)
 	 */
-	_sqlite_init();
-
-	// determiner le dossier de la base : $addr ou _DIR_DB
-	$f = _DIR_DB;
-	if ($addr && str_contains($addr, '/')) {
-		$f = rtrim($addr, '/') . '/';
-	}
-
-	// un nom de base demande et impossible d'obtenir la base, on s'en va :
-	// il faut que la base existe ou que le repertoire parent soit writable
-	if ($db && !is_file($f .= $db . '.sqlite') && !is_writable(dirname($f))) {
-		spip_log("base $f non trouvee ou droits en ecriture manquants", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	// charger les modules sqlite au besoin
-	if (!_sqlite_charger_version($sqlite_version)) {
-		spip_log("Impossible de trouver/charger le module SQLite ($sqlite_version)!", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	// chargement des constantes
-	// il ne faut pas definir les constantes avant d'avoir charge les modules sqlite
-	$define = 'spip_sqlite' . $sqlite_version . '_constantes';
-	$define();
-
-	if (!$db) {
-		// si pas de db ->
-		// base temporaire tant qu'on ne connait pas son vrai nom
-		// pour tester la connexion
-		$db = '_sqlite' . $sqlite_version . '_install';
-		$tmp = _DIR_DB . $db . '.sqlite';
-		$link = spip_sqlite_open($tmp);
-	} else {
-		// Ouvrir (eventuellement creer la base)
-		$link = spip_sqlite_open($f);
-	}
-
-	if (!$link) {
-		spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	$last_connect = [
-		'addr' => $addr,
-		'port' => $port,
-		'login' => $login,
-		'pass' => $pass,
-		'db' => $db,
-		'prefixe' => $prefixe,
-	];
-
-	// etre sur qu'on definit bien les fonctions a chaque nouvelle connexion
-	include_spip('req/sqlite_fonctions');
-	_sqlite_init_functions($link);
-
-	return [
-		'db' => $db,
-		'prefixe' => $prefixe ?: $db,
-		'link' => $link,
-		'total_requetes' => 0,
-	];
+    _sqlite_init();
+
+    // determiner le dossier de la base : $addr ou _DIR_DB
+    $f = _DIR_DB;
+    if ($addr && str_contains($addr, '/')) {
+        $f = rtrim($addr, '/') . '/';
+    }
+
+    // un nom de base demande et impossible d'obtenir la base, on s'en va :
+    // il faut que la base existe ou que le repertoire parent soit writable
+    if ($db && !is_file($f .= $db . '.sqlite') && !is_writable(dirname($f))) {
+        spip_log("base $f non trouvee ou droits en ecriture manquants", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    // charger les modules sqlite au besoin
+    if (!_sqlite_charger_version($sqlite_version)) {
+        spip_log("Impossible de trouver/charger le module SQLite ($sqlite_version)!", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    // chargement des constantes
+    // il ne faut pas definir les constantes avant d'avoir charge les modules sqlite
+    $define = 'spip_sqlite' . $sqlite_version . '_constantes';
+    $define();
+
+    if (!$db) {
+        // si pas de db ->
+        // base temporaire tant qu'on ne connait pas son vrai nom
+        // pour tester la connexion
+        $db = '_sqlite' . $sqlite_version . '_install';
+        $tmp = _DIR_DB . $db . '.sqlite';
+        $link = spip_sqlite_open($tmp);
+    } else {
+        // Ouvrir (eventuellement creer la base)
+        $link = spip_sqlite_open($f);
+    }
+
+    if (!$link) {
+        spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    $last_connect = [
+        'addr' => $addr,
+        'port' => $port,
+        'login' => $login,
+        'pass' => $pass,
+        'db' => $db,
+        'prefixe' => $prefixe,
+    ];
+
+    // etre sur qu'on definit bien les fonctions a chaque nouvelle connexion
+    include_spip('req/sqlite_fonctions');
+    _sqlite_init_functions($link);
+
+    return [
+        'db' => $db,
+        'prefixe' => $prefixe ?: $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    ];
 }
 
 /**
@@ -134,9 +134,9 @@ 
  * @return PDO
  */
 function spip_sqlite_open(string $file): \PDO {
-	$PDO = new \PDO("sqlite:$file");
-	$PDO->setAttribute(\PDO::ATTR_STATEMENT_CLASS, [PDOStatement::class, [&$PDO]]);
-	return $PDO;
+    $PDO = new \PDO("sqlite:$file");
+    $PDO->setAttribute(\PDO::ATTR_STATEMENT_CLASS, [PDOStatement::class, [&$PDO]]);
+    return $PDO;
 }
 
 
@@ -155,14 +155,14 @@ 
  *    Resultat de la requete
  */
 function spip_sqlite_query($query, $serveur = '', $requeter = true) {
-	#spip_log("spip_sqlite_query() > $query",'sqlite.'._LOG_DEBUG);
-	#_sqlite_init(); // fait la premiere fois dans spip_sqlite
-	$query = Sqlite::traduire_requete($query, $serveur);
-	if (!$requeter) {
-		return $query;
-	}
-
-	return Sqlite::executer_requete($query, $serveur);
+    #spip_log("spip_sqlite_query() > $query",'sqlite.'._LOG_DEBUG);
+    #_sqlite_init(); // fait la premiere fois dans spip_sqlite
+    $query = Sqlite::traduire_requete($query, $serveur);
+    if (!$requeter) {
+        return $query;
+    }
+
+    return Sqlite::executer_requete($query, $serveur);
 }
 
 
@@ -179,11 +179,11 @@ 
  */
 function spip_sqlite_alter($query, $serveur = '', $requeter = true) {
 
-	$query = spip_sqlite_query("ALTER $query", $serveur, false);
-	// traduire la requete pour recuperer les bons noms de table
-	$query = Sqlite::traduire_requete($query, $serveur);
+    $query = spip_sqlite_query("ALTER $query", $serveur, false);
+    // traduire la requete pour recuperer les bons noms de table
+    $query = Sqlite::traduire_requete($query, $serveur);
 
-	/*
+    /*
 		 * la il faut faire les transformations
 		 * si ALTER TABLE x (DROP|CHANGE) y
 		 *
@@ -192,251 +192,251 @@ 
 		 * 3) faire chaque requete independemment
 		 */
 
-	// 1
-	if (preg_match('/\s*(ALTER(\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
-		$debut = $regs[1];
-		$table = $regs[3];
-		$suite = $regs[4];
-	} else {
-		spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.' . _LOG_ERREUR);
-
-		return false;
-	}
-
-	// 2
-	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
-	// tout en cassant "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... en deux
-	// ou revoir l'api de sql_alter en creant un
-	// sql_alter_table($table,array($actions));
-	$todo = explode(',', $suite);
-
-	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = [];
-	$i = 0;
-	$ouverte = false;
-	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
-		$o = (str_contains($do, '('));
-		$f = (str_contains($do, ')'));
-		if ($o && !$f) {
-			$ouverte = true;
-		} elseif ($f) {
-			$ouverte = false;
-		}
-		if (!$ouverte) {
-			$i++;
-		}
-	}
-
-	// 3
-	$resultats = [];
-	foreach ($todo2 as $do) {
-		$do = trim($do);
-		if (
-			!preg_match('/(DROP PRIMARY KEY|DROP KEY|DROP INDEX|DROP COLUMN|DROP'
-				. '|CHANGE COLUMN|CHANGE|MODIFY|RENAME TO|RENAME'
-				. '|ADD PRIMARY KEY|ADD KEY|ADD INDEX|ADD UNIQUE KEY|ADD UNIQUE'
-				. '|ADD COLUMN|ADD'
-				. ')\s*([^\s]*)\s*(.*)?/i', $do, $matches)
-		) {
-			spip_log(
-				"SQLite : Probleme de ALTER TABLE, utilisation non reconnue dans : $do \n(requete d'origine : $query)",
-				'sqlite.' . _LOG_ERREUR
-			);
-
-			return false;
-		}
-
-		$cle = strtoupper($matches[1]);
-		$colonne_origine = $matches[2];
-		$colonne_destination = '';
-
-		$def = $matches[3];
-
-		// eluder une eventuelle clause before|after|first inutilisable
-		$defr = rtrim(preg_replace('/(BEFORE|AFTER|FIRST)(.*)$/is', '', $def));
-		$defo = $defr; // garder la def d'origine pour certains cas
-		// remplacer les definitions venant de mysql
-		$defr = _sqlite_remplacements_definitions_table($defr);
-
-		// reinjecter dans le do
-		$do = str_replace($def, $defr, $do);
-		$def = $defr;
-
-		switch ($cle) {
-				// suppression d'un index
-			case 'DROP KEY':
-			case 'DROP INDEX':
-				$nom_index = $colonne_origine;
-				spip_sqlite_drop_index($nom_index, $table, $serveur);
-				break;
-
-				// suppression d'une pk
-			case 'DROP PRIMARY KEY':
-				if (
-					!_sqlite_modifier_table(
-						$table,
-						$colonne_origine,
-						['key' => ['PRIMARY KEY' => '']],
-						$serveur
-					)
-				) {
-					return false;
-				}
-				break;
-				// suppression d'une colonne
-			case 'DROP COLUMN':
-			case 'DROP':
-				if (
-					!_sqlite_modifier_table(
-						$table,
-						[$colonne_origine => ''],
-						[],
-						$serveur
-					)
-				) {
-					return false;
-				}
-				break;
-
-			case 'CHANGE COLUMN':
-			case 'CHANGE':
-				// recuperer le nom de la future colonne
-				// on reprend la def d'origine car _sqlite_modifier_table va refaire la translation
-				// en tenant compte de la cle primaire (ce qui est mieux)
-				$def = trim($defo);
-				$colonne_destination = substr($def, 0, strpos($def, ' '));
-				$def = substr($def, strlen($colonne_destination) + 1);
-
-				if (
-					!_sqlite_modifier_table(
-						$table,
-						[$colonne_origine => $colonne_destination],
-						['field' => [$colonne_destination => $def]],
-						$serveur
-					)
-				) {
-					return false;
-				}
-				break;
-
-			case 'MODIFY':
-				// on reprend la def d'origine car _sqlite_modifier_table va refaire la translation
-				// en tenant compte de la cle primaire (ce qui est mieux)
-				if (
-					!_sqlite_modifier_table(
-						$table,
-						$colonne_origine,
-						['field' => [$colonne_origine => $defo]],
-						$serveur
-					)
-				) {
-					return false;
-				}
-				break;
-
-				// pas geres en sqlite2
-			case 'RENAME':
-				$do = 'RENAME TO' . substr($do, 6);
-			case 'RENAME TO':
-				if (!Sqlite::executer_requete("$debut $do", $serveur)) {
-					spip_log("SQLite : Erreur ALTER TABLE / RENAME : $query", 'sqlite.' . _LOG_ERREUR);
-
-					return false;
-				}
-				break;
-
-				// ajout d'une pk
-			case 'ADD PRIMARY KEY':
-				$pk = trim(substr($do, 16));
-				$pk = ($pk[0] == '(') ? substr($pk, 1, -1) : $pk;
-				if (
-					!_sqlite_modifier_table(
-						$table,
-						$colonne_origine,
-						['key' => ['PRIMARY KEY' => $pk]],
-						$serveur
-					)
-				) {
-					return false;
-				}
-				break;
-				// ajout d'un index
-			case 'ADD UNIQUE KEY':
-			case 'ADD UNIQUE':
-				$unique = true;
-			case 'ADD INDEX':
-			case 'ADD KEY':
-				if (!isset($unique)) {
-					$unique = false;
-				}
-				// peut etre "(colonne)" ou "nom_index (colonnes)"
-				// bug potentiel si qqn met "(colonne, colonne)"
-				//
-				// nom_index (colonnes)
-				if ($def) {
-					$colonnes = substr((string) $def, 1, -1);
-					$nom_index = $colonne_origine;
-				} else {
-					// (colonne)
-					if ($colonne_origine[0] == '(') {
-						$colonnes = substr($colonne_origine, 1, -1);
-						if (str_contains(',', $colonnes)) {
-							spip_log('SQLite : Erreur, impossible de creer un index sur plusieurs colonnes'
-								. " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.' . _LOG_ERREUR);
-							break;
-						} else {
-							$nom_index = $colonnes;
-						}
-					} // nom_index
-					else {
-						$nom_index = $colonnes = $colonne_origine;
-					}
-				}
-				spip_sqlite_create_index($nom_index, $table, $colonnes, $unique, $serveur);
-				break;
-
-				// pas geres en sqlite2
-			case 'ADD COLUMN':
-				$do = 'ADD' . substr($do, 10);
-			case 'ADD':
-			default:
-				if (!preg_match(',primary\s+key,i', $do)) {
-					if (!Sqlite::executer_requete("$debut $do", $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
-
-						return false;
-					}
-					break;
-				}
-				// ou si la colonne est aussi primary key
-				// cas du add id_truc int primary key
-				// ajout d'une colonne qui passe en primary key directe
-				else {
-					$def = trim(substr($do, 3));
-					$colonne_ajoutee = substr($def, 0, strpos($def, ' '));
-					$def = substr($def, strlen($colonne_ajoutee) + 1);
-					$opts = [];
-					if (preg_match(',primary\s+key,i', $def)) {
-						$opts['key'] = ['PRIMARY KEY' => $colonne_ajoutee];
-						$def = preg_replace(',primary\s+key,i', '', $def);
-					}
-					$opts['field'] = [$colonne_ajoutee => $def];
-					if (!_sqlite_modifier_table($table, [$colonne_ajoutee], $opts, $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
-
-						return false;
-					}
-				}
-				break;
-		}
-		// tout est bon, ouf !
-		spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.' . _LOG_INFO);
-	}
-
-	spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.' . _LOG_INFO);
-
-	return true;
+    // 1
+    if (preg_match('/\s*(ALTER(\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
+        $debut = $regs[1];
+        $table = $regs[3];
+        $suite = $regs[4];
+    } else {
+        spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.' . _LOG_ERREUR);
+
+        return false;
+    }
+
+    // 2
+    // il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
+    // tout en cassant "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... en deux
+    // ou revoir l'api de sql_alter en creant un
+    // sql_alter_table($table,array($actions));
+    $todo = explode(',', $suite);
+
+    // on remet les morceaux dechires ensembles... que c'est laid !
+    $todo2 = [];
+    $i = 0;
+    $ouverte = false;
+    while ($do = array_shift($todo)) {
+        $todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+        $o = (str_contains($do, '('));
+        $f = (str_contains($do, ')'));
+        if ($o && !$f) {
+            $ouverte = true;
+        } elseif ($f) {
+            $ouverte = false;
+        }
+        if (!$ouverte) {
+            $i++;
+        }
+    }
+
+    // 3
+    $resultats = [];
+    foreach ($todo2 as $do) {
+        $do = trim($do);
+        if (
+            !preg_match('/(DROP PRIMARY KEY|DROP KEY|DROP INDEX|DROP COLUMN|DROP'
+                . '|CHANGE COLUMN|CHANGE|MODIFY|RENAME TO|RENAME'
+                . '|ADD PRIMARY KEY|ADD KEY|ADD INDEX|ADD UNIQUE KEY|ADD UNIQUE'
+                . '|ADD COLUMN|ADD'
+                . ')\s*([^\s]*)\s*(.*)?/i', $do, $matches)
+        ) {
+            spip_log(
+                "SQLite : Probleme de ALTER TABLE, utilisation non reconnue dans : $do \n(requete d'origine : $query)",
+                'sqlite.' . _LOG_ERREUR
+            );
+
+            return false;
+        }
+
+        $cle = strtoupper($matches[1]);
+        $colonne_origine = $matches[2];
+        $colonne_destination = '';
+
+        $def = $matches[3];
+
+        // eluder une eventuelle clause before|after|first inutilisable
+        $defr = rtrim(preg_replace('/(BEFORE|AFTER|FIRST)(.*)$/is', '', $def));
+        $defo = $defr; // garder la def d'origine pour certains cas
+        // remplacer les definitions venant de mysql
+        $defr = _sqlite_remplacements_definitions_table($defr);
+
+        // reinjecter dans le do
+        $do = str_replace($def, $defr, $do);
+        $def = $defr;
+
+        switch ($cle) {
+                // suppression d'un index
+            case 'DROP KEY':
+            case 'DROP INDEX':
+                $nom_index = $colonne_origine;
+                spip_sqlite_drop_index($nom_index, $table, $serveur);
+                break;
+
+                // suppression d'une pk
+            case 'DROP PRIMARY KEY':
+                if (
+                    !_sqlite_modifier_table(
+                        $table,
+                        $colonne_origine,
+                        ['key' => ['PRIMARY KEY' => '']],
+                        $serveur
+                    )
+                ) {
+                    return false;
+                }
+                break;
+                // suppression d'une colonne
+            case 'DROP COLUMN':
+            case 'DROP':
+                if (
+                    !_sqlite_modifier_table(
+                        $table,
+                        [$colonne_origine => ''],
+                        [],
+                        $serveur
+                    )
+                ) {
+                    return false;
+                }
+                break;
+
+            case 'CHANGE COLUMN':
+            case 'CHANGE':
+                // recuperer le nom de la future colonne
+                // on reprend la def d'origine car _sqlite_modifier_table va refaire la translation
+                // en tenant compte de la cle primaire (ce qui est mieux)
+                $def = trim($defo);
+                $colonne_destination = substr($def, 0, strpos($def, ' '));
+                $def = substr($def, strlen($colonne_destination) + 1);
+
+                if (
+                    !_sqlite_modifier_table(
+                        $table,
+                        [$colonne_origine => $colonne_destination],
+                        ['field' => [$colonne_destination => $def]],
+                        $serveur
+                    )
+                ) {
+                    return false;
+                }
+                break;
+
+            case 'MODIFY':
+                // on reprend la def d'origine car _sqlite_modifier_table va refaire la translation
+                // en tenant compte de la cle primaire (ce qui est mieux)
+                if (
+                    !_sqlite_modifier_table(
+                        $table,
+                        $colonne_origine,
+                        ['field' => [$colonne_origine => $defo]],
+                        $serveur
+                    )
+                ) {
+                    return false;
+                }
+                break;
+
+                // pas geres en sqlite2
+            case 'RENAME':
+                $do = 'RENAME TO' . substr($do, 6);
+            case 'RENAME TO':
+                if (!Sqlite::executer_requete("$debut $do", $serveur)) {
+                    spip_log("SQLite : Erreur ALTER TABLE / RENAME : $query", 'sqlite.' . _LOG_ERREUR);
+
+                    return false;
+                }
+                break;
+
+                // ajout d'une pk
+            case 'ADD PRIMARY KEY':
+                $pk = trim(substr($do, 16));
+                $pk = ($pk[0] == '(') ? substr($pk, 1, -1) : $pk;
+                if (
+                    !_sqlite_modifier_table(
+                        $table,
+                        $colonne_origine,
+                        ['key' => ['PRIMARY KEY' => $pk]],
+                        $serveur
+                    )
+                ) {
+                    return false;
+                }
+                break;
+                // ajout d'un index
+            case 'ADD UNIQUE KEY':
+            case 'ADD UNIQUE':
+                $unique = true;
+            case 'ADD INDEX':
+            case 'ADD KEY':
+                if (!isset($unique)) {
+                    $unique = false;
+                }
+                // peut etre "(colonne)" ou "nom_index (colonnes)"
+                // bug potentiel si qqn met "(colonne, colonne)"
+                //
+                // nom_index (colonnes)
+                if ($def) {
+                    $colonnes = substr((string) $def, 1, -1);
+                    $nom_index = $colonne_origine;
+                } else {
+                    // (colonne)
+                    if ($colonne_origine[0] == '(') {
+                        $colonnes = substr($colonne_origine, 1, -1);
+                        if (str_contains(',', $colonnes)) {
+                            spip_log('SQLite : Erreur, impossible de creer un index sur plusieurs colonnes'
+                                . " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.' . _LOG_ERREUR);
+                            break;
+                        } else {
+                            $nom_index = $colonnes;
+                        }
+                    } // nom_index
+                    else {
+                        $nom_index = $colonnes = $colonne_origine;
+                    }
+                }
+                spip_sqlite_create_index($nom_index, $table, $colonnes, $unique, $serveur);
+                break;
+
+                // pas geres en sqlite2
+            case 'ADD COLUMN':
+                $do = 'ADD' . substr($do, 10);
+            case 'ADD':
+            default:
+                if (!preg_match(',primary\s+key,i', $do)) {
+                    if (!Sqlite::executer_requete("$debut $do", $serveur)) {
+                        spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+
+                        return false;
+                    }
+                    break;
+                }
+                // ou si la colonne est aussi primary key
+                // cas du add id_truc int primary key
+                // ajout d'une colonne qui passe en primary key directe
+                else {
+                    $def = trim(substr($do, 3));
+                    $colonne_ajoutee = substr($def, 0, strpos($def, ' '));
+                    $def = substr($def, strlen($colonne_ajoutee) + 1);
+                    $opts = [];
+                    if (preg_match(',primary\s+key,i', $def)) {
+                        $opts['key'] = ['PRIMARY KEY' => $colonne_ajoutee];
+                        $def = preg_replace(',primary\s+key,i', '', $def);
+                    }
+                    $opts['field'] = [$colonne_ajoutee => $def];
+                    if (!_sqlite_modifier_table($table, [$colonne_ajoutee], $opts, $serveur)) {
+                        spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+
+                        return false;
+                    }
+                }
+                break;
+        }
+        // tout est bon, ouf !
+        spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.' . _LOG_INFO);
+    }
+
+    spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.' . _LOG_INFO);
+
+    return true;
 }
 
 /**
@@ -458,38 +458,38 @@ 
  *     - true si la requête réussie, false sinon.
  */
 function spip_sqlite_create(
-	$nom,
-	$champs,
-	$cles,
-	$autoinc = false,
-	$temporary = false,
-	$serveur = '',
-	$requeter = true
+    $nom,
+    $champs,
+    $cles,
+    $autoinc = false,
+    $temporary = false,
+    $serveur = '',
+    $requeter = true
 ) {
-	$query = _sqlite_requete_create($nom, $champs, $cles, $autoinc, $temporary, $ifnotexists = true, $serveur, $requeter);
-	if (!$query) {
-		return false;
-	}
-	$res = spip_sqlite_query($query, $serveur, $requeter);
-
-	// SQLite ne cree pas les KEY sur les requetes CREATE TABLE
-	// il faut donc les faire creer ensuite
-	if (!$requeter) {
-		return $res;
-	}
-
-	$ok = (bool) $res;
-	if ($ok) {
-		foreach ($cles as $k => $v) {
-			if (preg_match(',^(UNIQUE KEY|KEY|UNIQUE)\s,i', $k, $m)) {
-				$index = trim(substr($k, strlen($m[1])));
-				$unique = (strlen($m[1]) > 3);
-				$ok &= spip_sqlite_create_index($index, $nom, $v, $unique, $serveur);
-			}
-		}
-	}
-
-	return (bool) $ok;
+    $query = _sqlite_requete_create($nom, $champs, $cles, $autoinc, $temporary, $ifnotexists = true, $serveur, $requeter);
+    if (!$query) {
+        return false;
+    }
+    $res = spip_sqlite_query($query, $serveur, $requeter);
+
+    // SQLite ne cree pas les KEY sur les requetes CREATE TABLE
+    // il faut donc les faire creer ensuite
+    if (!$requeter) {
+        return $res;
+    }
+
+    $ok = (bool) $res;
+    if ($ok) {
+        foreach ($cles as $k => $v) {
+            if (preg_match(',^(UNIQUE KEY|KEY|UNIQUE)\s,i', $k, $m)) {
+                $index = trim(substr($k, strlen($m[1])));
+                $unique = (strlen($m[1]) > 3);
+                $ok &= spip_sqlite_create_index($index, $nom, $v, $unique, $serveur);
+            }
+        }
+    }
+
+    return (bool) $ok;
 }
 
 /**
@@ -502,21 +502,21 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_sqlite_create_base($nom, $serveur = '', $option = true) {
-	$f = $nom . '.sqlite';
-	if (!str_contains($nom, '/')) {
-		$f = _DIR_DB . $f;
-	}
+    $f = $nom . '.sqlite';
+    if (!str_contains($nom, '/')) {
+        $f = _DIR_DB . $f;
+    }
 
-	$ok = new \PDO("sqlite:$f");
+    $ok = new \PDO("sqlite:$f");
 
-	if ($ok) {
-		unset($ok);
+    if ($ok) {
+        unset($ok);
 
-		return true;
-	}
-	unset($ok);
+        return true;
+    }
+    unset($ok);
 
-	return false;
+    return false;
 }
 
 
@@ -537,22 +537,22 @@ 
  *     - string texte de la requête si $requeter vaut false
  */
 function spip_sqlite_create_view($nom, $query_select, $serveur = '', $requeter = true) {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		spip_log(
-			"Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",
-			'sqlite.' . _LOG_ERREUR
-		);
-
-		return false;
-	}
-
-	$query = "CREATE VIEW $nom AS " . $query_select;
-
-	return spip_sqlite_query($query, $serveur, $requeter);
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        spip_log(
+            "Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",
+            'sqlite.' . _LOG_ERREUR
+        );
+
+        return false;
+    }
+
+    $query = "CREATE VIEW $nom AS " . $query_select;
+
+    return spip_sqlite_query($query, $serveur, $requeter);
 }
 
 /**
@@ -574,54 +574,54 @@ 
  *    string : requête, false si erreur, true sinon.
  */
 function spip_sqlite_create_index($nom, $table, $champs, $unique = '', $serveur = '', $requeter = true) {
-	if (!($nom || $table || $champs)) {
-		spip_log(
-			"Champ manquant pour creer un index sqlite ($nom, $table, (" . implode(',', $champs) . '))',
-			'sqlite.' . _LOG_ERREUR
-		);
-
-		return false;
-	}
-
-	// SQLite ne differentie pas noms des index en fonction des tables
-	// il faut donc creer des noms uniques d'index pour une base sqlite
-	$nom = $table . '_' . $nom;
-	// enlever d'eventuelles parentheses deja presentes sur champs
-	if (!is_array($champs)) {
-		if ($champs[0] == '(') {
-			$champs = substr($champs, 1, -1);
-		}
-		$champs = [$champs];
-		// supprimer l'info de longueur d'index mysql en fin de champ
-		$champs = preg_replace(',\(\d+\)$,', '', $champs);
-	}
-
-	$ifnotexists = '';
-	$version = spip_sqlite_fetch(spip_sqlite_query('select sqlite_version() AS sqlite_version', $serveur), '', $serveur);
-	if (!function_exists('spip_version_compare')) {
-		include_spip('plugins/installer');
-	}
-
-	if ($version && spip_version_compare($version['sqlite_version'], '3.3.0', '>=')) {
-		$ifnotexists = ' IF NOT EXISTS';
-	} else {
-		/* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
-		$a = spip_sqlite_showtable($table, $serveur);
-		if (isset($a['key']['KEY ' . $nom])) {
-			return true;
-		}
-	}
-
-	$query = 'CREATE ' . ($unique ? 'UNIQUE ' : '') . "INDEX$ifnotexists $nom ON $table (" . implode(',', $champs) . ')';
-	$res = spip_sqlite_query($query, $serveur, $requeter);
-	if (!$requeter) {
-		return $res;
-	}
-	if ($res) {
-		return true;
-	} else {
-		return false;
-	}
+    if (!($nom || $table || $champs)) {
+        spip_log(
+            "Champ manquant pour creer un index sqlite ($nom, $table, (" . implode(',', $champs) . '))',
+            'sqlite.' . _LOG_ERREUR
+        );
+
+        return false;
+    }
+
+    // SQLite ne differentie pas noms des index en fonction des tables
+    // il faut donc creer des noms uniques d'index pour une base sqlite
+    $nom = $table . '_' . $nom;
+    // enlever d'eventuelles parentheses deja presentes sur champs
+    if (!is_array($champs)) {
+        if ($champs[0] == '(') {
+            $champs = substr($champs, 1, -1);
+        }
+        $champs = [$champs];
+        // supprimer l'info de longueur d'index mysql en fin de champ
+        $champs = preg_replace(',\(\d+\)$,', '', $champs);
+    }
+
+    $ifnotexists = '';
+    $version = spip_sqlite_fetch(spip_sqlite_query('select sqlite_version() AS sqlite_version', $serveur), '', $serveur);
+    if (!function_exists('spip_version_compare')) {
+        include_spip('plugins/installer');
+    }
+
+    if ($version && spip_version_compare($version['sqlite_version'], '3.3.0', '>=')) {
+        $ifnotexists = ' IF NOT EXISTS';
+    } else {
+        /* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
+        $a = spip_sqlite_showtable($table, $serveur);
+        if (isset($a['key']['KEY ' . $nom])) {
+            return true;
+        }
+    }
+
+    $query = 'CREATE ' . ($unique ? 'UNIQUE ' : '') . "INDEX$ifnotexists $nom ON $table (" . implode(',', $champs) . ')';
+    $res = spip_sqlite_query($query, $serveur, $requeter);
+    if (!$requeter) {
+        return $res;
+    }
+    if ($res) {
+        return true;
+    } else {
+        return false;
+    }
 }
 
 /**
@@ -637,24 +637,24 @@ 
  * @return int                 Nombre de lignes
  */
 function spip_sqlite_count($r, $serveur = '', $requeter = true) {
-	if (!$r) {
-		return 0;
-	}
-
-	// select ou autre (insert, update,...) ?
-	// (link,requete) a compter
-	if (strtoupper(substr(ltrim($r->queryString), 0, 6)) === 'SELECT') {
-		$link = $r->getPDO();
-		$query = "SELECT count(*) as zzzzsqlitecount FROM ({$r->queryString})";
-		$l = $link->query($query);
-		$i = 0;
-		if ($l && ($z = $l->fetch())) {
-			$i = (int) $z['zzzzsqlitecount'];
-		}
-		return $i;
-	}
-
-	return $r->rowCount();
+    if (!$r) {
+        return 0;
+    }
+
+    // select ou autre (insert, update,...) ?
+    // (link,requete) a compter
+    if (strtoupper(substr(ltrim($r->queryString), 0, 6)) === 'SELECT') {
+        $link = $r->getPDO();
+        $query = "SELECT count(*) as zzzzsqlitecount FROM ({$r->queryString})";
+        $l = $link->query($query);
+        $i = 0;
+        if ($l && ($z = $l->fetch())) {
+            $i = (int) $z['zzzzsqlitecount'];
+        }
+        return $i;
+    }
+
+    return $r->rowCount();
 }
 
 
@@ -673,31 +673,31 @@ 
  *     - false si la requête a échouée
  **/
 function spip_sqlite_countsel(
-	$from = [],
-	$where = [],
-	$groupby = '',
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = '',
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
-	$r = spip_sqlite_select(
-		"COUNT($c)",
-		$from,
-		$where,
-		'',
-		'',
-		'',
-		$having,
-		$serveur,
-		$requeter
-	);
-	if ((is_resource($r) || is_object($r)) && $requeter) { // ressource : sqlite2, object : sqlite3
-		[$r] = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
-		$r = (int) $r;
-	}
-
-	return $r;
+    $c = $groupby ? 'DISTINCT ' . (is_string($groupby) ? $groupby : implode(',', $groupby)) : ('*');
+    $r = spip_sqlite_select(
+        "COUNT($c)",
+        $from,
+        $where,
+        '',
+        '',
+        '',
+        $having,
+        $serveur,
+        $requeter
+    );
+    if ((is_resource($r) || is_object($r)) && $requeter) { // ressource : sqlite2, object : sqlite3
+        [$r] = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
+        $r = (int) $r;
+    }
+
+    return $r;
 }
 
 
@@ -714,24 +714,24 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_sqlite_delete($table, $where = '', $serveur = '', $requeter = true) {
-	$res = spip_sqlite_query(
-		_sqlite_calculer_expression('DELETE FROM', $table, ',')
-			. _sqlite_calculer_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $res;
-	}
-
-	if ($res) {
-		$link = _sqlite_link($serveur);
-		return $res->rowCount();
-	} else {
-		return false;
-	}
+    $res = spip_sqlite_query(
+        _sqlite_calculer_expression('DELETE FROM', $table, ',')
+            . _sqlite_calculer_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $res;
+    }
+
+    if ($res) {
+        $link = _sqlite_link($serveur);
+        return $res->rowCount();
+    } else {
+        return false;
+    }
 }
 
 
@@ -747,13 +747,13 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_sqlite_drop_table($table, $exist = false, $serveur = '', $requeter = true) {
-	$exist = (bool) $exist ? ' IF EXISTS' : '';
+    $exist = (bool) $exist ? ' IF EXISTS' : '';
 
-	if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
-		return true;
-	}
+    if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 
@@ -769,9 +769,9 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_sqlite_drop_view($view, $exist = false, $serveur = '', $requeter = true) {
-	$exist = (bool) $exist ? ' IF EXISTS' : '';
+    $exist = (bool) $exist ? ' IF EXISTS' : '';
 
-	return spip_sqlite_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_sqlite_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -785,20 +785,20 @@ 
  * @return bool ou requete
  */
 function spip_sqlite_drop_index($nom, $table, $serveur = '', $requeter = true) {
-	if (!$nom && !$table) {
-		spip_log("Champ manquant pour supprimer un index sqlite ($nom, $table)", 'sqlite.' . _LOG_ERREUR);
+    if (!$nom && !$table) {
+        spip_log("Champ manquant pour supprimer un index sqlite ($nom, $table)", 'sqlite.' . _LOG_ERREUR);
 
-		return false;
-	}
+        return false;
+    }
 
-	// SQLite ne differentie pas noms des index en fonction des tables
-	// il faut donc creer des noms uniques d'index pour une base sqlite
-	$index = $table . '_' . $nom;
-	$exist = ' IF EXISTS';
+    // SQLite ne differentie pas noms des index en fonction des tables
+    // il faut donc creer des noms uniques d'index pour une base sqlite
+    $index = $table . '_' . $nom;
+    $exist = ' IF EXISTS';
 
-	$query = "DROP INDEX$exist $index";
+    $query = "DROP INDEX$exist $index";
 
-	return spip_sqlite_query($query, $serveur, $requeter);
+    return spip_sqlite_query($query, $serveur, $requeter);
 }
 
 /**
@@ -814,28 +814,28 @@ 
  *     Erreur eventuelle
  **/
 function spip_sqlite_error($query = '', $serveur = '') {
-	$link = _sqlite_link($serveur);
-
-	if ($link) {
-		$errs = $link->errorInfo();
-		$s = _sqlite_last_error_from_link($link);
-	} else {
-		$s = ': aucune ressource sqlite (link)';
-	}
-	if ($s) {
-		$trace = debug_backtrace();
-		if ($trace[0]['function'] != 'spip_sqlite_error') {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'sqlite.' . _LOG_ERREUR);
-		}
-	}
-
-	return $s;
+    $link = _sqlite_link($serveur);
+
+    if ($link) {
+        $errs = $link->errorInfo();
+        $s = _sqlite_last_error_from_link($link);
+    } else {
+        $s = ': aucune ressource sqlite (link)';
+    }
+    if ($s) {
+        $trace = debug_backtrace();
+        if ($trace[0]['function'] != 'spip_sqlite_error') {
+            spip_log("$s - $query - " . sql_error_backtrace(), 'sqlite.' . _LOG_ERREUR);
+        }
+    }
+
+    return $s;
 }
 
 function _sqlite_last_error_from_link($link) {
-	if ($link) {
-		$errs = $link->errorInfo();
-		/*
+    if ($link) {
+        $errs = $link->errorInfo();
+        /*
 			$errs[0]
 				numero SQLState ('HY000' souvent lors d'une erreur)
 				http://www.easysoft.com/developer/interfaces/odbc/sqlstate_status_return_codes.html
@@ -845,11 +845,11 @@ 
 			$errs[2]
 				Le texte du message d'erreur
 		*/
-		if (ltrim((string) $errs[0], '0')) { // 00000 si pas d'erreur
-			return "$errs[2]";
-		}
-	}
-	return '';
+        if (ltrim((string) $errs[0], '0')) { // 00000 si pas d'erreur
+            return "$errs[2]";
+        }
+    }
+    return '';
 }
 
 /**
@@ -866,23 +866,23 @@ 
  *    'HY000/1' : numéro de l'erreur SQLState / numéro d'erreur interne SQLite (en sqlite 3)
  **/
 function spip_sqlite_errno($serveur = '') {
-	$link = _sqlite_link($serveur);
-
-	if ($link) {
-		$t = $link->errorInfo();
-		$s = ltrim((string) $t[0], '0'); // 00000 si pas d'erreur
-		if ($s) {
-			$s .= ' / ' . $t[1];
-		} // ajoute l'erreur du moteur SQLite
-	} else {
-		$s = ': aucune ressource sqlite (link)';
-	}
-
-	if ($s) {
-		spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
-	}
-
-	return $s ?: 0;
+    $link = _sqlite_link($serveur);
+
+    if ($link) {
+        $t = $link->errorInfo();
+        $s = ltrim((string) $t[0], '0'); // 00000 si pas d'erreur
+        if ($s) {
+            $s .= ' / ' . $t[1];
+        } // ajoute l'erreur du moteur SQLite
+    } else {
+        $s = ': aucune ressource sqlite (link)';
+    }
+
+    if ($s) {
+        spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
+    }
+
+    return $s ?: 0;
 }
 
 
@@ -898,19 +898,19 @@ 
  *     - false si on a pas pu avoir d'explication
  */
 function spip_sqlite_explain($query, $serveur = '', $requeter = true) {
-	if (!str_starts_with(ltrim($query), 'SELECT')) {
-		return [];
-	}
-
-	$query = Sqlite::traduire_requete($query, $serveur);
-	$query = 'EXPLAIN ' . $query;
-	if (!$requeter) {
-		return $query;
-	}
-	// on ne trace pas ces requetes, sinon on obtient un tracage sans fin...
-	$r = Sqlite::executer_requete($query, $serveur, false);
-
-	return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
+    if (!str_starts_with(ltrim($query), 'SELECT')) {
+        return [];
+    }
+
+    $query = Sqlite::traduire_requete($query, $serveur);
+    $query = 'EXPLAIN ' . $query;
+    if (!$requeter) {
+        return $query;
+    }
+    // on ne trace pas ces requetes, sinon on obtient un tracage sans fin...
+    $r = Sqlite::executer_requete($query, $serveur, false);
+
+    return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
 }
 
 
@@ -930,35 +930,35 @@ 
  */
 function spip_sqlite_fetch($r, $t = '', $serveur = '', $requeter = true) {
 
-	$link = _sqlite_link($serveur);
-	$t = $t ?: SPIP_SQLITE3_ASSOC;
-
-	if (!$r) {
-		return false;
-	}
-
-	$retour = $r->fetch($t);
-
-	if (!$retour) {
-		if ($r->errorCode() === '00000') {
-			return null;
-		}
-		return false;
-	}
-
-	// Renvoie des 'table.titre' au lieu de 'titre' tout court ! pff !
-	// suppression de 'table.' pour toutes les cles (c'est un peu violent !)
-	// c'est couteux : on ne verifie que la premiere ligne pour voir si on le fait ou non
-	if (str_contains(implode('', array_keys($retour)), '.')) {
-		foreach ($retour as $cle => $val) {
-			if (($pos = strpos((string) $cle, '.')) !== false) {
-				$retour[substr((string) $cle, $pos + 1)] = &$retour[$cle];
-				unset($retour[$cle]);
-			}
-		}
-	}
-
-	return $retour;
+    $link = _sqlite_link($serveur);
+    $t = $t ?: SPIP_SQLITE3_ASSOC;
+
+    if (!$r) {
+        return false;
+    }
+
+    $retour = $r->fetch($t);
+
+    if (!$retour) {
+        if ($r->errorCode() === '00000') {
+            return null;
+        }
+        return false;
+    }
+
+    // Renvoie des 'table.titre' au lieu de 'titre' tout court ! pff !
+    // suppression de 'table.' pour toutes les cles (c'est un peu violent !)
+    // c'est couteux : on ne verifie que la premiere ligne pour voir si on le fait ou non
+    if (str_contains(implode('', array_keys($retour)), '.')) {
+        foreach ($retour as $cle => $val) {
+            if (($pos = strpos((string) $cle, '.')) !== false) {
+                $retour[substr((string) $cle, $pos + 1)] = &$retour[$cle];
+                unset($retour[$cle]);
+            }
+        }
+    }
+
+    return $retour;
 }
 
 /**
@@ -971,8 +971,8 @@ 
  * @return bool True si déplacement réussi, false sinon.
  **/
 function spip_sqlite_seek($r, $row_number, $serveur = '', $requeter = true) {
-	// encore un truc de bien fichu : PDO ne PEUT PAS faire de seek ou de rewind...
-	return false;
+    // encore un truc de bien fichu : PDO ne PEUT PAS faire de seek ou de rewind...
+    return false;
 }
 
 
@@ -988,10 +988,10 @@ 
  * @return bool                True si réussi
  */
 function spip_sqlite_free(&$r, $serveur = '', $requeter = true) {
-	unset($r);
+    unset($r);
 
-	return true;
-	//return sqlite_free_result($r);
+    return true;
+    //return sqlite_free_result($r);
 }
 
 
@@ -1006,8 +1006,8 @@ 
  * @return void
  */
 function spip_sqlite_get_charset($charset = [], $serveur = '', $requeter = true) {
-	//$c = !$charset ? '' : (" LIKE "._q($charset['charset']));
-	//return spip_sqlite_fetch(sqlite_query(_sqlite_link($serveur), "SHOW CHARACTER SET$c"), NULL, $serveur);
+    //$c = !$charset ? '' : (" LIKE "._q($charset['charset']));
+    //return spip_sqlite_fetch(sqlite_query(_sqlite_link($serveur), "SHOW CHARACTER SET$c"), NULL, $serveur);
 }
 
 
@@ -1022,7 +1022,7 @@ 
  *     Valeur hexadécimale pour SQLite
  **/
 function spip_sqlite_hex($v) {
-	return hexdec($v);
+    return hexdec($v);
 }
 
 
@@ -1044,7 +1044,7 @@ 
  *     Expression de requête SQL
  **/
 function spip_sqlite_in($val, $valeurs, $not = '', $serveur = '', $requeter = true) {
-	return "($val $not IN ($valeurs))";
+    return "($val $not IN ($valeurs))";
 }
 
 
@@ -1072,20 +1072,20 @@ 
  **/
 function spip_sqlite_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
 
-	$query = "INSERT INTO $table " . ($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
-	if ($r = spip_sqlite_query($query, $serveur, $requeter)) {
-		if (!$requeter) {
-			return $r;
-		}
-		$nb = Sqlite::last_insert_id($serveur);
-	} else {
-		$nb = false;
-	}
+    $query = "INSERT INTO $table " . ($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
+    if ($r = spip_sqlite_query($query, $serveur, $requeter)) {
+        if (!$requeter) {
+            return $r;
+        }
+        $nb = Sqlite::last_insert_id($serveur);
+    } else {
+        $nb = false;
+    }
 
-	$err = spip_sqlite_error($query, $serveur);
+    $err = spip_sqlite_error($query, $serveur);
 
-	// cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
-	return isset($_GET['var_profile']) ? $r : $nb;
+    // cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
+    return isset($_GET['var_profile']) ? $r : $nb;
 }
 
 
@@ -1110,28 +1110,28 @@ 
  *     - Tableau de description de la requête et du temps d'exécution, si var_profile activé
  **/
 function spip_sqlite_insertq($table, $couples = [], $desc = [], $serveur = '', $requeter = true) {
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'] ?? [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	$cles = $valeurs = '';
-	if (is_countable($couples) ? count($couples) : 0) {
-		$cles = '(' . implode(',', array_keys($couples)) . ')';
-		$valeurs = '(' . implode(',', $couples) . ')';
-	}
-
-	return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'] ?? [];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+    $cles = $valeurs = '';
+    if (is_countable($couples) ? count($couples) : 0) {
+        $cles = '(' . implode(',', array_keys($couples)) . ')';
+        $valeurs = '(' . implode(',', $couples) . ')';
+    }
+
+    return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
@@ -1155,72 +1155,72 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_sqlite_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
-	$retour = null;
-	$nb = null;
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	if (!isset($desc['field'])) {
-		$desc['field'] = [];
-	}
-
-	// recuperer les champs 'timestamp' pour mise a jour auto de ceux-ci
-	$maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
-
-	// seul le nom de la table est a traduire ici :
-	// le faire une seule fois au debut
-	$query_start = "INSERT INTO $table ";
-	$query_start = Sqlite::traduire_requete($query_start, $serveur);
-
-	// ouvrir une transaction
-	if ($requeter) {
-		Sqlite::demarrer_transaction($serveur);
-	}
-
-	while ($couples = array_shift($tab_couples)) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = _sqlite_calculer_cite($val, $desc['field'][$champ]);
-		}
-
-		// inserer les champs timestamp par defaut
-		$couples = array_merge($maj, $couples);
-
-		$champs = $valeurs = '';
-		if ($couples !== []) {
-			$champs = '(' . implode(',', array_keys($couples)) . ')';
-			$valeurs = '(' . implode(',', $couples) . ')';
-			$query = $query_start . "$champs VALUES $valeurs";
-		} else {
-			$query = $query_start . 'DEFAULT VALUES';
-		}
-
-		if ($requeter) {
-			$retour = Sqlite::executer_requete($query, $serveur);
-		}
-
-		// sur le dernier couple uniquement
-		if ($tab_couples === []) {
-			$nb = 0;
-			if ($requeter) {
-				$nb = Sqlite::last_insert_id($serveur);
-			} else {
-				return $query;
-			}
-		}
-
-		$err = spip_sqlite_error($query, $serveur);
-	}
-
-	if ($requeter) {
-		Sqlite::finir_transaction($serveur);
-	}
-
-	// renvoie le dernier id d'autoincrement ajoute
-	// cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
-	return isset($_GET['var_profile']) ? $retour : $nb;
+    $retour = null;
+    $nb = null;
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    if (!isset($desc['field'])) {
+        $desc['field'] = [];
+    }
+
+    // recuperer les champs 'timestamp' pour mise a jour auto de ceux-ci
+    $maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
+
+    // seul le nom de la table est a traduire ici :
+    // le faire une seule fois au debut
+    $query_start = "INSERT INTO $table ";
+    $query_start = Sqlite::traduire_requete($query_start, $serveur);
+
+    // ouvrir une transaction
+    if ($requeter) {
+        Sqlite::demarrer_transaction($serveur);
+    }
+
+    while ($couples = array_shift($tab_couples)) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = _sqlite_calculer_cite($val, $desc['field'][$champ]);
+        }
+
+        // inserer les champs timestamp par defaut
+        $couples = array_merge($maj, $couples);
+
+        $champs = $valeurs = '';
+        if ($couples !== []) {
+            $champs = '(' . implode(',', array_keys($couples)) . ')';
+            $valeurs = '(' . implode(',', $couples) . ')';
+            $query = $query_start . "$champs VALUES $valeurs";
+        } else {
+            $query = $query_start . 'DEFAULT VALUES';
+        }
+
+        if ($requeter) {
+            $retour = Sqlite::executer_requete($query, $serveur);
+        }
+
+        // sur le dernier couple uniquement
+        if ($tab_couples === []) {
+            $nb = 0;
+            if ($requeter) {
+                $nb = Sqlite::last_insert_id($serveur);
+            } else {
+                return $query;
+            }
+        }
+
+        $err = spip_sqlite_error($query, $serveur);
+    }
+
+    if ($requeter) {
+        Sqlite::finir_transaction($serveur);
+    }
+
+    // renvoie le dernier id d'autoincrement ajoute
+    // cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
+    return isset($_GET['var_profile']) ? $retour : $nb;
 }
 
 
@@ -1235,7 +1235,7 @@ 
  *     Toujours true.
  **/
 function spip_sqlite_preferer_transaction($serveur = '', $requeter = true) {
-	return true;
+    return true;
 }
 
 /**
@@ -1252,12 +1252,12 @@ 
  *     string si texte de la requête demandé, true sinon
  **/
 function spip_sqlite_demarrer_transaction($serveur = '', $requeter = true) {
-	if (!$requeter) {
-		return 'BEGIN TRANSACTION';
-	}
-	Sqlite::demarrer_transaction($serveur);
+    if (!$requeter) {
+        return 'BEGIN TRANSACTION';
+    }
+    Sqlite::demarrer_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 /**
@@ -1271,12 +1271,12 @@ 
  *     string si texte de la requête demandé, true sinon
  **/
 function spip_sqlite_terminer_transaction($serveur = '', $requeter = true) {
-	if (!$requeter) {
-		return 'COMMIT';
-	}
-	Sqlite::finir_transaction($serveur);
+    if (!$requeter) {
+        return 'COMMIT';
+    }
+    Sqlite::finir_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 
@@ -1291,27 +1291,27 @@ 
  *     Liste des noms de bases
  **/
 function spip_sqlite_listdbs($serveur = '', $requeter = true) {
-	_sqlite_init();
-
-	if (!is_dir($d = substr((string) _DIR_DB, 0, -1))) {
-		return [];
-	}
-
-	include_spip('inc/flock');
-	$bases = preg_files($d, $pattern = '(.*)\.sqlite$');
-	$bds = [];
-
-	foreach ($bases as $b) {
-		// pas de bases commencant pas sqlite
-		// (on s'en sert pour l'installation pour simuler la presence d'un serveur)
-		// les bases sont de la forme _sqliteX_tmp_spip_install.sqlite
-		if (strpos((string) $b, '_sqlite')) {
-			continue;
-		}
-		$bds[] = preg_replace(";.*/$pattern;iS", '$1', (string) $b);
-	}
-
-	return $bds;
+    _sqlite_init();
+
+    if (!is_dir($d = substr((string) _DIR_DB, 0, -1))) {
+        return [];
+    }
+
+    include_spip('inc/flock');
+    $bases = preg_files($d, $pattern = '(.*)\.sqlite$');
+    $bds = [];
+
+    foreach ($bases as $b) {
+        // pas de bases commencant pas sqlite
+        // (on s'en sert pour l'installation pour simuler la presence d'un serveur)
+        // les bases sont de la forme _sqliteX_tmp_spip_install.sqlite
+        if (strpos((string) $b, '_sqlite')) {
+            continue;
+        }
+        $bds[] = preg_replace(";.*/$pattern;iS", '$1', (string) $b);
+    }
+
+    return $bds;
 }
 
 
@@ -1326,7 +1326,7 @@ 
  * @return string       texte de sélection pour la requête
  */
 function spip_sqlite_multi($objet, $lang) {
-	return 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
+    return 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
 }
 
 
@@ -1343,15 +1343,15 @@ 
  * @return bool|string true / false / requete
  **/
 function spip_sqlite_optimize($table, $serveur = '', $requeter = true) {
-	static $do = false;
-	if ($requeter && $do) {
-		return true;
-	}
-	if ($requeter) {
-		$do = true;
-	}
-
-	return spip_sqlite_query('VACUUM', $serveur, $requeter);
+    static $do = false;
+    if ($requeter && $do) {
+        return true;
+    }
+    if ($requeter) {
+        $do = true;
+    }
+
+    return spip_sqlite_query('VACUUM', $serveur, $requeter);
 }
 
 
@@ -1368,15 +1368,15 @@ 
  *    Donnée prête à être utilisée par le gestionnaire SQL
  */
 function spip_sqlite_quote($v, $type = '') {
-	if (!is_array($v)) {
-		return _sqlite_calculer_cite($v, $type);
-	}
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_sqlite_quote($r, $type);
-	}
-
-	return implode(',', $v);
+    if (!is_array($v)) {
+        return _sqlite_calculer_cite($v, $type);
+    }
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_sqlite_quote($r, $type);
+    }
+
+    return implode(',', $v);
 }
 
 
@@ -1393,9 +1393,9 @@ 
  *     Expression SQL
  **/
 function spip_sqlite_date_proche($champ, $interval, $unite) {
-	$op = (($interval <= 0) ? '>' : '<');
+    $op = (($interval <= 0) ? '>' : '<');
 
-	return "($champ $op datetime('" . date('Y-m-d H:i:s') . "', '$interval $unite'))";
+    return "($champ $op datetime('" . date('Y-m-d H:i:s') . "', '$interval $unite'))";
 }
 
 
@@ -1413,48 +1413,48 @@ 
  *     l'état de la table après la réparation
  */
 function spip_sqlite_repair($table, $serveur = '', $requeter = true) {
-	if (
-		($desc = spip_sqlite_showtable($table, $serveur))
-		&& isset($desc['field'])
-		&& is_array($desc['field'])
-	) {
-		foreach ($desc['field'] as $c => $d) {
-			if (
-				preg_match(',^(tinytext|mediumtext|text|longtext|varchar|char),i', (string) $d)
-				&& stripos((string) $d, 'NOT NULL') !== false
-				&& stripos((string) $d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
-			) {
-				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT ''", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
-			}
-			if (
-				preg_match(',^(INTEGER),i', (string) $d)
-				&& stripos((string) $d, 'NOT NULL') !== false
-				&& stripos((string) $d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
-			) {
-				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0'", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
-			}
-			if (
-				preg_match(',^(datetime),i', (string) $d)
-				&& stripos((string) $d, 'NOT NULL') !== false
-				&& stripos((string) $d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				&& (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
-			) {
-				spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0000-00-00 00:00:00'", $serveur);
-				spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
-			}
-		}
-
-		return [' OK '];
-	}
-
-	return [' ERROR '];
+    if (
+        ($desc = spip_sqlite_showtable($table, $serveur))
+        && isset($desc['field'])
+        && is_array($desc['field'])
+    ) {
+        foreach ($desc['field'] as $c => $d) {
+            if (
+                preg_match(',^(tinytext|mediumtext|text|longtext|varchar|char),i', (string) $d)
+                && stripos((string) $d, 'NOT NULL') !== false
+                && stripos((string) $d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                && (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
+            ) {
+                spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT ''", $serveur);
+                spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+            }
+            if (
+                preg_match(',^(INTEGER),i', (string) $d)
+                && stripos((string) $d, 'NOT NULL') !== false
+                && stripos((string) $d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                && (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
+            ) {
+                spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0'", $serveur);
+                spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+            }
+            if (
+                preg_match(',^(datetime),i', (string) $d)
+                && stripos((string) $d, 'NOT NULL') !== false
+                && stripos((string) $d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                && (!isset($desc['key']['PRIMARY KEY']) || $desc['key']['PRIMARY KEY'] !== $c)
+            ) {
+                spip_sqlite_alter($q = "TABLE $table CHANGE $c $c $d DEFAULT '0000-00-00 00:00:00'", $serveur);
+                spip_log("ALTER $q", 'repair' . _LOG_INFO_IMPORTANTE);
+            }
+        }
+
+        return [' OK '];
+    }
+
+    return [' ERROR '];
 }
 
 
@@ -1483,25 +1483,25 @@ 
  *     - false en cas d'erreur.
  **/
 function spip_sqlite_replace($table, $couples, $desc = [], $serveur = '', $requeter = true) {
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'] ?? [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	return spip_sqlite_query("REPLACE INTO $table (" . implode(',', array_keys($couples)) . ') VALUES (' . implode(
-		',',
-		$couples
-	) . ')', $serveur);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'] ?? [];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+    return spip_sqlite_query("REPLACE INTO $table (" . implode(',', array_keys($couples)) . ') VALUES (' . implode(
+        ',',
+        $couples
+    ) . ')', $serveur);
 }
 
 
@@ -1531,14 +1531,14 @@ 
  **/
 function spip_sqlite_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
 
-	$retour = null;
-	// boucler pour traiter chaque requete independemment
-	foreach ($tab_couples as $couples) {
-		$retour = spip_sqlite_replace($table, $couples, $desc, $serveur, $requeter);
-	}
+    $retour = null;
+    // boucler pour traiter chaque requete independemment
+    foreach ($tab_couples as $couples) {
+        $retour = spip_sqlite_replace($table, $couples, $desc, $serveur, $requeter);
+    }
 
-	// renvoie le dernier id
-	return $retour;
+    // renvoie le dernier id
+    return $retour;
 }
 
 
@@ -1565,44 +1565,44 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_sqlite_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = '',
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = '',
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// version() n'est pas connu de sqlite
-	$select = str_replace('version()', 'sqlite_version()', $select);
-
-	// recomposer from
-	$from = (is_array($from) ? _sqlite_calculer_select_as($from) : $from);
-
-	$query =
-		_sqlite_calculer_expression('SELECT', $select, ', ')
-		. _sqlite_calculer_expression('FROM', $from, ', ')
-		. _sqlite_calculer_expression('WHERE', $where)
-		. _sqlite_calculer_expression('GROUP BY', $groupby, ',')
-		. _sqlite_calculer_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . _sqlite_calculer_order($orderby)) : '')
-		. ($limit ? "\nLIMIT $limit" : '');
-
-	// dans un select, on doit renvoyer la requête en cas d'erreur
-	$res = spip_sqlite_query($query, $serveur, $requeter);
-	// texte de la requete demande ?
-	if (!$requeter) {
-		return $res;
-	}
-	// erreur survenue ?
-	if ($res === false) {
-		return Sqlite::traduire_requete($query, $serveur);
-	}
-
-	return $res;
+    // version() n'est pas connu de sqlite
+    $select = str_replace('version()', 'sqlite_version()', $select);
+
+    // recomposer from
+    $from = (is_array($from) ? _sqlite_calculer_select_as($from) : $from);
+
+    $query =
+        _sqlite_calculer_expression('SELECT', $select, ', ')
+        . _sqlite_calculer_expression('FROM', $from, ', ')
+        . _sqlite_calculer_expression('WHERE', $where)
+        . _sqlite_calculer_expression('GROUP BY', $groupby, ',')
+        . _sqlite_calculer_expression('HAVING', $having)
+        . ($orderby ? ("\nORDER BY " . _sqlite_calculer_order($orderby)) : '')
+        . ($limit ? "\nLIMIT $limit" : '');
+
+    // dans un select, on doit renvoyer la requête en cas d'erreur
+    $res = spip_sqlite_query($query, $serveur, $requeter);
+    // texte de la requete demande ?
+    if (!$requeter) {
+        return $res;
+    }
+    // erreur survenue ?
+    if ($res === false) {
+        return Sqlite::traduire_requete($query, $serveur);
+    }
+
+    return $res;
 }
 
 
@@ -1621,32 +1621,32 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_sqlite_selectdb($db, $serveur = '', $requeter = true) {
-	_sqlite_init();
-
-	// interdire la creation d'une nouvelle base,
-	// sauf si on est dans l'installation
-	if (
-		!is_file($f = _DIR_DB . $db . '.sqlite')
-		&& (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)
-	) {
-		spip_log("Il est interdit de creer la base $db", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ?: 0;
-
-	if ($link = spip_connect_db('', '', '', '', '@selectdb@' . $db, $serveur, '', '')) {
-		if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
-			return $db;
-		}
-	} else {
-		spip_log("Impossible de selectionner la base $db", 'sqlite.' . _LOG_HS);
-	}
-
-	return false;
+    _sqlite_init();
+
+    // interdire la creation d'une nouvelle base,
+    // sauf si on est dans l'installation
+    if (
+        !is_file($f = _DIR_DB . $db . '.sqlite')
+        && (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)
+    ) {
+        spip_log("Il est interdit de creer la base $db", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ?: 0;
+
+    if ($link = spip_connect_db('', '', '', '', '@selectdb@' . $db, $serveur, '', '')) {
+        if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
+            return $db;
+        }
+    } else {
+        spip_log("Impossible de selectionner la base $db", 'sqlite.' . _LOG_HS);
+    }
+
+    return false;
 }
 
 
@@ -1661,8 +1661,8 @@ 
  * @return void
  */
 function spip_sqlite_set_charset($charset, $serveur = '', $requeter = true) {
-	# spip_log("Gestion charset sql a ecrire : "."SET NAMES "._q($charset), 'sqlite.'._LOG_ERREUR);
-	# return spip_sqlite_query("SET NAMES ". spip_sqlite_quote($charset), $serveur); //<-- Passe pas !
+    # spip_log("Gestion charset sql a ecrire : "."SET NAMES "._q($charset), 'sqlite.'._LOG_ERREUR);
+    # return spip_sqlite_query("SET NAMES ". spip_sqlite_quote($charset), $serveur); //<-- Passe pas !
 }
 
 
@@ -1680,24 +1680,24 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_sqlite_showbase($match, $serveur = '', $requeter = true) {
-	// type est le type d'entrée : table / index / view
-	// on ne retourne que les tables (?) et non les vues...
-	# ESCAPE non supporte par les versions sqlite <3
-	#	return spip_sqlite_query("SELECT name FROM sqlite_master WHERE type='table' AND tbl_name LIKE "._q($match)." ESCAPE '\'", $serveur, $requeter);
-	$match = preg_quote($match);
-	$match = str_replace('\\\_', '[[TIRETBAS]]', $match);
-	$match = str_replace('\\\%', '[[POURCENT]]', $match);
-	$match = str_replace('_', '.', $match);
-	$match = str_replace('%', '.*', $match);
-	$match = str_replace('[[TIRETBAS]]', '_', $match);
-	$match = str_replace('[[POURCENT]]', '%', $match);
-	$match = "^$match$";
-
-	return spip_sqlite_query(
-		"SELECT name FROM sqlite_master WHERE type='table' AND tbl_name REGEXP " . _q($match),
-		$serveur,
-		$requeter
-	);
+    // type est le type d'entrée : table / index / view
+    // on ne retourne que les tables (?) et non les vues...
+    # ESCAPE non supporte par les versions sqlite <3
+    #	return spip_sqlite_query("SELECT name FROM sqlite_master WHERE type='table' AND tbl_name LIKE "._q($match)." ESCAPE '\'", $serveur, $requeter);
+    $match = preg_quote($match);
+    $match = str_replace('\\\_', '[[TIRETBAS]]', $match);
+    $match = str_replace('\\\%', '[[POURCENT]]', $match);
+    $match = str_replace('_', '.', $match);
+    $match = str_replace('%', '.*', $match);
+    $match = str_replace('[[TIRETBAS]]', '_', $match);
+    $match = str_replace('[[POURCENT]]', '%', $match);
+    $match = "^$match$";
+
+    return spip_sqlite_query(
+        "SELECT name FROM sqlite_master WHERE type='table' AND tbl_name REGEXP " . _q($match),
+        $serveur,
+        $requeter
+    );
 }
 
 /**
@@ -1715,19 +1715,19 @@ 
  *     - string : requete sql, si $requeter = true
  **/
 function spip_sqlite_table_exists(string $table, $serveur = '', $requeter = true) {
-	$r = spip_sqlite_query(
-		'SELECT name FROM sqlite_master WHERE'
-			. ' type=\'table\''
-			. ' AND name=' . spip_sqlite_quote($table, 'string')
-			. ' AND name NOT LIKE \'sqlite_%\'',
-		$serveur,
-		$requeter
-	);
-	if (!$requeter) {
-		return $r;
-	}
-	$res = spip_sqlite_fetch($r, '', $serveur);
-	return (bool) $res;
+    $r = spip_sqlite_query(
+        'SELECT name FROM sqlite_master WHERE'
+            . ' type=\'table\''
+            . ' AND name=' . spip_sqlite_quote($table, 'string')
+            . ' AND name NOT LIKE \'sqlite_%\'',
+        $serveur,
+        $requeter
+    );
+    if (!$requeter) {
+        return $r;
+    }
+    $res = spip_sqlite_fetch($r, '', $serveur);
+    return (bool) $res;
 }
 
 define('_SQLITE_RE_SHOW_TABLE', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -1750,129 +1750,129 @@ 
  *     - array description de la table sinon
  */
 function spip_sqlite_showtable($nom_table, $serveur = '', $requeter = true) {
-	$query =
-		'SELECT sql, type FROM'
-		. ' (SELECT * FROM sqlite_master UNION ALL'
-		. ' SELECT * FROM sqlite_temp_master)'
-		. " WHERE tbl_name LIKE '$nom_table'"
-		. " AND type!='meta' AND sql NOT NULL AND name NOT LIKE 'sqlite_%'"
-		. ' ORDER BY substr(type,2,1), name';
-
-	$a = spip_sqlite_query($query, $serveur, $requeter);
-	if (!$a) {
-		return '';
-	}
-	if (!$requeter) {
-		return $a;
-	}
-	if (!($a = spip_sqlite_fetch($a, null, $serveur))) {
-		return '';
-	}
-	$vue = ($a['type'] == 'view'); // table | vue
-
-	// c'est une table
-	// il faut parser le create
-	if (!$vue) {
-		if (!preg_match(_SQLITE_RE_SHOW_TABLE, (string) array_shift($a), $r)) {
-			return '';
-		} else {
-			$desc = $r[1];
-			// extraction d'une KEY éventuelle en prenant garde de ne pas
-			// relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
-			if (preg_match('/^(.*?),([^,]*\sKEY[ (].*)$/s', $desc, $r)) {
-				$namedkeys = $r[2];
-				$desc = $r[1];
-			} else {
-				$namedkeys = '';
-			}
-
-			$fields = [];
-			$keys = [];
-
-			// enlever les contenus des valeurs DEFAULT 'xxx' qui pourraient perturber
-			// par exemple s'il contiennent une virgule.
-			// /!\ cela peut aussi echapper le nom des champs si la table a eu des operations avec SQLite Manager !
-			[$desc, $echaps] = query_echappe_textes($desc);
-
-			// separer toutes les descriptions de champs, separes par des virgules
-			# /!\ explode peut exploser aussi DECIMAL(10,2) !
-			$k_precedent = null;
-			foreach (explode(',', (string) $desc) as $v) {
-				preg_match('/^\s*([^\s]+)\s+(.*)/', $v, $r);
-				// Les cles de champs peuvent etre entourees
-				// de guillements doubles " , simples ', graves ` ou de crochets [ ],  ou rien.
-				// http://www.sqlite.org/lang_keywords.html
-				$k = strtolower((string) query_reinjecte_textes($r[1], $echaps)); // champ, "champ", [champ]...
-				if ($char = strpbrk($k[0], '\'"[`')) {
-					$k = trim($k, $char);
-					if ($char == '[') {
-						$k = rtrim($k, ']');
-					}
-				}
-				$def = query_reinjecte_textes($r[2], $echaps); // valeur du champ
-
-				// rustine pour DECIMAL(10,2)
-				// s'il y a une parenthèse fermante dans la clé
-				// ou dans la définition sans qu'il n'y ait une ouverture avant
-				if (str_contains($k, ')') || preg_match('/^[^\(]*\)/', (string) $def)) {
-					$fields[$k_precedent] .= ',' . $k . ' ' . $def;
-					continue;
-				}
-
-				// la primary key peut etre dans une des descriptions de champs
-				// et non en fin de table, cas encore decouvert avec Sqlite Manager
-				if (stripos($r[2], 'PRIMARY KEY') !== false) {
-					$keys['PRIMARY KEY'] = $k;
-				}
-
-				$fields[$k] = $def;
-				$k_precedent = $k;
-			}
-			// key inclues dans la requete
-			foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
-				if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', (string) $v, $r)) {
-					$k = str_replace('`', '', trim($r[1]));
-					$t = trim(strtolower(str_replace('`', '', $r[2])), '"');
-					if ($k && !isset($keys[$k])) {
-						$keys[$k] = $t;
-					} else {
-						$keys[] = $t;
-					}
-				}
-			}
-			// sinon ajouter les key index
-			$query =
-				'SELECT name,sql FROM'
-				. ' (SELECT * FROM sqlite_master UNION ALL'
-				. ' SELECT * FROM sqlite_temp_master)'
-				. " WHERE tbl_name LIKE '$nom_table'"
-				. " AND type='index' AND name NOT LIKE 'sqlite_%'"
-				. 'ORDER BY substr(type,2,1), name';
-			$a = spip_sqlite_query($query, $serveur, $requeter);
-			while ($r = spip_sqlite_fetch($a, null, $serveur)) {
-				$key = str_replace($nom_table . '_', '', (string) $r['name']); // enlever le nom de la table ajoute a l'index
-				$keytype = 'KEY';
-				if (str_contains((string) $r['sql'], 'UNIQUE INDEX')) {
-					$keytype = 'UNIQUE KEY';
-				}
-				$colonnes = preg_replace(',.*\((.*)\).*,', '$1', (string) $r['sql']);
-				$keys[$keytype . ' ' . $key] = $colonnes;
-			}
-		}
-	} // c'est une vue, on liste les champs disponibles simplement
-	else {
-		if ($res = sql_fetsel('*', $nom_table, '', '', '', '1', '', $serveur)) { // limit 1
-			$fields = [];
-			foreach ($res as $c => $v) {
-				$fields[$c] = '';
-			}
-			$keys = [];
-		} else {
-			return '';
-		}
-	}
-
-	return ['field' => $fields, 'key' => $keys];
+    $query =
+        'SELECT sql, type FROM'
+        . ' (SELECT * FROM sqlite_master UNION ALL'
+        . ' SELECT * FROM sqlite_temp_master)'
+        . " WHERE tbl_name LIKE '$nom_table'"
+        . " AND type!='meta' AND sql NOT NULL AND name NOT LIKE 'sqlite_%'"
+        . ' ORDER BY substr(type,2,1), name';
+
+    $a = spip_sqlite_query($query, $serveur, $requeter);
+    if (!$a) {
+        return '';
+    }
+    if (!$requeter) {
+        return $a;
+    }
+    if (!($a = spip_sqlite_fetch($a, null, $serveur))) {
+        return '';
+    }
+    $vue = ($a['type'] == 'view'); // table | vue
+
+    // c'est une table
+    // il faut parser le create
+    if (!$vue) {
+        if (!preg_match(_SQLITE_RE_SHOW_TABLE, (string) array_shift($a), $r)) {
+            return '';
+        } else {
+            $desc = $r[1];
+            // extraction d'une KEY éventuelle en prenant garde de ne pas
+            // relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
+            if (preg_match('/^(.*?),([^,]*\sKEY[ (].*)$/s', $desc, $r)) {
+                $namedkeys = $r[2];
+                $desc = $r[1];
+            } else {
+                $namedkeys = '';
+            }
+
+            $fields = [];
+            $keys = [];
+
+            // enlever les contenus des valeurs DEFAULT 'xxx' qui pourraient perturber
+            // par exemple s'il contiennent une virgule.
+            // /!\ cela peut aussi echapper le nom des champs si la table a eu des operations avec SQLite Manager !
+            [$desc, $echaps] = query_echappe_textes($desc);
+
+            // separer toutes les descriptions de champs, separes par des virgules
+            # /!\ explode peut exploser aussi DECIMAL(10,2) !
+            $k_precedent = null;
+            foreach (explode(',', (string) $desc) as $v) {
+                preg_match('/^\s*([^\s]+)\s+(.*)/', $v, $r);
+                // Les cles de champs peuvent etre entourees
+                // de guillements doubles " , simples ', graves ` ou de crochets [ ],  ou rien.
+                // http://www.sqlite.org/lang_keywords.html
+                $k = strtolower((string) query_reinjecte_textes($r[1], $echaps)); // champ, "champ", [champ]...
+                if ($char = strpbrk($k[0], '\'"[`')) {
+                    $k = trim($k, $char);
+                    if ($char == '[') {
+                        $k = rtrim($k, ']');
+                    }
+                }
+                $def = query_reinjecte_textes($r[2], $echaps); // valeur du champ
+
+                // rustine pour DECIMAL(10,2)
+                // s'il y a une parenthèse fermante dans la clé
+                // ou dans la définition sans qu'il n'y ait une ouverture avant
+                if (str_contains($k, ')') || preg_match('/^[^\(]*\)/', (string) $def)) {
+                    $fields[$k_precedent] .= ',' . $k . ' ' . $def;
+                    continue;
+                }
+
+                // la primary key peut etre dans une des descriptions de champs
+                // et non en fin de table, cas encore decouvert avec Sqlite Manager
+                if (stripos($r[2], 'PRIMARY KEY') !== false) {
+                    $keys['PRIMARY KEY'] = $k;
+                }
+
+                $fields[$k] = $def;
+                $k_precedent = $k;
+            }
+            // key inclues dans la requete
+            foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
+                if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', (string) $v, $r)) {
+                    $k = str_replace('`', '', trim($r[1]));
+                    $t = trim(strtolower(str_replace('`', '', $r[2])), '"');
+                    if ($k && !isset($keys[$k])) {
+                        $keys[$k] = $t;
+                    } else {
+                        $keys[] = $t;
+                    }
+                }
+            }
+            // sinon ajouter les key index
+            $query =
+                'SELECT name,sql FROM'
+                . ' (SELECT * FROM sqlite_master UNION ALL'
+                . ' SELECT * FROM sqlite_temp_master)'
+                . " WHERE tbl_name LIKE '$nom_table'"
+                . " AND type='index' AND name NOT LIKE 'sqlite_%'"
+                . 'ORDER BY substr(type,2,1), name';
+            $a = spip_sqlite_query($query, $serveur, $requeter);
+            while ($r = spip_sqlite_fetch($a, null, $serveur)) {
+                $key = str_replace($nom_table . '_', '', (string) $r['name']); // enlever le nom de la table ajoute a l'index
+                $keytype = 'KEY';
+                if (str_contains((string) $r['sql'], 'UNIQUE INDEX')) {
+                    $keytype = 'UNIQUE KEY';
+                }
+                $colonnes = preg_replace(',.*\((.*)\).*,', '$1', (string) $r['sql']);
+                $keys[$keytype . ' ' . $key] = $colonnes;
+            }
+        }
+    } // c'est une vue, on liste les champs disponibles simplement
+    else {
+        if ($res = sql_fetsel('*', $nom_table, '', '', '', '1', '', $serveur)) { // limit 1
+            $fields = [];
+            foreach ($res as $c => $v) {
+                $fields[$c] = '';
+            }
+            $keys = [];
+        } else {
+            return '';
+        }
+    }
+
+    return ['field' => $fields, 'key' => $keys];
 }
 
 
@@ -1898,24 +1898,24 @@ 
  *     - array Tableau décrivant la requête et son temps d'exécution si var_profile est actif
  */
 function spip_sqlite_update($table, $champs, $where = '', $desc = '', $serveur = '', $requeter = true) {
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$champs = _sqlite_ajouter_champs_timestamp($table, $champs, $desc, $serveur);
-
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
-	}
-	if ($set !== []) {
-		return spip_sqlite_query(
-			_sqlite_calculer_expression('UPDATE', $table, ',')
-				. _sqlite_calculer_expression('SET', $set, ',')
-				. _sqlite_calculer_expression('WHERE', $where),
-			$serveur,
-			$requeter
-		);
-	}
-
-	return false;
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $champs = _sqlite_ajouter_champs_timestamp($table, $champs, $desc, $serveur);
+
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if ($set !== []) {
+        return spip_sqlite_query(
+            _sqlite_calculer_expression('UPDATE', $table, ',')
+                . _sqlite_calculer_expression('SET', $set, ',')
+                . _sqlite_calculer_expression('WHERE', $where),
+            $serveur,
+            $requeter
+        );
+    }
+
+    return false;
 }
 
 
@@ -1945,38 +1945,38 @@ 
  */
 function spip_sqlite_updateq($table, $champs, $where = '', $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$champs) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		die("$table insertion sans description");
-	}
-	$fields = $desc['field'];
-
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[$champ] = $champ . '=' . _sqlite_calculer_cite($val, $fields[$champ] ?? '');
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	// attention ils sont deja quotes
-	$maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
-	foreach ($maj as $champ => $val) {
-		if (!isset($set[$champ])) {
-			$set[$champ] = $champ . '=' . $val;
-		}
-	}
-
-	return spip_sqlite_query(
-		_sqlite_calculer_expression('UPDATE', $table, ',')
-			. _sqlite_calculer_expression('SET', $set, ',')
-			. _sqlite_calculer_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
+    if (!$champs) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = $desc['field'];
+
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[$champ] = $champ . '=' . _sqlite_calculer_cite($val, $fields[$champ] ?? '');
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    // attention ils sont deja quotes
+    $maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
+    foreach ($maj as $champ => $val) {
+        if (!isset($set[$champ])) {
+            $set[$champ] = $champ . '=' . $val;
+        }
+    }
+
+    return spip_sqlite_query(
+        _sqlite_calculer_expression('UPDATE', $table, ',')
+            . _sqlite_calculer_expression('SET', $set, ',')
+            . _sqlite_calculer_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
 }
 
 
@@ -1994,17 +1994,17 @@ 
  * @return void
  */
 function _sqlite_init() {
-	if (!defined('_DIR_DB')) {
-		define('_DIR_DB', _DIR_ETC . 'bases/');
-	}
-	if (!defined('_SQLITE_CHMOD')) {
-		define('_SQLITE_CHMOD', _SPIP_CHMOD);
-	}
-
-	if (!is_dir($d = _DIR_DB)) {
-		include_spip('inc/flock');
-		sous_repertoire($d);
-	}
+    if (!defined('_DIR_DB')) {
+        define('_DIR_DB', _DIR_ETC . 'bases/');
+    }
+    if (!defined('_SQLITE_CHMOD')) {
+        define('_SQLITE_CHMOD', _SPIP_CHMOD);
+    }
+
+    if (!is_dir($d = _DIR_DB)) {
+        include_spip('inc/flock');
+        sous_repertoire($d);
+    }
 }
 
 
@@ -2018,20 +2018,20 @@ 
  * @return bool|int
  */
 function _sqlite_is_version($version = '', $link = '', $serveur = '', $requeter = true) {
-	if ($link === '') {
-		$link = _sqlite_link($serveur);
-	}
-	if (!$link) {
-		return false;
-	}
+    if ($link === '') {
+        $link = _sqlite_link($serveur);
+    }
+    if (!$link) {
+        return false;
+    }
 
-	$v = 3;
+    $v = 3;
 
-	if (!$version) {
-		return $v;
-	}
+    if (!$version) {
+        return $v;
+    }
 
-	return ($version == $v);
+    return ($version == $v);
 }
 
 
@@ -2042,9 +2042,9 @@ 
  * @return \PDO|null Information de connexion pour SQLite
  */
 function _sqlite_link($serveur = ''): ?\PDO {
-	$link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -2059,51 +2059,51 @@ 
  * @return string|number     texte ou nombre échappé
  */
 function _sqlite_calculer_cite($v, $type) {
-	if ($type) {
-		if (is_null($v) && stripos($type, 'NOT NULL') === false) {
-			// null php se traduit en NULL SQL
-			return 'NULL';
-		}
-
-		if (sql_test_date($type) && preg_match('/^\w+\(/', $v)) {
-			return $v;
-		}
-		if (sql_test_int($type)) {
-			if (is_numeric($v)) {
-				return $v;
-			} elseif ($v === null) {
-				return 0;
-			} elseif (ctype_xdigit(substr($v, 2)) && str_starts_with($v, '0x')) {
-				return hexdec(substr($v, 2));
-			} else {
-				return (int) $v;
-			}
-		}
-	} else {
-		// si on ne connait pas le type on le deduit de $v autant que possible
-		if (is_bool($v)) {
-			return (string) (int) $v;
-		} elseif (is_numeric($v)) {
-			return (string) $v;
-		}
-	}
-
-	// trouver un link sqlite pour faire l'echappement
-	foreach ($GLOBALS['connexions'] as $s) {
-		if (
-			($l = $s['link'])
-			&& is_object($l)
-			&& $l instanceof \PDO
-			&& $l->getAttribute(\PDO::ATTR_DRIVER_NAME) === 'sqlite'
-		) {
-			return $l->quote($v ?? '');
-		}
-	}
-
-	// echapper les ' en ''
-	spip_log('Pas de methode ->quote pour echapper', 'sqlite.' . _LOG_INFO_IMPORTANTE);
-
-	return ("'" . str_replace("'", "''", $v) . "'");
+    if ($type) {
+        if (is_null($v) && stripos($type, 'NOT NULL') === false) {
+            // null php se traduit en NULL SQL
+            return 'NULL';
+        }
+
+        if (sql_test_date($type) && preg_match('/^\w+\(/', $v)) {
+            return $v;
+        }
+        if (sql_test_int($type)) {
+            if (is_numeric($v)) {
+                return $v;
+            } elseif ($v === null) {
+                return 0;
+            } elseif (ctype_xdigit(substr($v, 2)) && str_starts_with($v, '0x')) {
+                return hexdec(substr($v, 2));
+            } else {
+                return (int) $v;
+            }
+        }
+    } else {
+        // si on ne connait pas le type on le deduit de $v autant que possible
+        if (is_bool($v)) {
+            return (string) (int) $v;
+        } elseif (is_numeric($v)) {
+            return (string) $v;
+        }
+    }
+
+    // trouver un link sqlite pour faire l'echappement
+    foreach ($GLOBALS['connexions'] as $s) {
+        if (
+            ($l = $s['link'])
+            && is_object($l)
+            && $l instanceof \PDO
+            && $l->getAttribute(\PDO::ATTR_DRIVER_NAME) === 'sqlite'
+        ) {
+            return $l->quote($v ?? '');
+        }
+    }
+
+    // echapper les ' en ''
+    spip_log('Pas de methode ->quote pour echapper', 'sqlite.' . _LOG_INFO_IMPORTANTE);
+
+    return ("'" . str_replace("'", "''", $v) . "'");
 }
 
 
@@ -2119,21 +2119,21 @@ 
  * @return string            texte de l'expression, une partie donc, du texte la requête.
  */
 function _sqlite_calculer_expression($expression, $v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	$exp = "\n$expression ";
-
-	if (!is_array($v)) {
-		return $exp . $v;
-	} else {
-		if (strtoupper($join) === 'AND') {
-			return $exp . implode("\n\t$join ", array_map('_sqlite_calculer_where', $v));
-		} else {
-			return $exp . implode($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    $exp = "\n$expression ";
+
+    if (!is_array($v)) {
+        return $exp . $v;
+    } else {
+        if (strtoupper($join) === 'AND') {
+            return $exp . implode("\n\t$join ", array_map('_sqlite_calculer_where', $v));
+        } else {
+            return $exp . implode($join, $v);
+        }
+    }
 }
 
 
@@ -2149,7 +2149,7 @@ 
  * @return string texte du orderby préparé
  */
 function _sqlite_calculer_order($orderby) {
-	return (is_array($orderby)) ? implode(', ', $orderby) : $orderby;
+    return (is_array($orderby)) ? implode(', ', $orderby) : $orderby;
 }
 
 
@@ -2160,26 +2160,26 @@ 
  * @return string Sélection de colonnes pour une clause SELECT
  */
 function _sqlite_calculer_select_as($args) {
-	$res = '';
-	foreach ($args as $k => $v) {
-		if (str_ends_with($k, '@')) {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$res .= '  ' . $v;
-		} else {
-			if (!is_numeric($k)) {
-				$p = strpos((string) $v, ' ');
-				if ($p) {
-					$v = substr((string) $v, 0, $p) . " AS '$k'" . substr((string) $v, $p);
-				} else {
-					$v .= " AS '$k'";
-				}
-			}
-			$res .= ', ' . $v;
-		}
-	}
-
-	return substr($res, 2);
+    $res = '';
+    foreach ($args as $k => $v) {
+        if (str_ends_with($k, '@')) {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $res .= '  ' . $v;
+        } else {
+            if (!is_numeric($k)) {
+                $p = strpos((string) $v, ' ');
+                if ($p) {
+                    $v = substr((string) $v, 0, $p) . " AS '$k'" . substr((string) $v, $p);
+                } else {
+                    $v .= " AS '$k'";
+                }
+            }
+            $res .= ', ' . $v;
+        }
+    }
+
+    return substr($res, 2);
 }
 
 
@@ -2202,26 +2202,26 @@ 
  *     Contrainte pour clause WHERE
  */
 function _sqlite_calculer_where($v) {
-	if (!is_array($v)) {
-		return $v;
-	}
-
-	$op = array_shift($v);
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = _sqlite_calculer_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = _sqlite_calculer_where(array_shift($v));
-			if ($n == 2) {
-				return "($arg $op $arg2)";
-			} else {
-				return "($arg $op ($arg2) : $v[0])";
-			}
-		}
-	}
+    if (!is_array($v)) {
+        return $v;
+    }
+
+    $op = array_shift($v);
+    if (!($n = count($v))) {
+        return $op;
+    } else {
+        $arg = _sqlite_calculer_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = _sqlite_calculer_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 
@@ -2236,17 +2236,17 @@ 
  * @return array|bool
  */
 function _sqlite_charger_version($version = '') {
-	$versions = [];
+    $versions = [];
 
-	// version 3
-	if ((!$version || $version == 3) && (extension_loaded('pdo') && extension_loaded('pdo_sqlite'))) {
-		$versions[] = 3;
-	}
-	if ($version) {
-		return in_array($version, $versions);
-	}
+    // version 3
+    if ((!$version || $version == 3) && (extension_loaded('pdo') && extension_loaded('pdo_sqlite'))) {
+        $versions[] = 3;
+    }
+    if ($version) {
+        return in_array($version, $versions);
+    }
 
-	return $versions;
+    return $versions;
 }
 
 
@@ -2284,147 +2284,147 @@ 
  */
 function _sqlite_modifier_table($table, $colonne, $opt = [], $serveur = '') {
 
-	if (is_array($table)) {
-		$table_destination = reset($table);
-		$table_origine = key($table);
-	} else {
-		$table_origine = $table_destination = $table;
-	}
-	// ne prend actuellement qu'un changement
-	// mais pourra etre adapte pour changer plus qu'une colonne a la fois
-	if (is_array($colonne)) {
-		$colonne_destination = reset($colonne);
-		$colonne_origine = key($colonne);
-	} else {
-		$colonne_origine = $colonne_destination = $colonne;
-	}
-	if (!isset($opt['field'])) {
-		$opt['field'] = [];
-	}
-	if (!isset($opt['key'])) {
-		$opt['key'] = [];
-	}
-
-	// si les noms de tables sont differents, pas besoin de table temporaire
-	// on prendra directement le nom de la future table
-	$meme_table = ($table_origine == $table_destination);
-
-	$def_origine = sql_showtable($table_origine, false, $serveur);
-	if (!$def_origine || !isset($def_origine['field'])) {
-		spip_log("Alter table impossible sur $table_origine : table non trouvee", 'sqlite' . _LOG_ERREUR);
-
-		return false;
-	}
-
-
-	$table_tmp = $table_origine . '_tmp';
-
-	// 1) creer une table temporaire avec les modifications
-	// - DROP : suppression de la colonne
-	// - CHANGE : modification de la colonne
-	// (foreach pour conserver l'ordre des champs)
-
-	// field
-	$fields = [];
-	// pour le INSERT INTO plus loin
-	// stocker la correspondance nouvelles->anciennes colonnes
-	$fields_correspondances = [];
-	foreach ($def_origine['field'] as $c => $d) {
-		if ($colonne_origine && ($c == $colonne_origine)) {
-			// si pas DROP
-			if ($colonne_destination) {
-				$fields[$colonne_destination] = $opt['field'][$colonne_destination];
-				$fields_correspondances[$colonne_destination] = $c;
-			}
-		} else {
-			$fields[$c] = $d;
-			$fields_correspondances[$c] = $c;
-		}
-	}
-	// cas de ADD sqlite2 (ajout du champ en fin de table):
-	if (!$colonne_origine && $colonne_destination) {
-		$fields[$colonne_destination] = $opt['field'][$colonne_destination];
-	}
-
-	// key...
-	$keys = [];
-	foreach ($def_origine['key'] as $c => $d) {
-		$c = str_replace($colonne_origine, $colonne_destination, (string) $c);
-		$d = str_replace($colonne_origine, $colonne_destination, (string) $d);
-		// seulement si on ne supprime pas la colonne !
-		if ($d) {
-			$keys[$c] = $d;
-		}
-	}
-
-	// autres keys, on merge
-	$keys = array_merge($keys, $opt['key']);
-	$queries = [];
-
-	// copier dans destination (si differente de origine), sinon tmp
-	$table_copie = ($meme_table) ? $table_tmp : $table_destination;
-	$autoinc = (isset($keys['PRIMARY KEY'])
-		&& $keys['PRIMARY KEY']
-		&& stripos((string) $keys['PRIMARY KEY'], ',') === false
-		&& stripos((string) $fields[$keys['PRIMARY KEY']], 'default') === false);
-
-	if (
-		$q = _sqlite_requete_create(
-			$table_copie,
-			$fields,
-			$keys,
-			$autoinc,
-			$temporary = false,
-			$ifnotexists = true,
-			$serveur
-		)
-	) {
-		$queries[] = $q;
-	}
-
-
-	// 2) y copier les champs qui vont bien
-	$champs_dest = implode(', ', array_keys($fields_correspondances));
-	$champs_ori = implode(', ', $fields_correspondances);
-	$queries[] = "INSERT INTO $table_copie ($champs_dest) SELECT $champs_ori FROM $table_origine";
-
-	// 3) supprimer la table d'origine
-	$queries[] = "DROP TABLE $table_origine";
-
-	// 4) renommer la table temporaire
-	// avec le nom de la table destination
-	// si necessaire
-	if ($meme_table) {
-		$queries[] = "ALTER TABLE $table_copie RENAME TO $table_destination";
-	}
-
-	// 5) remettre les index !
-	foreach ($keys as $k => $v) {
-		if ($k == 'PRIMARY KEY') {
-		} else {
-			// enlever KEY
-			$k = substr($k, 4);
-			$queries[] = "CREATE INDEX $table_destination" . "_$k ON $table_destination ($v)";
-		}
-	}
-
-
-	if ($queries !== []) {
-		Sqlite::demarrer_transaction($serveur);
-		// il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
-		foreach ($queries as $q) {
-			if (!Sqlite::executer_requete($q, $serveur)) {
-				spip_log('SQLite : ALTER TABLE table :'
-					. " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
-				Sqlite::annuler_transaction($serveur);
-
-				return false;
-			}
-		}
-		Sqlite::finir_transaction($serveur);
-	}
-
-	return true;
+    if (is_array($table)) {
+        $table_destination = reset($table);
+        $table_origine = key($table);
+    } else {
+        $table_origine = $table_destination = $table;
+    }
+    // ne prend actuellement qu'un changement
+    // mais pourra etre adapte pour changer plus qu'une colonne a la fois
+    if (is_array($colonne)) {
+        $colonne_destination = reset($colonne);
+        $colonne_origine = key($colonne);
+    } else {
+        $colonne_origine = $colonne_destination = $colonne;
+    }
+    if (!isset($opt['field'])) {
+        $opt['field'] = [];
+    }
+    if (!isset($opt['key'])) {
+        $opt['key'] = [];
+    }
+
+    // si les noms de tables sont differents, pas besoin de table temporaire
+    // on prendra directement le nom de la future table
+    $meme_table = ($table_origine == $table_destination);
+
+    $def_origine = sql_showtable($table_origine, false, $serveur);
+    if (!$def_origine || !isset($def_origine['field'])) {
+        spip_log("Alter table impossible sur $table_origine : table non trouvee", 'sqlite' . _LOG_ERREUR);
+
+        return false;
+    }
+
+
+    $table_tmp = $table_origine . '_tmp';
+
+    // 1) creer une table temporaire avec les modifications
+    // - DROP : suppression de la colonne
+    // - CHANGE : modification de la colonne
+    // (foreach pour conserver l'ordre des champs)
+
+    // field
+    $fields = [];
+    // pour le INSERT INTO plus loin
+    // stocker la correspondance nouvelles->anciennes colonnes
+    $fields_correspondances = [];
+    foreach ($def_origine['field'] as $c => $d) {
+        if ($colonne_origine && ($c == $colonne_origine)) {
+            // si pas DROP
+            if ($colonne_destination) {
+                $fields[$colonne_destination] = $opt['field'][$colonne_destination];
+                $fields_correspondances[$colonne_destination] = $c;
+            }
+        } else {
+            $fields[$c] = $d;
+            $fields_correspondances[$c] = $c;
+        }
+    }
+    // cas de ADD sqlite2 (ajout du champ en fin de table):
+    if (!$colonne_origine && $colonne_destination) {
+        $fields[$colonne_destination] = $opt['field'][$colonne_destination];
+    }
+
+    // key...
+    $keys = [];
+    foreach ($def_origine['key'] as $c => $d) {
+        $c = str_replace($colonne_origine, $colonne_destination, (string) $c);
+        $d = str_replace($colonne_origine, $colonne_destination, (string) $d);
+        // seulement si on ne supprime pas la colonne !
+        if ($d) {
+            $keys[$c] = $d;
+        }
+    }
+
+    // autres keys, on merge
+    $keys = array_merge($keys, $opt['key']);
+    $queries = [];
+
+    // copier dans destination (si differente de origine), sinon tmp
+    $table_copie = ($meme_table) ? $table_tmp : $table_destination;
+    $autoinc = (isset($keys['PRIMARY KEY'])
+        && $keys['PRIMARY KEY']
+        && stripos((string) $keys['PRIMARY KEY'], ',') === false
+        && stripos((string) $fields[$keys['PRIMARY KEY']], 'default') === false);
+
+    if (
+        $q = _sqlite_requete_create(
+            $table_copie,
+            $fields,
+            $keys,
+            $autoinc,
+            $temporary = false,
+            $ifnotexists = true,
+            $serveur
+        )
+    ) {
+        $queries[] = $q;
+    }
+
+
+    // 2) y copier les champs qui vont bien
+    $champs_dest = implode(', ', array_keys($fields_correspondances));
+    $champs_ori = implode(', ', $fields_correspondances);
+    $queries[] = "INSERT INTO $table_copie ($champs_dest) SELECT $champs_ori FROM $table_origine";
+
+    // 3) supprimer la table d'origine
+    $queries[] = "DROP TABLE $table_origine";
+
+    // 4) renommer la table temporaire
+    // avec le nom de la table destination
+    // si necessaire
+    if ($meme_table) {
+        $queries[] = "ALTER TABLE $table_copie RENAME TO $table_destination";
+    }
+
+    // 5) remettre les index !
+    foreach ($keys as $k => $v) {
+        if ($k == 'PRIMARY KEY') {
+        } else {
+            // enlever KEY
+            $k = substr($k, 4);
+            $queries[] = "CREATE INDEX $table_destination" . "_$k ON $table_destination ($v)";
+        }
+    }
+
+
+    if ($queries !== []) {
+        Sqlite::demarrer_transaction($serveur);
+        // il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
+        foreach ($queries as $q) {
+            if (!Sqlite::executer_requete($q, $serveur)) {
+                spip_log('SQLite : ALTER TABLE table :'
+                    . " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
+                Sqlite::annuler_transaction($serveur);
+
+                return false;
+            }
+        }
+        Sqlite::finir_transaction($serveur);
+    }
+
+    return true;
 }
 
 
@@ -2434,61 +2434,61 @@ 
  * @return array
  */
 function _sqlite_ref_fonctions() {
-	$fonctions = [
-		'alter' => 'spip_sqlite_alter',
-		'count' => 'spip_sqlite_count',
-		'countsel' => 'spip_sqlite_countsel',
-		'create' => 'spip_sqlite_create',
-		'create_base' => 'spip_sqlite_create_base',
-		'create_view' => 'spip_sqlite_create_view',
-		'date_proche' => 'spip_sqlite_date_proche',
-		'delete' => 'spip_sqlite_delete',
-		'drop_table' => 'spip_sqlite_drop_table',
-		'drop_view' => 'spip_sqlite_drop_view',
-		'errno' => 'spip_sqlite_errno',
-		'error' => 'spip_sqlite_error',
-		'explain' => 'spip_sqlite_explain',
-		'fetch' => 'spip_sqlite_fetch',
-		'seek' => 'spip_sqlite_seek',
-		'free' => 'spip_sqlite_free',
-		'hex' => 'spip_sqlite_hex',
-		'in' => 'spip_sqlite_in',
-		'insert' => 'spip_sqlite_insert',
-		'insertq' => 'spip_sqlite_insertq',
-		'insertq_multi' => 'spip_sqlite_insertq_multi',
-		'listdbs' => 'spip_sqlite_listdbs',
-		'multi' => 'spip_sqlite_multi',
-		'optimize' => 'spip_sqlite_optimize',
-		'query' => 'spip_sqlite_query',
-		'quote' => 'spip_sqlite_quote',
-		'repair' => 'spip_sqlite_repair',
-		'replace' => 'spip_sqlite_replace',
-		'replace_multi' => 'spip_sqlite_replace_multi',
-		'select' => 'spip_sqlite_select',
-		'selectdb' => 'spip_sqlite_selectdb',
-		'set_charset' => 'spip_sqlite_set_charset',
-		'get_charset' => 'spip_sqlite_get_charset',
-		'showbase' => 'spip_sqlite_showbase',
-		'showtable' => 'spip_sqlite_showtable',
-		'table_exists' => 'spip_sqlite_table_exists',
-		'update' => 'spip_sqlite_update',
-		'updateq' => 'spip_sqlite_updateq',
-		'preferer_transaction' => 'spip_sqlite_preferer_transaction',
-		'demarrer_transaction' => 'spip_sqlite_demarrer_transaction',
-		'terminer_transaction' => 'spip_sqlite_terminer_transaction',
-	];
-
-	// association de chaque nom http d'un charset aux couples sqlite
-	// SQLite supporte utf-8 et utf-16 uniquement.
-	$charsets = [
-		'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci'],
-		//'utf-16be'=>array('charset'=>'utf16be','collation'=>'UTF-16BE'),// aucune idee de quoi il faut remplir dans es champs la
-		//'utf-16le'=>array('charset'=>'utf16le','collation'=>'UTF-16LE')
-	];
-
-	$fonctions['charsets'] = $charsets;
-
-	return $fonctions;
+    $fonctions = [
+        'alter' => 'spip_sqlite_alter',
+        'count' => 'spip_sqlite_count',
+        'countsel' => 'spip_sqlite_countsel',
+        'create' => 'spip_sqlite_create',
+        'create_base' => 'spip_sqlite_create_base',
+        'create_view' => 'spip_sqlite_create_view',
+        'date_proche' => 'spip_sqlite_date_proche',
+        'delete' => 'spip_sqlite_delete',
+        'drop_table' => 'spip_sqlite_drop_table',
+        'drop_view' => 'spip_sqlite_drop_view',
+        'errno' => 'spip_sqlite_errno',
+        'error' => 'spip_sqlite_error',
+        'explain' => 'spip_sqlite_explain',
+        'fetch' => 'spip_sqlite_fetch',
+        'seek' => 'spip_sqlite_seek',
+        'free' => 'spip_sqlite_free',
+        'hex' => 'spip_sqlite_hex',
+        'in' => 'spip_sqlite_in',
+        'insert' => 'spip_sqlite_insert',
+        'insertq' => 'spip_sqlite_insertq',
+        'insertq_multi' => 'spip_sqlite_insertq_multi',
+        'listdbs' => 'spip_sqlite_listdbs',
+        'multi' => 'spip_sqlite_multi',
+        'optimize' => 'spip_sqlite_optimize',
+        'query' => 'spip_sqlite_query',
+        'quote' => 'spip_sqlite_quote',
+        'repair' => 'spip_sqlite_repair',
+        'replace' => 'spip_sqlite_replace',
+        'replace_multi' => 'spip_sqlite_replace_multi',
+        'select' => 'spip_sqlite_select',
+        'selectdb' => 'spip_sqlite_selectdb',
+        'set_charset' => 'spip_sqlite_set_charset',
+        'get_charset' => 'spip_sqlite_get_charset',
+        'showbase' => 'spip_sqlite_showbase',
+        'showtable' => 'spip_sqlite_showtable',
+        'table_exists' => 'spip_sqlite_table_exists',
+        'update' => 'spip_sqlite_update',
+        'updateq' => 'spip_sqlite_updateq',
+        'preferer_transaction' => 'spip_sqlite_preferer_transaction',
+        'demarrer_transaction' => 'spip_sqlite_demarrer_transaction',
+        'terminer_transaction' => 'spip_sqlite_terminer_transaction',
+    ];
+
+    // association de chaque nom http d'un charset aux couples sqlite
+    // SQLite supporte utf-8 et utf-16 uniquement.
+    $charsets = [
+        'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci'],
+        //'utf-16be'=>array('charset'=>'utf16be','collation'=>'UTF-16BE'),// aucune idee de quoi il faut remplir dans es champs la
+        //'utf-16le'=>array('charset'=>'utf16le','collation'=>'UTF-16LE')
+    ];
+
+    $fonctions['charsets'] = $charsets;
+
+    return $fonctions;
 }
 
 
@@ -2500,56 +2500,56 @@ 
  * @return mixed
  */
 function _sqlite_remplacements_definitions_table($query, $autoinc = false) {
-	// quelques remplacements
-	$num = '(\s*\([0-9]*\))?';
-	$enum = '(\s*\([^\)]*\))?';
-
-	$remplace = [
-		'/enum' . $enum . '/is' => 'VARCHAR(255)',
-		'/COLLATE \w+_bin/is' => 'COLLATE BINARY',
-		'/COLLATE \w+_ci/is' => 'COLLATE NOCASE',
-		'/auto_increment/is' => '',
-		'/current_timestamp\(\)/is' => 'CURRENT_TIMESTAMP', // Fix export depuis mariaDB #4374
-		'/(timestamp .* )ON .*$/is' => '\\1',
-		'/character set \w+/is' => '',
-		'/((big|small|medium|tiny)?int(eger)?)' . $num . '\s*unsigned/is' => '\\1 UNSIGNED',
-		'/(text\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
-		'/((char|varchar)' . $num . '\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
-		'/(datetime\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00 00:00:00'",
-		'/(date\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00'",
-	];
-
-	// pour l'autoincrement, il faut des INTEGER NOT NULL PRIMARY KEY
-	$remplace_autocinc = [
-		'/(big|small|medium|tiny)?int(eger)?' . $num . '/is' => 'INTEGER'
-	];
-	// pour les int non autoincrement, il faut un DEFAULT
-	$remplace_nonautocinc = [
-		'/((big|small|medium|tiny)?int(eger)?' . $num . '\s+not\s+null)\s*$/is' => "\\1 DEFAULT 0",
-	];
-
-	if (is_string($query)) {
-		$query = preg_replace(array_keys($remplace), $remplace, $query);
-		if ($autoinc || preg_match(',AUTO_INCREMENT,is', $query)) {
-			$query = preg_replace(array_keys($remplace_autocinc), $remplace_autocinc, $query);
-		} else {
-			$query = preg_replace(array_keys($remplace_nonautocinc), $remplace_nonautocinc, $query);
-			$query = _sqlite_collate_ci($query);
-		}
-	} elseif (is_array($query)) {
-		foreach ($query as $k => $q) {
-			$ai = ($autoinc ? $k == $autoinc : preg_match(',AUTO_INCREMENT,is', (string) $q));
-			$query[$k] = preg_replace(array_keys($remplace), $remplace, (string) $query[$k]);
-			if ($ai) {
-				$query[$k] = preg_replace(array_keys($remplace_autocinc), $remplace_autocinc, $query[$k]);
-			} else {
-				$query[$k] = preg_replace(array_keys($remplace_nonautocinc), $remplace_nonautocinc, $query[$k]);
-				$query[$k] = _sqlite_collate_ci($query[$k]);
-			}
-		}
-	}
-
-	return $query;
+    // quelques remplacements
+    $num = '(\s*\([0-9]*\))?';
+    $enum = '(\s*\([^\)]*\))?';
+
+    $remplace = [
+        '/enum' . $enum . '/is' => 'VARCHAR(255)',
+        '/COLLATE \w+_bin/is' => 'COLLATE BINARY',
+        '/COLLATE \w+_ci/is' => 'COLLATE NOCASE',
+        '/auto_increment/is' => '',
+        '/current_timestamp\(\)/is' => 'CURRENT_TIMESTAMP', // Fix export depuis mariaDB #4374
+        '/(timestamp .* )ON .*$/is' => '\\1',
+        '/character set \w+/is' => '',
+        '/((big|small|medium|tiny)?int(eger)?)' . $num . '\s*unsigned/is' => '\\1 UNSIGNED',
+        '/(text\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
+        '/((char|varchar)' . $num . '\s+not\s+null(\s+collate\s+\w+)?)\s*$/is' => "\\1 DEFAULT ''",
+        '/(datetime\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00 00:00:00'",
+        '/(date\s+not\s+null)\s*$/is' => "\\1 DEFAULT '0000-00-00'",
+    ];
+
+    // pour l'autoincrement, il faut des INTEGER NOT NULL PRIMARY KEY
+    $remplace_autocinc = [
+        '/(big|small|medium|tiny)?int(eger)?' . $num . '/is' => 'INTEGER'
+    ];
+    // pour les int non autoincrement, il faut un DEFAULT
+    $remplace_nonautocinc = [
+        '/((big|small|medium|tiny)?int(eger)?' . $num . '\s+not\s+null)\s*$/is' => "\\1 DEFAULT 0",
+    ];
+
+    if (is_string($query)) {
+        $query = preg_replace(array_keys($remplace), $remplace, $query);
+        if ($autoinc || preg_match(',AUTO_INCREMENT,is', $query)) {
+            $query = preg_replace(array_keys($remplace_autocinc), $remplace_autocinc, $query);
+        } else {
+            $query = preg_replace(array_keys($remplace_nonautocinc), $remplace_nonautocinc, $query);
+            $query = _sqlite_collate_ci($query);
+        }
+    } elseif (is_array($query)) {
+        foreach ($query as $k => $q) {
+            $ai = ($autoinc ? $k == $autoinc : preg_match(',AUTO_INCREMENT,is', (string) $q));
+            $query[$k] = preg_replace(array_keys($remplace), $remplace, (string) $query[$k]);
+            if ($ai) {
+                $query[$k] = preg_replace(array_keys($remplace_autocinc), $remplace_autocinc, $query[$k]);
+            } else {
+                $query[$k] = preg_replace(array_keys($remplace_nonautocinc), $remplace_nonautocinc, $query[$k]);
+                $query[$k] = _sqlite_collate_ci($query[$k]);
+            }
+        }
+    }
+
+    return $query;
 }
 
 /**
@@ -2560,17 +2560,17 @@ 
  * @return string
  */
 function _sqlite_collate_ci($champ) {
-	if (stripos($champ, 'COLLATE') !== false) {
-		return $champ;
-	}
-	if (stripos($champ, 'BINARY') !== false) {
-		return str_ireplace('BINARY', 'COLLATE BINARY', $champ);
-	}
-	if (preg_match(',^(char|varchar|(long|small|medium|tiny)?text),i', $champ)) {
-		return $champ . ' COLLATE NOCASE';
-	}
-
-	return $champ;
+    if (stripos($champ, 'COLLATE') !== false) {
+        return $champ;
+    }
+    if (stripos($champ, 'BINARY') !== false) {
+        return str_ireplace('BINARY', 'COLLATE BINARY', $champ);
+    }
+    if (preg_match(',^(char|varchar|(long|small|medium|tiny)?text),i', $champ)) {
+        return $champ . ' COLLATE NOCASE';
+    }
+
+    return $champ;
 }
 
 
@@ -2589,83 +2589,83 @@ 
  * @return bool|string
  */
 function _sqlite_requete_create(
-	$nom,
-	$champs,
-	$cles,
-	$autoinc = false,
-	$temporary = false,
-	$_ifnotexists = true,
-	$serveur = '',
-	$requeter = true
+    $nom,
+    $champs,
+    $cles,
+    $autoinc = false,
+    $temporary = false,
+    $_ifnotexists = true,
+    $serveur = '',
+    $requeter = true
 ) {
-	$query = $keys = $s = $p = '';
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) {
-		return;
-	}
-
-	// sqlite ne gere pas KEY tout court dans une requete CREATE TABLE
-	// il faut passer par des create index
-	// Il gere par contre primary key !
-	// Soit la PK est definie dans les cles, soit dans un champs
-	// soit faussement dans les 2 (et dans ce cas, il faut l’enlever à un des 2 endroits !)
-	$pk = 'PRIMARY KEY';
-	// le champ de cle primaire
-	$champ_pk = empty($cles[$pk]) ? '' : $cles[$pk];
-
-	foreach ($champs as $k => $v) {
-		if (false !== stripos((string) $v, $pk)) {
-			$champ_pk = $k;
-			// on n'en a plus besoin dans field, vu que defini dans key
-			$champs[$k] = preg_replace("/$pk/is", '', (string) $champs[$k]);
-			break;
-		}
-	}
-
-	if ($champ_pk) {
-		$keys = "\n\t\t$pk ($champ_pk)";
-	}
-	// Pas de DEFAULT 0 sur les cles primaires en auto-increment
-	if (
-		isset($champs[$champ_pk])
-		&& stripos((string) $champs[$champ_pk], 'default 0') !== false
-	) {
-		$champs[$champ_pk] = trim(str_ireplace('default 0', '', (string) $champs[$champ_pk]));
-	}
-
-	$champs = _sqlite_remplacements_definitions_table($champs, $autoinc ? $champ_pk : false);
-	foreach ($champs as $k => $v) {
-		$query .= "$s\n\t\t$k $v";
-		$s = ',';
-	}
-
-	$ifnotexists = '';
-	if ($_ifnotexists) {
-		$version = spip_sqlite_fetch(
-			spip_sqlite_query('select sqlite_version() AS sqlite_version', $serveur),
-			'',
-			$serveur
-		);
-		if (!function_exists('spip_version_compare')) {
-			include_spip('plugins/installer');
-		}
-
-		if ($version && spip_version_compare($version['sqlite_version'], '3.3.0', '>=')) {
-			$ifnotexists = ' IF NOT EXISTS';
-		} else {
-			/* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
-			$a = spip_sqlite_showtable($nom, $serveur);
-			if (isset($a['key']['KEY ' . $nom])) {
-				return true;
-			}
-		}
-	}
-
-	$temporary = $temporary ? ' TEMPORARY' : '';
-
-	return "CREATE$temporary TABLE$ifnotexists $nom ($query" . ($keys ? ",$keys" : '') . ")\n";
+    $query = $keys = $s = $p = '';
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) {
+        return;
+    }
+
+    // sqlite ne gere pas KEY tout court dans une requete CREATE TABLE
+    // il faut passer par des create index
+    // Il gere par contre primary key !
+    // Soit la PK est definie dans les cles, soit dans un champs
+    // soit faussement dans les 2 (et dans ce cas, il faut l’enlever à un des 2 endroits !)
+    $pk = 'PRIMARY KEY';
+    // le champ de cle primaire
+    $champ_pk = empty($cles[$pk]) ? '' : $cles[$pk];
+
+    foreach ($champs as $k => $v) {
+        if (false !== stripos((string) $v, $pk)) {
+            $champ_pk = $k;
+            // on n'en a plus besoin dans field, vu que defini dans key
+            $champs[$k] = preg_replace("/$pk/is", '', (string) $champs[$k]);
+            break;
+        }
+    }
+
+    if ($champ_pk) {
+        $keys = "\n\t\t$pk ($champ_pk)";
+    }
+    // Pas de DEFAULT 0 sur les cles primaires en auto-increment
+    if (
+        isset($champs[$champ_pk])
+        && stripos((string) $champs[$champ_pk], 'default 0') !== false
+    ) {
+        $champs[$champ_pk] = trim(str_ireplace('default 0', '', (string) $champs[$champ_pk]));
+    }
+
+    $champs = _sqlite_remplacements_definitions_table($champs, $autoinc ? $champ_pk : false);
+    foreach ($champs as $k => $v) {
+        $query .= "$s\n\t\t$k $v";
+        $s = ',';
+    }
+
+    $ifnotexists = '';
+    if ($_ifnotexists) {
+        $version = spip_sqlite_fetch(
+            spip_sqlite_query('select sqlite_version() AS sqlite_version', $serveur),
+            '',
+            $serveur
+        );
+        if (!function_exists('spip_version_compare')) {
+            include_spip('plugins/installer');
+        }
+
+        if ($version && spip_version_compare($version['sqlite_version'], '3.3.0', '>=')) {
+            $ifnotexists = ' IF NOT EXISTS';
+        } else {
+            /* simuler le IF EXISTS - version 2 et sqlite < 3.3a */
+            $a = spip_sqlite_showtable($nom, $serveur);
+            if (isset($a['key']['KEY ' . $nom])) {
+                return true;
+            }
+        }
+    }
+
+    $temporary = $temporary ? ' TEMPORARY' : '';
+
+    return "CREATE$temporary TABLE$ifnotexists $nom ($query" . ($keys ? ",$keys" : '') . ")\n";
 }
 
 
@@ -2684,40 +2684,40 @@ 
  * @return
  */
 function _sqlite_ajouter_champs_timestamp($table, $couples, $desc = '', $serveur = '') {
-	static $tables = [];
-
-	if (!isset($tables[$table])) {
-		if (!$desc) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table, $serveur);
-			// si pas de description, on ne fait rien, ou on die() ?
-			if (!$desc) {
-				return $couples;
-			}
-		}
-
-		// recherche des champs avec simplement 'TIMESTAMP'
-		// cependant, il faudra peut etre etendre
-		// avec la gestion de DEFAULT et ON UPDATE
-		// mais ceux-ci ne sont pas utilises dans le core
-		$tables[$table] = ['valeur' => [], 'cite' => [], 'desc' => []];
-
-		$now = _sqlite_func_now(true);
-		foreach ($desc['field'] as $k => $v) {
-			if (str_starts_with(strtolower(ltrim((string) $v)), 'timestamp')) {
-				$tables[$table]['desc'][$k] = $v;
-				$tables[$table]['valeur'][$k] = _sqlite_calculer_cite($now, $tables[$table]['desc'][$k]);
-			}
-		}
-	} else {
-		$now = _sqlite_func_now(true);
-		foreach (array_keys($tables[$table]['desc']) as $k) {
-			$tables[$table]['valeur'][$k] = _sqlite_calculer_cite($now, $tables[$table]['desc'][$k]);
-		}
-	}
-
-	// ajout des champs type 'timestamp' absents
-	return array_merge($tables[$table]['valeur'], $couples);
+    static $tables = [];
+
+    if (!isset($tables[$table])) {
+        if (!$desc) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table, $serveur);
+            // si pas de description, on ne fait rien, ou on die() ?
+            if (!$desc) {
+                return $couples;
+            }
+        }
+
+        // recherche des champs avec simplement 'TIMESTAMP'
+        // cependant, il faudra peut etre etendre
+        // avec la gestion de DEFAULT et ON UPDATE
+        // mais ceux-ci ne sont pas utilises dans le core
+        $tables[$table] = ['valeur' => [], 'cite' => [], 'desc' => []];
+
+        $now = _sqlite_func_now(true);
+        foreach ($desc['field'] as $k => $v) {
+            if (str_starts_with(strtolower(ltrim((string) $v)), 'timestamp')) {
+                $tables[$table]['desc'][$k] = $v;
+                $tables[$table]['valeur'][$k] = _sqlite_calculer_cite($now, $tables[$table]['desc'][$k]);
+            }
+        }
+    } else {
+        $now = _sqlite_func_now(true);
+        foreach (array_keys($tables[$table]['desc']) as $k) {
+            $tables[$table]['valeur'][$k] = _sqlite_calculer_cite($now, $tables[$table]['desc'][$k]);
+        }
+    }
+
+    // ajout des champs type 'timestamp' absents
+    return array_merge($tables[$table]['valeur'], $couples);
 }
 
 
@@ -2728,5 +2728,5 @@ 
  * @return array|bool
  */
 function spip_versions_sqlite() {
-	return _sqlite_charger_version();
+    return _sqlite_charger_version();
 }

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);
 }

Spacing +5 added lines, -5 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');
@@ -27,7 +27,7 @@ 
 // Determiner l'action demandee
 //
 
-$exec = (string)_request('exec');
+$exec = (string) _request('exec');
 $reinstall = (is_null(_request('reinstall'))) ? ($exec == 'install' ? 'oui' : null) : _request('reinstall');
 //
 // Les scripts d'insallation n'authentifient pas, forcement,
@@ -112,9 +112,9 @@ 
 			&& !(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.' .
+		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'));
 	}