spip / SPIP

ecrire/iterateur/sql.php

Indentation +204 added lines, -204 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -28,210 +28,210 @@ 
  */
 class IterateurSQL implements Iterator {
 
-	/**
-	 * Ressource sql
-	 *
-	 * @var Object|bool
-	 */
-	protected $sqlresult = false;
-
-	/**
-	 * row sql courante
-	 *
-	 * @var array|null
-	 */
-	protected $row = null;
-
-	protected $firstseek = false;
-
-	/**
-	 * Erreur presente ?
-	 *
-	 * @var bool
-	 **/
-	public $err = false;
-
-	/**
-	 * Calcul du total des elements
-	 *
-	 * @var int|null
-	 **/
-	public $total = null;
-
-	/**
-	 * selectionner les donnees, ie faire la requete SQL
-	 *
-	 * @return void
-	 */
-	protected function select() {
-		$this->row = null;
-		$v = &$this->command;
-		$this->sqlresult = calculer_select(
-			$v['select'],
-			$v['from'],
-			$v['type'],
-			$v['where'],
-			$v['join'],
-			$v['groupby'],
-			$v['orderby'],
-			$v['limit'],
-			$v['having'],
-			$v['table'],
-			$v['id'],
-			$v['connect'],
-			$this->info
-		);
-		$this->err = !$this->sqlresult;
-		$this->firstseek = false;
-		$this->pos = -1;
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-	/*
+    /**
+     * Ressource sql
+     *
+     * @var Object|bool
+     */
+    protected $sqlresult = false;
+
+    /**
+     * row sql courante
+     *
+     * @var array|null
+     */
+    protected $row = null;
+
+    protected $firstseek = false;
+
+    /**
+     * Erreur presente ?
+     *
+     * @var bool
+     **/
+    public $err = false;
+
+    /**
+     * Calcul du total des elements
+     *
+     * @var int|null
+     **/
+    public $total = null;
+
+    /**
+     * selectionner les donnees, ie faire la requete SQL
+     *
+     * @return void
+     */
+    protected function select() {
+        $this->row = null;
+        $v = &$this->command;
+        $this->sqlresult = calculer_select(
+            $v['select'],
+            $v['from'],
+            $v['type'],
+            $v['where'],
+            $v['join'],
+            $v['groupby'],
+            $v['orderby'],
+            $v['limit'],
+            $v['having'],
+            $v['table'],
+            $v['id'],
+            $v['connect'],
+            $this->info
+        );
+        $this->err = !$this->sqlresult;
+        $this->firstseek = false;
+        $this->pos = -1;
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+    /*
 	 * array command: les commandes d'initialisation
 	 * array info: les infos sur le squelette
 	 */
-	public function __construct($command, $info = []) {
-		$this->type = 'SQL';
-		$this->command = $command;
-		$this->info = $info;
-		$this->select();
-	}
-
-	/**
-	 * Rembobiner
-	 *
-	 * @return bool
-	 */
-	public function rewind() : void {
-		if ($this->pos > 0) {
-			$this->seek(0);
-		}
-	}
-
-	/**
-	 * Verifier l'etat de l'iterateur
-	 *
-	 * @return bool
-	 */
-	public function valid(): bool {
-		if ($this->err) {
-			return false;
-		}
-		if (!$this->firstseek) {
-			$this->next();
-		}
-
-		return is_array($this->row);
-	}
-
-	/**
-	 * Valeurs sur la position courante
-	 *
-	 * @return array
-	 */
-	#[\ReturnTypeWillChange]
-	public function current() {
-		return $this->row;
-	}
-
-	#[\ReturnTypeWillChange]
-	public function key() {
-		return $this->pos;
-	}
-
-	/**
-	 * Sauter a une position absolue
-	 *
-	 * @param int $n
-	 * @param null|string $continue
-	 * @return bool
-	 */
-	public function seek($n = 0, $continue = null) {
-		if (!sql_seek($this->sqlresult, $n, $this->command['connect'], $continue)) {
-			// SQLite ne sait pas seek(), il faut relancer la query
-			// si la position courante est apres la position visee
-			// il faut relancer la requete
-			if ($this->pos > $n) {
-				$this->free();
-				$this->select();
-				$this->valid();
-			}
-			// et utiliser la methode par defaut pour se deplacer au bon endroit
-			// (sera fait en cas d'echec de cette fonction)
-			return false;
-		}
-		$this->row = sql_fetch($this->sqlresult, $this->command['connect']);
-		$this->pos = min($n, $this->count());
-
-		return true;
-	}
-
-	/**
-	 * Avancer d'un cran
-	 *
-	 * @return void
-	 */
-	public function next() : void {
-		$this->row = sql_fetch($this->sqlresult, $this->command['connect']);
-		$this->pos++;
-		$this->firstseek |= true;
-	}
-
-	/**
-	 * Avancer et retourner les donnees pour le nouvel element
-	 *
-	 * @return array|bool|null
-	 */
-	public function fetch() {
-		if ($this->valid()) {
-			$r = $this->current();
-			$this->next();
-		} else {
-			$r = false;
-		}
-
-		return $r;
-	}
-
-	/**
-	 * liberer les ressources
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (!$this->sqlresult) {
-			return true;
-		}
-		$a = sql_free($this->sqlresult, $this->command['connect']);
-		$this->sqlresult = null;
-
-		return $a;
-	}
-
-	/**
-	 * Compter le nombre de resultats
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (!$this->sqlresult) {
-				$this->total = 0;
-			} else {
-				# cas count(*)
-				if (in_array('count(*)', $this->command['select'])) {
-					$this->valid();
-					$s = $this->current();
-					$this->total = $s['count(*)'];
-				} else {
-					$this->total = sql_count($this->sqlresult, $this->command['connect']);
-				}
-			}
-		}
-
-		return $this->total;
-	}
+    public function __construct($command, $info = []) {
+        $this->type = 'SQL';
+        $this->command = $command;
+        $this->info = $info;
+        $this->select();
+    }
+
+    /**
+     * Rembobiner
+     *
+     * @return bool
+     */
+    public function rewind() : void {
+        if ($this->pos > 0) {
+            $this->seek(0);
+        }
+    }
+
+    /**
+     * Verifier l'etat de l'iterateur
+     *
+     * @return bool
+     */
+    public function valid(): bool {
+        if ($this->err) {
+            return false;
+        }
+        if (!$this->firstseek) {
+            $this->next();
+        }
+
+        return is_array($this->row);
+    }
+
+    /**
+     * Valeurs sur la position courante
+     *
+     * @return array
+     */
+    #[\ReturnTypeWillChange]
+    public function current() {
+        return $this->row;
+    }
+
+    #[\ReturnTypeWillChange]
+    public function key() {
+        return $this->pos;
+    }
+
+    /**
+     * Sauter a une position absolue
+     *
+     * @param int $n
+     * @param null|string $continue
+     * @return bool
+     */
+    public function seek($n = 0, $continue = null) {
+        if (!sql_seek($this->sqlresult, $n, $this->command['connect'], $continue)) {
+            // SQLite ne sait pas seek(), il faut relancer la query
+            // si la position courante est apres la position visee
+            // il faut relancer la requete
+            if ($this->pos > $n) {
+                $this->free();
+                $this->select();
+                $this->valid();
+            }
+            // et utiliser la methode par defaut pour se deplacer au bon endroit
+            // (sera fait en cas d'echec de cette fonction)
+            return false;
+        }
+        $this->row = sql_fetch($this->sqlresult, $this->command['connect']);
+        $this->pos = min($n, $this->count());
+
+        return true;
+    }
+
+    /**
+     * Avancer d'un cran
+     *
+     * @return void
+     */
+    public function next() : void {
+        $this->row = sql_fetch($this->sqlresult, $this->command['connect']);
+        $this->pos++;
+        $this->firstseek |= true;
+    }
+
+    /**
+     * Avancer et retourner les donnees pour le nouvel element
+     *
+     * @return array|bool|null
+     */
+    public function fetch() {
+        if ($this->valid()) {
+            $r = $this->current();
+            $this->next();
+        } else {
+            $r = false;
+        }
+
+        return $r;
+    }
+
+    /**
+     * liberer les ressources
+     *
+     * @return bool
+     */
+    public function free() {
+        if (!$this->sqlresult) {
+            return true;
+        }
+        $a = sql_free($this->sqlresult, $this->command['connect']);
+        $this->sqlresult = null;
+
+        return $a;
+    }
+
+    /**
+     * Compter le nombre de resultats
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (!$this->sqlresult) {
+                $this->total = 0;
+            } else {
+                # cas count(*)
+                if (in_array('count(*)', $this->command['select'])) {
+                    $this->valid();
+                    $s = $this->current();
+                    $this->total = $s['count(*)'];
+                } else {
+                    $this->total = sql_count($this->sqlresult, $this->command['connect']);
+                }
+            }
+        }
+
+        return $this->total;
+    }
 }

ecrire/req/sqlite_fonctions.php

Indentation +229 added lines, -229 removed lines

@@ -22,7 +22,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,90 +43,90 @@ 
  */
 function _sqlite_init_functions(&$sqlite) {
 
-	if (!$sqlite) {
-		return false;
-	}
+    if (!$sqlite) {
+        return false;
+    }
 
 
-	$fonctions = [
-		// A
-		'ACOS'  => ['acos', 1],
-		'ASIN'  => ['asin', 1],
-		'ATAN'  => ['atan', 1], // mysql accepte 2 params comme atan2… hum ?
-		'ATAN2' => ['atan2', 2],
+    $fonctions = [
+        // A
+        'ACOS'  => ['acos', 1],
+        'ASIN'  => ['asin', 1],
+        'ATAN'  => ['atan', 1], // mysql accepte 2 params comme atan2… hum ?
+        'ATAN2' => ['atan2', 2],
 
-		// C
-		'CEIL'   => ['_sqlite_func_ceil', 1],
-		'CONCAT' => ['_sqlite_func_concat', -1],
-		'COS'    => ['cos', 1],
+        // C
+        'CEIL'   => ['_sqlite_func_ceil', 1],
+        'CONCAT' => ['_sqlite_func_concat', -1],
+        'COS'    => ['cos', 1],
 
-		// D
-		'DATE_FORMAT' => ['_sqlite_func_date_format', 2], // équivalent a strftime avec args inversés
-		'DAYOFMONTH'  => ['_sqlite_func_dayofmonth', 1],
-		'DEGREES'     => ['rad2deg', 1],
+        // D
+        'DATE_FORMAT' => ['_sqlite_func_date_format', 2], // équivalent a strftime avec args inversés
+        'DAYOFMONTH'  => ['_sqlite_func_dayofmonth', 1],
+        'DEGREES'     => ['rad2deg', 1],
 
-		// E
-		'EXTRAIRE_MULTI' => ['_sqlite_func_extraire_multi', 2], // specifique a SPIP/sql_multi()
-		'EXP'            => ['exp', 1],
+        // E
+        'EXTRAIRE_MULTI' => ['_sqlite_func_extraire_multi', 2], // specifique a SPIP/sql_multi()
+        'EXP'            => ['exp', 1],
 
-		// F
-		'FIND_IN_SET' => ['_sqlite_func_find_in_set', 2],
-		'FLOOR'       => ['_sqlite_func_floor', 1],
+        // F
+        'FIND_IN_SET' => ['_sqlite_func_find_in_set', 2],
+        'FLOOR'       => ['_sqlite_func_floor', 1],
 
-		// G
-		'GREATEST' => ['_sqlite_func_greatest', -1],
+        // G
+        'GREATEST' => ['_sqlite_func_greatest', -1],
 
-		// I
-		'IF'     => ['_sqlite_func_if', 3],
-		'INSERT' => ['_sqlite_func_insert', 4],
-		'INSTR'  => ['_sqlite_func_instr', 2],
+        // I
+        'IF'     => ['_sqlite_func_if', 3],
+        'INSERT' => ['_sqlite_func_insert', 4],
+        'INSTR'  => ['_sqlite_func_instr', 2],
 
-		// L
-		'LEAST'  => ['_sqlite_func_least', -1],
-		'_LEFT'  => ['_sqlite_func_left', 2],
+        // L
+        'LEAST'  => ['_sqlite_func_least', -1],
+        '_LEFT'  => ['_sqlite_func_left', 2],
 
-		// N
-		'NOW' => ['_sqlite_func_now', 0],
+        // N
+        'NOW' => ['_sqlite_func_now', 0],
 
-		// M
-		'MD5'   => ['md5', 1],
-		'MONTH' => ['_sqlite_func_month', 1],
+        // M
+        'MD5'   => ['md5', 1],
+        'MONTH' => ['_sqlite_func_month', 1],
 
-		// P
-		'PREG_REPLACE' => ['_sqlite_func_preg_replace', 3],
+        // P
+        'PREG_REPLACE' => ['_sqlite_func_preg_replace', 3],
 
-		// R
-		'RADIANS' => ['deg2rad', 1],
-		'RAND'    => ['_sqlite_func_rand', 0], // sinon random() v2.4
-		'REGEXP'  => ['_sqlite_func_regexp_match', 2], // critere REGEXP supporte a partir de v3.3.2
-		'RIGHT'   => ['_sqlite_func_right', 2],
+        // R
+        'RADIANS' => ['deg2rad', 1],
+        'RAND'    => ['_sqlite_func_rand', 0], // sinon random() v2.4
+        'REGEXP'  => ['_sqlite_func_regexp_match', 2], // critere REGEXP supporte a partir de v3.3.2
+        'RIGHT'   => ['_sqlite_func_right', 2],
 
-		// S
-		'SETTYPE'   => ['settype', 2], // CAST present en v3.2.3
-		'SIN'       => ['sin', 1],
-		'SQRT'      => ['sqrt', 1],
-		'SUBSTRING' => ['_sqlite_func_substring' /*, 3*/], // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
+        // S
+        'SETTYPE'   => ['settype', 2], // CAST present en v3.2.3
+        'SIN'       => ['sin', 1],
+        'SQRT'      => ['sqrt', 1],
+        'SUBSTRING' => ['_sqlite_func_substring' /*, 3*/], // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
 
-		// T
-		'TAN'           => ['tan', 1],
-		'TIMESTAMPDIFF' => ['_sqlite_timestampdiff'    /*, 3*/],
-		'TO_DAYS'       => ['_sqlite_func_to_days', 1],
+        // T
+        'TAN'           => ['tan', 1],
+        'TIMESTAMPDIFF' => ['_sqlite_timestampdiff'    /*, 3*/],
+        'TO_DAYS'       => ['_sqlite_func_to_days', 1],
 
-		// U
-		'UNIX_TIMESTAMP' => ['_sqlite_func_unix_timestamp', 1],
+        // U
+        'UNIX_TIMESTAMP' => ['_sqlite_func_unix_timestamp', 1],
 
-		// V
-		'VIDE' => ['_sqlite_func_vide', 0], // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
+        // V
+        'VIDE' => ['_sqlite_func_vide', 0], // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
 
-		// Y
-		'YEAR' => ['_sqlite_func_year', 1]
-	];
+        // Y
+        'YEAR' => ['_sqlite_func_year', 1]
+    ];
 
-	foreach ($fonctions as $f => $r) {
-		_sqlite_add_function($sqlite, $f, $r);
-	}
+    foreach ($fonctions as $f => $r) {
+        _sqlite_add_function($sqlite, $f, $r);
+    }
 
-	#spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
+    #spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
 }
 
 
@@ -147,9 +147,9 @@ 
  *
 **/
 function _sqlite_add_function(&$sqlite, &$f, &$r) {
-	isset($r[1])
-		? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
-		: $sqlite->sqliteCreateFunction($f, $r[0]);
+    isset($r[1])
+        ? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
+        : $sqlite->sqliteCreateFunction($f, $r[0]);
 }
 
 /**
@@ -159,7 +159,7 @@ 
  * @return int
  */
 function _sqlite_func_ceil($a) {
-	return ceil($a);
+    return ceil($a);
 }
 
 /**
@@ -169,7 +169,7 @@ 
  * @return string
  */
 function _sqlite_func_concat(...$args) {
-	return join('', $args);
+    return join('', $args);
 }
 
 
@@ -182,7 +182,7 @@ 
  * @return string
  */
 function _sqlite_func_dayofmonth($d) {
-	return _sqlite_func_date('d', $d);
+    return _sqlite_func_date('d', $d);
 }
 
 
@@ -194,15 +194,15 @@ 
  * @return int
  */
 function _sqlite_func_find_in_set($num, $set) {
-	$rank = 0;
-	foreach (explode(',', $set) as $v) {
-		if ($v == $num) {
-			return (++$rank);
-		}
-		$rank++;
-	}
-
-	return 0;
+    $rank = 0;
+    foreach (explode(',', $set) as $v) {
+        if ($v == $num) {
+            return (++$rank);
+        }
+        $rank++;
+    }
+
+    return 0;
 }
 
 /**
@@ -212,7 +212,7 @@ 
  * @return int
  */
 function _sqlite_func_floor($a) {
-	return floor($a);
+    return floor($a);
 }
 
 
@@ -225,7 +225,7 @@ 
  * @return mixed
  */
 function _sqlite_func_if($bool, $oui, $non) {
-	return ($bool) ? $oui : $non;
+    return ($bool) ? $oui : $non;
 }
 
 
@@ -242,10 +242,10 @@ 
  * @return string
  */
 function _sqlite_func_insert($s, $index, $longueur, $chaine) {
-	return
-		substr($s, 0, $index)
-		. $chaine
-		. substr(substr($s, $index), $longueur);
+    return
+        substr($s, 0, $index)
+        . $chaine
+        . substr(substr($s, $index), $longueur);
 }
 
 
@@ -257,7 +257,7 @@ 
  * @return int
  */
 function _sqlite_func_instr($s, $search) {
-	return strpos($s, $search);
+    return strpos($s, $search);
 }
 
 
@@ -268,7 +268,7 @@ 
  * @return int
  */
 function _sqlite_func_least(...$args) {
-	return min($args);
+    return min($args);
 }
 
 
@@ -279,7 +279,7 @@ 
  * @return int
  */
 function _sqlite_func_greatest(...$args) {
-	return max($args);
+    return max($args);
 }
 
 
@@ -291,7 +291,7 @@ 
  * @return string
  */
 function _sqlite_func_left($s, $lenght) {
-	return substr($s, $lenght);
+    return substr($s, $lenght);
 }
 
 /**
@@ -301,13 +301,13 @@ 
  * @return string
  */
 function _sqlite_func_now($force_refresh = false) {
-	static $now = null;
-	if (is_null($now) or $force_refresh) {
-		$now = date('Y-m-d H:i:s');
-	}
+    static $now = null;
+    if (is_null($now) or $force_refresh) {
+        $now = date('Y-m-d H:i:s');
+    }
 
-	#spip_log("Passage avec NOW : $now | ".time(),'sqlite.'._LOG_DEBUG);
-	return $now;
+    #spip_log("Passage avec NOW : $now | ".time(),'sqlite.'._LOG_DEBUG);
+    return $now;
 }
 
 
@@ -320,7 +320,7 @@ 
  * @return string
  */
 function _sqlite_func_month($d) {
-	return _sqlite_func_date('m', $d);
+    return _sqlite_func_date('m', $d);
 }
 
 
@@ -333,10 +333,10 @@ 
  * @return string
  */
 function _sqlite_func_preg_replace($quoi, $cherche, $remplace) {
-	$return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
+    $return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
 
-	#spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    #spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 /**
@@ -349,26 +349,26 @@ 
  * @return string, l'extrait trouve.
  **/
 function _sqlite_func_extraire_multi($quoi, $lang) {
-	if (!defined('_EXTRAIRE_MULTI')) {
-		include_spip('inc/filtres');
-	}
-	if (!function_exists('approcher_langue')) {
-		include_spip('inc/lang');
-	}
-	if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
-		foreach ($regs as $reg) {
-			// chercher la version de la langue courante
-			$trads = extraire_trads($reg[1]);
-			if ($l = approcher_langue($trads, $lang)) {
-				$trad = $trads[$l];
-			} else {
-				$trad = reset($trads);
-			}
-			$quoi = str_replace($reg[0], $trad, $quoi);
-		}
-	}
-
-	return $quoi;
+    if (!defined('_EXTRAIRE_MULTI')) {
+        include_spip('inc/filtres');
+    }
+    if (!function_exists('approcher_langue')) {
+        include_spip('inc/lang');
+    }
+    if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
+        foreach ($regs as $reg) {
+            // chercher la version de la langue courante
+            $trads = extraire_trads($reg[1]);
+            if ($l = approcher_langue($trads, $lang)) {
+                $trad = $trads[$l];
+            } else {
+                $trad = reset($trads);
+            }
+            $quoi = str_replace($reg[0], $trad, $quoi);
+        }
+    }
+
+    return $quoi;
 }
 
 
@@ -378,7 +378,7 @@ 
  * @return float
  */
 function _sqlite_func_rand() {
-	return random_int(0, mt_getrandmax());
+    return random_int(0, mt_getrandmax());
 }
 
 
@@ -390,7 +390,7 @@ 
  * @return string
  */
 function _sqlite_func_right($s, $length) {
-	return substr($s, 0 - $length);
+    return substr($s, 0 - $length);
 }
 
 
@@ -402,17 +402,17 @@ 
  * @return bool
  */
 function _sqlite_func_regexp_match($cherche, $quoi) {
-	// optimiser un cas tres courant avec les requetes en base
-	if (!$quoi and !strlen($quoi)) {
-		return false;
-	}
-	// il faut enlever un niveau d'echappement pour être homogène à mysql
-	$cherche = str_replace('\\\\', '\\', $cherche);
-	$u = $GLOBALS['meta']['pcre_u'] ?? 'u';
-	$return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
-
-	#spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    // optimiser un cas tres courant avec les requetes en base
+    if (!$quoi and !strlen($quoi)) {
+        return false;
+    }
+    // il faut enlever un niveau d'echappement pour être homogène à mysql
+    $cherche = str_replace('\\\\', '\\', $cherche);
+    $u = $GLOBALS['meta']['pcre_u'] ?? 'u';
+    $return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
+
+    #spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 
@@ -427,8 +427,8 @@ 
  * @return string
  */
 function _sqlite_func_date_format($date, $conv) {
-	$conv = _sqlite_func_strftime_format_converter($conv);
-	return strftime($conv, is_int($date) ? $date : strtotime($date));
+    $conv = _sqlite_func_strftime_format_converter($conv);
+    return strftime($conv, is_int($date) ? $date : strtotime($date));
 }
 
 /**
@@ -444,28 +444,28 @@ 
  * @return void
  */
 function _sqlite_func_strftime_format_converter(string $conv): string {
-	// ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
-	// on ne sait pas en gérer certains...
-	static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
-	static $mysql_to_strftime = [
-		'%h' => '%I',
-		'%i' => '%M',
-		'%M' => '%B',
-		'%s' => '%S',
-		'%u' => '%U',
-		'%v' => '%V',
-		'%x' => '%G',
-	];
-	static $to_strftime = [];
-	if (!isset($to_strftime[$conv])) {
-		$count = 0;
-		str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
-		if ($count > 0) {
-			spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
-		}
-		$to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
-	}
-	return $to_strftime[$conv];
+    // ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
+    // on ne sait pas en gérer certains...
+    static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
+    static $mysql_to_strftime = [
+        '%h' => '%I',
+        '%i' => '%M',
+        '%M' => '%B',
+        '%s' => '%S',
+        '%u' => '%U',
+        '%v' => '%V',
+        '%x' => '%G',
+    ];
+    static $to_strftime = [];
+    if (!isset($to_strftime[$conv])) {
+        $count = 0;
+        str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
+        if ($count > 0) {
+            spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
+        }
+        $to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
+    }
+    return $to_strftime[$conv];
 }
 
 /**
@@ -479,11 +479,11 @@ 
  * @return int
  */
 function _sqlite_func_to_days($d) {
-	static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
-	$result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
+    static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
+    $result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
 
-	#spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
-	return $result;
+    #spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
+    return $result;
 }
 
 /**
@@ -495,13 +495,13 @@ 
  * @return string
  */
 function _sqlite_func_substring($string, $start, $len = null) {
-	// SQL compte a partir de 1, php a partir de 0
-	$start = ($start > 0) ? $start - 1 : $start;
-	if (is_null($len)) {
-		return substr($string, $start);
-	} else {
-		return substr($string, $start, $len);
-	}
+    // SQL compte a partir de 1, php a partir de 0
+    $start = ($start > 0) ? $start - 1 : $start;
+    if (is_null($len)) {
+        return substr($string, $start);
+    } else {
+        return substr($string, $start, $len);
+    }
 }
 
 /**
@@ -517,33 +517,33 @@ 
  * @return int
  */
 function _sqlite_timestampdiff($unit, $date1, $date2) {
-	$d1 = date_create($date1);
-	$d2 = date_create($date2);
-	$diff = date_diff($d1, $d2);
-	$inv = $diff->invert ? -1 : 1;
-	switch ($unit) {
-		case 'YEAR':
-			return $inv * $diff->y;
-		case 'QUARTER':
-			return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
-		case 'MONTH':
-			return $inv * (12 * $diff->y + $diff->m);
-		case 'WEEK':
-			return $inv * intval(floor($diff->days / 7));
-		case 'DAY':
-			#var_dump($inv*$diff->days);
-			return $inv * $diff->days;
-		case 'HOUR':
-			return $inv * (24 * $diff->days + $diff->h);
-		case 'MINUTE':
-			return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
-		case 'SECOND':
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
-		case 'MICROSECOND':
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1_000_000;
-	}
-
-	return 0;
+    $d1 = date_create($date1);
+    $d2 = date_create($date2);
+    $diff = date_diff($d1, $d2);
+    $inv = $diff->invert ? -1 : 1;
+    switch ($unit) {
+        case 'YEAR':
+            return $inv * $diff->y;
+        case 'QUARTER':
+            return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
+        case 'MONTH':
+            return $inv * (12 * $diff->y + $diff->m);
+        case 'WEEK':
+            return $inv * intval(floor($diff->days / 7));
+        case 'DAY':
+            #var_dump($inv*$diff->days);
+            return $inv * $diff->days;
+        case 'HOUR':
+            return $inv * (24 * $diff->days + $diff->h);
+        case 'MINUTE':
+            return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
+        case 'SECOND':
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
+        case 'MICROSECOND':
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1_000_000;
+    }
+
+    return 0;
 }
 
 /**
@@ -553,24 +553,24 @@ 
  * @return int
  */
 function _sqlite_func_unix_timestamp($d) {
-	static $mem = [];
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d];
-	}
-	if ($n++ > 100) {
-		$mem = [];
-		$n = 0;
-	}
-
-	//2005-12-02 20:53:53
-	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
-	if (!$d) {
-		return $mem[$d] = time();
-	}
-
-	// une pile plus grosse n'accelere pas le calcul
-	return $mem[$d] = strtotime($d);
+    static $mem = [];
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d];
+    }
+    if ($n++ > 100) {
+        $mem = [];
+        $n = 0;
+    }
+
+    //2005-12-02 20:53:53
+    #spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
+    if (!$d) {
+        return $mem[$d] = time();
+    }
+
+    // une pile plus grosse n'accelere pas le calcul
+    return $mem[$d] = strtotime($d);
 }
 
 
@@ -583,7 +583,7 @@ 
  * @return string
  */
 function _sqlite_func_year($d) {
-	return _sqlite_func_date('Y', $d);
+    return _sqlite_func_date('Y', $d);
 }
 
 /**
@@ -596,20 +596,20 @@ 
  * @return string
  */
 function _sqlite_func_date($quoi, $d) {
-	static $mem = [];
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d][$quoi];
-	}
-	if ($n++ > 100) {
-		$mem = [];
-		$n = 0;
-	}
-
-	$dec = date('Y-m-d', _sqlite_func_unix_timestamp($d));
-	$mem[$d] = ['Y' => substr($dec, 0, 4), 'm' => substr($dec, 5, 2), 'd' => substr($dec, 8, 2)];
-
-	return $mem[$d][$quoi];
+    static $mem = [];
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d][$quoi];
+    }
+    if ($n++ > 100) {
+        $mem = [];
+        $n = 0;
+    }
+
+    $dec = date('Y-m-d', _sqlite_func_unix_timestamp($d));
+    $mem[$d] = ['Y' => substr($dec, 0, 4), 'm' => substr($dec, 5, 2), 'd' => substr($dec, 8, 2)];
+
+    return $mem[$d][$quoi];
 }
 
 /**
@@ -618,5 +618,5 @@ 
  * @return void
  */
 function _sqlite_func_vide() {
-	return;
+    return;
 }

ecrire/req/mysql.php

Indentation +861 added lines, -861 removed lines

@@ -20,11 +20,11 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_MYSQL_NOPLANES')) {
-	define('_MYSQL_NOPLANES', true);
+    define('_MYSQL_NOPLANES', true);
 }
 
 /**
@@ -41,112 +41,112 @@ 
  *     - tableau décrivant la connexion sinon
  */
 function req_mysql_dist($host, $port, $login, $pass, $db = '', $prefixe = '') {
-	if (!extension_loaded(\mysqli::class)) {
-		return false;
-	}
-
-	// si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
-	try {
-		if (
-			$port and !is_numeric($socket = $port)
-			and (!$host or $host === 'localhost')
-		) {
-			$link = @mysqli_connect($host, $login, $pass, '', null, $socket);
-		} elseif ($port) {
-			$link = @mysqli_connect($host, $login, $pass, '', $port);
-		} else {
-			$link = @mysqli_connect($host, $login, $pass);
-		}
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		$link = false;
-	}
-
-	if (!$link) {
-		spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
-
-		return false;
-	}
-	$last = '';
-	if (!$db) {
-		$ok = $link;
-		$db = 'spip';
-	} else {
-		$ok = mysqli_select_db($link, $db);
-		if (
-			defined('_MYSQL_SET_SQL_MODE')
-			or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
-		) {
-			mysqli_query($link, $last = "set sql_mode=''");
-		}
-	}
-
-	spip_log(
-		"Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? 'operationnelle' : 'impossible'),
-		_LOG_DEBUG
-	);
-
-	return !$ok ? false : [
-		'db' => $db,
-		'last' => $last,
-		'prefixe' => $prefixe ?: $db,
-		'link' => $link,
-		'total_requetes' => 0,
-	];
+    if (!extension_loaded(\mysqli::class)) {
+        return false;
+    }
+
+    // si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
+    try {
+        if (
+            $port and !is_numeric($socket = $port)
+            and (!$host or $host === 'localhost')
+        ) {
+            $link = @mysqli_connect($host, $login, $pass, '', null, $socket);
+        } elseif ($port) {
+            $link = @mysqli_connect($host, $login, $pass, '', $port);
+        } else {
+            $link = @mysqli_connect($host, $login, $pass);
+        }
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        $link = false;
+    }
+
+    if (!$link) {
+        spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
+
+        return false;
+    }
+    $last = '';
+    if (!$db) {
+        $ok = $link;
+        $db = 'spip';
+    } else {
+        $ok = mysqli_select_db($link, $db);
+        if (
+            defined('_MYSQL_SET_SQL_MODE')
+            or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
+        ) {
+            mysqli_query($link, $last = "set sql_mode=''");
+        }
+    }
+
+    spip_log(
+        "Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? 'operationnelle' : 'impossible'),
+        _LOG_DEBUG
+    );
+
+    return !$ok ? false : [
+        'db' => $db,
+        'last' => $last,
+        'prefixe' => $prefixe ?: $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    ];
 }
 
 
 $GLOBALS['spip_mysql_functions_1'] = [
-	'alter' => 'spip_mysql_alter',
-	'count' => 'spip_mysql_count',
-	'countsel' => 'spip_mysql_countsel',
-	'create' => 'spip_mysql_create',
-	'create_base' => 'spip_mysql_create_base',
-	'create_view' => 'spip_mysql_create_view',
-	'date_proche' => 'spip_mysql_date_proche',
-	'delete' => 'spip_mysql_delete',
-	'drop_table' => 'spip_mysql_drop_table',
-	'drop_view' => 'spip_mysql_drop_view',
-	'errno' => 'spip_mysql_errno',
-	'error' => 'spip_mysql_error',
-	'explain' => 'spip_mysql_explain',
-	'fetch' => 'spip_mysql_fetch',
-	'seek' => 'spip_mysql_seek',
-	'free' => 'spip_mysql_free',
-	'hex' => 'spip_mysql_hex',
-	'in' => 'spip_mysql_in',
-	'insert' => 'spip_mysql_insert',
-	'insertq' => 'spip_mysql_insertq',
-	'insertq_multi' => 'spip_mysql_insertq_multi',
-	'listdbs' => 'spip_mysql_listdbs',
-	'multi' => 'spip_mysql_multi',
-	'optimize' => 'spip_mysql_optimize',
-	'query' => 'spip_mysql_query',
-	'quote' => 'spip_mysql_quote',
-	'replace' => 'spip_mysql_replace',
-	'replace_multi' => 'spip_mysql_replace_multi',
-	'repair' => 'spip_mysql_repair',
-	'select' => 'spip_mysql_select',
-	'selectdb' => 'spip_mysql_selectdb',
-	'set_charset' => 'spip_mysql_set_charset',
-	'get_charset' => 'spip_mysql_get_charset',
-	'showbase' => 'spip_mysql_showbase',
-	'showtable' => 'spip_mysql_showtable',
-	'table_exists' => 'spip_mysql_table_exists',
-	'update' => 'spip_mysql_update',
-	'updateq' => 'spip_mysql_updateq',
-
-	// association de chaque nom http d'un charset aux couples MySQL
-	'charsets' => [
-		'cp1250' => ['charset' => 'cp1250', 'collation' => 'cp1250_general_ci'],
-		'cp1251' => ['charset' => 'cp1251', 'collation' => 'cp1251_general_ci'],
-		'cp1256' => ['charset' => 'cp1256', 'collation' => 'cp1256_general_ci'],
-		'iso-8859-1' => ['charset' => 'latin1', 'collation' => 'latin1_swedish_ci'],
+    'alter' => 'spip_mysql_alter',
+    'count' => 'spip_mysql_count',
+    'countsel' => 'spip_mysql_countsel',
+    'create' => 'spip_mysql_create',
+    'create_base' => 'spip_mysql_create_base',
+    'create_view' => 'spip_mysql_create_view',
+    'date_proche' => 'spip_mysql_date_proche',
+    'delete' => 'spip_mysql_delete',
+    'drop_table' => 'spip_mysql_drop_table',
+    'drop_view' => 'spip_mysql_drop_view',
+    'errno' => 'spip_mysql_errno',
+    'error' => 'spip_mysql_error',
+    'explain' => 'spip_mysql_explain',
+    'fetch' => 'spip_mysql_fetch',
+    'seek' => 'spip_mysql_seek',
+    'free' => 'spip_mysql_free',
+    'hex' => 'spip_mysql_hex',
+    'in' => 'spip_mysql_in',
+    'insert' => 'spip_mysql_insert',
+    'insertq' => 'spip_mysql_insertq',
+    'insertq_multi' => 'spip_mysql_insertq_multi',
+    'listdbs' => 'spip_mysql_listdbs',
+    'multi' => 'spip_mysql_multi',
+    'optimize' => 'spip_mysql_optimize',
+    'query' => 'spip_mysql_query',
+    'quote' => 'spip_mysql_quote',
+    'replace' => 'spip_mysql_replace',
+    'replace_multi' => 'spip_mysql_replace_multi',
+    'repair' => 'spip_mysql_repair',
+    'select' => 'spip_mysql_select',
+    'selectdb' => 'spip_mysql_selectdb',
+    'set_charset' => 'spip_mysql_set_charset',
+    'get_charset' => 'spip_mysql_get_charset',
+    'showbase' => 'spip_mysql_showbase',
+    'showtable' => 'spip_mysql_showtable',
+    'table_exists' => 'spip_mysql_table_exists',
+    'update' => 'spip_mysql_update',
+    'updateq' => 'spip_mysql_updateq',
+
+    // association de chaque nom http d'un charset aux couples MySQL
+    'charsets' => [
+        'cp1250' => ['charset' => 'cp1250', 'collation' => 'cp1250_general_ci'],
+        'cp1251' => ['charset' => 'cp1251', 'collation' => 'cp1251_general_ci'],
+        'cp1256' => ['charset' => 'cp1256', 'collation' => 'cp1256_general_ci'],
+        'iso-8859-1' => ['charset' => 'latin1', 'collation' => 'latin1_swedish_ci'],
 //'iso-8859-6'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'iso-8859-9' => ['charset' => 'latin5', 'collation' => 'latin5_turkish_ci'],
+        'iso-8859-9' => ['charset' => 'latin5', 'collation' => 'latin5_turkish_ci'],
 //'iso-8859-15'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci']
-	]
+        'utf-8' => ['charset' => 'utf8', 'collation' => 'utf8_general_ci']
+    ]
 ];
 
 
@@ -157,9 +157,9 @@ 
  * @return Object Information de connexion pour mysqli
  */
 function _mysql_link($serveur = '') {
-	$link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ?: 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -172,10 +172,10 @@ 
  * @return mysqli_result|bool Jeu de résultats pour fetch()
  */
 function spip_mysql_set_charset($charset, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	spip_log('changement de charset sql : ' . 'SET NAMES ' . _q($charset), _LOG_DEBUG);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    spip_log('changement de charset sql : ' . 'SET NAMES ' . _q($charset), _LOG_DEBUG);
 
-	return mysqli_query($connexion['link'], $connexion['last'] = 'SET NAMES ' . _q($charset));
+    return mysqli_query($connexion['link'], $connexion['last'] = 'SET NAMES ' . _q($charset));
 }
 
 
@@ -188,11 +188,11 @@ 
  * @return array Description du charset (son nom est dans 'charset')
  */
 function spip_mysql_get_charset($charset = [], $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$connexion['last'] = $c = 'SHOW CHARACTER SET'
-		. (!$charset ? '' : (' LIKE ' . _q($charset['charset'])));
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $connexion['last'] = $c = 'SHOW CHARACTER SET'
+        . (!$charset ? '' : (' LIKE ' . _q($charset['charset'])));
 
-	return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
+    return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
 }
 
 /**
@@ -208,80 +208,80 @@ 
  */
 function spip_mysql_query($query, $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = _mysql_traite_query($query, $db, $prefixe);
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile']) or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	$connexion['total_requetes']++;
-
-	// ajouter un debug utile dans log/mysql-slow.log ?
-	$debug = '';
-	if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
-		if (isset($GLOBALS['debug']['aucasou'])) {
-			[, $id, , $infos] = $GLOBALS['debug']['aucasou'];
-			$debug .= "BOUCLE$id @ " . ($infos[0] ?? '') . ' | ';
-		}
-		if (isset($_SERVER['REQUEST_URI'])) {
-			$debug .= $_SERVER['REQUEST_URI'];
-		}
-		if (!empty($GLOBALS['ip'])) {
-			$debug .= ' + ' . $GLOBALS['ip'];
-		}
-		$debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
-	}
-	try {
-		$r = mysqli_query($link, $query . $debug);
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		$r = false;
-		// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-		// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-	}
-
-	//Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
-	if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
-		if ($e == 2006) { //Si Gone Away on relance une connexion vierge
-			//Fermer la connexion defaillante
-			mysqli_close($connexion['link']);
-			unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
-			//Relancer une connexion vierge
-			spip_connect($serveur);
-			$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-			$link = $connexion['link'];
-			//On retente au cas où
-			try {
-				$r = mysqli_query($link, $query . $debug);
-			} catch (\mysqli_sql_exception $e) {
-				spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-				$r = false;
-				// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-				// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-			}
-		}
-	}
-
-	// Log de l'erreur eventuelle
-	if ($e = spip_mysql_errno($serveur)) {
-		// et du fautif
-		$e .= spip_mysql_error($query, $serveur);
-	} 
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = _mysql_traite_query($query, $db, $prefixe);
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile']) or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    $connexion['total_requetes']++;
+
+    // ajouter un debug utile dans log/mysql-slow.log ?
+    $debug = '';
+    if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
+        if (isset($GLOBALS['debug']['aucasou'])) {
+            [, $id, , $infos] = $GLOBALS['debug']['aucasou'];
+            $debug .= "BOUCLE$id @ " . ($infos[0] ?? '') . ' | ';
+        }
+        if (isset($_SERVER['REQUEST_URI'])) {
+            $debug .= $_SERVER['REQUEST_URI'];
+        }
+        if (!empty($GLOBALS['ip'])) {
+            $debug .= ' + ' . $GLOBALS['ip'];
+        }
+        $debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
+    }
+    try {
+        $r = mysqli_query($link, $query . $debug);
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        $r = false;
+        // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+        // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+    }
+
+    //Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
+    if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
+        if ($e == 2006) { //Si Gone Away on relance une connexion vierge
+            //Fermer la connexion defaillante
+            mysqli_close($connexion['link']);
+            unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
+            //Relancer une connexion vierge
+            spip_connect($serveur);
+            $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+            $link = $connexion['link'];
+            //On retente au cas où
+            try {
+                $r = mysqli_query($link, $query . $debug);
+            } catch (\mysqli_sql_exception $e) {
+                spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+                $r = false;
+                // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+                // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+            }
+        }
+    }
+
+    // Log de l'erreur eventuelle
+    if ($e = spip_mysql_errno($serveur)) {
+        // et du fautif
+        $e .= spip_mysql_error($query, $serveur);
+    } 
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 /**
@@ -296,12 +296,12 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_alter($query, $serveur = '', $requeter = true) {
-	// ici on supprime les ` entourant le nom de table pour permettre
-	// la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
-	// d'utiliser ceux-ci, copie-colle de phpmyadmin
-	$query = preg_replace(',^TABLE\s*`([^`]*)`,i', "TABLE \\1", $query);
+    // ici on supprime les ` entourant le nom de table pour permettre
+    // la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
+    // d'utiliser ceux-ci, copie-colle de phpmyadmin
+    $query = preg_replace(',^TABLE\s*`([^`]*)`,i', "TABLE \\1", $query);
 
-	return spip_mysql_query('ALTER ' . $query, $serveur, $requeter); # i.e. que PG se debrouille
+    return spip_mysql_query('ALTER ' . $query, $serveur, $requeter); # i.e. que PG se debrouille
 }
 
 
@@ -314,9 +314,9 @@ 
  * @return bool            Toujours true
  */
 function spip_mysql_optimize($table, $serveur = '', $requeter = true) {
-	spip_mysql_query('OPTIMIZE TABLE ' . $table);
+    spip_mysql_query('OPTIMIZE TABLE ' . $table);
 
-	return true;
+    return true;
 }
 
 
@@ -329,18 +329,18 @@ 
  * @return array           Tableau de l'explication
  */
 function spip_mysql_explain($query, $serveur = '', $requeter = true) {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return [];
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
-	$r = mysqli_query($link, $query);
-
-	return spip_mysql_fetch($r, null, $serveur);
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return [];
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
+    $r = mysqli_query($link, $query);
+
+    return spip_mysql_fetch($r, null, $serveur);
 }
 
 
@@ -369,35 +369,35 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = '',
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = '',
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
 
-	$from = (!is_array($from) ? $from : spip_mysql_select_as($from));
-	$query =
-		calculer_mysql_expression('SELECT', $select, ', ')
-		. calculer_mysql_expression('FROM', $from, ', ')
-		. calculer_mysql_expression('WHERE', $where)
-		. calculer_mysql_expression('GROUP BY', $groupby, ',')
-		. calculer_mysql_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
-		. ($limit ? "\nLIMIT $limit" : '');
+    $from = (!is_array($from) ? $from : spip_mysql_select_as($from));
+    $query =
+        calculer_mysql_expression('SELECT', $select, ', ')
+        . calculer_mysql_expression('FROM', $from, ', ')
+        . calculer_mysql_expression('WHERE', $where)
+        . calculer_mysql_expression('GROUP BY', $groupby, ',')
+        . calculer_mysql_expression('HAVING', $having)
+        . ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
+        . ($limit ? "\nLIMIT $limit" : '');
 
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) {
-		return $query;
-	}
-	$r = spip_mysql_query($query, $serveur, $requeter);
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) {
+        return $query;
+    }
+    $r = spip_mysql_query($query, $serveur, $requeter);
 
-	return $r ?: $query;
+    return $r ?: $query;
 }
 
 
@@ -414,7 +414,7 @@ 
  * @return string Texte du orderby préparé
  */
 function spip_mysql_order($orderby) {
-	return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
+    return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
 }
 
 
@@ -437,26 +437,26 @@ 
  *     Contrainte pour clause WHERE
  */
 function calculer_mysql_where($v) {
-	if (!is_array($v)) {
-		return $v;
-	}
-
-	$op = array_shift($v);
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = calculer_mysql_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = calculer_mysql_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 = calculer_mysql_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = calculer_mysql_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 /**
@@ -471,21 +471,21 @@ 
  * @return string            Texte de l'expression, une partie donc, du texte la requête.
  */
 function calculer_mysql_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 . join("\n\t$join ", array_map('calculer_mysql_where', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    $exp = "\n$expression ";
+
+    if (!is_array($v)) {
+        return $exp . $v;
+    } else {
+        if (strtoupper($join) === 'AND') {
+            return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -496,26 +496,26 @@ 
  * @return string Sélection de colonnes pour une clause SELECT
  */
 function spip_mysql_select_as($args) {
-	$res = '';
-	foreach ($args as $k => $v) {
-		if (substr($k, -1) == '@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$res .= '  ' . $v;
-		} else {
-			if (!is_numeric($k)) {
-				$p = strpos($v, ' ');
-				if ($p) {
-					$v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
-				} else {
-					$v .= " AS `$k`";
-				}
-			}
-			$res .= ', ' . $v;
-		}
-	}
-
-	return substr($res, 2);
+    $res = '';
+    foreach ($args as $k => $v) {
+        if (substr($k, -1) == '@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $res .= '  ' . $v;
+        } else {
+            if (!is_numeric($k)) {
+                $p = strpos($v, ' ');
+                if ($p) {
+                    $v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
+                } else {
+                    $v .= " AS `$k`";
+                }
+            }
+            $res .= ', ' . $v;
+        }
+    }
+
+    return substr($res, 2);
 }
 
 
@@ -540,58 +540,58 @@ 
  */
 function _mysql_traite_query($query, $db = '', $prefixe = '', $echappe_textes = true) {
 
-	if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
-		$pref = '`' . $db . '`.';
-	} else {
-		$pref = '';
-	}
-
-	if ($prefixe) {
-		$pref .= $prefixe . '_';
-	}
-
-	if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
-		$suite = '';
-	} else {
-		$suite = strstr($query, (string) $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-		// propager le prefixe en cas de requete imbriquee
-		// il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
-		// modifier une requete qui est en fait juste du texte dans un champ
-		if (stripos($suite, 'SELECT') !== false) {
-			if ($echappe_textes) {
-				[$suite_echap, $textes] = query_echappe_textes($suite);
-			}
-			else {
-				$suite_echap = $suite;
-			}
-			if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite_echap, $r)) {
-				$suite_echap = $r[1] . _mysql_traite_query($r[2], $db, $prefixe, false);
-				if ($echappe_textes) {
-					$suite = query_reinjecte_textes($suite_echap, $textes);
-				}
-				else {
-					$suite = $suite_echap;
-				}
-			}
-		}
-	}
-	$r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
-
-	// en option, remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	// remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	if (
-		defined('_MYSQL_NOPLANES')
-		and _MYSQL_NOPLANES
-		and !empty($GLOBALS['meta']['charset_sql_connexion'])
-		and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
-	) {
-		include_spip('inc/charsets');
-		$r = utf8_noplanes($r);
-	}
-
-	#spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
-	return $r;
+    if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
+        $pref = '`' . $db . '`.';
+    } else {
+        $pref = '';
+    }
+
+    if ($prefixe) {
+        $pref .= $prefixe . '_';
+    }
+
+    if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
+        $suite = '';
+    } else {
+        $suite = strstr($query, (string) $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+        // propager le prefixe en cas de requete imbriquee
+        // il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
+        // modifier une requete qui est en fait juste du texte dans un champ
+        if (stripos($suite, 'SELECT') !== false) {
+            if ($echappe_textes) {
+                [$suite_echap, $textes] = query_echappe_textes($suite);
+            }
+            else {
+                $suite_echap = $suite;
+            }
+            if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite_echap, $r)) {
+                $suite_echap = $r[1] . _mysql_traite_query($r[2], $db, $prefixe, false);
+                if ($echappe_textes) {
+                    $suite = query_reinjecte_textes($suite_echap, $textes);
+                }
+                else {
+                    $suite = $suite_echap;
+                }
+            }
+        }
+    }
+    $r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
+
+    // en option, remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    // remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    if (
+        defined('_MYSQL_NOPLANES')
+        and _MYSQL_NOPLANES
+        and !empty($GLOBALS['meta']['charset_sql_connexion'])
+        and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
+    ) {
+        include_spip('inc/charsets');
+        $r = utf8_noplanes($r);
+    }
+
+    #spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
+    return $r;
 }
 
 /**
@@ -609,13 +609,13 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_selectdb($db, $serveur = '', $requeter = true) {
-	$link = _mysql_link($serveur);
-	$ok = mysqli_select_db($link, $db);
-	if (!$ok) {
-		spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
-	}
+    $link = _mysql_link($serveur);
+    $ok = mysqli_select_db($link, $db);
+    if (!$ok) {
+        spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
+    }
 
-	return $ok;
+    return $ok;
 }
 
 
@@ -636,14 +636,14 @@ 
  *     Liste de noms de bases de données
  **/
 function spip_mysql_listdbs($serveur = '', $requeter = true) {
-	$dbs = [];
-	if ($res = spip_mysql_query('SHOW DATABASES', $serveur)) {
-		while ($row = mysqli_fetch_assoc($res)) {
-			$dbs[] = $row['Database'];
-		}
-	}
-
-	return $dbs;
+    $dbs = [];
+    if ($res = spip_mysql_query('SHOW DATABASES', $serveur)) {
+        while ($row = mysqli_fetch_assoc($res)) {
+            $dbs[] = $row['Database'];
+        }
+    }
+
+    return $dbs;
 }
 
 
@@ -666,73 +666,73 @@ 
  *     - true si la requête réussie, false sinon.
  */
 function spip_mysql_create(
-	$nom,
-	$champs,
-	$cles,
-	$autoinc = false,
-	$temporary = false,
-	$serveur = '',
-	$requeter = true
+    $nom,
+    $champs,
+    $cles,
+    $autoinc = false,
+    $temporary = false,
+    $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;
-	}
-
-	$res = spip_mysql_query('SELECT version() as v', $serveur);
-	if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
-		spip_mysql_query("SET sql_mode=''", $serveur);
-	}
-
-	foreach ($cles as $k => $v) {
-		$keys .= "$s\n\t\t$k ($v)";
-		if ($k == 'PRIMARY KEY') {
-			$p = $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) {
-		$v = _mysql_remplacements_definitions_table($v);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
-			if (
-				preg_match(',(char|text),i', $defs[1])
-				and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
-			) {
-				$v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
-			}
-		}
-
-		$query .= "$s\n\t\t$k $v"
-			. (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
-				? ' auto_increment'
-				: ''
-			);
-		$s = ',';
-	}
-	$temporary = $temporary ? 'TEMPORARY' : '';
-	$q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ')'
-		. ' ENGINE=MyISAM'
-		. ($character_set ? " DEFAULT $character_set" : '')
-		. "\n";
-
-	return spip_mysql_query($q, $serveur);
+    $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;
+    }
+
+    $res = spip_mysql_query('SELECT version() as v', $serveur);
+    if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
+        spip_mysql_query("SET sql_mode=''", $serveur);
+    }
+
+    foreach ($cles as $k => $v) {
+        $keys .= "$s\n\t\t$k ($v)";
+        if ($k == 'PRIMARY KEY') {
+            $p = $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) {
+        $v = _mysql_remplacements_definitions_table($v);
+        if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
+            if (
+                preg_match(',(char|text),i', $defs[1])
+                and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
+            ) {
+                $v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
+            }
+        }
+
+        $query .= "$s\n\t\t$k $v"
+            . (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
+                ? ' auto_increment'
+                : ''
+            );
+        $s = ',';
+    }
+    $temporary = $temporary ? 'TEMPORARY' : '';
+    $q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ')'
+        . ' ENGINE=MyISAM'
+        . ($character_set ? " DEFAULT $character_set" : '')
+        . "\n";
+
+    return spip_mysql_query($q, $serveur);
 }
 
 
@@ -745,25 +745,25 @@ 
  *     Définition SQL adaptée pour MySQL d'un champ de table
  */
 function _mysql_remplacements_definitions_table($query) {
-	// quelques remplacements
-	$num = '(\s*\([0-9]*\))?';
-	$enum = '(\s*\([^\)]*\))?';
-
-	$remplace = [
-		'/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
-		'/^TIMESTAMP($| NULL DEFAULT NULL)/is' => 'TIMESTAMP DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP',
-	];
-
-	if (is_string($query)) {
-		$query = preg_replace(array_keys($remplace), $remplace, $query);
-	} elseif (is_array($query)) {
-		$keys = array_keys($remplace);
-		foreach ($query as $k => $q) {
-			$query[$k] = preg_replace($keys, $remplace, $q);
-		}
-	}
-
-	return $query;
+    // quelques remplacements
+    $num = '(\s*\([0-9]*\))?';
+    $enum = '(\s*\([^\)]*\))?';
+
+    $remplace = [
+        '/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
+        '/^TIMESTAMP($| NULL DEFAULT NULL)/is' => 'TIMESTAMP DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP',
+    ];
+
+    if (is_string($query)) {
+        $query = preg_replace(array_keys($remplace), $remplace, $query);
+    } elseif (is_array($query)) {
+        $keys = array_keys($remplace);
+        foreach ($query as $k => $q) {
+            $query[$k] = preg_replace($keys, $remplace, $q);
+        }
+    }
+
+    return $query;
 }
 
 
@@ -776,7 +776,7 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_mysql_create_base($nom, $serveur = '', $requeter = true) {
-	return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
+    return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
 }
 
 
@@ -797,19 +797,19 @@ 
  *     - string texte de la requête si $requeter vaut false
  */
 function spip_mysql_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)", _LOG_ERREUR);
+    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)", _LOG_ERREUR);
 
-		return false;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_mysql_query($query, $serveur, $requeter);
+    return spip_mysql_query($query, $serveur, $requeter);
 }
 
 
@@ -825,11 +825,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_table($table, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
+    return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
 }
 
 /**
@@ -844,11 +844,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -865,7 +865,7 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_mysql_showbase($match, $serveur = '', $requeter = true) {
-	return spip_mysql_query('SHOW TABLES LIKE ' . _q($match), $serveur, $requeter);
+    return spip_mysql_query('SHOW TABLES LIKE ' . _q($match), $serveur, $requeter);
 }
 
 /**
@@ -881,7 +881,7 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_repair($table, $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
+    return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
 }
 
 /**
@@ -899,12 +899,12 @@ 
  *     - string : requete sql, si $requeter = true
  **/
 function spip_mysql_table_exists(string $table, $serveur = '', $requeter = true) {
-	$r = spip_mysql_query('SHOW TABLES LIKE ' . _q($table), $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	$res = spip_mysql_fetch($r);
-	return (bool) $res;
+    $r = spip_mysql_query('SHOW TABLES LIKE ' . _q($table), $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    $res = spip_mysql_fetch($r);
+    return (bool) $res;
 }
 
 define('_MYSQL_RE_SHOW_TABLE', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -927,86 +927,86 @@ 
  *     - array description de la table sinon
  */
 function spip_mysql_showtable($nom_table, $serveur = '', $requeter = true) {
-	$s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
-	if (!$s) {
-		return '';
-	}
-	if (!$requeter) {
-		return $s;
-	}
-
-	[, $a] = mysqli_fetch_array($s, MYSQLI_NUM);
-	if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
-		$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 = [];
-		foreach (preg_split('/,\s*`/', $desc) as $v) {
-			preg_match('/^\s*`?([^`]*)`\s*(.*)/', $v, $r);
-			$fields[strtolower($r[1])] = $r[2];
-		}
-		$keys = [];
-
-		foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
-			if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', $v, $r)) {
-				$k = str_replace('`', '', trim($r[1]));
-				$t = strtolower(str_replace('`', '', $r[2]));
-				if ($k && !isset($keys[$k])) {
-					$keys[$k] = $t;
-				} else {
-					$keys[] = $t;
-				}
-			}
-		}
-		spip_mysql_free($s);
-
-		return ['field' => $fields, 'key' => $keys];
-	}
-
-	$res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
-	if ($res) {
-		$nfields = [];
-		$nkeys = [];
-		while ($val = spip_mysql_fetch($res)) {
-			$nfields[$val['Field']] = $val['Type'];
-			if ($val['Null'] == 'NO') {
-				$nfields[$val['Field']] .= ' NOT NULL';
-			}
-			if ($val['Default'] === '0' || $val['Default']) {
-				if (preg_match('/[A-Z_]/', $val['Default'])) {
-					$nfields[$val['Field']] .= ' DEFAULT ' . $val['Default'];
-				} else {
-					$nfields[$val['Field']] .= " DEFAULT '" . $val['Default'] . "'";
-				}
-			}
-			if ($val['Extra']) {
-				$nfields[$val['Field']] .= ' ' . $val['Extra'];
-			}
-			if ($val['Key'] == 'PRI') {
-				$nkeys['PRIMARY KEY'] = $val['Field'];
-			} else {
-				if ($val['Key'] == 'MUL') {
-					$nkeys['KEY ' . $val['Field']] = $val['Field'];
-				} else {
-					if ($val['Key'] == 'UNI') {
-						$nkeys['UNIQUE KEY ' . $val['Field']] = $val['Field'];
-					}
-				}
-			}
-		}
-		spip_mysql_free($res);
-
-		return ['field' => $nfields, 'key' => $nkeys];
-	}
-
-	return '';
+    $s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
+    if (!$s) {
+        return '';
+    }
+    if (!$requeter) {
+        return $s;
+    }
+
+    [, $a] = mysqli_fetch_array($s, MYSQLI_NUM);
+    if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
+        $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 = [];
+        foreach (preg_split('/,\s*`/', $desc) as $v) {
+            preg_match('/^\s*`?([^`]*)`\s*(.*)/', $v, $r);
+            $fields[strtolower($r[1])] = $r[2];
+        }
+        $keys = [];
+
+        foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
+            if (preg_match('/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/', $v, $r)) {
+                $k = str_replace('`', '', trim($r[1]));
+                $t = strtolower(str_replace('`', '', $r[2]));
+                if ($k && !isset($keys[$k])) {
+                    $keys[$k] = $t;
+                } else {
+                    $keys[] = $t;
+                }
+            }
+        }
+        spip_mysql_free($s);
+
+        return ['field' => $fields, 'key' => $keys];
+    }
+
+    $res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
+    if ($res) {
+        $nfields = [];
+        $nkeys = [];
+        while ($val = spip_mysql_fetch($res)) {
+            $nfields[$val['Field']] = $val['Type'];
+            if ($val['Null'] == 'NO') {
+                $nfields[$val['Field']] .= ' NOT NULL';
+            }
+            if ($val['Default'] === '0' || $val['Default']) {
+                if (preg_match('/[A-Z_]/', $val['Default'])) {
+                    $nfields[$val['Field']] .= ' DEFAULT ' . $val['Default'];
+                } else {
+                    $nfields[$val['Field']] .= " DEFAULT '" . $val['Default'] . "'";
+                }
+            }
+            if ($val['Extra']) {
+                $nfields[$val['Field']] .= ' ' . $val['Extra'];
+            }
+            if ($val['Key'] == 'PRI') {
+                $nkeys['PRIMARY KEY'] = $val['Field'];
+            } else {
+                if ($val['Key'] == 'MUL') {
+                    $nkeys['KEY ' . $val['Field']] = $val['Field'];
+                } else {
+                    if ($val['Key'] == 'UNI') {
+                        $nkeys['UNIQUE KEY ' . $val['Field']] = $val['Field'];
+                    }
+                }
+            }
+        }
+        spip_mysql_free($res);
+
+        return ['field' => $nfields, 'key' => $nkeys];
+    }
+
+    return '';
 }
 
 
@@ -1022,12 +1022,12 @@ 
  * @return array           Ligne de résultat
  */
 function spip_mysql_fetch($r, $t = '', $serveur = '', $requeter = true) {
-	if (!$t) {
-		$t = \MYSQLI_ASSOC;
-	}
-	if ($r) {
-		return mysqli_fetch_array($r, $t);
-	}
+    if (!$t) {
+        $t = \MYSQLI_ASSOC;
+    }
+    if ($r) {
+        return mysqli_fetch_array($r, $t);
+    }
 }
 
 /**
@@ -1040,9 +1040,9 @@ 
  * @return bool True si déplacement réussi, false sinon.
  **/
 function spip_mysql_seek($r, $row_number, $serveur = '', $requeter = true) {
-	if ($r and mysqli_num_rows($r)) {
-		return mysqli_data_seek($r, $row_number);
-	}
+    if ($r and mysqli_num_rows($r)) {
+        return mysqli_data_seek($r, $row_number);
+    }
 }
 
 
@@ -1060,26 +1060,26 @@ 
  *     - int Nombre de lignes (0 si la requête n'a pas réussie)
  **/
 function spip_mysql_countsel(
-	$from = [],
-	$where = [],
-	$groupby = '',
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = '',
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-
-	$r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	if (!$r instanceof mysqli_result) {
-		return 0;
-	}
-	[$c] = mysqli_fetch_array($r, MYSQLI_NUM);
-	mysqli_free_result($r);
-
-	return $c;
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+
+    $r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    if (!$r instanceof mysqli_result) {
+        return 0;
+    }
+    [$c] = mysqli_fetch_array($r, MYSQLI_NUM);
+    mysqli_free_result($r);
+
+    return $c;
 }
 
 
@@ -1102,16 +1102,16 @@ 
  *     Erreur eventuelle
  **/
 function spip_mysql_error($query = '', $serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
-	$s = mysqli_error($link);
-	if ($s) {
-		$trace = debug_backtrace();
-		if ($trace[0]['function'] != 'spip_mysql_error') {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
-		}
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
+    $s = mysqli_error($link);
+    if ($s) {
+        $trace = debug_backtrace();
+        if ($trace[0]['function'] != 'spip_mysql_error') {
+            spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
+        }
+    }
+
+    return $s;
 }
 
 
@@ -1126,18 +1126,18 @@ 
  *     0, pas d'erreur. Autre, numéro de l'erreur.
  **/
 function spip_mysql_errno($serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ?: 0]['link'];
-	$s = mysqli_errno($link);
-	// 2006 MySQL server has gone away
-	// 2013 Lost connection to MySQL server during query
-	if (in_array($s, [2006, 2013])) {
-		define('spip_interdire_cache', true);
-	}
-	if ($s) {
-		spip_log("Erreur mysql $s", _LOG_ERREUR);
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ?: 0]['link'];
+    $s = mysqli_errno($link);
+    // 2006 MySQL server has gone away
+    // 2013 Lost connection to MySQL server during query
+    if (in_array($s, [2006, 2013])) {
+        define('spip_interdire_cache', true);
+    }
+    if ($s) {
+        spip_log("Erreur mysql $s", _LOG_ERREUR);
+    }
+
+    return $s;
 }
 
 
@@ -1151,9 +1151,9 @@ 
  * @return int               Nombre de lignes
  */
 function spip_mysql_count($r, $serveur = '', $requeter = true) {
-	if ($r) {
-		return mysqli_num_rows($r);
-	}
+    if ($r) {
+        return mysqli_num_rows($r);
+    }
 }
 
 
@@ -1169,7 +1169,7 @@ 
  * @return bool              True si réussi
  */
 function spip_mysql_free($r, $serveur = '', $requeter = true) {
-	return (($r instanceof mysqli_result) ? mysqli_free_result($r) : false);
+    return (($r instanceof mysqli_result) ? mysqli_free_result($r) : false);
 }
 
 
@@ -1197,59 +1197,59 @@ 
  **/
 function spip_mysql_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true) {
 
-	$e = null;
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
-
-	// remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
-	if (
-		defined('_MYSQL_NOPLANES')
-		and _MYSQL_NOPLANES
-		and !empty($GLOBALS['meta']['charset_sql_connexion'])
-		and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
-	) {
-		include_spip('inc/charsets');
-		$valeurs = utf8_noplanes($valeurs);
-	}
-
-	$query = "INSERT INTO $table $champs VALUES $valeurs";
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-		$e = '';
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	#spip_log($query, 'mysql.'._LOG_DEBUG);
-	$r = false;
-	$insert = false;
-	try {
-		$insert = mysqli_query($link, $query);
-	} catch (\mysqli_sql_exception $e) {
-		spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
-		// TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
-		// mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
-	}
-	if ($insert) {
-		$r = mysqli_insert_id($link);
-	} else {
-		// Log de l'erreur eventuelle
-		if ($e = spip_mysql_errno($serveur)) {
-			// et du fautif
-			$e .= spip_mysql_error($query, $serveur);
-		} 
-	}
-
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
-
-	// return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
+    $e = null;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
+
+    // remplacer les emoji (que mysql ne sait pas gérer) en &#128169;
+    if (
+        defined('_MYSQL_NOPLANES')
+        and _MYSQL_NOPLANES
+        and !empty($GLOBALS['meta']['charset_sql_connexion'])
+        and $GLOBALS['meta']['charset_sql_connexion'] == 'utf8'
+    ) {
+        include_spip('inc/charsets');
+        $valeurs = utf8_noplanes($valeurs);
+    }
+
+    $query = "INSERT INTO $table $champs VALUES $valeurs";
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+        $e = '';
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    #spip_log($query, 'mysql.'._LOG_DEBUG);
+    $r = false;
+    $insert = false;
+    try {
+        $insert = mysqli_query($link, $query);
+    } catch (\mysqli_sql_exception $e) {
+        spip_log('mysqli_sql_exception: ' . $e->getMessage(), 'mysql.' . _LOG_DEBUG);
+        // TODO: utiliser l’exception ensuite plutôt que les appels à spip_mysql_errno()
+        // mais il faut pour php < 8.1 forcer les exeptions via mysqli_report().
+    }
+    if ($insert) {
+        $r = mysqli_insert_id($link);
+    } else {
+        // Log de l'erreur eventuelle
+        if ($e = spip_mysql_errno($serveur)) {
+            // et du fautif
+            $e .= spip_mysql_error($query, $serveur);
+        } 
+    }
+
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+
+    // return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
 }
 
 /**
@@ -1274,26 +1274,26 @@ 
  **/
 function spip_mysql_insertq($table, $couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$couples = [];
-	}
-	$fields = $desc['field'] ?? [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-	}
-
-	return spip_mysql_insert(
-		$table,
-		'(' . join(',', array_keys($couples)) . ')',
-		'(' . join(',', $couples) . ')',
-		$desc,
-		$serveur,
-		$requeter
-	);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $couples = [];
+    }
+    $fields = $desc['field'] ?? [];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+    }
+
+    return spip_mysql_insert(
+        $table,
+        '(' . join(',', array_keys($couples)) . ')',
+        '(' . join(',', $couples) . ')',
+        $desc,
+        $serveur,
+        $requeter
+    );
 }
 
 
@@ -1318,34 +1318,34 @@ 
  **/
 function spip_mysql_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$tab_couples = [];
-	}
-	$fields = $desc['field'] ?? [];
-
-	$cles = '(' . join(',', array_keys(reset($tab_couples))) . ')';
-	$valeurs = [];
-	$r = false;
-
-	// Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-		}
-		$valeurs[] = '(' . join(',', $couples) . ')';
-		if (count($valeurs) >= 100) {
-			$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-			$valeurs = [];
-		}
-	}
-	if (count($valeurs)) {
-		$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-	}
-
-	return $r; // dans le cas d'une table auto_increment, le dernier insert_id
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $tab_couples = [];
+    }
+    $fields = $desc['field'] ?? [];
+
+    $cles = '(' . join(',', array_keys(reset($tab_couples))) . ')';
+    $valeurs = [];
+    $r = false;
+
+    // Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+        }
+        $valeurs[] = '(' . join(',', $couples) . ')';
+        if (count($valeurs) >= 100) {
+            $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+            $valeurs = [];
+        }
+    }
+    if (count($valeurs)) {
+        $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+    }
+
+    return $r; // dans le cas d'une table auto_increment, le dernier insert_id
 }
 
 /**
@@ -1370,19 +1370,19 @@ 
  *     - array Tableau décrivant la requête et son temps d'exécution si var_profile est actif
  */
 function spip_mysql_update($table, $champs, $where = '', $desc = [], $serveur = '', $requeter = true) {
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
-	}
-	if (!empty($set)) {
-		return spip_mysql_query(
-			calculer_mysql_expression('UPDATE', $table, ',')
-			. calculer_mysql_expression('SET', $set, ',')
-			. calculer_mysql_expression('WHERE', $where),
-			$serveur,
-			$requeter
-		);
-	}
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if (!empty($set)) {
+        return spip_mysql_query(
+            calculer_mysql_expression('UPDATE', $table, ',')
+            . calculer_mysql_expression('SET', $set, ',')
+            . calculer_mysql_expression('WHERE', $where),
+            $serveur,
+            $requeter
+        );
+    }
 }
 
 /**
@@ -1415,29 +1415,29 @@ 
  */
 function spip_mysql_updateq($table, $champs, $where = '', $desc = [], $serveur = '', $requeter = true) {
 
-	if (!$champs) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$champs = [];
-	} else {
-		$fields = $desc['field'];
-	}
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
-	}
-
-	return spip_mysql_query(
-		calculer_mysql_expression('UPDATE', $table, ',')
-		. calculer_mysql_expression('SET', $set, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
+    if (!$champs) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $champs = [];
+    } else {
+        $fields = $desc['field'];
+    }
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
+    }
+
+    return spip_mysql_query(
+        calculer_mysql_expression('UPDATE', $table, ',')
+        . calculer_mysql_expression('SET', $set, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
 }
 
 /**
@@ -1453,22 +1453,22 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_delete($table, $where = '', $serveur = '', $requeter = true) {
-	$res = spip_mysql_query(
-		calculer_mysql_expression('DELETE FROM', $table, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
-	if (!$requeter) {
-		return $res;
-	}
-	if ($res) {
-		$link = _mysql_link($serveur);
-
-		return mysqli_affected_rows($link);
-	} else {
-		return false;
-	}
+    $res = spip_mysql_query(
+        calculer_mysql_expression('DELETE FROM', $table, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
+    if (!$requeter) {
+        return $res;
+    }
+    if ($res) {
+        $link = _mysql_link($serveur);
+
+        return mysqli_affected_rows($link);
+    } else {
+        return false;
+    }
 }
 
 
@@ -1497,10 +1497,10 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace($table, $couples, $desc = [], $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
-		',',
-		array_map('_q', $couples)
-	) . ')', $serveur, $requeter);
+    return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
+        ',',
+        array_map('_q', $couples)
+    ) . ')', $serveur, $requeter);
 }
 
 
@@ -1529,14 +1529,14 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
-	$cles = '(' . join(',', array_keys($tab_couples[0])) . ')';
-	$valeurs = [];
-	foreach ($tab_couples as $couples) {
-		$valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
-	}
-	$valeurs = implode(', ', $valeurs);
-
-	return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
+    $cles = '(' . join(',', array_keys($tab_couples[0])) . ')';
+    $valeurs = [];
+    foreach ($tab_couples as $couples) {
+        $valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
+    }
+    $valeurs = implode(', ', $valeurs);
+
+    return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
 }
 
 
@@ -1551,32 +1551,32 @@ 
  * @return string       Texte de sélection pour la requête
  */
 function spip_mysql_multi($objet, $lang) {
-	$lengthlang = strlen("[$lang]");
-	$posmulti = 'INSTR(' . $objet . ", '<multi>')";
-	$posfinmulti = 'INSTR(' . $objet . ", '</multi>')";
-	$debutchaine = 'LEFT(' . $objet . ", $posmulti-1)";
-	$finchaine = 'RIGHT(' . $objet . ', CHAR_LENGTH(' . $objet . ") -(7+$posfinmulti))";
-	$chainemulti = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
-	$poslang = "INSTR($chainemulti,'[" . $lang . "]')";
-	$poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
-	$chainelang = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
-	$posfinlang = 'INSTR(' . $chainelang . ", '[')";
-	$chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
-	//$chainelang = "LEFT($chainelang,$posfinlang-1)";
-	$retour = "(TRIM(IF($posmulti = 0 , " .
-		'     TRIM(' . $objet . '), ' .
-		'     CONCAT( ' .
-		"          $debutchaine, " .
-		'          IF( ' .
-		"               $poslang = 0, " .
-		"                     $chainemulti, " .
-		"               $chainelang" .
-		'          ), ' .
-		"          $finchaine" .
-		'     ) ' .
-		'))) AS multi';
-
-	return $retour;
+    $lengthlang = strlen("[$lang]");
+    $posmulti = 'INSTR(' . $objet . ", '<multi>')";
+    $posfinmulti = 'INSTR(' . $objet . ", '</multi>')";
+    $debutchaine = 'LEFT(' . $objet . ", $posmulti-1)";
+    $finchaine = 'RIGHT(' . $objet . ', CHAR_LENGTH(' . $objet . ") -(7+$posfinmulti))";
+    $chainemulti = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
+    $poslang = "INSTR($chainemulti,'[" . $lang . "]')";
+    $poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
+    $chainelang = 'TRIM(SUBSTRING(' . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
+    $posfinlang = 'INSTR(' . $chainelang . ", '[')";
+    $chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
+    //$chainelang = "LEFT($chainelang,$posfinlang-1)";
+    $retour = "(TRIM(IF($posmulti = 0 , " .
+        '     TRIM(' . $objet . '), ' .
+        '     CONCAT( ' .
+        "          $debutchaine, " .
+        '          IF( ' .
+        "               $poslang = 0, " .
+        "                     $chainemulti, " .
+        "               $chainelang" .
+        '          ), ' .
+        "          $finchaine" .
+        '     ) ' .
+        '))) AS multi';
+
+    return $retour;
 }
 
 /**
@@ -1590,7 +1590,7 @@ 
  *     Valeur hexadécimale pour MySQL
  **/
 function spip_mysql_hex($v) {
-	return '0x' . $v;
+    return '0x' . $v;
 }
 
 /**
@@ -1606,15 +1606,15 @@ 
  *    Donnée prête à être utilisée par le gestionnaire SQL
  */
 function spip_mysql_quote($v, $type = '') {
-	if (!is_array($v)) {
-		return spip_mysql_cite($v, $type);
-	}
-
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_mysql_quote($r, $type);
-	}
-	return implode(',', $v);
+    if (!is_array($v)) {
+        return spip_mysql_cite($v, $type);
+    }
+
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_mysql_quote($r, $type);
+    }
+    return implode(',', $v);
 }
 
 /**
@@ -1630,18 +1630,18 @@ 
  *     Expression SQL
  **/
 function spip_mysql_date_proche($champ, $interval, $unite) {
-	$use_now = ( ($champ === 'maj' or strpos($champ, '.maj')) ? true : false );
-	return '('
-	. $champ
-	. (($interval <= 0) ? '>' : '<')
-	. (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. ($use_now ? 'NOW()' : sql_quote(date('Y-m-d H:i:s')))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0 - $interval))
-	. ' '
-	. $unite
-	. '))';
+    $use_now = ( ($champ === 'maj' or strpos($champ, '.maj')) ? true : false );
+    return '('
+    . $champ
+    . (($interval <= 0) ? '>' : '<')
+    . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
+    . '('
+    . ($use_now ? 'NOW()' : sql_quote(date('Y-m-d H:i:s')))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0 - $interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 
@@ -1665,7 +1665,7 @@ 
  *     Expression de requête SQL
  **/
 function spip_mysql_in($val, $valeurs, $not = '', $serveur = '', $requeter = true) {
-	return "($val $not IN ($valeurs))";
+    return "($val $not IN ($valeurs))";
 }
 
 
@@ -1677,39 +1677,39 @@ 
  * @return string|number     Texte ou nombre échappé
  */
 function spip_mysql_cite($v, $type) {
-	if (!$type) {
-		if (is_bool($v)) {
-			return strval(intval($v));
-		} elseif (is_numeric($v)) {
-			return strval($v);
-		} elseif ($v === null) {
-			return "''";
-		}
-		return "'" . addslashes($v) . "'";
-	}
-
-	if ($v === null) {
-		if (stripos($type, 'NOT NULL') === false) {
-			// null php se traduit en NULL SQL
-			return 'NULL';
-		} else {
-			return "''";
-		}
-	} elseif (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
-		return $v;
-	} elseif (sql_test_int($type)) {
-		if (
-			is_numeric($v) 
-			or ($v and ctype_xdigit(substr($v, 2)) and $v[0] === '0' and $v[1] === 'x')
-		) {
-			return $v;
-		} else {
-			// si pas numerique, forcer le intval
-			return intval($v);
-		}
-	}
-
-	return ("'" . addslashes($v) . "'");
+    if (!$type) {
+        if (is_bool($v)) {
+            return strval(intval($v));
+        } elseif (is_numeric($v)) {
+            return strval($v);
+        } elseif ($v === null) {
+            return "''";
+        }
+        return "'" . addslashes($v) . "'";
+    }
+
+    if ($v === null) {
+        if (stripos($type, 'NOT NULL') === false) {
+            // null php se traduit en NULL SQL
+            return 'NULL';
+        } else {
+            return "''";
+        }
+    } elseif (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
+        return $v;
+    } elseif (sql_test_int($type)) {
+        if (
+            is_numeric($v) 
+            or ($v and ctype_xdigit(substr($v, 2)) and $v[0] === '0' and $v[1] === 'x')
+        ) {
+            return $v;
+        } else {
+            // si pas numerique, forcer le intval
+            return intval($v);
+        }
+    }
+
+    return ("'" . addslashes($v) . "'");
 }
 
 /**
@@ -1719,7 +1719,7 @@ 
  *     True si on a les fonctions, false sinon
  */
 function spip_versions_mysql() {
-	return function_exists('mysqli_query');
+    return function_exists('mysqli_query');
 }
 
 
@@ -1732,20 +1732,20 @@ 
  *     - chaîne : code compilé pour le faire désactiver par SPIP sinon
  */
 function test_rappel_nom_base_mysql($server_db) {
-	$GLOBALS['mysql_rappel_nom_base'] = true;
-	sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
-	$ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
+    $GLOBALS['mysql_rappel_nom_base'] = true;
+    sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    $ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
 
-	if ($ok) {
-		sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    if ($ok) {
+        sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
 
-		return '';
-	} else {
-		$GLOBALS['mysql_rappel_nom_base'] = false;
+        return '';
+    } else {
+        $GLOBALS['mysql_rappel_nom_base'] = false;
 
-		return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
-		"/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
-	}
+        return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
+        "/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
+    }
 }
 
 /**
@@ -1759,13 +1759,13 @@ 
  *     - chaîne : code compilé pour l'indiquer le résultat du test à SPIP
  */
 function test_sql_mode_mysql($server_db) {
-	$res = sql_select('version() as v', '', '', '', '', '', '', $server_db);
-	$row = sql_fetch($res, $server_db);
-	if (version_compare($row['v'], '5.0.0', '>=')) {
-		defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
+    $res = sql_select('version() as v', '', '', '', '', '', '', $server_db);
+    $row = sql_fetch($res, $server_db);
+    if (version_compare($row['v'], '5.0.0', '>=')) {
+        defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
 
-		return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
-	}
+        return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
+    }
 
-	return '';
+    return '';
 }

ecrire/req/sqlite_generique.php

Indentation +1999 added lines, -1999 removed lines

@@ -18,7 +18,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // TODO: get/set_caracteres ?
@@ -42,91 +42,91 @@ 
  * @return array|bool
  */
 function req_sqlite_dist($addr, $port, $login, $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 (strpos($db, $code = '@selectdb@') !== false) {
-		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 (strpos($db, $code = '@selectdb@') !== false) {
+        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 and strpos($addr, '/') !== false) {
-		$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 and !is_file($f .= $db . '.sqlite') and !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();
-
-	$ok = false;
-	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';
-		$ok = $link = new \PDO("sqlite:$tmp");
-	} else {
-		// Ouvrir (eventuellement creer la base)
-		$ok = $link = new \PDO("sqlite:$f");
-	}
-
-	if (!$ok) {
-		$e = _sqlite_last_error_from_link($link);
-		spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f : $e", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	if ($link) {
-		$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 ? $prefixe : $db,
-		'link' => $link,
-		'total_requetes' => 0,
-	];
+    _sqlite_init();
+
+    // determiner le dossier de la base : $addr ou _DIR_DB
+    $f = _DIR_DB;
+    if ($addr and strpos($addr, '/') !== false) {
+        $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 and !is_file($f .= $db . '.sqlite') and !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();
+
+    $ok = false;
+    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';
+        $ok = $link = new \PDO("sqlite:$tmp");
+    } else {
+        // Ouvrir (eventuellement creer la base)
+        $ok = $link = new \PDO("sqlite:$f");
+    }
+
+    if (!$ok) {
+        $e = _sqlite_last_error_from_link($link);
+        spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f : $e", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    if ($link) {
+        $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 ? $prefixe : $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    ];
 }
 
 
@@ -145,14 +145,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 = spip_sqlite::traduire_requete($query, $serveur);
-	if (!$requeter) {
-		return $query;
-	}
+    #spip_log("spip_sqlite_query() > $query",'sqlite.'._LOG_DEBUG);
+    #_sqlite_init(); // fait la premiere fois dans spip_sqlite
+    $query = spip_sqlite::traduire_requete($query, $serveur);
+    if (!$requeter) {
+        return $query;
+    }
 
-	return spip_sqlite::executer_requete($query, $serveur);
+    return spip_sqlite::executer_requete($query, $serveur);
 }
 
 
@@ -169,11 +169,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 = spip_sqlite::traduire_requete($query, $serveur);
+    $query = spip_sqlite_query("ALTER $query", $serveur, false);
+    // traduire la requete pour recuperer les bons noms de table
+    $query = spip_sqlite::traduire_requete($query, $serveur);
 
-	/*
+    /*
 		 * la il faut faire les transformations
 		 * si ALTER TABLE x (DROP|CHANGE) y
 		 *
@@ -182,251 +182,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 = (false !== strpos($do, '('));
-		$f = (false !== strpos($do, ')'));
-		if ($o and !$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 (!spip_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($def, 1, -1);
-					$nom_index = $colonne_origine;
-				} else {
-					// (colonne)
-					if ($colonne_origine[0] == '(') {
-						$colonnes = substr($colonne_origine, 1, -1);
-						if (false !== strpos(',', $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 (!spip_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 = (false !== strpos($do, '('));
+        $f = (false !== strpos($do, ')'));
+        if ($o and !$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 (!spip_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($def, 1, -1);
+                    $nom_index = $colonne_origine;
+                } else {
+                    // (colonne)
+                    if ($colonne_origine[0] == '(') {
+                        $colonnes = substr($colonne_origine, 1, -1);
+                        if (false !== strpos(',', $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 (!spip_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;
 }
 
 
@@ -449,38 +449,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 = $res ? true : false;
-	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 $ok ? true : false;
+    $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 = $res ? true : false;
+    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 $ok ? true : false;
 }
 
 /**
@@ -493,21 +493,21 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_sqlite_create_base($nom, $serveur = '', $option = true) {
-	$f = $nom . '.sqlite';
-	if (strpos($nom, '/') === false) {
-		$f = _DIR_DB . $f;
-	}
+    $f = $nom . '.sqlite';
+    if (strpos($nom, '/') === false) {
+        $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;
 }
 
 
@@ -528,22 +528,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
-		);
+    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;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_sqlite_query($query, $serveur, $requeter);
+    return spip_sqlite_query($query, $serveur, $requeter);
 }
 
 /**
@@ -565,54 +565,54 @@ 
  *    string : requête, false si erreur, true sinon.
  */
 function spip_sqlite_create_index($nom, $table, $champs, $unique = '', $serveur = '', $requeter = true) {
-	if (!($nom or $table or $champs)) {
-		spip_log(
-			"Champ manquant pour creer un index sqlite ($nom, $table, (" . join(',', $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 and 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 (" . join(',', $champs) . ')';
-	$res = spip_sqlite_query($query, $serveur, $requeter);
-	if (!$requeter) {
-		return $res;
-	}
-	if ($res) {
-		return true;
-	} else {
-		return false;
-	}
+    if (!($nom or $table or $champs)) {
+        spip_log(
+            "Champ manquant pour creer un index sqlite ($nom, $table, (" . join(',', $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 and 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 (" . join(',', $champs) . ')';
+    $res = spip_sqlite_query($query, $serveur, $requeter);
+    if (!$requeter) {
+        return $res;
+    }
+    if ($res) {
+        return true;
+    } else {
+        return false;
+    }
 }
 
 /**
@@ -629,31 +629,31 @@ 
  * @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 (is_array($r->spipSqliteRowCount)) {
-		list($link, $query) = $r->spipSqliteRowCount;
-		// amelioration possible a tester intensivement : pas de order by pour compter !
-		// $query = preg_replace(",ORDER BY .+(LIMIT\s|HAVING\s|GROUP BY\s|$),Uims","\\1",$query);
-		$query = "SELECT count(*) as zzzzsqlitecount FROM ($query)";
-		$l = $link->query($query);
-		$i = 0;
-		if ($l and $z = $l->fetch()) {
-			$i = $z['zzzzsqlitecount'];
-		}
-		$r->spipSqliteRowCount = $i;
-	}
-	if (isset($r->spipSqliteRowCount)) {
-		// Ce compte est faux s'il y a des limit dans la requete :(
-		// il retourne le nombre d'enregistrements sans le limit
-		return $r->spipSqliteRowCount;
-	} else {
-		return $r->rowCount();
-	}
+    if (!$r) {
+        return 0;
+    }
+
+    // select ou autre (insert, update,...) ?
+    // (link,requete) a compter
+    if (is_array($r->spipSqliteRowCount)) {
+        list($link, $query) = $r->spipSqliteRowCount;
+        // amelioration possible a tester intensivement : pas de order by pour compter !
+        // $query = preg_replace(",ORDER BY .+(LIMIT\s|HAVING\s|GROUP BY\s|$),Uims","\\1",$query);
+        $query = "SELECT count(*) as zzzzsqlitecount FROM ($query)";
+        $l = $link->query($query);
+        $i = 0;
+        if ($l and $z = $l->fetch()) {
+            $i = $z['zzzzsqlitecount'];
+        }
+        $r->spipSqliteRowCount = $i;
+    }
+    if (isset($r->spipSqliteRowCount)) {
+        // Ce compte est faux s'il y a des limit dans la requete :(
+        // il retourne le nombre d'enregistrements sans le limit
+        return $r->spipSqliteRowCount;
+    } else {
+        return $r->rowCount();
+    }
 }
 
 
@@ -672,30 +672,30 @@ 
  *     - 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 : join(',', $groupby)));
-	$r = spip_sqlite_select(
-		"COUNT($c)",
-		$from,
-		$where,
-		'',
-		'',
-		'',
-		$having,
-		$serveur,
-		$requeter
-	);
-	if ((is_resource($r) or is_object($r)) && $requeter) { // ressource : sqlite2, object : sqlite3
-		list($r) = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
-	}
-
-	return $r;
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+    $r = spip_sqlite_select(
+        "COUNT($c)",
+        $from,
+        $where,
+        '',
+        '',
+        '',
+        $having,
+        $serveur,
+        $requeter
+    );
+    if ((is_resource($r) or is_object($r)) && $requeter) { // ressource : sqlite2, object : sqlite3
+        list($r) = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
+    }
+
+    return $r;
 }
 
 
@@ -712,24 +712,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
-	);
+    $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;
-	}
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $res;
+    }
 
-	if ($res) {
-		$link = _sqlite_link($serveur);
-		return $res->rowCount();
-	} else {
-		return false;
-	}
+    if ($res) {
+        $link = _sqlite_link($serveur);
+        return $res->rowCount();
+    } else {
+        return false;
+    }
 }
 
 
@@ -745,15 +745,15 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_sqlite_drop_table($table, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
-		return true;
-	} else {
-		return false;
-	}
+    if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+        return true;
+    } else {
+        return false;
+    }
 }
 
 
@@ -769,11 +769,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_sqlite_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
 
-	return spip_sqlite_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_sqlite_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -787,20 +787,20 @@ 
  * @return bool ou requete
  */
 function spip_sqlite_drop_index($nom, $table, $serveur = '', $requeter = true) {
-	if (!($nom or $table)) {
-		spip_log("Champ manquant pour supprimer un index sqlite ($nom, $table)", 'sqlite.' . _LOG_ERREUR);
+    if (!($nom or $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);
 }
 
 /**
@@ -816,28 +816,28 @@ 
  *     Erreur eventuelle
  **/
 function spip_sqlite_error($query = '', $serveur = '') {
-	$link = _sqlite_link($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);
-		}
-	}
+    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;
+    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
@@ -847,11 +847,11 @@ 
 			$errs[2]
 				Le texte du message d'erreur
 		*/
-		if (ltrim($errs[0], '0')) { // 00000 si pas d'erreur
-			return "$errs[2]";
-		}
-	}
-	return '';
+        if (ltrim($errs[0], '0')) { // 00000 si pas d'erreur
+            return "$errs[2]";
+        }
+    }
+    return '';
 }
 
 /**
@@ -868,23 +868,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);
+    $link = _sqlite_link($serveur);
 
-	if ($link) {
-		$t = $link->errorInfo();
-		$s = ltrim($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 ($link) {
+        $t = $link->errorInfo();
+        $s = ltrim($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);
-	}
+    if ($s) {
+        spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
+    }
 
-	return $s ? $s : 0;
+    return $s ? $s : 0;
 }
 
 
@@ -900,19 +900,19 @@ 
  *     - false si on a pas pu avoir d'explication
  */
 function spip_sqlite_explain($query, $serveur = '', $requeter = true) {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return [];
-	}
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return [];
+    }
 
-	$query = spip_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 = spip_sqlite::executer_requete($query, $serveur, false);
+    $query = spip_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 = spip_sqlite::executer_requete($query, $serveur, false);
 
-	return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
+    return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
 }
 
 
@@ -929,30 +929,30 @@ 
  */
 function spip_sqlite_fetch($r, $t = '', $serveur = '', $requeter = true) {
 
-	$link = _sqlite_link($serveur);
-	$t = $t ? $t : SPIP_SQLITE3_ASSOC;
+    $link = _sqlite_link($serveur);
+    $t = $t ? $t : SPIP_SQLITE3_ASSOC;
 
-	$retour = false;
-	if ($r) {
-		$retour = $r->fetch($t);
-	}
+    $retour = false;
+    if ($r) {
+        $retour = $r->fetch($t);
+    }
 
-	// 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 (
-		$retour
-		and strpos(implode('', array_keys($retour)), '.') !== false
-	) {
-		foreach ($retour as $cle => $val) {
-			if (($pos = strpos($cle, '.')) !== false) {
-				$retour[substr($cle, $pos + 1)] = &$retour[$cle];
-				unset($retour[$cle]);
-			}
-		}
-	}
+    // 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 (
+        $retour
+        and strpos(implode('', array_keys($retour)), '.') !== false
+    ) {
+        foreach ($retour as $cle => $val) {
+            if (($pos = strpos($cle, '.')) !== false) {
+                $retour[substr($cle, $pos + 1)] = &$retour[$cle];
+                unset($retour[$cle]);
+            }
+        }
+    }
 
-	return $retour;
+    return $retour;
 }
 
 /**
@@ -965,8 +965,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;
 }
 
 
@@ -982,10 +982,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);
 }
 
 
@@ -1000,8 +1000,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);
 }
 
 
@@ -1016,7 +1016,7 @@ 
  *     Valeur hexadécimale pour SQLite
  **/
 function spip_sqlite_hex($v) {
-	return hexdec($v);
+    return hexdec($v);
 }
 
 
@@ -1038,7 +1038,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))";
 }
 
 
@@ -1066,20 +1066,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 = spip_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 = spip_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;
 }
 
 
@@ -1104,28 +1104,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 = isset($desc['field']) ? $desc['field'] : [];
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = isset($desc['field']) ? $desc['field'] : [];
 
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
+    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);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-	$cles = $valeurs = '';
-	if (count($couples)) {
-		$cles = '(' . join(',', array_keys($couples)) . ')';
-		$valeurs = '(' . join(',', $couples) . ')';
-	}
+    $cles = $valeurs = '';
+    if (count($couples)) {
+        $cles = '(' . join(',', array_keys($couples)) . ')';
+        $valeurs = '(' . join(',', $couples) . ')';
+    }
 
-	return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
@@ -1149,70 +1149,70 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_sqlite_insertq_multi($table, $tab_couples = [], $desc = [], $serveur = '', $requeter = true) {
-	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 = spip_sqlite::traduire_requete($query_start, $serveur);
-
-	// ouvrir une transaction
-	if ($requeter) {
-		spip_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 (count($couples)) {
-			$champs = '(' . join(',', array_keys($couples)) . ')';
-			$valeurs = '(' . join(',', $couples) . ')';
-			$query = $query_start . "$champs VALUES $valeurs";
-		} else {
-			$query = $query_start . 'DEFAULT VALUES';
-		}
-
-		if ($requeter) {
-			$retour = spip_sqlite::executer_requete($query, $serveur);
-		}
-
-		// sur le dernier couple uniquement
-		if (!count($tab_couples)) {
-			$nb = 0;
-			if ($requeter) {
-				$nb = spip_sqlite::last_insert_id($serveur);
-			} else {
-				return $query;
-			}
-		}
-
-		$err = spip_sqlite_error($query, $serveur);
-	}
-
-	if ($requeter) {
-		spip_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;
+    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 = spip_sqlite::traduire_requete($query_start, $serveur);
+
+    // ouvrir une transaction
+    if ($requeter) {
+        spip_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 (count($couples)) {
+            $champs = '(' . join(',', array_keys($couples)) . ')';
+            $valeurs = '(' . join(',', $couples) . ')';
+            $query = $query_start . "$champs VALUES $valeurs";
+        } else {
+            $query = $query_start . 'DEFAULT VALUES';
+        }
+
+        if ($requeter) {
+            $retour = spip_sqlite::executer_requete($query, $serveur);
+        }
+
+        // sur le dernier couple uniquement
+        if (!count($tab_couples)) {
+            $nb = 0;
+            if ($requeter) {
+                $nb = spip_sqlite::last_insert_id($serveur);
+            } else {
+                return $query;
+            }
+        }
+
+        $err = spip_sqlite_error($query, $serveur);
+    }
+
+    if ($requeter) {
+        spip_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;
 }
 
 
@@ -1227,7 +1227,7 @@ 
  *     Toujours true.
  **/
 function spip_sqlite_preferer_transaction($serveur = '', $requeter = true) {
-	return true;
+    return true;
 }
 
 /**
@@ -1244,12 +1244,12 @@ 
  *     string si texte de la requête demandé, true sinon
  **/
 function spip_sqlite_demarrer_transaction($serveur = '', $requeter = true) {
-	if (!$requeter) {
-		return 'BEGIN TRANSACTION';
-	}
-	spip_sqlite::demarrer_transaction($serveur);
+    if (!$requeter) {
+        return 'BEGIN TRANSACTION';
+    }
+    spip_sqlite::demarrer_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 /**
@@ -1263,12 +1263,12 @@ 
  *     string si texte de la requête demandé, true sinon
  **/
 function spip_sqlite_terminer_transaction($serveur = '', $requeter = true) {
-	if (!$requeter) {
-		return 'COMMIT';
-	}
-	spip_sqlite::finir_transaction($serveur);
+    if (!$requeter) {
+        return 'COMMIT';
+    }
+    spip_sqlite::finir_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 
@@ -1283,27 +1283,27 @@ 
  *     Liste des noms de bases
  **/
 function spip_sqlite_listdbs($serveur = '', $requeter = true) {
-	_sqlite_init();
+    _sqlite_init();
 
-	if (!is_dir($d = substr(_DIR_DB, 0, -1))) {
-		return [];
-	}
+    if (!is_dir($d = substr(_DIR_DB, 0, -1))) {
+        return [];
+    }
 
-	include_spip('inc/flock');
-	$bases = preg_files($d, $pattern = '(.*)\.sqlite$');
-	$bds = [];
+    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($b, '_sqlite')) {
-			continue;
-		}
-		$bds[] = preg_replace(";.*/$pattern;iS", '$1', $b);
-	}
+    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($b, '_sqlite')) {
+            continue;
+        }
+        $bds[] = preg_replace(";.*/$pattern;iS", '$1', $b);
+    }
 
-	return $bds;
+    return $bds;
 }
 
 
@@ -1318,9 +1318,9 @@ 
  * @return string       Texte de sélection pour la requête
  */
 function spip_sqlite_multi($objet, $lang) {
-	$r = 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
+    $r = 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
 
-	return $r;
+    return $r;
 }
 
 
@@ -1337,15 +1337,15 @@ 
  * @return bool|string true / false / requete
  **/
 function spip_sqlite_optimize($table, $serveur = '', $requeter = true) {
-	static $do = false;
-	if ($requeter and $do) {
-		return true;
-	}
-	if ($requeter) {
-		$do = true;
-	}
+    static $do = false;
+    if ($requeter and $do) {
+        return true;
+    }
+    if ($requeter) {
+        $do = true;
+    }
 
-	return spip_sqlite_query('VACUUM', $serveur, $requeter);
+    return spip_sqlite_query('VACUUM', $serveur, $requeter);
 }
 
 
@@ -1362,15 +1362,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);
-	}
+    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 join(',', $v);
+    return join(',', $v);
 }
 
 
@@ -1387,9 +1387,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'))";
 }
 
 
@@ -1407,48 +1407,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)
-		and isset($desc['field'])
-		and is_array($desc['field'])
-	) {
-		foreach ($desc['field'] as $c => $d) {
-			if (
-				preg_match(',^(tinytext|mediumtext|text|longtext|varchar|char),i', $d)
-				and stripos($d, 'NOT NULL') !== false
-				and stripos($d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				and (!isset($desc['key']['PRIMARY KEY']) or $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', $d)
-				and stripos($d, 'NOT NULL') !== false
-				and stripos($d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				and (!isset($desc['key']['PRIMARY KEY']) or $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', $d)
-				and stripos($d, 'NOT NULL') !== false
-				and stripos($d, 'DEFAULT') === false
-				/* pas touche aux cles primaires */
-				and (!isset($desc['key']['PRIMARY KEY']) or $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)
+        and isset($desc['field'])
+        and is_array($desc['field'])
+    ) {
+        foreach ($desc['field'] as $c => $d) {
+            if (
+                preg_match(',^(tinytext|mediumtext|text|longtext|varchar|char),i', $d)
+                and stripos($d, 'NOT NULL') !== false
+                and stripos($d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                and (!isset($desc['key']['PRIMARY KEY']) or $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', $d)
+                and stripos($d, 'NOT NULL') !== false
+                and stripos($d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                and (!isset($desc['key']['PRIMARY KEY']) or $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', $d)
+                and stripos($d, 'NOT NULL') !== false
+                and stripos($d, 'DEFAULT') === false
+                /* pas touche aux cles primaires */
+                and (!isset($desc['key']['PRIMARY KEY']) or $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 '];
 }
 
 
@@ -1477,25 +1477,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 = isset($desc['field']) ? $desc['field'] : [];
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = isset($desc['field']) ? $desc['field'] : [];
 
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
+    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);
+    // 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 (" . join(',', array_keys($couples)) . ') VALUES (' . join(
-		',',
-		$couples
-	) . ')', $serveur);
+    return spip_sqlite_query("REPLACE INTO $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
+        ',',
+        $couples
+    ) . ')', $serveur);
 }
 
 
@@ -1525,13 +1525,13 @@ 
  **/
 function spip_sqlite_replace_multi($table, $tab_couples, $desc = [], $serveur = '', $requeter = true) {
 
-	// boucler pour trainter chaque requete independemment
-	foreach ($tab_couples as $couples) {
-		$retour = spip_sqlite_replace($table, $couples, $desc, $serveur, $requeter);
-	}
+    // boucler pour trainter 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;
 }
 
 
@@ -1558,44 +1558,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);
+    // version() n'est pas connu de sqlite
+    $select = str_replace('version()', 'sqlite_version()', $select);
 
-	// recomposer from
-	$from = (!is_array($from) ? $from : _sqlite_calculer_select_as($from));
+    // recomposer from
+    $from = (!is_array($from) ? $from : _sqlite_calculer_select_as($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" : '');
+    $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 spip_sqlite::traduire_requete($query, $serveur);
-	}
+    // 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 spip_sqlite::traduire_requete($query, $serveur);
+    }
 
-	return $res;
+    return $res;
 }
 
 
@@ -1614,32 +1614,32 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_sqlite_selectdb($db, $serveur = '', $requeter = true) {
-	_sqlite_init();
+    _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);
+    // 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;
-	}
+        return false;
+    }
 
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ? $serveur : 0;
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ? $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);
+    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;
-	}
+        return false;
+    }
 }
 
 
@@ -1654,8 +1654,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 !
 }
 
 
@@ -1673,24 +1673,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
+    );
 }
 
 /**
@@ -1708,19 +1708,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);
-	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);
+    return (bool) $res;
 }
 
 define('_SQLITE_RE_SHOW_TABLE', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -1743,129 +1743,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, 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 !
-			list($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(',', $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(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 (false !== strpos($k, ')') or preg_match('/^[^\(]*\)/', $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+\))?)$/', $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 . '_', '', $r['name']); // enlever le nom de la table ajoute a l'index
-				$keytype = 'KEY';
-				if (strpos($r['sql'], 'UNIQUE INDEX') !== false) {
-					$keytype = 'UNIQUE KEY';
-				}
-				$colonnes = preg_replace(',.*\((.*)\).*,', '$1', $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, 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 !
+            list($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(',', $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(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 (false !== strpos($k, ')') or preg_match('/^[^\(]*\)/', $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+\))?)$/', $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 . '_', '', $r['name']); // enlever le nom de la table ajoute a l'index
+                $keytype = 'KEY';
+                if (strpos($r['sql'], 'UNIQUE INDEX') !== false) {
+                    $keytype = 'UNIQUE KEY';
+                }
+                $colonnes = preg_replace(',.*\((.*)\).*,', '$1', $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];
 }
 
 
@@ -1891,22 +1891,22 @@ 
  *     - 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);
+    // 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 (!empty($set)) {
-		return spip_sqlite_query(
-			_sqlite_calculer_expression('UPDATE', $table, ',')
-			. _sqlite_calculer_expression('SET', $set, ',')
-			. _sqlite_calculer_expression('WHERE', $where),
-			$serveur,
-			$requeter
-		);
-	}
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if (!empty($set)) {
+        return spip_sqlite_query(
+            _sqlite_calculer_expression('UPDATE', $table, ',')
+            . _sqlite_calculer_expression('SET', $set, ',')
+            . _sqlite_calculer_expression('WHERE', $where),
+            $serveur,
+            $requeter
+        );
+    }
 }
 
 
@@ -1936,38 +1936,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, isset($fields[$champ]) ? $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, isset($fields[$champ]) ? $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
+    );
 }
 
 
@@ -1985,17 +1985,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 (!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 (!is_dir($d = _DIR_DB)) {
+        include_spip('inc/flock');
+        sous_repertoire($d);
+    }
 }
 
 
@@ -2009,20 +2009,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);
 }
 
 
@@ -2033,9 +2033,9 @@ 
  * @return PDO Information de connexion pour SQLite
  */
 function _sqlite_link($serveur = '') {
-	$link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -2050,52 +2050,52 @@ 
  * @return string|number     Texte ou nombre échappé
  */
 function _sqlite_calculer_cite($v, $type) {
-	if ($type) {
-		if (
-			is_null($v)
-			and stripos($type, 'NOT NULL') === false
-		) {
-			return 'NULL';
-		} // null php se traduit en NULL SQL
-
-		if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
-			return $v;
-		}
-		if (sql_test_int($type)) {
-			if (is_numeric($v)) {
-				return $v;
-			} elseif (ctype_xdigit(substr($v, 2)) and strncmp($v, '0x', 2) == 0) {
-				return hexdec(substr($v, 2));
-			} else {
-				return intval($v);
-			}
-		}
-	} else {
-		// si on ne connait pas le type on le deduit de $v autant que possible
-		if (is_bool($v)) {
-			return strval(intval($v));
-		}
-		elseif (is_numeric($v)) {
-			return strval($v);
-		}
-	}
-
-	// trouver un link sqlite pour faire l'echappement
-	foreach ($GLOBALS['connexions'] as $s) {
-		if (
-			$l = $s['link']
-			and is_object($l)
-			and $l instanceof \PDO
-			and $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)
+            and stripos($type, 'NOT NULL') === false
+        ) {
+            return 'NULL';
+        } // null php se traduit en NULL SQL
+
+        if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
+            return $v;
+        }
+        if (sql_test_int($type)) {
+            if (is_numeric($v)) {
+                return $v;
+            } elseif (ctype_xdigit(substr($v, 2)) and strncmp($v, '0x', 2) == 0) {
+                return hexdec(substr($v, 2));
+            } else {
+                return intval($v);
+            }
+        }
+    } else {
+        // si on ne connait pas le type on le deduit de $v autant que possible
+        if (is_bool($v)) {
+            return strval(intval($v));
+        }
+        elseif (is_numeric($v)) {
+            return strval($v);
+        }
+    }
+
+    // trouver un link sqlite pour faire l'echappement
+    foreach ($GLOBALS['connexions'] as $s) {
+        if (
+            $l = $s['link']
+            and is_object($l)
+            and $l instanceof \PDO
+            and $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) . "'");
 }
 
 
@@ -2111,21 +2111,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 '';
-	}
+    if (empty($v)) {
+        return '';
+    }
 
-	$exp = "\n$expression ";
+    $exp = "\n$expression ";
 
-	if (!is_array($v)) {
-		return $exp . $v;
-	} else {
-		if (strtoupper($join) === 'AND') {
-			return $exp . join("\n\t$join ", array_map('_sqlite_calculer_where', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (!is_array($v)) {
+        return $exp . $v;
+    } else {
+        if (strtoupper($join) === 'AND') {
+            return $exp . join("\n\t$join ", array_map('_sqlite_calculer_where', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -2141,7 +2141,7 @@ 
  * @return string Texte du orderby préparé
  */
 function _sqlite_calculer_order($orderby) {
-	return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
+    return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
 }
 
 
@@ -2152,26 +2152,26 @@ 
  * @return string Sélection de colonnes pour une clause SELECT
  */
 function _sqlite_calculer_select_as($args) {
-	$res = '';
-	foreach ($args as $k => $v) {
-		if (substr($k, -1) == '@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$res .= '  ' . $v;
-		} else {
-			if (!is_numeric($k)) {
-				$p = strpos($v, ' ');
-				if ($p) {
-					$v = substr($v, 0, $p) . " AS '$k'" . substr($v, $p);
-				} else {
-					$v .= " AS '$k'";
-				}
-			}
-			$res .= ', ' . $v;
-		}
-	}
-
-	return substr($res, 2);
+    $res = '';
+    foreach ($args as $k => $v) {
+        if (substr($k, -1) == '@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $res .= '  ' . $v;
+        } else {
+            if (!is_numeric($k)) {
+                $p = strpos($v, ' ');
+                if ($p) {
+                    $v = substr($v, 0, $p) . " AS '$k'" . substr($v, $p);
+                } else {
+                    $v .= " AS '$k'";
+                }
+            }
+            $res .= ', ' . $v;
+        }
+    }
+
+    return substr($res, 2);
 }
 
 
@@ -2194,26 +2194,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])";
+            }
+        }
+    }
 }
 
 
@@ -2228,19 +2228,19 @@ 
  * @return array|bool
  */
 function _sqlite_charger_version($version = '') {
-	$versions = [];
+    $versions = [];
 
-	// version 3
-	if (!$version || $version == 3) {
-		if (extension_loaded('pdo') && extension_loaded('pdo_sqlite')) {
-			$versions[] = 3;
-		}
-	}
-	if ($version) {
-		return in_array($version, $versions);
-	}
+    // version 3
+    if (!$version || $version == 3) {
+        if (extension_loaded('pdo') && extension_loaded('pdo_sqlite')) {
+            $versions[] = 3;
+        }
+    }
+    if ($version) {
+        return in_array($version, $versions);
+    }
 
-	return $versions;
+    return $versions;
 }
 
 
@@ -2278,147 +2278,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 or !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, $c);
-		$d = str_replace($colonne_origine, $colonne_destination, $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'])
-		and $keys['PRIMARY KEY']
-		and stripos($keys['PRIMARY KEY'], ',') === false
-		and stripos($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 = join(', ', array_keys($fields_correspondances));
-	$champs_ori = join(', ', $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 (count($queries)) {
-		spip_sqlite::demarrer_transaction($serveur);
-		// il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
-		foreach ($queries as $q) {
-			if (!spip_sqlite::executer_requete($q, $serveur)) {
-				spip_log('SQLite : ALTER TABLE table :'
-					. " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
-				spip_sqlite::annuler_transaction($serveur);
-
-				return false;
-			}
-		}
-		spip_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 or !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, $c);
+        $d = str_replace($colonne_origine, $colonne_destination, $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'])
+        and $keys['PRIMARY KEY']
+        and stripos($keys['PRIMARY KEY'], ',') === false
+        and stripos($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 = join(', ', array_keys($fields_correspondances));
+    $champs_ori = join(', ', $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 (count($queries)) {
+        spip_sqlite::demarrer_transaction($serveur);
+        // il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
+        foreach ($queries as $q) {
+            if (!spip_sqlite::executer_requete($q, $serveur)) {
+                spip_log('SQLite : ALTER TABLE table :'
+                    . " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
+                spip_sqlite::annuler_transaction($serveur);
+
+                return false;
+            }
+        }
+        spip_sqlite::finir_transaction($serveur);
+    }
+
+    return true;
 }
 
 
@@ -2428,61 +2428,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;
 }
 
 
@@ -2494,56 +2494,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 or 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', $q));
-			$query[$k] = preg_replace(array_keys($remplace), $remplace, $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 or 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', $q));
+            $query[$k] = preg_replace(array_keys($remplace), $remplace, $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;
 }
 
 /**
@@ -2554,17 +2554,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';
-	}
+    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;
+    return $champ;
 }
 
 
@@ -2583,84 +2583,84 @@ 
  * @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($v, $pk)) {
-			$champ_pk = $k;
-			// on n'en a plus besoin dans field, vu que defini dans key
-			$champs[$k] = preg_replace("/$pk/is", '', $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])
-		and stripos($champs[$champ_pk], 'default 0') !== false
-	) {
-		$champs[$champ_pk] = trim(str_ireplace('default 0', '', $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 and 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' : '';
-	$q = "CREATE$temporary TABLE$ifnotexists $nom ($query" . ($keys ? ",$keys" : '') . ")\n";
-
-	return $q;
+    $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($v, $pk)) {
+            $champ_pk = $k;
+            // on n'en a plus besoin dans field, vu que defini dans key
+            $champs[$k] = preg_replace("/$pk/is", '', $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])
+        and stripos($champs[$champ_pk], 'default 0') !== false
+    ) {
+        $champs[$champ_pk] = trim(str_ireplace('default 0', '', $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 and 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' : '';
+    $q = "CREATE$temporary TABLE$ifnotexists $nom ($query" . ($keys ? ",$keys" : '') . ")\n";
+
+    return $q;
 }
 
 
@@ -2679,41 +2679,41 @@ 
  * @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 (strpos(strtolower(ltrim($v)), 'timestamp') === 0) {
-				$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 (strpos(strtolower(ltrim($v)), 'timestamp') === 0) {
+                $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);
 }
 
 
@@ -2724,7 +2724,7 @@ 
  * @return array|bool
  */
 function spip_versions_sqlite() {
-	return _sqlite_charger_version();
+    return _sqlite_charger_version();
 }
 
 /**
@@ -2732,114 +2732,114 @@ 
  * encadrées de transactions.
  **/
 class spip_sqlite {
-	/** @var sqlite_requeteur[] Liste des instances de requêteurs créés */
-	public static $requeteurs = [];
-	/** @var bool[] Pour chaque connexion, flag pour savoir si une transaction est en cours */
-	public static $transaction_en_cours = [];
-
-
-	/**
-	 * Retourne une unique instance du requêteur
-	 *
-	 * Retourne une instance unique du requêteur pour une connexion SQLite
-	 * donnée
-	 *
-	 * @param string $serveur
-	 *    Nom du connecteur
-	 * @return sqlite_requeteur
-	 *    Instance unique du requêteur
-	 **/
-	public static function requeteur($serveur) {
-		if (!isset(spip_sqlite::$requeteurs[$serveur])) {
-			spip_sqlite::$requeteurs[$serveur] = new sqlite_requeteur($serveur);
-		}
-
-		return spip_sqlite::$requeteurs[$serveur];
-	}
-
-	/**
-	 * Prépare le texte d'une requête avant son exécution
-	 *
-	 * Adapte la requête au format plus ou moins MySQL par un format
-	 * compris de SQLite.
-	 *
-	 * Change les préfixes de tables SPIP par ceux véritables
-	 *
-	 * @param string $query Requête à préparer
-	 * @param string $serveur Nom de la connexion
-	 * @return string           Requête préparée
-	 */
-	public static function traduire_requete($query, $serveur) {
-		$requeteur = spip_sqlite::requeteur($serveur);
-		$traducteur = new sqlite_traducteur($query, $requeteur->prefixe, $requeteur->sqlite_version);
-
-		return $traducteur->traduire_requete();
-	}
-
-	/**
-	 * Démarre une transaction
-	 *
-	 * @param string $serveur Nom de la connexion
-	 **/
-	public static function demarrer_transaction($serveur) {
-		spip_sqlite::executer_requete('BEGIN TRANSACTION', $serveur);
-		spip_sqlite::$transaction_en_cours[$serveur] = true;
-	}
-
-	/**
-	 * Exécute la requête donnée
-	 *
-	 * @param string $query Requête
-	 * @param string $serveur Nom de la connexion
-	 * @param null|bool $tracer Demander des statistiques (temps) ?
-	 **/
-	public static function executer_requete($query, $serveur, $tracer = null) {
-		$requeteur = spip_sqlite::requeteur($serveur);
-
-		return $requeteur->executer_requete($query, $tracer);
-	}
-
-	/**
-	 * Obtient l'identifiant de la dernière ligne insérée ou modifiée
-	 *
-	 * @param string $serveur Nom de la connexion
-	 * return int                Identifiant
-	 **/
-	public static function last_insert_id($serveur) {
-		$requeteur = spip_sqlite::requeteur($serveur);
-
-		return $requeteur->last_insert_id($serveur);
-	}
-
-	/**
-	 * Annule une transaction
-	 *
-	 * @param string $serveur Nom de la connexion
-	 **/
-	public static function annuler_transaction($serveur) {
-		spip_sqlite::executer_requete('ROLLBACK', $serveur);
-		spip_sqlite::$transaction_en_cours[$serveur] = false;
-	}
-
-	/**
-	 * Termine une transaction
-	 *
-	 * @param string $serveur Nom de la connexion
-	 **/
-	public static function finir_transaction($serveur) {
-		// si pas de transaction en cours, ne rien faire et le dire
-		if (
-			!isset(spip_sqlite::$transaction_en_cours[$serveur])
-			or spip_sqlite::$transaction_en_cours[$serveur] == false
-		) {
-			return false;
-		}
-		// sinon fermer la transaction et retourner true
-		spip_sqlite::executer_requete('COMMIT', $serveur);
-		spip_sqlite::$transaction_en_cours[$serveur] = false;
-
-		return true;
-	}
+    /** @var sqlite_requeteur[] Liste des instances de requêteurs créés */
+    public static $requeteurs = [];
+    /** @var bool[] Pour chaque connexion, flag pour savoir si une transaction est en cours */
+    public static $transaction_en_cours = [];
+
+
+    /**
+     * Retourne une unique instance du requêteur
+     *
+     * Retourne une instance unique du requêteur pour une connexion SQLite
+     * donnée
+     *
+     * @param string $serveur
+     *    Nom du connecteur
+     * @return sqlite_requeteur
+     *    Instance unique du requêteur
+     **/
+    public static function requeteur($serveur) {
+        if (!isset(spip_sqlite::$requeteurs[$serveur])) {
+            spip_sqlite::$requeteurs[$serveur] = new sqlite_requeteur($serveur);
+        }
+
+        return spip_sqlite::$requeteurs[$serveur];
+    }
+
+    /**
+     * Prépare le texte d'une requête avant son exécution
+     *
+     * Adapte la requête au format plus ou moins MySQL par un format
+     * compris de SQLite.
+     *
+     * Change les préfixes de tables SPIP par ceux véritables
+     *
+     * @param string $query Requête à préparer
+     * @param string $serveur Nom de la connexion
+     * @return string           Requête préparée
+     */
+    public static function traduire_requete($query, $serveur) {
+        $requeteur = spip_sqlite::requeteur($serveur);
+        $traducteur = new sqlite_traducteur($query, $requeteur->prefixe, $requeteur->sqlite_version);
+
+        return $traducteur->traduire_requete();
+    }
+
+    /**
+     * Démarre une transaction
+     *
+     * @param string $serveur Nom de la connexion
+     **/
+    public static function demarrer_transaction($serveur) {
+        spip_sqlite::executer_requete('BEGIN TRANSACTION', $serveur);
+        spip_sqlite::$transaction_en_cours[$serveur] = true;
+    }
+
+    /**
+     * Exécute la requête donnée
+     *
+     * @param string $query Requête
+     * @param string $serveur Nom de la connexion
+     * @param null|bool $tracer Demander des statistiques (temps) ?
+     **/
+    public static function executer_requete($query, $serveur, $tracer = null) {
+        $requeteur = spip_sqlite::requeteur($serveur);
+
+        return $requeteur->executer_requete($query, $tracer);
+    }
+
+    /**
+     * Obtient l'identifiant de la dernière ligne insérée ou modifiée
+     *
+     * @param string $serveur Nom de la connexion
+     * return int                Identifiant
+     **/
+    public static function last_insert_id($serveur) {
+        $requeteur = spip_sqlite::requeteur($serveur);
+
+        return $requeteur->last_insert_id($serveur);
+    }
+
+    /**
+     * Annule une transaction
+     *
+     * @param string $serveur Nom de la connexion
+     **/
+    public static function annuler_transaction($serveur) {
+        spip_sqlite::executer_requete('ROLLBACK', $serveur);
+        spip_sqlite::$transaction_en_cours[$serveur] = false;
+    }
+
+    /**
+     * Termine une transaction
+     *
+     * @param string $serveur Nom de la connexion
+     **/
+    public static function finir_transaction($serveur) {
+        // si pas de transaction en cours, ne rien faire et le dire
+        if (
+            !isset(spip_sqlite::$transaction_en_cours[$serveur])
+            or spip_sqlite::$transaction_en_cours[$serveur] == false
+        ) {
+            return false;
+        }
+        // sinon fermer la transaction et retourner true
+        spip_sqlite::executer_requete('COMMIT', $serveur);
+        spip_sqlite::$transaction_en_cours[$serveur] = false;
+
+        return true;
+    }
 }
 
 /*
@@ -2852,127 +2852,127 @@ 
  */
 
 class sqlite_requeteur {
-	/** @var string Texte de la requête */
-	public $query = ''; // la requete
-	/** @var string Nom de la connexion */
-	public $serveur = '';
-	/** @var PDO Identifiant de la connexion SQLite */
-	public $link = '';
-	/** @var string Prefixe des tables SPIP */
-	public $prefixe = '';
-	/** @var string Nom de la base de donnée */
-	public $db = '';
-	/** @var bool Doit-on tracer les requetes (var_profile) ? */
-	public $tracer = false; // doit-on tracer les requetes (var_profile)
-
-	/** @var string Version de SQLite (2 ou 3) */
-	public $sqlite_version = '';
-
-	/**
-	 * Constructeur
-	 *
-	 * @param string $serveur
-	 * @return bool
-	 */
-	public function __construct($serveur = '') {
-		_sqlite_init();
-		$this->serveur = strtolower($serveur);
-
-		if (!($this->link = _sqlite_link($this->serveur)) && (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)) {
-			spip_log('Aucune connexion sqlite (link)', 'sqlite.' . _LOG_ERREUR);
-
-			return false;
-		}
-
-		$this->sqlite_version = _sqlite_is_version('', $this->link);
-
-		$this->prefixe = $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['prefixe'];
-		$this->db = $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['db'];
-
-		// tracage des requetes ?
-		$this->tracer = (isset($_GET['var_profile']) && $_GET['var_profile']);
-	}
-
-	/**
-	 * Lancer la requête transmise et faire le tracage si demandé
-	 *
-	 * @param string $query
-	 *     Requête à exécuter
-	 * @param bool|null $tracer
-	 *     true pour tracer la requête
-	 * @return bool|PDOStatement|array
-	 */
-	public function executer_requete($query, $tracer = null) {
-		if (is_null($tracer)) {
-			$tracer = $this->tracer;
-		}
-		$err = '';
-		$t = 0;
-		if ($tracer or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
-			include_spip('public/tracer');
-			$t = trace_query_start();
-		}
-
-		# spip_log("requete: $this->serveur >> $query",'sqlite.'._LOG_DEBUG); // boum ? pourquoi ?
-		if ($this->link) {
-			// memoriser la derniere erreur PHP vue
-			$last_error = (function_exists('error_get_last') ? error_get_last() : '');
-			$e = null;
-			// sauver la derniere requete
-			$GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['last'] = $query;
-			$GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['total_requetes']++;
-
-			try {
-				$r = $this->link->query($query);
-			} catch (\PDOException $e) {
-				spip_log('PDOException: ' . $e->getMessage(), 'sqlite.' . _LOG_DEBUG);
-				$r = false;
-			}
-			// sauvegarde de la requete (elle y est deja dans $r->queryString)
-			# $r->spipQueryString = $query;
-
-			// comptage : oblige de compter le nombre d'entrees retournees
-			// par une requete SELECT
-			// aucune autre solution ne donne le nombre attendu :( !
-			// particulierement s'il y a des LIMIT dans la requete.
-			if (strtoupper(substr(ltrim($query), 0, 6)) == 'SELECT') {
-				if ($r) {
-					// noter le link et la query pour faire le comptage *si* on en a besoin
-					$r->spipSqliteRowCount = [$this->link, $query];
-				} elseif ($r instanceof PDOStatement) {
-					$r->spipSqliteRowCount = 0;
-				}
-			}
-
-			// loger les warnings/erreurs eventuels de sqlite remontant dans PHP
-			if ($e and $e instanceof \PDOException) {
-				$err = strip_tags($e->getMessage()) . ' in ' . $e->getFile() . ' line ' . $e->getLine();
-				spip_log("$err - " . $query, 'sqlite.' . _LOG_ERREUR);
-			} elseif ($err = (function_exists('error_get_last') ? error_get_last() : '') and $err != $last_error) {
-				$err = strip_tags($err['message']) . ' in ' . $err['file'] . ' line ' . $err['line'];
-				spip_log("$err - " . $query, 'sqlite.' . _LOG_ERREUR);
-			} else {
-				$err = '';
-			}
-		} else {
-			$r = false;
-		}
-
-		if (spip_sqlite_errno($this->serveur)) {
-			$err .= spip_sqlite_error($query, $this->serveur);
-		}
-
-		return $t ? trace_query_end($query, $t, $r, $err, $this->serveur) : $r;
-	}
-
-	/**
-	 * Obtient l'identifiant de la dernière ligne insérée ou modifiée
-	 *
-	 * @return string|false
-	 **/
-	public function last_insert_id() {
-		return $this->link->lastInsertId();
-	}
+    /** @var string Texte de la requête */
+    public $query = ''; // la requete
+    /** @var string Nom de la connexion */
+    public $serveur = '';
+    /** @var PDO Identifiant de la connexion SQLite */
+    public $link = '';
+    /** @var string Prefixe des tables SPIP */
+    public $prefixe = '';
+    /** @var string Nom de la base de donnée */
+    public $db = '';
+    /** @var bool Doit-on tracer les requetes (var_profile) ? */
+    public $tracer = false; // doit-on tracer les requetes (var_profile)
+
+    /** @var string Version de SQLite (2 ou 3) */
+    public $sqlite_version = '';
+
+    /**
+     * Constructeur
+     *
+     * @param string $serveur
+     * @return bool
+     */
+    public function __construct($serveur = '') {
+        _sqlite_init();
+        $this->serveur = strtolower($serveur);
+
+        if (!($this->link = _sqlite_link($this->serveur)) && (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)) {
+            spip_log('Aucune connexion sqlite (link)', 'sqlite.' . _LOG_ERREUR);
+
+            return false;
+        }
+
+        $this->sqlite_version = _sqlite_is_version('', $this->link);
+
+        $this->prefixe = $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['prefixe'];
+        $this->db = $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['db'];
+
+        // tracage des requetes ?
+        $this->tracer = (isset($_GET['var_profile']) && $_GET['var_profile']);
+    }
+
+    /**
+     * Lancer la requête transmise et faire le tracage si demandé
+     *
+     * @param string $query
+     *     Requête à exécuter
+     * @param bool|null $tracer
+     *     true pour tracer la requête
+     * @return bool|PDOStatement|array
+     */
+    public function executer_requete($query, $tracer = null) {
+        if (is_null($tracer)) {
+            $tracer = $this->tracer;
+        }
+        $err = '';
+        $t = 0;
+        if ($tracer or (defined('_DEBUG_TRACE_QUERIES') and _DEBUG_TRACE_QUERIES)) {
+            include_spip('public/tracer');
+            $t = trace_query_start();
+        }
+
+        # spip_log("requete: $this->serveur >> $query",'sqlite.'._LOG_DEBUG); // boum ? pourquoi ?
+        if ($this->link) {
+            // memoriser la derniere erreur PHP vue
+            $last_error = (function_exists('error_get_last') ? error_get_last() : '');
+            $e = null;
+            // sauver la derniere requete
+            $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['last'] = $query;
+            $GLOBALS['connexions'][$this->serveur ? $this->serveur : 0]['total_requetes']++;
+
+            try {
+                $r = $this->link->query($query);
+            } catch (\PDOException $e) {
+                spip_log('PDOException: ' . $e->getMessage(), 'sqlite.' . _LOG_DEBUG);
+                $r = false;
+            }
+            // sauvegarde de la requete (elle y est deja dans $r->queryString)
+            # $r->spipQueryString = $query;
+
+            // comptage : oblige de compter le nombre d'entrees retournees
+            // par une requete SELECT
+            // aucune autre solution ne donne le nombre attendu :( !
+            // particulierement s'il y a des LIMIT dans la requete.
+            if (strtoupper(substr(ltrim($query), 0, 6)) == 'SELECT') {
+                if ($r) {
+                    // noter le link et la query pour faire le comptage *si* on en a besoin
+                    $r->spipSqliteRowCount = [$this->link, $query];
+                } elseif ($r instanceof PDOStatement) {
+                    $r->spipSqliteRowCount = 0;
+                }
+            }
+
+            // loger les warnings/erreurs eventuels de sqlite remontant dans PHP
+            if ($e and $e instanceof \PDOException) {
+                $err = strip_tags($e->getMessage()) . ' in ' . $e->getFile() . ' line ' . $e->getLine();
+                spip_log("$err - " . $query, 'sqlite.' . _LOG_ERREUR);
+            } elseif ($err = (function_exists('error_get_last') ? error_get_last() : '') and $err != $last_error) {
+                $err = strip_tags($err['message']) . ' in ' . $err['file'] . ' line ' . $err['line'];
+                spip_log("$err - " . $query, 'sqlite.' . _LOG_ERREUR);
+            } else {
+                $err = '';
+            }
+        } else {
+            $r = false;
+        }
+
+        if (spip_sqlite_errno($this->serveur)) {
+            $err .= spip_sqlite_error($query, $this->serveur);
+        }
+
+        return $t ? trace_query_end($query, $t, $r, $err, $this->serveur) : $r;
+    }
+
+    /**
+     * Obtient l'identifiant de la dernière ligne insérée ou modifiée
+     *
+     * @return string|false
+     **/
+    public function last_insert_id() {
+        return $this->link->lastInsertId();
+    }
 }
 
 
@@ -2982,206 +2982,206 @@ 
  * (fonction pour proteger les textes)
  */
 class sqlite_traducteur {
-	/** @var string $query Texte de la requête */
-	public $query = '';
-	/** @var string $prefixe Préfixe des tables */
-	public $prefixe = '';
-	/** @var string $sqlite_version Version de sqlite (2 ou 3) */
-	public $sqlite_version = '';
-
-	/** Pour les corrections à effectuer sur les requêtes : array(code=>'texte') trouvé
-	 *
-	 * @var array
-	 */
-	public $textes = [];
-
-	/**
-	 * Constructeur
-	 *
-	 * @param string $query Requête à préparer
-	 * @param string $prefixe Prefixe des tables à utiliser
-	 * @param string $sqlite_version Version SQLite (2 ou 3)
-	 */
-	public function __construct($query, $prefixe, $sqlite_version) {
-		$this->query = $query;
-		$this->prefixe = $prefixe;
-		$this->sqlite_version = $sqlite_version;
-	}
-
-	/**
-	 * Transformer la requete pour SQLite
-	 *
-	 * Enlève les textes, transforme la requête pour quelle soit
-	 * bien interprétée par SQLite, puis remet les textes
-	 * la fonction affecte `$this->query`
-	 */
-	public function traduire_requete() {
-		//
-		// 1) Protection des textes en les remplacant par des codes
-		//
-		// enlever les 'textes' et initialiser avec
-		list($this->query, $textes) = query_echappe_textes($this->query);
-
-		//
-		// 2) Corrections de la requete
-		//
-		// Correction Create Database
-		// Create Database -> requete ignoree
-		if (strpos($this->query, 'CREATE DATABASE') === 0) {
-			spip_log("Sqlite : requete non executee -> $this->query", 'sqlite.' . _LOG_AVERTISSEMENT);
-			$this->query = 'SELECT 1';
-		}
-
-		// Correction Insert Ignore
-		// INSERT IGNORE -> insert (tout court et pas 'insert or replace')
-		if (strpos($this->query, 'INSERT IGNORE') === 0) {
-			spip_log("Sqlite : requete transformee -> $this->query", 'sqlite.' . _LOG_DEBUG);
-			$this->query = 'INSERT ' . substr($this->query, '13');
-		}
-
-		// Correction des dates avec INTERVAL
-		// utiliser sql_date_proche() de preference
-		if (strpos($this->query, 'INTERVAL') !== false) {
-			$this->query = preg_replace_callback(
-				'/DATE_(ADD|SUB)(.*)INTERVAL\s+(\d+)\s+([a-zA-Z]+)\)/U',
-				[&$this, '_remplacerDateParTime'],
-				$this->query
-			);
-		}
-
-		if (strpos($this->query, 'LEFT(') !== false) {
-			$this->query = str_replace('LEFT(', '_LEFT(', $this->query);
-		}
-
-		if (strpos($this->query, 'TIMESTAMPDIFF(') !== false) {
-			$this->query = preg_replace('/TIMESTAMPDIFF\(\s*([^,]*)\s*,/Uims', "TIMESTAMPDIFF('\\1',", $this->query);
-		}
-
-
-		// Correction Using
-		// USING (non reconnu en sqlite2)
-		// problematique car la jointure ne se fait pas du coup.
-		if (($this->sqlite_version == 2) && (strpos($this->query, 'USING') !== false)) {
-			spip_log(
-				"'USING (champ)' n'est pas reconnu en SQLite 2. Utilisez 'ON table1.champ = table2.champ'",
-				'sqlite.' . _LOG_ERREUR
-			);
-			$this->query = preg_replace('/USING\s*\([^\)]*\)/', '', $this->query);
-		}
-
-		// Correction Field
-		// remplace FIELD(table,i,j,k...) par CASE WHEN table=i THEN n ... ELSE 0 END
-		if (strpos($this->query, 'FIELD') !== false) {
-			$this->query = preg_replace_callback(
-				'/FIELD\s*\(([^\)]*)\)/',
-				[&$this, '_remplacerFieldParCase'],
-				$this->query
-			);
-		}
-
-		// Correction des noms de tables FROM
-		// mettre les bons noms de table dans from, update, insert, replace...
-		if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/iS', $this->query, $regs)) {
-			$suite = strstr($this->query, $regs[0]);
-			$this->query = substr($this->query, 0, -strlen($suite));
-		} else {
-			$suite = '';
-		}
-		$pref = ($this->prefixe) ? $this->prefixe . '_' : '';
-		$this->query = preg_replace('/([,\s])spip_/S', '\1' . $pref, $this->query) . $suite;
-
-		// Correction zero AS x
-		// pg n'aime pas 0+x AS alias, sqlite, dans le meme style,
-		// n'apprecie pas du tout SELECT 0 as x ... ORDER BY x
-		// il dit que x ne doit pas être un integer dans le order by !
-		// on remplace du coup x par vide() dans ce cas uniquement
-		//
-		// apparait dans public/vertebrer.php et dans le plugin menu aussi qui genere aussi ce genre de requete via un {par num #GET{tri_num}}
-		// mais est-ce encore un soucis pour sqlite en 2021 ? (ie commenter le preg_replace marche très bien en sqlite 3.28)
-		if ((strpos($this->query, '0 AS') !== false)) {
-			// on ne remplace que dans ORDER BY ou GROUP BY
-			if (preg_match('/\s(ORDER|GROUP) BY\s/i', $this->query, $regs)) {
-				$suite = strstr($this->query, $regs[0]);
-				$this->query = substr($this->query, 0, -strlen($suite));
-
-				// on cherche les noms des x dans 0 AS x
-				// on remplace dans $suite le nom par vide()
-				preg_match_all('/\b0 AS\s*([^\s,]+)/', $this->query, $matches, PREG_PATTERN_ORDER);
-				foreach ($matches[1] as $m) {
-					if (strpos($suite, $m) !== false) {
-						$suite = preg_replace(",\b$m\b,", 'VIDE()', $suite);
-					}
-				}
-				$this->query .= $suite;
-			}
-		}
-
-		// Correction possible des divisions entieres
-		// Le standard SQL (lequel? ou?) semble indiquer que
-		// a/b=c doit donner c entier si a et b sont entiers 4/3=1.
-		// C'est ce que retournent effectivement SQL Server et SQLite
-		// Ce n'est pas ce qu'applique MySQL qui retourne un reel : 4/3=1.333...
-		//
-		// On peut forcer la conversion en multipliant par 1.0 avant la division
-		// /!\ SQLite 3.5.9 Debian/Ubuntu est victime d'un bug en plus !
-		// cf. https://bugs.launchpad.net/ubuntu/+source/sqlite3/+bug/254228
-		//     http://www.sqlite.org/cvstrac/tktview?tn=3202
-		// (4*1.0/3) n'est pas rendu dans ce cas !
-		# $this->query = str_replace('/','* 1.00 / ',$this->query);
-
-
-		// Correction critere REGEXP, non reconnu en sqlite2
-		if (($this->sqlite_version == 2) && (strpos($this->query, 'REGEXP') !== false)) {
-			$this->query = preg_replace('/([^\s\(]*)(\s*)REGEXP(\s*)([^\s\)]*)/', 'REGEXP($4, $1)', $this->query);
-		}
-
-		//
-		// 3) Remise en place des textes d'origine
-		//
-		// Correction Antiquotes et echappements
-		// ` => rien
-		if (strpos($this->query, '`') !== false) {
-			$this->query = str_replace('`', '', $this->query);
-		}
-
-		$this->query = query_reinjecte_textes($this->query, $textes);
-
-		return $this->query;
-	}
-
-
-	/**
-	 * Callback pour remplacer `DATE_` / `INTERVAL`
-	 * par `DATE ... strtotime`
-	 *
-	 * @param array $matches Captures
-	 * @return string Texte de date compris par SQLite
-	 */
-	public function _remplacerDateParTime($matches) {
-		$op = strtoupper($matches[1] == 'ADD') ? '+' : '-';
-
-		return "datetime$matches[2] '$op$matches[3] $matches[4]')";
-	}
-
-	/**
-	 * Callback pour remplacer `FIELD(table,i,j,k...)`
-	 * par `CASE WHEN table=i THEN n ... ELSE 0 END`
-	 *
-	 * @param array $matches Captures
-	 * @return string Texte de liste ordonnée compris par SQLite
-	 */
-	public function _remplacerFieldParCase($matches) {
-		$fields = substr($matches[0], 6, -1); // ne recuperer que l'interieur X de field(X)
-		$t = explode(',', $fields);
-		$index = array_shift($t);
-
-		$res = '';
-		$n = 0;
-		foreach ($t as $v) {
-			$n++;
-			$res .= "\nWHEN $index=$v THEN $n";
-		}
-
-		return "CASE $res ELSE 0 END ";
-	}
+    /** @var string $query Texte de la requête */
+    public $query = '';
+    /** @var string $prefixe Préfixe des tables */
+    public $prefixe = '';
+    /** @var string $sqlite_version Version de sqlite (2 ou 3) */
+    public $sqlite_version = '';
+
+    /** Pour les corrections à effectuer sur les requêtes : array(code=>'texte') trouvé
+     *
+     * @var array
+     */
+    public $textes = [];
+
+    /**
+     * Constructeur
+     *
+     * @param string $query Requête à préparer
+     * @param string $prefixe Prefixe des tables à utiliser
+     * @param string $sqlite_version Version SQLite (2 ou 3)
+     */
+    public function __construct($query, $prefixe, $sqlite_version) {
+        $this->query = $query;
+        $this->prefixe = $prefixe;
+        $this->sqlite_version = $sqlite_version;
+    }
+
+    /**
+     * Transformer la requete pour SQLite
+     *
+     * Enlève les textes, transforme la requête pour quelle soit
+     * bien interprétée par SQLite, puis remet les textes
+     * la fonction affecte `$this->query`
+     */
+    public function traduire_requete() {
+        //
+        // 1) Protection des textes en les remplacant par des codes
+        //
+        // enlever les 'textes' et initialiser avec
+        list($this->query, $textes) = query_echappe_textes($this->query);
+
+        //
+        // 2) Corrections de la requete
+        //
+        // Correction Create Database
+        // Create Database -> requete ignoree
+        if (strpos($this->query, 'CREATE DATABASE') === 0) {
+            spip_log("Sqlite : requete non executee -> $this->query", 'sqlite.' . _LOG_AVERTISSEMENT);
+            $this->query = 'SELECT 1';
+        }
+
+        // Correction Insert Ignore
+        // INSERT IGNORE -> insert (tout court et pas 'insert or replace')
+        if (strpos($this->query, 'INSERT IGNORE') === 0) {
+            spip_log("Sqlite : requete transformee -> $this->query", 'sqlite.' . _LOG_DEBUG);
+            $this->query = 'INSERT ' . substr($this->query, '13');
+        }
+
+        // Correction des dates avec INTERVAL
+        // utiliser sql_date_proche() de preference
+        if (strpos($this->query, 'INTERVAL') !== false) {
+            $this->query = preg_replace_callback(
+                '/DATE_(ADD|SUB)(.*)INTERVAL\s+(\d+)\s+([a-zA-Z]+)\)/U',
+                [&$this, '_remplacerDateParTime'],
+                $this->query
+            );
+        }
+
+        if (strpos($this->query, 'LEFT(') !== false) {
+            $this->query = str_replace('LEFT(', '_LEFT(', $this->query);
+        }
+
+        if (strpos($this->query, 'TIMESTAMPDIFF(') !== false) {
+            $this->query = preg_replace('/TIMESTAMPDIFF\(\s*([^,]*)\s*,/Uims', "TIMESTAMPDIFF('\\1',", $this->query);
+        }
+
+
+        // Correction Using
+        // USING (non reconnu en sqlite2)
+        // problematique car la jointure ne se fait pas du coup.
+        if (($this->sqlite_version == 2) && (strpos($this->query, 'USING') !== false)) {
+            spip_log(
+                "'USING (champ)' n'est pas reconnu en SQLite 2. Utilisez 'ON table1.champ = table2.champ'",
+                'sqlite.' . _LOG_ERREUR
+            );
+            $this->query = preg_replace('/USING\s*\([^\)]*\)/', '', $this->query);
+        }
+
+        // Correction Field
+        // remplace FIELD(table,i,j,k...) par CASE WHEN table=i THEN n ... ELSE 0 END
+        if (strpos($this->query, 'FIELD') !== false) {
+            $this->query = preg_replace_callback(
+                '/FIELD\s*\(([^\)]*)\)/',
+                [&$this, '_remplacerFieldParCase'],
+                $this->query
+            );
+        }
+
+        // Correction des noms de tables FROM
+        // mettre les bons noms de table dans from, update, insert, replace...
+        if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/iS', $this->query, $regs)) {
+            $suite = strstr($this->query, $regs[0]);
+            $this->query = substr($this->query, 0, -strlen($suite));
+        } else {
+            $suite = '';
+        }
+        $pref = ($this->prefixe) ? $this->prefixe . '_' : '';
+        $this->query = preg_replace('/([,\s])spip_/S', '\1' . $pref, $this->query) . $suite;
+
+        // Correction zero AS x
+        // pg n'aime pas 0+x AS alias, sqlite, dans le meme style,
+        // n'apprecie pas du tout SELECT 0 as x ... ORDER BY x
+        // il dit que x ne doit pas être un integer dans le order by !
+        // on remplace du coup x par vide() dans ce cas uniquement
+        //
+        // apparait dans public/vertebrer.php et dans le plugin menu aussi qui genere aussi ce genre de requete via un {par num #GET{tri_num}}
+        // mais est-ce encore un soucis pour sqlite en 2021 ? (ie commenter le preg_replace marche très bien en sqlite 3.28)
+        if ((strpos($this->query, '0 AS') !== false)) {
+            // on ne remplace que dans ORDER BY ou GROUP BY
+            if (preg_match('/\s(ORDER|GROUP) BY\s/i', $this->query, $regs)) {
+                $suite = strstr($this->query, $regs[0]);
+                $this->query = substr($this->query, 0, -strlen($suite));
+
+                // on cherche les noms des x dans 0 AS x
+                // on remplace dans $suite le nom par vide()
+                preg_match_all('/\b0 AS\s*([^\s,]+)/', $this->query, $matches, PREG_PATTERN_ORDER);
+                foreach ($matches[1] as $m) {
+                    if (strpos($suite, $m) !== false) {
+                        $suite = preg_replace(",\b$m\b,", 'VIDE()', $suite);
+                    }
+                }
+                $this->query .= $suite;
+            }
+        }
+
+        // Correction possible des divisions entieres
+        // Le standard SQL (lequel? ou?) semble indiquer que
+        // a/b=c doit donner c entier si a et b sont entiers 4/3=1.
+        // C'est ce que retournent effectivement SQL Server et SQLite
+        // Ce n'est pas ce qu'applique MySQL qui retourne un reel : 4/3=1.333...
+        //
+        // On peut forcer la conversion en multipliant par 1.0 avant la division
+        // /!\ SQLite 3.5.9 Debian/Ubuntu est victime d'un bug en plus !
+        // cf. https://bugs.launchpad.net/ubuntu/+source/sqlite3/+bug/254228
+        //     http://www.sqlite.org/cvstrac/tktview?tn=3202
+        // (4*1.0/3) n'est pas rendu dans ce cas !
+        # $this->query = str_replace('/','* 1.00 / ',$this->query);
+
+
+        // Correction critere REGEXP, non reconnu en sqlite2
+        if (($this->sqlite_version == 2) && (strpos($this->query, 'REGEXP') !== false)) {
+            $this->query = preg_replace('/([^\s\(]*)(\s*)REGEXP(\s*)([^\s\)]*)/', 'REGEXP($4, $1)', $this->query);
+        }
+
+        //
+        // 3) Remise en place des textes d'origine
+        //
+        // Correction Antiquotes et echappements
+        // ` => rien
+        if (strpos($this->query, '`') !== false) {
+            $this->query = str_replace('`', '', $this->query);
+        }
+
+        $this->query = query_reinjecte_textes($this->query, $textes);
+
+        return $this->query;
+    }
+
+
+    /**
+     * Callback pour remplacer `DATE_` / `INTERVAL`
+     * par `DATE ... strtotime`
+     *
+     * @param array $matches Captures
+     * @return string Texte de date compris par SQLite
+     */
+    public function _remplacerDateParTime($matches) {
+        $op = strtoupper($matches[1] == 'ADD') ? '+' : '-';
+
+        return "datetime$matches[2] '$op$matches[3] $matches[4]')";
+    }
+
+    /**
+     * Callback pour remplacer `FIELD(table,i,j,k...)`
+     * par `CASE WHEN table=i THEN n ... ELSE 0 END`
+     *
+     * @param array $matches Captures
+     * @return string Texte de liste ordonnée compris par SQLite
+     */
+    public function _remplacerFieldParCase($matches) {
+        $fields = substr($matches[0], 6, -1); // ne recuperer que l'interieur X de field(X)
+        $t = explode(',', $fields);
+        $index = array_shift($t);
+
+        $res = '';
+        $n = 0;
+        foreach ($t as $v) {
+            $n++;
+            $res .= "\nWHEN $index=$v THEN $n";
+        }
+
+        return "CASE $res ELSE 0 END ";
+    }
 }

ecrire/base/upgrade.php

Indentation +282 added lines, -282 removed lines

@@ -17,17 +17,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);
 }
 
 /**
@@ -50,40 +50,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();
 }
 
 /**
@@ -114,51 +114,51 @@ 
  */
 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 or ($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/v21');
-		include_spip('maj/legacy/v30');
-		include_spip('maj/legacy/v31');
-		include_spip('maj/legacy/v32');
-		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') . ' ' . join(' ', $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 or ($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/v21');
+        include_spip('maj/legacy/v30');
+        include_spip('maj/legacy/v31');
+        include_spip('maj/legacy/v32');
+        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') . ' ' . join(' ', $res);
+            echo install_fin_html();
+        }
+    }
+
+    return $res;
 }
 
 /**
@@ -200,53 +200,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') . ' ' . join(' ', $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') . ' ' . join(' ', $res) . '</p>';
+            }
+        }
+    }
 }
 
 /**
@@ -263,17 +263,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 = intval($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 = intval($GLOBALS[$table][$meta]);
+        $redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
+    }
+    echo redirige_formulaire($redirect);
+    exit();
 }
 
 /**
@@ -286,26 +286,26 @@ 
  * @return void
  */
 function maj_debut_page($installee, $meta, $table) {
-	static $done = false;
-	if ($done) {
-		return;
-	}
-	include_spip('inc/minipres');
-	@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');
+    @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;
 }
 
 
@@ -349,64 +349,64 @@ 
  *    - 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' or
-			(spip_version_compare($v, $installee, '>')
-				and 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' or
+            (spip_version_compare($v, $installee, '>')
+                and 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 [];
 }
 
 /**
@@ -429,53 +429,53 @@ 
  * @return int
  */
 function serie_alter($serie, $q = [], $meta = '', $table = 'meta', $redirect = '') {
-	$meta2 = $meta . '_maj_' . $serie;
-	$etape = 0;
-	if (isset($GLOBALS[$table][$meta2])) {
-		$etape = intval($GLOBALS[$table][$meta2]);
-	}
-	foreach ($q as $i => $r) {
-		if ($i >= $etape) {
-			$msg = "maj $table $meta2 etape $i";
-			if (
-				is_array($r)
-				and function_exists($f = array_shift($r))
-			) {
-				// note: $r (arguments de la fonction $f) peut avoir des données tabulaires
-				spip_log("$msg: $f " . @join(',', $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 (strncmp($f, 'sql_', 4) == 0) {
-					ecrire_meta($meta2, $i + 1, 'non', $table);
-				}
-				echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
-				call_user_func_array($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 = intval($GLOBALS[$table][$meta2]);
+    }
+    foreach ($q as $i => $r) {
+        if ($i >= $etape) {
+            $msg = "maj $table $meta2 etape $i";
+            if (
+                is_array($r)
+                and function_exists($f = array_shift($r))
+            ) {
+                // note: $r (arguments de la fonction $f) peut avoir des données tabulaires
+                spip_log("$msg: $f " . @join(',', $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 (strncmp($f, 'sql_', 4) == 0) {
+                    ecrire_meta($meta2, $i + 1, 'non', $table);
+                }
+                echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
+                call_user_func_array($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;
 }
 
 /**
@@ -484,16 +484,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 = $result ? true : false;
-	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 = $result ? true : false;
+    sql_alter('TABLE spip_test DROP b');
+
+    return $result;
 }

ecrire/balise/menu_lang_ecrire.php

Indentation +31 added lines, -31 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,7 +37,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_MENU_LANG_ECRIRE($p) {
-	return calculer_balise_dynamique($p, 'MENU_LANG_ECRIRE', ['lang']);
+    return calculer_balise_dynamique($p, 'MENU_LANG_ECRIRE', ['lang']);
 }
 
 /**
@@ -55,12 +55,12 @@ 
  *   Liste (lang) des arguments collectés et fournis.
  */
 function balise_MENU_LANG_ECRIRE_stat($args, $context_compil) {
-	include_spip('inc/lang');
-	if (strpos($GLOBALS['meta']['langues_proposees'], ',') === false) {
-		return '';
-	}
+    include_spip('inc/lang');
+    if (strpos($GLOBALS['meta']['langues_proposees'], ',') === false) {
+        return '';
+    }
 
-	return $args;
+    return $args;
 }
 
 /**
@@ -76,7 +76,7 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function balise_MENU_LANG_ECRIRE_dyn($opt) {
-	return menu_lang_pour_tous('var_lang_ecrire', $opt);
+    return menu_lang_pour_tous('var_lang_ecrire', $opt);
 }
 
 /**
@@ -96,30 +96,30 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function menu_lang_pour_tous($nom, $default) {
-	include_spip('inc/lang');
+    include_spip('inc/lang');
 
-	if ($GLOBALS['spip_lang'] <> $default) {
-		$opt = lang_select($default);  # et remplace
-		if ($GLOBALS['spip_lang'] <> $default) {
-			$default = '';  # annule tout choix par defaut
-			if ($opt) {
-				lang_select();
-			}
-		}
-	}
+    if ($GLOBALS['spip_lang'] <> $default) {
+        $opt = lang_select($default);  # et remplace
+        if ($GLOBALS['spip_lang'] <> $default) {
+            $default = '';  # annule tout choix par defaut
+            if ($opt) {
+                lang_select();
+            }
+        }
+    }
 
-	# lien a partir de /
-	$cible = parametre_url(self(), 'lang', '', '&');
-	$post = generer_url_action('converser', 'redirect=' . rawurlencode($cible), true);
+    # lien a partir de /
+    $cible = parametre_url(self(), 'lang', '', '&');
+    $post = generer_url_action('converser', 'redirect=' . rawurlencode($cible), true);
 
-	return [
-		'formulaires/menu_lang',
-		3600,
-		[
-			'nom' => $nom,
-			'url' => $post,
-			'name' => $nom,
-			'default' => $default,
-		]
-	];
+    return [
+        'formulaires/menu_lang',
+        3600,
+        [
+            'nom' => $nom,
+            'url' => $post,
+            'name' => $nom,
+            'default' => $default,
+        ]
+    ];
 }

ecrire/balise/menu_lang.php

Indentation +8 added lines, -8 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,7 +37,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_MENU_LANG($p) {
-	return calculer_balise_dynamique($p, 'MENU_LANG', ['lang']);
+    return calculer_balise_dynamique($p, 'MENU_LANG', ['lang']);
 }
 
 /**
@@ -56,11 +56,11 @@ 
  *   string: (vide) si pas de multilinguisme
  */
 function balise_MENU_LANG_stat($args, $context_compil) {
-	if (strpos($GLOBALS['meta']['langues_multilingue'], ',') === false) {
-		return '';
-	}
+    if (strpos($GLOBALS['meta']['langues_multilingue'], ',') === false) {
+        return '';
+    }
 
-	return $args;
+    return $args;
 }
 
 /**
@@ -76,7 +76,7 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function balise_MENU_LANG_dyn($opt) {
-	include_spip('balise/menu_lang_ecrire');
+    include_spip('balise/menu_lang_ecrire');
 
-	return menu_lang_pour_tous('var_lang', $opt);
+    return menu_lang_pour_tous('var_lang', $opt);
 }

ecrire/balise/formulaire_.php

Indentation +266 added lines, -266 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/filtres');
@@ -35,22 +35,22 @@ 
  *     Saisie protégée
  **/
 function protege_champ($texte) {
-	if (is_array($texte)) {
-		return array_map('protege_champ', $texte);
-	} elseif ($texte === null) {
-		return $texte;
-	} elseif (is_bool($texte)) {
-		return $texte ? '1' : '';
-	} elseif (is_string($texte) and $texte) {
-		if (preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) !== false) {
-			// ne pas corrompre une valeur serialize
-			return $texte;
-		} elseif (strpbrk($texte, "&\"'<>") !== false) {
-			return spip_htmlspecialchars($texte, ENT_QUOTES);
-		}
-	}
-
-	return $texte;
+    if (is_array($texte)) {
+        return array_map('protege_champ', $texte);
+    } elseif ($texte === null) {
+        return $texte;
+    } elseif (is_bool($texte)) {
+        return $texte ? '1' : '';
+    } elseif (is_string($texte) and $texte) {
+        if (preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) !== false) {
+            // ne pas corrompre une valeur serialize
+            return $texte;
+        } elseif (strpbrk($texte, "&\"'<>") !== false) {
+            return spip_htmlspecialchars($texte, ENT_QUOTES);
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -64,17 +64,17 @@ 
  *     - false : pas de squelette trouvé
  **/
 function existe_formulaire($form) {
-	if (substr($form, 0, 11) == 'FORMULAIRE_') {
-		$form = strtolower(substr($form, 11));
-	} else {
-		$form = strtolower($form);
-	}
+    if (substr($form, 0, 11) == 'FORMULAIRE_') {
+        $form = strtolower(substr($form, 11));
+    } else {
+        $form = strtolower($form);
+    }
 
-	if (!$form) {
-		return '';
-	} // on ne sait pas, le nom du formulaire n'est pas fourni ici
+    if (!$form) {
+        return '';
+    } // on ne sait pas, le nom du formulaire n'est pas fourni ici
 
-	return trouver_fond($form, 'formulaires/') ? $form : false;
+    return trouver_fond($form, 'formulaires/') ? $form : false;
 }
 
 /**
@@ -83,31 +83,31 @@ 
  * @return false|array
  */
 function test_formulaire_inclus_par_modele() {
-	$trace = debug_backtrace(0, 20);
-	$trace_fonctions = array_column($trace, 'function');
-	$trace_fonctions = array_map('strtolower', $trace_fonctions);
-
-	// regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
-	if (
-		function_exists('arguments_balise_dyn_depuis_modele')
-		and $form = arguments_balise_dyn_depuis_modele(null, 'read')
-	) {
-		if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
-			$k = array_search('balise_formulaire__dyn', $trace_fonctions);
-			if ($trace[$k]['args'][0] === $form) {
-				return $trace[$k]['args'];
-			}
-		}
-	}
-
-	// fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
-	// mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
-	if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
-		$k = array_search('inclure_modele', $trace_fonctions);
-		// les arguments de recuperer_fond() passes par inclure_modele()
-		return $trace[$k - 1]['args'][1]['args'];
-	}
-	return false;
+    $trace = debug_backtrace(0, 20);
+    $trace_fonctions = array_column($trace, 'function');
+    $trace_fonctions = array_map('strtolower', $trace_fonctions);
+
+    // regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
+    if (
+        function_exists('arguments_balise_dyn_depuis_modele')
+        and $form = arguments_balise_dyn_depuis_modele(null, 'read')
+    ) {
+        if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
+            $k = array_search('balise_formulaire__dyn', $trace_fonctions);
+            if ($trace[$k]['args'][0] === $form) {
+                return $trace[$k]['args'];
+            }
+        }
+    }
+
+    // fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
+    // mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
+    if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
+        $k = array_search('inclure_modele', $trace_fonctions);
+        // les arguments de recuperer_fond() passes par inclure_modele()
+        return $trace[$k - 1]['args'][1]['args'];
+    }
+    return false;
 }
 
 /**
@@ -122,32 +122,32 @@ 
  **/
 function balise_FORMULAIRE__dist($p) {
 
-	// Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
-	// mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
-	if (existe_formulaire($p->nom_champ) === false) {
-		$p->code = "''";
-		$p->interdire_scripts = false;
-
-		return $p;
-	}
-
-	// sinon renvoyer un code php dynamique
-	$p = calculer_balise_dynamique($p, $p->nom_champ, []);
-
-	if (
-		!test_espace_prive()
-		and !empty($p->descr['sourcefile'])
-		and $f = $p->descr['sourcefile']
-		and basename(dirname($f)) === 'modeles'
-	) {
-		// un modele est toujours inséré en texte dans son contenant
-		// donc si on est dans le public avec un cache on va perdre le dynamisme
-		// et on risque de mettre en cache les valeurs pre-remplies du formulaire
-		// on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
-		$p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
-		// dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
-	}
-	return $p;
+    // Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
+    // mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
+    if (existe_formulaire($p->nom_champ) === false) {
+        $p->code = "''";
+        $p->interdire_scripts = false;
+
+        return $p;
+    }
+
+    // sinon renvoyer un code php dynamique
+    $p = calculer_balise_dynamique($p, $p->nom_champ, []);
+
+    if (
+        !test_espace_prive()
+        and !empty($p->descr['sourcefile'])
+        and $f = $p->descr['sourcefile']
+        and basename(dirname($f)) === 'modeles'
+    ) {
+        // un modele est toujours inséré en texte dans son contenant
+        // donc si on est dans le public avec un cache on va perdre le dynamisme
+        // et on risque de mettre en cache les valeurs pre-remplies du formulaire
+        // on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
+        $p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
+        // dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
+    }
+    return $p;
 }
 
 /**
@@ -167,17 +167,17 @@ 
  *     - string : texte à afficher directement
  */
 function balise_FORMULAIRE__dyn($form, ...$args) {
-	$form = existe_formulaire($form);
-	if (!$form) {
-		return '';
-	}
+    $form = existe_formulaire($form);
+    if (!$form) {
+        return '';
+    }
 
-	$contexte = balise_FORMULAIRE__contexte($form, $args);
-	if (!is_array($contexte)) {
-		return $contexte;
-	}
+    $contexte = balise_FORMULAIRE__contexte($form, $args);
+    if (!is_array($contexte)) {
+        return $contexte;
+    }
 
-	return ["formulaires/$form", 3600, $contexte];
+    return ["formulaires/$form", 3600, $contexte];
 }
 
 /**
@@ -192,84 +192,84 @@ 
  *     string: Formulaire non applicable (message d’explication)
  **/
 function balise_FORMULAIRE__contexte($form, $args) {
-	// tester si ce formulaire vient d'etre poste (memes arguments)
-	// pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
-	// si poste, on recupere les erreurs
-
-	$je_suis_poste = false;
-	if (
-		$post_form = _request('formulaire_action')
-		and $post_form == $form
-		and $p = _request('formulaire_action_args')
-		and is_array($p = decoder_contexte_ajax($p, $post_form))
-	) {
-		// enlever le faux attribut de langue masque
-		array_shift($p);
-		if (formulaire__identifier($form, $args, $p)) {
-			$je_suis_poste = true;
-		}
-	}
-
-	$editable = true;
-	$erreurs = $post = [];
-	if ($je_suis_poste) {
-		$post = traiter_formulaires_dynamiques(true);
-		$e = "erreurs_$form";
-		$erreurs = $post[$e] ?? [];
-		$editable = "editable_$form";
-		$editable = (!isset($post[$e]))
-			|| (is_countable($erreurs) ? count($erreurs) : 0)
-			|| (isset($post[$editable]) && $post[$editable]);
-	}
-
-	$valeurs = formulaire__charger($form, $args, $je_suis_poste);
-
-	// si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
-	// C'est plus fort qu'editable qui est gere par le squelette
-	// Idealement $valeur doit etre alors un message explicatif.
-	if (!is_array($valeurs)) {
-		return is_string($valeurs) ? $valeurs : '';
-	}
-
-	// charger peut passer une action si le formulaire ne tourne pas sur self()
-	// ou une action vide si elle ne sert pas
-	$action = $valeurs['action'] ?? self('&amp;', true);
-	// bug IEx : si action finit par /
-	// IE croit que le <form ... action=../ > est autoferme
-	if (substr($action, -1) == '/') {
-		// on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
-		$action .= '#';
-	}
-
-	// recuperer la saisie en cours si erreurs
-	// seulement si c'est ce formulaire qui est poste
-	// ou si on le demande explicitement par le parametre _forcer_request = true
-	$dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
-	foreach (array_keys($valeurs) as $champ) {
-		if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
-			if ($dispo and (($v = _request($champ)) !== null)) {
-				$valeurs[$champ] = $v;
-			}
-			// nettoyer l'url des champs qui vont etre saisis
-			if ($action) {
-				$action = parametre_url($action, $champ, '');
-			}
-			// proteger les ' et les " dans les champs que l'on va injecter
-			$valeurs[$champ] = protege_champ($valeurs[$champ]);
-		}
-	}
-
-	if ($action) {
-		// nettoyer l'url
-		$action = parametre_url($action, 'formulaire_action', '');
-		$action = parametre_url($action, 'formulaire_action_args', '');
-	}
-
-	/**
-	 * @deprecated 4.0
-	 * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
-	 */
-	/*
+    // tester si ce formulaire vient d'etre poste (memes arguments)
+    // pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
+    // si poste, on recupere les erreurs
+
+    $je_suis_poste = false;
+    if (
+        $post_form = _request('formulaire_action')
+        and $post_form == $form
+        and $p = _request('formulaire_action_args')
+        and is_array($p = decoder_contexte_ajax($p, $post_form))
+    ) {
+        // enlever le faux attribut de langue masque
+        array_shift($p);
+        if (formulaire__identifier($form, $args, $p)) {
+            $je_suis_poste = true;
+        }
+    }
+
+    $editable = true;
+    $erreurs = $post = [];
+    if ($je_suis_poste) {
+        $post = traiter_formulaires_dynamiques(true);
+        $e = "erreurs_$form";
+        $erreurs = $post[$e] ?? [];
+        $editable = "editable_$form";
+        $editable = (!isset($post[$e]))
+            || (is_countable($erreurs) ? count($erreurs) : 0)
+            || (isset($post[$editable]) && $post[$editable]);
+    }
+
+    $valeurs = formulaire__charger($form, $args, $je_suis_poste);
+
+    // si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
+    // C'est plus fort qu'editable qui est gere par le squelette
+    // Idealement $valeur doit etre alors un message explicatif.
+    if (!is_array($valeurs)) {
+        return is_string($valeurs) ? $valeurs : '';
+    }
+
+    // charger peut passer une action si le formulaire ne tourne pas sur self()
+    // ou une action vide si elle ne sert pas
+    $action = $valeurs['action'] ?? self('&amp;', true);
+    // bug IEx : si action finit par /
+    // IE croit que le <form ... action=../ > est autoferme
+    if (substr($action, -1) == '/') {
+        // on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
+        $action .= '#';
+    }
+
+    // recuperer la saisie en cours si erreurs
+    // seulement si c'est ce formulaire qui est poste
+    // ou si on le demande explicitement par le parametre _forcer_request = true
+    $dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
+    foreach (array_keys($valeurs) as $champ) {
+        if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
+            if ($dispo and (($v = _request($champ)) !== null)) {
+                $valeurs[$champ] = $v;
+            }
+            // nettoyer l'url des champs qui vont etre saisis
+            if ($action) {
+                $action = parametre_url($action, $champ, '');
+            }
+            // proteger les ' et les " dans les champs que l'on va injecter
+            $valeurs[$champ] = protege_champ($valeurs[$champ]);
+        }
+    }
+
+    if ($action) {
+        // nettoyer l'url
+        $action = parametre_url($action, 'formulaire_action', '');
+        $action = parametre_url($action, 'formulaire_action_args', '');
+    }
+
+    /**
+     * @deprecated 4.0
+     * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
+     */
+    /*
 	if (isset($valeurs['_action'])) {
 		$securiser_action = charger_fonction('securiser_action', 'inc');
 		$secu = $securiser_action(reset($valeurs['_action']), end($valeurs['_action']), '', -1);
@@ -279,59 +279,59 @@ 
 	}
 	*/
 
-	// empiler la lang en tant que premier argument implicite du CVT
-	// pour permettre de la restaurer au moment du Verifier et du Traiter
-	array_unshift($args, $GLOBALS['spip_lang']);
-
-	$valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
-	$valeurs['erreurs'] = $erreurs;
-	$valeurs['action'] = $action;
-	$valeurs['form'] = $form;
-
-	$valeurs['formulaire_sign'] = '';
-	if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
-		$valeurs['formulaire_sign'] = $secu['hash'];
-	}
-
-	if (!isset($valeurs['id'])) {
-		$valeurs['id'] = 'new';
-	}
-	// editable peut venir de charger() ou de traiter() sinon
-	if (!isset($valeurs['editable'])) {
-		$valeurs['editable'] = $editable;
-	}
-	// dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
-	$valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
-
-	if ($je_suis_poste) {
-		$valeurs['message_erreur'] = '';
-		if (isset($erreurs['message_erreur'])) {
-			$valeurs['message_erreur'] = $erreurs['message_erreur'];
-		}
-
-		$valeurs['message_ok'] = '';
-		if (isset($post["message_ok_$form"])) {
-			$valeurs['message_ok'] = $post["message_ok_$form"];
-		} elseif (isset($erreurs['message_ok'])) {
-			$valeurs['message_ok'] = $erreurs['message_ok'];
-		}
-
-		// accessibilite : encapsuler toutes les erreurs dans un role='alert'
-		// uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
-		// et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
-		if (html5_permis()) {
-			foreach ($erreurs as $k => $v) {
-				if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
-					// on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
-					$valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
-				}
-			}
-		}
-	}
-
-	return $valeurs;
+    // empiler la lang en tant que premier argument implicite du CVT
+    // pour permettre de la restaurer au moment du Verifier et du Traiter
+    array_unshift($args, $GLOBALS['spip_lang']);
+
+    $valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
+    $valeurs['erreurs'] = $erreurs;
+    $valeurs['action'] = $action;
+    $valeurs['form'] = $form;
+
+    $valeurs['formulaire_sign'] = '';
+    if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
+        $valeurs['formulaire_sign'] = $secu['hash'];
+    }
+
+    if (!isset($valeurs['id'])) {
+        $valeurs['id'] = 'new';
+    }
+    // editable peut venir de charger() ou de traiter() sinon
+    if (!isset($valeurs['editable'])) {
+        $valeurs['editable'] = $editable;
+    }
+    // dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
+    $valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
+
+    if ($je_suis_poste) {
+        $valeurs['message_erreur'] = '';
+        if (isset($erreurs['message_erreur'])) {
+            $valeurs['message_erreur'] = $erreurs['message_erreur'];
+        }
+
+        $valeurs['message_ok'] = '';
+        if (isset($post["message_ok_$form"])) {
+            $valeurs['message_ok'] = $post["message_ok_$form"];
+        } elseif (isset($erreurs['message_ok'])) {
+            $valeurs['message_ok'] = $erreurs['message_ok'];
+        }
+
+        // accessibilite : encapsuler toutes les erreurs dans un role='alert'
+        // uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
+        // et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
+        if (html5_permis()) {
+            foreach ($erreurs as $k => $v) {
+                if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
+                    // on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
+                    $valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
+                }
+            }
+        }
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -343,51 +343,51 @@ 
  * @return array
  */
 function formulaire__charger($form, $args, $poste) {
-	if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
-		$valeurs = call_user_func_array($charger_valeurs, $args);
-	} else {
-		$valeurs = [];
-	}
-
-	$valeurs = pipeline(
-		'formulaire_charger',
-		[
-			'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			'data' => $valeurs
-		]
-	);
-
-	// prise en charge CVT multi etape
-	if (is_array($valeurs) and isset($valeurs['_etapes'])) {
-		include_spip('inc/cvt_multietapes');
-		$valeurs = cvtmulti_formulaire_charger_etapes(
-			['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			$valeurs
-		);
-	}
-
-	// si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
-	if (is_array($valeurs)) {
-		if (!isset($valeurs['_pipelines'])) {
-			$valeurs['_pipelines'] = [];
-		}
-		// l'ancien argument _pipeline devient maintenant _pipelines
-		// reinjectons le vieux _pipeline au debut de _pipelines
-		if (isset($valeurs['_pipeline'])) {
-			$pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
-			$args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
-
-			$pipelines = [$pipe => $args];
-			$valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
-		}
-
-		// et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
-		// qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
-		// (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
-		$valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
-	}
-
-	return $valeurs;
+    if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
+        $valeurs = call_user_func_array($charger_valeurs, $args);
+    } else {
+        $valeurs = [];
+    }
+
+    $valeurs = pipeline(
+        'formulaire_charger',
+        [
+            'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            'data' => $valeurs
+        ]
+    );
+
+    // prise en charge CVT multi etape
+    if (is_array($valeurs) and isset($valeurs['_etapes'])) {
+        include_spip('inc/cvt_multietapes');
+        $valeurs = cvtmulti_formulaire_charger_etapes(
+            ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            $valeurs
+        );
+    }
+
+    // si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
+    if (is_array($valeurs)) {
+        if (!isset($valeurs['_pipelines'])) {
+            $valeurs['_pipelines'] = [];
+        }
+        // l'ancien argument _pipeline devient maintenant _pipelines
+        // reinjectons le vieux _pipeline au debut de _pipelines
+        if (isset($valeurs['_pipeline'])) {
+            $pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
+            $args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
+
+            $pipelines = [$pipe => $args];
+            $valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
+        }
+
+        // et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
+        // qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
+        // (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
+        $valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -406,9 +406,9 @@ 
  * @return bool
  */
 function formulaire__identifier($form, $args, $p) {
-	if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
-		return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
-	}
+    if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
+        return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
+    }
 
-	return $args === $p;
+    return $args === $p;
 }