spip / SPIP

ecrire/inc/puce_statut.php

Indentation +236 added lines, -236 removed lines

@@ -18,18 +18,18 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_ACTIVER_PUCE_RAPIDE')) {
-	/**
-	 * Activer le changement rapide de statut sur les listes d'objets ?
-	 *
-	 * Peut ralentir un site sur des listes très longues.
-	 *
-	 * @var bool
-	 **/
-	define('_ACTIVER_PUCE_RAPIDE', true);
+    /**
+     * Activer le changement rapide de statut sur les listes d'objets ?
+     *
+     * Peut ralentir un site sur des listes très longues.
+     *
+     * @var bool
+     **/
+    define('_ACTIVER_PUCE_RAPIDE', true);
 }
 
 /**
@@ -57,31 +57,31 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  */
 function inc_puce_statut_dist(
-	$id_objet,
-	$statut,
-	$id_parent,
-	$type,
-	$ajax = false,
-	$menu_rapide = _ACTIVER_PUCE_RAPIDE
+    $id_objet,
+    $statut,
+    $id_parent,
+    $type,
+    $ajax = false,
+    $menu_rapide = _ACTIVER_PUCE_RAPIDE
 ) {
-	static $f_puce_statut = [];
-	$type = objet_type($type);
-	// cas prioritaire : fonction perso, qui permet aussi de gerer les cas historiques
-	if (!isset($f_puce_statut[$type]) or is_null($f_puce_statut[$type])) {
-		$f_puce_statut[$type] = charger_fonction($type, 'puce_statut', true);
-	}
-	if ($f_puce_statut[$type]) {
-		return $f_puce_statut[$type]($id_objet, $statut, $id_parent, $type, $ajax, $menu_rapide);
-	}
-
-	// si statut_image trouve quelque chose (et '' est quelque chose)
-	// composer une puce, avec si possible changement rapide
-	elseif (!is_null($puce = puce_statut_changement_rapide($id_objet, $statut, $id_parent, $type, $ajax, $menu_rapide))) {
-		return $puce;
-	} // sinon fausse puce avec le type de l'image
-	else {
-		return http_img_pack("$type-16.png", '');
-	}
+    static $f_puce_statut = [];
+    $type = objet_type($type);
+    // cas prioritaire : fonction perso, qui permet aussi de gerer les cas historiques
+    if (!isset($f_puce_statut[$type]) or is_null($f_puce_statut[$type])) {
+        $f_puce_statut[$type] = charger_fonction($type, 'puce_statut', true);
+    }
+    if ($f_puce_statut[$type]) {
+        return $f_puce_statut[$type]($id_objet, $statut, $id_parent, $type, $ajax, $menu_rapide);
+    }
+
+    // si statut_image trouve quelque chose (et '' est quelque chose)
+    // composer une puce, avec si possible changement rapide
+    elseif (!is_null($puce = puce_statut_changement_rapide($id_objet, $statut, $id_parent, $type, $ajax, $menu_rapide))) {
+        return $puce;
+    } // sinon fausse puce avec le type de l'image
+    else {
+        return http_img_pack("$type-16.png", '');
+    }
 }
 
 /**
@@ -110,41 +110,41 @@ 
  *   null si pas capable de déterminer l'image
  */
 function statut_image($objet, $statut) {
-	$src = null;
-	$table = table_objet_sql($objet);
-	$desc = lister_tables_objets_sql($table);
-	if (isset($desc['statut_images'])) {
-		// si une declaration statut_images
-		// mais rien pour le statut demande, ne rien afficher
-		$src = '';
-		if (isset($desc['statut_images'][$statut])) {
-			$src = $desc['statut_images'][$statut];
-		} // sinon image par defaut ?
-		elseif (isset($desc['statut_images'][0])) {
-			$src = $desc['statut_images'][0];
-		}
-	} else {
-		switch ($statut) {
-			case 'prepa':
-				$src = 'puce-preparer-xx.svg?12px';
-				break;
-			case 'prop':
-				$src = 'puce-proposer-xx.svg?12px';
-				break;
-			case 'publie':
-				$src = 'puce-publier-xx.svg?12px';
-				break;
-			case 'refuse':
-				$src = 'puce-refuser-xx.svg?12px';
-				break;
-			case 'poubelle':
-			case 'poub':
-				$src = 'puce-supprimer-xx.svg?12px';
-				break;
-		}
-	}
-
-	return $src;
+    $src = null;
+    $table = table_objet_sql($objet);
+    $desc = lister_tables_objets_sql($table);
+    if (isset($desc['statut_images'])) {
+        // si une declaration statut_images
+        // mais rien pour le statut demande, ne rien afficher
+        $src = '';
+        if (isset($desc['statut_images'][$statut])) {
+            $src = $desc['statut_images'][$statut];
+        } // sinon image par defaut ?
+        elseif (isset($desc['statut_images'][0])) {
+            $src = $desc['statut_images'][0];
+        }
+    } else {
+        switch ($statut) {
+            case 'prepa':
+                $src = 'puce-preparer-xx.svg?12px';
+                break;
+            case 'prop':
+                $src = 'puce-proposer-xx.svg?12px';
+                break;
+            case 'publie':
+                $src = 'puce-publier-xx.svg?12px';
+                break;
+            case 'refuse':
+                $src = 'puce-refuser-xx.svg?12px';
+                break;
+            case 'poubelle':
+            case 'poub':
+                $src = 'puce-supprimer-xx.svg?12px';
+                break;
+        }
+    }
+
+    return $src;
 }
 
 /**
@@ -172,40 +172,40 @@ 
  * @return string
  */
 function statut_titre($objet, $statut) {
-	$titre = '';
-	$table = table_objet_sql($objet);
-	$desc = lister_tables_objets_sql($table);
-	if (isset($desc['statut_titres'])) {
-		// si une declaration statut_titres
-		// mais rien pour le statut demande, ne rien afficher
-		if (isset($desc['statut_titres'][$statut])) {
-			$titre = $desc['statut_titres'][$statut];
-		} // sinon image par defaut ?
-		elseif (isset($desc['statut_titres'][0])) {
-			$titre = $desc['statut_titres'][0];
-		}
-	} else {
-		switch ($statut) {
-			case 'prepa':
-				$titre = 'texte_statut_en_cours_redaction';
-				break;
-			case 'prop':
-				$titre = 'texte_statut_propose_evaluation';
-				break;
-			case 'publie':
-				$titre = 'texte_statut_publie';
-				break;
-			case 'refuse':
-				$titre = 'texte_statut_refuse';
-				break;
-			case 'poubelle':
-			case 'poub':
-				$titre = 'texte_statut_poubelle';
-				break;
-		}
-	}
-
-	return $titre ? _T($titre) : '';
+    $titre = '';
+    $table = table_objet_sql($objet);
+    $desc = lister_tables_objets_sql($table);
+    if (isset($desc['statut_titres'])) {
+        // si une declaration statut_titres
+        // mais rien pour le statut demande, ne rien afficher
+        if (isset($desc['statut_titres'][$statut])) {
+            $titre = $desc['statut_titres'][$statut];
+        } // sinon image par defaut ?
+        elseif (isset($desc['statut_titres'][0])) {
+            $titre = $desc['statut_titres'][0];
+        }
+    } else {
+        switch ($statut) {
+            case 'prepa':
+                $titre = 'texte_statut_en_cours_redaction';
+                break;
+            case 'prop':
+                $titre = 'texte_statut_propose_evaluation';
+                break;
+            case 'publie':
+                $titre = 'texte_statut_publie';
+                break;
+            case 'refuse':
+                $titre = 'texte_statut_refuse';
+                break;
+            case 'poubelle':
+            case 'poub':
+                $titre = 'texte_statut_poubelle';
+                break;
+        }
+    }
+
+    return $titre ? _T($titre) : '';
 }
 
 
@@ -225,37 +225,37 @@ 
  * @return string
  */
 function statut_texte_instituer($objet, $statut) {
-	$texte = '';
-	$table = table_objet_sql($objet);
-	$desc = lister_tables_objets_sql($table);
-	if (isset($desc['statut_textes_instituer'])) {
-		// si une declaration statut_titres
-		// mais rien pour le statut demande, ne rien afficher
-		if (isset($desc['statut_textes_instituer'][$statut])) {
-			$texte = $desc['statut_textes_instituer'][$statut];
-		}
-	} else {
-		switch ($statut) {
-			case 'prepa':
-				$texte = 'texte_statut_en_cours_redaction';
-				break;
-			case 'prop':
-				$texte = 'texte_statut_propose_evaluation';
-				break;
-			case 'publie':
-				$texte = 'texte_statut_publie';
-				break;
-			case 'refuse':
-				$texte = 'texte_statut_refuse';
-				break;
-			case 'poubelle':
-			case 'poub':
-				$texte = 'texte_statut_poubelle';
-				break;
-		}
-	}
-
-	return $texte ? _T($texte) : '';
+    $texte = '';
+    $table = table_objet_sql($objet);
+    $desc = lister_tables_objets_sql($table);
+    if (isset($desc['statut_textes_instituer'])) {
+        // si une declaration statut_titres
+        // mais rien pour le statut demande, ne rien afficher
+        if (isset($desc['statut_textes_instituer'][$statut])) {
+            $texte = $desc['statut_textes_instituer'][$statut];
+        }
+    } else {
+        switch ($statut) {
+            case 'prepa':
+                $texte = 'texte_statut_en_cours_redaction';
+                break;
+            case 'prop':
+                $texte = 'texte_statut_propose_evaluation';
+                break;
+            case 'publie':
+                $texte = 'texte_statut_publie';
+                break;
+            case 'refuse':
+                $texte = 'texte_statut_refuse';
+                break;
+            case 'poubelle':
+            case 'poub':
+                $texte = 'texte_statut_poubelle';
+                break;
+        }
+    }
+
+    return $texte ? _T($texte) : '';
 }
 
 
@@ -275,16 +275,16 @@ 
  * @return string
  */
 function puce_statut_auteur_dist($id, $statut, $id_parent, $type, $ajax = '', $menu_rapide = _ACTIVER_PUCE_RAPIDE) {
-	$img = statut_image('auteur', $statut);
-	if (!$img) {
-		return '';
-	}
-	$alt = statut_titre('auteur', $statut);
+    $img = statut_image('auteur', $statut);
+    if (!$img) {
+        return '';
+    }
+    $alt = statut_titre('auteur', $statut);
 
-	$fond = '';
-	$titre = '';
+    $fond = '';
+    $titre = '';
 
-	/*
+    /*
 	if ($type != 'auteur') {
 	  $img2 = chemin_image('del-16.png');
 	  $titre = _T('titre_image_redacteur');
@@ -294,12 +294,12 @@ 
 	}
 	*/
 
-	return http_img_pack($img, $alt, $fond, $alt);
+    return http_img_pack($img, $alt, $fond, $alt);
 }
 
 
 function puce_statut_rubrique_dist($id, $statut, $id_rubrique, $type, $ajax = '', $menu_rapide = _ACTIVER_PUCE_RAPIDE) {
-	return http_img_pack('rubrique-16.png', '');
+    return http_img_pack('rubrique-16.png', '');
 }
 
 /**
@@ -323,110 +323,110 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  **/
 function puce_statut_changement_rapide(
-	$id,
-	$statut,
-	$id_rubrique,
-	$type = 'article',
-	$ajax = false,
-	$menu_rapide = _ACTIVER_PUCE_RAPIDE
+    $id,
+    $statut,
+    $id_rubrique,
+    $type = 'article',
+    $ajax = false,
+    $menu_rapide = _ACTIVER_PUCE_RAPIDE
 ) {
-	$src = statut_image($type, $statut);
-	if (!$src) {
-		return $src;
-	}
-
-	if (
-		!$id
-		or !_SPIP_AJAX
-		or !$menu_rapide
-	) {
-		$ajax_node = '';
-	} else {
-		$ajax_node = " class='imgstatut$type$id'";
-	}
-
-
-	$t = statut_titre($type, $statut);
-	$inser_puce = http_img_pack($src, $t, $ajax_node, $t);
-
-	if (!$ajax_node) {
-		return $inser_puce;
-	}
-
-	$table = table_objet_sql($type);
-	$desc = lister_tables_objets_sql($table);
-	if (!isset($desc['statut_textes_instituer'])) {
-		return $inser_puce;
-	}
-
-	if (!function_exists('autoriser')) {
-		include_spip('inc/autoriser');
-	}
-
-	// cas ou l'on a un parent connu (devrait disparaitre au profit du second cas plus generique)
-	if ($id_rubrique) {
-		if (!autoriser('publierdans', 'rubrique', $id_rubrique)) {
-			return $inser_puce;
-		}
-	} // si pas d'id_rubrique fourni, tester directement instituer type avec le statut publie
-	else {
-		if (!autoriser('instituer', $type, $id, null, ['statut' => 'publie'])) {
-			return $inser_puce;
-		}
-	}
-
-	$coord = array_flip(array_keys($desc['statut_textes_instituer']));
-	if (!isset($coord[$statut])) {
-		return $inser_puce;
-	}
-
-	$unit = 18/*widh de img*/ + 0/*padding*/
-	;
-	$margin = 0; /* marge a gauche + droite */
-	$zero = 0 /*border*/ + $margin / 2 + 0 /*padding*/
-	;
-	$clip = $zero + ($unit * $coord[$statut]);
-
-	if ($ajax) {
-		$width = $unit * (is_countable($desc['statut_textes_instituer']) ? count($desc['statut_textes_instituer']) : 0) + $margin;
-		$out = "<span class='puce_objet_fixe $type'>"
-			. $inser_puce
-			. '</span>'
-			. "<span class='puce_objet_popup $type statutdecal$type$id' style='width:{$width}px;margin-left:-{$clip}px;'>";
-		$i = 0;
-		foreach ($desc['statut_textes_instituer'] as $s => $t) {
-			$out .= afficher_script_statut($id, $type, -$zero - $i++ * $unit, statut_image($type, $s), $s, _T($t));
-		}
-		$out .= '</span>';
-
-		return $out;
-	} else {
-		$nom = 'puce_statut_';
-		$action = generer_url_ecrire('puce_statut', '', true);
-		$lang_dir = lang_dir(lang_typo());
-
-		return "<span class='puce_objet $type' id='$nom$type$id' dir='$lang_dir' data-puce-nom='$nom' data-puce-type='$type' data-puce-id='$id' data-puce-action='$action'>"
-		. $inser_puce
-		. '</span>';
-	}
+    $src = statut_image($type, $statut);
+    if (!$src) {
+        return $src;
+    }
+
+    if (
+        !$id
+        or !_SPIP_AJAX
+        or !$menu_rapide
+    ) {
+        $ajax_node = '';
+    } else {
+        $ajax_node = " class='imgstatut$type$id'";
+    }
+
+
+    $t = statut_titre($type, $statut);
+    $inser_puce = http_img_pack($src, $t, $ajax_node, $t);
+
+    if (!$ajax_node) {
+        return $inser_puce;
+    }
+
+    $table = table_objet_sql($type);
+    $desc = lister_tables_objets_sql($table);
+    if (!isset($desc['statut_textes_instituer'])) {
+        return $inser_puce;
+    }
+
+    if (!function_exists('autoriser')) {
+        include_spip('inc/autoriser');
+    }
+
+    // cas ou l'on a un parent connu (devrait disparaitre au profit du second cas plus generique)
+    if ($id_rubrique) {
+        if (!autoriser('publierdans', 'rubrique', $id_rubrique)) {
+            return $inser_puce;
+        }
+    } // si pas d'id_rubrique fourni, tester directement instituer type avec le statut publie
+    else {
+        if (!autoriser('instituer', $type, $id, null, ['statut' => 'publie'])) {
+            return $inser_puce;
+        }
+    }
+
+    $coord = array_flip(array_keys($desc['statut_textes_instituer']));
+    if (!isset($coord[$statut])) {
+        return $inser_puce;
+    }
+
+    $unit = 18/*widh de img*/ + 0/*padding*/
+    ;
+    $margin = 0; /* marge a gauche + droite */
+    $zero = 0 /*border*/ + $margin / 2 + 0 /*padding*/
+    ;
+    $clip = $zero + ($unit * $coord[$statut]);
+
+    if ($ajax) {
+        $width = $unit * (is_countable($desc['statut_textes_instituer']) ? count($desc['statut_textes_instituer']) : 0) + $margin;
+        $out = "<span class='puce_objet_fixe $type'>"
+            . $inser_puce
+            . '</span>'
+            . "<span class='puce_objet_popup $type statutdecal$type$id' style='width:{$width}px;margin-left:-{$clip}px;'>";
+        $i = 0;
+        foreach ($desc['statut_textes_instituer'] as $s => $t) {
+            $out .= afficher_script_statut($id, $type, -$zero - $i++ * $unit, statut_image($type, $s), $s, _T($t));
+        }
+        $out .= '</span>';
+
+        return $out;
+    } else {
+        $nom = 'puce_statut_';
+        $action = generer_url_ecrire('puce_statut', '', true);
+        $lang_dir = lang_dir(lang_typo());
+
+        return "<span class='puce_objet $type' id='$nom$type$id' dir='$lang_dir' data-puce-nom='$nom' data-puce-type='$type' data-puce-id='$id' data-puce-action='$action'>"
+        . $inser_puce
+        . '</span>';
+    }
 }
 
 
 function afficher_script_statut($id, $type, $n, $img, $statut, $titre, $act = '') {
-	$h = generer_action_auteur('instituer_objet', "$type-$id-$statut");
-	$t = supprimer_tags($titre);
+    $h = generer_action_auteur('instituer_objet', "$type-$id-$statut");
+    $t = supprimer_tags($titre);
 
-	return "<a href=\"#\" data-puce-id=\"$id\" data-puce-type=\"$type\" data-puce-decal=\"$n\" data-puce-action=\"$h\" title=\"$t\"$act>" . http_img_pack($img, $t) . '</a>';
+    return "<a href=\"#\" data-puce-id=\"$id\" data-puce-type=\"$type\" data-puce-decal=\"$n\" data-puce-action=\"$h\" title=\"$t\"$act>" . http_img_pack($img, $t) . '</a>';
 }
 
 // compat
 // La couleur du statut
 
 function puce_statut($statut, $atts = '') {
-	$src = statut_image('article', $statut);
-	if (!$src) {
-		return '';
-	}
+    $src = statut_image('article', $statut);
+    if (!$src) {
+        return '';
+    }
 
-	return http_img_pack($src, statut_titre('article', $statut), $atts);
+    return http_img_pack($src, statut_titre('article', $statut), $atts);
 }

ecrire/inc/roles.php

Indentation +185 added lines, -185 removed lines

@@ -28,7 +28,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -48,55 +48,55 @@ 
  *     array : description des roles applicables dans 3 index : colonne, titres, roles
  **/
 function roles_presents($objet, $objet_destination = '') {
-	$desc = lister_tables_objets_sql(table_objet_sql($objet));
-
-	// pas de liste de roles, on sort
-	if (!isset($desc['roles_titres']) or !($titres = $desc['roles_titres'])) {
-		return false;
-	}
-
-	// on vérifie que la table de liaison existe
-	include_spip('action/editer_liens');
-	if (!$lien = objet_associable($objet)) {
-		return false;
-	}
-
-	// on cherche ensuite si la colonne existe bien dans la table de liaison (par défaut 'role')
-	$colonne = $desc['roles_colonne'] ?? 'role';
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	[, $table_lien] = $lien;
-	$desc_lien = $trouver_table($table_lien);
-	if (!isset($desc_lien['field'][$colonne])) {
-		return false;
-	}
-
-	// sur quoi peuvent s'appliquer nos rôles
-	if (!$application = $desc['roles_objets']) {
-		return false;
-	}
-
-	// destination presente, on restreint si possible
-	if ($objet_destination) {
-		$objet_destination = table_objet($objet_destination);
-
-		// pour l'objet
-		if (isset($application[$objet_destination])) {
-			$application = $application[$objet_destination];
-			// sinon pour tous les objets
-		} elseif (isset($application['*'])) {
-			$application = $application['*'];
-		} // sinon tant pis
-		else {
-			return false;
-		}
-	}
-
-	// tout est ok
-	return [
-		'titres' => $titres,
-		'roles' => $application,
-		'colonne' => $colonne
-	];
+    $desc = lister_tables_objets_sql(table_objet_sql($objet));
+
+    // pas de liste de roles, on sort
+    if (!isset($desc['roles_titres']) or !($titres = $desc['roles_titres'])) {
+        return false;
+    }
+
+    // on vérifie que la table de liaison existe
+    include_spip('action/editer_liens');
+    if (!$lien = objet_associable($objet)) {
+        return false;
+    }
+
+    // on cherche ensuite si la colonne existe bien dans la table de liaison (par défaut 'role')
+    $colonne = $desc['roles_colonne'] ?? 'role';
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    [, $table_lien] = $lien;
+    $desc_lien = $trouver_table($table_lien);
+    if (!isset($desc_lien['field'][$colonne])) {
+        return false;
+    }
+
+    // sur quoi peuvent s'appliquer nos rôles
+    if (!$application = $desc['roles_objets']) {
+        return false;
+    }
+
+    // destination presente, on restreint si possible
+    if ($objet_destination) {
+        $objet_destination = table_objet($objet_destination);
+
+        // pour l'objet
+        if (isset($application[$objet_destination])) {
+            $application = $application[$objet_destination];
+            // sinon pour tous les objets
+        } elseif (isset($application['*'])) {
+            $application = $application['*'];
+        } // sinon tant pis
+        else {
+            return false;
+        }
+    }
+
+    // tout est ok
+    return [
+        'titres' => $titres,
+        'roles' => $application,
+        'colonne' => $colonne
+    ];
 }
 
 /**
@@ -110,11 +110,11 @@ 
  *     Nom de la colonne, sinon vide
  **/
 function roles_colonne($objet, $objet_destination) {
-	if ($roles = roles_presents($objet, $objet_destination)) {
-		return $roles['colonne'];
-	}
+    if ($roles = roles_presents($objet, $objet_destination)) {
+        return $roles['colonne'];
+    }
 
-	return '';
+    return '';
 }
 
 
@@ -136,24 +136,24 @@ 
  *     Liste ('', '', array()) sinon.
  **/
 function roles_trouver_dans_qualif($objet, $objet_destination, $qualif = []) {
-	// si des rôles sont possibles, on les utilise
-	$role = $colonne_role = ''; # role défini
-	// condition du where par defaut
-	$cond = [];
-	if ($roles = roles_presents($objet, $objet_destination)) {
-		$colonne_role = $roles['colonne'];
-		// qu'il n'est pas défini
-		if (
-			!isset($qualif[$colonne_role])
-			or !($role = $qualif[$colonne_role])
-		) {
-			$role = $roles['roles']['defaut'];
-		}
-		// where
-		$cond = ["$colonne_role=" . sql_quote($role)];
-	}
-
-	return [$role, $colonne_role, $cond];
+    // si des rôles sont possibles, on les utilise
+    $role = $colonne_role = ''; # role défini
+    // condition du where par defaut
+    $cond = [];
+    if ($roles = roles_presents($objet, $objet_destination)) {
+        $colonne_role = $roles['colonne'];
+        // qu'il n'est pas défini
+        if (
+            !isset($qualif[$colonne_role])
+            or !($role = $qualif[$colonne_role])
+        ) {
+            $role = $roles['roles']['defaut'];
+        }
+        // where
+        $cond = ["$colonne_role=" . sql_quote($role)];
+    }
+
+    return [$role, $colonne_role, $cond];
 }
 
 /**
@@ -175,21 +175,21 @@ 
  *     Liste (Tableau de conditions where complété du role, Colonne du role, role utilisé)
  **/
 function roles_creer_condition_role($objet_source, $objet, $cond, $tous_si_absent = false) {
-	// role par défaut, colonne
-	[$role_defaut, $colonne_role] = roles_trouver_dans_qualif($objet_source, $objet);
+    // role par défaut, colonne
+    [$role_defaut, $colonne_role] = roles_trouver_dans_qualif($objet_source, $objet);
 
-	// chercher d'eventuels rôles transmis
-	$role = ($cond['role'] ?? ($tous_si_absent ? '*' : $role_defaut));
-	unset($cond['role']); // cette condition est particuliere...
+    // chercher d'eventuels rôles transmis
+    $role = ($cond['role'] ?? ($tous_si_absent ? '*' : $role_defaut));
+    unset($cond['role']); // cette condition est particuliere...
 
-	if ($colonne_role) {
-		// on ajoute la condition du role aux autres conditions.
-		if ($role != '*') {
-			$cond[] = "$colonne_role=" . sql_quote($role);
-		}
-	}
+    if ($colonne_role) {
+        // on ajoute la condition du role aux autres conditions.
+        if ($role != '*') {
+            $cond[] = "$colonne_role=" . sql_quote($role);
+        }
+    }
 
-	return [$cond, $colonne_role, $role];
+    return [$cond, $colonne_role, $role];
 }
 
 /**
@@ -211,28 +211,28 @@ 
  */
 function roles_complets($objet_source, $objet, $id_objet, $objet_lien) {
 
-	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
-	// pas de roles sur ces objets => la liste par defaut, comme sans role
-	if ($presents === false) {
-		return lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien);
-	}
-
-	// types de roles possibles
-	$roles_possibles = $presents['roles']['roles']['choix'];
-	// couples id / roles
-	$ids = $presents['ids'];
-
-	// pour chaque groupe, on fait le diff entre tous les roles possibles
-	// et les roles attribués à l'élément : s'il en reste, c'est que l'élément
-	// n'est pas complet
-	$complets = [];
-	foreach ($ids as $id => $roles_presents) {
-		if (!array_diff($roles_possibles, $roles_presents)) {
-			$complets[] = $id;
-		}
-	}
-
-	return $complets;
+    $presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
+    // pas de roles sur ces objets => la liste par defaut, comme sans role
+    if ($presents === false) {
+        return lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien);
+    }
+
+    // types de roles possibles
+    $roles_possibles = $presents['roles']['roles']['choix'];
+    // couples id / roles
+    $ids = $presents['ids'];
+
+    // pour chaque groupe, on fait le diff entre tous les roles possibles
+    // et les roles attribués à l'élément : s'il en reste, c'est que l'élément
+    // n'est pas complet
+    $complets = [];
+    foreach ($ids as $id => $roles_presents) {
+        if (!array_diff($roles_possibles, $roles_presents)) {
+            $complets[] = $id;
+        }
+    }
+
+    return $complets;
 }
 
 
@@ -249,17 +249,17 @@ 
  */
 function roles_presents_sur_id($id_objet_source, $objet_source, $objet, $id_objet, $objet_lien) {
 
-	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
-	// pas de roles sur ces objets => la liste par defaut, comme sans role
-	if ($presents === false) {
-		return [];
-	}
+    $presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
+    // pas de roles sur ces objets => la liste par defaut, comme sans role
+    if ($presents === false) {
+        return [];
+    }
 
-	if (!isset($presents['ids'][$id_objet_source])) {
-		return [];
-	}
+    if (!isset($presents['ids'][$id_objet_source])) {
+        return [];
+    }
 
-	return $presents['ids'][$id_objet_source];
+    return $presents['ids'][$id_objet_source];
 }
 
 
@@ -287,47 +287,47 @@ 
  *     - False si pas de role déclarés
  */
 function roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien) {
-	static $done = [];
-
-	// stocker le résultat
-	$hash = "$objet_source-$objet-$id_objet-$objet_lien";
-	if (isset($done[$hash])) {
-		return $done[$hash];
-	}
-
-	// pas de roles sur ces objets, on sort
-	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
-	if (!$roles) {
-		return $done[$hash] = false;
-	}
-
-	// inspiré de lister_objets_lies()
-	if ($objet_lien == $objet) {
-		$res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
-	} else {
-		$res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
-	}
-
-	// types de roles possibles
-	$roles_possibles = $roles['roles']['choix'];
-	// colonne du role
-	$colonne = $roles['colonne'];
-
-	// on recupere par id, et role existant
-	$ids = [];
-	while ($row = array_shift($res)) {
-		$id = $row[$objet_source];
-		if (!isset($ids[$id])) {
-			$ids[$id] = [];
-		}
-		// tableau des roles présents
-		$ids[$id][] = $row[$colonne];
-	}
-
-	return $done[$hash] = [
-		'roles' => $roles,
-		'ids' => $ids
-	];
+    static $done = [];
+
+    // stocker le résultat
+    $hash = "$objet_source-$objet-$id_objet-$objet_lien";
+    if (isset($done[$hash])) {
+        return $done[$hash];
+    }
+
+    // pas de roles sur ces objets, on sort
+    $roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
+    if (!$roles) {
+        return $done[$hash] = false;
+    }
+
+    // inspiré de lister_objets_lies()
+    if ($objet_lien == $objet) {
+        $res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
+    } else {
+        $res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
+    }
+
+    // types de roles possibles
+    $roles_possibles = $roles['roles']['choix'];
+    // colonne du role
+    $colonne = $roles['colonne'];
+
+    // on recupere par id, et role existant
+    $ids = [];
+    while ($row = array_shift($res)) {
+        $id = $row[$objet_source];
+        if (!isset($ids[$id])) {
+            $ids[$id] = [];
+        }
+        // tableau des roles présents
+        $ids[$id][] = $row[$colonne];
+    }
+
+    return $done[$hash] = [
+        'roles' => $roles,
+        'ids' => $ids
+    ];
 }
 
 
@@ -345,33 +345,33 @@ 
  *     - false si pas de role déclarés
  */
 function roles_connus_en_base($objet_source, $objet, $objet_lien) {
-	static $done = [];
-
-	// stocker le résultat
-	$hash = "$objet_source-$objet-$objet_lien";
-	if (isset($done[$hash])) {
-		return $done[$hash];
-	}
-
-	if (!$lien = objet_associable($objet_lien)) {
-		return $done[$hash] = false;
-	}
-
-	// pas de roles sur ces objets, on sort
-	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
-	if (!$roles) {
-		return $done[$hash] = false;
-	}
-
-	[$primary, $l] = $lien;
-	$colone_role = $roles['colonne'];
-
-	$all = sql_allfetsel(
-		"DISTINCT $colone_role",
-		$l,
-		'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
-	);
-	$done[$hash] = array_map('reset', $all);
-
-	return $done[$hash];
+    static $done = [];
+
+    // stocker le résultat
+    $hash = "$objet_source-$objet-$objet_lien";
+    if (isset($done[$hash])) {
+        return $done[$hash];
+    }
+
+    if (!$lien = objet_associable($objet_lien)) {
+        return $done[$hash] = false;
+    }
+
+    // pas de roles sur ces objets, on sort
+    $roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
+    if (!$roles) {
+        return $done[$hash] = false;
+    }
+
+    [$primary, $l] = $lien;
+    $colone_role = $roles['colonne'];
+
+    $all = sql_allfetsel(
+        "DISTINCT $colone_role",
+        $l,
+        'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
+    );
+    $done[$hash] = array_map('reset', $all);
+
+    return $done[$hash];
 }

ecrire/inc/chercher_logo.php

Indentation +31 added lines, -31 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Logos
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,34 +37,34 @@ 
  **/
 function inc_chercher_logo_dist($id, $_id_objet, $mode = 'on', $compat_old_logos = true) {
 
-	$mode = preg_replace(',\W,', '', $mode);
-	if ($mode) {
-		// chercher dans la base
-		$mode_document = 'logo' . $mode;
-		$objet = objet_type($_id_objet);
-		$doc = sql_fetsel('D.*', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote($mode_document) . ' AND L.objet=' . sql_quote($objet) . ' AND id_objet=' . intval($id));
-		if ($doc) {
-			include_spip('inc/documents');
-			$d = get_spip_doc($doc['fichier']);
-			return [$d, _DIR_IMG, basename($d), $doc['extension'], @filemtime($d), $doc];
-		}
+    $mode = preg_replace(',\W,', '', $mode);
+    if ($mode) {
+        // chercher dans la base
+        $mode_document = 'logo' . $mode;
+        $objet = objet_type($_id_objet);
+        $doc = sql_fetsel('D.*', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote($mode_document) . ' AND L.objet=' . sql_quote($objet) . ' AND id_objet=' . intval($id));
+        if ($doc) {
+            include_spip('inc/documents');
+            $d = get_spip_doc($doc['fichier']);
+            return [$d, _DIR_IMG, basename($d), $doc['extension'], @filemtime($d), $doc];
+        }
 
-		# deprecated TODO remove
-		if ($compat_old_logos) {
-			# attention au cas $id = '0' pour LOGO_SITE_SPIP : utiliser intval()
-			$type = type_du_logo($_id_objet);
-			$nom = $type . $mode . intval($id);
+        # deprecated TODO remove
+        if ($compat_old_logos) {
+            # attention au cas $id = '0' pour LOGO_SITE_SPIP : utiliser intval()
+            $type = type_du_logo($_id_objet);
+            $nom = $type . $mode . intval($id);
 
-			foreach ($GLOBALS['formats_logos'] as $format) {
-				if (@file_exists($d = (_DIR_LOGOS . $nom . '.' . $format))) {
-					return [$d, _DIR_LOGOS, $nom, $format, @filemtime($d)];
-				}
-			}
-		}
-	}
+            foreach ($GLOBALS['formats_logos'] as $format) {
+                if (@file_exists($d = (_DIR_LOGOS . $nom . '.' . $format))) {
+                    return [$d, _DIR_LOGOS, $nom, $format, @filemtime($d)];
+                }
+            }
+        }
+    }
 
-	# coherence de type pour servir comme filtre (formulaire_login)
-	return [];
+    # coherence de type pour servir comme filtre (formulaire_login)
+    return [];
 }
 
 /**
@@ -83,13 +83,13 @@ 
  * @deprecated 4.0 MAIS NE PAS SUPPRIMER CAR SERT POUR L'UPGRADE des logos et leur mise en base
  **/
 function type_du_logo($_id_objet) {
-	return $GLOBALS['table_logos'][$_id_objet] ?? objet_type(preg_replace(',^id_,', '', $_id_objet));
+    return $GLOBALS['table_logos'][$_id_objet] ?? objet_type(preg_replace(',^id_,', '', $_id_objet));
 }
 
 // Exceptions standards (historique)
 $GLOBALS['table_logos'] = [
-	'id_article' => 'art',
-	'id_auteur' => 'aut',
-	'id_rubrique' => 'rub',
-	'id_groupe' => 'groupe',
+    'id_article' => 'art',
+    'id_auteur' => 'aut',
+    'id_rubrique' => 'rub',
+    'id_groupe' => 'groupe',
 ];

ecrire/inc/simplexml_to_array.php

Indentation +62 added lines, -62 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -23,12 +23,12 @@ 
  * @return array
  */
 function inc_simplexml_to_array_dist($u, $utiliser_namespace = false) {
-	// decoder la chaine en SimpleXML si pas deja fait
-	if (is_string($u)) {
-		$u = simplexml_load_string($u);
-	}
+    // decoder la chaine en SimpleXML si pas deja fait
+    if (is_string($u)) {
+        $u = simplexml_load_string($u);
+    }
 
-	return ['root' => @xmlObjToArr($u, $utiliser_namespace)];
+    return ['root' => @xmlObjToArr($u, $utiliser_namespace)];
 }
 
 
@@ -43,67 +43,67 @@ 
  **/
 function xmlObjToArr($obj, $utiliser_namespace = false) {
 
-	$namespace = [];
-	$tableau = [];
+    $namespace = [];
+    $tableau = [];
 
-	// Cette fonction getDocNamespaces() est longue sur de gros xml. On permet donc
-	// de l'activer ou pas suivant le contenu supposé du XML
-	if (is_object($obj)) {
-		if (is_array($utiliser_namespace)) {
-			$namespace = $utiliser_namespace;
-		} else {
-			if ($utiliser_namespace) {
-				$namespace = $obj->getDocNamespaces(true);
-			}
-			$namespace[null] = null;
-		}
+    // Cette fonction getDocNamespaces() est longue sur de gros xml. On permet donc
+    // de l'activer ou pas suivant le contenu supposé du XML
+    if (is_object($obj)) {
+        if (is_array($utiliser_namespace)) {
+            $namespace = $utiliser_namespace;
+        } else {
+            if ($utiliser_namespace) {
+                $namespace = $obj->getDocNamespaces(true);
+            }
+            $namespace[null] = null;
+        }
 
-		$name = strtolower((string)$obj->getName());
-		$text = trim((string)$obj);
-		if (strlen($text) <= 0) {
-			$text = null;
-		}
+        $name = strtolower((string)$obj->getName());
+        $text = trim((string)$obj);
+        if (strlen($text) <= 0) {
+            $text = null;
+        }
 
-		$children = [];
-		$attributes = [];
+        $children = [];
+        $attributes = [];
 
-		// get info for all namespaces
-		foreach ($namespace as $ns => $nsUrl) {
-			// attributes
-			$objAttributes = $obj->attributes($ns, true);
-			foreach ($objAttributes as $attributeName => $attributeValue) {
-				$attribName = strtolower(trim((string)$attributeName));
-				$attribVal = trim((string)$attributeValue);
-				if (!empty($ns)) {
-					$attribName = $ns . ':' . $attribName;
-				}
-				$attributes[$attribName] = $attribVal;
-			}
+        // get info for all namespaces
+        foreach ($namespace as $ns => $nsUrl) {
+            // attributes
+            $objAttributes = $obj->attributes($ns, true);
+            foreach ($objAttributes as $attributeName => $attributeValue) {
+                $attribName = strtolower(trim((string)$attributeName));
+                $attribVal = trim((string)$attributeValue);
+                if (!empty($ns)) {
+                    $attribName = $ns . ':' . $attribName;
+                }
+                $attributes[$attribName] = $attribVal;
+            }
 
-			// children
-			$objChildren = $obj->children($ns, true);
-			foreach ($objChildren as $childName => $child) {
-				$childName = strtolower((string)$childName);
-				if (!empty($ns)) {
-					$childName = $ns . ':' . $childName;
-				}
-				$children[$childName][] = xmlObjToArr($child, $namespace);
-			}
-		}
+            // children
+            $objChildren = $obj->children($ns, true);
+            foreach ($objChildren as $childName => $child) {
+                $childName = strtolower((string)$childName);
+                if (!empty($ns)) {
+                    $childName = $ns . ':' . $childName;
+                }
+                $children[$childName][] = xmlObjToArr($child, $namespace);
+            }
+        }
 
-		$tableau = [
-			'name' => $name,
-		];
-		if ($text) {
-			$tableau['text'] = $text;
-		}
-		if ($attributes) {
-			$tableau['attributes'] = $attributes;
-		}
-		if ($children) {
-			$tableau['children'] = $children;
-		}
-	}
+        $tableau = [
+            'name' => $name,
+        ];
+        if ($text) {
+            $tableau['text'] = $text;
+        }
+        if ($attributes) {
+            $tableau['attributes'] = $attributes;
+        }
+        if ($children) {
+            $tableau['children'] = $children;
+        }
+    }
 
-	return $tableau;
+    return $tableau;
 }

ecrire/inc/importer_csv.php

Indentation +86 added lines, -86 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/charsets');
@@ -42,22 +42,22 @@ 
  * @return array
  */
 function importer_csv_importcharset($texte, $definir_charset_source = false) {
-	// le plus frequent, en particulier avec les trucs de ms@@@
-	static $charset_source = 'iso-8859-1';
-	if ($definir_charset_source) {
-		if ($definir_charset_source === true) {
-			$charset_source = 'iso-8859-1';
-		} else {
-			$charset_source = $definir_charset_source;
-		}
-	}
-	// mais open-office sait faire mieux, donc mefiance !
-	if (is_utf8($texte)) {
-		$charset = 'utf-8';
-	} else {
-		$charset = $charset_source;
-	}
-	return importer_charset($texte, $charset);
+    // le plus frequent, en particulier avec les trucs de ms@@@
+    static $charset_source = 'iso-8859-1';
+    if ($definir_charset_source) {
+        if ($definir_charset_source === true) {
+            $charset_source = 'iso-8859-1';
+        } else {
+            $charset_source = $definir_charset_source;
+        }
+    }
+    // mais open-office sait faire mieux, donc mefiance !
+    if (is_utf8($texte)) {
+        $charset = 'utf-8';
+    } else {
+        $charset = $charset_source;
+    }
+    return importer_charset($texte, $charset);
 }
 
 /**
@@ -68,7 +68,7 @@ 
  * @return string
  */
 function importer_csv_nettoie_key($key) {
-	return translitteration($key);
+    return translitteration($key);
 }
 
 /**
@@ -87,77 +87,77 @@ 
  */
 function inc_importer_csv_dist($file, $options = []) {
 
-	// support ancienne syntaxe
-	// inc_importer_csv_dist($file, $head = false, $delim = ',', $enclos = '"', $len = 10000, $charset_source = '')
-	if (!is_array($options)) {
-		$args = func_get_args();
-		$options = [];
-		foreach ([1 => 'head', 2 => 'delim', 3 => 'enclos', 4 => 'len', 5 => 'charset_source'] as $k => $option) {
-			if (!empty($args[$k])) {
-				$options[$option] = $args[$k];
-			}
-		}
-	}
+    // support ancienne syntaxe
+    // inc_importer_csv_dist($file, $head = false, $delim = ',', $enclos = '"', $len = 10000, $charset_source = '')
+    if (!is_array($options)) {
+        $args = func_get_args();
+        $options = [];
+        foreach ([1 => 'head', 2 => 'delim', 3 => 'enclos', 4 => 'len', 5 => 'charset_source'] as $k => $option) {
+            if (!empty($args[$k])) {
+                $options[$option] = $args[$k];
+            }
+        }
+    }
 
-	$default_options = [
-		'head' => false,
-		'delim' => ',',
-		'enclos' => '"',
-		'len' => 10000,
-		'charset_source' => '',
-	];
-	$options = array_merge($default_options, $options);
+    $default_options = [
+        'head' => false,
+        'delim' => ',',
+        'enclos' => '"',
+        'len' => 10000,
+        'charset_source' => '',
+    ];
+    $options = array_merge($default_options, $options);
 
 
-	$return = false;
-	if (
-		@file_exists($file)
-		and $handle = fopen($file, 'r')
-	) {
-		if ($options['charset_source']) {
-			importer_csv_importcharset('', $options['charset_source']);
-		}
-		if ($options['head']) {
-			$header = fgetcsv($handle, $options['len'], $options['delim'], $options['enclos']);
-			if ($header) {
-				$header = array_map('importer_csv_importcharset', $header);
-				$header = array_map('importer_csv_nettoie_key', $header);
-				$header_type = [];
-				foreach ($header as $heading) {
-					if (!isset($header_type[$heading])) {
-						$header_type[$heading] = 'scalar';
-					} else {
-						$header_type[$heading] = 'array';
-					}
-				}
-			}
-		}
+    $return = false;
+    if (
+        @file_exists($file)
+        and $handle = fopen($file, 'r')
+    ) {
+        if ($options['charset_source']) {
+            importer_csv_importcharset('', $options['charset_source']);
+        }
+        if ($options['head']) {
+            $header = fgetcsv($handle, $options['len'], $options['delim'], $options['enclos']);
+            if ($header) {
+                $header = array_map('importer_csv_importcharset', $header);
+                $header = array_map('importer_csv_nettoie_key', $header);
+                $header_type = [];
+                foreach ($header as $heading) {
+                    if (!isset($header_type[$heading])) {
+                        $header_type[$heading] = 'scalar';
+                    } else {
+                        $header_type[$heading] = 'array';
+                    }
+                }
+            }
+        }
 
-		while (($data = fgetcsv($handle, $options['len'], $options['delim'], $options['enclos'])) !== false) {
-			$data = array_map('importer_csv_importcharset', $data);
-			if ($options['head'] and isset($header)) {
-				$row = [];
-				foreach ($header as $key => $heading) {
-					if ($header_type[$heading] == 'array') {
-						if (!isset($row[$heading])) {
-							$row[$heading] = [];
-						}
-						if (isset($data[$key]) and strlen($data[$key])) {
-							$row[$heading][] = $data[$key];
-						}
-					} else {
-						$row[$heading] = $data[$key] ?? '';
-					}
-				}
-				$return[] = $row;
-			} else {
-				$return[] = $data;
-			}
-		}
-		if ($options['charset_source']) {
-			importer_csv_importcharset('', true);
-		}
-	}
+        while (($data = fgetcsv($handle, $options['len'], $options['delim'], $options['enclos'])) !== false) {
+            $data = array_map('importer_csv_importcharset', $data);
+            if ($options['head'] and isset($header)) {
+                $row = [];
+                foreach ($header as $key => $heading) {
+                    if ($header_type[$heading] == 'array') {
+                        if (!isset($row[$heading])) {
+                            $row[$heading] = [];
+                        }
+                        if (isset($data[$key]) and strlen($data[$key])) {
+                            $row[$heading][] = $data[$key];
+                        }
+                    } else {
+                        $row[$heading] = $data[$key] ?? '';
+                    }
+                }
+                $return[] = $row;
+            } else {
+                $return[] = $data;
+            }
+        }
+        if ($options['charset_source']) {
+            importer_csv_importcharset('', true);
+        }
+    }
 
-	return $return;
+    return $return;
 }

ecrire/inc/chercher_rubrique.php

Indentation +196 added lines, -196 removed lines

@@ -18,16 +18,16 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_SPIP_SELECT_RUBRIQUES')) {
-	/**
-	 * @var int Nombre de rubriques maximum du sélecteur de rubriques.
-	 * Au delà, on bascule sur un sélecteur ajax.
-	 * mettre 100000 pour desactiver ajax
-	 */
-	define('_SPIP_SELECT_RUBRIQUES', 20);
+    /**
+     * @var int Nombre de rubriques maximum du sélecteur de rubriques.
+     * Au delà, on bascule sur un sélecteur ajax.
+     * mettre 100000 pour desactiver ajax
+     */
+    define('_SPIP_SELECT_RUBRIQUES', 20);
 }
 
 /**
@@ -55,22 +55,22 @@ 
  *     Code HTML du sélecteur
  **/
 function inc_chercher_rubrique_dist($id_rubrique, $type, $restreint, $idem = 0, $do = 'aff') {
-	if (sql_countsel('spip_rubriques') < 1) {
-		return '';
-	}
-
-	// Mode sans Ajax :
-	// - soit parce que le cookie ajax n'est pas la
-	// - soit parce qu'il y a peu de rubriques
-	if (
-		_SPIP_AJAX < 1
-		or $type == 'breve'
-		or sql_countsel('spip_rubriques') < _SPIP_SELECT_RUBRIQUES
-	) {
-		return selecteur_rubrique_html($id_rubrique, $type, $restreint, $idem);
-	} else {
-		return selecteur_rubrique_ajax($id_rubrique, $type, $restreint, $idem, $do);
-	}
+    if (sql_countsel('spip_rubriques') < 1) {
+        return '';
+    }
+
+    // Mode sans Ajax :
+    // - soit parce que le cookie ajax n'est pas la
+    // - soit parce qu'il y a peu de rubriques
+    if (
+        _SPIP_AJAX < 1
+        or $type == 'breve'
+        or sql_countsel('spip_rubriques') < _SPIP_SELECT_RUBRIQUES
+    ) {
+        return selecteur_rubrique_html($id_rubrique, $type, $restreint, $idem);
+    } else {
+        return selecteur_rubrique_ajax($id_rubrique, $type, $restreint, $idem, $do);
+    }
 }
 
 // compatibilite pour extensions qui utilisaient l'ancien nom
@@ -87,17 +87,17 @@ 
  **/
 function style_menu_rubriques($i) {
 
-	$espace = '';
-	$style = '';
-	for ($count = 1; $count <= $i; $count++) {
-		$espace .= '&nbsp;&nbsp;&nbsp;&nbsp;';
-	}
-	if ($i == 1) {
-		$espace = '';
-	}
-	$class = "niveau_$i";
-
-	return [$class, $style, $espace];
+    $espace = '';
+    $style = '';
+    for ($count = 1; $count <= $i; $count++) {
+        $espace .= '&nbsp;&nbsp;&nbsp;&nbsp;';
+    }
+    if ($i == 1) {
+        $espace = '';
+    }
+    $class = "niveau_$i";
+
+    return [$class, $style, $espace];
 }
 
 /**
@@ -121,60 +121,60 @@ 
  *     Code HTML du sélecteur
  **/
 function sous_menu_rubriques($id_rubrique, $root, $niv, &$data, &$enfants, $exclus, $restreint, $type) {
-	static $decalage_secteur;
-
-	// Si on a demande l'exclusion ne pas descendre dans la rubrique courante
-	if (
-		$exclus > 0
-		and $root == $exclus
-	) {
-		return '';
-	}
-
-	// en fonction du niveau faire un affichage plus ou moins kikoo
-
-	// selected ?
-	$selected = ($root == $id_rubrique) ? ' selected="selected"' : '';
-
-	// le style en fonction de la profondeur
-	[$class, $style, $espace] = style_menu_rubriques($niv);
-
-	$class .= ' selec_rub';
-
-	// creer l'<option> pour la rubrique $root
-
-	if (isset($data[$root])) { # pas de racine sauf pour les rubriques
-	$r = "<option$selected value='$root' class='$class' style='$style'>$espace"
-			. $data[$root]
-			. '</option>' . "\n";
-	} else {
-		$r = '';
-	}
-
-	// et le sous-menu pour ses enfants
-	$sous = '';
-	if (isset($enfants[$root])) {
-		foreach ($enfants[$root] as $sousrub) {
-			$sous .= sous_menu_rubriques(
-				$id_rubrique,
-				$sousrub,
-				$niv + 1,
-				$data,
-				$enfants,
-				$exclus,
-				$restreint,
-				$type
-			);
-		}
-	}
-
-	// si l'objet a deplacer est publie, verifier qu'on a acces aux rubriques
-	if ($restreint and $root != $id_rubrique and !autoriser('publierdans', 'rubrique', $root)) {
-		return $sous;
-	}
-
-	// et voila le travail
-	return $r . $sous;
+    static $decalage_secteur;
+
+    // Si on a demande l'exclusion ne pas descendre dans la rubrique courante
+    if (
+        $exclus > 0
+        and $root == $exclus
+    ) {
+        return '';
+    }
+
+    // en fonction du niveau faire un affichage plus ou moins kikoo
+
+    // selected ?
+    $selected = ($root == $id_rubrique) ? ' selected="selected"' : '';
+
+    // le style en fonction de la profondeur
+    [$class, $style, $espace] = style_menu_rubriques($niv);
+
+    $class .= ' selec_rub';
+
+    // creer l'<option> pour la rubrique $root
+
+    if (isset($data[$root])) { # pas de racine sauf pour les rubriques
+    $r = "<option$selected value='$root' class='$class' style='$style'>$espace"
+            . $data[$root]
+            . '</option>' . "\n";
+    } else {
+        $r = '';
+    }
+
+    // et le sous-menu pour ses enfants
+    $sous = '';
+    if (isset($enfants[$root])) {
+        foreach ($enfants[$root] as $sousrub) {
+            $sous .= sous_menu_rubriques(
+                $id_rubrique,
+                $sousrub,
+                $niv + 1,
+                $data,
+                $enfants,
+                $exclus,
+                $restreint,
+                $type
+            );
+        }
+    }
+
+    // si l'objet a deplacer est publie, verifier qu'on a acces aux rubriques
+    if ($restreint and $root != $id_rubrique and !autoriser('publierdans', 'rubrique', $root)) {
+        return $sous;
+    }
+
+    // et voila le travail
+    return $r . $sous;
 }
 
 /**
@@ -195,75 +195,75 @@ 
  *     Code HTML du sélecteur
  **/
 function selecteur_rubrique_html($id_rubrique, $type, $restreint, $idem = 0) {
-	$enfants = [];
-	$data = [];
-	if ($type == 'rubrique' and autoriser('publierdans', 'rubrique', 0)) {
-		$data[0] = _T('info_racine_site');
-	}
-	# premier choix = neant
-	# si auteur (rubriques restreintes)
-	# ou si creation avec id_rubrique=0
-	elseif ($type == 'auteur' or !$id_rubrique) {
-		$data[0] = '&nbsp;';
-	}
-
-	//
-	// creer une structure contenant toute l'arborescence
-	//
-
-	include_spip('base/abstract_sql');
-	$q = sql_select(
-		'id_rubrique, id_parent, titre, statut, lang, langue_choisie',
-		'spip_rubriques',
-		($type == 'breve' ? ' id_parent=0 ' : ''),
-		'',
-		'0+titre,titre'
-	);
-	while ($r = sql_fetch($q)) {
-		if (autoriser('voir', 'rubrique', $r['id_rubrique'])) {
-			// titre largeur maxi a 50
-			$titre = couper(supprimer_tags(typo($r['titre'])) . ' ', 50);
-			if (
-				$GLOBALS['meta']['multi_rubriques'] == 'oui'
-				and ($r['langue_choisie'] == 'oui' or $r['id_parent'] == 0)
-			) {
-				$titre .= ' [' . traduire_nom_langue($r['lang']) . ']';
-			}
-			$data[$r['id_rubrique']] = $titre;
-			$enfants[$r['id_parent']][] = $r['id_rubrique'];
-			if ($id_rubrique == $r['id_rubrique']) {
-				$id_parent = $r['id_parent'];
-			}
-		}
-	}
-
-	// si une seule rubrique comme choix possible,
-	// inutile de mettre le selecteur sur un choix vide par defaut
-	// sauf si le selecteur s'adresse a une rubrique puisque on peut la mettre a la racine dans ce cas
-	if (
-		count($data) == 2
-		and isset($data[0])
-		and !in_array($type, ['auteur', 'rubrique'])
-		and !$id_rubrique
-	) {
-		unset($data[0]);
-	}
-
-
-	$opt = sous_menu_rubriques($id_rubrique, 0, 0, $data, $enfants, $idem, $restreint, $type);
-	$att = " id='id_parent' name='id_parent'\nclass='selecteur_parent verdana1'";
-
-	if (preg_match(',^<option[^<>]*value=.(\d*).[^<>]*>([^<]*)</option>$,', $opt, $r)) {
-		$r = "<input$att type='hidden' value='" . $r[1] . "' />" . $r[2];
-	} else {
-		$r = '<select' . $att . " size='1'>\n$opt</select>\n";
-	}
-
-	# message pour neuneus (a supprimer ?)
+    $enfants = [];
+    $data = [];
+    if ($type == 'rubrique' and autoriser('publierdans', 'rubrique', 0)) {
+        $data[0] = _T('info_racine_site');
+    }
+    # premier choix = neant
+    # si auteur (rubriques restreintes)
+    # ou si creation avec id_rubrique=0
+    elseif ($type == 'auteur' or !$id_rubrique) {
+        $data[0] = '&nbsp;';
+    }
+
+    //
+    // creer une structure contenant toute l'arborescence
+    //
+
+    include_spip('base/abstract_sql');
+    $q = sql_select(
+        'id_rubrique, id_parent, titre, statut, lang, langue_choisie',
+        'spip_rubriques',
+        ($type == 'breve' ? ' id_parent=0 ' : ''),
+        '',
+        '0+titre,titre'
+    );
+    while ($r = sql_fetch($q)) {
+        if (autoriser('voir', 'rubrique', $r['id_rubrique'])) {
+            // titre largeur maxi a 50
+            $titre = couper(supprimer_tags(typo($r['titre'])) . ' ', 50);
+            if (
+                $GLOBALS['meta']['multi_rubriques'] == 'oui'
+                and ($r['langue_choisie'] == 'oui' or $r['id_parent'] == 0)
+            ) {
+                $titre .= ' [' . traduire_nom_langue($r['lang']) . ']';
+            }
+            $data[$r['id_rubrique']] = $titre;
+            $enfants[$r['id_parent']][] = $r['id_rubrique'];
+            if ($id_rubrique == $r['id_rubrique']) {
+                $id_parent = $r['id_parent'];
+            }
+        }
+    }
+
+    // si une seule rubrique comme choix possible,
+    // inutile de mettre le selecteur sur un choix vide par defaut
+    // sauf si le selecteur s'adresse a une rubrique puisque on peut la mettre a la racine dans ce cas
+    if (
+        count($data) == 2
+        and isset($data[0])
+        and !in_array($type, ['auteur', 'rubrique'])
+        and !$id_rubrique
+    ) {
+        unset($data[0]);
+    }
+
+
+    $opt = sous_menu_rubriques($id_rubrique, 0, 0, $data, $enfants, $idem, $restreint, $type);
+    $att = " id='id_parent' name='id_parent'\nclass='selecteur_parent verdana1'";
+
+    if (preg_match(',^<option[^<>]*value=.(\d*).[^<>]*>([^<]*)</option>$,', $opt, $r)) {
+        $r = "<input$att type='hidden' value='" . $r[1] . "' />" . $r[2];
+    } else {
+        $r = '<select' . $att . " size='1'>\n$opt</select>\n";
+    }
+
+    # message pour neuneus (a supprimer ?)
 #	if ($type != 'auteur' AND $type != 'breve')
 #		$r .= "\n<br />"._T('texte_rappel_selection_champs');
 
-	return $r;
+    return $r;
 }
 
 /**
@@ -297,26 +297,26 @@ 
  */
 function selecteur_rubrique_ajax($id_rubrique, $type, $restreint, $idem = 0, $do = 'aff') {
 
-	if ($id_rubrique) {
-		$titre = sql_getfetsel('titre', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-	} else {
-		if ($type == 'auteur') {
-			$titre = '&nbsp;';
-		} else {
-			$titre = _T('info_racine_site');
-		}
-	}
+    if ($id_rubrique) {
+        $titre = sql_getfetsel('titre', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+    } else {
+        if ($type == 'auteur') {
+            $titre = '&nbsp;';
+        } else {
+            $titre = _T('info_racine_site');
+        }
+    }
 
-	$titre = str_replace('&amp;', '&', entites_html(textebrut(typo($titre))));
-	$init = " disabled='disabled' type='text' value=\"" . $titre . "\"\nstyle='width:300px;'";
+    $titre = str_replace('&amp;', '&', entites_html(textebrut(typo($titre))));
+    $init = " disabled='disabled' type='text' value=\"" . $titre . "\"\nstyle='width:300px;'";
 
-	$url = generer_url_ecrire('selectionner', "id=$id_rubrique&type=$type&do=$do"
-		. (!$idem ? '' : "&exclus=$idem")
-		. ($restreint ? '' : '&racine=oui')
-		. (isset($GLOBALS['var_profile']) ? '&var_profile=1' : ''));
+    $url = generer_url_ecrire('selectionner', "id=$id_rubrique&type=$type&do=$do"
+        . (!$idem ? '' : "&exclus=$idem")
+        . ($restreint ? '' : '&racine=oui')
+        . (isset($GLOBALS['var_profile']) ? '&var_profile=1' : ''));
 
 
-	return construire_selecteur($url, '', 'selection_rubrique', 'id_parent', $init, $id_rubrique);
+    return construire_selecteur($url, '', 'selection_rubrique', 'id_parent', $init, $id_rubrique);
 }
 
 /**
@@ -346,30 +346,30 @@ 
  *     Code HTML du sélecteur de rubrique AJAX
  **/
 function construire_selecteur($url, $js, $idom, $name, $init = '', $id = 0) {
-	$icone = (strpos($idom, 'auteur') !== false) ? 'auteur-24.png' : 'rechercher-20.png';
-	// si icone de recherche on embed le svg
-	$balise = ($icone === 'rechercher-20.png' ? chercher_filtre('balise_svg') : chercher_filtre('balise_img'));
-	$img_icone = $balise(chemin_image($icone), _T('titre_image_selecteur'));
-
-	return
-		"<div class='rubrique_actuelle'><a href='#' class='rubrique-search' role='button' style='display:inline-flex;vertical-align:middle;' onclick=\""
-		. $js
-		. " jQuery(this).toggleClass('toggled'); "
-		. "return charger_node_url_si_vide('"
-		. $url
-		. "', this.parentNode.nextSibling, this.nextSibling,'',event)\" title='" . attribut_html(_T('titre_image_selecteur')) . "'>"
-		. $img_icone
-		. "</a><img src='"
-		. chemin_image('loader.svg')
-		. "' class='loader' id='img_"
-		. $idom
-		. "'\nstyle='visibility: hidden;' alt='*' />"
-		. "<input id='titreparent' name='titreparent' class='text'"
-		. $init
-		. ' />'
-		. "<input type='hidden' id='$name' name='$name' value='"
-		. $id
-		. "' /><div class='nettoyeur'></div></div><div id='"
-		. $idom
-		. "'\nstyle='display: none;'></div>";
+    $icone = (strpos($idom, 'auteur') !== false) ? 'auteur-24.png' : 'rechercher-20.png';
+    // si icone de recherche on embed le svg
+    $balise = ($icone === 'rechercher-20.png' ? chercher_filtre('balise_svg') : chercher_filtre('balise_img'));
+    $img_icone = $balise(chemin_image($icone), _T('titre_image_selecteur'));
+
+    return
+        "<div class='rubrique_actuelle'><a href='#' class='rubrique-search' role='button' style='display:inline-flex;vertical-align:middle;' onclick=\""
+        . $js
+        . " jQuery(this).toggleClass('toggled'); "
+        . "return charger_node_url_si_vide('"
+        . $url
+        . "', this.parentNode.nextSibling, this.nextSibling,'',event)\" title='" . attribut_html(_T('titre_image_selecteur')) . "'>"
+        . $img_icone
+        . "</a><img src='"
+        . chemin_image('loader.svg')
+        . "' class='loader' id='img_"
+        . $idom
+        . "'\nstyle='visibility: hidden;' alt='*' />"
+        . "<input id='titreparent' name='titreparent' class='text'"
+        . $init
+        . ' />'
+        . "<input type='hidden' id='$name' name='$name' value='"
+        . $id
+        . "' /><div class='nettoyeur'></div></div><div id='"
+        . $idom
+        . "'\nstyle='display: none;'></div>";
 }

ecrire/inc/session.php

Indentation +462 added lines, -462 removed lines

@@ -19,7 +19,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -40,15 +40,15 @@ 
  * @return bool|null|void
  */
 function inc_session_dist($auteur = false) {
-	if (is_numeric($auteur)) {
-		return supprimer_sessions($auteur, $auteur > 0);
-	} else {
-		if (is_array($auteur)) {
-			return ajouter_session($auteur);
-		} else {
-			return verifier_session($auteur);
-		}
-	}
+    if (is_numeric($auteur)) {
+        return supprimer_sessions($auteur, $auteur > 0);
+    } else {
+        if (is_array($auteur)) {
+            return ajouter_session($auteur);
+        } else {
+            return verifier_session($auteur);
+        }
+    }
 }
 
 
@@ -77,36 +77,36 @@ 
  */
 function supprimer_sessions($id_auteur, $toutes = true, $actives = true) {
 
-	$nb_files = 0;
-	$nb_max_files = (defined('_MAX_NB_SESSIONS_OUVERTES') ? _MAX_NB_SESSIONS_OUVERTES : 1000);
-	spip_log("supprimer sessions auteur $id_auteur", 'session');
-	if ($toutes or $id_auteur !== $GLOBALS['visiteur_session']['id_auteur']) {
-		if ($dir = opendir(_DIR_SESSIONS)) {
-			$t = $_SERVER['REQUEST_TIME']  - (4 * _RENOUVELLE_ALEA); // 48h par defaut
-			$t_short = $_SERVER['REQUEST_TIME']  - max(_RENOUVELLE_ALEA / 4, 3 * 3600); // 3h par defaut
-			$t = time() - (4 * _RENOUVELLE_ALEA);
-			while (($f = readdir($dir)) !== false) {
-				$nb_files++;
-				if (preg_match(',^[^\d-]*(-?\d+)_\w{32}\.php[3]?$,', $f, $regs)) {
-					$f = _DIR_SESSIONS . $f;
-					if (($actives and $regs[1] == $id_auteur) or ($t > filemtime($f))) {
-						spip_unlink($f);
-					}
-					// si il y a trop de sessions ouvertes, on purge les sessions anonymes de plus de 3H
-					// cf http://core.spip.org/issues/3276
-					elseif ($nb_files > $nb_max_files and !intval($regs[1]) and ($t_short > filemtime($f))) {
-						spip_unlink($f);
-					}
-				}
-			}
-		}
-	} else {
-		verifier_session();
-		spip_unlink(fichier_session('alea_ephemere', true));
-	}
-
-	// forcer le recalcul de la session courante
-	spip_session(true);
+    $nb_files = 0;
+    $nb_max_files = (defined('_MAX_NB_SESSIONS_OUVERTES') ? _MAX_NB_SESSIONS_OUVERTES : 1000);
+    spip_log("supprimer sessions auteur $id_auteur", 'session');
+    if ($toutes or $id_auteur !== $GLOBALS['visiteur_session']['id_auteur']) {
+        if ($dir = opendir(_DIR_SESSIONS)) {
+            $t = $_SERVER['REQUEST_TIME']  - (4 * _RENOUVELLE_ALEA); // 48h par defaut
+            $t_short = $_SERVER['REQUEST_TIME']  - max(_RENOUVELLE_ALEA / 4, 3 * 3600); // 3h par defaut
+            $t = time() - (4 * _RENOUVELLE_ALEA);
+            while (($f = readdir($dir)) !== false) {
+                $nb_files++;
+                if (preg_match(',^[^\d-]*(-?\d+)_\w{32}\.php[3]?$,', $f, $regs)) {
+                    $f = _DIR_SESSIONS . $f;
+                    if (($actives and $regs[1] == $id_auteur) or ($t > filemtime($f))) {
+                        spip_unlink($f);
+                    }
+                    // si il y a trop de sessions ouvertes, on purge les sessions anonymes de plus de 3H
+                    // cf http://core.spip.org/issues/3276
+                    elseif ($nb_files > $nb_max_files and !intval($regs[1]) and ($t_short > filemtime($f))) {
+                        spip_unlink($f);
+                    }
+                }
+            }
+        }
+    } else {
+        verifier_session();
+        spip_unlink(fichier_session('alea_ephemere', true));
+    }
+
+    // forcer le recalcul de la session courante
+    spip_session(true);
 }
 
 /**
@@ -124,125 +124,125 @@ 
  * @return bool|string
  */
 function ajouter_session($auteur) {
-	// Si le client a deja une session valide pour son id_auteur
-	// on conserve le meme fichier
-
-	// Attention un visiteur peut avoir une session et un id=0,
-	// => ne pas melanger les sessions des differents visiteurs
-	$id_auteur = isset($auteur['id_auteur']) ? intval($auteur['id_auteur']) : 0;
-
-	// Si ce n'est pas un inscrit (les inscrits ont toujours des choses en session)
-	// on va vérifier s'il y a vraiment des choses à écrire
-	if (!$id_auteur) {
-		// On supprime les données de base pour voir le contenu réel de la session
-		$auteur_verif = $auteur;
-		if (isset($auteur_verif['id_auteur'])) {
-			unset($auteur_verif['id_auteur']);
-		}
-		if (isset($auteur_verif['hash_env'])) {
-			unset($auteur_verif['hash_env']);
-		}
-		if (isset($auteur_verif['ip_change'])) {
-			unset($auteur_verif['ip_change']);
-		}
-		if (isset($auteur_verif['date_session'])) {
-			unset($auteur_verif['date_session']);
-		}
-
-		// Les variables vraiment nulle ne sont pas à prendre en compte non plus
-		foreach ($auteur_verif as $variable => $valeur) {
-			if ($valeur === null) {
-				unset($auteur_verif[$variable]);
-			}
-		}
-
-		// Si après ça la session est vide alors on supprime l'éventuel fichier et on arrête là
-		if (!$auteur_verif) {
-			if (isset($_COOKIE['spip_session']) and isset($_SESSION[$_COOKIE['spip_session']])) {
-				unset($_SESSION[$_COOKIE['spip_session']]);
-			}
-			if (isset($_COOKIE['spip_session'])) {
-				unset($_COOKIE['spip_session']);
-			}
-
-			return false;
-		}
-	}
-
-	if (
-		!isset($_COOKIE['spip_session'])
-		or !preg_match(',^' . $id_auteur . '_,', $_COOKIE['spip_session'])
-	) {
-		$_COOKIE['spip_session'] = $id_auteur . '_' . md5(uniqid(random_int(0, mt_getrandmax()), true));
-	}
-
-	// Maintenant on sait qu'on a des choses à écrire
-	// On s'assure d'avoir au moins ces valeurs
-	$auteur['id_auteur'] = $id_auteur;
-	if (!isset($auteur['hash_env'])) {
-		$auteur['hash_env'] = hash_env();
-	}
-	if (!isset($auteur['ip_change'])) {
-		$auteur['ip_change'] = false;
-	}
-
-	if (!isset($auteur['date_session'])) {
-		$auteur['date_session'] = time();
-	}
-	if (
-		isset($auteur['prefs'])
-		and is_string($auteur['prefs'])
-		and $prefs = @unserialize($auteur['prefs'])
-	) {
-		$auteur['prefs'] = $prefs;
-	}
-
-	$fichier_session = '';
-
-	// les sessions anonymes sont stockees dans $_SESSION
-	if (!$id_auteur) {
-		spip_php_session_start();
-		$_SESSION[$_COOKIE['spip_session']] = preparer_ecriture_session($auteur);
-	} else {
-		$fichier_session = fichier_session('alea_ephemere');
-		if (!ecrire_fichier_session($fichier_session, $auteur)) {
-			spip_log('Echec ecriture fichier session ' . $fichier_session, 'session' . _LOG_HS);
-			include_spip('inc/minipres');
-			echo minipres();
-			exit;
-		}
-		// verifier et limiter le nombre maxi de sessions
-		// https://core.spip.net/issues/3807
-		lister_sessions_auteur($id_auteur);
-	}
-
-	// poser le cookie de session SPIP
-	include_spip('inc/cookie');
-	$duree = definir_duree_cookie_session($auteur);
-	spip_setcookie('spip_session', $_COOKIE['spip_session'], [
-		'expires' => time() + $duree
-	]);
-	spip_log("ajoute session $fichier_session cookie $duree", 'session');
-
-	// Si on est admin, poser le cookie de correspondance
-	if (!function_exists('autoriser')) {
-		include_spip('inc/autoriser');
-	}
-	if (autoriser('ecrire', '', '', $auteur) and _DUREE_COOKIE_ADMIN) {
-		spip_setcookie('spip_admin', '@' . ($auteur['email'] ?: $auteur['login']), [
-			'expires' => time() + max(_DUREE_COOKIE_ADMIN, $duree)
-		]);
-	} // sinon le supprimer ...
-	else {
-		spip_setcookie('spip_admin', '', [
-			'expires' => 1
-		]);
-	}
-
-	# on en profite pour purger les vieilles sessions anonymes abandonnees
-	# supprimer_sessions(0, true, false);
-
-	return $_COOKIE['spip_session'];
+    // Si le client a deja une session valide pour son id_auteur
+    // on conserve le meme fichier
+
+    // Attention un visiteur peut avoir une session et un id=0,
+    // => ne pas melanger les sessions des differents visiteurs
+    $id_auteur = isset($auteur['id_auteur']) ? intval($auteur['id_auteur']) : 0;
+
+    // Si ce n'est pas un inscrit (les inscrits ont toujours des choses en session)
+    // on va vérifier s'il y a vraiment des choses à écrire
+    if (!$id_auteur) {
+        // On supprime les données de base pour voir le contenu réel de la session
+        $auteur_verif = $auteur;
+        if (isset($auteur_verif['id_auteur'])) {
+            unset($auteur_verif['id_auteur']);
+        }
+        if (isset($auteur_verif['hash_env'])) {
+            unset($auteur_verif['hash_env']);
+        }
+        if (isset($auteur_verif['ip_change'])) {
+            unset($auteur_verif['ip_change']);
+        }
+        if (isset($auteur_verif['date_session'])) {
+            unset($auteur_verif['date_session']);
+        }
+
+        // Les variables vraiment nulle ne sont pas à prendre en compte non plus
+        foreach ($auteur_verif as $variable => $valeur) {
+            if ($valeur === null) {
+                unset($auteur_verif[$variable]);
+            }
+        }
+
+        // Si après ça la session est vide alors on supprime l'éventuel fichier et on arrête là
+        if (!$auteur_verif) {
+            if (isset($_COOKIE['spip_session']) and isset($_SESSION[$_COOKIE['spip_session']])) {
+                unset($_SESSION[$_COOKIE['spip_session']]);
+            }
+            if (isset($_COOKIE['spip_session'])) {
+                unset($_COOKIE['spip_session']);
+            }
+
+            return false;
+        }
+    }
+
+    if (
+        !isset($_COOKIE['spip_session'])
+        or !preg_match(',^' . $id_auteur . '_,', $_COOKIE['spip_session'])
+    ) {
+        $_COOKIE['spip_session'] = $id_auteur . '_' . md5(uniqid(random_int(0, mt_getrandmax()), true));
+    }
+
+    // Maintenant on sait qu'on a des choses à écrire
+    // On s'assure d'avoir au moins ces valeurs
+    $auteur['id_auteur'] = $id_auteur;
+    if (!isset($auteur['hash_env'])) {
+        $auteur['hash_env'] = hash_env();
+    }
+    if (!isset($auteur['ip_change'])) {
+        $auteur['ip_change'] = false;
+    }
+
+    if (!isset($auteur['date_session'])) {
+        $auteur['date_session'] = time();
+    }
+    if (
+        isset($auteur['prefs'])
+        and is_string($auteur['prefs'])
+        and $prefs = @unserialize($auteur['prefs'])
+    ) {
+        $auteur['prefs'] = $prefs;
+    }
+
+    $fichier_session = '';
+
+    // les sessions anonymes sont stockees dans $_SESSION
+    if (!$id_auteur) {
+        spip_php_session_start();
+        $_SESSION[$_COOKIE['spip_session']] = preparer_ecriture_session($auteur);
+    } else {
+        $fichier_session = fichier_session('alea_ephemere');
+        if (!ecrire_fichier_session($fichier_session, $auteur)) {
+            spip_log('Echec ecriture fichier session ' . $fichier_session, 'session' . _LOG_HS);
+            include_spip('inc/minipres');
+            echo minipres();
+            exit;
+        }
+        // verifier et limiter le nombre maxi de sessions
+        // https://core.spip.net/issues/3807
+        lister_sessions_auteur($id_auteur);
+    }
+
+    // poser le cookie de session SPIP
+    include_spip('inc/cookie');
+    $duree = definir_duree_cookie_session($auteur);
+    spip_setcookie('spip_session', $_COOKIE['spip_session'], [
+        'expires' => time() + $duree
+    ]);
+    spip_log("ajoute session $fichier_session cookie $duree", 'session');
+
+    // Si on est admin, poser le cookie de correspondance
+    if (!function_exists('autoriser')) {
+        include_spip('inc/autoriser');
+    }
+    if (autoriser('ecrire', '', '', $auteur) and _DUREE_COOKIE_ADMIN) {
+        spip_setcookie('spip_admin', '@' . ($auteur['email'] ?: $auteur['login']), [
+            'expires' => time() + max(_DUREE_COOKIE_ADMIN, $duree)
+        ]);
+    } // sinon le supprimer ...
+    else {
+        spip_setcookie('spip_admin', '', [
+            'expires' => 1
+        ]);
+    }
+
+    # on en profite pour purger les vieilles sessions anonymes abandonnees
+    # supprimer_sessions(0, true, false);
+
+    return $_COOKIE['spip_session'];
 }
 
 /**
@@ -262,15 +262,15 @@ 
  *     Durée en secondes
 **/
 function definir_duree_cookie_session($auteur) {
-	$coef = 2;
-	if (isset($auteur['cookie'])) {
-		if (is_numeric($auteur['cookie'])) {
-			$coef = $auteur['cookie'];
-		} else {
-			$coef = 20;
-		}
-	}
-	return (int)(_RENOUVELLE_ALEA * $coef);
+    $coef = 2;
+    if (isset($auteur['cookie'])) {
+        if (is_numeric($auteur['cookie'])) {
+            $coef = $auteur['cookie'];
+        } else {
+            $coef = 20;
+        }
+    }
+    return (int)(_RENOUVELLE_ALEA * $coef);
 }
 
 /**
@@ -290,91 +290,91 @@ 
  * @return bool|int|null
  */
 function verifier_session($change = false) {
-	// si pas de cookie, c'est fichu
-	if (!isset($_COOKIE['spip_session'])) {
-		return false;
-	}
-
-	$fichier_session = '';
-
-	// est-ce une session anonyme ?
-	if (!intval($_COOKIE['spip_session'])) {
-		spip_php_session_start();
-		if (!isset($_SESSION[$_COOKIE['spip_session']]) or !is_array($_SESSION[$_COOKIE['spip_session']])) {
-			return false;
-		}
-		$GLOBALS['visiteur_session'] = $_SESSION[$_COOKIE['spip_session']];
-	} else {
-		// Tester avec alea courant
-		$fichier_session = fichier_session('alea_ephemere', true);
-		if ($fichier_session and @file_exists($fichier_session)) {
-			include($fichier_session);
-		} else {
-			// Sinon, tester avec alea precedent
-			$fichier_session = fichier_session('alea_ephemere_ancien', true);
-			if (!$fichier_session or !@file_exists($fichier_session)) {
-				return false;
-			}
-
-			// Renouveler la session avec l'alea courant
-			include($fichier_session);
-			spip_log('renouvelle session ' . $GLOBALS['visiteur_session']['id_auteur'], 'session');
-			spip_unlink($fichier_session);
-			ajouter_session($GLOBALS['visiteur_session']);
-		}
-	}
-
-	// Compatibilite ascendante : auteur_session est visiteur_session si
-	// c'est un auteur SPIP authentifie (tandis qu'un visiteur_session peut
-	// n'etre qu'identifie, sans aucune authentification).
-
-	if (isset($GLOBALS['visiteur_session']['id_auteur']) and $GLOBALS['visiteur_session']['id_auteur']) {
-		$GLOBALS['auteur_session'] = &$GLOBALS['visiteur_session'];
-	}
-
-
-	// Si l'adresse IP change, inc/presentation mettra une balise image
-	// avec un URL de rappel demandant a changer le nom de la session.
-	// Seul celui qui a l'IP d'origine est rejoue
-	// ainsi un eventuel voleur de cookie ne pourrait pas deconnecter
-	// sa victime, mais se ferait deconnecter par elle.
-	if (hash_env() != $GLOBALS['visiteur_session']['hash_env']) {
-		if (!$GLOBALS['visiteur_session']['ip_change']) {
-			define('_SESSION_REJOUER', true);
-			$GLOBALS['visiteur_session']['ip_change'] = true;
-			ajouter_session($GLOBALS['visiteur_session']);
-		} else {
-			if ($change) {
-				spip_log('session non rejouee, vol de cookie ?', 'session');
-			}
-		}
-	} else {
-		if ($change) {
-			spip_log("rejoue session $fichier_session " . $_COOKIE['spip_session'], 'session');
-			if ($fichier_session) {
-				spip_unlink($fichier_session);
-			}
-			$GLOBALS['visiteur_session']['ip_change'] = false;
-			unset($_COOKIE['spip_session']);
-			ajouter_session($GLOBALS['visiteur_session']);
-		}
-	}
-
-	// Si la session a ete initiee il y a trop longtemps, elle est annulee
-	if (
-		isset($GLOBALS['visiteur_session'])
-		and defined('_AGE_SESSION_MAX')
-		and _AGE_SESSION_MAX > 0
-		and time() - @$GLOBALS['visiteur_session']['date_session'] > _AGE_SESSION_MAX
-	) {
-		unset($GLOBALS['visiteur_session']);
-
-		return false;
-	}
-
-	return is_numeric($GLOBALS['visiteur_session']['id_auteur'])
-		? $GLOBALS['visiteur_session']['id_auteur']
-		: null;
+    // si pas de cookie, c'est fichu
+    if (!isset($_COOKIE['spip_session'])) {
+        return false;
+    }
+
+    $fichier_session = '';
+
+    // est-ce une session anonyme ?
+    if (!intval($_COOKIE['spip_session'])) {
+        spip_php_session_start();
+        if (!isset($_SESSION[$_COOKIE['spip_session']]) or !is_array($_SESSION[$_COOKIE['spip_session']])) {
+            return false;
+        }
+        $GLOBALS['visiteur_session'] = $_SESSION[$_COOKIE['spip_session']];
+    } else {
+        // Tester avec alea courant
+        $fichier_session = fichier_session('alea_ephemere', true);
+        if ($fichier_session and @file_exists($fichier_session)) {
+            include($fichier_session);
+        } else {
+            // Sinon, tester avec alea precedent
+            $fichier_session = fichier_session('alea_ephemere_ancien', true);
+            if (!$fichier_session or !@file_exists($fichier_session)) {
+                return false;
+            }
+
+            // Renouveler la session avec l'alea courant
+            include($fichier_session);
+            spip_log('renouvelle session ' . $GLOBALS['visiteur_session']['id_auteur'], 'session');
+            spip_unlink($fichier_session);
+            ajouter_session($GLOBALS['visiteur_session']);
+        }
+    }
+
+    // Compatibilite ascendante : auteur_session est visiteur_session si
+    // c'est un auteur SPIP authentifie (tandis qu'un visiteur_session peut
+    // n'etre qu'identifie, sans aucune authentification).
+
+    if (isset($GLOBALS['visiteur_session']['id_auteur']) and $GLOBALS['visiteur_session']['id_auteur']) {
+        $GLOBALS['auteur_session'] = &$GLOBALS['visiteur_session'];
+    }
+
+
+    // Si l'adresse IP change, inc/presentation mettra une balise image
+    // avec un URL de rappel demandant a changer le nom de la session.
+    // Seul celui qui a l'IP d'origine est rejoue
+    // ainsi un eventuel voleur de cookie ne pourrait pas deconnecter
+    // sa victime, mais se ferait deconnecter par elle.
+    if (hash_env() != $GLOBALS['visiteur_session']['hash_env']) {
+        if (!$GLOBALS['visiteur_session']['ip_change']) {
+            define('_SESSION_REJOUER', true);
+            $GLOBALS['visiteur_session']['ip_change'] = true;
+            ajouter_session($GLOBALS['visiteur_session']);
+        } else {
+            if ($change) {
+                spip_log('session non rejouee, vol de cookie ?', 'session');
+            }
+        }
+    } else {
+        if ($change) {
+            spip_log("rejoue session $fichier_session " . $_COOKIE['spip_session'], 'session');
+            if ($fichier_session) {
+                spip_unlink($fichier_session);
+            }
+            $GLOBALS['visiteur_session']['ip_change'] = false;
+            unset($_COOKIE['spip_session']);
+            ajouter_session($GLOBALS['visiteur_session']);
+        }
+    }
+
+    // Si la session a ete initiee il y a trop longtemps, elle est annulee
+    if (
+        isset($GLOBALS['visiteur_session'])
+        and defined('_AGE_SESSION_MAX')
+        and _AGE_SESSION_MAX > 0
+        and time() - @$GLOBALS['visiteur_session']['date_session'] > _AGE_SESSION_MAX
+    ) {
+        unset($GLOBALS['visiteur_session']);
+
+        return false;
+    }
+
+    return is_numeric($GLOBALS['visiteur_session']['id_auteur'])
+        ? $GLOBALS['visiteur_session']['id_auteur']
+        : null;
 }
 
 /**
@@ -389,7 +389,7 @@ 
  *     Valeur, si trouvée, `null` sinon.
  */
 function session_get($nom) {
-	return $GLOBALS['visiteur_session'][$nom] ?? null;
+    return $GLOBALS['visiteur_session'][$nom] ?? null;
 }
 
 
@@ -405,32 +405,32 @@ 
  * @return void|array
  */
 function session_set($nom, $val = null) {
-	static $remove = [];
-	static $actualiser_sessions = false;
-	if ($nom === false) {
-		return $remove;
-	}
-	if (is_null($val)) {
-		// rien a faire
-		if (!isset($GLOBALS['visiteur_session'][$nom])) {
-			return;
-		}
-		unset($GLOBALS['visiteur_session'][$nom]);
-		$remove[] = $nom;
-	} else {
-		// On ajoute la valeur dans la globale
-		$GLOBALS['visiteur_session'][$nom] = $val;
-		if ($remove) {
-			$remove = array_diff($remove, [$nom]);
-		}
-	}
-	if (!$actualiser_sessions) {
-		// il faut creer la session si on en a pas, la premiere fois
-		ajouter_session($GLOBALS['visiteur_session']);
-		// in register la fonction qui mettra a jour toutes les sessions en fin de hit
-		register_shutdown_function('terminer_actualiser_sessions');
-		$actualiser_sessions = true;
-	}
+    static $remove = [];
+    static $actualiser_sessions = false;
+    if ($nom === false) {
+        return $remove;
+    }
+    if (is_null($val)) {
+        // rien a faire
+        if (!isset($GLOBALS['visiteur_session'][$nom])) {
+            return;
+        }
+        unset($GLOBALS['visiteur_session'][$nom]);
+        $remove[] = $nom;
+    } else {
+        // On ajoute la valeur dans la globale
+        $GLOBALS['visiteur_session'][$nom] = $val;
+        if ($remove) {
+            $remove = array_diff($remove, [$nom]);
+        }
+    }
+    if (!$actualiser_sessions) {
+        // il faut creer la session si on en a pas, la premiere fois
+        ajouter_session($GLOBALS['visiteur_session']);
+        // in register la fonction qui mettra a jour toutes les sessions en fin de hit
+        register_shutdown_function('terminer_actualiser_sessions');
+        $actualiser_sessions = true;
+    }
 }
 
 /**
@@ -439,12 +439,12 @@ 
  * @uses actualiser_sessions()
  */
 function terminer_actualiser_sessions() {
-	// se remettre dans le dossier de travail au cas ou Apache a change
-	chdir(_ROOT_CWD);
-	// recuperer les variables a effacer
-	$remove = session_set(false);
-	// mettre a jour toutes les sessions
-	actualiser_sessions($GLOBALS['visiteur_session'], $remove);
+    // se remettre dans le dossier de travail au cas ou Apache a change
+    chdir(_ROOT_CWD);
+    // recuperer les variables a effacer
+    $remove = session_set(false);
+    // mettre a jour toutes les sessions
+    actualiser_sessions($GLOBALS['visiteur_session'], $remove);
 }
 
 
@@ -469,83 +469,83 @@ 
  */
 function actualiser_sessions($auteur, $supprimer_cles = []) {
 
-	$id_auteur = isset($auteur['id_auteur']) ? intval($auteur['id_auteur']) : 0;
-	$id_auteur_courant = isset($GLOBALS['visiteur_session']['id_auteur']) ? intval($GLOBALS['visiteur_session']['id_auteur']) : 0;
-
-	// si l'auteur est celui de la session courante, verifier/creer la session si besoin
-	$fichier_session_courante = '';
-	if ($id_auteur == $id_auteur_courant) {
-		$auteur = array_merge($GLOBALS['visiteur_session'], $auteur);
-		ajouter_session($auteur);
-		if ($id_auteur) {
-			$fichier_session_courante = fichier_session('alea_ephemere');
-		}
-	}
-
-	// si session anonyme on ne fait rien d'autre ici : les sessions anonymes sont non partagees
-	if (!$id_auteur) {
-		return;
-	}
-
-	// les préférences sont désérialisées, toujours.
-	// [fixme] Le champ 'prefs' sert aussi à l’inscription
-	if (isset($auteur['prefs']) and is_string($auteur['prefs'])) {
-		$auteur['prefs'] = @unserialize($auteur['prefs']);
-		if (!is_array($auteur['prefs'])) {
-			$auteur['prefs'] = [];
-		}
-	}
-
-	// memoriser l'auteur courant (celui qui modifie la fiche)
-	$sauve = $GLOBALS['visiteur_session'];
-
-	// .. mettre a jour les sessions de l'auteur cible
-	// attention au $ final pour ne pas risquer d'embarquer un .php.jeton temporaire
-	// cree par une ecriture concurente d'une session (fichier atomique temporaire)
-	$sessions = lister_sessions_auteur($id_auteur);
-
-	// 1ere passe : lire et fusionner les sessions
-	foreach ($sessions as $session) {
-		$GLOBALS['visiteur_session'] = [];
-		// a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)
-		if (
-			$session !== $fichier_session_courante
-			and @file_exists($session)
-		) {
-			include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible
-
-			$auteur = array_merge($GLOBALS['visiteur_session'], $auteur);
-		}
-	}
-
-	// supprimer les eventuelles cles dont on ne veut plus
-	foreach ($supprimer_cles as $cle) {
-		unset($auteur[$cle]);
-	}
-
-	$auteur_session = preparer_ecriture_session($auteur);
-
-	// seconde passe : ecrire les sessions qui ne sont pas a jour
-	foreach ($sessions as $session) {
-		$GLOBALS['visiteur_session'] = [];
-		// a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)
-		if (@file_exists($session)) {
-			include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible
-
-			// est-ce que cette session est a mettre a jour ?
-			if ($auteur_session != $GLOBALS['visiteur_session']) {
-				ecrire_fichier_session($session, $auteur);
-			}
-		}
-	}
-
-	if ($id_auteur == $id_auteur_courant) {
-		$GLOBALS['visiteur_session'] = $auteur;
-		$GLOBALS['auteur_session'] = &$GLOBALS['visiteur_session'];
-	} else {
-		// restaurer l'auteur courant
-		$GLOBALS['visiteur_session'] = $sauve;
-	}
+    $id_auteur = isset($auteur['id_auteur']) ? intval($auteur['id_auteur']) : 0;
+    $id_auteur_courant = isset($GLOBALS['visiteur_session']['id_auteur']) ? intval($GLOBALS['visiteur_session']['id_auteur']) : 0;
+
+    // si l'auteur est celui de la session courante, verifier/creer la session si besoin
+    $fichier_session_courante = '';
+    if ($id_auteur == $id_auteur_courant) {
+        $auteur = array_merge($GLOBALS['visiteur_session'], $auteur);
+        ajouter_session($auteur);
+        if ($id_auteur) {
+            $fichier_session_courante = fichier_session('alea_ephemere');
+        }
+    }
+
+    // si session anonyme on ne fait rien d'autre ici : les sessions anonymes sont non partagees
+    if (!$id_auteur) {
+        return;
+    }
+
+    // les préférences sont désérialisées, toujours.
+    // [fixme] Le champ 'prefs' sert aussi à l’inscription
+    if (isset($auteur['prefs']) and is_string($auteur['prefs'])) {
+        $auteur['prefs'] = @unserialize($auteur['prefs']);
+        if (!is_array($auteur['prefs'])) {
+            $auteur['prefs'] = [];
+        }
+    }
+
+    // memoriser l'auteur courant (celui qui modifie la fiche)
+    $sauve = $GLOBALS['visiteur_session'];
+
+    // .. mettre a jour les sessions de l'auteur cible
+    // attention au $ final pour ne pas risquer d'embarquer un .php.jeton temporaire
+    // cree par une ecriture concurente d'une session (fichier atomique temporaire)
+    $sessions = lister_sessions_auteur($id_auteur);
+
+    // 1ere passe : lire et fusionner les sessions
+    foreach ($sessions as $session) {
+        $GLOBALS['visiteur_session'] = [];
+        // a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)
+        if (
+            $session !== $fichier_session_courante
+            and @file_exists($session)
+        ) {
+            include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible
+
+            $auteur = array_merge($GLOBALS['visiteur_session'], $auteur);
+        }
+    }
+
+    // supprimer les eventuelles cles dont on ne veut plus
+    foreach ($supprimer_cles as $cle) {
+        unset($auteur[$cle]);
+    }
+
+    $auteur_session = preparer_ecriture_session($auteur);
+
+    // seconde passe : ecrire les sessions qui ne sont pas a jour
+    foreach ($sessions as $session) {
+        $GLOBALS['visiteur_session'] = [];
+        // a pu etre supprime entre le preg initial et le moment ou l'on arrive la (concurrence)
+        if (@file_exists($session)) {
+            include $session; # $GLOBALS['visiteur_session'] est alors l'auteur cible
+
+            // est-ce que cette session est a mettre a jour ?
+            if ($auteur_session != $GLOBALS['visiteur_session']) {
+                ecrire_fichier_session($session, $auteur);
+            }
+        }
+    }
+
+    if ($id_auteur == $id_auteur_courant) {
+        $GLOBALS['visiteur_session'] = $auteur;
+        $GLOBALS['auteur_session'] = &$GLOBALS['visiteur_session'];
+    } else {
+        // restaurer l'auteur courant
+        $GLOBALS['visiteur_session'] = $sauve;
+    }
 }
 
 /**
@@ -559,48 +559,48 @@ 
  */
 function lister_sessions_auteur($id_auteur, $nb_max = null) {
 
-	if (is_null($nb_max)) {
-		if (!defined('_NB_SESSIONS_MAX')) {
-			define('_NB_SESSIONS_MAX', 100);
-		}
-		$nb_max = _NB_SESSIONS_MAX;
-	}
-
-	// liste des sessions
-	$sessions = preg_files(_DIR_SESSIONS, '/' . $id_auteur . '_.*\.php$');
-
-	// si on en a plus que la limite, supprimer les plus vieilles
-	// si ce ne sont pas des sessions anonymes car elles sont alors chacune differentes
-	if (
-		$id_auteur
-		and count($sessions) > $nb_max
-	) {
-		// limiter le nombre de sessions ouvertes par un auteur
-		// filemtime sur les sessions
-		$sessions = array_flip($sessions);
-
-		// 1ere passe : lire les filemtime
-		foreach ($sessions as $session => $z) {
-			if (
-				$d = @filemtime($session)
-			) {
-				$sessions[$session] = $d;
-			} else {
-				$sessions[$session] = 0;
-			}
-		}
-
-		// les plus anciennes en premier
-		asort($sessions);
-
-		$sessions = array_keys($sessions);
-		while (count($sessions) > $nb_max) {
-			$session = array_shift($sessions);
-			@unlink($session);
-		}
-	}
-
-	return $sessions;
+    if (is_null($nb_max)) {
+        if (!defined('_NB_SESSIONS_MAX')) {
+            define('_NB_SESSIONS_MAX', 100);
+        }
+        $nb_max = _NB_SESSIONS_MAX;
+    }
+
+    // liste des sessions
+    $sessions = preg_files(_DIR_SESSIONS, '/' . $id_auteur . '_.*\.php$');
+
+    // si on en a plus que la limite, supprimer les plus vieilles
+    // si ce ne sont pas des sessions anonymes car elles sont alors chacune differentes
+    if (
+        $id_auteur
+        and count($sessions) > $nb_max
+    ) {
+        // limiter le nombre de sessions ouvertes par un auteur
+        // filemtime sur les sessions
+        $sessions = array_flip($sessions);
+
+        // 1ere passe : lire les filemtime
+        foreach ($sessions as $session => $z) {
+            if (
+                $d = @filemtime($session)
+            ) {
+                $sessions[$session] = $d;
+            } else {
+                $sessions[$session] = 0;
+            }
+        }
+
+        // les plus anciennes en premier
+        asort($sessions);
+
+        $sessions = array_keys($sessions);
+        while (count($sessions) > $nb_max) {
+            $session = array_shift($sessions);
+            @unlink($session);
+        }
+    }
+
+    return $sessions;
 }
 
 
@@ -614,26 +614,26 @@ 
  * @return array
  */
 function preparer_ecriture_session($auteur) {
-	$row = $auteur;
-
-	// ne pas enregistrer ces elements de securite
-	// dans le fichier de session
-	unset($auteur['pass']);
-	unset($auteur['htpass']);
-	unset($auteur['low_sec']);
-	unset($auteur['alea_actuel']);
-	unset($auteur['alea_futur']);
-
-	$auteur = pipeline('preparer_fichier_session', ['args' => ['row' => $row], 'data' => $auteur]);
-
-	// ne pas enregistrer les valeurs vraiment nulle dans le fichier
-	foreach ($auteur as $variable => $valeur) {
-		if ($valeur === null) {
-			unset($auteur[$variable]);
-		}
-	}
-
-	return $auteur;
+    $row = $auteur;
+
+    // ne pas enregistrer ces elements de securite
+    // dans le fichier de session
+    unset($auteur['pass']);
+    unset($auteur['htpass']);
+    unset($auteur['low_sec']);
+    unset($auteur['alea_actuel']);
+    unset($auteur['alea_futur']);
+
+    $auteur = pipeline('preparer_fichier_session', ['args' => ['row' => $row], 'data' => $auteur]);
+
+    // ne pas enregistrer les valeurs vraiment nulle dans le fichier
+    foreach ($auteur as $variable => $valeur) {
+        if ($valeur === null) {
+            unset($auteur[$variable]);
+        }
+    }
+
+    return $auteur;
 }
 
 /**
@@ -645,17 +645,17 @@ 
  */
 function ecrire_fichier_session($fichier, $auteur) {
 
-	$auteur = preparer_ecriture_session($auteur);
+    $auteur = preparer_ecriture_session($auteur);
 
-	// enregistrer les autres donnees du visiteur
-	$texte = '<' . "?php\n";
-	foreach ($auteur as $var => $val) {
-		$texte .= '$GLOBALS[\'visiteur_session\'][' . var_export($var, true) . '] = '
-			. var_export($val, true) . ";\n";
-	}
-	$texte .= '?' . ">\n";
+    // enregistrer les autres donnees du visiteur
+    $texte = '<' . "?php\n";
+    foreach ($auteur as $var => $val) {
+        $texte .= '$GLOBALS[\'visiteur_session\'][' . var_export($var, true) . '] = '
+            . var_export($val, true) . ";\n";
+    }
+    $texte .= '?' . ">\n";
 
-	return ecrire_fichier($fichier, $texte);
+    return ecrire_fichier($fichier, $texte);
 }
 
 
@@ -668,23 +668,23 @@ 
  */
 function fichier_session($alea, $tantpis = false) {
 
-	include_spip('inc/acces');
-	charger_aleas();
+    include_spip('inc/acces');
+    charger_aleas();
 
-	if (empty($GLOBALS['meta'][$alea])) {
-		if (!$tantpis) {
-			spip_log("fichier session ($tantpis): $alea indisponible", 'session');
-			include_spip('inc/minipres');
-			echo minipres();
-		}
+    if (empty($GLOBALS['meta'][$alea])) {
+        if (!$tantpis) {
+            spip_log("fichier session ($tantpis): $alea indisponible", 'session');
+            include_spip('inc/minipres');
+            echo minipres();
+        }
 
-		return ''; // echec mais $tanpis
-	} else {
-		$repertoire = sous_repertoire(_DIR_SESSIONS, '', false, $tantpis);
-		$c = $_COOKIE['spip_session'];
+        return ''; // echec mais $tanpis
+    } else {
+        $repertoire = sous_repertoire(_DIR_SESSIONS, '', false, $tantpis);
+        $c = $_COOKIE['spip_session'];
 
-		return $repertoire . intval($c) . '_' . md5($c . ' ' . $GLOBALS['meta'][$alea]) . '.php';
-	}
+        return $repertoire . intval($c) . '_' . md5($c . ' ' . $GLOBALS['meta'][$alea]) . '.php';
+    }
 }
 
 
@@ -701,7 +701,7 @@ 
  * @return string
  */
 function rejouer_session() {
-	return '<img src="' . generer_url_action('cookie', 'change_session=oui', true) . '" width="0" height="0" alt="" />';
+    return '<img src="' . generer_url_action('cookie', 'change_session=oui', true) . '" width="0" height="0" alt="" />';
 }
 
 
@@ -711,12 +711,12 @@ 
  * @return string
  */
 function hash_env() {
-	static $res = '';
-	if ($res) {
-		return $res;
-	}
+    static $res = '';
+    if ($res) {
+        return $res;
+    }
 
-	return $res = md5($GLOBALS['ip'] . ($_SERVER['HTTP_USER_AGENT'] ?? ''));
+    return $res = md5($GLOBALS['ip'] . ($_SERVER['HTTP_USER_AGENT'] ?? ''));
 }
 
 
@@ -728,11 +728,11 @@ 
  * @return bool True si une session PHP est ouverte.
  **/
 function spip_php_session_start() {
-	if (!is_php_session_started()) {
-		return session_start();
-	}
+    if (!is_php_session_started()) {
+        return session_start();
+    }
 
-	return true;
+    return true;
 }
 
 /**
@@ -742,9 +742,9 @@ 
  * @return bool true si une session PHP est active
  **/
 function is_php_session_started() {
-	if (php_sapi_name() !== 'cli') {
-		return session_status() === PHP_SESSION_ACTIVE ? true : false;
-	}
+    if (php_sapi_name() !== 'cli') {
+        return session_status() === PHP_SESSION_ACTIVE ? true : false;
+    }
 
-	return false;
+    return false;
 }

ecrire/inc/precharger_objet.php

Indentation +139 added lines, -139 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/autoriser'); // necessaire si appel de l'espace public
@@ -45,70 +45,70 @@ 
  **/
 function precharger_objet($type, $id_objet, $id_rubrique = 0, $lier_trad = 0, $champ_titre = 'titre') {
 
-	$row = [];
-	$table = table_objet_sql($type);
-	$_id_objet = id_table_objet($table);
-
-	// si l'objet existe deja, on retourne simplement ses valeurs
-	if (is_numeric($id_objet)) {
-		return sql_fetsel('*', $table, "$_id_objet=" . intval($id_objet));
-	}
-
-	// ici, on demande une creation.
-	// on prerempli certains elements : les champs si traduction,
-	// les id_rubrique et id_secteur si l'objet a ces champs
-	$desc = lister_tables_objets_sql($table);
-	# il faudrait calculer $champ_titre ici
-	$is_rubrique = isset($desc['field']['id_rubrique']);
-	$is_secteur = isset($desc['field']['id_secteur']);
-
-	// si demande de traduction
-	// on recupere les valeurs de la traduction
-	if ($lier_trad) {
-		if ($select = charger_fonction('precharger_traduction_' . $type, 'inc', true)) {
-			$row = $select($id_objet, $id_rubrique, $lier_trad);
-		} else {
-			$row = precharger_traduction_objet($type, $id_objet, $id_rubrique, $lier_trad, $champ_titre);
-		}
-	} else {
-		$row[$champ_titre] = '';
-		if ($is_rubrique) {
-			$row['id_rubrique'] = $id_rubrique;
-		}
-	}
-
-	// calcul de la rubrique
-	# note : comment faire pour des traductions sur l'objet rubriques ?
-	if ($is_rubrique) {
-		// appel du script a la racine, faut choisir
-		// admin restreint ==> sa premiere rubrique
-		// autre ==> la derniere rubrique cree
-		if (!$row['id_rubrique']) {
-			if ($GLOBALS['connect_id_rubrique']) {
-				$row['id_rubrique'] = $id_rubrique = current($GLOBALS['connect_id_rubrique']);
-			} else {
-				$row_rub = sql_fetsel('id_rubrique', 'spip_rubriques', '', '', 'id_rubrique DESC', 1);
-				$row['id_rubrique'] = $id_rubrique = $row_rub['id_rubrique'];
-			}
-			if (!autoriser('creerarticledans', 'rubrique', $row['id_rubrique'])) {
-				// manque de chance, la rubrique n'est pas autorisee, on cherche un des secteurs autorises
-				$res = sql_select('id_rubrique', 'spip_rubriques', 'id_parent=0');
-				while (!autoriser('creerarticledans', 'rubrique', $row['id_rubrique']) && $row_rub = sql_fetch($res)) {
-					$row['id_rubrique'] = $row_rub['id_rubrique'];
-				}
-			}
-		}
-	}
-
-	// recuperer le secteur, pour affecter les bons champs extras
-	if ($id_rubrique and $is_secteur) {
-		if (!$row['id_secteur']) {
-			$row_rub = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . sql_quote($id_rubrique));
-			$row['id_secteur'] = $row_rub;
-		}
-	}
-
-	return $row;
+    $row = [];
+    $table = table_objet_sql($type);
+    $_id_objet = id_table_objet($table);
+
+    // si l'objet existe deja, on retourne simplement ses valeurs
+    if (is_numeric($id_objet)) {
+        return sql_fetsel('*', $table, "$_id_objet=" . intval($id_objet));
+    }
+
+    // ici, on demande une creation.
+    // on prerempli certains elements : les champs si traduction,
+    // les id_rubrique et id_secteur si l'objet a ces champs
+    $desc = lister_tables_objets_sql($table);
+    # il faudrait calculer $champ_titre ici
+    $is_rubrique = isset($desc['field']['id_rubrique']);
+    $is_secteur = isset($desc['field']['id_secteur']);
+
+    // si demande de traduction
+    // on recupere les valeurs de la traduction
+    if ($lier_trad) {
+        if ($select = charger_fonction('precharger_traduction_' . $type, 'inc', true)) {
+            $row = $select($id_objet, $id_rubrique, $lier_trad);
+        } else {
+            $row = precharger_traduction_objet($type, $id_objet, $id_rubrique, $lier_trad, $champ_titre);
+        }
+    } else {
+        $row[$champ_titre] = '';
+        if ($is_rubrique) {
+            $row['id_rubrique'] = $id_rubrique;
+        }
+    }
+
+    // calcul de la rubrique
+    # note : comment faire pour des traductions sur l'objet rubriques ?
+    if ($is_rubrique) {
+        // appel du script a la racine, faut choisir
+        // admin restreint ==> sa premiere rubrique
+        // autre ==> la derniere rubrique cree
+        if (!$row['id_rubrique']) {
+            if ($GLOBALS['connect_id_rubrique']) {
+                $row['id_rubrique'] = $id_rubrique = current($GLOBALS['connect_id_rubrique']);
+            } else {
+                $row_rub = sql_fetsel('id_rubrique', 'spip_rubriques', '', '', 'id_rubrique DESC', 1);
+                $row['id_rubrique'] = $id_rubrique = $row_rub['id_rubrique'];
+            }
+            if (!autoriser('creerarticledans', 'rubrique', $row['id_rubrique'])) {
+                // manque de chance, la rubrique n'est pas autorisee, on cherche un des secteurs autorises
+                $res = sql_select('id_rubrique', 'spip_rubriques', 'id_parent=0');
+                while (!autoriser('creerarticledans', 'rubrique', $row['id_rubrique']) && $row_rub = sql_fetch($res)) {
+                    $row['id_rubrique'] = $row_rub['id_rubrique'];
+                }
+            }
+        }
+    }
+
+    // recuperer le secteur, pour affecter les bons champs extras
+    if ($id_rubrique and $is_secteur) {
+        if (!$row['id_secteur']) {
+            $row_rub = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . sql_quote($id_rubrique));
+            $row['id_secteur'] = $row_rub;
+        }
+    }
+
+    return $row;
 }
 
 
@@ -130,78 +130,78 @@ 
  *     Couples clés / valeurs des champs du formulaire à charger
  **/
 function precharger_traduction_objet($type, $id_objet, $id_rubrique = 0, $lier_trad = 0, $champ_titre = 'titre') {
-	$table = table_objet_sql($type);
-	$_id_objet = id_table_objet($table);
-
-	// Recuperer les donnees de l'objet original
-	$row = sql_fetsel('*', $table, "$_id_objet=" . intval($lier_trad));
-	if ($row) {
-		include_spip('inc/filtres');
-		$row[$champ_titre] = filtrer_entites(objet_T($type, 'info_nouvelle_traduction')) . ' ' . $row[$champ_titre];
-	} else {
-		$row = [];
-	}
-
-	// on met l'objet dans une rubrique si l'objet le peut
-	$desc = lister_tables_objets_sql($table);
-	$is_rubrique = isset($desc['field']['id_rubrique']);
-
-	if ($is_rubrique) {
-		$langues_dispo = explode(',', $GLOBALS['meta']['langues_multilingue']);
-		// si le redacteur utilise une autre langue que celle de la source, on suppose que c'est pour traduire dans sa langue
-		if (in_array($GLOBALS['spip_lang'], $langues_dispo) and $GLOBALS['spip_lang'] !== $row['lang']) {
-			$row['lang'] = $GLOBALS['spip_lang'];
-		}
-		// sinon si il y a seulement 2 langues dispos, on bascule sur l'"autre"
-		elseif (count($langues_dispo) == 2) {
-			$autre_langue = array_diff($langues_dispo, [$row['lang']]);
-			if (count($autre_langue) == 1) {
-				$row['lang'] = reset($autre_langue);
-			}
-		}
-		else {
-			$row['lang'] = 'en';
-		}
-
-		if ($id_rubrique) {
-			$row['id_rubrique'] = $id_rubrique;
-
-			return $row;
-		}
-		$id_rubrique = $row['id_rubrique'];
-
-
-		// Regler la langue, si possible, sur celle du redacteur
-		// Cela implique souvent de choisir une rubrique ou un secteur
-		if (in_array($GLOBALS['spip_lang'], $langues_dispo)) {
-			// Si le menu de langues est autorise sur l'objet,
-			// on peut changer la langue quelle que soit la rubrique
-			// donc on reste dans la meme rubrique
-			if (in_array($table, explode(',', $GLOBALS['meta']['multi_objets']))) {
-				$row['id_rubrique'] = $row['id_rubrique']; # explicite :-)
-
-				// Sinon, chercher la rubrique la plus adaptee pour
-				// accueillir l'objet dans la langue du traducteur
-			} elseif ($is_rubrique and $GLOBALS['meta']['multi_rubriques'] == 'oui') {
-				if ($GLOBALS['meta']['multi_secteurs'] == 'oui') {
-					$id_parent = 0;
-				} else {
-					// on cherche une rubrique soeur dans la bonne langue
-					$row_rub = sql_fetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-					$id_parent = $row_rub['id_parent'];
-				}
-
-				$row_rub = sql_fetsel(
-					'id_rubrique',
-					'spip_rubriques',
-					"lang='" . $GLOBALS['spip_lang'] . "' AND id_parent=" . intval($id_parent)
-				);
-				if ($row_rub) {
-					$row['id_rubrique'] = $row_rub['id_rubrique'];
-				}
-			}
-		}
-	}
-
-	return $row;
+    $table = table_objet_sql($type);
+    $_id_objet = id_table_objet($table);
+
+    // Recuperer les donnees de l'objet original
+    $row = sql_fetsel('*', $table, "$_id_objet=" . intval($lier_trad));
+    if ($row) {
+        include_spip('inc/filtres');
+        $row[$champ_titre] = filtrer_entites(objet_T($type, 'info_nouvelle_traduction')) . ' ' . $row[$champ_titre];
+    } else {
+        $row = [];
+    }
+
+    // on met l'objet dans une rubrique si l'objet le peut
+    $desc = lister_tables_objets_sql($table);
+    $is_rubrique = isset($desc['field']['id_rubrique']);
+
+    if ($is_rubrique) {
+        $langues_dispo = explode(',', $GLOBALS['meta']['langues_multilingue']);
+        // si le redacteur utilise une autre langue que celle de la source, on suppose que c'est pour traduire dans sa langue
+        if (in_array($GLOBALS['spip_lang'], $langues_dispo) and $GLOBALS['spip_lang'] !== $row['lang']) {
+            $row['lang'] = $GLOBALS['spip_lang'];
+        }
+        // sinon si il y a seulement 2 langues dispos, on bascule sur l'"autre"
+        elseif (count($langues_dispo) == 2) {
+            $autre_langue = array_diff($langues_dispo, [$row['lang']]);
+            if (count($autre_langue) == 1) {
+                $row['lang'] = reset($autre_langue);
+            }
+        }
+        else {
+            $row['lang'] = 'en';
+        }
+
+        if ($id_rubrique) {
+            $row['id_rubrique'] = $id_rubrique;
+
+            return $row;
+        }
+        $id_rubrique = $row['id_rubrique'];
+
+
+        // Regler la langue, si possible, sur celle du redacteur
+        // Cela implique souvent de choisir une rubrique ou un secteur
+        if (in_array($GLOBALS['spip_lang'], $langues_dispo)) {
+            // Si le menu de langues est autorise sur l'objet,
+            // on peut changer la langue quelle que soit la rubrique
+            // donc on reste dans la meme rubrique
+            if (in_array($table, explode(',', $GLOBALS['meta']['multi_objets']))) {
+                $row['id_rubrique'] = $row['id_rubrique']; # explicite :-)
+
+                // Sinon, chercher la rubrique la plus adaptee pour
+                // accueillir l'objet dans la langue du traducteur
+            } elseif ($is_rubrique and $GLOBALS['meta']['multi_rubriques'] == 'oui') {
+                if ($GLOBALS['meta']['multi_secteurs'] == 'oui') {
+                    $id_parent = 0;
+                } else {
+                    // on cherche une rubrique soeur dans la bonne langue
+                    $row_rub = sql_fetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+                    $id_parent = $row_rub['id_parent'];
+                }
+
+                $row_rub = sql_fetsel(
+                    'id_rubrique',
+                    'spip_rubriques',
+                    "lang='" . $GLOBALS['spip_lang'] . "' AND id_parent=" . intval($id_parent)
+                );
+                if ($row_rub) {
+                    $row['id_rubrique'] = $row_rub['id_rubrique'];
+                }
+            }
+        }
+    }
+
+    return $row;
 }

ecrire/base/trouver_table.php

Indentation +151 added lines, -151 removed lines

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