spip / SPIP

ecrire/inc/install.php

Doc Comments +18 added lines

@@ -234,6 +234,9 @@ 
 
 
 // https://code.spip.net/@info_etape
+/**
+ * @param string $titre
+ */
 function info_etape($titre, $complement = '') {
 	return "<h2>" . $titre . "</h2>\n" .
 	($complement ? "" . $complement . "\n" : '');
@@ -259,6 +262,11 @@ 
 }
 
 // https://code.spip.net/@info_progression_etape
+/**
+ * @param integer $en_cours
+ * @param string $phase
+ * @param string $dir
+ */
 function info_progression_etape($en_cours, $phase, $dir, $erreur = false) {
 	//$en_cours = _request('etape')?_request('etape'):"";
 	$liste = find_all_in_path($dir, $phase . '(([0-9])+|fin)[.]php$');
@@ -315,6 +323,9 @@ 
 
 
 // https://code.spip.net/@fieldset
+/**
+ * @param string $legend
+ */
 function fieldset($legend, $champs = array(), $apres = '', $avant = '') {
 	return "<fieldset>\n" .
 	$avant .
@@ -382,6 +393,10 @@ 
 }
 
 // https://code.spip.net/@install_connexion_form
+/**
+ * @param string[] $pass
+ * @param integer $etape
+ */
 function install_connexion_form($db, $login, $pass, $predef, $hidden, $etape, $jquery = true) {
 	$server_db = (is_string($predef[0])) ? $predef[0] : '';
 
@@ -559,6 +574,9 @@ 
 	return array($checked, $bases);
 }
 
+/**
+ * @param string[] $hidden
+ */
 function install_propager($hidden) {
 	$res = '';
 	foreach ($hidden as $k) {

Indentation +354 added lines, -354 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -43,12 +43,12 @@ 
  * @return void
  **/
 function install_fichier_connexion($nom, $texte) {
-	$texte = "<" . "?php\n"
-		. "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
-		. $texte
-		. "?" . ">";
+    $texte = "<" . "?php\n"
+        . "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
+        . $texte
+        . "?" . ">";
 
-	ecrire_fichier($nom, $texte);
+    ecrire_fichier($nom, $texte);
 }
 
 
@@ -77,20 +77,20 @@ 
  *
  **/
 function install_connexion($adr, $port, $login, $pass, $base, $type, $pref, $ldap = '', $charset = '') {
-	$adr = addcslashes($adr, "'\\");
-	$port = addcslashes($port, "'\\");
-	$login = addcslashes($login, "'\\");
-	$pass = addcslashes($pass, "'\\");
-	$base = addcslashes($base, "'\\");
-	$type = addcslashes($type, "'\\");
-	$pref = addcslashes($pref, "'\\");
-	$ldap = addcslashes($ldap, "'\\");
-	$charset = addcslashes($charset, "'\\");
-
-	return "\$GLOBALS['spip_connect_version'] = 0.8;\n"
-	. "spip_connect_db("
-	. "'$adr','$port','$login','$pass','$base'"
-	. ",'$type', '$pref','$ldap','$charset');\n";
+    $adr = addcslashes($adr, "'\\");
+    $port = addcslashes($port, "'\\");
+    $login = addcslashes($login, "'\\");
+    $pass = addcslashes($pass, "'\\");
+    $base = addcslashes($base, "'\\");
+    $type = addcslashes($type, "'\\");
+    $pref = addcslashes($pref, "'\\");
+    $ldap = addcslashes($ldap, "'\\");
+    $charset = addcslashes($charset, "'\\");
+
+    return "\$GLOBALS['spip_connect_version'] = 0.8;\n"
+    . "spip_connect_db("
+    . "'$adr','$port','$login','$pass','$base'"
+    . ",'$type', '$pref','$ldap','$charset');\n";
 }
 
 
@@ -106,26 +106,26 @@ 
  *     Tableau des informations sur la connexion
  **/
 function analyse_fichier_connection($file) {
-	$s = @join('', file($file));
-	if (preg_match("#mysql_connect\([\"'](.*)[\"'],[\"'](.*)[\"'],[\"'](.*)[\"']\)#", $s, $regs)) {
-		array_shift($regs);
-
-		return $regs;
-	} else {
-		$ar = '\s*\'([^\']*)\'';
-		$r = '\s*,' . $ar;
-		$r = "#spip_connect_db[(]$ar$r$r$r$r(?:$r(?:$r(?:$r(?:$r)?)?)?)?#";
-		if (preg_match($r, $s, $regs)) {
-			$regs[2] = $regs[1] . (!$regs[2] ? '' : ":" . $regs[2] . ";");
-			array_shift($regs);
-			array_shift($regs);
-
-			return $regs;
-		}
-	}
-	spip_log("$file n'est pas un fichier de connexion");
-
-	return array();
+    $s = @join('', file($file));
+    if (preg_match("#mysql_connect\([\"'](.*)[\"'],[\"'](.*)[\"'],[\"'](.*)[\"']\)#", $s, $regs)) {
+        array_shift($regs);
+
+        return $regs;
+    } else {
+        $ar = '\s*\'([^\']*)\'';
+        $r = '\s*,' . $ar;
+        $r = "#spip_connect_db[(]$ar$r$r$r$r(?:$r(?:$r(?:$r(?:$r)?)?)?)?#";
+        if (preg_match($r, $s, $regs)) {
+            $regs[2] = $regs[1] . (!$regs[2] ? '' : ":" . $regs[2] . ";");
+            array_shift($regs);
+            array_shift($regs);
+
+            return $regs;
+        }
+    }
+    spip_log("$file n'est pas un fichier de connexion");
+
+    return array();
 }
 
 /**
@@ -142,21 +142,21 @@ 
  *     Liste des noms de connecteurs
  **/
 function bases_referencees($exclu = '') {
-	$tables = array();
-	foreach (preg_files(_DIR_CONNECT, '.php$') as $f) {
-		if ($f != $exclu and analyse_fichier_connection($f)) {
-			$tables[] = basename($f, '.php');
-		}
-	}
-
-	return $tables;
+    $tables = array();
+    foreach (preg_files(_DIR_CONNECT, '.php$') as $f) {
+        if ($f != $exclu and analyse_fichier_connection($f)) {
+            $tables[] = basename($f, '.php');
+        }
+    }
+
+    return $tables;
 }
 
 
 function install_mode_appel($server_db, $tout = true) {
-	return ($server_db != 'mysql') ? ''
-		: (($tout ? test_rappel_nom_base_mysql($server_db) : '')
-			. test_sql_mode_mysql($server_db));
+    return ($server_db != 'mysql') ? ''
+        : (($tout ? test_rappel_nom_base_mysql($server_db) : '')
+            . test_sql_mode_mysql($server_db));
 }
 
 //
@@ -164,52 +164,52 @@ 
 // (sert a l'etape 1 de l'installation)
 // https://code.spip.net/@tester_compatibilite_hebergement
 function tester_compatibilite_hebergement() {
-	$err = array();
-
-	$p = phpversion();
-	if (version_compare($p, _PHP_MIN, '<')) {
-		$err[] = _T('install_php_version', array('version' => $p, 'minimum' => _PHP_MIN));
-	}
-
-	// Si on n'a pas la bonne version de PHP, c'est la fin
-	if ($err) {
-		die("<div class='error'>"
-			. "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>"
-			. "<li><strong>{$err[0]}</strong></li>\n</ul></div>");
-	}
-
-	// Il faut une base de donnees tout de meme ...
-	$serveurs = install_select_serveur();
-	if (!$serveurs) {
-		$err[] = _T('install_extension_php_obligatoire')
-			. " <a href='http://www.php.net/mysql'>MYSQL</a>"
-			. "| <a href='http://www.php.net/pgsql'>PostgreSQL</a>"
-			. "| <a href='http://www.php.net/sqlite'>SQLite</a>";
-	}
-
-	// et il faut preg
-	if (!function_exists('preg_match_all')) {
-		$err[] = _T('install_extension_php_obligatoire')
-			. " <a href='http://se.php.net/pcre'>PCRE</a>";
-	}
-
-	// et surtout pas ce mbstring.overload
-	if ($a = @ini_get('mbstring.func_overload')) {
-		$err[] = _T('install_extension_mbstring')
-			. "mbstring.func_overload=$a - <a href='http://www.php.net/mb_string'>mb_string</a>.<br /><small>";
-	}
-
-	if ($err) {
-		echo "<div class='error'>"
-			. "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>";
-		foreach ($err as $e) {
-			echo "<li><strong>$e</strong></li>\n";
-		}
-
-		# a priori ici on pourrait die(), mais il faut laisser la possibilite
-		# de forcer malgre tout (pour tester, ou si bug de detection)
-		echo "</ul></div>\n";
-	}
+    $err = array();
+
+    $p = phpversion();
+    if (version_compare($p, _PHP_MIN, '<')) {
+        $err[] = _T('install_php_version', array('version' => $p, 'minimum' => _PHP_MIN));
+    }
+
+    // Si on n'a pas la bonne version de PHP, c'est la fin
+    if ($err) {
+        die("<div class='error'>"
+            . "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>"
+            . "<li><strong>{$err[0]}</strong></li>\n</ul></div>");
+    }
+
+    // Il faut une base de donnees tout de meme ...
+    $serveurs = install_select_serveur();
+    if (!$serveurs) {
+        $err[] = _T('install_extension_php_obligatoire')
+            . " <a href='http://www.php.net/mysql'>MYSQL</a>"
+            . "| <a href='http://www.php.net/pgsql'>PostgreSQL</a>"
+            . "| <a href='http://www.php.net/sqlite'>SQLite</a>";
+    }
+
+    // et il faut preg
+    if (!function_exists('preg_match_all')) {
+        $err[] = _T('install_extension_php_obligatoire')
+            . " <a href='http://se.php.net/pcre'>PCRE</a>";
+    }
+
+    // et surtout pas ce mbstring.overload
+    if ($a = @ini_get('mbstring.func_overload')) {
+        $err[] = _T('install_extension_mbstring')
+            . "mbstring.func_overload=$a - <a href='http://www.php.net/mb_string'>mb_string</a>.<br /><small>";
+    }
+
+    if ($err) {
+        echo "<div class='error'>"
+            . "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>";
+        foreach ($err as $e) {
+            echo "<li><strong>$e</strong></li>\n";
+        }
+
+        # a priori ici on pourrait die(), mais il faut laisser la possibilite
+        # de forcer malgre tout (pour tester, ou si bug de detection)
+        echo "</ul></div>\n";
+    }
 }
 
 
@@ -219,24 +219,24 @@ 
  * @note superflu ??
  */
 function login_hebergeur() {
-	$base_hebergeur = 'localhost'; # par defaut
+    $base_hebergeur = 'localhost'; # par defaut
 
-	// Free
-	if (preg_match(',(.*)\.free\.fr$,', $_SERVER['SERVER_NAME'], $regs)) {
-		$base_hebergeur = 'sql.free.fr';
-		$login_hebergeur = $regs[1];
-	} else {
-		$login_hebergeur = '';
-	}
+    // Free
+    if (preg_match(',(.*)\.free\.fr$,', $_SERVER['SERVER_NAME'], $regs)) {
+        $base_hebergeur = 'sql.free.fr';
+        $login_hebergeur = $regs[1];
+    } else {
+        $login_hebergeur = '';
+    }
 
-	return array($base_hebergeur, $login_hebergeur);
+    return array($base_hebergeur, $login_hebergeur);
 }
 
 
 // https://code.spip.net/@info_etape
 function info_etape($titre, $complement = '') {
-	return "<h2>" . $titre . "</h2>\n" .
-	($complement ? "" . $complement . "\n" : '');
+    return "<h2>" . $titre . "</h2>\n" .
+    ($complement ? "" . $complement . "\n" : '');
 }
 
 /**
@@ -246,155 +246,155 @@ 
  * @return string Code HTML du bouton
  **/
 function bouton_suivant($code = '') {
-	if ($code == '') {
-		$code = _T('bouton_suivant');
-	}
-	static $suivant = 0;
-	$id = 'suivant' . (($suivant > 0) ? strval($suivant) : '');
-	$suivant += 1;
-
-	return "\n<p class='boutons suivant'><input id='" . $id . "' type='submit'\nvalue=\"" .
-	$code .
-	" >>\" /></p>\n";
+    if ($code == '') {
+        $code = _T('bouton_suivant');
+    }
+    static $suivant = 0;
+    $id = 'suivant' . (($suivant > 0) ? strval($suivant) : '');
+    $suivant += 1;
+
+    return "\n<p class='boutons suivant'><input id='" . $id . "' type='submit'\nvalue=\"" .
+    $code .
+    " >>\" /></p>\n";
 }
 
 // https://code.spip.net/@info_progression_etape
 function info_progression_etape($en_cours, $phase, $dir, $erreur = false) {
-	//$en_cours = _request('etape')?_request('etape'):"";
-	$liste = find_all_in_path($dir, $phase . '(([0-9])+|fin)[.]php$');
-	$debut = 1;
-	$etat = "ok";
-	$last = count($liste);
+    //$en_cours = _request('etape')?_request('etape'):"";
+    $liste = find_all_in_path($dir, $phase . '(([0-9])+|fin)[.]php$');
+    $debut = 1;
+    $etat = "ok";
+    $last = count($liste);
 //	$texte_etat = array('ok'=>'OK','encours'=>_T('en_cours'),'todo'=>_T('todo'));
 
-	$intitule_etat["etape_"][1] = typo(_T('info_connexion_base_donnee'));
-	$intitule_etat["etape_"][2] = typo(_T('menu_aide_installation_choix_base'));
-	$intitule_etat["etape_"][3] = typo(_T('info_informations_personnelles'));
-	$intitule_etat["etape_"][4] = typo(_T('info_derniere_etape'));
+    $intitule_etat["etape_"][1] = typo(_T('info_connexion_base_donnee'));
+    $intitule_etat["etape_"][2] = typo(_T('menu_aide_installation_choix_base'));
+    $intitule_etat["etape_"][3] = typo(_T('info_informations_personnelles'));
+    $intitule_etat["etape_"][4] = typo(_T('info_derniere_etape'));
 
-	$intitule_etat["etape_ldap"][1] = typo(_T('titre_connexion_ldap'));
-	$intitule_etat["etape_ldap"][2] = typo(_T('titre_connexion_ldap'));
-	$intitule_etat["etape_ldap"][3] = typo(_T('info_chemin_acces_1'));
-	$intitule_etat["etape_ldap"][4] = typo(_T('info_reglage_ldap'));
-	$intitule_etat["etape_ldap"][5] = typo(_T('info_ldap_ok'));
+    $intitule_etat["etape_ldap"][1] = typo(_T('titre_connexion_ldap'));
+    $intitule_etat["etape_ldap"][2] = typo(_T('titre_connexion_ldap'));
+    $intitule_etat["etape_ldap"][3] = typo(_T('info_chemin_acces_1'));
+    $intitule_etat["etape_ldap"][4] = typo(_T('info_reglage_ldap'));
+    $intitule_etat["etape_ldap"][5] = typo(_T('info_ldap_ok'));
 
 //	$aff_etapes = "<span id='etapes'>";
 
-	$aff_etapes = "<ul id='infos_etapes' class='infos_$phase$en_cours'>";
-
-	foreach ($liste as $etape => $fichier) {
-		if ($debut < $last) {
-			if ($debut == $en_cours && $erreur) {
-				$class = "on erreur";
-			} else {
-				if ($debut == $en_cours) {
-					$class = "on";
-				} else {
-					if ($debut > $en_cours) {
-						$class = "prochains";
-					} else {
-						$class = "valides";
-					}
-				}
-			}
-
-			$aff_etapes .= "<li class='$class'><div class='fond'>";
-			$aff_etapes .= ($debut == $en_cours) ? "<strong>" : '';
-			$aff_etapes .= "<em>" . _T('etape') . " </em><span class='numero_etape'>$debut</span><em>&nbsp;: </em>";
-			$aff_etapes .= $intitule_etat["$phase"][$debut];
-			$aff_etapes .= ($debut == $en_cours) ? "</strong>" : '';
-			$aff_etapes .= "</div></li>";
-		}
-		$debut++;
-	}
-	$aff_etapes .= "</ul>";
-	$aff_etapes .= "<br class='nettoyeur' />\n";
-
-	return $aff_etapes;
+    $aff_etapes = "<ul id='infos_etapes' class='infos_$phase$en_cours'>";
+
+    foreach ($liste as $etape => $fichier) {
+        if ($debut < $last) {
+            if ($debut == $en_cours && $erreur) {
+                $class = "on erreur";
+            } else {
+                if ($debut == $en_cours) {
+                    $class = "on";
+                } else {
+                    if ($debut > $en_cours) {
+                        $class = "prochains";
+                    } else {
+                        $class = "valides";
+                    }
+                }
+            }
+
+            $aff_etapes .= "<li class='$class'><div class='fond'>";
+            $aff_etapes .= ($debut == $en_cours) ? "<strong>" : '';
+            $aff_etapes .= "<em>" . _T('etape') . " </em><span class='numero_etape'>$debut</span><em>&nbsp;: </em>";
+            $aff_etapes .= $intitule_etat["$phase"][$debut];
+            $aff_etapes .= ($debut == $en_cours) ? "</strong>" : '';
+            $aff_etapes .= "</div></li>";
+        }
+        $debut++;
+    }
+    $aff_etapes .= "</ul>";
+    $aff_etapes .= "<br class='nettoyeur' />\n";
+
+    return $aff_etapes;
 }
 
 
 // https://code.spip.net/@fieldset
 function fieldset($legend, $champs = array(), $apres = '', $avant = '') {
-	return "<fieldset>\n" .
-	$avant .
-	($legend ? "<legend>" . $legend . "</legend>\n" : '') .
-	fieldset_champs($champs) .
-	$apres .
-	"</fieldset>\n";
+    return "<fieldset>\n" .
+    $avant .
+    ($legend ? "<legend>" . $legend . "</legend>\n" : '') .
+    fieldset_champs($champs) .
+    $apres .
+    "</fieldset>\n";
 }
 
 function fieldset_champs($champs = array()) {
-	$fieldset = '';
-	foreach ($champs as $nom => $contenu) {
-		$type = isset($contenu['hidden']) ? 'hidden' : (preg_match(',^pass,', $nom) ? 'password' : 'text');
-		$class = isset($contenu['hidden']) ? '' : "class='formo' size='40' ";
-		if (isset($contenu['alternatives'])) {
-			$fieldset .= $contenu['label'] . "\n";
-			foreach ($contenu['alternatives'] as $valeur => $label) {
-				$fieldset .= "<input type='radio' name='" . $nom .
-					"' id='$nom-$valeur' value='$valeur'"
-					. (($valeur == $contenu['valeur']) ? "\nchecked='checked'" : '')
-					. "/>\n";
-				$fieldset .= "<label for='$nom-$valeur'>" . $label . "</label>\n";
-			}
-			$fieldset .= "<br />\n";
-		} else {
-			$fieldset .= "<label for='" . $nom . "'>" . $contenu['label'] . "</label>\n";
-			$fieldset .= "<input " . $class . "type='" . $type . "' id='" . $nom . "' name='" . $nom . "'\nvalue='" . $contenu['valeur'] . "'"
-				. (preg_match(',^(pass|login),', $nom) ? " autocomplete='off'" : '')
-				. ((isset($contenu['required']) and $contenu['required']) ? " required='required'" : "")
-				. " />\n";
-		}
-	}
-
-	return $fieldset;
+    $fieldset = '';
+    foreach ($champs as $nom => $contenu) {
+        $type = isset($contenu['hidden']) ? 'hidden' : (preg_match(',^pass,', $nom) ? 'password' : 'text');
+        $class = isset($contenu['hidden']) ? '' : "class='formo' size='40' ";
+        if (isset($contenu['alternatives'])) {
+            $fieldset .= $contenu['label'] . "\n";
+            foreach ($contenu['alternatives'] as $valeur => $label) {
+                $fieldset .= "<input type='radio' name='" . $nom .
+                    "' id='$nom-$valeur' value='$valeur'"
+                    . (($valeur == $contenu['valeur']) ? "\nchecked='checked'" : '')
+                    . "/>\n";
+                $fieldset .= "<label for='$nom-$valeur'>" . $label . "</label>\n";
+            }
+            $fieldset .= "<br />\n";
+        } else {
+            $fieldset .= "<label for='" . $nom . "'>" . $contenu['label'] . "</label>\n";
+            $fieldset .= "<input " . $class . "type='" . $type . "' id='" . $nom . "' name='" . $nom . "'\nvalue='" . $contenu['valeur'] . "'"
+                . (preg_match(',^(pass|login),', $nom) ? " autocomplete='off'" : '')
+                . ((isset($contenu['required']) and $contenu['required']) ? " required='required'" : "")
+                . " />\n";
+        }
+    }
+
+    return $fieldset;
 }
 
 function install_select_serveur() {
-	$options = array();
-	$dir = _DIR_RESTREINT . 'req/';
-	$d = opendir($dir);
-	if (!$d) {
-		return array();
-	}
-	while (($f = readdir($d)) !== false) {
-		if ((preg_match('/^(.*)[.]php$/', $f, $s))
-			and is_readable($f = $dir . $f)
-		) {
-			require_once($f);
-			$s = $s[1];
-			$v = 'spip_versions_' . $s;
-			if (function_exists($v) and $v()) {
-				$titre = _T("install_select_type_$s");
-				// proposer mysql par defaut si dispo
-				$checked = ($s == 'mysql' ? " checked='checked'" : "");
-				$options[$s] = "<li><input type='radio' id='$s' value='$s' name='server_db'$checked>"
-					. "<label for='$s'>" . ($titre ? $titre : $s) . "</label></li>";
-			} else {
-				spip_log("$s: portage indisponible");
-			}
-		}
-	}
-	sort($options);
-
-	return $options;
+    $options = array();
+    $dir = _DIR_RESTREINT . 'req/';
+    $d = opendir($dir);
+    if (!$d) {
+        return array();
+    }
+    while (($f = readdir($d)) !== false) {
+        if ((preg_match('/^(.*)[.]php$/', $f, $s))
+            and is_readable($f = $dir . $f)
+        ) {
+            require_once($f);
+            $s = $s[1];
+            $v = 'spip_versions_' . $s;
+            if (function_exists($v) and $v()) {
+                $titre = _T("install_select_type_$s");
+                // proposer mysql par defaut si dispo
+                $checked = ($s == 'mysql' ? " checked='checked'" : "");
+                $options[$s] = "<li><input type='radio' id='$s' value='$s' name='server_db'$checked>"
+                    . "<label for='$s'>" . ($titre ? $titre : $s) . "</label></li>";
+            } else {
+                spip_log("$s: portage indisponible");
+            }
+        }
+    }
+    sort($options);
+
+    return $options;
 }
 
 // https://code.spip.net/@install_connexion_form
 function install_connexion_form($db, $login, $pass, $predef, $hidden, $etape, $jquery = true) {
-	$server_db = (is_string($predef[0])) ? $predef[0] : '';
-
-	return generer_form_ecrire('install', (
-		"\n<input type='hidden' name='etape' value='$etape' />"
-		. $hidden
-		. (_request('echec') ?
-			("<p><b>" . _T('avis_connexion_echec_1') .
-				"</b></p><p>" . _T('avis_connexion_echec_2') . "</p><p style='font-size: small;'>" . _T('avis_connexion_echec_3') . "</p>")
-			: "")
-
-		. ($jquery ? http_script('', 'jquery.js') : '')
-		. http_script('
+    $server_db = (is_string($predef[0])) ? $predef[0] : '';
+
+    return generer_form_ecrire('install', (
+        "\n<input type='hidden' name='etape' value='$etape' />"
+        . $hidden
+        . (_request('echec') ?
+            ("<p><b>" . _T('avis_connexion_echec_1') .
+                "</b></p><p>" . _T('avis_connexion_echec_2') . "</p><p style='font-size: small;'>" . _T('avis_connexion_echec_3') . "</p>")
+            : "")
+
+        . ($jquery ? http_script('', 'jquery.js') : '')
+        . http_script('
 		jQuery(function($) {
 			$details_db = $("#install_adresse_base_hebergeur,#install_login_base_hebergeur,#install_pass_base_hebergeur");
 			$("input[type=hidden][name=server_db]").each(function(){
@@ -427,67 +427,67 @@ 
 			});
 		});')
 
-		. ($server_db
-			? '<input type="hidden" name="server_db" value="' . $server_db . '" />'
-			. (($predef[0])
-				? ('<h3>' . _T('install_serveur_hebergeur') . '</h3>')
-				: '')
-			: ('<fieldset><legend>'
-				. _T('install_select_type_db')
-				. "</legend>"
-				. '<p class="explication">'
-				. _T('install_types_db_connus')
-				// Passer l'avertissement SQLIte en  commentaire, on pourra facilement le supprimer par la suite sans changer les traductions.
-				// . "<br /><small>(". _T('install_types_db_connus_avertissement') .')</small>'
-				. '</p>'
-				. "\n<div class='p'>\n<ul>\n"
-				. join("\n", install_select_serveur())
-				. "\n</ul>\n</div></fieldset>")
-		)
-		. '<div id="install_adresse_base_hebergeur">'
-		. '<p>' . _T('texte_connexion_mysql') . '</p>'
-		. ($predef[1]
-			? '<h3>' . _T('install_adresse_base_hebergeur') . '</h3>'
-			: fieldset(_T('entree_base_donnee_1'),
-				array(
-					'adresse_db' => array(
-						'label' => $db[1],
-						'valeur' => $db[0]
-					),
-				)
-			)
-		)
-		. '</div>'
-
-		. '<div id="install_login_base_hebergeur">'
-		. ($predef[2]
-			? '<h3>' . _T('install_login_base_hebergeur') . '</h3>'
-			: fieldset(_T('entree_login_connexion_1'),
-				array(
-					'login_db' => array(
-						'label' => $login[1],
-						'valeur' => $login[0]
-					),
-				)
-			)
-		)
-		. '</div>'
-
-		. '<div id="install_pass_base_hebergeur">'
-		. ($predef[3]
-			? '<h3>' . _T('install_pass_base_hebergeur') . '</h3>'
-			: fieldset(_T('entree_mot_passe_1'),
-				array(
-					'pass_db' => array(
-						'label' => $pass[1],
-						'valeur' => $pass[0]
-					),
-				)
-			)
-		)
-		. '</div>'
-
-		. bouton_suivant()));
+        . ($server_db
+            ? '<input type="hidden" name="server_db" value="' . $server_db . '" />'
+            . (($predef[0])
+                ? ('<h3>' . _T('install_serveur_hebergeur') . '</h3>')
+                : '')
+            : ('<fieldset><legend>'
+                . _T('install_select_type_db')
+                . "</legend>"
+                . '<p class="explication">'
+                . _T('install_types_db_connus')
+                // Passer l'avertissement SQLIte en  commentaire, on pourra facilement le supprimer par la suite sans changer les traductions.
+                // . "<br /><small>(". _T('install_types_db_connus_avertissement') .')</small>'
+                . '</p>'
+                . "\n<div class='p'>\n<ul>\n"
+                . join("\n", install_select_serveur())
+                . "\n</ul>\n</div></fieldset>")
+        )
+        . '<div id="install_adresse_base_hebergeur">'
+        . '<p>' . _T('texte_connexion_mysql') . '</p>'
+        . ($predef[1]
+            ? '<h3>' . _T('install_adresse_base_hebergeur') . '</h3>'
+            : fieldset(_T('entree_base_donnee_1'),
+                array(
+                    'adresse_db' => array(
+                        'label' => $db[1],
+                        'valeur' => $db[0]
+                    ),
+                )
+            )
+        )
+        . '</div>'
+
+        . '<div id="install_login_base_hebergeur">'
+        . ($predef[2]
+            ? '<h3>' . _T('install_login_base_hebergeur') . '</h3>'
+            : fieldset(_T('entree_login_connexion_1'),
+                array(
+                    'login_db' => array(
+                        'label' => $login[1],
+                        'valeur' => $login[0]
+                    ),
+                )
+            )
+        )
+        . '</div>'
+
+        . '<div id="install_pass_base_hebergeur">'
+        . ($predef[3]
+            ? '<h3>' . _T('install_pass_base_hebergeur') . '</h3>'
+            : fieldset(_T('entree_mot_passe_1'),
+                array(
+                    'pass_db' => array(
+                        'label' => $pass[1],
+                        'valeur' => $pass[0]
+                    ),
+                )
+            )
+        )
+        . '</div>'
+
+        . bouton_suivant()));
 
 }
 
@@ -496,75 +496,75 @@ 
 
 // https://code.spip.net/@predef_ou_cache
 function predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db) {
-	return ((defined('_INSTALL_HOST_DB'))
-		? ''
-		: "\n<input type='hidden' name='adresse_db'  value=\"" . spip_htmlspecialchars($adresse_db) . "\" />"
-	)
-	. ((defined('_INSTALL_USER_DB'))
-		? ''
-		: "\n<input type='hidden' name='login_db' value=\"" . spip_htmlspecialchars($login_db) . "\" />"
-	)
-	. ((defined('_INSTALL_PASS_DB'))
-		? ''
-		: "\n<input type='hidden' name='pass_db' value=\"" . spip_htmlspecialchars($pass_db) . "\" />"
-	)
-
-	. ((defined('_INSTALL_SERVER_DB'))
-		? ''
-		: "\n<input type='hidden' name='server_db' value=\"" . spip_htmlspecialchars($server_db) . "\" />"
-	);
+    return ((defined('_INSTALL_HOST_DB'))
+        ? ''
+        : "\n<input type='hidden' name='adresse_db'  value=\"" . spip_htmlspecialchars($adresse_db) . "\" />"
+    )
+    . ((defined('_INSTALL_USER_DB'))
+        ? ''
+        : "\n<input type='hidden' name='login_db' value=\"" . spip_htmlspecialchars($login_db) . "\" />"
+    )
+    . ((defined('_INSTALL_PASS_DB'))
+        ? ''
+        : "\n<input type='hidden' name='pass_db' value=\"" . spip_htmlspecialchars($pass_db) . "\" />"
+    )
+
+    . ((defined('_INSTALL_SERVER_DB'))
+        ? ''
+        : "\n<input type='hidden' name='server_db' value=\"" . spip_htmlspecialchars($server_db) . "\" />"
+    );
 }
 
 // presentation des bases existantes
 
 // https://code.spip.net/@install_etape_liste_bases
 function install_etape_liste_bases($server_db, $login_db, $disabled = array()) {
-	$bases = $checked = array();
-	$noms = sql_listdbs($server_db);
-	if (!$noms) {
-		return '';
-	}
-
-	foreach ($noms as $nom) {
-		$id = spip_htmlspecialchars($nom);
-		$dis = in_array($nom, $disabled) ? " disabled='disabled'" : '';
-		$base = " name=\"choix_db\" value=\""
-			. $nom
-			. '"'
-			. $dis
-			. " type='radio' id='$id'";
-		$label = "<label for='$id'>"
-			. ($dis ? "<i>$nom</i>" : $nom)
-			. "</label>";
-
-		if (!$checked and !$dis and
-			(($nom == $login_db) or
-				($GLOBALS['table_prefix'] == $nom))
-		) {
-			$checked = "<input$base checked='checked' />\n$label";
-		} else {
-			$bases[] = "<input$base />\n$label";
-		}
-	}
-
-	if (!$bases && !$checked) {
-		return false;
-	}
-
-	if ($checked) {
-		array_unshift($bases, $checked);
-		$checked = true;
-	}
-
-	return array($checked, $bases);
+    $bases = $checked = array();
+    $noms = sql_listdbs($server_db);
+    if (!$noms) {
+        return '';
+    }
+
+    foreach ($noms as $nom) {
+        $id = spip_htmlspecialchars($nom);
+        $dis = in_array($nom, $disabled) ? " disabled='disabled'" : '';
+        $base = " name=\"choix_db\" value=\""
+            . $nom
+            . '"'
+            . $dis
+            . " type='radio' id='$id'";
+        $label = "<label for='$id'>"
+            . ($dis ? "<i>$nom</i>" : $nom)
+            . "</label>";
+
+        if (!$checked and !$dis and
+            (($nom == $login_db) or
+                ($GLOBALS['table_prefix'] == $nom))
+        ) {
+            $checked = "<input$base checked='checked' />\n$label";
+        } else {
+            $bases[] = "<input$base />\n$label";
+        }
+    }
+
+    if (!$bases && !$checked) {
+        return false;
+    }
+
+    if ($checked) {
+        array_unshift($bases, $checked);
+        $checked = true;
+    }
+
+    return array($checked, $bases);
 }
 
 function install_propager($hidden) {
-	$res = '';
-	foreach ($hidden as $k) {
-		$v = spip_htmlentities(_request($k));
-		$res .= "<input type='hidden' name='$k' value='$v' />";
-	}
+    $res = '';
+    foreach ($hidden as $k) {
+        $v = spip_htmlentities(_request($k));
+        $res .= "<input type='hidden' name='$k' value='$v' />";
+    }
 
-	return $res;
+    return $res;
 }

Spacing +39 added lines, -39 removed lines

@@ -43,10 +43,10 @@ 
  * @return void
  **/
 function install_fichier_connexion($nom, $texte) {
-	$texte = "<" . "?php\n"
+	$texte = "<"."?php\n"
 		. "if (!defined(\"_ECRIRE_INC_VERSION\")) return;\n"
 		. $texte
-		. "?" . ">";
+		. "?".">";
 
 	ecrire_fichier($nom, $texte);
 }
@@ -113,10 +113,10 @@ 
 		return $regs;
 	} else {
 		$ar = '\s*\'([^\']*)\'';
-		$r = '\s*,' . $ar;
+		$r = '\s*,'.$ar;
 		$r = "#spip_connect_db[(]$ar$r$r$r$r(?:$r(?:$r(?:$r(?:$r)?)?)?)?#";
 		if (preg_match($r, $s, $regs)) {
-			$regs[2] = $regs[1] . (!$regs[2] ? '' : ":" . $regs[2] . ";");
+			$regs[2] = $regs[1].(!$regs[2] ? '' : ":".$regs[2].";");
 			array_shift($regs);
 			array_shift($regs);
 
@@ -174,7 +174,7 @@ 
 	// Si on n'a pas la bonne version de PHP, c'est la fin
 	if ($err) {
 		die("<div class='error'>"
-			. "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>"
+			. "<h3>"._T('avis_attention').'</h3><p>'._T('install_echec_annonce')."</p><ul class='spip'>"
 			. "<li><strong>{$err[0]}</strong></li>\n</ul></div>");
 	}
 
@@ -201,7 +201,7 @@ 
 
 	if ($err) {
 		echo "<div class='error'>"
-			. "<h3>" . _T('avis_attention') . '</h3><p>' . _T('install_echec_annonce') . "</p><ul class='spip'>";
+			. "<h3>"._T('avis_attention').'</h3><p>'._T('install_echec_annonce')."</p><ul class='spip'>";
 		foreach ($err as $e) {
 			echo "<li><strong>$e</strong></li>\n";
 		}
@@ -235,8 +235,8 @@ 
 
 // https://code.spip.net/@info_etape
 function info_etape($titre, $complement = '') {
-	return "<h2>" . $titre . "</h2>\n" .
-	($complement ? "" . $complement . "\n" : '');
+	return "<h2>".$titre."</h2>\n".
+	($complement ? "".$complement."\n" : '');
 }
 
 /**
@@ -250,18 +250,18 @@ 
 		$code = _T('bouton_suivant');
 	}
 	static $suivant = 0;
-	$id = 'suivant' . (($suivant > 0) ? strval($suivant) : '');
+	$id = 'suivant'.(($suivant > 0) ? strval($suivant) : '');
 	$suivant += 1;
 
-	return "\n<p class='boutons suivant'><input id='" . $id . "' type='submit'\nvalue=\"" .
-	$code .
+	return "\n<p class='boutons suivant'><input id='".$id."' type='submit'\nvalue=\"".
+	$code.
 	" >>\" /></p>\n";
 }
 
 // https://code.spip.net/@info_progression_etape
 function info_progression_etape($en_cours, $phase, $dir, $erreur = false) {
 	//$en_cours = _request('etape')?_request('etape'):"";
-	$liste = find_all_in_path($dir, $phase . '(([0-9])+|fin)[.]php$');
+	$liste = find_all_in_path($dir, $phase.'(([0-9])+|fin)[.]php$');
 	$debut = 1;
 	$etat = "ok";
 	$last = count($liste);
@@ -300,7 +300,7 @@ 
 
 			$aff_etapes .= "<li class='$class'><div class='fond'>";
 			$aff_etapes .= ($debut == $en_cours) ? "<strong>" : '';
-			$aff_etapes .= "<em>" . _T('etape') . " </em><span class='numero_etape'>$debut</span><em>&nbsp;: </em>";
+			$aff_etapes .= "<em>"._T('etape')." </em><span class='numero_etape'>$debut</span><em>&nbsp;: </em>";
 			$aff_etapes .= $intitule_etat["$phase"][$debut];
 			$aff_etapes .= ($debut == $en_cours) ? "</strong>" : '';
 			$aff_etapes .= "</div></li>";
@@ -316,11 +316,11 @@ 
 
 // https://code.spip.net/@fieldset
 function fieldset($legend, $champs = array(), $apres = '', $avant = '') {
-	return "<fieldset>\n" .
-	$avant .
-	($legend ? "<legend>" . $legend . "</legend>\n" : '') .
-	fieldset_champs($champs) .
-	$apres .
+	return "<fieldset>\n".
+	$avant.
+	($legend ? "<legend>".$legend."</legend>\n" : '').
+	fieldset_champs($champs).
+	$apres.
 	"</fieldset>\n";
 }
 
@@ -330,18 +330,18 @@ 
 		$type = isset($contenu['hidden']) ? 'hidden' : (preg_match(',^pass,', $nom) ? 'password' : 'text');
 		$class = isset($contenu['hidden']) ? '' : "class='formo' size='40' ";
 		if (isset($contenu['alternatives'])) {
-			$fieldset .= $contenu['label'] . "\n";
+			$fieldset .= $contenu['label']."\n";
 			foreach ($contenu['alternatives'] as $valeur => $label) {
-				$fieldset .= "<input type='radio' name='" . $nom .
+				$fieldset .= "<input type='radio' name='".$nom.
 					"' id='$nom-$valeur' value='$valeur'"
 					. (($valeur == $contenu['valeur']) ? "\nchecked='checked'" : '')
 					. "/>\n";
-				$fieldset .= "<label for='$nom-$valeur'>" . $label . "</label>\n";
+				$fieldset .= "<label for='$nom-$valeur'>".$label."</label>\n";
 			}
 			$fieldset .= "<br />\n";
 		} else {
-			$fieldset .= "<label for='" . $nom . "'>" . $contenu['label'] . "</label>\n";
-			$fieldset .= "<input " . $class . "type='" . $type . "' id='" . $nom . "' name='" . $nom . "'\nvalue='" . $contenu['valeur'] . "'"
+			$fieldset .= "<label for='".$nom."'>".$contenu['label']."</label>\n";
+			$fieldset .= "<input ".$class."type='".$type."' id='".$nom."' name='".$nom."'\nvalue='".$contenu['valeur']."'"
 				. (preg_match(',^(pass|login),', $nom) ? " autocomplete='off'" : '')
 				. ((isset($contenu['required']) and $contenu['required']) ? " required='required'" : "")
 				. " />\n";
@@ -353,24 +353,24 @@ 
 
 function install_select_serveur() {
 	$options = array();
-	$dir = _DIR_RESTREINT . 'req/';
+	$dir = _DIR_RESTREINT.'req/';
 	$d = opendir($dir);
 	if (!$d) {
 		return array();
 	}
 	while (($f = readdir($d)) !== false) {
 		if ((preg_match('/^(.*)[.]php$/', $f, $s))
-			and is_readable($f = $dir . $f)
+			and is_readable($f = $dir.$f)
 		) {
 			require_once($f);
 			$s = $s[1];
-			$v = 'spip_versions_' . $s;
+			$v = 'spip_versions_'.$s;
 			if (function_exists($v) and $v()) {
 				$titre = _T("install_select_type_$s");
 				// proposer mysql par defaut si dispo
 				$checked = ($s == 'mysql' ? " checked='checked'" : "");
 				$options[$s] = "<li><input type='radio' id='$s' value='$s' name='server_db'$checked>"
-					. "<label for='$s'>" . ($titre ? $titre : $s) . "</label></li>";
+					. "<label for='$s'>".($titre ? $titre : $s)."</label></li>";
 			} else {
 				spip_log("$s: portage indisponible");
 			}
@@ -389,8 +389,8 @@ 
 		"\n<input type='hidden' name='etape' value='$etape' />"
 		. $hidden
 		. (_request('echec') ?
-			("<p><b>" . _T('avis_connexion_echec_1') .
-				"</b></p><p>" . _T('avis_connexion_echec_2') . "</p><p style='font-size: small;'>" . _T('avis_connexion_echec_3') . "</p>")
+			("<p><b>"._T('avis_connexion_echec_1').
+				"</b></p><p>"._T('avis_connexion_echec_2')."</p><p style='font-size: small;'>"._T('avis_connexion_echec_3')."</p>")
 			: "")
 
 		. ($jquery ? http_script('', 'jquery.js') : '')
@@ -428,9 +428,9 @@ 
 		});')
 
 		. ($server_db
-			? '<input type="hidden" name="server_db" value="' . $server_db . '" />'
+			? '<input type="hidden" name="server_db" value="'.$server_db.'" />'
 			. (($predef[0])
-				? ('<h3>' . _T('install_serveur_hebergeur') . '</h3>')
+				? ('<h3>'._T('install_serveur_hebergeur').'</h3>')
 				: '')
 			: ('<fieldset><legend>'
 				. _T('install_select_type_db')
@@ -445,9 +445,9 @@ 
 				. "\n</ul>\n</div></fieldset>")
 		)
 		. '<div id="install_adresse_base_hebergeur">'
-		. '<p>' . _T('texte_connexion_mysql') . '</p>'
+		. '<p>'._T('texte_connexion_mysql').'</p>'
 		. ($predef[1]
-			? '<h3>' . _T('install_adresse_base_hebergeur') . '</h3>'
+			? '<h3>'._T('install_adresse_base_hebergeur').'</h3>'
 			: fieldset(_T('entree_base_donnee_1'),
 				array(
 					'adresse_db' => array(
@@ -461,7 +461,7 @@ 
 
 		. '<div id="install_login_base_hebergeur">'
 		. ($predef[2]
-			? '<h3>' . _T('install_login_base_hebergeur') . '</h3>'
+			? '<h3>'._T('install_login_base_hebergeur').'</h3>'
 			: fieldset(_T('entree_login_connexion_1'),
 				array(
 					'login_db' => array(
@@ -475,7 +475,7 @@ 
 
 		. '<div id="install_pass_base_hebergeur">'
 		. ($predef[3]
-			? '<h3>' . _T('install_pass_base_hebergeur') . '</h3>'
+			? '<h3>'._T('install_pass_base_hebergeur').'</h3>'
 			: fieldset(_T('entree_mot_passe_1'),
 				array(
 					'pass_db' => array(
@@ -498,20 +498,20 @@ 
 function predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db) {
 	return ((defined('_INSTALL_HOST_DB'))
 		? ''
-		: "\n<input type='hidden' name='adresse_db'  value=\"" . spip_htmlspecialchars($adresse_db) . "\" />"
+		: "\n<input type='hidden' name='adresse_db'  value=\"".spip_htmlspecialchars($adresse_db)."\" />"
 	)
 	. ((defined('_INSTALL_USER_DB'))
 		? ''
-		: "\n<input type='hidden' name='login_db' value=\"" . spip_htmlspecialchars($login_db) . "\" />"
+		: "\n<input type='hidden' name='login_db' value=\"".spip_htmlspecialchars($login_db)."\" />"
 	)
 	. ((defined('_INSTALL_PASS_DB'))
 		? ''
-		: "\n<input type='hidden' name='pass_db' value=\"" . spip_htmlspecialchars($pass_db) . "\" />"
+		: "\n<input type='hidden' name='pass_db' value=\"".spip_htmlspecialchars($pass_db)."\" />"
 	)
 
 	. ((defined('_INSTALL_SERVER_DB'))
 		? ''
-		: "\n<input type='hidden' name='server_db' value=\"" . spip_htmlspecialchars($server_db) . "\" />"
+		: "\n<input type='hidden' name='server_db' value=\"".spip_htmlspecialchars($server_db)."\" />"
 	);
 }
 

ecrire/inc/invalideur.php

Doc Comments +8 added lines, -1 removed lines

@@ -41,7 +41,7 @@ 
  * On ne calcule que la racine pour pour aller vite.
  *
  * @param string $dir Chemin du répertoire
- * @param string $nb_estim_taille Nombre de fichiers maximum pour estimer la taille
+ * @param integer $nb_estim_taille Nombre de fichiers maximum pour estimer la taille
  * @return bool|array
  *
  *     - false si le répertoire ne peut pas être ouvert
@@ -270,6 +270,10 @@ 
 // (note: si absente, n'est pas appellee)
 
 // https://code.spip.net/@calcul_invalideurs
+/**
+ * @param string $corps
+ * @param string $id_boucle
+ */
 function calcul_invalideurs($corps, $primary, &$boucles, $id_boucle) {
 	if ($calcul_invalideurs = charger_fonction('calcul_invalideurs', 'inc', true)) {
 		return $calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
@@ -292,6 +296,9 @@ 
 
 // Calcul des pages : noter dans la base les liens d'invalidation
 // https://code.spip.net/@maj_invalideurs
+/**
+ * @param string $fichier
+ */
 function maj_invalideurs($fichier, &$page) {
 	if ($maj_invalideurs = charger_fonction('maj_invalideurs', 'inc', true)) {
 		return $maj_invalideurs($fichier, $page);

Indentation +147 added lines, -147 removed lines

@@ -17,21 +17,21 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/serial');
 
 /** Estime la taille moyenne d'un fichier cache, pour ne pas les regarder (10ko) */
 if (!defined('_TAILLE_MOYENNE_FICHIER_CACHE')) {
-	define('_TAILLE_MOYENNE_FICHIER_CACHE', 1024 * 10);
+    define('_TAILLE_MOYENNE_FICHIER_CACHE', 1024 * 10);
 }
 /**
  * Si un fichier n'a pas été servi (fileatime) depuis plus d'une heure, on se sent
  * en droit de l'éliminer
  */
 if (!defined('_AGE_CACHE_ATIME')) {
-	define('_AGE_CACHE_ATIME', 3600);
+    define('_AGE_CACHE_ATIME', 3600);
 }
 
 /**
@@ -48,24 +48,24 @@ 
  *     - array(nombre de fichiers, approximation de la taille en octet) sinon
  **/
 function nombre_de_fichiers_repertoire($dir, $nb_estim_taille = 20) {
-	$taille = 0; // mesurer la taille de N fichiers au hasard dans le repertoire
-	$nb = $nb_estim_taille;
-	if (!$h = opendir($dir)) {
-		return false;
-	}
-	$total = 0;
-	while (($fichier = @readdir($h)) !== false) {
-		if ($fichier[0] != '.' and !is_dir("$dir/$fichier")) {
-			$total++;
-			if ($nb and rand(1, 10) == 1) {
-				$taille += filesize("$dir/$fichier");
-				$nb--;
-			}
-		}
-	}
-	closedir($h);
-
-	return array($total, $taille ? $taille / ($nb_estim_taille - $nb) : _TAILLE_MOYENNE_FICHIER_CACHE);
+    $taille = 0; // mesurer la taille de N fichiers au hasard dans le repertoire
+    $nb = $nb_estim_taille;
+    if (!$h = opendir($dir)) {
+        return false;
+    }
+    $total = 0;
+    while (($fichier = @readdir($h)) !== false) {
+        if ($fichier[0] != '.' and !is_dir("$dir/$fichier")) {
+            $total++;
+            if ($nb and rand(1, 10) == 1) {
+                $taille += filesize("$dir/$fichier");
+                $nb--;
+            }
+        }
+    }
+    closedir($h);
+
+    return array($total, $taille ? $taille / ($nb_estim_taille - $nb) : _TAILLE_MOYENNE_FICHIER_CACHE);
 }
 
 
@@ -78,31 +78,31 @@ 
  * @return int Taille approximative en octets
  **/
 function taille_du_cache() {
-	# check dirs until we reach > 500 files
-	$t = 0;
-	$n = 0;
-	$time = isset($GLOBALS['meta']['cache_mark']) ? $GLOBALS['meta']['cache_mark'] : 0;
-	for ($i=0; $i < 256; $i++) {
-		$dir = _DIR_CACHE.sprintf('%02s', dechex($i));
-		if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
-			while (($f = readdir($d)) !== false) {
-				if (preg_match(',^[[0-9a-f]+\.cache$,S', $f) and $a = stat("$dir/$f")) {
-					$n++;
-					if ($a['mtime'] >= $time) {
-						if ($a['blocks'] > 0) {
-							$t += 512*$a['blocks'];
-						} else {
-							$t += $a['size'];
-						}
-					}
-				}
-			}
-		}
-		if ($n > 500) {
-			return intval(256*$t/(1+$i));
-		}
-	}
-	return $t;
+    # check dirs until we reach > 500 files
+    $t = 0;
+    $n = 0;
+    $time = isset($GLOBALS['meta']['cache_mark']) ? $GLOBALS['meta']['cache_mark'] : 0;
+    for ($i=0; $i < 256; $i++) {
+        $dir = _DIR_CACHE.sprintf('%02s', dechex($i));
+        if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
+            while (($f = readdir($d)) !== false) {
+                if (preg_match(',^[[0-9a-f]+\.cache$,S', $f) and $a = stat("$dir/$f")) {
+                    $n++;
+                    if ($a['mtime'] >= $time) {
+                        if ($a['blocks'] > 0) {
+                            $t += 512*$a['blocks'];
+                        } else {
+                            $t += $a['size'];
+                        }
+                    }
+                }
+            }
+        }
+        if ($n > 500) {
+            return intval(256*$t/(1+$i));
+        }
+    }
+    return $t;
 }
 
 
@@ -129,30 +129,30 @@ 
  *     Inutilisé
  **/
 function inc_suivre_invalideur_dist($cond, $modif = true) {
-	if (!$modif) {
-		return;
-	}
-
-	// determiner l'objet modifie : forum, article, etc
-	if (preg_match(',["\']([a-z_]+)[/"\'],', $cond, $r)) {
-		$objet = objet_type($r[1]);
-	}
-
-	// stocker la date_modif_$objet (ne sert a rien pour le moment)
-	if (isset($objet)) {
-		ecrire_meta('derniere_modif_' . $objet, time());
-	}
-
-	// si $derniere_modif_invalide est un array('article', 'rubrique')
-	// n'affecter la meta que si un de ces objets est modifie
-	if (is_array($GLOBALS['derniere_modif_invalide'])) {
-		if (in_array($objet, $GLOBALS['derniere_modif_invalide'])) {
-			ecrire_meta('derniere_modif', time());
-		}
-	} // sinon, cas standard, toujours affecter la meta
-	else {
-		ecrire_meta('derniere_modif', time());
-	}
+    if (!$modif) {
+        return;
+    }
+
+    // determiner l'objet modifie : forum, article, etc
+    if (preg_match(',["\']([a-z_]+)[/"\'],', $cond, $r)) {
+        $objet = objet_type($r[1]);
+    }
+
+    // stocker la date_modif_$objet (ne sert a rien pour le moment)
+    if (isset($objet)) {
+        ecrire_meta('derniere_modif_' . $objet, time());
+    }
+
+    // si $derniere_modif_invalide est un array('article', 'rubrique')
+    // n'affecter la meta que si un de ces objets est modifie
+    if (is_array($GLOBALS['derniere_modif_invalide'])) {
+        if (in_array($objet, $GLOBALS['derniere_modif_invalide'])) {
+            ecrire_meta('derniere_modif', time());
+        }
+    } // sinon, cas standard, toujours affecter la meta
+    else {
+        ecrire_meta('derniere_modif', time());
+    }
 }
 
 
@@ -177,49 +177,49 @@ 
  *     Nombre de fichiers supprimés
  **/
 function purger_repertoire($dir, $options = array()) {
-	if (!is_dir($dir) or !is_readable($dir)) {
-		return;
-	}
-	$handle = opendir($dir);
-	if (!$handle) {
-		return;
-	}
-
-	$total = 0;
-
-	while (($fichier = @readdir($handle)) !== false) {
-		// Eviter ".", "..", ".htaccess", ".svn" etc & CACHEDIR.TAG
-		if ($fichier[0] == '.' or $fichier == 'CACHEDIR.TAG') {
-			continue;
-		}
-		$chemin = "$dir/$fichier";
-		if (is_file($chemin)) {
-			if ((!isset($options['atime']) or (@fileatime($chemin) < $options['atime']))
-				and (!isset($options['mtime']) or (@filemtime($chemin) < $options['mtime']))
-			) {
-				supprimer_fichier($chemin);
-				$total++;
-			}
-		} else {
-			if (is_dir($chemin)) {
-				$opts = $options;
-				if (isset($options['limit'])) {
-					$opts['limit'] = $options['limit'] - $total;
-				}
-				$total += purger_repertoire($chemin, $opts);
-				if (isset($options['subdir']) && $options['subdir']) {
-					spip_unlink($chemin);
-				}
-			}
-		}
-
-		if (isset($options['limit']) and $total >= $options['limit']) {
-			break;
-		}
-	}
-	closedir($handle);
-
-	return $total;
+    if (!is_dir($dir) or !is_readable($dir)) {
+        return;
+    }
+    $handle = opendir($dir);
+    if (!$handle) {
+        return;
+    }
+
+    $total = 0;
+
+    while (($fichier = @readdir($handle)) !== false) {
+        // Eviter ".", "..", ".htaccess", ".svn" etc & CACHEDIR.TAG
+        if ($fichier[0] == '.' or $fichier == 'CACHEDIR.TAG') {
+            continue;
+        }
+        $chemin = "$dir/$fichier";
+        if (is_file($chemin)) {
+            if ((!isset($options['atime']) or (@fileatime($chemin) < $options['atime']))
+                and (!isset($options['mtime']) or (@filemtime($chemin) < $options['mtime']))
+            ) {
+                supprimer_fichier($chemin);
+                $total++;
+            }
+        } else {
+            if (is_dir($chemin)) {
+                $opts = $options;
+                if (isset($options['limit'])) {
+                    $opts['limit'] = $options['limit'] - $total;
+                }
+                $total += purger_repertoire($chemin, $opts);
+                if (isset($options['subdir']) && $options['subdir']) {
+                    spip_unlink($chemin);
+                }
+            }
+        }
+
+        if (isset($options['limit']) and $total >= $options['limit']) {
+            break;
+        }
+    }
+    closedir($handle);
+
+    return $total;
 }
 
 
@@ -231,15 +231,15 @@ 
 // https://code.spip.net/@retire_cache
 function retire_cache($cache) {
 
-	if (preg_match(
-		',^([0-9a-f]/)?([0-9]+/)?[0-9a-f]+\.cache(\.gz)?$,i',
-		$cache
-	)) {
-		// supprimer le fichier (de facon propre)
-		supprimer_fichier(_DIR_CACHE . $cache);
-	} else {
-		spip_log("Nom de fichier cache incorrect : $cache");
-	}
+    if (preg_match(
+        ',^([0-9a-f]/)?([0-9]+/)?[0-9a-f]+\.cache(\.gz)?$,i',
+        $cache
+    )) {
+        // supprimer le fichier (de facon propre)
+        supprimer_fichier(_DIR_CACHE . $cache);
+    } else {
+        spip_log("Nom de fichier cache incorrect : $cache");
+    }
 }
 
 // Supprimer les caches marques "x"
@@ -247,9 +247,9 @@ 
 // la meta est toujours false ; mais evitons un bug si elle est appellee
 // https://code.spip.net/@retire_caches
 function inc_retire_caches_dist($chemin = '') {
-	if (isset($GLOBALS['meta']['invalider_caches'])) {
-		effacer_meta('invalider_caches');
-	} # concurrence
+    if (isset($GLOBALS['meta']['invalider_caches'])) {
+        effacer_meta('invalider_caches');
+    } # concurrence
 }
 
 #######################################################################
@@ -260,9 +260,9 @@ 
 ##
 
 function retire_caches($chemin = '') {
-	if ($retire_caches = charger_fonction('retire_caches', 'inc', true)) {
-		return $retire_caches($chemin);
-	}
+    if ($retire_caches = charger_fonction('retire_caches', 'inc', true)) {
+        return $retire_caches($chemin);
+    }
 }
 
 
@@ -271,10 +271,10 @@ 
 
 // https://code.spip.net/@calcul_invalideurs
 function calcul_invalideurs($corps, $primary, &$boucles, $id_boucle) {
-	if ($calcul_invalideurs = charger_fonction('calcul_invalideurs', 'inc', true)) {
-		return $calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
-	}
-	return $corps;
+    if ($calcul_invalideurs = charger_fonction('calcul_invalideurs', 'inc', true)) {
+        return $calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
+    }
+    return $corps;
 }
 
 
@@ -284,27 +284,27 @@ 
 //
 // https://code.spip.net/@supprime_invalideurs
 function supprime_invalideurs() {
-	if ($supprime_invalideurs = charger_fonction('supprime_invalideurs', 'inc', true)) {
-		return $supprime_invalideurs();
-	}
+    if ($supprime_invalideurs = charger_fonction('supprime_invalideurs', 'inc', true)) {
+        return $supprime_invalideurs();
+    }
 }
 
 
 // Calcul des pages : noter dans la base les liens d'invalidation
 // https://code.spip.net/@maj_invalideurs
 function maj_invalideurs($fichier, &$page) {
-	if ($maj_invalideurs = charger_fonction('maj_invalideurs', 'inc', true)) {
-		return $maj_invalideurs($fichier, $page);
-	}
+    if ($maj_invalideurs = charger_fonction('maj_invalideurs', 'inc', true)) {
+        return $maj_invalideurs($fichier, $page);
+    }
 }
 
 
 // les invalideurs sont de la forme "objet/id_objet"
 // https://code.spip.net/@insere_invalideur
 function insere_invalideur($inval, $fichier) {
-	if ($insere_invalideur = charger_fonction('insere_invalideur', 'inc', true)) {
-		return $insere_invalideur($inval, $fichier);
-	}
+    if ($insere_invalideur = charger_fonction('insere_invalideur', 'inc', true)) {
+        return $insere_invalideur($inval, $fichier);
+    }
 }
 
 //
@@ -312,16 +312,16 @@ 
 //
 // https://code.spip.net/@applique_invalideur
 function applique_invalideur($depart) {
-	if ($applique_invalideur = charger_fonction('applique_invalideur', 'inc', true)) {
-		return $applique_invalideur($depart);
-	}
+    if ($applique_invalideur = charger_fonction('applique_invalideur', 'inc', true)) {
+        return $applique_invalideur($depart);
+    }
 }
 
 //
 // Invalider les caches liés à telle condition
 //
 function suivre_invalideur($cond, $modif = true) {
-	if ($suivre_invalideur = charger_fonction('suivre_invalideur', 'inc', true)) {
-		return $suivre_invalideur($cond, $modif);
-	}
+    if ($suivre_invalideur = charger_fonction('suivre_invalideur', 'inc', true)) {
+        return $suivre_invalideur($cond, $modif);
+    }
 }
\ No newline at end of file

ecrire/inc/lang.php

Doc Comments +11 added lines, -1 removed lines

@@ -31,7 +31,7 @@ 
  *
  * @param string $lang
  *     La langue à utiliser
- * @return string|bool
+ * @return false|string
  *     string : La langue qui a été utilisée si trouvée
  *     false : aucune langue ne correspondait à la demande
  **/
@@ -80,6 +80,9 @@ 
 // retourne son 2e argument si c'est un index du premier
 // ou un index approchant sinon et si possible, 
 // la langue X etant consideree comme une approche de X_Y
+/**
+ * @return string
+ */
 function approcher_langue($trads, $lang = '') {
 
 	if (!$lang) {
@@ -175,6 +178,9 @@ 
 // pour 'changer_lang' (langue de l'article, espace prive), c'est en Ajax
 // 
 // https://code.spip.net/@menu_langues
+/**
+ * @param string $nom_select
+ */
 function menu_langues($nom_select, $default = '') {
 	include_spip('inc/actions');
 
@@ -209,6 +215,10 @@ 
 }
 
 // https://code.spip.net/@select_langues
+/**
+ * @param string $change
+ * @param string $options
+ */
 function select_langues($nom_select, $change, $options, $label = "") {
 	static $cpt = 0;
 	$id = "menu_langues" . $cpt++;

Indentation +240 added lines, -240 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Langue
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -37,29 +37,29 @@ 
  **/
 function changer_langue($lang) {
 
-	$liste_langues = ',' . @$GLOBALS['meta']['langues_proposees']
-		. ',' . @$GLOBALS['meta']['langues_multilingue'] . ',';
-
-	// 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, ",$lang,") !== false
-		or ($lang = preg_replace(',_.*,', '', $lang)
-			and strpos($liste_langues, ",$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;
-	}
+    $liste_langues = ',' . @$GLOBALS['meta']['langues_proposees']
+        . ',' . @$GLOBALS['meta']['langues_multilingue'] . ',';
+
+    // 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, ",$lang,") !== false
+        or ($lang = preg_replace(',_.*,', '', $lang)
+            and strpos($liste_langues, ",$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;
+    }
 }
 
 //
@@ -72,9 +72,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
@@ -82,21 +82,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 '';
 }
 
 /**
@@ -111,10 +111,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(isset($GLOBALS['codes_langues'][$lang]) ? $GLOBALS['codes_langues'][$lang] : $lang);
+    return html2unicode(isset($GLOBALS['codes_langues'][$lang]) ? $GLOBALS['codes_langues'][$lang] : $lang);
 }
 
 //
@@ -128,10 +128,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 = array('ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi');
+    static $lang_rtl = array('ar', 'fa', 'ku', 'prs', 'ps', 'ur', 'he', 'heb', 'hbo', 'yi');
 
-	return in_array(($lang ? $lang : $GLOBALS['spip_lang']), $lang_rtl) ?
-		$gaucher : $droitier;
+    return in_array(($lang ? $lang : $GLOBALS['spip_lang']), $lang_rtl) ?
+        $gaucher : $droitier;
 }
 
 // typo francaise ou anglaise ?
@@ -141,31 +141,31 @@ 
 
 // https://code.spip.net/@lang_typo
 function lang_typo($lang = '') {
-	if (!$lang) {
-		$lang = isset($GLOBALS['lang_objet'])
-			? $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 = isset($GLOBALS['lang_objet'])
+            ? $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']);
+    }
 }
 
 //
@@ -176,55 +176,55 @@ 
 // 
 // 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 ? $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 ? $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>";
 }
 
 /**
@@ -246,34 +246,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 array();
-	}
-	sort($langues);
+    }
+    if (count($langues) <= 1) {
+        return array();
+    }
+    sort($langues);
 
-	return $langues;
+    return $langues;
 }
 
 
@@ -288,38 +288,38 @@ 
  **/
 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'];
 }
 
 
@@ -335,21 +335,21 @@ 
  *     La langue sélectionnée
  **/
 function utiliser_langue_site() {
-	// 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']);//@: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']);//@: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'];
 }
 
 /**
@@ -366,30 +366,30 @@ 
  **/
 function utiliser_langue_visiteur() {
 
-	$l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
-	if (isset($_COOKIE[$l])) {
-		if (changer_langue($l = $_COOKIE[$l])) {
-			return $l;
-		}
-	}
-
-	if (isset($GLOBALS['visiteur_session']['lang'])) {
-		if (changer_langue($l = $GLOBALS['visiteur_session']['lang'])) {
-			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]))) {
-					return $l;
-				}
-			}
-		}
-	}
-
-	return utiliser_langue_site();
+    $l = (!test_espace_prive() ? 'spip_lang' : 'spip_lang_ecrire');
+    if (isset($_COOKIE[$l])) {
+        if (changer_langue($l = $_COOKIE[$l])) {
+            return $l;
+        }
+    }
+
+    if (isset($GLOBALS['visiteur_session']['lang'])) {
+        if (changer_langue($l = $GLOBALS['visiteur_session']['lang'])) {
+            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]))) {
+                    return $l;
+                }
+            }
+        }
+    }
+
+    return utiliser_langue_site();
 }
 
 
@@ -399,7 +399,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);
 }
 
 /**
@@ -417,36 +417,36 @@ 
  **/
 function init_langues() {
 
-	// liste des langues dans les meta, sauf a l'install
-	$all_langs = @$GLOBALS['meta']['langues_proposees'];
-
-	$tout = array();
-	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 . ',', ",$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 = array();
+    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 . ',', ",$all_langs,") !== false))
+                ? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
+        ecrire_meta('langue_site', $tout);
+    }
 }
 
 /**
@@ -460,10 +460,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";
 }
 
 
@@ -477,7 +477,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 : '';
 }
 
 

Spacing +10 added lines, -12 removed lines

@@ -37,8 +37,8 @@ 
  **/
 function changer_langue($lang) {
 
-	$liste_langues = ',' . @$GLOBALS['meta']['langues_proposees']
-		. ',' . @$GLOBALS['meta']['langues_multilingue'] . ',';
+	$liste_langues = ','.@$GLOBALS['meta']['langues_proposees']
+		. ','.@$GLOBALS['meta']['langues_multilingue'].',';
 
 	// Si la langue demandee n'existe pas, on essaie d'autres variantes
 	// Exemple : 'pt-br' => 'pt_br' => 'pt'
@@ -189,7 +189,7 @@ 
 	}
 	foreach ($langues as $l) {
 		$selected = ($l == $default) ? ' selected=\'selected\'' : '';
-		$ret .= "<option value='$l'$selected>[" . $l . "] " . traduire_nom_langue($l) . "</option>\n";
+		$ret .= "<option value='$l'$selected>[".$l."] ".traduire_nom_langue($l)."</option>\n";
 	}
 
 	if (!test_espace_prive()) {
@@ -204,23 +204,21 @@ 
 
 	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>"),
+			. "<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++;
+	$id = "menu_langues".$cpt++;
 
 	return
-		"<label for='$id'>" . ($label ? $label : _T('info_langues')) . "</label> " .
+		"<label for='$id'>".($label ? $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'"))
+			("class='forml menu_langues'") : (($nom_select == 'var_lang_ecrire') ?
+				("class='lang_ecrire'") : "class='fondl'"))
 		. $change
 		. ">\n"
 		. $options
@@ -342,7 +340,7 @@ 
 		and (!isset($GLOBALS['spip_lang'])
 			or $GLOBALS['spip_lang'] != $GLOBALS['meta']['langue_site'])
 	) {
-		return changer_langue($GLOBALS['meta']['langue_site']);//@:install
+		return changer_langue($GLOBALS['meta']['langue_site']); //@:install
 	}
 	// en theorie là, la globale est définie, sinon c'est un problème.
 	if (!isset($GLOBALS['spip_lang'])) {
@@ -443,7 +441,7 @@ 
 	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 . ',', ",$all_langs,") !== false))
+			(!$all_langs or (strpos(','._LANGUE_PAR_DEFAUT.',', ",$all_langs,") !== false))
 				? _LANGUE_PAR_DEFAUT : substr($all_langs, 0, strpos($all_langs, ','));
 		ecrire_meta('langue_site', $tout);
 	}

ecrire/inc/lien.php

Doc Comments +13 added lines, -1 removed lines

@@ -42,6 +42,9 @@ 
 define('_RACCOURCI_LIEN', "/\[([^][]*?([[]\w*[]][^][]*)*)->(>?)([^]]*)\]/msS");
 
 // https://code.spip.net/@expanser_liens
+/**
+ * @return string
+ */
 function expanser_liens($t, $connect = '', $env = array()) {
 
 	$t = pipeline('pre_liens', $t);
@@ -56,6 +59,9 @@ 
 // Meme analyse mais pour eliminer les liens
 // et ne laisser que leur titre, a expliciter si ce n'est fait
 // https://code.spip.net/@nettoyer_raccourcis_typo
+/**
+ * @param string $texte
+ */
 function nettoyer_raccourcis_typo($texte, $connect = '') {
 	return $texte;
 }
@@ -96,6 +102,9 @@ 
 // 'url':   seulement U  (i.e. generer_url_RACCOURCI)
 
 // https://code.spip.net/@calculer_url
+/**
+ * @return string
+ */
 function calculer_url($ref, $texte = '', $pour = 'url', $connect = '', $echappe_typo = true) {
 	$r = traiter_lien_implicite($ref, $texte, $pour, $connect, $echappe_typo);
 
@@ -256,7 +265,7 @@ 
  * @param int $id Identifiant de l'objet
  * @param string $type Type d'objet
  * @param string|null $connect Connecteur SQL utilisé
- * @return array {
+ * @return string {
  * @var string $titre Titre si présent, sinon ''
  * @var string $lang Langue si présente, sinon ''
  * }
@@ -302,6 +311,9 @@ 
 define('_RACCOURCI_MODELE_DEBUT', '@^' . _RACCOURCI_MODELE . '@isS');
 
 // https://code.spip.net/@traiter_modeles
+/**
+ * @return string
+ */
 function traiter_modeles($texte, $doublons = false, $echap = '', $connect = '', $liens = null, $env = array()) {
 	// preserver la compatibilite : true = recherche des documents
 	if ($doublons === true) {

Indentation +273 added lines, -273 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -23,16 +23,16 @@ 
 //
 
 function inc_lien_dist(
-	$lien,
-	$texte = '',
-	$class = '',
-	$title = '',
-	$hlang = '',
-	$rel = '',
-	$connect = '',
-	$env = array()
+    $lien,
+    $texte = '',
+    $class = '',
+    $title = '',
+    $hlang = '',
+    $rel = '',
+    $connect = '',
+    $env = array()
 ) {
-	return $lien;
+    return $lien;
 }
 
 // Regexp des raccourcis, aussi utilisee pour la fusion de sauvegarde Spip
@@ -44,30 +44,30 @@ 
 // https://code.spip.net/@expanser_liens
 function expanser_liens($t, $connect = '', $env = array()) {
 
-	$t = pipeline('pre_liens', $t);
+    $t = pipeline('pre_liens', $t);
 
-	// on passe a traiter_modeles la liste des liens reperes pour lui permettre
-	// de remettre le texte d'origine dans les parametres du modele
-	$t = traiter_modeles($t, false, false, $connect);
+    // on passe a traiter_modeles la liste des liens reperes pour lui permettre
+    // de remettre le texte d'origine dans les parametres du modele
+    $t = traiter_modeles($t, false, false, $connect);
 
-	return $t;
+    return $t;
 }
 
 // Meme analyse mais pour eliminer les liens
 // et ne laisser que leur titre, a expliciter si ce n'est fait
 // https://code.spip.net/@nettoyer_raccourcis_typo
 function nettoyer_raccourcis_typo($texte, $connect = '') {
-	return $texte;
+    return $texte;
 }
 
 // Repere dans la partie texte d'un raccourci [texte->...]
 // la langue et la bulle eventuelles
 // https://code.spip.net/@traiter_raccourci_lien_atts
 function traiter_raccourci_lien_atts($texte) {
-	$bulle = '';
-	$hlang = '';
+    $bulle = '';
+    $hlang = '';
 
-	return array(trim($texte), $bulle, $hlang);
+    return array(trim($texte), $bulle, $hlang);
 }
 
 define('_RACCOURCI_CHAPO', '/^(\W*)(\W*)(\w*\d+([?#].*)?)$/');
@@ -83,7 +83,7 @@ 
  * @return string
  */
 function virtuel_redirige($virtuel, $url = false) {
-	return $virtuel;
+    return $virtuel;
 }
 
 // Cherche un lien du type [->raccourci 123]
@@ -97,114 +97,114 @@ 
 
 // https://code.spip.net/@calculer_url
 function calculer_url($ref, $texte = '', $pour = 'url', $connect = '', $echappe_typo = true) {
-	$r = traiter_lien_implicite($ref, $texte, $pour, $connect, $echappe_typo);
+    $r = traiter_lien_implicite($ref, $texte, $pour, $connect, $echappe_typo);
 
-	return $r ? $r : traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo);
+    return $r ? $r : traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo);
 }
 
 define('_EXTRAIRE_LIEN', ',^\s*(?:' . _PROTOCOLES_STD . '):?/?/?\s*$,iS');
 
 // https://code.spip.net/@traiter_lien_explicite
 function traiter_lien_explicite($ref, $texte = '', $pour = 'url', $connect = '', $echappe_typo = true) {
-	if (preg_match(_EXTRAIRE_LIEN, $ref)) {
-		return ($pour != 'tout') ? '' : array('', '', '', '');
-	}
-
-	$lien = entites_html(trim($ref));
-
-	// Liens explicites
-	if (!$texte) {
-		$texte = str_replace('"', '', $lien);
-		// evite l'affichage de trops longues urls.
-		$lien_court = charger_fonction('lien_court', 'inc');
-		$texte = $lien_court($texte);
-		if ($echappe_typo) {
-			$texte = "<html>" . quote_amp($texte) . "</html>";
-		}
-	}
-
-	// petites corrections d'URL
-	if (preg_match('/^www\.[^@]+$/S', $lien)) {
-		$lien = "http://" . $lien;
-	} else {
-		if (strpos($lien, "@") && email_valide($lien)) {
-			if (!$texte) {
-				$texte = $lien;
-			}
-			$lien = "mailto:" . $lien;
-		}
-	}
-
-	if ($pour == 'url') {
-		return $lien;
-	}
-
-	if ($pour == 'titre') {
-		return $texte;
-	}
-
-	return array('url' => $lien, 'titre' => $texte);
+    if (preg_match(_EXTRAIRE_LIEN, $ref)) {
+        return ($pour != 'tout') ? '' : array('', '', '', '');
+    }
+
+    $lien = entites_html(trim($ref));
+
+    // Liens explicites
+    if (!$texte) {
+        $texte = str_replace('"', '', $lien);
+        // evite l'affichage de trops longues urls.
+        $lien_court = charger_fonction('lien_court', 'inc');
+        $texte = $lien_court($texte);
+        if ($echappe_typo) {
+            $texte = "<html>" . quote_amp($texte) . "</html>";
+        }
+    }
+
+    // petites corrections d'URL
+    if (preg_match('/^www\.[^@]+$/S', $lien)) {
+        $lien = "http://" . $lien;
+    } else {
+        if (strpos($lien, "@") && email_valide($lien)) {
+            if (!$texte) {
+                $texte = $lien;
+            }
+            $lien = "mailto:" . $lien;
+        }
+    }
+
+    if ($pour == 'url') {
+        return $lien;
+    }
+
+    if ($pour == 'titre') {
+        return $texte;
+    }
+
+    return array('url' => $lien, 'titre' => $texte);
 }
 
 function liens_implicite_glose_dist($texte, $id, $type, $args, $ancre, $connect = '') {
-	if (function_exists($f = 'glossaire_' . $ancre)) {
-		$url = $f($texte, $id);
-	} else {
-		$url = glossaire_std($texte);
-	}
+    if (function_exists($f = 'glossaire_' . $ancre)) {
+        $url = $f($texte, $id);
+    } else {
+        $url = glossaire_std($texte);
+    }
 
-	return $url;
+    return $url;
 }
 
 // https://code.spip.net/@traiter_lien_implicite
 function traiter_lien_implicite($ref, $texte = '', $pour = 'url', $connect = '') {
-	if (!($match = typer_raccourci($ref))) {
-		return false;
-	}
-	@list($type, , $id, , $args, , $ancre) = $match;
-	// attention dans le cas des sites le lien doit pointer non pas sur
-	// la page locale du site, mais directement sur le site lui-meme
-	if ($f = charger_fonction("implicite_$type", "liens", true)) {
-		$url = $f($texte, $id, $type, $args, $ancre, $connect);
-	}
-	if (!$url) {
-		$url = generer_url_entite($id, $type, $args, $ancre, $connect ? $connect : null);
-	}
-	if (!$url) {
-		return false;
-	}
-	if (is_array($url)) {
-		@list($type, $id) = $url;
-		$url = generer_url_entite($id, $type, $args, $ancre, $connect ? $connect : null);
-	}
-	if ($pour === 'url') {
-		return $url;
-	}
-	$r = traiter_raccourci_titre($id, $type, $connect);
-	if ($r) {
-		$r['class'] = ($type == 'site') ? 'spip_out' : 'spip_in';
-	}
-	if ($texte = trim($texte)) {
-		$r['titre'] = $texte;
-	}
-	if (!@$r['titre']) {
-		$r['titre'] = _T($type) . " $id";
-	}
-	if ($pour == 'titre') {
-		return $r['titre'];
-	}
-	$r['url'] = $url;
-
-	// dans le cas d'un lien vers un doc, ajouter le type='mime/type'
-	if ($type == 'document'
-		and $mime = sql_getfetsel('mime_type', 'spip_types_documents',
-			"extension IN (" . sql_get_select("extension", "spip_documents", "id_document=" . sql_quote($id)) . ")",
-			'', '', '', '', $connect)
-	) {
-		$r['mime'] = $mime;
-	}
-
-	return $r;
+    if (!($match = typer_raccourci($ref))) {
+        return false;
+    }
+    @list($type, , $id, , $args, , $ancre) = $match;
+    // attention dans le cas des sites le lien doit pointer non pas sur
+    // la page locale du site, mais directement sur le site lui-meme
+    if ($f = charger_fonction("implicite_$type", "liens", true)) {
+        $url = $f($texte, $id, $type, $args, $ancre, $connect);
+    }
+    if (!$url) {
+        $url = generer_url_entite($id, $type, $args, $ancre, $connect ? $connect : null);
+    }
+    if (!$url) {
+        return false;
+    }
+    if (is_array($url)) {
+        @list($type, $id) = $url;
+        $url = generer_url_entite($id, $type, $args, $ancre, $connect ? $connect : null);
+    }
+    if ($pour === 'url') {
+        return $url;
+    }
+    $r = traiter_raccourci_titre($id, $type, $connect);
+    if ($r) {
+        $r['class'] = ($type == 'site') ? 'spip_out' : 'spip_in';
+    }
+    if ($texte = trim($texte)) {
+        $r['titre'] = $texte;
+    }
+    if (!@$r['titre']) {
+        $r['titre'] = _T($type) . " $id";
+    }
+    if ($pour == 'titre') {
+        return $r['titre'];
+    }
+    $r['url'] = $url;
+
+    // dans le cas d'un lien vers un doc, ajouter le type='mime/type'
+    if ($type == 'document'
+        and $mime = sql_getfetsel('mime_type', 'spip_types_documents',
+            "extension IN (" . sql_get_select("extension", "spip_documents", "id_document=" . sql_quote($id)) . ")",
+            '', '', '', '', $connect)
+    ) {
+        $r['mime'] = $mime;
+    }
+
+    return $r;
 }
 
 // analyse des raccourcis issus de [TITRE->RACCOURCInnn] et connexes
@@ -213,41 +213,41 @@ 
 
 // https://code.spip.net/@typer_raccourci
 function typer_raccourci($lien) {
-	if (!preg_match(_RACCOURCI_URL, $lien, $match)) {
-		return array();
-	}
-	$f = $match[1];
-	// valeur par defaut et alias historiques
-	if (!$f) {
-		$f = 'article';
-	} else {
-		if ($f == 'art') {
-			$f = 'article';
-		} else {
-			if ($f == 'br') {
-				$f = 'breve';
-			} else {
-				if ($f == 'rub') {
-					$f = 'rubrique';
-				} else {
-					if ($f == 'aut') {
-						$f = 'auteur';
-					} else {
-						if ($f == 'doc' or $f == 'im' or $f == 'img' or $f == 'image' or $f == 'emb') {
-							$f = 'document';
-						} else {
-							if (preg_match('/^br..?ve$/S', $f)) {
-								$f = 'breve';
-							}
-						}
-					}
-				}
-			}
-		}
-	} # accents :(
-	$match[0] = $f;
-
-	return $match;
+    if (!preg_match(_RACCOURCI_URL, $lien, $match)) {
+        return array();
+    }
+    $f = $match[1];
+    // valeur par defaut et alias historiques
+    if (!$f) {
+        $f = 'article';
+    } else {
+        if ($f == 'art') {
+            $f = 'article';
+        } else {
+            if ($f == 'br') {
+                $f = 'breve';
+            } else {
+                if ($f == 'rub') {
+                    $f = 'rubrique';
+                } else {
+                    if ($f == 'aut') {
+                        $f = 'auteur';
+                    } else {
+                        if ($f == 'doc' or $f == 'im' or $f == 'img' or $f == 'image' or $f == 'emb') {
+                            $f = 'document';
+                        } else {
+                            if (preg_match('/^br..?ve$/S', $f)) {
+                                $f = 'breve';
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    } # accents :(
+    $match[0] = $f;
+
+    return $match;
 }
 
 /**
@@ -262,25 +262,25 @@ 
  * }
  **/
 function traiter_raccourci_titre($id, $type, $connect = null) {
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table(table_objet($type));
-	if (!($desc and $s = $desc['titre'])) {
-		return array();
-	}
-	$_id = $desc['key']['PRIMARY KEY'];
-	$r = sql_fetsel($s, $desc['table'], "$_id=$id", '', '', '', '', $connect);
-	if (!$r) {
-		return array();
-	}
-	$r['titre'] = supprimer_numero($r['titre']);
-	if (!$r['titre'] and !empty($r['surnom'])) {
-		$r['titre'] = $r['surnom'];
-	}
-	if (!isset($r['lang'])) {
-		$r['lang'] = '';
-	}
-
-	return $r;
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table(table_objet($type));
+    if (!($desc and $s = $desc['titre'])) {
+        return array();
+    }
+    $_id = $desc['key']['PRIMARY KEY'];
+    $r = sql_fetsel($s, $desc['table'], "$_id=$id", '', '', '', '', $connect);
+    if (!$r) {
+        return array();
+    }
+    $r['titre'] = supprimer_numero($r['titre']);
+    if (!$r['titre'] and !empty($r['surnom'])) {
+        $r['titre'] = $r['surnom'];
+    }
+    if (!isset($r['lang'])) {
+        $r['lang'] = '';
+    }
+
+    return $r;
 }
 
 // traite les modeles (dans la fonction typo), en remplacant
@@ -292,115 +292,115 @@ 
 // https://code.spip.net/@traiter_modeles
 
 define('_RACCOURCI_MODELE',
-	'(<([a-z_-]{3,})' # <modele
-	. '\s*([0-9]*)\s*' # id
-	. '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
-	. '\s*/?' . '>)' # fin du modele >
-	. '\s*(<\/a>)?' # eventuel </a>
+    '(<([a-z_-]{3,})' # <modele
+    . '\s*([0-9]*)\s*' # id
+    . '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
+    . '\s*/?' . '>)' # fin du modele >
+    . '\s*(<\/a>)?' # eventuel </a>
 );
 
 define('_RACCOURCI_MODELE_DEBUT', '@^' . _RACCOURCI_MODELE . '@isS');
 
 // https://code.spip.net/@traiter_modeles
 function traiter_modeles($texte, $doublons = false, $echap = '', $connect = '', $liens = null, $env = array()) {
-	// preserver la compatibilite : true = recherche des documents
-	if ($doublons === true) {
-		$doublons = array('documents' => array('doc', 'emb', 'img'));
-	}
-	// detecter les modeles (rapide)
-	if (strpos($texte, "<") !== false and
-		preg_match_all('/<[a-z_-]{3,}\s*[0-9|]+/iS', $texte, $matches, PREG_SET_ORDER)
-	) {
-		include_spip('public/assembler');
-		$wrap_embed_html = charger_fonction("wrap_embed_html", "inc", true);
-		foreach ($matches as $match) {
-			// Recuperer l'appel complet (y compris un eventuel lien)
-
-			$a = strpos($texte, $match[0]);
-			preg_match(_RACCOURCI_MODELE_DEBUT,
-				substr($texte, $a), $regs);
-			$regs[] = ""; // s'assurer qu'il y a toujours un 5e arg, eventuellement vide
-			list(, $mod, $type, $id, $params, $fin) = $regs;
-			if ($fin and
-				preg_match('/<a\s[^<>]*>\s*$/i',
-					substr($texte, 0, $a), $r)
-			) {
-				$lien = array(
-					'href' => extraire_attribut($r[0], 'href'),
-					'class' => extraire_attribut($r[0], 'class'),
-					'mime' => extraire_attribut($r[0], 'type'),
-					'title' => extraire_attribut($r[0], 'title'),
-					'hreflang' => extraire_attribut($r[0], 'hreflang')
-				);
-				$n = strlen($r[0]);
-				$a -= $n;
-				$cherche = $n + strlen($regs[0]);
-			} else {
-				$lien = false;
-				$cherche = strlen($mod);
-			}
-
-			// calculer le modele
-			# hack indexation
-			if ($doublons) {
-				$texte .= preg_replace(',[|][^|=]*,s', ' ', $params);
-			} # version normale
-			else {
-				// si un tableau de liens a ete passe, reinjecter le contenu d'origine
-				// dans les parametres, plutot que les liens echappes
-				if (!is_null($liens)) {
-					$params = str_replace($liens[0], $liens[1], $params);
-				}
-				$modele = inclure_modele($type, $id, $params, $lien, $connect, $env);
-				// en cas d'echec, 
-				// si l'objet demande a une url, 
-				// creer un petit encadre vers elle
-				if ($modele === false) {
-					if (!$lien) {
-						$lien = traiter_lien_implicite("$type$id", '', 'tout', $connect);
-					}
-					if ($lien) {
-						$modele = '<a href="'
-							. $lien['url']
-							. '" class="spip_modele'
-							. '">'
-							. sinon($lien['titre'], _T('ecrire:info_sans_titre'))
-							. "</a>";
-					} else {
-						$modele = "";
-						if (test_espace_prive()) {
-							$modele = entites_html(substr($texte, $a, $cherche));
-							if (!is_null($liens)) {
-								$modele = "<pre>" . str_replace($liens[0], $liens[1], $modele) . "</pre>";
-							}
-						}
-					}
-				}
-				// le remplacer dans le texte
-				if ($modele !== false) {
-					$modele = protege_js_modeles($modele);
-					if ($wrap_embed_html) {
-						$modele = $wrap_embed_html($mod, $modele);
-					}
-					$rempl = code_echappement($modele, $echap);
-					$texte = substr($texte, 0, $a)
-						. $rempl
-						. substr($texte, $a + $cherche);
-				}
-			}
-
-			// hack pour tout l'espace prive
-			if (((!_DIR_RESTREINT) or ($doublons)) and ($id)) {
-				foreach ($doublons ? $doublons : array('documents' => array('doc', 'emb', 'img')) as $quoi => $modeles) {
-					if (in_array($type, $modeles)) {
-						$GLOBALS["doublons_{$quoi}_inclus"][] = $id;
-					}
-				}
-			}
-		}
-	}
-
-	return $texte;
+    // preserver la compatibilite : true = recherche des documents
+    if ($doublons === true) {
+        $doublons = array('documents' => array('doc', 'emb', 'img'));
+    }
+    // detecter les modeles (rapide)
+    if (strpos($texte, "<") !== false and
+        preg_match_all('/<[a-z_-]{3,}\s*[0-9|]+/iS', $texte, $matches, PREG_SET_ORDER)
+    ) {
+        include_spip('public/assembler');
+        $wrap_embed_html = charger_fonction("wrap_embed_html", "inc", true);
+        foreach ($matches as $match) {
+            // Recuperer l'appel complet (y compris un eventuel lien)
+
+            $a = strpos($texte, $match[0]);
+            preg_match(_RACCOURCI_MODELE_DEBUT,
+                substr($texte, $a), $regs);
+            $regs[] = ""; // s'assurer qu'il y a toujours un 5e arg, eventuellement vide
+            list(, $mod, $type, $id, $params, $fin) = $regs;
+            if ($fin and
+                preg_match('/<a\s[^<>]*>\s*$/i',
+                    substr($texte, 0, $a), $r)
+            ) {
+                $lien = array(
+                    'href' => extraire_attribut($r[0], 'href'),
+                    'class' => extraire_attribut($r[0], 'class'),
+                    'mime' => extraire_attribut($r[0], 'type'),
+                    'title' => extraire_attribut($r[0], 'title'),
+                    'hreflang' => extraire_attribut($r[0], 'hreflang')
+                );
+                $n = strlen($r[0]);
+                $a -= $n;
+                $cherche = $n + strlen($regs[0]);
+            } else {
+                $lien = false;
+                $cherche = strlen($mod);
+            }
+
+            // calculer le modele
+            # hack indexation
+            if ($doublons) {
+                $texte .= preg_replace(',[|][^|=]*,s', ' ', $params);
+            } # version normale
+            else {
+                // si un tableau de liens a ete passe, reinjecter le contenu d'origine
+                // dans les parametres, plutot que les liens echappes
+                if (!is_null($liens)) {
+                    $params = str_replace($liens[0], $liens[1], $params);
+                }
+                $modele = inclure_modele($type, $id, $params, $lien, $connect, $env);
+                // en cas d'echec, 
+                // si l'objet demande a une url, 
+                // creer un petit encadre vers elle
+                if ($modele === false) {
+                    if (!$lien) {
+                        $lien = traiter_lien_implicite("$type$id", '', 'tout', $connect);
+                    }
+                    if ($lien) {
+                        $modele = '<a href="'
+                            . $lien['url']
+                            . '" class="spip_modele'
+                            . '">'
+                            . sinon($lien['titre'], _T('ecrire:info_sans_titre'))
+                            . "</a>";
+                    } else {
+                        $modele = "";
+                        if (test_espace_prive()) {
+                            $modele = entites_html(substr($texte, $a, $cherche));
+                            if (!is_null($liens)) {
+                                $modele = "<pre>" . str_replace($liens[0], $liens[1], $modele) . "</pre>";
+                            }
+                        }
+                    }
+                }
+                // le remplacer dans le texte
+                if ($modele !== false) {
+                    $modele = protege_js_modeles($modele);
+                    if ($wrap_embed_html) {
+                        $modele = $wrap_embed_html($mod, $modele);
+                    }
+                    $rempl = code_echappement($modele, $echap);
+                    $texte = substr($texte, 0, $a)
+                        . $rempl
+                        . substr($texte, $a + $cherche);
+                }
+            }
+
+            // hack pour tout l'espace prive
+            if (((!_DIR_RESTREINT) or ($doublons)) and ($id)) {
+                foreach ($doublons ? $doublons : array('documents' => array('doc', 'emb', 'img')) as $quoi => $modeles) {
+                    if (in_array($type, $modeles)) {
+                        $GLOBALS["doublons_{$quoi}_inclus"][] = $id;
+                    }
+                }
+            }
+        }
+    }
+
+    return $texte;
 }
 
 //
@@ -408,15 +408,15 @@ 
 //
 // https://code.spip.net/@traiter_raccourci_ancre
 function traiter_raccourci_ancre($letexte) {
-	return $letexte;
+    return $letexte;
 }
 
 // https://code.spip.net/@traiter_raccourci_glossaire
 function traiter_raccourci_glossaire($texte) {
-	return $texte;
+    return $texte;
 }
 
 // https://code.spip.net/@glossaire_std
 function glossaire_std($terme) {
-	return $terme;
+    return $terme;
 }

Spacing +11 added lines, -11 removed lines

@@ -102,7 +102,7 @@ 
 	return $r ? $r : traiter_lien_explicite($ref, $texte, $pour, $connect, $echappe_typo);
 }
 
-define('_EXTRAIRE_LIEN', ',^\s*(?:' . _PROTOCOLES_STD . '):?/?/?\s*$,iS');
+define('_EXTRAIRE_LIEN', ',^\s*(?:'._PROTOCOLES_STD.'):?/?/?\s*$,iS');
 
 // https://code.spip.net/@traiter_lien_explicite
 function traiter_lien_explicite($ref, $texte = '', $pour = 'url', $connect = '', $echappe_typo = true) {
@@ -119,19 +119,19 @@ 
 		$lien_court = charger_fonction('lien_court', 'inc');
 		$texte = $lien_court($texte);
 		if ($echappe_typo) {
-			$texte = "<html>" . quote_amp($texte) . "</html>";
+			$texte = "<html>".quote_amp($texte)."</html>";
 		}
 	}
 
 	// petites corrections d'URL
 	if (preg_match('/^www\.[^@]+$/S', $lien)) {
-		$lien = "http://" . $lien;
+		$lien = "http://".$lien;
 	} else {
 		if (strpos($lien, "@") && email_valide($lien)) {
 			if (!$texte) {
 				$texte = $lien;
 			}
-			$lien = "mailto:" . $lien;
+			$lien = "mailto:".$lien;
 		}
 	}
 
@@ -147,7 +147,7 @@ 
 }
 
 function liens_implicite_glose_dist($texte, $id, $type, $args, $ancre, $connect = '') {
-	if (function_exists($f = 'glossaire_' . $ancre)) {
+	if (function_exists($f = 'glossaire_'.$ancre)) {
 		$url = $f($texte, $id);
 	} else {
 		$url = glossaire_std($texte);
@@ -161,7 +161,7 @@ 
 	if (!($match = typer_raccourci($ref))) {
 		return false;
 	}
-	@list($type, , $id, , $args, , $ancre) = $match;
+	@list($type,, $id,, $args,, $ancre) = $match;
 	// attention dans le cas des sites le lien doit pointer non pas sur
 	// la page locale du site, mais directement sur le site lui-meme
 	if ($f = charger_fonction("implicite_$type", "liens", true)) {
@@ -188,7 +188,7 @@ 
 		$r['titre'] = $texte;
 	}
 	if (!@$r['titre']) {
-		$r['titre'] = _T($type) . " $id";
+		$r['titre'] = _T($type)." $id";
 	}
 	if ($pour == 'titre') {
 		return $r['titre'];
@@ -198,7 +198,7 @@ 
 	// dans le cas d'un lien vers un doc, ajouter le type='mime/type'
 	if ($type == 'document'
 		and $mime = sql_getfetsel('mime_type', 'spip_types_documents',
-			"extension IN (" . sql_get_select("extension", "spip_documents", "id_document=" . sql_quote($id)) . ")",
+			"extension IN (".sql_get_select("extension", "spip_documents", "id_document=".sql_quote($id)).")",
 			'', '', '', '', $connect)
 	) {
 		$r['mime'] = $mime;
@@ -295,11 +295,11 @@ 
 	'(<([a-z_-]{3,})' # <modele
 	. '\s*([0-9]*)\s*' # id
 	. '([|](?:<[^<>]*>|[^>])*?)?' # |arguments (y compris des tags <...>)
-	. '\s*/?' . '>)' # fin du modele >
+	. '\s*/?'.'>)' # fin du modele >
 	. '\s*(<\/a>)?' # eventuel </a>
 );
 
-define('_RACCOURCI_MODELE_DEBUT', '@^' . _RACCOURCI_MODELE . '@isS');
+define('_RACCOURCI_MODELE_DEBUT', '@^'._RACCOURCI_MODELE.'@isS');
 
 // https://code.spip.net/@traiter_modeles
 function traiter_modeles($texte, $doublons = false, $echap = '', $connect = '', $liens = null, $env = array()) {
@@ -371,7 +371,7 @@ 
 						if (test_espace_prive()) {
 							$modele = entites_html(substr($texte, $a, $cherche));
 							if (!is_null($liens)) {
-								$modele = "<pre>" . str_replace($liens[0], $liens[1], $modele) . "</pre>";
+								$modele = "<pre>".str_replace($liens[0], $liens[1], $modele)."</pre>";
 							}
 						}
 					}

ecrire/inc/math.php

Doc Comments +3 added lines

@@ -21,6 +21,9 @@
 //
 
 // https://code.spip.net/@image_math
+/**
+ * @param string $tex
+ */
 function produire_image_math($tex) {
 
 	switch ($GLOBALS['traiter_math']) {

Indentation +93 added lines, -93 removed lines

@@ -13,7 +13,7 @@ 
 
 //
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 //
@@ -23,56 +23,56 @@ 
 // https://code.spip.net/@image_math
 function produire_image_math($tex) {
 
-	switch ($GLOBALS['traiter_math']) {
-		// Attention: mathml desactiv'e pour l'instant
-		case 'mathml':
-			$ext = '.xhtml';
-			$server = $GLOBALS['mathml_server'];
-			break;
-		case 'tex':
-			$ext = '.png';
-			$server = $GLOBALS['tex_server'];
-			break;
-		default:
-			return $tex;
-	}
-
-	// Regarder dans le repertoire local des images TeX et blocs MathML
-	if (!@is_dir($dir_tex = _DIR_VAR . 'cache-TeX/')) {
-		@mkdir($dir_tex, _SPIP_CHMOD);
-	}
-	$fichier = $dir_tex . md5(trim($tex)) . $ext;
-
-
-	if (!@file_exists($fichier)) {
-		// Aller chercher l'image sur le serveur
-		if ($server) {
-			spip_log($url = $server . '?' . rawurlencode($tex));
-			include_spip('inc/distant');
-			recuperer_page($url, $fichier);
-		}
-	}
-
-
-	// Composer la reponse selon presence ou non de l'image
-	$tex = entites_html($tex);
-	if (@file_exists($fichier)) {
-
-		// MathML
-		if ($GLOBALS['traiter_math'] == 'mathml') {
-			return join(file("$fichier"), "");
-		} // TeX
-		else {
-			list(, , , $size) = @spip_getimagesize($fichier);
-			$alt = "alt=\"$tex\" title=\"$tex\"";
-
-			return "<img src=\"$fichier\" style=\"vertical-align:middle;\" $size $alt />";
-		}
-
-	} else // pas de fichier
-	{
-		return "<tt><span class='spip_code' dir='ltr'>$tex</span></tt>";
-	}
+    switch ($GLOBALS['traiter_math']) {
+        // Attention: mathml desactiv'e pour l'instant
+        case 'mathml':
+            $ext = '.xhtml';
+            $server = $GLOBALS['mathml_server'];
+            break;
+        case 'tex':
+            $ext = '.png';
+            $server = $GLOBALS['tex_server'];
+            break;
+        default:
+            return $tex;
+    }
+
+    // Regarder dans le repertoire local des images TeX et blocs MathML
+    if (!@is_dir($dir_tex = _DIR_VAR . 'cache-TeX/')) {
+        @mkdir($dir_tex, _SPIP_CHMOD);
+    }
+    $fichier = $dir_tex . md5(trim($tex)) . $ext;
+
+
+    if (!@file_exists($fichier)) {
+        // Aller chercher l'image sur le serveur
+        if ($server) {
+            spip_log($url = $server . '?' . rawurlencode($tex));
+            include_spip('inc/distant');
+            recuperer_page($url, $fichier);
+        }
+    }
+
+
+    // Composer la reponse selon presence ou non de l'image
+    $tex = entites_html($tex);
+    if (@file_exists($fichier)) {
+
+        // MathML
+        if ($GLOBALS['traiter_math'] == 'mathml') {
+            return join(file("$fichier"), "");
+        } // TeX
+        else {
+            list(, , , $size) = @spip_getimagesize($fichier);
+            $alt = "alt=\"$tex\" title=\"$tex\"";
+
+            return "<img src=\"$fichier\" style=\"vertical-align:middle;\" $size $alt />";
+        }
+
+    } else // pas de fichier
+    {
+        return "<tt><span class='spip_code' dir='ltr'>$tex</span></tt>";
+    }
 
 }
 
@@ -108,46 +108,46 @@ 
  */
 function traiter_math($letexte, $source = '', $defaire_amp = false) {
 
-	$texte_a_voir = $letexte;
-	while (($debut = strpos($texte_a_voir, "<math>")) !== false) {
-		if (!$fin = strpos($texte_a_voir, "</math>")) {
-			$fin = strlen($texte_a_voir);
-		}
-
-		$texte_debut = substr($texte_a_voir, 0, $debut);
-		$texte_milieu = substr($texte_a_voir,
-			$debut + strlen("<math>"), $fin - $debut - strlen("<math>"));
-		$texte_fin = substr($texte_a_voir,
-			$fin + strlen("</math>"), strlen($texte_a_voir));
-
-		// Les doubles $$x^2$$ en mode 'div'
-		while ((preg_match(",[$][$]([^$]+)[$][$],", $texte_milieu, $regs))) {
-			$expression = $regs[1];
-			if ($defaire_amp) {
-				$expression = str_replace('&amp;', '&', $expression);
-			}
-			$echap = "\n<p class=\"spip\" style=\"text-align: center;\">" . produire_image_math($expression) . "</p>\n";
-			$pos = strpos($texte_milieu, $regs[0]);
-			$texte_milieu = substr($texte_milieu, 0, $pos)
-				. code_echappement($echap, $source)
-				. substr($texte_milieu, $pos + strlen($regs[0]));
-		}
-
-		// Les simples $x^2$ en mode 'span'
-		while ((preg_match(",[$]([^$]+)[$],", $texte_milieu, $regs))) {
-			$expression = $regs[1];
-			if ($defaire_amp) {
-				$expression = str_replace('&amp;', '&', $expression);
-			}
-			$echap = produire_image_math($expression);
-			$pos = strpos($texte_milieu, $regs[0]);
-			$texte_milieu = substr($texte_milieu, 0, $pos)
-				. code_echappement($echap, $source)
-				. substr($texte_milieu, $pos + strlen($regs[0]));
-		}
-
-		$texte_a_voir = $texte_debut . $texte_milieu . $texte_fin;
-	}
-
-	return $texte_a_voir;
+    $texte_a_voir = $letexte;
+    while (($debut = strpos($texte_a_voir, "<math>")) !== false) {
+        if (!$fin = strpos($texte_a_voir, "</math>")) {
+            $fin = strlen($texte_a_voir);
+        }
+
+        $texte_debut = substr($texte_a_voir, 0, $debut);
+        $texte_milieu = substr($texte_a_voir,
+            $debut + strlen("<math>"), $fin - $debut - strlen("<math>"));
+        $texte_fin = substr($texte_a_voir,
+            $fin + strlen("</math>"), strlen($texte_a_voir));
+
+        // Les doubles $$x^2$$ en mode 'div'
+        while ((preg_match(",[$][$]([^$]+)[$][$],", $texte_milieu, $regs))) {
+            $expression = $regs[1];
+            if ($defaire_amp) {
+                $expression = str_replace('&amp;', '&', $expression);
+            }
+            $echap = "\n<p class=\"spip\" style=\"text-align: center;\">" . produire_image_math($expression) . "</p>\n";
+            $pos = strpos($texte_milieu, $regs[0]);
+            $texte_milieu = substr($texte_milieu, 0, $pos)
+                . code_echappement($echap, $source)
+                . substr($texte_milieu, $pos + strlen($regs[0]));
+        }
+
+        // Les simples $x^2$ en mode 'span'
+        while ((preg_match(",[$]([^$]+)[$],", $texte_milieu, $regs))) {
+            $expression = $regs[1];
+            if ($defaire_amp) {
+                $expression = str_replace('&amp;', '&', $expression);
+            }
+            $echap = produire_image_math($expression);
+            $pos = strpos($texte_milieu, $regs[0]);
+            $texte_milieu = substr($texte_milieu, 0, $pos)
+                . code_echappement($echap, $source)
+                . substr($texte_milieu, $pos + strlen($regs[0]));
+        }
+
+        $texte_a_voir = $texte_debut . $texte_milieu . $texte_fin;
+    }
+
+    return $texte_a_voir;
 }

ecrire/inc/presentation.php

Doc Comments +7 added lines

@@ -30,6 +30,9 @@ 
 include_spip('inc/filtres_boites');
 
 // https://code.spip.net/@debut_cadre
+/**
+ * @param string $style
+ */
 function debut_cadre($style, $icone = "", $fonction = "", $titre = "", $id = "", $class = "", $padding = true) {
 	$style_mapping = array(
 		'r' => 'simple',
@@ -183,6 +186,10 @@ 
 function fin_onglet() { return "</ul></div>\n"; }
 
 // https://code.spip.net/@onglet
+/**
+ * @param string $texte
+ * @param string $onglet
+ */
 function onglet($texte, $lien, $onglet_ref, $onglet, $icone = "") {
 	return "<li>"
 	. ($icone ? http_img_pack($icone, '', " class='cadre-icone'") : '')

Indentation +100 added lines, -100 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Presentation
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/presentation_mini');
@@ -31,44 +31,44 @@ 
 
 // https://code.spip.net/@debut_cadre
 function debut_cadre($style, $icone = "", $fonction = "", $titre = "", $id = "", $class = "", $padding = true) {
-	$style_mapping = array(
-		'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 = array('couleur' => 'topper', 'trait-couleur' => 'section');
-	$c = isset($style_mapping[$style]) ? $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)) {
-			list($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, isset($style_titre_mapping[$style]) ? $style_titre_mapping[$style] : '', $id);
+    $style_mapping = array(
+        '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 = array('couleur' => 'topper', 'trait-couleur' => 'section');
+    $c = isset($style_mapping[$style]) ? $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)) {
+            list($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, isset($style_titre_mapping[$style]) ? $style_titre_mapping[$style] : '', $id);
 }
 
 // https://code.spip.net/@fin_cadre
@@ -76,66 +76,66 @@ 
 
 
 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('r'); }
 
 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('e'); }
 
 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('sous_rub'); }
 
 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('couleur'); }
 
 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('trait-couleur'); }
@@ -156,18 +156,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();
 }
 
 //
@@ -184,10 +184,10 @@ 
 
 // 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>";
 }
 
 /**
@@ -219,14 +219,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)) {
-		list($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)) {
+        list($x, $lien, $atts, $texte) = $r;
+        $javascript .= $atts;
+    }
+
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $align", $javascript);
 }
 
 /**
@@ -251,15 +251,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)) {
-		list($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)) {
+        list($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;
 }

Spacing +6 added lines, -6 removed lines

@@ -43,9 +43,9 @@ 
 	);
 	$style_titre_mapping = array('couleur' => 'topper', 'trait-couleur' => 'section');
 	$c = isset($style_mapping[$style]) ? $style_mapping[$style] : 'simple';
-	$class = $c . ($class ? " $class" : "");
+	$class = $c.($class ? " $class" : "");
 	if (!$padding) {
-		$class .= ($class ? " " : "") . "no-padding";
+		$class .= ($class ? " " : "")."no-padding";
 	}
 
 	//($id?"id='$id' ":"")
@@ -60,12 +60,12 @@ 
 		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" .
+			$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;
+		$titre = $icone.$titre;
 	}
 
 	return boite_ouvrir($titre, $class, isset($style_titre_mapping[$style]) ? $style_titre_mapping[$style] : '', $id);
@@ -159,7 +159,7 @@ 
 	$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
@@ -167,7 +167,7 @@ 
 // 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();
+	. boite_ouvrir(_T('titre_cadre_raccourcis'), 'raccourcis').$bloc.boite_fermer();
 }
 
 //

ecrire/inc/texte_mini.php

Doc Comments +9 added lines

@@ -78,6 +78,9 @@ 
 // une $source differente ; le script detecte automagiquement si ce qu'on
 // echappe est un div ou un span
 // https://code.spip.net/@code_echappement
+/**
+ * @param string $mode
+ */
 function code_echappement($rempl, $source = '', $no_transform = false, $mode = null) {
 	if (!strlen($rempl)) {
 		return '';
@@ -282,6 +285,9 @@ 
 // Reinserer le javascript de confiance (venant des modeles)
 
 // https://code.spip.net/@echappe_retour_modeles
+/**
+ * @param string $letexte
+ */
 function echappe_retour_modeles($letexte, $interdire_scripts = false) {
 	$letexte = echappe_retour($letexte);
 
@@ -427,6 +433,9 @@ 
 }
 
 
+/**
+ * @param string $letexte
+ */
 function echapper_faux_tags($letexte) {
 	if (strpos($letexte, '<') === false) {
 		return $letexte;

Indentation +357 added lines, -357 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres');
 include_spip('inc/lang');
@@ -39,21 +39,21 @@ 
  **/
 function definir_puce() {
 
-	// Attention au sens, qui n'est pas defini de la meme facon dans
-	// l'espace prive (spip_lang est la langue de l'interface, lang_dir
-	// celle du texte) et public (spip_lang est la langue du texte)
-	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
+    // Attention au sens, qui n'est pas defini de la meme facon dans
+    // l'espace prive (spip_lang est la langue de l'interface, lang_dir
+    // celle du texte) et public (spip_lang est la langue du texte)
+    $dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
-	if ($dir == 'rtl') {
-		$p .= '_rtl';
-	}
+    $p = 'puce' . (test_espace_prive() ? '_prive' : '');
+    if ($dir == 'rtl') {
+        $p .= '_rtl';
+    }
 
-	if (!isset($GLOBALS[$p])) {
-		$GLOBALS[$p] = '<span class="spip-puce '.$dir.'"><b>–</b></span>';
-	}
+    if (!isset($GLOBALS[$p])) {
+        $GLOBALS[$p] = '<span class="spip-puce '.$dir.'"><b>–</b></span>';
+    }
 
-	return $GLOBALS[$p];
+    return $GLOBALS[$p];
 }
 
 
@@ -61,13 +61,13 @@ 
 // dont on souhaite qu'ils provoquent un saut de paragraphe
 
 if (!defined('_BALISES_BLOCS')) {
-	define('_BALISES_BLOCS',
-	'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
-	);
+    define('_BALISES_BLOCS',
+    'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
+    );
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+    define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
 }
 
 //
@@ -79,26 +79,26 @@ 
 // echappe est un div ou un span
 // https://code.spip.net/@code_echappement
 function code_echappement($rempl, $source = '', $no_transform = false, $mode = null) {
-	if (!strlen($rempl)) {
-		return '';
-	}
-
-	// Tester si on echappe en span ou en div
-	if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
-	}
-
-	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
-	$taille = 30000;
-	$return = "";
-	for ($i = 0; $i < strlen($rempl); $i += $taille) {
-		// Convertir en base64 et cacher dans un attribut
-		// utiliser les " pour eviter le re-encodage de ' et &#8217
-		$base64 = base64_encode(substr($rempl, $i, $taille));
-		$return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
-	}
-
-	return $return;
+    if (!strlen($rempl)) {
+        return '';
+    }
+
+    // Tester si on echappe en span ou en div
+    if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
+        $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+    }
+
+    // Decouper en morceaux, base64 a des probleme selon la taille de la pile
+    $taille = 30000;
+    $return = "";
+    for ($i = 0; $i < strlen($rempl); $i += $taille) {
+        // Convertir en base64 et cacher dans un attribut
+        // utiliser les " pour eviter le re-encodage de ' et &#8217
+        $base64 = base64_encode(substr($rempl, $i, $taille));
+        $return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
+    }
+
+    return $return;
 
 }
 
@@ -106,64 +106,64 @@ 
 // Echapper les <html>...</ html>
 // https://code.spip.net/@traiter_echap_html_dist
 function traiter_echap_html_dist($regs) {
-	return $regs[3];
+    return $regs[3];
 }
 
 // Echapper les <code>...</ code>
 // https://code.spip.net/@traiter_echap_code_dist
 function traiter_echap_code_dist($regs) {
-	list(, , $att, $corps) = $regs;
-	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
-
-	// ne pas mettre le <div...> s'il n'y a qu'une ligne
-	if (is_int(strpos($echap, "\n"))) {
-		// supprimer les sauts de ligne debut/fin
-		// (mais pas les espaces => ascii art).
-		$echap = preg_replace("/^[\n\r]+|[\n\r]+$/s", "", $echap);
-		$echap = nl2br($echap);
-		$echap = "<div style='text-align: left;' "
-			. "class='spip_code' dir='ltr'><code$att>"
-			. $echap . "</code></div>";
-	} else {
-		$echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
-	}
-
-	$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
-	$echap = str_replace("  ", " &nbsp;", $echap);
-
-	return $echap;
+    list(, , $att, $corps) = $regs;
+    $echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
+
+    // ne pas mettre le <div...> s'il n'y a qu'une ligne
+    if (is_int(strpos($echap, "\n"))) {
+        // supprimer les sauts de ligne debut/fin
+        // (mais pas les espaces => ascii art).
+        $echap = preg_replace("/^[\n\r]+|[\n\r]+$/s", "", $echap);
+        $echap = nl2br($echap);
+        $echap = "<div style='text-align: left;' "
+            . "class='spip_code' dir='ltr'><code$att>"
+            . $echap . "</code></div>";
+    } else {
+        $echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
+    }
+
+    $echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
+    $echap = str_replace("  ", " &nbsp;", $echap);
+
+    return $echap;
 }
 
 // Echapper les <cadre>...</ cadre> aka <frame>...</ frame>
 // https://code.spip.net/@traiter_echap_cadre_dist
 function traiter_echap_cadre_dist($regs) {
-	$echap = trim(entites_html($regs[3]));
-	// compter les lignes un peu plus finement qu'avec les \n
-	$lignes = explode("\n", trim($echap));
-	$n = 0;
-	foreach ($lignes as $l) {
-		$n += floor(strlen($l) / 60) + 1;
-	}
-	$n = max($n, 2);
-	$echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre' dir='ltr'>$echap</textarea>";
-
-	return $echap;
+    $echap = trim(entites_html($regs[3]));
+    // compter les lignes un peu plus finement qu'avec les \n
+    $lignes = explode("\n", trim($echap));
+    $n = 0;
+    foreach ($lignes as $l) {
+        $n += floor(strlen($l) / 60) + 1;
+    }
+    $n = max($n, 2);
+    $echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre' dir='ltr'>$echap</textarea>";
+
+    return $echap;
 }
 
 // https://code.spip.net/@traiter_echap_frame_dist
 function traiter_echap_frame_dist($regs) {
-	return traiter_echap_cadre_dist($regs);
+    return traiter_echap_cadre_dist($regs);
 }
 
 // https://code.spip.net/@traiter_echap_script_dist
 function traiter_echap_script_dist($regs) {
-	// rendre joli (et inactif) si c'est un script language=php
-	if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
-		return highlight_string($regs[0], true);
-	}
+    // rendre joli (et inactif) si c'est un script language=php
+    if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
+        return highlight_string($regs[0], true);
+    }
 
-	// Cas normal : le script passe tel quel
-	return $regs[0];
+    // Cas normal : le script passe tel quel
+    return $regs[0];
 }
 
 define('_PROTEGE_BLOCS', ',<(html|code|cadre|frame|script|style)(\s[^>]*)?>(.*)</\1>,UimsS');
@@ -172,71 +172,71 @@ 
 // - pour $no_transform voir le filtre post_autobr dans inc/filtres
 // https://code.spip.net/@echappe_html
 function echappe_html(
-	$letexte,
-	$source = '',
-	$no_transform = false,
-	$preg = ''
+    $letexte,
+    $source = '',
+    $no_transform = false,
+    $preg = ''
 ) {
-	if (!is_string($letexte) or !strlen($letexte)) {
-		return $letexte;
-	}
-
-	// si le texte recu est long PCRE risque d'exploser, on
-	// fait donc un mic-mac pour augmenter pcre.backtrack_limit
-	if (($len = strlen($letexte)) > 100000) {
-		if (!$old = @ini_get('pcre.backtrack_limit')) {
-			$old = 100000;
-		}
-		if ($len > $old) {
-			$a = @ini_set('pcre.backtrack_limit', $len);
-			spip_log("ini_set pcre.backtrack_limit=$len ($old)");
-		}
-	}
-
-	if (($preg or strpos($letexte, "<") !== false)
-		and preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
-	) {
-		foreach ($matches as $regs) {
-			// echappements tels quels ?
-			if ($no_transform) {
-				$echap = $regs[0];
-			} // sinon les traiter selon le cas
-			else {
-				if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
-					$echap = $f($regs);
-				} else {
-					if (function_exists($f = $f . '_dist')) {
-						$echap = $f($regs);
-					}
-				}
-			}
-
-			$p = strpos($letexte, $regs[0]);
-			$letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
-		}
-	}
-
-	if ($no_transform) {
-		return $letexte;
-	}
-
-	// Echapper le php pour faire joli (ici, c'est pas pour la securite)
-	// seulement si on a echappe les <script>
-	// (derogatoire car on ne peut pas faire passer < ? ... ? >
-	// dans une callback autonommee
-	if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
-		if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
-				$letexte, $matches, PREG_SET_ORDER)
-		) {
-			foreach ($matches as $regs) {
-				$letexte = str_replace($regs[0],
-					code_echappement(highlight_string($regs[0], true), $source),
-					$letexte);
-			}
-		}
-	}
-
-	return $letexte;
+    if (!is_string($letexte) or !strlen($letexte)) {
+        return $letexte;
+    }
+
+    // si le texte recu est long PCRE risque d'exploser, on
+    // fait donc un mic-mac pour augmenter pcre.backtrack_limit
+    if (($len = strlen($letexte)) > 100000) {
+        if (!$old = @ini_get('pcre.backtrack_limit')) {
+            $old = 100000;
+        }
+        if ($len > $old) {
+            $a = @ini_set('pcre.backtrack_limit', $len);
+            spip_log("ini_set pcre.backtrack_limit=$len ($old)");
+        }
+    }
+
+    if (($preg or strpos($letexte, "<") !== false)
+        and preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
+    ) {
+        foreach ($matches as $regs) {
+            // echappements tels quels ?
+            if ($no_transform) {
+                $echap = $regs[0];
+            } // sinon les traiter selon le cas
+            else {
+                if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
+                    $echap = $f($regs);
+                } else {
+                    if (function_exists($f = $f . '_dist')) {
+                        $echap = $f($regs);
+                    }
+                }
+            }
+
+            $p = strpos($letexte, $regs[0]);
+            $letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
+        }
+    }
+
+    if ($no_transform) {
+        return $letexte;
+    }
+
+    // Echapper le php pour faire joli (ici, c'est pas pour la securite)
+    // seulement si on a echappe les <script>
+    // (derogatoire car on ne peut pas faire passer < ? ... ? >
+    // dans une callback autonommee
+    if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
+        if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
+                $letexte, $matches, PREG_SET_ORDER)
+        ) {
+            foreach ($matches as $regs) {
+                $letexte = str_replace($regs[0],
+                    code_echappement(highlight_string($regs[0], true), $source),
+                    $letexte);
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 //
@@ -245,52 +245,52 @@ 
 // par propre() : exemple dans multi et dans typo()
 // https://code.spip.net/@echappe_retour
 function echappe_retour($letexte, $source = '', $filtre = "") {
-	if (strpos($letexte, "base64$source")) {
-		# spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
-		$max_prof = 5;
-		while (strpos($letexte, "<") !== false
-			and
-			preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
-				$letexte, $regs, PREG_SET_ORDER)
-			and $max_prof--) {
-			foreach ($regs as $reg) {
-				$rempl = base64_decode(extraire_attribut($reg[0], 'title'));
-				// recherche d'attributs supplementaires
-				$at = array();
-				foreach (array('lang', 'dir') as $attr) {
-					if ($a = extraire_attribut($reg[0], $attr)) {
-						$at[$attr] = $a;
-					}
-				}
-				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
-					foreach ($at as $attr => $a) {
-						$rempl = inserer_attribut($rempl, $attr, $a);
-					}
-				}
-				if ($filtre) {
-					$rempl = $filtre($rempl);
-				}
-				$letexte = str_replace($reg[0], $rempl, $letexte);
-			}
-		}
-	}
-
-	return $letexte;
+    if (strpos($letexte, "base64$source")) {
+        # spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
+        $max_prof = 5;
+        while (strpos($letexte, "<") !== false
+            and
+            preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+                $letexte, $regs, PREG_SET_ORDER)
+            and $max_prof--) {
+            foreach ($regs as $reg) {
+                $rempl = base64_decode(extraire_attribut($reg[0], 'title'));
+                // recherche d'attributs supplementaires
+                $at = array();
+                foreach (array('lang', 'dir') as $attr) {
+                    if ($a = extraire_attribut($reg[0], $attr)) {
+                        $at[$attr] = $a;
+                    }
+                }
+                if ($at) {
+                    $rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+                    foreach ($at as $attr => $a) {
+                        $rempl = inserer_attribut($rempl, $attr, $a);
+                    }
+                }
+                if ($filtre) {
+                    $rempl = $filtre($rempl);
+                }
+                $letexte = str_replace($reg[0], $rempl, $letexte);
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 // Reinserer le javascript de confiance (venant des modeles)
 
 // https://code.spip.net/@echappe_retour_modeles
 function echappe_retour_modeles($letexte, $interdire_scripts = false) {
-	$letexte = echappe_retour($letexte);
+    $letexte = echappe_retour($letexte);
 
-	// Dans les appels directs hors squelette, securiser aussi ici
-	if ($interdire_scripts) {
-		$letexte = interdire_scripts($letexte);
-	}
+    // Dans les appels directs hors squelette, securiser aussi ici
+    if ($interdire_scripts) {
+        $letexte = interdire_scripts($letexte);
+    }
 
-	return trim($letexte);
+    return trim($letexte);
 }
 
 
@@ -318,130 +318,130 @@ 
  *     Texte coupé
  **/
 function couper($texte, $taille = 50, $suite = null) {
-	if (!($length = strlen($texte)) or $taille <= 0) {
-		return '';
-	}
-	$offset = 400 + 2 * $taille;
-	while ($offset < $length
-		and strlen(preg_replace(",<(!--|\w|/)[^>]+>,Uims", "", substr($texte, 0, $offset))) < $taille) {
-		$offset = 2 * $offset;
-	}
-	if ($offset < $length
-		&& ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
-	) {
-		$p_tag_fermant = strpos($texte, '>', $offset);
-		if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
-			$offset = $p_tag_fermant + 1;
-		} // prolonger la coupe jusqu'au tag fermant suivant eventuel
-	}
-	$texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
-
-	if (!function_exists('nettoyer_raccourcis_typo')) {
-		include_spip('inc/lien');
-	}
-	$texte = nettoyer_raccourcis_typo($texte);
-
-	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
-	$texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
-
-	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
-	$texte = str_replace("\n\n", "\r", $texte);
-
-	// supprimer les tags
-	$texte = supprimer_tags($texte);
-	$texte = trim(str_replace("\n", " ", $texte));
-	$texte .= "\n";  // marquer la fin
-
-	// corriger la longueur de coupe
-	// en fonction de la presence de caracteres utf
-	if ($GLOBALS['meta']['charset'] == 'utf-8') {
-		$long = charset2unicode($texte);
-		$long = spip_substr($long, 0, max($taille, 1));
-		$nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
-		$taille += $nbcharutf;
-	}
-
-
-	// couper au mot precedent
-	$long = spip_substr($texte, 0, max($taille - 4, 1));
-	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-	if (is_null($suite)) {
-		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
-	}
-	$points = $suite;
-
-	// trop court ? ne pas faire de (...)
-	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
-		$points = '';
-		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-		// encore trop court ? couper au caractere
-		if (spip_strlen($texte) < 0.75 * $taille) {
-			$texte = $long;
-		}
-	} else {
-		$texte = $court;
-	}
-
-	if (strpos($texte, "\n"))  // la fin est encore la : c'est qu'on n'a pas de texte de suite
-	{
-		$points = '';
-	}
-
-	// remettre les paragraphes
-	$texte = preg_replace("/\r+/", "\n\n", $texte);
-
-	// supprimer l'eventuelle entite finale mal coupee
-	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
-
-	return quote_amp(trim($texte)) . $points;
+    if (!($length = strlen($texte)) or $taille <= 0) {
+        return '';
+    }
+    $offset = 400 + 2 * $taille;
+    while ($offset < $length
+        and strlen(preg_replace(",<(!--|\w|/)[^>]+>,Uims", "", substr($texte, 0, $offset))) < $taille) {
+        $offset = 2 * $offset;
+    }
+    if ($offset < $length
+        && ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
+    ) {
+        $p_tag_fermant = strpos($texte, '>', $offset);
+        if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
+            $offset = $p_tag_fermant + 1;
+        } // prolonger la coupe jusqu'au tag fermant suivant eventuel
+    }
+    $texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
+
+    if (!function_exists('nettoyer_raccourcis_typo')) {
+        include_spip('inc/lien');
+    }
+    $texte = nettoyer_raccourcis_typo($texte);
+
+    // balises de sauts de ligne et paragraphe
+    $texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
+    $texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
+
+    // on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
+    $texte = str_replace("\n\n", "\r", $texte);
+
+    // supprimer les tags
+    $texte = supprimer_tags($texte);
+    $texte = trim(str_replace("\n", " ", $texte));
+    $texte .= "\n";  // marquer la fin
+
+    // corriger la longueur de coupe
+    // en fonction de la presence de caracteres utf
+    if ($GLOBALS['meta']['charset'] == 'utf-8') {
+        $long = charset2unicode($texte);
+        $long = spip_substr($long, 0, max($taille, 1));
+        $nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
+        $taille += $nbcharutf;
+    }
+
+
+    // couper au mot precedent
+    $long = spip_substr($texte, 0, max($taille - 4, 1));
+    $u = $GLOBALS['meta']['pcre_u'];
+    $court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+    if (is_null($suite)) {
+        $suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
+    }
+    $points = $suite;
+
+    // trop court ? ne pas faire de (...)
+    if (spip_strlen($court) < max(0.75 * $taille, 2)) {
+        $points = '';
+        $long = spip_substr($texte, 0, $taille);
+        $texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+        // encore trop court ? couper au caractere
+        if (spip_strlen($texte) < 0.75 * $taille) {
+            $texte = $long;
+        }
+    } else {
+        $texte = $court;
+    }
+
+    if (strpos($texte, "\n"))  // la fin est encore la : c'est qu'on n'a pas de texte de suite
+    {
+        $points = '';
+    }
+
+    // remettre les paragraphes
+    $texte = preg_replace("/\r+/", "\n\n", $texte);
+
+    // supprimer l'eventuelle entite finale mal coupee
+    $texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
+
+    return quote_amp(trim($texte)) . $points;
 }
 
 
 // https://code.spip.net/@protege_js_modeles
 function protege_js_modeles($t) {
-	if (isset($GLOBALS['visiteur_session'])) {
-		if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_JS_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_JS_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
-			}
-		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_PHP_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_PHP_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
-			}
-		}
-	}
-
-	return $t;
+    if (isset($GLOBALS['visiteur_session'])) {
+        if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_JS_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_JS_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+            }
+        }
+        if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_PHP_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_PHP_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+            }
+        }
+    }
+
+    return $t;
 }
 
 
 function echapper_faux_tags($letexte) {
-	if (strpos($letexte, '<') === false) {
-		return $letexte;
-	}
-	$textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, null, PREG_SPLIT_DELIM_CAPTURE);
-
-	$letexte = "";
-	while (count($textMatches)) {
-		// un texte a echapper
-		$letexte .= str_replace("<", '&lt;', array_shift($textMatches));
-		// un tag html qui a servit a faite le split
-		$letexte .= array_shift($textMatches);
-	}
-
-	return $letexte;
+    if (strpos($letexte, '<') === false) {
+        return $letexte;
+    }
+    $textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, null, PREG_SPLIT_DELIM_CAPTURE);
+
+    $letexte = "";
+    while (count($textMatches)) {
+        // un texte a echapper
+        $letexte .= str_replace("<", '&lt;', array_shift($textMatches));
+        // un tag html qui a servit a faite le split
+        $letexte .= array_shift($textMatches);
+    }
+
+    return $letexte;
 }
 
 /**
@@ -454,44 +454,44 @@ 
  * @return string
  */
 function echapper_html_suspect($texte, $strict=true) {
-	static $echapper_html_suspect;
-	if (!$texte or !is_string($texte)) {
-		return $texte;
-	}
-
-	if (!isset($echapper_html_suspect)) {
-		$echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
-	}
-	// si fonction personalisee, on delegue
-	if ($echapper_html_suspect) {
-		return $echapper_html_suspect($texte, $strict);
-	}
-
-	if (strpos($texte, '<') === false
-	  or strpos($texte, '=') === false) {
-		return $texte;
-	}
-
-	// quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
-	// car sinon on declenche sur les modeles ou ressources
-	if (!$strict and
-	  (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
-	  ){
-		return $texte;
-	}
-
-	// on teste sur strlen car safehtml supprime le contenu dangereux
-	// mais il peut aussi changer des ' en " sur les attributs html,
-	// donc un test d'egalite est trop strict
-	if (strlen(safehtml($texte)) !== strlen($texte)) {
-		$texte = str_replace("<", "&lt;", $texte);
-		if (!function_exists('attribut_html')) {
-			include_spip('inc/filtres');
-		}
-		$texte = "<mark class='danger-js' title='".attribut_html(_T('erreur_contenu_suspect'))."'>⚠️</mark> ".$texte;
-	}
-
-	return $texte;
+    static $echapper_html_suspect;
+    if (!$texte or !is_string($texte)) {
+        return $texte;
+    }
+
+    if (!isset($echapper_html_suspect)) {
+        $echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
+    }
+    // si fonction personalisee, on delegue
+    if ($echapper_html_suspect) {
+        return $echapper_html_suspect($texte, $strict);
+    }
+
+    if (strpos($texte, '<') === false
+      or strpos($texte, '=') === false) {
+        return $texte;
+    }
+
+    // quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
+    // car sinon on declenche sur les modeles ou ressources
+    if (!$strict and
+      (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
+        ){
+        return $texte;
+    }
+
+    // on teste sur strlen car safehtml supprime le contenu dangereux
+    // mais il peut aussi changer des ' en " sur les attributs html,
+    // donc un test d'egalite est trop strict
+    if (strlen(safehtml($texte)) !== strlen($texte)) {
+        $texte = str_replace("<", "&lt;", $texte);
+        if (!function_exists('attribut_html')) {
+            include_spip('inc/filtres');
+        }
+        $texte = "<mark class='danger-js' title='".attribut_html(_T('erreur_contenu_suspect'))."'>⚠️</mark> ".$texte;
+    }
+
+    return $texte;
 }
 
 
@@ -512,27 +512,27 @@ 
  *      Texte sécurisé
  **/
 function safehtml($t) {
-	static $safehtml;
-
-	if (!$t or !is_string($t)) {
-		return $t;
-	}
-	# attention safehtml nettoie deux ou trois caracteres de plus. A voir
-	if (strpos($t, '<') === false) {
-		return str_replace("\x00", '', $t);
-	}
-
-	$t = interdire_scripts($t); // jolifier le php
-	$t = echappe_js($t);
-
-	if (!isset($safehtml)) {
-		$safehtml = charger_fonction('safehtml', 'inc', true);
-	}
-	if ($safehtml) {
-		$t = $safehtml($t);
-	}
-
-	return interdire_scripts($t); // interdire le php (2 precautions)
+    static $safehtml;
+
+    if (!$t or !is_string($t)) {
+        return $t;
+    }
+    # attention safehtml nettoie deux ou trois caracteres de plus. A voir
+    if (strpos($t, '<') === false) {
+        return str_replace("\x00", '', $t);
+    }
+
+    $t = interdire_scripts($t); // jolifier le php
+    $t = echappe_js($t);
+
+    if (!isset($safehtml)) {
+        $safehtml = charger_fonction('safehtml', 'inc', true);
+    }
+    if ($safehtml) {
+        $t = $safehtml($t);
+    }
+
+    return interdire_scripts($t); // interdire le php (2 precautions)
 }
 
 
@@ -554,10 +554,10 @@ 
  *     Texte sans les modèles d'image
  **/
 function supprime_img($letexte, $message = null) {
-	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
-	}
+    if ($message === null) {
+        $message = '(' . _T('img_indisponible') . ')';
+    }
 
-	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
-		$message, $letexte);
+    return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+        $message, $letexte);
 }

Spacing +25 added lines, -25 removed lines

@@ -44,7 +44,7 @@ 
 	// celle du texte) et public (spip_lang est la langue du texte)
 	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
+	$p = 'puce'.(test_espace_prive() ? '_prive' : '');
 	if ($dir == 'rtl') {
 		$p .= '_rtl';
 	}
@@ -67,7 +67,7 @@ 
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+	define('_BALISES_BLOCS_REGEXP', ',</?('._BALISES_BLOCS.')[>[:space:]],iS');
 }
 
 //
@@ -85,7 +85,7 @@ 
 
 	// Tester si on echappe en span ou en div
 	if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+		$mode = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $rempl) ? 'div' : 'span';
 	}
 
 	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
@@ -112,7 +112,7 @@ 
 // Echapper les <code>...</ code>
 // https://code.spip.net/@traiter_echap_code_dist
 function traiter_echap_code_dist($regs) {
-	list(, , $att, $corps) = $regs;
+	list(,, $att, $corps) = $regs;
 	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
 
 	// ne pas mettre le <div...> s'il n'y a qu'une ligne
@@ -123,9 +123,9 @@ 
 		$echap = nl2br($echap);
 		$echap = "<div style='text-align: left;' "
 			. "class='spip_code' dir='ltr'><code$att>"
-			. $echap . "</code></div>";
+			. $echap."</code></div>";
 	} else {
-		$echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
+		$echap = "<code$att class='spip_code' dir='ltr'>".$echap."</code>";
 	}
 
 	$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
@@ -202,10 +202,10 @@ 
 				$echap = $regs[0];
 			} // sinon les traiter selon le cas
 			else {
-				if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
+				if (function_exists($f = 'traiter_echap_'.strtolower($regs[1]))) {
 					$echap = $f($regs);
 				} else {
-					if (function_exists($f = $f . '_dist')) {
+					if (function_exists($f = $f.'_dist')) {
 						$echap = $f($regs);
 					}
 				}
@@ -225,7 +225,7 @@ 
 	// (derogatoire car on ne peut pas faire passer < ? ... ? >
 	// dans une callback autonommee
 	if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
-		if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
+		if (strpos($letexte, "<"."?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
 				$letexte, $matches, PREG_SET_ORDER)
 		) {
 			foreach ($matches as $regs) {
@@ -250,7 +250,7 @@ 
 		$max_prof = 5;
 		while (strpos($letexte, "<") !== false
 			and
-			preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+			preg_match_all(',<(span|div)\sclass=[\'"]base64'.$source.'[\'"]\s(.*)>\s*</\1>,UmsS',
 				$letexte, $regs, PREG_SET_ORDER)
 			and $max_prof--) {
 			foreach ($regs as $reg) {
@@ -263,7 +263,7 @@ 
 					}
 				}
 				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+					$rempl = '<'.$reg[1].'>'.$rempl.'</'.$reg[1].'>';
 					foreach ($at as $attr => $a) {
 						$rempl = inserer_attribut($rempl, $attr, $a);
 					}
@@ -342,8 +342,8 @@ 
 	$texte = nettoyer_raccourcis_typo($texte);
 
 	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
-	$texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
+	$texte = preg_replace("/<p( [^>]*)?".">/", "\r", $texte);
+	$texte = preg_replace("/<br( [^>]*)?".">/", "\n", $texte);
 
 	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
 	$texte = str_replace("\n\n", "\r", $texte);
@@ -351,7 +351,7 @@ 
 	// supprimer les tags
 	$texte = supprimer_tags($texte);
 	$texte = trim(str_replace("\n", " ", $texte));
-	$texte .= "\n";  // marquer la fin
+	$texte .= "\n"; // marquer la fin
 
 	// corriger la longueur de coupe
 	// en fonction de la presence de caracteres utf
@@ -366,7 +366,7 @@ 
 	// couper au mot precedent
 	$long = spip_substr($texte, 0, max($taille - 4, 1));
 	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 	if (is_null($suite)) {
 		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
 	}
@@ -376,7 +376,7 @@ 
 	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
 		$points = '';
 		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 		// encore trop court ? couper au caractere
 		if (spip_strlen($texte) < 0.75 * $taille) {
 			$texte = $long;
@@ -396,7 +396,7 @@ 
 	// supprimer l'eventuelle entite finale mal coupee
 	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
 
-	return quote_amp(trim($texte)) . $points;
+	return quote_amp(trim($texte)).$points;
 }
 
 
@@ -409,16 +409,16 @@ 
 				define('_PROTEGE_JS_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript'._PROTEGE_JS_MODELES), $t);
 			}
 		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+		if (preg_match_all(',<\?php.*?($|\?'.'>),isS', $t, $r, PREG_SET_ORDER)) {
 			if (!defined('_PROTEGE_PHP_MODELES')) {
 				include_spip('inc/acces');
 				define('_PROTEGE_PHP_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'php'._PROTEGE_PHP_MODELES), $t);
 			}
 		}
 	}
@@ -453,7 +453,7 @@ 
  * @param bool $strict
  * @return string
  */
-function echapper_html_suspect($texte, $strict=true) {
+function echapper_html_suspect($texte, $strict = true) {
 	static $echapper_html_suspect;
 	if (!$texte or !is_string($texte)) {
 		return $texte;
@@ -475,8 +475,8 @@ 
 	// quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
 	// car sinon on declenche sur les modeles ou ressources
 	if (!$strict and
-	  (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
-	  ){
+	  (strpos($texte, 'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
+	  ) {
 		return $texte;
 	}
 
@@ -555,9 +555,9 @@ 
  **/
 function supprime_img($letexte, $message = null) {
 	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
+		$message = '('._T('img_indisponible').')';
 	}
 
-	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?'.'\s*/?'.'>,i',
 		$message, $letexte);
 }

ecrire/inc/utils.php

Doc Comments +14 added lines, -5 removed lines

@@ -985,6 +985,9 @@ 
 // Renvoie False si un fichier n'est pas plus vieux que $duree secondes,
 // sinon renvoie True et le date sauf si ca n'est pas souhaite
 // https://code.spip.net/@spip_touch
+/**
+ * @param string $fichier
+ */
 function spip_touch($fichier, $duree = 0, $touch = true) {
 	if ($duree) {
 		clearstatcache();
@@ -1062,7 +1065,7 @@ 
  * @param string $description
  *     Une description humainement compréhensible de ce que fait la tâche
  *     (essentiellement pour l’affichage dans la page de suivi de l’espace privé)
- * @param array $arguments
+ * @param integer[] $arguments
  *     Facultatif, vide par défaut : les arguments qui seront passés à la fonction, sous forme de tableau PHP
  * @param string $file
  *     Facultatif, vide par défaut : nom du fichier à inclure, via `include_spip($file)`
@@ -1101,7 +1104,7 @@ 
  *
  * @param int $id_job
  *  id of jonb to delete
- * @return bool
+ * @return boolean|string
  */
 function job_queue_remove($id_job) {
 	include_spip('inc/queue');
@@ -1417,6 +1420,9 @@ 
 	return $themes;
 }
 
+/**
+ * @return string
+ */
 function find_in_theme($file, $subdir = '', $include = false) {
 	static $themefiles = array();
 	if (isset($themefiles["$subdir$file"])) {
@@ -1861,6 +1867,9 @@ 
 }
 
 // https://code.spip.net/@generer_url_entite_absolue
+/**
+ * @param boolean|string $connect
+ */
 function generer_url_entite_absolue($id = '', $entite = '', $args = '', $ancre = '', $connect = null) {
 	if (!$connect) {
 		$connect = true;
@@ -2118,7 +2127,7 @@ 
  *
  * @param string $script
  *     Nom de la page
- * @param string|array $args
+ * @param string $args
  *     Arguments à transmettre a l'URL,
  *      soit sous la forme d'un string tel que `arg1=yy&arg2=zz`
  *      soit sous la forme d'un array tel que array( `arg1` => `yy`, `arg2` => `zz` )
@@ -3315,7 +3324,7 @@ 
 /**
  * Trouve un squelette dans le repertoire modeles/
  *
- * @param  $nom
+ * @param  string $nom
  * @return string
  */
 function trouve_modele($nom) {
@@ -3533,7 +3542,7 @@ 
 		 *
 		 * @param array $input A multi-dimensional array (record set) from which to pull
 		 *                     a column of values.
-		 * @param mixed $columnKey The column of values to return. This value may be the
+		 * @param string $columnKey The column of values to return. This value may be the
 		 *                         integer key of the column you wish to retrieve, or it
 		 *                         may be the string key name for an associative array.
 		 * @param mixed $indexKey (Optional.) The column to use as the index/keys for

Indentation +2209 added lines, -2210 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -48,63 +48,63 @@ 
  *     Nom de la fonction, ou false.
  */
 function charger_fonction($nom, $dossier = 'exec', $continue = false) {
-	static $echecs = array();
-
-	if (strlen($dossier) and substr($dossier, -1) != '/') {
-		$dossier .= '/';
-	}
-	$f = str_replace('/', '_', $dossier) . $nom;
-
-	if (function_exists($f)) {
-		return $f;
-	}
-	if (function_exists($g = $f . '_dist')) {
-		return $g;
-	}
-
-	if (isset($echecs[$f])) {
-		return $echecs[$f];
-	}
-	// Sinon charger le fichier de declaration si plausible
-
-	if (!preg_match(',^\w+$,', $f)) {
-		if ($continue) {
-			return false;
-		} //appel interne, on passe
-		include_spip('inc/minipres');
-		echo minipres();
-		exit;
-	}
-
-	// passer en minuscules (cf les balises de formulaires)
-	// et inclure le fichier
-	if (!$inc = include_spip($dossier . ($d = strtolower($nom)))
-		// si le fichier truc/machin/nom.php n'existe pas,
-		// la fonction peut etre definie dans truc/machin.php qui regroupe plusieurs petites fonctions
-		and strlen(dirname($dossier)) and dirname($dossier) != '.'
-	) {
-		include_spip(substr($dossier, 0, -1));
-	}
-	if (function_exists($f)) {
-		return $f;
-	}
-	if (function_exists($g)) {
-		return $g;
-	}
-
-	if ($continue) {
-		return $echecs[$f] = false;
-	}
-
-	// Echec : message d'erreur
-	spip_log("fonction $nom ($f ou $g) indisponible" .
-		($inc ? "" : " (fichier $d absent de $dossier)"));
-
-	include_spip('inc/minipres');
-	echo minipres(_T('forum_titre_erreur'),
-		_T('fichier_introuvable', array('fichier' => '<b>' . spip_htmlentities($d) . '</b>')),
-		array('all_inline'=>true,'status'=>404));
-	exit;
+    static $echecs = array();
+
+    if (strlen($dossier) and substr($dossier, -1) != '/') {
+        $dossier .= '/';
+    }
+    $f = str_replace('/', '_', $dossier) . $nom;
+
+    if (function_exists($f)) {
+        return $f;
+    }
+    if (function_exists($g = $f . '_dist')) {
+        return $g;
+    }
+
+    if (isset($echecs[$f])) {
+        return $echecs[$f];
+    }
+    // Sinon charger le fichier de declaration si plausible
+
+    if (!preg_match(',^\w+$,', $f)) {
+        if ($continue) {
+            return false;
+        } //appel interne, on passe
+        include_spip('inc/minipres');
+        echo minipres();
+        exit;
+    }
+
+    // passer en minuscules (cf les balises de formulaires)
+    // et inclure le fichier
+    if (!$inc = include_spip($dossier . ($d = strtolower($nom)))
+        // si le fichier truc/machin/nom.php n'existe pas,
+        // la fonction peut etre definie dans truc/machin.php qui regroupe plusieurs petites fonctions
+        and strlen(dirname($dossier)) and dirname($dossier) != '.'
+    ) {
+        include_spip(substr($dossier, 0, -1));
+    }
+    if (function_exists($f)) {
+        return $f;
+    }
+    if (function_exists($g)) {
+        return $g;
+    }
+
+    if ($continue) {
+        return $echecs[$f] = false;
+    }
+
+    // Echec : message d'erreur
+    spip_log("fonction $nom ($f ou $g) indisponible" .
+        ($inc ? "" : " (fichier $d absent de $dossier)"));
+
+    include_spip('inc/minipres');
+    echo minipres(_T('forum_titre_erreur'),
+        _T('fichier_introuvable', array('fichier' => '<b>' . spip_htmlentities($d) . '</b>')),
+        array('all_inline'=>true,'status'=>404));
+    exit;
 }
 
 /**
@@ -114,17 +114,17 @@ 
  * @return bool
  */
 function include_once_check($file) {
-	if (file_exists($file)) {
-		include_once $file;
+    if (file_exists($file)) {
+        include_once $file;
 
-		return true;
-	}
-	$crash = (isset($GLOBALS['meta']['message_crash_plugins']) ? unserialize($GLOBALS['meta']['message_crash_plugins']) : '');
-	$crash = ($crash ? $crash : array());
-	$crash[$file] = true;
-	ecrire_meta('message_crash_plugins', serialize($crash));
+        return true;
+    }
+    $crash = (isset($GLOBALS['meta']['message_crash_plugins']) ? unserialize($GLOBALS['meta']['message_crash_plugins']) : '');
+    $crash = ($crash ? $crash : array());
+    $crash[$file] = true;
+    ecrire_meta('message_crash_plugins', serialize($crash));
 
-	return false;
+    return false;
 }
 
 
@@ -148,7 +148,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function include_spip($f, $include = true) {
-	return find_in_path($f . '.php', '', $include);
+    return find_in_path($f . '.php', '', $include);
 }
 
 /**
@@ -168,7 +168,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function require_spip($f) {
-	return find_in_path($f . '.php', '', 'required');
+    return find_in_path($f . '.php', '', 'required');
 }
 
 /**
@@ -194,22 +194,22 @@ 
  *     Les paramètres du pipeline modifiés
  **/
 function minipipe($fonc, &$val) {
-	// fonction
-	if (function_exists($fonc)) {
-		$val = call_user_func($fonc, $val);
-	} // Class::Methode
-	else {
-		if (preg_match("/^(\w*)::(\w*)$/S", $fonc, $regs)
-			and $methode = array($regs[1], $regs[2])
-			and is_callable($methode)
-		) {
-			$val = call_user_func($methode, $val);
-		} else {
-			spip_log("Erreur - '$fonc' non definie !");
-		}
-	}
+    // fonction
+    if (function_exists($fonc)) {
+        $val = call_user_func($fonc, $val);
+    } // Class::Methode
+    else {
+        if (preg_match("/^(\w*)::(\w*)$/S", $fonc, $regs)
+            and $methode = array($regs[1], $regs[2])
+            and is_callable($methode)
+        ) {
+            $val = call_user_func($methode, $val);
+        } else {
+            spip_log("Erreur - '$fonc' non definie !");
+        }
+    }
 
-	return $val;
+    return $val;
 }
 
 /**
@@ -240,45 +240,45 @@ 
  *     Résultat
  */
 function pipeline($action, $val = null) {
-	static $charger;
-
-	// chargement initial des fonctions mises en cache, ou generation du cache
-	if (!$charger) {
-		if (!($ok = @is_readable($charger = _CACHE_PIPELINES))) {
-			include_spip('inc/plugin');
-			// generer les fichiers php precompiles
-			// de chargement des plugins et des pipelines
-			actualise_plugins_actifs();
-			if (!($ok = @is_readable($charger))) {
-				spip_log("fichier $charger pas cree");
-			}
-		}
-
-		if ($ok) {
-			include_once $charger;
-		}
-	}
-
-	// appliquer notre fonction si elle existe
-	$fonc = 'execute_pipeline_' . strtolower($action);
-	if (function_exists($fonc)) {
-		$val = $fonc($val);
-	} // plantage ?
-	else {
-		spip_log("fonction $fonc absente : pipeline desactive", _LOG_ERREUR);
-	}
-
-	// si le flux est une table avec 2 cle args&data
-	// on ne ressort du pipe que les donnees dans 'data'
-	// array_key_exists pour php 4.1.0
-	if (is_array($val)
-		and count($val) == 2
-		and (array_key_exists('data', $val))
-	) {
-		$val = $val['data'];
-	}
-
-	return $val;
+    static $charger;
+
+    // chargement initial des fonctions mises en cache, ou generation du cache
+    if (!$charger) {
+        if (!($ok = @is_readable($charger = _CACHE_PIPELINES))) {
+            include_spip('inc/plugin');
+            // generer les fichiers php precompiles
+            // de chargement des plugins et des pipelines
+            actualise_plugins_actifs();
+            if (!($ok = @is_readable($charger))) {
+                spip_log("fichier $charger pas cree");
+            }
+        }
+
+        if ($ok) {
+            include_once $charger;
+        }
+    }
+
+    // appliquer notre fonction si elle existe
+    $fonc = 'execute_pipeline_' . strtolower($action);
+    if (function_exists($fonc)) {
+        $val = $fonc($val);
+    } // plantage ?
+    else {
+        spip_log("fonction $fonc absente : pipeline desactive", _LOG_ERREUR);
+    }
+
+    // si le flux est une table avec 2 cle args&data
+    // on ne ressort du pipe que les donnees dans 'data'
+    // array_key_exists pour php 4.1.0
+    if (is_array($val)
+        and count($val) == 2
+        and (array_key_exists('data', $val))
+    ) {
+        $val = $val['data'];
+    }
+
+    return $val;
 }
 
 /**
@@ -322,35 +322,35 @@ 
  *     paramètre est planté pour cause de compatibilité ascendante.
  */
 function spip_log($message = null, $name = null) {
-	static $pre = array();
-	static $log;
-	preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string)$name, $regs);
-	if (!isset($regs[1]) or !$logname = $regs[1]) {
-		$logname = null;
-	}
-	if (!isset($regs[2]) or !$niveau = $regs[2]) {
-		$niveau = _LOG_INFO;
-	}
-
-	if ($niveau <= (defined('_LOG_FILTRE_GRAVITE') ? _LOG_FILTRE_GRAVITE : _LOG_INFO_IMPORTANTE)) {
-		if (!$pre) {
-			$pre = array(
-				_LOG_HS => 'HS:',
-				_LOG_ALERTE_ROUGE => 'ALERTE:',
-				_LOG_CRITIQUE => 'CRITIQUE:',
-				_LOG_ERREUR => 'ERREUR:',
-				_LOG_AVERTISSEMENT => 'WARNING:',
-				_LOG_INFO_IMPORTANTE => '!INFO:',
-				_LOG_INFO => 'info:',
-				_LOG_DEBUG => 'debug:'
-			);
-			$log = charger_fonction('log', 'inc');
-		}
-		if (!is_string($message)) {
-			$message = print_r($message, true);
-		}
-		$log($pre[$niveau] . ' ' . $message, $logname);
-	}
+    static $pre = array();
+    static $log;
+    preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string)$name, $regs);
+    if (!isset($regs[1]) or !$logname = $regs[1]) {
+        $logname = null;
+    }
+    if (!isset($regs[2]) or !$niveau = $regs[2]) {
+        $niveau = _LOG_INFO;
+    }
+
+    if ($niveau <= (defined('_LOG_FILTRE_GRAVITE') ? _LOG_FILTRE_GRAVITE : _LOG_INFO_IMPORTANTE)) {
+        if (!$pre) {
+            $pre = array(
+                _LOG_HS => 'HS:',
+                _LOG_ALERTE_ROUGE => 'ALERTE:',
+                _LOG_CRITIQUE => 'CRITIQUE:',
+                _LOG_ERREUR => 'ERREUR:',
+                _LOG_AVERTISSEMENT => 'WARNING:',
+                _LOG_INFO_IMPORTANTE => '!INFO:',
+                _LOG_INFO => 'info:',
+                _LOG_DEBUG => 'debug:'
+            );
+            $log = charger_fonction('log', 'inc');
+        }
+        if (!is_string($message)) {
+            $message = print_r($message, true);
+        }
+        $log($pre[$niveau] . ' ' . $message, $logname);
+    }
 }
 
 /**
@@ -361,8 +361,8 @@ 
  * @param array $opt Tableau d'options
  **/
 function journal($phrase, $opt = array()) {
-	$journal = charger_fonction('journal', 'inc');
-	$journal($phrase, $opt);
+    $journal = charger_fonction('journal', 'inc');
+    $journal($phrase, $opt);
 }
 
 
@@ -381,36 +381,36 @@ 
  **/
 function _request($var, $c = false) {
 
-	if (is_array($c)) {
-		return isset($c[$var]) ? $c[$var] : null;
-	}
+    if (is_array($c)) {
+        return isset($c[$var]) ? $c[$var] : null;
+    }
 
-	if (isset($_GET[$var])) {
-		$a = $_GET[$var];
-	} elseif (isset($_POST[$var])) {
-		$a = $_POST[$var];
-	} else {
-		return null;
-	}
+    if (isset($_GET[$var])) {
+        $a = $_GET[$var];
+    } elseif (isset($_POST[$var])) {
+        $a = $_POST[$var];
+    } else {
+        return null;
+    }
 
-	// Si on est en ajax et en POST tout a ete encode
-	// via encodeURIComponent, il faut donc repasser
-	// dans le charset local...
-	if (defined('_AJAX')
-		and _AJAX
-		and isset($GLOBALS['meta']['charset'])
-		and $GLOBALS['meta']['charset'] != 'utf-8'
-		and is_string($a)
-		// check rapide mais pas fiable
-		and preg_match(',[\x80-\xFF],', $a)
-		// check fiable
-		and include_spip('inc/charsets')
-		and is_utf8($a)
-	) {
-		return importer_charset($a, 'utf-8');
-	}
+    // Si on est en ajax et en POST tout a ete encode
+    // via encodeURIComponent, il faut donc repasser
+    // dans le charset local...
+    if (defined('_AJAX')
+        and _AJAX
+        and isset($GLOBALS['meta']['charset'])
+        and $GLOBALS['meta']['charset'] != 'utf-8'
+        and is_string($a)
+        // check rapide mais pas fiable
+        and preg_match(',[\x80-\xFF],', $a)
+        // check fiable
+        and include_spip('inc/charsets')
+        and is_utf8($a)
+    ) {
+        return importer_charset($a, 'utf-8');
+    }
 
-	return $a;
+    return $a;
 }
 
 
@@ -428,22 +428,22 @@ 
  *     - false sinon
  **/
 function set_request($var, $val = null, $c = false) {
-	if (is_array($c)) {
-		unset($c[$var]);
-		if ($val !== null) {
-			$c[$var] = $val;
-		}
+    if (is_array($c)) {
+        unset($c[$var]);
+        if ($val !== null) {
+            $c[$var] = $val;
+        }
 
-		return $c;
-	}
+        return $c;
+    }
 
-	unset($_GET[$var]);
-	unset($_POST[$var]);
-	if ($val !== null) {
-		$_GET[$var] = $val;
-	}
+    unset($_GET[$var]);
+    unset($_POST[$var]);
+    if ($val !== null) {
+        $_GET[$var] = $val;
+    }
 
-	return false; # n'affecte pas $c
+    return false; # n'affecte pas $c
 }
 
 /**
@@ -463,25 +463,25 @@ 
  * @return array|mixed|string
  */
 function spip_sanitize_from_request($value, $key, $sanitize_function='entites_html') {
-	if (is_array($value)) {
-		if ($key=='*') {
-			$key = array_keys($value);
-		}
-		if (!is_array($key)) {
-			$key = [$key];
-		}
-		foreach ($key as $k) {
-			if (!empty($value[$k])) {
-				$value[$k] = spip_sanitize_from_request($value[$k], $k, $sanitize_function);
-			}
-		}
-		return $value;
-	}
-	// si la valeur vient des GET ou POST on la sanitize
-	if (!empty($value) and $value == _request($key)) {
-		$value = $sanitize_function($value);
-	}
-	return $value;
+    if (is_array($value)) {
+        if ($key=='*') {
+            $key = array_keys($value);
+        }
+        if (!is_array($key)) {
+            $key = [$key];
+        }
+        foreach ($key as $k) {
+            if (!empty($value[$k])) {
+                $value[$k] = spip_sanitize_from_request($value[$k], $k, $sanitize_function);
+            }
+        }
+        return $value;
+    }
+    // si la valeur vient des GET ou POST on la sanitize
+    if (!empty($value) and $value == _request($key)) {
+        $value = $sanitize_function($value);
+    }
+    return $value;
 }
 
 /**
@@ -489,23 +489,22 @@ 
  * 
  * On est sur le web, on exclut certains protocoles, 
  * notamment 'file://', 'php://' et d'autres…
-
  * @param string $url
  * @return bool
  */
 function tester_url_absolue($url) {
-	$url = trim($url);
-	if (preg_match(";^([a-z]{3,7}:)?//;Uims", $url, $m)) {
-		if (
-			isset($m[1])
-			and $p = strtolower(rtrim($m[1], ':'))
-			and in_array($p, array('file', 'php', 'zlib', 'glob', 'phar', 'ssh2', 'rar', 'ogg', 'expect', 'zip'))
-		  ) {
-			return false;
-		}
-		return true;
-	}
-	return false;
+    $url = trim($url);
+    if (preg_match(";^([a-z]{3,7}:)?//;Uims", $url, $m)) {
+        if (
+            isset($m[1])
+            and $p = strtolower(rtrim($m[1], ':'))
+            and in_array($p, array('file', 'php', 'zlib', 'glob', 'phar', 'ssh2', 'rar', 'ogg', 'expect', 'zip'))
+            ) {
+            return false;
+        }
+        return true;
+    }
+    return false;
 }
 
 /**
@@ -527,94 +526,94 @@ 
  * @return string URL
  */
 function parametre_url($url, $c, $v = null, $sep = '&amp;') {
-	// requete erronnee : plusieurs variable dans $c et aucun $v
-	if (strpos($c, "|") !== false and is_null($v)) {
-		return null;
-	}
-
-	// lever l'#ancre
-	if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
-		$url = $r[1];
-		$ancre = $r[2];
-	} else {
-		$ancre = '';
-	}
-
-	// eclater
-	$url = preg_split(',[?]|&amp;|&,', $url);
-
-	// recuperer la base
-	$a = array_shift($url);
-	if (!$a) {
-		$a = './';
-	}
-
-	$regexp = ',^(' . str_replace('[]', '\[\]', $c) . '[[]?[]]?)(=.*)?$,';
-	$ajouts = array_flip(explode('|', $c));
-	$u = is_array($v) ? $v : rawurlencode($v);
-	$testv = (is_array($v) ? count($v) : strlen($v));
-	$v_read = null;
-	// lire les variables et agir
-	foreach ($url as $n => $val) {
-		if (preg_match($regexp, urldecode($val), $r)) {
-			$r = array_pad($r, 3, null);
-			if ($v === null) {
-				// c'est un tableau, on memorise les valeurs
-				if (substr($r[1], -2) == "[]") {
-					if (!$v_read) {
-						$v_read = array();
-					}
-					$v_read[] = $r[2] ? substr($r[2], 1) : '';
-				} // c'est un scalaire, on retourne direct
-				else {
-					return $r[2] ? substr($r[2], 1) : '';
-				}
-			} // suppression
-			elseif (!$testv) {
-				unset($url[$n]);
-			}
-			// Ajout. Pour une variable, remplacer au meme endroit,
-			// pour un tableau ce sera fait dans la prochaine boucle
-			elseif (substr($r[1], -2) != '[]') {
-				$url[$n] = $r[1] . '=' . $u;
-				unset($ajouts[$r[1]]);
-			}
-			// Pour les tableaux on laisse tomber les valeurs de
-			// départ, on remplira à l'étape suivante
-			else {
-				unset($url[$n]);
-			}
-		}
-	}
-
-	// traiter les parametres pas encore trouves
-	if ($v === null
-		and $args = func_get_args()
-		and count($args) == 2
-	) {
-		return $v_read; // rien trouve ou un tableau
-	} elseif ($testv) {
-		foreach ($ajouts as $k => $n) {
-			if (!is_array($v)) {
-				$url[] = $k . '=' . $u;
-			} else {
-				$id = (substr($k, -2) == '[]') ? $k : ($k . "[]");
-				foreach ($v as $w) {
-					$url[] = $id . '=' . (is_array($w) ? 'Array' : $w);
-				}
-			}
-		}
-	}
-
-	// eliminer les vides
-	$url = array_filter($url);
-
-	// recomposer l'adresse
-	if ($url) {
-		$a .= '?' . join($sep, $url);
-	}
-
-	return $a . $ancre;
+    // requete erronnee : plusieurs variable dans $c et aucun $v
+    if (strpos($c, "|") !== false and is_null($v)) {
+        return null;
+    }
+
+    // lever l'#ancre
+    if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+        $url = $r[1];
+        $ancre = $r[2];
+    } else {
+        $ancre = '';
+    }
+
+    // eclater
+    $url = preg_split(',[?]|&amp;|&,', $url);
+
+    // recuperer la base
+    $a = array_shift($url);
+    if (!$a) {
+        $a = './';
+    }
+
+    $regexp = ',^(' . str_replace('[]', '\[\]', $c) . '[[]?[]]?)(=.*)?$,';
+    $ajouts = array_flip(explode('|', $c));
+    $u = is_array($v) ? $v : rawurlencode($v);
+    $testv = (is_array($v) ? count($v) : strlen($v));
+    $v_read = null;
+    // lire les variables et agir
+    foreach ($url as $n => $val) {
+        if (preg_match($regexp, urldecode($val), $r)) {
+            $r = array_pad($r, 3, null);
+            if ($v === null) {
+                // c'est un tableau, on memorise les valeurs
+                if (substr($r[1], -2) == "[]") {
+                    if (!$v_read) {
+                        $v_read = array();
+                    }
+                    $v_read[] = $r[2] ? substr($r[2], 1) : '';
+                } // c'est un scalaire, on retourne direct
+                else {
+                    return $r[2] ? substr($r[2], 1) : '';
+                }
+            } // suppression
+            elseif (!$testv) {
+                unset($url[$n]);
+            }
+            // Ajout. Pour une variable, remplacer au meme endroit,
+            // pour un tableau ce sera fait dans la prochaine boucle
+            elseif (substr($r[1], -2) != '[]') {
+                $url[$n] = $r[1] . '=' . $u;
+                unset($ajouts[$r[1]]);
+            }
+            // Pour les tableaux on laisse tomber les valeurs de
+            // départ, on remplira à l'étape suivante
+            else {
+                unset($url[$n]);
+            }
+        }
+    }
+
+    // traiter les parametres pas encore trouves
+    if ($v === null
+        and $args = func_get_args()
+        and count($args) == 2
+    ) {
+        return $v_read; // rien trouve ou un tableau
+    } elseif ($testv) {
+        foreach ($ajouts as $k => $n) {
+            if (!is_array($v)) {
+                $url[] = $k . '=' . $u;
+            } else {
+                $id = (substr($k, -2) == '[]') ? $k : ($k . "[]");
+                foreach ($v as $w) {
+                    $url[] = $id . '=' . (is_array($w) ? 'Array' : $w);
+                }
+            }
+        }
+    }
+
+    // eliminer les vides
+    $url = array_filter($url);
+
+    // recomposer l'adresse
+    if ($url) {
+        $a .= '?' . join($sep, $url);
+    }
+
+    return $a . $ancre;
 }
 
 /**
@@ -632,21 +631,21 @@ 
  * @return string
  */
 function ancre_url($url, $ancre) {
-	// lever l'#ancre
-	if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
-		$url = $r[1];
-	}
-	if (preg_match('/[^-_a-zA-Z0-9]+/S', $ancre)) {
-		if (!function_exists('translitteration')) {
-			include_spip('inc/charsets');
-		}
-		$ancre = preg_replace(
-			array('/^[^-_a-zA-Z0-9]+/', '/[^-_a-zA-Z0-9]/'),
-			array('', '-'),
-			translitteration($ancre)
-		);
-	}
-	return $url . (strlen($ancre) ? '#' . $ancre : '');
+    // lever l'#ancre
+    if (preg_match(',^([^#]*)(#.*)$,', $url, $r)) {
+        $url = $r[1];
+    }
+    if (preg_match('/[^-_a-zA-Z0-9]+/S', $ancre)) {
+        if (!function_exists('translitteration')) {
+            include_spip('inc/charsets');
+        }
+        $ancre = preg_replace(
+            array('/^[^-_a-zA-Z0-9]+/', '/[^-_a-zA-Z0-9]/'),
+            array('', '-'),
+            translitteration($ancre)
+        );
+    }
+    return $url . (strlen($ancre) ? '#' . $ancre : '');
 }
 
 /**
@@ -656,16 +655,16 @@ 
  * @return string
  */
 function nettoyer_uri($reset = null) {
-	static $done = false;
-	static $propre = '';
-	if (!is_null($reset)) {
-		return $propre = $reset;
-	}
-	if ($done) {
-		return $propre;
-	}
-	$done = true;
-	return $propre = nettoyer_uri_var($GLOBALS['REQUEST_URI']);
+    static $done = false;
+    static $propre = '';
+    if (!is_null($reset)) {
+        return $propre = $reset;
+    }
+    if ($done) {
+        return $propre;
+    }
+    $done = true;
+    return $propre = nettoyer_uri_var($GLOBALS['REQUEST_URI']);
 }
 
 /**
@@ -677,13 +676,13 @@ 
  * @return string
  */
 function nettoyer_uri_var($request_uri) {
-	$uri1 = $request_uri;
-	do {
-		$uri = $uri1;
-		$uri1 = preg_replace(',([?&])(var_[^=&]*|PHPSESSID|fbclid|utm_[^=&]*)=[^&]*(&|$),i',
-			'\1', $uri);
-	} while ($uri <> $uri1);
-	return preg_replace(',[?&]$,', '', $uri1);
+    $uri1 = $request_uri;
+    do {
+        $uri = $uri1;
+        $uri1 = preg_replace(',([?&])(var_[^=&]*|PHPSESSID|fbclid|utm_[^=&]*)=[^&]*(&|$),i',
+            '\1', $uri);
+    } while ($uri <> $uri1);
+    return preg_replace(',[?&]$,', '', $uri1);
 }
 
 
@@ -697,47 +696,47 @@ 
  *    URL vers soi-même
  **/
 function self($amp = '&amp;', $root = false) {
-	$url = nettoyer_uri();
-	if (!$root
-		and (
-			// si pas de profondeur on peut tronquer
-			$GLOBALS['profondeur_url'] < (_DIR_RESTREINT ? 1 : 2)
-			// sinon c'est OK si _SET_HTML_BASE a ete force a false
-			or (defined('_SET_HTML_BASE') and !_SET_HTML_BASE))
-	) {
-		$url = preg_replace(',^[^?]*/,', '', $url);
-	}
-	// ajouter le cas echeant les variables _POST['id_...']
-	foreach ($_POST as $v => $c) {
-		if (substr($v, 0, 3) == 'id_') {
-			$url = parametre_url($url, $v, $c, '&');
-		}
-	}
-
-	// supprimer les variables sans interet
-	if (test_espace_prive()) {
-		$url = preg_replace(',([?&])('
-			. 'lang|show_docs|'
-			. 'changer_lang|var_lang|action)=[^&]*,i', '\1', $url);
-		$url = preg_replace(',([?&])[&]+,', '\1', $url);
-		$url = preg_replace(',[&]$,', '\1', $url);
-	}
-
-	// eviter les hacks
-	include_spip('inc/filtres_mini');
-	$url = spip_htmlspecialchars($url);
+    $url = nettoyer_uri();
+    if (!$root
+        and (
+            // si pas de profondeur on peut tronquer
+            $GLOBALS['profondeur_url'] < (_DIR_RESTREINT ? 1 : 2)
+            // sinon c'est OK si _SET_HTML_BASE a ete force a false
+            or (defined('_SET_HTML_BASE') and !_SET_HTML_BASE))
+    ) {
+        $url = preg_replace(',^[^?]*/,', '', $url);
+    }
+    // ajouter le cas echeant les variables _POST['id_...']
+    foreach ($_POST as $v => $c) {
+        if (substr($v, 0, 3) == 'id_') {
+            $url = parametre_url($url, $v, $c, '&');
+        }
+    }
+
+    // supprimer les variables sans interet
+    if (test_espace_prive()) {
+        $url = preg_replace(',([?&])('
+            . 'lang|show_docs|'
+            . 'changer_lang|var_lang|action)=[^&]*,i', '\1', $url);
+        $url = preg_replace(',([?&])[&]+,', '\1', $url);
+        $url = preg_replace(',[&]$,', '\1', $url);
+    }
+
+    // eviter les hacks
+    include_spip('inc/filtres_mini');
+    $url = spip_htmlspecialchars($url);
 	
-	$url = str_replace(array("'", '"', '<', '[', ']', ':'), array('%27', '%22', '%3C', '%5B', '%5D', '%3A'), $url);
+    $url = str_replace(array("'", '"', '<', '[', ']', ':'), array('%27', '%22', '%3C', '%5B', '%5D', '%3A'), $url);
 
-	// &amp; ?
-	if ($amp != '&amp;') {
-		$url = str_replace('&amp;', $amp, $url);
-	}
+    // &amp; ?
+    if ($amp != '&amp;') {
+        $url = str_replace('&amp;', $amp, $url);
+    }
 
-	// Si ca demarre par ? ou vide, donner './'
-	$url = preg_replace(',^([?].*)?$,', './\1', $url);
+    // Si ca demarre par ? ou vide, donner './'
+    $url = preg_replace(',^([?].*)?$,', './\1', $url);
 
-	return $url;
+    return $url;
 }
 
 
@@ -748,7 +747,7 @@ 
  *     true si c'est le cas, false sinon.
  */
 function test_espace_prive() {
-	return defined('_ESPACE_PRIVE') ? _ESPACE_PRIVE : false;
+    return defined('_ESPACE_PRIVE') ? _ESPACE_PRIVE : false;
 }
 
 /**
@@ -758,7 +757,7 @@ 
  * @return bool
  */
 function test_plugin_actif($plugin) {
-	return ($plugin and defined('_DIR_PLUGIN_' . strtoupper($plugin))) ? true : false;
+    return ($plugin and defined('_DIR_PLUGIN_' . strtoupper($plugin))) ? true : false;
 }
 
 /**
@@ -789,51 +788,51 @@ 
  *     Texte
  */
 function _T($texte, $args = array(), $options = array()) {
-	static $traduire = false;
-	$o = array('class' => '', 'force' => true, 'sanitize' => true);
-	if ($options) {
-		// support de l'ancien argument $class
-		if (is_string($options)) {
-			$options = array('class' => $options);
-		}
-		$o = array_merge($o, $options);
-	}
+    static $traduire = false;
+    $o = array('class' => '', 'force' => true, 'sanitize' => true);
+    if ($options) {
+        // support de l'ancien argument $class
+        if (is_string($options)) {
+            $options = array('class' => $options);
+        }
+        $o = array_merge($o, $options);
+    }
 
-	if (!$traduire) {
-		$traduire = charger_fonction('traduire', 'inc');
-		include_spip('inc/lang');
-	}
+    if (!$traduire) {
+        $traduire = charger_fonction('traduire', 'inc');
+        include_spip('inc/lang');
+    }
 
-	// On peut passer explicitement la langue dans le tableau
-	// On utilise le même nom de variable que la globale
-	if (isset($args['spip_lang'])) {
-		$lang = $args['spip_lang'];
-		// On l'enleve pour ne pas le passer au remplacement
-		unset($args['spip_lang']);
-	} // Sinon on prend la langue du contexte
-	else {
-		$lang = $GLOBALS['spip_lang'];
-	}
-	$text = $traduire($texte, $lang);
+    // On peut passer explicitement la langue dans le tableau
+    // On utilise le même nom de variable que la globale
+    if (isset($args['spip_lang'])) {
+        $lang = $args['spip_lang'];
+        // On l'enleve pour ne pas le passer au remplacement
+        unset($args['spip_lang']);
+    } // Sinon on prend la langue du contexte
+    else {
+        $lang = $GLOBALS['spip_lang'];
+    }
+    $text = $traduire($texte, $lang);
 
-	if (!strlen($text)) {
-		if (!$o['force']) {
-			return '';
-		}
+    if (!strlen($text)) {
+        if (!$o['force']) {
+            return '';
+        }
 
-		$text = $texte;
+        $text = $texte;
 
-		// pour les chaines non traduites, assurer un service minimum
-		if (!$GLOBALS['test_i18n'] and (_request('var_mode') != 'traduction')) {
-			$text = str_replace('_', ' ',
-				(($n = strpos($text, ':')) === false ? $texte :
-					substr($texte, $n + 1)));
-		}
-		$o['class'] = null;
+        // pour les chaines non traduites, assurer un service minimum
+        if (!$GLOBALS['test_i18n'] and (_request('var_mode') != 'traduction')) {
+            $text = str_replace('_', ' ',
+                (($n = strpos($text, ':')) === false ? $texte :
+                    substr($texte, $n + 1)));
+        }
+        $o['class'] = null;
 
-	}
+    }
 
-	return _L($text, $args, $o);
+    return _L($text, $args, $o);
 
 }
 
@@ -861,53 +860,53 @@ 
  *     Texte
  */
 function _L($text, $args = array(), $options = array()) {
-	$f = $text;
-	$defaut_options = array(
-		'class' => null,
-		'sanitize' => true,
-	);
-	// support de l'ancien argument $class
-	if ($options and is_string($options)) {
-		$options = array('class' => $options);
-	}
-	if (is_array($options)) {
-		$options += $defaut_options;
-	} else {
-		$options = $defaut_options;
-	}
-
-	if (is_array($args) and count($args)) {
-		if (!function_exists('interdire_scripts')) {
-			include_spip('inc/texte');
-		}
-		if (!function_exists('echapper_html_suspect')) {
-			include_spip('inc/texte_mini');
-		}
-		foreach ($args as $name => $value) {
-			if (strpos($text, "@$name@") !== false) {
-				if ($options['sanitize']) {
-					$value = echapper_html_suspect($value);
-					$value = interdire_scripts($value, -1);
-				}
-				if (!empty($options['class'])) {
-					$value = "<span class='".$options['class']."'>$value</span>";
-				}
-				$text = str_replace("@$name@", $value, $text);
-				unset($args[$name]);
-			}
-		}
-		// Si des variables n'ont pas ete inserees, le signaler
-		// (chaines de langues pas a jour)
-		if ($args) {
-			spip_log("$f:  variables inutilisees " . join(', ', array_keys($args)), _LOG_DEBUG);
-		}
-	}
-
-	if (($GLOBALS['test_i18n'] or (_request('var_mode') == 'traduction')) and is_null($options['class'])) {
-		return "<span class=debug-traduction-erreur>$text</span>";
-	} else {
-		return $text;
-	}
+    $f = $text;
+    $defaut_options = array(
+        'class' => null,
+        'sanitize' => true,
+    );
+    // support de l'ancien argument $class
+    if ($options and is_string($options)) {
+        $options = array('class' => $options);
+    }
+    if (is_array($options)) {
+        $options += $defaut_options;
+    } else {
+        $options = $defaut_options;
+    }
+
+    if (is_array($args) and count($args)) {
+        if (!function_exists('interdire_scripts')) {
+            include_spip('inc/texte');
+        }
+        if (!function_exists('echapper_html_suspect')) {
+            include_spip('inc/texte_mini');
+        }
+        foreach ($args as $name => $value) {
+            if (strpos($text, "@$name@") !== false) {
+                if ($options['sanitize']) {
+                    $value = echapper_html_suspect($value);
+                    $value = interdire_scripts($value, -1);
+                }
+                if (!empty($options['class'])) {
+                    $value = "<span class='".$options['class']."'>$value</span>";
+                }
+                $text = str_replace("@$name@", $value, $text);
+                unset($args[$name]);
+            }
+        }
+        // Si des variables n'ont pas ete inserees, le signaler
+        // (chaines de langues pas a jour)
+        if ($args) {
+            spip_log("$f:  variables inutilisees " . join(', ', array_keys($args)), _LOG_DEBUG);
+        }
+    }
+
+    if (($GLOBALS['test_i18n'] or (_request('var_mode') == 'traduction')) and is_null($options['class'])) {
+        return "<span class=debug-traduction-erreur>$text</span>";
+    } else {
+        return $text;
+    }
 }
 
 
@@ -921,13 +920,13 @@ 
  * @return string
  */
 function joli_repertoire($rep) {
-	$a = substr($rep, 0, 1);
-	if ($a <> '.' and $a <> '/') {
-		$rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS) . $rep;
-	}
-	$rep = preg_replace(',(^\.\.\/),', '', $rep);
+    $a = substr($rep, 0, 1);
+    if ($a <> '.' and $a <> '/') {
+        $rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS) . $rep;
+    }
+    $rep = preg_replace(',(^\.\.\/),', '', $rep);
 
-	return $rep;
+    return $rep;
 }
 
 
@@ -952,33 +951,33 @@ 
  * @return float|int|string|void
  */
 function spip_timer($t = 'rien', $raw = false) {
-	static $time;
-	$a = time();
-	$b = microtime();
-	// microtime peut contenir les microsecondes et le temps
-	$b = explode(' ', $b);
-	if (count($b) == 2) {
-		$a = end($b);
-	} // plus precis !
-	$b = reset($b);
-	if (!isset($time[$t])) {
-		$time[$t] = $a + $b;
-	} else {
-		$p = ($a + $b - $time[$t]) * 1000;
-		unset($time[$t]);
+    static $time;
+    $a = time();
+    $b = microtime();
+    // microtime peut contenir les microsecondes et le temps
+    $b = explode(' ', $b);
+    if (count($b) == 2) {
+        $a = end($b);
+    } // plus precis !
+    $b = reset($b);
+    if (!isset($time[$t])) {
+        $time[$t] = $a + $b;
+    } else {
+        $p = ($a + $b - $time[$t]) * 1000;
+        unset($time[$t]);
 #			echo "'$p'";exit;
-		if ($raw) {
-			return $p;
-		}
-		if ($p < 1000) {
-			$s = '';
-		} else {
-			$s = sprintf("%d ", $x = floor($p / 1000));
-			$p -= ($x * 1000);
-		}
+        if ($raw) {
+            return $p;
+        }
+        if ($p < 1000) {
+            $s = '';
+        } else {
+            $s = sprintf("%d ", $x = floor($p / 1000));
+            $p -= ($x * 1000);
+        }
 
-		return $s . sprintf($s ? "%07.3f ms" : "%.3f ms", $p);
-	}
+        return $s . sprintf($s ? "%07.3f ms" : "%.3f ms", $p);
+    }
 }
 
 
@@ -986,21 +985,21 @@ 
 // sinon renvoie True et le date sauf si ca n'est pas souhaite
 // https://code.spip.net/@spip_touch
 function spip_touch($fichier, $duree = 0, $touch = true) {
-	if ($duree) {
-		clearstatcache();
-		if ((@$f = filemtime($fichier)) and ($f >= time() - $duree)) {
-			return false;
-		}
-	}
-	if ($touch !== false) {
-		if (!@touch($fichier)) {
-			spip_unlink($fichier);
-			@touch($fichier);
-		};
-		@chmod($fichier, _SPIP_CHMOD & ~0111);
-	}
+    if ($duree) {
+        clearstatcache();
+        if ((@$f = filemtime($fichier)) and ($f >= time() - $duree)) {
+            return false;
+        }
+    }
+    if ($touch !== false) {
+        if (!@touch($fichier)) {
+            spip_unlink($fichier);
+            @touch($fichier);
+        };
+        @chmod($fichier, _SPIP_CHMOD & ~0111);
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -1012,11 +1011,11 @@ 
  * @uses cron()
  **/
 function action_cron() {
-	include_spip('inc/headers');
-	http_status(204); // No Content
-	header("Connection: close");
-	define('_DIRECT_CRON_FORCE', true);
-	cron();
+    include_spip('inc/headers');
+    http_status(204); // No Content
+    header("Connection: close");
+    define('_DIRECT_CRON_FORCE', true);
+    cron();
 }
 
 /**
@@ -1032,26 +1031,26 @@ 
  *     True si la tache a pu être effectuée
  */
 function cron($taches = array(), $taches_old = array()) {
-	// si pas en mode cron force, laisser tomber.
-	if (!defined('_DIRECT_CRON_FORCE')) {
-		return false;
-	}
-	if (!is_array($taches)) {
-		$taches = $taches_old;
-	} // compat anciens appels
-	// si taches a inserer en base et base inaccessible, laisser tomber
-	// sinon on ne verifie pas la connexion tout de suite, car si ca se trouve
-	// queue_sleep_time_to_next_job() dira qu'il n'y a rien a faire
-	// et on evite d'ouvrir une connexion pour rien (utilisation de _DIRECT_CRON_FORCE dans mes_options.php)
-	if ($taches and count($taches) and !spip_connect()) {
-		return false;
-	}
-	spip_log("cron !", 'jq' . _LOG_DEBUG);
-	if ($genie = charger_fonction('genie', 'inc', true)) {
-		return $genie($taches);
-	}
-
-	return false;
+    // si pas en mode cron force, laisser tomber.
+    if (!defined('_DIRECT_CRON_FORCE')) {
+        return false;
+    }
+    if (!is_array($taches)) {
+        $taches = $taches_old;
+    } // compat anciens appels
+    // si taches a inserer en base et base inaccessible, laisser tomber
+    // sinon on ne verifie pas la connexion tout de suite, car si ca se trouve
+    // queue_sleep_time_to_next_job() dira qu'il n'y a rien a faire
+    // et on evite d'ouvrir une connexion pour rien (utilisation de _DIRECT_CRON_FORCE dans mes_options.php)
+    if ($taches and count($taches) and !spip_connect()) {
+        return false;
+    }
+    spip_log("cron !", 'jq' . _LOG_DEBUG);
+    if ($genie = charger_fonction('genie', 'inc', true)) {
+        return $genie($taches);
+    }
+
+    return false;
 }
 
 /**
@@ -1083,17 +1082,17 @@ 
  *     Le numéro de travail ajouté ou `0` si aucun travail n’a été ajouté.
  */
 function job_queue_add(
-	$function,
-	$description,
-	$arguments = array(),
-	$file = '',
-	$no_duplicate = false,
-	$time = 0,
-	$priority = 0
+    $function,
+    $description,
+    $arguments = array(),
+    $file = '',
+    $no_duplicate = false,
+    $time = 0,
+    $priority = 0
 ) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_add_job($function, $description, $arguments, $file, $no_duplicate, $time, $priority);
+    return queue_add_job($function, $description, $arguments, $file, $no_duplicate, $time, $priority);
 }
 
 /**
@@ -1104,9 +1103,9 @@ 
  * @return bool
  */
 function job_queue_remove($id_job) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_remove_job($id_job);
+    return queue_remove_job($id_job);
 }
 
 /**
@@ -1119,9 +1118,9 @@ 
  *     or an array of simple array to link multiples objet in one time
  */
 function job_queue_link($id_job, $objets) {
-	include_spip('inc/queue');
+    include_spip('inc/queue');
 
-	return queue_link_job($id_job, $objets);
+    return queue_link_job($id_job, $objets);
 }
 
 
@@ -1141,36 +1140,36 @@ 
  *  - `null` si la queue n'est pas encore initialisée
  */
 function queue_sleep_time_to_next_job($force = null) {
-	static $queue_next_job_time = -1;
-	if ($force === true) {
-		$queue_next_job_time = -1;
-	} elseif ($force) {
-		$queue_next_job_time = $force;
-	}
-
-	if ($queue_next_job_time == -1) {
-		if (!defined('_JQ_NEXT_JOB_TIME_FILENAME')) {
-			define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP . "job_queue_next.txt");
-		}
-		// utiliser un cache memoire si dispo
-		if (function_exists("cache_get") and defined('_MEMOIZE_MEMORY') and _MEMOIZE_MEMORY) {
-			$queue_next_job_time = cache_get(_JQ_NEXT_JOB_TIME_FILENAME);
-		} else {
-			$queue_next_job_time = null;
-			if (lire_fichier(_JQ_NEXT_JOB_TIME_FILENAME, $contenu)) {
-				$queue_next_job_time = intval($contenu);
-			}
-		}
-	}
-
-	if (is_null($queue_next_job_time)) {
-		return null;
-	}
-	if (!$_SERVER['REQUEST_TIME']) {
-		$_SERVER['REQUEST_TIME'] = time();
-	}
-
-	return $queue_next_job_time - $_SERVER['REQUEST_TIME'];
+    static $queue_next_job_time = -1;
+    if ($force === true) {
+        $queue_next_job_time = -1;
+    } elseif ($force) {
+        $queue_next_job_time = $force;
+    }
+
+    if ($queue_next_job_time == -1) {
+        if (!defined('_JQ_NEXT_JOB_TIME_FILENAME')) {
+            define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP . "job_queue_next.txt");
+        }
+        // utiliser un cache memoire si dispo
+        if (function_exists("cache_get") and defined('_MEMOIZE_MEMORY') and _MEMOIZE_MEMORY) {
+            $queue_next_job_time = cache_get(_JQ_NEXT_JOB_TIME_FILENAME);
+        } else {
+            $queue_next_job_time = null;
+            if (lire_fichier(_JQ_NEXT_JOB_TIME_FILENAME, $contenu)) {
+                $queue_next_job_time = intval($contenu);
+            }
+        }
+    }
+
+    if (is_null($queue_next_job_time)) {
+        return null;
+    }
+    if (!$_SERVER['REQUEST_TIME']) {
+        $_SERVER['REQUEST_TIME'] = time();
+    }
+
+    return $queue_next_job_time - $_SERVER['REQUEST_TIME'];
 }
 
 
@@ -1182,9 +1181,9 @@ 
  * @return string
  */
 function quote_amp($u) {
-	return preg_replace(
-		"/&(?![a-z]{0,4}\w{2,3};|#x?[0-9a-f]{2,6};)/i",
-		"&amp;", $u);
+    return preg_replace(
+        "/&(?![a-z]{0,4}\w{2,3};|#x?[0-9a-f]{2,6};)/i",
+        "&amp;", $u);
 }
 
 
@@ -1207,27 +1206,27 @@ 
  *     Balise HTML `<script>` et son contenu
  **/
 function http_script($script, $src = '', $noscript = '') {
-	static $done = array();
+    static $done = array();
 
-	if ($src && !isset($done[$src])) {
-		$done[$src] = true;
-		$src = find_in_path($src, _JAVASCRIPT);
-		$src = " src='$src'";
-	} else {
-		$src = '';
-	}
-	if ($script) {
-		$script = ("/*<![CDATA[*/\n" .
-			preg_replace(',</([^>]*)>,', '<\/\1>', $script) .
-			"/*]]>*/");
-	}
-	if ($noscript) {
-		$noscript = "<noscript>\n\t$noscript\n</noscript>\n";
-	}
+    if ($src && !isset($done[$src])) {
+        $done[$src] = true;
+        $src = find_in_path($src, _JAVASCRIPT);
+        $src = " src='$src'";
+    } else {
+        $src = '';
+    }
+    if ($script) {
+        $script = ("/*<![CDATA[*/\n" .
+            preg_replace(',</([^>]*)>,', '<\/\1>', $script) .
+            "/*]]>*/");
+    }
+    if ($noscript) {
+        $noscript = "<noscript>\n\t$noscript\n</noscript>\n";
+    }
 
-	return ($src or $script or $noscript)
-		? "<script type='text/javascript'$src>$script</script>$noscript"
-		: '';
+    return ($src or $script or $noscript)
+        ? "<script type='text/javascript'$src>$script</script>$noscript"
+        : '';
 }
 
 
@@ -1262,7 +1261,7 @@ 
  *     Texte échappé
  **/
 function texte_script($texte) {
-	return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
+    return str_replace('\'', '\\\'', str_replace('\\', '\\\\', $texte));
 }
 
 
@@ -1299,69 +1298,69 @@ 
  *     Liste des chemins, par ordre de priorité.
  **/
 function _chemin($dir_path = null) {
-	static $path_base = null;
-	static $path_full = null;
-	if ($path_base == null) {
-		// Chemin standard depuis l'espace public
-		$path = defined('_SPIP_PATH') ? _SPIP_PATH :
-			_DIR_RACINE . ':' .
-			_DIR_RACINE . 'squelettes-dist/:' .
-			_DIR_RACINE . 'prive/:' .
-			_DIR_RESTREINT;
-		// Ajouter squelettes/
-		if (@is_dir(_DIR_RACINE . 'squelettes')) {
-			$path = _DIR_RACINE . 'squelettes/:' . $path;
-		}
-		foreach (explode(':', $path) as $dir) {
-			if (strlen($dir) and substr($dir, -1) != '/') {
-				$dir .= "/";
-			}
-			$path_base[] = $dir;
-		}
-		$path_full = $path_base;
-		// Et le(s) dossier(s) des squelettes nommes
-		if (strlen($GLOBALS['dossier_squelettes'])) {
-			foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-				array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
-			}
-		}
-		$GLOBALS['path_sig'] = md5(serialize($path_full));
-	}
-	if ($dir_path === null) {
-		return $path_full;
-	}
-
-	if (strlen($dir_path)) {
-		$tete = "";
-		if (reset($path_base) == _DIR_RACINE . 'squelettes/') {
-			$tete = array_shift($path_base);
-		}
-		$dirs = array_reverse(explode(':', $dir_path));
-		foreach ($dirs as $dir_path) {
-			#if ($dir_path{0}!='/')
-			#	$dir_path = $dir_path;
-			if (substr($dir_path, -1) != '/') {
-				$dir_path .= "/";
-			}
-			if (!in_array($dir_path, $path_base)) {
-				array_unshift($path_base, $dir_path);
-			}
-		}
-		if (strlen($tete)) {
-			array_unshift($path_base, $tete);
-		}
-	}
-	$path_full = $path_base;
-	// Et le(s) dossier(s) des squelettes nommes
-	if (strlen($GLOBALS['dossier_squelettes'])) {
-		foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-			array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE) . $d . '/');
-		}
-	}
-
-	$GLOBALS['path_sig'] = md5(serialize($path_full));
-
-	return $path_full;
+    static $path_base = null;
+    static $path_full = null;
+    if ($path_base == null) {
+        // Chemin standard depuis l'espace public
+        $path = defined('_SPIP_PATH') ? _SPIP_PATH :
+            _DIR_RACINE . ':' .
+            _DIR_RACINE . 'squelettes-dist/:' .
+            _DIR_RACINE . 'prive/:' .
+            _DIR_RESTREINT;
+        // Ajouter squelettes/
+        if (@is_dir(_DIR_RACINE . 'squelettes')) {
+            $path = _DIR_RACINE . 'squelettes/:' . $path;
+        }
+        foreach (explode(':', $path) as $dir) {
+            if (strlen($dir) and substr($dir, -1) != '/') {
+                $dir .= "/";
+            }
+            $path_base[] = $dir;
+        }
+        $path_full = $path_base;
+        // Et le(s) dossier(s) des squelettes nommes
+        if (strlen($GLOBALS['dossier_squelettes'])) {
+            foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
+                array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
+            }
+        }
+        $GLOBALS['path_sig'] = md5(serialize($path_full));
+    }
+    if ($dir_path === null) {
+        return $path_full;
+    }
+
+    if (strlen($dir_path)) {
+        $tete = "";
+        if (reset($path_base) == _DIR_RACINE . 'squelettes/') {
+            $tete = array_shift($path_base);
+        }
+        $dirs = array_reverse(explode(':', $dir_path));
+        foreach ($dirs as $dir_path) {
+            #if ($dir_path{0}!='/')
+            #	$dir_path = $dir_path;
+            if (substr($dir_path, -1) != '/') {
+                $dir_path .= "/";
+            }
+            if (!in_array($dir_path, $path_base)) {
+                array_unshift($path_base, $dir_path);
+            }
+        }
+        if (strlen($tete)) {
+            array_unshift($path_base, $tete);
+        }
+    }
+    $path_full = $path_base;
+    // Et le(s) dossier(s) des squelettes nommes
+    if (strlen($GLOBALS['dossier_squelettes'])) {
+        foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
+            array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE) . $d . '/');
+        }
+    }
+
+    $GLOBALS['path_sig'] = md5(serialize($path_full));
+
+    return $path_full;
 }
 
 /**
@@ -1374,76 +1373,76 @@ 
  * @return array Liste de chemins
  **/
 function creer_chemin() {
-	$path_a = _chemin();
-	static $c = '';
+    $path_a = _chemin();
+    static $c = '';
 
-	// on calcule le chemin si le dossier skel a change
-	if ($c != $GLOBALS['dossier_squelettes']) {
-		// assurer le non plantage lors de la montee de version :
-		$c = $GLOBALS['dossier_squelettes'];
-		$path_a = _chemin(''); // forcer un recalcul du chemin
-	}
+    // on calcule le chemin si le dossier skel a change
+    if ($c != $GLOBALS['dossier_squelettes']) {
+        // assurer le non plantage lors de la montee de version :
+        $c = $GLOBALS['dossier_squelettes'];
+        $path_a = _chemin(''); // forcer un recalcul du chemin
+    }
 
-	return $path_a;
+    return $path_a;
 }
 
 
 function lister_themes_prives() {
-	static $themes = null;
-	if (is_null($themes)) {
-		// si pas encore definie
-		if (!defined('_SPIP_THEME_PRIVE')) {
-			define('_SPIP_THEME_PRIVE', 'spip');
-		}
-		$themes = array(_SPIP_THEME_PRIVE);
-		// lors d'une installation neuve, prefs n'est pas definie.
-		if (isset($GLOBALS['visiteur_session']['prefs'])) {
-			$prefs = $GLOBALS['visiteur_session']['prefs'];
-		} else {
-			$prefs = array();
-		}
-		if (is_string($prefs)) {
-			$prefs = unserialize($GLOBALS['visiteur_session']['prefs']);
-		}
-		if (
-			((isset($prefs['theme']) and $theme = $prefs['theme'])
-				or (isset($GLOBALS['theme_prive_defaut']) and $theme = $GLOBALS['theme_prive_defaut']))
-			and $theme != _SPIP_THEME_PRIVE
-		) {
-			array_unshift($themes, $theme);
-		} // placer le theme choisi en tete
-	}
-
-	return $themes;
+    static $themes = null;
+    if (is_null($themes)) {
+        // si pas encore definie
+        if (!defined('_SPIP_THEME_PRIVE')) {
+            define('_SPIP_THEME_PRIVE', 'spip');
+        }
+        $themes = array(_SPIP_THEME_PRIVE);
+        // lors d'une installation neuve, prefs n'est pas definie.
+        if (isset($GLOBALS['visiteur_session']['prefs'])) {
+            $prefs = $GLOBALS['visiteur_session']['prefs'];
+        } else {
+            $prefs = array();
+        }
+        if (is_string($prefs)) {
+            $prefs = unserialize($GLOBALS['visiteur_session']['prefs']);
+        }
+        if (
+            ((isset($prefs['theme']) and $theme = $prefs['theme'])
+                or (isset($GLOBALS['theme_prive_defaut']) and $theme = $GLOBALS['theme_prive_defaut']))
+            and $theme != _SPIP_THEME_PRIVE
+        ) {
+            array_unshift($themes, $theme);
+        } // placer le theme choisi en tete
+    }
+
+    return $themes;
 }
 
 function find_in_theme($file, $subdir = '', $include = false) {
-	static $themefiles = array();
-	if (isset($themefiles["$subdir$file"])) {
-		return $themefiles["$subdir$file"];
-	}
-	// on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
-	// si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
-	if (preg_match(',-(\d+)[.](png|gif|svg)$,', $file, $m)
-	  and $file_svg_generique = substr($file,0, -strlen($m[0])) . "-xx.svg"
-		and $f = find_in_theme("$file_svg_generique")) {
-		if ($fsize = substr($f,0,-6) . $m[1] . ".svg" and file_exists($fsize)) {
-			return $themefiles["$subdir$file"] = $fsize;
-		}
-		else {
-			return $themefiles["$subdir$file"] = "$f?".$m[1]."px";
-		}
-	}
-
-	$themes = lister_themes_prives();
-	foreach ($themes as $theme) {
-		if ($f = find_in_path($file, "prive/themes/$theme/$subdir", $include)) {
-			return $themefiles["$subdir$file"] = $f;
-		}
-	}
-	spip_log("$file introuvable dans le theme prive " . reset($themes), 'theme');
-
-	return $themefiles["$subdir$file"] = "";
+    static $themefiles = array();
+    if (isset($themefiles["$subdir$file"])) {
+        return $themefiles["$subdir$file"];
+    }
+    // on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
+    // si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
+    if (preg_match(',-(\d+)[.](png|gif|svg)$,', $file, $m)
+      and $file_svg_generique = substr($file,0, -strlen($m[0])) . "-xx.svg"
+        and $f = find_in_theme("$file_svg_generique")) {
+        if ($fsize = substr($f,0,-6) . $m[1] . ".svg" and file_exists($fsize)) {
+            return $themefiles["$subdir$file"] = $fsize;
+        }
+        else {
+            return $themefiles["$subdir$file"] = "$f?".$m[1]."px";
+        }
+    }
+
+    $themes = lister_themes_prives();
+    foreach ($themes as $theme) {
+        if ($f = find_in_path($file, "prive/themes/$theme/$subdir", $include)) {
+            return $themefiles["$subdir$file"] = $f;
+        }
+    }
+    spip_log("$file introuvable dans le theme prive " . reset($themes), 'theme');
+
+    return $themefiles["$subdir$file"] = "";
 }
 
 
@@ -1467,31 +1466,31 @@ 
  *     sinon chaîne vide.
  **/
 function chemin_image($icone) {
-	static $icone_renommer;
-	if ($p = strpos($icone, '?')) {
-		$icone = substr($icone,0, $p);
-	}
-	// gerer le cas d'un double appel en evitant de refaire le travail inutilement
-	if (strpos($icone, "/") !== false and file_exists($icone)) {
-		return $icone;
-	}
-
-	// si c'est un nom d'image complet (article-24.png) essayer de le renvoyer direct
-	if (preg_match(',[.](png|gif|jpg|svg)$,', $icone) and $f = find_in_theme("images/$icone")) {
-		return $f;
-	}
-	// sinon passer par le module de renommage
-	if (is_null($icone_renommer)) {
-		$icone_renommer = charger_fonction('icone_renommer', 'inc', true);
-	}
-	if ($icone_renommer) {
-		list($icone, $fonction) = $icone_renommer($icone, "");
-		if (file_exists($icone)) {
-			return $icone;
-		}
-	}
-
-	return find_in_path($icone, _NOM_IMG_PACK);
+    static $icone_renommer;
+    if ($p = strpos($icone, '?')) {
+        $icone = substr($icone,0, $p);
+    }
+    // gerer le cas d'un double appel en evitant de refaire le travail inutilement
+    if (strpos($icone, "/") !== false and file_exists($icone)) {
+        return $icone;
+    }
+
+    // si c'est un nom d'image complet (article-24.png) essayer de le renvoyer direct
+    if (preg_match(',[.](png|gif|jpg|svg)$,', $icone) and $f = find_in_theme("images/$icone")) {
+        return $f;
+    }
+    // sinon passer par le module de renommage
+    if (is_null($icone_renommer)) {
+        $icone_renommer = charger_fonction('icone_renommer', 'inc', true);
+    }
+    if ($icone_renommer) {
+        list($icone, $fonction) = $icone_renommer($icone, "");
+        if (file_exists($icone)) {
+            return $icone;
+        }
+    }
+
+    return find_in_path($icone, _NOM_IMG_PACK);
 }
 
 //
@@ -1529,127 +1528,127 @@ 
  *     - false : fichier introuvable
  **/
 function find_in_path($file, $dirname = '', $include = false) {
-	static $dirs = array();
-	static $inc = array(); # cf https://git.spip.net/spip/spip/commit/42e4e028e38c839121efaee84308d08aee307eec
-	static $c = '';
-
-	if (!$file and !strlen($file)) {
-		return false;
-	}
-
-	// on calcule le chemin si le dossier skel a change
-	if ($c != $GLOBALS['dossier_squelettes']) {
-		// assurer le non plantage lors de la montee de version :
-		$c = $GLOBALS['dossier_squelettes'];
-		creer_chemin(); // forcer un recalcul du chemin et la mise a jour de path_sig
-	}
-
-	if (isset($GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])) {
-		if (!$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file]) {
-			return false;
-		}
-		if ($include and !isset($inc[$dirname][$file])) {
-			include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
-			$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
-		}
-
-		return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
-	}
-
-	$a = strrpos($file, '/');
-	if ($a !== false) {
-		$dirname .= substr($file, 0, ++$a);
-		$file = substr($file, $a);
-	}
-
-	foreach (creer_chemin() as $dir) {
-		if (!isset($dirs[$a = $dir . $dirname])) {
-			$dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a);
-		}
-		if ($dirs[$a]) {
-			if (file_exists(_ROOT_CWD . ($a .= $file))) {
-				if ($include and !isset($inc[$dirname][$file])) {
-					include_once _ROOT_CWD . $a;
-					$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
-				}
-				if (!defined('_SAUVER_CHEMIN')) {
-					// si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
-					if (is_null($GLOBALS['path_files'])) {
-						return $a;
-					}
-					define('_SAUVER_CHEMIN', true);
-				}
-
-				return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
-			}
-		}
-	}
-
-	if ($include) {
-		spip_log("include_spip $dirname$file non trouve");
-		if ($include === 'required') {
-			echo '<pre>',
-			"<strong>Erreur Fatale</strong><br />";
-			if (function_exists('debug_print_backtrace')) {
-				echo debug_print_backtrace();
-			}
-			echo '</pre>';
-			die("Erreur interne: ne peut inclure $dirname$file");
-		}
-	}
-
-	if (!defined('_SAUVER_CHEMIN')) {
-		// si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
-		if (is_null($GLOBALS['path_files'])) {
-			return false;
-		}
-		define('_SAUVER_CHEMIN', true);
-	}
-
-	return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
+    static $dirs = array();
+    static $inc = array(); # cf https://git.spip.net/spip/spip/commit/42e4e028e38c839121efaee84308d08aee307eec
+    static $c = '';
+
+    if (!$file and !strlen($file)) {
+        return false;
+    }
+
+    // on calcule le chemin si le dossier skel a change
+    if ($c != $GLOBALS['dossier_squelettes']) {
+        // assurer le non plantage lors de la montee de version :
+        $c = $GLOBALS['dossier_squelettes'];
+        creer_chemin(); // forcer un recalcul du chemin et la mise a jour de path_sig
+    }
+
+    if (isset($GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file])) {
+        if (!$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file]) {
+            return false;
+        }
+        if ($include and !isset($inc[$dirname][$file])) {
+            include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+            $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+        }
+
+        return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+    }
+
+    $a = strrpos($file, '/');
+    if ($a !== false) {
+        $dirname .= substr($file, 0, ++$a);
+        $file = substr($file, $a);
+    }
+
+    foreach (creer_chemin() as $dir) {
+        if (!isset($dirs[$a = $dir . $dirname])) {
+            $dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a);
+        }
+        if ($dirs[$a]) {
+            if (file_exists(_ROOT_CWD . ($a .= $file))) {
+                if ($include and !isset($inc[$dirname][$file])) {
+                    include_once _ROOT_CWD . $a;
+                    $inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+                }
+                if (!defined('_SAUVER_CHEMIN')) {
+                    // si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
+                    if (is_null($GLOBALS['path_files'])) {
+                        return $a;
+                    }
+                    define('_SAUVER_CHEMIN', true);
+                }
+
+                return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
+            }
+        }
+    }
+
+    if ($include) {
+        spip_log("include_spip $dirname$file non trouve");
+        if ($include === 'required') {
+            echo '<pre>',
+            "<strong>Erreur Fatale</strong><br />";
+            if (function_exists('debug_print_backtrace')) {
+                echo debug_print_backtrace();
+            }
+            echo '</pre>';
+            die("Erreur interne: ne peut inclure $dirname$file");
+        }
+    }
+
+    if (!defined('_SAUVER_CHEMIN')) {
+        // si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
+        if (is_null($GLOBALS['path_files'])) {
+            return false;
+        }
+        define('_SAUVER_CHEMIN', true);
+    }
+
+    return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
 }
 
 function clear_path_cache() {
-	$GLOBALS['path_files'] = array();
-	spip_unlink(_CACHE_CHEMIN);
+    $GLOBALS['path_files'] = array();
+    spip_unlink(_CACHE_CHEMIN);
 }
 
 function load_path_cache() {
-	// charger le path des plugins
-	if (@is_readable(_CACHE_PLUGINS_PATH)) {
-		include_once(_CACHE_PLUGINS_PATH);
-	}
-	$GLOBALS['path_files'] = array();
-	// si le visiteur est admin,
-	// on ne recharge pas le cache pour forcer sa mise a jour
-	if (
-		// la session n'est pas encore chargee a ce moment, on ne peut donc pas s'y fier
-		//AND (!isset($GLOBALS['visiteur_session']['statut']) OR $GLOBALS['visiteur_session']['statut']!='0minirezo')
-		// utiliser le cookie est un pis aller qui marche 'en general'
-		// on blinde par un second test au moment de la lecture de la session
-		// !isset($_COOKIE[$GLOBALS['cookie_prefix'].'_admin'])
-		// et en ignorant ce cache en cas de recalcul explicite
-	!_request('var_mode')
-	) {
-		// on essaye de lire directement sans verrou pour aller plus vite
-		if ($contenu = spip_file_get_contents(_CACHE_CHEMIN)) {
-			// mais si semble corrompu on relit avec un verrou
-			if (!$GLOBALS['path_files'] = unserialize($contenu)) {
-				lire_fichier(_CACHE_CHEMIN, $contenu);
-				if (!$GLOBALS['path_files'] = unserialize($contenu)) {
-					$GLOBALS['path_files'] = array();
-				}
-			}
-		}
-	}
+    // charger le path des plugins
+    if (@is_readable(_CACHE_PLUGINS_PATH)) {
+        include_once(_CACHE_PLUGINS_PATH);
+    }
+    $GLOBALS['path_files'] = array();
+    // si le visiteur est admin,
+    // on ne recharge pas le cache pour forcer sa mise a jour
+    if (
+        // la session n'est pas encore chargee a ce moment, on ne peut donc pas s'y fier
+        //AND (!isset($GLOBALS['visiteur_session']['statut']) OR $GLOBALS['visiteur_session']['statut']!='0minirezo')
+        // utiliser le cookie est un pis aller qui marche 'en general'
+        // on blinde par un second test au moment de la lecture de la session
+        // !isset($_COOKIE[$GLOBALS['cookie_prefix'].'_admin'])
+        // et en ignorant ce cache en cas de recalcul explicite
+    !_request('var_mode')
+    ) {
+        // on essaye de lire directement sans verrou pour aller plus vite
+        if ($contenu = spip_file_get_contents(_CACHE_CHEMIN)) {
+            // mais si semble corrompu on relit avec un verrou
+            if (!$GLOBALS['path_files'] = unserialize($contenu)) {
+                lire_fichier(_CACHE_CHEMIN, $contenu);
+                if (!$GLOBALS['path_files'] = unserialize($contenu)) {
+                    $GLOBALS['path_files'] = array();
+                }
+            }
+        }
+    }
 }
 
 function save_path_cache() {
-	if (defined('_SAUVER_CHEMIN')
-		and _SAUVER_CHEMIN
-	) {
-		ecrire_fichier(_CACHE_CHEMIN, serialize($GLOBALS['path_files']));
-	}
+    if (defined('_SAUVER_CHEMIN')
+        and _SAUVER_CHEMIN
+    ) {
+        ecrire_fichier(_CACHE_CHEMIN, serialize($GLOBALS['path_files']));
+    }
 }
 
 
@@ -1669,33 +1668,33 @@ 
  * @return array
  */
 function find_all_in_path($dir, $pattern, $recurs = false) {
-	$liste_fichiers = array();
-	$maxfiles = 10000;
-
-	// cas borderline si dans mes_options on appelle redirige_par_entete qui utilise _T et charge un fichier de langue
-	// on a pas encore inclus flock.php
-	if (!function_exists('preg_files')) {
-		include_once _ROOT_RESTREINT . 'inc/flock.php';
-	}
-
-	// Parcourir le chemin
-	foreach (creer_chemin() as $d) {
-		$f = $d . $dir;
-		if (@is_dir($f)) {
-			$liste = preg_files($f, $pattern, $maxfiles - count($liste_fichiers), $recurs === true ? array() : $recurs);
-			foreach ($liste as $chemin) {
-				$nom = basename($chemin);
-				// ne prendre que les fichiers pas deja trouves
-				// car find_in_path prend le premier qu'il trouve,
-				// les autres sont donc masques
-				if (!isset($liste_fichiers[$nom])) {
-					$liste_fichiers[$nom] = $chemin;
-				}
-			}
-		}
-	}
-
-	return $liste_fichiers;
+    $liste_fichiers = array();
+    $maxfiles = 10000;
+
+    // cas borderline si dans mes_options on appelle redirige_par_entete qui utilise _T et charge un fichier de langue
+    // on a pas encore inclus flock.php
+    if (!function_exists('preg_files')) {
+        include_once _ROOT_RESTREINT . 'inc/flock.php';
+    }
+
+    // Parcourir le chemin
+    foreach (creer_chemin() as $d) {
+        $f = $d . $dir;
+        if (@is_dir($f)) {
+            $liste = preg_files($f, $pattern, $maxfiles - count($liste_fichiers), $recurs === true ? array() : $recurs);
+            foreach ($liste as $chemin) {
+                $nom = basename($chemin);
+                // ne prendre que les fichiers pas deja trouves
+                // car find_in_path prend le premier qu'il trouve,
+                // les autres sont donc masques
+                if (!isset($liste_fichiers[$nom])) {
+                    $liste_fichiers[$nom] = $chemin;
+                }
+            }
+        }
+    }
+
+    return $liste_fichiers;
 }
 
 /**
@@ -1707,17 +1706,17 @@ 
  * @return bool
  */
 function autoriser_sans_cookie($nom, $strict = false) {
-	static $autsanscookie = array('install', 'base_repair');
+    static $autsanscookie = array('install', 'base_repair');
 
-	if (in_array($nom, $autsanscookie)) {
-		if (test_espace_prive()){
-			include_spip('base/connect_sql');
-			if (!$strict or !spip_connect()){
-				return true;
-			}
-		}
-	}
-	return false;
+    if (in_array($nom, $autsanscookie)) {
+        if (test_espace_prive()){
+            include_spip('base/connect_sql');
+            if (!$strict or !spip_connect()){
+                return true;
+            }
+        }
+    }
+    return false;
 }
 
 /**
@@ -1743,99 +1742,99 @@ 
  *           (cas des raccourcis personalises [->spip20] : il faut implementer une fonction generer_url_spip et une fonction generer_url_ecrire_spip)
  */
 function generer_url_entite($id = '', $entite = '', $args = '', $ancre = '', $public = null, $type = null) {
-	if ($public === null) {
-		$public = !test_espace_prive();
-	}
-	$entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
-
-	if (!$public) {
-		if (!$entite) {
-			return '';
-		}
-		if (!function_exists('generer_url_ecrire_objet')) {
-			include_spip('inc/urls');
-		}
-		$res = generer_url_ecrire_objet($entite, $id, $args, $ancre, false);
-	} else {
-		if ($type === null) {
-			$type = (isset($GLOBALS['type_urls']))
-				? $GLOBALS['type_urls'] // pour surcharge via fichier d'options
-				: ((isset($GLOBALS['meta']['type_urls'])) // sinon la config url_etendues
-					? ($GLOBALS['meta']['type_urls']) : "page"); // sinon type "page" par défaut
-		}
-
-		$f = charger_fonction($type, 'urls', true);
-		// se rabattre sur les urls page si les urls perso non dispo
-		if (!$f) {
-			$f = charger_fonction('page', 'urls', true);
-		}
-
-		// si $entite='', on veut la fonction de passage URL ==> id
-		// sinon on veut effectuer le passage id ==> URL
-		if (!$entite) {
-			return $f;
-		}
-
-		// mais d'abord il faut tester le cas des urls sur une
-		// base distante
-		if (is_string($public)
-			and $g = charger_fonction('connect', 'urls', true)
-		) {
-			$f = $g;
-		}
-
-		$res = $f(intval($id), $entite, $args, $ancre, $public);
-
-	}
-	if ($res) {
-		return $res;
-	}
-	// Sinon c'est un raccourci ou compat SPIP < 2
-	if (!function_exists($f = 'generer_url_' . $entite)) {
-		if (!function_exists($f .= '_dist')) {
-			$f = '';
-		}
-	}
-	if ($f) {
-		$url = $f($id, $args, $ancre);
-		if (strlen($args)) {
-			$url .= strstr($url, '?')
-				? '&amp;' . $args
-				: '?' . $args;
-		}
-
-		return $url;
-	}
-	// On a ete gentil mais la ....
-	spip_log("generer_url_entite: entite $entite ($f) inconnue $type $public");
-
-	return '';
+    if ($public === null) {
+        $public = !test_espace_prive();
+    }
+    $entite = objet_type($entite); // cas particulier d'appels sur objet/id_objet...
+
+    if (!$public) {
+        if (!$entite) {
+            return '';
+        }
+        if (!function_exists('generer_url_ecrire_objet')) {
+            include_spip('inc/urls');
+        }
+        $res = generer_url_ecrire_objet($entite, $id, $args, $ancre, false);
+    } else {
+        if ($type === null) {
+            $type = (isset($GLOBALS['type_urls']))
+                ? $GLOBALS['type_urls'] // pour surcharge via fichier d'options
+                : ((isset($GLOBALS['meta']['type_urls'])) // sinon la config url_etendues
+                    ? ($GLOBALS['meta']['type_urls']) : "page"); // sinon type "page" par défaut
+        }
+
+        $f = charger_fonction($type, 'urls', true);
+        // se rabattre sur les urls page si les urls perso non dispo
+        if (!$f) {
+            $f = charger_fonction('page', 'urls', true);
+        }
+
+        // si $entite='', on veut la fonction de passage URL ==> id
+        // sinon on veut effectuer le passage id ==> URL
+        if (!$entite) {
+            return $f;
+        }
+
+        // mais d'abord il faut tester le cas des urls sur une
+        // base distante
+        if (is_string($public)
+            and $g = charger_fonction('connect', 'urls', true)
+        ) {
+            $f = $g;
+        }
+
+        $res = $f(intval($id), $entite, $args, $ancre, $public);
+
+    }
+    if ($res) {
+        return $res;
+    }
+    // Sinon c'est un raccourci ou compat SPIP < 2
+    if (!function_exists($f = 'generer_url_' . $entite)) {
+        if (!function_exists($f .= '_dist')) {
+            $f = '';
+        }
+    }
+    if ($f) {
+        $url = $f($id, $args, $ancre);
+        if (strlen($args)) {
+            $url .= strstr($url, '?')
+                ? '&amp;' . $args
+                : '?' . $args;
+        }
+
+        return $url;
+    }
+    // On a ete gentil mais la ....
+    spip_log("generer_url_entite: entite $entite ($f) inconnue $type $public");
+
+    return '';
 }
 
 function generer_url_ecrire_entite_edit($id, $entite, $args = '', $ancre = '') {
-	$exec = objet_info($entite, 'url_edit');
-	$url = generer_url_ecrire($exec, $args);
-	if (intval($id)) {
-		$url = parametre_url($url, id_table_objet($entite), $id);
-	} else {
-		$url = parametre_url($url, 'new', 'oui');
-	}
-	if ($ancre) {
-		$url = ancre_url($url, $ancre);
-	}
+    $exec = objet_info($entite, 'url_edit');
+    $url = generer_url_ecrire($exec, $args);
+    if (intval($id)) {
+        $url = parametre_url($url, id_table_objet($entite), $id);
+    } else {
+        $url = parametre_url($url, 'new', 'oui');
+    }
+    if ($ancre) {
+        $url = ancre_url($url, $ancre);
+    }
 
-	return $url;
+    return $url;
 }
 
 // https://code.spip.net/@urls_connect_dist
 function urls_connect_dist($i, &$entite, $args = '', $ancre = '', $public = null) {
-	include_spip('base/connect_sql');
-	$id_type = id_table_objet($entite, $public);
+    include_spip('base/connect_sql');
+    $id_type = id_table_objet($entite, $public);
 
-	return _DIR_RACINE . get_spip_script('./')
-	. "?" . _SPIP_PAGE . "=$entite&$id_type=$i&connect=$public"
-	. (!$args ? '' : "&$args")
-	. (!$ancre ? '' : "#$ancre");
+    return _DIR_RACINE . get_spip_script('./')
+    . "?" . _SPIP_PAGE . "=$entite&$id_type=$i&connect=$public"
+    . (!$args ? '' : "&$args")
+    . (!$ancre ? '' : "#$ancre");
 }
 
 
@@ -1846,32 +1845,32 @@ 
  * @return string
  */
 function urlencode_1738($url) {
-	if (preg_match(',[^\x00-\x7E],sS', $url)) {
-		$uri = '';
-		for ($i = 0; $i < strlen($url); $i++) {
-			if (ord($a = $url[$i]) > 127) {
-				$a = rawurlencode($a);
-			}
-			$uri .= $a;
-		}
-		$url = $uri;
-	}
+    if (preg_match(',[^\x00-\x7E],sS', $url)) {
+        $uri = '';
+        for ($i = 0; $i < strlen($url); $i++) {
+            if (ord($a = $url[$i]) > 127) {
+                $a = rawurlencode($a);
+            }
+            $uri .= $a;
+        }
+        $url = $uri;
+    }
 
-	return quote_amp($url);
+    return quote_amp($url);
 }
 
 // https://code.spip.net/@generer_url_entite_absolue
 function generer_url_entite_absolue($id = '', $entite = '', $args = '', $ancre = '', $connect = null) {
-	if (!$connect) {
-		$connect = true;
-	}
-	$h = generer_url_entite($id, $entite, $args, $ancre, $connect);
-	if (!preg_match(',^\w+:,', $h)) {
-		include_spip('inc/filtres_mini');
-		$h = url_absolue($h);
-	}
+    if (!$connect) {
+        $connect = true;
+    }
+    $h = generer_url_entite($id, $entite, $args, $ancre, $connect);
+    if (!preg_match(',^\w+:,', $h)) {
+        include_spip('inc/filtres_mini');
+        $h = url_absolue($h);
+    }
 
-	return $h;
+    return $h;
 }
 
 
@@ -1887,11 +1886,11 @@ 
  *     true si la valeur est considérée active ; false sinon.
  **/
 function test_valeur_serveur($truc) {
-	if (!$truc) {
-		return false;
-	}
+    if (!$truc) {
+        return false;
+    }
 
-	return (strtolower($truc) !== 'off');
+    return (strtolower($truc) !== 'off');
 }
 
 //
@@ -1919,80 +1918,80 @@ 
  */
 function url_de_base($profondeur = null) {
 
-	static $url = array();
-	if (is_array($profondeur)) {
-		return $url = $profondeur;
-	}
-	if ($profondeur === false) {
-		return $url;
-	}
-
-	if (is_null($profondeur)) {
-		$profondeur = $GLOBALS['profondeur_url'];
-	}
-
-	if (isset($url[$profondeur])) {
-		return $url[$profondeur];
-	}
-
-	$http = 'http';
-
-	if (
-		isset($_SERVER["SCRIPT_URI"])
-		and substr($_SERVER["SCRIPT_URI"], 0, 5) == 'https'
-	) {
-		$http = 'https';
-	} elseif (
-		isset($_SERVER['HTTPS'])
-		and test_valeur_serveur($_SERVER['HTTPS'])
-	) {
-		$http = 'https';
-	}
-
-	// note : HTTP_HOST contient le :port si necessaire
-	$host = isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : null;
-	// si on n'a pas trouvé d'hôte du tout, en dernier recours on utilise adresse_site comme fallback
-	if (is_null($host) and isset($GLOBALS['meta']['adresse_site'])) {
-		$host = $GLOBALS['meta']['adresse_site'];
-		if ($scheme = parse_url($host, PHP_URL_SCHEME)) {
-			$http = $scheme;
-			$host = str_replace("{$scheme}://", '', $host);
-		}
-	}
-	if (isset($_SERVER['SERVER_PORT'])
-		and $port = $_SERVER['SERVER_PORT']
-		and strpos($host, ":") == false
-	) {
-		if (!defined('_PORT_HTTP_STANDARD')) {
-			define('_PORT_HTTP_STANDARD', '80');
-		}
-		if (!defined('_PORT_HTTPS_STANDARD')) {
-			define('_PORT_HTTPS_STANDARD', '443');
-		}
-		if ($http == "http" and !in_array($port, explode(',', _PORT_HTTP_STANDARD))) {
-			$host .= ":$port";
-		}
-		if ($http == "https" and !in_array($port, explode(',', _PORT_HTTPS_STANDARD))) {
-			$host .= ":$port";
-		}
-	}
-
-	if (!$GLOBALS['REQUEST_URI']) {
-		if (isset($_SERVER['REQUEST_URI'])) {
-			$GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
-		} else {
-			$GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
-			if (!empty($_SERVER['QUERY_STRING'])
-				and !strpos($_SERVER['REQUEST_URI'], '?')
-			) {
-				$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
-			}
-		}
-	}
-
-	$url[$profondeur] = url_de_($http, $host, $GLOBALS['REQUEST_URI'], $profondeur);
-
-	return $url[$profondeur];
+    static $url = array();
+    if (is_array($profondeur)) {
+        return $url = $profondeur;
+    }
+    if ($profondeur === false) {
+        return $url;
+    }
+
+    if (is_null($profondeur)) {
+        $profondeur = $GLOBALS['profondeur_url'];
+    }
+
+    if (isset($url[$profondeur])) {
+        return $url[$profondeur];
+    }
+
+    $http = 'http';
+
+    if (
+        isset($_SERVER["SCRIPT_URI"])
+        and substr($_SERVER["SCRIPT_URI"], 0, 5) == 'https'
+    ) {
+        $http = 'https';
+    } elseif (
+        isset($_SERVER['HTTPS'])
+        and test_valeur_serveur($_SERVER['HTTPS'])
+    ) {
+        $http = 'https';
+    }
+
+    // note : HTTP_HOST contient le :port si necessaire
+    $host = isset($_SERVER['HTTP_HOST']) ? $_SERVER['HTTP_HOST'] : null;
+    // si on n'a pas trouvé d'hôte du tout, en dernier recours on utilise adresse_site comme fallback
+    if (is_null($host) and isset($GLOBALS['meta']['adresse_site'])) {
+        $host = $GLOBALS['meta']['adresse_site'];
+        if ($scheme = parse_url($host, PHP_URL_SCHEME)) {
+            $http = $scheme;
+            $host = str_replace("{$scheme}://", '', $host);
+        }
+    }
+    if (isset($_SERVER['SERVER_PORT'])
+        and $port = $_SERVER['SERVER_PORT']
+        and strpos($host, ":") == false
+    ) {
+        if (!defined('_PORT_HTTP_STANDARD')) {
+            define('_PORT_HTTP_STANDARD', '80');
+        }
+        if (!defined('_PORT_HTTPS_STANDARD')) {
+            define('_PORT_HTTPS_STANDARD', '443');
+        }
+        if ($http == "http" and !in_array($port, explode(',', _PORT_HTTP_STANDARD))) {
+            $host .= ":$port";
+        }
+        if ($http == "https" and !in_array($port, explode(',', _PORT_HTTPS_STANDARD))) {
+            $host .= ":$port";
+        }
+    }
+
+    if (!$GLOBALS['REQUEST_URI']) {
+        if (isset($_SERVER['REQUEST_URI'])) {
+            $GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
+        } else {
+            $GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
+            if (!empty($_SERVER['QUERY_STRING'])
+                and !strpos($_SERVER['REQUEST_URI'], '?')
+            ) {
+                $GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+            }
+        }
+    }
+
+    $url[$profondeur] = url_de_($http, $host, $GLOBALS['REQUEST_URI'], $profondeur);
+
+    return $url[$profondeur];
 }
 
 /**
@@ -2005,26 +2004,26 @@ 
  * @return string
  */
 function url_de_($http, $host, $request, $prof = 0) {
-	$prof = max($prof, 0);
+    $prof = max($prof, 0);
 
-	$myself = ltrim($request, '/');
-	# supprimer la chaine de GET
-	list($myself) = explode('?', $myself);
-	// vieux mode HTTP qui envoie après le nom de la methode l'URL compléte
-	// protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]
-	if (strpos($myself,'://') !== false) {
-		$myself = explode('://',$myself);
-		array_shift($myself);
-		$myself = implode('://',$myself);
-		$myself = explode('/',$myself);
-		array_shift($myself);
-		$myself = implode('/',$myself);
-	}
-	$url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';
+    $myself = ltrim($request, '/');
+    # supprimer la chaine de GET
+    list($myself) = explode('?', $myself);
+    // vieux mode HTTP qui envoie après le nom de la methode l'URL compléte
+    // protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]
+    if (strpos($myself,'://') !== false) {
+        $myself = explode('://',$myself);
+        array_shift($myself);
+        $myself = implode('://',$myself);
+        $myself = explode('/',$myself);
+        array_shift($myself);
+        $myself = implode('/',$myself);
+    }
+    $url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';
 
-	$url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');
+    $url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');
 
-	return $url;
+    return $url;
 }
 
 
@@ -2059,26 +2058,26 @@ 
  * @return string URL
  **/
 function generer_url_ecrire($script = '', $args = "", $no_entities = false, $rel = false) {
-	if (!$rel) {
-		$rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
-	} else {
-		if (!is_string($rel)) {
-			$rel = _DIR_RESTREINT ? _DIR_RESTREINT :
-				('./' . _SPIP_ECRIRE_SCRIPT);
-		}
-	}
-
-	list($script, $ancre) = array_pad(explode('#', $script), 2, null);
-	if ($script and ($script <> 'accueil' or $rel)) {
-		$args = "?exec=$script" . (!$args ? '' : "&$args");
-	} elseif ($args) {
-		$args = "?$args";
-	}
-	if ($ancre) {
-		$args .= "#$ancre";
-	}
-
-	return $rel . ($no_entities ? $args : str_replace('&', '&amp;', $args));
+    if (!$rel) {
+        $rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
+    } else {
+        if (!is_string($rel)) {
+            $rel = _DIR_RESTREINT ? _DIR_RESTREINT :
+                ('./' . _SPIP_ECRIRE_SCRIPT);
+        }
+    }
+
+    list($script, $ancre) = array_pad(explode('#', $script), 2, null);
+    if ($script and ($script <> 'accueil' or $rel)) {
+        $args = "?exec=$script" . (!$args ? '' : "&$args");
+    } elseif ($args) {
+        $args = "?$args";
+    }
+    if ($ancre) {
+        $args .= "#$ancre";
+    }
+
+    return $rel . ($no_entities ? $args : str_replace('&', '&amp;', $args));
 }
 
 //
@@ -2100,12 +2099,12 @@ 
  *     Nom du fichier (constante _SPIP_SCRIPT), sinon nom par défaut
  **/
 function get_spip_script($default = '') {
-	# cas define('_SPIP_SCRIPT', '');
-	if (_SPIP_SCRIPT) {
-		return _SPIP_SCRIPT;
-	} else {
-		return $default;
-	}
+    # cas define('_SPIP_SCRIPT', '');
+    if (_SPIP_SCRIPT) {
+        return _SPIP_SCRIPT;
+    } else {
+        return $default;
+    }
 }
 
 /**
@@ -2134,39 +2133,39 @@ 
  * @return string URL
  **/
 function generer_url_public($script = '', $args = "", $no_entities = false, $rel = true, $action = '') {
-	// si le script est une action (spip_pass, spip_inscription),
-	// standardiser vers la nouvelle API
-
-	if (!$action) {
-		$action = get_spip_script();
-	}
-	if ($script) {
-		$action = parametre_url($action, _SPIP_PAGE, $script, '&');
-	}
-
-	if ($args) {
-		if (is_array($args)) {
-			$r = '';
-			foreach ($args as $k => $v) {
-				$r .= '&' . $k . '=' . $v;
-			}
-			$args = substr($r, 1);
-		}
-		$action .=
-			(strpos($action, '?') !== false ? '&' : '?') . $args;
-	}
-	if (!$no_entities) {
-		$action = quote_amp($action);
-	}
-
-	// ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
-	return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(",^/[.]/,", "/", "/$action"));
+    // si le script est une action (spip_pass, spip_inscription),
+    // standardiser vers la nouvelle API
+
+    if (!$action) {
+        $action = get_spip_script();
+    }
+    if ($script) {
+        $action = parametre_url($action, _SPIP_PAGE, $script, '&');
+    }
+
+    if ($args) {
+        if (is_array($args)) {
+            $r = '';
+            foreach ($args as $k => $v) {
+                $r .= '&' . $k . '=' . $v;
+            }
+            $args = substr($r, 1);
+        }
+        $action .=
+            (strpos($action, '?') !== false ? '&' : '?') . $args;
+    }
+    if (!$no_entities) {
+        $action = quote_amp($action);
+    }
+
+    // ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
+    return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(",^/[.]/,", "/", "/$action"));
 }
 
 // https://code.spip.net/@generer_url_prive
 function generer_url_prive($script, $args = "", $no_entities = false) {
 
-	return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
+    return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
 }
 
 // Pour les formulaires en methode POST,
@@ -2191,19 +2190,19 @@ 
  **/
 function generer_form_ecrire($script, $corps, $atts = '', $submit = '') {
 
-	$script1 = explode('&', $script);
-	$script1 = reset($script1);
+    $script1 = explode('&', $script);
+    $script1 = reset($script1);
 
-	return "<form action='"
-	. ($script ? generer_url_ecrire($script) : '')
-	. "' "
-	. ($atts ? $atts : " method='post'")
-	. "><div>\n"
-	. "<input type='hidden' name='exec' value='$script1' />"
-	. $corps
-	. (!$submit ? '' :
-		("<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><input class='fondo' type='submit' value=\"" . entites_html($submit) . "\" /></div>"))
-	. "</div></form>\n";
+    return "<form action='"
+    . ($script ? generer_url_ecrire($script) : '')
+    . "' "
+    . ($atts ? $atts : " method='post'")
+    . "><div>\n"
+    . "<input type='hidden' name='exec' value='$script1' />"
+    . $corps
+    . (!$submit ? '' :
+        ("<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><input class='fondo' type='submit' value=\"" . entites_html($submit) . "\" /></div>"))
+    . "</div></form>\n";
 }
 
 /**
@@ -2220,22 +2219,22 @@ 
  * @return string
  */
 function generer_form_action($script, $corps, $atts = '', $public = false) {
-	// si l'on est dans l'espace prive, on garde dans l'url
-	// l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
-	// ou non de proceder a l'authentification (cas typique de l'install par exemple)
-	$h = (_DIR_RACINE and !$public)
-		? generer_url_ecrire(_request('exec'))
-		: generer_url_public();
+    // si l'on est dans l'espace prive, on garde dans l'url
+    // l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
+    // ou non de proceder a l'authentification (cas typique de l'install par exemple)
+    $h = (_DIR_RACINE and !$public)
+        ? generer_url_ecrire(_request('exec'))
+        : generer_url_public();
 
-	return "\n<form action='" .
-	$h .
-	"'" .
-	$atts .
-	">\n" .
-	"<div>" .
-	"\n<input type='hidden' name='action' value='$script' />" .
-	$corps .
-	"</div></form>";
+    return "\n<form action='" .
+    $h .
+    "'" .
+    $atts .
+    ">\n" .
+    "<div>" .
+    "\n<input type='hidden' name='action' value='$script' />" .
+    $corps .
+    "</div></form>";
 }
 
 /**
@@ -2254,22 +2253,22 @@ 
  *     URL
  */
 function generer_url_action($script, $args = "", $no_entities = false, $public = false) {
-	// si l'on est dans l'espace prive, on garde dans l'url
-	// l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
-	// ou non de proceder a l'authentification (cas typique de l'install par exemple)
-	$url = (_DIR_RACINE and !$public)
-		? generer_url_ecrire(_request('exec'))
-		: generer_url_public('', '', false, false);
-	$url = parametre_url($url, 'action', $script);
-	if ($args) {
-		$url .= quote_amp('&' . $args);
-	}
+    // si l'on est dans l'espace prive, on garde dans l'url
+    // l'exec a l'origine de l'action, qui permet de savoir si il est necessaire
+    // ou non de proceder a l'authentification (cas typique de l'install par exemple)
+    $url = (_DIR_RACINE and !$public)
+        ? generer_url_ecrire(_request('exec'))
+        : generer_url_public('', '', false, false);
+    $url = parametre_url($url, 'action', $script);
+    if ($args) {
+        $url .= quote_amp('&' . $args);
+    }
 
-	if ($no_entities) {
-		$url = str_replace('&amp;', '&', $url);
-	}
+    if ($no_entities) {
+        $url = str_replace('&amp;', '&', $url);
+    }
 
-	return $url;
+    return $url;
 }
 
 
@@ -2282,8 +2281,8 @@ 
  * @param string $ta Répertoire temporaire accessible
  */
 function spip_initialisation($pi = null, $pa = null, $ti = null, $ta = null) {
-	spip_initialisation_core($pi, $pa, $ti, $ta);
-	spip_initialisation_suite();
+    spip_initialisation_core($pi, $pa, $ti, $ta);
+    spip_initialisation_suite();
 }
 
 /**
@@ -2303,315 +2302,315 @@ 
  * @param string $ta Répertoire temporaire accessible
  */
 function spip_initialisation_core($pi = null, $pa = null, $ti = null, $ta = null) {
-	static $too_late = 0;
-	if ($too_late++) {
-		return;
-	}
-
-	// Declaration des repertoires
-
-	// le nom du repertoire plugins/ activables/desactivables
-	if (!defined('_DIR_PLUGINS')) {
-		define('_DIR_PLUGINS', _DIR_RACINE . "plugins/");
-	}
-
-	// le nom du repertoire des extensions/ permanentes du core, toujours actives
-	if (!defined('_DIR_PLUGINS_DIST')) {
-		define('_DIR_PLUGINS_DIST', _DIR_RACINE . "plugins-dist/");
-	}
-
-	// le nom du repertoire des librairies
-	if (!defined('_DIR_LIB')) {
-		define('_DIR_LIB', _DIR_RACINE . "lib/");
-	}
-
-	if (!defined('_DIR_IMG')) {
-		define('_DIR_IMG', $pa);
-	}
-	if (!defined('_DIR_LOGOS')) {
-		define('_DIR_LOGOS', $pa);
-	}
-	if (!defined('_DIR_IMG_ICONES')) {
-		define('_DIR_IMG_ICONES', _DIR_LOGOS . "icones/");
-	}
-
-	if (!defined('_DIR_DUMP')) {
-		define('_DIR_DUMP', $ti . "dump/");
-	}
-	if (!defined('_DIR_SESSIONS')) {
-		define('_DIR_SESSIONS', $ti . "sessions/");
-	}
-	if (!defined('_DIR_TRANSFERT')) {
-		define('_DIR_TRANSFERT', $ti . "upload/");
-	}
-	if (!defined('_DIR_CACHE')) {
-		define('_DIR_CACHE', $ti . "cache/");
-	}
-	if (!defined('_DIR_CACHE_XML')) {
-		define('_DIR_CACHE_XML', _DIR_CACHE . "xml/");
-	}
-	if (!defined('_DIR_SKELS')) {
-		define('_DIR_SKELS', _DIR_CACHE . "skel/");
-	}
-	if (!defined('_DIR_AIDE')) {
-		define('_DIR_AIDE', _DIR_CACHE . "aide/");
-	}
-	if (!defined('_DIR_TMP')) {
-		define('_DIR_TMP', $ti);
-	}
-
-	if (!defined('_DIR_VAR')) {
-		define('_DIR_VAR', $ta);
-	}
-
-	if (!defined('_DIR_ETC')) {
-		define('_DIR_ETC', $pi);
-	}
-	if (!defined('_DIR_CONNECT')) {
-		define('_DIR_CONNECT', $pi);
-	}
-	if (!defined('_DIR_CHMOD')) {
-		define('_DIR_CHMOD', $pi);
-	}
-
-	if (!isset($GLOBALS['test_dirs']))
-		// Pas $pi car il est bon de le mettre hors ecriture apres intstall
-		// il sera rajoute automatiquement si besoin a l'etape 2 de l'install
-	{
-		$GLOBALS['test_dirs'] = array($pa, $ti, $ta);
-	}
-
-	// Declaration des fichiers
-
-	if (!defined('_CACHE_PLUGINS_PATH')) {
-		define('_CACHE_PLUGINS_PATH', _DIR_CACHE . "charger_plugins_chemins.php");
-	}
-	if (!defined('_CACHE_PLUGINS_OPT')) {
-		define('_CACHE_PLUGINS_OPT', _DIR_CACHE . "charger_plugins_options.php");
-	}
-	if (!defined('_CACHE_PLUGINS_FCT')) {
-		define('_CACHE_PLUGINS_FCT', _DIR_CACHE . "charger_plugins_fonctions.php");
-	}
-	if (!defined('_CACHE_PIPELINES')) {
-		define('_CACHE_PIPELINES', _DIR_CACHE . "charger_pipelines.php");
-	}
-	if (!defined('_CACHE_CHEMIN')) {
-		define('_CACHE_CHEMIN', _DIR_CACHE . "chemin.txt");
-	}
-
-	# attention .php obligatoire pour ecrire_fichier_securise
-	if (!defined('_FILE_META')) {
-		define('_FILE_META', $ti . 'meta_cache.php');
-	}
-	if (!defined('_DIR_LOG')) {
-		define('_DIR_LOG', _DIR_TMP . 'log/');
-	}
-	if (!defined('_FILE_LOG')) {
-		define('_FILE_LOG', 'spip');
-	}
-	if (!defined('_FILE_LOG_SUFFIX')) {
-		define('_FILE_LOG_SUFFIX', '.log');
-	}
-
-	// Le fichier de connexion a la base de donnees
-	// tient compte des anciennes versions (inc_connect...)
-	if (!defined('_FILE_CONNECT_INS')) {
-		define('_FILE_CONNECT_INS', 'connect');
-	}
-	if (!defined('_FILE_CONNECT')) {
-		define('_FILE_CONNECT',
-		(@is_readable($f = _DIR_CONNECT . _FILE_CONNECT_INS . '.php') ? $f
-			: (@is_readable($f = _DIR_RESTREINT . 'inc_connect.php') ? $f
-				: false)));
-	}
-
-	// Le fichier de reglages des droits
-	if (!defined('_FILE_CHMOD_INS')) {
-		define('_FILE_CHMOD_INS', 'chmod');
-	}
-	if (!defined('_FILE_CHMOD')) {
-		define('_FILE_CHMOD',
-		(@is_readable($f = _DIR_CHMOD . _FILE_CHMOD_INS . '.php') ? $f
-			: false));
-	}
-
-	if (!defined('_FILE_LDAP')) {
-		define('_FILE_LDAP', 'ldap.php');
-	}
-
-	if (!defined('_FILE_TMP_SUFFIX')) {
-		define('_FILE_TMP_SUFFIX', '.tmp.php');
-	}
-	if (!defined('_FILE_CONNECT_TMP')) {
-		define('_FILE_CONNECT_TMP', _DIR_CONNECT . _FILE_CONNECT_INS . _FILE_TMP_SUFFIX);
-	}
-	if (!defined('_FILE_CHMOD_TMP')) {
-		define('_FILE_CHMOD_TMP', _DIR_CHMOD . _FILE_CHMOD_INS . _FILE_TMP_SUFFIX);
-	}
-
-	// Definition des droits d'acces en ecriture
-	if (!defined('_SPIP_CHMOD') and _FILE_CHMOD) {
-		include_once _FILE_CHMOD;
-	}
-
-	// Se mefier des fichiers mal remplis!
-	if (!defined('_SPIP_CHMOD')) {
-		define('_SPIP_CHMOD', 0777);
-	}
-
-	if (!defined('_DEFAULT_CHARSET')) {
-		/** Le charset par défaut lors de l'installation */
-		define('_DEFAULT_CHARSET', 'utf-8');
-	}
-	if (!defined('_ROOT_PLUGINS')) {
-		define('_ROOT_PLUGINS', _ROOT_RACINE . "plugins/");
-	}
-	if (!defined('_ROOT_PLUGINS_DIST')) {
-		define('_ROOT_PLUGINS_DIST', _ROOT_RACINE . "plugins-dist/");
-	}
-	if (!defined('_ROOT_PLUGINS_SUPPL') && defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
-		define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE . str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
-	}
-
-	// La taille des Log
-	if (!defined('_MAX_LOG')) {
-		define('_MAX_LOG', 100);
-	}
-
-	// Sommes-nous dans l'empire du Mal ?
-	// (ou sous le signe du Pingouin, ascendant GNU ?)
-	if (isset($_SERVER['SERVER_SOFTWARE']) and strpos($_SERVER['SERVER_SOFTWARE'], '(Win') !== false) {
-		if (!defined('_OS_SERVEUR')) {
-			define('_OS_SERVEUR', 'windows');
-		}
-		if (!defined('_SPIP_LOCK_MODE')) {
-			define('_SPIP_LOCK_MODE', 1);
-		} // utiliser le flock php
-	} else {
-		if (!defined('_OS_SERVEUR')) {
-			define('_OS_SERVEUR', '');
-		}
-		if (!defined('_SPIP_LOCK_MODE')) {
-			define('_SPIP_LOCK_MODE', 1);
-		} // utiliser le flock php
-		#if (!defined('_SPIP_LOCK_MODE')) define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip mais link() est tres souvent interdite
-	}
-
-	// Langue par defaut
-	if (!defined('_LANGUE_PAR_DEFAUT')) {
-		define('_LANGUE_PAR_DEFAUT', 'fr');
-	}
-
-	//
-	// Module de lecture/ecriture/suppression de fichiers utilisant flock()
-	// (non surchargeable en l'etat ; attention si on utilise include_spip()
-	// pour le rendre surchargeable, on va provoquer un reecriture
-	// systematique du noyau ou une baisse de perfs => a etudier)
-	include_once _ROOT_RESTREINT . 'inc/flock.php';
-
-	// charger tout de suite le path et son cache
-	load_path_cache();
-
-	// *********** traiter les variables ************
-
-	//
-	// Securite
-	//
-
-	// Ne pas se faire manger par un bug php qui accepte ?GLOBALS[truc]=toto
-	if (isset($_REQUEST['GLOBALS'])) {
-		die();
-	}
-	// nettoyer les magic quotes \' et les caracteres nuls %00
-	spip_desinfecte($_GET);
-	spip_desinfecte($_POST);
-	spip_desinfecte($_COOKIE);
-	spip_desinfecte($_REQUEST);
-
-	// appliquer le cookie_prefix
-	if ($GLOBALS['cookie_prefix'] != 'spip') {
-		include_spip('inc/cookie');
-		recuperer_cookies_spip($GLOBALS['cookie_prefix']);
-	}
-
-	//
-	// Capacites php (en fonction de la version)
-	//
-	$GLOBALS['flag_ob'] = (function_exists("ob_start")
-		&& function_exists("ini_get")
-		&& !strstr(@ini_get('disable_functions'), 'ob_'));
-	$GLOBALS['flag_sapi_name'] = function_exists("php_sapi_name");
-	$GLOBALS['flag_get_cfg_var'] = (@get_cfg_var('error_reporting') != "");
-	$GLOBALS['flag_upload'] = (!$GLOBALS['flag_get_cfg_var'] ||
-		(get_cfg_var('upload_max_filesize') > 0));
-
-
-	// Compatibilite avec serveurs ne fournissant pas $REQUEST_URI
-	if (isset($_SERVER['REQUEST_URI'])) {
-		$GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
-	} else {
-		$GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
-		if (!empty($_SERVER['QUERY_STRING'])
-			and !strpos($_SERVER['REQUEST_URI'], '?')
-		) {
-			$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
-		}
-	}
-
-	// Duree de validite de l'alea pour les cookies et ce qui s'ensuit.
-	if (!defined('_RENOUVELLE_ALEA')) {
-		define('_RENOUVELLE_ALEA', 12 * 3600);
-	}
-	if (!defined('_DUREE_COOKIE_ADMIN')) {
-		define('_DUREE_COOKIE_ADMIN', 14 * 24 * 3600);
-	}
-
-	// charger les meta si possible et renouveller l'alea au besoin
-	// charge aussi effacer_meta et ecrire_meta
-	$inc_meta = charger_fonction('meta', 'inc');
-	$inc_meta();
-
-	// nombre de repertoires depuis la racine
-	// on compare a l'adresse de spip.php : $_SERVER["SCRIPT_NAME"]
-	// ou a defaut celle donnee en meta ; (mais si celle-ci est fausse
-	// le calcul est faux)
-	if (!_DIR_RESTREINT) {
-		$GLOBALS['profondeur_url'] = 1;
-	} else {
-		$uri = isset($_SERVER['REQUEST_URI']) ? explode('?', $_SERVER['REQUEST_URI']) : '';
-		$uri_ref = $_SERVER["SCRIPT_NAME"];
-		if (!$uri_ref
-			// si on est appele avec un autre ti, on est sans doute en mutu
-			// si jamais c'est de la mutu avec sous rep, on est perdu si on se fie
-			// a spip.php qui est a la racine du spip, et vue qu'on sait pas se reperer
-			// s'en remettre a l'adresse du site. alea jacta est.
-			or $ti !== _NOM_TEMPORAIRES_INACCESSIBLES
-		) {
-
-			if (isset($GLOBALS['meta']['adresse_site'])) {
-				$uri_ref = parse_url($GLOBALS['meta']['adresse_site']);
-				$uri_ref = (isset($uri_ref['path']) ? $uri_ref['path'] : '') . '/';
-			} else {
-				$uri_ref = "";
-			}
-		}
-		if (!$uri or !$uri_ref) {
-			$GLOBALS['profondeur_url'] = 0;
-		} else {
-			$GLOBALS['profondeur_url'] = max(0,
-				substr_count($uri[0], '/')
-				- substr_count($uri_ref, '/'));
-		}
-	}
-	// s'il y a un cookie ou PHP_AUTH, initialiser visiteur_session
-	if (_FILE_CONNECT) {
-		if (verifier_visiteur() == '0minirezo'
-			// si c'est un admin sans cookie admin, il faut ignorer le cache chemin !
-			and !isset($_COOKIE['spip_admin'])
-		) {
-			clear_path_cache();
-		}
-	}
+    static $too_late = 0;
+    if ($too_late++) {
+        return;
+    }
+
+    // Declaration des repertoires
+
+    // le nom du repertoire plugins/ activables/desactivables
+    if (!defined('_DIR_PLUGINS')) {
+        define('_DIR_PLUGINS', _DIR_RACINE . "plugins/");
+    }
+
+    // le nom du repertoire des extensions/ permanentes du core, toujours actives
+    if (!defined('_DIR_PLUGINS_DIST')) {
+        define('_DIR_PLUGINS_DIST', _DIR_RACINE . "plugins-dist/");
+    }
+
+    // le nom du repertoire des librairies
+    if (!defined('_DIR_LIB')) {
+        define('_DIR_LIB', _DIR_RACINE . "lib/");
+    }
+
+    if (!defined('_DIR_IMG')) {
+        define('_DIR_IMG', $pa);
+    }
+    if (!defined('_DIR_LOGOS')) {
+        define('_DIR_LOGOS', $pa);
+    }
+    if (!defined('_DIR_IMG_ICONES')) {
+        define('_DIR_IMG_ICONES', _DIR_LOGOS . "icones/");
+    }
+
+    if (!defined('_DIR_DUMP')) {
+        define('_DIR_DUMP', $ti . "dump/");
+    }
+    if (!defined('_DIR_SESSIONS')) {
+        define('_DIR_SESSIONS', $ti . "sessions/");
+    }
+    if (!defined('_DIR_TRANSFERT')) {
+        define('_DIR_TRANSFERT', $ti . "upload/");
+    }
+    if (!defined('_DIR_CACHE')) {
+        define('_DIR_CACHE', $ti . "cache/");
+    }
+    if (!defined('_DIR_CACHE_XML')) {
+        define('_DIR_CACHE_XML', _DIR_CACHE . "xml/");
+    }
+    if (!defined('_DIR_SKELS')) {
+        define('_DIR_SKELS', _DIR_CACHE . "skel/");
+    }
+    if (!defined('_DIR_AIDE')) {
+        define('_DIR_AIDE', _DIR_CACHE . "aide/");
+    }
+    if (!defined('_DIR_TMP')) {
+        define('_DIR_TMP', $ti);
+    }
+
+    if (!defined('_DIR_VAR')) {
+        define('_DIR_VAR', $ta);
+    }
+
+    if (!defined('_DIR_ETC')) {
+        define('_DIR_ETC', $pi);
+    }
+    if (!defined('_DIR_CONNECT')) {
+        define('_DIR_CONNECT', $pi);
+    }
+    if (!defined('_DIR_CHMOD')) {
+        define('_DIR_CHMOD', $pi);
+    }
+
+    if (!isset($GLOBALS['test_dirs']))
+        // Pas $pi car il est bon de le mettre hors ecriture apres intstall
+        // il sera rajoute automatiquement si besoin a l'etape 2 de l'install
+    {
+        $GLOBALS['test_dirs'] = array($pa, $ti, $ta);
+    }
+
+    // Declaration des fichiers
+
+    if (!defined('_CACHE_PLUGINS_PATH')) {
+        define('_CACHE_PLUGINS_PATH', _DIR_CACHE . "charger_plugins_chemins.php");
+    }
+    if (!defined('_CACHE_PLUGINS_OPT')) {
+        define('_CACHE_PLUGINS_OPT', _DIR_CACHE . "charger_plugins_options.php");
+    }
+    if (!defined('_CACHE_PLUGINS_FCT')) {
+        define('_CACHE_PLUGINS_FCT', _DIR_CACHE . "charger_plugins_fonctions.php");
+    }
+    if (!defined('_CACHE_PIPELINES')) {
+        define('_CACHE_PIPELINES', _DIR_CACHE . "charger_pipelines.php");
+    }
+    if (!defined('_CACHE_CHEMIN')) {
+        define('_CACHE_CHEMIN', _DIR_CACHE . "chemin.txt");
+    }
+
+    # attention .php obligatoire pour ecrire_fichier_securise
+    if (!defined('_FILE_META')) {
+        define('_FILE_META', $ti . 'meta_cache.php');
+    }
+    if (!defined('_DIR_LOG')) {
+        define('_DIR_LOG', _DIR_TMP . 'log/');
+    }
+    if (!defined('_FILE_LOG')) {
+        define('_FILE_LOG', 'spip');
+    }
+    if (!defined('_FILE_LOG_SUFFIX')) {
+        define('_FILE_LOG_SUFFIX', '.log');
+    }
+
+    // Le fichier de connexion a la base de donnees
+    // tient compte des anciennes versions (inc_connect...)
+    if (!defined('_FILE_CONNECT_INS')) {
+        define('_FILE_CONNECT_INS', 'connect');
+    }
+    if (!defined('_FILE_CONNECT')) {
+        define('_FILE_CONNECT',
+        (@is_readable($f = _DIR_CONNECT . _FILE_CONNECT_INS . '.php') ? $f
+            : (@is_readable($f = _DIR_RESTREINT . 'inc_connect.php') ? $f
+                : false)));
+    }
+
+    // Le fichier de reglages des droits
+    if (!defined('_FILE_CHMOD_INS')) {
+        define('_FILE_CHMOD_INS', 'chmod');
+    }
+    if (!defined('_FILE_CHMOD')) {
+        define('_FILE_CHMOD',
+        (@is_readable($f = _DIR_CHMOD . _FILE_CHMOD_INS . '.php') ? $f
+            : false));
+    }
+
+    if (!defined('_FILE_LDAP')) {
+        define('_FILE_LDAP', 'ldap.php');
+    }
+
+    if (!defined('_FILE_TMP_SUFFIX')) {
+        define('_FILE_TMP_SUFFIX', '.tmp.php');
+    }
+    if (!defined('_FILE_CONNECT_TMP')) {
+        define('_FILE_CONNECT_TMP', _DIR_CONNECT . _FILE_CONNECT_INS . _FILE_TMP_SUFFIX);
+    }
+    if (!defined('_FILE_CHMOD_TMP')) {
+        define('_FILE_CHMOD_TMP', _DIR_CHMOD . _FILE_CHMOD_INS . _FILE_TMP_SUFFIX);
+    }
+
+    // Definition des droits d'acces en ecriture
+    if (!defined('_SPIP_CHMOD') and _FILE_CHMOD) {
+        include_once _FILE_CHMOD;
+    }
+
+    // Se mefier des fichiers mal remplis!
+    if (!defined('_SPIP_CHMOD')) {
+        define('_SPIP_CHMOD', 0777);
+    }
+
+    if (!defined('_DEFAULT_CHARSET')) {
+        /** Le charset par défaut lors de l'installation */
+        define('_DEFAULT_CHARSET', 'utf-8');
+    }
+    if (!defined('_ROOT_PLUGINS')) {
+        define('_ROOT_PLUGINS', _ROOT_RACINE . "plugins/");
+    }
+    if (!defined('_ROOT_PLUGINS_DIST')) {
+        define('_ROOT_PLUGINS_DIST', _ROOT_RACINE . "plugins-dist/");
+    }
+    if (!defined('_ROOT_PLUGINS_SUPPL') && defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
+        define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE . str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
+    }
+
+    // La taille des Log
+    if (!defined('_MAX_LOG')) {
+        define('_MAX_LOG', 100);
+    }
+
+    // Sommes-nous dans l'empire du Mal ?
+    // (ou sous le signe du Pingouin, ascendant GNU ?)
+    if (isset($_SERVER['SERVER_SOFTWARE']) and strpos($_SERVER['SERVER_SOFTWARE'], '(Win') !== false) {
+        if (!defined('_OS_SERVEUR')) {
+            define('_OS_SERVEUR', 'windows');
+        }
+        if (!defined('_SPIP_LOCK_MODE')) {
+            define('_SPIP_LOCK_MODE', 1);
+        } // utiliser le flock php
+    } else {
+        if (!defined('_OS_SERVEUR')) {
+            define('_OS_SERVEUR', '');
+        }
+        if (!defined('_SPIP_LOCK_MODE')) {
+            define('_SPIP_LOCK_MODE', 1);
+        } // utiliser le flock php
+        #if (!defined('_SPIP_LOCK_MODE')) define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip mais link() est tres souvent interdite
+    }
+
+    // Langue par defaut
+    if (!defined('_LANGUE_PAR_DEFAUT')) {
+        define('_LANGUE_PAR_DEFAUT', 'fr');
+    }
+
+    //
+    // Module de lecture/ecriture/suppression de fichiers utilisant flock()
+    // (non surchargeable en l'etat ; attention si on utilise include_spip()
+    // pour le rendre surchargeable, on va provoquer un reecriture
+    // systematique du noyau ou une baisse de perfs => a etudier)
+    include_once _ROOT_RESTREINT . 'inc/flock.php';
+
+    // charger tout de suite le path et son cache
+    load_path_cache();
+
+    // *********** traiter les variables ************
+
+    //
+    // Securite
+    //
+
+    // Ne pas se faire manger par un bug php qui accepte ?GLOBALS[truc]=toto
+    if (isset($_REQUEST['GLOBALS'])) {
+        die();
+    }
+    // nettoyer les magic quotes \' et les caracteres nuls %00
+    spip_desinfecte($_GET);
+    spip_desinfecte($_POST);
+    spip_desinfecte($_COOKIE);
+    spip_desinfecte($_REQUEST);
+
+    // appliquer le cookie_prefix
+    if ($GLOBALS['cookie_prefix'] != 'spip') {
+        include_spip('inc/cookie');
+        recuperer_cookies_spip($GLOBALS['cookie_prefix']);
+    }
+
+    //
+    // Capacites php (en fonction de la version)
+    //
+    $GLOBALS['flag_ob'] = (function_exists("ob_start")
+        && function_exists("ini_get")
+        && !strstr(@ini_get('disable_functions'), 'ob_'));
+    $GLOBALS['flag_sapi_name'] = function_exists("php_sapi_name");
+    $GLOBALS['flag_get_cfg_var'] = (@get_cfg_var('error_reporting') != "");
+    $GLOBALS['flag_upload'] = (!$GLOBALS['flag_get_cfg_var'] ||
+        (get_cfg_var('upload_max_filesize') > 0));
+
+
+    // Compatibilite avec serveurs ne fournissant pas $REQUEST_URI
+    if (isset($_SERVER['REQUEST_URI'])) {
+        $GLOBALS['REQUEST_URI'] = $_SERVER['REQUEST_URI'];
+    } else {
+        $GLOBALS['REQUEST_URI'] = (php_sapi_name() !== 'cli') ? $_SERVER['PHP_SELF'] : '';
+        if (!empty($_SERVER['QUERY_STRING'])
+            and !strpos($_SERVER['REQUEST_URI'], '?')
+        ) {
+            $GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+        }
+    }
+
+    // Duree de validite de l'alea pour les cookies et ce qui s'ensuit.
+    if (!defined('_RENOUVELLE_ALEA')) {
+        define('_RENOUVELLE_ALEA', 12 * 3600);
+    }
+    if (!defined('_DUREE_COOKIE_ADMIN')) {
+        define('_DUREE_COOKIE_ADMIN', 14 * 24 * 3600);
+    }
+
+    // charger les meta si possible et renouveller l'alea au besoin
+    // charge aussi effacer_meta et ecrire_meta
+    $inc_meta = charger_fonction('meta', 'inc');
+    $inc_meta();
+
+    // nombre de repertoires depuis la racine
+    // on compare a l'adresse de spip.php : $_SERVER["SCRIPT_NAME"]
+    // ou a defaut celle donnee en meta ; (mais si celle-ci est fausse
+    // le calcul est faux)
+    if (!_DIR_RESTREINT) {
+        $GLOBALS['profondeur_url'] = 1;
+    } else {
+        $uri = isset($_SERVER['REQUEST_URI']) ? explode('?', $_SERVER['REQUEST_URI']) : '';
+        $uri_ref = $_SERVER["SCRIPT_NAME"];
+        if (!$uri_ref
+            // si on est appele avec un autre ti, on est sans doute en mutu
+            // si jamais c'est de la mutu avec sous rep, on est perdu si on se fie
+            // a spip.php qui est a la racine du spip, et vue qu'on sait pas se reperer
+            // s'en remettre a l'adresse du site. alea jacta est.
+            or $ti !== _NOM_TEMPORAIRES_INACCESSIBLES
+        ) {
+
+            if (isset($GLOBALS['meta']['adresse_site'])) {
+                $uri_ref = parse_url($GLOBALS['meta']['adresse_site']);
+                $uri_ref = (isset($uri_ref['path']) ? $uri_ref['path'] : '') . '/';
+            } else {
+                $uri_ref = "";
+            }
+        }
+        if (!$uri or !$uri_ref) {
+            $GLOBALS['profondeur_url'] = 0;
+        } else {
+            $GLOBALS['profondeur_url'] = max(0,
+                substr_count($uri[0], '/')
+                - substr_count($uri_ref, '/'));
+        }
+    }
+    // s'il y a un cookie ou PHP_AUTH, initialiser visiteur_session
+    if (_FILE_CONNECT) {
+        if (verifier_visiteur() == '0minirezo'
+            // si c'est un admin sans cookie admin, il faut ignorer le cache chemin !
+            and !isset($_COOKIE['spip_admin'])
+        ) {
+            clear_path_cache();
+        }
+    }
 
 }
 
@@ -2621,174 +2620,174 @@ 
  *
  */
 function spip_initialisation_suite() {
-	static $too_late = 0;
-	if ($too_late++) {
-		return;
-	}
-
-	// taille mini des login
-	if (!defined('_LOGIN_TROP_COURT')) {
-		define('_LOGIN_TROP_COURT', 4);
-	}
-
-	// la taille maxi des logos (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
-	#if (!defined('_LOGO_MAX_SIZE')) define('_LOGO_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_LOGO_MAX_WIDTH')) define('_LOGO_MAX_WIDTH', 0); # largeur en pixels
-	#if (!defined('_LOGO_MAX_HEIGHT')) define('_LOGO_MAX_HEIGHT', 0); # hauteur en pixels
-
-	// la taille maxi des images (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
-	#if (!defined('_DOC_MAX_SIZE')) define('_DOC_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_IMG_MAX_SIZE')) define('_IMG_MAX_SIZE', 0); # poids en ko
-	#if (!defined('_IMG_MAX_WIDTH')) define('_IMG_MAX_WIDTH', 0); # largeur en pixels
-	#if (!defined('_IMG_MAX_HEIGHT')) define('_IMG_MAX_HEIGHT', 0); # hauteur en pixels
-
-	if (!defined('_PASS_LONGUEUR_MINI')) {
-		define('_PASS_LONGUEUR_MINI', 6);
-	}
-
-
-	// Qualite des images calculees automatiquement. C'est un nombre entre 0 et 100, meme pour imagick (on ramene a 0..1 par la suite)
-	if (!defined('_IMG_QUALITE')) {
-		define('_IMG_QUALITE', 85);
-	} # valeur par defaut
-	if (!defined('_IMG_GD_QUALITE')) {
-		define('_IMG_GD_QUALITE', _IMG_QUALITE);
-	} # surcharge pour la lib GD
-	if (!defined('_IMG_CONVERT_QUALITE')) {
-		define('_IMG_CONVERT_QUALITE', _IMG_QUALITE);
-	} # surcharge pour imagick en ligne de commande
-	// Historiquement la valeur pour imagick semble differente. Si ca n'est pas necessaire, il serait preferable de garder _IMG_QUALITE
-	if (!defined('_IMG_IMAGICK_QUALITE')) {
-		define('_IMG_IMAGICK_QUALITE', 75);
-	} # surcharge pour imagick en PHP
-
-	if (!defined('_COPIE_LOCALE_MAX_SIZE')) {
-		define('_COPIE_LOCALE_MAX_SIZE', 33554432);
-	} // poids en octet
-
-	// qq chaines standard
-	if (!defined('_ACCESS_FILE_NAME')) {
-		define('_ACCESS_FILE_NAME', '.htaccess');
-	}
-	if (!defined('_AUTH_USER_FILE')) {
-		define('_AUTH_USER_FILE', '.htpasswd');
-	}
-	if (!defined('_SPIP_DUMP')) {
-		define('_SPIP_DUMP', 'dump@nom_site@@stamp@.xml');
-	}
-	if (!defined('_CACHE_RUBRIQUES')) {
-		/** Fichier cache pour le navigateur de rubrique du bandeau */
-		define('_CACHE_RUBRIQUES', _DIR_TMP . 'menu-rubriques-cache.txt');
-	}
-	if (!defined('_CACHE_RUBRIQUES_MAX')) {
-		/** Nombre maxi de rubriques enfants affichées pour chaque rubrique du navigateur de rubrique du bandeau */
-		define('_CACHE_RUBRIQUES_MAX', 500);
-	}
-
-	if (!defined('_EXTENSION_SQUELETTES')) {
-		define('_EXTENSION_SQUELETTES', 'html');
-	}
-
-	if (!defined('_DOCTYPE_ECRIRE')) {
-		/** Définit le doctype de l’espace privé */
-		define('_DOCTYPE_ECRIRE', "<!DOCTYPE html>\n");
-	}
-	if (!defined('_DOCTYPE_AIDE')) {
-		/** Définit le doctype de l’aide en ligne */
-		define('_DOCTYPE_AIDE',
-		"<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Frameset//EN' 'http://www.w3.org/TR/1999/REC-html401-19991224/frameset.dtd'>");
-	}
-
-	if (!defined('_SPIP_SCRIPT')) {
-		/** L'adresse de base du site ; on peut mettre '' si la racine est gerée par
-		 * le script de l'espace public, alias index.php */
-		define('_SPIP_SCRIPT', 'spip.php');
-	}
-	if (!defined('_SPIP_PAGE')) {
-		/** Argument page, personalisable en cas de conflit avec un autre script */
-		define('_SPIP_PAGE', 'page');
-	}
-
-	// le script de l'espace prive
-	// Mettre a "index.php" si DirectoryIndex ne le fait pas ou pb connexes:
-	// les anciens IIS n'acceptent pas les POST sur ecrire/ (#419)
-	// meme pb sur thttpd cf. https://forum.spip.net/fr_184153.html
-	if (!defined('_SPIP_ECRIRE_SCRIPT')) {
-		if (!empty($_SERVER['SERVER_SOFTWARE']) and preg_match(',IIS|thttpd,', $_SERVER['SERVER_SOFTWARE'])) {
-			define('_SPIP_ECRIRE_SCRIPT', 'index.php');
-		} else {
-			define('_SPIP_ECRIRE_SCRIPT', '');
-		}
-	}
-
-
-	if (!defined('_SPIP_AJAX')) {
-		define('_SPIP_AJAX', ((!isset($_COOKIE['spip_accepte_ajax']))
-			? 1
-			: (($_COOKIE['spip_accepte_ajax'] != -1) ? 1 : 0)));
-	}
-
-	// La requete est-elle en ajax ?
-	if (!defined('_AJAX')) {
-		define('_AJAX',
-			(isset($_SERVER['HTTP_X_REQUESTED_WITH']) # ajax jQuery
-				or !empty($_REQUEST['var_ajax_redir']) # redirection 302 apres ajax jQuery
-				or !empty($_REQUEST['var_ajaxcharset']) # compat ascendante pour plugins
-				or !empty($_REQUEST['var_ajax']) # forms ajax & inclure ajax de spip
-			)
-			and empty($_REQUEST['var_noajax']) # horrible exception, car c'est pas parce que la requete est ajax jquery qu'il faut tuer tous les formulaires ajax qu'elle contient
-		);
-	}
-
-	# nombre de pixels maxi pour calcul de la vignette avec gd
-	# au dela de 5500000 on considere que php n'est pas limite en memoire pour cette operation
-	# les configurations limitees en memoire ont un seuil plutot vers 1MPixel
-	if (!defined('_IMG_GD_MAX_PIXELS')) {
-		define('_IMG_GD_MAX_PIXELS',
-		(isset($GLOBALS['meta']['max_taille_vignettes']) and $GLOBALS['meta']['max_taille_vignettes'])
-			? $GLOBALS['meta']['max_taille_vignettes']
-			: 0);
-	}
-
-	if (!defined('_MEMORY_LIMIT_MIN')) {
-		define('_MEMORY_LIMIT_MIN', 16);
-	} // en Mo
-	// si on est dans l'espace prive et si le besoin est superieur a 8Mo (qui est vraiment le standard)
-	// on verifie que la memoire est suffisante pour le compactage css+js pour eviter la page blanche
-	// il y aura d'autres problemes et l'utilisateur n'ira pas tres loin, mais ce sera plus comprehensible qu'une page blanche
-	if (test_espace_prive() and _MEMORY_LIMIT_MIN > 8) {
-		if ($memory = trim(ini_get('memory_limit')) and $memory != -1) {
-			$unit = strtolower(substr($memory, -1));
-			$memory = substr($memory, 0, -1);
-			switch ($unit) {
-				// Le modifieur 'G' est disponible depuis PHP 5.1.0
-				case 'g':
-					$memory *= 1024;
-				case 'm':
-					$memory *= 1024;
-				case 'k':
-					$memory *= 1024;
-			}
-			if ($memory < _MEMORY_LIMIT_MIN * 1024 * 1024) {
-				@ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN . 'M');
-				if (trim(ini_get('memory_limit')) != $m) {
-					if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
-						define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
-					} // evite une page blanche car on ne saura pas calculer la css dans ce hit
-				}
-			}
-		} else {
-			if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
-				define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
-			}
-		} // evite une page blanche car on ne saura pas calculer la css dans ce hit
-	}
-	// Protocoles a normaliser dans les chaines de langues
-	if (!defined('_PROTOCOLES_STD')) {
-		define('_PROTOCOLES_STD', 'http|https|ftp|mailto|webcal');
-	}
-
-	init_var_mode();
+    static $too_late = 0;
+    if ($too_late++) {
+        return;
+    }
+
+    // taille mini des login
+    if (!defined('_LOGIN_TROP_COURT')) {
+        define('_LOGIN_TROP_COURT', 4);
+    }
+
+    // la taille maxi des logos (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
+    #if (!defined('_LOGO_MAX_SIZE')) define('_LOGO_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_LOGO_MAX_WIDTH')) define('_LOGO_MAX_WIDTH', 0); # largeur en pixels
+    #if (!defined('_LOGO_MAX_HEIGHT')) define('_LOGO_MAX_HEIGHT', 0); # hauteur en pixels
+
+    // la taille maxi des images (0 : pas de limite) (pas de define par defaut, ce n'est pas utile)
+    #if (!defined('_DOC_MAX_SIZE')) define('_DOC_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_IMG_MAX_SIZE')) define('_IMG_MAX_SIZE', 0); # poids en ko
+    #if (!defined('_IMG_MAX_WIDTH')) define('_IMG_MAX_WIDTH', 0); # largeur en pixels
+    #if (!defined('_IMG_MAX_HEIGHT')) define('_IMG_MAX_HEIGHT', 0); # hauteur en pixels
+
+    if (!defined('_PASS_LONGUEUR_MINI')) {
+        define('_PASS_LONGUEUR_MINI', 6);
+    }
+
+
+    // Qualite des images calculees automatiquement. C'est un nombre entre 0 et 100, meme pour imagick (on ramene a 0..1 par la suite)
+    if (!defined('_IMG_QUALITE')) {
+        define('_IMG_QUALITE', 85);
+    } # valeur par defaut
+    if (!defined('_IMG_GD_QUALITE')) {
+        define('_IMG_GD_QUALITE', _IMG_QUALITE);
+    } # surcharge pour la lib GD
+    if (!defined('_IMG_CONVERT_QUALITE')) {
+        define('_IMG_CONVERT_QUALITE', _IMG_QUALITE);
+    } # surcharge pour imagick en ligne de commande
+    // Historiquement la valeur pour imagick semble differente. Si ca n'est pas necessaire, il serait preferable de garder _IMG_QUALITE
+    if (!defined('_IMG_IMAGICK_QUALITE')) {
+        define('_IMG_IMAGICK_QUALITE', 75);
+    } # surcharge pour imagick en PHP
+
+    if (!defined('_COPIE_LOCALE_MAX_SIZE')) {
+        define('_COPIE_LOCALE_MAX_SIZE', 33554432);
+    } // poids en octet
+
+    // qq chaines standard
+    if (!defined('_ACCESS_FILE_NAME')) {
+        define('_ACCESS_FILE_NAME', '.htaccess');
+    }
+    if (!defined('_AUTH_USER_FILE')) {
+        define('_AUTH_USER_FILE', '.htpasswd');
+    }
+    if (!defined('_SPIP_DUMP')) {
+        define('_SPIP_DUMP', 'dump@nom_site@@stamp@.xml');
+    }
+    if (!defined('_CACHE_RUBRIQUES')) {
+        /** Fichier cache pour le navigateur de rubrique du bandeau */
+        define('_CACHE_RUBRIQUES', _DIR_TMP . 'menu-rubriques-cache.txt');
+    }
+    if (!defined('_CACHE_RUBRIQUES_MAX')) {
+        /** Nombre maxi de rubriques enfants affichées pour chaque rubrique du navigateur de rubrique du bandeau */
+        define('_CACHE_RUBRIQUES_MAX', 500);
+    }
+
+    if (!defined('_EXTENSION_SQUELETTES')) {
+        define('_EXTENSION_SQUELETTES', 'html');
+    }
+
+    if (!defined('_DOCTYPE_ECRIRE')) {
+        /** Définit le doctype de l’espace privé */
+        define('_DOCTYPE_ECRIRE', "<!DOCTYPE html>\n");
+    }
+    if (!defined('_DOCTYPE_AIDE')) {
+        /** Définit le doctype de l’aide en ligne */
+        define('_DOCTYPE_AIDE',
+        "<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Frameset//EN' 'http://www.w3.org/TR/1999/REC-html401-19991224/frameset.dtd'>");
+    }
+
+    if (!defined('_SPIP_SCRIPT')) {
+        /** L'adresse de base du site ; on peut mettre '' si la racine est gerée par
+         * le script de l'espace public, alias index.php */
+        define('_SPIP_SCRIPT', 'spip.php');
+    }
+    if (!defined('_SPIP_PAGE')) {
+        /** Argument page, personalisable en cas de conflit avec un autre script */
+        define('_SPIP_PAGE', 'page');
+    }
+
+    // le script de l'espace prive
+    // Mettre a "index.php" si DirectoryIndex ne le fait pas ou pb connexes:
+    // les anciens IIS n'acceptent pas les POST sur ecrire/ (#419)
+    // meme pb sur thttpd cf. https://forum.spip.net/fr_184153.html
+    if (!defined('_SPIP_ECRIRE_SCRIPT')) {
+        if (!empty($_SERVER['SERVER_SOFTWARE']) and preg_match(',IIS|thttpd,', $_SERVER['SERVER_SOFTWARE'])) {
+            define('_SPIP_ECRIRE_SCRIPT', 'index.php');
+        } else {
+            define('_SPIP_ECRIRE_SCRIPT', '');
+        }
+    }
+
+
+    if (!defined('_SPIP_AJAX')) {
+        define('_SPIP_AJAX', ((!isset($_COOKIE['spip_accepte_ajax']))
+            ? 1
+            : (($_COOKIE['spip_accepte_ajax'] != -1) ? 1 : 0)));
+    }
+
+    // La requete est-elle en ajax ?
+    if (!defined('_AJAX')) {
+        define('_AJAX',
+            (isset($_SERVER['HTTP_X_REQUESTED_WITH']) # ajax jQuery
+                or !empty($_REQUEST['var_ajax_redir']) # redirection 302 apres ajax jQuery
+                or !empty($_REQUEST['var_ajaxcharset']) # compat ascendante pour plugins
+                or !empty($_REQUEST['var_ajax']) # forms ajax & inclure ajax de spip
+            )
+            and empty($_REQUEST['var_noajax']) # horrible exception, car c'est pas parce que la requete est ajax jquery qu'il faut tuer tous les formulaires ajax qu'elle contient
+        );
+    }
+
+    # nombre de pixels maxi pour calcul de la vignette avec gd
+    # au dela de 5500000 on considere que php n'est pas limite en memoire pour cette operation
+    # les configurations limitees en memoire ont un seuil plutot vers 1MPixel
+    if (!defined('_IMG_GD_MAX_PIXELS')) {
+        define('_IMG_GD_MAX_PIXELS',
+        (isset($GLOBALS['meta']['max_taille_vignettes']) and $GLOBALS['meta']['max_taille_vignettes'])
+            ? $GLOBALS['meta']['max_taille_vignettes']
+            : 0);
+    }
+
+    if (!defined('_MEMORY_LIMIT_MIN')) {
+        define('_MEMORY_LIMIT_MIN', 16);
+    } // en Mo
+    // si on est dans l'espace prive et si le besoin est superieur a 8Mo (qui est vraiment le standard)
+    // on verifie que la memoire est suffisante pour le compactage css+js pour eviter la page blanche
+    // il y aura d'autres problemes et l'utilisateur n'ira pas tres loin, mais ce sera plus comprehensible qu'une page blanche
+    if (test_espace_prive() and _MEMORY_LIMIT_MIN > 8) {
+        if ($memory = trim(ini_get('memory_limit')) and $memory != -1) {
+            $unit = strtolower(substr($memory, -1));
+            $memory = substr($memory, 0, -1);
+            switch ($unit) {
+                // Le modifieur 'G' est disponible depuis PHP 5.1.0
+                case 'g':
+                    $memory *= 1024;
+                case 'm':
+                    $memory *= 1024;
+                case 'k':
+                    $memory *= 1024;
+            }
+            if ($memory < _MEMORY_LIMIT_MIN * 1024 * 1024) {
+                @ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN . 'M');
+                if (trim(ini_get('memory_limit')) != $m) {
+                    if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
+                        define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
+                    } // evite une page blanche car on ne saura pas calculer la css dans ce hit
+                }
+            }
+        } else {
+            if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
+                define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
+            }
+        } // evite une page blanche car on ne saura pas calculer la css dans ce hit
+    }
+    // Protocoles a normaliser dans les chaines de langues
+    if (!defined('_PROTOCOLES_STD')) {
+        define('_PROTOCOLES_STD', 'http|https|ftp|mailto|webcal');
+    }
+
+    init_var_mode();
 }
 
 /**
@@ -2822,129 +2821,129 @@ 
  * `   var_mode` (calcul ou recalcul).
  */
 function init_var_mode() {
-	static $done = false;
-	if (!$done) {
-
-		if (isset($_GET['var_mode'])) {
-			$var_mode = explode(',', $_GET['var_mode']);
-			// tout le monde peut calcul/recalcul
-			if (!defined('_VAR_MODE')) {
-				if (in_array('recalcul', $var_mode)) {
-					define('_VAR_MODE', 'recalcul');
-				} elseif (in_array('calcul', $var_mode)) {
-					define('_VAR_MODE', 'calcul');
-				}
-			}
-			$var_mode = array_diff($var_mode, array('calcul', 'recalcul'));
-			if ($var_mode) {
-				include_spip('inc/autoriser');
-				// autoriser preview si preview seulement, et sinon autoriser debug
-				if (autoriser(
-					($_GET['var_mode'] == 'preview')
-						? 'previsualiser'
-						: 'debug'
-				)) {
-					if (in_array('traduction', $var_mode)) {
-						// forcer le calcul pour passer dans traduire
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// et ne pas enregistrer de cache pour ne pas trainer les surlignages sur d'autres pages
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, array('traduction'));
-					}
-					if (in_array('preview', $var_mode)) {
-						// basculer sur les criteres de preview dans les boucles
-						if (!defined('_VAR_PREVIEW')) {
-							define('_VAR_PREVIEW', true);
-						}
-						// forcer le calcul
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, array('preview'));
-					}
-					if (in_array('inclure', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						if (!defined('_VAR_INCLURE')) {
-							define('_VAR_INCLURE', true);
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, array('inclure'));
-					}
-					if (in_array('urls', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						if (!defined('_VAR_URLS')) {
-							define('_VAR_URLS', true);
-						}
-						$var_mode = array_diff($var_mode, array('urls'));
-					}
-					if (in_array('images', $var_mode)) {
-						// forcer le compilo et ignorer les caches existants
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'calcul');
-						}
-						// indiquer qu'on doit recalculer les images
-						if (!defined('_VAR_IMAGES')) {
-							define('_VAR_IMAGES', true);
-						}
-						$var_mode = array_diff($var_mode, array('images'));
-					}
-					if (in_array('debug', $var_mode)) {
-						if (!defined('_VAR_MODE')) {
-							define('_VAR_MODE', 'debug');
-						}
-						// et ne pas enregistrer de cache
-						if (!defined('_VAR_NOCACHE')) {
-							define('_VAR_NOCACHE', true);
-						}
-						$var_mode = array_diff($var_mode, array('debug'));
-					}
-					if (count($var_mode) and !defined('_VAR_MODE')) {
-						define('_VAR_MODE', reset($var_mode));
-					}
-					if (isset($GLOBALS['visiteur_session']['nom'])) {
-						spip_log($GLOBALS['visiteur_session']['nom']
-							. " " . _VAR_MODE);
-					}
-				} // pas autorise ?
-				else {
-					// si on n'est pas connecte on se redirige
-					if (!$GLOBALS['visiteur_session']) {
-						include_spip('inc/headers');
-						redirige_par_entete(generer_url_public('login',
-							'url=' . rawurlencode(
-								parametre_url(self(), 'var_mode', $_GET['var_mode'], '&')
-							), true));
-					}
-					// sinon tant pis
-				}
-			}
-		}
-		if (!defined('_VAR_MODE')) {
-			/**
-			 * Indique le mode de calcul ou d'affichage de la page.
-			 * @see init_var_mode()
-			 */
-			define('_VAR_MODE', false);
-		}
-		$done = true;
-	}
+    static $done = false;
+    if (!$done) {
+
+        if (isset($_GET['var_mode'])) {
+            $var_mode = explode(',', $_GET['var_mode']);
+            // tout le monde peut calcul/recalcul
+            if (!defined('_VAR_MODE')) {
+                if (in_array('recalcul', $var_mode)) {
+                    define('_VAR_MODE', 'recalcul');
+                } elseif (in_array('calcul', $var_mode)) {
+                    define('_VAR_MODE', 'calcul');
+                }
+            }
+            $var_mode = array_diff($var_mode, array('calcul', 'recalcul'));
+            if ($var_mode) {
+                include_spip('inc/autoriser');
+                // autoriser preview si preview seulement, et sinon autoriser debug
+                if (autoriser(
+                    ($_GET['var_mode'] == 'preview')
+                        ? 'previsualiser'
+                        : 'debug'
+                )) {
+                    if (in_array('traduction', $var_mode)) {
+                        // forcer le calcul pour passer dans traduire
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // et ne pas enregistrer de cache pour ne pas trainer les surlignages sur d'autres pages
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('traduction'));
+                    }
+                    if (in_array('preview', $var_mode)) {
+                        // basculer sur les criteres de preview dans les boucles
+                        if (!defined('_VAR_PREVIEW')) {
+                            define('_VAR_PREVIEW', true);
+                        }
+                        // forcer le calcul
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('preview'));
+                    }
+                    if (in_array('inclure', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        if (!defined('_VAR_INCLURE')) {
+                            define('_VAR_INCLURE', true);
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('inclure'));
+                    }
+                    if (in_array('urls', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        if (!defined('_VAR_URLS')) {
+                            define('_VAR_URLS', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('urls'));
+                    }
+                    if (in_array('images', $var_mode)) {
+                        // forcer le compilo et ignorer les caches existants
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'calcul');
+                        }
+                        // indiquer qu'on doit recalculer les images
+                        if (!defined('_VAR_IMAGES')) {
+                            define('_VAR_IMAGES', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('images'));
+                    }
+                    if (in_array('debug', $var_mode)) {
+                        if (!defined('_VAR_MODE')) {
+                            define('_VAR_MODE', 'debug');
+                        }
+                        // et ne pas enregistrer de cache
+                        if (!defined('_VAR_NOCACHE')) {
+                            define('_VAR_NOCACHE', true);
+                        }
+                        $var_mode = array_diff($var_mode, array('debug'));
+                    }
+                    if (count($var_mode) and !defined('_VAR_MODE')) {
+                        define('_VAR_MODE', reset($var_mode));
+                    }
+                    if (isset($GLOBALS['visiteur_session']['nom'])) {
+                        spip_log($GLOBALS['visiteur_session']['nom']
+                            . " " . _VAR_MODE);
+                    }
+                } // pas autorise ?
+                else {
+                    // si on n'est pas connecte on se redirige
+                    if (!$GLOBALS['visiteur_session']) {
+                        include_spip('inc/headers');
+                        redirige_par_entete(generer_url_public('login',
+                            'url=' . rawurlencode(
+                                parametre_url(self(), 'var_mode', $_GET['var_mode'], '&')
+                            ), true));
+                    }
+                    // sinon tant pis
+                }
+            }
+        }
+        if (!defined('_VAR_MODE')) {
+            /**
+             * Indique le mode de calcul ou d'affichage de la page.
+             * @see init_var_mode()
+             */
+            define('_VAR_MODE', false);
+        }
+        $done = true;
+    }
 }
 
 // Annuler les magic quotes \' sur GET POST COOKIE et GLOBALS ;
@@ -2952,85 +2951,85 @@ 
 // la commande is_readable('chemin/vers/fichier/interdit%00truc_normal')
 // https://code.spip.net/@spip_desinfecte
 function spip_desinfecte(&$t, $deep = true) {
-	foreach ($t as $key => $val) {
-		if (is_string($t[$key])) {
-			$t[$key] = str_replace(chr(0), '-', $t[$key]);
-		} // traiter aussi les "texte_plus" de article_edit
-		else {
-			if ($deep and is_array($t[$key]) and $key !== 'GLOBALS') {
-				spip_desinfecte($t[$key], $deep);
-			}
-		}
-	}
+    foreach ($t as $key => $val) {
+        if (is_string($t[$key])) {
+            $t[$key] = str_replace(chr(0), '-', $t[$key]);
+        } // traiter aussi les "texte_plus" de article_edit
+        else {
+            if ($deep and is_array($t[$key]) and $key !== 'GLOBALS') {
+                spip_desinfecte($t[$key], $deep);
+            }
+        }
+    }
 }
 
 //  retourne le statut du visiteur s'il s'annonce
 
 // https://code.spip.net/@verifier_visiteur
 function verifier_visiteur() {
-	// Rq: pour que cette fonction marche depuis mes_options
-	// il faut forcer l'init si ce n'est fait
-	// mais on risque de perturber des plugins en initialisant trop tot
-	// certaines constantes
-	@spip_initialisation_core(
-		(_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
-	);
-
-	// Demarrer une session NON AUTHENTIFIEE si on donne son nom
-	// dans un formulaire sans login (ex: #FORMULAIRE_FORUM)
-	// Attention on separe bien session_nom et nom, pour eviter
-	// les melanges entre donnees SQL et variables plus aleatoires
-	$variables_session = array('session_nom', 'session_email');
-	foreach ($variables_session as $var) {
-		if (_request($var) !== null) {
-			$init = true;
-			break;
-		}
-	}
-	if (isset($init)) {
-		#@spip_initialisation_suite();
-		$session = charger_fonction('session', 'inc');
-		$session();
-		include_spip('inc/texte');
-		foreach ($variables_session as $var) {
-			if (($a = _request($var)) !== null) {
-				$GLOBALS['visiteur_session'][$var] = safehtml($a);
-			}
-		}
-		if (!isset($GLOBALS['visiteur_session']['id_auteur'])) {
-			$GLOBALS['visiteur_session']['id_auteur'] = 0;
-		}
-		$session($GLOBALS['visiteur_session']);
-
-		return 0;
-	}
-
-	$h = (isset($_SERVER['PHP_AUTH_USER']) and !$GLOBALS['ignore_auth_http']);
-	if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'] . '_session'])) {
-
-		$session = charger_fonction('session', 'inc');
-		if ($session()) {
-			return $GLOBALS['visiteur_session']['statut'];
-		}
-		if ($h and isset($_SERVER['PHP_AUTH_PW'])) {
-			include_spip('inc/auth');
-			$h = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW']);
-		}
-		if ($h) {
-			$GLOBALS['visiteur_session'] = $h;
-
-			return $GLOBALS['visiteur_session']['statut'];
-		}
-	}
-
-	// au moins son navigateur nous dit la langue preferee de cet inconnu
-	include_spip('inc/lang');
-	utiliser_langue_visiteur();
-
-	return false;
+    // Rq: pour que cette fonction marche depuis mes_options
+    // il faut forcer l'init si ce n'est fait
+    // mais on risque de perturber des plugins en initialisant trop tot
+    // certaines constantes
+    @spip_initialisation_core(
+        (_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
+        (_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
+        (_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
+        (_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
+    );
+
+    // Demarrer une session NON AUTHENTIFIEE si on donne son nom
+    // dans un formulaire sans login (ex: #FORMULAIRE_FORUM)
+    // Attention on separe bien session_nom et nom, pour eviter
+    // les melanges entre donnees SQL et variables plus aleatoires
+    $variables_session = array('session_nom', 'session_email');
+    foreach ($variables_session as $var) {
+        if (_request($var) !== null) {
+            $init = true;
+            break;
+        }
+    }
+    if (isset($init)) {
+        #@spip_initialisation_suite();
+        $session = charger_fonction('session', 'inc');
+        $session();
+        include_spip('inc/texte');
+        foreach ($variables_session as $var) {
+            if (($a = _request($var)) !== null) {
+                $GLOBALS['visiteur_session'][$var] = safehtml($a);
+            }
+        }
+        if (!isset($GLOBALS['visiteur_session']['id_auteur'])) {
+            $GLOBALS['visiteur_session']['id_auteur'] = 0;
+        }
+        $session($GLOBALS['visiteur_session']);
+
+        return 0;
+    }
+
+    $h = (isset($_SERVER['PHP_AUTH_USER']) and !$GLOBALS['ignore_auth_http']);
+    if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'] . '_session'])) {
+
+        $session = charger_fonction('session', 'inc');
+        if ($session()) {
+            return $GLOBALS['visiteur_session']['statut'];
+        }
+        if ($h and isset($_SERVER['PHP_AUTH_PW'])) {
+            include_spip('inc/auth');
+            $h = lire_php_auth($_SERVER['PHP_AUTH_USER'], $_SERVER['PHP_AUTH_PW']);
+        }
+        if ($h) {
+            $GLOBALS['visiteur_session'] = $h;
+
+            return $GLOBALS['visiteur_session']['statut'];
+        }
+    }
+
+    // au moins son navigateur nous dit la langue preferee de cet inconnu
+    include_spip('inc/lang');
+    utiliser_langue_visiteur();
+
+    return false;
 }
 
 
@@ -3053,21 +3052,21 @@ 
  *     - string Langue utilisée.
  **/
 function lang_select($lang = null) {
-	static $pile_langues = array();
-	if (!function_exists('changer_langue')) {
-		include_spip('inc/lang');
-	}
-	if ($lang === null) {
-		$lang = array_pop($pile_langues);
-	} else {
-		array_push($pile_langues, $GLOBALS['spip_lang']);
-	}
-	if (isset($GLOBALS['spip_lang']) and $lang == $GLOBALS['spip_lang']) {
-		return $lang;
-	}
-	changer_langue($lang);
+    static $pile_langues = array();
+    if (!function_exists('changer_langue')) {
+        include_spip('inc/lang');
+    }
+    if ($lang === null) {
+        $lang = array_pop($pile_langues);
+    } else {
+        array_push($pile_langues, $GLOBALS['spip_lang']);
+    }
+    if (isset($GLOBALS['spip_lang']) and $lang == $GLOBALS['spip_lang']) {
+        return $lang;
+    }
+    changer_langue($lang);
 
-	return $lang;
+    return $lang;
 }
 
 /**
@@ -3084,19 +3083,19 @@ 
  *     Identifiant de la session
  **/
 function spip_session($force = false) {
-	static $session;
-	if ($force or !isset($session)) {
-		$s = pipeline('definir_session',
-			$GLOBALS['visiteur_session']
-				? serialize($GLOBALS['visiteur_session'])
-				. '_' . @$_COOKIE['spip_session']
-				: ''
-		);
-		$session = $s ? substr(md5($s), 0, 8) : '';
-	}
+    static $session;
+    if ($force or !isset($session)) {
+        $s = pipeline('definir_session',
+            $GLOBALS['visiteur_session']
+                ? serialize($GLOBALS['visiteur_session'])
+                . '_' . @$_COOKIE['spip_session']
+                : ''
+        );
+        $session = $s ? substr(md5($s), 0, 8) : '';
+    }
 
-	#spip_log('session: '.$session);
-	return $session;
+    #spip_log('session: '.$session);
+    return $session;
 }
 
 
@@ -3115,9 +3114,9 @@ 
  *    Lien sur une icone d'aide
  **/
 function aider($aide = '', $distante = false) {
-	$aider = charger_fonction('aide', 'inc', true);
+    $aider = charger_fonction('aide', 'inc', true);
 
-	return $aider ? $aider($aide, '', array(), $distante) : '';
+    return $aider ? $aider($aide, '', array(), $distante) : '';
 }
 
 /**
@@ -3127,24 +3126,24 @@ 
  */
 function exec_info_dist() {
 
-	include_spip('inc/autoriser');
-	if (autoriser('webmestre')) {
-		$cookies_masques = ['spip_session', 'PHPSESSID'];
-		$cookies_backup = [];
-		foreach ($cookies_masques as $k) {
-			if (!empty($_COOKIE[$k])) {
-				$cookies_backup[$k] = $_COOKIE[$k];
-				$_COOKIE[$k] = '******************************';
-			}
-		}
-		phpinfo();
-		foreach ($cookies_backup as $k => $v) {
-			$_COOKIE[$k] = $v;
-		}
-	} else {
-		include_spip('inc/filtres');
-		sinon_interdire_acces();
-	}
+    include_spip('inc/autoriser');
+    if (autoriser('webmestre')) {
+        $cookies_masques = ['spip_session', 'PHPSESSID'];
+        $cookies_backup = [];
+        foreach ($cookies_masques as $k) {
+            if (!empty($_COOKIE[$k])) {
+                $cookies_backup[$k] = $_COOKIE[$k];
+                $_COOKIE[$k] = '******************************';
+            }
+        }
+        phpinfo();
+        foreach ($cookies_backup as $k => $v) {
+            $_COOKIE[$k] = $v;
+        }
+    } else {
+        include_spip('inc/filtres');
+        sinon_interdire_acces();
+    }
 }
 
 /**
@@ -3164,13 +3163,13 @@ 
  *     - string si $message à false.
  **/
 function erreur_squelette($message = '', $lieu = '') {
-	$debusquer = charger_fonction('debusquer', 'public');
-	if (is_array($lieu)) {
-		include_spip('public/compiler');
-		$lieu = reconstruire_contexte_compil($lieu);
-	}
+    $debusquer = charger_fonction('debusquer', 'public');
+    if (is_array($lieu)) {
+        include_spip('public/compiler');
+        $lieu = reconstruire_contexte_compil($lieu);
+    }
 
-	return $debusquer($message, $lieu);
+    return $debusquer($message, $lieu);
 }
 
 /**
@@ -3207,109 +3206,109 @@ 
  *     - ou tableau d'information sur le squelette.
  */
 function recuperer_fond($fond, $contexte = array(), $options = array(), $connect = '') {
-	if (!function_exists('evaluer_fond')) {
-		include_spip('public/assembler');
-	}
-	// assurer la compat avec l'ancienne syntaxe
-	// (trim etait le 3eme argument, par defaut a true)
-	if (!is_array($options)) {
-		$options = array('trim' => $options);
-	}
-	if (!isset($options['trim'])) {
-		$options['trim'] = true;
-	}
-
-	if (isset($contexte['connect'])) {
-		$connect = $contexte['connect'];
-		unset($contexte['connect']);
-	}
-
-	$texte = "";
-	$pages = array();
-	$lang_select = '';
-	if (!isset($options['etoile']) or !$options['etoile']) {
-		// Si on a inclus sans fixer le critere de lang, on prend la langue courante
-		if (!isset($contexte['lang'])) {
-			$contexte['lang'] = $GLOBALS['spip_lang'];
-		}
-
-		if ($contexte['lang'] != $GLOBALS['meta']['langue_site']) {
-			$lang_select = lang_select($contexte['lang']);
-		}
-	}
-
-	if (!isset($GLOBALS['_INC_PUBLIC'])) {
-		$GLOBALS['_INC_PUBLIC'] = 0;
-	}
-
-	$GLOBALS['_INC_PUBLIC']++;
-
-	// fix #4235
-	$cache_utilise_session_appelant	= (isset($GLOBALS['cache_utilise_session']) ? $GLOBALS['cache_utilise_session'] : null);
-
-
-	foreach (is_array($fond) ? $fond : array($fond) as $f) {
+    if (!function_exists('evaluer_fond')) {
+        include_spip('public/assembler');
+    }
+    // assurer la compat avec l'ancienne syntaxe
+    // (trim etait le 3eme argument, par defaut a true)
+    if (!is_array($options)) {
+        $options = array('trim' => $options);
+    }
+    if (!isset($options['trim'])) {
+        $options['trim'] = true;
+    }
+
+    if (isset($contexte['connect'])) {
+        $connect = $contexte['connect'];
+        unset($contexte['connect']);
+    }
+
+    $texte = "";
+    $pages = array();
+    $lang_select = '';
+    if (!isset($options['etoile']) or !$options['etoile']) {
+        // Si on a inclus sans fixer le critere de lang, on prend la langue courante
+        if (!isset($contexte['lang'])) {
+            $contexte['lang'] = $GLOBALS['spip_lang'];
+        }
+
+        if ($contexte['lang'] != $GLOBALS['meta']['langue_site']) {
+            $lang_select = lang_select($contexte['lang']);
+        }
+    }
+
+    if (!isset($GLOBALS['_INC_PUBLIC'])) {
+        $GLOBALS['_INC_PUBLIC'] = 0;
+    }
+
+    $GLOBALS['_INC_PUBLIC']++;
+
+    // fix #4235
+    $cache_utilise_session_appelant	= (isset($GLOBALS['cache_utilise_session']) ? $GLOBALS['cache_utilise_session'] : null);
+
+
+    foreach (is_array($fond) ? $fond : array($fond) as $f) {
 		
-		unset($GLOBALS['cache_utilise_session']);	// fix #4235
-
-		$page = evaluer_fond($f, $contexte, $connect);
-		if ($page === '') {
-			$c = isset($options['compil']) ? $options['compil'] : '';
-			$a = array('fichier' => $f);
-			$erreur = _T('info_erreur_squelette2', $a); // squelette introuvable
-			erreur_squelette($erreur, $c);
-			// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-			$page = array('texte' => '', 'erreur' => $erreur);
-		}
-
-		$page = pipeline('recuperer_fond', array(
-			'args' => array('fond' => $f, 'contexte' => $contexte, 'options' => $options, 'connect' => $connect),
-			'data' => $page
-		));
-		if (isset($options['ajax']) and $options['ajax']) {
-			if (!function_exists('encoder_contexte_ajax')) {
-				include_spip('inc/filtres');
-			}
-			$page['texte'] = encoder_contexte_ajax(
-				array_merge(
-					$contexte,
-					array('fond' => $f),
-					($connect ? array('connect' => $connect) : array())
-				),
-				'',
-				$page['texte'],
-				$options['ajax']
-			);
-		}
-
-		if (isset($options['raw']) and $options['raw']) {
-			$pages[] = $page;
-		} else {
-			$texte .= $options['trim'] ? rtrim($page['texte']) : $page['texte'];
-		}
+        unset($GLOBALS['cache_utilise_session']);	// fix #4235
+
+        $page = evaluer_fond($f, $contexte, $connect);
+        if ($page === '') {
+            $c = isset($options['compil']) ? $options['compil'] : '';
+            $a = array('fichier' => $f);
+            $erreur = _T('info_erreur_squelette2', $a); // squelette introuvable
+            erreur_squelette($erreur, $c);
+            // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+            $page = array('texte' => '', 'erreur' => $erreur);
+        }
+
+        $page = pipeline('recuperer_fond', array(
+            'args' => array('fond' => $f, 'contexte' => $contexte, 'options' => $options, 'connect' => $connect),
+            'data' => $page
+        ));
+        if (isset($options['ajax']) and $options['ajax']) {
+            if (!function_exists('encoder_contexte_ajax')) {
+                include_spip('inc/filtres');
+            }
+            $page['texte'] = encoder_contexte_ajax(
+                array_merge(
+                    $contexte,
+                    array('fond' => $f),
+                    ($connect ? array('connect' => $connect) : array())
+                ),
+                '',
+                $page['texte'],
+                $options['ajax']
+            );
+        }
+
+        if (isset($options['raw']) and $options['raw']) {
+            $pages[] = $page;
+        } else {
+            $texte .= $options['trim'] ? rtrim($page['texte']) : $page['texte'];
+        }
 		
-		// contamination de la session appelante, pour les inclusions statiques
-		if (isset($page['invalideurs']['session'])){
-			$cache_utilise_session_appelant = $page['invalideurs']['session'];
-		}
-	}
+        // contamination de la session appelante, pour les inclusions statiques
+        if (isset($page['invalideurs']['session'])){
+            $cache_utilise_session_appelant = $page['invalideurs']['session'];
+        }
+    }
 
-	// restaurer le sessionnement du contexte appelant, 
-	// éventuellement contaminé si on vient de récupérer une inclusion statique sessionnée
-	if (isset($cache_utilise_session_appelant)) {
-		$GLOBALS['cache_utilise_session'] = $cache_utilise_session_appelant;
-	}
+    // restaurer le sessionnement du contexte appelant, 
+    // éventuellement contaminé si on vient de récupérer une inclusion statique sessionnée
+    if (isset($cache_utilise_session_appelant)) {
+        $GLOBALS['cache_utilise_session'] = $cache_utilise_session_appelant;
+    }
 
-	$GLOBALS['_INC_PUBLIC']--;
+    $GLOBALS['_INC_PUBLIC']--;
 
-	if ($lang_select) {
-		lang_select();
-	}
-	if (isset($options['raw']) and $options['raw']) {
-		return is_array($fond) ? $pages : reset($pages);
-	} else {
-		return $options['trim'] ? ltrim($texte) : $texte;
-	}
+    if ($lang_select) {
+        lang_select();
+    }
+    if (isset($options['raw']) and $options['raw']) {
+        return is_array($fond) ? $pages : reset($pages);
+    } else {
+        return $options['trim'] ? ltrim($texte) : $texte;
+    }
 }
 
 /**
@@ -3319,7 +3318,7 @@ 
  * @return string
  */
 function trouve_modele($nom) {
-	return trouver_fond($nom, 'modeles/');
+    return trouver_fond($nom, 'modeles/');
 }
 
 /**
@@ -3335,21 +3334,21 @@ 
  * @return array|string
  */
 function trouver_fond($nom, $dir = '', $pathinfo = false) {
-	$f = find_in_path($nom . '.' . _EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/') . '/' : '');
-	if (!$pathinfo) {
-		return $f;
-	}
-	// renvoyer un tableau detaille si $pathinfo==true
-	$p = pathinfo($f);
-	if (!isset($p['extension']) or !$p['extension']) {
-		$p['extension'] = _EXTENSION_SQUELETTES;
-	}
-	if (!isset($p['extension']) or !$p['filename']) {
-		$p['filename'] = ($p['basename'] ? substr($p['basename'], 0, -strlen($p['extension']) - 1) : '');
-	}
-	$p['fond'] = ($f ? substr($f, 0, -strlen($p['extension']) - 1) : '');
+    $f = find_in_path($nom . '.' . _EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/') . '/' : '');
+    if (!$pathinfo) {
+        return $f;
+    }
+    // renvoyer un tableau detaille si $pathinfo==true
+    $p = pathinfo($f);
+    if (!isset($p['extension']) or !$p['extension']) {
+        $p['extension'] = _EXTENSION_SQUELETTES;
+    }
+    if (!isset($p['extension']) or !$p['filename']) {
+        $p['filename'] = ($p['basename'] ? substr($p['basename'], 0, -strlen($p['extension']) - 1) : '');
+    }
+    $p['fond'] = ($f ? substr($f, 0, -strlen($p['extension']) - 1) : '');
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -3370,24 +3369,24 @@ 
  *     Nom de l'exec, sinon chaîne vide.
  **/
 function tester_url_ecrire($nom) {
-	static $exec = array();
-	if (isset($exec[$nom])) {
-		return $exec[$nom];
-	}
-	// tester si c'est une page en squelette
-	if (trouver_fond($nom, 'prive/squelettes/contenu/')) {
-		return $exec[$nom] = 'fond';
-	} // compat skels orthogonaux version precedente
-	elseif (trouver_fond($nom, 'prive/exec/')) {
-		return $exec[$nom] = 'fond_monobloc';
-	} // echafaudage d'un fond !
-	elseif (include_spip('public/styliser_par_z') and z_echafaudable($nom)) {
-		return $exec[$nom] = 'fond';
-	}
-	// attention, il ne faut pas inclure l'exec ici
-	// car sinon #URL_ECRIRE provoque des inclusions
-	// et des define intrusifs potentiels
-	return $exec[$nom] = ((find_in_path("{$nom}.php", 'exec/') or charger_fonction($nom, 'exec', true)) ? $nom : '');
+    static $exec = array();
+    if (isset($exec[$nom])) {
+        return $exec[$nom];
+    }
+    // tester si c'est une page en squelette
+    if (trouver_fond($nom, 'prive/squelettes/contenu/')) {
+        return $exec[$nom] = 'fond';
+    } // compat skels orthogonaux version precedente
+    elseif (trouver_fond($nom, 'prive/exec/')) {
+        return $exec[$nom] = 'fond_monobloc';
+    } // echafaudage d'un fond !
+    elseif (include_spip('public/styliser_par_z') and z_echafaudable($nom)) {
+        return $exec[$nom] = 'fond';
+    }
+    // attention, il ne faut pas inclure l'exec ici
+    // car sinon #URL_ECRIRE provoque des inclusions
+    // et des define intrusifs potentiels
+    return $exec[$nom] = ((find_in_path("{$nom}.php", 'exec/') or charger_fonction($nom, 'exec', true)) ? $nom : '');
 }
 
 
@@ -3403,10 +3402,10 @@ 
  * @return bool true si le module est chargé
  **/
 function charger_php_extension($module) {
-	if (extension_loaded($module)) {
-		return true;
-	}
-	return false;
+    if (extension_loaded($module)) {
+        return true;
+    }
+    return false;
 }
 
 
@@ -3417,8 +3416,8 @@ 
  *     true si et seulement si la configuration autorise le code HTML5 sur le site public
  **/
 function html5_permis() {
-	return (isset($GLOBALS['meta']['version_html_max'])
-		and ('html5' == $GLOBALS['meta']['version_html_max']));
+    return (isset($GLOBALS['meta']['version_html_max'])
+        and ('html5' == $GLOBALS['meta']['version_html_max']));
 }
 
 /**
@@ -3428,17 +3427,17 @@ 
  * @return array
  */
 function formats_image_acceptables($gd = false, $svg_allowed = true) {
-	$config = ($gd ? "gd_formats" : "formats_graphiques");
-	$formats = (isset($GLOBALS['meta'][$config]) ? $GLOBALS['meta'][$config] : 'png,gif,jpg');
-	$formats = explode(',', $formats);
-	$formats = array_filter($formats);
-	$formats = array_map('trim', $formats);
+    $config = ($gd ? "gd_formats" : "formats_graphiques");
+    $formats = (isset($GLOBALS['meta'][$config]) ? $GLOBALS['meta'][$config] : 'png,gif,jpg');
+    $formats = explode(',', $formats);
+    $formats = array_filter($formats);
+    $formats = array_map('trim', $formats);
 
-	if ($svg_allowed) {
-		$formats[] = 'svg';
-	}
+    if ($svg_allowed) {
+        $formats[] = 'svg';
+    }
 
-	return $formats;
+    return $formats;
 }
 
 /**
@@ -3447,21 +3446,21 @@ 
  * @return array|bool
  */
 function spip_getimagesize($fichier) {
-	if (!$imagesize = @getimagesize($fichier)) {
+    if (!$imagesize = @getimagesize($fichier)) {
 
-		include_spip("inc/svg");
-		if ($attrs = svg_lire_attributs($fichier)) {
-			list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
-			$imagesize = [
-				$width,
-				$height,
-				IMAGETYPE_SVG,
-				"width=\"{$width}\" height=\"{$height}\"",
-				"mime" => "image/svg+xml"
-			];
-		}
-	}
-	return $imagesize;
+        include_spip("inc/svg");
+        if ($attrs = svg_lire_attributs($fichier)) {
+            list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
+            $imagesize = [
+                $width,
+                $height,
+                IMAGETYPE_SVG,
+                "width=\"{$width}\" height=\"{$height}\"",
+                "mime" => "image/svg+xml"
+            ];
+        }
+    }
+    return $imagesize;
 }
 
 
@@ -3481,7 +3480,7 @@ 
  * @return mixed Valeur de la meta.
  **/
 function lire_meta($nom) {
-	return isset($GLOBALS['meta'][$nom]) ? $GLOBALS['meta'][$nom] : null;
+    return isset($GLOBALS['meta'][$nom]) ? $GLOBALS['meta'][$nom] : null;
 }
 
 
@@ -3503,130 +3502,130 @@ 
  * @param string $statut
  */
 function avertir_auteurs($nom, $message, $statut = '') {
-	$alertes = $GLOBALS['meta']['message_alertes_auteurs'];
-	if (!$alertes
-		or !is_array($alertes = unserialize($alertes))
-	) {
-		$alertes = array();
-	}
+    $alertes = $GLOBALS['meta']['message_alertes_auteurs'];
+    if (!$alertes
+        or !is_array($alertes = unserialize($alertes))
+    ) {
+        $alertes = array();
+    }
 
-	if (!isset($alertes[$statut])) {
-		$alertes[$statut] = array();
-	}
-	$alertes[$statut][$nom] = $message;
-	ecrire_meta("message_alertes_auteurs", serialize($alertes));
+    if (!isset($alertes[$statut])) {
+        $alertes[$statut] = array();
+    }
+    $alertes[$statut][$nom] = $message;
+    ecrire_meta("message_alertes_auteurs", serialize($alertes));
 }
 
 if (PHP_VERSION_ID < 50500) {
-	if (!function_exists('array_column')) {
-		/**
-		 * Returns the values from a single column of the input array, identified by
-		 * the $columnKey.
-		 *
-		 * Optionally, you may provide an $indexKey to index the values in the returned
-		 * array by the values from the $indexKey column in the input array.
-		 *
-		 * @link http://php.net/manual/fr/function.array-column.php
-		 * @link https://github.com/ramsey/array_column/blob/master/src/array_column.php
-		 * @copyright Copyright (c) Ben Ramsey (http://benramsey.com)
-		 * @license http://opensource.org/licenses/MIT MIT
-		 *
-		 * @param array $input A multi-dimensional array (record set) from which to pull
-		 *                     a column of values.
-		 * @param mixed $columnKey The column of values to return. This value may be the
-		 *                         integer key of the column you wish to retrieve, or it
-		 *                         may be the string key name for an associative array.
-		 * @param mixed $indexKey (Optional.) The column to use as the index/keys for
-		 *                        the returned array. This value may be the integer key
-		 *                        of the column, or it may be the string key name.
-		 * @return array
-		 */
-		function array_column($input = null, $columnKey = null, $indexKey = null)
-		{
-			// Using func_get_args() in order to check for proper number of
-			// parameters and trigger errors exactly as the built-in array_column()
-			// does in PHP 5.5.
-			$argc = func_num_args();
-			$params = func_get_args();
-
-			if ($argc < 2) {
-				trigger_error("array_column() expects at least 2 parameters, {$argc} given", E_USER_WARNING);
-				return null;
-			}
-
-			if (!is_array($params[0])) {
-				trigger_error(
-					'array_column() expects parameter 1 to be array, ' . gettype($params[0]) . ' given',
-					E_USER_WARNING
-				);
-				return null;
-			}
-
-			if (!is_int($params[1])
-				&& !is_float($params[1])
-				&& !is_string($params[1])
-				&& $params[1] !== null
-				&& !(is_object($params[1]) && method_exists($params[1], '__toString'))
-			) {
-				trigger_error('array_column(): The column key should be either a string or an integer', E_USER_WARNING);
-				return false;
-			}
-
-			if (isset($params[2])
-				&& !is_int($params[2])
-				&& !is_float($params[2])
-				&& !is_string($params[2])
-				&& !(is_object($params[2]) && method_exists($params[2], '__toString'))
-			) {
-				trigger_error('array_column(): The index key should be either a string or an integer', E_USER_WARNING);
-				return false;
-			}
-
-			$paramsInput = $params[0];
-			$paramsColumnKey = ($params[1] !== null) ? (string) $params[1] : null;
-
-			$paramsIndexKey = null;
-			if (isset($params[2])) {
-				if (is_float($params[2]) || is_int($params[2])) {
-					$paramsIndexKey = (int) $params[2];
-				} else {
-					$paramsIndexKey = (string) $params[2];
-				}
-			}
-
-			$resultArray = array();
-
-			foreach ($paramsInput as $row) {
-				$key = $value = null;
-				$keySet = $valueSet = false;
-
-				if ($paramsIndexKey !== null && array_key_exists($paramsIndexKey, $row)) {
-					$keySet = true;
-					$key = (string) $row[$paramsIndexKey];
-				}
-
-				if ($paramsColumnKey === null) {
-					$valueSet = true;
-					$value = $row;
-				} elseif (is_array($row) && array_key_exists($paramsColumnKey, $row)) {
-					$valueSet = true;
-					$value = $row[$paramsColumnKey];
-				}
-
-				if ($valueSet) {
-					if ($keySet) {
-						$resultArray[$key] = $value;
-					} else {
-						$resultArray[] = $value;
-					}
-				}
-
-			}
-
-			return $resultArray;
-		}
-
-	}
+    if (!function_exists('array_column')) {
+        /**
+         * Returns the values from a single column of the input array, identified by
+         * the $columnKey.
+         *
+         * Optionally, you may provide an $indexKey to index the values in the returned
+         * array by the values from the $indexKey column in the input array.
+         *
+         * @link http://php.net/manual/fr/function.array-column.php
+         * @link https://github.com/ramsey/array_column/blob/master/src/array_column.php
+         * @copyright Copyright (c) Ben Ramsey (http://benramsey.com)
+         * @license http://opensource.org/licenses/MIT MIT
+         *
+         * @param array $input A multi-dimensional array (record set) from which to pull
+         *                     a column of values.
+         * @param mixed $columnKey The column of values to return. This value may be the
+         *                         integer key of the column you wish to retrieve, or it
+         *                         may be the string key name for an associative array.
+         * @param mixed $indexKey (Optional.) The column to use as the index/keys for
+         *                        the returned array. This value may be the integer key
+         *                        of the column, or it may be the string key name.
+         * @return array
+         */
+        function array_column($input = null, $columnKey = null, $indexKey = null)
+        {
+            // Using func_get_args() in order to check for proper number of
+            // parameters and trigger errors exactly as the built-in array_column()
+            // does in PHP 5.5.
+            $argc = func_num_args();
+            $params = func_get_args();
+
+            if ($argc < 2) {
+                trigger_error("array_column() expects at least 2 parameters, {$argc} given", E_USER_WARNING);
+                return null;
+            }
+
+            if (!is_array($params[0])) {
+                trigger_error(
+                    'array_column() expects parameter 1 to be array, ' . gettype($params[0]) . ' given',
+                    E_USER_WARNING
+                );
+                return null;
+            }
+
+            if (!is_int($params[1])
+                && !is_float($params[1])
+                && !is_string($params[1])
+                && $params[1] !== null
+                && !(is_object($params[1]) && method_exists($params[1], '__toString'))
+            ) {
+                trigger_error('array_column(): The column key should be either a string or an integer', E_USER_WARNING);
+                return false;
+            }
+
+            if (isset($params[2])
+                && !is_int($params[2])
+                && !is_float($params[2])
+                && !is_string($params[2])
+                && !(is_object($params[2]) && method_exists($params[2], '__toString'))
+            ) {
+                trigger_error('array_column(): The index key should be either a string or an integer', E_USER_WARNING);
+                return false;
+            }
+
+            $paramsInput = $params[0];
+            $paramsColumnKey = ($params[1] !== null) ? (string) $params[1] : null;
+
+            $paramsIndexKey = null;
+            if (isset($params[2])) {
+                if (is_float($params[2]) || is_int($params[2])) {
+                    $paramsIndexKey = (int) $params[2];
+                } else {
+                    $paramsIndexKey = (string) $params[2];
+                }
+            }
+
+            $resultArray = array();
+
+            foreach ($paramsInput as $row) {
+                $key = $value = null;
+                $keySet = $valueSet = false;
+
+                if ($paramsIndexKey !== null && array_key_exists($paramsIndexKey, $row)) {
+                    $keySet = true;
+                    $key = (string) $row[$paramsIndexKey];
+                }
+
+                if ($paramsColumnKey === null) {
+                    $valueSet = true;
+                    $value = $row;
+                } elseif (is_array($row) && array_key_exists($paramsColumnKey, $row)) {
+                    $valueSet = true;
+                    $value = $row[$paramsColumnKey];
+                }
+
+                if ($valueSet) {
+                    if ($keySet) {
+                        $resultArray[$key] = $value;
+                    } else {
+                        $resultArray[] = $value;
+                    }
+                }
+
+            }
+
+            return $resultArray;
+        }
+
+    }
 }
 
 /**
@@ -3640,8 +3639,8 @@ 
  * @return string|string[]
  */
 function spip_sanitize_classname($classes) {
-	if (is_array($classes)) {
-		return array_map('spip_sanitize_classname', $classes);
-	}
-	return preg_replace("/[^ 0-9a-z_\-+@]/i", "", $classes);
+    if (is_array($classes)) {
+        return array_map('spip_sanitize_classname', $classes);
+    }
+    return preg_replace("/[^ 0-9a-z_\-+@]/i", "", $classes);
 }
\ No newline at end of file

Spacing +130 added lines, -132 removed lines

@@ -53,12 +53,12 @@ 
 	if (strlen($dossier) and substr($dossier, -1) != '/') {
 		$dossier .= '/';
 	}
-	$f = str_replace('/', '_', $dossier) . $nom;
+	$f = str_replace('/', '_', $dossier).$nom;
 
 	if (function_exists($f)) {
 		return $f;
 	}
-	if (function_exists($g = $f . '_dist')) {
+	if (function_exists($g = $f.'_dist')) {
 		return $g;
 	}
 
@@ -78,7 +78,7 @@ 
 
 	// passer en minuscules (cf les balises de formulaires)
 	// et inclure le fichier
-	if (!$inc = include_spip($dossier . ($d = strtolower($nom)))
+	if (!$inc = include_spip($dossier.($d = strtolower($nom)))
 		// si le fichier truc/machin/nom.php n'existe pas,
 		// la fonction peut etre definie dans truc/machin.php qui regroupe plusieurs petites fonctions
 		and strlen(dirname($dossier)) and dirname($dossier) != '.'
@@ -97,13 +97,13 @@ 
 	}
 
 	// Echec : message d'erreur
-	spip_log("fonction $nom ($f ou $g) indisponible" .
+	spip_log("fonction $nom ($f ou $g) indisponible".
 		($inc ? "" : " (fichier $d absent de $dossier)"));
 
 	include_spip('inc/minipres');
 	echo minipres(_T('forum_titre_erreur'),
-		_T('fichier_introuvable', array('fichier' => '<b>' . spip_htmlentities($d) . '</b>')),
-		array('all_inline'=>true,'status'=>404));
+		_T('fichier_introuvable', array('fichier' => '<b>'.spip_htmlentities($d).'</b>')),
+		array('all_inline'=>true, 'status'=>404));
 	exit;
 }
 
@@ -148,7 +148,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function include_spip($f, $include = true) {
-	return find_in_path($f . '.php', '', $include);
+	return find_in_path($f.'.php', '', $include);
 }
 
 /**
@@ -168,7 +168,7 @@ 
  *     - string : chemin du fichier trouvé
  **/
 function require_spip($f) {
-	return find_in_path($f . '.php', '', 'required');
+	return find_in_path($f.'.php', '', 'required');
 }
 
 /**
@@ -260,7 +260,7 @@ 
 	}
 
 	// appliquer notre fonction si elle existe
-	$fonc = 'execute_pipeline_' . strtolower($action);
+	$fonc = 'execute_pipeline_'.strtolower($action);
 	if (function_exists($fonc)) {
 		$val = $fonc($val);
 	} // plantage ?
@@ -324,7 +324,7 @@ 
 function spip_log($message = null, $name = null) {
 	static $pre = array();
 	static $log;
-	preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string)$name, $regs);
+	preg_match('/^([a-z_]*)\.?(\d)?$/iS', (string) $name, $regs);
 	if (!isset($regs[1]) or !$logname = $regs[1]) {
 		$logname = null;
 	}
@@ -349,7 +349,7 @@ 
 		if (!is_string($message)) {
 			$message = print_r($message, true);
 		}
-		$log($pre[$niveau] . ' ' . $message, $logname);
+		$log($pre[$niveau].' '.$message, $logname);
 	}
 }
 
@@ -462,9 +462,9 @@ 
  * @param string $sanitize_function
  * @return array|mixed|string
  */
-function spip_sanitize_from_request($value, $key, $sanitize_function='entites_html') {
+function spip_sanitize_from_request($value, $key, $sanitize_function = 'entites_html') {
 	if (is_array($value)) {
-		if ($key=='*') {
+		if ($key == '*') {
 			$key = array_keys($value);
 		}
 		if (!is_array($key)) {
@@ -549,7 +549,7 @@ 
 		$a = './';
 	}
 
-	$regexp = ',^(' . str_replace('[]', '\[\]', $c) . '[[]?[]]?)(=.*)?$,';
+	$regexp = ',^('.str_replace('[]', '\[\]', $c).'[[]?[]]?)(=.*)?$,';
 	$ajouts = array_flip(explode('|', $c));
 	$u = is_array($v) ? $v : rawurlencode($v);
 	$testv = (is_array($v) ? count($v) : strlen($v));
@@ -576,7 +576,7 @@ 
 			// Ajout. Pour une variable, remplacer au meme endroit,
 			// pour un tableau ce sera fait dans la prochaine boucle
 			elseif (substr($r[1], -2) != '[]') {
-				$url[$n] = $r[1] . '=' . $u;
+				$url[$n] = $r[1].'='.$u;
 				unset($ajouts[$r[1]]);
 			}
 			// Pour les tableaux on laisse tomber les valeurs de
@@ -596,11 +596,11 @@ 
 	} elseif ($testv) {
 		foreach ($ajouts as $k => $n) {
 			if (!is_array($v)) {
-				$url[] = $k . '=' . $u;
+				$url[] = $k.'='.$u;
 			} else {
-				$id = (substr($k, -2) == '[]') ? $k : ($k . "[]");
+				$id = (substr($k, -2) == '[]') ? $k : ($k."[]");
 				foreach ($v as $w) {
-					$url[] = $id . '=' . (is_array($w) ? 'Array' : $w);
+					$url[] = $id.'='.(is_array($w) ? 'Array' : $w);
 				}
 			}
 		}
@@ -611,10 +611,10 @@ 
 
 	// recomposer l'adresse
 	if ($url) {
-		$a .= '?' . join($sep, $url);
+		$a .= '?'.join($sep, $url);
 	}
 
-	return $a . $ancre;
+	return $a.$ancre;
 }
 
 /**
@@ -646,7 +646,7 @@ 
 			translitteration($ancre)
 		);
 	}
-	return $url . (strlen($ancre) ? '#' . $ancre : '');
+	return $url.(strlen($ancre) ? '#'.$ancre : '');
 }
 
 /**
@@ -758,7 +758,7 @@ 
  * @return bool
  */
 function test_plugin_actif($plugin) {
-	return ($plugin and defined('_DIR_PLUGIN_' . strtoupper($plugin))) ? true : false;
+	return ($plugin and defined('_DIR_PLUGIN_'.strtoupper($plugin))) ? true : false;
 }
 
 /**
@@ -826,8 +826,7 @@ 
 		// pour les chaines non traduites, assurer un service minimum
 		if (!$GLOBALS['test_i18n'] and (_request('var_mode') != 'traduction')) {
 			$text = str_replace('_', ' ',
-				(($n = strpos($text, ':')) === false ? $texte :
-					substr($texte, $n + 1)));
+				(($n = strpos($text, ':')) === false ? $texte : substr($texte, $n + 1)));
 		}
 		$o['class'] = null;
 
@@ -899,7 +898,7 @@ 
 		// Si des variables n'ont pas ete inserees, le signaler
 		// (chaines de langues pas a jour)
 		if ($args) {
-			spip_log("$f:  variables inutilisees " . join(', ', array_keys($args)), _LOG_DEBUG);
+			spip_log("$f:  variables inutilisees ".join(', ', array_keys($args)), _LOG_DEBUG);
 		}
 	}
 
@@ -923,7 +922,7 @@ 
 function joli_repertoire($rep) {
 	$a = substr($rep, 0, 1);
 	if ($a <> '.' and $a <> '/') {
-		$rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS) . $rep;
+		$rep = (_DIR_RESTREINT ? '' : _DIR_RESTREINT_ABS).$rep;
 	}
 	$rep = preg_replace(',(^\.\.\/),', '', $rep);
 
@@ -977,7 +976,7 @@ 
 			$p -= ($x * 1000);
 		}
 
-		return $s . sprintf($s ? "%07.3f ms" : "%.3f ms", $p);
+		return $s.sprintf($s ? "%07.3f ms" : "%.3f ms", $p);
 	}
 }
 
@@ -1046,7 +1045,7 @@ 
 	if ($taches and count($taches) and !spip_connect()) {
 		return false;
 	}
-	spip_log("cron !", 'jq' . _LOG_DEBUG);
+	spip_log("cron !", 'jq'._LOG_DEBUG);
 	if ($genie = charger_fonction('genie', 'inc', true)) {
 		return $genie($taches);
 	}
@@ -1150,7 +1149,7 @@ 
 
 	if ($queue_next_job_time == -1) {
 		if (!defined('_JQ_NEXT_JOB_TIME_FILENAME')) {
-			define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP . "job_queue_next.txt");
+			define('_JQ_NEXT_JOB_TIME_FILENAME', _DIR_TMP."job_queue_next.txt");
 		}
 		// utiliser un cache memoire si dispo
 		if (function_exists("cache_get") and defined('_MEMOIZE_MEMORY') and _MEMOIZE_MEMORY) {
@@ -1217,8 +1216,8 @@ 
 		$src = '';
 	}
 	if ($script) {
-		$script = ("/*<![CDATA[*/\n" .
-			preg_replace(',</([^>]*)>,', '<\/\1>', $script) .
+		$script = ("/*<![CDATA[*/\n".
+			preg_replace(',</([^>]*)>,', '<\/\1>', $script).
 			"/*]]>*/");
 	}
 	if ($noscript) {
@@ -1304,13 +1303,13 @@ 
 	if ($path_base == null) {
 		// Chemin standard depuis l'espace public
 		$path = defined('_SPIP_PATH') ? _SPIP_PATH :
-			_DIR_RACINE . ':' .
-			_DIR_RACINE . 'squelettes-dist/:' .
-			_DIR_RACINE . 'prive/:' .
+			_DIR_RACINE.':'.
+			_DIR_RACINE.'squelettes-dist/:'.
+			_DIR_RACINE.'prive/:'.
 			_DIR_RESTREINT;
 		// Ajouter squelettes/
-		if (@is_dir(_DIR_RACINE . 'squelettes')) {
-			$path = _DIR_RACINE . 'squelettes/:' . $path;
+		if (@is_dir(_DIR_RACINE.'squelettes')) {
+			$path = _DIR_RACINE.'squelettes/:'.$path;
 		}
 		foreach (explode(':', $path) as $dir) {
 			if (strlen($dir) and substr($dir, -1) != '/') {
@@ -1322,7 +1321,7 @@ 
 		// Et le(s) dossier(s) des squelettes nommes
 		if (strlen($GLOBALS['dossier_squelettes'])) {
 			foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-				array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE) . $d . '/');
+				array_unshift($path_full, ($d[0] == '/' ? '' : _DIR_RACINE).$d.'/');
 			}
 		}
 		$GLOBALS['path_sig'] = md5(serialize($path_full));
@@ -1333,7 +1332,7 @@ 
 
 	if (strlen($dir_path)) {
 		$tete = "";
-		if (reset($path_base) == _DIR_RACINE . 'squelettes/') {
+		if (reset($path_base) == _DIR_RACINE.'squelettes/') {
 			$tete = array_shift($path_base);
 		}
 		$dirs = array_reverse(explode(':', $dir_path));
@@ -1355,7 +1354,7 @@ 
 	// Et le(s) dossier(s) des squelettes nommes
 	if (strlen($GLOBALS['dossier_squelettes'])) {
 		foreach (array_reverse(explode(':', $GLOBALS['dossier_squelettes'])) as $d) {
-			array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE) . $d . '/');
+			array_unshift($path_full, ((isset($d[0]) and $d[0] == '/') ? '' : _DIR_RACINE).$d.'/');
 		}
 	}
 
@@ -1425,9 +1424,9 @@ 
 	// on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
 	// si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
 	if (preg_match(',-(\d+)[.](png|gif|svg)$,', $file, $m)
-	  and $file_svg_generique = substr($file,0, -strlen($m[0])) . "-xx.svg"
+	  and $file_svg_generique = substr($file, 0, -strlen($m[0]))."-xx.svg"
 		and $f = find_in_theme("$file_svg_generique")) {
-		if ($fsize = substr($f,0,-6) . $m[1] . ".svg" and file_exists($fsize)) {
+		if ($fsize = substr($f, 0, -6).$m[1].".svg" and file_exists($fsize)) {
 			return $themefiles["$subdir$file"] = $fsize;
 		}
 		else {
@@ -1441,7 +1440,7 @@ 
 			return $themefiles["$subdir$file"] = $f;
 		}
 	}
-	spip_log("$file introuvable dans le theme prive " . reset($themes), 'theme');
+	spip_log("$file introuvable dans le theme prive ".reset($themes), 'theme');
 
 	return $themefiles["$subdir$file"] = "";
 }
@@ -1469,7 +1468,7 @@ 
 function chemin_image($icone) {
 	static $icone_renommer;
 	if ($p = strpos($icone, '?')) {
-		$icone = substr($icone,0, $p);
+		$icone = substr($icone, 0, $p);
 	}
 	// gerer le cas d'un double appel en evitant de refaire le travail inutilement
 	if (strpos($icone, "/") !== false and file_exists($icone)) {
@@ -1549,8 +1548,8 @@ 
 			return false;
 		}
 		if ($include and !isset($inc[$dirname][$file])) {
-			include_once _ROOT_CWD . $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
-			$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+			include_once _ROOT_CWD.$GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
+			$inc[$dirname][$file] = $inc[''][$dirname.$file] = true;
 		}
 
 		return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file];
@@ -1563,14 +1562,14 @@ 
 	}
 
 	foreach (creer_chemin() as $dir) {
-		if (!isset($dirs[$a = $dir . $dirname])) {
-			$dirs[$a] = (is_dir(_ROOT_CWD . $a) || !$a);
+		if (!isset($dirs[$a = $dir.$dirname])) {
+			$dirs[$a] = (is_dir(_ROOT_CWD.$a) || !$a);
 		}
 		if ($dirs[$a]) {
-			if (file_exists(_ROOT_CWD . ($a .= $file))) {
+			if (file_exists(_ROOT_CWD.($a .= $file))) {
 				if ($include and !isset($inc[$dirname][$file])) {
-					include_once _ROOT_CWD . $a;
-					$inc[$dirname][$file] = $inc[''][$dirname . $file] = true;
+					include_once _ROOT_CWD.$a;
+					$inc[$dirname][$file] = $inc[''][$dirname.$file] = true;
 				}
 				if (!defined('_SAUVER_CHEMIN')) {
 					// si le chemin n'a pas encore ete charge, ne pas lever le flag, ne pas cacher
@@ -1580,7 +1579,7 @@ 
 					define('_SAUVER_CHEMIN', true);
 				}
 
-				return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = $a;
+				return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname.$file] = $a;
 			}
 		}
 	}
@@ -1606,7 +1605,7 @@ 
 		define('_SAUVER_CHEMIN', true);
 	}
 
-	return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname . $file] = false;
+	return $GLOBALS['path_files'][$GLOBALS['path_sig']][$dirname][$file] = $GLOBALS['path_files'][$GLOBALS['path_sig']][''][$dirname.$file] = false;
 }
 
 function clear_path_cache() {
@@ -1675,12 +1674,12 @@ 
 	// cas borderline si dans mes_options on appelle redirige_par_entete qui utilise _T et charge un fichier de langue
 	// on a pas encore inclus flock.php
 	if (!function_exists('preg_files')) {
-		include_once _ROOT_RESTREINT . 'inc/flock.php';
+		include_once _ROOT_RESTREINT.'inc/flock.php';
 	}
 
 	// Parcourir le chemin
 	foreach (creer_chemin() as $d) {
-		$f = $d . $dir;
+		$f = $d.$dir;
 		if (@is_dir($f)) {
 			$liste = preg_files($f, $pattern, $maxfiles - count($liste_fichiers), $recurs === true ? array() : $recurs);
 			foreach ($liste as $chemin) {
@@ -1710,9 +1709,9 @@ 
 	static $autsanscookie = array('install', 'base_repair');
 
 	if (in_array($nom, $autsanscookie)) {
-		if (test_espace_prive()){
+		if (test_espace_prive()) {
 			include_spip('base/connect_sql');
-			if (!$strict or !spip_connect()){
+			if (!$strict or !spip_connect()) {
 				return true;
 			}
 		}
@@ -1791,7 +1790,7 @@ 
 		return $res;
 	}
 	// Sinon c'est un raccourci ou compat SPIP < 2
-	if (!function_exists($f = 'generer_url_' . $entite)) {
+	if (!function_exists($f = 'generer_url_'.$entite)) {
 		if (!function_exists($f .= '_dist')) {
 			$f = '';
 		}
@@ -1800,8 +1799,8 @@ 
 		$url = $f($id, $args, $ancre);
 		if (strlen($args)) {
 			$url .= strstr($url, '?')
-				? '&amp;' . $args
-				: '?' . $args;
+				? '&amp;'.$args
+				: '?'.$args;
 		}
 
 		return $url;
@@ -1832,8 +1831,8 @@ 
 	include_spip('base/connect_sql');
 	$id_type = id_table_objet($entite, $public);
 
-	return _DIR_RACINE . get_spip_script('./')
-	. "?" . _SPIP_PAGE . "=$entite&$id_type=$i&connect=$public"
+	return _DIR_RACINE.get_spip_script('./')
+	. "?"._SPIP_PAGE."=$entite&$id_type=$i&connect=$public"
 	. (!$args ? '' : "&$args")
 	. (!$ancre ? '' : "#$ancre");
 }
@@ -1985,7 +1984,7 @@ 
 			if (!empty($_SERVER['QUERY_STRING'])
 				and !strpos($_SERVER['REQUEST_URI'], '?')
 			) {
-				$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+				$GLOBALS['REQUEST_URI'] .= '?'.$_SERVER['QUERY_STRING'];
 			}
 		}
 	}
@@ -2012,17 +2011,17 @@ 
 	list($myself) = explode('?', $myself);
 	// vieux mode HTTP qui envoie après le nom de la methode l'URL compléte
 	// protocole, "://", nom du serveur avant le path dans _SERVER["REQUEST_URI"]
-	if (strpos($myself,'://') !== false) {
-		$myself = explode('://',$myself);
+	if (strpos($myself, '://') !== false) {
+		$myself = explode('://', $myself);
 		array_shift($myself);
-		$myself = implode('://',$myself);
-		$myself = explode('/',$myself);
+		$myself = implode('://', $myself);
+		$myself = explode('/', $myself);
 		array_shift($myself);
-		$myself = implode('/',$myself);
+		$myself = implode('/', $myself);
 	}
-	$url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)) . '/';
+	$url = join('/', array_slice(explode('/', $myself), 0, -1 - $prof)).'/';
 
-	$url = $http . '://' . rtrim($host, '/') . '/' . ltrim($url, '/');
+	$url = $http.'://'.rtrim($host, '/').'/'.ltrim($url, '/');
 
 	return $url;
 }
@@ -2060,17 +2059,17 @@ 
  **/
 function generer_url_ecrire($script = '', $args = "", $no_entities = false, $rel = false) {
 	if (!$rel) {
-		$rel = url_de_base() . _DIR_RESTREINT_ABS . _SPIP_ECRIRE_SCRIPT;
+		$rel = url_de_base()._DIR_RESTREINT_ABS._SPIP_ECRIRE_SCRIPT;
 	} else {
 		if (!is_string($rel)) {
 			$rel = _DIR_RESTREINT ? _DIR_RESTREINT :
-				('./' . _SPIP_ECRIRE_SCRIPT);
+				('./'._SPIP_ECRIRE_SCRIPT);
 		}
 	}
 
 	list($script, $ancre) = array_pad(explode('#', $script), 2, null);
 	if ($script and ($script <> 'accueil' or $rel)) {
-		$args = "?exec=$script" . (!$args ? '' : "&$args");
+		$args = "?exec=$script".(!$args ? '' : "&$args");
 	} elseif ($args) {
 		$args = "?$args";
 	}
@@ -2078,7 +2077,7 @@ 
 		$args .= "#$ancre";
 	}
 
-	return $rel . ($no_entities ? $args : str_replace('&', '&amp;', $args));
+	return $rel.($no_entities ? $args : str_replace('&', '&amp;', $args));
 }
 
 //
@@ -2148,25 +2147,25 @@ 
 		if (is_array($args)) {
 			$r = '';
 			foreach ($args as $k => $v) {
-				$r .= '&' . $k . '=' . $v;
+				$r .= '&'.$k.'='.$v;
 			}
 			$args = substr($r, 1);
 		}
 		$action .=
-			(strpos($action, '?') !== false ? '&' : '?') . $args;
+			(strpos($action, '?') !== false ? '&' : '?').$args;
 	}
 	if (!$no_entities) {
 		$action = quote_amp($action);
 	}
 
 	// ne pas generer une url avec /./?page= en cas d'url absolue et de _SPIP_SCRIPT vide
-	return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/') . preg_replace(",^/[.]/,", "/", "/$action"));
+	return ($rel ? _DIR_RACINE . $action : rtrim(url_de_base(), '/').preg_replace(",^/[.]/,", "/", "/$action"));
 }
 
 // https://code.spip.net/@generer_url_prive
 function generer_url_prive($script, $args = "", $no_entities = false) {
 
-	return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS . 'prive.php');
+	return generer_url_public($script, $args, $no_entities, false, _DIR_RESTREINT_ABS.'prive.php');
 }
 
 // Pour les formulaires en methode POST,
@@ -2201,8 +2200,7 @@ 
 	. "><div>\n"
 	. "<input type='hidden' name='exec' value='$script1' />"
 	. $corps
-	. (!$submit ? '' :
-		("<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><input class='fondo' type='submit' value=\"" . entites_html($submit) . "\" /></div>"))
+	. (!$submit ? '' : ("<div style='text-align: ".$GLOBALS['spip_lang_right']."'><input class='fondo' type='submit' value=\"".entites_html($submit)."\" /></div>"))
 	. "</div></form>\n";
 }
 
@@ -2227,14 +2225,14 @@ 
 		? generer_url_ecrire(_request('exec'))
 		: generer_url_public();
 
-	return "\n<form action='" .
-	$h .
-	"'" .
-	$atts .
-	">\n" .
-	"<div>" .
-	"\n<input type='hidden' name='action' value='$script' />" .
-	$corps .
+	return "\n<form action='".
+	$h.
+	"'".
+	$atts.
+	">\n".
+	"<div>".
+	"\n<input type='hidden' name='action' value='$script' />".
+	$corps.
 	"</div></form>";
 }
 
@@ -2262,7 +2260,7 @@ 
 		: generer_url_public('', '', false, false);
 	$url = parametre_url($url, 'action', $script);
 	if ($args) {
-		$url .= quote_amp('&' . $args);
+		$url .= quote_amp('&'.$args);
 	}
 
 	if ($no_entities) {
@@ -2312,17 +2310,17 @@ 
 
 	// le nom du repertoire plugins/ activables/desactivables
 	if (!defined('_DIR_PLUGINS')) {
-		define('_DIR_PLUGINS', _DIR_RACINE . "plugins/");
+		define('_DIR_PLUGINS', _DIR_RACINE."plugins/");
 	}
 
 	// le nom du repertoire des extensions/ permanentes du core, toujours actives
 	if (!defined('_DIR_PLUGINS_DIST')) {
-		define('_DIR_PLUGINS_DIST', _DIR_RACINE . "plugins-dist/");
+		define('_DIR_PLUGINS_DIST', _DIR_RACINE."plugins-dist/");
 	}
 
 	// le nom du repertoire des librairies
 	if (!defined('_DIR_LIB')) {
-		define('_DIR_LIB', _DIR_RACINE . "lib/");
+		define('_DIR_LIB', _DIR_RACINE."lib/");
 	}
 
 	if (!defined('_DIR_IMG')) {
@@ -2332,29 +2330,29 @@ 
 		define('_DIR_LOGOS', $pa);
 	}
 	if (!defined('_DIR_IMG_ICONES')) {
-		define('_DIR_IMG_ICONES', _DIR_LOGOS . "icones/");
+		define('_DIR_IMG_ICONES', _DIR_LOGOS."icones/");
 	}
 
 	if (!defined('_DIR_DUMP')) {
-		define('_DIR_DUMP', $ti . "dump/");
+		define('_DIR_DUMP', $ti."dump/");
 	}
 	if (!defined('_DIR_SESSIONS')) {
-		define('_DIR_SESSIONS', $ti . "sessions/");
+		define('_DIR_SESSIONS', $ti."sessions/");
 	}
 	if (!defined('_DIR_TRANSFERT')) {
-		define('_DIR_TRANSFERT', $ti . "upload/");
+		define('_DIR_TRANSFERT', $ti."upload/");
 	}
 	if (!defined('_DIR_CACHE')) {
-		define('_DIR_CACHE', $ti . "cache/");
+		define('_DIR_CACHE', $ti."cache/");
 	}
 	if (!defined('_DIR_CACHE_XML')) {
-		define('_DIR_CACHE_XML', _DIR_CACHE . "xml/");
+		define('_DIR_CACHE_XML', _DIR_CACHE."xml/");
 	}
 	if (!defined('_DIR_SKELS')) {
-		define('_DIR_SKELS', _DIR_CACHE . "skel/");
+		define('_DIR_SKELS', _DIR_CACHE."skel/");
 	}
 	if (!defined('_DIR_AIDE')) {
-		define('_DIR_AIDE', _DIR_CACHE . "aide/");
+		define('_DIR_AIDE', _DIR_CACHE."aide/");
 	}
 	if (!defined('_DIR_TMP')) {
 		define('_DIR_TMP', $ti);
@@ -2384,27 +2382,27 @@ 
 	// Declaration des fichiers
 
 	if (!defined('_CACHE_PLUGINS_PATH')) {
-		define('_CACHE_PLUGINS_PATH', _DIR_CACHE . "charger_plugins_chemins.php");
+		define('_CACHE_PLUGINS_PATH', _DIR_CACHE."charger_plugins_chemins.php");
 	}
 	if (!defined('_CACHE_PLUGINS_OPT')) {
-		define('_CACHE_PLUGINS_OPT', _DIR_CACHE . "charger_plugins_options.php");
+		define('_CACHE_PLUGINS_OPT', _DIR_CACHE."charger_plugins_options.php");
 	}
 	if (!defined('_CACHE_PLUGINS_FCT')) {
-		define('_CACHE_PLUGINS_FCT', _DIR_CACHE . "charger_plugins_fonctions.php");
+		define('_CACHE_PLUGINS_FCT', _DIR_CACHE."charger_plugins_fonctions.php");
 	}
 	if (!defined('_CACHE_PIPELINES')) {
-		define('_CACHE_PIPELINES', _DIR_CACHE . "charger_pipelines.php");
+		define('_CACHE_PIPELINES', _DIR_CACHE."charger_pipelines.php");
 	}
 	if (!defined('_CACHE_CHEMIN')) {
-		define('_CACHE_CHEMIN', _DIR_CACHE . "chemin.txt");
+		define('_CACHE_CHEMIN', _DIR_CACHE."chemin.txt");
 	}
 
 	# attention .php obligatoire pour ecrire_fichier_securise
 	if (!defined('_FILE_META')) {
-		define('_FILE_META', $ti . 'meta_cache.php');
+		define('_FILE_META', $ti.'meta_cache.php');
 	}
 	if (!defined('_DIR_LOG')) {
-		define('_DIR_LOG', _DIR_TMP . 'log/');
+		define('_DIR_LOG', _DIR_TMP.'log/');
 	}
 	if (!defined('_FILE_LOG')) {
 		define('_FILE_LOG', 'spip');
@@ -2420,8 +2418,8 @@ 
 	}
 	if (!defined('_FILE_CONNECT')) {
 		define('_FILE_CONNECT',
-		(@is_readable($f = _DIR_CONNECT . _FILE_CONNECT_INS . '.php') ? $f
-			: (@is_readable($f = _DIR_RESTREINT . 'inc_connect.php') ? $f
+		(@is_readable($f = _DIR_CONNECT._FILE_CONNECT_INS.'.php') ? $f
+			: (@is_readable($f = _DIR_RESTREINT.'inc_connect.php') ? $f
 				: false)));
 	}
 
@@ -2431,7 +2429,7 @@ 
 	}
 	if (!defined('_FILE_CHMOD')) {
 		define('_FILE_CHMOD',
-		(@is_readable($f = _DIR_CHMOD . _FILE_CHMOD_INS . '.php') ? $f
+		(@is_readable($f = _DIR_CHMOD._FILE_CHMOD_INS.'.php') ? $f
 			: false));
 	}
 
@@ -2443,10 +2441,10 @@ 
 		define('_FILE_TMP_SUFFIX', '.tmp.php');
 	}
 	if (!defined('_FILE_CONNECT_TMP')) {
-		define('_FILE_CONNECT_TMP', _DIR_CONNECT . _FILE_CONNECT_INS . _FILE_TMP_SUFFIX);
+		define('_FILE_CONNECT_TMP', _DIR_CONNECT._FILE_CONNECT_INS._FILE_TMP_SUFFIX);
 	}
 	if (!defined('_FILE_CHMOD_TMP')) {
-		define('_FILE_CHMOD_TMP', _DIR_CHMOD . _FILE_CHMOD_INS . _FILE_TMP_SUFFIX);
+		define('_FILE_CHMOD_TMP', _DIR_CHMOD._FILE_CHMOD_INS._FILE_TMP_SUFFIX);
 	}
 
 	// Definition des droits d'acces en ecriture
@@ -2464,13 +2462,13 @@ 
 		define('_DEFAULT_CHARSET', 'utf-8');
 	}
 	if (!defined('_ROOT_PLUGINS')) {
-		define('_ROOT_PLUGINS', _ROOT_RACINE . "plugins/");
+		define('_ROOT_PLUGINS', _ROOT_RACINE."plugins/");
 	}
 	if (!defined('_ROOT_PLUGINS_DIST')) {
-		define('_ROOT_PLUGINS_DIST', _ROOT_RACINE . "plugins-dist/");
+		define('_ROOT_PLUGINS_DIST', _ROOT_RACINE."plugins-dist/");
 	}
 	if (!defined('_ROOT_PLUGINS_SUPPL') && defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
-		define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE . str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
+		define('_ROOT_PLUGINS_SUPPL', _ROOT_RACINE.str_replace(_DIR_RACINE, '', _DIR_PLUGINS_SUPPL));
 	}
 
 	// La taille des Log
@@ -2507,7 +2505,7 @@ 
 	// (non surchargeable en l'etat ; attention si on utilise include_spip()
 	// pour le rendre surchargeable, on va provoquer un reecriture
 	// systematique du noyau ou une baisse de perfs => a etudier)
-	include_once _ROOT_RESTREINT . 'inc/flock.php';
+	include_once _ROOT_RESTREINT.'inc/flock.php';
 
 	// charger tout de suite le path et son cache
 	load_path_cache();
@@ -2554,7 +2552,7 @@ 
 		if (!empty($_SERVER['QUERY_STRING'])
 			and !strpos($_SERVER['REQUEST_URI'], '?')
 		) {
-			$GLOBALS['REQUEST_URI'] .= '?' . $_SERVER['QUERY_STRING'];
+			$GLOBALS['REQUEST_URI'] .= '?'.$_SERVER['QUERY_STRING'];
 		}
 	}
 
@@ -2590,7 +2588,7 @@ 
 
 			if (isset($GLOBALS['meta']['adresse_site'])) {
 				$uri_ref = parse_url($GLOBALS['meta']['adresse_site']);
-				$uri_ref = (isset($uri_ref['path']) ? $uri_ref['path'] : '') . '/';
+				$uri_ref = (isset($uri_ref['path']) ? $uri_ref['path'] : '').'/';
 			} else {
 				$uri_ref = "";
 			}
@@ -2678,7 +2676,7 @@ 
 	}
 	if (!defined('_CACHE_RUBRIQUES')) {
 		/** Fichier cache pour le navigateur de rubrique du bandeau */
-		define('_CACHE_RUBRIQUES', _DIR_TMP . 'menu-rubriques-cache.txt');
+		define('_CACHE_RUBRIQUES', _DIR_TMP.'menu-rubriques-cache.txt');
 	}
 	if (!defined('_CACHE_RUBRIQUES_MAX')) {
 		/** Nombre maxi de rubriques enfants affichées pour chaque rubrique du navigateur de rubrique du bandeau */
@@ -2770,7 +2768,7 @@ 
 					$memory *= 1024;
 			}
 			if ($memory < _MEMORY_LIMIT_MIN * 1024 * 1024) {
-				@ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN . 'M');
+				@ini_set('memory_limit', $m = _MEMORY_LIMIT_MIN.'M');
 				if (trim(ini_get('memory_limit')) != $m) {
 					if (!defined('_INTERDIRE_COMPACTE_HEAD_ECRIRE')) {
 						define('_INTERDIRE_COMPACTE_HEAD_ECRIRE', true);
@@ -2920,7 +2918,7 @@ 
 					}
 					if (isset($GLOBALS['visiteur_session']['nom'])) {
 						spip_log($GLOBALS['visiteur_session']['nom']
-							. " " . _VAR_MODE);
+							. " "._VAR_MODE);
 					}
 				} // pas autorise ?
 				else {
@@ -2928,7 +2926,7 @@ 
 					if (!$GLOBALS['visiteur_session']) {
 						include_spip('inc/headers');
 						redirige_par_entete(generer_url_public('login',
-							'url=' . rawurlencode(
+							'url='.rawurlencode(
 								parametre_url(self(), 'var_mode', $_GET['var_mode'], '&')
 							), true));
 					}
@@ -2973,10 +2971,10 @@ 
 	// mais on risque de perturber des plugins en initialisant trop tot
 	// certaines constantes
 	@spip_initialisation_core(
-		(_DIR_RACINE . _NOM_PERMANENTS_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_PERMANENTS_ACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_INACCESSIBLES),
-		(_DIR_RACINE . _NOM_TEMPORAIRES_ACCESSIBLES)
+		(_DIR_RACINE._NOM_PERMANENTS_INACCESSIBLES),
+		(_DIR_RACINE._NOM_PERMANENTS_ACCESSIBLES),
+		(_DIR_RACINE._NOM_TEMPORAIRES_INACCESSIBLES),
+		(_DIR_RACINE._NOM_TEMPORAIRES_ACCESSIBLES)
 	);
 
 	// Demarrer une session NON AUTHENTIFIEE si on donne son nom
@@ -3009,7 +3007,7 @@ 
 	}
 
 	$h = (isset($_SERVER['PHP_AUTH_USER']) and !$GLOBALS['ignore_auth_http']);
-	if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'] . '_session'])) {
+	if ($h or isset($_COOKIE['spip_session']) or isset($_COOKIE[$GLOBALS['cookie_prefix'].'_session'])) {
 
 		$session = charger_fonction('session', 'inc');
 		if ($session()) {
@@ -3089,7 +3087,7 @@ 
 		$s = pipeline('definir_session',
 			$GLOBALS['visiteur_session']
 				? serialize($GLOBALS['visiteur_session'])
-				. '_' . @$_COOKIE['spip_session']
+				. '_'.@$_COOKIE['spip_session']
 				: ''
 		);
 		$session = $s ? substr(md5($s), 0, 8) : '';
@@ -3245,12 +3243,12 @@ 
 	$GLOBALS['_INC_PUBLIC']++;
 
 	// fix #4235
-	$cache_utilise_session_appelant	= (isset($GLOBALS['cache_utilise_session']) ? $GLOBALS['cache_utilise_session'] : null);
+	$cache_utilise_session_appelant = (isset($GLOBALS['cache_utilise_session']) ? $GLOBALS['cache_utilise_session'] : null);
 
 
 	foreach (is_array($fond) ? $fond : array($fond) as $f) {
 		
-		unset($GLOBALS['cache_utilise_session']);	// fix #4235
+		unset($GLOBALS['cache_utilise_session']); // fix #4235
 
 		$page = evaluer_fond($f, $contexte, $connect);
 		if ($page === '') {
@@ -3289,7 +3287,7 @@ 
 		}
 		
 		// contamination de la session appelante, pour les inclusions statiques
-		if (isset($page['invalideurs']['session'])){
+		if (isset($page['invalideurs']['session'])) {
 			$cache_utilise_session_appelant = $page['invalideurs']['session'];
 		}
 	}
@@ -3335,7 +3333,7 @@ 
  * @return array|string
  */
 function trouver_fond($nom, $dir = '', $pathinfo = false) {
-	$f = find_in_path($nom . '.' . _EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/') . '/' : '');
+	$f = find_in_path($nom.'.'._EXTENSION_SQUELETTES, $dir ? rtrim($dir, '/').'/' : '');
 	if (!$pathinfo) {
 		return $f;
 	}
@@ -3556,7 +3554,7 @@ 
 
 			if (!is_array($params[0])) {
 				trigger_error(
-					'array_column() expects parameter 1 to be array, ' . gettype($params[0]) . ' given',
+					'array_column() expects parameter 1 to be array, '.gettype($params[0]).' given',
 					E_USER_WARNING
 				);
 				return null;

ecrire/install/etape_3.php

Doc Comments +3 added lines

@@ -248,6 +248,9 @@
 
 
 // https://code.spip.net/@install_premier_auteur
+/**
+ * @param string $hidden
+ */
 function install_premier_auteur($email, $login, $nom, $pass, $hidden, $auteur_obligatoire) {
 	return info_progression_etape(3, 'etape_', 'install/') .
 	info_etape(

Indentation +346 added lines, -346 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/headers');
@@ -20,199 +20,199 @@ 
 // https://code.spip.net/@install_bases
 function install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db) {
 
-	// Prefix des tables :
-	// S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
-	// a partir de ce qui est envoye a l'installation
-	if (!defined('_INSTALL_TABLE_PREFIX')) {
-		$table_prefix = ($GLOBALS['table_prefix'] != 'spip')
-			? $GLOBALS['table_prefix']
-			: preparer_prefixe_tables(_request('tprefix'));
-		// S'il est vide on remet spip
-		if (!$table_prefix) {
-			$table_prefix = 'spip';
-		}
-	} else {
-		$table_prefix = _INSTALL_TABLE_PREFIX;
-	}
-
-	if (preg_match(',(.*):(.*),', $adresse_db, $r)) {
-		list(, $adresse_db, $port) = $r;
-	} else {
-		$port = '';
-	}
-
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	$fquery = sql_serveur('query', $server_db);
-	if ($choix_db == 'new_spip') {
-		$re = ',^[a-z_][a-z_0-9-]*$,i';
-		if (preg_match($re, $sel_db)) {
-			$ok = sql_create_base($sel_db, $server_db);
-			if (!$ok) {
-				$re = "Impossible de creer la base $re";
-				spip_log($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
-			}
-		} else {
-			$re = "Le nom de la base doit correspondre a $re";
-			spip_log($re);
-
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
-		}
-	}
-
-	// on rejoue la connexion apres avoir teste si il faut lui indiquer
-	// un sql_mode
-	install_mode_appel($server_db, false);
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	// Completer le tableau decrivant la connexion
-
-	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
-	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
-
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
-	if ($old) {
-		$old = sql_fetch($old, $server_db);
-	}
-	if (!$old) {
-		// Si possible, demander au serveur d'envoyer les textes
-		// dans le codage std de SPIP,
-		$charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
-
-		if ($charset) {
-			sql_set_charset($charset['charset'], $server_db);
-			$GLOBALS['meta']['charset_sql_base'] =
-				$charset['charset'];
-			$GLOBALS['meta']['charset_collation_sql_base'] =
-				$charset['collation'];
-			$GLOBALS['meta']['charset_sql_connexion'] =
-				$charset['charset'];
-			$charsetbase = $charset['charset'];
-		} else {
-			spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
-			$charsetbase = 'standard';
-		}
-		spip_log("Creation des tables. Codage $charsetbase");
-		creer_base($server_db); // AT LAST
-		// memoriser avec quel charset on l'a creee
-
-		if ($charset) {
-			$t = array(
-				'nom' => 'charset_sql_base',
-				'valeur' => $charset['charset'],
-				'impt' => 'non'
-			);
-			@sql_insertq('spip_meta', $t, '', $server_db);
-			$t['nom'] = 'charset_collation_sql_base';
-			$t['valeur'] = $charset['collation'];
-			@sql_insertq('spip_meta', $t, '', $server_db);
-			$t['nom'] = 'charset_sql_connexion';
-			$t['valeur'] = $charset['charset'];
-			@sql_insertq('spip_meta', $t, '', $server_db);
-		}
-		$t = array(
-			'nom' => 'version_installee',
-			'valeur' => $GLOBALS['spip_version_base'],
-			'impt' => 'non'
-		);
-		@sql_insertq('spip_meta', $t, '', $server_db);
-		$t['nom'] = 'nouvelle_install';
-		$t['valeur'] = 1;
-		@sql_insertq('spip_meta', $t, '', $server_db);
-		// positionner la langue par defaut du site si un cookie de lang a ete mis
-		if (isset($_COOKIE['spip_lang_ecrire'])) {
-			@sql_insertq(
-				'spip_meta',
-				array('nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']),
-				'',
-				$server_db
-			);
-		}
-	} else {
-		// pour recreer les tables disparues au besoin
-		spip_log('Table des Meta deja la. Verification des autres.');
-		creer_base($server_db);
-		$fupdateq = sql_serveur('updateq', $server_db);
-
-		$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
-
-		if ($r) {
-			$r = sql_fetch($r, $server_db);
-		}
-		$version_installee = !$r ? 0 : (double)$r['valeur'];
-		if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
-			$fupdateq(
-				'spip_meta',
-				array('valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'),
-				"nom='version_installee'",
-				'',
-				$server_db
-			);
-			spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
-		}
-		// eliminer la derniere operation d'admin mal terminee
-		// notamment la mise a jour
-		@$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
-	}
-
-	// recuperer le charset de la connexion dans les meta
-	$charset = '';
-	$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
-	if ($r) {
-		$r = sql_fetch($r, $server_db);
-	}
-	if ($r) {
-		$charset = $r['valeur'];
-	}
-
-	$ligne_rappel = install_mode_appel($server_db);
-
-	$result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
-	if (!$result_ok) {
-		return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
-	}
-
-	if ($chmod_db) {
-		install_fichier_connexion(
-			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
-		);
-	}
-
-	// si ce fichier existe a cette etape c'est qu'il provient
-	// d'une installation qui ne l'a pas cree correctement.
-	// Le supprimer pour que _FILE_CONNECT_TMP prime.
-
-	if (_FILE_CONNECT and file_exists(_FILE_CONNECT)) {
-		spip_unlink(_FILE_CONNECT);
-	}
-
-	install_fichier_connexion(
-		_FILE_CONNECT_TMP,
-		$ligne_rappel
-		. install_connexion(
-			$adresse_db,
-			$port,
-			$login_db,
-			$pass_db,
-			$sel_db,
-			$server_db,
-			$table_prefix,
-			'',
-			$charset
-		)
-	);
-
-	return '';
+    // Prefix des tables :
+    // S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
+    // a partir de ce qui est envoye a l'installation
+    if (!defined('_INSTALL_TABLE_PREFIX')) {
+        $table_prefix = ($GLOBALS['table_prefix'] != 'spip')
+            ? $GLOBALS['table_prefix']
+            : preparer_prefixe_tables(_request('tprefix'));
+        // S'il est vide on remet spip
+        if (!$table_prefix) {
+            $table_prefix = 'spip';
+        }
+    } else {
+        $table_prefix = _INSTALL_TABLE_PREFIX;
+    }
+
+    if (preg_match(',(.*):(.*),', $adresse_db, $r)) {
+        list(, $adresse_db, $port) = $r;
+    } else {
+        $port = '';
+    }
+
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    $fquery = sql_serveur('query', $server_db);
+    if ($choix_db == 'new_spip') {
+        $re = ',^[a-z_][a-z_0-9-]*$,i';
+        if (preg_match($re, $sel_db)) {
+            $ok = sql_create_base($sel_db, $server_db);
+            if (!$ok) {
+                $re = "Impossible de creer la base $re";
+                spip_log($re);
+                return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+            }
+        } else {
+            $re = "Le nom de la base doit correspondre a $re";
+            spip_log($re);
+
+            return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+        }
+    }
+
+    // on rejoue la connexion apres avoir teste si il faut lui indiquer
+    // un sql_mode
+    install_mode_appel($server_db, false);
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    // Completer le tableau decrivant la connexion
+
+    $GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
+    $GLOBALS['connexions'][$server_db]['db'] = $sel_db;
+
+    $old = sql_showbase($table_prefix . '_meta', $server_db);
+    if ($old) {
+        $old = sql_fetch($old, $server_db);
+    }
+    if (!$old) {
+        // Si possible, demander au serveur d'envoyer les textes
+        // dans le codage std de SPIP,
+        $charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
+
+        if ($charset) {
+            sql_set_charset($charset['charset'], $server_db);
+            $GLOBALS['meta']['charset_sql_base'] =
+                $charset['charset'];
+            $GLOBALS['meta']['charset_collation_sql_base'] =
+                $charset['collation'];
+            $GLOBALS['meta']['charset_sql_connexion'] =
+                $charset['charset'];
+            $charsetbase = $charset['charset'];
+        } else {
+            spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+            $charsetbase = 'standard';
+        }
+        spip_log("Creation des tables. Codage $charsetbase");
+        creer_base($server_db); // AT LAST
+        // memoriser avec quel charset on l'a creee
+
+        if ($charset) {
+            $t = array(
+                'nom' => 'charset_sql_base',
+                'valeur' => $charset['charset'],
+                'impt' => 'non'
+            );
+            @sql_insertq('spip_meta', $t, '', $server_db);
+            $t['nom'] = 'charset_collation_sql_base';
+            $t['valeur'] = $charset['collation'];
+            @sql_insertq('spip_meta', $t, '', $server_db);
+            $t['nom'] = 'charset_sql_connexion';
+            $t['valeur'] = $charset['charset'];
+            @sql_insertq('spip_meta', $t, '', $server_db);
+        }
+        $t = array(
+            'nom' => 'version_installee',
+            'valeur' => $GLOBALS['spip_version_base'],
+            'impt' => 'non'
+        );
+        @sql_insertq('spip_meta', $t, '', $server_db);
+        $t['nom'] = 'nouvelle_install';
+        $t['valeur'] = 1;
+        @sql_insertq('spip_meta', $t, '', $server_db);
+        // positionner la langue par defaut du site si un cookie de lang a ete mis
+        if (isset($_COOKIE['spip_lang_ecrire'])) {
+            @sql_insertq(
+                'spip_meta',
+                array('nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']),
+                '',
+                $server_db
+            );
+        }
+    } else {
+        // pour recreer les tables disparues au besoin
+        spip_log('Table des Meta deja la. Verification des autres.');
+        creer_base($server_db);
+        $fupdateq = sql_serveur('updateq', $server_db);
+
+        $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
+
+        if ($r) {
+            $r = sql_fetch($r, $server_db);
+        }
+        $version_installee = !$r ? 0 : (double)$r['valeur'];
+        if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
+            $fupdateq(
+                'spip_meta',
+                array('valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'),
+                "nom='version_installee'",
+                '',
+                $server_db
+            );
+            spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+        }
+        // eliminer la derniere operation d'admin mal terminee
+        // notamment la mise a jour
+        @$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
+    }
+
+    // recuperer le charset de la connexion dans les meta
+    $charset = '';
+    $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
+    if ($r) {
+        $r = sql_fetch($r, $server_db);
+    }
+    if ($r) {
+        $charset = $r['valeur'];
+    }
+
+    $ligne_rappel = install_mode_appel($server_db);
+
+    $result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
+    if (!$result_ok) {
+        return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
+    }
+
+    if ($chmod_db) {
+        install_fichier_connexion(
+            _FILE_CHMOD_TMP,
+            "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+        );
+    }
+
+    // si ce fichier existe a cette etape c'est qu'il provient
+    // d'une installation qui ne l'a pas cree correctement.
+    // Le supprimer pour que _FILE_CONNECT_TMP prime.
+
+    if (_FILE_CONNECT and file_exists(_FILE_CONNECT)) {
+        spip_unlink(_FILE_CONNECT);
+    }
+
+    install_fichier_connexion(
+        _FILE_CONNECT_TMP,
+        $ligne_rappel
+        . install_connexion(
+            $adresse_db,
+            $port,
+            $login_db,
+            $pass_db,
+            $sel_db,
+            $server_db,
+            $table_prefix,
+            '',
+            $charset
+        )
+    );
+
+    return '';
 }
 
 /**
@@ -227,169 +227,169 @@ 
  * @return string Le préfixe corrigé
  */
 function preparer_prefixe_tables($prefixe) {
-	return trim(preg_replace(',^[0-9]+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
+    return trim(preg_replace(',^[0-9]+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
 }
 
 // https://code.spip.net/@install_propose_ldap
 function install_propose_ldap() {
-	return generer_form_ecrire('install', (
-	fieldset(
-		_T('info_authentification_externe'),
-		array(
-			'etape' => array(
-				'label' => _T('texte_annuaire_ldap_1'),
-				'valeur' => 'ldap1',
-				'hidden' => true
-			)
-		),
-		bouton_suivant(_T('bouton_acces_ldap'))
-	)));
+    return generer_form_ecrire('install', (
+    fieldset(
+        _T('info_authentification_externe'),
+        array(
+            'etape' => array(
+                'label' => _T('texte_annuaire_ldap_1'),
+                'valeur' => 'ldap1',
+                'hidden' => true
+            )
+        ),
+        bouton_suivant(_T('bouton_acces_ldap'))
+    )));
 }
 
 
 // https://code.spip.net/@install_premier_auteur
 function install_premier_auteur($email, $login, $nom, $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
-	info_etape(
-		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
-		($auteur_obligatoire ?
-			''
-			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
-		)
-	)
-	. generer_form_ecrire('install', (
-		"\n<input type='hidden' name='etape' value='3b' />"
-		. $hidden
-		. fieldset(
-			_T('info_identification_publique'),
-			array(
-				'nom' => array(
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
-					'valeur' => $nom,
-					'required' => $auteur_obligatoire,
-				),
-				'email' => array(
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
-					'valeur' => $email,
-				)
-			)
-		)
-
-		. fieldset(
-			_T('entree_identifiants_connexion'),
-			array(
-				'login' => array(
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
-						'info_login_trop_court_car_pluriel',
-						array('nb' => _LOGIN_TROP_COURT)
-					) . "\n",
-					'valeur' => $login,
-					'required' => $auteur_obligatoire,
-				),
-				'pass' => array(
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
-						'info_passe_trop_court_car_pluriel',
-						array('nb' => _PASS_LONGUEUR_MINI)
-					) . "\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				),
-				'pass_verif' => array(
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				)
-			)
-		)
-		. bouton_suivant()));
+    return info_progression_etape(3, 'etape_', 'install/') .
+    info_etape(
+        _T('info_informations_personnelles'),
+        '<b>' . _T('texte_informations_personnelles_1') . '</b>' .
+        aider('install5', true) .
+        '<p>' .
+        ($auteur_obligatoire ?
+            ''
+            :
+            _T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+        )
+    )
+    . generer_form_ecrire('install', (
+        "\n<input type='hidden' name='etape' value='3b' />"
+        . $hidden
+        . fieldset(
+            _T('info_identification_publique'),
+            array(
+                'nom' => array(
+                    'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+                    'valeur' => $nom,
+                    'required' => $auteur_obligatoire,
+                ),
+                'email' => array(
+                    'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+                    'valeur' => $email,
+                )
+            )
+        )
+
+        . fieldset(
+            _T('entree_identifiants_connexion'),
+            array(
+                'login' => array(
+                    'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+                        'info_login_trop_court_car_pluriel',
+                        array('nb' => _LOGIN_TROP_COURT)
+                    ) . "\n",
+                    'valeur' => $login,
+                    'required' => $auteur_obligatoire,
+                ),
+                'pass' => array(
+                    'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+                        'info_passe_trop_court_car_pluriel',
+                        array('nb' => _PASS_LONGUEUR_MINI)
+                    ) . "\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                ),
+                'pass_verif' => array(
+                    'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                )
+            )
+        )
+        . bouton_suivant()));
 }
 
 // https://code.spip.net/@install_etape_3_dist
 function install_etape_3_dist() {
-	$ldap_present = _request('ldap_present');
-
-	if (!$ldap_present) {
-		$adresse_db = defined('_INSTALL_HOST_DB')
-			? _INSTALL_HOST_DB
-			: _request('adresse_db');
-
-		$login_db = defined('_INSTALL_USER_DB')
-			? _INSTALL_USER_DB
-			: _request('login_db');
-
-		$pass_db = defined('_INSTALL_PASS_DB')
-			? _INSTALL_PASS_DB
-			: _request('pass_db');
-
-		$server_db = defined('_INSTALL_SERVER_DB')
-			? _INSTALL_SERVER_DB
-			: _request('server_db');
-
-		$chmod_db = defined('_SPIP_CHMOD')
-			? _SPIP_CHMOD
-			: _request('chmod');
-
-		$choix_db = defined('_INSTALL_NAME_DB')
-			? _INSTALL_NAME_DB
-			: _request('choix_db');
-
-		$sel_db = ($choix_db == 'new_spip')
-			? _request('table_new') : $choix_db;
-
-		$res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
-
-		if ($res) {
-			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
-				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
-				. '</div>';
-		}
-	} else {
-		$res = '';
-		list($adresse_db, $login_db, $pass_db, $sel_db, $server_db) = analyse_fichier_connection(_FILE_CONNECT_TMP);
-		$GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
-	}
-
-	if (!$res) {
-		if (file_exists(_FILE_CONNECT_TMP)) {
-			include(_FILE_CONNECT_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		if (file_exists(_FILE_CHMOD_TMP)) {
-			include(_FILE_CHMOD_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
-			. (defined('_INSTALL_NAME_DB') ? ''
-				: "\n<input type='hidden' name='sel_db' value='$sel_db' />");
-
-		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
-
-		$res = "<div class='success'><b>"
-			. _T('info_base_installee')
-			. '</b></div>'
-			. install_premier_auteur(
-				_request('email'),
-				_request('login'),
-				_request('nom'),
-				_request('pass'),
-				$hidden,
-				$auteur_obligatoire
-			)
-			. (($ldap_present or !function_exists('ldap_connect'))
-				? '' : install_propose_ldap());
-	}
-
-	echo install_debut_html();
-	echo $res;
-	echo install_fin_html();
+    $ldap_present = _request('ldap_present');
+
+    if (!$ldap_present) {
+        $adresse_db = defined('_INSTALL_HOST_DB')
+            ? _INSTALL_HOST_DB
+            : _request('adresse_db');
+
+        $login_db = defined('_INSTALL_USER_DB')
+            ? _INSTALL_USER_DB
+            : _request('login_db');
+
+        $pass_db = defined('_INSTALL_PASS_DB')
+            ? _INSTALL_PASS_DB
+            : _request('pass_db');
+
+        $server_db = defined('_INSTALL_SERVER_DB')
+            ? _INSTALL_SERVER_DB
+            : _request('server_db');
+
+        $chmod_db = defined('_SPIP_CHMOD')
+            ? _SPIP_CHMOD
+            : _request('chmod');
+
+        $choix_db = defined('_INSTALL_NAME_DB')
+            ? _INSTALL_NAME_DB
+            : _request('choix_db');
+
+        $sel_db = ($choix_db == 'new_spip')
+            ? _request('table_new') : $choix_db;
+
+        $res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
+
+        if ($res) {
+            $res = info_progression_etape(2, 'etape_', 'install/', true)
+                . "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+                . $res
+                . '<p>' . _T('texte_operation_echec') . '</p>'
+                . '</div>';
+        }
+    } else {
+        $res = '';
+        list($adresse_db, $login_db, $pass_db, $sel_db, $server_db) = analyse_fichier_connection(_FILE_CONNECT_TMP);
+        $GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
+    }
+
+    if (!$res) {
+        if (file_exists(_FILE_CONNECT_TMP)) {
+            include(_FILE_CONNECT_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        if (file_exists(_FILE_CHMOD_TMP)) {
+            include(_FILE_CHMOD_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        $hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
+            . (defined('_INSTALL_NAME_DB') ? ''
+                : "\n<input type='hidden' name='sel_db' value='$sel_db' />");
+
+        $auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
+
+        $res = "<div class='success'><b>"
+            . _T('info_base_installee')
+            . '</b></div>'
+            . install_premier_auteur(
+                _request('email'),
+                _request('login'),
+                _request('nom'),
+                _request('pass'),
+                $hidden,
+                $auteur_obligatoire
+            )
+            . (($ldap_present or !function_exists('ldap_connect'))
+                ? '' : install_propose_ldap());
+    }
+
+    echo install_debut_html();
+    echo $res;
+    echo install_fin_html();
 }

Spacing +23 added lines, -23 removed lines

@@ -45,7 +45,7 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	$fquery = sql_serveur('query', $server_db);
 	if ($choix_db == 'new_spip') {
@@ -55,13 +55,13 @@ 
 			if (!$ok) {
 				$re = "Impossible de creer la base $re";
 				spip_log($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+				return '<p>'._T('avis_connexion_erreur_creer_base')."</p><!--\n$re\n-->";
 			}
 		} else {
 			$re = "Le nom de la base doit correspondre a $re";
 			spip_log($re);
 
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+			return '<p>'._T('avis_connexion_erreur_nom_base')."</p><!--\n$re\n-->";
 		}
 	}
 
@@ -72,14 +72,14 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	// Completer le tableau decrivant la connexion
 
 	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
 	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
 
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
+	$old = sql_showbase($table_prefix.'_meta', $server_db);
 	if ($old) {
 		$old = sql_fetch($old, $server_db);
 	}
@@ -98,7 +98,7 @@ 
 				$charset['charset'];
 			$charsetbase = $charset['charset'];
 		} else {
-			spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+			spip_log(_DEFAULT_CHARSET.' inconnu du serveur SQL');
 			$charsetbase = 'standard';
 		}
 		spip_log("Creation des tables. Codage $charsetbase");
@@ -148,7 +148,7 @@ 
 		if ($r) {
 			$r = sql_fetch($r, $server_db);
 		}
-		$version_installee = !$r ? 0 : (double)$r['valeur'];
+		$version_installee = !$r ? 0 : (double) $r['valeur'];
 		if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
 			$fupdateq(
 				'spip_meta',
@@ -157,7 +157,7 @@ 
 				'',
 				$server_db
 			);
-			spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+			spip_log('nouvelle version installee: '.$GLOBALS['spip_version_base']);
 		}
 		// eliminer la derniere operation d'admin mal terminee
 		// notamment la mise a jour
@@ -184,7 +184,7 @@ 
 	if ($chmod_db) {
 		install_fichier_connexion(
 			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ".sprintf('0%3o', $chmod_db).");\n"
 		);
 	}
 
@@ -249,16 +249,16 @@ 
 
 // https://code.spip.net/@install_premier_auteur
 function install_premier_auteur($email, $login, $nom, $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
+	return info_progression_etape(3, 'etape_', 'install/').
 	info_etape(
 		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
+		'<b>'._T('texte_informations_personnelles_1').'</b>'.
+		aider('install5', true).
+		'<p>'.
 		($auteur_obligatoire ?
 			''
 			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+			_T('texte_informations_personnelles_2').' '._T('info_laisser_champs_vides')
 		)
 	)
 	. generer_form_ecrire('install', (
@@ -268,12 +268,12 @@ 
 			_T('info_identification_publique'),
 			array(
 				'nom' => array(
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+					'label' => '<b>'._T('entree_signature')."</b><br />\n"._T('entree_nom_pseudo_1')."\n",
 					'valeur' => $nom,
 					'required' => $auteur_obligatoire,
 				),
 				'email' => array(
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+					'label' => '<b>'._T('entree_adresse_email')."</b>\n",
 					'valeur' => $email,
 				)
 			)
@@ -283,23 +283,23 @@ 
 			_T('entree_identifiants_connexion'),
 			array(
 				'login' => array(
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_login')."</b><br />\n"._T(
 						'info_login_trop_court_car_pluriel',
 						array('nb' => _LOGIN_TROP_COURT)
-					) . "\n",
+					)."\n",
 					'valeur' => $login,
 					'required' => $auteur_obligatoire,
 				),
 				'pass' => array(
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_mot_passe')."</b><br />\n"._T(
 						'info_passe_trop_court_car_pluriel',
 						array('nb' => _PASS_LONGUEUR_MINI)
-					) . "\n",
+					)."\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				),
 				'pass_verif' => array(
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+					'label' => '<b>'._T('info_confirmer_passe')."</b><br />\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				)
@@ -344,9 +344,9 @@ 
 
 		if ($res) {
 			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+				. "<div class='error'><h3>"._T('avis_operation_echec').'</h3>'
 				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
+				. '<p>'._T('texte_operation_echec').'</p>'
 				. '</div>';
 		}
 	} else {