spip / SPIP

ecrire/inc/filtres_images_lib_mini.php

Doc Comments +5 added lines, -3 removed lines

@@ -87,7 +87,7 @@ 
  *
  * @param bool|string $stat
  *     true, false ou le statut déjà défini si traitements enchaînés.
- * @return bool
+ * @return false|null
  *     true si il faut supprimer le fichier temporaire ; false sinon.
  */
 function statut_effacer_images_temporaires($stat) {
@@ -367,7 +367,6 @@ 
 
 
 /**
- * @param string $quoi
  * @return array
  */
 function _image_extensions_acceptees_en_entree() {
@@ -405,6 +404,9 @@ 
 	return $extensions;
 }
 
+/**
+ * @param string $extension
+ */
 function _image_extension_normalisee($extension){
 	$extension = strtolower($extension);
 	if ($extension === 'jpeg') {
@@ -1703,7 +1705,7 @@ 
 	/**
 	 * Transforme une ressource GD en image au format ICO
 	 *
-	 * @param array $gd_image_array
+	 * @param resource[] $gd_image_array
 	 *     Tableau de ressources d'images GD
 	 * @return string
 	 *     Image au format ICO

Indentation +1217 added lines, -1217 removed lines

@@ -19,7 +19,7 @@ 
 
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres'); // par precaution
 include_spip('inc/filtres_images_mini'); // par precaution
@@ -39,21 +39,21 @@ 
  *     Le code de la couleur en hexadécimal.
  */
 function _couleur_dec_to_hex($red, $green, $blue) {
-	$red = dechex($red);
-	$green = dechex($green);
-	$blue = dechex($blue);
-
-	if (strlen($red) == 1) {
-		$red = "0" . $red;
-	}
-	if (strlen($green) == 1) {
-		$green = "0" . $green;
-	}
-	if (strlen($blue) == 1) {
-		$blue = "0" . $blue;
-	}
-
-	return "$red$green$blue";
+    $red = dechex($red);
+    $green = dechex($green);
+    $blue = dechex($blue);
+
+    if (strlen($red) == 1) {
+        $red = "0" . $red;
+    }
+    if (strlen($green) == 1) {
+        $green = "0" . $green;
+    }
+    if (strlen($blue) == 1) {
+        $blue = "0" . $blue;
+    }
+
+    return "$red$green$blue";
 }
 
 /**
@@ -65,16 +65,16 @@ 
  *     Un tableau des 3 éléments : rouge, vert, bleu.
  */
 function _couleur_hex_to_dec($couleur) {
-	$couleur = couleur_html_to_hex($couleur);
-	$couleur = ltrim($couleur, '#');
-	if (strlen($couleur) === 3) {
-		$couleur = $couleur[0] . $couleur[0] . $couleur[1] . $couleur[1] . $couleur[2] . $couleur[2];
-	}
-	$retour["red"] = hexdec(substr($couleur, 0, 2));
-	$retour["green"] = hexdec(substr($couleur, 2, 2));
-	$retour["blue"] = hexdec(substr($couleur, 4, 2));
-
-	return $retour;
+    $couleur = couleur_html_to_hex($couleur);
+    $couleur = ltrim($couleur, '#');
+    if (strlen($couleur) === 3) {
+        $couleur = $couleur[0] . $couleur[0] . $couleur[1] . $couleur[1] . $couleur[2] . $couleur[2];
+    }
+    $retour["red"] = hexdec(substr($couleur, 0, 2));
+    $retour["green"] = hexdec(substr($couleur, 2, 2));
+    $retour["blue"] = hexdec(substr($couleur, 4, 2));
+
+    return $retour;
 }
 
 /**
@@ -91,11 +91,11 @@ 
  *     true si il faut supprimer le fichier temporaire ; false sinon.
  */
 function statut_effacer_images_temporaires($stat) {
-	static $statut = false; // par defaut on grave toute les images
-	if ($stat === 'get') {
-		return $statut;
-	}
-	$statut = $stat ? true : false;
+    static $statut = false; // par defaut on grave toute les images
+    if ($stat === 'get') {
+        return $statut;
+    }
+    $statut = $stat ? true : false;
 }
 
 
@@ -145,224 +145,224 @@ 
  *     - array : tableau décrivant de l'image
  */
 function _image_valeurs_trans($img, $effet, $forcer_format = false, $fonction_creation = null, $find_in_path = false, $support_svg = false) {
-	static $images_recalcul = array();
-	if (strlen($img) == 0) {
-		return false;
-	}
-
-	$source = trim(extraire_attribut($img, 'src'));
-	if (strlen($source) < 1) {
-		$source = $img;
-		$img = "<img src='$source' />";
-	} # gerer img src="data:....base64"
-	elseif (preg_match('@^data:image/([^;]*);base64,(.*)$@isS', $source, $regs)
-	  and $extension = _image_trouver_extension_depuis_mime("image/".$regs[1])
-		and in_array($extension, _image_extensions_acceptees_en_entree())
-	) {
-		$local = sous_repertoire(_DIR_VAR, 'image-data') . md5($regs[2]) . '.' . _image_extension_normalisee($extension);
-		if (!file_exists($local)) {
-			ecrire_fichier($local, base64_decode($regs[2]));
-		}
-		$source = $local;
-		$img = inserer_attribut($img, 'src', $source);
-		# eviter les mauvaises surprises lors de conversions de format
-		$img = inserer_attribut($img, 'width', '');
-		$img = inserer_attribut($img, 'height', '');
-	}
-
-	// les protocoles web prennent au moins 3 lettres
-	if (tester_url_absolue($source)) {
-		include_spip('inc/distant');
-		$fichier = _DIR_RACINE . copie_locale($source);
-		if (!$fichier) {
-			return "";
-		}
-	} else {
-		// enlever le timestamp eventuel
-		if (strpos($source, "?") !== false) {
-			$source = preg_replace(',[?][0-9]+$,', '', $source);
-		}
-		if (strpos($source, "?") !== false
-			and strncmp($source, _DIR_IMG, strlen(_DIR_IMG)) == 0
-			and file_exists($f = preg_replace(',[?].*$,', '', $source))
-		) {
-			$source = $f;
-		}
-		$fichier = $source;
-	}
-
-	$terminaison_dest = "";
-	if ($terminaison = _image_trouver_extension($fichier)) {
-		$terminaison_dest = ($terminaison == 'gif') ? 'png' : $terminaison;
-	}
-
-	if ($forcer_format !== false
-		// ignorer forcer_format si on a une image svg, que le filtre appelant ne supporte pas SVG, et que le forcage est un autre format image
-		and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format,_image_extensions_acceptees_en_sortie()))) {
-		$terminaison_dest = $forcer_format;
-	}
-
-	if (!$terminaison_dest) {
-		return false;
-	}
-
-	$nom_fichier = substr($fichier, 0, strlen($fichier) - (strlen($terminaison) + 1));
-	$fichier_dest = $nom_fichier;
-	if (($find_in_path and $f = find_in_path($fichier) and $fichier = $f)
-		or @file_exists($f = $fichier)
-	) {
-		// on passe la balise img a taille image qui exraira les attributs si possible
-		// au lieu de faire un acces disque sur le fichier
-		list($ret["hauteur"], $ret["largeur"]) = taille_image($find_in_path ? $f : $img);
-		$date_src = @filemtime($f);
-	} elseif (@file_exists($f = "$fichier.src")
-		and lire_fichier($f, $valeurs)
-		and $valeurs = unserialize($valeurs)
-		and isset($valeurs["hauteur_dest"])
-		and isset($valeurs["largeur_dest"])
-	) {
-		$ret["hauteur"] = $valeurs["hauteur_dest"];
-		$ret["largeur"] = $valeurs["largeur_dest"];
-		$date_src = $valeurs["date"];
-	} // pas de fichier source par la
-	else {
-		return false;
-	}
-
-	// pas de taille mesurable
-	if (!($ret["hauteur"] or $ret["largeur"])) {
-		return false;
-	}
-
-	// les images calculees dependent du chemin du fichier source
-	// pour une meme image source et un meme filtre on aboutira a 2 fichiers selon si l'appel est dans le public ou dans le prive
-	// ce n'est pas totalement optimal en terme de stockage, mais chaque image est associee a un fichier .src
-	// qui contient la methode de reconstrucion (le filtre + les arguments d'appel) et les arguments different entre prive et public
-	// la mise en commun du fichier image cree donc un bug et des problemes qui necessiteraient beaucoup de complexite de code
-	// alors que ca concerne peu de site au final
-	// la release de r23632+r23633+r23634 a provoque peu de remontee de bug attestant du peu de sites impactes
-	$identifiant = $fichier;
-
-	// cas general :
-	// on a un dossier cache commun et un nom de fichier qui varie avec l'effet
-	// cas particulier de reduire :
-	// un cache par dimension, et le nom de fichier est conserve, suffixe par la dimension aussi
-	$cache = "cache-gd2";
-	if (substr($effet, 0, 7) == 'reduire') {
-		list(, $maxWidth, $maxHeight) = explode('-', $effet);
-		list($destWidth, $destHeight) = _image_ratio($ret['largeur'], $ret['hauteur'], $maxWidth, $maxHeight);
-		$ret['largeur_dest'] = $destWidth;
-		$ret['hauteur_dest'] = $destHeight;
-		$effet = "L{$destWidth}xH$destHeight";
-		$cache = "cache-vignettes";
-		$fichier_dest = basename($fichier_dest);
-		if (($ret['largeur'] <= $maxWidth) && ($ret['hauteur'] <= $maxHeight)) {
-			// on garde la terminaison initiale car image simplement copiee
-			// et on postfixe son nom avec un md5 du path
-			$terminaison_dest = $terminaison;
-			$fichier_dest .= '-' . substr(md5("$identifiant"), 0, 5);
-		} else {
-			$fichier_dest .= '-' . substr(md5("$identifiant-$effet"), 0, 5);
-		}
-		$cache = sous_repertoire(_DIR_VAR, $cache);
-		$cache = sous_repertoire($cache, $effet);
-	} else {
-		$fichier_dest = md5("$identifiant-$effet");
-		$cache = sous_repertoire(_DIR_VAR, $cache);
-		$cache = sous_repertoire($cache, substr($fichier_dest, 0, 2));
-		$fichier_dest = substr($fichier_dest, 2);
-	}
-
-	$fichier_dest = $cache . $fichier_dest . "." . $terminaison_dest;
-
-	$GLOBALS["images_calculees"][] = $fichier_dest;
-
-	$creer = true;
-	// si recalcul des images demande, recalculer chaque image une fois
-	if (defined('_VAR_IMAGES') and _VAR_IMAGES and !isset($images_recalcul[$fichier_dest])) {
-		$images_recalcul[$fichier_dest] = true;
-	} else {
-		if (@file_exists($f = $fichier_dest)) {
-			if (filemtime($f) >= $date_src) {
-				$creer = false;
-			}
-		} else {
-			if (@file_exists($f = "$fichier_dest.src")
-				and lire_fichier($f, $valeurs)
-				and $valeurs = unserialize($valeurs)
-				and $valeurs["date"] >= $date_src
-			) {
-				$creer = false;
-			}
-		}
-	}
-	if ($creer) {
-		if (!@file_exists($fichier)) {
-			if (!@file_exists("$fichier.src")) {
-				spip_log("Image absente : $fichier");
-
-				return false;
-			}
-			# on reconstruit l'image source absente a partir de la chaine des .src
-			reconstruire_image_intermediaire($fichier);
-		}
-	}
-
-	if ($creer) {
-		spip_log("filtre image " . ($fonction_creation ? reset($fonction_creation) : '') . "[$effet] sur $fichier",
-			"images" . _LOG_DEBUG);
-	}
-
-	$term_fonction = _image_trouver_extension_pertinente($fichier);
-	$ret["fonction_imagecreatefrom"] = "_imagecreatefrom" . $term_fonction;
-	$ret["fichier"] = $fichier;
-	$ret["fonction_image"] = "_image_image" . $terminaison_dest;
-	$ret["fichier_dest"] = $fichier_dest;
-	$ret["format_source"] = _image_extension_normalisee($terminaison);
-	$ret["format_dest"] = $terminaison_dest;
-	$ret["date_src"] = $date_src;
-	$ret["creer"] = $creer;
-	$ret["class"] = extraire_attribut($img, 'class');
-	$ret["alt"] = extraire_attribut($img, 'alt');
-	$ret["style"] = extraire_attribut($img, 'style');
-	$ret["tag"] = $img;
-	if ($fonction_creation) {
-		$ret["reconstruction"] = $fonction_creation;
-		# ecrire ici comment creer le fichier, car il est pas sur qu'on l'ecrira reelement 
-		# cas de image_reduire qui finalement ne reduit pas l'image source
-		# ca evite d'essayer de le creer au prochain hit si il n'est pas la
-		#ecrire_fichier($ret['fichier_dest'].'.src',serialize($ret),true);
-	}
-
-	$ret = pipeline('image_preparer_filtre', array(
-			'args' => array(
-				'img' => $img,
-				'effet' => $effet,
-				'forcer_format' => $forcer_format,
-				'fonction_creation' => $fonction_creation,
-				'find_in_path' => $find_in_path,
-			),
-			'data' => $ret
-		)
-	);
-
-	// une globale pour le debug en cas de crash memoire
-	$GLOBALS["derniere_image_calculee"] = $ret;
-
-	// traiter le cas particulier des SVG : si le filtre n'a pas annonce explicitement qu'il savait faire, on delegue
-	if ($term_fonction === 'svg') {
-		if ($creer and !$support_svg) {
-			process_image_svg_identite($ret);
-			$ret['creer'] = false;
-		}
-	}
-	else {
-		if (!function_exists($ret["fonction_imagecreatefrom"])) {
-			return false;
-		}
-	}
-
-	return $ret;
+    static $images_recalcul = array();
+    if (strlen($img) == 0) {
+        return false;
+    }
+
+    $source = trim(extraire_attribut($img, 'src'));
+    if (strlen($source) < 1) {
+        $source = $img;
+        $img = "<img src='$source' />";
+    } # gerer img src="data:....base64"
+    elseif (preg_match('@^data:image/([^;]*);base64,(.*)$@isS', $source, $regs)
+      and $extension = _image_trouver_extension_depuis_mime("image/".$regs[1])
+        and in_array($extension, _image_extensions_acceptees_en_entree())
+    ) {
+        $local = sous_repertoire(_DIR_VAR, 'image-data') . md5($regs[2]) . '.' . _image_extension_normalisee($extension);
+        if (!file_exists($local)) {
+            ecrire_fichier($local, base64_decode($regs[2]));
+        }
+        $source = $local;
+        $img = inserer_attribut($img, 'src', $source);
+        # eviter les mauvaises surprises lors de conversions de format
+        $img = inserer_attribut($img, 'width', '');
+        $img = inserer_attribut($img, 'height', '');
+    }
+
+    // les protocoles web prennent au moins 3 lettres
+    if (tester_url_absolue($source)) {
+        include_spip('inc/distant');
+        $fichier = _DIR_RACINE . copie_locale($source);
+        if (!$fichier) {
+            return "";
+        }
+    } else {
+        // enlever le timestamp eventuel
+        if (strpos($source, "?") !== false) {
+            $source = preg_replace(',[?][0-9]+$,', '', $source);
+        }
+        if (strpos($source, "?") !== false
+            and strncmp($source, _DIR_IMG, strlen(_DIR_IMG)) == 0
+            and file_exists($f = preg_replace(',[?].*$,', '', $source))
+        ) {
+            $source = $f;
+        }
+        $fichier = $source;
+    }
+
+    $terminaison_dest = "";
+    if ($terminaison = _image_trouver_extension($fichier)) {
+        $terminaison_dest = ($terminaison == 'gif') ? 'png' : $terminaison;
+    }
+
+    if ($forcer_format !== false
+        // ignorer forcer_format si on a une image svg, que le filtre appelant ne supporte pas SVG, et que le forcage est un autre format image
+        and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format,_image_extensions_acceptees_en_sortie()))) {
+        $terminaison_dest = $forcer_format;
+    }
+
+    if (!$terminaison_dest) {
+        return false;
+    }
+
+    $nom_fichier = substr($fichier, 0, strlen($fichier) - (strlen($terminaison) + 1));
+    $fichier_dest = $nom_fichier;
+    if (($find_in_path and $f = find_in_path($fichier) and $fichier = $f)
+        or @file_exists($f = $fichier)
+    ) {
+        // on passe la balise img a taille image qui exraira les attributs si possible
+        // au lieu de faire un acces disque sur le fichier
+        list($ret["hauteur"], $ret["largeur"]) = taille_image($find_in_path ? $f : $img);
+        $date_src = @filemtime($f);
+    } elseif (@file_exists($f = "$fichier.src")
+        and lire_fichier($f, $valeurs)
+        and $valeurs = unserialize($valeurs)
+        and isset($valeurs["hauteur_dest"])
+        and isset($valeurs["largeur_dest"])
+    ) {
+        $ret["hauteur"] = $valeurs["hauteur_dest"];
+        $ret["largeur"] = $valeurs["largeur_dest"];
+        $date_src = $valeurs["date"];
+    } // pas de fichier source par la
+    else {
+        return false;
+    }
+
+    // pas de taille mesurable
+    if (!($ret["hauteur"] or $ret["largeur"])) {
+        return false;
+    }
+
+    // les images calculees dependent du chemin du fichier source
+    // pour une meme image source et un meme filtre on aboutira a 2 fichiers selon si l'appel est dans le public ou dans le prive
+    // ce n'est pas totalement optimal en terme de stockage, mais chaque image est associee a un fichier .src
+    // qui contient la methode de reconstrucion (le filtre + les arguments d'appel) et les arguments different entre prive et public
+    // la mise en commun du fichier image cree donc un bug et des problemes qui necessiteraient beaucoup de complexite de code
+    // alors que ca concerne peu de site au final
+    // la release de r23632+r23633+r23634 a provoque peu de remontee de bug attestant du peu de sites impactes
+    $identifiant = $fichier;
+
+    // cas general :
+    // on a un dossier cache commun et un nom de fichier qui varie avec l'effet
+    // cas particulier de reduire :
+    // un cache par dimension, et le nom de fichier est conserve, suffixe par la dimension aussi
+    $cache = "cache-gd2";
+    if (substr($effet, 0, 7) == 'reduire') {
+        list(, $maxWidth, $maxHeight) = explode('-', $effet);
+        list($destWidth, $destHeight) = _image_ratio($ret['largeur'], $ret['hauteur'], $maxWidth, $maxHeight);
+        $ret['largeur_dest'] = $destWidth;
+        $ret['hauteur_dest'] = $destHeight;
+        $effet = "L{$destWidth}xH$destHeight";
+        $cache = "cache-vignettes";
+        $fichier_dest = basename($fichier_dest);
+        if (($ret['largeur'] <= $maxWidth) && ($ret['hauteur'] <= $maxHeight)) {
+            // on garde la terminaison initiale car image simplement copiee
+            // et on postfixe son nom avec un md5 du path
+            $terminaison_dest = $terminaison;
+            $fichier_dest .= '-' . substr(md5("$identifiant"), 0, 5);
+        } else {
+            $fichier_dest .= '-' . substr(md5("$identifiant-$effet"), 0, 5);
+        }
+        $cache = sous_repertoire(_DIR_VAR, $cache);
+        $cache = sous_repertoire($cache, $effet);
+    } else {
+        $fichier_dest = md5("$identifiant-$effet");
+        $cache = sous_repertoire(_DIR_VAR, $cache);
+        $cache = sous_repertoire($cache, substr($fichier_dest, 0, 2));
+        $fichier_dest = substr($fichier_dest, 2);
+    }
+
+    $fichier_dest = $cache . $fichier_dest . "." . $terminaison_dest;
+
+    $GLOBALS["images_calculees"][] = $fichier_dest;
+
+    $creer = true;
+    // si recalcul des images demande, recalculer chaque image une fois
+    if (defined('_VAR_IMAGES') and _VAR_IMAGES and !isset($images_recalcul[$fichier_dest])) {
+        $images_recalcul[$fichier_dest] = true;
+    } else {
+        if (@file_exists($f = $fichier_dest)) {
+            if (filemtime($f) >= $date_src) {
+                $creer = false;
+            }
+        } else {
+            if (@file_exists($f = "$fichier_dest.src")
+                and lire_fichier($f, $valeurs)
+                and $valeurs = unserialize($valeurs)
+                and $valeurs["date"] >= $date_src
+            ) {
+                $creer = false;
+            }
+        }
+    }
+    if ($creer) {
+        if (!@file_exists($fichier)) {
+            if (!@file_exists("$fichier.src")) {
+                spip_log("Image absente : $fichier");
+
+                return false;
+            }
+            # on reconstruit l'image source absente a partir de la chaine des .src
+            reconstruire_image_intermediaire($fichier);
+        }
+    }
+
+    if ($creer) {
+        spip_log("filtre image " . ($fonction_creation ? reset($fonction_creation) : '') . "[$effet] sur $fichier",
+            "images" . _LOG_DEBUG);
+    }
+
+    $term_fonction = _image_trouver_extension_pertinente($fichier);
+    $ret["fonction_imagecreatefrom"] = "_imagecreatefrom" . $term_fonction;
+    $ret["fichier"] = $fichier;
+    $ret["fonction_image"] = "_image_image" . $terminaison_dest;
+    $ret["fichier_dest"] = $fichier_dest;
+    $ret["format_source"] = _image_extension_normalisee($terminaison);
+    $ret["format_dest"] = $terminaison_dest;
+    $ret["date_src"] = $date_src;
+    $ret["creer"] = $creer;
+    $ret["class"] = extraire_attribut($img, 'class');
+    $ret["alt"] = extraire_attribut($img, 'alt');
+    $ret["style"] = extraire_attribut($img, 'style');
+    $ret["tag"] = $img;
+    if ($fonction_creation) {
+        $ret["reconstruction"] = $fonction_creation;
+        # ecrire ici comment creer le fichier, car il est pas sur qu'on l'ecrira reelement 
+        # cas de image_reduire qui finalement ne reduit pas l'image source
+        # ca evite d'essayer de le creer au prochain hit si il n'est pas la
+        #ecrire_fichier($ret['fichier_dest'].'.src',serialize($ret),true);
+    }
+
+    $ret = pipeline('image_preparer_filtre', array(
+            'args' => array(
+                'img' => $img,
+                'effet' => $effet,
+                'forcer_format' => $forcer_format,
+                'fonction_creation' => $fonction_creation,
+                'find_in_path' => $find_in_path,
+            ),
+            'data' => $ret
+        )
+    );
+
+    // une globale pour le debug en cas de crash memoire
+    $GLOBALS["derniere_image_calculee"] = $ret;
+
+    // traiter le cas particulier des SVG : si le filtre n'a pas annonce explicitement qu'il savait faire, on delegue
+    if ($term_fonction === 'svg') {
+        if ($creer and !$support_svg) {
+            process_image_svg_identite($ret);
+            $ret['creer'] = false;
+        }
+    }
+    else {
+        if (!function_exists($ret["fonction_imagecreatefrom"])) {
+            return false;
+        }
+    }
+
+    return $ret;
 }
 
 
@@ -371,50 +371,50 @@ 
  * @return array
  */
 function _image_extensions_acceptees_en_entree() {
-	static $extensions = null;
-	if (empty($extensions)) {
-		$extensions = ['png', 'gif', 'jpg', 'jpeg', 'svg'];
-		if (!empty($GLOBALS['meta']['gd_formats'])) {
-			// action=tester renseigne gd_formats et detecte le support de webp
-			$extensions = array_merge(explode(',', $GLOBALS['meta']['gd_formats']));
-			$extensions = array_map('trim', $extensions);
-			$extensions = array_filter($extensions);
-			$extensions = array_unique($extensions);
-		}
-	}
-
-	return $extensions;
+    static $extensions = null;
+    if (empty($extensions)) {
+        $extensions = ['png', 'gif', 'jpg', 'jpeg', 'svg'];
+        if (!empty($GLOBALS['meta']['gd_formats'])) {
+            // action=tester renseigne gd_formats et detecte le support de webp
+            $extensions = array_merge(explode(',', $GLOBALS['meta']['gd_formats']));
+            $extensions = array_map('trim', $extensions);
+            $extensions = array_filter($extensions);
+            $extensions = array_unique($extensions);
+        }
+    }
+
+    return $extensions;
 }
 
 /**
  * @return array|string[]|null
  */
 function _image_extensions_acceptees_en_sortie(){
-	static $extensions = null;
-	if (empty($extensions)){
-		$extensions = _image_extensions_acceptees_en_entree();
-		$extensions = array_diff($extensions, ['jpeg']);
-		if (in_array('gif', $extensions) and !function_exists('imagegif')) {
-			$extensions = array_diff($extensions, ['gif']);
-		}
-		if (in_array('webp', $extensions) and !function_exists('imagewebp')) {
-			$extensions = array_diff($extensions, ['webp']);
-		}
-	}
-
-	return $extensions;
+    static $extensions = null;
+    if (empty($extensions)){
+        $extensions = _image_extensions_acceptees_en_entree();
+        $extensions = array_diff($extensions, ['jpeg']);
+        if (in_array('gif', $extensions) and !function_exists('imagegif')) {
+            $extensions = array_diff($extensions, ['gif']);
+        }
+        if (in_array('webp', $extensions) and !function_exists('imagewebp')) {
+            $extensions = array_diff($extensions, ['webp']);
+        }
+    }
+
+    return $extensions;
 }
 
 function _image_extension_normalisee($extension){
-	$extension = strtolower($extension);
-	if ($extension === 'jpeg') {
-		$extension = 'jpg';
-	}
-	return $extension;
+    $extension = strtolower($extension);
+    if ($extension === 'jpeg') {
+        $extension = 'jpg';
+    }
+    return $extension;
 }
 
 function _image_extensions_conservent_transparence(){
-	return ['png', 'webp'];
+    return ['png', 'webp'];
 }
 
 
@@ -424,12 +424,12 @@ 
  * @return string
  */
 function _image_trouver_extension($path) {
-	$preg_extensions = implode('|', _image_extensions_acceptees_en_entree());
-	if (preg_match(",\.($preg_extensions)($|[?]),i", $path, $regs)) {
-		$terminaison = strtolower($regs[1]);
-		return $terminaison;
-	}
-	return '';
+    $preg_extensions = implode('|', _image_extensions_acceptees_en_entree());
+    if (preg_match(",\.($preg_extensions)($|[?]),i", $path, $regs)) {
+        $terminaison = strtolower($regs[1]);
+        return $terminaison;
+    }
+    return '';
 }
 
 /**
@@ -440,33 +440,33 @@ 
  * @return string Extension, dans le format attendu par les fonctions 'gd' ('jpeg' pour les .jpg par exemple)
  */
 function _image_trouver_extension_pertinente($path) {
-	$path = supprimer_timestamp($path);
-	$terminaison = _image_trouver_extension($path);
-	if ($terminaison == 'jpg') {
-		$terminaison = 'jpeg';
-	}
-
-	if (!file_exists($path)) {
-		return $terminaison;
-	}
-
-	if (!$info = @spip_getimagesize($path)) {
-		return $terminaison;
-	}
-
-	if (isset($info['mime'])) {
-		$mime = $info['mime'];
-	}
-	else {
-		$mime = image_type_to_mime_type($info[2]);
-	}
-
-	$_terminaison = _image_trouver_extension_depuis_mime($mime);
-	if ($_terminaison and $_terminaison !== $terminaison) {
-		spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", "images." . _LOG_INFO_IMPORTANTE);
-		$terminaison = $_terminaison;
-	}
-	return $terminaison;
+    $path = supprimer_timestamp($path);
+    $terminaison = _image_trouver_extension($path);
+    if ($terminaison == 'jpg') {
+        $terminaison = 'jpeg';
+    }
+
+    if (!file_exists($path)) {
+        return $terminaison;
+    }
+
+    if (!$info = @spip_getimagesize($path)) {
+        return $terminaison;
+    }
+
+    if (isset($info['mime'])) {
+        $mime = $info['mime'];
+    }
+    else {
+        $mime = image_type_to_mime_type($info[2]);
+    }
+
+    $_terminaison = _image_trouver_extension_depuis_mime($mime);
+    if ($_terminaison and $_terminaison !== $terminaison) {
+        spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", "images." . _LOG_INFO_IMPORTANTE);
+        $terminaison = $_terminaison;
+    }
+    return $terminaison;
 }
 
 /**
@@ -474,36 +474,36 @@ 
  * @return string
  */
 function _image_trouver_extension_depuis_mime($mime) {
-	switch (strtolower($mime)) {
-		case 'image/png':
-		case 'image/x-png':
-			$terminaison = 'png';
-			break;
-
-		case 'image/jpg':
-		case 'image/jpeg':
-		case 'image/pjpeg':
-			$terminaison = 'jpeg';
-			break;
-
-		case 'image/gif':
-			$terminaison = 'gif';
-			break;
-
-		case 'image/webp':
-		case 'image/x-webp':
-			$terminaison = 'webp';
-			break;
-
-		case 'image/svg+xml':
-			$terminaison = 'svg';
-			break;
-
-		default:
-			$terminaison = '';
-	}
-
-	return $terminaison;
+    switch (strtolower($mime)) {
+        case 'image/png':
+        case 'image/x-png':
+            $terminaison = 'png';
+            break;
+
+        case 'image/jpg':
+        case 'image/jpeg':
+        case 'image/pjpeg':
+            $terminaison = 'jpeg';
+            break;
+
+        case 'image/gif':
+            $terminaison = 'gif';
+            break;
+
+        case 'image/webp':
+        case 'image/x-webp':
+            $terminaison = 'webp';
+            break;
+
+        case 'image/svg+xml':
+            $terminaison = 'svg';
+            break;
+
+        default:
+            $terminaison = '';
+    }
+
+    return $terminaison;
 }
 
 /**
@@ -518,14 +518,14 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromjpeg($filename) {
-	$img = @imagecreatefromjpeg($filename);
-	if (!$img) {
-		spip_log("Erreur lecture imagecreatefromjpeg $filename", _LOG_CRITIQUE);
-		erreur_squelette("Erreur lecture imagecreatefromjpeg $filename");
-		$img = imagecreate(10, 10);
-	}
-
-	return $img;
+    $img = @imagecreatefromjpeg($filename);
+    if (!$img) {
+        spip_log("Erreur lecture imagecreatefromjpeg $filename", _LOG_CRITIQUE);
+        erreur_squelette("Erreur lecture imagecreatefromjpeg $filename");
+        $img = imagecreate(10, 10);
+    }
+
+    return $img;
 }
 
 /**
@@ -540,14 +540,14 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefrompng($filename) {
-	$img = @imagecreatefrompng($filename);
-	if (!$img) {
-		spip_log("Erreur lecture imagecreatefrompng $filename", _LOG_CRITIQUE);
-		erreur_squelette("Erreur lecture imagecreatefrompng $filename");
-		$img = imagecreate(10, 10);
-	}
-
-	return $img;
+    $img = @imagecreatefrompng($filename);
+    if (!$img) {
+        spip_log("Erreur lecture imagecreatefrompng $filename", _LOG_CRITIQUE);
+        erreur_squelette("Erreur lecture imagecreatefrompng $filename");
+        $img = imagecreate(10, 10);
+    }
+
+    return $img;
 }
 
 /**
@@ -562,14 +562,14 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromgif($filename) {
-	$img = @imagecreatefromgif($filename);
-	if (!$img) {
-		spip_log("Erreur lecture imagecreatefromgif $filename", _LOG_CRITIQUE);
-		erreur_squelette("Erreur lecture imagecreatefromgif $filename");
-		$img = imagecreate(10, 10);
-	}
-
-	return $img;
+    $img = @imagecreatefromgif($filename);
+    if (!$img) {
+        spip_log("Erreur lecture imagecreatefromgif $filename", _LOG_CRITIQUE);
+        erreur_squelette("Erreur lecture imagecreatefromgif $filename");
+        $img = imagecreate(10, 10);
+    }
+
+    return $img;
 }
 
 
@@ -585,14 +585,14 @@ 
  *     Une ressource de type Image GD.
  */
 function _imagecreatefromwebp($filename) {
-	$img = @imagecreatefromwebp($filename);
-	if (!$img) {
-		spip_log("Erreur lecture imagecreatefromwebp $filename", _LOG_CRITIQUE);
-		erreur_squelette("Erreur lecture imagecreatefrompng $filename");
-		$img = imagecreate(10, 10);
-	}
-
-	return $img;
+    $img = @imagecreatefromwebp($filename);
+    if (!$img) {
+        spip_log("Erreur lecture imagecreatefromwebp $filename", _LOG_CRITIQUE);
+        erreur_squelette("Erreur lecture imagecreatefrompng $filename");
+        $img = imagecreate(10, 10);
+    }
+
+    return $img;
 }
 
 /**
@@ -610,24 +610,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagepng($img, $fichier) {
-	if (!function_exists('imagepng')) {
-		return false;
-	}
-	$tmp = $fichier . ".tmp";
-	$ret = imagepng($img, $tmp);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagepng')) {
+        return false;
+    }
+    $tmp = $fichier . ".tmp";
+    $ret = imagepng($img, $tmp);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -645,24 +645,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagegif($img, $fichier) {
-	if (!function_exists('imagegif')) {
-		return false;
-	}
-	$tmp = $fichier . ".tmp";
-	$ret = imagegif($img, $tmp);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagegif')) {
+        return false;
+    }
+    $tmp = $fichier . ".tmp";
+    $ret = imagegif($img, $tmp);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -685,29 +685,29 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagejpg($img, $fichier, $qualite = _IMG_GD_QUALITE) {
-	if (!function_exists('imagejpeg')) {
-		return false;
-	}
-	$tmp = $fichier . ".tmp";
+    if (!function_exists('imagejpeg')) {
+        return false;
+    }
+    $tmp = $fichier . ".tmp";
 
-	// Enable interlancing
-	imageinterlace($img, true);
+    // Enable interlancing
+    imageinterlace($img, true);
 
-	$ret = imagejpeg($img, $tmp, $qualite);
+    $ret = imagejpeg($img, $tmp, $qualite);
 
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
 
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
 
-		return $ret;
-	}
+        return $ret;
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -725,9 +725,9 @@ 
  *     true si le fichier a bien été créé ; false sinon.
  */
 function _image_imageico($img, $fichier) {
-	$gd_image_array = array($img);
+    $gd_image_array = array($img);
 
-	return ecrire_fichier($fichier, phpthumb_functions::GD2ICOstring($gd_image_array));
+    return ecrire_fichier($fichier, phpthumb_functions::GD2ICOstring($gd_image_array));
 }
 
 
@@ -746,24 +746,24 @@ 
  *     - true si une image est bien retournée.
  */
 function _image_imagewebp($img, $fichier, $qualite = _IMG_GD_QUALITE) {
-	if (!function_exists('imagewebp')) {
-		return false;
-	}
-	$tmp = $fichier . ".tmp";
-	$ret = imagewebp($img, $tmp, $qualite);
-	if (file_exists($tmp)) {
-		$taille_test = getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return $ret;
-	}
-
-	return false;
+    if (!function_exists('imagewebp')) {
+        return false;
+    }
+    $tmp = $fichier . ".tmp";
+    $ret = imagewebp($img, $tmp, $qualite);
+    if (file_exists($tmp)) {
+        $taille_test = getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return $ret;
+    }
+
+    return false;
 }
 
 /**
@@ -783,35 +783,35 @@ 
  */
 function _image_imagesvg($img, $fichier) {
 
-	$tmp = $fichier . ".tmp";
-	if (strpos($img, "<") === false) {
-		$img = supprimer_timestamp($img);
-		if (!file_exists($img)) {
-			return false;
-		}
-		@copy($img, $tmp);
-		if (filesize($tmp) == filesize($img)) {
-			spip_unlink($fichier); // le fichier peut deja exister
-			@rename($tmp, $fichier);
-			return true;
-		}
-		return false;
-	}
-
-	file_put_contents($tmp, $img);
-	if (file_exists($tmp)) {
-		$taille_test = spip_getimagesize($tmp);
-		if ($taille_test[0] < 1) {
-			return false;
-		}
-
-		spip_unlink($fichier); // le fichier peut deja exister
-		@rename($tmp, $fichier);
-
-		return true;
-	}
-
-	return false;
+    $tmp = $fichier . ".tmp";
+    if (strpos($img, "<") === false) {
+        $img = supprimer_timestamp($img);
+        if (!file_exists($img)) {
+            return false;
+        }
+        @copy($img, $tmp);
+        if (filesize($tmp) == filesize($img)) {
+            spip_unlink($fichier); // le fichier peut deja exister
+            @rename($tmp, $fichier);
+            return true;
+        }
+        return false;
+    }
+
+    file_put_contents($tmp, $img);
+    if (file_exists($tmp)) {
+        $taille_test = spip_getimagesize($tmp);
+        if ($taille_test[0] < 1) {
+            return false;
+        }
+
+        spip_unlink($fichier); // le fichier peut deja exister
+        @rename($tmp, $fichier);
+
+        return true;
+    }
+
+    return false;
 }
 
 
@@ -839,27 +839,27 @@ 
  *     - false sinon.
  */
 function _image_gd_output($img, $valeurs, $qualite = _IMG_GD_QUALITE) {
-	$fonction = "_image_image" . $valeurs['format_dest'];
-	$ret = false;
-	#un flag pour reperer les images gravees
-	$lock =
-		!statut_effacer_images_temporaires('get') // si la fonction n'a pas ete activee, on grave tout
-	or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'] . '.src'));
-	if (
-		function_exists($fonction)
-		&& ($ret = $fonction($img, $valeurs['fichier_dest'], $qualite)) # on a reussi a creer l'image
-		&& isset($valeurs['reconstruction']) # et on sait comment la resonctruire le cas echeant
-		&& !$lock
-	) {
-		if (@file_exists($valeurs['fichier_dest'])) {
-			// dans tous les cas mettre a jour la taille de l'image finale
-			list($valeurs["hauteur_dest"], $valeurs["largeur_dest"]) = taille_image($valeurs['fichier_dest']);
-			$valeurs['date'] = @filemtime($valeurs['fichier_dest']); // pour la retrouver apres disparition
-			ecrire_fichier($valeurs['fichier_dest'] . '.src', serialize($valeurs), true);
-		}
-	}
-
-	return $ret;
+    $fonction = "_image_image" . $valeurs['format_dest'];
+    $ret = false;
+    #un flag pour reperer les images gravees
+    $lock =
+        !statut_effacer_images_temporaires('get') // si la fonction n'a pas ete activee, on grave tout
+    or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'] . '.src'));
+    if (
+        function_exists($fonction)
+        && ($ret = $fonction($img, $valeurs['fichier_dest'], $qualite)) # on a reussi a creer l'image
+        && isset($valeurs['reconstruction']) # et on sait comment la resonctruire le cas echeant
+        && !$lock
+    ) {
+        if (@file_exists($valeurs['fichier_dest'])) {
+            // dans tous les cas mettre a jour la taille de l'image finale
+            list($valeurs["hauteur_dest"], $valeurs["largeur_dest"]) = taille_image($valeurs['fichier_dest']);
+            $valeurs['date'] = @filemtime($valeurs['fichier_dest']); // pour la retrouver apres disparition
+            ecrire_fichier($valeurs['fichier_dest'] . '.src', serialize($valeurs), true);
+        }
+    }
+
+    return $ret;
 }
 
 /**
@@ -872,26 +872,26 @@ 
  *     Chemin vers le fichier manquant
  **/
 function reconstruire_image_intermediaire($fichier_manquant) {
-	$reconstruire = array();
-	$fichier = $fichier_manquant;
-	while (strpos($fichier,"://")===false
-		and !@file_exists($fichier)
-		and lire_fichier($src = "$fichier.src", $source)
-		and $valeurs = unserialize($source)
-		and ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
-	) {
-		spip_unlink($src); // si jamais on a un timeout pendant la reconstruction, elle se fera naturellement au hit suivant
-		$reconstruire[] = $valeurs['reconstruction'];
-	}
-	while (count($reconstruire)) {
-		$r = array_pop($reconstruire);
-		$fonction = $r[0];
-		$args = $r[1];
-		call_user_func_array($fonction, $args);
-	}
-	// cette image intermediaire est commune a plusieurs series de filtre, il faut la conserver
-	// mais l'on peut nettoyer les miettes de sa creation
-	ramasse_miettes($fichier_manquant);
+    $reconstruire = array();
+    $fichier = $fichier_manquant;
+    while (strpos($fichier,"://")===false
+        and !@file_exists($fichier)
+        and lire_fichier($src = "$fichier.src", $source)
+        and $valeurs = unserialize($source)
+        and ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
+    ) {
+        spip_unlink($src); // si jamais on a un timeout pendant la reconstruction, elle se fera naturellement au hit suivant
+        $reconstruire[] = $valeurs['reconstruction'];
+    }
+    while (count($reconstruire)) {
+        $r = array_pop($reconstruire);
+        $fonction = $r[0];
+        $args = $r[1];
+        call_user_func_array($fonction, $args);
+    }
+    // cette image intermediaire est commune a plusieurs series de filtre, il faut la conserver
+    // mais l'on peut nettoyer les miettes de sa creation
+    ramasse_miettes($fichier_manquant);
 }
 
 /**
@@ -911,25 +911,25 @@ 
  *     Chemin du fichier d'image calculé
  **/
 function ramasse_miettes($fichier) {
-	if (strpos($fichier,"://")!==false
-		or !lire_fichier($src = "$fichier.src", $source)
-		or !$valeurs = unserialize($source)
-	) {
-		return;
-	}
-	spip_unlink($src); # on supprime la reference a sa source pour marquer cette image comme non intermediaire
-	while (
-		($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
-		and (substr($fichier, 0, strlen(_DIR_VAR)) == _DIR_VAR) # et est dans local
-		and (lire_fichier($src = "$fichier.src",
-			$source)) # le fichier a une source connue (c'est donc une image calculee intermediaire)
-		and ($valeurs = unserialize($source))  # et valide
-	) {
-		# on efface le fichier
-		spip_unlink($fichier);
-		# mais laisse le .src qui permet de savoir comment reconstruire l'image si besoin
-		#spip_unlink($src);
-	}
+    if (strpos($fichier,"://")!==false
+        or !lire_fichier($src = "$fichier.src", $source)
+        or !$valeurs = unserialize($source)
+    ) {
+        return;
+    }
+    spip_unlink($src); # on supprime la reference a sa source pour marquer cette image comme non intermediaire
+    while (
+        ($fichier = $valeurs['fichier']) # l'origine est connue (on ne verifie pas son existence, qu'importe ...)
+        and (substr($fichier, 0, strlen(_DIR_VAR)) == _DIR_VAR) # et est dans local
+        and (lire_fichier($src = "$fichier.src",
+            $source)) # le fichier a une source connue (c'est donc une image calculee intermediaire)
+        and ($valeurs = unserialize($source))  # et valide
+    ) {
+        # on efface le fichier
+        spip_unlink($fichier);
+        # mais laisse le .src qui permet de savoir comment reconstruire l'image si besoin
+        #spip_unlink($src);
+    }
 }
 
 
@@ -954,71 +954,71 @@ 
  *     Code HTML de l'image
  **/
 function image_graver($img) {
-	// appeler le filtre post_image_filtrer qui permet de faire
-	// des traitements auto a la fin d'une serie de filtres
-	$img = pipeline('post_image_filtrer', $img);
-
-	$fichier_ori = $fichier = extraire_attribut($img, 'src');
-	if (($p = strpos($fichier, '?')) !== false) {
-		$fichier = substr($fichier, 0, $p);
-	}
-	if (strlen($fichier) < 1) {
-		$fichier = $img;
-	}
-	# si jamais le fichier final n'a pas ete calcule car suppose temporaire
-	# et qu'il ne s'agit pas d'une URL
-	if (strpos($fichier,"://")===false and !@file_exists($fichier)) {
-		reconstruire_image_intermediaire($fichier);
-	}
-	ramasse_miettes($fichier);
-
-	// ajouter le timestamp si besoin
-	if (strpos($fichier_ori, "?") === false) {
-		// on utilise str_replace pour attraper le onmouseover des logo si besoin
-		$img = str_replace($fichier_ori, timestamp($fichier_ori), $img);
-	}
-
-	return $img;
+    // appeler le filtre post_image_filtrer qui permet de faire
+    // des traitements auto a la fin d'une serie de filtres
+    $img = pipeline('post_image_filtrer', $img);
+
+    $fichier_ori = $fichier = extraire_attribut($img, 'src');
+    if (($p = strpos($fichier, '?')) !== false) {
+        $fichier = substr($fichier, 0, $p);
+    }
+    if (strlen($fichier) < 1) {
+        $fichier = $img;
+    }
+    # si jamais le fichier final n'a pas ete calcule car suppose temporaire
+    # et qu'il ne s'agit pas d'une URL
+    if (strpos($fichier,"://")===false and !@file_exists($fichier)) {
+        reconstruire_image_intermediaire($fichier);
+    }
+    ramasse_miettes($fichier);
+
+    // ajouter le timestamp si besoin
+    if (strpos($fichier_ori, "?") === false) {
+        // on utilise str_replace pour attraper le onmouseover des logo si besoin
+        $img = str_replace($fichier_ori, timestamp($fichier_ori), $img);
+    }
+
+    return $img;
 }
 
 
 if (!function_exists("imagepalettetotruecolor")) {
-	/**
-	 * Transforme une image à palette indexée (256 couleurs max) en "vraies" couleurs RGB
-	 *
-	 * @note Pour compatibilité avec PHP < 5.5
-	 *
-	 * @link http://php.net/manual/fr/function.imagepalettetotruecolor.php
-	 *
-	 * @param ressource $img
-	 * @return bool
-	 *     - true si l'image est déjà en vrai RGB ou peut être transformée
-	 *     - false si la transformation ne peut être faite.
-	 **/
-	function imagepalettetotruecolor(&$img) {
-		if (!$img or !function_exists('imagecreatetruecolor')) {
-			return false;
-		} elseif (!imageistruecolor($img)) {
-			$w = imagesx($img);
-			$h = imagesy($img);
-			$img1 = imagecreatetruecolor($w, $h);
-			//Conserver la transparence si possible
-			if (function_exists('ImageCopyResampled')) {
-				if (function_exists("imageAntiAlias")) {
-					imageAntiAlias($img1, true);
-				}
-				@imagealphablending($img1, false);
-				@imagesavealpha($img1, true);
-				@ImageCopyResampled($img1, $img, 0, 0, 0, 0, $w, $h, $w, $h);
-			} else {
-				imagecopy($img1, $img, 0, 0, 0, 0, $w, $h);
-			}
-
-			$img = $img1;
-		}
-
-		return true;
-	}
+    /**
+     * Transforme une image à palette indexée (256 couleurs max) en "vraies" couleurs RGB
+     *
+     * @note Pour compatibilité avec PHP < 5.5
+     *
+     * @link http://php.net/manual/fr/function.imagepalettetotruecolor.php
+     *
+     * @param ressource $img
+     * @return bool
+     *     - true si l'image est déjà en vrai RGB ou peut être transformée
+     *     - false si la transformation ne peut être faite.
+     **/
+    function imagepalettetotruecolor(&$img) {
+        if (!$img or !function_exists('imagecreatetruecolor')) {
+            return false;
+        } elseif (!imageistruecolor($img)) {
+            $w = imagesx($img);
+            $h = imagesy($img);
+            $img1 = imagecreatetruecolor($w, $h);
+            //Conserver la transparence si possible
+            if (function_exists('ImageCopyResampled')) {
+                if (function_exists("imageAntiAlias")) {
+                    imageAntiAlias($img1, true);
+                }
+                @imagealphablending($img1, false);
+                @imagesavealpha($img1, true);
+                @ImageCopyResampled($img1, $img, 0, 0, 0, 0, $w, $h, $w, $h);
+            } else {
+                imagecopy($img1, $img, 0, 0, 0, 0, $w, $h);
+            }
+
+            $img = $img1;
+        }
+
+        return true;
+    }
 }
 
 /**
@@ -1045,32 +1045,32 @@ 
  *     Code html modifié de la balise.
  **/
 function _image_tag_changer_taille($tag, $width, $height, $style = false) {
-	if ($style === false) {
-		$style = extraire_attribut($tag, 'style');
-	}
-
-	// enlever le width et height du style
-	$style = preg_replace(",(^|;)\s*(width|height)\s*:\s*[^;]+,ims", "", $style);
-	if ($style and $style[0] == ';') {
-		$style = substr($style, 1);
-	}
-
-	// mettre des attributs de width et height sur les images, 
-	// ca accelere le rendu du navigateur
-	// ca permet aux navigateurs de reserver la bonne taille 
-	// quand on a desactive l'affichage des images.
-	$tag = inserer_attribut($tag, 'width', round($width));
-	$tag = inserer_attribut($tag, 'height', round($height));
-
-	// attributs deprecies. Transformer en CSS
-	if ($espace = extraire_attribut($tag, 'hspace')) {
-		$style = "margin:${espace}px;" . $style;
-		$tag = inserer_attribut($tag, 'hspace', '');
-	}
-
-	$tag = inserer_attribut($tag, 'style', $style, true, $style ? false : true);
-
-	return $tag;
+    if ($style === false) {
+        $style = extraire_attribut($tag, 'style');
+    }
+
+    // enlever le width et height du style
+    $style = preg_replace(",(^|;)\s*(width|height)\s*:\s*[^;]+,ims", "", $style);
+    if ($style and $style[0] == ';') {
+        $style = substr($style, 1);
+    }
+
+    // mettre des attributs de width et height sur les images, 
+    // ca accelere le rendu du navigateur
+    // ca permet aux navigateurs de reserver la bonne taille 
+    // quand on a desactive l'affichage des images.
+    $tag = inserer_attribut($tag, 'width', round($width));
+    $tag = inserer_attribut($tag, 'height', round($height));
+
+    // attributs deprecies. Transformer en CSS
+    if ($espace = extraire_attribut($tag, 'hspace')) {
+        $style = "margin:${espace}px;" . $style;
+        $tag = inserer_attribut($tag, 'hspace', '');
+    }
+
+    $tag = inserer_attribut($tag, 'style', $style, true, $style ? false : true);
+
+    return $tag;
 }
 
 
@@ -1096,71 +1096,71 @@ 
  *     Retourne le code HTML de l'image
  **/
 function _image_ecrire_tag($valeurs, $surcharge = array()) {
-	$valeurs = pipeline('image_ecrire_tag_preparer', $valeurs);
-
-	// fermer les tags img pas bien fermes;
-	$tag = str_replace(">", "/>", str_replace("/>", ">", $valeurs['tag']));
-
-	// le style
-	$style = $valeurs['style'];
-	if (isset($surcharge['style'])) {
-		$style = $surcharge['style'];
-		unset($surcharge['style']);
-	}
-
-	// traiter specifiquement la largeur et la hauteur
-	$width = $valeurs['largeur'];
-	if (isset($surcharge['width'])) {
-		$width = $surcharge['width'];
-		unset($surcharge['width']);
-	}
-	$height = $valeurs['hauteur'];
-	if (isset($surcharge['height'])) {
-		$height = $surcharge['height'];
-		unset($surcharge['height']);
-	}
-
-	$tag = _image_tag_changer_taille($tag, $width, $height, $style);
-	// traiter specifiquement le src qui peut etre repris dans un onmouseout
-	// on remplace toute les ref a src dans le tag
-	$src = extraire_attribut($tag, 'src');
-	if (isset($surcharge['src'])) {
-		$tag = str_replace($src, $surcharge['src'], $tag);
-		// si il y a des & dans src, alors ils peuvent provenir d'un &amp
-		// pas garanti comme methode, mais mieux que rien
-		if (strpos($src, '&') !== false) {
-			$tag = str_replace(str_replace("&", "&amp;", $src), $surcharge['src'], $tag);
-		}
-		$src = $surcharge['src'];
-		unset($surcharge['src']);
-	}
-
-	$class = $valeurs['class'];
-	if (isset($surcharge['class'])) {
-		$class = $surcharge['class'];
-		unset($surcharge['class']);
-	}
-	if (strlen($class)) {
-		$tag = inserer_attribut($tag, 'class', $class);
-	}
-
-	if (count($surcharge)) {
-		foreach ($surcharge as $attribut => $valeur) {
-			$tag = inserer_attribut($tag, $attribut, $valeur);
-		}
-	}
-
-	$tag = pipeline('image_ecrire_tag_finir',
-		array(
-			'args' => array(
-				'valeurs' => $valeurs,
-				'surcharge' => $surcharge,
-			),
-			'data' => $tag
-		)
-	);
-
-	return $tag;
+    $valeurs = pipeline('image_ecrire_tag_preparer', $valeurs);
+
+    // fermer les tags img pas bien fermes;
+    $tag = str_replace(">", "/>", str_replace("/>", ">", $valeurs['tag']));
+
+    // le style
+    $style = $valeurs['style'];
+    if (isset($surcharge['style'])) {
+        $style = $surcharge['style'];
+        unset($surcharge['style']);
+    }
+
+    // traiter specifiquement la largeur et la hauteur
+    $width = $valeurs['largeur'];
+    if (isset($surcharge['width'])) {
+        $width = $surcharge['width'];
+        unset($surcharge['width']);
+    }
+    $height = $valeurs['hauteur'];
+    if (isset($surcharge['height'])) {
+        $height = $surcharge['height'];
+        unset($surcharge['height']);
+    }
+
+    $tag = _image_tag_changer_taille($tag, $width, $height, $style);
+    // traiter specifiquement le src qui peut etre repris dans un onmouseout
+    // on remplace toute les ref a src dans le tag
+    $src = extraire_attribut($tag, 'src');
+    if (isset($surcharge['src'])) {
+        $tag = str_replace($src, $surcharge['src'], $tag);
+        // si il y a des & dans src, alors ils peuvent provenir d'un &amp
+        // pas garanti comme methode, mais mieux que rien
+        if (strpos($src, '&') !== false) {
+            $tag = str_replace(str_replace("&", "&amp;", $src), $surcharge['src'], $tag);
+        }
+        $src = $surcharge['src'];
+        unset($surcharge['src']);
+    }
+
+    $class = $valeurs['class'];
+    if (isset($surcharge['class'])) {
+        $class = $surcharge['class'];
+        unset($surcharge['class']);
+    }
+    if (strlen($class)) {
+        $tag = inserer_attribut($tag, 'class', $class);
+    }
+
+    if (count($surcharge)) {
+        foreach ($surcharge as $attribut => $valeur) {
+            $tag = inserer_attribut($tag, $attribut, $valeur);
+        }
+    }
+
+    $tag = pipeline('image_ecrire_tag_finir',
+        array(
+            'args' => array(
+                'valeurs' => $valeurs,
+                'surcharge' => $surcharge,
+            ),
+            'data' => $tag
+        )
+    );
+
+    return $tag;
 }
 
 /**
@@ -1183,253 +1183,253 @@ 
  *     Description de l'image, sinon null.
  **/
 function _image_creer_vignette($valeurs, $maxWidth, $maxHeight, $process = 'AUTO', $force = false) {
-	// ordre de preference des formats graphiques pour creer les vignettes
-	// le premier format disponible, selon la methode demandee, est utilise
-	$image = $valeurs['fichier'];
-	$format = $valeurs['format_source'];
-	$destdir = dirname($valeurs['fichier_dest']);
-	$destfile = basename($valeurs['fichier_dest'], "." . $valeurs["format_dest"]);
-
-	$format_sortie = $valeurs['format_dest'];
-
-	if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
-		$process = $GLOBALS['meta']['image_process'];
-	}
-
-	// si le doc n'est pas une image dans un format accetpable, refuser
-	if (!$force and !in_array($format, formats_image_acceptables(in_array($process, ['gd1', 'gd2'])))) {
-		return;
-	}
-	$destination = "$destdir/$destfile";
-
-	// calculer la taille
-	if (($srcWidth = $valeurs['largeur']) && ($srcHeight = $valeurs['hauteur'])) {
-		if (!($destWidth = $valeurs['largeur_dest']) || !($destHeight = $valeurs['hauteur_dest'])) {
-			list($destWidth, $destHeight) = _image_ratio($valeurs['largeur'], $valeurs['hauteur'], $maxWidth, $maxHeight);
-		}
-	} elseif ($process == 'convert' or $process == 'imagick') {
-		$destWidth = $maxWidth;
-		$destHeight = $maxHeight;
-	} else {
-		spip_log("echec $process sur $image");
-
-		return;
-	}
-
-	$vignette = '';
-
-	// Si l'image est de la taille demandee (ou plus petite), simplement la retourner
-	if ($srcWidth and $srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
-		$vignette = $destination . '.' . $format;
-		@copy($image, $vignette);
-	}
-
-	elseif ($valeurs["format_source"] === 'svg') {
-		if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)){
-			$format_sortie = 'svg';
-			$vignette = $destination . "." . $format_sortie;
-			$valeurs['fichier_dest'] = $vignette;
-			_image_gd_output($svg, $valeurs);
-		}
-	}
-
-	// imagemagick en ligne de commande
-	elseif ($process == 'convert') {
-		if (!defined('_CONVERT_COMMAND')) {
-			define('_CONVERT_COMMAND', 'convert');
-		} // Securite : mes_options.php peut preciser le chemin absolu
-		if (!defined('_RESIZE_COMMAND')) {
-			define('_RESIZE_COMMAND', _CONVERT_COMMAND . ' -quality ' . _IMG_CONVERT_QUALITE . ' -resize %xx%y! %src %dest');
-		}
-		$vignette = $destination . "." . $format_sortie;
-		$commande = str_replace(
-			array('%x', '%y', '%src', '%dest'),
-			array(
-				$destWidth,
-				$destHeight,
-				escapeshellcmd($image),
-				escapeshellcmd($vignette)
-			),
-			_RESIZE_COMMAND);
-		spip_log($commande);
-		exec($commande);
-		if (!@file_exists($vignette)) {
-			spip_log("echec convert sur $vignette");
-
-			return;  // echec commande
-		}
-	}
-
-	// php5 imagemagick
-	elseif ($process == 'imagick') {
-		$vignette = "$destination." . $format_sortie;
-
-		if (!class_exists('Imagick')) {
-			spip_log("Classe Imagick absente !", _LOG_ERREUR);
-
-			return;
-		}
-		$imagick = new Imagick();
-		$imagick->readImage($image);
-		$imagick->resizeImage($destWidth, $destHeight, Imagick::FILTER_LANCZOS,
-			1);//, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
-		$imagick->writeImage($vignette);
-
-		if (!@file_exists($vignette)) {
-			spip_log("echec imagick sur $vignette");
-
-			return;
-		}
-	}
-
-	// netpbm
-	elseif ($process == "netpbm") {
-		if (!defined('_PNMSCALE_COMMAND')) {
-			define('_PNMSCALE_COMMAND', 'pnmscale');
-		} // Securite : mes_options.php peut preciser le chemin absolu
-		if (_PNMSCALE_COMMAND == '') {
-			return;
-		}
-		$vignette = $destination . "." . $format_sortie;
-		$pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
-		if ($format == "jpg") {
-
-			$jpegtopnm_command = str_replace("pnmscale", "jpegtopnm", _PNMSCALE_COMMAND);
-			exec("$jpegtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-			if (!($s = @filesize($vignette))) {
-				spip_unlink($vignette);
-			}
-			if (!@file_exists($vignette)) {
-				spip_log("echec netpbm-jpg sur $vignette");
-
-				return;
-			}
-		} else {
-			if ($format == "gif") {
-				$giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
-				exec("$giftopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-				if (!($s = @filesize($vignette))) {
-					spip_unlink($vignette);
-				}
-				if (!@file_exists($vignette)) {
-					spip_log("echec netpbm-gif sur $vignette");
-
-					return;
-				}
-			} else {
-				if ($format == "png") {
-					$pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
-					exec("$pngtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
-					if (!($s = @filesize($vignette))) {
-						spip_unlink($vignette);
-					}
-					if (!@file_exists($vignette)) {
-						spip_log("echec netpbm-png sur $vignette");
-
-						return;
-					}
-				}
-			}
-		}
-	}
-
-	// gd ou gd2
-	elseif ($process == 'gd1' or $process == 'gd2') {
-		if (!function_exists('gd_info')) {
-			spip_log("Librairie GD absente !", _LOG_ERREUR);
-
-			return;
-		}
-		if (_IMG_GD_MAX_PIXELS && $srcWidth * $srcHeight > _IMG_GD_MAX_PIXELS) {
-			spip_log("vignette gd1/gd2 impossible : " . $srcWidth * $srcHeight . "pixels");
-
-			return;
-		}
-		$destFormat = $format_sortie;
-		if (!$destFormat) {
-			spip_log("pas de format pour $image");
-
-			return;
-		}
-
-		$fonction_imagecreatefrom = $valeurs['fonction_imagecreatefrom'];
-		if (!function_exists($fonction_imagecreatefrom)) {
-			return '';
-		}
-		$srcImage = @$fonction_imagecreatefrom($image);
-		if (!$srcImage) {
-			spip_log("echec gd1/gd2");
-
-			return;
-		}
-
-		// Initialisation de l'image destination
-		$destImage = null;
-		if ($process == 'gd2' and $destFormat != "gif") {
-			$destImage = ImageCreateTrueColor($destWidth, $destHeight);
-		}
-		if (!$destImage) {
-			$destImage = ImageCreate($destWidth, $destHeight);
-		}
-
-		// Recopie de l'image d'origine avec adaptation de la taille 
-		$ok = false;
-		if (($process == 'gd2') and function_exists('ImageCopyResampled')) {
-			if ($format == "gif") {
-				// Si un GIF est transparent, 
-				// fabriquer un PNG transparent  
-				$transp = imagecolortransparent($srcImage);
-				if ($transp > 0) {
-					$destFormat = "png";
-				}
-			}
-			if (in_array($destFormat, _image_extensions_conservent_transparence())) {
-				// Conserver la transparence 
-				if (function_exists("imageAntiAlias")) {
-					imageAntiAlias($destImage, true);
-				}
-				@imagealphablending($destImage, false);
-				@imagesavealpha($destImage, true);
-			}
-			$ok = @ImageCopyResampled($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
-		}
-		if (!$ok) {
-			$ok = ImageCopyResized($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
-		}
-
-		// Sauvegarde de l'image destination
-		$valeurs['fichier_dest'] = $vignette = "$destination.$destFormat";
-		$valeurs['format_dest'] = $format = $destFormat;
-		_image_gd_output($destImage, $valeurs);
-
-		if ($srcImage) {
-			ImageDestroy($srcImage);
-		}
-		ImageDestroy($destImage);
-	}
-
-	if (!$vignette or !$size = @spip_getimagesize($vignette)) {
-		$size = array($destWidth, $destHeight);
-	}
-
-	// Gaffe: en safe mode, pas d'acces a la vignette,
-	// donc risque de balancer "width='0'", ce qui masque l'image sous MSIE
-	if ($size[0] < 1) {
-		$size[0] = $destWidth;
-	}
-	if ($size[1] < 1) {
-		$size[1] = $destHeight;
-	}
-
-	$retour['width'] = $largeur = $size[0];
-	$retour['height'] = $hauteur = $size[1];
-
-	$retour['fichier'] = $vignette;
-	$retour['format'] = $format;
-	$retour['date'] = @filemtime($vignette);
-
-	// renvoyer l'image
-	return $retour;
+    // ordre de preference des formats graphiques pour creer les vignettes
+    // le premier format disponible, selon la methode demandee, est utilise
+    $image = $valeurs['fichier'];
+    $format = $valeurs['format_source'];
+    $destdir = dirname($valeurs['fichier_dest']);
+    $destfile = basename($valeurs['fichier_dest'], "." . $valeurs["format_dest"]);
+
+    $format_sortie = $valeurs['format_dest'];
+
+    if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
+        $process = $GLOBALS['meta']['image_process'];
+    }
+
+    // si le doc n'est pas une image dans un format accetpable, refuser
+    if (!$force and !in_array($format, formats_image_acceptables(in_array($process, ['gd1', 'gd2'])))) {
+        return;
+    }
+    $destination = "$destdir/$destfile";
+
+    // calculer la taille
+    if (($srcWidth = $valeurs['largeur']) && ($srcHeight = $valeurs['hauteur'])) {
+        if (!($destWidth = $valeurs['largeur_dest']) || !($destHeight = $valeurs['hauteur_dest'])) {
+            list($destWidth, $destHeight) = _image_ratio($valeurs['largeur'], $valeurs['hauteur'], $maxWidth, $maxHeight);
+        }
+    } elseif ($process == 'convert' or $process == 'imagick') {
+        $destWidth = $maxWidth;
+        $destHeight = $maxHeight;
+    } else {
+        spip_log("echec $process sur $image");
+
+        return;
+    }
+
+    $vignette = '';
+
+    // Si l'image est de la taille demandee (ou plus petite), simplement la retourner
+    if ($srcWidth and $srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
+        $vignette = $destination . '.' . $format;
+        @copy($image, $vignette);
+    }
+
+    elseif ($valeurs["format_source"] === 'svg') {
+        if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)){
+            $format_sortie = 'svg';
+            $vignette = $destination . "." . $format_sortie;
+            $valeurs['fichier_dest'] = $vignette;
+            _image_gd_output($svg, $valeurs);
+        }
+    }
+
+    // imagemagick en ligne de commande
+    elseif ($process == 'convert') {
+        if (!defined('_CONVERT_COMMAND')) {
+            define('_CONVERT_COMMAND', 'convert');
+        } // Securite : mes_options.php peut preciser le chemin absolu
+        if (!defined('_RESIZE_COMMAND')) {
+            define('_RESIZE_COMMAND', _CONVERT_COMMAND . ' -quality ' . _IMG_CONVERT_QUALITE . ' -resize %xx%y! %src %dest');
+        }
+        $vignette = $destination . "." . $format_sortie;
+        $commande = str_replace(
+            array('%x', '%y', '%src', '%dest'),
+            array(
+                $destWidth,
+                $destHeight,
+                escapeshellcmd($image),
+                escapeshellcmd($vignette)
+            ),
+            _RESIZE_COMMAND);
+        spip_log($commande);
+        exec($commande);
+        if (!@file_exists($vignette)) {
+            spip_log("echec convert sur $vignette");
+
+            return;  // echec commande
+        }
+    }
+
+    // php5 imagemagick
+    elseif ($process == 'imagick') {
+        $vignette = "$destination." . $format_sortie;
+
+        if (!class_exists('Imagick')) {
+            spip_log("Classe Imagick absente !", _LOG_ERREUR);
+
+            return;
+        }
+        $imagick = new Imagick();
+        $imagick->readImage($image);
+        $imagick->resizeImage($destWidth, $destHeight, Imagick::FILTER_LANCZOS,
+            1);//, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
+        $imagick->writeImage($vignette);
+
+        if (!@file_exists($vignette)) {
+            spip_log("echec imagick sur $vignette");
+
+            return;
+        }
+    }
+
+    // netpbm
+    elseif ($process == "netpbm") {
+        if (!defined('_PNMSCALE_COMMAND')) {
+            define('_PNMSCALE_COMMAND', 'pnmscale');
+        } // Securite : mes_options.php peut preciser le chemin absolu
+        if (_PNMSCALE_COMMAND == '') {
+            return;
+        }
+        $vignette = $destination . "." . $format_sortie;
+        $pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
+        if ($format == "jpg") {
+
+            $jpegtopnm_command = str_replace("pnmscale", "jpegtopnm", _PNMSCALE_COMMAND);
+            exec("$jpegtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+            if (!($s = @filesize($vignette))) {
+                spip_unlink($vignette);
+            }
+            if (!@file_exists($vignette)) {
+                spip_log("echec netpbm-jpg sur $vignette");
+
+                return;
+            }
+        } else {
+            if ($format == "gif") {
+                $giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
+                exec("$giftopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+                if (!($s = @filesize($vignette))) {
+                    spip_unlink($vignette);
+                }
+                if (!@file_exists($vignette)) {
+                    spip_log("echec netpbm-gif sur $vignette");
+
+                    return;
+                }
+            } else {
+                if ($format == "png") {
+                    $pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
+                    exec("$pngtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+                    if (!($s = @filesize($vignette))) {
+                        spip_unlink($vignette);
+                    }
+                    if (!@file_exists($vignette)) {
+                        spip_log("echec netpbm-png sur $vignette");
+
+                        return;
+                    }
+                }
+            }
+        }
+    }
+
+    // gd ou gd2
+    elseif ($process == 'gd1' or $process == 'gd2') {
+        if (!function_exists('gd_info')) {
+            spip_log("Librairie GD absente !", _LOG_ERREUR);
+
+            return;
+        }
+        if (_IMG_GD_MAX_PIXELS && $srcWidth * $srcHeight > _IMG_GD_MAX_PIXELS) {
+            spip_log("vignette gd1/gd2 impossible : " . $srcWidth * $srcHeight . "pixels");
+
+            return;
+        }
+        $destFormat = $format_sortie;
+        if (!$destFormat) {
+            spip_log("pas de format pour $image");
+
+            return;
+        }
+
+        $fonction_imagecreatefrom = $valeurs['fonction_imagecreatefrom'];
+        if (!function_exists($fonction_imagecreatefrom)) {
+            return '';
+        }
+        $srcImage = @$fonction_imagecreatefrom($image);
+        if (!$srcImage) {
+            spip_log("echec gd1/gd2");
+
+            return;
+        }
+
+        // Initialisation de l'image destination
+        $destImage = null;
+        if ($process == 'gd2' and $destFormat != "gif") {
+            $destImage = ImageCreateTrueColor($destWidth, $destHeight);
+        }
+        if (!$destImage) {
+            $destImage = ImageCreate($destWidth, $destHeight);
+        }
+
+        // Recopie de l'image d'origine avec adaptation de la taille 
+        $ok = false;
+        if (($process == 'gd2') and function_exists('ImageCopyResampled')) {
+            if ($format == "gif") {
+                // Si un GIF est transparent, 
+                // fabriquer un PNG transparent  
+                $transp = imagecolortransparent($srcImage);
+                if ($transp > 0) {
+                    $destFormat = "png";
+                }
+            }
+            if (in_array($destFormat, _image_extensions_conservent_transparence())) {
+                // Conserver la transparence 
+                if (function_exists("imageAntiAlias")) {
+                    imageAntiAlias($destImage, true);
+                }
+                @imagealphablending($destImage, false);
+                @imagesavealpha($destImage, true);
+            }
+            $ok = @ImageCopyResampled($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
+        }
+        if (!$ok) {
+            $ok = ImageCopyResized($destImage, $srcImage, 0, 0, 0, 0, $destWidth, $destHeight, $srcWidth, $srcHeight);
+        }
+
+        // Sauvegarde de l'image destination
+        $valeurs['fichier_dest'] = $vignette = "$destination.$destFormat";
+        $valeurs['format_dest'] = $format = $destFormat;
+        _image_gd_output($destImage, $valeurs);
+
+        if ($srcImage) {
+            ImageDestroy($srcImage);
+        }
+        ImageDestroy($destImage);
+    }
+
+    if (!$vignette or !$size = @spip_getimagesize($vignette)) {
+        $size = array($destWidth, $destHeight);
+    }
+
+    // Gaffe: en safe mode, pas d'acces a la vignette,
+    // donc risque de balancer "width='0'", ce qui masque l'image sous MSIE
+    if ($size[0] < 1) {
+        $size[0] = $destWidth;
+    }
+    if ($size[1] < 1) {
+        $size[1] = $destHeight;
+    }
+
+    $retour['width'] = $largeur = $size[0];
+    $retour['height'] = $hauteur = $size[1];
+
+    $retour['fichier'] = $vignette;
+    $retour['format'] = $format;
+    $retour['date'] = @filemtime($vignette);
+
+    // renvoyer l'image
+    return $retour;
 }
 
 /**
@@ -1449,25 +1449,25 @@ 
  * @return array Liste [ largeur, hauteur, ratio de réduction ]
  **/
 function _image_ratio($srcWidth, $srcHeight, $maxWidth, $maxHeight) {
-	$ratioWidth = $srcWidth / $maxWidth;
-	$ratioHeight = $srcHeight / $maxHeight;
-
-	if ($ratioWidth <= 1 and $ratioHeight <= 1) {
-		$destWidth = $srcWidth;
-		$destHeight = $srcHeight;
-	} elseif ($ratioWidth < $ratioHeight) {
-		$destWidth = $srcWidth / $ratioHeight;
-		$destHeight = $maxHeight;
-	} else {
-		$destWidth = $maxWidth;
-		$destHeight = $srcHeight / $ratioWidth;
-	}
-
-	return array(
-		ceil($destWidth),
-		ceil($destHeight),
-		max($ratioWidth, $ratioHeight)
-	);
+    $ratioWidth = $srcWidth / $maxWidth;
+    $ratioHeight = $srcHeight / $maxHeight;
+
+    if ($ratioWidth <= 1 and $ratioHeight <= 1) {
+        $destWidth = $srcWidth;
+        $destHeight = $srcHeight;
+    } elseif ($ratioWidth < $ratioHeight) {
+        $destWidth = $srcWidth / $ratioHeight;
+        $destHeight = $maxHeight;
+    } else {
+        $destWidth = $maxWidth;
+        $destHeight = $srcHeight / $ratioWidth;
+    }
+
+    return array(
+        ceil($destWidth),
+        ceil($destHeight),
+        max($ratioWidth, $ratioHeight)
+    );
 }
 
 /**
@@ -1487,25 +1487,25 @@ 
  * @return array Liste [ largeur, hauteur, ratio de réduction ]
  **/
 function ratio_passe_partout($srcWidth, $srcHeight, $maxWidth, $maxHeight) {
-	$ratioWidth = $srcWidth / $maxWidth;
-	$ratioHeight = $srcHeight / $maxHeight;
-
-	if ($ratioWidth <= 1 and $ratioHeight <= 1) {
-		$destWidth = $srcWidth;
-		$destHeight = $srcHeight;
-	} elseif ($ratioWidth > $ratioHeight) {
-		$destWidth = $srcWidth / $ratioHeight;
-		$destHeight = $maxHeight;
-	} else {
-		$destWidth = $maxWidth;
-		$destHeight = $srcHeight / $ratioWidth;
-	}
-
-	return array(
-		ceil($destWidth),
-		ceil($destHeight),
-		min($ratioWidth, $ratioHeight)
-	);
+    $ratioWidth = $srcWidth / $maxWidth;
+    $ratioHeight = $srcHeight / $maxHeight;
+
+    if ($ratioWidth <= 1 and $ratioHeight <= 1) {
+        $destWidth = $srcWidth;
+        $destHeight = $srcHeight;
+    } elseif ($ratioWidth > $ratioHeight) {
+        $destWidth = $srcWidth / $ratioHeight;
+        $destHeight = $maxHeight;
+    } else {
+        $destWidth = $maxWidth;
+        $destHeight = $srcHeight / $ratioWidth;
+    }
+
+    return array(
+        ceil($destWidth),
+        ceil($destHeight),
+        min($ratioWidth, $ratioHeight)
+    );
 }
 
 
@@ -1518,12 +1518,12 @@ 
  * @return string
  */
 function process_image_svg_identite($image) {
-	if ($image['creer']) {
-		$source = $image['fichier'];
-		_image_gd_output($source, $image);
-	}
+    if ($image['creer']) {
+        $source = $image['fichier'];
+        _image_gd_output($source, $image);
+    }
 
-	return _image_ecrire_tag($image, array('src' => $image['fichier_dest']));
+    return _image_ecrire_tag($image, array('src' => $image['fichier_dest']));
 }
 
 
@@ -1556,104 +1556,104 @@ 
  *     Code HTML de la balise img produite
  **/
 function process_image_reduire($fonction, $img, $taille, $taille_y, $force, $process = 'AUTO') {
-	$image = false;
-	if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
-		$process = $GLOBALS['meta']['image_process'];
-	}
-	# determiner le format de sortie
-	$format_sortie = false; // le choix par defaut sera bon
-	if ($process == "netpbm") {
-		$format_sortie = "jpg";
-	} elseif ($process == 'gd1' or $process == 'gd2') {
-		$image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
-		// on verifie que l'extension choisie est bonne (en principe oui)
-		$gd_formats = formats_image_acceptables(true);
-		if (is_array($image)
-			and (!in_array($image['format_dest'], $gd_formats)
-				or (!in_array($image['format_dest'], _image_extensions_acceptees_en_sortie()))
-			)
-		) {
-			if ($image['format_source'] == 'jpg') {
-				$formats_sortie = array('jpg', 'png', 'gif');
-			} else // les gif sont passes en png preferentiellement pour etre homogene aux autres filtres images
-			{
-				$formats_sortie = array('png', 'jpg', 'gif');
-			}
-			// Choisir le format destination
-			// - on sauve de preference en JPEG (meilleure compression)
-			// - pour le GIF : les GD recentes peuvent le lire mais pas l'ecrire
-			# bug : gd_formats contient la liste des fichiers qu'on sait *lire*,
-			# pas *ecrire*
-			$format_sortie = "";
-			foreach ($formats_sortie as $fmt) {
-				if (in_array($fmt, $gd_formats) and in_array($fmt, _image_extensions_acceptees_en_sortie())) {
-					$format_sortie = $fmt;
-					break;
-				}
-			}
-			$image = false;
-		}
-	}
-
-	if (!is_array($image)) {
-		$image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
-	}
-
-	if (!is_array($image) or !$image['largeur'] or !$image['hauteur']) {
-		spip_log("image_reduire_src:pas de version locale de $img");
-		// on peut resizer en mode html si on dispose des elements
-		if ($srcw = extraire_attribut($img, 'width')
-			and $srch = extraire_attribut($img, 'height')
-		) {
-			list($w, $h) = _image_ratio($srcw, $srch, $taille, $taille_y);
-
-			return _image_tag_changer_taille($img, $w, $h);
-		}
-		// la on n'a pas d'infos sur l'image source... on refile le truc a css
-		// sous la forme style='max-width: NNpx;'
-		return inserer_attribut($img, 'style',
-			"max-width: ${taille}px; max-height: ${taille_y}px");
-	}
-
-	// si l'image est plus petite que la cible retourner une copie cachee de l'image
-	if (($image['largeur'] <= $taille) && ($image['hauteur'] <= $taille_y)) {
-		if ($image['creer']) {
-			@copy($image['fichier'], $image['fichier_dest']);
-		}
-
-		return _image_ecrire_tag($image, array('src' => $image['fichier_dest']));
-	}
-
-	if ($image['creer'] == false && !$force) {
-		return _image_ecrire_tag($image,
-			array('src' => $image['fichier_dest'], 'width' => $image['largeur_dest'], 'height' => $image['hauteur_dest']));
-	}
-
-	if (in_array($image["format_source"], _image_extensions_acceptees_en_entree())) {
-		$destWidth = $image['largeur_dest'];
-		$destHeight = $image['hauteur_dest'];
-		$logo = $image['fichier'];
-		$date = $image["date_src"];
-		$preview = _image_creer_vignette($image, $taille, $taille_y, $process, $force);
-
-		if ($preview && $preview['fichier']) {
-			$logo = $preview['fichier'];
-			$destWidth = $preview['width'];
-			$destHeight = $preview['height'];
-			$date = $preview['date'];
-		}
-		// dans l'espace prive mettre un timestamp sur l'adresse 
-		// de l'image, de facon a tromper le cache du navigateur
-		// quand on fait supprimer/reuploader un logo
-		// (pas de filemtime si SAFE MODE)
-		$date = test_espace_prive() ? ('?' . $date) : '';
-
-		return _image_ecrire_tag($image, array('src' => "$logo$date", 'width' => $destWidth, 'height' => $destHeight));
-	}
-	else {
-		# BMP, tiff ... les redacteurs osent tout!
-		return $img;
-	}
+    $image = false;
+    if (($process == 'AUTO') and isset($GLOBALS['meta']['image_process'])) {
+        $process = $GLOBALS['meta']['image_process'];
+    }
+    # determiner le format de sortie
+    $format_sortie = false; // le choix par defaut sera bon
+    if ($process == "netpbm") {
+        $format_sortie = "jpg";
+    } elseif ($process == 'gd1' or $process == 'gd2') {
+        $image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
+        // on verifie que l'extension choisie est bonne (en principe oui)
+        $gd_formats = formats_image_acceptables(true);
+        if (is_array($image)
+            and (!in_array($image['format_dest'], $gd_formats)
+                or (!in_array($image['format_dest'], _image_extensions_acceptees_en_sortie()))
+            )
+        ) {
+            if ($image['format_source'] == 'jpg') {
+                $formats_sortie = array('jpg', 'png', 'gif');
+            } else // les gif sont passes en png preferentiellement pour etre homogene aux autres filtres images
+            {
+                $formats_sortie = array('png', 'jpg', 'gif');
+            }
+            // Choisir le format destination
+            // - on sauve de preference en JPEG (meilleure compression)
+            // - pour le GIF : les GD recentes peuvent le lire mais pas l'ecrire
+            # bug : gd_formats contient la liste des fichiers qu'on sait *lire*,
+            # pas *ecrire*
+            $format_sortie = "";
+            foreach ($formats_sortie as $fmt) {
+                if (in_array($fmt, $gd_formats) and in_array($fmt, _image_extensions_acceptees_en_sortie())) {
+                    $format_sortie = $fmt;
+                    break;
+                }
+            }
+            $image = false;
+        }
+    }
+
+    if (!is_array($image)) {
+        $image = _image_valeurs_trans($img, "reduire-{$taille}-{$taille_y}", $format_sortie, $fonction, false, _SVG_SUPPORTED);
+    }
+
+    if (!is_array($image) or !$image['largeur'] or !$image['hauteur']) {
+        spip_log("image_reduire_src:pas de version locale de $img");
+        // on peut resizer en mode html si on dispose des elements
+        if ($srcw = extraire_attribut($img, 'width')
+            and $srch = extraire_attribut($img, 'height')
+        ) {
+            list($w, $h) = _image_ratio($srcw, $srch, $taille, $taille_y);
+
+            return _image_tag_changer_taille($img, $w, $h);
+        }
+        // la on n'a pas d'infos sur l'image source... on refile le truc a css
+        // sous la forme style='max-width: NNpx;'
+        return inserer_attribut($img, 'style',
+            "max-width: ${taille}px; max-height: ${taille_y}px");
+    }
+
+    // si l'image est plus petite que la cible retourner une copie cachee de l'image
+    if (($image['largeur'] <= $taille) && ($image['hauteur'] <= $taille_y)) {
+        if ($image['creer']) {
+            @copy($image['fichier'], $image['fichier_dest']);
+        }
+
+        return _image_ecrire_tag($image, array('src' => $image['fichier_dest']));
+    }
+
+    if ($image['creer'] == false && !$force) {
+        return _image_ecrire_tag($image,
+            array('src' => $image['fichier_dest'], 'width' => $image['largeur_dest'], 'height' => $image['hauteur_dest']));
+    }
+
+    if (in_array($image["format_source"], _image_extensions_acceptees_en_entree())) {
+        $destWidth = $image['largeur_dest'];
+        $destHeight = $image['hauteur_dest'];
+        $logo = $image['fichier'];
+        $date = $image["date_src"];
+        $preview = _image_creer_vignette($image, $taille, $taille_y, $process, $force);
+
+        if ($preview && $preview['fichier']) {
+            $logo = $preview['fichier'];
+            $destWidth = $preview['width'];
+            $destHeight = $preview['height'];
+            $date = $preview['date'];
+        }
+        // dans l'espace prive mettre un timestamp sur l'adresse 
+        // de l'image, de facon a tromper le cache du navigateur
+        // quand on fait supprimer/reuploader un logo
+        // (pas de filemtime si SAFE MODE)
+        $date = test_espace_prive() ? ('?' . $date) : '';
+
+        return _image_ecrire_tag($image, array('src' => "$logo$date", 'width' => $destWidth, 'height' => $destHeight));
+    }
+    else {
+        # BMP, tiff ... les redacteurs osent tout!
+        return $img;
+    }
 }
 
 /**
@@ -1668,144 +1668,144 @@ 
  */
 class phpthumb_functions {
 
-	/**
-	 * Retourne la couleur d'un pixel dans une image
-	 *
-	 * @param ressource $img
-	 * @param int $x
-	 * @param int $y
-	 * @return array|bool
-	 */
-	public static function GetPixelColor(&$img, $x, $y) {
-		if (is_resource($img) || (is_object($img) && $img instanceof \GdImage)) {
-			return @ImageColorsForIndex($img, @ImageColorAt($img, $x, $y));
-		}
-		return false;
-	}
-
-	/**
-	 * Retourne un nombre dans une représentation en Little Endian
-	 *
-	 * @param int $number
-	 * @param int $minbytes
-	 * @return string
-	 */
-	public static function LittleEndian2String($number, $minbytes = 1) {
-		$intstring = '';
-		while ($number > 0) {
-			$intstring = $intstring . chr($number & 255);
-			$number >>= 8;
-		}
-
-		return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT);
-	}
-
-	/**
-	 * Transforme une ressource GD en image au format ICO
-	 *
-	 * @param array $gd_image_array
-	 *     Tableau de ressources d'images GD
-	 * @return string
-	 *     Image au format ICO
-	 */
-	public static function GD2ICOstring(&$gd_image_array) {
-		foreach ($gd_image_array as $key => $gd_image) {
-
-			$ImageWidths[$key] = ImageSX($gd_image);
-			$ImageHeights[$key] = ImageSY($gd_image);
-			$bpp[$key] = ImageIsTrueColor($gd_image) ? 32 : 24;
-			$totalcolors[$key] = ImageColorsTotal($gd_image);
-
-			$icXOR[$key] = '';
-			for ($y = $ImageHeights[$key] - 1; $y >= 0; $y--) {
-				for ($x = 0; $x < $ImageWidths[$key]; $x++) {
-					$argb = phpthumb_functions::GetPixelColor($gd_image, $x, $y);
-					$a = round(255 * ((127 - $argb['alpha']) / 127));
-					$r = $argb['red'];
-					$g = $argb['green'];
-					$b = $argb['blue'];
-
-					if ($bpp[$key] == 32) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r) . chr($a);
-					} elseif ($bpp[$key] == 24) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r);
-					}
-
-					if ($a < 128) {
-						@$icANDmask[$key][$y] .= '1';
-					} else {
-						@$icANDmask[$key][$y] .= '0';
-					}
-				}
-				// mask bits are 32-bit aligned per scanline
-				while (strlen($icANDmask[$key][$y]) % 32) {
-					$icANDmask[$key][$y] .= '0';
-				}
-			}
-			$icAND[$key] = '';
-			foreach ($icANDmask[$key] as $y => $scanlinemaskbits) {
-				for ($i = 0; $i < strlen($scanlinemaskbits); $i += 8) {
-					$icAND[$key] .= chr(bindec(str_pad(substr($scanlinemaskbits, $i, 8), 8, '0', STR_PAD_LEFT)));
-				}
-			}
-
-		}
-
-		foreach ($gd_image_array as $key => $gd_image) {
-			$biSizeImage = $ImageWidths[$key] * $ImageHeights[$key] * ($bpp[$key] / 8);
-
-			// BITMAPINFOHEADER - 40 bytes
-			$BitmapInfoHeader[$key] = '';
-			$BitmapInfoHeader[$key] .= "\x28\x00\x00\x00";                // DWORD  biSize;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4);    // LONG   biWidth;
-			// The biHeight member specifies the combined
-			// height of the XOR and AND masks.
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageHeights[$key] * 2, 4); // LONG   biHeight;
-			$BitmapInfoHeader[$key] .= "\x01\x00";                    // WORD   biPlanes;
-			$BitmapInfoHeader[$key] .= chr($bpp[$key]) . "\x00";              // wBitCount;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biCompression;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4);      // DWORD  biSizeImage;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biXPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biYPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrUsed;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrImportant;
-		}
-
-
-		$icondata = "\x00\x00";                    // idReserved;   // Reserved (must be 0)
-		$icondata .= "\x01\x00";                    // idType;	   // Resource Type (1 for icons)
-		$icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2);  // idCount;	  // How many images?
-
-		$dwImageOffset = 6 + (count($gd_image_array) * 16);
-		foreach ($gd_image_array as $key => $gd_image) {
-			// ICONDIRENTRY   idEntries[1]; // An entry for each image (idCount of 'em)
-
-			$icondata .= chr($ImageWidths[$key]);           // bWidth;		  // Width, in pixels, of the image
-			$icondata .= chr($ImageHeights[$key]);          // bHeight;		 // Height, in pixels, of the image
-			$icondata .= chr($totalcolors[$key]);           // bColorCount;	 // Number of colors in image (0 if >=8bpp)
-			$icondata .= "\x00";                    // bReserved;	   // Reserved ( must be 0)
-
-			$icondata .= "\x01\x00";                  // wPlanes;		 // Color Planes
-			$icondata .= chr($bpp[$key]) . "\x00";            // wBitCount;	   // Bits per pixel
-
-			$dwBytesInRes = 40 + strlen($icXOR[$key]) + strlen($icAND[$key]);
-			$icondata .= phpthumb_functions::LittleEndian2String($dwBytesInRes,
-				4);     // dwBytesInRes;	// How many bytes in this resource?
-
-			$icondata .= phpthumb_functions::LittleEndian2String($dwImageOffset,
-				4);    // dwImageOffset;   // Where in the file is this image?
-			$dwImageOffset += strlen($BitmapInfoHeader[$key]);
-			$dwImageOffset += strlen($icXOR[$key]);
-			$dwImageOffset += strlen($icAND[$key]);
-		}
-
-		foreach ($gd_image_array as $key => $gd_image) {
-			$icondata .= $BitmapInfoHeader[$key];
-			$icondata .= $icXOR[$key];
-			$icondata .= $icAND[$key];
-		}
-
-		return $icondata;
-	}
+    /**
+     * Retourne la couleur d'un pixel dans une image
+     *
+     * @param ressource $img
+     * @param int $x
+     * @param int $y
+     * @return array|bool
+     */
+    public static function GetPixelColor(&$img, $x, $y) {
+        if (is_resource($img) || (is_object($img) && $img instanceof \GdImage)) {
+            return @ImageColorsForIndex($img, @ImageColorAt($img, $x, $y));
+        }
+        return false;
+    }
+
+    /**
+     * Retourne un nombre dans une représentation en Little Endian
+     *
+     * @param int $number
+     * @param int $minbytes
+     * @return string
+     */
+    public static function LittleEndian2String($number, $minbytes = 1) {
+        $intstring = '';
+        while ($number > 0) {
+            $intstring = $intstring . chr($number & 255);
+            $number >>= 8;
+        }
+
+        return str_pad($intstring, $minbytes, "\x00", STR_PAD_RIGHT);
+    }
+
+    /**
+     * Transforme une ressource GD en image au format ICO
+     *
+     * @param array $gd_image_array
+     *     Tableau de ressources d'images GD
+     * @return string
+     *     Image au format ICO
+     */
+    public static function GD2ICOstring(&$gd_image_array) {
+        foreach ($gd_image_array as $key => $gd_image) {
+
+            $ImageWidths[$key] = ImageSX($gd_image);
+            $ImageHeights[$key] = ImageSY($gd_image);
+            $bpp[$key] = ImageIsTrueColor($gd_image) ? 32 : 24;
+            $totalcolors[$key] = ImageColorsTotal($gd_image);
+
+            $icXOR[$key] = '';
+            for ($y = $ImageHeights[$key] - 1; $y >= 0; $y--) {
+                for ($x = 0; $x < $ImageWidths[$key]; $x++) {
+                    $argb = phpthumb_functions::GetPixelColor($gd_image, $x, $y);
+                    $a = round(255 * ((127 - $argb['alpha']) / 127));
+                    $r = $argb['red'];
+                    $g = $argb['green'];
+                    $b = $argb['blue'];
+
+                    if ($bpp[$key] == 32) {
+                        $icXOR[$key] .= chr($b) . chr($g) . chr($r) . chr($a);
+                    } elseif ($bpp[$key] == 24) {
+                        $icXOR[$key] .= chr($b) . chr($g) . chr($r);
+                    }
+
+                    if ($a < 128) {
+                        @$icANDmask[$key][$y] .= '1';
+                    } else {
+                        @$icANDmask[$key][$y] .= '0';
+                    }
+                }
+                // mask bits are 32-bit aligned per scanline
+                while (strlen($icANDmask[$key][$y]) % 32) {
+                    $icANDmask[$key][$y] .= '0';
+                }
+            }
+            $icAND[$key] = '';
+            foreach ($icANDmask[$key] as $y => $scanlinemaskbits) {
+                for ($i = 0; $i < strlen($scanlinemaskbits); $i += 8) {
+                    $icAND[$key] .= chr(bindec(str_pad(substr($scanlinemaskbits, $i, 8), 8, '0', STR_PAD_LEFT)));
+                }
+            }
+
+        }
+
+        foreach ($gd_image_array as $key => $gd_image) {
+            $biSizeImage = $ImageWidths[$key] * $ImageHeights[$key] * ($bpp[$key] / 8);
+
+            // BITMAPINFOHEADER - 40 bytes
+            $BitmapInfoHeader[$key] = '';
+            $BitmapInfoHeader[$key] .= "\x28\x00\x00\x00";                // DWORD  biSize;
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4);    // LONG   biWidth;
+            // The biHeight member specifies the combined
+            // height of the XOR and AND masks.
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageHeights[$key] * 2, 4); // LONG   biHeight;
+            $BitmapInfoHeader[$key] .= "\x01\x00";                    // WORD   biPlanes;
+            $BitmapInfoHeader[$key] .= chr($bpp[$key]) . "\x00";              // wBitCount;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biCompression;
+            $BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4);      // DWORD  biSizeImage;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biXPelsPerMeter;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biYPelsPerMeter;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrUsed;
+            $BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrImportant;
+        }
+
+
+        $icondata = "\x00\x00";                    // idReserved;   // Reserved (must be 0)
+        $icondata .= "\x01\x00";                    // idType;	   // Resource Type (1 for icons)
+        $icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2);  // idCount;	  // How many images?
+
+        $dwImageOffset = 6 + (count($gd_image_array) * 16);
+        foreach ($gd_image_array as $key => $gd_image) {
+            // ICONDIRENTRY   idEntries[1]; // An entry for each image (idCount of 'em)
+
+            $icondata .= chr($ImageWidths[$key]);           // bWidth;		  // Width, in pixels, of the image
+            $icondata .= chr($ImageHeights[$key]);          // bHeight;		 // Height, in pixels, of the image
+            $icondata .= chr($totalcolors[$key]);           // bColorCount;	 // Number of colors in image (0 if >=8bpp)
+            $icondata .= "\x00";                    // bReserved;	   // Reserved ( must be 0)
+
+            $icondata .= "\x01\x00";                  // wPlanes;		 // Color Planes
+            $icondata .= chr($bpp[$key]) . "\x00";            // wBitCount;	   // Bits per pixel
+
+            $dwBytesInRes = 40 + strlen($icXOR[$key]) + strlen($icAND[$key]);
+            $icondata .= phpthumb_functions::LittleEndian2String($dwBytesInRes,
+                4);     // dwBytesInRes;	// How many bytes in this resource?
+
+            $icondata .= phpthumb_functions::LittleEndian2String($dwImageOffset,
+                4);    // dwImageOffset;   // Where in the file is this image?
+            $dwImageOffset += strlen($BitmapInfoHeader[$key]);
+            $dwImageOffset += strlen($icXOR[$key]);
+            $dwImageOffset += strlen($icAND[$key]);
+        }
+
+        foreach ($gd_image_array as $key => $gd_image) {
+            $icondata .= $BitmapInfoHeader[$key];
+            $icondata .= $icXOR[$key];
+            $icondata .= $icAND[$key];
+        }
+
+        return $icondata;
+    }
 
 }

Spacing +70 added lines, -70 removed lines

@@ -44,13 +44,13 @@ 
 	$blue = dechex($blue);
 
 	if (strlen($red) == 1) {
-		$red = "0" . $red;
+		$red = "0".$red;
 	}
 	if (strlen($green) == 1) {
-		$green = "0" . $green;
+		$green = "0".$green;
 	}
 	if (strlen($blue) == 1) {
-		$blue = "0" . $blue;
+		$blue = "0".$blue;
 	}
 
 	return "$red$green$blue";
@@ -68,7 +68,7 @@ 
 	$couleur = couleur_html_to_hex($couleur);
 	$couleur = ltrim($couleur, '#');
 	if (strlen($couleur) === 3) {
-		$couleur = $couleur[0] . $couleur[0] . $couleur[1] . $couleur[1] . $couleur[2] . $couleur[2];
+		$couleur = $couleur[0].$couleur[0].$couleur[1].$couleur[1].$couleur[2].$couleur[2];
 	}
 	$retour["red"] = hexdec(substr($couleur, 0, 2));
 	$retour["green"] = hexdec(substr($couleur, 2, 2));
@@ -159,7 +159,7 @@ 
 	  and $extension = _image_trouver_extension_depuis_mime("image/".$regs[1])
 		and in_array($extension, _image_extensions_acceptees_en_entree())
 	) {
-		$local = sous_repertoire(_DIR_VAR, 'image-data') . md5($regs[2]) . '.' . _image_extension_normalisee($extension);
+		$local = sous_repertoire(_DIR_VAR, 'image-data').md5($regs[2]).'.'._image_extension_normalisee($extension);
 		if (!file_exists($local)) {
 			ecrire_fichier($local, base64_decode($regs[2]));
 		}
@@ -173,7 +173,7 @@ 
 	// les protocoles web prennent au moins 3 lettres
 	if (tester_url_absolue($source)) {
 		include_spip('inc/distant');
-		$fichier = _DIR_RACINE . copie_locale($source);
+		$fichier = _DIR_RACINE.copie_locale($source);
 		if (!$fichier) {
 			return "";
 		}
@@ -198,7 +198,7 @@ 
 
 	if ($forcer_format !== false
 		// ignorer forcer_format si on a une image svg, que le filtre appelant ne supporte pas SVG, et que le forcage est un autre format image
-		and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format,_image_extensions_acceptees_en_sortie()))) {
+		and ($terminaison_dest !== 'svg' or $support_svg or !in_array($forcer_format, _image_extensions_acceptees_en_sortie()))) {
 		$terminaison_dest = $forcer_format;
 	}
 
@@ -260,9 +260,9 @@ 
 			// on garde la terminaison initiale car image simplement copiee
 			// et on postfixe son nom avec un md5 du path
 			$terminaison_dest = $terminaison;
-			$fichier_dest .= '-' . substr(md5("$identifiant"), 0, 5);
+			$fichier_dest .= '-'.substr(md5("$identifiant"), 0, 5);
 		} else {
-			$fichier_dest .= '-' . substr(md5("$identifiant-$effet"), 0, 5);
+			$fichier_dest .= '-'.substr(md5("$identifiant-$effet"), 0, 5);
 		}
 		$cache = sous_repertoire(_DIR_VAR, $cache);
 		$cache = sous_repertoire($cache, $effet);
@@ -273,7 +273,7 @@ 
 		$fichier_dest = substr($fichier_dest, 2);
 	}
 
-	$fichier_dest = $cache . $fichier_dest . "." . $terminaison_dest;
+	$fichier_dest = $cache.$fichier_dest.".".$terminaison_dest;
 
 	$GLOBALS["images_calculees"][] = $fichier_dest;
 
@@ -309,14 +309,14 @@ 
 	}
 
 	if ($creer) {
-		spip_log("filtre image " . ($fonction_creation ? reset($fonction_creation) : '') . "[$effet] sur $fichier",
-			"images" . _LOG_DEBUG);
+		spip_log("filtre image ".($fonction_creation ? reset($fonction_creation) : '')."[$effet] sur $fichier",
+			"images"._LOG_DEBUG);
 	}
 
 	$term_fonction = _image_trouver_extension_pertinente($fichier);
-	$ret["fonction_imagecreatefrom"] = "_imagecreatefrom" . $term_fonction;
+	$ret["fonction_imagecreatefrom"] = "_imagecreatefrom".$term_fonction;
 	$ret["fichier"] = $fichier;
-	$ret["fonction_image"] = "_image_image" . $terminaison_dest;
+	$ret["fonction_image"] = "_image_image".$terminaison_dest;
 	$ret["fichier_dest"] = $fichier_dest;
 	$ret["format_source"] = _image_extension_normalisee($terminaison);
 	$ret["format_dest"] = $terminaison_dest;
@@ -389,9 +389,9 @@ 
 /**
  * @return array|string[]|null
  */
-function _image_extensions_acceptees_en_sortie(){
+function _image_extensions_acceptees_en_sortie() {
 	static $extensions = null;
-	if (empty($extensions)){
+	if (empty($extensions)) {
 		$extensions = _image_extensions_acceptees_en_entree();
 		$extensions = array_diff($extensions, ['jpeg']);
 		if (in_array('gif', $extensions) and !function_exists('imagegif')) {
@@ -405,7 +405,7 @@ 
 	return $extensions;
 }
 
-function _image_extension_normalisee($extension){
+function _image_extension_normalisee($extension) {
 	$extension = strtolower($extension);
 	if ($extension === 'jpeg') {
 		$extension = 'jpg';
@@ -413,7 +413,7 @@ 
 	return $extension;
 }
 
-function _image_extensions_conservent_transparence(){
+function _image_extensions_conservent_transparence() {
 	return ['png', 'webp'];
 }
 
@@ -463,7 +463,7 @@ 
 
 	$_terminaison = _image_trouver_extension_depuis_mime($mime);
 	if ($_terminaison and $_terminaison !== $terminaison) {
-		spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", "images." . _LOG_INFO_IMPORTANTE);
+		spip_log("Mauvaise extension du fichier : $path . Son type mime est : $mime", "images."._LOG_INFO_IMPORTANTE);
 		$terminaison = $_terminaison;
 	}
 	return $terminaison;
@@ -613,7 +613,7 @@ 
 	if (!function_exists('imagepng')) {
 		return false;
 	}
-	$tmp = $fichier . ".tmp";
+	$tmp = $fichier.".tmp";
 	$ret = imagepng($img, $tmp);
 	if (file_exists($tmp)) {
 		$taille_test = getimagesize($tmp);
@@ -648,7 +648,7 @@ 
 	if (!function_exists('imagegif')) {
 		return false;
 	}
-	$tmp = $fichier . ".tmp";
+	$tmp = $fichier.".tmp";
 	$ret = imagegif($img, $tmp);
 	if (file_exists($tmp)) {
 		$taille_test = getimagesize($tmp);
@@ -688,7 +688,7 @@ 
 	if (!function_exists('imagejpeg')) {
 		return false;
 	}
-	$tmp = $fichier . ".tmp";
+	$tmp = $fichier.".tmp";
 
 	// Enable interlancing
 	imageinterlace($img, true);
@@ -749,7 +749,7 @@ 
 	if (!function_exists('imagewebp')) {
 		return false;
 	}
-	$tmp = $fichier . ".tmp";
+	$tmp = $fichier.".tmp";
 	$ret = imagewebp($img, $tmp, $qualite);
 	if (file_exists($tmp)) {
 		$taille_test = getimagesize($tmp);
@@ -783,7 +783,7 @@ 
  */
 function _image_imagesvg($img, $fichier) {
 
-	$tmp = $fichier . ".tmp";
+	$tmp = $fichier.".tmp";
 	if (strpos($img, "<") === false) {
 		$img = supprimer_timestamp($img);
 		if (!file_exists($img)) {
@@ -839,12 +839,12 @@ 
  *     - false sinon.
  */
 function _image_gd_output($img, $valeurs, $qualite = _IMG_GD_QUALITE) {
-	$fonction = "_image_image" . $valeurs['format_dest'];
+	$fonction = "_image_image".$valeurs['format_dest'];
 	$ret = false;
 	#un flag pour reperer les images gravees
 	$lock =
 		!statut_effacer_images_temporaires('get') // si la fonction n'a pas ete activee, on grave tout
-	or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'] . '.src'));
+	or (@file_exists($valeurs['fichier_dest']) and !@file_exists($valeurs['fichier_dest'].'.src'));
 	if (
 		function_exists($fonction)
 		&& ($ret = $fonction($img, $valeurs['fichier_dest'], $qualite)) # on a reussi a creer l'image
@@ -855,7 +855,7 @@ 
 			// dans tous les cas mettre a jour la taille de l'image finale
 			list($valeurs["hauteur_dest"], $valeurs["largeur_dest"]) = taille_image($valeurs['fichier_dest']);
 			$valeurs['date'] = @filemtime($valeurs['fichier_dest']); // pour la retrouver apres disparition
-			ecrire_fichier($valeurs['fichier_dest'] . '.src', serialize($valeurs), true);
+			ecrire_fichier($valeurs['fichier_dest'].'.src', serialize($valeurs), true);
 		}
 	}
 
@@ -874,7 +874,7 @@ 
 function reconstruire_image_intermediaire($fichier_manquant) {
 	$reconstruire = array();
 	$fichier = $fichier_manquant;
-	while (strpos($fichier,"://")===false
+	while (strpos($fichier, "://") === false
 		and !@file_exists($fichier)
 		and lire_fichier($src = "$fichier.src", $source)
 		and $valeurs = unserialize($source)
@@ -911,7 +911,7 @@ 
  *     Chemin du fichier d'image calculé
  **/
 function ramasse_miettes($fichier) {
-	if (strpos($fichier,"://")!==false
+	if (strpos($fichier, "://") !== false
 		or !lire_fichier($src = "$fichier.src", $source)
 		or !$valeurs = unserialize($source)
 	) {
@@ -967,7 +967,7 @@ 
 	}
 	# si jamais le fichier final n'a pas ete calcule car suppose temporaire
 	# et qu'il ne s'agit pas d'une URL
-	if (strpos($fichier,"://")===false and !@file_exists($fichier)) {
+	if (strpos($fichier, "://") === false and !@file_exists($fichier)) {
 		reconstruire_image_intermediaire($fichier);
 	}
 	ramasse_miettes($fichier);
@@ -1064,7 +1064,7 @@ 
 
 	// attributs deprecies. Transformer en CSS
 	if ($espace = extraire_attribut($tag, 'hspace')) {
-		$style = "margin:${espace}px;" . $style;
+		$style = "margin:${espace}px;".$style;
 		$tag = inserer_attribut($tag, 'hspace', '');
 	}
 
@@ -1188,7 +1188,7 @@ 
 	$image = $valeurs['fichier'];
 	$format = $valeurs['format_source'];
 	$destdir = dirname($valeurs['fichier_dest']);
-	$destfile = basename($valeurs['fichier_dest'], "." . $valeurs["format_dest"]);
+	$destfile = basename($valeurs['fichier_dest'], ".".$valeurs["format_dest"]);
 
 	$format_sortie = $valeurs['format_dest'];
 
@@ -1220,14 +1220,14 @@ 
 
 	// Si l'image est de la taille demandee (ou plus petite), simplement la retourner
 	if ($srcWidth and $srcWidth <= $maxWidth and $srcHeight <= $maxHeight) {
-		$vignette = $destination . '.' . $format;
+		$vignette = $destination.'.'.$format;
 		@copy($image, $vignette);
 	}
 
 	elseif ($valeurs["format_source"] === 'svg') {
-		if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)){
+		if ($svg = svg_redimensionner($valeurs['fichier'], $destWidth, $destHeight)) {
 			$format_sortie = 'svg';
-			$vignette = $destination . "." . $format_sortie;
+			$vignette = $destination.".".$format_sortie;
 			$valeurs['fichier_dest'] = $vignette;
 			_image_gd_output($svg, $valeurs);
 		}
@@ -1239,9 +1239,9 @@ 
 			define('_CONVERT_COMMAND', 'convert');
 		} // Securite : mes_options.php peut preciser le chemin absolu
 		if (!defined('_RESIZE_COMMAND')) {
-			define('_RESIZE_COMMAND', _CONVERT_COMMAND . ' -quality ' . _IMG_CONVERT_QUALITE . ' -resize %xx%y! %src %dest');
+			define('_RESIZE_COMMAND', _CONVERT_COMMAND.' -quality '._IMG_CONVERT_QUALITE.' -resize %xx%y! %src %dest');
 		}
-		$vignette = $destination . "." . $format_sortie;
+		$vignette = $destination.".".$format_sortie;
 		$commande = str_replace(
 			array('%x', '%y', '%src', '%dest'),
 			array(
@@ -1256,13 +1256,13 @@ 
 		if (!@file_exists($vignette)) {
 			spip_log("echec convert sur $vignette");
 
-			return;  // echec commande
+			return; // echec commande
 		}
 	}
 
 	// php5 imagemagick
 	elseif ($process == 'imagick') {
-		$vignette = "$destination." . $format_sortie;
+		$vignette = "$destination.".$format_sortie;
 
 		if (!class_exists('Imagick')) {
 			spip_log("Classe Imagick absente !", _LOG_ERREUR);
@@ -1272,7 +1272,7 @@ 
 		$imagick = new Imagick();
 		$imagick->readImage($image);
 		$imagick->resizeImage($destWidth, $destHeight, Imagick::FILTER_LANCZOS,
-			1);//, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
+			1); //, IMAGICK_FILTER_LANCZOS, _IMG_IMAGICK_QUALITE / 100);
 		$imagick->writeImage($vignette);
 
 		if (!@file_exists($vignette)) {
@@ -1290,12 +1290,12 @@ 
 		if (_PNMSCALE_COMMAND == '') {
 			return;
 		}
-		$vignette = $destination . "." . $format_sortie;
+		$vignette = $destination.".".$format_sortie;
 		$pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
 		if ($format == "jpg") {
 
 			$jpegtopnm_command = str_replace("pnmscale", "jpegtopnm", _PNMSCALE_COMMAND);
-			exec("$jpegtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+			exec("$jpegtopnm_command $image | "._PNMSCALE_COMMAND." -width $destWidth | $pnmtojpeg_command > $vignette");
 			if (!($s = @filesize($vignette))) {
 				spip_unlink($vignette);
 			}
@@ -1307,7 +1307,7 @@ 
 		} else {
 			if ($format == "gif") {
 				$giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
-				exec("$giftopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+				exec("$giftopnm_command $image | "._PNMSCALE_COMMAND." -width $destWidth | $pnmtojpeg_command > $vignette");
 				if (!($s = @filesize($vignette))) {
 					spip_unlink($vignette);
 				}
@@ -1319,7 +1319,7 @@ 
 			} else {
 				if ($format == "png") {
 					$pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
-					exec("$pngtopnm_command $image | " . _PNMSCALE_COMMAND . " -width $destWidth | $pnmtojpeg_command > $vignette");
+					exec("$pngtopnm_command $image | "._PNMSCALE_COMMAND." -width $destWidth | $pnmtojpeg_command > $vignette");
 					if (!($s = @filesize($vignette))) {
 						spip_unlink($vignette);
 					}
@@ -1341,7 +1341,7 @@ 
 			return;
 		}
 		if (_IMG_GD_MAX_PIXELS && $srcWidth * $srcHeight > _IMG_GD_MAX_PIXELS) {
-			spip_log("vignette gd1/gd2 impossible : " . $srcWidth * $srcHeight . "pixels");
+			spip_log("vignette gd1/gd2 impossible : ".$srcWidth * $srcHeight."pixels");
 
 			return;
 		}
@@ -1646,7 +1646,7 @@ 
 		// de l'image, de facon a tromper le cache du navigateur
 		// quand on fait supprimer/reuploader un logo
 		// (pas de filemtime si SAFE MODE)
-		$date = test_espace_prive() ? ('?' . $date) : '';
+		$date = test_espace_prive() ? ('?'.$date) : '';
 
 		return _image_ecrire_tag($image, array('src' => "$logo$date", 'width' => $destWidth, 'height' => $destHeight));
 	}
@@ -1693,7 +1693,7 @@ 
 	public static function LittleEndian2String($number, $minbytes = 1) {
 		$intstring = '';
 		while ($number > 0) {
-			$intstring = $intstring . chr($number & 255);
+			$intstring = $intstring.chr($number & 255);
 			$number >>= 8;
 		}
 
@@ -1726,9 +1726,9 @@ 
 					$b = $argb['blue'];
 
 					if ($bpp[$key] == 32) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r) . chr($a);
+						$icXOR[$key] .= chr($b).chr($g).chr($r).chr($a);
 					} elseif ($bpp[$key] == 24) {
-						$icXOR[$key] .= chr($b) . chr($g) . chr($r);
+						$icXOR[$key] .= chr($b).chr($g).chr($r);
 					}
 
 					if ($a < 128) {
@@ -1756,44 +1756,44 @@ 
 
 			// BITMAPINFOHEADER - 40 bytes
 			$BitmapInfoHeader[$key] = '';
-			$BitmapInfoHeader[$key] .= "\x28\x00\x00\x00";                // DWORD  biSize;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4);    // LONG   biWidth;
+			$BitmapInfoHeader[$key] .= "\x28\x00\x00\x00"; // DWORD  biSize;
+			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageWidths[$key], 4); // LONG   biWidth;
 			// The biHeight member specifies the combined
 			// height of the XOR and AND masks.
 			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($ImageHeights[$key] * 2, 4); // LONG   biHeight;
-			$BitmapInfoHeader[$key] .= "\x01\x00";                    // WORD   biPlanes;
-			$BitmapInfoHeader[$key] .= chr($bpp[$key]) . "\x00";              // wBitCount;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biCompression;
-			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4);      // DWORD  biSizeImage;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biXPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // LONG   biYPelsPerMeter;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrUsed;
-			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00";                // DWORD  biClrImportant;
+			$BitmapInfoHeader[$key] .= "\x01\x00"; // WORD   biPlanes;
+			$BitmapInfoHeader[$key] .= chr($bpp[$key])."\x00"; // wBitCount;
+			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00"; // DWORD  biCompression;
+			$BitmapInfoHeader[$key] .= phpthumb_functions::LittleEndian2String($biSizeImage, 4); // DWORD  biSizeImage;
+			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00"; // LONG   biXPelsPerMeter;
+			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00"; // LONG   biYPelsPerMeter;
+			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00"; // DWORD  biClrUsed;
+			$BitmapInfoHeader[$key] .= "\x00\x00\x00\x00"; // DWORD  biClrImportant;
 		}
 
 
-		$icondata = "\x00\x00";                    // idReserved;   // Reserved (must be 0)
-		$icondata .= "\x01\x00";                    // idType;	   // Resource Type (1 for icons)
-		$icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2);  // idCount;	  // How many images?
+		$icondata = "\x00\x00"; // idReserved;   // Reserved (must be 0)
+		$icondata .= "\x01\x00"; // idType;	   // Resource Type (1 for icons)
+		$icondata .= phpthumb_functions::LittleEndian2String(count($gd_image_array), 2); // idCount;	  // How many images?
 
 		$dwImageOffset = 6 + (count($gd_image_array) * 16);
 		foreach ($gd_image_array as $key => $gd_image) {
 			// ICONDIRENTRY   idEntries[1]; // An entry for each image (idCount of 'em)
 
-			$icondata .= chr($ImageWidths[$key]);           // bWidth;		  // Width, in pixels, of the image
-			$icondata .= chr($ImageHeights[$key]);          // bHeight;		 // Height, in pixels, of the image
-			$icondata .= chr($totalcolors[$key]);           // bColorCount;	 // Number of colors in image (0 if >=8bpp)
-			$icondata .= "\x00";                    // bReserved;	   // Reserved ( must be 0)
+			$icondata .= chr($ImageWidths[$key]); // bWidth;		  // Width, in pixels, of the image
+			$icondata .= chr($ImageHeights[$key]); // bHeight;		 // Height, in pixels, of the image
+			$icondata .= chr($totalcolors[$key]); // bColorCount;	 // Number of colors in image (0 if >=8bpp)
+			$icondata .= "\x00"; // bReserved;	   // Reserved ( must be 0)
 
-			$icondata .= "\x01\x00";                  // wPlanes;		 // Color Planes
-			$icondata .= chr($bpp[$key]) . "\x00";            // wBitCount;	   // Bits per pixel
+			$icondata .= "\x01\x00"; // wPlanes;		 // Color Planes
+			$icondata .= chr($bpp[$key])."\x00"; // wBitCount;	   // Bits per pixel
 
 			$dwBytesInRes = 40 + strlen($icXOR[$key]) + strlen($icAND[$key]);
 			$icondata .= phpthumb_functions::LittleEndian2String($dwBytesInRes,
-				4);     // dwBytesInRes;	// How many bytes in this resource?
+				4); // dwBytesInRes;	// How many bytes in this resource?
 
 			$icondata .= phpthumb_functions::LittleEndian2String($dwImageOffset,
-				4);    // dwImageOffset;   // Where in the file is this image?
+				4); // dwImageOffset;   // Where in the file is this image?
 			$dwImageOffset += strlen($BitmapInfoHeader[$key]);
 			$dwImageOffset += strlen($icXOR[$key]);
 			$dwImageOffset += strlen($icAND[$key]);

prive/formulaires/configurer_reducteur.php

Indentation +86 added lines, -86 removed lines

@@ -18,7 +18,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -28,22 +28,22 @@ 
  *     Environnement du formulaire
  **/
 function formulaires_configurer_reducteur_charger_dist() {
-	$valeurs = array();
-	foreach (array(
-		'image_process',
-		'formats_graphiques',
-		'creer_preview',
-		'taille_preview',
-	) as $m) {
-		$valeurs[$m] = isset($GLOBALS['meta'][$m]) ? $GLOBALS['meta'][$m] : null;
-	}
+    $valeurs = array();
+    foreach (array(
+        'image_process',
+        'formats_graphiques',
+        'creer_preview',
+        'taille_preview',
+    ) as $m) {
+        $valeurs[$m] = isset($GLOBALS['meta'][$m]) ? $GLOBALS['meta'][$m] : null;
+    }
 
-	$valeurs['taille_preview'] = intval($valeurs['taille_preview']);
-	if ($valeurs['taille_preview'] < 10) {
-		$valeurs['taille_preview'] = 120;
-	}
+    $valeurs['taille_preview'] = intval($valeurs['taille_preview']);
+    if ($valeurs['taille_preview'] < 10) {
+        $valeurs['taille_preview'] = 120;
+    }
 
-	return $valeurs;
+    return $valeurs;
 }
 
 
@@ -54,51 +54,51 @@ 
  *     Retours des traitements
  **/
 function formulaires_configurer_reducteur_traiter_dist() {
-	$res = array('editable' => true);
+    $res = array('editable' => true);
 
-	if (is_array($image_process = _request('image_process_'))) {
-		$image_process = array_keys($image_process);
-		$image_process = reset($image_process);
+    if (is_array($image_process = _request('image_process_'))) {
+        $image_process = array_keys($image_process);
+        $image_process = reset($image_process);
 
-		// application du choix de vignette
-		if ($image_process) {
-			// mettre a jour les formats graphiques lisibles
-			switch ($image_process) {
-				case 'gd1':
-				case 'gd2':
-					$formats_graphiques = $GLOBALS['meta']['gd_formats_read'];
-					break;
-				case 'netpbm':
-					$formats_graphiques = $GLOBALS['meta']['netpbm_formats'];
-					break;
-				case 'convert':
-				case 'imagick':
-					$formats_graphiques = 'gif,jpg,png,webp';
-					break;
-				default: #debug
-					$formats_graphiques = '';
-					$image_process = 'non';
-					break;
-			}
-			ecrire_meta('formats_graphiques', $formats_graphiques, 'non');
-			ecrire_meta('image_process', $image_process, 'non');
-		}
-	}
+        // application du choix de vignette
+        if ($image_process) {
+            // mettre a jour les formats graphiques lisibles
+            switch ($image_process) {
+                case 'gd1':
+                case 'gd2':
+                    $formats_graphiques = $GLOBALS['meta']['gd_formats_read'];
+                    break;
+                case 'netpbm':
+                    $formats_graphiques = $GLOBALS['meta']['netpbm_formats'];
+                    break;
+                case 'convert':
+                case 'imagick':
+                    $formats_graphiques = 'gif,jpg,png,webp';
+                    break;
+                default: #debug
+                    $formats_graphiques = '';
+                    $image_process = 'non';
+                    break;
+            }
+            ecrire_meta('formats_graphiques', $formats_graphiques, 'non');
+            ecrire_meta('image_process', $image_process, 'non');
+        }
+    }
 
-	foreach (array(
-		'creer_preview'
-	) as $m) {
-		if (!is_null($v = _request($m))) {
-			ecrire_meta($m, $v == 'oui' ? 'oui' : 'non');
-		}
-	}
-	if (!is_null($v = _request('taille_preview'))) {
-		ecrire_meta('taille_preview', intval($v));
-	}
+    foreach (array(
+        'creer_preview'
+    ) as $m) {
+        if (!is_null($v = _request($m))) {
+            ecrire_meta($m, $v == 'oui' ? 'oui' : 'non');
+        }
+    }
+    if (!is_null($v = _request('taille_preview'))) {
+        ecrire_meta('taille_preview', intval($v));
+    }
 
-	$res['message_ok'] = _T('config_info_enregistree');
+    $res['message_ok'] = _T('config_info_enregistree');
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -111,36 +111,36 @@ 
  *     URL d'action pour tester la librairie graphique en créant une vignette
  **/
 function url_vignette_choix($process) {
-	switch ($process) {
-		case 'gd2':
-			if (!function_exists('ImageCreateTrueColor')) {
-				return '';
-			}
-			break;
-		case 'gd1':
-			if (!function_exists('ImageGif')
-				and !function_exists('ImageJpeg')
-				and !function_exists('ImagePng')
-			) {
-				return '';
-			}
-			break;
-		case 'netpbm':
-			if (defined('_PNMSCALE_COMMAND') and _PNMSCALE_COMMAND == '') {
-				return '';
-			}
-			break;
-		case 'imagick':
-			if (!method_exists('Imagick', 'readImage')) {
-				return '';
-			}
-			break;
-		case 'convert':
-			if (defined('_CONVERT_COMMAND') and _CONVERT_COMMAND == '') {
-				return '';
-			}
-			break;
-	}
+    switch ($process) {
+        case 'gd2':
+            if (!function_exists('ImageCreateTrueColor')) {
+                return '';
+            }
+            break;
+        case 'gd1':
+            if (!function_exists('ImageGif')
+                and !function_exists('ImageJpeg')
+                and !function_exists('ImagePng')
+            ) {
+                return '';
+            }
+            break;
+        case 'netpbm':
+            if (defined('_PNMSCALE_COMMAND') and _PNMSCALE_COMMAND == '') {
+                return '';
+            }
+            break;
+        case 'imagick':
+            if (!method_exists('Imagick', 'readImage')) {
+                return '';
+            }
+            break;
+        case 'convert':
+            if (defined('_CONVERT_COMMAND') and _CONVERT_COMMAND == '') {
+                return '';
+            }
+            break;
+    }
 
-	return generer_url_action('tester', "arg=$process&time=" . time());
+    return generer_url_action('tester', "arg=$process&time=" . time());
 }

ecrire/action/tester.php

Indentation +151 added lines, -151 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -30,154 +30,154 @@ 
  * redirige sur l'image ainsi créée (sinon sur une image d'echec).
  **/
 function action_tester_dist() {
-	$arg = _request('arg');
-
-	$gd_formats = array();
-	$gd_formats_read_gif = "";
-	// verifier les formats acceptes par GD
-	if ($arg == "gd1") {
-		// Si GD est installe et php >= 4.0.2
-		if (function_exists('imagetypes')) {
-			if (imagetypes() & IMG_GIF) {
-				$gd_formats[] = "gif";
-			} else {
-				# Attention GD sait lire le gif mais pas forcement l'ecrire
-				if (function_exists('ImageCreateFromGIF')) {
-					$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
-					if ($srcImage) {
-						$gd_formats_read_gif = ",gif";
-						ImageDestroy($srcImage);
-					}
-				}
-			}
-
-			if (imagetypes() & IMG_JPG) {
-				$gd_formats[] = "jpg";
-			}
-			if (imagetypes() & IMG_PNG) {
-				$gd_formats[] = "png";
-			}
-			if (imagetypes() & IMG_WEBP) {
-				$gd_formats[] = "webp";
-			}
-		} else {
-			# ancienne methode de detection des formats, qui en plus
-			# est bugguee car elle teste les formats en lecture
-			# alors que la valeur deduite sert a identifier
-			# les formats disponibles en ecriture... (cf. inc_logos)
-
-			if (function_exists('ImageCreateFromJPEG')) {
-				$srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . "test.jpg");
-				if ($srcImage) {
-					$gd_formats[] = "jpg";
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromGIF')) {
-				$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
-				if ($srcImage) {
-					$gd_formats[] = "gif";
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromPNG')) {
-				$srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . "test.png");
-				if ($srcImage) {
-					$gd_formats[] = "png";
-					ImageDestroy($srcImage);
-				}
-			}
-			if (function_exists('ImageCreateFromWEBP')) {
-				$srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK . "test.webp");
-				if ($srcImage) {
-					$gd_formats[] = "webp";
-					ImageDestroy($srcImage);
-				}
-			}
-		}
-
-		if (! empty($gd_formats)) {
-			$gd_formats = join(",", $gd_formats);
-		}
-		ecrire_meta("gd_formats_read", $gd_formats . $gd_formats_read_gif);
-		ecrire_meta("gd_formats", $gd_formats);
-	} // verifier les formats netpbm
-	else {
-		if ($arg == "netpbm") {
-			if (!defined('_PNMSCALE_COMMAND')) {
-				define('_PNMSCALE_COMMAND', 'pnmscale');
-			} // Securite : mes_options.php peut preciser le chemin absolu
-			if (_PNMSCALE_COMMAND == '') {
-				return;
-			}
-			$netpbm_formats = array();
-
-			$jpegtopnm_command = str_replace("pnmscale",
-				"jpegtopnm", _PNMSCALE_COMMAND);
-			$pnmtojpeg_command = str_replace("pnmscale",
-				"pnmtojpeg", _PNMSCALE_COMMAND);
-
-			$vignette = _ROOT_IMG_PACK . "test.jpg";
-			$dest = _DIR_VAR . "test-jpg.jpg";
-			$commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = "jpg";
-				}
-			}
-			$giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
-			$pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . "test.gif";
-			$dest = _DIR_VAR . "test-gif.jpg";
-			$commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = "gif";
-				}
-			}
-
-			$pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . "test.png";
-			$dest = _DIR_VAR . "test-gif.jpg";
-			$commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
-			spip_log($commande);
-			exec($commande);
-			if ($taille = @getimagesize($dest)) {
-				if ($taille[1] == 10) {
-					$netpbm_formats[] = "png";
-				}
-			}
-
-
-			if ($netpbm_formats) {
-				$netpbm_formats = join(",", $netpbm_formats);
-			} else {
-				$netpbm_formats = '';
-			}
-			ecrire_meta("netpbm_formats", $netpbm_formats);
-		}
-	}
-
-	// et maintenant envoyer la vignette de tests
-	if (in_array($arg, array("gd1", "gd2", "imagick", "convert", "netpbm"))) {
-		include_spip('inc/filtres');
-		include_spip('inc/filtres_images_mini');
-		$taille_preview = 150;
-		$image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
-
-		$image['fichier_dest'] = _DIR_VAR . "test_$arg";
-
-		if ($preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
-			and ($preview['width'] * $preview['height'] > 0)
-		) {
-			redirige_par_entete($preview['fichier']);
-		}
-	}
-
-	# image echec
-	redirige_par_entete(chemin_image('puce-rouge-anim.gif'));
+    $arg = _request('arg');
+
+    $gd_formats = array();
+    $gd_formats_read_gif = "";
+    // verifier les formats acceptes par GD
+    if ($arg == "gd1") {
+        // Si GD est installe et php >= 4.0.2
+        if (function_exists('imagetypes')) {
+            if (imagetypes() & IMG_GIF) {
+                $gd_formats[] = "gif";
+            } else {
+                # Attention GD sait lire le gif mais pas forcement l'ecrire
+                if (function_exists('ImageCreateFromGIF')) {
+                    $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
+                    if ($srcImage) {
+                        $gd_formats_read_gif = ",gif";
+                        ImageDestroy($srcImage);
+                    }
+                }
+            }
+
+            if (imagetypes() & IMG_JPG) {
+                $gd_formats[] = "jpg";
+            }
+            if (imagetypes() & IMG_PNG) {
+                $gd_formats[] = "png";
+            }
+            if (imagetypes() & IMG_WEBP) {
+                $gd_formats[] = "webp";
+            }
+        } else {
+            # ancienne methode de detection des formats, qui en plus
+            # est bugguee car elle teste les formats en lecture
+            # alors que la valeur deduite sert a identifier
+            # les formats disponibles en ecriture... (cf. inc_logos)
+
+            if (function_exists('ImageCreateFromJPEG')) {
+                $srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . "test.jpg");
+                if ($srcImage) {
+                    $gd_formats[] = "jpg";
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromGIF')) {
+                $srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
+                if ($srcImage) {
+                    $gd_formats[] = "gif";
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromPNG')) {
+                $srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . "test.png");
+                if ($srcImage) {
+                    $gd_formats[] = "png";
+                    ImageDestroy($srcImage);
+                }
+            }
+            if (function_exists('ImageCreateFromWEBP')) {
+                $srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK . "test.webp");
+                if ($srcImage) {
+                    $gd_formats[] = "webp";
+                    ImageDestroy($srcImage);
+                }
+            }
+        }
+
+        if (! empty($gd_formats)) {
+            $gd_formats = join(",", $gd_formats);
+        }
+        ecrire_meta("gd_formats_read", $gd_formats . $gd_formats_read_gif);
+        ecrire_meta("gd_formats", $gd_formats);
+    } // verifier les formats netpbm
+    else {
+        if ($arg == "netpbm") {
+            if (!defined('_PNMSCALE_COMMAND')) {
+                define('_PNMSCALE_COMMAND', 'pnmscale');
+            } // Securite : mes_options.php peut preciser le chemin absolu
+            if (_PNMSCALE_COMMAND == '') {
+                return;
+            }
+            $netpbm_formats = array();
+
+            $jpegtopnm_command = str_replace("pnmscale",
+                "jpegtopnm", _PNMSCALE_COMMAND);
+            $pnmtojpeg_command = str_replace("pnmscale",
+                "pnmtojpeg", _PNMSCALE_COMMAND);
+
+            $vignette = _ROOT_IMG_PACK . "test.jpg";
+            $dest = _DIR_VAR . "test-jpg.jpg";
+            $commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = "jpg";
+                }
+            }
+            $giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
+            $pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
+            $vignette = _ROOT_IMG_PACK . "test.gif";
+            $dest = _DIR_VAR . "test-gif.jpg";
+            $commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = "gif";
+                }
+            }
+
+            $pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
+            $vignette = _ROOT_IMG_PACK . "test.png";
+            $dest = _DIR_VAR . "test-gif.jpg";
+            $commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+            spip_log($commande);
+            exec($commande);
+            if ($taille = @getimagesize($dest)) {
+                if ($taille[1] == 10) {
+                    $netpbm_formats[] = "png";
+                }
+            }
+
+
+            if ($netpbm_formats) {
+                $netpbm_formats = join(",", $netpbm_formats);
+            } else {
+                $netpbm_formats = '';
+            }
+            ecrire_meta("netpbm_formats", $netpbm_formats);
+        }
+    }
+
+    // et maintenant envoyer la vignette de tests
+    if (in_array($arg, array("gd1", "gd2", "imagick", "convert", "netpbm"))) {
+        include_spip('inc/filtres');
+        include_spip('inc/filtres_images_mini');
+        $taille_preview = 150;
+        $image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
+
+        $image['fichier_dest'] = _DIR_VAR . "test_$arg";
+
+        if ($preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
+            and ($preview['width'] * $preview['height'] > 0)
+        ) {
+            redirige_par_entete($preview['fichier']);
+        }
+    }
+
+    # image echec
+    redirige_par_entete(chemin_image('puce-rouge-anim.gif'));
 }

Spacing +18 added lines, -18 removed lines

@@ -43,7 +43,7 @@ 
 			} else {
 				# Attention GD sait lire le gif mais pas forcement l'ecrire
 				if (function_exists('ImageCreateFromGIF')) {
-					$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
+					$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK."test.gif");
 					if ($srcImage) {
 						$gd_formats_read_gif = ",gif";
 						ImageDestroy($srcImage);
@@ -67,28 +67,28 @@ 
 			# les formats disponibles en ecriture... (cf. inc_logos)
 
 			if (function_exists('ImageCreateFromJPEG')) {
-				$srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK . "test.jpg");
+				$srcImage = @ImageCreateFromJPEG(_ROOT_IMG_PACK."test.jpg");
 				if ($srcImage) {
 					$gd_formats[] = "jpg";
 					ImageDestroy($srcImage);
 				}
 			}
 			if (function_exists('ImageCreateFromGIF')) {
-				$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK . "test.gif");
+				$srcImage = @ImageCreateFromGIF(_ROOT_IMG_PACK."test.gif");
 				if ($srcImage) {
 					$gd_formats[] = "gif";
 					ImageDestroy($srcImage);
 				}
 			}
 			if (function_exists('ImageCreateFromPNG')) {
-				$srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK . "test.png");
+				$srcImage = @ImageCreateFromPNG(_ROOT_IMG_PACK."test.png");
 				if ($srcImage) {
 					$gd_formats[] = "png";
 					ImageDestroy($srcImage);
 				}
 			}
 			if (function_exists('ImageCreateFromWEBP')) {
-				$srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK . "test.webp");
+				$srcImage = @ImageCreateFromWEBP(_ROOT_IMG_PACK."test.webp");
 				if ($srcImage) {
 					$gd_formats[] = "webp";
 					ImageDestroy($srcImage);
@@ -96,10 +96,10 @@ 
 			}
 		}
 
-		if (! empty($gd_formats)) {
+		if (!empty($gd_formats)) {
 			$gd_formats = join(",", $gd_formats);
 		}
-		ecrire_meta("gd_formats_read", $gd_formats . $gd_formats_read_gif);
+		ecrire_meta("gd_formats_read", $gd_formats.$gd_formats_read_gif);
 		ecrire_meta("gd_formats", $gd_formats);
 	} // verifier les formats netpbm
 	else {
@@ -117,9 +117,9 @@ 
 			$pnmtojpeg_command = str_replace("pnmscale",
 				"pnmtojpeg", _PNMSCALE_COMMAND);
 
-			$vignette = _ROOT_IMG_PACK . "test.jpg";
-			$dest = _DIR_VAR . "test-jpg.jpg";
-			$commande = "$jpegtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+			$vignette = _ROOT_IMG_PACK."test.jpg";
+			$dest = _DIR_VAR."test-jpg.jpg";
+			$commande = "$jpegtopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
 			spip_log($commande);
 			exec($commande);
 			if ($taille = @getimagesize($dest)) {
@@ -129,9 +129,9 @@ 
 			}
 			$giftopnm_command = str_replace("pnmscale", "giftopnm", _PNMSCALE_COMMAND);
 			$pnmtojpeg_command = str_replace("pnmscale", "pnmtojpeg", _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . "test.gif";
-			$dest = _DIR_VAR . "test-gif.jpg";
-			$commande = "$giftopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+			$vignette = _ROOT_IMG_PACK."test.gif";
+			$dest = _DIR_VAR."test-gif.jpg";
+			$commande = "$giftopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
 			spip_log($commande);
 			exec($commande);
 			if ($taille = @getimagesize($dest)) {
@@ -141,9 +141,9 @@ 
 			}
 
 			$pngtopnm_command = str_replace("pnmscale", "pngtopnm", _PNMSCALE_COMMAND);
-			$vignette = _ROOT_IMG_PACK . "test.png";
-			$dest = _DIR_VAR . "test-gif.jpg";
-			$commande = "$pngtopnm_command $vignette | " . _PNMSCALE_COMMAND . " -width 10 | $pnmtojpeg_command > $dest";
+			$vignette = _ROOT_IMG_PACK."test.png";
+			$dest = _DIR_VAR."test-gif.jpg";
+			$commande = "$pngtopnm_command $vignette | "._PNMSCALE_COMMAND." -width 10 | $pnmtojpeg_command > $dest";
 			spip_log($commande);
 			exec($commande);
 			if ($taille = @getimagesize($dest)) {
@@ -167,9 +167,9 @@ 
 		include_spip('inc/filtres');
 		include_spip('inc/filtres_images_mini');
 		$taille_preview = 150;
-		$image = _image_valeurs_trans(_DIR_IMG_PACK . 'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
+		$image = _image_valeurs_trans(_DIR_IMG_PACK.'test_image.jpg', "reduire-$taille_preview-$taille_preview", 'jpg');
 
-		$image['fichier_dest'] = _DIR_VAR . "test_$arg";
+		$image['fichier_dest'] = _DIR_VAR."test_$arg";
 
 		if ($preview = _image_creer_vignette($image, $taille_preview, $taille_preview, $arg, true)
 			and ($preview['width'] * $preview['height'] > 0)

ecrire/inc/distant.php

Indentation +1075 added lines, -1075 removed lines

@@ -16,32 +16,32 @@ 
  * @package SPIP\Core\Distant
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_INC_DISTANT_VERSION_HTTP')) {
-	define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
+    define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
 }
 if (!defined('_INC_DISTANT_CONTENT_ENCODING')) {
-	define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
+    define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
 }
 if (!defined('_INC_DISTANT_USER_AGENT')) {
-	define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
+    define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
 }
 if (!defined('_INC_DISTANT_MAX_SIZE')) {
-	define('_INC_DISTANT_MAX_SIZE', 2097152);
+    define('_INC_DISTANT_MAX_SIZE', 2097152);
 }
 if (!defined('_INC_DISTANT_CONNECT_TIMEOUT')) {
-	define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
+    define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
 }
 
 define('_REGEXP_COPIE_LOCALE', ',' 	.
-	preg_replace(
-		'@^https?:@',
-		'https?:',
-		(isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '')
-	)
-	. '/?spip.php[?]action=acceder_document.*file=(.*)$,');
+    preg_replace(
+        '@^https?:@',
+        'https?:',
+        (isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '')
+    )
+    . '/?spip.php[?]action=acceder_document.*file=(.*)$,');
 
 //@define('_COPIE_LOCALE_MAX_SIZE',2097152); // poids (inc/utils l'a fait)
 
@@ -68,77 +68,77 @@ 
  */
 function copie_locale($source, $mode = 'auto', $local = null, $taille_max = null) {
 
-	// si c'est la protection de soi-meme, retourner le path
-	if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
-		$source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
-
-		return @file_exists($source) ? $source : false;
-	}
-
-	if (is_null($local)) {
-		$local = fichier_copie_locale($source);
-	} else {
-		if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
-			$local = substr($local, strlen(_DIR_RACINE));
-		}
-	}
-
-	// si $local = '' c'est un fichier refuse par fichier_copie_locale(),
-	// par exemple un fichier qui ne figure pas dans nos documents ;
-	// dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
-	if (!$local) {
-		return false;
-	}
-
-	$localrac = _DIR_RACINE . $local;
-	$t = ($mode == 'force') ? false : @file_exists($localrac);
-
-	// test d'existence du fichier
-	if ($mode == 'test') {
-		return $t ? $local : '';
-	}
-
-	// sinon voir si on doit/peut le telecharger
-	if ($local == $source or !tester_url_absolue($source)) {
-		return $local;
-	}
-
-	if ($mode == 'modif' or !$t) {
-		// passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
-		// et des eventuelles recuperations concurantes
-		include_spip('inc/acces');
-		if (!$taille_max) {
-			$taille_max = _COPIE_LOCALE_MAX_SIZE;
-		}
-		$res = recuperer_url(
-			$source,
-			array('file' => $localrac, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '')
-		);
-		if (!$res or (!$res['length'] and $res['status'] != 304)) {
-			spip_log("copie_locale : Echec recuperation $source sur $localrac status : " . $res['status'], 'distant' . _LOG_INFO_IMPORTANTE);
-		}
-		if (!$res['length']) {
-			// si $t c'est sans doute juste un not-modified-since
-			return $t ? $local : false;
-		}
-		spip_log("copie_locale : recuperation $source sur $localrac taille " . $res['length'] . ' OK', 'distant');
-
-		// pour une eventuelle indexation
-		pipeline(
-			'post_edition',
-			array(
-				'args' => array(
-					'operation' => 'copie_locale',
-					'source' => $source,
-					'fichier' => $local,
-					'http_res' => $res['length'],
-				),
-				'data' => null
-			)
-		);
-	}
-
-	return $local;
+    // si c'est la protection de soi-meme, retourner le path
+    if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
+        $source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
+
+        return @file_exists($source) ? $source : false;
+    }
+
+    if (is_null($local)) {
+        $local = fichier_copie_locale($source);
+    } else {
+        if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
+            $local = substr($local, strlen(_DIR_RACINE));
+        }
+    }
+
+    // si $local = '' c'est un fichier refuse par fichier_copie_locale(),
+    // par exemple un fichier qui ne figure pas dans nos documents ;
+    // dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
+    if (!$local) {
+        return false;
+    }
+
+    $localrac = _DIR_RACINE . $local;
+    $t = ($mode == 'force') ? false : @file_exists($localrac);
+
+    // test d'existence du fichier
+    if ($mode == 'test') {
+        return $t ? $local : '';
+    }
+
+    // sinon voir si on doit/peut le telecharger
+    if ($local == $source or !tester_url_absolue($source)) {
+        return $local;
+    }
+
+    if ($mode == 'modif' or !$t) {
+        // passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
+        // et des eventuelles recuperations concurantes
+        include_spip('inc/acces');
+        if (!$taille_max) {
+            $taille_max = _COPIE_LOCALE_MAX_SIZE;
+        }
+        $res = recuperer_url(
+            $source,
+            array('file' => $localrac, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '')
+        );
+        if (!$res or (!$res['length'] and $res['status'] != 304)) {
+            spip_log("copie_locale : Echec recuperation $source sur $localrac status : " . $res['status'], 'distant' . _LOG_INFO_IMPORTANTE);
+        }
+        if (!$res['length']) {
+            // si $t c'est sans doute juste un not-modified-since
+            return $t ? $local : false;
+        }
+        spip_log("copie_locale : recuperation $source sur $localrac taille " . $res['length'] . ' OK', 'distant');
+
+        // pour une eventuelle indexation
+        pipeline(
+            'post_edition',
+            array(
+                'args' => array(
+                    'operation' => 'copie_locale',
+                    'source' => $source,
+                    'fichier' => $local,
+                    'http_res' => $res['length'],
+                ),
+                'data' => null
+            )
+        );
+    }
+
+    return $local;
 }
 
 /**
@@ -153,88 +153,88 @@ 
  *   url ou false en cas d'echec
  */
 function valider_url_distante($url, $known_hosts = array()) {
-	if (!function_exists('protocole_verifier')){
-		include_spip('inc/filtres_mini');
-	}
+    if (!function_exists('protocole_verifier')){
+        include_spip('inc/filtres_mini');
+    }
 
-	if (!protocole_verifier($url, array('http', 'https'))) {
-		return false;
-	}
+    if (!protocole_verifier($url, array('http', 'https'))) {
+        return false;
+    }
 	
-	$parsed_url = parse_url($url);
-	if (!$parsed_url or empty($parsed_url['host']) ) {
-		return false;
-	}
-
-	if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
-		return false;
-	}
-
-	if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
-		return false;
-	}
-
-	if (!is_array($known_hosts)) {
-		$known_hosts = array($known_hosts);
-	}
-	$known_hosts[] = $GLOBALS['meta']['adresse_site'];
-	$known_hosts[] = url_de_base();
-	$known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
-
-	$is_known_host = false;
-	foreach ($known_hosts as $known_host) {
-		$parse_known = parse_url($known_host);
-		if ($parse_known
-		  and strtolower($parse_known['host']) === strtolower($parsed_url['host'])) {
-			$is_known_host = true;
-			break;
-		}
-	}
-
-	if (!$is_known_host) {
-		$host = trim($parsed_url['host'], '.');
-		if (preg_match('#^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$#', $host)) {
-			$ip = $host;
-		} else {
-			$ip = gethostbyname($host);
-			if ($ip === $host) {
-				// Error condition for gethostbyname()
-				$ip = false;
-			}
-		}
-		if ($ip) {
-			$parts = array_map('intval', explode( '.', $ip ));
-			if (127 === $parts[0] or 10 === $parts[0] or 0 === $parts[0]
-			  or ( 172 === $parts[0] and 16 <= $parts[1] and 31 >= $parts[1] )
-			  or ( 192 === $parts[0] && 168 === $parts[1] )
-			) {
-				return false;
-			}
-		}
-	}
-
-	if (empty($parsed_url['port'])) {
-		return $url;
-	}
-
-	$port = $parsed_url['port'];
-	if ($port === 80  or $port === 443  or $port === 8080) {
-		return $url;
-	}
-
-	if ($is_known_host) {
-		foreach ($known_hosts as $known_host) {
-			$parse_known = parse_url($known_host);
-			if ($parse_known
-				and !empty($parse_known['port'])
-			  and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
-			  and $parse_known['port'] == $port) {
-				return $url;
-			}
-		}
-	}
-
-	return false;
+    $parsed_url = parse_url($url);
+    if (!$parsed_url or empty($parsed_url['host']) ) {
+        return false;
+    }
+
+    if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
+        return false;
+    }
+
+    if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
+        return false;
+    }
+
+    if (!is_array($known_hosts)) {
+        $known_hosts = array($known_hosts);
+    }
+    $known_hosts[] = $GLOBALS['meta']['adresse_site'];
+    $known_hosts[] = url_de_base();
+    $known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
+
+    $is_known_host = false;
+    foreach ($known_hosts as $known_host) {
+        $parse_known = parse_url($known_host);
+        if ($parse_known
+          and strtolower($parse_known['host']) === strtolower($parsed_url['host'])) {
+            $is_known_host = true;
+            break;
+        }
+    }
+
+    if (!$is_known_host) {
+        $host = trim($parsed_url['host'], '.');
+        if (preg_match('#^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$#', $host)) {
+            $ip = $host;
+        } else {
+            $ip = gethostbyname($host);
+            if ($ip === $host) {
+                // Error condition for gethostbyname()
+                $ip = false;
+            }
+        }
+        if ($ip) {
+            $parts = array_map('intval', explode( '.', $ip ));
+            if (127 === $parts[0] or 10 === $parts[0] or 0 === $parts[0]
+              or ( 172 === $parts[0] and 16 <= $parts[1] and 31 >= $parts[1] )
+              or ( 192 === $parts[0] && 168 === $parts[1] )
+            ) {
+                return false;
+            }
+        }
+    }
+
+    if (empty($parsed_url['port'])) {
+        return $url;
+    }
+
+    $port = $parsed_url['port'];
+    if ($port === 80  or $port === 443  or $port === 8080) {
+        return $url;
+    }
+
+    if ($is_known_host) {
+        foreach ($known_hosts as $known_host) {
+            $parse_known = parse_url($known_host);
+            if ($parse_known
+                and !empty($parse_known['port'])
+              and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
+              and $parse_known['port'] == $port) {
+                return $url;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -253,86 +253,86 @@ 
  */
 function prepare_donnees_post($donnees, $boundary = '') {
 
-	// permettre a la fonction qui a demande le post de formater elle meme ses donnees
-	// pour un appel soap par exemple
-	// l'entete est separe des donnees par un double retour a la ligne
-	// on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
-	if (is_string($donnees) && strlen($donnees)) {
-		$entete = '';
-		// on repasse tous les \r\n et \r en simples \n
-		$donnees = str_replace("\r\n", "\n", $donnees);
-		$donnees = str_replace("\r", "\n", $donnees);
-		// un double retour a la ligne signifie la fin de l'entete et le debut des donnees
-		$p = strpos($donnees, "\n\n");
-		if ($p !== false) {
-			$entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
-			$donnees = substr($donnees, $p + 2);
-		}
-		$chaine = str_replace("\n", "\r\n", $donnees);
-	} else {
-		/* boundary automatique */
-		// Si on a plus de 500 octects de donnees, on "boundarise"
-		if ($boundary === '') {
-			$taille = 0;
-			foreach ($donnees as $cle => $valeur) {
-				if (is_array($valeur)) {
-					foreach ($valeur as $val2) {
-						$taille += strlen($val2);
-					}
-				} else {
-					// faut-il utiliser spip_strlen() dans inc/charsets ?
-					$taille += strlen($valeur);
-				}
-			}
-			if ($taille > 500) {
-				$boundary = substr(md5(rand() . 'spip'), 0, 8);
-			}
-		}
-
-		if (is_string($boundary) and strlen($boundary)) {
-			// fabrique une chaine HTTP pour un POST avec boundary
-			$entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
-			$chaine = '';
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine .= "\r\n--$boundary\r\n";
-							$chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
-							$chaine .= "\r\n";
-							$chaine .= $val2;
-						}
-					} else {
-						$chaine .= "\r\n--$boundary\r\n";
-						$chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
-						$chaine .= "\r\n";
-						$chaine .= $valeur;
-					}
-				}
-				$chaine .= "\r\n--$boundary\r\n";
-			}
-		} else {
-			// fabrique une chaine HTTP simple pour un POST
-			$entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
-			$chaine = array();
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
-						}
-					} else {
-						$chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
-					}
-				}
-				$chaine = implode('&', $chaine);
-			} else {
-				$chaine = $donnees;
-			}
-		}
-	}
-
-	return array($entete, $chaine);
+    // permettre a la fonction qui a demande le post de formater elle meme ses donnees
+    // pour un appel soap par exemple
+    // l'entete est separe des donnees par un double retour a la ligne
+    // on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
+    if (is_string($donnees) && strlen($donnees)) {
+        $entete = '';
+        // on repasse tous les \r\n et \r en simples \n
+        $donnees = str_replace("\r\n", "\n", $donnees);
+        $donnees = str_replace("\r", "\n", $donnees);
+        // un double retour a la ligne signifie la fin de l'entete et le debut des donnees
+        $p = strpos($donnees, "\n\n");
+        if ($p !== false) {
+            $entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
+            $donnees = substr($donnees, $p + 2);
+        }
+        $chaine = str_replace("\n", "\r\n", $donnees);
+    } else {
+        /* boundary automatique */
+        // Si on a plus de 500 octects de donnees, on "boundarise"
+        if ($boundary === '') {
+            $taille = 0;
+            foreach ($donnees as $cle => $valeur) {
+                if (is_array($valeur)) {
+                    foreach ($valeur as $val2) {
+                        $taille += strlen($val2);
+                    }
+                } else {
+                    // faut-il utiliser spip_strlen() dans inc/charsets ?
+                    $taille += strlen($valeur);
+                }
+            }
+            if ($taille > 500) {
+                $boundary = substr(md5(rand() . 'spip'), 0, 8);
+            }
+        }
+
+        if (is_string($boundary) and strlen($boundary)) {
+            // fabrique une chaine HTTP pour un POST avec boundary
+            $entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
+            $chaine = '';
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine .= "\r\n--$boundary\r\n";
+                            $chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
+                            $chaine .= "\r\n";
+                            $chaine .= $val2;
+                        }
+                    } else {
+                        $chaine .= "\r\n--$boundary\r\n";
+                        $chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
+                        $chaine .= "\r\n";
+                        $chaine .= $valeur;
+                    }
+                }
+                $chaine .= "\r\n--$boundary\r\n";
+            }
+        } else {
+            // fabrique une chaine HTTP simple pour un POST
+            $entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
+            $chaine = array();
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
+                        }
+                    } else {
+                        $chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
+                    }
+                }
+                $chaine = implode('&', $chaine);
+            } else {
+                $chaine = $donnees;
+            }
+        }
+    }
+
+    return array($entete, $chaine);
 }
 
 /**
@@ -346,18 +346,18 @@ 
  */
 function url_to_ascii($url_idn) {
 
-	if ($parts = parse_url($url_idn)) {
-		$host = $parts['host'];
-		if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
-			include_spip('inc/idna_convert.class');
-			$IDN = new idna_convert();
-			$host_ascii = $IDN->encode($host);
-			$url_idn = explode($host, $url_idn, 2);
-			$url_idn = implode($host_ascii, $url_idn);
-		}
-	}
-
-	return $url_idn;
+    if ($parts = parse_url($url_idn)) {
+        $host = $parts['host'];
+        if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
+            include_spip('inc/idna_convert.class');
+            $IDN = new idna_convert();
+            $host_ascii = $IDN->encode($host);
+            $url_idn = explode($host, $url_idn, 2);
+            $url_idn = implode($host_ascii, $url_idn);
+        }
+    }
+
+    return $url_idn;
 }
 
 /**
@@ -396,176 +396,176 @@ 
  *     string file : nom du fichier si enregistre dans un fichier
  */
 function recuperer_url($url, $options = array()) {
-	$default = array(
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-	);
-	$options = array_merge($default, $options);
-	// copier directement dans un fichier ?
-	$copy = $options['file'];
-
-	if ($options['methode'] == 'HEAD') {
-		$options['taille_max'] = 0;
-	}
-	if (is_null($options['taille_max'])) {
-		$options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
-	}
-
-	if (!empty($options['datas'])) {
-		list($head, $postdata) = prepare_donnees_post($options['datas'], $options['boundary']);
-		if (stripos($head, 'Content-Length:') === false) {
-			$head .= 'Content-Length: ' . strlen($postdata);
-		}
-		$options['datas'] = $head . "\r\n\r\n" . $postdata;
-		if (strlen($postdata)) {
-			$options['methode'] = 'POST';
-		}
-	}
-
-	// Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
-	$url = preg_replace(',^feed://,i', 'http://', $url);
-	if (!tester_url_absolue($url)) {
-		$url = 'http://' . $url;
-	} elseif (strncmp($url, '//', 2) == 0) {
-		$url = 'http:' . $url;
-	}
-
-	$url = url_to_ascii($url);
-
-	$result = array(
-		'status' => 0,
-		'headers' => '',
-		'page' => '',
-		'length' => 0,
-		'last_modified' => '',
-		'location' => '',
-		'url' => $url
-	);
-
-	// si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
-	$refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
-
-	// ouvrir la connexion et envoyer la requete et ses en-tetes
-	list($handle, $fopen) = init_http(
-		$options['methode'],
-		$url,
-		$refuser_gz,
-		$options['uri_referer'],
-		$options['datas'],
-		$options['version_http'],
-		$options['if_modified_since']
-	);
-	if (!$handle) {
-		spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
-
-		return false;
-	}
-
-	// Sauf en fopen, envoyer le flux d'entree
-	// et recuperer les en-tetes de reponses
-	if (!$fopen) {
-		$res = recuperer_entetes_complets($handle, $options['if_modified_since']);
-		if (!$res) {
-			fclose($handle);
-			$t = @parse_url($url);
-			$host = $t['host'];
-			// Chinoisierie inexplicable pour contrer
-			// les actions liberticides de l'empire du milieu
-			if (!need_proxy($host)
-				and $res = @file_get_contents($url)
-			) {
-				$result['length'] = strlen($res);
-				if ($copy) {
-					ecrire_fichier($copy, $res);
-					$result['file'] = $copy;
-				} else {
-					$result['page'] = $res;
-				}
-				$res = array(
-					'status' => 200,
-				);
-			} else {
-				spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
-				return false;
-			}
-		} elseif ($res['location'] and $options['follow_location']) {
-			$options['follow_location']--;
-			fclose($handle);
-			include_spip('inc/filtres');
-			$url = suivre_lien($url, $res['location']);
-			spip_log("recuperer_url recommence sur $url", 'distant');
-
-			return recuperer_url($url, $options);
-		} elseif ($res['status'] !== 200) {
-			spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
-		}
-		$result['status'] = $res['status'];
-		if (isset($res['headers'])) {
-			$result['headers'] = $res['headers'];
-		}
-		if (isset($res['last_modified'])) {
-			$result['last_modified'] = $res['last_modified'];
-		}
-		if (isset($res['location'])) {
-			$result['location'] = $res['location'];
-		}
-	}
-
-	// on ne veut que les entetes
-	if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
-		return $result;
-	}
-
-
-	// s'il faut deballer, le faire via un fichier temporaire
-	// sinon la memoire explose pour les gros flux
-
-	$gz = false;
-	if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
-		$gz = (_DIR_TMP . md5(uniqid(mt_rand())) . '.tmp.gz');
-	}
-
-	// si on a pas deja recuperer le contenu par une methode detournee
-	if (!$result['length']) {
-		$res = recuperer_body($handle, $options['taille_max'], $gz ? $gz : $copy);
-		fclose($handle);
-		if ($copy) {
-			$result['length'] = $res;
-			$result['file'] = $copy;
-		} elseif ($res) {
-			$result['page'] = &$res;
-			$result['length'] = strlen($result['page']);
-		}
-		if (!$result['status']) {
-			$result['status'] = 200; // on a reussi, donc !
-		}
-	}
-	if (!$result['page']) {
-		return $result;
-	}
-
-	// Decompresser au besoin
-	if ($gz) {
-		$result['page'] = implode('', gzfile($gz));
-		supprimer_fichier($gz);
-	}
-
-	// Faut-il l'importer dans notre charset local ?
-	if ($options['transcoder']) {
-		include_spip('inc/charsets');
-		$result['page'] = transcoder_page($result['page'], $result['headers']);
-	}
-
-	return $result;
+    $default = array(
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+    );
+    $options = array_merge($default, $options);
+    // copier directement dans un fichier ?
+    $copy = $options['file'];
+
+    if ($options['methode'] == 'HEAD') {
+        $options['taille_max'] = 0;
+    }
+    if (is_null($options['taille_max'])) {
+        $options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
+    }
+
+    if (!empty($options['datas'])) {
+        list($head, $postdata) = prepare_donnees_post($options['datas'], $options['boundary']);
+        if (stripos($head, 'Content-Length:') === false) {
+            $head .= 'Content-Length: ' . strlen($postdata);
+        }
+        $options['datas'] = $head . "\r\n\r\n" . $postdata;
+        if (strlen($postdata)) {
+            $options['methode'] = 'POST';
+        }
+    }
+
+    // Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
+    $url = preg_replace(',^feed://,i', 'http://', $url);
+    if (!tester_url_absolue($url)) {
+        $url = 'http://' . $url;
+    } elseif (strncmp($url, '//', 2) == 0) {
+        $url = 'http:' . $url;
+    }
+
+    $url = url_to_ascii($url);
+
+    $result = array(
+        'status' => 0,
+        'headers' => '',
+        'page' => '',
+        'length' => 0,
+        'last_modified' => '',
+        'location' => '',
+        'url' => $url
+    );
+
+    // si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
+    $refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
+
+    // ouvrir la connexion et envoyer la requete et ses en-tetes
+    list($handle, $fopen) = init_http(
+        $options['methode'],
+        $url,
+        $refuser_gz,
+        $options['uri_referer'],
+        $options['datas'],
+        $options['version_http'],
+        $options['if_modified_since']
+    );
+    if (!$handle) {
+        spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
+
+        return false;
+    }
+
+    // Sauf en fopen, envoyer le flux d'entree
+    // et recuperer les en-tetes de reponses
+    if (!$fopen) {
+        $res = recuperer_entetes_complets($handle, $options['if_modified_since']);
+        if (!$res) {
+            fclose($handle);
+            $t = @parse_url($url);
+            $host = $t['host'];
+            // Chinoisierie inexplicable pour contrer
+            // les actions liberticides de l'empire du milieu
+            if (!need_proxy($host)
+                and $res = @file_get_contents($url)
+            ) {
+                $result['length'] = strlen($res);
+                if ($copy) {
+                    ecrire_fichier($copy, $res);
+                    $result['file'] = $copy;
+                } else {
+                    $result['page'] = $res;
+                }
+                $res = array(
+                    'status' => 200,
+                );
+            } else {
+                spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
+                return false;
+            }
+        } elseif ($res['location'] and $options['follow_location']) {
+            $options['follow_location']--;
+            fclose($handle);
+            include_spip('inc/filtres');
+            $url = suivre_lien($url, $res['location']);
+            spip_log("recuperer_url recommence sur $url", 'distant');
+
+            return recuperer_url($url, $options);
+        } elseif ($res['status'] !== 200) {
+            spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
+        }
+        $result['status'] = $res['status'];
+        if (isset($res['headers'])) {
+            $result['headers'] = $res['headers'];
+        }
+        if (isset($res['last_modified'])) {
+            $result['last_modified'] = $res['last_modified'];
+        }
+        if (isset($res['location'])) {
+            $result['location'] = $res['location'];
+        }
+    }
+
+    // on ne veut que les entetes
+    if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
+        return $result;
+    }
+
+
+    // s'il faut deballer, le faire via un fichier temporaire
+    // sinon la memoire explose pour les gros flux
+
+    $gz = false;
+    if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
+        $gz = (_DIR_TMP . md5(uniqid(mt_rand())) . '.tmp.gz');
+    }
+
+    // si on a pas deja recuperer le contenu par une methode detournee
+    if (!$result['length']) {
+        $res = recuperer_body($handle, $options['taille_max'], $gz ? $gz : $copy);
+        fclose($handle);
+        if ($copy) {
+            $result['length'] = $res;
+            $result['file'] = $copy;
+        } elseif ($res) {
+            $result['page'] = &$res;
+            $result['length'] = strlen($result['page']);
+        }
+        if (!$result['status']) {
+            $result['status'] = 200; // on a reussi, donc !
+        }
+    }
+    if (!$result['page']) {
+        return $result;
+    }
+
+    // Decompresser au besoin
+    if ($gz) {
+        $result['page'] = implode('', gzfile($gz));
+        supprimer_fichier($gz);
+    }
+
+    // Faut-il l'importer dans notre charset local ?
+    if ($options['transcoder']) {
+        include_spip('inc/charsets');
+        $result['page'] = transcoder_page($result['page'], $result['headers']);
+    }
+
+    return $result;
 }
 
 /**
@@ -581,72 +581,72 @@ 
  * @return array|bool|mixed
  */
 function recuperer_url_cache($url, $options = array()) {
-	if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
-		define('_DELAI_RECUPERER_URL_CACHE', 3600);
-	}
-	$default = array(
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-		'delai_cache' => _DELAI_RECUPERER_URL_CACHE,
-	);
-	$options = array_merge($default, $options);
-
-	// cas ou il n'est pas possible de cacher
-	if (!empty($options['data']) or $options['methode'] == 'POST') {
-		return recuperer_url($url, $options);
-	}
-
-	// ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
-	static $errors = array();
-	if (isset($errors[$url])) {
-		return $errors[$url];
-	}
-
-	$sig = $options;
-	unset($sig['if_modified_since']);
-	unset($sig['delai_cache']);
-	$sig['url'] = $url;
-
-	$dir = sous_repertoire(_DIR_CACHE, 'curl');
-	$cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
-	$sub = sous_repertoire($dir, substr($cache, 0, 2));
-	$cache = "$sub$cache";
-
-	$res = false;
-	$is_cached = file_exists($cache);
-	if ($is_cached
-		and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
-	) {
-		lire_fichier($cache, $res);
-		if ($res = unserialize($res)) {
-			// mettre le last_modified et le status=304 ?
-		}
-	}
-	if (!$res) {
-		$res = recuperer_url($url, $options);
-		// ne pas recharger cette url non cachee dans le meme hit puisque non disponible
-		if (!$res) {
-			if ($is_cached) {
-				// on a pas reussi a recuperer mais on avait un cache : l'utiliser
-				lire_fichier($cache, $res);
-				$res = unserialize($res);
-			}
-
-			return $errors[$url] = $res;
-		}
-		ecrire_fichier($cache, serialize($res));
-	}
-
-	return $res;
+    if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
+        define('_DELAI_RECUPERER_URL_CACHE', 3600);
+    }
+    $default = array(
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+        'delai_cache' => _DELAI_RECUPERER_URL_CACHE,
+    );
+    $options = array_merge($default, $options);
+
+    // cas ou il n'est pas possible de cacher
+    if (!empty($options['data']) or $options['methode'] == 'POST') {
+        return recuperer_url($url, $options);
+    }
+
+    // ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
+    static $errors = array();
+    if (isset($errors[$url])) {
+        return $errors[$url];
+    }
+
+    $sig = $options;
+    unset($sig['if_modified_since']);
+    unset($sig['delai_cache']);
+    $sig['url'] = $url;
+
+    $dir = sous_repertoire(_DIR_CACHE, 'curl');
+    $cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
+    $sub = sous_repertoire($dir, substr($cache, 0, 2));
+    $cache = "$sub$cache";
+
+    $res = false;
+    $is_cached = file_exists($cache);
+    if ($is_cached
+        and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
+    ) {
+        lire_fichier($cache, $res);
+        if ($res = unserialize($res)) {
+            // mettre le last_modified et le status=304 ?
+        }
+    }
+    if (!$res) {
+        $res = recuperer_url($url, $options);
+        // ne pas recharger cette url non cachee dans le meme hit puisque non disponible
+        if (!$res) {
+            if ($is_cached) {
+                // on a pas reussi a recuperer mais on avait un cache : l'utiliser
+                lire_fichier($cache, $res);
+                $res = unserialize($res);
+            }
+
+            return $errors[$url] = $res;
+        }
+        ecrire_fichier($cache, serialize($res));
+    }
+
+    return $res;
 }
 
 /**
@@ -684,52 +684,52 @@ 
  *     - false si la page n'a pu être récupérée (status different de 200)
  **/
 function recuperer_page(
-	$url,
-	$trans = false,
-	$get_headers = false,
-	$taille_max = null,
-	$datas = '',
-	$boundary = '',
-	$refuser_gz = false,
-	$date_verif = '',
-	$uri_referer = ''
+    $url,
+    $trans = false,
+    $get_headers = false,
+    $taille_max = null,
+    $datas = '',
+    $boundary = '',
+    $refuser_gz = false,
+    $date_verif = '',
+    $uri_referer = ''
 ) {
-	// $copy = copier le fichier ?
-	$copy = (is_string($trans) and strlen($trans) > 5); // eviter "false" :-)
-
-	if (!is_null($taille_max) and ($taille_max == 0)) {
-		$get = 'HEAD';
-	} else {
-		$get = 'GET';
-	}
-
-	$options = array(
-		'transcoder' => $trans === true,
-		'methode' => $get,
-		'datas' => $datas,
-		'boundary' => $boundary,
-		'refuser_gz' => $refuser_gz,
-		'if_modified_since' => $date_verif,
-		'uri_referer' => $uri_referer,
-		'file' => $copy ? $trans : '',
-		'follow_location' => 10,
-	);
-	if (!is_null($taille_max)) {
-		$options['taille_max'] = $taille_max;
-	}
-	// dix tentatives maximum en cas d'entetes 301...
-	$res = recuperer_url($url, $options);
-	if (!$res) {
-		return false;
-	}
-	if ($res['status'] !== 200) {
-		return false;
-	}
-	if ($get_headers) {
-		return $res['headers'] . "\n" . $res['page'];
-	}
-
-	return $res['page'];
+    // $copy = copier le fichier ?
+    $copy = (is_string($trans) and strlen($trans) > 5); // eviter "false" :-)
+
+    if (!is_null($taille_max) and ($taille_max == 0)) {
+        $get = 'HEAD';
+    } else {
+        $get = 'GET';
+    }
+
+    $options = array(
+        'transcoder' => $trans === true,
+        'methode' => $get,
+        'datas' => $datas,
+        'boundary' => $boundary,
+        'refuser_gz' => $refuser_gz,
+        'if_modified_since' => $date_verif,
+        'uri_referer' => $uri_referer,
+        'file' => $copy ? $trans : '',
+        'follow_location' => 10,
+    );
+    if (!is_null($taille_max)) {
+        $options['taille_max'] = $taille_max;
+    }
+    // dix tentatives maximum en cas d'entetes 301...
+    $res = recuperer_url($url, $options);
+    if (!$res) {
+        return false;
+    }
+    if ($res['status'] !== 200) {
+        return false;
+    }
+    if ($get_headers) {
+        return $res['headers'] . "\n" . $res['page'];
+    }
+
+    return $res['page'];
 }
 
 
@@ -766,48 +766,48 @@ 
  *     - false sinon
  **/
 function recuperer_lapage(
-	$url,
-	$trans = false,
-	$get = 'GET',
-	$taille_max = 1048576,
-	$datas = '',
-	$refuser_gz = false,
-	$date_verif = '',
-	$uri_referer = ''
+    $url,
+    $trans = false,
+    $get = 'GET',
+    $taille_max = 1048576,
+    $datas = '',
+    $refuser_gz = false,
+    $date_verif = '',
+    $uri_referer = ''
 ) {
-	// $copy = copier le fichier ?
-	$copy = (is_string($trans) and strlen($trans) > 5); // eviter "false" :-)
-
-	// si on ecrit directement dans un fichier, pour ne pas manipuler
-	// en memoire refuser gz
-	if ($copy) {
-		$refuser_gz = true;
-	}
-
-	$options = array(
-		'transcoder' => $trans === true,
-		'methode' => $get,
-		'datas' => $datas,
-		'refuser_gz' => $refuser_gz,
-		'if_modified_since' => $date_verif,
-		'uri_referer' => $uri_referer,
-		'file' => $copy ? $trans : '',
-		'follow_location' => false,
-	);
-	if (!is_null($taille_max)) {
-		$options['taille_max'] = $taille_max;
-	}
-	// dix tentatives maximum en cas d'entetes 301...
-	$res = recuperer_url($url, $options);
-
-	if (!$res) {
-		return false;
-	}
-	if ($res['status'] !== 200) {
-		return false;
-	}
-
-	return array($res['headers'], $res['page']);
+    // $copy = copier le fichier ?
+    $copy = (is_string($trans) and strlen($trans) > 5); // eviter "false" :-)
+
+    // si on ecrit directement dans un fichier, pour ne pas manipuler
+    // en memoire refuser gz
+    if ($copy) {
+        $refuser_gz = true;
+    }
+
+    $options = array(
+        'transcoder' => $trans === true,
+        'methode' => $get,
+        'datas' => $datas,
+        'refuser_gz' => $refuser_gz,
+        'if_modified_since' => $date_verif,
+        'uri_referer' => $uri_referer,
+        'file' => $copy ? $trans : '',
+        'follow_location' => false,
+    );
+    if (!is_null($taille_max)) {
+        $options['taille_max'] = $taille_max;
+    }
+    // dix tentatives maximum en cas d'entetes 301...
+    $res = recuperer_url($url, $options);
+
+    if (!$res) {
+        return false;
+    }
+    if ($res['status'] !== 200) {
+        return false;
+    }
+
+    return array($res['headers'], $res['page']);
 }
 
 /**
@@ -825,41 +825,41 @@ 
  *   string contenu de la resource
  */
 function recuperer_body($handle, $taille_max = _INC_DISTANT_MAX_SIZE, $fichier = '') {
-	$taille = 0;
-	$result = '';
-	$fp = false;
-	if ($fichier) {
-		include_spip('inc/acces');
-		$tmpfile = "$fichier." . creer_uniqid() . '.tmp';
-		$fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
-		if (!$fp and file_exists($fichier)) {
-			return filesize($fichier);
-		}
-		if (!$fp) {
-			return false;
-		}
-		$result = 0; // on renvoie la taille du fichier
-	}
-	while (!feof($handle) and $taille < $taille_max) {
-		$res = fread($handle, 16384);
-		$taille += strlen($res);
-		if ($fp) {
-			fwrite($fp, $res);
-			$result = $taille;
-		} else {
-			$result .= $res;
-		}
-	}
-	if ($fp) {
-		spip_fclose_unlock($fp);
-		spip_unlink($fichier);
-		@rename($tmpfile, $fichier);
-		if (!file_exists($fichier)) {
-			return false;
-		}
-	}
-
-	return $result;
+    $taille = 0;
+    $result = '';
+    $fp = false;
+    if ($fichier) {
+        include_spip('inc/acces');
+        $tmpfile = "$fichier." . creer_uniqid() . '.tmp';
+        $fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
+        if (!$fp and file_exists($fichier)) {
+            return filesize($fichier);
+        }
+        if (!$fp) {
+            return false;
+        }
+        $result = 0; // on renvoie la taille du fichier
+    }
+    while (!feof($handle) and $taille < $taille_max) {
+        $res = fread($handle, 16384);
+        $taille += strlen($res);
+        if ($fp) {
+            fwrite($fp, $res);
+            $result = $taille;
+        } else {
+            $result .= $res;
+        }
+    }
+    if ($fp) {
+        spip_fclose_unlock($fp);
+        spip_unlink($fichier);
+        @rename($tmpfile, $fichier);
+        if (!file_exists($fichier)) {
+            return false;
+        }
+    }
+
+    return $result;
 }
 
 /**
@@ -881,34 +881,34 @@ 
  *   string location
  */
 function recuperer_entetes_complets($handle, $if_modified_since = false) {
-	$result = array('status' => 0, 'headers' => array(), 'last_modified' => 0, 'location' => '');
-
-	$s = @trim(fgets($handle, 16384));
-	if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
-		return false;
-	}
-	$result['status'] = intval($r[1]);
-	while ($s = trim(fgets($handle, 16384))) {
-		$result['headers'][] = $s . "\n";
-		preg_match(',^([^:]*): *(.*)$,i', $s, $r);
-		list(, $d, $v) = $r;
-		if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
-			$result['location'] = $v;
-		} elseif ($d == 'Last-Modified') {
-			$result['last_modified'] = strtotime($v);
-		}
-	}
-	if ($if_modified_since
-		and $result['last_modified']
-		and $if_modified_since > $result['last_modified']
-		and $result['status'] == 200
-	) {
-		$result['status'] = 304;
-	}
-
-	$result['headers'] = implode('', $result['headers']);
-
-	return $result;
+    $result = array('status' => 0, 'headers' => array(), 'last_modified' => 0, 'location' => '');
+
+    $s = @trim(fgets($handle, 16384));
+    if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
+        return false;
+    }
+    $result['status'] = intval($r[1]);
+    while ($s = trim(fgets($handle, 16384))) {
+        $result['headers'][] = $s . "\n";
+        preg_match(',^([^:]*): *(.*)$,i', $s, $r);
+        list(, $d, $v) = $r;
+        if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
+            $result['location'] = $v;
+        } elseif ($d == 'Last-Modified') {
+            $result['last_modified'] = strtotime($v);
+        }
+    }
+    if ($if_modified_since
+        and $result['last_modified']
+        and $if_modified_since > $result['last_modified']
+        and $result['status'] == 200
+    ) {
+        $result['status'] = 304;
+    }
+
+    $result['headers'] = implode('', $result['headers']);
+
+    return $result;
 }
 
 /**
@@ -930,20 +930,20 @@ 
  *     - le tableau des entetes dans tous les autres cas
  **/
 function recuperer_entetes($f, $date_verif = '') {
-	//Cas ou la page distante n'a pas bouge depuis
-	//la derniere visite
-	$res = recuperer_entetes_complets($f, $date_verif);
-	if (!$res) {
-		return false;
-	}
-	if ($res['location']) {
-		return $res['location'];
-	}
-	if ($res['status'] != 200) {
-		return $res['status'];
-	}
-
-	return explode("\n", $res['headers']);
+    //Cas ou la page distante n'a pas bouge depuis
+    //la derniere visite
+    $res = recuperer_entetes_complets($f, $date_verif);
+    if (!$res) {
+        return false;
+    }
+    if ($res['location']) {
+        return $res['location'];
+    }
+    if ($res['status'] != 200) {
+        return $res['status'];
+    }
+
+    return explode("\n", $res['headers']);
 }
 
 /**
@@ -965,22 +965,22 @@ 
  *     Nom du fichier pour copie locale
  **/
 function nom_fichier_copie_locale($source, $extension) {
-	include_spip('inc/documents');
+    include_spip('inc/documents');
 
-	$d = creer_repertoire_documents('distant'); # IMG/distant/
-	$d = sous_repertoire($d, $extension); # IMG/distant/pdf/
+    $d = creer_repertoire_documents('distant'); # IMG/distant/
+    $d = sous_repertoire($d, $extension); # IMG/distant/pdf/
 
-	// on se place tout le temps comme si on etait a la racine
-	if (_DIR_RACINE) {
-		$d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
-	}
+    // on se place tout le temps comme si on etait a la racine
+    if (_DIR_RACINE) {
+        $d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
+    }
 
-	$m = md5($source);
+    $m = md5($source);
 
-	return $d
-	. substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
-	. substr($m, 0, 4)
-	. ".$extension";
+    return $d
+    . substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
+    . substr($m, 0, 4)
+    . ".$extension";
 }
 
 /**
@@ -998,68 +998,68 @@ 
  *      Nom du fichier calculé
  **/
 function fichier_copie_locale($source) {
-	// Si c'est deja local pas de souci
-	if (!tester_url_absolue($source)) {
-		if (_DIR_RACINE) {
-			$source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
-		}
-
-		return $source;
-	}
-
-	// optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
-	// a deja ete copie en local avec cette extension
-	// dans ce cas elle est fiable, pas la peine de requeter en base
-	$path_parts = pathinfo($source);
-	if (!isset($path_parts['extension'])) {
-		$path_parts['extension'] = '';
-	}
-	$ext = $path_parts ? $path_parts['extension'] : '';
-	if ($ext
-		and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
-		and $f = nom_fichier_copie_locale($source, $ext)
-		and file_exists(_DIR_RACINE . $f)
-	) {
-		return $f;
-	}
-
-
-	// Si c'est deja dans la table des documents,
-	// ramener le nom de sa copie potentielle
-	$ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
-
-	if ($ext) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-
-	// voir si l'extension indiquee dans le nom du fichier est ok
-	// et si il n'aurait pas deja ete rapatrie
-
-	$ext = $path_parts ? $path_parts['extension'] : '';
-
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		$f = nom_fichier_copie_locale($source, $ext);
-		if (file_exists(_DIR_RACINE . $f)) {
-			return $f;
-		}
-	}
-
-	// Ping  pour voir si son extension est connue et autorisee
-	// avec mise en cache du resultat du ping
-
-	$cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
-	if (!@file_exists($cache)
-		or !$path_parts = @unserialize(spip_file_get_contents($cache))
-		or _request('var_mode') == 'recalcul'
-	) {
-		$path_parts = recuperer_infos_distantes($source, 0, false);
-		ecrire_fichier($cache, serialize($path_parts));
-	}
-	$ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-	spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
+    // Si c'est deja local pas de souci
+    if (!tester_url_absolue($source)) {
+        if (_DIR_RACINE) {
+            $source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
+        }
+
+        return $source;
+    }
+
+    // optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
+    // a deja ete copie en local avec cette extension
+    // dans ce cas elle est fiable, pas la peine de requeter en base
+    $path_parts = pathinfo($source);
+    if (!isset($path_parts['extension'])) {
+        $path_parts['extension'] = '';
+    }
+    $ext = $path_parts ? $path_parts['extension'] : '';
+    if ($ext
+        and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
+        and $f = nom_fichier_copie_locale($source, $ext)
+        and file_exists(_DIR_RACINE . $f)
+    ) {
+        return $f;
+    }
+
+
+    // Si c'est deja dans la table des documents,
+    // ramener le nom de sa copie potentielle
+    $ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
+
+    if ($ext) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+
+    // voir si l'extension indiquee dans le nom du fichier est ok
+    // et si il n'aurait pas deja ete rapatrie
+
+    $ext = $path_parts ? $path_parts['extension'] : '';
+
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        $f = nom_fichier_copie_locale($source, $ext);
+        if (file_exists(_DIR_RACINE . $f)) {
+            return $f;
+        }
+    }
+
+    // Ping  pour voir si son extension est connue et autorisee
+    // avec mise en cache du resultat du ping
+
+    $cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
+    if (!@file_exists($cache)
+        or !$path_parts = @unserialize(spip_file_get_contents($cache))
+        or _request('var_mode') == 'recalcul'
+    ) {
+        $path_parts = recuperer_infos_distantes($source, 0, false);
+        ecrire_fichier($cache, serialize($path_parts));
+    }
+    $ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+    spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
 }
 
 
@@ -1087,144 +1087,144 @@ 
  **/
 function recuperer_infos_distantes($source, $max = 0, $charger_si_petite_image = true) {
 
-	// pas la peine de perdre son temps
-	if (!tester_url_absolue($source)) {
-		return false;
-	}
-
-	# charger les alias des types mime
-	include_spip('base/typedoc');
-
-	$a = array();
-	$mime_type = '';
-	// On va directement charger le debut des images et des fichiers html,
-	// de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
-	// ca echoue l'utilisateur devra les entrer...
-	if ($headers = recuperer_page($source, false, true, $max, '', '', true)) {
-		list($headers, $a['body']) = preg_split(',\n\n,', $headers, 2);
-
-		if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
-			$mime_type = (trim($regs[1]));
-		} else {
-			$mime_type = '';
-		} // inconnu
-
-		// Appliquer les alias
-		while (isset($GLOBALS['mime_alias'][$mime_type])) {
-			$mime_type = $GLOBALS['mime_alias'][$mime_type];
-		}
-
-		// Si on a un mime-type insignifiant
-		// text/plain,application/octet-stream ou vide
-		// c'est peut-etre que le serveur ne sait pas
-		// ce qu'il sert ; on va tenter de detecter via l'extension de l'url
-		// ou le Content-Disposition: attachment; filename=...
-		$t = null;
-		if (in_array($mime_type, array('text/plain', '', 'application/octet-stream'))) {
-			if (!$t
-				and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-			) {
-				$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
-			}
-			if (!$t
-				and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
-				and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
-			) {
-				$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
-			}
-		}
-
-		// Autre mime/type (ou text/plain avec fichier d'extension inconnue)
-		if (!$t) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
-		}
-
-		// Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
-		// On essaie de nouveau avec l'extension
-		if (!$t
-			and $mime_type != 'text/plain'
-			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-		) {
-			# eviter xxx.3 => 3gp (> SPIP 3)
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
-		}
-
-		if ($t) {
-			spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
-			$a['extension'] = $t['extension'];
-		} else {
-			# par defaut on retombe sur '.bin' si c'est autorise
-			spip_log("mime-type $mime_type inconnu", 'distant');
-			$t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
-			if (!$t) {
-				return false;
-			}
-			$a['extension'] = $t['extension'];
-		}
-
-		if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
-			$a['taille'] = intval($regs[1]);
-		}
-	}
-
-	// Echec avec HEAD, on tente avec GET
-	if (!$a and !$max) {
-		spip_log("tenter GET $source", 'distant');
-		$a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
-	}
-
-	// si on a rien trouve pas la peine d'insister
-	if (!$a) {
-		return false;
-	}
-
-	// S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
-	// recharger le document en GET et recuperer des donnees supplementaires...
-	include_spip('inc/filtres_images_lib_mini');
-	if (strpos($mime_type, "image/") === 0
-	  and $extension = _image_trouver_extension_depuis_mime($mime_type)) {
-		if ($max == 0
-			and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
-			and in_array($extension, formats_image_acceptables())
-			and $charger_si_petite_image
-		) {
-			$a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
-		} else {
-			if ($a['body']) {
-				$a['extension'] = $extension;
-				$a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
-				ecrire_fichier($a['fichier'], $a['body']);
-				$size_image = @spip_getimagesize($a['fichier']);
-				$a['largeur'] = intval($size_image[0]);
-				$a['hauteur'] = intval($size_image[1]);
-				$a['type_image'] = true;
-			}
-		}
-	}
-
-	// Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
-	// ce sera mieux que 0x0
-	// Flash is dead!
-	if ($a and isset($a['extension']) and $a['extension'] == 'swf'
-		and empty($a['largeur'])
-	) {
-		$a['largeur'] = 425;
-		$a['hauteur'] = 350;
-	}
-
-	if ($mime_type == 'text/html') {
-		include_spip('inc/filtres');
-		$page = recuperer_page($source, true, false, _INC_DISTANT_MAX_SIZE);
-		if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
-			$a['titre'] = corriger_caracteres(trim($regs[1]));
-		}
-		if (!isset($a['taille']) or !$a['taille']) {
-			$a['taille'] = strlen($page); # a peu pres
-		}
-	}
-	$a['mime_type'] = $mime_type;
-
-	return $a;
+    // pas la peine de perdre son temps
+    if (!tester_url_absolue($source)) {
+        return false;
+    }
+
+    # charger les alias des types mime
+    include_spip('base/typedoc');
+
+    $a = array();
+    $mime_type = '';
+    // On va directement charger le debut des images et des fichiers html,
+    // de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
+    // ca echoue l'utilisateur devra les entrer...
+    if ($headers = recuperer_page($source, false, true, $max, '', '', true)) {
+        list($headers, $a['body']) = preg_split(',\n\n,', $headers, 2);
+
+        if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
+            $mime_type = (trim($regs[1]));
+        } else {
+            $mime_type = '';
+        } // inconnu
+
+        // Appliquer les alias
+        while (isset($GLOBALS['mime_alias'][$mime_type])) {
+            $mime_type = $GLOBALS['mime_alias'][$mime_type];
+        }
+
+        // Si on a un mime-type insignifiant
+        // text/plain,application/octet-stream ou vide
+        // c'est peut-etre que le serveur ne sait pas
+        // ce qu'il sert ; on va tenter de detecter via l'extension de l'url
+        // ou le Content-Disposition: attachment; filename=...
+        $t = null;
+        if (in_array($mime_type, array('text/plain', '', 'application/octet-stream'))) {
+            if (!$t
+                and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+            ) {
+                $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+            }
+            if (!$t
+                and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
+                and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
+            ) {
+                $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+            }
+        }
+
+        // Autre mime/type (ou text/plain avec fichier d'extension inconnue)
+        if (!$t) {
+            $t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
+        }
+
+        // Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
+        // On essaie de nouveau avec l'extension
+        if (!$t
+            and $mime_type != 'text/plain'
+            and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+        ) {
+            # eviter xxx.3 => 3gp (> SPIP 3)
+            $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+        }
+
+        if ($t) {
+            spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
+            $a['extension'] = $t['extension'];
+        } else {
+            # par defaut on retombe sur '.bin' si c'est autorise
+            spip_log("mime-type $mime_type inconnu", 'distant');
+            $t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
+            if (!$t) {
+                return false;
+            }
+            $a['extension'] = $t['extension'];
+        }
+
+        if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
+            $a['taille'] = intval($regs[1]);
+        }
+    }
+
+    // Echec avec HEAD, on tente avec GET
+    if (!$a and !$max) {
+        spip_log("tenter GET $source", 'distant');
+        $a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
+    }
+
+    // si on a rien trouve pas la peine d'insister
+    if (!$a) {
+        return false;
+    }
+
+    // S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
+    // recharger le document en GET et recuperer des donnees supplementaires...
+    include_spip('inc/filtres_images_lib_mini');
+    if (strpos($mime_type, "image/") === 0
+      and $extension = _image_trouver_extension_depuis_mime($mime_type)) {
+        if ($max == 0
+            and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
+            and in_array($extension, formats_image_acceptables())
+            and $charger_si_petite_image
+        ) {
+            $a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
+        } else {
+            if ($a['body']) {
+                $a['extension'] = $extension;
+                $a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
+                ecrire_fichier($a['fichier'], $a['body']);
+                $size_image = @spip_getimagesize($a['fichier']);
+                $a['largeur'] = intval($size_image[0]);
+                $a['hauteur'] = intval($size_image[1]);
+                $a['type_image'] = true;
+            }
+        }
+    }
+
+    // Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
+    // ce sera mieux que 0x0
+    // Flash is dead!
+    if ($a and isset($a['extension']) and $a['extension'] == 'swf'
+        and empty($a['largeur'])
+    ) {
+        $a['largeur'] = 425;
+        $a['hauteur'] = 350;
+    }
+
+    if ($mime_type == 'text/html') {
+        include_spip('inc/filtres');
+        $page = recuperer_page($source, true, false, _INC_DISTANT_MAX_SIZE);
+        if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
+            $a['titre'] = corriger_caracteres(trim($regs[1]));
+        }
+        if (!isset($a['taille']) or !$a['taille']) {
+            $a['taille'] = strlen($page); # a peu pres
+        }
+    }
+    $a['mime_type'] = $mime_type;
+
+    return $a;
 }
 
 
@@ -1240,45 +1240,45 @@ 
  * @return string
  */
 function need_proxy($host, $http_proxy = null, $http_noproxy = null) {
-	if (is_null($http_proxy)) {
-		$http_proxy = isset($GLOBALS['meta']['http_proxy']) ? $GLOBALS['meta']['http_proxy'] : null;
-	}
-	// rien a faire si pas de proxy :)
-	if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
-		return '';
-	}
-
-	if (is_null($http_noproxy)) {
-		$http_noproxy = isset($GLOBALS['meta']['http_noproxy']) ? $GLOBALS['meta']['http_noproxy'] : null;
-	}
-	// si pas d'exception, on retourne le proxy
-	if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
-		return $http_proxy;
-	}
-
-	// si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
-	// $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
-	$http_noproxy = str_replace("\n", " ", $http_noproxy);
-	$http_noproxy = str_replace("\r", " ", $http_noproxy);
-	$http_noproxy = " $http_noproxy ";
-	$domain = $host;
-	// si le domaine exact www.example.org est dans les exceptions
-	if (strpos($http_noproxy, " $domain ") !== false)
-		return '';
-
-	while (strpos($domain, '.') !== false) {
-		$domain = explode('.', $domain);
-		array_shift($domain);
-		$domain = implode('.', $domain);
-
-		// ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
-		if (strpos($http_noproxy, " .$domain ") !== false) {
-			return '';
-		}
-	}
-
-	// ok c'est pas une exception
-	return $http_proxy;
+    if (is_null($http_proxy)) {
+        $http_proxy = isset($GLOBALS['meta']['http_proxy']) ? $GLOBALS['meta']['http_proxy'] : null;
+    }
+    // rien a faire si pas de proxy :)
+    if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
+        return '';
+    }
+
+    if (is_null($http_noproxy)) {
+        $http_noproxy = isset($GLOBALS['meta']['http_noproxy']) ? $GLOBALS['meta']['http_noproxy'] : null;
+    }
+    // si pas d'exception, on retourne le proxy
+    if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
+        return $http_proxy;
+    }
+
+    // si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
+    // $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
+    $http_noproxy = str_replace("\n", " ", $http_noproxy);
+    $http_noproxy = str_replace("\r", " ", $http_noproxy);
+    $http_noproxy = " $http_noproxy ";
+    $domain = $host;
+    // si le domaine exact www.example.org est dans les exceptions
+    if (strpos($http_noproxy, " $domain ") !== false)
+        return '';
+
+    while (strpos($domain, '.') !== false) {
+        $domain = explode('.', $domain);
+        array_shift($domain);
+        $domain = implode('.', $domain);
+
+        // ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
+        if (strpos($http_noproxy, " .$domain ") !== false) {
+            return '';
+        }
+    }
+
+    // ok c'est pas une exception
+    return $http_proxy;
 }
 
 
@@ -1301,58 +1301,58 @@ 
  * @return array
  */
 function init_http($method, $url, $refuse_gz = false, $referer = '', $datas = '', $vers = 'HTTP/1.0', $date = '') {
-	$user = $via_proxy = $proxy_user = '';
-	$fopen = false;
-
-	$t = @parse_url($url);
-	$host = $t['host'];
-	if ($t['scheme'] == 'http') {
-		$scheme = 'http';
-		$noproxy = '';
-	} elseif ($t['scheme'] == 'https') {
-		$scheme = 'ssl';
-		$noproxy = 'ssl://';
-		if (!isset($t['port']) || !($port = $t['port'])) {
-			$t['port'] = 443;
-		}
-	} else {
-		$scheme = $t['scheme'];
-		$noproxy = $scheme . '://';
-	}
-	if (isset($t['user'])) {
-		$user = array($t['user'], $t['pass']);
-	}
-
-	if (!isset($t['port']) || !($port = $t['port'])) {
-		$port = 80;
-	}
-	if (!isset($t['path']) || !($path = $t['path'])) {
-		$path = '/';
-	}
-
-	if (!empty($t['query'])) {
-		$path .= '?' . $t['query'];
-	}
-
-	$f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
-	if (!$f or !is_resource($f)) {
-		// fallback : fopen si on a pas fait timeout dans lance_requete
-		// ce qui correspond a $f===110
-		if ($f !== 110
-			and !need_proxy($host)
-			and !_request('tester_proxy')
-			and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
-		) {
-			$f = @fopen($url, 'rb');
-			spip_log("connexion vers $url par simple fopen", 'distant');
-			$fopen = true;
-		} else {
-			// echec total
-			$f = false;
-		}
-	}
-
-	return array($f, $fopen);
+    $user = $via_proxy = $proxy_user = '';
+    $fopen = false;
+
+    $t = @parse_url($url);
+    $host = $t['host'];
+    if ($t['scheme'] == 'http') {
+        $scheme = 'http';
+        $noproxy = '';
+    } elseif ($t['scheme'] == 'https') {
+        $scheme = 'ssl';
+        $noproxy = 'ssl://';
+        if (!isset($t['port']) || !($port = $t['port'])) {
+            $t['port'] = 443;
+        }
+    } else {
+        $scheme = $t['scheme'];
+        $noproxy = $scheme . '://';
+    }
+    if (isset($t['user'])) {
+        $user = array($t['user'], $t['pass']);
+    }
+
+    if (!isset($t['port']) || !($port = $t['port'])) {
+        $port = 80;
+    }
+    if (!isset($t['path']) || !($path = $t['path'])) {
+        $path = '/';
+    }
+
+    if (!empty($t['query'])) {
+        $path .= '?' . $t['query'];
+    }
+
+    $f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
+    if (!$f or !is_resource($f)) {
+        // fallback : fopen si on a pas fait timeout dans lance_requete
+        // ce qui correspond a $f===110
+        if ($f !== 110
+            and !need_proxy($host)
+            and !_request('tester_proxy')
+            and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
+        ) {
+            $f = @fopen($url, 'rb');
+            spip_log("connexion vers $url par simple fopen", 'distant');
+            $fopen = true;
+        } else {
+            // echec total
+            $f = false;
+        }
+    }
+
+    return array($f, $fopen);
 }
 
 /**
@@ -1387,127 +1387,127 @@ 
  *   resource socket vers l'url demandee
  */
 function lance_requete(
-	$method,
-	$scheme,
-	$user,
-	$host,
-	$path,
-	$port,
-	$noproxy,
-	$refuse_gz = false,
-	$referer = '',
-	$datas = '',
-	$vers = 'HTTP/1.0',
-	$date = ''
+    $method,
+    $scheme,
+    $user,
+    $host,
+    $path,
+    $port,
+    $noproxy,
+    $refuse_gz = false,
+    $referer = '',
+    $datas = '',
+    $vers = 'HTTP/1.0',
+    $date = ''
 ) {
 
-	$proxy_user = '';
-	$http_proxy = need_proxy($host);
-	if ($user) {
-		$user = urlencode($user[0]) . ':' . urlencode($user[1]);
-	}
-
-	$connect = '';
-	if ($http_proxy) {
-		if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme , array('tls','ssl'))) {
-			$path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
-			$connect = 'CONNECT ' . $path_host . " $vers\r\n"
-				. "Host: $path_host\r\n"
-				. "Proxy-Connection: Keep-Alive\r\n";
-		} else {
-			$path = (in_array($scheme , array('tls','ssl')) ? 'https://' : "$scheme://")
-				. (!$user ? '' : "$user@")
-				. "$host" . (($port != 80) ? ":$port" : '') . $path;
-		}
-		$t2 = @parse_url($http_proxy);
-		$first_host = $t2['host'];
-		if (!($port = $t2['port'])) {
-			$port = 80;
-		}
-		if ($t2['user']) {
-			$proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
-		}
-	} else {
-		$first_host = $noproxy . $host;
-	}
-
-	if ($connect) {
-		$streamContext = stream_context_create(array(
-			'ssl' => array(
-				'verify_peer' => false,
-				'allow_self_signed' => true,
-				'SNI_enabled' => true,
-				'peer_name' => $host,
-			)
-		));
-		if (version_compare(phpversion(), '5.6', '<')) {
-			stream_context_set_option($streamContext, 'ssl', 'SNI_server_name', $host);
-		}
-		$f = @stream_socket_client(
-			"tcp://$first_host:$port",
-			$errno,
-			$errstr,
-			_INC_DISTANT_CONNECT_TIMEOUT,
-			STREAM_CLIENT_CONNECT,
-			$streamContext
-		);
-		spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-
-		fputs($f, $connect);
-		fputs($f, "\r\n");
-		$res = fread($f, 1024);
-		if (!$res
-			or !count($res = explode(' ', $res))
-			or $res[1] !== '200'
-		) {
-			spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
-			fclose($f);
-
-			return false;
-		}
-		// important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
-		stream_set_blocking($f, true);
-		// envoyer le handshake
-		stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
-		spip_log("OK CONNECT sur $first_host:$port", 'connect');
-	} else {
-		$ntry = 3;
-		do {
-			$f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
-		} while (!$f and $ntry-- and $errno !== 110 and sleep(1));
-		spip_log("Recuperer $path sur $first_host:$port par $f");
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-	}
-
-	$site = isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '';
-
-	$host_port = $host;
-	if ($port != (in_array($scheme , array('tls','ssl')) ? 443 : 80)) {
-		$host_port .= ":$port";
-	}
-	$req = "$method $path $vers\r\n"
-		. "Host: $host_port\r\n"
-		. 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
-		. ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
-		. (!$site ? '' : "Referer: $site/$referer\r\n")
-		. (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
-		. (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
-		. (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
-		. (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
+    $proxy_user = '';
+    $http_proxy = need_proxy($host);
+    if ($user) {
+        $user = urlencode($user[0]) . ':' . urlencode($user[1]);
+    }
+
+    $connect = '';
+    if ($http_proxy) {
+        if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme , array('tls','ssl'))) {
+            $path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
+            $connect = 'CONNECT ' . $path_host . " $vers\r\n"
+                . "Host: $path_host\r\n"
+                . "Proxy-Connection: Keep-Alive\r\n";
+        } else {
+            $path = (in_array($scheme , array('tls','ssl')) ? 'https://' : "$scheme://")
+                . (!$user ? '' : "$user@")
+                . "$host" . (($port != 80) ? ":$port" : '') . $path;
+        }
+        $t2 = @parse_url($http_proxy);
+        $first_host = $t2['host'];
+        if (!($port = $t2['port'])) {
+            $port = 80;
+        }
+        if ($t2['user']) {
+            $proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
+        }
+    } else {
+        $first_host = $noproxy . $host;
+    }
+
+    if ($connect) {
+        $streamContext = stream_context_create(array(
+            'ssl' => array(
+                'verify_peer' => false,
+                'allow_self_signed' => true,
+                'SNI_enabled' => true,
+                'peer_name' => $host,
+            )
+        ));
+        if (version_compare(phpversion(), '5.6', '<')) {
+            stream_context_set_option($streamContext, 'ssl', 'SNI_server_name', $host);
+        }
+        $f = @stream_socket_client(
+            "tcp://$first_host:$port",
+            $errno,
+            $errstr,
+            _INC_DISTANT_CONNECT_TIMEOUT,
+            STREAM_CLIENT_CONNECT,
+            $streamContext
+        );
+        spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+
+        fputs($f, $connect);
+        fputs($f, "\r\n");
+        $res = fread($f, 1024);
+        if (!$res
+            or !count($res = explode(' ', $res))
+            or $res[1] !== '200'
+        ) {
+            spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
+            fclose($f);
+
+            return false;
+        }
+        // important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
+        stream_set_blocking($f, true);
+        // envoyer le handshake
+        stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
+        spip_log("OK CONNECT sur $first_host:$port", 'connect');
+    } else {
+        $ntry = 3;
+        do {
+            $f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
+        } while (!$f and $ntry-- and $errno !== 110 and sleep(1));
+        spip_log("Recuperer $path sur $first_host:$port par $f");
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+    }
+
+    $site = isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '';
+
+    $host_port = $host;
+    if ($port != (in_array($scheme , array('tls','ssl')) ? 443 : 80)) {
+        $host_port .= ":$port";
+    }
+    $req = "$method $path $vers\r\n"
+        . "Host: $host_port\r\n"
+        . 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
+        . ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
+        . (!$site ? '' : "Referer: $site/$referer\r\n")
+        . (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
+        . (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
+        . (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
+        . (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
 
 #	spip_log("Requete\n$req", 'distant');
-	fputs($f, $req);
-	fputs($f, $datas ? $datas : "\r\n");
+    fputs($f, $req);
+    fputs($f, $datas ? $datas : "\r\n");
 
-	return $f;
+    return $f;
 }

Spacing +62 added lines, -62 removed lines

@@ -26,7 +26,7 @@ 
 	define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
 }
 if (!defined('_INC_DISTANT_USER_AGENT')) {
-	define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
+	define('_INC_DISTANT_USER_AGENT', 'SPIP-'.$GLOBALS['spip_version_affichee'].' ('.$GLOBALS['home_server'].')');
 }
 if (!defined('_INC_DISTANT_MAX_SIZE')) {
 	define('_INC_DISTANT_MAX_SIZE', 2097152);
@@ -35,7 +35,7 @@ 
 	define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
 }
 
-define('_REGEXP_COPIE_LOCALE', ',' 	.
+define('_REGEXP_COPIE_LOCALE', ','.
 	preg_replace(
 		'@^https?:@',
 		'https?:',
@@ -70,7 +70,7 @@ 
 
 	// si c'est la protection de soi-meme, retourner le path
 	if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
-		$source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
+		$source = substr(_DIR_IMG, strlen(_DIR_RACINE)).urldecode($match[1]);
 
 		return @file_exists($source) ? $source : false;
 	}
@@ -90,7 +90,7 @@ 
 		return false;
 	}
 
-	$localrac = _DIR_RACINE . $local;
+	$localrac = _DIR_RACINE.$local;
 	$t = ($mode == 'force') ? false : @file_exists($localrac);
 
 	// test d'existence du fichier
@@ -115,13 +115,13 @@ 
 			array('file' => $localrac, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '')
 		);
 		if (!$res or (!$res['length'] and $res['status'] != 304)) {
-			spip_log("copie_locale : Echec recuperation $source sur $localrac status : " . $res['status'], 'distant' . _LOG_INFO_IMPORTANTE);
+			spip_log("copie_locale : Echec recuperation $source sur $localrac status : ".$res['status'], 'distant'._LOG_INFO_IMPORTANTE);
 		}
 		if (!$res['length']) {
 			// si $t c'est sans doute juste un not-modified-since
 			return $t ? $local : false;
 		}
-		spip_log("copie_locale : recuperation $source sur $localrac taille " . $res['length'] . ' OK', 'distant');
+		spip_log("copie_locale : recuperation $source sur $localrac taille ".$res['length'].' OK', 'distant');
 
 		// pour une eventuelle indexation
 		pipeline(
@@ -153,7 +153,7 @@ 
  *   url ou false en cas d'echec
  */
 function valider_url_distante($url, $known_hosts = array()) {
-	if (!function_exists('protocole_verifier')){
+	if (!function_exists('protocole_verifier')) {
 		include_spip('inc/filtres_mini');
 	}
 
@@ -162,7 +162,7 @@ 
 	}
 	
 	$parsed_url = parse_url($url);
-	if (!$parsed_url or empty($parsed_url['host']) ) {
+	if (!$parsed_url or empty($parsed_url['host'])) {
 		return false;
 	}
 
@@ -203,10 +203,10 @@ 
 			}
 		}
 		if ($ip) {
-			$parts = array_map('intval', explode( '.', $ip ));
+			$parts = array_map('intval', explode('.', $ip));
 			if (127 === $parts[0] or 10 === $parts[0] or 0 === $parts[0]
-			  or ( 172 === $parts[0] and 16 <= $parts[1] and 31 >= $parts[1] )
-			  or ( 192 === $parts[0] && 168 === $parts[1] )
+			  or (172 === $parts[0] and 16 <= $parts[1] and 31 >= $parts[1])
+			  or (192 === $parts[0] && 168 === $parts[1])
 			) {
 				return false;
 			}
@@ -218,7 +218,7 @@ 
 	}
 
 	$port = $parsed_url['port'];
-	if ($port === 80  or $port === 443  or $port === 8080) {
+	if ($port === 80 or $port === 443 or $port === 8080) {
 		return $url;
 	}
 
@@ -285,7 +285,7 @@ 
 				}
 			}
 			if ($taille > 500) {
-				$boundary = substr(md5(rand() . 'spip'), 0, 8);
+				$boundary = substr(md5(rand().'spip'), 0, 8);
 			}
 		}
 
@@ -313,16 +313,16 @@ 
 			}
 		} else {
 			// fabrique une chaine HTTP simple pour un POST
-			$entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
+			$entete = 'Content-Type: application/x-www-form-urlencoded'."\r\n";
 			$chaine = array();
 			if (is_array($donnees)) {
 				foreach ($donnees as $cle => $valeur) {
 					if (is_array($valeur)) {
 						foreach ($valeur as $val2) {
-							$chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
+							$chaine[] = rawurlencode($cle).'[]='.rawurlencode($val2);
 						}
 					} else {
-						$chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
+						$chaine[] = rawurlencode($cle).'='.rawurlencode($valeur);
 					}
 				}
 				$chaine = implode('&', $chaine);
@@ -423,9 +423,9 @@ 
 	if (!empty($options['datas'])) {
 		list($head, $postdata) = prepare_donnees_post($options['datas'], $options['boundary']);
 		if (stripos($head, 'Content-Length:') === false) {
-			$head .= 'Content-Length: ' . strlen($postdata);
+			$head .= 'Content-Length: '.strlen($postdata);
 		}
-		$options['datas'] = $head . "\r\n\r\n" . $postdata;
+		$options['datas'] = $head."\r\n\r\n".$postdata;
 		if (strlen($postdata)) {
 			$options['methode'] = 'POST';
 		}
@@ -434,9 +434,9 @@ 
 	// Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
 	$url = preg_replace(',^feed://,i', 'http://', $url);
 	if (!tester_url_absolue($url)) {
-		$url = 'http://' . $url;
+		$url = 'http://'.$url;
 	} elseif (strncmp($url, '//', 2) == 0) {
-		$url = 'http:' . $url;
+		$url = 'http:'.$url;
 	}
 
 	$url = url_to_ascii($url);
@@ -465,7 +465,7 @@ 
 		$options['if_modified_since']
 	);
 	if (!$handle) {
-		spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
+		spip_log("ECHEC init_http $url", 'distant'._LOG_ERREUR);
 
 		return false;
 	}
@@ -494,7 +494,7 @@ 
 					'status' => 200,
 				);
 			} else {
-				spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
+				spip_log("ECHEC chinoiserie $url", 'distant'._LOG_ERREUR);
 				return false;
 			}
 		} elseif ($res['location'] and $options['follow_location']) {
@@ -506,7 +506,7 @@ 
 
 			return recuperer_url($url, $options);
 		} elseif ($res['status'] !== 200) {
-			spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
+			spip_log('HTTP status '.$res['status']." pour $url", 'distant');
 		}
 		$result['status'] = $res['status'];
 		if (isset($res['headers'])) {
@@ -531,7 +531,7 @@ 
 
 	$gz = false;
 	if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
-		$gz = (_DIR_TMP . md5(uniqid(mt_rand())) . '.tmp.gz');
+		$gz = (_DIR_TMP.md5(uniqid(mt_rand())).'.tmp.gz');
 	}
 
 	// si on a pas deja recuperer le contenu par une methode detournee
@@ -617,7 +617,7 @@ 
 	$sig['url'] = $url;
 
 	$dir = sous_repertoire(_DIR_CACHE, 'curl');
-	$cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
+	$cache = md5(serialize($sig)).'-'.substr(preg_replace(',\W+,', '_', $url), 0, 80);
 	$sub = sous_repertoire($dir, substr($cache, 0, 2));
 	$cache = "$sub$cache";
 
@@ -726,7 +726,7 @@ 
 		return false;
 	}
 	if ($get_headers) {
-		return $res['headers'] . "\n" . $res['page'];
+		return $res['headers']."\n".$res['page'];
 	}
 
 	return $res['page'];
@@ -830,7 +830,7 @@ 
 	$fp = false;
 	if ($fichier) {
 		include_spip('inc/acces');
-		$tmpfile = "$fichier." . creer_uniqid() . '.tmp';
+		$tmpfile = "$fichier.".creer_uniqid().'.tmp';
 		$fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
 		if (!$fp and file_exists($fichier)) {
 			return filesize($fichier);
@@ -889,7 +889,7 @@ 
 	}
 	$result['status'] = intval($r[1]);
 	while ($s = trim(fgets($handle, 16384))) {
-		$result['headers'][] = $s . "\n";
+		$result['headers'][] = $s."\n";
 		preg_match(',^([^:]*): *(.*)$,i', $s, $r);
 		list(, $d, $v) = $r;
 		if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
@@ -972,13 +972,13 @@ 
 
 	// on se place tout le temps comme si on etait a la racine
 	if (_DIR_RACINE) {
-		$d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
+		$d = preg_replace(',^'.preg_quote(_DIR_RACINE).',', '', $d);
 	}
 
 	$m = md5($source);
 
 	return $d
-	. substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
+	. substr(preg_replace(',[^\w-],', '', basename($source)).'-'.$m, 0, 12)
 	. substr($m, 0, 4)
 	. ".$extension";
 }
@@ -1001,7 +1001,7 @@ 
 	// Si c'est deja local pas de souci
 	if (!tester_url_absolue($source)) {
 		if (_DIR_RACINE) {
-			$source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
+			$source = preg_replace(',^'.preg_quote(_DIR_RACINE).',', '', $source);
 		}
 
 		return $source;
@@ -1018,7 +1018,7 @@ 
 	if ($ext
 		and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
 		and $f = nom_fichier_copie_locale($source, $ext)
-		and file_exists(_DIR_RACINE . $f)
+		and file_exists(_DIR_RACINE.$f)
 	) {
 		return $f;
 	}
@@ -1026,7 +1026,7 @@ 
 
 	// Si c'est deja dans la table des documents,
 	// ramener le nom de sa copie potentielle
-	$ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
+	$ext = sql_getfetsel('extension', 'spip_documents', 'fichier='.sql_quote($source)." AND distant='oui' AND extension <> ''");
 
 	if ($ext) {
 		return nom_fichier_copie_locale($source, $ext);
@@ -1037,9 +1037,9 @@ 
 
 	$ext = $path_parts ? $path_parts['extension'] : '';
 
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension='.sql_quote($ext))) {
 		$f = nom_fichier_copie_locale($source, $ext);
-		if (file_exists(_DIR_RACINE . $f)) {
+		if (file_exists(_DIR_RACINE.$f)) {
 			return $f;
 		}
 	}
@@ -1047,7 +1047,7 @@ 
 	// Ping  pour voir si son extension est connue et autorisee
 	// avec mise en cache du resultat du ping
 
-	$cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
+	$cache = sous_repertoire(_DIR_CACHE, 'rid').md5($source);
 	if (!@file_exists($cache)
 		or !$path_parts = @unserialize(spip_file_get_contents($cache))
 		or _request('var_mode') == 'recalcul'
@@ -1056,10 +1056,10 @@ 
 		ecrire_fichier($cache, serialize($path_parts));
 	}
 	$ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension='.sql_quote($ext))) {
 		return nom_fichier_copie_locale($source, $ext);
 	}
-	spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
+	spip_log("pas de copie locale pour $source", 'distant'._LOG_ERREUR);
 }
 
 
@@ -1124,19 +1124,19 @@ 
 			if (!$t
 				and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
 			) {
-				$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+				$t = sql_fetsel('extension', 'spip_types_documents', 'extension='.sql_quote($rext[1], '', 'text'));
 			}
 			if (!$t
 				and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
 				and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
 			) {
-				$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+				$t = sql_fetsel('extension', 'spip_types_documents', 'extension='.sql_quote($rext[1], '', 'text'));
 			}
 		}
 
 		// Autre mime/type (ou text/plain avec fichier d'extension inconnue)
 		if (!$t) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
+			$t = sql_fetsel('extension', 'spip_types_documents', 'mime_type='.sql_quote($mime_type));
 		}
 
 		// Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
@@ -1146,11 +1146,11 @@ 
 			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
 		) {
 			# eviter xxx.3 => 3gp (> SPIP 3)
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($rext[1], '', 'text'));
+			$t = sql_fetsel('extension', 'spip_types_documents', 'extension='.sql_quote($rext[1], '', 'text'));
 		}
 
 		if ($t) {
-			spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
+			spip_log("mime-type $mime_type ok, extension ".$t['extension'], 'distant');
 			$a['extension'] = $t['extension'];
 		} else {
 			# par defaut on retombe sur '.bin' si c'est autorise
@@ -1192,7 +1192,7 @@ 
 		} else {
 			if ($a['body']) {
 				$a['extension'] = $extension;
-				$a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
+				$a['fichier'] = _DIR_RACINE.nom_fichier_copie_locale($source, $extension);
 				ecrire_fichier($a['fichier'], $a['body']);
 				$size_image = @spip_getimagesize($a['fichier']);
 				$a['largeur'] = intval($size_image[0]);
@@ -1317,7 +1317,7 @@ 
 		}
 	} else {
 		$scheme = $t['scheme'];
-		$noproxy = $scheme . '://';
+		$noproxy = $scheme.'://';
 	}
 	if (isset($t['user'])) {
 		$user = array($t['user'], $t['pass']);
@@ -1331,7 +1331,7 @@ 
 	}
 
 	if (!empty($t['query'])) {
-		$path .= '?' . $t['query'];
+		$path .= '?'.$t['query'];
 	}
 
 	$f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
@@ -1404,20 +1404,20 @@ 
 	$proxy_user = '';
 	$http_proxy = need_proxy($host);
 	if ($user) {
-		$user = urlencode($user[0]) . ':' . urlencode($user[1]);
+		$user = urlencode($user[0]).':'.urlencode($user[1]);
 	}
 
 	$connect = '';
 	if ($http_proxy) {
-		if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme , array('tls','ssl'))) {
-			$path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
-			$connect = 'CONNECT ' . $path_host . " $vers\r\n"
+		if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme, array('tls', 'ssl'))) {
+			$path_host = (!$user ? '' : "$user@").$host.(($port != 80) ? ":$port" : '');
+			$connect = 'CONNECT '.$path_host." $vers\r\n"
 				. "Host: $path_host\r\n"
 				. "Proxy-Connection: Keep-Alive\r\n";
 		} else {
-			$path = (in_array($scheme , array('tls','ssl')) ? 'https://' : "$scheme://")
+			$path = (in_array($scheme, array('tls', 'ssl')) ? 'https://' : "$scheme://")
 				. (!$user ? '' : "$user@")
-				. "$host" . (($port != 80) ? ":$port" : '') . $path;
+				. "$host".(($port != 80) ? ":$port" : '').$path;
 		}
 		$t2 = @parse_url($http_proxy);
 		$first_host = $t2['host'];
@@ -1425,10 +1425,10 @@ 
 			$port = 80;
 		}
 		if ($t2['user']) {
-			$proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
+			$proxy_user = base64_encode($t2['user'].':'.$t2['pass']);
 		}
 	} else {
-		$first_host = $noproxy . $host;
+		$first_host = $noproxy.$host;
 	}
 
 	if ($connect) {
@@ -1453,7 +1453,7 @@ 
 		);
 		spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
 		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+			spip_log("Erreur connexion $errno $errstr", 'distant'._LOG_ERREUR);
 			return $errno;
 		}
 		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
@@ -1465,7 +1465,7 @@ 
 			or !count($res = explode(' ', $res))
 			or $res[1] !== '200'
 		) {
-			spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
+			spip_log("Echec CONNECT sur $first_host:$port", 'connect'._LOG_INFO_IMPORTANTE);
 			fclose($f);
 
 			return false;
@@ -1482,7 +1482,7 @@ 
 		} while (!$f and $ntry-- and $errno !== 110 and sleep(1));
 		spip_log("Recuperer $path sur $first_host:$port par $f");
 		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+			spip_log("Erreur connexion $errno $errstr", 'distant'._LOG_ERREUR);
 
 			return $errno;
 		}
@@ -1492,16 +1492,16 @@ 
 	$site = isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '';
 
 	$host_port = $host;
-	if ($port != (in_array($scheme , array('tls','ssl')) ? 443 : 80)) {
+	if ($port != (in_array($scheme, array('tls', 'ssl')) ? 443 : 80)) {
 		$host_port .= ":$port";
 	}
 	$req = "$method $path $vers\r\n"
 		. "Host: $host_port\r\n"
-		. 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
-		. ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
+		. 'User-Agent: '._INC_DISTANT_USER_AGENT."\r\n"
+		. ($refuse_gz ? '' : ('Accept-Encoding: '._INC_DISTANT_CONTENT_ENCODING."\r\n"))
 		. (!$site ? '' : "Referer: $site/$referer\r\n")
-		. (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
-		. (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
+		. (!$date ? '' : 'If-Modified-Since: '.(gmdate('D, d M Y H:i:s', $date)." GMT\r\n"))
+		. (!$user ? '' : ('Authorization: Basic '.base64_encode($user)."\r\n"))
 		. (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
 		. (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
 

ecrire/inc/utils.php

Indentation +2224 added lines, -2225 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|webp|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|webp|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('phpinfos')) {
-		$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('phpinfos')) {
+        $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,30 +3427,30 @@ 
  * @return array
  */
 function formats_image_acceptables($gd = null, $svg_allowed = true) {
-	$formats = null;
-	if (!is_null($gd)) {
-		$config = ($gd ? "gd_formats" : "formats_graphiques");
-		if (isset($GLOBALS['meta'][$config])) {
-			$formats = $GLOBALS['meta'][$config];
-			$formats = explode(',', $formats);
-			$formats = array_filter($formats);
-			$formats = array_map('trim', $formats);
-		}
-	}
-	if (is_null($formats)) {
-		include_spip('inc/filtres_images_lib_mini');
-		$formats = _image_extensions_acceptees_en_entree();
-	}
-
-	if ($svg_allowed) {
-		if (!in_array('svg', $formats)) {
-			$formats[] = 'svg';
-		}
-	}
-	else {
-		$formats = array_diff($formats, ['svg']);
-	}
-	return $formats;
+    $formats = null;
+    if (!is_null($gd)) {
+        $config = ($gd ? "gd_formats" : "formats_graphiques");
+        if (isset($GLOBALS['meta'][$config])) {
+            $formats = $GLOBALS['meta'][$config];
+            $formats = explode(',', $formats);
+            $formats = array_filter($formats);
+            $formats = array_map('trim', $formats);
+        }
+    }
+    if (is_null($formats)) {
+        include_spip('inc/filtres_images_lib_mini');
+        $formats = _image_extensions_acceptees_en_entree();
+    }
+
+    if ($svg_allowed) {
+        if (!in_array('svg', $formats)) {
+            $formats[] = 'svg';
+        }
+    }
+    else {
+        $formats = array_diff($formats, ['svg']);
+    }
+    return $formats;
 }
 
 /**
@@ -3460,21 +3459,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;
 }
 
 
@@ -3494,7 +3493,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;
 }
 
 
@@ -3516,130 +3515,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;
+        }
+
+    }
 }
 
 /**
@@ -3653,8 +3652,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);
 }

Braces +5 added lines, -6 removed lines

@@ -1429,8 +1429,7 @@ 
 		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 {
+		} else {
 			return $themefiles["$subdir$file"] = "$f?".$m[1]."px";
 		}
 	}
@@ -2374,12 +2373,13 @@ 
 		define('_DIR_CHMOD', $pi);
 	}
 
-	if (!isset($GLOBALS['test_dirs']))
-		// Pas $pi car il est bon de le mettre hors ecriture apres intstall
+	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
 
@@ -3447,8 +3447,7 @@ 
 		if (!in_array('svg', $formats)) {
 			$formats[] = 'svg';
 		}
-	}
-	else {
+	} else {
 		$formats = array_diff($formats, ['svg']);
 	}
 	return $formats;