spip / SPIP

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/prepare_recherche.php

Indentation +142 added lines, -142 removed lines

@@ -17,12 +17,12 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/rechercher');
 if (!defined('_DELAI_CACHE_RESULTATS')) {
-	define('_DELAI_CACHE_RESULTATS', 600);
+    define('_DELAI_CACHE_RESULTATS', 600);
 }
 
 /**
@@ -49,129 +49,129 @@ 
  * @return array
  */
 function inc_prepare_recherche_dist(
-	$recherche,
-	$table = 'articles',
-	$cond = false,
-	$serveur = '',
-	$modificateurs = [],
-	$primary = ''
+    $recherche,
+    $table = 'articles',
+    $cond = false,
+    $serveur = '',
+    $modificateurs = [],
+    $primary = ''
 ) {
-	$where = null;
-	$rows = null;
-	static $cache = [];
-	$delai_fraicheur = min(
-		\_DELAI_CACHE_RESULTATS,
-		time() - ($GLOBALS['meta']['derniere_modif'] ?? 0)
-	);
-
-	// si recherche n'est pas dans le contexte, on va prendre en globals
-	// ca permet de faire des inclure simple.
-	if (!isset($recherche) and isset($GLOBALS['recherche'])) {
-		$recherche = $GLOBALS['recherche'];
-	}
-
-	// traiter le cas {recherche?}
-	if ($cond and !strlen($recherche)) {
-		return [
-			'0 as points' /* as points */, /* where */
-			''
-		];
-	}
-
-
-	$rechercher = false;
-
-	$where_resultat_recent = sql_date_proche('maj', (0 - ($delai_fraicheur + 100)), ' SECOND');
-	if (!isset($cache[$serveur][$table][$recherche])) {
-		$hash_serv = ($serveur ? substr(md5($serveur), 0, 16) : '');
-		$hash = substr(md5($recherche . $table), 0, 16);
-		$where = "(resultats.recherche='$hash' AND resultats.table_objet=" . sql_quote($table) . " AND resultats.serveur='$hash_serv')";
-		$row = sql_fetsel(
-			'recherche',
-			'spip_resultats AS resultats',
-			$where . " AND $where_resultat_recent",
-			'',
-			'',
-			'0,1'
-		);
-		if (
-			!$row
-			or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
-		) {
-			$rechercher = true;
-		}
-	}
-
-	// si on n'a pas encore traite les donnees dans une boucle precedente
-	if ($rechercher) {
-		//$tables = liste_des_champs();
-		$x = objet_type($table);
-		$points = recherche_en_base(
-			$recherche,
-			$x,
-			[
-				'score' => true,
-				'toutvoir' => true,
-				'jointures' => true
-			],
-			$serveur
-		);
-		// pas de résultat, pas de point
-		$points = $points[$x] ?? [];
-
-		// permettre aux plugins de modifier le resultat
-		$points = pipeline('prepare_recherche', [
-			'args' => [
-				'type' => $x,
-				'recherche' => $recherche,
-				'serveur' => $serveur,
-				'modificateurs' => $modificateurs
-			],
-			'data' => $points
-		]);
-
-		// supprimer les anciens resultats de cette recherche
-		// et les resultats trop vieux avec une marge
-		// pas de AS resultats dans un delete (mysql)
-		$whered = str_replace(
-			['resultats.recherche', 'resultats.table_objet', 'resultats.serveur'],
-			['recherche', 'table_objet', 'serveur'],
-			$where
-		);
-
-		sql_delete(
-			'spip_resultats',
-			"NOT($where_resultat_recent) OR ($whered)"
-		);
-
-		// inserer les resultats dans la table de cache des resultats
-		if (is_countable($points) ? count($points) : 0) {
-			$tab_couples = [];
-			foreach ($points as $id => $p) {
-				$tab_couples[] = [
-					'recherche' => $hash,
-					'id' => $id,
-					'points' => $p['score'],
-					'table_objet' => $table,
-					'serveur' => $hash_serv,
-				];
-			}
-			sql_insertq_multi('spip_resultats', $tab_couples, []);
-		}
-	}
-
-	if (!isset($cache[$serveur][$table][$recherche])) {
-		if (!$serveur) {
-			$cache[$serveur][$table][$recherche] = ['resultats.points AS points', $where];
-		} else {
-			if (sql_countsel('spip_resultats as resultats', $where)) {
-				$rows = sql_allfetsel('resultats.id,resultats.points', 'spip_resultats as resultats', $where);
-			}
-			$cache[$serveur][$table][$recherche] = generer_select_where_explicites($table, $primary, $rows, $serveur);
-		}
-	}
-
-	return $cache[$serveur][$table][$recherche];
+    $where = null;
+    $rows = null;
+    static $cache = [];
+    $delai_fraicheur = min(
+        \_DELAI_CACHE_RESULTATS,
+        time() - ($GLOBALS['meta']['derniere_modif'] ?? 0)
+    );
+
+    // si recherche n'est pas dans le contexte, on va prendre en globals
+    // ca permet de faire des inclure simple.
+    if (!isset($recherche) and isset($GLOBALS['recherche'])) {
+        $recherche = $GLOBALS['recherche'];
+    }
+
+    // traiter le cas {recherche?}
+    if ($cond and !strlen($recherche)) {
+        return [
+            '0 as points' /* as points */, /* where */
+            ''
+        ];
+    }
+
+
+    $rechercher = false;
+
+    $where_resultat_recent = sql_date_proche('maj', (0 - ($delai_fraicheur + 100)), ' SECOND');
+    if (!isset($cache[$serveur][$table][$recherche])) {
+        $hash_serv = ($serveur ? substr(md5($serveur), 0, 16) : '');
+        $hash = substr(md5($recherche . $table), 0, 16);
+        $where = "(resultats.recherche='$hash' AND resultats.table_objet=" . sql_quote($table) . " AND resultats.serveur='$hash_serv')";
+        $row = sql_fetsel(
+            'recherche',
+            'spip_resultats AS resultats',
+            $where . " AND $where_resultat_recent",
+            '',
+            '',
+            '0,1'
+        );
+        if (
+            !$row
+            or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
+        ) {
+            $rechercher = true;
+        }
+    }
+
+    // si on n'a pas encore traite les donnees dans une boucle precedente
+    if ($rechercher) {
+        //$tables = liste_des_champs();
+        $x = objet_type($table);
+        $points = recherche_en_base(
+            $recherche,
+            $x,
+            [
+                'score' => true,
+                'toutvoir' => true,
+                'jointures' => true
+            ],
+            $serveur
+        );
+        // pas de résultat, pas de point
+        $points = $points[$x] ?? [];
+
+        // permettre aux plugins de modifier le resultat
+        $points = pipeline('prepare_recherche', [
+            'args' => [
+                'type' => $x,
+                'recherche' => $recherche,
+                'serveur' => $serveur,
+                'modificateurs' => $modificateurs
+            ],
+            'data' => $points
+        ]);
+
+        // supprimer les anciens resultats de cette recherche
+        // et les resultats trop vieux avec une marge
+        // pas de AS resultats dans un delete (mysql)
+        $whered = str_replace(
+            ['resultats.recherche', 'resultats.table_objet', 'resultats.serveur'],
+            ['recherche', 'table_objet', 'serveur'],
+            $where
+        );
+
+        sql_delete(
+            'spip_resultats',
+            "NOT($where_resultat_recent) OR ($whered)"
+        );
+
+        // inserer les resultats dans la table de cache des resultats
+        if (is_countable($points) ? count($points) : 0) {
+            $tab_couples = [];
+            foreach ($points as $id => $p) {
+                $tab_couples[] = [
+                    'recherche' => $hash,
+                    'id' => $id,
+                    'points' => $p['score'],
+                    'table_objet' => $table,
+                    'serveur' => $hash_serv,
+                ];
+            }
+            sql_insertq_multi('spip_resultats', $tab_couples, []);
+        }
+    }
+
+    if (!isset($cache[$serveur][$table][$recherche])) {
+        if (!$serveur) {
+            $cache[$serveur][$table][$recherche] = ['resultats.points AS points', $where];
+        } else {
+            if (sql_countsel('spip_resultats as resultats', $where)) {
+                $rows = sql_allfetsel('resultats.id,resultats.points', 'spip_resultats as resultats', $where);
+            }
+            $cache[$serveur][$table][$recherche] = generer_select_where_explicites($table, $primary, $rows, $serveur);
+        }
+    }
+
+    return $cache[$serveur][$table][$recherche];
 }
 
 
@@ -187,22 +187,22 @@ 
  * @return array
  */
 function generer_select_where_explicites($table, $primary, $rows, $serveur) {
-	# calculer le {id_article IN()} et le {... as points}
-	if (!count($rows)) {
-		return ["''", '0=1'];
-	} else {
-		$listes_ids = [];
-		$select = '0';
-		foreach ($rows as $r) {
-			$listes_ids[$r['points']][] = $r['id'];
-		}
-
-		foreach ($listes_ids as $p => $ids) {
-			$select .= "+$p*(" .
-				sql_in("$table.$primary", $ids, '', $serveur)
-				. ') ';
-		}
-
-		return ["$select AS points ", sql_in("$table.$primary", array_map('reset', $rows), '', $serveur)];
-	}
+    # calculer le {id_article IN()} et le {... as points}
+    if (!count($rows)) {
+        return ["''", '0=1'];
+    } else {
+        $listes_ids = [];
+        $select = '0';
+        foreach ($rows as $r) {
+            $listes_ids[$r['points']][] = $r['id'];
+        }
+
+        foreach ($listes_ids as $p => $ids) {
+            $select .= "+$p*(" .
+                sql_in("$table.$primary", $ids, '', $serveur)
+                . ') ';
+        }
+
+        return ["$select AS points ", sql_in("$table.$primary", array_map('reset', $rows), '', $serveur)];
+    }
 }

ecrire/inc/log.php

Indentation +100 added lines, -100 removed lines

@@ -11,107 +11,107 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function inc_log_dist($message, $logname = null, $logdir = null, $logsuf = null) {
-	static $test_repertoire = [];
-	static $compteur = [];
-	static $debugverb = ''; // pour ne pas le recalculer au reappel
-
-	if (is_null($logname) or !is_string($logname)) {
-		$logname = defined('_FILE_LOG') ? _FILE_LOG : 'spip';
-	}
-	if (!isset($compteur[$logname])) {
-		$compteur[$logname] = 0;
-	}
-	if (
-		$logname != 'maj'
-		and defined('_MAX_LOG')
-		and (
-			$compteur[$logname]++ > _MAX_LOG
-			or !$GLOBALS['nombre_de_logs']
-			or !$GLOBALS['taille_des_logs']
-		)
-	) {
-		return;
-	}
-
-	$logfile = ($logdir ?? _DIR_LOG)
-		. ($logname)
-		. ($logsuf ?? _FILE_LOG_SUFFIX);
-
-	if (!isset($test_repertoire[$d = dirname($logfile)])) {
-		$test_repertoire[$d] = false; // eviter une recursivite en cas d'erreur de sous_repertoire
-		$test_repertoire[$d] = (@is_dir($d) ? true : (function_exists('sous_repertoire') ? sous_repertoire(
-			$d,
-			'',
-			false,
-			true
-		) : false));
-	}
-
-	// si spip_log() dans mes_options, ou repertoire log/ non present, poser dans tmp/
-	if (!defined('_DIR_LOG') or !$test_repertoire[$d]) {
-		$logfile = _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES . $logname . '.log';
-	}
-
-	$rotate = 0;
-	$pid = '(pid ' . @getmypid() . ')';
-
-	// accepter spip_log( Array )
-	if (!is_string($message)) {
-		$message = var_export($message, true);
-	}
-
-	if (!$debugverb and defined('_LOG_FILELINE') and _LOG_FILELINE) {
-		$debug = debug_backtrace();
-		$l = $debug[1]['line'];
-		$fi = $debug[1]['file'];
-		if (strncmp($fi, _ROOT_RACINE, strlen(_ROOT_RACINE)) == 0) {
-			$fi = substr($fi, strlen(_ROOT_RACINE));
-		}
-		$fu = $debug[2]['function'] ?? '';
-		$debugverb = "$fi:L$l:$fu" . '():';
-	}
-
-	$m = date('Y-m-d H:i:s') . ' ' . ($GLOBALS['ip'] ?? '') . ' ' . $pid . ' '
-		//distinguer les logs prives et publics dans les grep
-		. $debugverb
-		. (test_espace_prive() ? ':Pri:' : ':Pub:')
-		. preg_replace("/\n*$/", "\n", $message);
-
-
-	if (
-		@is_readable($logfile)
-		and (!$s = @filesize($logfile) or $s > $GLOBALS['taille_des_logs'] * 1024)
-	) {
-		$rotate = $GLOBALS['nombre_de_logs'];
-		$m .= "[-- rotate --]\n";
-	}
-
-	$f = @fopen($logfile, 'ab');
-	if ($f) {
-		fputs($f, (defined('_LOG_BRUT') and _LOG_BRUT) ? $m : str_replace('<', '&lt;', $m));
-		fclose($f);
-	}
-
-	if (
-		$rotate-- > 0
-		and function_exists('spip_unlink')
-	) {
-		spip_unlink($logfile . '.' . $rotate);
-		while ($rotate--) {
-			@rename($logfile . ($rotate ? '.' . $rotate : ''), $logfile . '.' . ($rotate + 1));
-		}
-	}
-
-	// Dupliquer les erreurs specifiques dans le log general
-	if (
-		defined('_FILE_LOG')
-		and ($logname !== _FILE_LOG)
-	) {
-		inc_log_dist($logname == 'maj' ? 'cf maj.log' : $message);
-	}
-	$debugverb = '';
+    static $test_repertoire = [];
+    static $compteur = [];
+    static $debugverb = ''; // pour ne pas le recalculer au reappel
+
+    if (is_null($logname) or !is_string($logname)) {
+        $logname = defined('_FILE_LOG') ? _FILE_LOG : 'spip';
+    }
+    if (!isset($compteur[$logname])) {
+        $compteur[$logname] = 0;
+    }
+    if (
+        $logname != 'maj'
+        and defined('_MAX_LOG')
+        and (
+            $compteur[$logname]++ > _MAX_LOG
+            or !$GLOBALS['nombre_de_logs']
+            or !$GLOBALS['taille_des_logs']
+        )
+    ) {
+        return;
+    }
+
+    $logfile = ($logdir ?? _DIR_LOG)
+        . ($logname)
+        . ($logsuf ?? _FILE_LOG_SUFFIX);
+
+    if (!isset($test_repertoire[$d = dirname($logfile)])) {
+        $test_repertoire[$d] = false; // eviter une recursivite en cas d'erreur de sous_repertoire
+        $test_repertoire[$d] = (@is_dir($d) ? true : (function_exists('sous_repertoire') ? sous_repertoire(
+            $d,
+            '',
+            false,
+            true
+        ) : false));
+    }
+
+    // si spip_log() dans mes_options, ou repertoire log/ non present, poser dans tmp/
+    if (!defined('_DIR_LOG') or !$test_repertoire[$d]) {
+        $logfile = _DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES . $logname . '.log';
+    }
+
+    $rotate = 0;
+    $pid = '(pid ' . @getmypid() . ')';
+
+    // accepter spip_log( Array )
+    if (!is_string($message)) {
+        $message = var_export($message, true);
+    }
+
+    if (!$debugverb and defined('_LOG_FILELINE') and _LOG_FILELINE) {
+        $debug = debug_backtrace();
+        $l = $debug[1]['line'];
+        $fi = $debug[1]['file'];
+        if (strncmp($fi, _ROOT_RACINE, strlen(_ROOT_RACINE)) == 0) {
+            $fi = substr($fi, strlen(_ROOT_RACINE));
+        }
+        $fu = $debug[2]['function'] ?? '';
+        $debugverb = "$fi:L$l:$fu" . '():';
+    }
+
+    $m = date('Y-m-d H:i:s') . ' ' . ($GLOBALS['ip'] ?? '') . ' ' . $pid . ' '
+        //distinguer les logs prives et publics dans les grep
+        . $debugverb
+        . (test_espace_prive() ? ':Pri:' : ':Pub:')
+        . preg_replace("/\n*$/", "\n", $message);
+
+
+    if (
+        @is_readable($logfile)
+        and (!$s = @filesize($logfile) or $s > $GLOBALS['taille_des_logs'] * 1024)
+    ) {
+        $rotate = $GLOBALS['nombre_de_logs'];
+        $m .= "[-- rotate --]\n";
+    }
+
+    $f = @fopen($logfile, 'ab');
+    if ($f) {
+        fputs($f, (defined('_LOG_BRUT') and _LOG_BRUT) ? $m : str_replace('<', '&lt;', $m));
+        fclose($f);
+    }
+
+    if (
+        $rotate-- > 0
+        and function_exists('spip_unlink')
+    ) {
+        spip_unlink($logfile . '.' . $rotate);
+        while ($rotate--) {
+            @rename($logfile . ($rotate ? '.' . $rotate : ''), $logfile . '.' . ($rotate + 1));
+        }
+    }
+
+    // Dupliquer les erreurs specifiques dans le log general
+    if (
+        defined('_FILE_LOG')
+        and ($logname !== _FILE_LOG)
+    ) {
+        inc_log_dist($logname == 'maj' ? 'cf maj.log' : $message);
+    }
+    $debugverb = '';
 }

ecrire/inc/envoyer_mail.php

Indentation +150 added lines, -150 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Mail
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/charsets');
@@ -32,7 +32,7 @@ 
  * @return string
  */
 function nettoyer_titre_email($titre) {
-	return str_replace("\n", ' ', nettoyer_caracteres_mail(textebrut(corriger_typo($titre))));
+    return str_replace("\n", ' ', nettoyer_caracteres_mail(textebrut(corriger_typo($titre))));
 }
 
 /**
@@ -48,23 +48,23 @@ 
  */
 function nettoyer_caracteres_mail($t) {
 
-	$t = filtrer_entites($t);
+    $t = filtrer_entites($t);
 
-	if ($GLOBALS['meta']['charset'] <> 'utf-8') {
-		$t = str_replace(
-			['&#8217;', '&#8220;', '&#8221;'],
-			["'", '"', '"'],
-			$t
-		);
-	}
+    if ($GLOBALS['meta']['charset'] <> 'utf-8') {
+        $t = str_replace(
+            ['&#8217;', '&#8220;', '&#8221;'],
+            ["'", '"', '"'],
+            $t
+        );
+    }
 
-	$t = str_replace(
-		['&mdash;', '&endash;'],
-		['--', '-'],
-		$t
-	);
+    $t = str_replace(
+        ['&mdash;', '&endash;'],
+        ['--', '-'],
+        $t
+    );
 
-	return $t;
+    return $t;
 }
 
 /**
@@ -97,86 +97,86 @@ 
  */
 function inc_envoyer_mail_dist($destinataire, $sujet, $corps, $from = '', $headers = '') {
 
-	if (!email_valide($destinataire)) {
-		return false;
-	}
-	if ($destinataire == _T('info_mail_fournisseur')) {
-		return false;
-	} // tres fort
-
-	// Fournir si possible un Message-Id: conforme au RFC1036,
-	// sinon SpamAssassin denoncera un MSGID_FROM_MTA_HEADER
-
-	$email_envoi = $GLOBALS['meta']['email_envoi'];
-	if (!email_valide($email_envoi)) {
-		spip_log('Meta email_envoi invalide. Le mail sera probablement vu comme spam.');
-		$email_envoi = $destinataire;
-	}
-
-	$parts = '';
-	if (is_array($corps)) {
-		$texte = $corps['texte'];
-		$from = ($corps['from'] ?? $from);
-		$headers = ($corps['headers'] ?? $headers);
-		if (is_array($headers)) {
-			$headers = implode("\n", $headers);
-		}
-		if (isset($corps['pieces_jointes']) and function_exists('mail_embarquer_pieces_jointes')) {
-			$parts = mail_embarquer_pieces_jointes($corps['pieces_jointes']);
-		}
-	} else {
-		$texte = $corps;
-	}
-
-	if (!$from) {
-		$from = $email_envoi;
-	}
-
-	// ceci est la RegExp NO_REAL_NAME faisant hurler SpamAssassin
-	if (preg_match('/^["\s]*\<?\S+\@\S+\>?\s*$/', $from)) {
-		$from .= ' (' . str_replace(')', '', translitteration(str_replace('@', ' at ', $from))) . ')';
-	}
-
-	// nettoyer les &eacute; &#8217, &emdash; etc...
-	// les 'cliquer ici' etc sont a eviter;  voir:
-	// http://mta.org.ua/spamassassin-2.55/stuff/wiki.CustomRulesets/20050914/rules/french_rules.cf
-	$texte = nettoyer_caracteres_mail($texte);
-	$sujet = nettoyer_caracteres_mail($sujet);
-
-	// encoder le sujet si possible selon la RFC
-	if (init_mb_string()) {
-		# un bug de mb_string casse mb_encode_mimeheader si l'encoding interne
-		# est UTF-8 et le charset iso-8859-1 (constate php5-mac ; php4.3-debian)
-		$charset = $GLOBALS['meta']['charset'];
-		mb_internal_encoding($charset);
-		$sujet = mb_encode_mimeheader($sujet, $charset, 'Q', "\n");
-		mb_internal_encoding('utf-8');
-	}
-
-	if (function_exists('wordwrap') && (preg_match(',multipart/mixed,', $headers) == 0)) {
-		$texte = wordwrap($texte);
-	}
-
-	[$headers, $texte] = mail_normaliser_headers($headers, $from, $destinataire, $texte, $parts);
-
-	if (_OS_SERVEUR == 'windows') {
-		$texte = preg_replace("@\r*\n@", "\r\n", $texte);
-		$headers = preg_replace("@\r*\n@", "\r\n", $headers);
-		$sujet = preg_replace("@\r*\n@", "\r\n", $sujet);
-	}
-
-	spip_log("mail $destinataire\n$sujet\n$headers", 'mails');
-	// mode TEST : forcer l'email
-	if (defined('_TEST_EMAIL_DEST')) {
-		if (!_TEST_EMAIL_DEST) {
-			return false;
-		} else {
-			$texte = "Dest : $destinataire\r\n" . $texte;
-			$destinataire = _TEST_EMAIL_DEST;
-		}
-	}
-
-	return @mail($destinataire, $sujet, $texte, $headers);
+    if (!email_valide($destinataire)) {
+        return false;
+    }
+    if ($destinataire == _T('info_mail_fournisseur')) {
+        return false;
+    } // tres fort
+
+    // Fournir si possible un Message-Id: conforme au RFC1036,
+    // sinon SpamAssassin denoncera un MSGID_FROM_MTA_HEADER
+
+    $email_envoi = $GLOBALS['meta']['email_envoi'];
+    if (!email_valide($email_envoi)) {
+        spip_log('Meta email_envoi invalide. Le mail sera probablement vu comme spam.');
+        $email_envoi = $destinataire;
+    }
+
+    $parts = '';
+    if (is_array($corps)) {
+        $texte = $corps['texte'];
+        $from = ($corps['from'] ?? $from);
+        $headers = ($corps['headers'] ?? $headers);
+        if (is_array($headers)) {
+            $headers = implode("\n", $headers);
+        }
+        if (isset($corps['pieces_jointes']) and function_exists('mail_embarquer_pieces_jointes')) {
+            $parts = mail_embarquer_pieces_jointes($corps['pieces_jointes']);
+        }
+    } else {
+        $texte = $corps;
+    }
+
+    if (!$from) {
+        $from = $email_envoi;
+    }
+
+    // ceci est la RegExp NO_REAL_NAME faisant hurler SpamAssassin
+    if (preg_match('/^["\s]*\<?\S+\@\S+\>?\s*$/', $from)) {
+        $from .= ' (' . str_replace(')', '', translitteration(str_replace('@', ' at ', $from))) . ')';
+    }
+
+    // nettoyer les &eacute; &#8217, &emdash; etc...
+    // les 'cliquer ici' etc sont a eviter;  voir:
+    // http://mta.org.ua/spamassassin-2.55/stuff/wiki.CustomRulesets/20050914/rules/french_rules.cf
+    $texte = nettoyer_caracteres_mail($texte);
+    $sujet = nettoyer_caracteres_mail($sujet);
+
+    // encoder le sujet si possible selon la RFC
+    if (init_mb_string()) {
+        # un bug de mb_string casse mb_encode_mimeheader si l'encoding interne
+        # est UTF-8 et le charset iso-8859-1 (constate php5-mac ; php4.3-debian)
+        $charset = $GLOBALS['meta']['charset'];
+        mb_internal_encoding($charset);
+        $sujet = mb_encode_mimeheader($sujet, $charset, 'Q', "\n");
+        mb_internal_encoding('utf-8');
+    }
+
+    if (function_exists('wordwrap') && (preg_match(',multipart/mixed,', $headers) == 0)) {
+        $texte = wordwrap($texte);
+    }
+
+    [$headers, $texte] = mail_normaliser_headers($headers, $from, $destinataire, $texte, $parts);
+
+    if (_OS_SERVEUR == 'windows') {
+        $texte = preg_replace("@\r*\n@", "\r\n", $texte);
+        $headers = preg_replace("@\r*\n@", "\r\n", $headers);
+        $sujet = preg_replace("@\r*\n@", "\r\n", $sujet);
+    }
+
+    spip_log("mail $destinataire\n$sujet\n$headers", 'mails');
+    // mode TEST : forcer l'email
+    if (defined('_TEST_EMAIL_DEST')) {
+        if (!_TEST_EMAIL_DEST) {
+            return false;
+        } else {
+            $texte = "Dest : $destinataire\r\n" . $texte;
+            $destinataire = _TEST_EMAIL_DEST;
+        }
+    }
+
+    return @mail($destinataire, $sujet, $texte, $headers);
 }
 
 /**
@@ -190,58 +190,58 @@ 
  * @return array
  */
 function mail_normaliser_headers($headers, $from, $to, $texte, $parts = '') {
-	$charset = $GLOBALS['meta']['charset'];
-
-	// Ajouter le Content-Type et consort s'il n'y est pas deja
-	if (strpos($headers, 'Content-Type: ') === false) {
-		$type =
-			"Content-Type: text/plain;charset=\"$charset\";\n" .
-			"Content-Transfer-Encoding: 8bit\n";
-	} else {
-		$type = '';
-	}
-
-	// calculer un identifiant unique
-	// Marie Toto <Marie@toto.com> => @toto.com
-	if (preg_match('/@[^\s>]+/', $from, $domain)) {
-		$domain = $domain[0];
-	}
-	else {
-		$domain = '@unknown-' . md5($from) . '.org';
-	}
-	$uniq = random_int(0, mt_getrandmax()) . '_' . md5($to . $texte) . $domain;
-
-	// Si multi-part, s'en servir comme borne ...
-	if ($parts) {
-		$texte = "--$uniq\n$type\n" . $texte . "\n";
-		foreach ($parts as $part) {
-			$n = strlen($part[1]) . ($part[0] ? "\n" : '');
-			$e = join("\n", $part[0]);
-			$texte .= "\n--$uniq\nContent-Length: $n$e\n\n" . $part[1];
-		}
-		$texte .= "\n\n--$uniq--\n";
-		// Si boundary n'est pas entre guillemets,
-		// elle est comprise mais le charset est ignoree !
-		$type = "Content-Type: multipart/mixed; boundary=\"$uniq\"\n";
-	}
-
-	// .. et s'en servir pour plaire a SpamAssassin
-
-	$mid = 'Message-Id: <' . $uniq . '>';
-
-	// indispensable pour les sites qui collent d'office From: serveur-http
-	// sauf si deja mis par l'envoyeur
-	$rep = (strpos($headers, 'Reply-To:') !== false) ? '' : "Reply-To: $from\n";
-
-	// Nettoyer les en-tetes envoyees
-	// Ajouter le \n final
-	if (strlen($headers = trim($headers))) {
-		$headers .= "\n";
-	}
-
-	// Et mentionner l'indeboulonable nomenclature ratee
-
-	$headers .= "From: $from\n$type$rep$mid\nMIME-Version: 1.0\n";
-
-	return [$headers, $texte];
+    $charset = $GLOBALS['meta']['charset'];
+
+    // Ajouter le Content-Type et consort s'il n'y est pas deja
+    if (strpos($headers, 'Content-Type: ') === false) {
+        $type =
+            "Content-Type: text/plain;charset=\"$charset\";\n" .
+            "Content-Transfer-Encoding: 8bit\n";
+    } else {
+        $type = '';
+    }
+
+    // calculer un identifiant unique
+    // Marie Toto <Marie@toto.com> => @toto.com
+    if (preg_match('/@[^\s>]+/', $from, $domain)) {
+        $domain = $domain[0];
+    }
+    else {
+        $domain = '@unknown-' . md5($from) . '.org';
+    }
+    $uniq = random_int(0, mt_getrandmax()) . '_' . md5($to . $texte) . $domain;
+
+    // Si multi-part, s'en servir comme borne ...
+    if ($parts) {
+        $texte = "--$uniq\n$type\n" . $texte . "\n";
+        foreach ($parts as $part) {
+            $n = strlen($part[1]) . ($part[0] ? "\n" : '');
+            $e = join("\n", $part[0]);
+            $texte .= "\n--$uniq\nContent-Length: $n$e\n\n" . $part[1];
+        }
+        $texte .= "\n\n--$uniq--\n";
+        // Si boundary n'est pas entre guillemets,
+        // elle est comprise mais le charset est ignoree !
+        $type = "Content-Type: multipart/mixed; boundary=\"$uniq\"\n";
+    }
+
+    // .. et s'en servir pour plaire a SpamAssassin
+
+    $mid = 'Message-Id: <' . $uniq . '>';
+
+    // indispensable pour les sites qui collent d'office From: serveur-http
+    // sauf si deja mis par l'envoyeur
+    $rep = (strpos($headers, 'Reply-To:') !== false) ? '' : "Reply-To: $from\n";
+
+    // Nettoyer les en-tetes envoyees
+    // Ajouter le \n final
+    if (strlen($headers = trim($headers))) {
+        $headers .= "\n";
+    }
+
+    // Et mentionner l'indeboulonable nomenclature ratee
+
+    $headers .= "From: $from\n$type$rep$mid\nMIME-Version: 1.0\n";
+
+    return [$headers, $texte];
 }

ecrire/inc/lang.php

Indentation +252 added lines, -252 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Langue
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -39,36 +39,36 @@ 
  **/
 function changer_langue($lang, $liste_langues = null) {
 
-	if (is_null($liste_langues)) {
-		$liste_langues = @$GLOBALS['meta']['langues_proposees'] . ',' . @$GLOBALS['meta']['langues_multilingue'];
-	}
-	else {
-		if (is_array($liste_langues)) {
-			$liste_langues = implode(',', $liste_langues);
-		}
-	}
-	$liste_langues = ',' . $liste_langues . ',';
-
-	// Si la langue demandee n'existe pas, on essaie d'autres variantes
-	// Exemple : 'pt-br' => 'pt_br' => 'pt'
-	$lang = str_replace('-', '_', trim($lang));
-	if (!$lang) {
-		return false;
-	}
-
-	if (
-		strpos($liste_langues, (string) ",$lang,") !== false
-		or ($lang = preg_replace(',_.*,', '', $lang)
-			and strpos($liste_langues, (string) ",$lang,") !== false)
-	) {
-		$GLOBALS['spip_lang_rtl'] = lang_dir($lang, '', '_rtl');
-		$GLOBALS['spip_lang_right'] = $GLOBALS['spip_lang_rtl'] ? 'left' : 'right';
-		$GLOBALS['spip_lang_left'] = $GLOBALS['spip_lang_rtl'] ? 'right' : 'left';
-
-		return $GLOBALS['spip_lang'] = $lang;
-	} else {
-		return false;
-	}
+    if (is_null($liste_langues)) {
+        $liste_langues = @$GLOBALS['meta']['langues_proposees'] . ',' . @$GLOBALS['meta']['langues_multilingue'];
+    }
+    else {
+        if (is_array($liste_langues)) {
+            $liste_langues = implode(',', $liste_langues);
+        }
+    }
+    $liste_langues = ',' . $liste_langues . ',';
+
+    // Si la langue demandee n'existe pas, on essaie d'autres variantes
+    // Exemple : 'pt-br' => 'pt_br' => 'pt'
+    $lang = str_replace('-', '_', trim($lang));
+    if (!$lang) {
+        return false;
+    }
+
+    if (
+        strpos($liste_langues, (string) ",$lang,") !== false
+        or ($lang = preg_replace(',_.*,', '', $lang)
+            and strpos($liste_langues, (string) ",$lang,") !== false)
+    ) {
+        $GLOBALS['spip_lang_rtl'] = lang_dir($lang, '', '_rtl');
+        $GLOBALS['spip_lang_right'] = $GLOBALS['spip_lang_rtl'] ? 'left' : 'right';
+        $GLOBALS['spip_lang_left'] = $GLOBALS['spip_lang_rtl'] ? 'right' : 'left';
+
+        return $GLOBALS['spip_lang'] = $lang;
+    } else {
+        return false;
+    }
 }
 
 //
@@ -81,9 +81,9 @@ 
 // par exemple le francais pour l'espagnol, l'anglais pour l'allemand, etc.
 
 function choisir_traduction($trads, $lang = '') {
-	$k = approcher_langue($trads, $lang);
+    $k = approcher_langue($trads, $lang);
 
-	return $k ? $trads[$k] : array_shift($trads);
+    return $k ? $trads[$k] : array_shift($trads);
 }
 
 // retourne son 2e argument si c'est un index du premier
@@ -91,21 +91,21 @@ 
 // la langue X etant consideree comme une approche de X_Y
 function approcher_langue($trads, $lang = '') {
 
-	if (!$lang) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	if (isset($trads[$lang])) {
-		return $lang;
-	} // cas des langues xx_yy
-	else {
-		$r = explode('_', $lang);
-		if (isset($trads[$r[0]])) {
-			return $r[0];
-		}
-	}
-
-	return '';
+    if (!$lang) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    if (isset($trads[$lang])) {
+        return $lang;
+    } // cas des langues xx_yy
+    else {
+        $r = explode('_', $lang);
+        if (isset($trads[$r[0]])) {
+            return $r[0];
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -120,10 +120,10 @@ 
  *     Nom de la langue, sinon son code.
  **/
 function traduire_nom_langue($lang) {
-	include_spip('inc/lang_liste');
-	include_spip('inc/charsets');
+    include_spip('inc/lang_liste');
+    include_spip('inc/charsets');
 
-	return html2unicode($GLOBALS['codes_langues'][$lang] ?? $lang);
+    return html2unicode($GLOBALS['codes_langues'][$lang] ?? $lang);
 }
 
 //
@@ -137,10 +137,10 @@ 
 // C'est utilise par #LANG_DIR, #LANG_LEFT, #LANG_RIGHT.
 // https://code.spip.net/@lang_dir
 function lang_dir($lang = '', $droitier = 'ltr', $gaucher = 'rtl') {
-	static $lang_rtl = ['ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi'];
+    static $lang_rtl = ['ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi'];
 
-	return in_array(($lang ?: $GLOBALS['spip_lang']), $lang_rtl) ?
-		$gaucher : $droitier;
+    return in_array(($lang ?: $GLOBALS['spip_lang']), $lang_rtl) ?
+        $gaucher : $droitier;
 }
 
 // typo francaise ou anglaise ?
@@ -150,30 +150,30 @@ 
 
 // https://code.spip.net/@lang_typo
 function lang_typo($lang = '') {
-	if (!$lang) {
-		$lang = $GLOBALS['lang_objet'] ?? $GLOBALS['spip_lang'];
-	}
-	if (
-		$lang == 'eo'
-		or $lang == 'fr'
-		or strncmp($lang, 'fr_', 3) == 0
-		or $lang == 'cpf'
-	) {
-		return 'fr';
-	} else {
-		return 'en';
-	}
+    if (!$lang) {
+        $lang = $GLOBALS['lang_objet'] ?? $GLOBALS['spip_lang'];
+    }
+    if (
+        $lang == 'eo'
+        or $lang == 'fr'
+        or strncmp($lang, 'fr_', 3) == 0
+        or $lang == 'cpf'
+    ) {
+        return 'fr';
+    } else {
+        return 'en';
+    }
 }
 
 // gestion de la globale $lang_objet pour que les textes soient affiches
 // avec les memes typo et direction dans l'espace prive que dans le public
 // https://code.spip.net/@changer_typo
 function changer_typo($lang = '') {
-	if ($lang) {
-		$GLOBALS['lang_objet'] = $lang;
-	} else {
-		unset($GLOBALS['lang_objet']);
-	}
+    if ($lang) {
+        $GLOBALS['lang_objet'] = $lang;
+    } else {
+        unset($GLOBALS['lang_objet']);
+    }
 }
 
 //
@@ -184,59 +184,59 @@ 
 //
 // https://code.spip.net/@menu_langues
 function menu_langues($nom_select, $default = '') {
-	include_spip('inc/actions');
-
-	$langues = liste_options_langues($nom_select);
-	$ret = '';
-	if (!count($langues)) {
-		return '';
-	}
-
-	if (!$default) {
-		$default = $GLOBALS['spip_lang'];
-	}
-	foreach ($langues as $l) {
-		$selected = ($l == $default) ? ' selected=\'selected\'' : '';
-		$ret .= "<option value='$l'$selected>[" . $l . '] ' . traduire_nom_langue($l) . "</option>\n";
-	}
-
-	if (!test_espace_prive()) {
-		$cible = self();
-		$base = '';
-	} else {
-		$cible = self();
-		$base = spip_connect() ? 'base' : '';
-	}
-
-	$change = ' onchange="this.parentNode.parentNode.submit()"';
-
-	return generer_action_auteur(
-		'converser',
-		$base,
-		$cible,
-		(select_langues($nom_select, $change, $ret)
-			. "<noscript><div style='display:inline'><input type='submit' class='fondo' value='" . _T('bouton_changer') . "' /></div></noscript>"),
-		" method='post'"
-	);
+    include_spip('inc/actions');
+
+    $langues = liste_options_langues($nom_select);
+    $ret = '';
+    if (!count($langues)) {
+        return '';
+    }
+
+    if (!$default) {
+        $default = $GLOBALS['spip_lang'];
+    }
+    foreach ($langues as $l) {
+        $selected = ($l == $default) ? ' selected=\'selected\'' : '';
+        $ret .= "<option value='$l'$selected>[" . $l . '] ' . traduire_nom_langue($l) . "</option>\n";
+    }
+
+    if (!test_espace_prive()) {
+        $cible = self();
+        $base = '';
+    } else {
+        $cible = self();
+        $base = spip_connect() ? 'base' : '';
+    }
+
+    $change = ' onchange="this.parentNode.parentNode.submit()"';
+
+    return generer_action_auteur(
+        'converser',
+        $base,
+        $cible,
+        (select_langues($nom_select, $change, $ret)
+            . "<noscript><div style='display:inline'><input type='submit' class='fondo' value='" . _T('bouton_changer') . "' /></div></noscript>"),
+        " method='post'"
+    );
 }
 
 // https://code.spip.net/@select_langues
 function select_langues($nom_select, $change, $options, $label = '') {
-	static $cpt = 0;
-	$id = 'menu_langues' . $cpt++;
-
-	return
-		"<label for='$id'>" . ($label ?: _T('info_langues')) . '</label> ' .
-		"<select name='$nom_select' id='$id' "
-		. ((!test_espace_prive()) ?
-			("class='forml menu_langues'") :
-			(($nom_select == 'var_lang_ecrire') ?
-				("class='lang_ecrire'") :
-				"class='fondl'"))
-		. $change
-		. ">\n"
-		. $options
-		. '</select>';
+    static $cpt = 0;
+    $id = 'menu_langues' . $cpt++;
+
+    return
+        "<label for='$id'>" . ($label ?: _T('info_langues')) . '</label> ' .
+        "<select name='$nom_select' id='$id' "
+        . ((!test_espace_prive()) ?
+            ("class='forml menu_langues'") :
+            (($nom_select == 'var_lang_ecrire') ?
+                ("class='lang_ecrire'") :
+                "class='fondl'"))
+        . $change
+        . ">\n"
+        . $options
+        . '</select>';
 }
 
 /**
@@ -258,34 +258,34 @@ 
  */
 function liste_options_langues($nom_select) {
 
-	switch ($nom_select) {
-		# #MENU_LANG
-		case 'var_lang':
-			# menu de changement de la langue d'un article
-			# les langues selectionnees dans la configuration "multilinguisme"
-		case 'changer_lang':
-			$langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
-			break;
-		# menu de l'interface (privee, installation et panneau de login)
-		# les langues presentes sous forme de fichiers de langue
-		# on force la relecture du repertoire des langues pour etre synchrone.
-		case 'var_lang_ecrire':
-		default:
-			$GLOBALS['meta']['langues_proposees'] = '';
-			init_langues();
-			$langues = explode(',', $GLOBALS['meta']['langues_proposees']);
-			break;
+    switch ($nom_select) {
+        # #MENU_LANG
+        case 'var_lang':
+            # menu de changement de la langue d'un article
+            # les langues selectionnees dans la configuration "multilinguisme"
+        case 'changer_lang':
+            $langues = explode(',', $GLOBALS['meta']['langues_multilingue']);
+            break;
+        # menu de l'interface (privee, installation et panneau de login)
+        # les langues presentes sous forme de fichiers de langue
+        # on force la relecture du repertoire des langues pour etre synchrone.
+        case 'var_lang_ecrire':
+        default:
+            $GLOBALS['meta']['langues_proposees'] = '';
+            init_langues();
+            $langues = explode(',', $GLOBALS['meta']['langues_proposees']);
+            break;
 
 # dernier choix possible : toutes les langues = langues_proposees
 # + langues_multilingues ; mais, ne sert pas
 #			$langues = explode(',', $GLOBALS['all_langs']);
-	}
-	if (count($langues) <= 1) {
-		return [];
-	}
-	sort($langues);
+    }
+    if (count($langues) <= 1) {
+        return [];
+    }
+    sort($langues);
 
-	return $langues;
+    return $langues;
 }
 
 
@@ -300,39 +300,39 @@ 
  **/
 function verifier_lang_url() {
 
-	// quelle langue est demandee ?
-	$lang_demandee = (test_espace_prive() ? $GLOBALS['spip_lang'] : $GLOBALS['meta']['langue_site']);
-	if (isset($_COOKIE['spip_lang_ecrire'])) {
-		$lang_demandee = $_COOKIE['spip_lang_ecrire'];
-	}
-	if (!test_espace_prive() and isset($_COOKIE['spip_lang'])) {
-		$lang_demandee = $_COOKIE['spip_lang'];
-	}
-	if (isset($_GET['lang'])) {
-		$lang_demandee = $_GET['lang'];
-	}
-
-	// Renvoyer si besoin (et si la langue demandee existe)
-	if (
-		$GLOBALS['spip_lang'] != $lang_demandee
-		and changer_langue($lang_demandee)
-		and $lang_demandee != @$_GET['lang']
-	) {
-		$destination = parametre_url(self(), 'lang', $lang_demandee, '&');
-		// ici on a besoin des var_truc
-		foreach ($_GET as $var => $val) {
-			if (!strncmp('var_', $var, 4)) {
-				$destination = parametre_url($destination, $var, $val, '&');
-			}
-		}
-		include_spip('inc/headers');
-		redirige_par_entete($destination);
-	}
-
-	// Subtilite : si la langue demandee par cookie est la bonne
-	// alors on fait comme si $lang etait passee dans l'URL
-	// (pour criteres {lang}).
-	$GLOBALS['lang'] = $_GET['lang'] = $GLOBALS['spip_lang'];
+    // quelle langue est demandee ?
+    $lang_demandee = (test_espace_prive() ? $GLOBALS['spip_lang'] : $GLOBALS['meta']['langue_site']);
+    if (isset($_COOKIE['spip_lang_ecrire'])) {
+        $lang_demandee = $_COOKIE['spip_lang_ecrire'];
+    }
+    if (!test_espace_prive() and isset($_COOKIE['spip_lang'])) {
+        $lang_demandee = $_COOKIE['spip_lang'];
+    }
+    if (isset($_GET['lang'])) {
+        $lang_demandee = $_GET['lang'];
+    }
+
+    // Renvoyer si besoin (et si la langue demandee existe)
+    if (
+        $GLOBALS['spip_lang'] != $lang_demandee
+        and changer_langue($lang_demandee)
+        and $lang_demandee != @$_GET['lang']
+    ) {
+        $destination = parametre_url(self(), 'lang', $lang_demandee, '&');
+        // ici on a besoin des var_truc
+        foreach ($_GET as $var => $val) {
+            if (!strncmp('var_', $var, 4)) {
+                $destination = parametre_url($destination, $var, $val, '&');
+            }
+        }
+        include_spip('inc/headers');
+        redirige_par_entete($destination);
+    }
+
+    // Subtilite : si la langue demandee par cookie est la bonne
+    // alors on fait comme si $lang etait passee dans l'URL
+    // (pour criteres {lang}).
+    $GLOBALS['lang'] = $_GET['lang'] = $GLOBALS['spip_lang'];
 }
 
 
@@ -350,22 +350,22 @@ 
  *     La langue sélectionnée
  **/
 function utiliser_langue_site($liste_langues = null) {
-	// s'il existe une langue du site (en gros tout le temps en théorie)
-	if (
-		isset($GLOBALS['meta']['langue_site'])
-		// et si spip_langue est pas encore définie (ce que va faire changer_langue())
-		// ou qu'elle n'est pas identique à la langue du site
-		and (!isset($GLOBALS['spip_lang'])
-			or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
-	) {
-		return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues);//@:install
-	}
-	// en theorie là, la globale est définie, sinon c'est un problème.
-	if (!isset($GLOBALS['spip_lang'])) {
-		spip_log('La globale spip_lang est indéfinie dans utiliser_langue_site() !', _LOG_ERREUR);
-	}
-
-	return $GLOBALS['spip_lang'];
+    // s'il existe une langue du site (en gros tout le temps en théorie)
+    if (
+        isset($GLOBALS['meta']['langue_site'])
+        // et si spip_langue est pas encore définie (ce que va faire changer_langue())
+        // ou qu'elle n'est pas identique à la langue du site
+        and (!isset($GLOBALS['spip_lang'])
+            or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
+    ) {
+        return changer_langue($GLOBALS['meta']['langue_site'], $liste_langues);//@:install
+    }
+    // en theorie là, la globale est définie, sinon c'est un problème.
+    if (!isset($GLOBALS['spip_lang'])) {
+        spip_log('La globale spip_lang est indéfinie dans utiliser_langue_site() !', _LOG_ERREUR);
+    }
+
+    return $GLOBALS['spip_lang'];
 }
 
 /**
@@ -384,30 +384,30 @@ 
  **/
 function utiliser_langue_visiteur($liste_langues = null) {
 
-	$l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
-	if (isset($_COOKIE[$l])) {
-		if (changer_langue($l = $_COOKIE[$l], $liste_langues)) {
-			return $l;
-		}
-	}
-
-	if (isset($GLOBALS['visiteur_session']['lang'])) {
-		if (changer_langue($l = $GLOBALS['visiteur_session']['lang'], $liste_langues)) {
-			return $l;
-		}
-	}
-
-	if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
-		foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s) {
-			if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
-				if (changer_langue($l = strtolower($r[1]), $liste_langues)) {
-					return $l;
-				}
-			}
-		}
-	}
-
-	return utiliser_langue_site($liste_langues);
+    $l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
+    if (isset($_COOKIE[$l])) {
+        if (changer_langue($l = $_COOKIE[$l], $liste_langues)) {
+            return $l;
+        }
+    }
+
+    if (isset($GLOBALS['visiteur_session']['lang'])) {
+        if (changer_langue($l = $GLOBALS['visiteur_session']['lang'], $liste_langues)) {
+            return $l;
+        }
+    }
+
+    if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
+        foreach (explode(',', $_SERVER['HTTP_ACCEPT_LANGUAGE']) as $s) {
+            if (preg_match('#^([a-z]{2,3})(-[a-z]{2,3})?(;q=[0-9.]+)?$#i', trim($s), $r)) {
+                if (changer_langue($l = strtolower($r[1]), $liste_langues)) {
+                    return $l;
+                }
+            }
+        }
+    }
+
+    return utiliser_langue_site($liste_langues);
 }
 
 
@@ -417,7 +417,7 @@ 
  * @return int
  */
 function match_langue($chaine) {
-	return preg_match('/^[a-z]{2,3}(_[a-z]{2,3}){0,2}$/', $chaine);
+    return preg_match('/^[a-z]{2,3}(_[a-z]{2,3}){0,2}$/', $chaine);
 }
 
 /**
@@ -435,36 +435,36 @@ 
  **/
 function init_langues() {
 
-	// liste des langues dans les meta, sauf a l'install
-	$all_langs = @$GLOBALS['meta']['langues_proposees'];
-
-	$tout = [];
-	if (!$all_langs) {
-		// trouver tous les modules lang/spip_xx.php
-		$modules = find_all_in_path('lang/', '/spip_([a-z_]+)\.php$');
-		foreach ($modules as $name => $path) {
-			if (preg_match(',^spip_([a-z_]+)\.php$,', $name, $regs)) {
-				if (match_langue($regs[1])) {
-					$tout[] = $regs[1];
-				}
-			}
-		}
-		sort($tout);
-		$tout = join(',', $tout);
-		// Si les langues n'ont pas change, ne rien faire
-		if ($tout != $all_langs) {
-			$GLOBALS['meta']['langues_proposees'] = $tout;
-			include_spip('inc/meta');
-			ecrire_meta('langues_proposees', $tout);
-		}
-	}
-	if (!isset($GLOBALS['meta']['langue_site'])) {
-		// Initialisation : le francais si dispo, sinon la premiere langue trouvee
-		$GLOBALS['meta']['langue_site'] = $tout =
-			(!$all_langs or (strpos(',' . _LANGUE_PAR_DEFAUT . ',', (string) ",$all_langs,") !== false))
-				? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
-		ecrire_meta('langue_site', $tout);
-	}
+    // liste des langues dans les meta, sauf a l'install
+    $all_langs = @$GLOBALS['meta']['langues_proposees'];
+
+    $tout = [];
+    if (!$all_langs) {
+        // trouver tous les modules lang/spip_xx.php
+        $modules = find_all_in_path('lang/', '/spip_([a-z_]+)\.php$');
+        foreach ($modules as $name => $path) {
+            if (preg_match(',^spip_([a-z_]+)\.php$,', $name, $regs)) {
+                if (match_langue($regs[1])) {
+                    $tout[] = $regs[1];
+                }
+            }
+        }
+        sort($tout);
+        $tout = join(',', $tout);
+        // Si les langues n'ont pas change, ne rien faire
+        if ($tout != $all_langs) {
+            $GLOBALS['meta']['langues_proposees'] = $tout;
+            include_spip('inc/meta');
+            ecrire_meta('langues_proposees', $tout);
+        }
+    }
+    if (!isset($GLOBALS['meta']['langue_site'])) {
+        // Initialisation : le francais si dispo, sinon la premiere langue trouvee
+        $GLOBALS['meta']['langue_site'] = $tout =
+            (!$all_langs or (strpos(',' . _LANGUE_PAR_DEFAUT . ',', (string) ",$all_langs,") !== false))
+                ? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
+        ecrire_meta('langue_site', $tout);
+    }
 }
 
 /**
@@ -478,10 +478,10 @@ 
  *     Code html de la balise <html>
  **/
 function html_lang_attributes() {
-	$lang = $GLOBALS['spip_lang'];
-	$dir = ($GLOBALS['spip_lang_rtl'] ? 'rtl' : 'ltr');
+    $lang = $GLOBALS['spip_lang'];
+    $dir = ($GLOBALS['spip_lang_rtl'] ? 'rtl' : 'ltr');
 
-	return "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n";
+    return "<html class='$dir $lang no-js' xmlns='http://www.w3.org/1999/xhtml' lang='$lang' dir='$dir'>\n";
 }
 
 
@@ -495,7 +495,7 @@ 
  * @return string
  */
 function aide_lang_dir($spip_lang, $spip_lang_rtl) {
-	return ($spip_lang <> 'he') ? $spip_lang_rtl : '';
+    return ($spip_lang <> 'he') ? $spip_lang_rtl : '';
 }
 
 

ecrire/inc/presentation.php

Indentation +113 added lines, -113 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Presentation
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/presentation_mini');
@@ -32,142 +32,142 @@ 
 
 // https://code.spip.net/@debut_cadre
 function debut_cadre($style, $icone = '', $fonction = '', $titre = '', $id = '', $class = '', $padding = true) {
-	$fond = null;
-	$style_mapping = [
-		'r' => 'simple',
-		'e' => 'raccourcis',
-		'couleur' => 'basic highlight',
-		'couleur-foncee' => 'basic highlight',
-		'trait-couleur' => 'important',
-		'alerte' => 'notice',
-		'info' => 'info',
-		'sous_rub' => 'simple sous-rub'
-	];
-	$style_titre_mapping = ['couleur' => 'topper', 'trait-couleur' => 'section'];
-	$c = $style_mapping[$style] ?? 'simple';
-	$class = $c . ($class ? " $class" : '');
-	if (!$padding) {
-		$class .= ($class ? ' ' : '') . 'no-padding';
-	}
-
-	//($id?"id='$id' ":"")
-	if (strlen($icone) > 1) {
-		if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
-			[$fond, $fonction] = $icone_renommer($icone, $fonction);
-		}
-		$size = 24;
-		if (preg_match('/-([0-9]{1,3})[.](gif|png)$/i', $fond, $match)) {
-			$size = $match[1];
-		}
-		if ($fonction) {
-			// 2 images pour composer l'icone : le fond (article) en background,
-			// la fonction (new) en image
-			$icone = http_img_pack($fonction, '', "class='cadre-icone' width='$size' height='$size'\n" .
-				http_style_background($fond, 'no-repeat center center', $size));
-		} else {
-			$icone = http_img_pack($fond, '', "class='cadre-icone' width='$size' height='$size'");
-		}
-		$titre = $icone . $titre;
-	}
-
-	return boite_ouvrir($titre, $class, $style_titre_mapping[$style] ?? '', $id);
+    $fond = null;
+    $style_mapping = [
+        'r' => 'simple',
+        'e' => 'raccourcis',
+        'couleur' => 'basic highlight',
+        'couleur-foncee' => 'basic highlight',
+        'trait-couleur' => 'important',
+        'alerte' => 'notice',
+        'info' => 'info',
+        'sous_rub' => 'simple sous-rub'
+    ];
+    $style_titre_mapping = ['couleur' => 'topper', 'trait-couleur' => 'section'];
+    $c = $style_mapping[$style] ?? 'simple';
+    $class = $c . ($class ? " $class" : '');
+    if (!$padding) {
+        $class .= ($class ? ' ' : '') . 'no-padding';
+    }
+
+    //($id?"id='$id' ":"")
+    if (strlen($icone) > 1) {
+        if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
+            [$fond, $fonction] = $icone_renommer($icone, $fonction);
+        }
+        $size = 24;
+        if (preg_match('/-([0-9]{1,3})[.](gif|png)$/i', $fond, $match)) {
+            $size = $match[1];
+        }
+        if ($fonction) {
+            // 2 images pour composer l'icone : le fond (article) en background,
+            // la fonction (new) en image
+            $icone = http_img_pack($fonction, '', "class='cadre-icone' width='$size' height='$size'\n" .
+                http_style_background($fond, 'no-repeat center center', $size));
+        } else {
+            $icone = http_img_pack($fond, '', "class='cadre-icone' width='$size' height='$size'");
+        }
+        $titre = $icone . $titre;
+    }
+
+    return boite_ouvrir($titre, $class, $style_titre_mapping[$style] ?? '', $id);
 }
 
 // https://code.spip.net/@fin_cadre
 function fin_cadre() {
- return boite_fermer();
+    return boite_fermer();
 }
 
 
 function debut_cadre_relief(
-	$icone = '',
-	$dummy = '',
-	$fonction = '',
-	$titre = '',
-	$id = '',
-	$class = ''
+    $icone = '',
+    $dummy = '',
+    $fonction = '',
+    $titre = '',
+    $id = '',
+    $class = ''
 ) {
-	return debut_cadre('r', $icone, $fonction, $titre, $id, $class);
+    return debut_cadre('r', $icone, $fonction, $titre, $id, $class);
 }
 
 function fin_cadre_relief() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_cadre_enfonce(
-	$icone = '',
-	$dummy = '',
-	$fonction = '',
-	$titre = '',
-	$id = '',
-	$class = ''
+    $icone = '',
+    $dummy = '',
+    $fonction = '',
+    $titre = '',
+    $id = '',
+    $class = ''
 ) {
-	return debut_cadre('e', $icone, $fonction, $titre, $id, $class);
+    return debut_cadre('e', $icone, $fonction, $titre, $id, $class);
 }
 
 function fin_cadre_enfonce() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_cadre_sous_rub(
-	$icone = '',
-	$dummy = '',
-	$fonction = '',
-	$titre = '',
-	$id = '',
-	$class = ''
+    $icone = '',
+    $dummy = '',
+    $fonction = '',
+    $titre = '',
+    $id = '',
+    $class = ''
 ) {
-	return debut_cadre('sous_rub', $icone, $fonction, $titre, $id, $class);
+    return debut_cadre('sous_rub', $icone, $fonction, $titre, $id, $class);
 }
 
 function fin_cadre_sous_rub() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_cadre_couleur(
-	$icone = '',
-	$dummy = '',
-	$fonction = '',
-	$titre = '',
-	$id = '',
-	$class = ''
+    $icone = '',
+    $dummy = '',
+    $fonction = '',
+    $titre = '',
+    $id = '',
+    $class = ''
 ) {
-	return debut_cadre('couleur', $icone, $fonction, $titre, $id, $class);
+    return debut_cadre('couleur', $icone, $fonction, $titre, $id, $class);
 }
 
 function fin_cadre_couleur() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_cadre_trait_couleur(
-	$icone = '',
-	$dummy = '',
-	$fonction = '',
-	$titre = '',
-	$id = '',
-	$class = ''
+    $icone = '',
+    $dummy = '',
+    $fonction = '',
+    $titre = '',
+    $id = '',
+    $class = ''
 ) {
-	return debut_cadre('trait-couleur', $icone, $fonction, $titre, $id, $class);
+    return debut_cadre('trait-couleur', $icone, $fonction, $titre, $id, $class);
 }
 
 function fin_cadre_trait_couleur() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_boite_alerte() {
- return debut_cadre('alerte', '', '', '', '', '');
+    return debut_cadre('alerte', '', '', '', '', '');
 }
 
 function fin_boite_alerte() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 function debut_boite_info() {
- return debut_cadre('info', '', '', '', '', '');
+    return debut_cadre('info', '', '', '', '', '');
 }
 
 function fin_boite_info() {
- return fin_cadre();
+    return fin_cadre();
 }
 
 /**
@@ -178,18 +178,18 @@ 
  * @return string Code PHP.
  **/
 function gros_titre(
-	$titre,
-	$ze_logo = ''
+    $titre,
+    $ze_logo = ''
 ) {
-	return "<h1 class = 'grostitre'>" . $ze_logo . ' ' . typo($titre) . "</h1>\n";
+    return "<h1 class = 'grostitre'>" . $ze_logo . ' ' . typo($titre) . "</h1>\n";
 }
 
 // La boite des raccourcis
 // Se place a droite si l'ecran est en mode panoramique.
 // https://code.spip.net/@bloc_des_raccourcis
 function bloc_des_raccourcis($bloc) {
-	return creer_colonne_droite()
-	. boite_ouvrir(_T('titre_cadre_raccourcis'), 'raccourcis') . $bloc . boite_fermer();
+    return creer_colonne_droite()
+    . boite_ouvrir(_T('titre_cadre_raccourcis'), 'raccourcis') . $bloc . boite_fermer();
 }
 
 //
@@ -200,20 +200,20 @@ 
 // https://code.spip.net/@debut_onglet
 // @param string $sous_classe	prend la valeur second pour definir les onglet de deuxieme niveau
 function debut_onglet($classe = 'barre_onglet') {
- return "<div class = '$classe clearfix'><ul>\n";
+    return "<div class = '$classe clearfix'><ul>\n";
 }
 
 // https://code.spip.net/@fin_onglet
 function fin_onglet() {
- return "</ul></div>\n";
+    return "</ul></div>\n";
 }
 
 // https://code.spip.net/@onglet
 function onglet($texte, $lien, $onglet_ref, $onglet, $icone = '') {
-	return '<li>'
-	. ($icone ? http_img_pack($icone, '', " class='cadre-icone'") : '')
-	. lien_ou_expose($lien, $texte, $onglet == $onglet_ref)
-	. '</li>';
+    return '<li>'
+    . ($icone ? http_img_pack($icone, '', " class='cadre-icone'") : '')
+    . lien_ou_expose($lien, $texte, $onglet == $onglet_ref)
+    . '</li>';
 }
 
 /**
@@ -245,14 +245,14 @@ 
  *     Code HTML du lien
  **/
 function icone_verticale($texte, $lien, $fond, $fonction = '', $align = '', $javascript = '') {
-	// cas d'ajax_action_auteur: faut defaire le boulot
-	// (il faudrait fusionner avec le cas $javascript)
-	if (preg_match(",^<a\shref='([^']*)'([^>]*)>(.*)</a>$,i", $lien, $r)) {
-		[$x, $lien, $atts, $texte] = $r;
-		$javascript .= $atts;
-	}
-
-	return icone_base($lien, $texte, $fond, $fonction, "verticale $align", $javascript);
+    // cas d'ajax_action_auteur: faut defaire le boulot
+    // (il faudrait fusionner avec le cas $javascript)
+    if (preg_match(",^<a\shref='([^']*)'([^>]*)>(.*)</a>$,i", $lien, $r)) {
+        [$x, $lien, $atts, $texte] = $r;
+        $javascript .= $atts;
+    }
+
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $align", $javascript);
 }
 
 /**
@@ -277,15 +277,15 @@ 
  *     Code HTML du lien
  **/
 function icone_horizontale($texte, $lien, $fond, $fonction = '', $dummy = '', $javascript = '') {
-	$retour = '';
-	// cas d'ajax_action_auteur: faut defaire le boulot
-	// (il faudrait fusionner avec le cas $javascript)
-	if (preg_match(",^<a\shref='([^']*)'([^>]*)>(.*)</a>$,i", $lien, $r)) {
-		[$x, $lien, $atts, $texte] = $r;
-		$javascript .= $atts;
-	}
+    $retour = '';
+    // cas d'ajax_action_auteur: faut defaire le boulot
+    // (il faudrait fusionner avec le cas $javascript)
+    if (preg_match(",^<a\shref='([^']*)'([^>]*)>(.*)</a>$,i", $lien, $r)) {
+        [$x, $lien, $atts, $texte] = $r;
+        $javascript .= $atts;
+    }
 
-	$retour = icone_base($lien, $texte, $fond, $fonction, 'horizontale', $javascript);
+    $retour = icone_base($lien, $texte, $fond, $fonction, 'horizontale', $javascript);
 
-	return $retour;
+    return $retour;
 }

ecrire/inc/documents.php

Indentation +227 added lines, -227 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -30,12 +30,12 @@ 
  * @return string
  */
 function set_spip_doc(?string $fichier): string {
-	if ($fichier and strpos($fichier, (string) _DIR_IMG) === 0) {
-		return substr($fichier, strlen(_DIR_IMG));
-	} else {
-		// ex: fichier distant
-		return $fichier ?? '';
-	} 
+    if ($fichier and strpos($fichier, (string) _DIR_IMG) === 0) {
+        return substr($fichier, strlen(_DIR_IMG));
+    } else {
+        // ex: fichier distant
+        return $fichier ?? '';
+    } 
 }
 
 /**
@@ -47,26 +47,26 @@ 
  * @return bool|string
  */
 function get_spip_doc(?string $fichier) {
-	if ($fichier === null) {
-		return false;
-	}
-
-	// fichier distant
-	if (tester_url_absolue($fichier)) {
-		return $fichier;
-	}
-
-	// gestion d'erreurs, fichier=''
-	if (!strlen($fichier)) {
-		return false;
-	}
-
-	if (strncmp($fichier, _DIR_IMG, strlen(_DIR_IMG)) !== 0) {
-		$fichier = _DIR_IMG . $fichier;
-	}
-
-	// fichier normal
-	return $fichier;
+    if ($fichier === null) {
+        return false;
+    }
+
+    // fichier distant
+    if (tester_url_absolue($fichier)) {
+        return $fichier;
+    }
+
+    // gestion d'erreurs, fichier=''
+    if (!strlen($fichier)) {
+        return false;
+    }
+
+    if (strncmp($fichier, _DIR_IMG, strlen(_DIR_IMG)) !== 0) {
+        $fichier = _DIR_IMG . $fichier;
+    }
+
+    // fichier normal
+    return $fichier;
 }
 
 /**
@@ -80,26 +80,26 @@ 
  * @return string
  */
 function creer_repertoire_documents($ext) {
-	$rep = sous_repertoire(_DIR_IMG, $ext);
-
-	if (!$ext or !$rep) {
-		spip_log("creer_repertoire_documents '$rep' interdit");
-		exit;
-	}
-
-	// Cette variable de configuration peut etre posee par un plugin
-	// par exemple acces_restreint
-	// sauf pour logo/ utilise pour stocker les logoon et logooff
-	if (
-		isset($GLOBALS['meta']['creer_htaccess'])
-		and $GLOBALS['meta']['creer_htaccess'] == 'oui'
-		and $ext !== 'logo'
-	) {
-		include_spip('inc/acces');
-		verifier_htaccess($rep);
-	}
-
-	return $rep;
+    $rep = sous_repertoire(_DIR_IMG, $ext);
+
+    if (!$ext or !$rep) {
+        spip_log("creer_repertoire_documents '$rep' interdit");
+        exit;
+    }
+
+    // Cette variable de configuration peut etre posee par un plugin
+    // par exemple acces_restreint
+    // sauf pour logo/ utilise pour stocker les logoon et logooff
+    if (
+        isset($GLOBALS['meta']['creer_htaccess'])
+        and $GLOBALS['meta']['creer_htaccess'] == 'oui'
+        and $ext !== 'logo'
+    ) {
+        include_spip('inc/acces');
+        verifier_htaccess($rep);
+    }
+
+    return $rep;
 }
 
 /**
@@ -108,22 +108,22 @@ 
  * @param string $nom
  */
 function effacer_repertoire_temporaire($nom) {
-	if ($d = opendir($nom)) {
-		while (($f = readdir($d)) !== false) {
-			if (is_file("$nom/$f")) {
-				spip_unlink("$nom/$f");
-			} else {
-				if (
-					$f <> '.' and $f <> '..'
-					and is_dir("$nom/$f")
-				) {
-					effacer_repertoire_temporaire("$nom/$f");
-				}
-			}
-		}
-	}
-	closedir($d);
-	@rmdir($nom);
+    if ($d = opendir($nom)) {
+        while (($f = readdir($d)) !== false) {
+            if (is_file("$nom/$f")) {
+                spip_unlink("$nom/$f");
+            } else {
+                if (
+                    $f <> '.' and $f <> '..'
+                    and is_dir("$nom/$f")
+                ) {
+                    effacer_repertoire_temporaire("$nom/$f");
+                }
+            }
+        }
+    }
+    closedir($d);
+    @rmdir($nom);
 }
 
 //
@@ -140,45 +140,45 @@ 
  */
 function copier_document($ext, $orig, $source, $subdir = null) {
 
-	$orig = preg_replace(',\.\.+,', '.', $orig); // pas de .. dans le nom du doc
-	$dir = creer_repertoire_documents($subdir ?: $ext);
-
-	$dest = preg_replace('/<[^>]*>/', '', basename($orig));
-	$dest = preg_replace('/\.([^.]+)$/', '', $dest);
-	$dest = translitteration($dest);
-	$dest = preg_replace('/[^.=\w-]+/', '_', $dest);
-
-	// ne pas accepter de noms de la forme -r90.jpg qui sont reserves
-	// pour les images transformees par rotation (action/documenter)
-	$dest = preg_replace(',-r(90|180|270)$,', '', $dest);
-
-	while (preg_match(',\.(\w+)$,', $dest, $m)) {
-		if (
-			!function_exists('verifier_upload_autorise')
-			or !$r = verifier_upload_autorise($dest)
-			or $r['autozip']
-		) {
-			$dest = substr($dest, 0, -strlen($m[0])) . '_' . $m[1];
-			break;
-		}
-		else {
-			$dest = substr($dest, 0, -strlen($m[0]));
-			$ext = $m[1] . '.' . $ext;
-		}
-	}
-
-	// Si le document "source" est deja au bon endroit, ne rien faire
-	if ($source == ($dir . $dest . '.' . $ext)) {
-		return $source;
-	}
-
-	// sinon tourner jusqu'a trouver un numero correct
-	$n = 0;
-	while (@file_exists($newFile = $dir . $dest . ($n++ ? ('-' . $n) : '') . '.' . $ext)) {
-		;
-	}
-
-	return deplacer_fichier_upload($source, $newFile);
+    $orig = preg_replace(',\.\.+,', '.', $orig); // pas de .. dans le nom du doc
+    $dir = creer_repertoire_documents($subdir ?: $ext);
+
+    $dest = preg_replace('/<[^>]*>/', '', basename($orig));
+    $dest = preg_replace('/\.([^.]+)$/', '', $dest);
+    $dest = translitteration($dest);
+    $dest = preg_replace('/[^.=\w-]+/', '_', $dest);
+
+    // ne pas accepter de noms de la forme -r90.jpg qui sont reserves
+    // pour les images transformees par rotation (action/documenter)
+    $dest = preg_replace(',-r(90|180|270)$,', '', $dest);
+
+    while (preg_match(',\.(\w+)$,', $dest, $m)) {
+        if (
+            !function_exists('verifier_upload_autorise')
+            or !$r = verifier_upload_autorise($dest)
+            or $r['autozip']
+        ) {
+            $dest = substr($dest, 0, -strlen($m[0])) . '_' . $m[1];
+            break;
+        }
+        else {
+            $dest = substr($dest, 0, -strlen($m[0]));
+            $ext = $m[1] . '.' . $ext;
+        }
+    }
+
+    // Si le document "source" est deja au bon endroit, ne rien faire
+    if ($source == ($dir . $dest . '.' . $ext)) {
+        return $source;
+    }
+
+    // sinon tourner jusqu'a trouver un numero correct
+    $n = 0;
+    while (@file_exists($newFile = $dir . $dest . ($n++ ? ('-' . $n) : '') . '.' . $ext)) {
+        ;
+    }
+
+    return deplacer_fichier_upload($source, $newFile);
 }
 
 /**
@@ -193,28 +193,28 @@ 
  * @return bool|string
  */
 function determine_upload($type = '') {
-	if (!function_exists('autoriser')) {
-		include_spip('inc/autoriser');
-	}
-
-	if (
-		!autoriser('chargerftp')
-		or $type == 'logos'
-	) { # on ne le permet pas pour les logos
-	return false;
-	}
-
-	$repertoire = _DIR_TRANSFERT;
-	if (!@is_dir($repertoire)) {
-		$repertoire = str_replace(_DIR_TMP, '', $repertoire);
-		$repertoire = sous_repertoire(_DIR_TMP, $repertoire);
-	}
-
-	if (!$GLOBALS['visiteur_session']['restreint']) {
-		return $repertoire;
-	} else {
-		return sous_repertoire($repertoire, $GLOBALS['visiteur_session']['login']);
-	}
+    if (!function_exists('autoriser')) {
+        include_spip('inc/autoriser');
+    }
+
+    if (
+        !autoriser('chargerftp')
+        or $type == 'logos'
+    ) { # on ne le permet pas pour les logos
+    return false;
+    }
+
+    $repertoire = _DIR_TRANSFERT;
+    if (!@is_dir($repertoire)) {
+        $repertoire = str_replace(_DIR_TMP, '', $repertoire);
+        $repertoire = sous_repertoire(_DIR_TMP, $repertoire);
+    }
+
+    if (!$GLOBALS['visiteur_session']['restreint']) {
+        return $repertoire;
+    } else {
+        return sous_repertoire($repertoire, $GLOBALS['visiteur_session']['login']);
+    }
 }
 
 /**
@@ -233,35 +233,35 @@ 
  * @return bool|mixed|string
  */
 function deplacer_fichier_upload($source, $dest, $move = false) {
-	// Securite
-	if (substr($dest, 0, strlen(_DIR_RACINE)) == _DIR_RACINE) {
-		$dest = _DIR_RACINE . preg_replace(',\.\.+,', '.', substr($dest, strlen(_DIR_RACINE)));
-	} else {
-		$dest = preg_replace(',\.\.+,', '.', $dest);
-	}
-
-	if ($move) {
-		$ok = @rename($source, $dest);
-	} else {
-		$ok = @copy($source, $dest);
-	}
-	if (!$ok) {
-		$ok = @move_uploaded_file($source, $dest);
-	}
-	if ($ok) {
-		@chmod($dest, _SPIP_CHMOD & ~0111);
-	} else {
-		$f = @fopen($dest, 'w');
-		if ($f) {
-			fclose($f);
-		} else {
-			include_spip('inc/flock');
-			raler_fichier($dest);
-		}
-		spip_unlink($dest);
-	}
-
-	return $ok ? $dest : false;
+    // Securite
+    if (substr($dest, 0, strlen(_DIR_RACINE)) == _DIR_RACINE) {
+        $dest = _DIR_RACINE . preg_replace(',\.\.+,', '.', substr($dest, strlen(_DIR_RACINE)));
+    } else {
+        $dest = preg_replace(',\.\.+,', '.', $dest);
+    }
+
+    if ($move) {
+        $ok = @rename($source, $dest);
+    } else {
+        $ok = @copy($source, $dest);
+    }
+    if (!$ok) {
+        $ok = @move_uploaded_file($source, $dest);
+    }
+    if ($ok) {
+        @chmod($dest, _SPIP_CHMOD & ~0111);
+    } else {
+        $f = @fopen($dest, 'w');
+        if ($f) {
+            fclose($f);
+        } else {
+            include_spip('inc/flock');
+            raler_fichier($dest);
+        }
+        spip_unlink($dest);
+    }
+
+    return $ok ? $dest : false;
 }
 
 
@@ -285,60 +285,60 @@ 
  */
 function check_upload_error($error, $msg = '', $return = false) {
 
-	if (!$error) {
-		return false;
-	}
-
-	spip_log("Erreur upload $error -- cf. http://php.net/manual/fr/features.file-upload.errors.php");
-
-	switch ($error) {
-		case 4: /* UPLOAD_ERR_NO_FILE */
-			return true;
-
-		# on peut affiner les differents messages d'erreur
-		case 1: /* UPLOAD_ERR_INI_SIZE */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-		case 2: /* UPLOAD_ERR_FORM_SIZE */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-		case 3: /* UPLOAD_ERR_PARTIAL  */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-
-		default: /* autre */
-			if (!$msg) {
-				$msg = _T('pass_erreur') . ' ' . $error
-					. '<br />' . propre('[->http://php.net/manual/fr/features.file-upload.errors.php]');
-			}
-			break;
-	}
-
-	spip_log("erreur upload $error");
-	if ($return) {
-		return $msg;
-	}
-
-	if (_request('iframe') == 'iframe') {
-		echo "<div class='upload_answer upload_error'>$msg</div>";
-		exit;
-	}
-
-	include_spip('inc/minipres');
-	echo minipres(
-		$msg,
-		"<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><a href='" . rawurldecode($GLOBALS['redirect']) . "'><button type='button'>" . _T('ecrire:bouton_suivant') . '</button></a></div>'
-	);
-	exit;
+    if (!$error) {
+        return false;
+    }
+
+    spip_log("Erreur upload $error -- cf. http://php.net/manual/fr/features.file-upload.errors.php");
+
+    switch ($error) {
+        case 4: /* UPLOAD_ERR_NO_FILE */
+            return true;
+
+        # on peut affiner les differents messages d'erreur
+        case 1: /* UPLOAD_ERR_INI_SIZE */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+        case 2: /* UPLOAD_ERR_FORM_SIZE */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+        case 3: /* UPLOAD_ERR_PARTIAL  */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+
+        default: /* autre */
+            if (!$msg) {
+                $msg = _T('pass_erreur') . ' ' . $error
+                    . '<br />' . propre('[->http://php.net/manual/fr/features.file-upload.errors.php]');
+            }
+            break;
+    }
+
+    spip_log("erreur upload $error");
+    if ($return) {
+        return $msg;
+    }
+
+    if (_request('iframe') == 'iframe') {
+        echo "<div class='upload_answer upload_error'>$msg</div>";
+        exit;
+    }
+
+    include_spip('inc/minipres');
+    echo minipres(
+        $msg,
+        "<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><a href='" . rawurldecode($GLOBALS['redirect']) . "'><button type='button'>" . _T('ecrire:bouton_suivant') . '</button></a></div>'
+    );
+    exit;
 }
 
 /**
@@ -355,24 +355,24 @@ 
  * @return string
  */
 function corriger_extension($ext) {
-	$ext = preg_replace(',[^a-z0-9],i', '', $ext);
-	switch ($ext) {
-		case 'htm':
-			$ext = 'html';
-			break;
-		case 'jpeg':
-			$ext = 'jpg';
-			break;
-		case 'tiff':
-			$ext = 'tif';
-			break;
-		case 'aif':
-			$ext = 'aiff';
-			break;
-		case 'mpeg':
-			$ext = 'mpg';
-			break;
-	}
-
-	return $ext;
+    $ext = preg_replace(',[^a-z0-9],i', '', $ext);
+    switch ($ext) {
+        case 'htm':
+            $ext = 'html';
+            break;
+        case 'jpeg':
+            $ext = 'jpg';
+            break;
+        case 'tiff':
+            $ext = 'tif';
+            break;
+        case 'aif':
+            $ext = 'aiff';
+            break;
+        case 'mpeg':
+            $ext = 'mpg';
+            break;
+    }
+
+    return $ext;
 }

ecrire/inc/editer.php

Indentation +492 added lines, -492 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('base/abstract_sql');
 
@@ -59,56 +59,56 @@ 
  *     Retour des traitements.
  **/
 function formulaires_editer_objet_traiter(
-	$type,
-	$id = 'new',
-	$id_parent = 0,
-	$lier_trad = 0,
-	$retour = '',
-	$config_fonc = 'articles_edit_config',
-	$row = [],
-	$hidden = ''
+    $type,
+    $id = 'new',
+    $id_parent = 0,
+    $lier_trad = 0,
+    $retour = '',
+    $config_fonc = 'articles_edit_config',
+    $row = [],
+    $hidden = ''
 ) {
 
-	$res = [];
-	// eviter la redirection forcee par l'action...
-	set_request('redirect');
-	if ($action_editer = charger_fonction("editer_$type", 'action', true)) {
-		[$id, $err] = $action_editer($id);
-	} else {
-		$action_editer = charger_fonction('editer_objet', 'action');
-		[$id, $err] = $action_editer($id, $type);
-	}
-	$id_table_objet = id_table_objet($type);
-	$res[$id_table_objet] = $id;
-	if ($err or !$id) {
-		$res['message_erreur'] = ($err ?: _T('erreur'));
-	} else {
-		// Un lien de trad a prendre en compte
-		if ($lier_trad) {
-			// referencer la traduction
-			$referencer_traduction = charger_fonction('referencer_traduction', 'action');
-			$referencer_traduction($type, $id, $lier_trad);
-			// actions de recopie de champs / liens sur le nouvel objet créé
-			$completer_traduction = charger_fonction('completer_traduction', 'inc');
-			$err = $completer_traduction($type, $id, $lier_trad);
-			if ($err) {
-				$res['message_erreur'] = $err;
-				return $res;
-			}
-		}
-
-		$res['message_ok'] = _T('info_modification_enregistree');
-		if ($retour) {
-			if (strncmp($retour, 'javascript:', 11) == 0) {
-				$res['message_ok'] .= '<script type="text/javascript">/*<![CDATA[*/' . substr($retour, 11) . '/*]]>*/</script>';
-				$res['editable'] = true;
-			} else {
-				$res['redirect'] = parametre_url($retour, $id_table_objet, $id);
-			}
-		}
-	}
-
-	return $res;
+    $res = [];
+    // eviter la redirection forcee par l'action...
+    set_request('redirect');
+    if ($action_editer = charger_fonction("editer_$type", 'action', true)) {
+        [$id, $err] = $action_editer($id);
+    } else {
+        $action_editer = charger_fonction('editer_objet', 'action');
+        [$id, $err] = $action_editer($id, $type);
+    }
+    $id_table_objet = id_table_objet($type);
+    $res[$id_table_objet] = $id;
+    if ($err or !$id) {
+        $res['message_erreur'] = ($err ?: _T('erreur'));
+    } else {
+        // Un lien de trad a prendre en compte
+        if ($lier_trad) {
+            // referencer la traduction
+            $referencer_traduction = charger_fonction('referencer_traduction', 'action');
+            $referencer_traduction($type, $id, $lier_trad);
+            // actions de recopie de champs / liens sur le nouvel objet créé
+            $completer_traduction = charger_fonction('completer_traduction', 'inc');
+            $err = $completer_traduction($type, $id, $lier_trad);
+            if ($err) {
+                $res['message_erreur'] = $err;
+                return $res;
+            }
+        }
+
+        $res['message_ok'] = _T('info_modification_enregistree');
+        if ($retour) {
+            if (strncmp($retour, 'javascript:', 11) == 0) {
+                $res['message_ok'] .= '<script type="text/javascript">/*<![CDATA[*/' . substr($retour, 11) . '/*]]>*/</script>';
+                $res['editable'] = true;
+            } else {
+                $res['redirect'] = parametre_url($retour, $id_table_objet, $id);
+            }
+        }
+    }
+
+    return $res;
 }
 
 /**
@@ -132,29 +132,29 @@ 
  *     Tableau des erreurs
  **/
 function formulaires_editer_objet_verifier($type, $id = 'new', $oblis = []) {
-	$erreurs = [];
-	if (intval($id)) {
-		$conflits = controler_contenu($type, $id);
-		if ($conflits and is_countable($conflits) ? count($conflits) : 0) {
-			foreach ($conflits as $champ => $conflit) {
-				if (!isset($erreurs[$champ])) {
-					$erreurs[$champ] = '';
-				}
-				$erreurs[$champ] .= _T('alerte_modif_info_concourante') . "<br /><textarea readonly='readonly' class='forml'>" . entites_html($conflit['base']) . '</textarea>';
-			}
-		}
-	}
-	foreach ($oblis as $obli) {
-		$value = _request($obli);
-		if (is_null($value) or !(is_array($value) ? count($value) : strlen($value))) {
-			if (!isset($erreurs[$obli])) {
-				$erreurs[$obli] = '';
-			}
-			$erreurs[$obli] .= _T('info_obligatoire');
-		}
-	}
-
-	return $erreurs;
+    $erreurs = [];
+    if (intval($id)) {
+        $conflits = controler_contenu($type, $id);
+        if ($conflits and is_countable($conflits) ? count($conflits) : 0) {
+            foreach ($conflits as $champ => $conflit) {
+                if (!isset($erreurs[$champ])) {
+                    $erreurs[$champ] = '';
+                }
+                $erreurs[$champ] .= _T('alerte_modif_info_concourante') . "<br /><textarea readonly='readonly' class='forml'>" . entites_html($conflit['base']) . '</textarea>';
+            }
+        }
+    }
+    foreach ($oblis as $obli) {
+        $value = _request($obli);
+        if (is_null($value) or !(is_array($value) ? count($value) : strlen($value))) {
+            if (!isset($erreurs[$obli])) {
+                $erreurs[$obli] = '';
+            }
+            $erreurs[$obli] .= _T('info_obligatoire');
+        }
+    }
+
+    return $erreurs;
 }
 
 /**
@@ -199,152 +199,152 @@ 
  *     Environnement du formulaire.
  **/
 function formulaires_editer_objet_charger(
-	$type,
-	$id = 'new',
-	$id_parent = 0,
-	$lier_trad = 0,
-	$retour = '',
-	$config_fonc = 'articles_edit_config',
-	$row = [],
-	$hidden = ''
+    $type,
+    $id = 'new',
+    $id_parent = 0,
+    $lier_trad = 0,
+    $retour = '',
+    $config_fonc = 'articles_edit_config',
+    $row = [],
+    $hidden = ''
 ) {
 
-	$valeurs = [];
-	$table_objet = table_objet($type);
-	$table_objet_sql = table_objet_sql($type);
-	$id_table_objet = id_table_objet($type);
-
-	// on accepte pas une fonction de config inconnue si elle vient d'un modele
-	if (
-		$config_fonc
-		and !in_array($config_fonc, ['articles_edit_config', 'rubriques_edit_config', 'auteurs_edit_config'])
-		and $config_fonc !== $table_objet . '_edit_config'
-	) {
-		if (
-			$args = test_formulaire_inclus_par_modele()
-			and in_array($config_fonc, $args)
-		) {
-			$config_fonc = '';
-		}
-	}
-
-	$new = !is_numeric($id);
-	$lang_default = '';
-	// Appel direct dans un squelette
-	if (!$row) {
-		if (!$new or $lier_trad) {
-			if ($select = charger_fonction('precharger_' . $type, 'inc', true)) {
-				$row = $select($id, $id_parent, $lier_trad);
-				// si on a une fonction precharger, elle pu faire un reglage de langue
-				$lang_default = (!empty($row['lang']) ? $row['lang'] : null);
-			} else {
-				$row = sql_fetsel('*', $table_objet_sql, $id_table_objet . '=' . intval($id));
-			}
-			if (!$new) {
-				$md5 = controles_md5($row);
-			}
-		}
-		if (!$row) {
-			$row = [];
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			if ($desc = $trouver_table($table_objet)) {
-				foreach ($desc['field'] as $k => $v) {
-					$row[$k] = '';
-				}
-			}
-		}
-	}
-
-	// Gaffe: sans ceci, on ecrase systematiquement l'article d'origine
-	// (et donc: pas de lien de traduction)
-	$id = ($new or $lier_trad)
-		? 'oui'
-		: $row[$id_table_objet];
-	$row[$id_table_objet] = $id;
-
-	$contexte = $row;
-	if (is_numeric($id_parent) && strlen($id_parent) && (!isset($contexte['id_parent']) or $new)) {
-		if (!isset($contexte['id_parent'])) {
-			unset($contexte['id_rubrique']);
-		}
-		$contexte['id_parent'] = $id_parent;
-	} elseif (!isset($contexte['id_parent'])) {
-		// id_rubrique dans id_parent si possible
-		if (isset($contexte['id_rubrique'])) {
-			$contexte['id_parent'] = $contexte['id_rubrique'];
-			unset($contexte['id_rubrique']);
-		} else {
-			$contexte['id_parent'] = '';
-		}
-		if (
-			!$contexte['id_parent']
-			and $preselectionner_parent_nouvel_objet = charger_fonction('preselectionner_parent_nouvel_objet', 'inc', true)
-		) {
-			$contexte['id_parent'] = $preselectionner_parent_nouvel_objet($type, $row);
-		}
-	}
-
-	$config = [];
-	if ($config_fonc) {
-		$contexte['config'] = $config = $config_fonc($contexte);
-		if (!$lang_default) {
-			$lang_default = $config['langue'] ?? session_get('lang') ;
-		}
-	}
-	$config = $config + [
-		'lignes' => 0,
-		'langue' => '',
-	];
-
-	$att_text = " class='textarea' "
-		. " rows='"
-		. ($config['lignes'] + 15)
-		. "' cols='40'";
-	if (isset($contexte['texte'])) {
-		[$contexte['texte'], $contexte['_texte_trop_long']] = editer_texte_recolle($contexte['texte'], $att_text);
-	}
-
-	// on veut conserver la langue de l'interface ;
-	// on passe cette donnee sous un autre nom, au cas ou le squelette
-	// voudrait l'exploiter
-	if (isset($contexte['lang'])) {
-		$contexte['langue'] = $contexte['lang'];
-		unset($contexte['lang']);
-	}
-
-	$contexte['_hidden'] = "<input type='hidden' name='editer_$type' value='oui' />\n" .
-		(!$lier_trad ? '' :
-			("\n<input type='hidden' name='lier_trad' value='" .
-				$lier_trad .
-				"' />" .
-				"\n<input type='hidden' name='changer_lang' value='" .
-				$lang_default .
-				"' />"))
-		. $hidden
-		. ($md5 ?? '');
-
-	// preciser que le formulaire doit passer dans un pipeline
-	$contexte['_pipeline'] = ['editer_contenu_objet', ['type' => $type, 'id' => $id]];
-
-	// preciser que le formulaire doit etre securise auteur/action
-	// n'est plus utile lorsque l'action accepte l'id en argument direct
-	// on le garde pour compat
-	$contexte['_action'] = ["editer_$type", $id];
-
-	// et in fine placer l'autorisation
-	include_spip('inc/autoriser');
-	if (intval($id)) {
-		if (!autoriser('modifier', $type, intval($id))) {
-			$valeurs['editable'] = '';
-		}
-	}
-	else {
-		if (!autoriser('creer', $type, 0, null, ['id_parent' => $id_parent])) {
-			$valeurs['editable'] = '';
-		}
-	}
-
-	return $contexte;
+    $valeurs = [];
+    $table_objet = table_objet($type);
+    $table_objet_sql = table_objet_sql($type);
+    $id_table_objet = id_table_objet($type);
+
+    // on accepte pas une fonction de config inconnue si elle vient d'un modele
+    if (
+        $config_fonc
+        and !in_array($config_fonc, ['articles_edit_config', 'rubriques_edit_config', 'auteurs_edit_config'])
+        and $config_fonc !== $table_objet . '_edit_config'
+    ) {
+        if (
+            $args = test_formulaire_inclus_par_modele()
+            and in_array($config_fonc, $args)
+        ) {
+            $config_fonc = '';
+        }
+    }
+
+    $new = !is_numeric($id);
+    $lang_default = '';
+    // Appel direct dans un squelette
+    if (!$row) {
+        if (!$new or $lier_trad) {
+            if ($select = charger_fonction('precharger_' . $type, 'inc', true)) {
+                $row = $select($id, $id_parent, $lier_trad);
+                // si on a une fonction precharger, elle pu faire un reglage de langue
+                $lang_default = (!empty($row['lang']) ? $row['lang'] : null);
+            } else {
+                $row = sql_fetsel('*', $table_objet_sql, $id_table_objet . '=' . intval($id));
+            }
+            if (!$new) {
+                $md5 = controles_md5($row);
+            }
+        }
+        if (!$row) {
+            $row = [];
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            if ($desc = $trouver_table($table_objet)) {
+                foreach ($desc['field'] as $k => $v) {
+                    $row[$k] = '';
+                }
+            }
+        }
+    }
+
+    // Gaffe: sans ceci, on ecrase systematiquement l'article d'origine
+    // (et donc: pas de lien de traduction)
+    $id = ($new or $lier_trad)
+        ? 'oui'
+        : $row[$id_table_objet];
+    $row[$id_table_objet] = $id;
+
+    $contexte = $row;
+    if (is_numeric($id_parent) && strlen($id_parent) && (!isset($contexte['id_parent']) or $new)) {
+        if (!isset($contexte['id_parent'])) {
+            unset($contexte['id_rubrique']);
+        }
+        $contexte['id_parent'] = $id_parent;
+    } elseif (!isset($contexte['id_parent'])) {
+        // id_rubrique dans id_parent si possible
+        if (isset($contexte['id_rubrique'])) {
+            $contexte['id_parent'] = $contexte['id_rubrique'];
+            unset($contexte['id_rubrique']);
+        } else {
+            $contexte['id_parent'] = '';
+        }
+        if (
+            !$contexte['id_parent']
+            and $preselectionner_parent_nouvel_objet = charger_fonction('preselectionner_parent_nouvel_objet', 'inc', true)
+        ) {
+            $contexte['id_parent'] = $preselectionner_parent_nouvel_objet($type, $row);
+        }
+    }
+
+    $config = [];
+    if ($config_fonc) {
+        $contexte['config'] = $config = $config_fonc($contexte);
+        if (!$lang_default) {
+            $lang_default = $config['langue'] ?? session_get('lang') ;
+        }
+    }
+    $config = $config + [
+        'lignes' => 0,
+        'langue' => '',
+    ];
+
+    $att_text = " class='textarea' "
+        . " rows='"
+        . ($config['lignes'] + 15)
+        . "' cols='40'";
+    if (isset($contexte['texte'])) {
+        [$contexte['texte'], $contexte['_texte_trop_long']] = editer_texte_recolle($contexte['texte'], $att_text);
+    }
+
+    // on veut conserver la langue de l'interface ;
+    // on passe cette donnee sous un autre nom, au cas ou le squelette
+    // voudrait l'exploiter
+    if (isset($contexte['lang'])) {
+        $contexte['langue'] = $contexte['lang'];
+        unset($contexte['lang']);
+    }
+
+    $contexte['_hidden'] = "<input type='hidden' name='editer_$type' value='oui' />\n" .
+        (!$lier_trad ? '' :
+            ("\n<input type='hidden' name='lier_trad' value='" .
+                $lier_trad .
+                "' />" .
+                "\n<input type='hidden' name='changer_lang' value='" .
+                $lang_default .
+                "' />"))
+        . $hidden
+        . ($md5 ?? '');
+
+    // preciser que le formulaire doit passer dans un pipeline
+    $contexte['_pipeline'] = ['editer_contenu_objet', ['type' => $type, 'id' => $id]];
+
+    // preciser que le formulaire doit etre securise auteur/action
+    // n'est plus utile lorsque l'action accepte l'id en argument direct
+    // on le garde pour compat
+    $contexte['_action'] = ["editer_$type", $id];
+
+    // et in fine placer l'autorisation
+    include_spip('inc/autoriser');
+    if (intval($id)) {
+        if (!autoriser('modifier', $type, intval($id))) {
+            $valeurs['editable'] = '';
+        }
+    }
+    else {
+        if (!autoriser('creer', $type, 0, null, ['id_parent' => $id_parent])) {
+            $valeurs['editable'] = '';
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -355,29 +355,29 @@ 
  * @return array
  */
 function coupe_trop_long($texte) {
-	$aider = charger_fonction('aider', 'inc');
-	if (strlen($texte) > 28 * 1024) {
-		$texte = str_replace("\r\n", "\n", $texte);
-		$pos = strpos($texte, "\n\n", 28 * 1024);  // coupe para > 28 ko
-		if ($pos > 0 and $pos < 32 * 1024) {
-			$debut = substr($texte, 0, $pos) . "\n\n<!--SPIP-->\n";
-			$suite = substr($texte, $pos + 2);
-		} else {
-			$pos = strpos($texte, ' ', 28 * 1024);  // sinon coupe espace
-			if (!($pos > 0 and $pos < 32 * 1024)) {
-				$pos = 28 * 1024;  // au pire (pas d'espace trouv'e)
-				$decalage = 0; // si y'a pas d'espace, il ne faut pas perdre le caract`ere
-			} else {
-				$decalage = 1;
-			}
-			$debut = substr($texte, 0, $pos + $decalage); // Il faut conserver l'espace s'il y en a un
-			$suite = substr($texte, $pos + $decalage);
-		}
-
-		return ([$debut, $suite]);
-	} else {
-		return ([$texte, '']);
-	}
+    $aider = charger_fonction('aider', 'inc');
+    if (strlen($texte) > 28 * 1024) {
+        $texte = str_replace("\r\n", "\n", $texte);
+        $pos = strpos($texte, "\n\n", 28 * 1024);  // coupe para > 28 ko
+        if ($pos > 0 and $pos < 32 * 1024) {
+            $debut = substr($texte, 0, $pos) . "\n\n<!--SPIP-->\n";
+            $suite = substr($texte, $pos + 2);
+        } else {
+            $pos = strpos($texte, ' ', 28 * 1024);  // sinon coupe espace
+            if (!($pos > 0 and $pos < 32 * 1024)) {
+                $pos = 28 * 1024;  // au pire (pas d'espace trouv'e)
+                $decalage = 0; // si y'a pas d'espace, il ne faut pas perdre le caract`ere
+            } else {
+                $decalage = 1;
+            }
+            $debut = substr($texte, 0, $pos + $decalage); // Il faut conserver l'espace s'il y en a un
+            $suite = substr($texte, $pos + $decalage);
+        }
+
+        return ([$debut, $suite]);
+    } else {
+        return ([$texte, '']);
+    }
 }
 
 /**
@@ -388,25 +388,25 @@ 
  * @return array
  */
 function editer_texte_recolle($texte, $att_text) {
-	if (
-		(strlen($texte) < 29 * 1024)
-		or (include_spip('inc/layer') and ($GLOBALS['browser_name'] != 'MSIE'))
-	) {
-		return [$texte, ''];
-	}
-
-	include_spip('inc/barre');
-	$textes_supplement = "<br /><span style='color: red'>" . _T('info_texte_long') . "</span>\n";
-	$nombre = 0;
-
-	while (strlen($texte) > 29 * 1024) {
-		$nombre++;
-		[$texte1, $texte] = coupe_trop_long($texte);
-		$textes_supplement .= '<br />' .
-			"<textarea id='texte$nombre' name='texte_plus[$nombre]'$att_text>$texte1</textarea>\n";
-	}
-
-	return [$texte, $textes_supplement];
+    if (
+        (strlen($texte) < 29 * 1024)
+        or (include_spip('inc/layer') and ($GLOBALS['browser_name'] != 'MSIE'))
+    ) {
+        return [$texte, ''];
+    }
+
+    include_spip('inc/barre');
+    $textes_supplement = "<br /><span style='color: red'>" . _T('info_texte_long') . "</span>\n";
+    $nombre = 0;
+
+    while (strlen($texte) > 29 * 1024) {
+        $nombre++;
+        [$texte1, $texte] = coupe_trop_long($texte);
+        $textes_supplement .= '<br />' .
+            "<textarea id='texte$nombre' name='texte_plus[$nombre]'$att_text>$texte1</textarea>\n";
+    }
+
+    return [$texte, $textes_supplement];
 }
 
 /**
@@ -417,17 +417,17 @@ 
  * @param int $longueur
  */
 function titre_automatique($champ_titre, $champs_contenu, $longueur = null) {
-	if (!_request($champ_titre)) {
-		$titrer_contenu = charger_fonction('titrer_contenu', 'inc');
-		if (!is_null($longueur)) {
-			$t = $titrer_contenu($champs_contenu, null, $longueur);
-		} else {
-			$t = $titrer_contenu($champs_contenu);
-		}
-		if ($t) {
-			set_request($champ_titre, $t);
-		}
-	}
+    if (!_request($champ_titre)) {
+        $titrer_contenu = charger_fonction('titrer_contenu', 'inc');
+        if (!is_null($longueur)) {
+            $t = $titrer_contenu($champs_contenu, null, $longueur);
+        } else {
+            $t = $titrer_contenu($champs_contenu);
+        }
+        if ($t) {
+            set_request($champ_titre, $t);
+        }
+    }
 }
 
 /**
@@ -447,20 +447,20 @@ 
  * @return string
  */
 function inc_titrer_contenu_dist($champs_contenu, $c = null, $longueur = 50) {
-	// trouver un champ texte non vide
-	$t = '';
-	foreach ($champs_contenu as $champ) {
-		if ($t = _request($champ, $c)) {
-			break;
-		}
-	}
-
-	if ($t) {
-		include_spip('inc/texte_mini');
-		$t = couper($t, $longueur, '...');
-	}
-
-	return $t;
+    // trouver un champ texte non vide
+    $t = '';
+    foreach ($champs_contenu as $champ) {
+        if ($t = _request($champ, $c)) {
+            break;
+        }
+    }
+
+    if ($t) {
+        include_spip('inc/texte_mini');
+        $t = couper($t, $longueur, '...');
+    }
+
+    return $t;
 }
 
 /**
@@ -482,26 +482,26 @@ 
  *      - array sinon couples ('$prefixe$colonne => md5)
  **/
 function controles_md5(array $data, string $prefixe = 'ctr_', string $format = 'html') {
-	$ctr = [];
-	foreach ($data as $key => $val) {
-		$m = md5($val ?? '');
-		$k = $prefixe . $key;
-
-		switch ($format) {
-			case 'html':
-				$ctr[$k] = "<input type='hidden' value='$m' name='$k' />";
-				break;
-			default:
-				$ctr[$k] = $m;
-				break;
-		}
-	}
-
-	if ($format === 'html') {
-		return "\n\n<!-- controles md5 -->\n" . join("\n", $ctr) . "\n\n";
-	} else {
-		return $ctr;
-	}
+    $ctr = [];
+    foreach ($data as $key => $val) {
+        $m = md5($val ?? '');
+        $k = $prefixe . $key;
+
+        switch ($format) {
+            case 'html':
+                $ctr[$k] = "<input type='hidden' value='$m' name='$k' />";
+                break;
+            default:
+                $ctr[$k] = $m;
+                break;
+        }
+    }
+
+    if ($format === 'html') {
+        return "\n\n<!-- controles md5 -->\n" . join("\n", $ctr) . "\n\n";
+    } else {
+        return $ctr;
+    }
 }
 
 /**
@@ -540,80 +540,80 @@ 
  *     - post : le contenu posté
  **/
 function controler_contenu($type, $id, $options = [], $c = false, $serveur = '') {
-	include_spip('inc/filtres');
-
-	$table_objet = table_objet($type);
-	$spip_table_objet = table_objet_sql($type);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_objet, $serveur);
-
-	// Appels incomplets (sans $c)
-	if (!is_array($c)) {
-		$c = [];
-		foreach ($desc['field'] as $champ => $ignore) {
-			if (_request($champ)) {
-				$c[$champ] = _request($champ);
-			}
-		}
-	}
-
-	// Securite : certaines variables ne sont jamais acceptees ici
-	// car elles ne relevent pas de autoriser(article, modifier) ;
-	// il faut passer par instituer_XX()
-	// TODO: faut-il passer ces variables interdites
-	// dans un fichier de description separe ?
-	unset($c['statut']);
-	unset($c['id_parent']);
-	unset($c['id_rubrique']);
-	unset($c['id_secteur']);
-
-	// Gerer les champs non vides
-	if (isset($options['nonvide']) and is_array($options['nonvide'])) {
-		foreach ($options['nonvide'] as $champ => $sinon) {
-			if ($c[$champ] === '') {
-				$c[$champ] = $sinon;
-			}
-		}
-	}
-
-	// N'accepter que les champs qui existent
-	// [TODO] ici aussi on peut valider les contenus en fonction du type
-	$champs = [];
-	foreach ($desc['field'] as $champ => $ignore) {
-		if (isset($c[$champ])) {
-			$champs[$champ] = $c[$champ];
-		}
-	}
-
-	// Nettoyer les valeurs
-	$champs = array_map('corriger_caracteres', $champs);
-
-	// Envoyer aux plugins
-	$champs = pipeline(
-		'pre_edition',
-		[
-			'args' => [
-				'table' => $spip_table_objet, // compatibilite
-				'table_objet' => $table_objet,
-				'spip_table_objet' => $spip_table_objet,
-				'type' => $type,
-				'id_objet' => $id,
-				'champs' => $options['champs'] ?? [], // [doc] c'est quoi ?
-				'action' => 'controler',
-				'serveur' => $serveur,
-			],
-			'data' => $champs
-		]
-	);
-
-	if (!$champs) {
-		return false;
-	}
-
-	// Verifier si les mises a jour sont pertinentes, datees, en conflit etc
-	$conflits = controler_md5($champs, $_POST, $type, $id, $serveur, $options['prefix'] ?? 'ctr_');
-
-	return $conflits;
+    include_spip('inc/filtres');
+
+    $table_objet = table_objet($type);
+    $spip_table_objet = table_objet_sql($type);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_objet, $serveur);
+
+    // Appels incomplets (sans $c)
+    if (!is_array($c)) {
+        $c = [];
+        foreach ($desc['field'] as $champ => $ignore) {
+            if (_request($champ)) {
+                $c[$champ] = _request($champ);
+            }
+        }
+    }
+
+    // Securite : certaines variables ne sont jamais acceptees ici
+    // car elles ne relevent pas de autoriser(article, modifier) ;
+    // il faut passer par instituer_XX()
+    // TODO: faut-il passer ces variables interdites
+    // dans un fichier de description separe ?
+    unset($c['statut']);
+    unset($c['id_parent']);
+    unset($c['id_rubrique']);
+    unset($c['id_secteur']);
+
+    // Gerer les champs non vides
+    if (isset($options['nonvide']) and is_array($options['nonvide'])) {
+        foreach ($options['nonvide'] as $champ => $sinon) {
+            if ($c[$champ] === '') {
+                $c[$champ] = $sinon;
+            }
+        }
+    }
+
+    // N'accepter que les champs qui existent
+    // [TODO] ici aussi on peut valider les contenus en fonction du type
+    $champs = [];
+    foreach ($desc['field'] as $champ => $ignore) {
+        if (isset($c[$champ])) {
+            $champs[$champ] = $c[$champ];
+        }
+    }
+
+    // Nettoyer les valeurs
+    $champs = array_map('corriger_caracteres', $champs);
+
+    // Envoyer aux plugins
+    $champs = pipeline(
+        'pre_edition',
+        [
+            'args' => [
+                'table' => $spip_table_objet, // compatibilite
+                'table_objet' => $table_objet,
+                'spip_table_objet' => $spip_table_objet,
+                'type' => $type,
+                'id_objet' => $id,
+                'champs' => $options['champs'] ?? [], // [doc] c'est quoi ?
+                'action' => 'controler',
+                'serveur' => $serveur,
+            ],
+            'data' => $champs
+        ]
+    );
+
+    if (!$champs) {
+        return false;
+    }
+
+    // Verifier si les mises a jour sont pertinentes, datees, en conflit etc
+    $conflits = controler_md5($champs, $_POST, $type, $id, $serveur, $options['prefix'] ?? 'ctr_');
+
+    return $conflits;
 }
 
 
@@ -643,64 +643,64 @@ 
  *     - post : le contenu posté
  **/
 function controler_md5(&$champs, $ctr, $type, $id, $serveur, $prefix = 'ctr_') {
-	$spip_table_objet = table_objet_sql($type);
-	$id_table_objet = id_table_objet($type);
-
-	// Controle des MD5 envoyes
-	// On elimine les donnees non modifiees par le formulaire (mais
-	// potentiellement modifiees entre temps par un autre utilisateur)
-	foreach ($champs as $key => $val) {
-		if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
-			if (is_scalar($val) and $m == md5($val)) {
-				unset($champs[$key]);
-			}
-		}
-	}
-	if (!$champs) {
-		return;
-	}
-
-	// On veut savoir si notre modif va avoir un impact
-	// par rapport aux donnees contenues dans la base
-	// (qui peuvent etre differentes de celles ayant servi a calculer le ctr)
-	$s = sql_fetsel(array_keys($champs), $spip_table_objet, "$id_table_objet=$id", $serveur);
-	$intact = true;
-	foreach ($champs as $ch => $val) {
-		$intact &= ($s[$ch] == $val);
-	}
-	if ($intact) {
-		return;
-	}
-
-	// Detection de conflits :
-	// On verifie si notre modif ne provient pas d'un formulaire
-	// genere a partir de donnees modifiees dans l'intervalle ; ici
-	// on compare a ce qui est dans la base, et on bloque en cas
-	// de conflit.
-	$ctrh = $ctrq = $conflits = [];
-	foreach (array_keys($champs) as $key) {
-		if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
-			$ctrh[$key] = $m;
-			$ctrq[] = $key;
-		}
-	}
-	if ($ctrq) {
-		$ctrq = sql_fetsel($ctrq, $spip_table_objet, "$id_table_objet=$id", $serveur);
-		foreach ($ctrh as $key => $m) {
-			if (
-				$m != md5($ctrq[$key])
-				and $champs[$key] !== $ctrq[$key]
-			) {
-				$conflits[$key] = [
-					'base' => $ctrq[$key],
-					'post' => $champs[$key]
-				];
-				unset($champs[$key]); # stocker quand meme les modifs ?
-			}
-		}
-	}
-
-	return $conflits;
+    $spip_table_objet = table_objet_sql($type);
+    $id_table_objet = id_table_objet($type);
+
+    // Controle des MD5 envoyes
+    // On elimine les donnees non modifiees par le formulaire (mais
+    // potentiellement modifiees entre temps par un autre utilisateur)
+    foreach ($champs as $key => $val) {
+        if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
+            if (is_scalar($val) and $m == md5($val)) {
+                unset($champs[$key]);
+            }
+        }
+    }
+    if (!$champs) {
+        return;
+    }
+
+    // On veut savoir si notre modif va avoir un impact
+    // par rapport aux donnees contenues dans la base
+    // (qui peuvent etre differentes de celles ayant servi a calculer le ctr)
+    $s = sql_fetsel(array_keys($champs), $spip_table_objet, "$id_table_objet=$id", $serveur);
+    $intact = true;
+    foreach ($champs as $ch => $val) {
+        $intact &= ($s[$ch] == $val);
+    }
+    if ($intact) {
+        return;
+    }
+
+    // Detection de conflits :
+    // On verifie si notre modif ne provient pas d'un formulaire
+    // genere a partir de donnees modifiees dans l'intervalle ; ici
+    // on compare a ce qui est dans la base, et on bloque en cas
+    // de conflit.
+    $ctrh = $ctrq = $conflits = [];
+    foreach (array_keys($champs) as $key) {
+        if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
+            $ctrh[$key] = $m;
+            $ctrq[] = $key;
+        }
+    }
+    if ($ctrq) {
+        $ctrq = sql_fetsel($ctrq, $spip_table_objet, "$id_table_objet=$id", $serveur);
+        foreach ($ctrh as $key => $m) {
+            if (
+                $m != md5($ctrq[$key])
+                and $champs[$key] !== $ctrq[$key]
+            ) {
+                $conflits[$key] = [
+                    'base' => $ctrq[$key],
+                    'post' => $champs[$key]
+                ];
+                unset($champs[$key]); # stocker quand meme les modifs ?
+            }
+        }
+    }
+
+    return $conflits;
 }
 
 /**
@@ -712,11 +712,11 @@ 
  * @return string
  */
 function display_conflit_champ($x) {
-	if (strstr($x, "\n") or strlen($x) > 80) {
-		return "<textarea style='width:99%; height:10em;'>" . entites_html($x) . "</textarea>\n";
-	} else {
-		return "<input type='text' size='40' style='width:99%' value=\"" . entites_html($x) . "\" />\n";
-	}
+    if (strstr($x, "\n") or strlen($x) > 80) {
+        return "<textarea style='width:99%; height:10em;'>" . entites_html($x) . "</textarea>\n";
+    } else {
+        return "<input type='text' size='40' style='width:99%' value=\"" . entites_html($x) . "\" />\n";
+    }
 }
 
 /**
@@ -734,57 +734,57 @@ 
  * @return string
  */
 function signaler_conflits_edition($conflits, $redirect = '') {
-	include_spip('inc/minipres');
-	include_spip('inc/revisions');
-	include_spip('afficher_diff/champ');
-	include_spip('inc/suivi_versions');
-	include_spip('inc/diff');
-	$diffs = [];
-	foreach ($conflits as $champ => $a) {
-		// probleme de stockage ou conflit d'edition ?
-		$base = $a['save'] ?? $a['base'];
-
-		$diff = new Diff(new DiffTexte());
-		$n = preparer_diff($a['post']);
-		$o = preparer_diff($base);
-		$d = propre_diff(afficher_para_modifies(afficher_diff($diff->comparer($n, $o))));
-
-		$titre = isset($a['save']) ? _L(
-			'Echec lors de l\'enregistrement du champ @champ@',
-			['champ' => $champ]
-		) : $champ;
-
-		$diffs[] = "<h2>$titre</h2>\n"
-			. '<h3>' . _T('info_conflit_edition_differences') . "</h3>\n"
-			. "<div style='max-height:8em; overflow: auto; width:99%;'>" . $d . "</div>\n"
-			. '<h4>' . _T('info_conflit_edition_votre_version') . '</h4>'
-			. display_conflit_champ($a['post'])
-			. '<h4>' . _T('info_conflit_edition_version_enregistree') . '</h4>'
-			. display_conflit_champ($base);
-	}
-
-	if ($redirect) {
-		$id = uniqid(random_int(0, mt_getrandmax()));
-		$redirect = "<form action='$redirect' method='get'
+    include_spip('inc/minipres');
+    include_spip('inc/revisions');
+    include_spip('afficher_diff/champ');
+    include_spip('inc/suivi_versions');
+    include_spip('inc/diff');
+    $diffs = [];
+    foreach ($conflits as $champ => $a) {
+        // probleme de stockage ou conflit d'edition ?
+        $base = $a['save'] ?? $a['base'];
+
+        $diff = new Diff(new DiffTexte());
+        $n = preparer_diff($a['post']);
+        $o = preparer_diff($base);
+        $d = propre_diff(afficher_para_modifies(afficher_diff($diff->comparer($n, $o))));
+
+        $titre = isset($a['save']) ? _L(
+            'Echec lors de l\'enregistrement du champ @champ@',
+            ['champ' => $champ]
+        ) : $champ;
+
+        $diffs[] = "<h2>$titre</h2>\n"
+            . '<h3>' . _T('info_conflit_edition_differences') . "</h3>\n"
+            . "<div style='max-height:8em; overflow: auto; width:99%;'>" . $d . "</div>\n"
+            . '<h4>' . _T('info_conflit_edition_votre_version') . '</h4>'
+            . display_conflit_champ($a['post'])
+            . '<h4>' . _T('info_conflit_edition_version_enregistree') . '</h4>'
+            . display_conflit_champ($base);
+    }
+
+    if ($redirect) {
+        $id = uniqid(random_int(0, mt_getrandmax()));
+        $redirect = "<form action='$redirect' method='get'
 			id='$id'
 			style='float:" . $GLOBALS['spip_lang_right'] . "; margin-top:2em;'>\n"
-			. form_hidden($redirect)
-			. "<input type='submit' value='" . _T('icone_retour') . "' />
+            . form_hidden($redirect)
+            . "<input type='submit' value='" . _T('icone_retour') . "' />
 		</form>\n";
 
-		// pour les documents, on est probablement en ajax : il faut ajaxer
-		if (_AJAX) {
-			$redirect .= '<script type="text/javascript">'
-				. 'setTimeout(function(){$("#' . $id . '")
+        // pour les documents, on est probablement en ajax : il faut ajaxer
+        if (_AJAX) {
+            $redirect .= '<script type="text/javascript">'
+                . 'setTimeout(function(){$("#' . $id . '")
 			.ajaxForm({target:$("#' . $id . '").parent()});
 			}, 200);'
-				. "</script>\n";
-		}
-	}
+                . "</script>\n";
+        }
+    }
 
-	echo minipres(
-		_T('titre_conflit_edition'),
-		'<style>
+    echo minipres(
+        _T('titre_conflit_edition'),
+        '<style>
 .diff-para-deplace { background: #e8e8ff; }
 .diff-para-ajoute { background: #d0ffc0; color: #000; }
 .diff-para-supprime { background: #ffd0c0; color: #904040; text-decoration: line-through; }
@@ -795,12 +795,12 @@ 
 .diff-para-deplace .diff-supprime { background: #ffb8b8; border: 1px solid #808080; }
 .diff-para-deplace .diff-deplace { background: #b8b8ff; border: 1px solid #808080; }
 </style>'
-		. '<p>' . _T('info_conflit_edition_avis_non_sauvegarde') . '</p>'
-		. '<p>' . _T('texte_conflit_edition_correction') . '</p>'
-		. "<div style='text-align:" . $GLOBALS['spip_lang_left'] . ";'>"
-		. join("\n", $diffs)
-		. "</div>\n"
-
-		. $redirect
-	);
+        . '<p>' . _T('info_conflit_edition_avis_non_sauvegarde') . '</p>'
+        . '<p>' . _T('texte_conflit_edition_correction') . '</p>'
+        . "<div style='text-align:" . $GLOBALS['spip_lang_left'] . ";'>"
+        . join("\n", $diffs)
+        . "</div>\n"
+
+        . $redirect
+    );
 }

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