spip / SPIP

ecrire/inc/distant.php

Doc Comments +7 added lines, -7 removed lines

@@ -64,7 +64,7 @@ 
  *   permet de specifier le nom du fichier local (stockage d'un cache par exemple, et non document IMG)
  * @param int $taille_max
  *   taille maxi de la copie local, par defaut _COPIE_LOCALE_MAX_SIZE
- * @return bool|string
+ * @return string|false
  */
 function copie_locale($source, $mode = 'auto', $local = null, $taille_max = null) {
 
@@ -246,7 +246,7 @@ 
  * La fonction PHP idn_to_ascii depend d'un package php5-intl et est rarement disponible
  *
  * @param string $url_idn
- * @return array|string
+ * @return string|boolean
  */
 function url_to_ascii($url_idn) {
 
@@ -642,13 +642,13 @@ 
  *
  * @param string $url
  *     URL de la page à récupérer
- * @param bool|null|string $trans
+ * @param boolean $trans
  *     - chaîne longue : c'est un nom de fichier (nom pour sa copie locale)
  *     - true : demande d'encodage/charset
  *     - null : ne retourner que les headers
  * @param string $get
  *     Type de requête HTTP à faire (HEAD, GET ou POST)
- * @param int|bool $taille_max
+ * @param integer $taille_max
  *     Arrêter le contenu au-delà (0 = seulement les entetes ==> requête HEAD).
  *     Par defaut taille_max = 1Mo.
  * @param string|array $datas
@@ -774,7 +774,7 @@ 
  *
  * @param resource $handle
  * @param int|bool $if_modified_since
- * @return bool|array
+ * @return string
  *   int status
  *   string headers
  *   int last_modified
@@ -1251,9 +1251,9 @@ 
  *   donnees postees
  * @param string $vers
  *   version HTTP
- * @param int|string $date
+ * @param string $date
  *   timestamp pour entente If-Modified-Since
- * @return bool|resource
+ * @return string
  *   false|int si echec
  *   resource socket vers l'url demandee
  */

Braces +3 added lines, -2 removed lines

@@ -1256,8 +1256,9 @@
 	$http_noproxy = " $http_noproxy ";
 	$domain = $host;
 	// si le domaine exact www.example.org est dans les exceptions
-	if (strpos($http_noproxy, " $domain ") !== false)
-		return '';
+	if (strpos($http_noproxy, " $domain ") !== false) {
+			return '';
+	}
 
 	while (strpos($domain, '.') !== false) {
 		$domain = explode('.', $domain);

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");
 

Indentation +1074 added lines, -1074 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;
 }
 
 /**
@@ -254,86 +254,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);
 }
 
 /**
@@ -347,20 +347,20 @@ 
  */
 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);
-		}
-		// et on urlencode les char utf si besoin dans le path
-		$url_idn = preg_replace_callback('/[^\x20-\x7f]/', function($match) { return urlencode($match[0]); }, $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);
+        }
+        // et on urlencode les char utf si besoin dans le path
+        $url_idn = preg_replace_callback('/[^\x20-\x7f]/', function($match) { return urlencode($match[0]); }, $url_idn);
+    }
+
+    return $url_idn;
 }
 
 /**
@@ -400,176 +400,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;
 }
 
 /**
@@ -585,72 +585,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' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _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' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _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;
 }
 
 /**
@@ -688,52 +688,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'];
 }
 
 
@@ -770,48 +770,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']);
 }
 
 /**
@@ -829,41 +829,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;
 }
 
 /**
@@ -885,34 +885,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;
 }
 
 /**
@@ -934,20 +934,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']);
 }
 
 /**
@@ -969,22 +969,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";
 }
 
 /**
@@ -1002,68 +1002,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);
 }
 
 
@@ -1091,144 +1091,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;
 }
 
 
@@ -1244,45 +1244,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;
 }
 
 
@@ -1305,58 +1305,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);
 }
 
 /**
@@ -1391,124 +1391,124 @@ 
  *   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,
-			)
-		));
-		$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,
+            )
+        ));
+        $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;
 }

ecrire/inc/editer.php

Doc Comments +4 added lines, -4 removed lines

@@ -314,7 +314,7 @@ 
  * utile pour les textes > 32ko
  *
  * @param  string $texte
- * @return array
+ * @return string[]
  */
 function coupe_trop_long($texte) {
 	$aider = charger_fonction('aider', 'inc');
@@ -347,7 +347,7 @@ 
  *
  * @param string $texte
  * @param string $att_text
- * @return array
+ * @return string[]
  */
 function editer_texte_recolle($texte, $att_text) {
 	if ((strlen($texte) < 29 * 1024)
@@ -373,8 +373,8 @@ 
 /**
  * auto-renseigner le titre si il n'existe pas
  *
- * @param $champ_titre
- * @param $champs_contenu
+ * @param string $champ_titre
+ * @param string[] $champs_contenu
  * @param int $longueur
  */
 function titre_automatique($champ_titre, $champs_contenu, $longueur = null) {

Braces +1 added lines, -2 removed lines

@@ -329,8 +329,7 @@
 		if (!autoriser('modifier', $type, intval($id))){
 			$valeurs['editable'] = '';
 		}
-	}
-	else {
+	} else {
 		if (!autoriser('creer', $type, 0, null, ['id_parent' => $id_parent])) {
 			$valeurs['editable'] = '';
 		}

Indentation +486 added lines, -486 removed lines

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

Spacing +37 added lines, -38 removed lines

@@ -100,7 +100,7 @@ 
 		$res['message_ok'] = _T('info_modification_enregistree');
 		if ($retour) {
 			if (strncmp($retour, 'javascript:', 11) == 0) {
-				$res['message_ok'] .= '<script type="text/javascript">/*<![CDATA[*/' . substr($retour, 11) . '/*]]>*/</script>';
+				$res['message_ok'] .= '<script type="text/javascript">/*<![CDATA[*/'.substr($retour, 11).'/*]]>*/</script>';
 				$res['editable'] = true;
 			} else {
 				$res['redirect'] = parametre_url($retour, $id_table_objet, $id);
@@ -140,7 +140,7 @@ 
 				if (!isset($erreurs[$champ])) {
 					$erreurs[$champ] = '';
 				}
-				$erreurs[$champ] .= _T('alerte_modif_info_concourante') . "<br /><textarea readonly='readonly' class='forml'>" . entites_html($conflit['base']) . '</textarea>';
+				$erreurs[$champ] .= _T('alerte_modif_info_concourante')."<br /><textarea readonly='readonly' class='forml'>".entites_html($conflit['base']).'</textarea>';
 			}
 		}
 	}
@@ -215,7 +215,7 @@ 
 	// on accepte pas une fonction de config inconnue si elle vient d'un modele
 	if ($config_fonc
 	  and !in_array($config_fonc, ['articles_edit_config', 'rubriques_edit_config', 'auteurs_edit_config'])
-	  and $config_fonc !== $table_objet . '_edit_config') {
+	  and $config_fonc !== $table_objet.'_edit_config') {
 		if ($args = test_formulaire_inclus_par_modele()
 		  and in_array($config_fonc, $args)) {
 			$config_fonc = '';
@@ -227,12 +227,12 @@ 
 	// Appel direct dans un squelette
 	if (!$row) {
 		if (!$new or $lier_trad) {
-			if ($select = charger_fonction('precharger_' . $type, 'inc', true)) {
+			if ($select = charger_fonction('precharger_'.$type, 'inc', true)) {
 				$row = $select($id, $id_parent, $lier_trad);
 				// si on a une fonction precharger, elle pu faire un reglage de langue
 				$lang_default = (!empty($row['lang']) ? $row['lang'] : null);
 			} else {
-				$row = sql_fetsel('*', $table_objet_sql, $id_table_objet . '=' . intval($id));
+				$row = sql_fetsel('*', $table_objet_sql, $id_table_objet.'='.intval($id));
 			}
 			if (!$new) {
 				$md5 = controles_md5($row);
@@ -281,7 +281,7 @@ 
 	if ($config_fonc) {
 		$contexte['config'] = $config = $config_fonc($contexte);
 		if (!$lang_default) {
-			$lang_default = $config['langue'] ?? session_get('lang') ;
+			$lang_default = $config['langue'] ?? session_get('lang');
 		}
 	}
 	$config = $config + array(
@@ -305,13 +305,12 @@ 
 		unset($contexte['lang']);
 	}
 
-	$contexte['_hidden'] = "<input type='hidden' name='editer_$type' value='oui' />\n" .
-		(!$lier_trad ? '' :
-			("\n<input type='hidden' name='lier_trad' value='" .
-				$lier_trad .
-				"' />" .
-				"\n<input type='hidden' name='changer_lang' value='" .
-				$lang_default .
+	$contexte['_hidden'] = "<input type='hidden' name='editer_$type' value='oui' />\n".
+		(!$lier_trad ? '' : ("\n<input type='hidden' name='lier_trad' value='".
+				$lier_trad.
+				"' />".
+				"\n<input type='hidden' name='changer_lang' value='".
+				$lang_default.
 				"' />"))
 		. $hidden
 		. (isset($md5) ? $md5 : '');
@@ -325,8 +324,8 @@ 
 	$contexte['_action'] = array("editer_$type", $id);
 
 	// et in fine placer l'autorisation
-	if (intval($id)){
-		if (!autoriser('modifier', $type, intval($id))){
+	if (intval($id)) {
+		if (!autoriser('modifier', $type, intval($id))) {
 			$valeurs['editable'] = '';
 		}
 	}
@@ -350,14 +349,14 @@ 
 	$aider = charger_fonction('aider', 'inc');
 	if (strlen($texte) > 28 * 1024) {
 		$texte = str_replace("\r\n", "\n", $texte);
-		$pos = strpos($texte, "\n\n", 28 * 1024);  // coupe para > 28 ko
+		$pos = strpos($texte, "\n\n", 28 * 1024); // coupe para > 28 ko
 		if ($pos > 0 and $pos < 32 * 1024) {
-			$debut = substr($texte, 0, $pos) . "\n\n<!--SPIP-->\n";
+			$debut = substr($texte, 0, $pos)."\n\n<!--SPIP-->\n";
 			$suite = substr($texte, $pos + 2);
 		} else {
-			$pos = strpos($texte, ' ', 28 * 1024);  // sinon coupe espace
+			$pos = strpos($texte, ' ', 28 * 1024); // sinon coupe espace
 			if (!($pos > 0 and $pos < 32 * 1024)) {
-				$pos = 28 * 1024;  // au pire (pas d'espace trouv'e)
+				$pos = 28 * 1024; // au pire (pas d'espace trouv'e)
 				$decalage = 0; // si y'a pas d'espace, il ne faut pas perdre le caract`ere
 			} else {
 				$decalage = 1;
@@ -387,13 +386,13 @@ 
 	}
 
 	include_spip('inc/barre');
-	$textes_supplement = "<br /><span style='color: red'>" . _T('info_texte_long') . "</span>\n";
+	$textes_supplement = "<br /><span style='color: red'>"._T('info_texte_long')."</span>\n";
 	$nombre = 0;
 
 	while (strlen($texte) > 29 * 1024) {
 		$nombre++;
 		list($texte1, $texte) = coupe_trop_long($texte);
-		$textes_supplement .= '<br />' .
+		$textes_supplement .= '<br />'.
 			"<textarea id='texte$nombre' name='texte_plus[$nombre]'$att_text>$texte1</textarea>\n";
 	}
 
@@ -481,7 +480,7 @@ 
 	$ctr = array();
 	foreach ($data as $key => $val) {
 		$m = md5($val);
-		$k = $prefixe . $key;
+		$k = $prefixe.$key;
 
 		switch ($format) {
 			case 'html':
@@ -494,7 +493,7 @@ 
 	}
 
 	if ($format == 'html') {
-		return "\n\n<!-- controles md5 -->\n" . join("\n", $ctr) . "\n\n";
+		return "\n\n<!-- controles md5 -->\n".join("\n", $ctr)."\n\n";
 	} else {
 		return $ctr;
 	}
@@ -645,7 +644,7 @@ 
 	// On elimine les donnees non modifiees par le formulaire (mais
 	// potentiellement modifiees entre temps par un autre utilisateur)
 	foreach ($champs as $key => $val) {
-		if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
+		if (isset($ctr[$prefix.$key]) and $m = $ctr[$prefix.$key]) {
 			if (is_scalar($val) and $m == md5($val)) {
 				unset($champs[$key]);
 			}
@@ -674,7 +673,7 @@ 
 	// de conflit.
 	$ctrh = $ctrq = $conflits = array();
 	foreach (array_keys($champs) as $key) {
-		if (isset($ctr[$prefix . $key]) and $m = $ctr[$prefix . $key]) {
+		if (isset($ctr[$prefix.$key]) and $m = $ctr[$prefix.$key]) {
 			$ctrh[$key] = $m;
 			$ctrq[] = $key;
 		}
@@ -707,9 +706,9 @@ 
  */
 function display_conflit_champ($x) {
 	if (strstr($x, "\n") or strlen($x) > 80) {
-		return "<textarea style='width:99%; height:10em;'>" . entites_html($x) . "</textarea>\n";
+		return "<textarea style='width:99%; height:10em;'>".entites_html($x)."</textarea>\n";
 	} else {
-		return "<input type='text' size='40' style='width:99%' value=\"" . entites_html($x) . "\" />\n";
+		return "<input type='text' size='40' style='width:99%' value=\"".entites_html($x)."\" />\n";
 	}
 }
 
@@ -749,11 +748,11 @@ 
 		) : $champ;
 
 		$diffs[] = "<h2>$titre</h2>\n"
-			. '<h3>' . _T('info_conflit_edition_differences') . "</h3>\n"
-			. "<div style='max-height:8em; overflow: auto; width:99%;'>" . $d . "</div>\n"
-			. '<h4>' . _T('info_conflit_edition_votre_version') . '</h4>'
+			. '<h3>'._T('info_conflit_edition_differences')."</h3>\n"
+			. "<div style='max-height:8em; overflow: auto; width:99%;'>".$d."</div>\n"
+			. '<h4>'._T('info_conflit_edition_votre_version').'</h4>'
 			. display_conflit_champ($a['post'])
-			. '<h4>' . _T('info_conflit_edition_version_enregistree') . '</h4>'
+			. '<h4>'._T('info_conflit_edition_version_enregistree').'</h4>'
 			. display_conflit_champ($base);
 	}
 
@@ -761,16 +760,16 @@ 
 		$id = uniqid(rand());
 		$redirect = "<form action='$redirect' method='get'
 			id='$id'
-			style='float:" . $GLOBALS['spip_lang_right'] . "; margin-top:2em;'>\n"
+			style='float:".$GLOBALS['spip_lang_right']."; margin-top:2em;'>\n"
 			. form_hidden($redirect)
-			. "<input type='submit' value='" . _T('icone_retour') . "' />
+			. "<input type='submit' value='"._T('icone_retour')."' />
 		</form>\n";
 
 		// pour les documents, on est probablement en ajax : il faut ajaxer
 		if (_AJAX) {
 			$redirect .= '<script type="text/javascript">'
-				. 'setTimeout(function(){$("#' . $id . '")
-			.ajaxForm({target:$("#' . $id . '").parent()});
+				. 'setTimeout(function(){$("#'.$id.'")
+			.ajaxForm({target:$("#' . $id.'").parent()});
 			}, 200);'
 				. "</script>\n";
 		}
@@ -789,9 +788,9 @@ 
 .diff-para-deplace .diff-supprime { background: #ffb8b8; border: 1px solid #808080; }
 .diff-para-deplace .diff-deplace { background: #b8b8ff; border: 1px solid #808080; }
 </style>'
-		. '<p>' . _T('info_conflit_edition_avis_non_sauvegarde') . '</p>'
-		. '<p>' . _T('texte_conflit_edition_correction') . '</p>'
-		. "<div style='text-align:" . $GLOBALS['spip_lang_left'] . ";'>"
+		. '<p>'._T('info_conflit_edition_avis_non_sauvegarde').'</p>'
+		. '<p>'._T('texte_conflit_edition_correction').'</p>'
+		. "<div style='text-align:".$GLOBALS['spip_lang_left'].";'>"
 		. join("\n", $diffs)
 		. "</div>\n"
 

ecrire/inc/envoyer_mail.php

Doc Comments +1 added lines, -1 removed lines

@@ -187,7 +187,7 @@
  * @param string $to
  * @param string $texte
  * @param string $parts
- * @return array
+ * @return string[]
  */
 function mail_normaliser_headers($headers, $from, $to, $texte, $parts = '') {
 	$charset = $GLOBALS['meta']['charset'];

Indentation +150 added lines, -150 removed lines

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

Spacing +8 added lines, -8 removed lines

@@ -134,7 +134,7 @@ 
 
 	// ceci est la RegExp NO_REAL_NAME faisant hurler SpamAssassin
 	if (preg_match('/^["\s]*\<?\S+\@\S+\>?\s*$/', $from)) {
-		$from .= ' (' . str_replace(')', '', translitteration(str_replace('@', ' at ', $from))) . ')';
+		$from .= ' ('.str_replace(')', '', translitteration(str_replace('@', ' at ', $from))).')';
 	}
 
 	// nettoyer les &eacute; &#8217, &emdash; etc...
@@ -171,7 +171,7 @@ 
 		if (!_TEST_EMAIL_DEST) {
 			return false;
 		} else {
-			$texte = "Dest : $destinataire\r\n" . $texte;
+			$texte = "Dest : $destinataire\r\n".$texte;
 			$destinataire = _TEST_EMAIL_DEST;
 		}
 	}
@@ -195,7 +195,7 @@ 
 	// Ajouter le Content-Type et consort s'il n'y est pas deja
 	if (strpos($headers, 'Content-Type: ') === false) {
 		$type =
-			"Content-Type: text/plain;charset=\"$charset\";\n" .
+			"Content-Type: text/plain;charset=\"$charset\";\n".
 			"Content-Transfer-Encoding: 8bit\n";
 	} else {
 		$type = '';
@@ -209,15 +209,15 @@ 
 	else {
 		$domain = "@unknown-".md5($from).'.org';
 	}
-	$uniq = rand() . '_' . md5($to . $texte) . $domain;
+	$uniq = rand().'_'.md5($to.$texte).$domain;
 
 	// Si multi-part, s'en servir comme borne ...
 	if ($parts) {
-		$texte = "--$uniq\n$type\n" . $texte . "\n";
+		$texte = "--$uniq\n$type\n".$texte."\n";
 		foreach ($parts as $part) {
-			$n = strlen($part[1]) . ($part[0] ? "\n" : '');
+			$n = strlen($part[1]).($part[0] ? "\n" : '');
 			$e = join("\n", $part[0]);
-			$texte .= "\n--$uniq\nContent-Length: $n$e\n\n" . $part[1];
+			$texte .= "\n--$uniq\nContent-Length: $n$e\n\n".$part[1];
 		}
 		$texte .= "\n\n--$uniq--\n";
 		// Si boundary n'est pas entre guillemets,
@@ -227,7 +227,7 @@ 
 
 	// .. et s'en servir pour plaire a SpamAssassin
 
-	$mid = 'Message-Id: <' . $uniq . '>';
+	$mid = 'Message-Id: <'.$uniq.'>';
 
 	// indispensable pour les sites qui collent d'office From: serveur-http
 	// sauf si deja mis par l'envoyeur

Braces +1 added lines, -2 removed lines

@@ -205,8 +205,7 @@
 	// Marie Toto <Marie@toto.com> => @toto.com
 	if (preg_match('/@[^\s>]+/', $from, $domain)) {
 		$domain = $domain[0];
-	}
-	else {
+	} else {
 		$domain = "@unknown-".md5($from).'.org';
 	}
 	$uniq = rand() . '_' . md5($to . $texte) . $domain;

ecrire/inc/plugin.php

Doc Comments +2 added lines, -2 removed lines

@@ -623,11 +623,11 @@
  * 
  * @param $liste
  *    Liste de description des plugins
- * @param $nom
+ * @param string $nom
  *    Le plugin donc on cherche la presence
  * @param $intervalle
  *    L'éventuelle intervalle de compatibilité de la dépendance. ex: [1.1.0;]
- * @param $balise
+ * @param string $balise
  *    Permet de définir si on teste un utilise ou un nécessite
  * @return string.
  *    Vide si ok,

Braces +7 added lines, -9 removed lines

@@ -555,11 +555,9 @@ 
 		if (!isset($msg[$p])) {
 			if (isset($resume['erreur']) and $resume['erreur']) {
 				$msg[$p] = array($resume['erreur']);
-			}
-			elseif (!plugin_version_compatible($k['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
+			} elseif (!plugin_version_compatible($k['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
 				$msg[$p] = array(plugin_message_incompatibilite($k['compatibilite'], $GLOBALS['spip_version_branche'], 'SPIP', 'necessite'));
-			}
-			elseif (!$msg[$p] = plugin_necessite($k['necessite'], $liste, 'necessite')) {
+			} elseif (!$msg[$p] = plugin_necessite($k['necessite'], $liste, 'necessite')) {
 				$msg[$p] = plugin_necessite($k['utilise'], $liste, 'utilise');
 			}
 		} else {
@@ -942,8 +940,7 @@ 
 					if (is_dir(constant($dir_type) . $plug . '/squelettes/')) {
 						$chemins['public'][] = "_DIR_PLUGIN_{$prefix}.'squelettes/'";
 					}
-				}
-				else{
+				} else{
 					foreach ($info['chemin'] as $chemin) {
 						if (!isset($chemin['version']) or plugin_version_compatible($chemin['version'],
 								$GLOBALS['spip_version_branche'], 'spip')
@@ -1166,10 +1163,12 @@ 
 					}
 					$nom = $nomlower;
 					// une action vide est une declaration qui ne doit pas etre compilee !
-					if (!isset($GLOBALS['spip_pipeline'][$nom])) // creer le pipeline eventuel
+					if (!isset($GLOBALS['spip_pipeline'][$nom])) {
+					    // creer le pipeline eventuel
 					{
 						$GLOBALS['spip_pipeline'][$nom] = "";
 					}
+					}
 					if ($action) {
 						if (strpos($GLOBALS['spip_pipeline'][$nom], "|$prefix$action") === false) {
 							$GLOBALS['spip_pipeline'][$nom] = preg_replace(",(\|\||$),", "|$prefix$action\\1",
@@ -1430,8 +1429,7 @@ 
 	if (file_exists($nom)) {
 		if (substr($nom, -4) == '.php') {
 			$fichier_tmp = substr($nom, 0, -4) . '.tmp.php';
-		}
-		else {
+		} else {
 			$fichier_tmp = $nom . '.tmp';
 		}
 		file_put_contents($fichier_tmp, $contenu);

Indentation +946 added lines, -946 removed lines

@@ -17,12 +17,12 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** l'adresse du repertoire de telechargement et de decompactage des plugins */
 if (!defined('_DIR_PLUGINS_AUTO')) {
-	define('_DIR_PLUGINS_AUTO', _DIR_PLUGINS . 'auto/');
+    define('_DIR_PLUGINS_AUTO', _DIR_PLUGINS . 'auto/');
 }
 
 #include_spip('inc/texte'); // ????? Appelle public/parametrer trop tot avant la reconstruction du chemin des plugins.
@@ -47,26 +47,26 @@ 
  * @return array
 **/
 function liste_plugin_files($dir_plugins = null) {
-	static $plugin_files = array();
-	if (is_null($dir_plugins)) {
-		$dir_plugins = _DIR_PLUGINS;
-	}
-	if (!isset($plugin_files[$dir_plugins])
-		or count($plugin_files[$dir_plugins]) == 0
-	) {
-		$plugin_files[$dir_plugins] = array();
-		foreach (fast_find_plugin_dirs($dir_plugins) as $plugin) {
-			$plugin_files[$dir_plugins][] = substr($plugin, strlen($dir_plugins));
-		}
-
-		sort($plugin_files[$dir_plugins]);
-		// et on lit le XML de tous les plugins pour le mettre en cache
-		// et en profiter pour nettoyer ceux qui n'existent plus du cache
-		$get_infos = charger_fonction('get_infos', 'plugins');
-		$get_infos($plugin_files[$dir_plugins], false, $dir_plugins, true);
-	}
-
-	return $plugin_files[$dir_plugins];
+    static $plugin_files = array();
+    if (is_null($dir_plugins)) {
+        $dir_plugins = _DIR_PLUGINS;
+    }
+    if (!isset($plugin_files[$dir_plugins])
+        or count($plugin_files[$dir_plugins]) == 0
+    ) {
+        $plugin_files[$dir_plugins] = array();
+        foreach (fast_find_plugin_dirs($dir_plugins) as $plugin) {
+            $plugin_files[$dir_plugins][] = substr($plugin, strlen($dir_plugins));
+        }
+
+        sort($plugin_files[$dir_plugins]);
+        // et on lit le XML de tous les plugins pour le mettre en cache
+        // et en profiter pour nettoyer ceux qui n'existent plus du cache
+        $get_infos = charger_fonction('get_infos', 'plugins');
+        $get_infos($plugin_files[$dir_plugins], false, $dir_plugins, true);
+    }
+
+    return $plugin_files[$dir_plugins];
 }
 
 /**
@@ -82,44 +82,44 @@ 
  *     Liste complète des répeertoires
 **/
 function fast_find_plugin_dirs($dir, $max_prof = 100) {
-	$fichiers = array();
-	// revenir au repertoire racine si on a recu dossier/truc
-	// pour regarder dossier/truc/ ne pas oublier le / final
-	$dir = preg_replace(',/[^/]*$,', '', $dir);
-	if ($dir == '') {
-		$dir = '.';
-	}
-
-	if (!is_dir($dir)) {
-		return $fichiers;
-	}
-	if (is_plugin_dir($dir, '')) {
-		$fichiers[] = $dir;
-
-		return $fichiers;
-	}
-	if ($max_prof <= 0) {
-		return $fichiers;
-	}
-
-	$subdirs = array();
-	if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
-		while (($f = readdir($d)) !== false) {
-			if ($f[0] != '.' # ignorer . .. .svn etc
-				and $f != 'CVS'
-				and is_dir($f = "$dir/$f")
-			) {
-				$subdirs[] = $f;
-			}
-		}
-		closedir($d);
-	}
-
-	foreach ($subdirs as $d) {
-		$fichiers = array_merge($fichiers, fast_find_plugin_dirs("$d/", $max_prof - 1));
-	}
-
-	return $fichiers;
+    $fichiers = array();
+    // revenir au repertoire racine si on a recu dossier/truc
+    // pour regarder dossier/truc/ ne pas oublier le / final
+    $dir = preg_replace(',/[^/]*$,', '', $dir);
+    if ($dir == '') {
+        $dir = '.';
+    }
+
+    if (!is_dir($dir)) {
+        return $fichiers;
+    }
+    if (is_plugin_dir($dir, '')) {
+        $fichiers[] = $dir;
+
+        return $fichiers;
+    }
+    if ($max_prof <= 0) {
+        return $fichiers;
+    }
+
+    $subdirs = array();
+    if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
+        while (($f = readdir($d)) !== false) {
+            if ($f[0] != '.' # ignorer . .. .svn etc
+                and $f != 'CVS'
+                and is_dir($f = "$dir/$f")
+            ) {
+                $subdirs[] = $f;
+            }
+        }
+        closedir($d);
+    }
+
+    foreach ($subdirs as $d) {
+        $fichiers = array_merge($fichiers, fast_find_plugin_dirs("$d/", $max_prof - 1));
+    }
+
+    return $fichiers;
 }
 
 /**
@@ -140,27 +140,27 @@ 
 **/
 function is_plugin_dir($dir, $dir_plugins = null) {
 
-	if (is_array($dir)) {
-		foreach ($dir as $k => $d) {
-			if (!is_plugin_dir($d, $dir_plugins)) {
-				unset($dir[$k]);
-			}
-		}
-
-		return $dir;
-	}
-	if (is_null($dir_plugins)) {
-		$dir_plugins = _DIR_PLUGINS;
-	}
-	$search = array("$dir_plugins$dir/paquet.xml");
-
-	foreach ($search as $s) {
-		if (file_exists($s)) {
-			return $dir;
-		}
-	}
-
-	return '';
+    if (is_array($dir)) {
+        foreach ($dir as $k => $d) {
+            if (!is_plugin_dir($d, $dir_plugins)) {
+                unset($dir[$k]);
+            }
+        }
+
+        return $dir;
+    }
+    if (is_null($dir_plugins)) {
+        $dir_plugins = _DIR_PLUGINS;
+    }
+    $search = array("$dir_plugins$dir/paquet.xml");
+
+    foreach ($search as $s) {
+        if (file_exists($s)) {
+            return $dir;
+        }
+    }
+
+    return '';
 }
 
 /** Regexp d'extraction des informations d'un intervalle de compatibilité */
@@ -187,51 +187,51 @@ 
  **/
 function plugin_version_compatible($intervalle, $version, $avec_quoi = '') {
 
-	if (!strlen($intervalle)) {
-		return true;
-	}
-	if (!preg_match(_EXTRAIRE_INTERVALLE, $intervalle, $regs)) {
-		return false;
-	}
-	// Extraction des bornes et traitement de * pour la borne sup :
-	// -- on autorise uniquement les ecritures 3.0.*, 3.*
-	$minimum = $regs[1];
-	$maximum = $regs[2];
-
-	//  si une version SPIP de compatibilité a été définie (dans
-	//  mes_options.php, sous la forme : define('_DEV_VERSION_SPIP_COMPAT', '3.1.0');
-	//  on l'utilise (phase de dev, de test...) mais *que* en cas de comparaison
-	//  avec la version de SPIP (ne nuit donc pas aux tests de necessite
-	//  entre plugins)
-	if (defined('_DEV_VERSION_SPIP_COMPAT') and $avec_quoi == 'spip' and $version !== _DEV_VERSION_SPIP_COMPAT) {
-		if (plugin_version_compatible($intervalle, _DEV_VERSION_SPIP_COMPAT, $avec_quoi)) {
-			return true;
-		}
-		// si pas de compatibilite avec _DEV_VERSION_SPIP_COMPAT, on essaye quand meme avec la vrai version
-		// cas du plugin qui n'est compatible qu'avec cette nouvelle version
-	}
-
-	$minimum_inc = $intervalle[0] == "[";
-	$maximum_inc = substr($intervalle, -1) == "]";
-
-	if (strlen($minimum)) {
-		if ($minimum_inc and spip_version_compare($version, $minimum, '<')) {
-			return false;
-		}
-		if (!$minimum_inc and spip_version_compare($version, $minimum, '<=')) {
-			return false;
-		}
-	}
-	if (strlen($maximum)) {
-		if ($maximum_inc and spip_version_compare($version, $maximum, '>')) {
-			return false;
-		}
-		if (!$maximum_inc and spip_version_compare($version, $maximum, '>=')) {
-			return false;
-		}
-	}
-
-	return true;
+    if (!strlen($intervalle)) {
+        return true;
+    }
+    if (!preg_match(_EXTRAIRE_INTERVALLE, $intervalle, $regs)) {
+        return false;
+    }
+    // Extraction des bornes et traitement de * pour la borne sup :
+    // -- on autorise uniquement les ecritures 3.0.*, 3.*
+    $minimum = $regs[1];
+    $maximum = $regs[2];
+
+    //  si une version SPIP de compatibilité a été définie (dans
+    //  mes_options.php, sous la forme : define('_DEV_VERSION_SPIP_COMPAT', '3.1.0');
+    //  on l'utilise (phase de dev, de test...) mais *que* en cas de comparaison
+    //  avec la version de SPIP (ne nuit donc pas aux tests de necessite
+    //  entre plugins)
+    if (defined('_DEV_VERSION_SPIP_COMPAT') and $avec_quoi == 'spip' and $version !== _DEV_VERSION_SPIP_COMPAT) {
+        if (plugin_version_compatible($intervalle, _DEV_VERSION_SPIP_COMPAT, $avec_quoi)) {
+            return true;
+        }
+        // si pas de compatibilite avec _DEV_VERSION_SPIP_COMPAT, on essaye quand meme avec la vrai version
+        // cas du plugin qui n'est compatible qu'avec cette nouvelle version
+    }
+
+    $minimum_inc = $intervalle[0] == "[";
+    $maximum_inc = substr($intervalle, -1) == "]";
+
+    if (strlen($minimum)) {
+        if ($minimum_inc and spip_version_compare($version, $minimum, '<')) {
+            return false;
+        }
+        if (!$minimum_inc and spip_version_compare($version, $minimum, '<=')) {
+            return false;
+        }
+    }
+    if (strlen($maximum)) {
+        if ($maximum_inc and spip_version_compare($version, $maximum, '>')) {
+            return false;
+        }
+        if (!$maximum_inc and spip_version_compare($version, $maximum, '>=')) {
+            return false;
+        }
+    }
+
+    return true;
 }
 
 /**
@@ -248,62 +248,62 @@ 
  * @return array
  */
 function liste_plugin_valides($liste_plug, $force = false) {
-	$liste_ext = liste_plugin_files(_DIR_PLUGINS_DIST);
-	$get_infos = charger_fonction('get_infos', 'plugins');
-	$infos = array(
-		// lister les extensions qui sont automatiquement actives
-		'_DIR_PLUGINS_DIST' => $get_infos($liste_ext, $force, _DIR_PLUGINS_DIST),
-		'_DIR_PLUGINS' => $get_infos($liste_plug, $force, _DIR_PLUGINS)
-	);
-
-	// creer une premiere liste non ordonnee mais qui ne retient
-	// que les plugins valides, et dans leur derniere version en cas de doublon
-	$infos['_DIR_RESTREINT'][''] = $get_infos('./', $force, _DIR_RESTREINT);
-	$infos['_DIR_RESTREINT']['SPIP']['version'] = $GLOBALS['spip_version_branche'];
-	$infos['_DIR_RESTREINT']['SPIP']['chemin'] = array();
-	$liste_non_classee = array(
-		'SPIP' => array(
-			'nom' => 'SPIP',
-			'etat' => 'stable',
-			'version' => $GLOBALS['spip_version_branche'],
-			'dir_type' => '_DIR_RESTREINT',
-			'dir' => '',
-		)
-	);
-
-	$invalides = array();
-	foreach ($liste_ext as $plug) {
-		if (isset($infos['_DIR_PLUGINS_DIST'][$plug])) {
-			plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS_DIST');
-		}
-	}
-	foreach ($liste_plug as $plug) {
-		if (isset($infos['_DIR_PLUGINS'][$plug])) {
-			$r = plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS');
-			if (is_array($r)) {
-				$invalides = array_merge($invalides, $r);
-			}
-		}
-	}
-
-	if (defined('_DIR_PLUGINS_SUPPL') and _DIR_PLUGINS_SUPPL) {
-		$infos['_DIR_PLUGINS_SUPPL'] = $get_infos($liste_plug, false, _DIR_PLUGINS_SUPPL);
-		foreach ($liste_plug as $plug) {
-			if (isset($infos['_DIR_PLUGINS_SUPPL'][$plug])) {
-				$r = plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS_SUPPL');
-				if (is_array($r)) {
-					$invalides = array_merge($invalides, $r);
-				}
-			}
-		}
-	}
-
-	plugin_fixer_procure($liste_non_classee, $infos);
-
-	// les plugins qui sont dans $liste_non_classee ne sont pas invalides (on a trouve un autre version valide)
-	$invalides = array_diff_key($invalides, $liste_non_classee);
-
-	return array($infos, $liste_non_classee, $invalides);
+    $liste_ext = liste_plugin_files(_DIR_PLUGINS_DIST);
+    $get_infos = charger_fonction('get_infos', 'plugins');
+    $infos = array(
+        // lister les extensions qui sont automatiquement actives
+        '_DIR_PLUGINS_DIST' => $get_infos($liste_ext, $force, _DIR_PLUGINS_DIST),
+        '_DIR_PLUGINS' => $get_infos($liste_plug, $force, _DIR_PLUGINS)
+    );
+
+    // creer une premiere liste non ordonnee mais qui ne retient
+    // que les plugins valides, et dans leur derniere version en cas de doublon
+    $infos['_DIR_RESTREINT'][''] = $get_infos('./', $force, _DIR_RESTREINT);
+    $infos['_DIR_RESTREINT']['SPIP']['version'] = $GLOBALS['spip_version_branche'];
+    $infos['_DIR_RESTREINT']['SPIP']['chemin'] = array();
+    $liste_non_classee = array(
+        'SPIP' => array(
+            'nom' => 'SPIP',
+            'etat' => 'stable',
+            'version' => $GLOBALS['spip_version_branche'],
+            'dir_type' => '_DIR_RESTREINT',
+            'dir' => '',
+        )
+    );
+
+    $invalides = array();
+    foreach ($liste_ext as $plug) {
+        if (isset($infos['_DIR_PLUGINS_DIST'][$plug])) {
+            plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS_DIST');
+        }
+    }
+    foreach ($liste_plug as $plug) {
+        if (isset($infos['_DIR_PLUGINS'][$plug])) {
+            $r = plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS');
+            if (is_array($r)) {
+                $invalides = array_merge($invalides, $r);
+            }
+        }
+    }
+
+    if (defined('_DIR_PLUGINS_SUPPL') and _DIR_PLUGINS_SUPPL) {
+        $infos['_DIR_PLUGINS_SUPPL'] = $get_infos($liste_plug, false, _DIR_PLUGINS_SUPPL);
+        foreach ($liste_plug as $plug) {
+            if (isset($infos['_DIR_PLUGINS_SUPPL'][$plug])) {
+                $r = plugin_valide_resume($liste_non_classee, $plug, $infos, '_DIR_PLUGINS_SUPPL');
+                if (is_array($r)) {
+                    $invalides = array_merge($invalides, $r);
+                }
+            }
+        }
+    }
+
+    plugin_fixer_procure($liste_non_classee, $infos);
+
+    // les plugins qui sont dans $liste_non_classee ne sont pas invalides (on a trouve un autre version valide)
+    $invalides = array_diff_key($invalides, $liste_non_classee);
+
+    return array($infos, $liste_non_classee, $invalides);
 }
 
 /**
@@ -323,29 +323,29 @@ 
  *   array description short si on ne le retient pas (pour memorisation dans une table des erreurs)
  */
 function plugin_valide_resume(&$liste, $plug, $infos, $dir_type) {
-	$i = $infos[$dir_type][$plug];
-	$p = strtoupper($i['prefix']);
-	$short_desc = array(
-		'nom' => $i['nom'],
-		'etat' => $i['etat'],
-		'version' => $i['version'],
-		'dir' => $plug,
-		'dir_type' => $dir_type
-	);
-	if (isset($i['erreur']) and $i['erreur']) {
-		$short_desc['erreur'] = $i['erreur'];
-		return array($p=>$short_desc);
-	}
-	if (!plugin_version_compatible($i['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
-		return array($p=>$short_desc);
-	}
-	if (!isset($liste[$p])
-		or spip_version_compare($i['version'], $liste[$p]['version'], '>')
-	) {
-		$liste[$p] = $short_desc;
-	}
-	// ok le plugin etait deja dans la liste ou on a choisi une version plus recente
-	return $p;
+    $i = $infos[$dir_type][$plug];
+    $p = strtoupper($i['prefix']);
+    $short_desc = array(
+        'nom' => $i['nom'],
+        'etat' => $i['etat'],
+        'version' => $i['version'],
+        'dir' => $plug,
+        'dir_type' => $dir_type
+    );
+    if (isset($i['erreur']) and $i['erreur']) {
+        $short_desc['erreur'] = $i['erreur'];
+        return array($p=>$short_desc);
+    }
+    if (!plugin_version_compatible($i['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
+        return array($p=>$short_desc);
+    }
+    if (!isset($liste[$p])
+        or spip_version_compare($i['version'], $liste[$p]['version'], '>')
+    ) {
+        $liste[$p] = $short_desc;
+    }
+    // ok le plugin etait deja dans la liste ou on a choisi une version plus recente
+    return $p;
 }
 
 /**
@@ -361,46 +361,46 @@ 
  * @param array $infos
  */
 function plugin_fixer_procure(&$liste, &$infos) {
-	foreach ($liste as $p => $resume) {
-		$i = $infos[$resume['dir_type']][$resume['dir']];
-		if (isset($i['procure']) and $i['procure']) {
-			foreach ($i['procure'] as $procure) {
-				$p = strtoupper($procure['nom']);
-				$dir = $resume['dir'];
-				if ($dir) {
-					$dir .= "/";
-				}
-				$dir .= "procure:" . $procure['nom'];
-
-				$procure['etat'] = '?';
-				$procure['dir_type'] = $resume['dir_type'];
-				$procure['dir'] = $dir;
-
-				// si ce plugin n'est pas deja procure, ou dans une version plus ancienne
-				// on ajoute cette version a la liste
-				if (!isset($liste[$p])
-					or spip_version_compare($procure['version'], $liste[$p]['version'], '>')
-				) {
-					$liste[$p] = $procure;
-
-					// on fournit une information minimale pour ne pas perturber la compilation
-					$infos[$resume['dir_type']][$dir] = array(
-						'prefix' => $procure['nom'],
-						'nom' => $procure['nom'],
-						'etat' => $procure['etat'],
-						'version' => $procure['version'],
-						'chemin' => array(),
-						'necessite' => array(),
-						'utilise' => array(),
-						'lib' => array(),
-						'menu' => array(),
-						'onglet' => array(),
-						'procure' => array(),
-					);
-				}
-			}
-		}
-	}
+    foreach ($liste as $p => $resume) {
+        $i = $infos[$resume['dir_type']][$resume['dir']];
+        if (isset($i['procure']) and $i['procure']) {
+            foreach ($i['procure'] as $procure) {
+                $p = strtoupper($procure['nom']);
+                $dir = $resume['dir'];
+                if ($dir) {
+                    $dir .= "/";
+                }
+                $dir .= "procure:" . $procure['nom'];
+
+                $procure['etat'] = '?';
+                $procure['dir_type'] = $resume['dir_type'];
+                $procure['dir'] = $dir;
+
+                // si ce plugin n'est pas deja procure, ou dans une version plus ancienne
+                // on ajoute cette version a la liste
+                if (!isset($liste[$p])
+                    or spip_version_compare($procure['version'], $liste[$p]['version'], '>')
+                ) {
+                    $liste[$p] = $procure;
+
+                    // on fournit une information minimale pour ne pas perturber la compilation
+                    $infos[$resume['dir_type']][$dir] = array(
+                        'prefix' => $procure['nom'],
+                        'nom' => $procure['nom'],
+                        'etat' => $procure['etat'],
+                        'version' => $procure['version'],
+                        'chemin' => array(),
+                        'necessite' => array(),
+                        'utilise' => array(),
+                        'lib' => array(),
+                        'menu' => array(),
+                        'onglet' => array(),
+                        'procure' => array(),
+                    );
+                }
+            }
+        }
+    }
 }
 
 /**
@@ -414,19 +414,19 @@ 
  * @return array
  */
 function liste_chemin_plugin($liste, $dir_plugins = _DIR_PLUGINS) {
-	foreach ($liste as $prefix => $infos) {
-		if (!$dir_plugins
-			or (
-				defined($infos['dir_type'])
-				and constant($infos['dir_type']) == $dir_plugins)
-		) {
-			$liste[$prefix] = $infos['dir'];
-		} else {
-			unset($liste[$prefix]);
-		}
-	}
-
-	return $liste;
+    foreach ($liste as $prefix => $infos) {
+        if (!$dir_plugins
+            or (
+                defined($infos['dir_type'])
+                and constant($infos['dir_type']) == $dir_plugins)
+        ) {
+            $liste[$prefix] = $infos['dir'];
+        } else {
+            unset($liste[$prefix]);
+        }
+    }
+
+    return $liste;
 }
 
 /**
@@ -441,9 +441,9 @@ 
  * @return array
  */
 function liste_chemin_plugin_actifs($dir_plugins = _DIR_PLUGINS) {
-	include_spip('plugins/installer');
+    include_spip('plugins/installer');
 
-	return liste_chemin_plugin(liste_plugin_actifs(), $dir_plugins);
+    return liste_chemin_plugin(liste_plugin_actifs(), $dir_plugins);
 }
 
 /**
@@ -474,53 +474,53 @@ 
  *                qui n'ont pas satisfait leurs dépendances
 **/
 function plugin_trier($infos, $liste_non_classee) {
-	$toute_la_liste = $liste_non_classee;
-	$liste = $ordre = array();
-	$count = 0;
-
-	while ($c = count($liste_non_classee) and $c != $count) { // tant qu'il reste des plugins a classer, et qu'on ne stagne pas
-		#echo "tour::";var_dump($liste_non_classee);
-		$count = $c;
-		foreach ($liste_non_classee as $p => $resume) {
-			$plug = $resume['dir'];
-			$dir_type = $resume['dir_type'];
-			$info1 = $infos[$dir_type][$plug];
-			// si des plugins sont necessaires,
-			// on ne peut inserer qu'apres eux
-			foreach ($info1['necessite'] as $need) {
-				$nom = strtoupper($need['nom']);
-				$compat = isset($need['compatibilite']) ? $need['compatibilite'] : '';
-				if (!isset($liste[$nom]) or !plugin_version_compatible($compat, $liste[$nom]['version'])) {
-					$info1 = false;
-					break;
-				}
-			}
-			if (!$info1) {
-				continue;
-			}
-			// idem si des plugins sont utiles,
-			// sauf si ils sont de toute facon absents de la liste
-			foreach ($info1['utilise'] as $need) {
-				$nom = strtoupper($need['nom']);
-				$compat = isset($need['compatibilite']) ? $need['compatibilite'] : '';
-				if (isset($toute_la_liste[$nom])) {
-					if (!isset($liste[$nom]) or
-						!plugin_version_compatible($compat, $liste[$nom]['version'])
-					) {
-						$info1 = false;
-						break;
-					}
-				}
-			}
-			if ($info1) {
-				$ordre[$p] = $info1;
-				$liste[$p] = $liste_non_classee[$p];
-				unset($liste_non_classee[$p]);
-			}
-		}
-	}
-
-	return array($liste, $ordre, $liste_non_classee);
+    $toute_la_liste = $liste_non_classee;
+    $liste = $ordre = array();
+    $count = 0;
+
+    while ($c = count($liste_non_classee) and $c != $count) { // tant qu'il reste des plugins a classer, et qu'on ne stagne pas
+        #echo "tour::";var_dump($liste_non_classee);
+        $count = $c;
+        foreach ($liste_non_classee as $p => $resume) {
+            $plug = $resume['dir'];
+            $dir_type = $resume['dir_type'];
+            $info1 = $infos[$dir_type][$plug];
+            // si des plugins sont necessaires,
+            // on ne peut inserer qu'apres eux
+            foreach ($info1['necessite'] as $need) {
+                $nom = strtoupper($need['nom']);
+                $compat = isset($need['compatibilite']) ? $need['compatibilite'] : '';
+                if (!isset($liste[$nom]) or !plugin_version_compatible($compat, $liste[$nom]['version'])) {
+                    $info1 = false;
+                    break;
+                }
+            }
+            if (!$info1) {
+                continue;
+            }
+            // idem si des plugins sont utiles,
+            // sauf si ils sont de toute facon absents de la liste
+            foreach ($info1['utilise'] as $need) {
+                $nom = strtoupper($need['nom']);
+                $compat = isset($need['compatibilite']) ? $need['compatibilite'] : '';
+                if (isset($toute_la_liste[$nom])) {
+                    if (!isset($liste[$nom]) or
+                        !plugin_version_compatible($compat, $liste[$nom]['version'])
+                    ) {
+                        $info1 = false;
+                        break;
+                    }
+                }
+            }
+            if ($info1) {
+                $ordre[$p] = $info1;
+                $liste[$p] = $liste_non_classee[$p];
+                unset($liste_non_classee[$p]);
+            }
+        }
+    }
+
+    return array($liste, $ordre, $liste_non_classee);
 }
 
 /**
@@ -537,40 +537,40 @@ 
  *     Répertoire (plugins, plugins-dist, ...) => Couples (prefixes => infos completes) des plugins qu'ils contiennent
 **/
 function plugins_erreurs($liste_non_classee, $liste, $infos, $msg = array()) {
-	static $erreurs = array();
-
-	if (!is_array($liste)) {
-		$liste = array();
-	}
-
-	// les plugins en erreur ne sont pas actifs ; ils ne doivent pas être dans la liste
-	$liste = array_diff_key($liste, $liste_non_classee);
-
-	foreach ($liste_non_classee as $p => $resume) {
-		$dir_type = $resume['dir_type'];
-		$plug = $resume['dir'];
-		$k = $infos[$dir_type][$plug];
-
-		$plug = constant($dir_type) . $plug;
-		if (!isset($msg[$p])) {
-			if (isset($resume['erreur']) and $resume['erreur']) {
-				$msg[$p] = array($resume['erreur']);
-			}
-			elseif (!plugin_version_compatible($k['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
-				$msg[$p] = array(plugin_message_incompatibilite($k['compatibilite'], $GLOBALS['spip_version_branche'], 'SPIP', 'necessite'));
-			}
-			elseif (!$msg[$p] = plugin_necessite($k['necessite'], $liste, 'necessite')) {
-				$msg[$p] = plugin_necessite($k['utilise'], $liste, 'utilise');
-			}
-		} else {
-			foreach ($msg[$p] as $c => $l) {
-				$msg[$p][$c] = plugin_controler_lib($l['nom'], $l['lien']);
-			}
-		}
-		$erreurs[$plug] = $msg[$p];
-	}
-
-	ecrire_meta('plugin_erreur_activation', serialize($erreurs));
+    static $erreurs = array();
+
+    if (!is_array($liste)) {
+        $liste = array();
+    }
+
+    // les plugins en erreur ne sont pas actifs ; ils ne doivent pas être dans la liste
+    $liste = array_diff_key($liste, $liste_non_classee);
+
+    foreach ($liste_non_classee as $p => $resume) {
+        $dir_type = $resume['dir_type'];
+        $plug = $resume['dir'];
+        $k = $infos[$dir_type][$plug];
+
+        $plug = constant($dir_type) . $plug;
+        if (!isset($msg[$p])) {
+            if (isset($resume['erreur']) and $resume['erreur']) {
+                $msg[$p] = array($resume['erreur']);
+            }
+            elseif (!plugin_version_compatible($k['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
+                $msg[$p] = array(plugin_message_incompatibilite($k['compatibilite'], $GLOBALS['spip_version_branche'], 'SPIP', 'necessite'));
+            }
+            elseif (!$msg[$p] = plugin_necessite($k['necessite'], $liste, 'necessite')) {
+                $msg[$p] = plugin_necessite($k['utilise'], $liste, 'utilise');
+            }
+        } else {
+            foreach ($msg[$p] as $c => $l) {
+                $msg[$p][$c] = plugin_controler_lib($l['nom'], $l['lien']);
+            }
+        }
+        $erreurs[$plug] = $msg[$p];
+    }
+
+    ecrire_meta('plugin_erreur_activation', serialize($erreurs));
 }
 
 /**
@@ -585,25 +585,25 @@ 
  *     - Liste des erreurs ou code HTML des erreurs
 **/
 function plugin_donne_erreurs($raw = false, $raz = true) {
-	if (!isset($GLOBALS['meta']['plugin_erreur_activation'])) {
-		return $raw ? array() : '';
-	}
-	$list = @unserialize($GLOBALS['meta']['plugin_erreur_activation']);
-	// Compat ancienne version
-	if (!$list) {
-		$list = $raw ? array() : $GLOBALS['meta']['plugin_erreur_activation'];
-	} elseif (!$raw) {
-		foreach ($list as $plug => $msg) {
-			$list[$plug] = "<li>" . _T('plugin_impossible_activer', array('plugin' => $plug))
-				. "<ul><li>" . implode("</li><li>", $msg) . "</li></ul></li>";
-		}
-		$list = "<ul>" . join("\n", $list) . "</ul>";
-	}
-	if ($raz) {
-		effacer_meta('plugin_erreur_activation');
-	}
-
-	return $list;
+    if (!isset($GLOBALS['meta']['plugin_erreur_activation'])) {
+        return $raw ? array() : '';
+    }
+    $list = @unserialize($GLOBALS['meta']['plugin_erreur_activation']);
+    // Compat ancienne version
+    if (!$list) {
+        $list = $raw ? array() : $GLOBALS['meta']['plugin_erreur_activation'];
+    } elseif (!$raw) {
+        foreach ($list as $plug => $msg) {
+            $list[$plug] = "<li>" . _T('plugin_impossible_activer', array('plugin' => $plug))
+                . "<ul><li>" . implode("</li><li>", $msg) . "</li></ul></li>";
+        }
+        $list = "<ul>" . join("\n", $list) . "</ul>";
+    }
+    if ($raz) {
+        effacer_meta('plugin_erreur_activation');
+    }
+
+    return $list;
 }
 
 /**
@@ -623,21 +623,21 @@ 
  *
  **/
 function plugin_necessite($n, $liste, $balise = 'necessite') {
-	$msg = array();
-	foreach ($n as $need) {
-		$id = strtoupper($need['nom']);
-		$r = plugin_controler_necessite(
-			$liste, 
-			$id, 
-			isset($need['compatibilite']) ? $need['compatibilite'] : '', 
-			$balise
-		);
-		if ($r) {
-			$msg[] = $r;
-		}
-	}
-
-	return $msg;
+    $msg = array();
+    foreach ($n as $need) {
+        $id = strtoupper($need['nom']);
+        $r = plugin_controler_necessite(
+            $liste, 
+            $id, 
+            isset($need['compatibilite']) ? $need['compatibilite'] : '', 
+            $balise
+        );
+        if ($r) {
+            $msg[] = $r;
+        }
+    }
+
+    return $msg;
 }
 
 /**
@@ -659,19 +659,19 @@ 
  *    Message d'erreur lorsque la dépendance est absente.
  **/
 function plugin_controler_necessite($liste, $nom, $intervalle, $balise) {
-	if (isset($liste[$nom]) and plugin_version_compatible($intervalle, $liste[$nom]['version'])) {
-		return '';
-	}
-	// Si l'on a un <utilise="plugin non actif" />, ne pas renvoyer d'erreur
-	if ($balise === 'utilise' and !isset($liste[$nom])) {
-		return '';
-	}
-	return plugin_message_incompatibilite(
-		$intervalle, 
-		(isset($liste[$nom]) ? $liste[$nom]['version'] : ""), 
-		$nom, 
-		$balise
-	);
+    if (isset($liste[$nom]) and plugin_version_compatible($intervalle, $liste[$nom]['version'])) {
+        return '';
+    }
+    // Si l'on a un <utilise="plugin non actif" />, ne pas renvoyer d'erreur
+    if ($balise === 'utilise' and !isset($liste[$nom])) {
+        return '';
+    }
+    return plugin_message_incompatibilite(
+        $intervalle, 
+        (isset($liste[$nom]) ? $liste[$nom]['version'] : ""), 
+        $nom, 
+        $balise
+    );
 }
 
 /**
@@ -688,70 +688,70 @@ 
  */
 function plugin_message_incompatibilite($intervalle, $version, $nom, $balise) {
 
-	// prendre en compte les erreurs de dépendances à PHP
-	// ou à une extension PHP avec des messages d'erreurs dédiés.
-	$type = 'plugin';
-	if ($nom === 'SPIP') {
-		$type = 'spip';
-	} elseif ($nom === 'PHP') {
-		$type = 'php';
-	} elseif (strncmp($nom, 'PHP:', 4) === 0) {
-		$type = 'extension_php';
-		list(,$nom) = explode(':', $nom, 2);
-	}
-
-	if (preg_match(_EXTRAIRE_INTERVALLE, $intervalle, $regs)) {
-		$minimum = $regs[1];
-		$maximum = $regs[2];
-
-		$minimum_inclus = $intervalle[0] == "[";
-		$maximum_inclus = substr($intervalle, -1) == "]";
-
-		if (strlen($minimum)) {
-			if ($minimum_inclus and spip_version_compare($version, $minimum, '<')) {
-				return _T("plugin_${balise}_${type}", array(
-					'plugin' => $nom,
-					'version' => ' &ge; ' . $minimum
-				));
-			}
-			if (!$minimum_inclus and spip_version_compare($version, $minimum, '<=')) {
-				return _T("plugin_${balise}_${type}", array(
-					'plugin' => $nom,
-					'version' => ' &gt; ' . $minimum
-				));
-			}
-		}
-
-		if (strlen($maximum)) {
-			if ($maximum_inclus and spip_version_compare($version, $maximum, '>')) {
-				return _T("plugin_${balise}_${type}", array(
-					'plugin' => $nom,
-					'version' => ' &le; ' . $maximum
-				));
-			}
-			if (!$maximum_inclus and spip_version_compare($version, $maximum, '>=')) {
-				return _T("plugin_${balise}_plugin", array(
-					'plugin' => $nom,
-					'version' => ' &lt; ' . $maximum
-				));
-			}
-		}
-	}
-
-	// note : il ne peut pas y avoir d'erreur sur
-	// - un 'utilise' sans version.
-	// - un 'php' sans version.
-	return _T("plugin_necessite_${type}_sans_version", array('plugin' => $nom));
+    // prendre en compte les erreurs de dépendances à PHP
+    // ou à une extension PHP avec des messages d'erreurs dédiés.
+    $type = 'plugin';
+    if ($nom === 'SPIP') {
+        $type = 'spip';
+    } elseif ($nom === 'PHP') {
+        $type = 'php';
+    } elseif (strncmp($nom, 'PHP:', 4) === 0) {
+        $type = 'extension_php';
+        list(,$nom) = explode(':', $nom, 2);
+    }
+
+    if (preg_match(_EXTRAIRE_INTERVALLE, $intervalle, $regs)) {
+        $minimum = $regs[1];
+        $maximum = $regs[2];
+
+        $minimum_inclus = $intervalle[0] == "[";
+        $maximum_inclus = substr($intervalle, -1) == "]";
+
+        if (strlen($minimum)) {
+            if ($minimum_inclus and spip_version_compare($version, $minimum, '<')) {
+                return _T("plugin_${balise}_${type}", array(
+                    'plugin' => $nom,
+                    'version' => ' &ge; ' . $minimum
+                ));
+            }
+            if (!$minimum_inclus and spip_version_compare($version, $minimum, '<=')) {
+                return _T("plugin_${balise}_${type}", array(
+                    'plugin' => $nom,
+                    'version' => ' &gt; ' . $minimum
+                ));
+            }
+        }
+
+        if (strlen($maximum)) {
+            if ($maximum_inclus and spip_version_compare($version, $maximum, '>')) {
+                return _T("plugin_${balise}_${type}", array(
+                    'plugin' => $nom,
+                    'version' => ' &le; ' . $maximum
+                ));
+            }
+            if (!$maximum_inclus and spip_version_compare($version, $maximum, '>=')) {
+                return _T("plugin_${balise}_plugin", array(
+                    'plugin' => $nom,
+                    'version' => ' &lt; ' . $maximum
+                ));
+            }
+        }
+    }
+
+    // note : il ne peut pas y avoir d'erreur sur
+    // - un 'utilise' sans version.
+    // - un 'php' sans version.
+    return _T("plugin_necessite_${type}_sans_version", array('plugin' => $nom));
 }
 
 
 function plugin_controler_lib($lib, $url) {
-	/* Feature sortie du core, voir STP
+    /* Feature sortie du core, voir STP
 	 * if ($url) {
 		include_spip('inc/charger_plugin');
 		$url = '<br />'	. bouton_telechargement_plugin($url, 'lib');
 	}*/
-	return _T('plugin_necessite_lib', array('lib' => $lib)) . " <a href='$url'>$url</a>";
+    return _T('plugin_necessite_lib', array('lib' => $lib)) . " <a href='$url'>$url</a>";
 }
 
 
@@ -766,7 +766,7 @@ 
  *     true si il y a eu des modifications sur la liste des plugins actifs, false sinon
  **/
 function actualise_plugins_actifs($pipe_recherche = false) {
-	return ecrire_plugin_actifs('', $pipe_recherche, 'force');
+    return ecrire_plugin_actifs('', $pipe_recherche, 'force');
 }
 
 
@@ -793,113 +793,113 @@ 
  **/
 function ecrire_plugin_actifs($plugin, $pipe_recherche = false, $operation = 'raz') {
 
-	// creer le repertoire cache/ si necessaire ! (installation notamment)
-	$cache = sous_repertoire(_DIR_CACHE, '', false, true);
-
-	// Si on n'a ni cache accessible, ni connexion SQL, on ne peut pas faire grand chose encore.
-	if (!$cache and !spip_connect()) {
-		return false;
-	}
-
-	if ($operation != 'raz') {
-		$plugin_valides = liste_chemin_plugin_actifs();
-		$plugin_valides = is_plugin_dir($plugin_valides);
-		if (defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
-			$plugin_valides_supp = liste_chemin_plugin_actifs(_DIR_PLUGINS_SUPPL);
-			$plugin_valides_supp = is_plugin_dir($plugin_valides_supp, _DIR_PLUGINS_SUPPL);
-			$plugin_valides = array_merge($plugin_valides, $plugin_valides_supp);
-		}
-		// si des plugins sont en attentes (coches mais impossible a activer)
-		// on les reinjecte ici
-		if (isset($GLOBALS['meta']['plugin_attente'])
-			and $a = unserialize($GLOBALS['meta']['plugin_attente'])
-		) {
-			$plugin_valides = $plugin_valides + liste_chemin_plugin($a);
-		}
-
-		if ($operation == 'ajoute') {
-			$plugin = array_merge($plugin_valides, $plugin);
-		} elseif ($operation == 'enleve') {
-			$plugin = array_diff($plugin_valides, $plugin);
-		} else {
-			$plugin = $plugin_valides;
-		}
-	}
-	$actifs_avant = isset($GLOBALS['meta']['plugin']) ? $GLOBALS['meta']['plugin'] : '';
-
-	// si une fonction de gestion de dependances existe, l'appeler ici
-	if ($ajouter_dependances = charger_fonction("ajouter_dependances", "plugins", true)) {
-		$plugin = $ajouter_dependances($plugin);
-	}
-
-	// recharger le xml des plugins a activer
-	// on force le reload ici, meme si le fichier xml n'a pas change
-	// pour ne pas rater l'ajout ou la suppression d'un fichier fonctions/options/administrations
-	// pourra etre evite quand on ne supportera plus les plugin.xml
-	// en deplacant la detection de ces fichiers dans la compilation ci dessous
-	list($infos, $liste, $invalides) = liste_plugin_valides($plugin, true);
-	// trouver l'ordre d'activation
-	list($plugin_valides, $ordre, $reste) = plugin_trier($infos, $liste);
-	if ($invalides or $reste) {
-		plugins_erreurs(array_merge($invalides, $reste), $liste, $infos);
-	}
-
-	// Ignorer les plugins necessitant une lib absente
-	// et preparer la meta d'entete Http
-	$err = $msg = $header = array();
-	foreach ($plugin_valides as $p => $resume) {
-		// Les headers ne doivent pas indiquer les versions des extensions PHP, ni la version PHP
-		if (0 !== strpos($p, 'PHP:') and $p !== 'PHP') {
-			$header[] = $p . ($resume['version'] ? "(" . $resume['version'] . ")" : "");
-		}
-		if ($resume['dir']) {
-			foreach ($infos[$resume['dir_type']][$resume['dir']]['lib'] as $l) {
-				if (!find_in_path($l['nom'], 'lib/')) {
-					$err[$p] = $resume;
-					$msg[$p][] = $l;
-					unset($plugin_valides[$p]);
-				}
-			}
-		}
-	}
-	if ($err) {
-		plugins_erreurs($err, '', $infos, $msg);
-	}
-
-	if (isset($GLOBALS['meta']['message_crash_plugins'])) {
-		effacer_meta('message_crash_plugins');
-	}
-	ecrire_meta('plugin', serialize($plugin_valides));
-	$liste = array_diff_key($liste, $plugin_valides);
-	ecrire_meta('plugin_attente', serialize($liste));
-	$header = strtolower(implode(",", $header));
-	if (!isset($GLOBALS['spip_header_silencieux']) or !$GLOBALS['spip_header_silencieux']) {
-		ecrire_fichier(_DIR_VAR . "config.txt",
-			(defined('_HEADER_COMPOSED_BY') ? _HEADER_COMPOSED_BY : "Composed-By: SPIP") . ' ' . $GLOBALS['spip_version_affichee'] . " @ www.spip.net + " . $header);
-	} else {
-		@unlink(_DIR_VAR . "config.txt");
-	}
-	// generer charger_plugins_chemin.php
-	plugins_precompile_chemin($plugin_valides, $ordre);
-	// generer les fichiers
-	// - charger_plugins_options.php
-	// - charger_plugins_fonctions.php
-	plugins_precompile_xxxtions($plugin_valides, $ordre);
-	// charger les chemins des plugins et les fichiers d'options 
-	// (qui peuvent déclarer / utiliser des pipelines, ajouter d'autres chemins)
-	plugins_amorcer_plugins_actifs();
-	// mise a jour de la matrice des pipelines
-	$prepend_code = pipeline_matrice_precompile($plugin_valides, $ordre, $pipe_recherche);
-	// generer le fichier _CACHE_PIPELINE
-	pipeline_precompile($prepend_code);
-
-	if (spip_connect()) {
-		// lancer et initialiser les nouveaux crons !
-		include_spip('inc/genie');
-		genie_queue_watch_dist();
-	}
-
-	return ($GLOBALS['meta']['plugin'] != $actifs_avant);
+    // creer le repertoire cache/ si necessaire ! (installation notamment)
+    $cache = sous_repertoire(_DIR_CACHE, '', false, true);
+
+    // Si on n'a ni cache accessible, ni connexion SQL, on ne peut pas faire grand chose encore.
+    if (!$cache and !spip_connect()) {
+        return false;
+    }
+
+    if ($operation != 'raz') {
+        $plugin_valides = liste_chemin_plugin_actifs();
+        $plugin_valides = is_plugin_dir($plugin_valides);
+        if (defined('_DIR_PLUGINS_SUPPL') && _DIR_PLUGINS_SUPPL) {
+            $plugin_valides_supp = liste_chemin_plugin_actifs(_DIR_PLUGINS_SUPPL);
+            $plugin_valides_supp = is_plugin_dir($plugin_valides_supp, _DIR_PLUGINS_SUPPL);
+            $plugin_valides = array_merge($plugin_valides, $plugin_valides_supp);
+        }
+        // si des plugins sont en attentes (coches mais impossible a activer)
+        // on les reinjecte ici
+        if (isset($GLOBALS['meta']['plugin_attente'])
+            and $a = unserialize($GLOBALS['meta']['plugin_attente'])
+        ) {
+            $plugin_valides = $plugin_valides + liste_chemin_plugin($a);
+        }
+
+        if ($operation == 'ajoute') {
+            $plugin = array_merge($plugin_valides, $plugin);
+        } elseif ($operation == 'enleve') {
+            $plugin = array_diff($plugin_valides, $plugin);
+        } else {
+            $plugin = $plugin_valides;
+        }
+    }
+    $actifs_avant = isset($GLOBALS['meta']['plugin']) ? $GLOBALS['meta']['plugin'] : '';
+
+    // si une fonction de gestion de dependances existe, l'appeler ici
+    if ($ajouter_dependances = charger_fonction("ajouter_dependances", "plugins", true)) {
+        $plugin = $ajouter_dependances($plugin);
+    }
+
+    // recharger le xml des plugins a activer
+    // on force le reload ici, meme si le fichier xml n'a pas change
+    // pour ne pas rater l'ajout ou la suppression d'un fichier fonctions/options/administrations
+    // pourra etre evite quand on ne supportera plus les plugin.xml
+    // en deplacant la detection de ces fichiers dans la compilation ci dessous
+    list($infos, $liste, $invalides) = liste_plugin_valides($plugin, true);
+    // trouver l'ordre d'activation
+    list($plugin_valides, $ordre, $reste) = plugin_trier($infos, $liste);
+    if ($invalides or $reste) {
+        plugins_erreurs(array_merge($invalides, $reste), $liste, $infos);
+    }
+
+    // Ignorer les plugins necessitant une lib absente
+    // et preparer la meta d'entete Http
+    $err = $msg = $header = array();
+    foreach ($plugin_valides as $p => $resume) {
+        // Les headers ne doivent pas indiquer les versions des extensions PHP, ni la version PHP
+        if (0 !== strpos($p, 'PHP:') and $p !== 'PHP') {
+            $header[] = $p . ($resume['version'] ? "(" . $resume['version'] . ")" : "");
+        }
+        if ($resume['dir']) {
+            foreach ($infos[$resume['dir_type']][$resume['dir']]['lib'] as $l) {
+                if (!find_in_path($l['nom'], 'lib/')) {
+                    $err[$p] = $resume;
+                    $msg[$p][] = $l;
+                    unset($plugin_valides[$p]);
+                }
+            }
+        }
+    }
+    if ($err) {
+        plugins_erreurs($err, '', $infos, $msg);
+    }
+
+    if (isset($GLOBALS['meta']['message_crash_plugins'])) {
+        effacer_meta('message_crash_plugins');
+    }
+    ecrire_meta('plugin', serialize($plugin_valides));
+    $liste = array_diff_key($liste, $plugin_valides);
+    ecrire_meta('plugin_attente', serialize($liste));
+    $header = strtolower(implode(",", $header));
+    if (!isset($GLOBALS['spip_header_silencieux']) or !$GLOBALS['spip_header_silencieux']) {
+        ecrire_fichier(_DIR_VAR . "config.txt",
+            (defined('_HEADER_COMPOSED_BY') ? _HEADER_COMPOSED_BY : "Composed-By: SPIP") . ' ' . $GLOBALS['spip_version_affichee'] . " @ www.spip.net + " . $header);
+    } else {
+        @unlink(_DIR_VAR . "config.txt");
+    }
+    // generer charger_plugins_chemin.php
+    plugins_precompile_chemin($plugin_valides, $ordre);
+    // generer les fichiers
+    // - charger_plugins_options.php
+    // - charger_plugins_fonctions.php
+    plugins_precompile_xxxtions($plugin_valides, $ordre);
+    // charger les chemins des plugins et les fichiers d'options 
+    // (qui peuvent déclarer / utiliser des pipelines, ajouter d'autres chemins)
+    plugins_amorcer_plugins_actifs();
+    // mise a jour de la matrice des pipelines
+    $prepend_code = pipeline_matrice_precompile($plugin_valides, $ordre, $pipe_recherche);
+    // generer le fichier _CACHE_PIPELINE
+    pipeline_precompile($prepend_code);
+
+    if (spip_connect()) {
+        // lancer et initialiser les nouveaux crons !
+        include_spip('inc/genie');
+        genie_queue_watch_dist();
+    }
+
+    return ($GLOBALS['meta']['plugin'] != $actifs_avant);
 }
 
 /**
@@ -918,68 +918,68 @@ 
  *     Couples (prefixe => infos complètes) des plugins qui seront actifs, dans l'ordre de leurs dépendances
 **/
 function plugins_precompile_chemin($plugin_valides, $ordre) {
-	$chemins = [
-		'public' => [],
-		'prive' => []
-	];
-	$contenu = "";
-	foreach ($ordre as $p => $info) {
-		// $ordre peur contenir des plugins en attente et non valides pour ce hit
-		if (isset($plugin_valides[$p])) {
-			$dir_type = $plugin_valides[$p]['dir_type'];
-			$plug = $plugin_valides[$p]['dir'];
-			// definir le plugin, donc le path avant l'include du fichier options
-			// permet de faire des include_spip pour attraper un inc_ du plugin
-
-			$dir = $dir_type . ".'" . $plug . "/'";
-
-			$prefix = strtoupper(preg_replace(',\W,', '_', $info['prefix']));
-			if (
-				$prefix !== "SPIP"
-				and strpos($dir, ":") === false // exclure le cas des procure:
-			) {
-				$contenu .= "define('_DIR_PLUGIN_$prefix',$dir);\n";
-				if (!$info['chemin']) {
-					$chemins['public'][] = "_DIR_PLUGIN_$prefix";
-					$chemins['prive'][] = "_DIR_PLUGIN_$prefix";
-					if (is_dir(constant($dir_type) . $plug . '/squelettes/')) {
-						$chemins['public'][] = "_DIR_PLUGIN_{$prefix}.'squelettes/'";
-					}
-				}
-				else{
-					foreach ($info['chemin'] as $chemin) {
-						if (!isset($chemin['version']) or plugin_version_compatible($chemin['version'],
-								$GLOBALS['spip_version_branche'], 'spip')
-						) {
-							$dir = $chemin['path'];
-							if (strlen($dir) and $dir[0] == "/") {
-								$dir = substr($dir, 1);
-							}
-							if (strlen($dir) and $dir == "./") {
-								$dir = '';
-							}
-							if (strlen($dir)) {
-								$dir = rtrim($dir, '/') . '/';
-							}
-							if (!isset($chemin['type']) or $chemin['type'] == 'public') {
-								$chemins['public'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
-							}
-							if (!isset($chemin['type']) or $chemin['type'] == 'prive') {
-								$chemins['prive'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
-							}
-						}
-					}
-				}
-			}
-		}
-	}
-	if (count($chemins['public']) or count($chemins['prive'])) {
-		$contenu .= "if (_DIR_RESTREINT) _chemin([" . implode(',',
-				array_reverse($chemins['public'])) . "]);\n"
-			. "else _chemin([" . implode(',', array_reverse($chemins['prive'])) . "]);\n";
-	}
-
-	ecrire_fichier_php(_CACHE_PLUGINS_PATH, $contenu);
+    $chemins = [
+        'public' => [],
+        'prive' => []
+    ];
+    $contenu = "";
+    foreach ($ordre as $p => $info) {
+        // $ordre peur contenir des plugins en attente et non valides pour ce hit
+        if (isset($plugin_valides[$p])) {
+            $dir_type = $plugin_valides[$p]['dir_type'];
+            $plug = $plugin_valides[$p]['dir'];
+            // definir le plugin, donc le path avant l'include du fichier options
+            // permet de faire des include_spip pour attraper un inc_ du plugin
+
+            $dir = $dir_type . ".'" . $plug . "/'";
+
+            $prefix = strtoupper(preg_replace(',\W,', '_', $info['prefix']));
+            if (
+                $prefix !== "SPIP"
+                and strpos($dir, ":") === false // exclure le cas des procure:
+            ) {
+                $contenu .= "define('_DIR_PLUGIN_$prefix',$dir);\n";
+                if (!$info['chemin']) {
+                    $chemins['public'][] = "_DIR_PLUGIN_$prefix";
+                    $chemins['prive'][] = "_DIR_PLUGIN_$prefix";
+                    if (is_dir(constant($dir_type) . $plug . '/squelettes/')) {
+                        $chemins['public'][] = "_DIR_PLUGIN_{$prefix}.'squelettes/'";
+                    }
+                }
+                else{
+                    foreach ($info['chemin'] as $chemin) {
+                        if (!isset($chemin['version']) or plugin_version_compatible($chemin['version'],
+                                $GLOBALS['spip_version_branche'], 'spip')
+                        ) {
+                            $dir = $chemin['path'];
+                            if (strlen($dir) and $dir[0] == "/") {
+                                $dir = substr($dir, 1);
+                            }
+                            if (strlen($dir) and $dir == "./") {
+                                $dir = '';
+                            }
+                            if (strlen($dir)) {
+                                $dir = rtrim($dir, '/') . '/';
+                            }
+                            if (!isset($chemin['type']) or $chemin['type'] == 'public') {
+                                $chemins['public'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
+                            }
+                            if (!isset($chemin['type']) or $chemin['type'] == 'prive') {
+                                $chemins['prive'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    }
+    if (count($chemins['public']) or count($chemins['prive'])) {
+        $contenu .= "if (_DIR_RESTREINT) _chemin([" . implode(',',
+                array_reverse($chemins['public'])) . "]);\n"
+            . "else _chemin([" . implode(',', array_reverse($chemins['prive'])) . "]);\n";
+    }
+
+    ecrire_fichier_php(_CACHE_PLUGINS_PATH, $contenu);
 }
 
 /**
@@ -997,65 +997,65 @@ 
  *     Couples (prefixe => infos complètes) des plugins qui seront actifs, dans l'ordre de leurs dépendances
 **/
 function plugins_precompile_xxxtions($plugin_valides, $ordre) {
-	$contenu = array('options' => '', 'fonctions' => '');
-	$boutons = array();
-	$onglets = array();
-	$sign = "";
-
-	foreach ($ordre as $p => $info) {
-		// $ordre peur contenir des plugins en attente et non valides pour ce hit
-		if (isset($plugin_valides[$p])) {
-			$dir_type = $plugin_valides[$p]['dir_type'];
-			$plug = $plugin_valides[$p]['dir'];
-			$dir = constant($dir_type);
-			$root_dir_type = str_replace('_DIR_', '_ROOT_', $dir_type);
-			if ($info['menu']) {
-				$boutons = array_merge($boutons, $info['menu']);
-			}
-			if ($info['onglet']) {
-				$onglets = array_merge($onglets, $info['onglet']);
-			}
-			foreach ($contenu as $charge => $v) {
-				// si pas declare/detecte a la lecture du paquet.xml,
-				// detecer a nouveau ici puisque son ajout ne provoque pas une modif du paquet.xml
-				// donc ni sa relecture, ni sa detection
-				if (!isset($info[$charge])
-					and $dir // exclure le cas du plugin "SPIP"
-					and strpos($dir, ":") === false // exclure le cas des procure:
-					and file_exists("$dir$plug/paquet.xml") // uniquement pour les paquet.xml
-				) {
-					if (is_readable("$dir$plug/" . ($file = $info['prefix'] . "_" . $charge . ".php"))) {
-						$info[$charge] = array($file);
-					}
-				}
-				if (isset($info[$charge])) {
-					$files = $info[$charge];
-					foreach ($files as $k => $file) {
-						// on genere un if file_exists devant chaque include
-						// pour pouvoir garder le meme niveau d'erreur general
-						$file = trim($file);
-						if (!is_readable("$dir$plug/$file")
-							// uniquement pour les paquet.xml
-							and file_exists("$dir$plug/paquet.xml")
-						) {
-							unset($info[$charge][$k]);
-						} else {
-							$_file = $root_dir_type . ".'$plug/$file'";
-							$contenu[$charge] .= "include_once_check($_file);\n";
-						}
-					}
-				}
-			}
-			$sign .= md5(serialize($info));
-		}
-	}
-
-	$contenu['options'] = "define('_PLUGINS_HASH','" . md5($sign) . "');\n" . $contenu['options'];
-	$contenu['fonctions'] .= plugin_ongletbouton("boutons_plugins", $boutons)
-		. plugin_ongletbouton("onglets_plugins", $onglets);
-
-	ecrire_fichier_php(_CACHE_PLUGINS_OPT, $contenu['options']);
-	ecrire_fichier_php(_CACHE_PLUGINS_FCT, $contenu['fonctions']);
+    $contenu = array('options' => '', 'fonctions' => '');
+    $boutons = array();
+    $onglets = array();
+    $sign = "";
+
+    foreach ($ordre as $p => $info) {
+        // $ordre peur contenir des plugins en attente et non valides pour ce hit
+        if (isset($plugin_valides[$p])) {
+            $dir_type = $plugin_valides[$p]['dir_type'];
+            $plug = $plugin_valides[$p]['dir'];
+            $dir = constant($dir_type);
+            $root_dir_type = str_replace('_DIR_', '_ROOT_', $dir_type);
+            if ($info['menu']) {
+                $boutons = array_merge($boutons, $info['menu']);
+            }
+            if ($info['onglet']) {
+                $onglets = array_merge($onglets, $info['onglet']);
+            }
+            foreach ($contenu as $charge => $v) {
+                // si pas declare/detecte a la lecture du paquet.xml,
+                // detecer a nouveau ici puisque son ajout ne provoque pas une modif du paquet.xml
+                // donc ni sa relecture, ni sa detection
+                if (!isset($info[$charge])
+                    and $dir // exclure le cas du plugin "SPIP"
+                    and strpos($dir, ":") === false // exclure le cas des procure:
+                    and file_exists("$dir$plug/paquet.xml") // uniquement pour les paquet.xml
+                ) {
+                    if (is_readable("$dir$plug/" . ($file = $info['prefix'] . "_" . $charge . ".php"))) {
+                        $info[$charge] = array($file);
+                    }
+                }
+                if (isset($info[$charge])) {
+                    $files = $info[$charge];
+                    foreach ($files as $k => $file) {
+                        // on genere un if file_exists devant chaque include
+                        // pour pouvoir garder le meme niveau d'erreur general
+                        $file = trim($file);
+                        if (!is_readable("$dir$plug/$file")
+                            // uniquement pour les paquet.xml
+                            and file_exists("$dir$plug/paquet.xml")
+                        ) {
+                            unset($info[$charge][$k]);
+                        } else {
+                            $_file = $root_dir_type . ".'$plug/$file'";
+                            $contenu[$charge] .= "include_once_check($_file);\n";
+                        }
+                    }
+                }
+            }
+            $sign .= md5(serialize($info));
+        }
+    }
+
+    $contenu['options'] = "define('_PLUGINS_HASH','" . md5($sign) . "');\n" . $contenu['options'];
+    $contenu['fonctions'] .= plugin_ongletbouton("boutons_plugins", $boutons)
+        . plugin_ongletbouton("onglets_plugins", $onglets);
+
+    ecrire_fichier_php(_CACHE_PLUGINS_OPT, $contenu['options']);
+    ecrire_fichier_php(_CACHE_PLUGINS_FCT, $contenu['fonctions']);
 }
 
 /**
@@ -1074,24 +1074,24 @@ 
  * @return string Code php
  */
 function plugin_ongletbouton($nom, $val) {
-	if (!$val) {
-		$val = array();
-	}
-
-	$val = serialize($val);
-	$md5 = md5($val);
-
-	if (!defined("_UPDATED_$nom")) {
-		define("_UPDATED_$nom", $val);
-		define("_UPDATED_md5_$nom", $md5);
-	}
-	$val = "unserialize('" . str_replace("'", "\'", $val) . "')";
-
-	return
-		"if (!function_exists('$nom')) {\n"
-		. "function $nom(){return defined('_UPDATED_$nom')?unserialize(_UPDATED_$nom):$val;}\n"
-		. "function md5_$nom(){return defined('_UPDATED_md5_$nom')?_UPDATED_md5_$nom:'" . $md5 . "';}\n"
-		. "}\n";
+    if (!$val) {
+        $val = array();
+    }
+
+    $val = serialize($val);
+    $md5 = md5($val);
+
+    if (!defined("_UPDATED_$nom")) {
+        define("_UPDATED_$nom", $val);
+        define("_UPDATED_md5_$nom", $md5);
+    }
+    $val = "unserialize('" . str_replace("'", "\'", $val) . "')";
+
+    return
+        "if (!function_exists('$nom')) {\n"
+        . "function $nom(){return defined('_UPDATED_$nom')?unserialize(_UPDATED_$nom):$val;}\n"
+        . "function md5_$nom(){return defined('_UPDATED_md5_$nom')?_UPDATED_md5_$nom:'" . $md5 . "';}\n"
+        . "}\n";
 }
 
 /**
@@ -1106,15 +1106,15 @@ 
 **/
 function plugins_amorcer_plugins_actifs() {
 
-	if (@is_readable(_CACHE_PLUGINS_PATH)) {
-		include_once(_CACHE_PLUGINS_PATH);
-	} 
+    if (@is_readable(_CACHE_PLUGINS_PATH)) {
+        include_once(_CACHE_PLUGINS_PATH);
+    } 
 
-	if (@is_readable(_CACHE_PLUGINS_OPT)) {
-		include_once(_CACHE_PLUGINS_OPT);
-	} else {
-		spip_log("pipelines desactives: impossible de produire " . _CACHE_PLUGINS_OPT);
-	}
+    if (@is_readable(_CACHE_PLUGINS_OPT)) {
+        include_once(_CACHE_PLUGINS_OPT);
+    } else {
+        spip_log("pipelines desactives: impossible de produire " . _CACHE_PLUGINS_OPT);
+    }
 }
 
 /**
@@ -1137,136 +1137,136 @@ 
  *     Couples (nom du pipeline => Code PHP à insérer au début du pipeline)
 **/
 function pipeline_matrice_precompile($plugin_valides, $ordre, $pipe_recherche) {
-	static $liste_pipe_manquants = array();
-	if (($pipe_recherche) && (!in_array($pipe_recherche, $liste_pipe_manquants))) {
-		$liste_pipe_manquants[] = $pipe_recherche;
-	}
-
-	$prepend_code = array();
-
-	foreach ($ordre as $p => $info) {
-		// $ordre peur contenir des plugins en attente et non valides pour ce hit
-		if (isset($plugin_valides[$p])) {
-			$dir_type = $plugin_valides[$p]['dir_type'];
-			$root_dir_type = str_replace('_DIR_', '_ROOT_', $dir_type);
-			$plug = $plugin_valides[$p]['dir'];
-			$prefix = (($info['prefix'] == "spip") ? "" : $info['prefix'] . "_");
-			if (isset($info['pipeline']) and is_array($info['pipeline'])) {
-				foreach ($info['pipeline'] as $pipe) {
-					$nom = $pipe['nom'];
-					if (isset($pipe['action'])) {
-						$action = $pipe['action'];
-					} else {
-						$action = $nom;
-					}
-					$nomlower = strtolower($nom);
-					if ($nomlower != $nom
-						and isset($GLOBALS['spip_pipeline'][$nom])
-						and !isset($GLOBALS['spip_pipeline'][$nomlower])
-					) {
-						$GLOBALS['spip_pipeline'][$nomlower] = $GLOBALS['spip_pipeline'][$nom];
-						unset($GLOBALS['spip_pipeline'][$nom]);
-					}
-					$nom = $nomlower;
-					// une action vide est une declaration qui ne doit pas etre compilee !
-					if (!isset($GLOBALS['spip_pipeline'][$nom])) // creer le pipeline eventuel
-					{
-						$GLOBALS['spip_pipeline'][$nom] = "";
-					}
-					if ($action) {
-						if (strpos($GLOBALS['spip_pipeline'][$nom], "|$prefix$action") === false) {
-							$GLOBALS['spip_pipeline'][$nom] = preg_replace(",(\|\||$),", "|$prefix$action\\1",
-								$GLOBALS['spip_pipeline'][$nom], 1);
-						}
-						if (isset($pipe['inclure'])) {
-							$GLOBALS['spip_matrice']["$prefix$action"] =
-								"$root_dir_type:$plug/" . $pipe['inclure'];
-						}
-					}
-				}
-			}
-			if (isset($info['genie']) and count($info['genie'])) {
-				if (!isset($prepend_code['taches_generales_cron'])) {
-					$prepend_code['taches_generales_cron'] = "";
-				}
-				foreach ($info['genie'] as $genie) {
-					$nom = $prefix . $genie['nom'];
-					$periode = max(60, intval($genie['periode']));
-					if (charger_fonction($nom, "genie", true)) {
-						$prepend_code['taches_generales_cron'] .= "\$val['$nom'] = $periode;\n";
-					} else {
-						spip_log("Fonction genie_$nom introuvable", _LOG_ERREUR);
-					}
-				}
-			}
-			if (isset($info['style']) and count($info['style'])) {
-				if (!isset($prepend_code['insert_head_css'])) {
-					$prepend_code['insert_head_css'] = "";
-				}
-				if (!isset($prepend_code['header_prive_css'])) {
-					$prepend_code['header_prive_css'] = "";
-				}
-				foreach ($info['style'] as $style) {
-					if (isset($style['path']) and $style['path']) {
-						$code = "if (\$f=timestamp(direction_css(find_in_path('" . addslashes($style['path']) . "')))) ";
-					} else {
-						$code = "if (\$f='" . addslashes($style['url']) . "') ";
-					}
-					$code .= "\$val .= '<link rel=\"stylesheet\" href=\"'.\$f.'\" type=\"text/css\"";
-					if (isset($style['media']) and strlen($style['media'])) {
-						$code .= " media=\"" . addslashes($style['media']) . "\"";
-					}
-					$code .= "/>';\n";
-					if ($style['type'] != 'prive') {
-						$prepend_code['insert_head_css'] .= $code;
-					}
-					if ($style['type'] != 'public') {
-						$prepend_code['header_prive_css'] .= $code;
-					}
-				}
-			}
-			if (!isset($prepend_code['insert_head'])) {
-				$prepend_code['insert_head'] = "";
-			}
-			if (!isset($prepend_code['header_prive'])) {
-				$prepend_code['header_prive'] = "";
-			}
-			if (isset($info['script']) and count($info['script'])) {
-				foreach ($info['script'] as $script) {
-					if (isset($script['path']) and $script['path']) {
-						$code = "if (\$f=timestamp(find_in_path('" . addslashes($script['path']) . "'))) ";
-					} else {
-						$code = "if (\$f='" . addslashes($script['url']) . "') ";
-					}
-					$code .= "\$val .= '<script src=\"'.\$f.'\" type=\"text/javascript\"></script>';\n";
-					if ($script['type'] != 'prive') {
-						$prepend_code['insert_head'] .= $code;
-					}
-					if ($script['type'] != 'public') {
-						$prepend_code['header_prive'] .= $code;
-					}
-				}
-			}
-		}
-	}
-
-	$prepend_code['insert_head'] =
-		"include_once_check(_DIR_RESTREINT . 'inc/pipelines.php');\n"
-		. "\$val = minipipe('f_jQuery', \$val);\n"
-		. $prepend_code['insert_head'];
-	$prepend_code['header_prive'] =
-		"include_once_check(_DIR_RESTREINT . 'inc/pipelines_ecrire.php');\n"
-		. "\$val = minipipe('f_jQuery_prive', \$val);\n"
-		. $prepend_code['header_prive'];
-
-	// on ajoute les pipe qui ont ete recenses manquants
-	foreach ($liste_pipe_manquants as $add_pipe) {
-		if (!isset($GLOBALS['spip_pipeline'][$add_pipe])) {
-			$GLOBALS['spip_pipeline'][$add_pipe] = '';
-		}
-	}
-
-	return $prepend_code;
+    static $liste_pipe_manquants = array();
+    if (($pipe_recherche) && (!in_array($pipe_recherche, $liste_pipe_manquants))) {
+        $liste_pipe_manquants[] = $pipe_recherche;
+    }
+
+    $prepend_code = array();
+
+    foreach ($ordre as $p => $info) {
+        // $ordre peur contenir des plugins en attente et non valides pour ce hit
+        if (isset($plugin_valides[$p])) {
+            $dir_type = $plugin_valides[$p]['dir_type'];
+            $root_dir_type = str_replace('_DIR_', '_ROOT_', $dir_type);
+            $plug = $plugin_valides[$p]['dir'];
+            $prefix = (($info['prefix'] == "spip") ? "" : $info['prefix'] . "_");
+            if (isset($info['pipeline']) and is_array($info['pipeline'])) {
+                foreach ($info['pipeline'] as $pipe) {
+                    $nom = $pipe['nom'];
+                    if (isset($pipe['action'])) {
+                        $action = $pipe['action'];
+                    } else {
+                        $action = $nom;
+                    }
+                    $nomlower = strtolower($nom);
+                    if ($nomlower != $nom
+                        and isset($GLOBALS['spip_pipeline'][$nom])
+                        and !isset($GLOBALS['spip_pipeline'][$nomlower])
+                    ) {
+                        $GLOBALS['spip_pipeline'][$nomlower] = $GLOBALS['spip_pipeline'][$nom];
+                        unset($GLOBALS['spip_pipeline'][$nom]);
+                    }
+                    $nom = $nomlower;
+                    // une action vide est une declaration qui ne doit pas etre compilee !
+                    if (!isset($GLOBALS['spip_pipeline'][$nom])) // creer le pipeline eventuel
+                    {
+                        $GLOBALS['spip_pipeline'][$nom] = "";
+                    }
+                    if ($action) {
+                        if (strpos($GLOBALS['spip_pipeline'][$nom], "|$prefix$action") === false) {
+                            $GLOBALS['spip_pipeline'][$nom] = preg_replace(",(\|\||$),", "|$prefix$action\\1",
+                                $GLOBALS['spip_pipeline'][$nom], 1);
+                        }
+                        if (isset($pipe['inclure'])) {
+                            $GLOBALS['spip_matrice']["$prefix$action"] =
+                                "$root_dir_type:$plug/" . $pipe['inclure'];
+                        }
+                    }
+                }
+            }
+            if (isset($info['genie']) and count($info['genie'])) {
+                if (!isset($prepend_code['taches_generales_cron'])) {
+                    $prepend_code['taches_generales_cron'] = "";
+                }
+                foreach ($info['genie'] as $genie) {
+                    $nom = $prefix . $genie['nom'];
+                    $periode = max(60, intval($genie['periode']));
+                    if (charger_fonction($nom, "genie", true)) {
+                        $prepend_code['taches_generales_cron'] .= "\$val['$nom'] = $periode;\n";
+                    } else {
+                        spip_log("Fonction genie_$nom introuvable", _LOG_ERREUR);
+                    }
+                }
+            }
+            if (isset($info['style']) and count($info['style'])) {
+                if (!isset($prepend_code['insert_head_css'])) {
+                    $prepend_code['insert_head_css'] = "";
+                }
+                if (!isset($prepend_code['header_prive_css'])) {
+                    $prepend_code['header_prive_css'] = "";
+                }
+                foreach ($info['style'] as $style) {
+                    if (isset($style['path']) and $style['path']) {
+                        $code = "if (\$f=timestamp(direction_css(find_in_path('" . addslashes($style['path']) . "')))) ";
+                    } else {
+                        $code = "if (\$f='" . addslashes($style['url']) . "') ";
+                    }
+                    $code .= "\$val .= '<link rel=\"stylesheet\" href=\"'.\$f.'\" type=\"text/css\"";
+                    if (isset($style['media']) and strlen($style['media'])) {
+                        $code .= " media=\"" . addslashes($style['media']) . "\"";
+                    }
+                    $code .= "/>';\n";
+                    if ($style['type'] != 'prive') {
+                        $prepend_code['insert_head_css'] .= $code;
+                    }
+                    if ($style['type'] != 'public') {
+                        $prepend_code['header_prive_css'] .= $code;
+                    }
+                }
+            }
+            if (!isset($prepend_code['insert_head'])) {
+                $prepend_code['insert_head'] = "";
+            }
+            if (!isset($prepend_code['header_prive'])) {
+                $prepend_code['header_prive'] = "";
+            }
+            if (isset($info['script']) and count($info['script'])) {
+                foreach ($info['script'] as $script) {
+                    if (isset($script['path']) and $script['path']) {
+                        $code = "if (\$f=timestamp(find_in_path('" . addslashes($script['path']) . "'))) ";
+                    } else {
+                        $code = "if (\$f='" . addslashes($script['url']) . "') ";
+                    }
+                    $code .= "\$val .= '<script src=\"'.\$f.'\" type=\"text/javascript\"></script>';\n";
+                    if ($script['type'] != 'prive') {
+                        $prepend_code['insert_head'] .= $code;
+                    }
+                    if ($script['type'] != 'public') {
+                        $prepend_code['header_prive'] .= $code;
+                    }
+                }
+            }
+        }
+    }
+
+    $prepend_code['insert_head'] =
+        "include_once_check(_DIR_RESTREINT . 'inc/pipelines.php');\n"
+        . "\$val = minipipe('f_jQuery', \$val);\n"
+        . $prepend_code['insert_head'];
+    $prepend_code['header_prive'] =
+        "include_once_check(_DIR_RESTREINT . 'inc/pipelines_ecrire.php');\n"
+        . "\$val = minipipe('f_jQuery_prive', \$val);\n"
+        . $prepend_code['header_prive'];
+
+    // on ajoute les pipe qui ont ete recenses manquants
+    foreach ($liste_pipe_manquants as $add_pipe) {
+        if (!isset($GLOBALS['spip_pipeline'][$add_pipe])) {
+            $GLOBALS['spip_pipeline'][$add_pipe] = '';
+        }
+    }
+
+    return $prepend_code;
 }
 
 /**
@@ -1293,62 +1293,62 @@ 
 **/
 function pipeline_precompile($prepend_code = array()) {
 
-	$all_pipes = $all_pipes_end = '';
-	if (!empty($GLOBALS['spip_pipeline']['all'])) {
-		$a = explode('||', $GLOBALS['spip_pipeline']['all'], 2);
-		unset($GLOBALS['spip_pipeline']['all']);
-		$all_pipes = trim(array_shift($a));
-		if ($all_pipes) {
-			$all_pipes = '|' . ltrim($all_pipes, '|');
-		}
-		if (count($a)) {
-			$all_pipes_end = '||' . array_shift($a);
-		}
-	}
-	$content = "";
-	foreach ($GLOBALS['spip_pipeline'] as $action => $pipeline) {
-		$s_inc = "";
-		$s_call = "";
-		if ($all_pipes) {
-			$pipeline = preg_replace(",(\|\||$),", "$all_pipes\\1", $pipeline, 1);
-		}
-		if ($all_pipes_end) {
-			$pipeline .= $all_pipes_end;
-		}
-		$pipe = array_filter(explode('|', $pipeline));
-		// Eclater le pipeline en filtres et appliquer chaque filtre
-		foreach ($pipe as $fonc) {
-			$fonc = trim($fonc);
-			$s_call .= '$val = minipipe(\'' . $fonc . '\', $val);' . "\n";
-			if (isset($GLOBALS['spip_matrice'][$fonc])) {
-				$file = $GLOBALS['spip_matrice'][$fonc];
-				$file = "'$file'";
-				// si un _DIR_XXX: est dans la chaine, on extrait la constante
-				if (preg_match(",(_(DIR|ROOT)_[A-Z_]+):,Ums", $file, $regs)) {
-					$dir = $regs[1];
-					$root_dir = str_replace('_DIR_', '_ROOT_', $dir);
-					if (defined($root_dir)) {
-						$dir = $root_dir;
-					}
-					$file = str_replace($regs[0], "'." . $dir . ".'", $file);
-					$file = str_replace("''.", "", $file);
-					$file = str_replace(constant($dir), '', $file);
-				}
-				$s_inc .= "include_once_check($file);\n";
-			}
-		}
-		if (strlen($s_inc)) {
-			$s_inc = "static \$inc=null;\nif (!\$inc){\n$s_inc\$inc=true;\n}\n";
-		}
-		$content .= "// Pipeline $action \n"
-			. "function execute_pipeline_$action(&\$val){\n"
-			. $s_inc
-			. ((isset($prepend_code[$action]) and strlen($prepend_code[$action])) ? trim($prepend_code[$action]) . "\n" : '')
-			. $s_call
-			. "return \$val;\n}\n";
-	}
-	ecrire_fichier_php(_CACHE_PIPELINES, $content);
-	clear_path_cache();
+    $all_pipes = $all_pipes_end = '';
+    if (!empty($GLOBALS['spip_pipeline']['all'])) {
+        $a = explode('||', $GLOBALS['spip_pipeline']['all'], 2);
+        unset($GLOBALS['spip_pipeline']['all']);
+        $all_pipes = trim(array_shift($a));
+        if ($all_pipes) {
+            $all_pipes = '|' . ltrim($all_pipes, '|');
+        }
+        if (count($a)) {
+            $all_pipes_end = '||' . array_shift($a);
+        }
+    }
+    $content = "";
+    foreach ($GLOBALS['spip_pipeline'] as $action => $pipeline) {
+        $s_inc = "";
+        $s_call = "";
+        if ($all_pipes) {
+            $pipeline = preg_replace(",(\|\||$),", "$all_pipes\\1", $pipeline, 1);
+        }
+        if ($all_pipes_end) {
+            $pipeline .= $all_pipes_end;
+        }
+        $pipe = array_filter(explode('|', $pipeline));
+        // Eclater le pipeline en filtres et appliquer chaque filtre
+        foreach ($pipe as $fonc) {
+            $fonc = trim($fonc);
+            $s_call .= '$val = minipipe(\'' . $fonc . '\', $val);' . "\n";
+            if (isset($GLOBALS['spip_matrice'][$fonc])) {
+                $file = $GLOBALS['spip_matrice'][$fonc];
+                $file = "'$file'";
+                // si un _DIR_XXX: est dans la chaine, on extrait la constante
+                if (preg_match(",(_(DIR|ROOT)_[A-Z_]+):,Ums", $file, $regs)) {
+                    $dir = $regs[1];
+                    $root_dir = str_replace('_DIR_', '_ROOT_', $dir);
+                    if (defined($root_dir)) {
+                        $dir = $root_dir;
+                    }
+                    $file = str_replace($regs[0], "'." . $dir . ".'", $file);
+                    $file = str_replace("''.", "", $file);
+                    $file = str_replace(constant($dir), '', $file);
+                }
+                $s_inc .= "include_once_check($file);\n";
+            }
+        }
+        if (strlen($s_inc)) {
+            $s_inc = "static \$inc=null;\nif (!\$inc){\n$s_inc\$inc=true;\n}\n";
+        }
+        $content .= "// Pipeline $action \n"
+            . "function execute_pipeline_$action(&\$val){\n"
+            . $s_inc
+            . ((isset($prepend_code[$action]) and strlen($prepend_code[$action])) ? trim($prepend_code[$action]) . "\n" : '')
+            . $s_call
+            . "return \$val;\n}\n";
+    }
+    ecrire_fichier_php(_CACHE_PIPELINES, $content);
+    clear_path_cache();
 }
 
 
@@ -1361,12 +1361,12 @@ 
  *     true si le plugin est actif, false sinon
 **/
 function plugin_est_installe($plug_path) {
-	$plugin_installes = isset($GLOBALS['meta']['plugin_installes']) ? unserialize($GLOBALS['meta']['plugin_installes']) : array();
-	if (!$plugin_installes) {
-		return false;
-	}
+    $plugin_installes = isset($GLOBALS['meta']['plugin_installes']) ? unserialize($GLOBALS['meta']['plugin_installes']) : array();
+    if (!$plugin_installes) {
+        return false;
+    }
 
-	return in_array($plug_path, $plugin_installes);
+    return in_array($plug_path, $plugin_installes);
 }
 
 
@@ -1379,37 +1379,37 @@ 
  * @uses plugins_installer_dist()
  **/
 function plugin_installes_meta() {
-	if (isset($GLOBALS['fichier_php_compile_recent'])) {
-		// attendre eventuellement l'invalidation du cache opcode
-		spip_attend_invalidation_opcode_cache($GLOBALS['fichier_php_compile_recent']);
-	}
-
-	$installer_plugins = charger_fonction('installer', 'plugins');
-	$meta_plug_installes = array();
-	foreach (unserialize($GLOBALS['meta']['plugin']) as $prefix => $resume) {
-		if ($plug = $resume['dir']) {
-			$infos = $installer_plugins($plug, 'install', $resume['dir_type']);
-			if ($infos) {
-				if (!is_array($infos) or $infos['install_test'][0]) {
-					$meta_plug_installes[] = $plug;
-				}
-				if (is_array($infos)) {
-					list($ok, $trace) = $infos['install_test'];
-					include_spip('inc/filtres_boites');
-					echo "<div class='install-plugins svp_retour'>"
-						. boite_ouvrir(_T('plugin_titre_installation', array('plugin' => typo($infos['nom']))),
-							($ok ? 'success' : 'error'))
-						. $trace
-						. "<div class='result'>"
-						. ($ok ? ((isset($infos['upgrade']) && $infos['upgrade']) ? _T("plugin_info_upgrade_ok") : _T("plugin_info_install_ok")) : _T("avis_operation_echec"))
-						. "</div>"
-						. boite_fermer()
-						. "</div>";
-				}
-			}
-		}
-	}
-	ecrire_meta('plugin_installes', serialize($meta_plug_installes), 'non');
+    if (isset($GLOBALS['fichier_php_compile_recent'])) {
+        // attendre eventuellement l'invalidation du cache opcode
+        spip_attend_invalidation_opcode_cache($GLOBALS['fichier_php_compile_recent']);
+    }
+
+    $installer_plugins = charger_fonction('installer', 'plugins');
+    $meta_plug_installes = array();
+    foreach (unserialize($GLOBALS['meta']['plugin']) as $prefix => $resume) {
+        if ($plug = $resume['dir']) {
+            $infos = $installer_plugins($plug, 'install', $resume['dir_type']);
+            if ($infos) {
+                if (!is_array($infos) or $infos['install_test'][0]) {
+                    $meta_plug_installes[] = $plug;
+                }
+                if (is_array($infos)) {
+                    list($ok, $trace) = $infos['install_test'];
+                    include_spip('inc/filtres_boites');
+                    echo "<div class='install-plugins svp_retour'>"
+                        . boite_ouvrir(_T('plugin_titre_installation', array('plugin' => typo($infos['nom']))),
+                            ($ok ? 'success' : 'error'))
+                        . $trace
+                        . "<div class='result'>"
+                        . ($ok ? ((isset($infos['upgrade']) && $infos['upgrade']) ? _T("plugin_info_upgrade_ok") : _T("plugin_info_install_ok")) : _T("avis_operation_echec"))
+                        . "</div>"
+                        . boite_fermer()
+                        . "</div>";
+                }
+            }
+        }
+    }
+    ecrire_meta('plugin_installes', serialize($meta_plug_installes), 'non');
 }
 
 /**
@@ -1423,29 +1423,29 @@ 
  *     Commentaire : code écrit en tout début de fichier, après la balise PHP ouvrante
 **/
 function ecrire_fichier_php($nom, $contenu, $comment = '') {
-	if (!isset($GLOBALS['fichier_php_compile_recent'])) {
-		$GLOBALS['fichier_php_compile_recent'] = 0;
-	}
-
-	$contenu = '<' . '?php' . "\n" . $comment . "\nif (defined('_ECRIRE_INC_VERSION')) {\n" . $contenu . "}\n?" . '>';
-	// si un fichier existe deja on verifie que son contenu change avant de l'ecraser
-	// si pas de modif on ne touche pas au fichier initial
-	if (file_exists($nom)) {
-		if (substr($nom, -4) == '.php') {
-			$fichier_tmp = substr($nom, 0, -4) . '.tmp.php';
-		}
-		else {
-			$fichier_tmp = $nom . '.tmp';
-		}
-		file_put_contents($fichier_tmp, $contenu);
-		if(md5_file($nom) == md5_file($fichier_tmp)) {
-			$GLOBALS['fichier_php_compile_recent'] = max($GLOBALS['fichier_php_compile_recent'], filemtime($nom));
-			@unlink($fichier_tmp);
-			return;
-		}
-		@unlink($fichier_tmp);
-	}
-	ecrire_fichier($nom, $contenu);
-	$GLOBALS['fichier_php_compile_recent'] = max($GLOBALS['fichier_php_compile_recent'], filemtime($nom));
-	spip_clear_opcode_cache(realpath($nom));
+    if (!isset($GLOBALS['fichier_php_compile_recent'])) {
+        $GLOBALS['fichier_php_compile_recent'] = 0;
+    }
+
+    $contenu = '<' . '?php' . "\n" . $comment . "\nif (defined('_ECRIRE_INC_VERSION')) {\n" . $contenu . "}\n?" . '>';
+    // si un fichier existe deja on verifie que son contenu change avant de l'ecraser
+    // si pas de modif on ne touche pas au fichier initial
+    if (file_exists($nom)) {
+        if (substr($nom, -4) == '.php') {
+            $fichier_tmp = substr($nom, 0, -4) . '.tmp.php';
+        }
+        else {
+            $fichier_tmp = $nom . '.tmp';
+        }
+        file_put_contents($fichier_tmp, $contenu);
+        if(md5_file($nom) == md5_file($fichier_tmp)) {
+            $GLOBALS['fichier_php_compile_recent'] = max($GLOBALS['fichier_php_compile_recent'], filemtime($nom));
+            @unlink($fichier_tmp);
+            return;
+        }
+        @unlink($fichier_tmp);
+    }
+    ecrire_fichier($nom, $contenu);
+    $GLOBALS['fichier_php_compile_recent'] = max($GLOBALS['fichier_php_compile_recent'], filemtime($nom));
+    spip_clear_opcode_cache(realpath($nom));
 }

Spacing +47 added lines, -47 removed lines

@@ -22,7 +22,7 @@ 
 
 /** l'adresse du repertoire de telechargement et de decompactage des plugins */
 if (!defined('_DIR_PLUGINS_AUTO')) {
-	define('_DIR_PLUGINS_AUTO', _DIR_PLUGINS . 'auto/');
+	define('_DIR_PLUGINS_AUTO', _DIR_PLUGINS.'auto/');
 }
 
 #include_spip('inc/texte'); // ????? Appelle public/parametrer trop tot avant la reconstruction du chemin des plugins.
@@ -370,7 +370,7 @@ 
 				if ($dir) {
 					$dir .= "/";
 				}
-				$dir .= "procure:" . $procure['nom'];
+				$dir .= "procure:".$procure['nom'];
 
 				$procure['etat'] = '?';
 				$procure['dir_type'] = $resume['dir_type'];
@@ -551,7 +551,7 @@ 
 		$plug = $resume['dir'];
 		$k = $infos[$dir_type][$plug];
 
-		$plug = constant($dir_type) . $plug;
+		$plug = constant($dir_type).$plug;
 		if (!isset($msg[$p])) {
 			if (isset($resume['erreur']) and $resume['erreur']) {
 				$msg[$p] = array($resume['erreur']);
@@ -594,10 +594,10 @@ 
 		$list = $raw ? array() : $GLOBALS['meta']['plugin_erreur_activation'];
 	} elseif (!$raw) {
 		foreach ($list as $plug => $msg) {
-			$list[$plug] = "<li>" . _T('plugin_impossible_activer', array('plugin' => $plug))
-				. "<ul><li>" . implode("</li><li>", $msg) . "</li></ul></li>";
+			$list[$plug] = "<li>"._T('plugin_impossible_activer', array('plugin' => $plug))
+				. "<ul><li>".implode("</li><li>", $msg)."</li></ul></li>";
 		}
-		$list = "<ul>" . join("\n", $list) . "</ul>";
+		$list = "<ul>".join("\n", $list)."</ul>";
 	}
 	if ($raz) {
 		effacer_meta('plugin_erreur_activation');
@@ -711,13 +711,13 @@ 
 			if ($minimum_inclus and spip_version_compare($version, $minimum, '<')) {
 				return _T("plugin_${balise}_${type}", array(
 					'plugin' => $nom,
-					'version' => ' &ge; ' . $minimum
+					'version' => ' &ge; '.$minimum
 				));
 			}
 			if (!$minimum_inclus and spip_version_compare($version, $minimum, '<=')) {
 				return _T("plugin_${balise}_${type}", array(
 					'plugin' => $nom,
-					'version' => ' &gt; ' . $minimum
+					'version' => ' &gt; '.$minimum
 				));
 			}
 		}
@@ -726,13 +726,13 @@ 
 			if ($maximum_inclus and spip_version_compare($version, $maximum, '>')) {
 				return _T("plugin_${balise}_${type}", array(
 					'plugin' => $nom,
-					'version' => ' &le; ' . $maximum
+					'version' => ' &le; '.$maximum
 				));
 			}
 			if (!$maximum_inclus and spip_version_compare($version, $maximum, '>=')) {
 				return _T("plugin_${balise}_plugin", array(
 					'plugin' => $nom,
-					'version' => ' &lt; ' . $maximum
+					'version' => ' &lt; '.$maximum
 				));
 			}
 		}
@@ -751,7 +751,7 @@ 
 		include_spip('inc/charger_plugin');
 		$url = '<br />'	. bouton_telechargement_plugin($url, 'lib');
 	}*/
-	return _T('plugin_necessite_lib', array('lib' => $lib)) . " <a href='$url'>$url</a>";
+	return _T('plugin_necessite_lib', array('lib' => $lib))." <a href='$url'>$url</a>";
 }
 
 
@@ -850,7 +850,7 @@ 
 	foreach ($plugin_valides as $p => $resume) {
 		// Les headers ne doivent pas indiquer les versions des extensions PHP, ni la version PHP
 		if (0 !== strpos($p, 'PHP:') and $p !== 'PHP') {
-			$header[] = $p . ($resume['version'] ? "(" . $resume['version'] . ")" : "");
+			$header[] = $p.($resume['version'] ? "(".$resume['version'].")" : "");
 		}
 		if ($resume['dir']) {
 			foreach ($infos[$resume['dir_type']][$resume['dir']]['lib'] as $l) {
@@ -874,10 +874,10 @@ 
 	ecrire_meta('plugin_attente', serialize($liste));
 	$header = strtolower(implode(",", $header));
 	if (!isset($GLOBALS['spip_header_silencieux']) or !$GLOBALS['spip_header_silencieux']) {
-		ecrire_fichier(_DIR_VAR . "config.txt",
-			(defined('_HEADER_COMPOSED_BY') ? _HEADER_COMPOSED_BY : "Composed-By: SPIP") . ' ' . $GLOBALS['spip_version_affichee'] . " @ www.spip.net + " . $header);
+		ecrire_fichier(_DIR_VAR."config.txt",
+			(defined('_HEADER_COMPOSED_BY') ? _HEADER_COMPOSED_BY : "Composed-By: SPIP").' '.$GLOBALS['spip_version_affichee']." @ www.spip.net + ".$header);
 	} else {
-		@unlink(_DIR_VAR . "config.txt");
+		@unlink(_DIR_VAR."config.txt");
 	}
 	// generer charger_plugins_chemin.php
 	plugins_precompile_chemin($plugin_valides, $ordre);
@@ -931,7 +931,7 @@ 
 			// definir le plugin, donc le path avant l'include du fichier options
 			// permet de faire des include_spip pour attraper un inc_ du plugin
 
-			$dir = $dir_type . ".'" . $plug . "/'";
+			$dir = $dir_type.".'".$plug."/'";
 
 			$prefix = strtoupper(preg_replace(',\W,', '_', $info['prefix']));
 			if (
@@ -942,11 +942,11 @@ 
 				if (!$info['chemin']) {
 					$chemins['public'][] = "_DIR_PLUGIN_$prefix";
 					$chemins['prive'][] = "_DIR_PLUGIN_$prefix";
-					if (is_dir(constant($dir_type) . $plug . '/squelettes/')) {
+					if (is_dir(constant($dir_type).$plug.'/squelettes/')) {
 						$chemins['public'][] = "_DIR_PLUGIN_{$prefix}.'squelettes/'";
 					}
 				}
-				else{
+				else {
 					foreach ($info['chemin'] as $chemin) {
 						if (!isset($chemin['version']) or plugin_version_compatible($chemin['version'],
 								$GLOBALS['spip_version_branche'], 'spip')
@@ -959,13 +959,13 @@ 
 								$dir = '';
 							}
 							if (strlen($dir)) {
-								$dir = rtrim($dir, '/') . '/';
+								$dir = rtrim($dir, '/').'/';
 							}
 							if (!isset($chemin['type']) or $chemin['type'] == 'public') {
-								$chemins['public'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
+								$chemins['public'][] = "_DIR_PLUGIN_$prefix".(strlen($dir) ? ".'$dir'" : "");
 							}
 							if (!isset($chemin['type']) or $chemin['type'] == 'prive') {
-								$chemins['prive'][] = "_DIR_PLUGIN_$prefix" . (strlen($dir) ? ".'$dir'" : "");
+								$chemins['prive'][] = "_DIR_PLUGIN_$prefix".(strlen($dir) ? ".'$dir'" : "");
 							}
 						}
 					}
@@ -974,9 +974,9 @@ 
 		}
 	}
 	if (count($chemins['public']) or count($chemins['prive'])) {
-		$contenu .= "if (_DIR_RESTREINT) _chemin([" . implode(',',
-				array_reverse($chemins['public'])) . "]);\n"
-			. "else _chemin([" . implode(',', array_reverse($chemins['prive'])) . "]);\n";
+		$contenu .= "if (_DIR_RESTREINT) _chemin([".implode(',',
+				array_reverse($chemins['public']))."]);\n"
+			. "else _chemin([".implode(',', array_reverse($chemins['prive']))."]);\n";
 	}
 
 	ecrire_fichier_php(_CACHE_PLUGINS_PATH, $contenu);
@@ -1024,7 +1024,7 @@ 
 					and strpos($dir, ":") === false // exclure le cas des procure:
 					and file_exists("$dir$plug/paquet.xml") // uniquement pour les paquet.xml
 				) {
-					if (is_readable("$dir$plug/" . ($file = $info['prefix'] . "_" . $charge . ".php"))) {
+					if (is_readable("$dir$plug/".($file = $info['prefix']."_".$charge.".php"))) {
 						$info[$charge] = array($file);
 					}
 				}
@@ -1040,7 +1040,7 @@ 
 						) {
 							unset($info[$charge][$k]);
 						} else {
-							$_file = $root_dir_type . ".'$plug/$file'";
+							$_file = $root_dir_type.".'$plug/$file'";
 							$contenu[$charge] .= "include_once_check($_file);\n";
 						}
 					}
@@ -1050,7 +1050,7 @@ 
 		}
 	}
 
-	$contenu['options'] = "define('_PLUGINS_HASH','" . md5($sign) . "');\n" . $contenu['options'];
+	$contenu['options'] = "define('_PLUGINS_HASH','".md5($sign)."');\n".$contenu['options'];
 	$contenu['fonctions'] .= plugin_ongletbouton("boutons_plugins", $boutons)
 		. plugin_ongletbouton("onglets_plugins", $onglets);
 
@@ -1085,12 +1085,12 @@ 
 		define("_UPDATED_$nom", $val);
 		define("_UPDATED_md5_$nom", $md5);
 	}
-	$val = "unserialize('" . str_replace("'", "\'", $val) . "')";
+	$val = "unserialize('".str_replace("'", "\'", $val)."')";
 
 	return
 		"if (!function_exists('$nom')) {\n"
 		. "function $nom(){return defined('_UPDATED_$nom')?unserialize(_UPDATED_$nom):$val;}\n"
-		. "function md5_$nom(){return defined('_UPDATED_md5_$nom')?_UPDATED_md5_$nom:'" . $md5 . "';}\n"
+		. "function md5_$nom(){return defined('_UPDATED_md5_$nom')?_UPDATED_md5_$nom:'".$md5."';}\n"
 		. "}\n";
 }
 
@@ -1113,7 +1113,7 @@ 
 	if (@is_readable(_CACHE_PLUGINS_OPT)) {
 		include_once(_CACHE_PLUGINS_OPT);
 	} else {
-		spip_log("pipelines desactives: impossible de produire " . _CACHE_PLUGINS_OPT);
+		spip_log("pipelines desactives: impossible de produire "._CACHE_PLUGINS_OPT);
 	}
 }
 
@@ -1150,7 +1150,7 @@ 
 			$dir_type = $plugin_valides[$p]['dir_type'];
 			$root_dir_type = str_replace('_DIR_', '_ROOT_', $dir_type);
 			$plug = $plugin_valides[$p]['dir'];
-			$prefix = (($info['prefix'] == "spip") ? "" : $info['prefix'] . "_");
+			$prefix = (($info['prefix'] == "spip") ? "" : $info['prefix']."_");
 			if (isset($info['pipeline']) and is_array($info['pipeline'])) {
 				foreach ($info['pipeline'] as $pipe) {
 					$nom = $pipe['nom'];
@@ -1180,7 +1180,7 @@ 
 						}
 						if (isset($pipe['inclure'])) {
 							$GLOBALS['spip_matrice']["$prefix$action"] =
-								"$root_dir_type:$plug/" . $pipe['inclure'];
+								"$root_dir_type:$plug/".$pipe['inclure'];
 						}
 					}
 				}
@@ -1190,7 +1190,7 @@ 
 					$prepend_code['taches_generales_cron'] = "";
 				}
 				foreach ($info['genie'] as $genie) {
-					$nom = $prefix . $genie['nom'];
+					$nom = $prefix.$genie['nom'];
 					$periode = max(60, intval($genie['periode']));
 					if (charger_fonction($nom, "genie", true)) {
 						$prepend_code['taches_generales_cron'] .= "\$val['$nom'] = $periode;\n";
@@ -1208,13 +1208,13 @@ 
 				}
 				foreach ($info['style'] as $style) {
 					if (isset($style['path']) and $style['path']) {
-						$code = "if (\$f=timestamp(direction_css(find_in_path('" . addslashes($style['path']) . "')))) ";
+						$code = "if (\$f=timestamp(direction_css(find_in_path('".addslashes($style['path'])."')))) ";
 					} else {
-						$code = "if (\$f='" . addslashes($style['url']) . "') ";
+						$code = "if (\$f='".addslashes($style['url'])."') ";
 					}
 					$code .= "\$val .= '<link rel=\"stylesheet\" href=\"'.\$f.'\" type=\"text/css\"";
 					if (isset($style['media']) and strlen($style['media'])) {
-						$code .= " media=\"" . addslashes($style['media']) . "\"";
+						$code .= " media=\"".addslashes($style['media'])."\"";
 					}
 					$code .= "/>';\n";
 					if ($style['type'] != 'prive') {
@@ -1234,9 +1234,9 @@ 
 			if (isset($info['script']) and count($info['script'])) {
 				foreach ($info['script'] as $script) {
 					if (isset($script['path']) and $script['path']) {
-						$code = "if (\$f=timestamp(find_in_path('" . addslashes($script['path']) . "'))) ";
+						$code = "if (\$f=timestamp(find_in_path('".addslashes($script['path'])."'))) ";
 					} else {
-						$code = "if (\$f='" . addslashes($script['url']) . "') ";
+						$code = "if (\$f='".addslashes($script['url'])."') ";
 					}
 					$code .= "\$val .= '<script src=\"'.\$f.'\" type=\"text/javascript\"></script>';\n";
 					if ($script['type'] != 'prive') {
@@ -1299,10 +1299,10 @@ 
 		unset($GLOBALS['spip_pipeline']['all']);
 		$all_pipes = trim(array_shift($a));
 		if ($all_pipes) {
-			$all_pipes = '|' . ltrim($all_pipes, '|');
+			$all_pipes = '|'.ltrim($all_pipes, '|');
 		}
 		if (count($a)) {
-			$all_pipes_end = '||' . array_shift($a);
+			$all_pipes_end = '||'.array_shift($a);
 		}
 	}
 	$content = "";
@@ -1319,7 +1319,7 @@ 
 		// Eclater le pipeline en filtres et appliquer chaque filtre
 		foreach ($pipe as $fonc) {
 			$fonc = trim($fonc);
-			$s_call .= '$val = minipipe(\'' . $fonc . '\', $val);' . "\n";
+			$s_call .= '$val = minipipe(\''.$fonc.'\', $val);'."\n";
 			if (isset($GLOBALS['spip_matrice'][$fonc])) {
 				$file = $GLOBALS['spip_matrice'][$fonc];
 				$file = "'$file'";
@@ -1330,7 +1330,7 @@ 
 					if (defined($root_dir)) {
 						$dir = $root_dir;
 					}
-					$file = str_replace($regs[0], "'." . $dir . ".'", $file);
+					$file = str_replace($regs[0], "'.".$dir.".'", $file);
 					$file = str_replace("''.", "", $file);
 					$file = str_replace(constant($dir), '', $file);
 				}
@@ -1343,7 +1343,7 @@ 
 		$content .= "// Pipeline $action \n"
 			. "function execute_pipeline_$action(&\$val){\n"
 			. $s_inc
-			. ((isset($prepend_code[$action]) and strlen($prepend_code[$action])) ? trim($prepend_code[$action]) . "\n" : '')
+			. ((isset($prepend_code[$action]) and strlen($prepend_code[$action])) ? trim($prepend_code[$action])."\n" : '')
 			. $s_call
 			. "return \$val;\n}\n";
 	}
@@ -1427,18 +1427,18 @@ 
 		$GLOBALS['fichier_php_compile_recent'] = 0;
 	}
 
-	$contenu = '<' . '?php' . "\n" . $comment . "\nif (defined('_ECRIRE_INC_VERSION')) {\n" . $contenu . "}\n?" . '>';
+	$contenu = '<'.'?php'."\n".$comment."\nif (defined('_ECRIRE_INC_VERSION')) {\n".$contenu."}\n?".'>';
 	// si un fichier existe deja on verifie que son contenu change avant de l'ecraser
 	// si pas de modif on ne touche pas au fichier initial
 	if (file_exists($nom)) {
 		if (substr($nom, -4) == '.php') {
-			$fichier_tmp = substr($nom, 0, -4) . '.tmp.php';
+			$fichier_tmp = substr($nom, 0, -4).'.tmp.php';
 		}
 		else {
-			$fichier_tmp = $nom . '.tmp';
+			$fichier_tmp = $nom.'.tmp';
 		}
 		file_put_contents($fichier_tmp, $contenu);
-		if(md5_file($nom) == md5_file($fichier_tmp)) {
+		if (md5_file($nom) == md5_file($fichier_tmp)) {
 			$GLOBALS['fichier_php_compile_recent'] = max($GLOBALS['fichier_php_compile_recent'], filemtime($nom));
 			@unlink($fichier_tmp);
 			return;

ecrire/inc/prepare_recherche.php

Doc Comments +1 added lines, -1 removed lines

@@ -165,7 +165,7 @@
  * @param string $primary
  * @param array $rows
  * @param string $serveur
- * @return array
+ * @return string[]
  */
 function generer_select_where_explicites($table, $primary, $rows, $serveur) {
 	# calculer le {id_article IN()} et le {... as points}

Indentation +124 added lines, -124 removed lines

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

Spacing +4 added lines, -4 removed lines

@@ -80,10 +80,10 @@ 
 	$where_resultat_recent = sql_date_proche('maj', (0 - ($delai_fraicheur + 100)), " SECOND");
 	if (!isset($cache[$serveur][$table][$recherche])) {
 		$hash_serv = ($serveur ? substr(md5($serveur), 0, 16) : '');
-		$hash = substr(md5($recherche . $table), 0, 16);
-		$where = "(resultats.recherche='$hash' AND resultats.table_objet=" . sql_quote($table) . " AND resultats.serveur='$hash_serv')";
+		$hash = substr(md5($recherche.$table), 0, 16);
+		$where = "(resultats.recherche='$hash' AND resultats.table_objet=".sql_quote($table)." AND resultats.serveur='$hash_serv')";
 		$row = sql_fetsel('recherche', 'spip_resultats AS resultats',
-			$where . " AND $where_resultat_recent", '', '', '0,1');
+			$where." AND $where_resultat_recent", '', '', '0,1');
 		if (!$row
 			or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
 		) {
@@ -180,7 +180,7 @@ 
 		}
 
 		foreach ($listes_ids as $p => $ids) {
-			$select .= "+$p*(" .
+			$select .= "+$p*(".
 				sql_in("$table.$primary", $ids, '', $serveur)
 				. ") ";
 		}

ecrire/inc/texte.php

Doc Comments +2 added lines, -2 removed lines

@@ -31,7 +31,7 @@ 
 /**
  * Raccourcis dépendant du sens de la langue
  *
- * @return array Tablea ('','')
+ * @return string[] Tablea ('','')
  */
 function definir_raccourcis_alineas() {
 	return array('', '');
@@ -354,7 +354,7 @@ 
  * Ne fait rien ici. Voir plugin Textwheel
  *
  * @param string $letexte
- * @param null $forcer
+ * @param boolean|null $forcer
  * @return string
  */
 function paragrapher($letexte, $forcer = true) {

Indentation +220 added lines, -220 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte_mini');
@@ -34,7 +34,7 @@ 
  * @return array Tablea ('','')
  */
 function definir_raccourcis_alineas() {
-	return array('', '');
+    return array('', '');
 }
 
 
@@ -47,7 +47,7 @@ 
  * @return string
  */
 function traiter_tableau($bloc) {
-	return $bloc;
+    return $bloc;
 }
 
 
@@ -61,7 +61,7 @@ 
  * @return string
  */
 function traiter_listes($texte) {
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -77,16 +77,16 @@ 
  */
 function traiter_raccourcis($letexte) {
 
-	// Appeler les fonctions de pre_traitement
-	$letexte = pipeline('pre_propre', $letexte);
+    // Appeler les fonctions de pre_traitement
+    $letexte = pipeline('pre_propre', $letexte);
 
-	// APPELER ICI UN PIPELINE traiter_raccourcis ?
-	// $letexte = pipeline('traiter_raccourcis', $letexte);
+    // APPELER ICI UN PIPELINE traiter_raccourcis ?
+    // $letexte = pipeline('traiter_raccourcis', $letexte);
 
-	// Appeler les fonctions de post-traitement
-	$letexte = pipeline('post_propre', $letexte);
+    // Appeler les fonctions de post-traitement
+    $letexte = pipeline('post_propre', $letexte);
 
-	return $letexte;
+    return $letexte;
 }
 
 /*************************************************************************************************************************
@@ -102,19 +102,19 @@ 
  * @return string
  */
 function echappe_js($t, $class = ' class = "echappe-js"') {
-	foreach (array('script', 'iframe') as $tag) {
-		if (stripos($t, "<$tag") !== false
-			and preg_match_all(',<' . $tag . '.*?($|</' . $tag . '.),isS', $t, $r, PREG_SET_ORDER)
-		) {
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0],
-					"<code$class>" . nl2br(spip_htmlspecialchars($regs[0])) . '</code>',
-					$t);
-			}
-		}
-	}
-
-	return $t;
+    foreach (array('script', 'iframe') as $tag) {
+        if (stripos($t, "<$tag") !== false
+            and preg_match_all(',<' . $tag . '.*?($|</' . $tag . '.),isS', $t, $r, PREG_SET_ORDER)
+        ) {
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0],
+                    "<code$class>" . nl2br(spip_htmlspecialchars($regs[0])) . '</code>',
+                    $t);
+            }
+        }
+    }
+
+    return $t;
 }
 
 
@@ -143,55 +143,55 @@ 
  *     Code protégé
  **/
 function interdire_scripts($arg, $mode_filtre=null) {
-	// on memorise le resultat sur les arguments non triviaux
-	static $dejavu = array();
-
-	// Attention, si ce n'est pas une chaine, laisser intact
-	if (!$arg or !is_string($arg) or !strstr($arg, '<')) {
-		return $arg;
-	}
-
-	if (is_null($mode_filtre) or !in_array($mode_filtre, array(-1, 0, 1))) {
-		$mode_filtre = $GLOBALS['filtrer_javascript'];
-	}
-
-	if (isset($dejavu[$mode_filtre][$arg])) {
-		return $dejavu[$mode_filtre][$arg];
-	}
-
-	// echapper les tags asp/php
-	$t = str_replace('<' . '%', '&lt;%', $arg);
-
-	// echapper le php
-	$t = str_replace('<' . '?', '&lt;?', $t);
-
-	// echapper le < script language=php >
-	$t = preg_replace(',<(script\b[^>]+\blanguage\b[^\w>]+php\b),UimsS', '&lt;\1', $t);
-
-	// Pour le js, trois modes : parano (-1), prive (0), ok (1)
-	switch ($mode_filtre) {
-		case 0:
-			if (!_DIR_RESTREINT) {
-				$t = echappe_js($t);
-			}
-			break;
-		case -1:
-			$t = echappe_js($t);
-			break;
-	}
-
-	// pas de <base href /> svp !
-	$t = preg_replace(',<(base\b),iS', '&lt;\1', $t);
-
-	// Reinserer les echappements des modeles
-	if (defined('_PROTEGE_JS_MODELES')) {
-		$t = echappe_retour($t, "javascript" . _PROTEGE_JS_MODELES);
-	}
-	if (defined('_PROTEGE_PHP_MODELES')) {
-		$t = echappe_retour($t, "php" . _PROTEGE_PHP_MODELES);
-	}
-
-	return $dejavu[$mode_filtre][$arg] = $t;
+    // on memorise le resultat sur les arguments non triviaux
+    static $dejavu = array();
+
+    // Attention, si ce n'est pas une chaine, laisser intact
+    if (!$arg or !is_string($arg) or !strstr($arg, '<')) {
+        return $arg;
+    }
+
+    if (is_null($mode_filtre) or !in_array($mode_filtre, array(-1, 0, 1))) {
+        $mode_filtre = $GLOBALS['filtrer_javascript'];
+    }
+
+    if (isset($dejavu[$mode_filtre][$arg])) {
+        return $dejavu[$mode_filtre][$arg];
+    }
+
+    // echapper les tags asp/php
+    $t = str_replace('<' . '%', '&lt;%', $arg);
+
+    // echapper le php
+    $t = str_replace('<' . '?', '&lt;?', $t);
+
+    // echapper le < script language=php >
+    $t = preg_replace(',<(script\b[^>]+\blanguage\b[^\w>]+php\b),UimsS', '&lt;\1', $t);
+
+    // Pour le js, trois modes : parano (-1), prive (0), ok (1)
+    switch ($mode_filtre) {
+        case 0:
+            if (!_DIR_RESTREINT) {
+                $t = echappe_js($t);
+            }
+            break;
+        case -1:
+            $t = echappe_js($t);
+            break;
+    }
+
+    // pas de <base href /> svp !
+    $t = preg_replace(',<(base\b),iS', '&lt;\1', $t);
+
+    // Reinserer les echappements des modeles
+    if (defined('_PROTEGE_JS_MODELES')) {
+        $t = echappe_retour($t, "javascript" . _PROTEGE_JS_MODELES);
+    }
+    if (defined('_PROTEGE_PHP_MODELES')) {
+        $t = echappe_retour($t, "php" . _PROTEGE_PHP_MODELES);
+    }
+
+    return $dejavu[$mode_filtre][$arg] = $t;
 }
 
 
@@ -220,64 +220,64 @@ 
  *     Texte transformé
  **/
 function typo($letexte, $echapper = true, $connect = null, $env = array()) {
-	// Plus vite !
-	if (!$letexte) {
-		return $letexte;
-	}
-
-	// les appels directs a cette fonction depuis le php de l'espace
-	// prive etant historiquement ecrit sans argment $connect
-	// on utilise la presence de celui-ci pour distinguer les cas
-	// ou il faut passer interdire_script explicitement
-	// les appels dans les squelettes (de l'espace prive) fournissant un $connect
-	// ne seront pas perturbes
-	$interdire_script = false;
-	if (is_null($connect)) {
-		$connect = '';
-		$interdire_script = true;
-		$env['espace_prive'] = test_espace_prive();
-	}
-
-	// Echapper les codes <html> etc
-	if ($echapper) {
-		$letexte = echappe_html($letexte, 'TYPO');
-	}
-
-	//
-	// Installer les modeles, notamment images et documents ;
-	//
-	// NOTE : propre() ne passe pas par ici mais directement par corriger_typo
-	// cf. inc/lien
-
-	$letexte = traiter_modeles($mem = $letexte, false, $echapper ? 'TYPO' : '', $connect, null, $env);
-	if ($letexte != $mem) {
-		$echapper = true;
-	}
-	unset($mem);
-
-	$letexte = corriger_typo($letexte);
-	$letexte = echapper_faux_tags($letexte);
-
-	// reintegrer les echappements
-	if ($echapper) {
-		$letexte = echappe_retour($letexte, 'TYPO');
-	}
-
-	// Dans les appels directs hors squelette, securiser ici aussi
-	if ($interdire_script) {
-		$letexte = interdire_scripts($letexte);
-	}
-
-	// Dans l'espace prive on se mefie de tout contenu dangereux
-	// https://core.spip.net/issues/3371
-	// et aussi dans l'espace public si la globale filtrer_javascript = -1
-	// https://core.spip.net/issues/4166
-	if ($GLOBALS['filtrer_javascript'] == -1
-	  or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)) {
-		$letexte = echapper_html_suspect($letexte);
-	}
-
-	return $letexte;
+    // Plus vite !
+    if (!$letexte) {
+        return $letexte;
+    }
+
+    // les appels directs a cette fonction depuis le php de l'espace
+    // prive etant historiquement ecrit sans argment $connect
+    // on utilise la presence de celui-ci pour distinguer les cas
+    // ou il faut passer interdire_script explicitement
+    // les appels dans les squelettes (de l'espace prive) fournissant un $connect
+    // ne seront pas perturbes
+    $interdire_script = false;
+    if (is_null($connect)) {
+        $connect = '';
+        $interdire_script = true;
+        $env['espace_prive'] = test_espace_prive();
+    }
+
+    // Echapper les codes <html> etc
+    if ($echapper) {
+        $letexte = echappe_html($letexte, 'TYPO');
+    }
+
+    //
+    // Installer les modeles, notamment images et documents ;
+    //
+    // NOTE : propre() ne passe pas par ici mais directement par corriger_typo
+    // cf. inc/lien
+
+    $letexte = traiter_modeles($mem = $letexte, false, $echapper ? 'TYPO' : '', $connect, null, $env);
+    if ($letexte != $mem) {
+        $echapper = true;
+    }
+    unset($mem);
+
+    $letexte = corriger_typo($letexte);
+    $letexte = echapper_faux_tags($letexte);
+
+    // reintegrer les echappements
+    if ($echapper) {
+        $letexte = echappe_retour($letexte, 'TYPO');
+    }
+
+    // Dans les appels directs hors squelette, securiser ici aussi
+    if ($interdire_script) {
+        $letexte = interdire_scripts($letexte);
+    }
+
+    // Dans l'espace prive on se mefie de tout contenu dangereux
+    // https://core.spip.net/issues/3371
+    // et aussi dans l'espace public si la globale filtrer_javascript = -1
+    // https://core.spip.net/issues/4166
+    if ($GLOBALS['filtrer_javascript'] == -1
+      or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)) {
+        $letexte = echapper_html_suspect($letexte);
+    }
+
+    return $letexte;
 }
 
 // Correcteur typographique
@@ -302,57 +302,57 @@ 
  */
 function corriger_typo($letexte, $lang = '') {
 
-	// Plus vite !
-	if (!$letexte) {
-		return $letexte;
-	}
-
-	$letexte = pipeline('pre_typo', $letexte);
-
-	// Caracteres de controle "illegaux"
-	$letexte = corriger_caracteres($letexte);
-
-	// Proteger les caracteres typographiques a l'interieur des tags html
-	if (preg_match_all(_TYPO_BALISE, $letexte, $regs, PREG_SET_ORDER)) {
-		foreach ($regs as $reg) {
-			$insert = $reg[0];
-			// hack: on transforme les caracteres a proteger en les remplacant
-			// par des caracteres "illegaux". (cf corriger_caracteres())
-			$insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
-			$letexte = str_replace($reg[0], $insert, $letexte);
-		}
-	}
-
-	// trouver les blocs idiomes et les traiter à part
-	$letexte = extraire_idiome($ei = $letexte, $lang, true);
-	$ei = ($ei !== $letexte);
-
-	// trouver les blocs multi et les traiter a part
-	$letexte = extraire_multi($em = $letexte, $lang, true);
-	$em = ($em !== $letexte);
-
-	// Charger & appliquer les fonctions de typographie
-	$typographie = charger_fonction(lang_typo($lang), 'typographie');
-	$letexte = $typographie($letexte);
-
-	// Les citations en une autre langue, s'il y a lieu
-	if ($em) {
-		$letexte = echappe_retour($letexte, 'multi');
-	}
-	if ($ei) {
-		$letexte = echappe_retour($letexte, 'idiome');
-	}
-
-	// Retablir les caracteres proteges
-	$letexte = strtr($letexte, _TYPO_PROTECTEUR, _TYPO_PROTEGER);
-
-	// pipeline
-	$letexte = pipeline('post_typo', $letexte);
-
-	# un message pour abs_url - on est passe en mode texte
-	$GLOBALS['mode_abs_url'] = 'texte';
-
-	return $letexte;
+    // Plus vite !
+    if (!$letexte) {
+        return $letexte;
+    }
+
+    $letexte = pipeline('pre_typo', $letexte);
+
+    // Caracteres de controle "illegaux"
+    $letexte = corriger_caracteres($letexte);
+
+    // Proteger les caracteres typographiques a l'interieur des tags html
+    if (preg_match_all(_TYPO_BALISE, $letexte, $regs, PREG_SET_ORDER)) {
+        foreach ($regs as $reg) {
+            $insert = $reg[0];
+            // hack: on transforme les caracteres a proteger en les remplacant
+            // par des caracteres "illegaux". (cf corriger_caracteres())
+            $insert = strtr($insert, _TYPO_PROTEGER, _TYPO_PROTECTEUR);
+            $letexte = str_replace($reg[0], $insert, $letexte);
+        }
+    }
+
+    // trouver les blocs idiomes et les traiter à part
+    $letexte = extraire_idiome($ei = $letexte, $lang, true);
+    $ei = ($ei !== $letexte);
+
+    // trouver les blocs multi et les traiter a part
+    $letexte = extraire_multi($em = $letexte, $lang, true);
+    $em = ($em !== $letexte);
+
+    // Charger & appliquer les fonctions de typographie
+    $typographie = charger_fonction(lang_typo($lang), 'typographie');
+    $letexte = $typographie($letexte);
+
+    // Les citations en une autre langue, s'il y a lieu
+    if ($em) {
+        $letexte = echappe_retour($letexte, 'multi');
+    }
+    if ($ei) {
+        $letexte = echappe_retour($letexte, 'idiome');
+    }
+
+    // Retablir les caracteres proteges
+    $letexte = strtr($letexte, _TYPO_PROTECTEUR, _TYPO_PROTEGER);
+
+    // pipeline
+    $letexte = pipeline('post_typo', $letexte);
+
+    # un message pour abs_url - on est passe en mode texte
+    $GLOBALS['mode_abs_url'] = 'texte';
+
+    return $letexte;
 }
 
 
@@ -368,7 +368,7 @@ 
  * @return string
  */
 function paragrapher($letexte, $forcer = true) {
-	return $letexte;
+    return $letexte;
 }
 
 /**
@@ -380,11 +380,11 @@ 
  * @return string Texte
  **/
 function traiter_retours_chariots($letexte) {
-	$letexte = preg_replace(",\r\n?,S", "\n", $letexte);
-	$letexte = preg_replace(",<p[>[:space:]],iS", "\n\n\\0", $letexte);
-	$letexte = preg_replace(",</p[>[:space:]],iS", "\\0\n\n", $letexte);
+    $letexte = preg_replace(",\r\n?,S", "\n", $letexte);
+    $letexte = preg_replace(",<p[>[:space:]],iS", "\n\n\\0", $letexte);
+    $letexte = preg_replace(",</p[>[:space:]],iS", "\\0\n\n", $letexte);
 
-	return $letexte;
+    return $letexte;
 }
 
 
@@ -410,37 +410,37 @@ 
  *     Texte transformé
  **/
 function propre($t, $connect = null, $env = array()) {
-	// les appels directs a cette fonction depuis le php de l'espace
-	// prive etant historiquement ecrits sans argment $connect
-	// on utilise la presence de celui-ci pour distinguer les cas
-	// ou il faut passer interdire_script explicitement
-	// les appels dans les squelettes (de l'espace prive) fournissant un $connect
-	// ne seront pas perturbes
-	$interdire_script = false;
-	if (is_null($connect)) {
-		$connect = '';
-		$interdire_script = true;
-	}
-
-	if (!$t) {
-		return strval($t);
-	}
-
-	// Dans l'espace prive on se mefie de tout contenu dangereux
-	// avant echappement des balises <html>
-	// https://core.spip.net/issues/3371
-	// et aussi dans l'espace public si la globale filtrer_javascript = -1
-	// https://core.spip.net/issues/4166
-	if ($interdire_script
-		or $GLOBALS['filtrer_javascript'] == -1
-		or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)
-		or (isset($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript']<=0)) {
-		$t = echapper_html_suspect($t, false);
-	}
-	$t = echappe_html($t);
-	$t = expanser_liens($t, $connect, $env);
-	$t = traiter_raccourcis($t);
-	$t = echappe_retour_modeles($t, $interdire_script);
-
-	return $t;
+    // les appels directs a cette fonction depuis le php de l'espace
+    // prive etant historiquement ecrits sans argment $connect
+    // on utilise la presence de celui-ci pour distinguer les cas
+    // ou il faut passer interdire_script explicitement
+    // les appels dans les squelettes (de l'espace prive) fournissant un $connect
+    // ne seront pas perturbes
+    $interdire_script = false;
+    if (is_null($connect)) {
+        $connect = '';
+        $interdire_script = true;
+    }
+
+    if (!$t) {
+        return strval($t);
+    }
+
+    // Dans l'espace prive on se mefie de tout contenu dangereux
+    // avant echappement des balises <html>
+    // https://core.spip.net/issues/3371
+    // et aussi dans l'espace public si la globale filtrer_javascript = -1
+    // https://core.spip.net/issues/4166
+    if ($interdire_script
+        or $GLOBALS['filtrer_javascript'] == -1
+        or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)
+        or (isset($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript']<=0)) {
+        $t = echapper_html_suspect($t, false);
+    }
+    $t = echappe_html($t);
+    $t = expanser_liens($t, $connect, $env);
+    $t = traiter_raccourcis($t);
+    $t = echappe_retour_modeles($t, $interdire_script);
+
+    return $t;
 }

Spacing +11 added lines, -11 removed lines

@@ -104,11 +104,11 @@ 
 function echappe_js($t, $class = ' class = "echappe-js"') {
 	foreach (array('script', 'iframe') as $tag) {
 		if (stripos($t, "<$tag") !== false
-			and preg_match_all(',<' . $tag . '.*?($|</' . $tag . '.),isS', $t, $r, PREG_SET_ORDER)
+			and preg_match_all(',<'.$tag.'.*?($|</'.$tag.'.),isS', $t, $r, PREG_SET_ORDER)
 		) {
 			foreach ($r as $regs) {
 				$t = str_replace($regs[0],
-					"<code$class>" . nl2br(spip_htmlspecialchars($regs[0])) . '</code>',
+					"<code$class>".nl2br(spip_htmlspecialchars($regs[0])).'</code>',
 					$t);
 			}
 		}
@@ -142,7 +142,7 @@ 
  * @return string
  *     Code protégé
  **/
-function interdire_scripts($arg, $mode_filtre=null) {
+function interdire_scripts($arg, $mode_filtre = null) {
 	// on memorise le resultat sur les arguments non triviaux
 	static $dejavu = array();
 
@@ -160,10 +160,10 @@ 
 	}
 
 	// echapper les tags asp/php
-	$t = str_replace('<' . '%', '&lt;%', $arg);
+	$t = str_replace('<'.'%', '&lt;%', $arg);
 
 	// echapper le php
-	$t = str_replace('<' . '?', '&lt;?', $t);
+	$t = str_replace('<'.'?', '&lt;?', $t);
 
 	// echapper le < script language=php >
 	$t = preg_replace(',<(script\b[^>]+\blanguage\b[^\w>]+php\b),UimsS', '&lt;\1', $t);
@@ -185,10 +185,10 @@ 
 
 	// Reinserer les echappements des modeles
 	if (defined('_PROTEGE_JS_MODELES')) {
-		$t = echappe_retour($t, "javascript" . _PROTEGE_JS_MODELES);
+		$t = echappe_retour($t, "javascript"._PROTEGE_JS_MODELES);
 	}
 	if (defined('_PROTEGE_PHP_MODELES')) {
-		$t = echappe_retour($t, "php" . _PROTEGE_PHP_MODELES);
+		$t = echappe_retour($t, "php"._PROTEGE_PHP_MODELES);
 	}
 
 	return $dejavu[$mode_filtre][$arg] = $t;
@@ -273,7 +273,7 @@ 
 	// et aussi dans l'espace public si la globale filtrer_javascript = -1
 	// https://core.spip.net/issues/4166
 	if ($GLOBALS['filtrer_javascript'] == -1
-	  or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)) {
+	  or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript'] <= 0)) {
 		$letexte = echapper_html_suspect($letexte);
 	}
 
@@ -284,7 +284,7 @@ 
 define('_TYPO_PROTEGER', "!':;?~%-");
 define('_TYPO_PROTECTEUR', "\x1\x2\x3\x4\x5\x6\x7\x8");
 
-define('_TYPO_BALISE', ",</?[a-z!][^<>]*[" . preg_quote(_TYPO_PROTEGER) . "][^<>]*>,imsS");
+define('_TYPO_BALISE', ",</?[a-z!][^<>]*[".preg_quote(_TYPO_PROTEGER)."][^<>]*>,imsS");
 
 /**
  * Corrige la typographie
@@ -433,8 +433,8 @@ 
 	// https://core.spip.net/issues/4166
 	if ($interdire_script
 		or $GLOBALS['filtrer_javascript'] == -1
-		or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript']<=0)
-		or (isset($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript']<=0)) {
+		or (isset($env['espace_prive']) and $env['espace_prive'] and $GLOBALS['filtrer_javascript'] <= 0)
+		or (isset($env['wysiwyg']) and $env['wysiwyg'] and $GLOBALS['filtrer_javascript'] <= 0)) {
 		$t = echapper_html_suspect($t, false);
 	}
 	$t = echappe_html($t);

ecrire/inc/xml.php

Doc Comments +1 added lines, -1 removed lines

@@ -245,7 +245,7 @@
  * @param array $matches
  *     Branches de l'arbre validant la rexgep
  * @param bool $init ?
- * @return bool
+ * @return integer
  *     false si aucun élément ne valide l'expression régulière, true sinon.
  **/
 function spip_xml_match_nodes($regexp, &$arbre, &$matches, $init = true) {

Spacing +1 added lines, -1 removed lines

@@ -135,7 +135,7 @@
 				while (
 					$p !== false
 					and ($morceau = substr($txt, $d, $p - $d))
-					and (($nopen += preg_match_all("{<" . preg_quote($closing_tag) . "(\s*>|\s[^>]*[^/>]>)}is", $morceau,
+					and (($nopen += preg_match_all("{<".preg_quote($closing_tag)."(\s*>|\s[^>]*[^/>]>)}is", $morceau,
 							$matches, PREG_SET_ORDER)) > $nclose)
 				) {
 					$nclose++;

Braces +3 added lines, -1 removed lines

@@ -154,9 +154,11 @@
 			}
 			$content = substr($txt, 0, $p);
 			$txt = substr($txt, $p + $ncclos);
-			if ($profondeur == 0 or strpos($content, "<") === false) // eviter une recursion si pas utile
+			if ($profondeur == 0 or strpos($content, "<") === false) {
+			    // eviter une recursion si pas utile
 			{
 				$out[$tag][] = importer_charset($content, $charset);
+			}
 			}//$content;
 			else {
 				$out[$tag][] = spip_xml_parse($content, $strict, $clean, $profondeur - 1);

Indentation +153 added lines, -153 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -47,23 +47,23 @@ 
  *     - false si l'arbre xml ne peut être créé ou est vide
  **/
 function spip_xml_load($fichier, $strict = true, $clean = true, $taille_max = 1048576, $datas = '', $profondeur = -1) {
-	$contenu = "";
-	if (tester_url_absolue($fichier)) {
-		include_spip('inc/distant');
-		$contenu = recuperer_page($fichier, false, false, $taille_max, $datas);
-	} else {
-		lire_fichier($fichier, $contenu);
-	}
-	$arbre = array();
-	if ($contenu) {
-		$arbre = spip_xml_parse($contenu, $strict, $clean, $profondeur);
-	}
+    $contenu = "";
+    if (tester_url_absolue($fichier)) {
+        include_spip('inc/distant');
+        $contenu = recuperer_page($fichier, false, false, $taille_max, $datas);
+    } else {
+        lire_fichier($fichier, $contenu);
+    }
+    $arbre = array();
+    if ($contenu) {
+        $arbre = spip_xml_parse($contenu, $strict, $clean, $profondeur);
+    }
 
-	return count($arbre) ? $arbre : false;
+    return count($arbre) ? $arbre : false;
 }
 
 if (!defined('_SPIP_XML_TAG_SPLIT')) {
-	define('_SPIP_XML_TAG_SPLIT', "{<([^:>][^>]*?)>}sS");
+    define('_SPIP_XML_TAG_SPLIT', "{<([^:>][^>]*?)>}sS");
 }
 
 /**
@@ -82,150 +82,150 @@ 
  *     - false si l'arbre xml ne peut être créé ou est vide
  **/
 function spip_xml_parse(&$texte, $strict = true, $clean = true, $profondeur = -1) {
-	$out = array();
-	// enlever les commentaires
-	$charset = 'AUTO';
-	if ($clean === true) {
-		if (preg_match(",<\?xml\s(.*?)encoding=['\"]?(.*?)['\"]?(\s(.*))?\?>,im", $texte, $regs)) {
-			$charset = $regs[2];
-		}
-		$texte = preg_replace(',<!--(.*?)-->,is', '', $texte);
-		$texte = preg_replace(',<\?(.*?)\?>,is', '', $texte);
-		include_spip('inc/charsets');
-		$clean = $charset;
-		//$texte = importer_charset($texte,$charset);
-	}
-	if (is_string($clean)) {
-		$charset = $clean;
-	}
-	$txt = $texte;
+    $out = array();
+    // enlever les commentaires
+    $charset = 'AUTO';
+    if ($clean === true) {
+        if (preg_match(",<\?xml\s(.*?)encoding=['\"]?(.*?)['\"]?(\s(.*))?\?>,im", $texte, $regs)) {
+            $charset = $regs[2];
+        }
+        $texte = preg_replace(',<!--(.*?)-->,is', '', $texte);
+        $texte = preg_replace(',<\?(.*?)\?>,is', '', $texte);
+        include_spip('inc/charsets');
+        $clean = $charset;
+        //$texte = importer_charset($texte,$charset);
+    }
+    if (is_string($clean)) {
+        $charset = $clean;
+    }
+    $txt = $texte;
 
-	// tant qu'il y a des tags
-	$chars = preg_split(_SPIP_XML_TAG_SPLIT, $txt, 2, PREG_SPLIT_DELIM_CAPTURE);
-	while (count($chars) >= 2) {
-		// tag ouvrant
-		//$chars = preg_split("{<([^>]*?)>}s",$txt,2,PREG_SPLIT_DELIM_CAPTURE);
+    // tant qu'il y a des tags
+    $chars = preg_split(_SPIP_XML_TAG_SPLIT, $txt, 2, PREG_SPLIT_DELIM_CAPTURE);
+    while (count($chars) >= 2) {
+        // tag ouvrant
+        //$chars = preg_split("{<([^>]*?)>}s",$txt,2,PREG_SPLIT_DELIM_CAPTURE);
 
-		// $before doit etre vide ou des espaces uniquements!
-		$before = trim($chars[0]);
+        // $before doit etre vide ou des espaces uniquements!
+        $before = trim($chars[0]);
 
-		if (strlen($before) > 0) {
-			return importer_charset($texte, $charset);
-		}//$texte; // before non vide, donc on est dans du texte
+        if (strlen($before) > 0) {
+            return importer_charset($texte, $charset);
+        }//$texte; // before non vide, donc on est dans du texte
 
-		$tag = rtrim($chars[1]);
-		$txt = $chars[2];
+        $tag = rtrim($chars[1]);
+        $txt = $chars[2];
 
-		if (strncmp($tag, '![CDATA[', 8) == 0) {
-			return importer_charset($texte, $charset);
-		}//$texte;
-		if (substr($tag, -1) == '/') { // self closing tag
-			$tag = rtrim(substr($tag, 0, strlen($tag) - 1));
-			$out[$tag][] = "";
-		} else {
-			$closing_tag = preg_split(",\s|\t|\n|\r,", trim($tag));
-			$closing_tag = reset($closing_tag);
-			// tag fermant
-			$ncclos = strlen("</$closing_tag>");
-			$p = strpos($txt, "</$closing_tag>");
-			if ($p !== false and (strpos($txt, "<") < $p)) {
-				$nclose = 0;
-				$nopen = 0;
-				$d = 0;
-				while (
-					$p !== false
-					and ($morceau = substr($txt, $d, $p - $d))
-					and (($nopen += preg_match_all("{<" . preg_quote($closing_tag) . "(\s*>|\s[^>]*[^/>]>)}is", $morceau,
-							$matches, PREG_SET_ORDER)) > $nclose)
-				) {
-					$nclose++;
-					$d = $p + $ncclos;
-					$p = strpos($txt, "</$closing_tag>", $d);
-				}
-			}
-			if ($p === false) {
-				if ($strict) {
-					$out[$tag][] = "erreur : tag fermant $tag manquant::$txt";
+        if (strncmp($tag, '![CDATA[', 8) == 0) {
+            return importer_charset($texte, $charset);
+        }//$texte;
+        if (substr($tag, -1) == '/') { // self closing tag
+            $tag = rtrim(substr($tag, 0, strlen($tag) - 1));
+            $out[$tag][] = "";
+        } else {
+            $closing_tag = preg_split(",\s|\t|\n|\r,", trim($tag));
+            $closing_tag = reset($closing_tag);
+            // tag fermant
+            $ncclos = strlen("</$closing_tag>");
+            $p = strpos($txt, "</$closing_tag>");
+            if ($p !== false and (strpos($txt, "<") < $p)) {
+                $nclose = 0;
+                $nopen = 0;
+                $d = 0;
+                while (
+                    $p !== false
+                    and ($morceau = substr($txt, $d, $p - $d))
+                    and (($nopen += preg_match_all("{<" . preg_quote($closing_tag) . "(\s*>|\s[^>]*[^/>]>)}is", $morceau,
+                            $matches, PREG_SET_ORDER)) > $nclose)
+                ) {
+                    $nclose++;
+                    $d = $p + $ncclos;
+                    $p = strpos($txt, "</$closing_tag>", $d);
+                }
+            }
+            if ($p === false) {
+                if ($strict) {
+                    $out[$tag][] = "erreur : tag fermant $tag manquant::$txt";
 
-					return $out;
-				} else {
-					return importer_charset($texte, $charset);
-				}//$texte // un tag qui constitue du texte a reporter dans $before
-			}
-			$content = substr($txt, 0, $p);
-			$txt = substr($txt, $p + $ncclos);
-			if ($profondeur == 0 or strpos($content, "<") === false) // eviter une recursion si pas utile
-			{
-				$out[$tag][] = importer_charset($content, $charset);
-			}//$content;
-			else {
-				$out[$tag][] = spip_xml_parse($content, $strict, $clean, $profondeur - 1);
-			}
-		}
-		$chars = preg_split(_SPIP_XML_TAG_SPLIT, $txt, 2, PREG_SPLIT_DELIM_CAPTURE);
-	}
-	if (count($out) && (strlen(trim($txt)) == 0)) {
-		return $out;
-	} else {
-		return importer_charset($texte, $charset);
-	}//$texte;
+                    return $out;
+                } else {
+                    return importer_charset($texte, $charset);
+                }//$texte // un tag qui constitue du texte a reporter dans $before
+            }
+            $content = substr($txt, 0, $p);
+            $txt = substr($txt, $p + $ncclos);
+            if ($profondeur == 0 or strpos($content, "<") === false) // eviter une recursion si pas utile
+            {
+                $out[$tag][] = importer_charset($content, $charset);
+            }//$content;
+            else {
+                $out[$tag][] = spip_xml_parse($content, $strict, $clean, $profondeur - 1);
+            }
+        }
+        $chars = preg_split(_SPIP_XML_TAG_SPLIT, $txt, 2, PREG_SPLIT_DELIM_CAPTURE);
+    }
+    if (count($out) && (strlen(trim($txt)) == 0)) {
+        return $out;
+    } else {
+        return importer_charset($texte, $charset);
+    }//$texte;
 }
 
 // https://code.spip.net/@spip_xml_aplatit
 function spip_xml_aplatit($arbre, $separateur = " ") {
-	$s = "";
-	if (is_array($arbre)) {
-		foreach ($arbre as $tag => $feuille) {
-			if (is_array($feuille)) {
-				if ($tag !== intval($tag)) {
-					$f = spip_xml_aplatit($feuille, $separateur);
-					if (strlen($f)) {
-						$tagf = explode(" ", $tag);
-						$tagf = $tagf[0];
-						$s .= "<$tag>$f</$tagf>";
-					} else {
-						$s .= "<$tag />";
-					}
-				} else {
-					$s .= spip_xml_aplatit($feuille);
-				}
-				$s .= $separateur;
-			} else {
-				$s .= "$feuille$separateur";
-			}
-		}
-	}
+    $s = "";
+    if (is_array($arbre)) {
+        foreach ($arbre as $tag => $feuille) {
+            if (is_array($feuille)) {
+                if ($tag !== intval($tag)) {
+                    $f = spip_xml_aplatit($feuille, $separateur);
+                    if (strlen($f)) {
+                        $tagf = explode(" ", $tag);
+                        $tagf = $tagf[0];
+                        $s .= "<$tag>$f</$tagf>";
+                    } else {
+                        $s .= "<$tag />";
+                    }
+                } else {
+                    $s .= spip_xml_aplatit($feuille);
+                }
+                $s .= $separateur;
+            } else {
+                $s .= "$feuille$separateur";
+            }
+        }
+    }
 
-	return strlen($separateur) ? substr($s, 0, -strlen($separateur)) : $s;
+    return strlen($separateur) ? substr($s, 0, -strlen($separateur)) : $s;
 }
 
 // https://code.spip.net/@spip_xml_tagname
 function spip_xml_tagname($tag) {
-	if (preg_match(',^([a-z][\w:]*),i', $tag, $reg)) {
-		return $reg[1];
-	}
+    if (preg_match(',^([a-z][\w:]*),i', $tag, $reg)) {
+        return $reg[1];
+    }
 
-	return "";
+    return "";
 }
 
 // https://code.spip.net/@spip_xml_decompose_tag
 function spip_xml_decompose_tag($tag) {
-	$tagname = spip_xml_tagname($tag);
-	$liste = array();
-	$tag = ltrim(strpbrk($tag, " \n\t"));
-	$p = strpos($tag, '=');
-	while ($p !== false) {
-		$attr = trim(substr($tag, 0, $p));
-		$tag = ltrim(substr($tag, $p + 1));
-		$quote = $tag[0];
-		$p = strpos($tag, $quote, 1);
-		$cont = substr($tag, 1, $p - 1);
-		$liste[$attr] = $cont;
-		$tag = substr($tag, $p + 1);
-		$p = strpos($tag, '=');
-	}
+    $tagname = spip_xml_tagname($tag);
+    $liste = array();
+    $tag = ltrim(strpbrk($tag, " \n\t"));
+    $p = strpos($tag, '=');
+    while ($p !== false) {
+        $attr = trim(substr($tag, 0, $p));
+        $tag = ltrim(substr($tag, $p + 1));
+        $quote = $tag[0];
+        $p = strpos($tag, $quote, 1);
+        $cont = substr($tag, 1, $p - 1);
+        $liste[$attr] = $cont;
+        $tag = substr($tag, $p + 1);
+        $p = strpos($tag, '=');
+    }
 
-	return array($tagname, $liste);
+    return array($tagname, $liste);
 }
 
 /**
@@ -248,21 +248,21 @@ 
  *     false si aucun élément ne valide l'expression régulière, true sinon.
  **/
 function spip_xml_match_nodes($regexp, &$arbre, &$matches, $init = true) {
-	if ($init) {
-		$matches = array();
-	}
-	if (is_array($arbre) && count($arbre)) {
-		foreach (array_keys($arbre) as $tag) {
-			if (preg_match($regexp, $tag)) {
-				$matches[$tag] = &$arbre[$tag];
-			}
-			if (is_array($arbre[$tag])) {
-				foreach (array_keys($arbre[$tag]) as $occurences) {
-					spip_xml_match_nodes($regexp, $arbre[$tag][$occurences], $matches, false);
-				}
-			}
-		}
-	}
+    if ($init) {
+        $matches = array();
+    }
+    if (is_array($arbre) && count($arbre)) {
+        foreach (array_keys($arbre) as $tag) {
+            if (preg_match($regexp, $tag)) {
+                $matches[$tag] = &$arbre[$tag];
+            }
+            if (is_array($arbre[$tag])) {
+                foreach (array_keys($arbre[$tag]) as $occurences) {
+                    spip_xml_match_nodes($regexp, $arbre[$tag][$occurences], $matches, false);
+                }
+            }
+        }
+    }
 
-	return (count($matches));
+    return (count($matches));
 }

ecrire/iterateur/data.php

Doc Comments +3 added lines, -3 removed lines

@@ -133,7 +133,7 @@ 
 	/**
 	 * Déclarer les critères exceptions
 	 *
-	 * @return array
+	 * @return string[]
 	 */
 	public function exception_des_criteres() {
 		return array('tableau');
@@ -787,7 +787,7 @@ 
  * pour la syntaxe cf la fonction spip preg_files
  *
  * @param string $dir
- * @param string $regexp
+ * @param integer $regexp
  * @param int $limit
  * @return array|bool
  */
@@ -826,7 +826,7 @@ 
 /**
  * Object -> tableau
  *
- * @param Object $object
+ * @param SimpleXMLIterator $object
  * @return array|bool
  */
 function XMLObjectToArray($object) {

Indentation +616 added lines, -616 removed lines

@@ -17,11 +17,11 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_DATA_SOURCE_MAX_SIZE')) {
-	define('_DATA_SOURCE_MAX_SIZE', 2 * 1048576);
+    define('_DATA_SOURCE_MAX_SIZE', 2 * 1048576);
 }
 
 
@@ -42,17 +42,17 @@ 
  *     Description de la boucle complétée des champs
  */
 function iterateur_DATA_dist($b) {
-	$b->iterateur = 'DATA'; # designe la classe d'iterateur
-	$b->show = array(
-		'field' => array(
-			'cle' => 'STRING',
-			'valeur' => 'STRING',
-			'*' => 'ALL' // Champ joker *
-		)
-	);
-	$b->select[] = '.valeur';
-
-	return $b;
+    $b->iterateur = 'DATA'; # designe la classe d'iterateur
+    $b->show = array(
+        'field' => array(
+            'cle' => 'STRING',
+            'valeur' => 'STRING',
+            '*' => 'ALL' // Champ joker *
+        )
+    );
+    $b->select[] = '.valeur';
+
+    return $b;
 }
 
 
@@ -62,505 +62,505 @@ 
  * Pour itérer sur des données quelconques (transformables en tableau)
  */
 class IterateurDATA implements Iterator {
-	/**
-	 * tableau de donnees
-	 *
-	 * @var array
-	 */
-	protected $tableau = array();
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 *
-	 * @var array
-	 */
-	protected $filtre = array();
-
-
-	/**
-	 * Cle courante
-	 *
-	 * @var null
-	 */
-	protected $cle = null;
-
-	/**
-	 * Valeur courante
-	 *
-	 * @var null
-	 */
-	protected $valeur = null;
-
-	/**
-	 * Erreur presente ?
-	 *
-	 * @var bool
-	 **/
-	public $err = false;
-
-	/**
-	 * Calcul du total des elements
-	 *
-	 * @var int|null
-	 **/
-	public $total = null;
-
-	/**
-	 * Constructeur
-	 *
-	 * @param  $command
-	 * @param array $info
-	 */
-	public function __construct($command, $info = array()) {
-		$this->type = 'DATA';
-		$this->command = $command;
-		$this->info = $info;
-
-		$this->select($command);
-	}
-
-	/**
-	 * Revenir au depart
-	 *
-	 * @return void
-	 */
-	public function rewind() {
-		reset($this->tableau);
-		$this->cle = key($this->tableau);
-		$this->valeur = current($this->tableau);
-		next($this->tableau);
-	}
-
-	/**
-	 * Déclarer les critères exceptions
-	 *
-	 * @return array
-	 */
-	public function exception_des_criteres() {
-		return array('tableau');
-	}
-
-	/**
-	 * Récupérer depuis le cache si possible
-	 *
-	 * @param string $cle
-	 * @return mixed
-	 */
-	protected function cache_get($cle) {
-		if (!$cle) {
-			return;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_get')) {
-			return;
-		}
-
-		return cache_get($cle);
-	}
-
-	/**
-	 * Stocker en cache si possible
-	 *
-	 * @param string $cle
-	 * @param int $ttl
-	 * @param null|mixed $valeur
-	 * @return bool
-	 */
-	protected function cache_set($cle, $ttl, $valeur = null) {
-		if (!$cle) {
-			return;
-		}
-		if (is_null($valeur)) {
-			$valeur = $this->tableau;
-		}
-		# utiliser memoization si dispo
-		if (!function_exists('cache_set')) {
-			return;
-		}
-
-		return cache_set($cle,
-			array(
-				'data' => $valeur,
-				'time' => time(),
-				'ttl' => $ttl
-			),
-			3600 + $ttl);
-		# conserver le cache 1h de plus que la validite demandee,
-		# pour le cas ou le serveur distant ne reponde plus
-	}
-
-	/**
-	 * Aller chercher les données de la boucle DATA
-	 *
-	 * @throws Exception
-	 * @param array $command
-	 * @return void
-	 */
-	protected function select($command) {
-
-		// l'iterateur DATA peut etre appele en passant (data:type)
-		// le type se retrouve dans la commande 'from'
-		// dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
-		if (isset($this->command['from'][0])) {
-			if (isset($this->command['source']) and is_array($this->command['source'])) {
-				array_unshift($this->command['source'], $this->command['sourcemode']);
-			}
-			$this->command['sourcemode'] = $this->command['from'][0];
-		}
-
-		// cherchons differents moyens de creer le tableau de donnees
-		// les commandes connues pour l'iterateur DATA
-		// sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
-
-		// {source format, [URL], [arg2]...}
-		if (isset($this->command['source'])
-			and isset($this->command['sourcemode'])
-		) {
-			$this->select_source();
-		}
-
-		// Critere {liste X1, X2, X3}
-		if (isset($this->command['liste'])) {
-			$this->select_liste();
-		}
-		if (isset($this->command['enum'])) {
-			$this->select_enum();
-		}
-
-		// Si a ce stade on n'a pas de table, il y a un bug
-		if (!is_array($this->tableau)) {
-			$this->err = true;
-			spip_log("erreur datasource " . var_export($command, true));
-		}
-
-		// {datapath query.results}
-		// extraire le chemin "query.results" du tableau de donnees
-		if (!$this->err
-			and isset($this->command['datapath'])
-			and is_array($this->command['datapath'])
-		) {
-			$this->select_datapath();
-		}
-
-		// tri {par x}
-		if ($this->command['orderby']) {
-			$this->select_orderby();
-		}
-
-		// grouper les resultats {fusion /x/y/z} ;
-		if ($this->command['groupby']) {
-			$this->select_groupby();
-		}
-
-		$this->rewind();
-		#var_dump($this->tableau);
-	}
-
-
-	/**
-	 * Aller chercher les donnees de la boucle DATA
-	 * depuis une source
-	 * {source format, [URL], [arg2]...}
-	 */
-	protected function select_source() {
-		# un peu crado : avant de charger le cache il faut charger
-		# les class indispensables, sinon PHP ne saura pas gerer
-		# l'objet en cache ; cf plugins/icalendar
-		# perf : pas de fonction table_to_array ! (table est deja un array)
-		if (isset($this->command['sourcemode'])
-			and !in_array($this->command['sourcemode'], array('table', 'array', 'tableau'))
-		) {
-			charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
-		}
-
-		# le premier argument peut etre un array, une URL etc.
-		$src = $this->command['source'][0];
-
-		# avons-nous un cache dispo ?
-		$cle = null;
-		if (is_string($src)) {
-			$cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
-		}
-
-		$cache = $this->cache_get($cle);
-		if (isset($this->command['datacache'])) {
-			$ttl = intval($this->command['datacache']);
-		}
-		if ($cache
-			and ($cache['time'] + (isset($ttl) ? $ttl : $cache['ttl'])
-				> time())
-			and !(_request('var_mode') === 'recalcul'
-				and include_spip('inc/autoriser')
-				and autoriser('recalcul')
-			)
-		) {
-			$this->tableau = $cache['data'];
-		} else {
-			try {
-				if (isset($this->command['sourcemode'])
-					and in_array($this->command['sourcemode'],
-						array('table', 'array', 'tableau'))
-				) {
-					if (is_array($a = $src)
-						or (is_string($a)
-							and $a = str_replace('"', '"', $a) # fragile!
-							and is_array($a = @unserialize($a)))
-					) {
-						$this->tableau = $a;
-					}
-				} else {
-					$data = $src;
-					if (is_string($src)) { 
-						if (tester_url_absolue($src)) {
-							include_spip('inc/distant');
-							$data = recuperer_page($src, false, false, _DATA_SOURCE_MAX_SIZE);
-							if (!$data) {
-								throw new Exception("404");
-							}
-							if (!isset($ttl)) {
-								$ttl = 24 * 3600;
-							}
-						} elseif (@is_dir($src)) {
-							$data = $src;
-						} elseif (@is_readable($src) && @is_file($src)) {
-							$data = spip_file_get_contents($src);
-						}
-						if (!isset($ttl)) {
-							$ttl = 10;
-						}
-					}
-
-					if (!$this->err
-						and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
-					) {
-						$args = $this->command['source'];
-						$args[0] = $data;
-						if (is_array($a = $data_to_array(...$args))) {
-							$this->tableau = $a;
-						}
-					}
-				}
-
-				if (!is_array($this->tableau)) {
-					$this->err = true;
-				}
-
-				if (!$this->err and isset($ttl) and $ttl > 0) {
-					$this->cache_set($cle, $ttl);
-				}
-
-			} catch (Exception $e) {
-				$e = $e->getMessage();
-				$err = sprintf("[%s, %s] $e",
-					$src,
-					$this->command['sourcemode']);
-				erreur_squelette(array($err, array()));
-				$this->err = true;
-			}
-		}
-
-		# en cas d'erreur, utiliser le cache si encore dispo
-		if ($this->err
-			and $cache
-		) {
-			$this->tableau = $cache['data'];
-			$this->err = false;
-		}
-	}
-
-
-	/**
-	 * Retourne un tableau donne depuis un critère liste
-	 *
-	 * Critère `{liste X1, X2, X3}`
-	 *
-	 * @see critere_DATA_liste_dist()
-	 *
-	 **/
-	protected function select_liste() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['liste'][1])) {
-			if (!is_array($this->command['liste'][0])) {
-				$this->command['liste'] = explode(',', $this->command['liste'][0]);
-			} else {
-				$this->command['liste'] = $this->command['liste'][0];
-			}
-		}
-		$this->tableau = $this->command['liste'];
-	}
-
-	/**
-	 * Retourne un tableau donne depuis un critere liste
-	 * Critere {enum Xmin, Xmax}
-	 *
-	 **/
-	protected function select_enum() {
-		# s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
-		if (!isset($this->command['enum'][1])) {
-			if (!is_array($this->command['enum'][0])) {
-				$this->command['enum'] = explode(',', $this->command['enum'][0]);
-			} else {
-				$this->command['enum'] = $this->command['enum'][0];
-			}
-		}
-		if (count($this->command['enum']) >= 3) {
-			$enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']),
-				array_shift($this->command['enum']));
-		} else {
-			$enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
-		}
-		$this->tableau = $enum;
-	}
-
-
-	/**
-	 * extraire le chemin "query.results" du tableau de donnees
-	 * {datapath query.results}
-	 *
-	 **/
-	protected function select_datapath() {
-		$base = reset($this->command['datapath']);
-		if (strlen($base = ltrim(trim($base), "/"))) {
-			$this->tableau = table_valeur($this->tableau, $base);
-			if (!is_array($this->tableau)) {
-				$this->tableau = array();
-				$this->err = true;
-				spip_log("datapath '$base' absent");
-			}
-		}
-	}
-
-	/**
-	 * Ordonner les resultats
-	 * {par x}
-	 *
-	 **/
-	protected function select_orderby() {
-		$sortfunc = '';
-		$aleas = 0;
-		foreach ($this->command['orderby'] as $tri) {
-			// virer le / initial pour les criteres de la forme {par /xx}
-			if (preg_match(',^\.?([/\w]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
-				$r = array_pad($r, 3, null);
-
-				// tri par cle
-				if ($r[1] == 'cle') {
-					if (isset($r[2]) and $r[2]) {
-						krsort($this->tableau);
-					} else {
-						ksort($this->tableau);
-					}
-				} # {par hasard}
-				else {
-					if ($r[1] == 'hasard') {
-						$k = array_keys($this->tableau);
-						shuffle($k);
-						$v = array();
-						foreach ($k as $cle) {
-							$v[$cle] = $this->tableau[$cle];
-						}
-						$this->tableau = $v;
-					} else {
-						# {par valeur}
-						if ($r[1] == 'valeur') {
-							$tv = '%s';
-						} # {par valeur/xx/yy} ??
-						else {
-							$tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
-						}
-						$sortfunc .= '
+    /**
+     * tableau de donnees
+     *
+     * @var array
+     */
+    protected $tableau = array();
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     *
+     * @var array
+     */
+    protected $filtre = array();
+
+
+    /**
+     * Cle courante
+     *
+     * @var null
+     */
+    protected $cle = null;
+
+    /**
+     * Valeur courante
+     *
+     * @var null
+     */
+    protected $valeur = null;
+
+    /**
+     * Erreur presente ?
+     *
+     * @var bool
+     **/
+    public $err = false;
+
+    /**
+     * Calcul du total des elements
+     *
+     * @var int|null
+     **/
+    public $total = null;
+
+    /**
+     * Constructeur
+     *
+     * @param  $command
+     * @param array $info
+     */
+    public function __construct($command, $info = array()) {
+        $this->type = 'DATA';
+        $this->command = $command;
+        $this->info = $info;
+
+        $this->select($command);
+    }
+
+    /**
+     * Revenir au depart
+     *
+     * @return void
+     */
+    public function rewind() {
+        reset($this->tableau);
+        $this->cle = key($this->tableau);
+        $this->valeur = current($this->tableau);
+        next($this->tableau);
+    }
+
+    /**
+     * Déclarer les critères exceptions
+     *
+     * @return array
+     */
+    public function exception_des_criteres() {
+        return array('tableau');
+    }
+
+    /**
+     * Récupérer depuis le cache si possible
+     *
+     * @param string $cle
+     * @return mixed
+     */
+    protected function cache_get($cle) {
+        if (!$cle) {
+            return;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_get')) {
+            return;
+        }
+
+        return cache_get($cle);
+    }
+
+    /**
+     * Stocker en cache si possible
+     *
+     * @param string $cle
+     * @param int $ttl
+     * @param null|mixed $valeur
+     * @return bool
+     */
+    protected function cache_set($cle, $ttl, $valeur = null) {
+        if (!$cle) {
+            return;
+        }
+        if (is_null($valeur)) {
+            $valeur = $this->tableau;
+        }
+        # utiliser memoization si dispo
+        if (!function_exists('cache_set')) {
+            return;
+        }
+
+        return cache_set($cle,
+            array(
+                'data' => $valeur,
+                'time' => time(),
+                'ttl' => $ttl
+            ),
+            3600 + $ttl);
+        # conserver le cache 1h de plus que la validite demandee,
+        # pour le cas ou le serveur distant ne reponde plus
+    }
+
+    /**
+     * Aller chercher les données de la boucle DATA
+     *
+     * @throws Exception
+     * @param array $command
+     * @return void
+     */
+    protected function select($command) {
+
+        // l'iterateur DATA peut etre appele en passant (data:type)
+        // le type se retrouve dans la commande 'from'
+        // dans ce cas la le critere {source}, si present, n'a pas besoin du 1er argument
+        if (isset($this->command['from'][0])) {
+            if (isset($this->command['source']) and is_array($this->command['source'])) {
+                array_unshift($this->command['source'], $this->command['sourcemode']);
+            }
+            $this->command['sourcemode'] = $this->command['from'][0];
+        }
+
+        // cherchons differents moyens de creer le tableau de donnees
+        // les commandes connues pour l'iterateur DATA
+        // sont : {tableau #ARRAY} ; {cle=...} ; {valeur=...}
+
+        // {source format, [URL], [arg2]...}
+        if (isset($this->command['source'])
+            and isset($this->command['sourcemode'])
+        ) {
+            $this->select_source();
+        }
+
+        // Critere {liste X1, X2, X3}
+        if (isset($this->command['liste'])) {
+            $this->select_liste();
+        }
+        if (isset($this->command['enum'])) {
+            $this->select_enum();
+        }
+
+        // Si a ce stade on n'a pas de table, il y a un bug
+        if (!is_array($this->tableau)) {
+            $this->err = true;
+            spip_log("erreur datasource " . var_export($command, true));
+        }
+
+        // {datapath query.results}
+        // extraire le chemin "query.results" du tableau de donnees
+        if (!$this->err
+            and isset($this->command['datapath'])
+            and is_array($this->command['datapath'])
+        ) {
+            $this->select_datapath();
+        }
+
+        // tri {par x}
+        if ($this->command['orderby']) {
+            $this->select_orderby();
+        }
+
+        // grouper les resultats {fusion /x/y/z} ;
+        if ($this->command['groupby']) {
+            $this->select_groupby();
+        }
+
+        $this->rewind();
+        #var_dump($this->tableau);
+    }
+
+
+    /**
+     * Aller chercher les donnees de la boucle DATA
+     * depuis une source
+     * {source format, [URL], [arg2]...}
+     */
+    protected function select_source() {
+        # un peu crado : avant de charger le cache il faut charger
+        # les class indispensables, sinon PHP ne saura pas gerer
+        # l'objet en cache ; cf plugins/icalendar
+        # perf : pas de fonction table_to_array ! (table est deja un array)
+        if (isset($this->command['sourcemode'])
+            and !in_array($this->command['sourcemode'], array('table', 'array', 'tableau'))
+        ) {
+            charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
+        }
+
+        # le premier argument peut etre un array, une URL etc.
+        $src = $this->command['source'][0];
+
+        # avons-nous un cache dispo ?
+        $cle = null;
+        if (is_string($src)) {
+            $cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
+        }
+
+        $cache = $this->cache_get($cle);
+        if (isset($this->command['datacache'])) {
+            $ttl = intval($this->command['datacache']);
+        }
+        if ($cache
+            and ($cache['time'] + (isset($ttl) ? $ttl : $cache['ttl'])
+                > time())
+            and !(_request('var_mode') === 'recalcul'
+                and include_spip('inc/autoriser')
+                and autoriser('recalcul')
+            )
+        ) {
+            $this->tableau = $cache['data'];
+        } else {
+            try {
+                if (isset($this->command['sourcemode'])
+                    and in_array($this->command['sourcemode'],
+                        array('table', 'array', 'tableau'))
+                ) {
+                    if (is_array($a = $src)
+                        or (is_string($a)
+                            and $a = str_replace('"', '"', $a) # fragile!
+                            and is_array($a = @unserialize($a)))
+                    ) {
+                        $this->tableau = $a;
+                    }
+                } else {
+                    $data = $src;
+                    if (is_string($src)) { 
+                        if (tester_url_absolue($src)) {
+                            include_spip('inc/distant');
+                            $data = recuperer_page($src, false, false, _DATA_SOURCE_MAX_SIZE);
+                            if (!$data) {
+                                throw new Exception("404");
+                            }
+                            if (!isset($ttl)) {
+                                $ttl = 24 * 3600;
+                            }
+                        } elseif (@is_dir($src)) {
+                            $data = $src;
+                        } elseif (@is_readable($src) && @is_file($src)) {
+                            $data = spip_file_get_contents($src);
+                        }
+                        if (!isset($ttl)) {
+                            $ttl = 10;
+                        }
+                    }
+
+                    if (!$this->err
+                        and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
+                    ) {
+                        $args = $this->command['source'];
+                        $args[0] = $data;
+                        if (is_array($a = $data_to_array(...$args))) {
+                            $this->tableau = $a;
+                        }
+                    }
+                }
+
+                if (!is_array($this->tableau)) {
+                    $this->err = true;
+                }
+
+                if (!$this->err and isset($ttl) and $ttl > 0) {
+                    $this->cache_set($cle, $ttl);
+                }
+
+            } catch (Exception $e) {
+                $e = $e->getMessage();
+                $err = sprintf("[%s, %s] $e",
+                    $src,
+                    $this->command['sourcemode']);
+                erreur_squelette(array($err, array()));
+                $this->err = true;
+            }
+        }
+
+        # en cas d'erreur, utiliser le cache si encore dispo
+        if ($this->err
+            and $cache
+        ) {
+            $this->tableau = $cache['data'];
+            $this->err = false;
+        }
+    }
+
+
+    /**
+     * Retourne un tableau donne depuis un critère liste
+     *
+     * Critère `{liste X1, X2, X3}`
+     *
+     * @see critere_DATA_liste_dist()
+     *
+     **/
+    protected function select_liste() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['liste'][1])) {
+            if (!is_array($this->command['liste'][0])) {
+                $this->command['liste'] = explode(',', $this->command['liste'][0]);
+            } else {
+                $this->command['liste'] = $this->command['liste'][0];
+            }
+        }
+        $this->tableau = $this->command['liste'];
+    }
+
+    /**
+     * Retourne un tableau donne depuis un critere liste
+     * Critere {enum Xmin, Xmax}
+     *
+     **/
+    protected function select_enum() {
+        # s'il n'y a qu'une valeur dans la liste, sans doute une #BALISE
+        if (!isset($this->command['enum'][1])) {
+            if (!is_array($this->command['enum'][0])) {
+                $this->command['enum'] = explode(',', $this->command['enum'][0]);
+            } else {
+                $this->command['enum'] = $this->command['enum'][0];
+            }
+        }
+        if (count($this->command['enum']) >= 3) {
+            $enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']),
+                array_shift($this->command['enum']));
+        } else {
+            $enum = range(array_shift($this->command['enum']), array_shift($this->command['enum']));
+        }
+        $this->tableau = $enum;
+    }
+
+
+    /**
+     * extraire le chemin "query.results" du tableau de donnees
+     * {datapath query.results}
+     *
+     **/
+    protected function select_datapath() {
+        $base = reset($this->command['datapath']);
+        if (strlen($base = ltrim(trim($base), "/"))) {
+            $this->tableau = table_valeur($this->tableau, $base);
+            if (!is_array($this->tableau)) {
+                $this->tableau = array();
+                $this->err = true;
+                spip_log("datapath '$base' absent");
+            }
+        }
+    }
+
+    /**
+     * Ordonner les resultats
+     * {par x}
+     *
+     **/
+    protected function select_orderby() {
+        $sortfunc = '';
+        $aleas = 0;
+        foreach ($this->command['orderby'] as $tri) {
+            // virer le / initial pour les criteres de la forme {par /xx}
+            if (preg_match(',^\.?([/\w]+)( DESC)?$,iS', ltrim($tri, '/'), $r)) {
+                $r = array_pad($r, 3, null);
+
+                // tri par cle
+                if ($r[1] == 'cle') {
+                    if (isset($r[2]) and $r[2]) {
+                        krsort($this->tableau);
+                    } else {
+                        ksort($this->tableau);
+                    }
+                } # {par hasard}
+                else {
+                    if ($r[1] == 'hasard') {
+                        $k = array_keys($this->tableau);
+                        shuffle($k);
+                        $v = array();
+                        foreach ($k as $cle) {
+                            $v[$cle] = $this->tableau[$cle];
+                        }
+                        $this->tableau = $v;
+                    } else {
+                        # {par valeur}
+                        if ($r[1] == 'valeur') {
+                            $tv = '%s';
+                        } # {par valeur/xx/yy} ??
+                        else {
+                            $tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
+                        }
+                        $sortfunc .= '
 					$a = ' . sprintf($tv, '$aa') . ';
 					$b = ' . sprintf($tv, '$bb') . ';
 					if ($a <> $b)
 						return ($a ' . (!empty($r[2]) ? '>' : '<') . ' $b) ? -1 : 1;';
-					}
-				}
-			}
-		}
-
-		if ($sortfunc) {
-			$sortfunc .= "\n return 0;";
-			uasort($this->tableau, function($aa, $bb) use ($sortfunc) {
-				return eval($sortfunc);
-			});
-		}
-	}
-
-
-	/**
-	 * Grouper les resultats
-	 * {fusion /x/y/z}
-	 *
-	 **/
-	protected function select_groupby() {
-		// virer le / initial pour les criteres de la forme {fusion /xx}
-		if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
-			$vu = array();
-			foreach ($this->tableau as $k => $v) {
-				$val = table_valeur($v, $fusion);
-				if (isset($vu[$val])) {
-					unset($this->tableau[$k]);
-				} else {
-					$vu[$val] = true;
-				}
-			}
-		}
-	}
-
-
-	/**
-	 * L'iterateur est-il encore valide ?
-	 *
-	 * @return bool
-	 */
-	public function valid() {
-		return !is_null($this->cle);
-	}
-
-	/**
-	 * Retourner la valeur
-	 *
-	 * @return null
-	 */
-	public function current() {
-		return $this->valeur;
-	}
-
-	/**
-	 * Retourner la cle
-	 *
-	 * @return null
-	 */
-	public function key() {
-		return $this->cle;
-	}
-
-	/**
-	 * Passer a la valeur suivante
-	 *
-	 * @return void
-	 */
-	public function next() {
-		if ($this->valid()) {
-			$this->cle = key($this->tableau);
-			$this->valeur = current($this->tableau);
-			next($this->tableau);
-		}
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			$this->total = count($this->tableau);
-		}
-
-		return $this->total;
-	}
+                    }
+                }
+            }
+        }
+
+        if ($sortfunc) {
+            $sortfunc .= "\n return 0;";
+            uasort($this->tableau, function($aa, $bb) use ($sortfunc) {
+                return eval($sortfunc);
+            });
+        }
+    }
+
+
+    /**
+     * Grouper les resultats
+     * {fusion /x/y/z}
+     *
+     **/
+    protected function select_groupby() {
+        // virer le / initial pour les criteres de la forme {fusion /xx}
+        if (strlen($fusion = ltrim($this->command['groupby'][0], '/'))) {
+            $vu = array();
+            foreach ($this->tableau as $k => $v) {
+                $val = table_valeur($v, $fusion);
+                if (isset($vu[$val])) {
+                    unset($this->tableau[$k]);
+                } else {
+                    $vu[$val] = true;
+                }
+            }
+        }
+    }
+
+
+    /**
+     * L'iterateur est-il encore valide ?
+     *
+     * @return bool
+     */
+    public function valid() {
+        return !is_null($this->cle);
+    }
+
+    /**
+     * Retourner la valeur
+     *
+     * @return null
+     */
+    public function current() {
+        return $this->valeur;
+    }
+
+    /**
+     * Retourner la cle
+     *
+     * @return null
+     */
+    public function key() {
+        return $this->cle;
+    }
+
+    /**
+     * Passer a la valeur suivante
+     *
+     * @return void
+     */
+    public function next() {
+        if ($this->valid()) {
+            $this->cle = key($this->tableau);
+            $this->valeur = current($this->tableau);
+            next($this->tableau);
+        }
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            $this->total = count($this->tableau);
+        }
+
+        return $this->total;
+    }
 }
 
 /*
@@ -574,7 +574,7 @@ 
  * @return array
  */
 function inc_file_to_array_dist($data) {
-	return preg_split('/\r?\n/', $data);
+    return preg_split('/\r?\n/', $data);
 }
 
 /**
@@ -583,9 +583,9 @@ 
  * @return array
  */
 function inc_plugins_to_array_dist() {
-	include_spip('inc/plugin');
+    include_spip('inc/plugin');
 
-	return liste_chemin_plugin_actifs();
+    return liste_chemin_plugin_actifs();
 }
 
 /**
@@ -595,7 +595,7 @@ 
  * @return array
  */
 function inc_xml_to_array_dist($data) {
-	return @XMLObjectToArray(new SimpleXmlIterator($data));
+    return @XMLObjectToArray(new SimpleXmlIterator($data));
 }
 
 /**
@@ -607,14 +607,14 @@ 
  *
  */
 function inc_object_to_array($object) {
-	if (!is_object($object) && !is_array($object)) {
-		return $object;
-	}
-	if (is_object($object)) {
-		$object = get_object_vars($object);
-	}
-
-	return array_map('inc_object_to_array', $object);
+    if (!is_object($object) && !is_array($object)) {
+        return $object;
+    }
+    if (is_object($object)) {
+        $object = get_object_vars($object);
+    }
+
+    return array_map('inc_object_to_array', $object);
 }
 
 /**
@@ -624,20 +624,20 @@ 
  * @return array|bool
  */
 function inc_sql_to_array_dist($data) {
-	# sortir le connecteur de $data
-	preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
-	$serveur = (string)$v[1];
-	$req = trim($v[2]);
-	if ($s = sql_query($req, $serveur)) {
-		$r = array();
-		while ($t = sql_fetch($s)) {
-			$r[] = $t;
-		}
-
-		return $r;
-	}
-
-	return false;
+    # sortir le connecteur de $data
+    preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
+    $serveur = (string)$v[1];
+    $req = trim($v[2]);
+    if ($s = sql_query($req, $serveur)) {
+        $r = array();
+        while ($t = sql_fetch($s)) {
+            $r[] = $t;
+        }
+
+        return $r;
+    }
+
+    return false;
 }
 
 /**
@@ -647,9 +647,9 @@ 
  * @return array|bool
  */
 function inc_json_to_array_dist($data) {
-	if (is_array($json = json_decode($data, true))) {
-		return (array)$json;
-	}
+    if (is_array($json = json_decode($data, true))) {
+        return (array)$json;
+    }
 }
 
 /**
@@ -659,30 +659,30 @@ 
  * @return array|bool
  */
 function inc_csv_to_array_dist($data) {
-	include_spip('inc/csv');
-	list($entete, $csv) = analyse_csv($data);
-	array_unshift($csv, $entete);
-
-	include_spip('inc/charsets');
-	$i = 1;
-	foreach ($entete as $k => $v) {
-		if (trim($v) == "") {
-			$v = "col" . $i;
-		} // reperer des eventuelles cases vides
-		if (is_numeric($v) and $v < 0) {
-			$v = "__" . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		if (is_numeric($v)) {
-			$v = "_" . $v;
-		} // ne pas risquer d'ecraser une cle numerique
-		$v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
-		foreach ($csv as &$item) {
-			$item[$v] = &$item[$k];
-		}
-		$i++;
-	}
-
-	return $csv;
+    include_spip('inc/csv');
+    list($entete, $csv) = analyse_csv($data);
+    array_unshift($csv, $entete);
+
+    include_spip('inc/charsets');
+    $i = 1;
+    foreach ($entete as $k => $v) {
+        if (trim($v) == "") {
+            $v = "col" . $i;
+        } // reperer des eventuelles cases vides
+        if (is_numeric($v) and $v < 0) {
+            $v = "__" . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        if (is_numeric($v)) {
+            $v = "_" . $v;
+        } // ne pas risquer d'ecraser une cle numerique
+        $v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
+        foreach ($csv as &$item) {
+            $item[$v] = &$item[$k];
+        }
+        $i++;
+    }
+
+    return $csv;
 }
 
 /**
@@ -692,12 +692,12 @@ 
  * @return array|bool
  */
 function inc_rss_to_array_dist($data) {
-	include_spip('inc/syndic');
-	if (is_array($rss = analyser_backend($data))) {
-		$tableau = $rss;
-	}
+    include_spip('inc/syndic');
+    if (is_array($rss = analyser_backend($data))) {
+        $tableau = $rss;
+    }
 
-	return $tableau;
+    return $tableau;
 }
 
 /**
@@ -707,9 +707,9 @@ 
  * @return array|bool
  */
 function inc_atom_to_array_dist($data) {
-	$rss_to_array = charger_fonction('rss_to_array', 'inc');
+    $rss_to_array = charger_fonction('rss_to_array', 'inc');
 
-	return $rss_to_array($data);
+    return $rss_to_array($data);
 }
 
 /**
@@ -720,11 +720,11 @@ 
  * @return array|bool
  */
 function inc_glob_to_array_dist($data) {
-	$a = glob($data,
-		GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
-	);
+    $a = glob($data,
+        GLOB_MARK | GLOB_NOSORT | GLOB_BRACE
+    );
 
-	return $a ? $a : array();
+    return $a ? $a : array();
 }
 
 /**
@@ -735,14 +735,14 @@ 
  * @throws Exception
  */
 function inc_yaml_to_array_dist($data) {
-	include_spip('inc/yaml-mini');
-	if (!function_exists("yaml_decode")) {
-		throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
+    include_spip('inc/yaml-mini');
+    if (!function_exists("yaml_decode")) {
+        throw new Exception('YAML: impossible de trouver la fonction yaml_decode');
 
-		return false;
-	}
+        return false;
+    }
 
-	return yaml_decode($data);
+    return yaml_decode($data);
 }
 
 
@@ -757,7 +757,7 @@ 
  * @return array|bool
  */
 function inc_pregfiles_to_array_dist($dir, $regexp = -1, $limit = 10000) {
-	return (array)preg_files($dir, $regexp, $limit);
+    return (array)preg_files($dir, $regexp, $limit);
 }
 
 /**
@@ -769,23 +769,23 @@ 
  * @return array|bool
  */
 function inc_ls_to_array_dist($data) {
-	$glob_to_array = charger_fonction('glob_to_array', 'inc');
-	$a = $glob_to_array($data);
-	foreach ($a as &$v) {
-		$b = (array)@stat($v);
-		foreach ($b as $k => $ignore) {
-			if (is_numeric($k)) {
-				unset($b[$k]);
-			}
-		}
-		$b['file'] = preg_replace('`/$`','',$v) ;
-		$v = array_merge(
-			pathinfo($v),
-			$b
-		);
-	}
-
-	return $a;
+    $glob_to_array = charger_fonction('glob_to_array', 'inc');
+    $a = $glob_to_array($data);
+    foreach ($a as &$v) {
+        $b = (array)@stat($v);
+        foreach ($b as $k => $ignore) {
+            if (is_numeric($k)) {
+                unset($b[$k]);
+            }
+        }
+        $b['file'] = preg_replace('`/$`','',$v) ;
+        $v = array_merge(
+            pathinfo($v),
+            $b
+        );
+    }
+
+    return $a;
 }
 
 /**
@@ -795,24 +795,24 @@ 
  * @return array|bool
  */
 function XMLObjectToArray($object) {
-	$xml_array = array();
-	for ($object->rewind(); $object->valid(); $object->next()) {
-		if (array_key_exists($key = $object->key(), $xml_array)) {
-			$key .= '-' . uniqid();
-		}
-		$vars = get_object_vars($object->current());
-		if (isset($vars['@attributes'])) {
-			foreach ($vars['@attributes'] as $k => $v) {
-				$xml_array[$key][$k] = $v;
-			}
-		}
-		if ($object->hasChildren()) {
-			$xml_array[$key][] = XMLObjectToArray(
-				$object->current());
-		} else {
-			$xml_array[$key][] = strval($object->current());
-		}
-	}
-
-	return $xml_array;
+    $xml_array = array();
+    for ($object->rewind(); $object->valid(); $object->next()) {
+        if (array_key_exists($key = $object->key(), $xml_array)) {
+            $key .= '-' . uniqid();
+        }
+        $vars = get_object_vars($object->current());
+        if (isset($vars['@attributes'])) {
+            foreach ($vars['@attributes'] as $k => $v) {
+                $xml_array[$key][$k] = $v;
+            }
+        }
+        if ($object->hasChildren()) {
+            $xml_array[$key][] = XMLObjectToArray(
+                $object->current());
+        } else {
+            $xml_array[$key][] = strval($object->current());
+        }
+    }
+
+    return $xml_array;
 }

Spacing +17 added lines, -17 removed lines

@@ -231,7 +231,7 @@ 
 		// Si a ce stade on n'a pas de table, il y a un bug
 		if (!is_array($this->tableau)) {
 			$this->err = true;
-			spip_log("erreur datasource " . var_export($command, true));
+			spip_log("erreur datasource ".var_export($command, true));
 		}
 
 		// {datapath query.results}
@@ -271,7 +271,7 @@ 
 		if (isset($this->command['sourcemode'])
 			and !in_array($this->command['sourcemode'], array('table', 'array', 'tableau'))
 		) {
-			charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true);
+			charger_fonction($this->command['sourcemode'].'_to_array', 'inc', true);
 		}
 
 		# le premier argument peut etre un array, une URL etc.
@@ -280,7 +280,7 @@ 
 		# avons-nous un cache dispo ?
 		$cle = null;
 		if (is_string($src)) {
-			$cle = 'datasource_' . md5($this->command['sourcemode'] . ':' . var_export($this->command['source'], true));
+			$cle = 'datasource_'.md5($this->command['sourcemode'].':'.var_export($this->command['source'], true));
 		}
 
 		$cache = $this->cache_get($cle);
@@ -332,7 +332,7 @@ 
 					}
 
 					if (!$this->err
-						and $data_to_array = charger_fonction($this->command['sourcemode'] . '_to_array', 'inc', true)
+						and $data_to_array = charger_fonction($this->command['sourcemode'].'_to_array', 'inc', true)
 					) {
 						$args = $this->command['source'];
 						$args[0] = $data;
@@ -467,13 +467,13 @@ 
 							$tv = '%s';
 						} # {par valeur/xx/yy} ??
 						else {
-							$tv = 'table_valeur(%s, ' . var_export($r[1], true) . ')';
+							$tv = 'table_valeur(%s, '.var_export($r[1], true).')';
 						}
 						$sortfunc .= '
-					$a = ' . sprintf($tv, '$aa') . ';
-					$b = ' . sprintf($tv, '$bb') . ';
+					$a = ' . sprintf($tv, '$aa').';
+					$b = ' . sprintf($tv, '$bb').';
 					if ($a <> $b)
-						return ($a ' . (!empty($r[2]) ? '>' : '<') . ' $b) ? -1 : 1;';
+						return ($a ' . (!empty($r[2]) ? '>' : '<').' $b) ? -1 : 1;';
 					}
 				}
 			}
@@ -626,7 +626,7 @@ 
 function inc_sql_to_array_dist($data) {
 	# sortir le connecteur de $data
 	preg_match(',^(?:(\w+):)?(.*)$,Sm', $data, $v);
-	$serveur = (string)$v[1];
+	$serveur = (string) $v[1];
 	$req = trim($v[2]);
 	if ($s = sql_query($req, $serveur)) {
 		$r = array();
@@ -648,7 +648,7 @@ 
  */
 function inc_json_to_array_dist($data) {
 	if (is_array($json = json_decode($data, true))) {
-		return (array)$json;
+		return (array) $json;
 	}
 }
 
@@ -667,13 +667,13 @@ 
 	$i = 1;
 	foreach ($entete as $k => $v) {
 		if (trim($v) == "") {
-			$v = "col" . $i;
+			$v = "col".$i;
 		} // reperer des eventuelles cases vides
 		if (is_numeric($v) and $v < 0) {
-			$v = "__" . $v;
+			$v = "__".$v;
 		} // ne pas risquer d'ecraser une cle numerique
 		if (is_numeric($v)) {
-			$v = "_" . $v;
+			$v = "_".$v;
 		} // ne pas risquer d'ecraser une cle numerique
 		$v = strtolower(preg_replace(',\W+,', '_', translitteration($v)));
 		foreach ($csv as &$item) {
@@ -757,7 +757,7 @@ 
  * @return array|bool
  */
 function inc_pregfiles_to_array_dist($dir, $regexp = -1, $limit = 10000) {
-	return (array)preg_files($dir, $regexp, $limit);
+	return (array) preg_files($dir, $regexp, $limit);
 }
 
 /**
@@ -772,13 +772,13 @@ 
 	$glob_to_array = charger_fonction('glob_to_array', 'inc');
 	$a = $glob_to_array($data);
 	foreach ($a as &$v) {
-		$b = (array)@stat($v);
+		$b = (array) @stat($v);
 		foreach ($b as $k => $ignore) {
 			if (is_numeric($k)) {
 				unset($b[$k]);
 			}
 		}
-		$b['file'] = preg_replace('`/$`','',$v) ;
+		$b['file'] = preg_replace('`/$`', '', $v);
 		$v = array_merge(
 			pathinfo($v),
 			$b
@@ -798,7 +798,7 @@ 
 	$xml_array = array();
 	for ($object->rewind(); $object->valid(); $object->next()) {
 		if (array_key_exists($key = $object->key(), $xml_array)) {
-			$key .= '-' . uniqid();
+			$key .= '-'.uniqid();
 		}
 		$vars = get_object_vars($object->current());
 		if (isset($vars['@attributes'])) {

ecrire/public/iterateur.php

Doc Comments +4 added lines

@@ -457,6 +457,10 @@
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
+
+	/**
+	 * @param integer $n
+	 */
 	private function seek_loop($n) {
 		if ($this->pos > $n) {
 			$this->rewind();

Spacing +11 added lines, -11 removed lines

@@ -79,9 +79,9 @@ 
 			// chercher la classe d'iterateur
 			// IterateurXXX
 			// definie dans le fichier iterateurs/xxx.php
-			$class = "Iterateur" . $iterateur;
+			$class = "Iterateur".$iterateur;
 			if (!class_exists($class)) {
-				if (!include_spip("iterateur/" . strtolower($iterateur))
+				if (!include_spip("iterateur/".strtolower($iterateur))
 					or !class_exists($class)
 				) {
 					die("Iterateur $iterateur non trouvé");
@@ -208,7 +208,7 @@ 
 				return $this->iter->$nom();
 			} catch (Exception $e) {
 				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
+				spip_log("Methode $nom en echec sur ".get_class($this->iter));
 				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
 
 				return '';
@@ -290,8 +290,8 @@ 
 
 		// Creer la fonction de filtrage sur $this
 		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
+			$filtres = 'return ('.join(') AND (', $this->filtre).');';
+			$this->func_filtre = function() use ($filtres) {
 				return eval($filtres);
 			};
 		}
@@ -313,28 +313,28 @@ 
 		# if (!in_array($cle, array('cle', 'valeur')))
 		#	return;
 
-		$a = '$this->get_select(\'' . $cle . '\')';
+		$a = '$this->get_select(\''.$cle.'\')';
 
 		$filtre = '';
 
 		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+			$filtre = 'filtrer("match", '.$a.', '.str_replace('\"', '"', $valeur).')';
 			$op = '';
 		} else {
 			if ($op == 'LIKE') {
 				$valeur = str_replace(array('\"', '_', '%'), array('"', '.', '.*'), preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+				$filtre = 'filtrer("match", '.$a.', '.$valeur.')';
 				$op = '';
 			} else {
 				if ($op == '=') {
 					$op = '==';
 				} else {
 					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+						$filtre = 'in_array('.$a.', array'.$valeur.')';
 						$op = '';
 					} else {
 						if (!in_array($op, array('<', '<=', '>', '>='))) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+							spip_log('operateur non reconnu '.$op); // [todo] mettre une erreur de squelette
 							$op = '';
 						}
 					}
@@ -343,7 +343,7 @@ 
 		}
 
 		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
+			$filtre = $a.$op.str_replace('\"', '"', $valeur);
 		}
 
 		if ($not) {

Indentation +564 added lines, -564 removed lines

@@ -12,7 +12,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -22,578 +22,578 @@ 
  *
  */
 class IterFactory {
-	public static function create($iterateur, $command, $info = null) {
-
-		// cas des SI {si expression} analises tres tot
-		// pour eviter le chargement de tout iterateur
-		if (isset($command['si'])) {
-			foreach ($command['si'] as $si) {
-				if (!$si) {
-					// $command pour boucle SQL peut generer des erreurs de compilation
-					// s'il est transmis alors qu'on est dans un iterateur vide
-					return new IterDecorator(new EmptyIterator(), array(), $info);
-				}
-			}
-		}
-
-		// chercher un iterateur PHP existant (par exemple dans SPL)
-		// (il faudrait passer l'argument ->sql_serveur
-		// pour etre certain qu'on est sur un "php:")
-		if (class_exists($iterateur)) {
-			$a = isset($command['args']) ? $command['args'] : array();
-
-			// permettre de passer un Iterateur directement {args #ITERATEUR} :
-			// si on recoit deja un iterateur en argument, on l'utilise
-			if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
-				$iter = $a[0];
-
-				// sinon, on cree un iterateur du type donne
-			} else {
-				// arguments de creation de l'iterateur...
-				// (pas glop)
-				try {
-					switch (count($a)) {
-						case 0:
-							$iter = new $iterateur();
-							break;
-						case 1:
-							$iter = new $iterateur($a[0]);
-							break;
-						case 2:
-							$iter = new $iterateur($a[0], $a[1]);
-							break;
-						case 3:
-							$iter = new $iterateur($a[0], $a[1], $a[2]);
-							break;
-						case 4:
-							$iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
-							break;
-					}
-				} catch (Exception $e) {
-					spip_log("Erreur de chargement de l'iterateur $iterateur");
-					spip_log($e->getMessage());
-					$iter = new EmptyIterator();
-				}
-			}
-		} else {
-			// chercher la classe d'iterateur
-			// IterateurXXX
-			// definie dans le fichier iterateurs/xxx.php
-			$class = "Iterateur" . $iterateur;
-			if (!class_exists($class)) {
-				if (!include_spip("iterateur/" . strtolower($iterateur))
-					or !class_exists($class)
-				) {
-					die("Iterateur $iterateur non trouvé");
-					// si l'iterateur n'existe pas, on se rabat sur le generique
-					# $iter = new EmptyIterator();
-				}
-			}
-			$iter = new $class($command, $info);
-		}
-
-		return new IterDecorator($iter, $command, $info);
-	}
+    public static function create($iterateur, $command, $info = null) {
+
+        // cas des SI {si expression} analises tres tot
+        // pour eviter le chargement de tout iterateur
+        if (isset($command['si'])) {
+            foreach ($command['si'] as $si) {
+                if (!$si) {
+                    // $command pour boucle SQL peut generer des erreurs de compilation
+                    // s'il est transmis alors qu'on est dans un iterateur vide
+                    return new IterDecorator(new EmptyIterator(), array(), $info);
+                }
+            }
+        }
+
+        // chercher un iterateur PHP existant (par exemple dans SPL)
+        // (il faudrait passer l'argument ->sql_serveur
+        // pour etre certain qu'on est sur un "php:")
+        if (class_exists($iterateur)) {
+            $a = isset($command['args']) ? $command['args'] : array();
+
+            // permettre de passer un Iterateur directement {args #ITERATEUR} :
+            // si on recoit deja un iterateur en argument, on l'utilise
+            if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
+                $iter = $a[0];
+
+                // sinon, on cree un iterateur du type donne
+            } else {
+                // arguments de creation de l'iterateur...
+                // (pas glop)
+                try {
+                    switch (count($a)) {
+                        case 0:
+                            $iter = new $iterateur();
+                            break;
+                        case 1:
+                            $iter = new $iterateur($a[0]);
+                            break;
+                        case 2:
+                            $iter = new $iterateur($a[0], $a[1]);
+                            break;
+                        case 3:
+                            $iter = new $iterateur($a[0], $a[1], $a[2]);
+                            break;
+                        case 4:
+                            $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
+                            break;
+                    }
+                } catch (Exception $e) {
+                    spip_log("Erreur de chargement de l'iterateur $iterateur");
+                    spip_log($e->getMessage());
+                    $iter = new EmptyIterator();
+                }
+            }
+        } else {
+            // chercher la classe d'iterateur
+            // IterateurXXX
+            // definie dans le fichier iterateurs/xxx.php
+            $class = "Iterateur" . $iterateur;
+            if (!class_exists($class)) {
+                if (!include_spip("iterateur/" . strtolower($iterateur))
+                    or !class_exists($class)
+                ) {
+                    die("Iterateur $iterateur non trouvé");
+                    // si l'iterateur n'existe pas, on se rabat sur le generique
+                    # $iter = new EmptyIterator();
+                }
+            }
+            $iter = new $class($command, $info);
+        }
+
+        return new IterDecorator($iter, $command, $info);
+    }
 }
 
 
 class IterDecorator extends FilterIterator {
-	private $iter;
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 *
-	 * @var array
-	 */
-	protected $filtre = array();
-
-	/**
-	 * Fonction de filtrage compilee a partir des criteres de filtre
-	 *
-	 * @var string
-	 */
-	protected $func_filtre = null;
-
-	/**
-	 * Critere {offset, limit}
-	 *
-	 * @var int
-	 * @var int
-	 */
-	protected $offset = null;
-	protected $limit = null;
-
-	/**
-	 * nombre d'elements recuperes depuis la position 0,
-	 * en tenant compte des filtres
-	 *
-	 * @var int
-	 */
-	protected $fetched = 0;
-
-	/**
-	 * Y a t'il une erreur ?
-	 *
-	 * @var bool
-	 **/
-	protected $err = false;
-
-	/**
-	 * Drapeau a activer en cas d'echec
-	 * (select SQL errone, non chargement des DATA, etc)
-	 */
-	public function err() {
-		if (method_exists($this->iter, 'err')) {
-			return $this->iter->err();
-		}
-		if (property_exists($this->iter, 'err')) {
-			return $this->iter->err;
-		}
-
-		return false;
-	}
-
-	public function __construct(Iterator $iter, $command, $info) {
-		parent::__construct($iter);
-		parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
-
-		// recuperer l'iterateur transmis
-		$this->iter = $this->getInnerIterator();
-		$this->command = $command;
-		$this->info = $info;
-		$this->pos = 0;
-		$this->fetched = 0;
-
-		// chercher la liste des champs a retourner par
-		// fetch si l'objet ne les calcule pas tout seul
-		if (!method_exists($this->iter, 'fetch')) {
-			$this->calculer_select();
-			$this->calculer_filtres();
-		}
-
-		// emptyIterator critere {si} faux n'a pas d'erreur !
-		if (isset($this->iter->err)) {
-			$this->err = $this->iter->err;
-		}
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-
-	// calcule les elements a retournes par fetch()
-	// enleve les elements inutiles du select()
-	// 
-	private function calculer_select() {
-		if ($select = &$this->command['select']) {
-			foreach ($select as $s) {
-				// /!\ $s = '.nom'
-				if ($s[0] == '.') {
-					$s = substr($s, 1);
-				}
-				$this->select[] = $s;
-			}
-		}
-	}
-
-	// recuperer la valeur d'une balise #X
-	// en fonction des methodes 
-	// et proprietes disponibles
-	public function get_select($nom) {
-		if (is_object($this->iter)
-			and method_exists($this->iter, $nom)
-		) {
-			try {
-				return $this->iter->$nom();
-			} catch (Exception $e) {
-				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
-				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
-
-				return '';
-			}
-		}
-		/*
+    private $iter;
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     *
+     * @var array
+     */
+    protected $filtre = array();
+
+    /**
+     * Fonction de filtrage compilee a partir des criteres de filtre
+     *
+     * @var string
+     */
+    protected $func_filtre = null;
+
+    /**
+     * Critere {offset, limit}
+     *
+     * @var int
+     * @var int
+     */
+    protected $offset = null;
+    protected $limit = null;
+
+    /**
+     * nombre d'elements recuperes depuis la position 0,
+     * en tenant compte des filtres
+     *
+     * @var int
+     */
+    protected $fetched = 0;
+
+    /**
+     * Y a t'il une erreur ?
+     *
+     * @var bool
+     **/
+    protected $err = false;
+
+    /**
+     * Drapeau a activer en cas d'echec
+     * (select SQL errone, non chargement des DATA, etc)
+     */
+    public function err() {
+        if (method_exists($this->iter, 'err')) {
+            return $this->iter->err();
+        }
+        if (property_exists($this->iter, 'err')) {
+            return $this->iter->err;
+        }
+
+        return false;
+    }
+
+    public function __construct(Iterator $iter, $command, $info) {
+        parent::__construct($iter);
+        parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
+
+        // recuperer l'iterateur transmis
+        $this->iter = $this->getInnerIterator();
+        $this->command = $command;
+        $this->info = $info;
+        $this->pos = 0;
+        $this->fetched = 0;
+
+        // chercher la liste des champs a retourner par
+        // fetch si l'objet ne les calcule pas tout seul
+        if (!method_exists($this->iter, 'fetch')) {
+            $this->calculer_select();
+            $this->calculer_filtres();
+        }
+
+        // emptyIterator critere {si} faux n'a pas d'erreur !
+        if (isset($this->iter->err)) {
+            $this->err = $this->iter->err;
+        }
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+
+    // calcule les elements a retournes par fetch()
+    // enleve les elements inutiles du select()
+    // 
+    private function calculer_select() {
+        if ($select = &$this->command['select']) {
+            foreach ($select as $s) {
+                // /!\ $s = '.nom'
+                if ($s[0] == '.') {
+                    $s = substr($s, 1);
+                }
+                $this->select[] = $s;
+            }
+        }
+    }
+
+    // recuperer la valeur d'une balise #X
+    // en fonction des methodes 
+    // et proprietes disponibles
+    public function get_select($nom) {
+        if (is_object($this->iter)
+            and method_exists($this->iter, $nom)
+        ) {
+            try {
+                return $this->iter->$nom();
+            } catch (Exception $e) {
+                // #GETCHILDREN sur un fichier de DirectoryIterator ...
+                spip_log("Methode $nom en echec sur " . get_class($this->iter));
+                spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
+
+                return '';
+            }
+        }
+        /*
 		if (property_exists($this->iter, $nom)) {
 			return $this->iter->$nom;
 		}*/
-		// cle et valeur par defaut
-		// ICI PLANTAGE SI ON NE CONTROLE PAS $nom
-		if (in_array($nom, array('cle', 'valeur'))
-			and method_exists($this, $nom)
-		) {
-			return $this->$nom();
-		}
-
-		// Par defaut chercher en xpath dans la valeur()
-		return table_valeur($this->valeur(), $nom, null);
-	}
-
-
-	private function calculer_filtres() {
-
-		// Issu de calculer_select() de public/composer L.519
-		// TODO: externaliser...
-		//
-		// retirer les criteres vides:
-		// {X ?} avec X absent de l'URL
-		// {par #ENV{X}} avec X absent de l'URL
-		// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-		if ($where = &$this->command['where']) {
-			foreach ($where as $k => $v) {
-				if (is_array($v)) {
-					if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-						$op = false;
-					} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-						$op = false;
-					} else {
-						$op = $v[0] ? $v[0] : $v;
-					}
-				} else {
-					$op = $v;
-				}
-				if ((!$op) or ($op == 1) or ($op == '0=0')) {
-					unset($where[$k]);
-				}
-				// traiter {cle IN a,b} ou {valeur !IN a,b}
-				if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
-					$this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
-					unset($op, $where[$k]);
-				}
-			}
-			foreach ($where as $k => $v) {
-				// 3 possibilites : count($v) =
-				// * 1 : {x y} ; on recoit $v[0] = y
-				// * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
-				// * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
-
-				// 1 : forcement traite par un critere, on passe
-				if (!$v or count($v) == 1) {
-					continue;
-				}
-				if (count($v) == 2 and is_array($v[1])) {
-					$this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-				}
-				if (count($v) == 3) {
-					$this->ajouter_filtre($v[1], $v[0], $v[2]);
-				}
-			}
-		}
-
-		// critere {2,7}
-		if (isset($this->command['limit']) and $this->command['limit']) {
-			$limit = explode(',', $this->command['limit']);
-			$this->offset = $limit[0];
-			$this->limit = $limit[1];
-		}
-
-		// Creer la fonction de filtrage sur $this
-		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
-				return eval($filtres);
-			};
-		}
-	}
-
-
-	protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return;
-			}
-		}
-		// TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
-		# mais c'est normalement deja opere par calculer_critere_infixe()
-		# qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
-		# ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
-		# il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
-
-		# if (!in_array($cle, array('cle', 'valeur')))
-		#	return;
-
-		$a = '$this->get_select(\'' . $cle . '\')';
-
-		$filtre = '';
-
-		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
-			$op = '';
-		} else {
-			if ($op == 'LIKE') {
-				$valeur = str_replace(array('\"', '_', '%'), array('"', '.', '.*'), preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
-				$op = '';
-			} else {
-				if ($op == '=') {
-					$op = '==';
-				} else {
-					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
-						$op = '';
-					} else {
-						if (!in_array($op, array('<', '<=', '>', '>='))) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
-							$op = '';
-						}
-					}
-				}
-			}
-		}
-
-		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
-		}
-
-		if ($not) {
-			$filtre = "!($filtre)";
-		}
-
-		if ($filtre) {
-			$this->filtre[] = $filtre;
-		}
-	}
-
-
-	public function next() {
-		$this->pos++;
-		parent::next();
-	}
-
-	/**
-	 * revient au depart
-	 *
-	 * @return void
-	 */
-	public function rewind() {
-		$this->pos = 0;
-		$this->fetched = 0;
-		parent::rewind();
-	}
-
-
-	# Extension SPIP des iterateurs PHP
-	/**
-	 * type de l'iterateur
-	 *
-	 * @var string
-	 */
-	protected $type;
-
-	/**
-	 * parametres de l'iterateur
-	 *
-	 * @var array
-	 */
-	protected $command;
-
-	/**
-	 * infos de compilateur
-	 *
-	 * @var array
-	 */
-	protected $info;
-
-	/**
-	 * position courante de l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $pos = null;
-
-	/**
-	 * nombre total resultats dans l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $total = null;
-
-	/**
-	 * nombre maximal de recherche pour $total
-	 * si l'iterateur n'implemente pas de fonction specifique
-	 */
-	protected $max = 100000;
-
-
-	/**
-	 * Liste des champs a inserer dans les $row
-	 * retournes par ->fetch()
-	 */
-	protected $select = array();
-
-
-	/**
-	 * aller a la position absolue n,
-	 * comptee depuis le debut
-	 *
-	 * @param int $n
-	 *   absolute pos
-	 * @param string $continue
-	 *   param for sql_ api
-	 * @return bool
-	 *   success or fail if not implemented
-	 */
-	public function seek($n = 0, $continue = null) {
-		if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
-			$this->seek_loop($n);
-		}
-		$this->pos = $n;
-		$this->fetched = $n;
-
-		return true;
-	}
-
-	/*
+        // cle et valeur par defaut
+        // ICI PLANTAGE SI ON NE CONTROLE PAS $nom
+        if (in_array($nom, array('cle', 'valeur'))
+            and method_exists($this, $nom)
+        ) {
+            return $this->$nom();
+        }
+
+        // Par defaut chercher en xpath dans la valeur()
+        return table_valeur($this->valeur(), $nom, null);
+    }
+
+
+    private function calculer_filtres() {
+
+        // Issu de calculer_select() de public/composer L.519
+        // TODO: externaliser...
+        //
+        // retirer les criteres vides:
+        // {X ?} avec X absent de l'URL
+        // {par #ENV{X}} avec X absent de l'URL
+        // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+        if ($where = &$this->command['where']) {
+            foreach ($where as $k => $v) {
+                if (is_array($v)) {
+                    if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                        $op = false;
+                    } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                        $op = false;
+                    } else {
+                        $op = $v[0] ? $v[0] : $v;
+                    }
+                } else {
+                    $op = $v;
+                }
+                if ((!$op) or ($op == 1) or ($op == '0=0')) {
+                    unset($where[$k]);
+                }
+                // traiter {cle IN a,b} ou {valeur !IN a,b}
+                if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
+                    $this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
+                    unset($op, $where[$k]);
+                }
+            }
+            foreach ($where as $k => $v) {
+                // 3 possibilites : count($v) =
+                // * 1 : {x y} ; on recoit $v[0] = y
+                // * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
+                // * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
+
+                // 1 : forcement traite par un critere, on passe
+                if (!$v or count($v) == 1) {
+                    continue;
+                }
+                if (count($v) == 2 and is_array($v[1])) {
+                    $this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+                }
+                if (count($v) == 3) {
+                    $this->ajouter_filtre($v[1], $v[0], $v[2]);
+                }
+            }
+        }
+
+        // critere {2,7}
+        if (isset($this->command['limit']) and $this->command['limit']) {
+            $limit = explode(',', $this->command['limit']);
+            $this->offset = $limit[0];
+            $this->limit = $limit[1];
+        }
+
+        // Creer la fonction de filtrage sur $this
+        if ($this->filtre) {
+            $filtres = 'return (' . join(') AND (', $this->filtre) . ');';
+            $this->func_filtre = function () use ($filtres) {
+                return eval($filtres);
+            };
+        }
+    }
+
+
+    protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return;
+            }
+        }
+        // TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
+        # mais c'est normalement deja opere par calculer_critere_infixe()
+        # qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
+        # ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
+        # il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
+
+        # if (!in_array($cle, array('cle', 'valeur')))
+        #	return;
+
+        $a = '$this->get_select(\'' . $cle . '\')';
+
+        $filtre = '';
+
+        if ($op == 'REGEXP') {
+            $filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+            $op = '';
+        } else {
+            if ($op == 'LIKE') {
+                $valeur = str_replace(array('\"', '_', '%'), array('"', '.', '.*'), preg_quote($valeur));
+                $filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+                $op = '';
+            } else {
+                if ($op == '=') {
+                    $op = '==';
+                } else {
+                    if ($op == 'IN') {
+                        $filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+                        $op = '';
+                    } else {
+                        if (!in_array($op, array('<', '<=', '>', '>='))) {
+                            spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+                            $op = '';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($op) {
+            $filtre = $a . $op . str_replace('\"', '"', $valeur);
+        }
+
+        if ($not) {
+            $filtre = "!($filtre)";
+        }
+
+        if ($filtre) {
+            $this->filtre[] = $filtre;
+        }
+    }
+
+
+    public function next() {
+        $this->pos++;
+        parent::next();
+    }
+
+    /**
+     * revient au depart
+     *
+     * @return void
+     */
+    public function rewind() {
+        $this->pos = 0;
+        $this->fetched = 0;
+        parent::rewind();
+    }
+
+
+    # Extension SPIP des iterateurs PHP
+    /**
+     * type de l'iterateur
+     *
+     * @var string
+     */
+    protected $type;
+
+    /**
+     * parametres de l'iterateur
+     *
+     * @var array
+     */
+    protected $command;
+
+    /**
+     * infos de compilateur
+     *
+     * @var array
+     */
+    protected $info;
+
+    /**
+     * position courante de l'iterateur
+     *
+     * @var int
+     */
+    protected $pos = null;
+
+    /**
+     * nombre total resultats dans l'iterateur
+     *
+     * @var int
+     */
+    protected $total = null;
+
+    /**
+     * nombre maximal de recherche pour $total
+     * si l'iterateur n'implemente pas de fonction specifique
+     */
+    protected $max = 100000;
+
+
+    /**
+     * Liste des champs a inserer dans les $row
+     * retournes par ->fetch()
+     */
+    protected $select = array();
+
+
+    /**
+     * aller a la position absolue n,
+     * comptee depuis le debut
+     *
+     * @param int $n
+     *   absolute pos
+     * @param string $continue
+     *   param for sql_ api
+     * @return bool
+     *   success or fail if not implemented
+     */
+    public function seek($n = 0, $continue = null) {
+        if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
+            $this->seek_loop($n);
+        }
+        $this->pos = $n;
+        $this->fetched = $n;
+
+        return true;
+    }
+
+    /*
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
-	private function seek_loop($n) {
-		if ($this->pos > $n) {
-			$this->rewind();
-		}
-
-		while ($this->pos < $n and $this->valid()) {
-			$this->next();
-		}
-
-		return true;
-	}
-
-	/**
-	 * Avancer de $saut pas
-	 *
-	 * @param  $saut
-	 * @param  $max
-	 * @return int
-	 */
-	public function skip($saut, $max = null) {
-		// pas de saut en arriere autorise pour cette fonction
-		if (($saut = intval($saut)) <= 0) {
-			return $this->pos;
-		}
-		$seek = $this->pos + $saut;
-		// si le saut fait depasser le maxi, on libere la resource
-		// et on sort
-		if (is_null($max)) {
-			$max = $this->count();
-		}
-
-		if ($seek >= $max or $seek >= $this->count()) {
-			// sortie plus rapide que de faire next() jusqu'a la fin !
-			$this->free();
-
-			return $max;
-		}
-
-		$this->seek($seek);
-
-		return $this->pos;
-	}
-
-	/**
-	 * Renvoyer un tableau des donnees correspondantes
-	 * a la position courante de l'iterateur
-	 * en controlant si on respecte le filtre
-	 * Appliquer aussi le critere {offset,limit}
-	 *
-	 * @return array|bool
-	 */
-	public function fetch() {
-		if (method_exists($this->iter, 'fetch')) {
-			return $this->iter->fetch();
-		} else {
-
-			while ($this->valid()
-				and (
-					!$this->accept()
-					or (isset($this->offset) and $this->fetched++ < $this->offset)
-				)) {
-				$this->next();
-			}
-
-			if (!$this->valid()) {
-				return false;
-			}
-
-			if (isset($this->limit)
-				and $this->fetched > $this->offset + $this->limit
-			) {
-				return false;
-			}
-
-			$r = array();
-			foreach ($this->select as $nom) {
-				$r[$nom] = $this->get_select($nom);
-			}
-			$this->next();
-
-			return $r;
-		}
-	}
-
-	// retourner la cle pour #CLE
-	public function cle() {
-		return $this->key();
-	}
-
-	// retourner la valeur pour #VALEUR
-	public function valeur() {
-		return $this->current();
-	}
-
-	/**
-	 * Accepte-t-on l'entree courante lue ?
-	 * On execute les filtres pour le savoir.
-	 **/
-	public function accept() {
-		if ($f = $this->func_filtre) {
-			return $f();
-		}
-
-		return true;
-	}
-
-	/**
-	 * liberer la ressource
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (method_exists($this->iter, 'free')) {
-			$this->iter->free();
-		}
-		$this->pos = $this->total = 0;
-
-		return true;
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 * pour #TOTAL_BOUCLE
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (method_exists($this->iter, 'count')
-				and !$this->func_filtre
-			) {
-				return $this->total = $this->iter->count();
-			} else {
-				// compter les lignes et rembobiner
-				$total = 0;
-				$pos = $this->pos; // sauver la position
-				$this->rewind();
-				while ($this->fetch() and $total < $this->max) {
-					$total++;
-				}
-				$this->seek($pos);
-				$this->total = $total;
-			}
-		}
-
-		return $this->total;
-	}
+    private function seek_loop($n) {
+        if ($this->pos > $n) {
+            $this->rewind();
+        }
+
+        while ($this->pos < $n and $this->valid()) {
+            $this->next();
+        }
+
+        return true;
+    }
+
+    /**
+     * Avancer de $saut pas
+     *
+     * @param  $saut
+     * @param  $max
+     * @return int
+     */
+    public function skip($saut, $max = null) {
+        // pas de saut en arriere autorise pour cette fonction
+        if (($saut = intval($saut)) <= 0) {
+            return $this->pos;
+        }
+        $seek = $this->pos + $saut;
+        // si le saut fait depasser le maxi, on libere la resource
+        // et on sort
+        if (is_null($max)) {
+            $max = $this->count();
+        }
+
+        if ($seek >= $max or $seek >= $this->count()) {
+            // sortie plus rapide que de faire next() jusqu'a la fin !
+            $this->free();
+
+            return $max;
+        }
+
+        $this->seek($seek);
+
+        return $this->pos;
+    }
+
+    /**
+     * Renvoyer un tableau des donnees correspondantes
+     * a la position courante de l'iterateur
+     * en controlant si on respecte le filtre
+     * Appliquer aussi le critere {offset,limit}
+     *
+     * @return array|bool
+     */
+    public function fetch() {
+        if (method_exists($this->iter, 'fetch')) {
+            return $this->iter->fetch();
+        } else {
+
+            while ($this->valid()
+                and (
+                    !$this->accept()
+                    or (isset($this->offset) and $this->fetched++ < $this->offset)
+                )) {
+                $this->next();
+            }
+
+            if (!$this->valid()) {
+                return false;
+            }
+
+            if (isset($this->limit)
+                and $this->fetched > $this->offset + $this->limit
+            ) {
+                return false;
+            }
+
+            $r = array();
+            foreach ($this->select as $nom) {
+                $r[$nom] = $this->get_select($nom);
+            }
+            $this->next();
+
+            return $r;
+        }
+    }
+
+    // retourner la cle pour #CLE
+    public function cle() {
+        return $this->key();
+    }
+
+    // retourner la valeur pour #VALEUR
+    public function valeur() {
+        return $this->current();
+    }
+
+    /**
+     * Accepte-t-on l'entree courante lue ?
+     * On execute les filtres pour le savoir.
+     **/
+    public function accept() {
+        if ($f = $this->func_filtre) {
+            return $f();
+        }
+
+        return true;
+    }
+
+    /**
+     * liberer la ressource
+     *
+     * @return bool
+     */
+    public function free() {
+        if (method_exists($this->iter, 'free')) {
+            $this->iter->free();
+        }
+        $this->pos = $this->total = 0;
+
+        return true;
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     * pour #TOTAL_BOUCLE
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (method_exists($this->iter, 'count')
+                and !$this->func_filtre
+            ) {
+                return $this->total = $this->iter->count();
+            } else {
+                // compter les lignes et rembobiner
+                $total = 0;
+                $pos = $this->pos; // sauver la position
+                $this->rewind();
+                while ($this->fetch() and $total < $this->max) {
+                    $total++;
+                }
+                $this->seek($pos);
+                $this->total = $total;
+            }
+        }
+
+        return $this->total;
+    }
 
 }