spip / SPIP

ecrire/inc/acces.php

Indentation +234 added lines, -234 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -30,46 +30,46 @@ 
  *     Mot de passe
  **/
 function creer_pass_aleatoire($longueur = 16, $sel = '') {
-	$seed = (int)round(((float)microtime() + 1) * time());
-
-	mt_srand($seed);
-	$s = '';
-	$pass = '';
-	for ($i = 0; $i < $longueur; $i++) {
-		if (!$s) {
-			$s = random_int(0, mt_getrandmax());
-			if (!$s) {
-				$s = random_int(0, mt_getrandmax());
-			}
-			$s = substr(md5(uniqid($s) . $sel), 0, 16);
-		}
-		$r = unpack('Cr', pack('H2', $s . $s));
-		$x = $r['r'] & 63;
-		if ($x < 10) {
-			$x = chr($x + 48);
-		} else {
-			if ($x < 36) {
-				$x = chr($x + 55);
-			} else {
-				if ($x < 62) {
-					$x = chr($x + 61);
-				} else {
-					if ($x == 63) {
-						$x = '/';
-					} else {
-						$x = '.';
-					}
-				}
-			}
-		}
-		$pass .= $x;
-		$s = substr($s, 2);
-	}
-	$pass = preg_replace('@[./]@', 'a', $pass);
-	$pass = preg_replace('@[I1l]@', 'L', $pass);
-	$pass = preg_replace('@[0O]@', 'o', $pass);
-
-	return $pass;
+    $seed = (int)round(((float)microtime() + 1) * time());
+
+    mt_srand($seed);
+    $s = '';
+    $pass = '';
+    for ($i = 0; $i < $longueur; $i++) {
+        if (!$s) {
+            $s = random_int(0, mt_getrandmax());
+            if (!$s) {
+                $s = random_int(0, mt_getrandmax());
+            }
+            $s = substr(md5(uniqid($s) . $sel), 0, 16);
+        }
+        $r = unpack('Cr', pack('H2', $s . $s));
+        $x = $r['r'] & 63;
+        if ($x < 10) {
+            $x = chr($x + 48);
+        } else {
+            if ($x < 36) {
+                $x = chr($x + 55);
+            } else {
+                if ($x < 62) {
+                    $x = chr($x + 61);
+                } else {
+                    if ($x == 63) {
+                        $x = '/';
+                    } else {
+                        $x = '.';
+                    }
+                }
+            }
+        }
+        $pass .= $x;
+        $s = substr($s, 2);
+    }
+    $pass = preg_replace('@[./]@', 'a', $pass);
+    $pass = preg_replace('@[I1l]@', 'L', $pass);
+    $pass = preg_replace('@[0O]@', 'o', $pass);
+
+    return $pass;
 }
 
 /**
@@ -78,20 +78,20 @@ 
  * @return string Identifiant
  */
 function creer_uniqid() {
-	static $seeded;
+    static $seeded;
 
-	if (!$seeded) {
-		$seed = (int)round(((float)microtime() + 1) * time());
-		mt_srand($seed);
-		$seeded = true;
-	}
+    if (!$seeded) {
+        $seed = (int)round(((float)microtime() + 1) * time());
+        mt_srand($seed);
+        $seeded = true;
+    }
 
-	$s = random_int(0, mt_getrandmax());
-	if (!$s) {
-		$s = random_int(0, mt_getrandmax());
-	}
+    $s = random_int(0, mt_getrandmax());
+    if (!$s) {
+        $s = random_int(0, mt_getrandmax());
+    }
 
-	return uniqid($s, 1);
+    return uniqid($s, 1);
 }
 
 /**
@@ -105,42 +105,42 @@ 
  * @return string Retourne l'alea éphemère actuel au passage
  */
 function charger_aleas() {
-	if (!isset($GLOBALS['meta']['alea_ephemere'])) {
-		include_spip('base/abstract_sql');
-		$aleas = sql_allfetsel(
-			['nom', 'valeur'],
-			'spip_meta',
-			sql_in('nom', ['alea_ephemere', 'alea_ephemere_ancien']),
-			'',
-			'',
-			'',
-			'',
-			'',
-			'continue'
-		);
-		if ($aleas) {
-			foreach ($aleas as $a) {
-				$GLOBALS['meta'][$a['nom']] = $a['valeur'];
-			}
-			return $GLOBALS['meta']['alea_ephemere'];
-		} else {
-			spip_log('aleas indisponibles', 'session');
-			return '';
-		}
-	}
-	return $GLOBALS['meta']['alea_ephemere'];
+    if (!isset($GLOBALS['meta']['alea_ephemere'])) {
+        include_spip('base/abstract_sql');
+        $aleas = sql_allfetsel(
+            ['nom', 'valeur'],
+            'spip_meta',
+            sql_in('nom', ['alea_ephemere', 'alea_ephemere_ancien']),
+            '',
+            '',
+            '',
+            '',
+            '',
+            'continue'
+        );
+        if ($aleas) {
+            foreach ($aleas as $a) {
+                $GLOBALS['meta'][$a['nom']] = $a['valeur'];
+            }
+            return $GLOBALS['meta']['alea_ephemere'];
+        } else {
+            spip_log('aleas indisponibles', 'session');
+            return '';
+        }
+    }
+    return $GLOBALS['meta']['alea_ephemere'];
 }
 
 /**
  * Renouveller l'alea (utilisé pour sécuriser les scripts du répertoire `action/`)
  **/
 function renouvelle_alea() {
-	charger_aleas();
-	ecrire_meta('alea_ephemere_ancien', @$GLOBALS['meta']['alea_ephemere'], 'non');
-	$GLOBALS['meta']['alea_ephemere'] = md5(creer_uniqid());
-	ecrire_meta('alea_ephemere', $GLOBALS['meta']['alea_ephemere'], 'non');
-	ecrire_meta('alea_ephemere_date', time(), 'non');
-	spip_log("renouvellement de l'alea_ephemere");
+    charger_aleas();
+    ecrire_meta('alea_ephemere_ancien', @$GLOBALS['meta']['alea_ephemere'], 'non');
+    $GLOBALS['meta']['alea_ephemere'] = md5(creer_uniqid());
+    ecrire_meta('alea_ephemere', $GLOBALS['meta']['alea_ephemere'], 'non');
+    ecrire_meta('alea_ephemere_date', time(), 'non');
+    spip_log("renouvellement de l'alea_ephemere");
 }
 
 
@@ -160,21 +160,21 @@ 
  *     Clé de sécurité.
  **/
 function low_sec($id_auteur) {
-	// Pas d'id_auteur : low_sec
-	if (!$id_auteur = intval($id_auteur)) {
-		include_spip('inc/config');
-		if (!$low_sec = lire_config('low_sec')) {
-			ecrire_meta('low_sec', $low_sec = creer_pass_aleatoire());
-		}
-	} else {
-		$low_sec = sql_getfetsel('low_sec', 'spip_auteurs', 'id_auteur = ' . intval($id_auteur));
-		if (!$low_sec) {
-			$low_sec = creer_pass_aleatoire();
-			sql_updateq('spip_auteurs', ['low_sec' => $low_sec], 'id_auteur = ' . intval($id_auteur));
-		}
-	}
-
-	return $low_sec;
+    // Pas d'id_auteur : low_sec
+    if (!$id_auteur = intval($id_auteur)) {
+        include_spip('inc/config');
+        if (!$low_sec = lire_config('low_sec')) {
+            ecrire_meta('low_sec', $low_sec = creer_pass_aleatoire());
+        }
+    } else {
+        $low_sec = sql_getfetsel('low_sec', 'spip_auteurs', 'id_auteur = ' . intval($id_auteur));
+        if (!$low_sec) {
+            $low_sec = creer_pass_aleatoire();
+            sql_updateq('spip_auteurs', ['low_sec' => $low_sec], 'id_auteur = ' . intval($id_auteur));
+        }
+    }
+
+    return $low_sec;
 }
 
 
@@ -207,11 +207,11 @@ 
  * @filtre
  */
 function securiser_acces_low_sec($id_auteur, #[\SensitiveParameter] $cle, $dir, $op = '', $args = '') {
-	if ($op) {
-		$dir .= " $op $args";
-	}
+    if ($op) {
+        $dir .= " $op $args";
+    }
 
-	return verifier_low_sec($id_auteur, $cle, $dir);
+    return verifier_low_sec($id_auteur, $cle, $dir);
 }
 
 /**
@@ -226,11 +226,11 @@ 
  * @return string
  */
 function generer_url_api_low_sec(string $script, string $format, string $fond, string $path, string $args, bool $no_entities = false, ?bool $public = null) {
-	$id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
-	$cle = afficher_low_sec($id_auteur, "$script/$format $fond $args");
-	$path = "$id_auteur/$cle/$format/$fond" . ($path ? "/$path" : '');
+    $id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
+    $cle = afficher_low_sec($id_auteur, "$script/$format $fond $args");
+    $path = "$id_auteur/$cle/$format/$fond" . ($path ? "/$path" : '');
 
-	return generer_url_api($script, $path, $args, $no_entities = false, $public);
+    return generer_url_api($script, $path, $args, $no_entities = false, $public);
 }
 
 
@@ -248,27 +248,27 @@ 
  * @deprecated 4.1
  */
 function param_low_sec($op, $args = [], $lang = '', $mime = 'rss') {
-	$a = $b = '';
-	foreach ($args as $val => $var) {
-		if ($var) {
-			if ($val <> 'statut') {
-				$a .= ':' . $val . '-' . $var;
-			}
-			$b .= $val . '=' . $var . '&';
-		}
-	}
-	$a = substr($a, 1);
-	$id = intval(@$GLOBALS['connect_id_auteur']);
-
-	return $b
-	. 'op='
-	. $op
-	. '&id='
-	. $id
-	. '&cle='
-	. afficher_low_sec($id, "$mime $op $a")
-	. (!$a ? '' : "&args=$a")
-	. (!$lang ? '' : "&lang=$lang");
+    $a = $b = '';
+    foreach ($args as $val => $var) {
+        if ($var) {
+            if ($val <> 'statut') {
+                $a .= ':' . $val . '-' . $var;
+            }
+            $b .= $val . '=' . $var . '&';
+        }
+    }
+    $a = substr($a, 1);
+    $id = intval(@$GLOBALS['connect_id_auteur']);
+
+    return $b
+    . 'op='
+    . $op
+    . '&id='
+    . $id
+    . '&cle='
+    . afficher_low_sec($id, "$mime $op $a")
+    . (!$a ? '' : "&args=$a")
+    . (!$lang ? '' : "&lang=$lang");
 }
 
 /**
@@ -284,7 +284,7 @@ 
  *     Clé
  **/
 function afficher_low_sec($id_auteur, $action = '') {
-	return substr(md5($action . low_sec($id_auteur)), 0, 8);
+    return substr(md5($action . low_sec($id_auteur)), 0, 8);
 }
 
 /**
@@ -302,7 +302,7 @@ 
  *     true si les clés corresponde, false sinon
  **/
 function verifier_low_sec($id_auteur, #[\SensitiveParameter] $cle, $action = '') {
-	return ($cle == afficher_low_sec($id_auteur, $action));
+    return ($cle == afficher_low_sec($id_auteur, $action));
 }
 
 /**
@@ -312,10 +312,10 @@ 
  *     Identifiant de l'auteur
  **/
 function effacer_low_sec($id_auteur) {
-	if (!$id_auteur = intval($id_auteur)) {
-		return;
-	} // jamais trop prudent ;)
-	sql_updateq('spip_auteurs', ['low_sec' => ''], 'id_auteur = ' . intval($id_auteur));
+    if (!$id_auteur = intval($id_auteur)) {
+        return;
+    } // jamais trop prudent ;)
+    sql_updateq('spip_auteurs', ['low_sec' => ''], 'id_auteur = ' . intval($id_auteur));
 }
 
 
@@ -333,31 +333,31 @@ 
  *     - void sinon.
  **/
 function ecrire_acces() {
-	$htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
-	$htpasswd = _DIR_TMP . _AUTH_USER_FILE;
-
-	// Cette variable de configuration peut etre posee par un plugin
-	// par exemple acces_restreint ;
-	// si .htaccess existe, outrepasser spip_meta
-	if (
-		(!isset($GLOBALS['meta']['creer_htpasswd'])
-			or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
-		and !@file_exists($htaccess)
-	) {
-		spip_unlink($htpasswd);
-		spip_unlink($htpasswd . '-admin');
-		return;
-	}
-
-	# remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
-	# de devenir redacteur le cas echeant (auth http)... a nettoyer
-	// attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
-	// TODO: factoriser avec auth/spip qui fait deja ce job et generaliser le test auth_ldap_connect()
-	if (include_spip('auth/ldap') and auth_ldap_connect()) {
-		return;
-	}
-
-	generer_htpasswd_files($htpasswd, "$htpasswd-admin");
+    $htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
+    $htpasswd = _DIR_TMP . _AUTH_USER_FILE;
+
+    // Cette variable de configuration peut etre posee par un plugin
+    // par exemple acces_restreint ;
+    // si .htaccess existe, outrepasser spip_meta
+    if (
+        (!isset($GLOBALS['meta']['creer_htpasswd'])
+            or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
+        and !@file_exists($htaccess)
+    ) {
+        spip_unlink($htpasswd);
+        spip_unlink($htpasswd . '-admin');
+        return;
+    }
+
+    # remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
+    # de devenir redacteur le cas echeant (auth http)... a nettoyer
+    // attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
+    // TODO: factoriser avec auth/spip qui fait deja ce job et generaliser le test auth_ldap_connect()
+    if (include_spip('auth/ldap') and auth_ldap_connect()) {
+        return;
+    }
+
+    generer_htpasswd_files($htpasswd, "$htpasswd-admin");
 }
 
 /**
@@ -366,29 +366,29 @@ 
  * @param $htpasswd_admin
  */
 function generer_htpasswd_files($htpasswd, $htpasswd_admin) {
-	if ($generer_htpasswd = charger_fonction('generer_htpasswd_files', 'inc', true)) {
-		$generer_htpasswd($htpasswd, $htpasswd_admin);
-	}
-
-	$pwd_all = ''; // login:htpass pour tous
-	$pwd_admin = ''; // login:htpass pour les admins
-
-	$res = sql_select('login, htpass, statut', 'spip_auteurs', "htpass!='' AND login!='' AND " . sql_in('statut', ['1comite', '0minirezo', 'nouveau']));
-	while ($row = sql_fetch($res)) {
-		if (strlen($row['login']) and strlen($row['htpass'])) {
-			$ligne = $row['login'] . ':' . $row['htpass'] . "\n";
-			$pwd_all .= $ligne;
-			if ($row['statut'] == '0minirezo') {
-				$pwd_admin .= $ligne;
-			}
-		}
-	}
-
-	if ($pwd_all) {
-		ecrire_fichier($htpasswd, $pwd_all);
-		ecrire_fichier($htpasswd_admin, $pwd_admin);
-		spip_log("Ecriture de $htpasswd et $htpasswd_admin", 'htpass');
-	}
+    if ($generer_htpasswd = charger_fonction('generer_htpasswd_files', 'inc', true)) {
+        $generer_htpasswd($htpasswd, $htpasswd_admin);
+    }
+
+    $pwd_all = ''; // login:htpass pour tous
+    $pwd_admin = ''; // login:htpass pour les admins
+
+    $res = sql_select('login, htpass, statut', 'spip_auteurs', "htpass!='' AND login!='' AND " . sql_in('statut', ['1comite', '0minirezo', 'nouveau']));
+    while ($row = sql_fetch($res)) {
+        if (strlen($row['login']) and strlen($row['htpass'])) {
+            $ligne = $row['login'] . ':' . $row['htpass'] . "\n";
+            $pwd_all .= $ligne;
+            if ($row['statut'] == '0minirezo') {
+                $pwd_admin .= $ligne;
+            }
+        }
+    }
+
+    if ($pwd_all) {
+        ecrire_fichier($htpasswd, $pwd_all);
+        ecrire_fichier($htpasswd_admin, $pwd_admin);
+        spip_log("Ecriture de $htpasswd et $htpasswd_admin", 'htpass');
+    }
 }
 
 /**
@@ -402,11 +402,11 @@ 
  *  La chaîne hachée si fonction crypt présente, rien sinon.
  */
 function generer_htpass(#[\SensitiveParameter] $pass) {
-	if ($generer_htpass = charger_fonction('generer_htpass', 'inc', true)) {
-		return $generer_htpass($pass);
-	}
+    if ($generer_htpass = charger_fonction('generer_htpass', 'inc', true)) {
+        return $generer_htpass($pass);
+    }
 
-	return '';
+    return '';
 }
 
 /**
@@ -419,14 +419,14 @@ 
  * @return boolean
  */
 function verifier_htaccess($rep, $force = false) {
-	$htaccess = rtrim($rep, '/') . '/' . _ACCESS_FILE_NAME;
-	if (((@file_exists($htaccess)) or defined('_TEST_DIRS')) and !$force) {
-		return true;
-	}
-
-	// directive deny compatible Apache 2.0+
-	$deny =
-		'# Deny all requests from Apache 2.4+.
+    $htaccess = rtrim($rep, '/') . '/' . _ACCESS_FILE_NAME;
+    if (((@file_exists($htaccess)) or defined('_TEST_DIRS')) and !$force) {
+        return true;
+    }
+
+    // directive deny compatible Apache 2.0+
+    $deny =
+        '# Deny all requests from Apache 2.4+.
 <IfModule mod_authz_core.c>
   Require all denied
 </IfModule>
@@ -435,32 +435,32 @@ 
   Deny from all
 </IfModule>
 ';
-	// support des vieilles versions Apache 1.x mais uniquement si elles l'annoncent (pas en mode PROD)
-	if (
-		function_exists('apache_get_version')
-		and $v = apache_get_version()
-		and strncmp($v, 'Apache/1.', 9) == 0
-	) {
-		$deny = "deny from all\n";
-	}
-
-	if ($ht = @fopen($htaccess, 'w')) {
-		fputs($ht, $deny);
-		fclose($ht);
-		@chmod($htaccess, _SPIP_CHMOD & 0666);
-		$t = rtrim($rep, '/') . '/.ok';
-		if ($ht = @fopen($t, 'w')) {
-			@fclose($ht);
-			include_spip('inc/distant');
-			$t = substr($t, strlen(_DIR_RACINE));
-			$t = url_de_base() . $t;
-			$ht = recuperer_url($t, ['methode' => 'HEAD', 'taille_max' => 0, 'follow_location' => false]);
-			$ht = ($ht['status'] ?? null) === 403;
-		}
-	}
-	spip_log("Creation de $htaccess " . ($ht ? ' reussie' : ' manquee'));
-
-	return $ht;
+    // support des vieilles versions Apache 1.x mais uniquement si elles l'annoncent (pas en mode PROD)
+    if (
+        function_exists('apache_get_version')
+        and $v = apache_get_version()
+        and strncmp($v, 'Apache/1.', 9) == 0
+    ) {
+        $deny = "deny from all\n";
+    }
+
+    if ($ht = @fopen($htaccess, 'w')) {
+        fputs($ht, $deny);
+        fclose($ht);
+        @chmod($htaccess, _SPIP_CHMOD & 0666);
+        $t = rtrim($rep, '/') . '/.ok';
+        if ($ht = @fopen($t, 'w')) {
+            @fclose($ht);
+            include_spip('inc/distant');
+            $t = substr($t, strlen(_DIR_RACINE));
+            $t = url_de_base() . $t;
+            $ht = recuperer_url($t, ['methode' => 'HEAD', 'taille_max' => 0, 'follow_location' => false]);
+            $ht = ($ht['status'] ?? null) === 403;
+        }
+    }
+    spip_log("Creation de $htaccess " . ($ht ? ' reussie' : ' manquee'));
+
+    return $ht;
 }
 
 /**
@@ -478,20 +478,20 @@ 
  *         Valeur de la configuration `creer_htaccess`
  */
 function gerer_htaccess() {
-	// Cette variable de configuration peut etre posee par un plugin
-	// par exemple acces_restreint
-	$f = (isset($GLOBALS['meta']['creer_htaccess']) and ($GLOBALS['meta']['creer_htaccess'] === 'oui'));
-	$dirs = sql_allfetsel('extension', 'spip_types_documents');
-	$dirs[] = ['extension' => 'distant'];
-	foreach ($dirs as $e) {
-		if (is_dir($dir = _DIR_IMG . $e['extension'])) {
-			if ($f) {
-				verifier_htaccess($dir);
-			} else {
-				spip_unlink($dir . '/' . _ACCESS_FILE_NAME);
-			}
-		}
-	}
-
-	return $GLOBALS['meta']['creer_htaccess'] ?? '';
+    // Cette variable de configuration peut etre posee par un plugin
+    // par exemple acces_restreint
+    $f = (isset($GLOBALS['meta']['creer_htaccess']) and ($GLOBALS['meta']['creer_htaccess'] === 'oui'));
+    $dirs = sql_allfetsel('extension', 'spip_types_documents');
+    $dirs[] = ['extension' => 'distant'];
+    foreach ($dirs as $e) {
+        if (is_dir($dir = _DIR_IMG . $e['extension'])) {
+            if ($f) {
+                verifier_htaccess($dir);
+            } else {
+                spip_unlink($dir . '/' . _ACCESS_FILE_NAME);
+            }
+        }
+    }
+
+    return $GLOBALS['meta']['creer_htaccess'] ?? '';
 }

ecrire/inc/securiser_action.php

Indentation +187 added lines, -187 removed lines

@@ -15,10 +15,10 @@ 
  * @package SPIP\Core\Actions
  **/
 
- use Spip\Chiffrer\SpipCles;
+    use Spip\Chiffrer\SpipCles;
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -51,19 +51,19 @@ 
  * @return array|string
  */
 function inc_securiser_action_dist($action = '', $arg = '', $redirect = '', $mode = false, $att = '', $public = false) {
-	if ($action) {
-		return securiser_action_auteur($action, $arg, $redirect, $mode, $att, $public);
-	} else {
-		$arg = _request('arg');
-		$hash = _request('hash');
-		$action = _request('action') ?: _request('formulaire_action');
-		if ($a = verifier_action_auteur("$action-$arg", $hash)) {
-			return $arg;
-		}
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	}
+    if ($action) {
+        return securiser_action_auteur($action, $arg, $redirect, $mode, $att, $public);
+    } else {
+        $arg = _request('arg');
+        $hash = _request('hash');
+        $action = _request('action') ?: _request('formulaire_action');
+        if ($a = verifier_action_auteur("$action-$arg", $hash)) {
+            return $arg;
+        }
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    }
 }
 
 /**
@@ -82,29 +82,29 @@ 
  */
 function demander_confirmation_avant_action($titre, $titre_bouton, $url_action = null) {
 
-	if (!$url_action) {
-		$url_action = self();
-		$action = _request('action');
-		$url_action = parametre_url($url_action, 'action', $action, '&');
-	}
-	else {
-		$action = parametre_url($url_action, 'action');
-	}
-
-	$arg = parametre_url($url_action, 'arg');
-	$confirm = md5("$action:$arg:" . realpath(__FILE__));
-	if (_request('confirm_action') === $confirm) {
-		return true;
-	}
-
-	$url_confirm = parametre_url($url_action, 'confirm_action', $confirm, '&');
-	include_spip('inc/filtres');
-	$bouton_action = bouton_action($titre_bouton, $url_confirm);
-	$corps = "<div style='text-align:center;'>$bouton_action</div>";
-
-	include_spip('inc/minipres');
-	echo minipres($titre, $corps);
-	exit;
+    if (!$url_action) {
+        $url_action = self();
+        $action = _request('action');
+        $url_action = parametre_url($url_action, 'action', $action, '&');
+    }
+    else {
+        $action = parametre_url($url_action, 'action');
+    }
+
+    $arg = parametre_url($url_action, 'arg');
+    $confirm = md5("$action:$arg:" . realpath(__FILE__));
+    if (_request('confirm_action') === $confirm) {
+        return true;
+    }
+
+    $url_confirm = parametre_url($url_action, 'confirm_action', $confirm, '&');
+    include_spip('inc/filtres');
+    $bouton_action = bouton_action($titre_bouton, $url_confirm);
+    $corps = "<div style='text-align:center;'>$bouton_action</div>";
+
+    include_spip('inc/minipres');
+    echo minipres($titre, $corps);
+    exit;
 }
 
 /**
@@ -135,34 +135,34 @@ 
  */
 function securiser_action_auteur($action, $arg, $redirect = '', $mode = false, $att = '', $public = false) {
 
-	// mode URL ou array
-	if (!is_string($mode)) {
-		$hash = calculer_action_auteur("$action-$arg", is_numeric($att) ? $att : null);
-
-		$r = rawurlencode($redirect);
-		if ($mode === -1) {
-			return ['action' => $action, 'arg' => $arg, 'hash' => $hash];
-		} else {
-			return generer_url_action(
-				$action,
-				'arg=' . rawurlencode($arg) . "&hash=$hash" . (!$r ? '' : "&redirect=$r"),
-				$mode,
-				$public
-			);
-		}
-	}
-
-	// mode formulaire
-	$hash = calculer_action_auteur("$action-$arg");
-	$att .= " style='margin: 0px; border: 0px'";
-	if ($redirect) {
-		$redirect = "\n\t\t<input name='redirect' type='hidden' value='" . str_replace("'", '&#39;', $redirect) . "' />";
-	}
-	$mode .= $redirect . "
+    // mode URL ou array
+    if (!is_string($mode)) {
+        $hash = calculer_action_auteur("$action-$arg", is_numeric($att) ? $att : null);
+
+        $r = rawurlencode($redirect);
+        if ($mode === -1) {
+            return ['action' => $action, 'arg' => $arg, 'hash' => $hash];
+        } else {
+            return generer_url_action(
+                $action,
+                'arg=' . rawurlencode($arg) . "&hash=$hash" . (!$r ? '' : "&redirect=$r"),
+                $mode,
+                $public
+            );
+        }
+    }
+
+    // mode formulaire
+    $hash = calculer_action_auteur("$action-$arg");
+    $att .= " style='margin: 0px; border: 0px'";
+    if ($redirect) {
+        $redirect = "\n\t\t<input name='redirect' type='hidden' value='" . str_replace("'", '&#39;', $redirect) . "' />";
+    }
+    $mode .= $redirect . "
 <input name='hash' type='hidden' value='$hash' />
 <input name='arg' type='hidden' value='$arg' />";
 
-	return generer_form_action($action, $mode, $att, $public);
+    return generer_form_action($action, $mode, $att, $public);
 }
 
 /**
@@ -172,48 +172,48 @@ 
  * @return array
  */
 function caracteriser_auteur($id_auteur = null) {
-	static $caracterisation = [];
-
-	if (is_null($id_auteur) and !isset($GLOBALS['visiteur_session']['id_auteur'])) {
-		// si l'auteur courant n'est pas connu alors qu'il peut demander une action
-		// c'est une connexion par php_auth ou 1 instal, on se rabat sur le cookie.
-		// S'il n'avait pas le droit de realiser cette action, le hash sera faux.
-		if (
-			isset($_COOKIE['spip_session'])
-			and (preg_match('/^(\d+)/', $_COOKIE['spip_session'], $r))
-		) {
-			return [$r[1], ''];
-			// Necessaire aux forums anonymes.
-			// Pour le reste, ca echouera.
-		} else {
-			return ['0', ''];
-		}
-	}
-	// Eviter l'acces SQL si le pass est connu de PHP
-	if (is_null($id_auteur)) {
-		$id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
-		if (isset($GLOBALS['visiteur_session']['pass']) and $GLOBALS['visiteur_session']['pass']) {
-			return $caracterisation[$id_auteur] = [$id_auteur, $GLOBALS['visiteur_session']['pass']];
-		}
-	}
-
-	if (isset($caracterisation[$id_auteur])) {
-		return $caracterisation[$id_auteur];
-	}
-
-	if ($id_auteur) {
-		include_spip('base/abstract_sql');
-		$t = sql_fetsel('id_auteur, pass', 'spip_auteurs', "id_auteur=$id_auteur");
-		if ($t) {
-			return $caracterisation[$id_auteur] = [$t['id_auteur'], $t['pass']];
-		}
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	} // Visiteur anonyme, pour ls forums par exemple
-	else {
-		return ['0', ''];
-	}
+    static $caracterisation = [];
+
+    if (is_null($id_auteur) and !isset($GLOBALS['visiteur_session']['id_auteur'])) {
+        // si l'auteur courant n'est pas connu alors qu'il peut demander une action
+        // c'est une connexion par php_auth ou 1 instal, on se rabat sur le cookie.
+        // S'il n'avait pas le droit de realiser cette action, le hash sera faux.
+        if (
+            isset($_COOKIE['spip_session'])
+            and (preg_match('/^(\d+)/', $_COOKIE['spip_session'], $r))
+        ) {
+            return [$r[1], ''];
+            // Necessaire aux forums anonymes.
+            // Pour le reste, ca echouera.
+        } else {
+            return ['0', ''];
+        }
+    }
+    // Eviter l'acces SQL si le pass est connu de PHP
+    if (is_null($id_auteur)) {
+        $id_auteur = $GLOBALS['visiteur_session']['id_auteur'] ?? 0;
+        if (isset($GLOBALS['visiteur_session']['pass']) and $GLOBALS['visiteur_session']['pass']) {
+            return $caracterisation[$id_auteur] = [$id_auteur, $GLOBALS['visiteur_session']['pass']];
+        }
+    }
+
+    if (isset($caracterisation[$id_auteur])) {
+        return $caracterisation[$id_auteur];
+    }
+
+    if ($id_auteur) {
+        include_spip('base/abstract_sql');
+        $t = sql_fetsel('id_auteur, pass', 'spip_auteurs', "id_auteur=$id_auteur");
+        if ($t) {
+            return $caracterisation[$id_auteur] = [$t['id_auteur'], $t['pass']];
+        }
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    } // Visiteur anonyme, pour ls forums par exemple
+    else {
+        return ['0', ''];
+    }
 }
 
 /**
@@ -228,30 +228,30 @@ 
  * @return string
  */
 function _action_auteur(string $action, int $id_auteur, #[\SensitiveParameter] ?string $pass, string $alea): string {
-	static $sha = [];
-	$pass = $pass ?? '';
-	$entry = "$action:$id_auteur:$pass:$alea";
-	if (!isset($sha[$entry])) {
-		$sha[$entry] = hash_hmac('sha256', "$action::$id_auteur", "$pass::" . _action_get_alea($alea));
-	}
-
-	return $sha[$entry];
+    static $sha = [];
+    $pass = $pass ?? '';
+    $entry = "$action:$id_auteur:$pass:$alea";
+    if (!isset($sha[$entry])) {
+        $sha[$entry] = hash_hmac('sha256', "$action::$id_auteur", "$pass::" . _action_get_alea($alea));
+    }
+
+    return $sha[$entry];
 }
 
 function _action_get_alea(string $alea): string {
-	if (!isset($GLOBALS['meta'][$alea])) {
-		if (!$exec = _request('exec') or !autoriser_sans_cookie($exec)) {
-			include_spip('inc/acces');
-			charger_aleas();
-			if (empty($GLOBALS['meta'][$alea])) {
-				include_spip('inc/minipres');
-				echo minipres();
-				spip_log("$alea indisponible");
-				exit;
-			}
-		}
-	}
-	return $GLOBALS['meta'][$alea] ?? '';
+    if (!isset($GLOBALS['meta'][$alea])) {
+        if (!$exec = _request('exec') or !autoriser_sans_cookie($exec)) {
+            include_spip('inc/acces');
+            charger_aleas();
+            if (empty($GLOBALS['meta'][$alea])) {
+                include_spip('inc/minipres');
+                echo minipres();
+                spip_log("$alea indisponible");
+                exit;
+            }
+        }
+    }
+    return $GLOBALS['meta'][$alea] ?? '';
 }
 
 /**
@@ -262,9 +262,9 @@ 
  * @return string
  */
 function calculer_action_auteur($action, $id_auteur = null) {
-	[$id_auteur, $pass] = caracteriser_auteur($id_auteur);
+    [$id_auteur, $pass] = caracteriser_auteur($id_auteur);
 
-	return _action_auteur($action, $id_auteur, $pass, 'alea_ephemere');
+    return _action_auteur($action, $id_auteur, $pass, 'alea_ephemere');
 }
 
 
@@ -277,15 +277,15 @@ 
  * @return bool
  */
 function verifier_action_auteur($action, $hash) {
-	[$id_auteur, $pass] = caracteriser_auteur();
-	if (
-		hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere'))
-		or hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere_ancien'))
-	) {
-		return true;
-	}
-
-	return false;
+    [$id_auteur, $pass] = caracteriser_auteur();
+    if (
+        hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere'))
+        or hash_equals($hash, _action_auteur($action, $id_auteur, $pass, 'alea_ephemere_ancien'))
+    ) {
+        return true;
+    }
+
+    return false;
 }
 
 //
@@ -300,7 +300,7 @@ 
  * @return string
  */
 function secret_du_site() {
-	return SpipCles::secret_du_site();
+    return SpipCles::secret_du_site();
 }
 
 /**
@@ -310,7 +310,7 @@ 
  * @return string
  */
 function calculer_cle_action($action) {
-	return hash_hmac('sha256', $action, secret_du_site());
+    return hash_hmac('sha256', $action, secret_du_site());
 }
 
 /**
@@ -321,7 +321,7 @@ 
  * @return bool
  */
 function verifier_cle_action($action, #[\SensitiveParameter] $cle) {
-	return hash_equals($cle, calculer_cle_action($action));
+    return hash_equals($cle, calculer_cle_action($action));
 }
 
 
@@ -338,19 +338,19 @@ 
  * @return string Token, de la forme "{id}*{hash}"
  */
 function calculer_token_previsu($url, $id_auteur = null, $alea = 'alea_ephemere') {
-	if (is_null($id_auteur)) {
-		if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
-			$id_auteur = $GLOBALS['visiteur_session']['id_auteur'];
-		}
-	}
-	if (!$id_auteur = intval($id_auteur)) {
-		return '';
-	}
-	// On nettoie l’URL de tous les var_.
-	$url = nettoyer_uri_var($url);
-
-	$token = _action_auteur('previsualiser-' . $url, $id_auteur, secret_du_site(), $alea);
-	return "$id_auteur-$token";
+    if (is_null($id_auteur)) {
+        if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
+            $id_auteur = $GLOBALS['visiteur_session']['id_auteur'];
+        }
+    }
+    if (!$id_auteur = intval($id_auteur)) {
+        return '';
+    }
+    // On nettoie l’URL de tous les var_.
+    $url = nettoyer_uri_var($url);
+
+    $token = _action_auteur('previsualiser-' . $url, $id_auteur, secret_du_site(), $alea);
+    return "$id_auteur-$token";
 }
 
 
@@ -368,31 +368,31 @@ 
  *     + Tableau (id auteur, type d’objet, id_objet) sinon.
  */
 function verifier_token_previsu(#[\SensitiveParameter] $token) {
-	// retrouver auteur / hash
-	$e = explode('-', $token, 2);
-	if (count($e) == 2 and is_numeric(reset($e))) {
-		$id_auteur = intval(reset($e));
-	} else {
-		return false;
-	}
-
-	// calculer le type et id de l’url actuelle
-	include_spip('inc/urls');
-	include_spip('inc/filtres_mini');
-	$url = url_absolue(self());
-
-	// verifier le token
-	$_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere');
-	if (!$_token or !hash_equals($token, $_token)) {
-		$_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere_ancien');
-		if (!$_token or !hash_equals($token, $_token)) {
-			return false;
-		}
-	}
-
-	return [
-		'id_auteur' => $id_auteur,
-	];
+    // retrouver auteur / hash
+    $e = explode('-', $token, 2);
+    if (count($e) == 2 and is_numeric(reset($e))) {
+        $id_auteur = intval(reset($e));
+    } else {
+        return false;
+    }
+
+    // calculer le type et id de l’url actuelle
+    include_spip('inc/urls');
+    include_spip('inc/filtres_mini');
+    $url = url_absolue(self());
+
+    // verifier le token
+    $_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere');
+    if (!$_token or !hash_equals($token, $_token)) {
+        $_token = calculer_token_previsu($url, $id_auteur, 'alea_ephemere_ancien');
+        if (!$_token or !hash_equals($token, $_token)) {
+            return false;
+        }
+    }
+
+    return [
+        'id_auteur' => $id_auteur,
+    ];
 }
 
 /**
@@ -401,13 +401,13 @@ 
  * @return bool|array
  */
 function decrire_token_previsu() {
-	static $desc = null;
-	if (is_null($desc)) {
-		if ($token = _request('var_previewtoken')) {
-			$desc = verifier_token_previsu($token);
-		} else {
-			$desc = false;
-		}
-	}
-	return $desc;
+    static $desc = null;
+    if (is_null($desc)) {
+        if ($token = _request('var_previewtoken')) {
+            $desc = verifier_token_previsu($token);
+        } else {
+            $desc = false;
+        }
+    }
+    return $desc;
 }

ecrire/auth/spip.php

Indentation +409 added lines, -409 removed lines

@@ -18,7 +18,7 @@ 
 use Spip\Chiffrer\SpipCles;
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -33,169 +33,169 @@ 
  */
 function auth_spip_dist($login, #[\SensitiveParameter] $pass, $serveur = '', $phpauth = false) {
 
-	// retrouver le login
-	$login = auth_spip_retrouver_login($login);
-	// login inconnu, n'allons pas plus loin
-	if (!$login) {
-		return [];
-	}
-
-	$md5pass = '';
-	$shapass = $shanext = '';
-	$auteur_peut_sauver_cles = false;
-
-	if ($pass) {
-		$row = sql_fetsel(
-			'*',
-			'spip_auteurs',
-			'login=' . sql_quote($login, $serveur, 'text') . " AND statut<>'5poubelle'",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-
-		// lever un flag si cet auteur peut sauver les cles
-		if ($row['statut'] === '0minirezo' and $row['webmestre'] === 'oui' and isset($row['backup_cles'])) {
-			$auteur_peut_sauver_cles = true;
-		}
-	}
-
-	// login inexistant ou mot de passe vide
-	if (!$pass or !$row) {
-		return [];
-	}
-
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-
-	$hash = null;
-	switch (strlen($row['pass'])) {
-		// legacy = md5 ou sha256
-		case 32:
-			// tres anciens mots de passe encodes en md5(alea.pass)
-			$hash = md5($row['alea_actuel'] . $pass);
-			$methode = 'md5';
-		case 64:
-			if (empty($hash)) {
-				// anciens mots de passe encodes en sha256(alea.pass)
-				include_spip('auth/sha256.inc');
-				$hash = spip_sha256($row['alea_actuel'] . $pass);
-				$methode = 'sha256';
-			}
-			if ($row['pass'] === $hash) {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via $methode", 'auth' . _LOG_DEBUG);
-				// ce n'est pas cense arriver, mais si jamais c'est un backup inutilisable, il faut le nettoyer pour ne pas bloquer la creation d'une nouvelle cle d'auth
-				if (!empty($row['backup_cles'])) {
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
-				}
-				break;
-			}
-
-		// on teste la methode par defaut, au cas ou ce serait un pass moderne qui a la malchance d'etre en 64char de long
-
-		case 60:
-		case 98:
-		default:
-			// doit-on restaurer un backup des cles ?
-			// si on a le bon pass on peut decoder le backup, retrouver la cle, et du coup valider le pass
-			if (
-				!$secret
-				and $auteur_peut_sauver_cles
-				and !empty($row['backup_cles'])
-			) {
-				if ($cles->restore($row['backup_cles'], $pass, $row['pass'], $row['id_auteur'])) {
-					spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
-					if ($cles->save()) {
-						$secret = $cles->getSecretAuth();
-					}
-					else {
-						spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
-						// et on echoue car on ne veut pas que la situation reste telle quelle
-						raler_fichier(_DIR_ETC . 'cles.php');
-					}
-				}
-				else {
-					spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
-					sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
-				}
-			}
-
-			if (!$secret or !Password::verifier($pass, $row['pass'], $secret)) {
-				unset($row);
-			}
-			else {
-				spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
-			}
-			break;
-	}
-
-	// Migration depuis ancienne version : si on a pas encore de cle
-	// ET si c'est le login d'un auteur qui peut sauver la cle
-	// créer la clé (en s'assurant bien que personne n'a de backup d'un precedent fichier cle.php)
-	// si c'est un auteur normal, on ne fait rien, il garde son ancien pass hashé en sha256 en attendant le login d'un webmestre
-	if (!$secret and $auteur_peut_sauver_cles) {
-		if (auth_spip_initialiser_secret()) {
-			$secret = $cles->getSecretAuth();
-		}
-	}
-
-	// login/mot de passe incorrect
-	if (empty($row)) {
-		return [];
-	}
-
-	// fait tourner le codage du pass dans la base
-	// sauf si phpauth : cela reviendrait a changer l'alea a chaque hit, et aucune action verifiable par securiser_action()
-	if (!$phpauth and $secret) {
-		include_spip('inc/acces'); // pour creer_uniqid et verifier_htaccess
-		$pass_hash_next = Password::hacher($pass, $secret);
-		if ($pass_hash_next) {
-			$set = [
-				'alea_actuel' => 'alea_futur', // @deprecated 4.1
-				'alea_futur' => sql_quote(creer_uniqid(), $serveur, 'text'), // @deprecated 4.1
-				'pass' => sql_quote($pass_hash_next, $serveur, 'text'),
-			];
-
-			// regenerer un htpass si on a active/desactive le plugin htpasswd
-			// et/ou que l'algo a change - pour etre certain de toujours utiliser le bon algo
-			$htpass = generer_htpass($pass);
-			if (strlen($htpass) !== strlen($row['htpass'])) {
-				$set['htpass'] = sql_quote($htpass, $serveur, 'text');
-			}
-
-			// a chaque login de webmestre : sauvegarde chiffree des clés du site (avec les pass du webmestre)
-			if ($auteur_peut_sauver_cles) {
-				$set['backup_cles'] = sql_quote($cles->backup($pass), $serveur, 'text');
-			}
-
-			@sql_update(
-				'spip_auteurs',
-				$set,
-				'id_auteur=' . intval($row['id_auteur']) . ' AND pass=' . sql_quote(
-					$row['pass'],
-					$serveur,
-					'text'
-				),
-				[],
-				$serveur
-			);
-
-			// si on a change le htpass car changement d'algo, regenerer les fichiers htpasswd
-			if (isset($set['htpass'])) {
-				ecrire_acces();
-			}
-		}
-
-		// En profiter pour verifier la securite de tmp/
-		// Si elle ne fonctionne pas a l'installation, prevenir
-		if (!verifier_htaccess(_DIR_TMP) and defined('_ECRIRE_INSTALL')) {
-			return false;
-		}
-	}
-
-	return $row;
+    // retrouver le login
+    $login = auth_spip_retrouver_login($login);
+    // login inconnu, n'allons pas plus loin
+    if (!$login) {
+        return [];
+    }
+
+    $md5pass = '';
+    $shapass = $shanext = '';
+    $auteur_peut_sauver_cles = false;
+
+    if ($pass) {
+        $row = sql_fetsel(
+            '*',
+            'spip_auteurs',
+            'login=' . sql_quote($login, $serveur, 'text') . " AND statut<>'5poubelle'",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+
+        // lever un flag si cet auteur peut sauver les cles
+        if ($row['statut'] === '0minirezo' and $row['webmestre'] === 'oui' and isset($row['backup_cles'])) {
+            $auteur_peut_sauver_cles = true;
+        }
+    }
+
+    // login inexistant ou mot de passe vide
+    if (!$pass or !$row) {
+        return [];
+    }
+
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+
+    $hash = null;
+    switch (strlen($row['pass'])) {
+        // legacy = md5 ou sha256
+        case 32:
+            // tres anciens mots de passe encodes en md5(alea.pass)
+            $hash = md5($row['alea_actuel'] . $pass);
+            $methode = 'md5';
+        case 64:
+            if (empty($hash)) {
+                // anciens mots de passe encodes en sha256(alea.pass)
+                include_spip('auth/sha256.inc');
+                $hash = spip_sha256($row['alea_actuel'] . $pass);
+                $methode = 'sha256';
+            }
+            if ($row['pass'] === $hash) {
+                spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via $methode", 'auth' . _LOG_DEBUG);
+                // ce n'est pas cense arriver, mais si jamais c'est un backup inutilisable, il faut le nettoyer pour ne pas bloquer la creation d'une nouvelle cle d'auth
+                if (!empty($row['backup_cles'])) {
+                    sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+                }
+                break;
+            }
+
+        // on teste la methode par defaut, au cas ou ce serait un pass moderne qui a la malchance d'etre en 64char de long
+
+        case 60:
+        case 98:
+        default:
+            // doit-on restaurer un backup des cles ?
+            // si on a le bon pass on peut decoder le backup, retrouver la cle, et du coup valider le pass
+            if (
+                !$secret
+                and $auteur_peut_sauver_cles
+                and !empty($row['backup_cles'])
+            ) {
+                if ($cles->restore($row['backup_cles'], $pass, $row['pass'], $row['id_auteur'])) {
+                    spip_log('Les cles secretes ont ete restaurées avec le backup du webmestre #' . $row['id_auteur'], 'auth' . _LOG_INFO_IMPORTANTE);
+                    if ($cles->save()) {
+                        $secret = $cles->getSecretAuth();
+                    }
+                    else {
+                        spip_log("Echec restauration des cles : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+                        // et on echoue car on ne veut pas que la situation reste telle quelle
+                        raler_fichier(_DIR_ETC . 'cles.php');
+                    }
+                }
+                else {
+                    spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) mais le backup du webmestre #' . $row['id_auteur'] . " n'est pas valide", 'auth' . _LOG_ERREUR);
+                    sql_updateq('spip_auteurs', ['backup_cles' => ''], 'id_auteur=' . intval($row['id_auteur']));
+                }
+            }
+
+            if (!$secret or !Password::verifier($pass, $row['pass'], $secret)) {
+                unset($row);
+            }
+            else {
+                spip_log("validation du mot de passe pour l'auteur #" . $row['id_auteur'] . " $login via Password::verifier", 'auth' . _LOG_DEBUG);
+            }
+            break;
+    }
+
+    // Migration depuis ancienne version : si on a pas encore de cle
+    // ET si c'est le login d'un auteur qui peut sauver la cle
+    // créer la clé (en s'assurant bien que personne n'a de backup d'un precedent fichier cle.php)
+    // si c'est un auteur normal, on ne fait rien, il garde son ancien pass hashé en sha256 en attendant le login d'un webmestre
+    if (!$secret and $auteur_peut_sauver_cles) {
+        if (auth_spip_initialiser_secret()) {
+            $secret = $cles->getSecretAuth();
+        }
+    }
+
+    // login/mot de passe incorrect
+    if (empty($row)) {
+        return [];
+    }
+
+    // fait tourner le codage du pass dans la base
+    // sauf si phpauth : cela reviendrait a changer l'alea a chaque hit, et aucune action verifiable par securiser_action()
+    if (!$phpauth and $secret) {
+        include_spip('inc/acces'); // pour creer_uniqid et verifier_htaccess
+        $pass_hash_next = Password::hacher($pass, $secret);
+        if ($pass_hash_next) {
+            $set = [
+                'alea_actuel' => 'alea_futur', // @deprecated 4.1
+                'alea_futur' => sql_quote(creer_uniqid(), $serveur, 'text'), // @deprecated 4.1
+                'pass' => sql_quote($pass_hash_next, $serveur, 'text'),
+            ];
+
+            // regenerer un htpass si on a active/desactive le plugin htpasswd
+            // et/ou que l'algo a change - pour etre certain de toujours utiliser le bon algo
+            $htpass = generer_htpass($pass);
+            if (strlen($htpass) !== strlen($row['htpass'])) {
+                $set['htpass'] = sql_quote($htpass, $serveur, 'text');
+            }
+
+            // a chaque login de webmestre : sauvegarde chiffree des clés du site (avec les pass du webmestre)
+            if ($auteur_peut_sauver_cles) {
+                $set['backup_cles'] = sql_quote($cles->backup($pass), $serveur, 'text');
+            }
+
+            @sql_update(
+                'spip_auteurs',
+                $set,
+                'id_auteur=' . intval($row['id_auteur']) . ' AND pass=' . sql_quote(
+                    $row['pass'],
+                    $serveur,
+                    'text'
+                ),
+                [],
+                $serveur
+            );
+
+            // si on a change le htpass car changement d'algo, regenerer les fichiers htpasswd
+            if (isset($set['htpass'])) {
+                ecrire_acces();
+            }
+        }
+
+        // En profiter pour verifier la securite de tmp/
+        // Si elle ne fonctionne pas a l'installation, prevenir
+        if (!verifier_htaccess(_DIR_TMP) and defined('_ECRIRE_INSTALL')) {
+            return false;
+        }
+    }
+
+    return $row;
 }
 
 /**
@@ -210,36 +210,36 @@ 
  * @return bool
  */
 function auth_spip_initialiser_secret(bool $force = false): bool {
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-
-	// on ne fait rien si on a un secret dispo
-	if ($secret) {
-		return false;
-	}
-
-	// si force, on ne verifie pas la presence d'un backup chez un webmestre
-	if ($force) {
-		spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth' . _LOG_INFO_IMPORTANTE);
-		$secret = $cles->getSecretAuth(true);
-		return true;
-	}
-
-	$has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut=' . sql_quote('0minirezo') . ' AND webmestre=' . sql_quote('oui') . " AND backup_cles!=''");
-	$has_backup = array_column($has_backup, 'id_auteur');
-	if (empty($has_backup)) {
-		spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth' . _LOG_INFO_IMPORTANTE);
-		if ($secret = $cles->getSecretAuth(true)) {
-			return true;
-		}
-		spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
-		// et on echoue car on ne veut pas que la situation reste telle quelle
-		raler_fichier(_DIR_ETC . 'cles.php');
-	}
-	else {
-		spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
-	}
-	return false;
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+
+    // on ne fait rien si on a un secret dispo
+    if ($secret) {
+        return false;
+    }
+
+    // si force, on ne verifie pas la presence d'un backup chez un webmestre
+    if ($force) {
+        spip_log('Pas de cle secrete disponible, on regenere une nouvelle cle forcee - tous les mots de passe sont invalides', 'auth' . _LOG_INFO_IMPORTANTE);
+        $secret = $cles->getSecretAuth(true);
+        return true;
+    }
+
+    $has_backup = sql_allfetsel('id_auteur', 'spip_auteurs', 'statut=' . sql_quote('0minirezo') . ' AND webmestre=' . sql_quote('oui') . " AND backup_cles!=''");
+    $has_backup = array_column($has_backup, 'id_auteur');
+    if (empty($has_backup)) {
+        spip_log("Pas de cle secrete disponible, et aucun webmestre n'a de backup, on regenere une nouvelle cle - tous les mots de passe sont invalides", 'auth' . _LOG_INFO_IMPORTANTE);
+        if ($secret = $cles->getSecretAuth(true)) {
+            return true;
+        }
+        spip_log("Echec generation d'une nouvelle cle : verifier les droits d'ecriture ?", 'auth' . _LOG_ERREUR);
+        // et on echoue car on ne veut pas que la situation reste telle quelle
+        raler_fichier(_DIR_ETC . 'cles.php');
+    }
+    else {
+        spip_log('Pas de cle secrete disponible (fichier config/cle.php absent ?) un des webmestres #' . implode(', #', $has_backup) . ' doit se connecter pour restaurer son backup des cles', 'auth' . _LOG_ERREUR);
+    }
+    return false;
 }
 
 /**
@@ -249,19 +249,19 @@ 
  * @return array
  */
 function auth_spip_formulaire_login($flux) {
-	// javascript qui gere la securite du login en evitant de faire circuler le pass en clair
-	$js = file_get_contents(find_in_path('prive/javascript/login.js'));
-	$flux['data'] .=
-		  '<script type="text/javascript">/*<![CDATA[*/'
-		. "$js\n"
-		. "var login_info={'login':'" . $flux['args']['contexte']['var_login'] . "',"
-		. "'page_auteur': '" . generer_url_public('informer_auteur') . "',"
-		. "'informe_auteur_en_cours':false,"
-		. "'attente_informe':0};"
-		. "jQuery(function(){jQuery('#var_login').change(actualise_auteur);});"
-		. '/*]]>*/</script>';
-
-	return $flux;
+    // javascript qui gere la securite du login en evitant de faire circuler le pass en clair
+    $js = file_get_contents(find_in_path('prive/javascript/login.js'));
+    $flux['data'] .=
+            '<script type="text/javascript">/*<![CDATA[*/'
+        . "$js\n"
+        . "var login_info={'login':'" . $flux['args']['contexte']['var_login'] . "',"
+        . "'page_auteur': '" . generer_url_public('informer_auteur') . "',"
+        . "'informe_auteur_en_cours':false,"
+        . "'attente_informe':0};"
+        . "jQuery(function(){jQuery('#var_login').change(actualise_auteur);});"
+        . '/*]]>*/</script>';
+
+    return $flux;
 }
 
 
@@ -273,11 +273,11 @@ 
  *   toujours true pour un auteur cree dans SPIP
  */
 function auth_spip_autoriser_modifier_login(string $serveur = ''): bool {
-	// les fonctions d'ecriture sur base distante sont encore incompletes
-	if (strlen($serveur)) {
-		return false;
-	}
-	return true;
+    // les fonctions d'ecriture sur base distante sont encore incompletes
+    if (strlen($serveur)) {
+        return false;
+    }
+    return true;
 }
 
 /**
@@ -291,25 +291,25 @@ 
  *  message d'erreur si login non valide, chaine vide sinon
  */
 function auth_spip_verifier_login($new_login, $id_auteur = 0, $serveur = '') {
-	// login et mot de passe
-	if (strlen($new_login)) {
-		if (strlen($new_login) < _LOGIN_TROP_COURT) {
-			return _T('info_login_trop_court_car_pluriel', ['nb' => _LOGIN_TROP_COURT]);
-		} else {
-			$n = sql_countsel(
-				'spip_auteurs',
-				'login=' . sql_quote($new_login) . ' AND id_auteur!=' . intval($id_auteur) . " AND statut!='5poubelle'",
-				'',
-				'',
-				$serveur
-			);
-			if ($n) {
-				return _T('info_login_existant');
-			}
-		}
-	}
-
-	return '';
+    // login et mot de passe
+    if (strlen($new_login)) {
+        if (strlen($new_login) < _LOGIN_TROP_COURT) {
+            return _T('info_login_trop_court_car_pluriel', ['nb' => _LOGIN_TROP_COURT]);
+        } else {
+            $n = sql_countsel(
+                'spip_auteurs',
+                'login=' . sql_quote($new_login) . ' AND id_auteur!=' . intval($id_auteur) . " AND statut!='5poubelle'",
+                '',
+                '',
+                $serveur
+            );
+            if ($n) {
+                return _T('info_login_existant');
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -321,41 +321,41 @@ 
  * @return bool
  */
 function auth_spip_modifier_login($new_login, $id_auteur, $serveur = '') {
-	if (is_null($new_login) or auth_spip_verifier_login($new_login, $id_auteur, $serveur) != '') {
-		return false;
-	}
-	if (
-		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
-	) {
-		return false;
-	}
-	if ($new_login == $auteur['login']) {
-		return true;
-	} // on a rien fait mais c'est bon !
-
-	include_spip('action/editer_auteur');
-
-	// vider le login des auteurs a la poubelle qui avaient ce meme login
-	if (strlen($new_login)) {
-		$anciens = sql_allfetsel(
-			'id_auteur',
-			'spip_auteurs',
-			'login=' . sql_quote($new_login, $serveur, 'text') . " AND statut='5poubelle'",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-		while ($row = array_pop($anciens)) {
-			auteur_modifier($row['id_auteur'], ['login' => ''], true); // manque la gestion de $serveur
-		}
-	}
-
-	auteur_modifier($id_auteur, ['login' => $new_login], true); // manque la gestion de $serveur
-
-	return true;
+    if (is_null($new_login) or auth_spip_verifier_login($new_login, $id_auteur, $serveur) != '') {
+        return false;
+    }
+    if (
+        !$id_auteur = intval($id_auteur)
+        or !$auteur = sql_fetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+    ) {
+        return false;
+    }
+    if ($new_login == $auteur['login']) {
+        return true;
+    } // on a rien fait mais c'est bon !
+
+    include_spip('action/editer_auteur');
+
+    // vider le login des auteurs a la poubelle qui avaient ce meme login
+    if (strlen($new_login)) {
+        $anciens = sql_allfetsel(
+            'id_auteur',
+            'spip_auteurs',
+            'login=' . sql_quote($new_login, $serveur, 'text') . " AND statut='5poubelle'",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+        while ($row = array_pop($anciens)) {
+            auteur_modifier($row['id_auteur'], ['login' => ''], true); // manque la gestion de $serveur
+        }
+    }
+
+    auteur_modifier($id_auteur, ['login' => $new_login], true); // manque la gestion de $serveur
+
+    return true;
 }
 
 /**
@@ -367,44 +367,44 @@ 
  * @return string
  */
 function auth_spip_retrouver_login($login, $serveur = '') {
-	if (!strlen($login)) {
-		return null;
-	} // pas la peine de requeter
-	$l = sql_quote($login, $serveur, 'text');
-	if (
-		$r = sql_getfetsel(
-			'login',
-			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
-			" AND (login=$l)",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		)
-	) {
-		return $r;
-	}
-	// Si pas d'auteur avec ce login
-	// regarder s'il a saisi son nom ou son mail.
-	// Ne pas fusionner avec la requete precedente
-	// car un nom peut etre homonyme d'un autre login
-	else {
-		return sql_getfetsel(
-			'login',
-			'spip_auteurs',
-			"statut<>'5poubelle'" .
-			' AND (length(pass)>0)' .
-			" AND (login<>'' AND (nom=$l OR email=$l))",
-			'',
-			'',
-			'',
-			'',
-			$serveur
-		);
-	}
+    if (!strlen($login)) {
+        return null;
+    } // pas la peine de requeter
+    $l = sql_quote($login, $serveur, 'text');
+    if (
+        $r = sql_getfetsel(
+            'login',
+            'spip_auteurs',
+            "statut<>'5poubelle'" .
+            ' AND (length(pass)>0)' .
+            " AND (login=$l)",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        )
+    ) {
+        return $r;
+    }
+    // Si pas d'auteur avec ce login
+    // regarder s'il a saisi son nom ou son mail.
+    // Ne pas fusionner avec la requete precedente
+    // car un nom peut etre homonyme d'un autre login
+    else {
+        return sql_getfetsel(
+            'login',
+            'spip_auteurs',
+            "statut<>'5poubelle'" .
+            ' AND (length(pass)>0)' .
+            " AND (login<>'' AND (nom=$l OR email=$l))",
+            '',
+            '',
+            '',
+            '',
+            $serveur
+        );
+    }
 }
 
 /**
@@ -415,11 +415,11 @@ 
  *  toujours true pour un auteur cree dans SPIP
  */
 function auth_spip_autoriser_modifier_pass(string $serveur = ''): bool {
-	// les fonctions d'ecriture sur base distante sont encore incompletes
-	if (strlen($serveur)) {
-		return false;
-	}
-	return true;
+    // les fonctions d'ecriture sur base distante sont encore incompletes
+    if (strlen($serveur)) {
+        return false;
+    }
+    return true;
 }
 
 
@@ -440,12 +440,12 @@ 
  *  message d'erreur si login non valide, chaine vide sinon
  */
 function auth_spip_verifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur = 0, $serveur = '') {
-	// login et mot de passe
-	if (strlen($new_pass) < _PASS_LONGUEUR_MINI) {
-		return _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
-	}
+    // login et mot de passe
+    if (strlen($new_pass) < _PASS_LONGUEUR_MINI) {
+        return _T('info_passe_trop_court_car_pluriel', ['nb' => _PASS_LONGUEUR_MINI]);
+    }
 
-	return '';
+    return '';
 }
 
 /**
@@ -459,47 +459,47 @@ 
  * @return bool
  */
 function auth_spip_modifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur, $serveur = '') {
-	if (is_null($new_pass) or auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
-		return false;
-	}
-
-	if (
-		!$id_auteur = intval($id_auteur)
-		or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
-	) {
-		return false;
-	}
-
-	$cles = SpipCles::instance();
-	$secret = $cles->getSecretAuth();
-	if (!$secret) {
-		if (auth_spip_initialiser_secret()) {
-			$secret = $cles->getSecretAuth();
-		}
-		else {
-			return false;
-		}
-	}
-
-
-	include_spip('inc/acces');
-	$set = [
-		'pass' => Password::hacher($new_pass, $secret),
-		'htpass' => generer_htpass($new_pass),
-		'alea_actuel' => creer_uniqid(), // @deprecated 4.1
-		'alea_futur' => creer_uniqid(), // @deprecated 4.1
-		'low_sec' => '',
-	];
-
-	// si c'est un webmestre, on met a jour son backup des cles
-	if ($auteur['statut'] === '0minirezo' and $auteur['webmestre'] === 'oui') {
-		$set['backup_cles'] = $cles->backup($new_pass);
-	}
-
-	include_spip('action/editer_auteur');
-	auteur_modifier($id_auteur, $set, true); // manque la gestion de $serveur
-
-	return true; // on a bien modifie le pass
+    if (is_null($new_pass) or auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
+        return false;
+    }
+
+    if (
+        !$id_auteur = intval($id_auteur)
+        or !$auteur = sql_fetsel('login, statut, webmestre', 'spip_auteurs', 'id_auteur=' . intval($id_auteur), '', '', '', '', $serveur)
+    ) {
+        return false;
+    }
+
+    $cles = SpipCles::instance();
+    $secret = $cles->getSecretAuth();
+    if (!$secret) {
+        if (auth_spip_initialiser_secret()) {
+            $secret = $cles->getSecretAuth();
+        }
+        else {
+            return false;
+        }
+    }
+
+
+    include_spip('inc/acces');
+    $set = [
+        'pass' => Password::hacher($new_pass, $secret),
+        'htpass' => generer_htpass($new_pass),
+        'alea_actuel' => creer_uniqid(), // @deprecated 4.1
+        'alea_futur' => creer_uniqid(), // @deprecated 4.1
+        'low_sec' => '',
+    ];
+
+    // si c'est un webmestre, on met a jour son backup des cles
+    if ($auteur['statut'] === '0minirezo' and $auteur['webmestre'] === 'oui') {
+        $set['backup_cles'] = $cles->backup($new_pass);
+    }
+
+    include_spip('action/editer_auteur');
+    auteur_modifier($id_auteur, $set, true); // manque la gestion de $serveur
+
+    return true; // on a bien modifie le pass
 }
 
 /**
@@ -513,58 +513,58 @@ 
  * @return void
  */
 function auth_spip_synchroniser_distant($id_auteur, $champs, $options = [], string $serveur = ''): void {
-	// ne rien faire pour une base distante : on ne sait pas regenerer les htaccess
-	if (strlen($serveur)) {
-		return;
-	}
-	// si un login, pass ou statut a ete modifie
-	// regenerer les fichier htpass
-	if (
-		isset($champs['login'])
-		or isset($champs['pass'])
-		or isset($champs['statut'])
-		or (isset($options['all']) and $options['all'])
-	) {
-		$htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
-		$htpasswd = _DIR_TMP . _AUTH_USER_FILE;
-
-		// Cette variable de configuration peut etre posee par un plugin
-		// par exemple acces_restreint ;
-		// si .htaccess existe, outrepasser spip_meta
-		if (
-			(!isset($GLOBALS['meta']['creer_htpasswd']) or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
-			and !@file_exists($htaccess)
-		) {
-			spip_unlink($htpasswd);
-			spip_unlink($htpasswd . '-admin');
-
-			return;
-		}
-
-		# remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
-		# de devenir redacteur le cas echeant (auth http)... a nettoyer
-		// attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
-
-		$p1 = ''; // login:htpass pour tous
-		$p2 = ''; // login:htpass pour les admins
-		$s = sql_select(
-			'login, htpass, statut',
-			'spip_auteurs',
-			sql_in('statut', ['1comite', '0minirezo', 'nouveau'])
-		);
-		while ($t = sql_fetch($s)) {
-			if (strlen($t['login']) and strlen($t['htpass'])) {
-				$p1 .= $t['login'] . ':' . $t['htpass'] . "\n";
-				if ($t['statut'] == '0minirezo') {
-					$p2 .= $t['login'] . ':' . $t['htpass'] . "\n";
-				}
-			}
-		}
-		sql_free($s);
-		if ($p1) {
-			ecrire_fichier($htpasswd, $p1);
-			ecrire_fichier($htpasswd . '-admin', $p2);
-			spip_log("Ecriture de $htpasswd et $htpasswd-admin");
-		}
-	}
+    // ne rien faire pour une base distante : on ne sait pas regenerer les htaccess
+    if (strlen($serveur)) {
+        return;
+    }
+    // si un login, pass ou statut a ete modifie
+    // regenerer les fichier htpass
+    if (
+        isset($champs['login'])
+        or isset($champs['pass'])
+        or isset($champs['statut'])
+        or (isset($options['all']) and $options['all'])
+    ) {
+        $htaccess = _DIR_RESTREINT . _ACCESS_FILE_NAME;
+        $htpasswd = _DIR_TMP . _AUTH_USER_FILE;
+
+        // Cette variable de configuration peut etre posee par un plugin
+        // par exemple acces_restreint ;
+        // si .htaccess existe, outrepasser spip_meta
+        if (
+            (!isset($GLOBALS['meta']['creer_htpasswd']) or ($GLOBALS['meta']['creer_htpasswd'] != 'oui'))
+            and !@file_exists($htaccess)
+        ) {
+            spip_unlink($htpasswd);
+            spip_unlink($htpasswd . '-admin');
+
+            return;
+        }
+
+        # remarque : ici on laisse passer les "nouveau" de maniere a leur permettre
+        # de devenir redacteur le cas echeant (auth http)... a nettoyer
+        // attention, il faut au prealable se connecter a la base (necessaire car utilise par install)
+
+        $p1 = ''; // login:htpass pour tous
+        $p2 = ''; // login:htpass pour les admins
+        $s = sql_select(
+            'login, htpass, statut',
+            'spip_auteurs',
+            sql_in('statut', ['1comite', '0minirezo', 'nouveau'])
+        );
+        while ($t = sql_fetch($s)) {
+            if (strlen($t['login']) and strlen($t['htpass'])) {
+                $p1 .= $t['login'] . ':' . $t['htpass'] . "\n";
+                if ($t['statut'] == '0minirezo') {
+                    $p2 .= $t['login'] . ':' . $t['htpass'] . "\n";
+                }
+            }
+        }
+        sql_free($s);
+        if ($p1) {
+            ecrire_fichier($htpasswd, $p1);
+            ecrire_fichier($htpasswd . '-admin', $p2);
+            spip_log("Ecriture de $htpasswd et $htpasswd-admin");
+        }
+    }
 }

ecrire/auth/ldap.php

Indentation +176 added lines, -176 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Authentifie via LDAP et retourne la ligne SQL decrivant l'utilisateur si ok
@@ -24,12 +24,12 @@ 
 // Attributs LDAP correspondants a ceux de SPIP, notamment pour le login
 // ne pas ecraser une definition perso dans mes_options
 if (!isset($GLOBALS['ldap_attributes']) or !is_array($GLOBALS['ldap_attributes'])) {
-	$GLOBALS['ldap_attributes'] = [
-		'login' => ['sAMAccountName', 'uid', 'login', 'userid', 'cn', 'sn'],
-		'nom' => 'cn',
-		'email' => 'mail',
-		'bio' => 'description'
-	];
+    $GLOBALS['ldap_attributes'] = [
+        'login' => ['sAMAccountName', 'uid', 'login', 'userid', 'cn', 'sn'],
+        'nom' => 'cn',
+        'email' => 'mail',
+        'bio' => 'description'
+    ];
 }
 
 /**
@@ -55,50 +55,50 @@ 
  */
 function auth_ldap_dist($login, #[\SensitiveParameter] $pass, $serveur = '', $phpauth = false) {
 
-	#spip_log("ldap $login " . ($pass ? "mdp fourni" : "mdp absent"));
-
-	// Utilisateur connu ?
-	// si http auth, inutile de reauthentifier: cela
-	// ne marchera pas avec auth http autre que basic.
-	$checkpass = isset($_SERVER['REMOTE_USER']) ? false : true;
-	if (!($dn = auth_ldap_search($login, $pass, $checkpass, $serveur))) {
-		return [];
-	}
-	$credentials_ldap = ['ldap_dn' => $dn, 'ldap_password' => $pass];
-
-	// Si l'utilisateur figure deja dans la base, y recuperer les infos
-	$r = sql_fetsel('*', 'spip_auteurs', 'login=' . sql_quote($login) . " AND source='ldap'", '', '', '', '', $serveur);
-
-	if ($r) {
-		return array_merge($r, $credentials_ldap);
-	}
-
-	// sinon importer les infos depuis LDAP,
-
-	if (
-		$GLOBALS['meta']['ldap_statut_import']
-		and $desc = auth_ldap_retrouver($dn, [], $serveur)
-	) {
-		// rajouter le statut indique  a l'install
-		$desc['statut'] = $GLOBALS['meta']['ldap_statut_import'];
-		$desc['login'] = $login;
-		$desc['source'] = 'ldap';
-		$desc['pass'] = '';
-
-		$r = sql_insertq('spip_auteurs', $desc, [], $serveur);
-	}
-
-	if ($r) {
-		return array_merge(
-			$credentials_ldap,
-			sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . intval($r), '', '', '', '', $serveur)
-		);
-	}
-
-	// sinon echec
-	spip_log("Creation de l'auteur '$login' impossible");
-
-	return [];
+    #spip_log("ldap $login " . ($pass ? "mdp fourni" : "mdp absent"));
+
+    // Utilisateur connu ?
+    // si http auth, inutile de reauthentifier: cela
+    // ne marchera pas avec auth http autre que basic.
+    $checkpass = isset($_SERVER['REMOTE_USER']) ? false : true;
+    if (!($dn = auth_ldap_search($login, $pass, $checkpass, $serveur))) {
+        return [];
+    }
+    $credentials_ldap = ['ldap_dn' => $dn, 'ldap_password' => $pass];
+
+    // Si l'utilisateur figure deja dans la base, y recuperer les infos
+    $r = sql_fetsel('*', 'spip_auteurs', 'login=' . sql_quote($login) . " AND source='ldap'", '', '', '', '', $serveur);
+
+    if ($r) {
+        return array_merge($r, $credentials_ldap);
+    }
+
+    // sinon importer les infos depuis LDAP,
+
+    if (
+        $GLOBALS['meta']['ldap_statut_import']
+        and $desc = auth_ldap_retrouver($dn, [], $serveur)
+    ) {
+        // rajouter le statut indique  a l'install
+        $desc['statut'] = $GLOBALS['meta']['ldap_statut_import'];
+        $desc['login'] = $login;
+        $desc['source'] = 'ldap';
+        $desc['pass'] = '';
+
+        $r = sql_insertq('spip_auteurs', $desc, [], $serveur);
+    }
+
+    if ($r) {
+        return array_merge(
+            $credentials_ldap,
+            sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . intval($r), '', '', '', '', $serveur)
+        );
+    }
+
+    // sinon echec
+    spip_log("Creation de l'auteur '$login' impossible");
+
+    return [];
 }
 
 /**
@@ -112,36 +112,36 @@ 
  * @return array
  */
 function auth_ldap_connect($serveur = '') {
-	include_spip('base/connect_sql');
-	static $connexions_ldap = [];
-	if (isset($connexions_ldap[$serveur])) {
-		return $connexions_ldap[$serveur];
-	}
-	$connexion = spip_connect($serveur);
-	if (!is_array($connexion['ldap'])) {
-		if ($connexion['authentification']['ldap']) {
-			$f = _DIR_CONNECT . $connexion['authentification']['ldap'];
-			unset($GLOBALS['ldap_link']);
-			if (is_readable($f)) {
-				include_once($f);
-			};
-			if (isset($GLOBALS['ldap_link'])) {
-				$connexion['ldap'] = [
-					'link' => $GLOBALS['ldap_link'],
-					'base' => $GLOBALS['ldap_base']
-				];
-			} else {
-				spip_log("connection LDAP $serveur mal definie dans $f");
-			}
-			if (isset($GLOBALS['ldap_champs'])) {
-				$connexion['ldap']['attributes'] = $GLOBALS['ldap_champs'];
-			}
-		} else {
-			spip_log("connection LDAP $serveur inconnue");
-		}
-	}
-
-	return $connexions_ldap[$serveur] = $connexion['ldap'];
+    include_spip('base/connect_sql');
+    static $connexions_ldap = [];
+    if (isset($connexions_ldap[$serveur])) {
+        return $connexions_ldap[$serveur];
+    }
+    $connexion = spip_connect($serveur);
+    if (!is_array($connexion['ldap'])) {
+        if ($connexion['authentification']['ldap']) {
+            $f = _DIR_CONNECT . $connexion['authentification']['ldap'];
+            unset($GLOBALS['ldap_link']);
+            if (is_readable($f)) {
+                include_once($f);
+            };
+            if (isset($GLOBALS['ldap_link'])) {
+                $connexion['ldap'] = [
+                    'link' => $GLOBALS['ldap_link'],
+                    'base' => $GLOBALS['ldap_base']
+                ];
+            } else {
+                spip_log("connection LDAP $serveur mal definie dans $f");
+            }
+            if (isset($GLOBALS['ldap_champs'])) {
+                $connexion['ldap']['attributes'] = $GLOBALS['ldap_champs'];
+            }
+        } else {
+            spip_log("connection LDAP $serveur inconnue");
+        }
+    }
+
+    return $connexions_ldap[$serveur] = $connexion['ldap'];
 }
 
 /**
@@ -155,52 +155,52 @@ 
  *    Le login trouvé ou chaine vide si non trouvé
  */
 function auth_ldap_search($login, #[\SensitiveParameter] $pass, $checkpass = true, $serveur = '') {
-	// Securite anti-injection et contre un serveur LDAP laxiste
-	$login_search = preg_replace('/[^-@._\s\d\w]/', '', $login);
-	if (!strlen($login_search) or ($checkpass and !strlen($pass))) {
-		return '';
-	}
-
-	// verifier la connexion
-	if (!$ldap = auth_ldap_connect($serveur)) {
-		return '';
-	}
-
-	$ldap_link = $ldap['link'] ?? null;
-	$ldap_base = $ldap['base'] ?? null;
-	$desc = !empty($ldap['attributes']) ? $ldap['attributes'] : $GLOBALS['ldap_attributes'];
-
-	$logins = is_array($desc['login']) ? $desc['login'] : [$desc['login']];
-
-	// Tenter une recherche pour essayer de retrouver le DN
-	foreach ($logins as $att) {
-		$result = @ldap_search($ldap_link, $ldap_base, "$att=$login_search", ['dn']);
-		$info = @ldap_get_entries($ldap_link, $result);
-		// Ne pas accepter les resultats si plus d'une entree
-		// (on veut un attribut unique)
-
-		if (is_array($info) and $info['count'] == 1) {
-			$dn = $info[0]['dn'];
-			if (!$checkpass) {
-				return $dn;
-			}
-			if (@ldap_bind($ldap_link, $dn, $pass)) {
-				return $dn;
-			}
-		}
-	}
-
-	if ($checkpass and !isset($dn)) {
-		// Si echec, essayer de deviner le DN
-		foreach ($logins as $att) {
-			$dn = "$att=$login_search, $ldap_base";
-			if (@ldap_bind($ldap_link, $dn, $pass)) {
-				return "$att=$login_search, $ldap_base";
-			}
-		}
-	}
-
-	return '';
+    // Securite anti-injection et contre un serveur LDAP laxiste
+    $login_search = preg_replace('/[^-@._\s\d\w]/', '', $login);
+    if (!strlen($login_search) or ($checkpass and !strlen($pass))) {
+        return '';
+    }
+
+    // verifier la connexion
+    if (!$ldap = auth_ldap_connect($serveur)) {
+        return '';
+    }
+
+    $ldap_link = $ldap['link'] ?? null;
+    $ldap_base = $ldap['base'] ?? null;
+    $desc = !empty($ldap['attributes']) ? $ldap['attributes'] : $GLOBALS['ldap_attributes'];
+
+    $logins = is_array($desc['login']) ? $desc['login'] : [$desc['login']];
+
+    // Tenter une recherche pour essayer de retrouver le DN
+    foreach ($logins as $att) {
+        $result = @ldap_search($ldap_link, $ldap_base, "$att=$login_search", ['dn']);
+        $info = @ldap_get_entries($ldap_link, $result);
+        // Ne pas accepter les resultats si plus d'une entree
+        // (on veut un attribut unique)
+
+        if (is_array($info) and $info['count'] == 1) {
+            $dn = $info[0]['dn'];
+            if (!$checkpass) {
+                return $dn;
+            }
+            if (@ldap_bind($ldap_link, $dn, $pass)) {
+                return $dn;
+            }
+        }
+    }
+
+    if ($checkpass and !isset($dn)) {
+        // Si echec, essayer de deviner le DN
+        foreach ($logins as $att) {
+            $dn = "$att=$login_search, $ldap_base";
+            if (@ldap_bind($ldap_link, $dn, $pass)) {
+                return "$att=$login_search, $ldap_base";
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -212,40 +212,40 @@ 
  * @return array
  */
 function auth_ldap_retrouver($dn, $desc = [], $serveur = '') {
-	// Lire les infos sur l'utilisateur a partir de son DN depuis LDAP
+    // Lire les infos sur l'utilisateur a partir de son DN depuis LDAP
 
-	if (!$ldap = auth_ldap_connect($serveur)) {
-		spip_log("ldap $serveur injoignable");
+    if (!$ldap = auth_ldap_connect($serveur)) {
+        spip_log("ldap $serveur injoignable");
 
-		return [];
-	}
+        return [];
+    }
 
-	$ldap_link = $ldap['link'];
-	if (!$desc) {
-		$desc = $ldap['attributes'] ?: $GLOBALS['ldap_attributes'];
-		unset($desc['login']);
-	}
-	$result = @ldap_read($ldap_link, $dn, 'objectClass=*', array_values($desc));
+    $ldap_link = $ldap['link'];
+    if (!$desc) {
+        $desc = $ldap['attributes'] ?: $GLOBALS['ldap_attributes'];
+        unset($desc['login']);
+    }
+    $result = @ldap_read($ldap_link, $dn, 'objectClass=*', array_values($desc));
 
-	if (!$result) {
-		return [];
-	}
+    if (!$result) {
+        return [];
+    }
 
-	// Recuperer les donnees du premier (unique?) compte de l'auteur
-	$val = @ldap_get_entries($ldap_link, $result);
-	if (!is_array($val) or !is_array($val[0])) {
-		return [];
-	}
-	$val = $val[0];
+    // Recuperer les donnees du premier (unique?) compte de l'auteur
+    $val = @ldap_get_entries($ldap_link, $result);
+    if (!is_array($val) or !is_array($val[0])) {
+        return [];
+    }
+    $val = $val[0];
 
-	// Convertir depuis UTF-8 (jeu de caracteres par defaut)
-	include_spip('inc/charsets');
+    // Convertir depuis UTF-8 (jeu de caracteres par defaut)
+    include_spip('inc/charsets');
 
-	foreach ($desc as $k => $v) {
-		$desc[$k] = importer_charset($val[strtolower($v)][0], 'utf-8');
-	}
+    foreach ($desc as $k => $v) {
+        $desc[$k] = importer_charset($val[strtolower($v)][0], 'utf-8');
+    }
 
-	return $desc;
+    return $desc;
 }
 
 
@@ -257,7 +257,7 @@ 
  * @return string
  */
 function auth_ldap_retrouver_login($login, $serveur = '') {
-	return auth_ldap_search($login, '', false, $serveur) ? $login : '';
+    return auth_ldap_search($login, '', false, $serveur) ? $login : '';
 }
 
 /**
@@ -277,9 +277,9 @@ 
  *   Message d'erreur si login non valide, chaîne vide sinon
  */
 function auth_ldap_verifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur = 0, $serveur = '') {
-	include_spip('auth/spip');
+    include_spip('auth/spip');
 
-	return auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur);
+    return auth_spip_verifier_pass($login, $new_pass, $id_auteur, $serveur);
 }
 
 /**
@@ -300,7 +300,7 @@ 
  *   ```
  */
 function auth_ldap_autoriser_modifier_pass($serveur = '') {
-	return true;
+    return true;
 }
 
 /**
@@ -318,23 +318,23 @@ 
  *    Informe du succès ou de l'echec du changement du mot de passe
  */
 function auth_ldap_modifier_pass($login, #[\SensitiveParameter] $new_pass, $id_auteur, $serveur = '') {
-	if (is_null($new_pass) or auth_ldap_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
-		return false;
-	}
-	if (!$ldap = auth_ldap_connect($serveur)) {
-		return false;
-	}
-	$link = $ldap['link'];
-	include_spip('inc/session');
-	$dn = session_get('ldap_dn');
-	if ('' == $dn) {
-		return false;
-	}
-	if (!ldap_bind($link, $dn, session_get('ldap_password'))) {
-		return false;
-	}
-	$encoded_pass = '{MD5}' . base64_encode(pack('H*', md5($new_pass)));
-	$success = ldap_mod_replace($link, $dn, ['userPassword' => $encoded_pass]);
-
-	return $success;
+    if (is_null($new_pass) or auth_ldap_verifier_pass($login, $new_pass, $id_auteur, $serveur) != '') {
+        return false;
+    }
+    if (!$ldap = auth_ldap_connect($serveur)) {
+        return false;
+    }
+    $link = $ldap['link'];
+    include_spip('inc/session');
+    $dn = session_get('ldap_dn');
+    if ('' == $dn) {
+        return false;
+    }
+    if (!ldap_bind($link, $dn, session_get('ldap_password'))) {
+        return false;
+    }
+    $encoded_pass = '{MD5}' . base64_encode(pack('H*', md5($new_pass)));
+    $success = ldap_mod_replace($link, $dn, ['userPassword' => $encoded_pass]);
+
+    return $success;
 }

ecrire/base/connect_sql.php

Indentation +325 added lines, -325 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\SQL
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 require_once _ROOT_RESTREINT . 'base/objets.php';
 
@@ -41,128 +41,128 @@ 
  **/
 function spip_connect($serveur = '', $version = '') {
 
-	$serveur = !is_string($serveur) ? '' : strtolower($serveur);
-	$index = $serveur ?: 0;
-	if (!$version) {
-		$version = $GLOBALS['spip_sql_version'];
-	}
-	if (isset($GLOBALS['connexions'][$index][$version])) {
-		return $GLOBALS['connexions'][$index];
-	}
-
-	include_spip('base/abstract_sql');
-	$install = (_request('exec') == 'install');
-
-	// Premiere connexion ?
-	if (!($old = isset($GLOBALS['connexions'][$index]))) {
-		$f = '';
-		if ($serveur) {
-			// serveur externe et nom de serveur bien ecrit ?
-			if (defined('_DIR_CONNECT')
-				and preg_match('/^[\w\.]*$/', $serveur)) {
-				$f = _DIR_CONNECT . $serveur . '.php';
-				if (!is_readable($f) and !$install) {
-					// chercher une declaration de serveur dans le path
-					// qui peut servir à des plugins à declarer des connexions à une base sqlite
-					// Ex: sert aux boucles POUR et au plugin-dist dump pour se connecter sur le sqlite du dump
-					$f = find_in_path("$serveur.php", 'connect/');
-				}
-			}
-		}
-		else {
-			if (defined('_FILE_CONNECT') and _FILE_CONNECT) {
-				// init du serveur principal
-				$f = _FILE_CONNECT;
-			}
-			elseif ($install and defined('_FILE_CONNECT_TMP')) {
-				// installation en cours
-				$f = _FILE_CONNECT_TMP;
-			}
-		}
-
-		unset($GLOBALS['db_ok']);
-		unset($GLOBALS['spip_connect_version']);
-		if ($f and is_readable($f)) {
-			include($f);
-			if (!isset($GLOBALS['db_ok'])) {
-				spip_log("spip_connect: fichier de connexion '$f' OK mais echec connexion au serveur", _LOG_HS);
-			}
-		}
-		else {
-			spip_log("spip_connect: fichier de connexion '$f' non trouve, pas de connexion serveur", _LOG_HS);
-		}
-		if (!isset($GLOBALS['db_ok'])) {
-			// fera mieux la prochaine fois
-			if ($install) {
-				return false;
-			}
-			// ne plus reessayer si ce n'est pas l'install
-			return $GLOBALS['connexions'][$index] = false;
-		}
-		$GLOBALS['connexions'][$index] = $GLOBALS['db_ok'];
-	}
-	// si la connexion a deja ete tentee mais a echoue, le dire!
-	if (!$GLOBALS['connexions'][$index]) {
-		return false;
-	}
-
-	// la connexion a reussi ou etait deja faite.
-	// chargement de la version du jeu de fonctions
-	// si pas dans le fichier par defaut
-	$type = $GLOBALS['db_ok']['type'];
-	$jeu = 'spip_' . $type . '_functions_' . $version;
-	if (!isset($GLOBALS[$jeu])) {
-		if (!find_in_path($type . '_' . $version . '.php', 'req/', true)) {
-			spip_log("spip_connect: serveur $index version '$version' non defini pour '$type'", _LOG_HS);
-
-			// ne plus reessayer
-			return $GLOBALS['connexions'][$index][$version] = [];
-		}
-	}
-	$GLOBALS['connexions'][$index][$version] = $GLOBALS[$jeu];
-	if ($old) {
-		return $GLOBALS['connexions'][$index];
-	}
-
-	$GLOBALS['connexions'][$index]['spip_connect_version'] = $GLOBALS['spip_connect_version'] ?? 0;
-
-	// initialisation de l'alphabet utilise dans les connexions SQL
-	// si l'installation l'a determine.
-	// Celui du serveur principal l'impose aux serveurs secondaires
-	// s'ils le connaissent
-
-	if (!$serveur) {
-		$charset = spip_connect_main($GLOBALS[$jeu], $GLOBALS['db_ok']['charset']);
-		if (!$charset) {
-			unset($GLOBALS['connexions'][$index]);
-			spip_log('spip_connect: absence de charset', _LOG_AVERTISSEMENT);
-
-			return false;
-		}
-	} else {
-		if ($GLOBALS['db_ok']['charset']) {
-			$charset = $GLOBALS['db_ok']['charset'];
-		}
-		// spip_meta n'existe pas toujours dans la base
-		// C'est le cas d'un dump sqlite par exemple
-		elseif (
-			$GLOBALS['connexions'][$index]['spip_connect_version']
-			and sql_showtable('spip_meta', true, $serveur)
-			and $r = sql_getfetsel('valeur', 'spip_meta', "nom='charset_sql_connexion'", '', '', '', '', $serveur)
-		) {
-			$charset = $r;
-		} else {
-			$charset = -1;
-		}
-	}
-	if ($charset != -1) {
-		$f = $GLOBALS[$jeu]['set_charset'];
-		if (function_exists($f)) {
-			$f($charset, $serveur);
-		}
-	}
-
-	return $GLOBALS['connexions'][$index];
+    $serveur = !is_string($serveur) ? '' : strtolower($serveur);
+    $index = $serveur ?: 0;
+    if (!$version) {
+        $version = $GLOBALS['spip_sql_version'];
+    }
+    if (isset($GLOBALS['connexions'][$index][$version])) {
+        return $GLOBALS['connexions'][$index];
+    }
+
+    include_spip('base/abstract_sql');
+    $install = (_request('exec') == 'install');
+
+    // Premiere connexion ?
+    if (!($old = isset($GLOBALS['connexions'][$index]))) {
+        $f = '';
+        if ($serveur) {
+            // serveur externe et nom de serveur bien ecrit ?
+            if (defined('_DIR_CONNECT')
+                and preg_match('/^[\w\.]*$/', $serveur)) {
+                $f = _DIR_CONNECT . $serveur . '.php';
+                if (!is_readable($f) and !$install) {
+                    // chercher une declaration de serveur dans le path
+                    // qui peut servir à des plugins à declarer des connexions à une base sqlite
+                    // Ex: sert aux boucles POUR et au plugin-dist dump pour se connecter sur le sqlite du dump
+                    $f = find_in_path("$serveur.php", 'connect/');
+                }
+            }
+        }
+        else {
+            if (defined('_FILE_CONNECT') and _FILE_CONNECT) {
+                // init du serveur principal
+                $f = _FILE_CONNECT;
+            }
+            elseif ($install and defined('_FILE_CONNECT_TMP')) {
+                // installation en cours
+                $f = _FILE_CONNECT_TMP;
+            }
+        }
+
+        unset($GLOBALS['db_ok']);
+        unset($GLOBALS['spip_connect_version']);
+        if ($f and is_readable($f)) {
+            include($f);
+            if (!isset($GLOBALS['db_ok'])) {
+                spip_log("spip_connect: fichier de connexion '$f' OK mais echec connexion au serveur", _LOG_HS);
+            }
+        }
+        else {
+            spip_log("spip_connect: fichier de connexion '$f' non trouve, pas de connexion serveur", _LOG_HS);
+        }
+        if (!isset($GLOBALS['db_ok'])) {
+            // fera mieux la prochaine fois
+            if ($install) {
+                return false;
+            }
+            // ne plus reessayer si ce n'est pas l'install
+            return $GLOBALS['connexions'][$index] = false;
+        }
+        $GLOBALS['connexions'][$index] = $GLOBALS['db_ok'];
+    }
+    // si la connexion a deja ete tentee mais a echoue, le dire!
+    if (!$GLOBALS['connexions'][$index]) {
+        return false;
+    }
+
+    // la connexion a reussi ou etait deja faite.
+    // chargement de la version du jeu de fonctions
+    // si pas dans le fichier par defaut
+    $type = $GLOBALS['db_ok']['type'];
+    $jeu = 'spip_' . $type . '_functions_' . $version;
+    if (!isset($GLOBALS[$jeu])) {
+        if (!find_in_path($type . '_' . $version . '.php', 'req/', true)) {
+            spip_log("spip_connect: serveur $index version '$version' non defini pour '$type'", _LOG_HS);
+
+            // ne plus reessayer
+            return $GLOBALS['connexions'][$index][$version] = [];
+        }
+    }
+    $GLOBALS['connexions'][$index][$version] = $GLOBALS[$jeu];
+    if ($old) {
+        return $GLOBALS['connexions'][$index];
+    }
+
+    $GLOBALS['connexions'][$index]['spip_connect_version'] = $GLOBALS['spip_connect_version'] ?? 0;
+
+    // initialisation de l'alphabet utilise dans les connexions SQL
+    // si l'installation l'a determine.
+    // Celui du serveur principal l'impose aux serveurs secondaires
+    // s'ils le connaissent
+
+    if (!$serveur) {
+        $charset = spip_connect_main($GLOBALS[$jeu], $GLOBALS['db_ok']['charset']);
+        if (!$charset) {
+            unset($GLOBALS['connexions'][$index]);
+            spip_log('spip_connect: absence de charset', _LOG_AVERTISSEMENT);
+
+            return false;
+        }
+    } else {
+        if ($GLOBALS['db_ok']['charset']) {
+            $charset = $GLOBALS['db_ok']['charset'];
+        }
+        // spip_meta n'existe pas toujours dans la base
+        // C'est le cas d'un dump sqlite par exemple
+        elseif (
+            $GLOBALS['connexions'][$index]['spip_connect_version']
+            and sql_showtable('spip_meta', true, $serveur)
+            and $r = sql_getfetsel('valeur', 'spip_meta', "nom='charset_sql_connexion'", '', '', '', '', $serveur)
+        ) {
+            $charset = $r;
+        } else {
+            $charset = -1;
+        }
+    }
+    if ($charset != -1) {
+        $f = $GLOBALS[$jeu]['set_charset'];
+        if (function_exists($f)) {
+            $f($charset, $serveur);
+        }
+    }
+
+    return $GLOBALS['connexions'][$index];
 }
 
 /**
@@ -171,12 +171,12 @@ 
  * @param string $serveur Nom du connecteur de bdd utilisé
  **/
 function spip_sql_erreur($serveur = '') {
-	$connexion = spip_connect($serveur);
-	$e = sql_errno($serveur);
-	$t = ($connexion['type'] ?? 'sql');
-	$m = "Erreur $e de $t: " . sql_error($serveur) . "\nin " . sql_error_backtrace() . "\n" . trim($connexion['last']);
-	$f = $t . $serveur;
-	spip_log($m, $f . '.' . _LOG_ERREUR);
+    $connexion = spip_connect($serveur);
+    $e = sql_errno($serveur);
+    $t = ($connexion['type'] ?? 'sql');
+    $m = "Erreur $e de $t: " . sql_error($serveur) . "\nin " . sql_error_backtrace() . "\n" . trim($connexion['last']);
+    $f = $t . $serveur;
+    spip_log($m, $f . '.' . _LOG_ERREUR);
 }
 
 /**
@@ -198,23 +198,23 @@ 
  *     - array : description de la connexion, si l'instruction sql est indisponible pour cette connexion
  **/
 function spip_connect_sql($version, $ins = '', $serveur = '', $continue = false) {
-	$desc = spip_connect($serveur, $version);
-	if (
-		$desc
-		and $f = ($desc[$version][$ins] ?? '')
-		and function_exists($f)
-	) {
-		return $f;
-	}
-	if ($continue) {
-		return $desc;
-	}
-	if ($ins) {
-		spip_log("Le serveur '$serveur' version $version n'a pas '$ins'", _LOG_ERREUR);
-	}
-	include_spip('inc/minipres');
-	echo minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
-	exit;
+    $desc = spip_connect($serveur, $version);
+    if (
+        $desc
+        and $f = ($desc[$version][$ins] ?? '')
+        and function_exists($f)
+    ) {
+        return $f;
+    }
+    if ($continue) {
+        return $desc;
+    }
+    if ($ins) {
+        spip_log("Le serveur '$serveur' version $version n'a pas '$ins'", _LOG_ERREUR);
+    }
+    include_spip('inc/minipres');
+    echo minipres(_T('info_travaux_titre'), _T('titre_probleme_technique'), ['status' => 503]);
+    exit;
 }
 
 /**
@@ -240,70 +240,70 @@ 
  * @return array|null Description de la connexion
  */
 function spip_connect_db(
-	$host,
-	$port,
-	$login,
-	#[\SensitiveParameter] $pass,
-	$db = '',
-	$type = 'mysql',
-	$prefixe = '',
-	$auth = '',
-	$charset = ''
+    $host,
+    $port,
+    $login,
+    #[\SensitiveParameter] $pass,
+    $db = '',
+    $type = 'mysql',
+    $prefixe = '',
+    $auth = '',
+    $charset = ''
 ) {
-	// temps avant nouvelle tentative de connexion
-	// suite a une connection echouee
-	if (!defined('_CONNECT_RETRY_DELAY')) {
-		define('_CONNECT_RETRY_DELAY', 30);
-	}
-
-	$f = '';
-	// un fichier de identifiant par combinaison (type,host,port,db)
-	// pour ne pas declarer tout indisponible d'un coup
-	// si en cours d'installation ou si db=@test@ on ne pose rien
-	// car c'est un test de connexion
-	if (!defined('_ECRIRE_INSTALL') and $db !== '@test@') {
-		$f = _DIR_TMP . $type . '.' . substr(md5($host . $port . $db), 0, 8) . '.out';
-	} elseif ($db == '@test@') {
-		$db = '';
-	}
-
-	if (
-		$f
-		and @file_exists($f)
-		and (time() - @filemtime($f) < _CONNECT_RETRY_DELAY)
-	) {
-		spip_log("Echec : $f recent. Pas de tentative de connexion", _LOG_HS);
-
-		return null;
-	}
-
-	if (!$prefixe) {
-		$prefixe = $GLOBALS['table_prefix'] ?? $db;
-	}
-	$h = charger_fonction($type, 'req', true);
-	if (!$h) {
-		spip_log("les requetes $type ne sont pas fournies", _LOG_HS);
-
-		return null;
-	}
-	if ($g = $h($host, $port, $login, $pass, $db, $prefixe)) {
-		if (!is_array($auth)) {
-			// compatibilite version 0.7 initiale
-			$g['ldap'] = $auth;
-			$auth = ['ldap' => $auth];
-		}
-		$g['authentification'] = $auth;
-		$g['type'] = $type;
-		$g['charset'] = $charset;
-
-		return $GLOBALS['db_ok'] = $g;
-	}
-	// En cas d'indisponibilite du serveur, eviter de le bombarder
-	if ($f) {
-		@touch($f);
-		spip_log("Echec connexion serveur $type : host[$host] port[$port] login[$login] base[$db]", $type . '.' . _LOG_HS);
-	}
-	return null;
+    // temps avant nouvelle tentative de connexion
+    // suite a une connection echouee
+    if (!defined('_CONNECT_RETRY_DELAY')) {
+        define('_CONNECT_RETRY_DELAY', 30);
+    }
+
+    $f = '';
+    // un fichier de identifiant par combinaison (type,host,port,db)
+    // pour ne pas declarer tout indisponible d'un coup
+    // si en cours d'installation ou si db=@test@ on ne pose rien
+    // car c'est un test de connexion
+    if (!defined('_ECRIRE_INSTALL') and $db !== '@test@') {
+        $f = _DIR_TMP . $type . '.' . substr(md5($host . $port . $db), 0, 8) . '.out';
+    } elseif ($db == '@test@') {
+        $db = '';
+    }
+
+    if (
+        $f
+        and @file_exists($f)
+        and (time() - @filemtime($f) < _CONNECT_RETRY_DELAY)
+    ) {
+        spip_log("Echec : $f recent. Pas de tentative de connexion", _LOG_HS);
+
+        return null;
+    }
+
+    if (!$prefixe) {
+        $prefixe = $GLOBALS['table_prefix'] ?? $db;
+    }
+    $h = charger_fonction($type, 'req', true);
+    if (!$h) {
+        spip_log("les requetes $type ne sont pas fournies", _LOG_HS);
+
+        return null;
+    }
+    if ($g = $h($host, $port, $login, $pass, $db, $prefixe)) {
+        if (!is_array($auth)) {
+            // compatibilite version 0.7 initiale
+            $g['ldap'] = $auth;
+            $auth = ['ldap' => $auth];
+        }
+        $g['authentification'] = $auth;
+        $g['type'] = $type;
+        $g['charset'] = $charset;
+
+        return $GLOBALS['db_ok'] = $g;
+    }
+    // En cas d'indisponibilite du serveur, eviter de le bombarder
+    if ($f) {
+        @touch($f);
+        spip_log("Echec connexion serveur $type : host[$host] port[$port] login[$login] base[$db]", $type . '.' . _LOG_HS);
+    }
+    return null;
 }
 
 
@@ -335,32 +335,32 @@ 
  *     - nom du charset sinon
  **/
 function spip_connect_main($connexion, $charset_sql_connexion = '') {
-	if ($GLOBALS['spip_connect_version'] < 0.1 and _DIR_RESTREINT) {
-		include_spip('inc/headers');
-		redirige_url_ecrire('upgrade', 'reinstall=oui');
-	}
-
-	if (!($f = $connexion['select'])) {
-		return false;
-	}
-	// si le charset est fourni, l'utiliser
-	if ($charset_sql_connexion) {
-		return $charset_sql_connexion;
-	}
-	// sinon on regarde la table spip_meta
-	// en cas d'erreur select retourne la requette (is_string=true donc)
-	if (
-		!$r = $f('valeur', 'spip_meta', "nom='charset_sql_connexion'")
-		or is_string($r)
-	) {
-		return false;
-	}
-	if (!($f = $connexion['fetch'])) {
-		return false;
-	}
-	$r = $f($r);
-
-	return (isset($r['valeur']) && $r['valeur']) ? $r['valeur'] : -1;
+    if ($GLOBALS['spip_connect_version'] < 0.1 and _DIR_RESTREINT) {
+        include_spip('inc/headers');
+        redirige_url_ecrire('upgrade', 'reinstall=oui');
+    }
+
+    if (!($f = $connexion['select'])) {
+        return false;
+    }
+    // si le charset est fourni, l'utiliser
+    if ($charset_sql_connexion) {
+        return $charset_sql_connexion;
+    }
+    // sinon on regarde la table spip_meta
+    // en cas d'erreur select retourne la requette (is_string=true donc)
+    if (
+        !$r = $f('valeur', 'spip_meta', "nom='charset_sql_connexion'")
+        or is_string($r)
+    ) {
+        return false;
+    }
+    if (!($f = $connexion['fetch'])) {
+        return false;
+    }
+    $r = $f($r);
+
+    return (isset($r['valeur']) && $r['valeur']) ? $r['valeur'] : -1;
 }
 
 /**
@@ -376,8 +376,8 @@ 
  * @return array
  */
 function spip_connect_ldap($serveur = '') {
-	include_spip('auth/ldap');
-	return auth_ldap_connect($serveur);
+    include_spip('auth/ldap');
+    return auth_ldap_connect($serveur);
 }
 
 /**
@@ -393,16 +393,16 @@ 
  * @return string Valeur échappée.
  **/
 function _q($a): string {
-	if (is_numeric($a)) {
-		return strval($a);
-	} elseif (is_array($a)) {
-		return join(',', array_map('_q', $a));
-	} elseif (is_scalar($a)) {
-		return ("'" . addslashes($a) . "'");
-	} elseif ($a === null) {
-		return "''";
-	}
-	throw new \RuntimeException('Can’t use _q with ' . gettype($a));
+    if (is_numeric($a)) {
+        return strval($a);
+    } elseif (is_array($a)) {
+        return join(',', array_map('_q', $a));
+    } elseif (is_scalar($a)) {
+        return ("'" . addslashes($a) . "'");
+    } elseif ($a === null) {
+        return "''";
+    }
+    throw new \RuntimeException('Can’t use _q with ' . gettype($a));
 }
 
 /**
@@ -418,75 +418,75 @@ 
  * @return array
  */
 function query_echappe_textes($query, $uniqid = null) {
-	static $codeEchappements = null;
-	if (is_null($codeEchappements) or $uniqid) {
-		if (is_null($uniqid)) {
-			$uniqid = uniqid();
-		}
-		$uniqid = substr(md5($uniqid), 0, 4);
-		$codeEchappements = ['\\\\' => "\x1@#{$uniqid}#@\x1", "\\'" => "\x2@#{$uniqid}#@\x2", '\\"' => "\x3@#{$uniqid}#@\x3", '%' => "\x4@#{$uniqid}#@\x4"];
-	}
-	if ($query === null) {
-		return $codeEchappements;
-	}
-
-	// si la query contient deja des codes d'echappement on va s'emmeler les pinceaux et donc on ne touche a rien
-	// ce n'est pas un cas legitime
-	foreach ($codeEchappements as $codeEchappement) {
-		if (strpos($query, (string) $codeEchappement) !== false) {
-			return [$query, []];
-		}
-	}
-
-	$query_echappees = str_replace(array_keys($codeEchappements), array_values($codeEchappements), $query);
-	if (preg_match_all("/('[^']*')|(\"[^\"]*\")/S", $query_echappees, $textes)) {
-		$textes = reset($textes);
-
-		$parts = [];
-		$currentpos = 0;
-		$k = 0;
-		while (count($textes)) {
-			$part = array_shift($textes);
-			$nextpos = strpos($query_echappees, $part, $currentpos);
-			// si besoin recoller ensemble les doubles '' de sqlite (echappement des ')
-			while (count($textes) and substr($part, -1) === "'") {
-				$next = reset($textes);
-				if (
-					strpos($next, "'") === 0
-					and strpos($query_echappees, $part . $next, $currentpos) === $nextpos
-				) {
-					$part .= array_shift($textes);
-				}
-				else {
-					break;
-				}
-			}
-			$k++;
-			$parts[$k] = [
-				'texte' => $part,
-				'position' => $nextpos,
-				'placeholder' => '%' . $k . '$s',
-			];
-			$currentpos = $nextpos + strlen($part);
-		}
-
-		// et on replace les parts une par une en commencant par la fin
-		while ($k > 0) {
-			$query_echappees = substr_replace($query_echappees, $parts[$k]['placeholder'], $parts[$k]['position'], strlen($parts[$k]['texte']));
-			$k--;
-		}
-		$textes = array_column($parts, 'texte');
-	} else {
-		$textes = [];
-	}
-
-	// si il reste des quotes simples ou doubles, c'est qu'on s'est emmelle les pinceaux
-	// dans le doute on ne touche a rien
-	if (strpbrk($query_echappees, "'\"") !== false) {
-		return [$query, []];
-	}
-
-	return [$query_echappees, $textes];
+    static $codeEchappements = null;
+    if (is_null($codeEchappements) or $uniqid) {
+        if (is_null($uniqid)) {
+            $uniqid = uniqid();
+        }
+        $uniqid = substr(md5($uniqid), 0, 4);
+        $codeEchappements = ['\\\\' => "\x1@#{$uniqid}#@\x1", "\\'" => "\x2@#{$uniqid}#@\x2", '\\"' => "\x3@#{$uniqid}#@\x3", '%' => "\x4@#{$uniqid}#@\x4"];
+    }
+    if ($query === null) {
+        return $codeEchappements;
+    }
+
+    // si la query contient deja des codes d'echappement on va s'emmeler les pinceaux et donc on ne touche a rien
+    // ce n'est pas un cas legitime
+    foreach ($codeEchappements as $codeEchappement) {
+        if (strpos($query, (string) $codeEchappement) !== false) {
+            return [$query, []];
+        }
+    }
+
+    $query_echappees = str_replace(array_keys($codeEchappements), array_values($codeEchappements), $query);
+    if (preg_match_all("/('[^']*')|(\"[^\"]*\")/S", $query_echappees, $textes)) {
+        $textes = reset($textes);
+
+        $parts = [];
+        $currentpos = 0;
+        $k = 0;
+        while (count($textes)) {
+            $part = array_shift($textes);
+            $nextpos = strpos($query_echappees, $part, $currentpos);
+            // si besoin recoller ensemble les doubles '' de sqlite (echappement des ')
+            while (count($textes) and substr($part, -1) === "'") {
+                $next = reset($textes);
+                if (
+                    strpos($next, "'") === 0
+                    and strpos($query_echappees, $part . $next, $currentpos) === $nextpos
+                ) {
+                    $part .= array_shift($textes);
+                }
+                else {
+                    break;
+                }
+            }
+            $k++;
+            $parts[$k] = [
+                'texte' => $part,
+                'position' => $nextpos,
+                'placeholder' => '%' . $k . '$s',
+            ];
+            $currentpos = $nextpos + strlen($part);
+        }
+
+        // et on replace les parts une par une en commencant par la fin
+        while ($k > 0) {
+            $query_echappees = substr_replace($query_echappees, $parts[$k]['placeholder'], $parts[$k]['position'], strlen($parts[$k]['texte']));
+            $k--;
+        }
+        $textes = array_column($parts, 'texte');
+    } else {
+        $textes = [];
+    }
+
+    // si il reste des quotes simples ou doubles, c'est qu'on s'est emmelle les pinceaux
+    // dans le doute on ne touche a rien
+    if (strpbrk($query_echappees, "'\"") !== false) {
+        return [$query, []];
+    }
+
+    return [$query_echappees, $textes];
 }
 
 /**
@@ -500,16 +500,16 @@ 
  * @return string
  */
 function query_reinjecte_textes($query, $textes) {
-	// recuperer les codes echappements
-	$codeEchappements = query_echappe_textes(null);
+    // recuperer les codes echappements
+    $codeEchappements = query_echappe_textes(null);
 
-	if (!empty($textes)) {
-		$query = sprintf($query, ...$textes);
-	}
+    if (!empty($textes)) {
+        $query = sprintf($query, ...$textes);
+    }
 
-	$query = str_replace(array_values($codeEchappements), array_keys($codeEchappements), $query);
+    $query = str_replace(array_values($codeEchappements), array_keys($codeEchappements), $query);
 
-	return $query;
+    return $query;
 }
 
 
@@ -528,7 +528,7 @@ 
  **/
 function spip_query($query, $serveur = '') {
 
-	$f = spip_connect_sql($GLOBALS['spip_sql_version'], 'query', $serveur, true);
+    $f = spip_connect_sql($GLOBALS['spip_sql_version'], 'query', $serveur, true);
 
-	return function_exists($f) ? $f($query, $serveur) : false;
+    return function_exists($f) ? $f($query, $serveur) : false;
 }

ecrire/req/sqlite3.php

Indentation +8 added lines, -8 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -20,18 +20,18 @@ 
 
 
 function req_sqlite3_dist($addr, $port, $login, #[\SensitiveParameter] $pass, $db = '', $prefixe = '') {
-	return req_sqlite_dist($addr, $port, $login, $pass, $db, $prefixe, $sqlite_version = 3);
+    return req_sqlite_dist($addr, $port, $login, $pass, $db, $prefixe, $sqlite_version = 3);
 }
 
 
 function spip_sqlite3_constantes() {
-	if (!defined('SPIP_SQLITE3_ASSOC')) {
-		define('SPIP_SQLITE3_ASSOC', PDO::FETCH_ASSOC);
-		define('SPIP_SQLITE3_NUM', PDO::FETCH_NUM);
-		define('SPIP_SQLITE3_BOTH', PDO::FETCH_BOTH);
-	}
+    if (!defined('SPIP_SQLITE3_ASSOC')) {
+        define('SPIP_SQLITE3_ASSOC', PDO::FETCH_ASSOC);
+        define('SPIP_SQLITE3_NUM', PDO::FETCH_NUM);
+        define('SPIP_SQLITE3_BOTH', PDO::FETCH_BOTH);
+    }
 }
 
 function spip_versions_sqlite3() {
-	return _sqlite_charger_version(3) ? 3 : false;
+    return _sqlite_charger_version(3) ? 3 : false;
 }

ecrire/req/sqlite_generique.php

Indentation +1616 added lines, -1616 removed lines

@@ -20,7 +20,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // TODO: get/set_caracteres ?
@@ -44,88 +44,88 @@ 
  */
 function req_sqlite_dist($addr, $port, $login, #[\SensitiveParameter] $pass, $db = '', $prefixe = '', $sqlite_version = '')
 {
-	static $last_connect = [];
-
-	// si provient de selectdb
-	// un code pour etre sur que l'on vient de select_db()
-	if (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 str_contains($addr, '/')) {
-		$f = rtrim($addr, '/') . '/';
-	}
-
-	// un nom de base demande et impossible d'obtenir la base, on s'en va :
-	// il faut que la base existe ou que le repertoire parent soit writable
-	if ($db 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();
-
-	if (!$db) {
-		// si pas de db ->
-		// base temporaire tant qu'on ne connait pas son vrai nom
-		// pour tester la connexion
-		$db = '_sqlite' . $sqlite_version . '_install';
-		$tmp = _DIR_DB . $db . '.sqlite';
-		$link = spip_sqlite_open($tmp);
-	} else {
-		// Ouvrir (eventuellement creer la base)
-		$link = spip_sqlite_open($f);
-	}
-
-	if (!$link) {
-		spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	$last_connect = [
-		'addr' => $addr,
-		'port' => $port,
-		'login' => $login,
-		'pass' => $pass,
-		'db' => $db,
-		'prefixe' => $prefixe,
-	];
-
-	// etre sur qu'on definit bien les fonctions a chaque nouvelle connexion
-	include_spip('req/sqlite_fonctions');
-	_sqlite_init_functions($link);
-
-	return [
-		'db' => $db,
-		'prefixe' => $prefixe ? $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 str_contains($addr, '/')) {
+        $f = rtrim($addr, '/') . '/';
+    }
+
+    // un nom de base demande et impossible d'obtenir la base, on s'en va :
+    // il faut que la base existe ou que le repertoire parent soit writable
+    if ($db 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();
+
+    if (!$db) {
+        // si pas de db ->
+        // base temporaire tant qu'on ne connait pas son vrai nom
+        // pour tester la connexion
+        $db = '_sqlite' . $sqlite_version . '_install';
+        $tmp = _DIR_DB . $db . '.sqlite';
+        $link = spip_sqlite_open($tmp);
+    } else {
+        // Ouvrir (eventuellement creer la base)
+        $link = spip_sqlite_open($f);
+    }
+
+    if (!$link) {
+        spip_log("Impossible d'ouvrir la base SQLite($sqlite_version) $f", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    $last_connect = [
+        'addr' => $addr,
+        'port' => $port,
+        'login' => $login,
+        'pass' => $pass,
+        'db' => $db,
+        'prefixe' => $prefixe,
+    ];
+
+    // etre sur qu'on definit bien les fonctions a chaque nouvelle connexion
+    include_spip('req/sqlite_fonctions');
+    _sqlite_init_functions($link);
+
+    return [
+        'db' => $db,
+        'prefixe' => $prefixe ? $prefixe : $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    ];
 }
 
 /**
@@ -136,9 +136,9 @@ 
  * @return PDO
  */
 function spip_sqlite_open(string $file): \PDO {
-	$PDO = new \PDO("sqlite:$file");
-	$PDO->setAttribute(\PDO::ATTR_STATEMENT_CLASS , [\Spip\Sql\Sqlite\PDOStatement::class, [&$PDO]]);
-	return $PDO;
+    $PDO = new \PDO("sqlite:$file");
+    $PDO->setAttribute(\PDO::ATTR_STATEMENT_CLASS , [\Spip\Sql\Sqlite\PDOStatement::class, [&$PDO]]);
+    return $PDO;
 }
 
 
@@ -158,14 +158,14 @@ 
  */
 function spip_sqlite_query($query, $serveur = '', $requeter = true)
 {
-	#spip_log("spip_sqlite_query() > $query",'sqlite.'._LOG_DEBUG);
-	#_sqlite_init(); // fait la premiere fois dans spip_sqlite
-	$query = Sqlite::traduire_requete($query, $serveur);
-	if (!$requeter) {
-		return $query;
-	}
-
-	return Sqlite::executer_requete($query, $serveur);
+    #spip_log("spip_sqlite_query() > $query",'sqlite.'._LOG_DEBUG);
+    #_sqlite_init(); // fait la premiere fois dans spip_sqlite
+    $query = Sqlite::traduire_requete($query, $serveur);
+    if (!$requeter) {
+        return $query;
+    }
+
+    return Sqlite::executer_requete($query, $serveur);
 }
 
 
@@ -183,11 +183,11 @@ 
 function spip_sqlite_alter($query, $serveur = '', $requeter = true)
 {
 
-	$query = spip_sqlite_query("ALTER $query", $serveur, false);
-	// traduire la requete pour recuperer les bons noms de table
-	$query = Sqlite::traduire_requete($query, $serveur);
+    $query = spip_sqlite_query("ALTER $query", $serveur, false);
+    // traduire la requete pour recuperer les bons noms de table
+    $query = Sqlite::traduire_requete($query, $serveur);
 
-	/*
+    /*
 		 * la il faut faire les transformations
 		 * si ALTER TABLE x (DROP|CHANGE) y
 		 *
@@ -196,251 +196,251 @@ 
 		 * 3) faire chaque requete independemment
 		 */
 
-	// 1
-	if (preg_match('/\s*(ALTER(\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
-		$debut = $regs[1];
-		$table = $regs[3];
-		$suite = $regs[4];
-	} else {
-		spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.' . _LOG_ERREUR);
-
-		return false;
-	}
-
-	// 2
-	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
-	// tout en cassant "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... en deux
-	// ou revoir l'api de sql_alter en creant un
-	// sql_alter_table($table,array($actions));
-	$todo = explode(',', $suite);
-
-	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = [];
-	$i = 0;
-	$ouverte = false;
-	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
-		$o = (str_contains($do, '('));
-		$f = (str_contains($do, ')'));
-		if ($o 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 (!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 (str_contains(',', $colonnes)) {
-							spip_log('SQLite : Erreur, impossible de creer un index sur plusieurs colonnes'
-								. " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.' . _LOG_ERREUR);
-							break;
-						} else {
-							$nom_index = $colonnes;
-						}
-					} // nom_index
-					else {
-						$nom_index = $colonnes = $colonne_origine;
-					}
-				}
-				spip_sqlite_create_index($nom_index, $table, $colonnes, $unique, $serveur);
-				break;
-
-				// pas geres en sqlite2
-			case 'ADD COLUMN':
-				$do = 'ADD' . substr($do, 10);
-			case 'ADD':
-			default:
-				if (!preg_match(',primary\s+key,i', $do)) {
-					if (!Sqlite::executer_requete("$debut $do", $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
-
-						return false;
-					}
-					break;
-				}
-				// ou si la colonne est aussi primary key
-				// cas du add id_truc int primary key
-				// ajout d'une colonne qui passe en primary key directe
-				else {
-					$def = trim(substr($do, 3));
-					$colonne_ajoutee = substr($def, 0, strpos($def, ' '));
-					$def = substr($def, strlen($colonne_ajoutee) + 1);
-					$opts = [];
-					if (preg_match(',primary\s+key,i', $def)) {
-						$opts['key'] = ['PRIMARY KEY' => $colonne_ajoutee];
-						$def = preg_replace(',primary\s+key,i', '', $def);
-					}
-					$opts['field'] = [$colonne_ajoutee => $def];
-					if (!_sqlite_modifier_table($table, [$colonne_ajoutee], $opts, $serveur)) {
-						spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
-
-						return false;
-					}
-				}
-				break;
-		}
-		// tout est bon, ouf !
-		spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.' . _LOG_INFO);
-	}
-
-	spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.' . _LOG_INFO);
-
-	return true;
+    // 1
+    if (preg_match('/\s*(ALTER(\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is', $query, $regs)) {
+        $debut = $regs[1];
+        $table = $regs[3];
+        $suite = $regs[4];
+    } else {
+        spip_log("SQLite : Probleme de ALTER TABLE mal forme dans $query", 'sqlite.' . _LOG_ERREUR);
+
+        return false;
+    }
+
+    // 2
+    // il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
+    // tout en cassant "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... en deux
+    // ou revoir l'api de sql_alter en creant un
+    // sql_alter_table($table,array($actions));
+    $todo = explode(',', $suite);
+
+    // on remet les morceaux dechires ensembles... que c'est laid !
+    $todo2 = [];
+    $i = 0;
+    $ouverte = false;
+    while ($do = array_shift($todo)) {
+        $todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . ',' . $do : $do;
+        $o = (str_contains($do, '('));
+        $f = (str_contains($do, ')'));
+        if ($o 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 (!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 (str_contains(',', $colonnes)) {
+                            spip_log('SQLite : Erreur, impossible de creer un index sur plusieurs colonnes'
+                                . " sans qu'il ait de nom ($table, ($colonnes))", 'sqlite.' . _LOG_ERREUR);
+                            break;
+                        } else {
+                            $nom_index = $colonnes;
+                        }
+                    } // nom_index
+                    else {
+                        $nom_index = $colonnes = $colonne_origine;
+                    }
+                }
+                spip_sqlite_create_index($nom_index, $table, $colonnes, $unique, $serveur);
+                break;
+
+                // pas geres en sqlite2
+            case 'ADD COLUMN':
+                $do = 'ADD' . substr($do, 10);
+            case 'ADD':
+            default:
+                if (!preg_match(',primary\s+key,i', $do)) {
+                    if (!Sqlite::executer_requete("$debut $do", $serveur)) {
+                        spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+
+                        return false;
+                    }
+                    break;
+                }
+                // ou si la colonne est aussi primary key
+                // cas du add id_truc int primary key
+                // ajout d'une colonne qui passe en primary key directe
+                else {
+                    $def = trim(substr($do, 3));
+                    $colonne_ajoutee = substr($def, 0, strpos($def, ' '));
+                    $def = substr($def, strlen($colonne_ajoutee) + 1);
+                    $opts = [];
+                    if (preg_match(',primary\s+key,i', $def)) {
+                        $opts['key'] = ['PRIMARY KEY' => $colonne_ajoutee];
+                        $def = preg_replace(',primary\s+key,i', '', $def);
+                    }
+                    $opts['field'] = [$colonne_ajoutee => $def];
+                    if (!_sqlite_modifier_table($table, [$colonne_ajoutee], $opts, $serveur)) {
+                        spip_log("SQLite : Erreur ALTER TABLE / ADD : $query", 'sqlite.' . _LOG_ERREUR);
+
+                        return false;
+                    }
+                }
+                break;
+        }
+        // tout est bon, ouf !
+        spip_log("SQLite ($serveur) : Changements OK : $debut $do", 'sqlite.' . _LOG_INFO);
+    }
+
+    spip_log("SQLite ($serveur) : fin ALTER TABLE OK !", 'sqlite.' . _LOG_INFO);
+
+    return true;
 }
 
 /**
@@ -462,38 +462,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;
 }
 
 /**
@@ -507,21 +507,21 @@ 
  **/
 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;
 }
 
 
@@ -543,22 +543,22 @@ 
  */
 function spip_sqlite_create_view($nom, $query_select, $serveur = '', $requeter = true)
 {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		spip_log(
-			"Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",
-			'sqlite.' . _LOG_ERREUR
-		);
-
-		return false;
-	}
-
-	$query = "CREATE VIEW $nom AS " . $query_select;
-
-	return spip_sqlite_query($query, $serveur, $requeter);
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        spip_log(
+            "Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",
+            'sqlite.' . _LOG_ERREUR
+        );
+
+        return false;
+    }
+
+    $query = "CREATE VIEW $nom AS " . $query_select;
+
+    return spip_sqlite_query($query, $serveur, $requeter);
 }
 
 /**
@@ -581,54 +581,54 @@ 
  */
 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;
+    }
 }
 
 /**
@@ -645,24 +645,24 @@ 
  */
 function spip_sqlite_count($r, $serveur = '', $requeter = true)
 {
-	if (!$r) {
-		return 0;
-	}
-
-	// select ou autre (insert, update,...) ?
-	// (link,requete) a compter
-	if (strtoupper(substr(ltrim($r->queryString), 0, 6)) === 'SELECT') {
-		$link = $r->getPDO();
-		$query = "SELECT count(*) as zzzzsqlitecount FROM ({$r->queryString})";
-		$l = $link->query($query);
-		$i = 0;
-		if ($l and $z = $l->fetch()) {
-			$i = (int) $z['zzzzsqlitecount'];
-		}
-		return $i;
-	}
-
-	return $r->rowCount();
+    if (!$r) {
+        return 0;
+    }
+
+    // select ou autre (insert, update,...) ?
+    // (link,requete) a compter
+    if (strtoupper(substr(ltrim($r->queryString), 0, 6)) === 'SELECT') {
+        $link = $r->getPDO();
+        $query = "SELECT count(*) as zzzzsqlitecount FROM ({$r->queryString})";
+        $l = $link->query($query);
+        $i = 0;
+        if ($l and $z = $l->fetch()) {
+            $i = (int) $z['zzzzsqlitecount'];
+        }
+        return $i;
+    }
+
+    return $r->rowCount();
 }
 
 
@@ -681,31 +681,31 @@ 
  *     - false si la requête a échouée
  **/
 function spip_sqlite_countsel(
-	$from = [],
-	$where = [],
-	$groupby = '',
-	$having = [],
-	$serveur = '',
-	$requeter = true
+    $from = [],
+    $where = [],
+    $groupby = '',
+    $having = [],
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : 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
-		[$r] = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
-		$r = (int) $r;
-	}
-
-	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
+        [$r] = spip_sqlite_fetch($r, SPIP_SQLITE3_NUM, $serveur);
+        $r = (int) $r;
+    }
+
+    return $r;
 }
 
 
@@ -723,24 +723,24 @@ 
  **/
 function spip_sqlite_delete($table, $where = '', $serveur = '', $requeter = true)
 {
-	$res = spip_sqlite_query(
-		_sqlite_calculer_expression('DELETE FROM', $table, ',')
-			. _sqlite_calculer_expression('WHERE', $where),
-		$serveur,
-		$requeter
-	);
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $res;
-	}
-
-	if ($res) {
-		$link = _sqlite_link($serveur);
-		return $res->rowCount();
-	} else {
-		return false;
-	}
+    $res = spip_sqlite_query(
+        _sqlite_calculer_expression('DELETE FROM', $table, ',')
+            . _sqlite_calculer_expression('WHERE', $where),
+        $serveur,
+        $requeter
+    );
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $res;
+    }
+
+    if ($res) {
+        $link = _sqlite_link($serveur);
+        return $res->rowCount();
+    } else {
+        return false;
+    }
 }
 
 
@@ -757,15 +757,15 @@ 
  */
 function spip_sqlite_drop_table($table, $exist = '', $serveur = '', $requeter = true)
 {
-	if ($exist) {
-		$exist = ' IF EXISTS';
-	}
-
-	if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
-		return true;
-	} else {
-		return false;
-	}
+    if ($exist) {
+        $exist = ' IF EXISTS';
+    }
+
+    if (spip_sqlite_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+        return true;
+    } else {
+        return false;
+    }
 }
 
 
@@ -782,11 +782,11 @@ 
  */
 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);
 }
 
 /**
@@ -801,20 +801,20 @@ 
  */
 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);
 }
 
 /**
@@ -831,29 +831,29 @@ 
  **/
 function spip_sqlite_error($query = '', $serveur = '')
 {
-	$link = _sqlite_link($serveur);
-
-	if ($link) {
-		$errs = $link->errorInfo();
-		$s = _sqlite_last_error_from_link($link);
-	} else {
-		$s = ': aucune ressource sqlite (link)';
-	}
-	if ($s) {
-		$trace = debug_backtrace();
-		if ($trace[0]['function'] != 'spip_sqlite_error') {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'sqlite.' . _LOG_ERREUR);
-		}
-	}
-
-	return $s;
+    $link = _sqlite_link($serveur);
+
+    if ($link) {
+        $errs = $link->errorInfo();
+        $s = _sqlite_last_error_from_link($link);
+    } else {
+        $s = ': aucune ressource sqlite (link)';
+    }
+    if ($s) {
+        $trace = debug_backtrace();
+        if ($trace[0]['function'] != 'spip_sqlite_error') {
+            spip_log("$s - $query - " . sql_error_backtrace(), 'sqlite.' . _LOG_ERREUR);
+        }
+    }
+
+    return $s;
 }
 
 function _sqlite_last_error_from_link($link)
 {
-	if ($link) {
-		$errs = $link->errorInfo();
-		/*
+    if ($link) {
+        $errs = $link->errorInfo();
+        /*
 			$errs[0]
 				numero SQLState ('HY000' souvent lors d'une erreur)
 				http://www.easysoft.com/developer/interfaces/odbc/sqlstate_status_return_codes.html
@@ -863,11 +863,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 '';
 }
 
 /**
@@ -885,23 +885,23 @@ 
  **/
 function spip_sqlite_errno($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 ($s) {
-		spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
-	}
-
-	return $s ? $s : 0;
+    $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 ($s) {
+        spip_log("Erreur sqlite $s", 'sqlite.' . _LOG_ERREUR);
+    }
+
+    return $s ? $s : 0;
 }
 
 
@@ -918,19 +918,19 @@ 
  */
 function spip_sqlite_explain($query, $serveur = '', $requeter = true)
 {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return [];
-	}
-
-	$query = Sqlite::traduire_requete($query, $serveur);
-	$query = 'EXPLAIN ' . $query;
-	if (!$requeter) {
-		return $query;
-	}
-	// on ne trace pas ces requetes, sinon on obtient un tracage sans fin...
-	$r = Sqlite::executer_requete($query, $serveur, false);
-
-	return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return [];
+    }
+
+    $query = Sqlite::traduire_requete($query, $serveur);
+    $query = 'EXPLAIN ' . $query;
+    if (!$requeter) {
+        return $query;
+    }
+    // on ne trace pas ces requetes, sinon on obtient un tracage sans fin...
+    $r = Sqlite::executer_requete($query, $serveur, false);
+
+    return $r ? spip_sqlite_fetch($r, null, $serveur) : false; // hum ? etrange ca... a verifier
 }
 
 
@@ -951,35 +951,35 @@ 
 function spip_sqlite_fetch($r, $t = '', $serveur = '', $requeter = true)
 {
 
-	$link = _sqlite_link($serveur);
-	$t = $t ? $t : SPIP_SQLITE3_ASSOC;
-
-	if (!$r) {
-		return false;
-	}
-
-	$retour = $r->fetch($t);
-
-	if (!$retour) {
-		if ($r->errorCode() === '00000') {
-			return null;
-		}
-		return false;
-	}
-
-	// Renvoie des 'table.titre' au lieu de 'titre' tout court ! pff !
-	// suppression de 'table.' pour toutes les cles (c'est un peu violent !)
-	// c'est couteux : on ne verifie que la premiere ligne pour voir si on le fait ou non
-	if (str_contains(implode('', array_keys($retour)), '.')) {
-		foreach ($retour as $cle => $val) {
-			if (($pos = strpos($cle, '.')) !== false) {
-				$retour[substr($cle, $pos + 1)] = &$retour[$cle];
-				unset($retour[$cle]);
-			}
-		}
-	}
-
-	return $retour;
+    $link = _sqlite_link($serveur);
+    $t = $t ? $t : SPIP_SQLITE3_ASSOC;
+
+    if (!$r) {
+        return false;
+    }
+
+    $retour = $r->fetch($t);
+
+    if (!$retour) {
+        if ($r->errorCode() === '00000') {
+            return null;
+        }
+        return false;
+    }
+
+    // Renvoie des 'table.titre' au lieu de 'titre' tout court ! pff !
+    // suppression de 'table.' pour toutes les cles (c'est un peu violent !)
+    // c'est couteux : on ne verifie que la premiere ligne pour voir si on le fait ou non
+    if (str_contains(implode('', array_keys($retour)), '.')) {
+        foreach ($retour as $cle => $val) {
+            if (($pos = strpos($cle, '.')) !== false) {
+                $retour[substr($cle, $pos + 1)] = &$retour[$cle];
+                unset($retour[$cle]);
+            }
+        }
+    }
+
+    return $retour;
 }
 
 /**
@@ -993,8 +993,8 @@ 
  **/
 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;
 }
 
 
@@ -1011,10 +1011,10 @@ 
  */
 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);
 }
 
 
@@ -1030,8 +1030,8 @@ 
  */
 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);
 }
 
 
@@ -1047,7 +1047,7 @@ 
  **/
 function spip_sqlite_hex($v)
 {
-	return hexdec($v);
+    return hexdec($v);
 }
 
 
@@ -1070,7 +1070,7 @@ 
  **/
 function spip_sqlite_in($val, $valeurs, $not = '', $serveur = '', $requeter = true)
 {
-	return "($val $not IN ($valeurs))";
+    return "($val $not IN ($valeurs))";
 }
 
 
@@ -1099,20 +1099,20 @@ 
 function spip_sqlite_insert($table, $champs, $valeurs, $desc = [], $serveur = '', $requeter = true)
 {
 
-	$query = "INSERT INTO $table " . ($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
-	if ($r = spip_sqlite_query($query, $serveur, $requeter)) {
-		if (!$requeter) {
-			return $r;
-		}
-		$nb = Sqlite::last_insert_id($serveur);
-	} else {
-		$nb = false;
-	}
+    $query = "INSERT INTO $table " . ($champs ? "$champs VALUES $valeurs" : 'DEFAULT VALUES');
+    if ($r = spip_sqlite_query($query, $serveur, $requeter)) {
+        if (!$requeter) {
+            return $r;
+        }
+        $nb = Sqlite::last_insert_id($serveur);
+    } else {
+        $nb = false;
+    }
 
-	$err = spip_sqlite_error($query, $serveur);
+    $err = spip_sqlite_error($query, $serveur);
 
-	// cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
-	return isset($_GET['var_profile']) ? $r : $nb;
+    // cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
+    return isset($_GET['var_profile']) ? $r : $nb;
 }
 
 
@@ -1138,28 +1138,28 @@ 
  **/
 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'] : [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	$cles = $valeurs = '';
-	if (count($couples)) {
-		$cles = '(' . join(',', array_keys($couples)) . ')';
-		$valeurs = '(' . join(',', $couples) . ')';
-	}
-
-	return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    $fields = isset($desc['field']) ? $desc['field'] : [];
+
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+
+    $cles = $valeurs = '';
+    if (count($couples)) {
+        $cles = '(' . join(',', array_keys($couples)) . ')';
+        $valeurs = '(' . join(',', $couples) . ')';
+    }
+
+    return spip_sqlite_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
@@ -1184,70 +1184,70 @@ 
  **/
 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 = Sqlite::traduire_requete($query_start, $serveur);
-
-	// ouvrir une transaction
-	if ($requeter) {
-		Sqlite::demarrer_transaction($serveur);
-	}
-
-	while ($couples = array_shift($tab_couples)) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = _sqlite_calculer_cite($val, $desc['field'][$champ]);
-		}
-
-		// inserer les champs timestamp par defaut
-		$couples = array_merge($maj, $couples);
-
-		$champs = $valeurs = '';
-		if (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 = Sqlite::executer_requete($query, $serveur);
-		}
-
-		// sur le dernier couple uniquement
-		if (!count($tab_couples)) {
-			$nb = 0;
-			if ($requeter) {
-				$nb = Sqlite::last_insert_id($serveur);
-			} else {
-				return $query;
-			}
-		}
-
-		$err = spip_sqlite_error($query, $serveur);
-	}
-
-	if ($requeter) {
-		Sqlite::finir_transaction($serveur);
-	}
-
-	// renvoie le dernier id d'autoincrement ajoute
-	// cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
-	return isset($_GET['var_profile']) ? $retour : $nb;
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        die("$table insertion sans description");
+    }
+    if (!isset($desc['field'])) {
+        $desc['field'] = [];
+    }
+
+    // recuperer les champs 'timestamp' pour mise a jour auto de ceux-ci
+    $maj = _sqlite_ajouter_champs_timestamp($table, [], $desc, $serveur);
+
+    // seul le nom de la table est a traduire ici :
+    // le faire une seule fois au debut
+    $query_start = "INSERT INTO $table ";
+    $query_start = Sqlite::traduire_requete($query_start, $serveur);
+
+    // ouvrir une transaction
+    if ($requeter) {
+        Sqlite::demarrer_transaction($serveur);
+    }
+
+    while ($couples = array_shift($tab_couples)) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = _sqlite_calculer_cite($val, $desc['field'][$champ]);
+        }
+
+        // inserer les champs timestamp par defaut
+        $couples = array_merge($maj, $couples);
+
+        $champs = $valeurs = '';
+        if (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 = Sqlite::executer_requete($query, $serveur);
+        }
+
+        // sur le dernier couple uniquement
+        if (!count($tab_couples)) {
+            $nb = 0;
+            if ($requeter) {
+                $nb = Sqlite::last_insert_id($serveur);
+            } else {
+                return $query;
+            }
+        }
+
+        $err = spip_sqlite_error($query, $serveur);
+    }
+
+    if ($requeter) {
+        Sqlite::finir_transaction($serveur);
+    }
+
+    // renvoie le dernier id d'autoincrement ajoute
+    // cas particulier : ne pas substituer la reponse spip_sqlite_query si on est en profilage
+    return isset($_GET['var_profile']) ? $retour : $nb;
 }
 
 
@@ -1263,7 +1263,7 @@ 
  **/
 function spip_sqlite_preferer_transaction($serveur = '', $requeter = true)
 {
-	return true;
+    return true;
 }
 
 /**
@@ -1281,12 +1281,12 @@ 
  **/
 function spip_sqlite_demarrer_transaction($serveur = '', $requeter = true)
 {
-	if (!$requeter) {
-		return 'BEGIN TRANSACTION';
-	}
-	Sqlite::demarrer_transaction($serveur);
+    if (!$requeter) {
+        return 'BEGIN TRANSACTION';
+    }
+    Sqlite::demarrer_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 /**
@@ -1301,12 +1301,12 @@ 
  **/
 function spip_sqlite_terminer_transaction($serveur = '', $requeter = true)
 {
-	if (!$requeter) {
-		return 'COMMIT';
-	}
-	Sqlite::finir_transaction($serveur);
+    if (!$requeter) {
+        return 'COMMIT';
+    }
+    Sqlite::finir_transaction($serveur);
 
-	return true;
+    return true;
 }
 
 
@@ -1322,27 +1322,27 @@ 
  **/
 function spip_sqlite_listdbs($serveur = '', $requeter = true)
 {
-	_sqlite_init();
-
-	if (!is_dir($d = substr(_DIR_DB, 0, -1))) {
-		return [];
-	}
-
-	include_spip('inc/flock');
-	$bases = preg_files($d, $pattern = '(.*)\.sqlite$');
-	$bds = [];
-
-	foreach ($bases as $b) {
-		// pas de bases commencant pas sqlite
-		// (on s'en sert pour l'installation pour simuler la presence d'un serveur)
-		// les bases sont de la forme _sqliteX_tmp_spip_install.sqlite
-		if (strpos($b, '_sqlite')) {
-			continue;
-		}
-		$bds[] = preg_replace(";.*/$pattern;iS", '$1', $b);
-	}
-
-	return $bds;
+    _sqlite_init();
+
+    if (!is_dir($d = substr(_DIR_DB, 0, -1))) {
+        return [];
+    }
+
+    include_spip('inc/flock');
+    $bases = preg_files($d, $pattern = '(.*)\.sqlite$');
+    $bds = [];
+
+    foreach ($bases as $b) {
+        // pas de bases commencant pas sqlite
+        // (on s'en sert pour l'installation pour simuler la presence d'un serveur)
+        // les bases sont de la forme _sqliteX_tmp_spip_install.sqlite
+        if (strpos($b, '_sqlite')) {
+            continue;
+        }
+        $bds[] = preg_replace(";.*/$pattern;iS", '$1', $b);
+    }
+
+    return $bds;
 }
 
 
@@ -1358,9 +1358,9 @@ 
  */
 function spip_sqlite_multi($objet, $lang)
 {
-	$r = 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
+    $r = 'EXTRAIRE_MULTI(' . $objet . ", '" . $lang . "') AS multi";
 
-	return $r;
+    return $r;
 }
 
 
@@ -1378,15 +1378,15 @@ 
  **/
 function spip_sqlite_optimize($table, $serveur = '', $requeter = true)
 {
-	static $do = false;
-	if ($requeter and $do) {
-		return true;
-	}
-	if ($requeter) {
-		$do = true;
-	}
-
-	return spip_sqlite_query('VACUUM', $serveur, $requeter);
+    static $do = false;
+    if ($requeter and $do) {
+        return true;
+    }
+    if ($requeter) {
+        $do = true;
+    }
+
+    return spip_sqlite_query('VACUUM', $serveur, $requeter);
 }
 
 
@@ -1404,15 +1404,15 @@ 
  */
 function spip_sqlite_quote($v, $type = '')
 {
-	if (!is_array($v)) {
-		return _sqlite_calculer_cite($v, $type);
-	}
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach ($v as $k => $r) {
-		$v[$k] = spip_sqlite_quote($r, $type);
-	}
-
-	return join(',', $v);
+    if (!is_array($v)) {
+        return _sqlite_calculer_cite($v, $type);
+    }
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach ($v as $k => $r) {
+        $v[$k] = spip_sqlite_quote($r, $type);
+    }
+
+    return join(',', $v);
 }
 
 
@@ -1430,9 +1430,9 @@ 
  **/
 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'))";
 }
 
 
@@ -1451,48 +1451,48 @@ 
  */
 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 '];
 }
 
 
@@ -1522,25 +1522,25 @@ 
  **/
 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'] : [];
-
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = _sqlite_calculer_cite($val, $fields[$champ]);
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = _sqlite_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
-
-	return spip_sqlite_query("REPLACE INTO $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(
-		',',
-		$couples
-	) . ')', $serveur);
+    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]);
+    }
+
+    // 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);
 }
 
 
@@ -1571,13 +1571,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;
 }
 
 
@@ -1604,44 +1604,44 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_sqlite_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = '',
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = '',
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// version() n'est pas connu de sqlite
-	$select = str_replace('version()', 'sqlite_version()', $select);
-
-	// recomposer from
-	$from = (!is_array($from) ? $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" : '');
-
-	// dans un select, on doit renvoyer la requête en cas d'erreur
-	$res = spip_sqlite_query($query, $serveur, $requeter);
-	// texte de la requete demande ?
-	if (!$requeter) {
-		return $res;
-	}
-	// erreur survenue ?
-	if ($res === false) {
-		return Sqlite::traduire_requete($query, $serveur);
-	}
-
-	return $res;
+    // version() n'est pas connu de sqlite
+    $select = str_replace('version()', 'sqlite_version()', $select);
+
+    // recomposer from
+    $from = (!is_array($from) ? $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" : '');
+
+    // dans un select, on doit renvoyer la requête en cas d'erreur
+    $res = spip_sqlite_query($query, $serveur, $requeter);
+    // texte de la requete demande ?
+    if (!$requeter) {
+        return $res;
+    }
+    // erreur survenue ?
+    if ($res === false) {
+        return Sqlite::traduire_requete($query, $serveur);
+    }
+
+    return $res;
 }
 
 
@@ -1661,32 +1661,32 @@ 
  **/
 function spip_sqlite_selectdb($db, $serveur = '', $requeter = true)
 {
-	_sqlite_init();
-
-	// interdire la creation d'une nouvelle base,
-	// sauf si on est dans l'installation
-	if (
-		!is_file($f = _DIR_DB . $db . '.sqlite')
-		&& (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)
-	) {
-		spip_log("Il est interdit de creer la base $db", 'sqlite.' . _LOG_HS);
-
-		return false;
-	}
-
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ? $serveur : 0;
-
-	if ($link = spip_connect_db('', '', '', '', '@selectdb@' . $db, $serveur, '', '')) {
-		if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
-			return $db;
-		}
-	} else {
-		spip_log("Impossible de selectionner la base $db", 'sqlite.' . _LOG_HS);
-	}
-
-	return false;
+    _sqlite_init();
+
+    // interdire la creation d'une nouvelle base,
+    // sauf si on est dans l'installation
+    if (
+        !is_file($f = _DIR_DB . $db . '.sqlite')
+        && (!defined('_ECRIRE_INSTALL') || !_ECRIRE_INSTALL)
+    ) {
+        spip_log("Il est interdit de creer la base $db", 'sqlite.' . _LOG_HS);
+
+        return false;
+    }
+
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ? $serveur : 0;
+
+    if ($link = spip_connect_db('', '', '', '', '@selectdb@' . $db, $serveur, '', '')) {
+        if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link) {
+            return $db;
+        }
+    } else {
+        spip_log("Impossible de selectionner la base $db", 'sqlite.' . _LOG_HS);
+    }
+
+    return false;
 }
 
 
@@ -1702,8 +1702,8 @@ 
  */
 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 !
 }
 
 
@@ -1722,24 +1722,24 @@ 
  **/
 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
+    );
 }
 
 /**
@@ -1758,19 +1758,19 @@ 
  **/
 function spip_sqlite_table_exists(string $table, $serveur = '', $requeter = true)
 {
-	$r = spip_sqlite_query(
-		'SELECT name FROM sqlite_master WHERE'
-			. ' type=\'table\''
-			. ' AND name=' . spip_sqlite_quote($table, 'string')
-			. ' AND name NOT LIKE \'sqlite_%\'',
-		$serveur,
-		$requeter
-	);
-	if (!$requeter) {
-		return $r;
-	}
-	$res = spip_sqlite_fetch($r, '', $serveur);
-	return (bool) $res;
+    $r = spip_sqlite_query(
+        'SELECT name FROM sqlite_master WHERE'
+            . ' type=\'table\''
+            . ' AND name=' . spip_sqlite_quote($table, 'string')
+            . ' AND name NOT LIKE \'sqlite_%\'',
+        $serveur,
+        $requeter
+    );
+    if (!$requeter) {
+        return $r;
+    }
+    $res = spip_sqlite_fetch($r, '', $serveur);
+    return (bool) $res;
 }
 
 define('_SQLITE_RE_SHOW_TABLE', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -1794,129 +1794,129 @@ 
  */
 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 (str_contains($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 (str_contains($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];
 }
 
 
@@ -1943,24 +1943,24 @@ 
  */
 function spip_sqlite_update($table, $champs, $where = '', $desc = '', $serveur = '', $requeter = true)
 {
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$champs = _sqlite_ajouter_champs_timestamp($table, $champs, $desc, $serveur);
-
-	$set = [];
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
-	}
-	if (!empty($set)) {
-		return spip_sqlite_query(
-			_sqlite_calculer_expression('UPDATE', $table, ',')
-				. _sqlite_calculer_expression('SET', $set, ',')
-				. _sqlite_calculer_expression('WHERE', $where),
-			$serveur,
-			$requeter
-		);
-	}
-
-	return false;
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $champs = _sqlite_ajouter_champs_timestamp($table, $champs, $desc, $serveur);
+
+    $set = [];
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if (!empty($set)) {
+        return spip_sqlite_query(
+            _sqlite_calculer_expression('UPDATE', $table, ',')
+                . _sqlite_calculer_expression('SET', $set, ',')
+                . _sqlite_calculer_expression('WHERE', $where),
+            $serveur,
+            $requeter
+        );
+    }
+
+    return false;
 }
 
 
@@ -1991,38 +1991,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
+    );
 }
 
 
@@ -2041,17 +2041,17 @@ 
  */
 function _sqlite_init()
 {
-	if (!defined('_DIR_DB')) {
-		define('_DIR_DB', _DIR_ETC . 'bases/');
-	}
-	if (!defined('_SQLITE_CHMOD')) {
-		define('_SQLITE_CHMOD', _SPIP_CHMOD);
-	}
-
-	if (!is_dir($d = _DIR_DB)) {
-		include_spip('inc/flock');
-		sous_repertoire($d);
-	}
+    if (!defined('_DIR_DB')) {
+        define('_DIR_DB', _DIR_ETC . 'bases/');
+    }
+    if (!defined('_SQLITE_CHMOD')) {
+        define('_SQLITE_CHMOD', _SPIP_CHMOD);
+    }
+
+    if (!is_dir($d = _DIR_DB)) {
+        include_spip('inc/flock');
+        sous_repertoire($d);
+    }
 }
 
 
@@ -2066,20 +2066,20 @@ 
  */
 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);
 }
 
 
@@ -2091,9 +2091,9 @@ 
  */
 function _sqlite_link($serveur = ''): ?\PDO
 {
-	$link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -2109,54 +2109,54 @@ 
  */
 function _sqlite_calculer_cite($v, $type)
 {
-	if ($type) {
-		if (
-			is_null($v)
-			and stripos($type, 'NOT NULL') === false
-		) {
-			// null php se traduit en NULL SQL
-			return 'NULL';
-		}
-
-		if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
-			return $v;
-		}
-		if (sql_test_int($type)) {
-			if (is_numeric($v)) {
-				return $v;
-			} elseif ($v === null) {
-				return 0;
-			} elseif (ctype_xdigit(substr($v, 2)) 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
+        ) {
+            // null php se traduit en NULL SQL
+            return 'NULL';
+        }
+
+        if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
+            return $v;
+        }
+        if (sql_test_int($type)) {
+            if (is_numeric($v)) {
+                return $v;
+            } elseif ($v === null) {
+                return 0;
+            } elseif (ctype_xdigit(substr($v, 2)) 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) . "'");
 }
 
 
@@ -2173,21 +2173,21 @@ 
  */
 function _sqlite_calculer_expression($expression, $v, $join = 'AND')
 {
-	if (empty($v)) {
-		return '';
-	}
-
-	$exp = "\n$expression ";
-
-	if (!is_array($v)) {
-		return $exp . $v;
-	} else {
-		if (strtoupper($join) === 'AND') {
-			return $exp . join("\n\t$join ", array_map('_sqlite_calculer_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('_sqlite_calculer_where', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -2204,7 +2204,7 @@ 
  */
 function _sqlite_calculer_order($orderby)
 {
-	return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
+    return (is_array($orderby)) ? join(', ', $orderby) : $orderby;
 }
 
 
@@ -2216,26 +2216,26 @@ 
  */
 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);
 }
 
 
@@ -2259,26 +2259,26 @@ 
  */
 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])";
+            }
+        }
+    }
 }
 
 
@@ -2294,19 +2294,19 @@ 
  */
 function _sqlite_charger_version($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;
+    $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;
 }
 
 
@@ -2345,147 +2345,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)) {
-		Sqlite::demarrer_transaction($serveur);
-		// il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
-		foreach ($queries as $q) {
-			if (!Sqlite::executer_requete($q, $serveur)) {
-				spip_log('SQLite : ALTER TABLE table :'
-					. " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
-				Sqlite::annuler_transaction($serveur);
-
-				return false;
-			}
-		}
-		Sqlite::finir_transaction($serveur);
-	}
-
-	return true;
+    if (is_array($table)) {
+        $table_destination = reset($table);
+        $table_origine = key($table);
+    } else {
+        $table_origine = $table_destination = $table;
+    }
+    // ne prend actuellement qu'un changement
+    // mais pourra etre adapte pour changer plus qu'une colonne a la fois
+    if (is_array($colonne)) {
+        $colonne_destination = reset($colonne);
+        $colonne_origine = key($colonne);
+    } else {
+        $colonne_origine = $colonne_destination = $colonne;
+    }
+    if (!isset($opt['field'])) {
+        $opt['field'] = [];
+    }
+    if (!isset($opt['key'])) {
+        $opt['key'] = [];
+    }
+
+    // si les noms de tables sont differents, pas besoin de table temporaire
+    // on prendra directement le nom de la future table
+    $meme_table = ($table_origine == $table_destination);
+
+    $def_origine = sql_showtable($table_origine, false, $serveur);
+    if (!$def_origine 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)) {
+        Sqlite::demarrer_transaction($serveur);
+        // il faut les faire une par une car $query = join('; ', $queries).";"; ne fonctionne pas
+        foreach ($queries as $q) {
+            if (!Sqlite::executer_requete($q, $serveur)) {
+                spip_log('SQLite : ALTER TABLE table :'
+                    . " Erreur a l'execution de la requete : $q", 'sqlite.' . _LOG_ERREUR);
+                Sqlite::annuler_transaction($serveur);
+
+                return false;
+            }
+        }
+        Sqlite::finir_transaction($serveur);
+    }
+
+    return true;
 }
 
 
@@ -2496,61 +2496,61 @@ 
  */
 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;
 }
 
 
@@ -2563,56 +2563,56 @@ 
  */
 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;
 }
 
 /**
@@ -2624,17 +2624,17 @@ 
  */
 function _sqlite_collate_ci($champ)
 {
-	if (stripos($champ, 'COLLATE') !== false) {
-		return $champ;
-	}
-	if (stripos($champ, 'BINARY') !== false) {
-		return str_ireplace('BINARY', 'COLLATE BINARY', $champ);
-	}
-	if (preg_match(',^(char|varchar|(long|small|medium|tiny)?text),i', $champ)) {
-		return $champ . ' COLLATE NOCASE';
-	}
-
-	return $champ;
+    if (stripos($champ, 'COLLATE') !== false) {
+        return $champ;
+    }
+    if (stripos($champ, 'BINARY') !== false) {
+        return str_ireplace('BINARY', 'COLLATE BINARY', $champ);
+    }
+    if (preg_match(',^(char|varchar|(long|small|medium|tiny)?text),i', $champ)) {
+        return $champ . ' COLLATE NOCASE';
+    }
+
+    return $champ;
 }
 
 
@@ -2653,84 +2653,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;
 }
 
 
@@ -2750,40 +2750,40 @@ 
  */
 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);
 }
 
 
@@ -2795,5 +2795,5 @@ 
  */
 function spip_versions_sqlite()
 {
-	return _sqlite_charger_version();
+    return _sqlite_charger_version();
 }

ecrire/req/mysql.php

Indentation +884 added lines, -884 removed lines

@@ -19,11 +19,11 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_MYSQL_NOPLANES')) {
-	define('_MYSQL_NOPLANES', true);
+    define('_MYSQL_NOPLANES', true);
 }
 
 /**
@@ -40,112 +40,112 @@ 
  *     - tableau décrivant la connexion sinon
  */
 function req_mysql_dist($host, $port, $login, #[\SensitiveParameter] $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']
+    ]
 ];
 
 
@@ -156,9 +156,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;
 }
 
 
@@ -171,10 +171,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));
 }
 
 
@@ -187,11 +187,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);
 }
 
 /**
@@ -207,80 +207,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;
 }
 
 /**
@@ -295,12 +295,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
 }
 
 
@@ -313,9 +313,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;
 }
 
 
@@ -328,18 +328,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);
 }
 
 
@@ -368,35 +368,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;
 }
 
 
@@ -413,7 +413,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;
 }
 
 
@@ -436,26 +436,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])";
+            }
+        }
+    }
 }
 
 /**
@@ -470,21 +470,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);
+        }
+    }
 }
 
 
@@ -495,26 +495,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);
 }
 
 
@@ -539,58 +539,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;
 }
 
 /**
@@ -608,17 +608,17 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_selectdb($db, $serveur = '', $requeter = true) {
-	$link = _mysql_link($serveur);
-	try {
-		$ok = mysqli_select_db($link, $db);
-	} catch (\mysqli_sql_exception $e) {
-		$ok = false;
-	}
-	if (!$ok) {
-		spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
-	}
-
-	return $ok;
+    $link = _mysql_link($serveur);
+    try {
+        $ok = mysqli_select_db($link, $db);
+    } catch (\mysqli_sql_exception $e) {
+        $ok = false;
+    }
+    if (!$ok) {
+        spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
+    }
+
+    return $ok;
 }
 
 
@@ -639,14 +639,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;
 }
 
 
@@ -669,73 +669,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" : '') . ')'
-		. (defined('_MYSQL_ENGINE') ? ' ENGINE=' . _MYSQL_ENGINE : '')
-		. ($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" : '') . ')'
+        . (defined('_MYSQL_ENGINE') ? ' ENGINE=' . _MYSQL_ENGINE : '')
+        . ($character_set ? " DEFAULT $character_set" : '')
+        . "\n";
+
+    return spip_mysql_query($q, $serveur);
 }
 
 
@@ -748,25 +748,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;
 }
 
 
@@ -779,7 +779,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);
 }
 
 
@@ -800,19 +800,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);
 }
 
 
@@ -828,11 +828,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);
 }
 
 /**
@@ -847,11 +847,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);
 }
 
 /**
@@ -868,7 +868,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);
 }
 
 /**
@@ -884,18 +884,18 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_repair($table, $serveur = '', $requeter = true) {
-	$table_status = spip_mysql_fetch(spip_mysql_query('SHOW TABLE STATUS WHERE Name = ' . _q($table), $serveur, true));
-	$engine = $table_status['Engine'];
-	if ($engine == 'InnoDB') {
-		if (spip_mysql_alter("TABLE $table ENGINE = InnoDB", $serveur, $requeter)) {
-			return [' OK '];
-		}
-	} elseif ($engine == 'MyISAM') {
-		return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
-	} else {
-		spip_log("spip_mysql_repair impossible pour la table $table engine $engine", 'mysql.' . _LOG_DEBUG);
-	}
-	return false;
+    $table_status = spip_mysql_fetch(spip_mysql_query('SHOW TABLE STATUS WHERE Name = ' . _q($table), $serveur, true));
+    $engine = $table_status['Engine'];
+    if ($engine == 'InnoDB') {
+        if (spip_mysql_alter("TABLE $table ENGINE = InnoDB", $serveur, $requeter)) {
+            return [' OK '];
+        }
+    } elseif ($engine == 'MyISAM') {
+        return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
+    } else {
+        spip_log("spip_mysql_repair impossible pour la table $table engine $engine", 'mysql.' . _LOG_DEBUG);
+    }
+    return false;
 }
 
 /**
@@ -913,12 +913,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', '/^[^(),]*\(((?:[^()]*\((?:[^()]*\([^()]*\))?[^()]*\)[^()]*)*[^()]*)\)[^()]*$/');
@@ -941,86 +941,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 '';
 }
 
 
@@ -1039,13 +1039,13 @@ 
  *     - false Erreur
  */
 function spip_mysql_fetch($r, $t = '', $serveur = '', $requeter = true) {
-	if (!$t) {
-		$t = \MYSQLI_ASSOC;
-	}
-	if ($r) {
-		return mysqli_fetch_array($r, $t);
-	}
-	return false;
+    if (!$t) {
+        $t = \MYSQLI_ASSOC;
+    }
+    if ($r) {
+        return mysqli_fetch_array($r, $t);
+    }
+    return false;
 }
 
 /**
@@ -1058,10 +1058,10 @@ 
  * @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);
-	}
-	return false;
+    if ($r and mysqli_num_rows($r)) {
+        return mysqli_data_seek($r, $row_number);
+    }
+    return false;
 }
 
 
@@ -1079,26 +1079,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 intval($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 intval($c);
 }
 
 
@@ -1121,16 +1121,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;
 }
 
 
@@ -1145,18 +1145,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;
 }
 
 
@@ -1170,9 +1170,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);
+    }
 }
 
 
@@ -1188,11 +1188,11 @@ 
  * @return bool              True si réussi
  */
 function spip_mysql_free($r, $serveur = '', $requeter = true) {
-	if ($r instanceof mysqli_result) {
-		mysqli_free_result($r);
-		return true;
-	}
-	return false;
+    if ($r instanceof mysqli_result) {
+        mysqli_free_result($r);
+        return true;
+    }
+    return false;
 }
 
 
@@ -1220,59 +1220,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.
 }
 
 /**
@@ -1297,26 +1297,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
+    );
 }
 
 
@@ -1341,34 +1341,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
 }
 
 /**
@@ -1393,20 +1393,20 @@ 
  *     - 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
-		);
-	}
-	return false;
+    $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
+        );
+    }
+    return false;
 }
 
 /**
@@ -1439,29 +1439,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
+    );
 }
 
 /**
@@ -1477,22 +1477,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;
+    }
 }
 
 
@@ -1521,10 +1521,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);
 }
 
 
@@ -1553,14 +1553,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);
 }
 
 
@@ -1575,32 +1575,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;
 }
 
 /**
@@ -1614,7 +1614,7 @@ 
  *     Valeur hexadécimale pour MySQL
  **/
 function spip_mysql_hex($v) {
-	return '0x' . $v;
+    return '0x' . $v;
 }
 
 /**
@@ -1630,15 +1630,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);
 }
 
 /**
@@ -1654,18 +1654,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
+    . '))';
 }
 
 
@@ -1689,7 +1689,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))";
 }
 
 
@@ -1701,39 +1701,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) . "'");
 }
 
 /**
@@ -1743,7 +1743,7 @@ 
  *     True si on a les fonctions, false sinon
  */
 function spip_versions_mysql() {
-	return function_exists('mysqli_query');
+    return function_exists('mysqli_query');
 }
 
 
@@ -1756,20 +1756,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";
+    }
 }
 
 /**
@@ -1783,13 +1783,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/pg.exp.php

Indentation +1177 added lines, -1177 removed lines

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