spip / SPIP

ecrire/install/etape_fin.php

Indentation +51 added lines, -51 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/headers');
@@ -21,64 +21,64 @@ 
 
 // https://code.spip.net/@install_etape_fin_dist
 function install_etape_fin_dist() {
-	ecrire_acces();
+    ecrire_acces();
 
-	$f = str_replace(_FILE_TMP_SUFFIX, '.php', _FILE_CHMOD_TMP);
-	if (file_exists(_FILE_CHMOD_TMP)) {
-		if (!@rename(_FILE_CHMOD_TMP, $f)) {
-			if (@copy(_FILE_CHMOD_TMP, $f)) {
-				spip_unlink(_FILE_CHMOD_TMP);
-			}
-		}
-	}
+    $f = str_replace(_FILE_TMP_SUFFIX, '.php', _FILE_CHMOD_TMP);
+    if (file_exists(_FILE_CHMOD_TMP)) {
+        if (!@rename(_FILE_CHMOD_TMP, $f)) {
+            if (@copy(_FILE_CHMOD_TMP, $f)) {
+                spip_unlink(_FILE_CHMOD_TMP);
+            }
+        }
+    }
 
-	$f = str_replace(_FILE_TMP_SUFFIX, '.php', _FILE_CONNECT_TMP);
-	if (file_exists(_FILE_CONNECT_TMP)) {
-		spip_log("renomme $f");
-		if (!@rename(_FILE_CONNECT_TMP, $f)) {
-			if (@copy(_FILE_CONNECT_TMP, $f)) {
-				@spip_unlink(_FILE_CONNECT_TMP);
-			}
-		}
-	}
+    $f = str_replace(_FILE_TMP_SUFFIX, '.php', _FILE_CONNECT_TMP);
+    if (file_exists(_FILE_CONNECT_TMP)) {
+        spip_log("renomme $f");
+        if (!@rename(_FILE_CONNECT_TMP, $f)) {
+            if (@copy(_FILE_CONNECT_TMP, $f)) {
+                @spip_unlink(_FILE_CONNECT_TMP);
+            }
+        }
+    }
 
-	// creer le repertoire cache, qui sert partout !
-	// deja fait en etape 4 en principe, on garde au cas ou
-	if (!@file_exists(_DIR_CACHE)) {
-		$rep = preg_replace(',' . _DIR_TMP . ',', '', _DIR_CACHE);
-		$rep = sous_repertoire(_DIR_TMP, $rep, true, true);
-	}
+    // creer le repertoire cache, qui sert partout !
+    // deja fait en etape 4 en principe, on garde au cas ou
+    if (!@file_exists(_DIR_CACHE)) {
+        $rep = preg_replace(',' . _DIR_TMP . ',', '', _DIR_CACHE);
+        $rep = sous_repertoire(_DIR_TMP, $rep, true, true);
+    }
 
-	// Verifier la securite des htaccess
-	// Si elle ne fonctionne pas, prevenir
-	$msg = install_verifier_htaccess();
-	if ($msg) {
-		$cible = _T('public:accueil_site');
-		$cible = generer_form_ecrire('accueil', '', '', $cible);
-		echo minipres('AUTO', $msg . $cible);
-		// ok, deboucher dans l'espace prive
-	} else {
-		redirige_url_ecrire('accueil');
-	}
+    // Verifier la securite des htaccess
+    // Si elle ne fonctionne pas, prevenir
+    $msg = install_verifier_htaccess();
+    if ($msg) {
+        $cible = _T('public:accueil_site');
+        $cible = generer_form_ecrire('accueil', '', '', $cible);
+        echo minipres('AUTO', $msg . $cible);
+        // ok, deboucher dans l'espace prive
+    } else {
+        redirige_url_ecrire('accueil');
+    }
 }
 
 function install_verifier_htaccess() {
-	if (verifier_htaccess(_DIR_TMP, true)
-		and verifier_htaccess(_DIR_CONNECT, true)
-	) {
-		return '';
-	}
+    if (verifier_htaccess(_DIR_TMP, true)
+        and verifier_htaccess(_DIR_CONNECT, true)
+    ) {
+        return '';
+    }
 
-	$titre = _T('htaccess_inoperant');
+    $titre = _T('htaccess_inoperant');
 
-	$averti = _T(
-		'htaccess_a_simuler',
-		array(
-			'htaccess' => '<tt>' . _ACCESS_FILE_NAME . '</tt>',
-			'constantes' => '<tt>_DIR_TMP &amp; _DIR_CONNECT</tt>',
-			'document_root' => '<tt>' . $_SERVER['DOCUMENT_ROOT'] . '</tt>'
-		)
-	);
+    $averti = _T(
+        'htaccess_a_simuler',
+        array(
+            'htaccess' => '<tt>' . _ACCESS_FILE_NAME . '</tt>',
+            'constantes' => '<tt>_DIR_TMP &amp; _DIR_CONNECT</tt>',
+            'document_root' => '<tt>' . $_SERVER['DOCUMENT_ROOT'] . '</tt>'
+        )
+    );
 
-	return "<div class='error'><h3>$titre</h3><p>$averti</p></div>";
+    return "<div class='error'><h3>$titre</h3><p>$averti</p></div>";
 }

ecrire/install/etape_chmod.php

Indentation +117 added lines, -117 removed lines

@@ -11,11 +11,11 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (defined('_TEST_DIRS')) {
-	return;
+    return;
 }
 define('_TEST_DIRS', '1');
 
@@ -27,42 +27,42 @@ 
 //
 // https://code.spip.net/@test_ecrire
 function test_ecrire($my_dir) {
-	static $chmod = 0;
-
-	$ok = false;
-	$script = @file_exists('spip_loader.php') ? 'spip_loader.php' : $_SERVER['PHP_SELF'];
-	$self = basename($script);
-	$uid = @fileowner('.');
-	$uid2 = @fileowner($self);
-	$gid = @filegroup('.');
-	$gid2 = @filegroup($self);
-	$perms = @fileperms($self);
-
-	// Comparer l'appartenance d'un fichier cree par PHP
-	// avec celle du script et du repertoire courant
-	if (!$chmod) {
-		@rmdir('test');
-		spip_unlink('test'); // effacer au cas ou
-		@touch('test');
-		if ($uid > 0 && $uid == $uid2 && @fileowner('test') == $uid) {
-			$chmod = 0700;
-		} else {
-			if ($gid > 0 && $gid == $gid2 && @filegroup('test') == $gid) {
-				$chmod = 0770;
-			} else {
-				$chmod = 0777;
-			}
-		}
-		// Appliquer de plus les droits d'acces du script
-		if ($perms > 0) {
-			$perms = ($perms & 0777) | (($perms & 0444) >> 2);
-			$chmod |= $perms;
-		}
-		spip_unlink('test');
-	}
-	$ok = is_dir($my_dir) && is_writable($my_dir);
-
-	return $ok ? $chmod : false;
+    static $chmod = 0;
+
+    $ok = false;
+    $script = @file_exists('spip_loader.php') ? 'spip_loader.php' : $_SERVER['PHP_SELF'];
+    $self = basename($script);
+    $uid = @fileowner('.');
+    $uid2 = @fileowner($self);
+    $gid = @filegroup('.');
+    $gid2 = @filegroup($self);
+    $perms = @fileperms($self);
+
+    // Comparer l'appartenance d'un fichier cree par PHP
+    // avec celle du script et du repertoire courant
+    if (!$chmod) {
+        @rmdir('test');
+        spip_unlink('test'); // effacer au cas ou
+        @touch('test');
+        if ($uid > 0 && $uid == $uid2 && @fileowner('test') == $uid) {
+            $chmod = 0700;
+        } else {
+            if ($gid > 0 && $gid == $gid2 && @filegroup('test') == $gid) {
+                $chmod = 0770;
+            } else {
+                $chmod = 0777;
+            }
+        }
+        // Appliquer de plus les droits d'acces du script
+        if ($perms > 0) {
+            $perms = ($perms & 0777) | (($perms & 0444) >> 2);
+            $chmod |= $perms;
+        }
+        spip_unlink('test');
+    }
+    $ok = is_dir($my_dir) && is_writable($my_dir);
+
+    return $ok ? $chmod : false;
 }
 
 //
@@ -73,83 +73,83 @@ 
 // https://code.spip.net/@install_etape_chmod_dist
 function install_etape_chmod_dist() {
 
-	$test_dir = _request('test_dir');
-	$chmod = 0;
-
-	if ($test_dir) {
-		if (substr($test_dir, -1) !== '/') {
-			$test_dir .= '/';
-		}
-		if (!in_array($test_dir, $GLOBALS['test_dirs'])) {
-			$GLOBALS['test_dirs'][] = _DIR_RACINE . $test_dir;
-		}
-	} else {
-		if (!_FILE_CONNECT) {
-			$GLOBALS['test_dirs'][] = _DIR_CONNECT;
-			$GLOBALS['test_dirs'][] = _DIR_CHMOD;
-		}
-	}
-
-	$bad_dirs = array();
-	$absent_dirs = array();
-
-	foreach ($GLOBALS['test_dirs'] as $i => $my_dir) {
-		$test = test_ecrire($my_dir);
-		if (!$test) {
-			$m = preg_replace(',^' . _DIR_RACINE . ',', '', $my_dir);
-			if (@file_exists($my_dir)) {
-				$bad_dirs['<li>' . $m . '</li>'] = 1;
-			} else {
-				$absent_dirs['<li>' . $m . '</li>'] = 1;
-			}
-		} else {
-			$chmod = max($chmod, $test);
-		}
-	}
-
-	if ($bad_dirs or $absent_dirs) {
-		if (!_FILE_CONNECT) {
-			$titre = _T('dirs_preliminaire');
-			$continuer = ' ' . _T('dirs_commencer') . '.';
-		} else {
-			$titre = _T('dirs_probleme_droits');
-		}
-
-
-		$res = "<div align='right'>" . menu_langues('var_lang_ecrire') . "</div>\n";
-
-		if ($bad_dirs) {
-			$res .=
-				_T(
-					'dirs_repertoires_suivants',
-					array('bad_dirs' => join("\n", array_keys($bad_dirs)))
-				) .
-				'<b>' . _T('login_recharger') . '</b>.';
-		}
-
-		if ($absent_dirs) {
-			$res .=
-				_T(
-					'dirs_repertoires_absents',
-					array('bad_dirs' => join("\n", array_keys($absent_dirs)))
-				) .
-				'<b>' . _T('login_recharger') . '</b>.';
-		}
-		$res = '<p>' . $continuer . $res . aider('install0', true) . '</p>';
-
-		$t = _T('login_recharger');
-		$t = (!$test_dir ? '' :
-				"<input type='hidden' name='test_dir' value='" . spip_htmlspecialchars($test_dir, ENT_QUOTES) . "' />")
-			. "<input type='hidden' name='etape' value='chmod' />"
-			. "<div style='text-align: right'><input type='submit' value='" . attribut_html($t) . "' /></div>";
-
-		echo minipres($titre, $res . generer_form_ecrire('install', $t));
-	} else {
-		$deja = (_FILE_CONNECT and analyse_fichier_connection(_FILE_CONNECT));
-		if (!$deja) {
-			redirige_url_ecrire('install', 'etape=1&chmod=' . $chmod);
-		} else {
-			redirige_url_ecrire();
-		}
-	}
+    $test_dir = _request('test_dir');
+    $chmod = 0;
+
+    if ($test_dir) {
+        if (substr($test_dir, -1) !== '/') {
+            $test_dir .= '/';
+        }
+        if (!in_array($test_dir, $GLOBALS['test_dirs'])) {
+            $GLOBALS['test_dirs'][] = _DIR_RACINE . $test_dir;
+        }
+    } else {
+        if (!_FILE_CONNECT) {
+            $GLOBALS['test_dirs'][] = _DIR_CONNECT;
+            $GLOBALS['test_dirs'][] = _DIR_CHMOD;
+        }
+    }
+
+    $bad_dirs = array();
+    $absent_dirs = array();
+
+    foreach ($GLOBALS['test_dirs'] as $i => $my_dir) {
+        $test = test_ecrire($my_dir);
+        if (!$test) {
+            $m = preg_replace(',^' . _DIR_RACINE . ',', '', $my_dir);
+            if (@file_exists($my_dir)) {
+                $bad_dirs['<li>' . $m . '</li>'] = 1;
+            } else {
+                $absent_dirs['<li>' . $m . '</li>'] = 1;
+            }
+        } else {
+            $chmod = max($chmod, $test);
+        }
+    }
+
+    if ($bad_dirs or $absent_dirs) {
+        if (!_FILE_CONNECT) {
+            $titre = _T('dirs_preliminaire');
+            $continuer = ' ' . _T('dirs_commencer') . '.';
+        } else {
+            $titre = _T('dirs_probleme_droits');
+        }
+
+
+        $res = "<div align='right'>" . menu_langues('var_lang_ecrire') . "</div>\n";
+
+        if ($bad_dirs) {
+            $res .=
+                _T(
+                    'dirs_repertoires_suivants',
+                    array('bad_dirs' => join("\n", array_keys($bad_dirs)))
+                ) .
+                '<b>' . _T('login_recharger') . '</b>.';
+        }
+
+        if ($absent_dirs) {
+            $res .=
+                _T(
+                    'dirs_repertoires_absents',
+                    array('bad_dirs' => join("\n", array_keys($absent_dirs)))
+                ) .
+                '<b>' . _T('login_recharger') . '</b>.';
+        }
+        $res = '<p>' . $continuer . $res . aider('install0', true) . '</p>';
+
+        $t = _T('login_recharger');
+        $t = (!$test_dir ? '' :
+                "<input type='hidden' name='test_dir' value='" . spip_htmlspecialchars($test_dir, ENT_QUOTES) . "' />")
+            . "<input type='hidden' name='etape' value='chmod' />"
+            . "<div style='text-align: right'><input type='submit' value='" . attribut_html($t) . "' /></div>";
+
+        echo minipres($titre, $res . generer_form_ecrire('install', $t));
+    } else {
+        $deja = (_FILE_CONNECT and analyse_fichier_connection(_FILE_CONNECT));
+        if (!$deja) {
+            redirige_url_ecrire('install', 'etape=1&chmod=' . $chmod);
+        } else {
+            redirige_url_ecrire();
+        }
+    }
 }

ecrire/base/create.php

Indentation +98 added lines, -98 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Installation
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/acces');
@@ -33,18 +33,18 @@ 
  * @return bool
  */
 function base_determine_autoinc($table, $desc = array()) {
-	if ($t = lister_tables_principales() and isset($t[$table])) {
-		$autoinc = true;
-	} elseif ($t = lister_tables_auxiliaires() and isset($t[$table])) {
-		$autoinc = false;
-	} else {
-		// essayer de faire au mieux !
-		$autoinc = (isset($desc['key']['PRIMARY KEY'])
-			and strpos($desc['key']['PRIMARY KEY'], ',') === false
-			and strpos($desc['field'][$desc['key']['PRIMARY KEY']], 'default') === false);
-	}
+    if ($t = lister_tables_principales() and isset($t[$table])) {
+        $autoinc = true;
+    } elseif ($t = lister_tables_auxiliaires() and isset($t[$table])) {
+        $autoinc = false;
+    } else {
+        // essayer de faire au mieux !
+        $autoinc = (isset($desc['key']['PRIMARY KEY'])
+            and strpos($desc['key']['PRIMARY KEY'], ',') === false
+            and strpos($desc['field'][$desc['key']['PRIMARY KEY']], 'default') === false);
+    }
 
-	return $autoinc;
+    return $autoinc;
 }
 
 /**
@@ -61,59 +61,59 @@ 
  * @return void
  */
 function creer_ou_upgrader_table($table, $desc, $autoinc, $upgrade = false, $serveur = '') {
-	#spip_log("creer_ou_upgrader_table table=$table autoinc=$autoinc upgrade=$upgrade","dbinstall"._LOG_INFO_IMPORTANTE);
-	$sql_desc = $upgrade ? sql_showtable($table, true, $serveur) : false;
-	#if (!$sql_desc) $sql_desc = false;
-	#spip_log("table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-	if (!$sql_desc) {
-		if ($autoinc === 'auto') {
-			$autoinc = base_determine_autoinc($table, $desc);
-		}
-		#spip_log("sql_create $table autoinc=$autoinc","dbinstall"._LOG_INFO_IMPORTANTE);
-		if (isset($desc['field']) and isset($desc['key'])) {
-			sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
-		}
-		// verifier la bonne installation de la table (php-fpm es-tu la ?)
-		$sql_desc = sql_showtable($table, true, $serveur);
-		#if (!$sql_desc) $sql_desc = false;
-		#spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-		if (!$sql_desc) {
-			// on retente avec un sleep ?
-			sleep(1);
-			sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
-			$sql_desc = sql_showtable($table, true, $serveur);
-			#if (!$sql_desc) $sql_desc = false;
-			#spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
-			if (!$sql_desc) {
-				spip_log("Echec creation table $table", "maj" . _LOG_CRITIQUE);
-			}
-		}
-	} else {
-		#spip_log("sql_alter $table ... (on s'en fiche)","dbinstall"._LOG_INFO_IMPORTANTE);
-		// ajouter les champs manquants
-		// on ne supprime jamais les champs, car c'est dangereux
-		// c'est toujours a faire manuellement
-		$last = '';
-		if (isset($desc['field'])) {
-			foreach ($desc['field'] as $field => $type) {
-				if (!isset($sql_desc['field'][$field])) {
-					sql_alter("TABLE $table ADD $field $type" . ($last ? " AFTER $last" : ""), $serveur);
-				}
-				$last = $field;
-			}
-		}
-		if (isset($desc['key'])) {
-			foreach ($desc['key'] as $key => $type) {
-				// Ne pas oublier les cas des cles non nommees dans la declaration et qui sont retournees
-				// par le showtable sous la forme d'un index de tableau "KEY $type" et non "KEY"
-				if (!isset($sql_desc['key'][$key]) and !isset($sql_desc['key']["$key $type"])) {
-					sql_alter("TABLE $table ADD $key ($type)", $serveur);
-				}
-				$last = $field;
-			}
-		}
+    #spip_log("creer_ou_upgrader_table table=$table autoinc=$autoinc upgrade=$upgrade","dbinstall"._LOG_INFO_IMPORTANTE);
+    $sql_desc = $upgrade ? sql_showtable($table, true, $serveur) : false;
+    #if (!$sql_desc) $sql_desc = false;
+    #spip_log("table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+    if (!$sql_desc) {
+        if ($autoinc === 'auto') {
+            $autoinc = base_determine_autoinc($table, $desc);
+        }
+        #spip_log("sql_create $table autoinc=$autoinc","dbinstall"._LOG_INFO_IMPORTANTE);
+        if (isset($desc['field']) and isset($desc['key'])) {
+            sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
+        }
+        // verifier la bonne installation de la table (php-fpm es-tu la ?)
+        $sql_desc = sql_showtable($table, true, $serveur);
+        #if (!$sql_desc) $sql_desc = false;
+        #spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+        if (!$sql_desc) {
+            // on retente avec un sleep ?
+            sleep(1);
+            sql_create($table, $desc['field'], $desc['key'], $autoinc, false, $serveur);
+            $sql_desc = sql_showtable($table, true, $serveur);
+            #if (!$sql_desc) $sql_desc = false;
+            #spip_log("Resultat table=$table sql_desc:$sql_desc","dbinstall"._LOG_INFO_IMPORTANTE);
+            if (!$sql_desc) {
+                spip_log("Echec creation table $table", "maj" . _LOG_CRITIQUE);
+            }
+        }
+    } else {
+        #spip_log("sql_alter $table ... (on s'en fiche)","dbinstall"._LOG_INFO_IMPORTANTE);
+        // ajouter les champs manquants
+        // on ne supprime jamais les champs, car c'est dangereux
+        // c'est toujours a faire manuellement
+        $last = '';
+        if (isset($desc['field'])) {
+            foreach ($desc['field'] as $field => $type) {
+                if (!isset($sql_desc['field'][$field])) {
+                    sql_alter("TABLE $table ADD $field $type" . ($last ? " AFTER $last" : ""), $serveur);
+                }
+                $last = $field;
+            }
+        }
+        if (isset($desc['key'])) {
+            foreach ($desc['key'] as $key => $type) {
+                // Ne pas oublier les cas des cles non nommees dans la declaration et qui sont retournees
+                // par le showtable sous la forme d'un index de tableau "KEY $type" et non "KEY"
+                if (!isset($sql_desc['key'][$key]) and !isset($sql_desc['key']["$key $type"])) {
+                    sql_alter("TABLE $table ADD $key ($type)", $serveur);
+                }
+                $last = $field;
+            }
+        }
 
-	}
+    }
 }
 
 /**
@@ -135,26 +135,26 @@ 
  * @return void
  */
 function alterer_base($tables_inc, $tables_noinc, $up = false, $serveur = '') {
-	if ($up === false) {
-		$old = false;
-		$up = array();
-	} else {
-		$old = true;
-		if (!is_array($up)) {
-			$up = array($up);
-		}
-	}
-	foreach ($tables_inc as $k => $v) {
-		if (!$old or in_array($k, $up)) {
-			creer_ou_upgrader_table($k, $v, true, $old, $serveur);
-		}
-	}
+    if ($up === false) {
+        $old = false;
+        $up = array();
+    } else {
+        $old = true;
+        if (!is_array($up)) {
+            $up = array($up);
+        }
+    }
+    foreach ($tables_inc as $k => $v) {
+        if (!$old or in_array($k, $up)) {
+            creer_ou_upgrader_table($k, $v, true, $old, $serveur);
+        }
+    }
 
-	foreach ($tables_noinc as $k => $v) {
-		if (!$old or in_array($k, $up)) {
-			creer_ou_upgrader_table($k, $v, false, $old, $serveur);
-		}
-	}
+    foreach ($tables_noinc as $k => $v) {
+        if (!$old or in_array($k, $up)) {
+            creer_ou_upgrader_table($k, $v, false, $old, $serveur);
+        }
+    }
 }
 
 /**
@@ -174,16 +174,16 @@ 
  */
 function creer_base($serveur = '') {
 
-	// Note: les mises a jour reexecutent ce code pour s'assurer
-	// de la conformite de la base
-	// pas de panique sur  "already exists" et "duplicate entry" donc.
+    // Note: les mises a jour reexecutent ce code pour s'assurer
+    // de la conformite de la base
+    // pas de panique sur  "already exists" et "duplicate entry" donc.
 
-	alterer_base(
-		lister_tables_principales(),
-		lister_tables_auxiliaires(),
-		false,
-		$serveur
-	);
+    alterer_base(
+        lister_tables_principales(),
+        lister_tables_auxiliaires(),
+        false,
+        $serveur
+    );
 }
 
 /**
@@ -203,10 +203,10 @@ 
  * @return void
  */
 function maj_tables($upgrade_tables = array(), $serveur = '') {
-	alterer_base(
-		lister_tables_principales(),
-		lister_tables_auxiliaires(),
-		$upgrade_tables,
-		$serveur
-	);
+    alterer_base(
+        lister_tables_principales(),
+        lister_tables_auxiliaires(),
+        $upgrade_tables,
+        $serveur
+    );
 }

ecrire/action/etre_webmestre.php

Indentation +21 added lines, -21 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/actions');
@@ -29,22 +29,22 @@ 
  * @return void
  */
 function action_etre_webmestre_dist() {
-	$securiser_action = charger_fonction('securiser_action', 'inc');
-	$time = $securiser_action();
-
-	if (time() - $time < 15 * 60
-		and $GLOBALS['visiteur_session']['statut'] == '0minirezo'
-		and $GLOBALS['visiteur_session']['webmestre'] !== 'oui'
-	) {
-		$action = _T('info_admin_etre_webmestre');
-		$admin = charger_fonction('admin', 'inc');
-		// lance la verif par ftp et l'appel
-		// a base_etre_webmestre_dist quand c'est OK
-		if ($r = $admin('etre_webmestre', $action)) {
-			echo $r;
-			exit;
-		}
-	}
+    $securiser_action = charger_fonction('securiser_action', 'inc');
+    $time = $securiser_action();
+
+    if (time() - $time < 15 * 60
+        and $GLOBALS['visiteur_session']['statut'] == '0minirezo'
+        and $GLOBALS['visiteur_session']['webmestre'] !== 'oui'
+    ) {
+        $action = _T('info_admin_etre_webmestre');
+        $admin = charger_fonction('admin', 'inc');
+        // lance la verif par ftp et l'appel
+        // a base_etre_webmestre_dist quand c'est OK
+        if ($r = $admin('etre_webmestre', $action)) {
+            echo $r;
+            exit;
+        }
+    }
 
 }
 
@@ -54,8 +54,8 @@ 
  * @return void
  */
 function base_etre_webmestre_dist() {
-	if ($GLOBALS['visiteur_session']['statut'] == '0minirezo' and $GLOBALS['visiteur_session']['webmestre'] !== 'oui') {
-		include_spip('action/editer_auteur');
-		auteur_instituer($GLOBALS['visiteur_session']['id_auteur'], array('webmestre' => 'oui'), true);
-	}
+    if ($GLOBALS['visiteur_session']['statut'] == '0minirezo' and $GLOBALS['visiteur_session']['webmestre'] !== 'oui') {
+        include_spip('action/editer_auteur');
+        auteur_instituer($GLOBALS['visiteur_session']['id_auteur'], array('webmestre' => 'oui'), true);
+    }
 }

ecrire/plugins/afficher_plugin.php

Indentation +276 added lines, -276 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/charsets');
 include_spip('inc/texte');
@@ -25,189 +25,189 @@ 
 
 // https://code.spip.net/@ligne_plug
 function plugins_afficher_plugin_dist(
-	$url_page,
-	$plug_file,
-	$checked,
-	$actif,
-	$expose = false,
-	$class_li = "item",
-	$dir_plugins = _DIR_PLUGINS
+    $url_page,
+    $plug_file,
+    $checked,
+    $actif,
+    $expose = false,
+    $class_li = "item",
+    $dir_plugins = _DIR_PLUGINS
 ) {
 
-	static $id_input = 0;
-	static $versions = array();
-
-	$force_reload = (_request('var_mode') == 'recalcul');
-	$get_infos = charger_fonction('get_infos', 'plugins');
-	$info = $get_infos($plug_file, $force_reload, $dir_plugins);
-	$prefix = $info['prefix'];
-	$cfg = "";
-	$checkable = ($dir_plugins !== _DIR_PLUGINS_DIST);
-	$nom = plugin_nom($info, $dir_plugins, $plug_file);
-	$erreur = "";
-
-	if (!plugin_version_compatible($info['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
-		$info['slogan'] = _T('plugin_info_non_compatible_spip');
-		$erreur = http_img_pack("plugin-dis-32.png", _T('plugin_info_non_compatible_spip'), " class='picto_err'",
-			_T('plugin_info_non_compatible_spip'));
-		$class_li .= " disabled";
-		$checkable = false;
-	} elseif (isset($info['erreur'])) {
-		$class_li .= " error";
-		$erreur = http_img_pack("plugin-err-32.png", _T('plugin_info_erreur_xml'), " class='picto_err'",
-				_T('plugin_info_erreur_xml'))
-			. "<div class='erreur'>" . join('<br >', $info['erreur']) . "</div>";
-		$checkable = false;
-	} elseif (isset($GLOBALS['erreurs_activation_raw'][$dir_plugins . $plug_file])) {
-		$class_li .= " error";
-		$erreur = http_img_pack("plugin-err-32.png", _T('plugin_impossible_activer', array('plugin' => $nom)),
-				" class='picto_err'", _T('plugin_impossible_activer', array('plugin' => $nom)))
-			. "<div class='erreur'>" . implode("<br />",
-				$GLOBALS['erreurs_activation_raw'][$dir_plugins . $plug_file]) . "</div>";
-	} else {
-		$cfg = $actif ? plugin_bouton_config($plug_file, $info, $dir_plugins) : "";
-	}
-
-	// numerotons les occurrences d'un meme prefix
-	$versions[$prefix] = $id = isset($versions[$prefix]) ? intval($versions[$prefix]) + 1 : '';
-
-	$class_li .= ($actif ? " actif" : "") . ($expose ? " on" : "");
-
-	return "<li id='$prefix$id' class='$class_li'>"
-	. ((!$checkable and !$checked)
-		? '' : plugin_checkbox(++$id_input, $dir_plugins . $plug_file, $checked))
-	. plugin_resume($info, $dir_plugins, $plug_file, $url_page)
-	. $cfg
-	. $erreur
-	. (($dir_plugins !== _DIR_PLUGINS_DIST and plugin_est_installe($plug_file))
-		? plugin_desintalle($plug_file, $nom, $dir_plugins) : '')
-	. "<div class='details'>" // pour l'ajax de exec/info_plugin
-	. (!$expose ? '' : affiche_bloc_plugin($plug_file, $info, $dir_plugins))
-	. "</div>"
-	. "</li>";
+    static $id_input = 0;
+    static $versions = array();
+
+    $force_reload = (_request('var_mode') == 'recalcul');
+    $get_infos = charger_fonction('get_infos', 'plugins');
+    $info = $get_infos($plug_file, $force_reload, $dir_plugins);
+    $prefix = $info['prefix'];
+    $cfg = "";
+    $checkable = ($dir_plugins !== _DIR_PLUGINS_DIST);
+    $nom = plugin_nom($info, $dir_plugins, $plug_file);
+    $erreur = "";
+
+    if (!plugin_version_compatible($info['compatibilite'], $GLOBALS['spip_version_branche'], 'spip')) {
+        $info['slogan'] = _T('plugin_info_non_compatible_spip');
+        $erreur = http_img_pack("plugin-dis-32.png", _T('plugin_info_non_compatible_spip'), " class='picto_err'",
+            _T('plugin_info_non_compatible_spip'));
+        $class_li .= " disabled";
+        $checkable = false;
+    } elseif (isset($info['erreur'])) {
+        $class_li .= " error";
+        $erreur = http_img_pack("plugin-err-32.png", _T('plugin_info_erreur_xml'), " class='picto_err'",
+                _T('plugin_info_erreur_xml'))
+            . "<div class='erreur'>" . join('<br >', $info['erreur']) . "</div>";
+        $checkable = false;
+    } elseif (isset($GLOBALS['erreurs_activation_raw'][$dir_plugins . $plug_file])) {
+        $class_li .= " error";
+        $erreur = http_img_pack("plugin-err-32.png", _T('plugin_impossible_activer', array('plugin' => $nom)),
+                " class='picto_err'", _T('plugin_impossible_activer', array('plugin' => $nom)))
+            . "<div class='erreur'>" . implode("<br />",
+                $GLOBALS['erreurs_activation_raw'][$dir_plugins . $plug_file]) . "</div>";
+    } else {
+        $cfg = $actif ? plugin_bouton_config($plug_file, $info, $dir_plugins) : "";
+    }
+
+    // numerotons les occurrences d'un meme prefix
+    $versions[$prefix] = $id = isset($versions[$prefix]) ? intval($versions[$prefix]) + 1 : '';
+
+    $class_li .= ($actif ? " actif" : "") . ($expose ? " on" : "");
+
+    return "<li id='$prefix$id' class='$class_li'>"
+    . ((!$checkable and !$checked)
+        ? '' : plugin_checkbox(++$id_input, $dir_plugins . $plug_file, $checked))
+    . plugin_resume($info, $dir_plugins, $plug_file, $url_page)
+    . $cfg
+    . $erreur
+    . (($dir_plugins !== _DIR_PLUGINS_DIST and plugin_est_installe($plug_file))
+        ? plugin_desintalle($plug_file, $nom, $dir_plugins) : '')
+    . "<div class='details'>" // pour l'ajax de exec/info_plugin
+    . (!$expose ? '' : affiche_bloc_plugin($plug_file, $info, $dir_plugins))
+    . "</div>"
+    . "</li>";
 }
 
 function plugin_bouton_config($nom, $infos, $dir) {
-	// la verification se base sur le filesystem
-	// il faut donc n'utiliser que des minuscules, par convention
-	$prefix = strtolower($infos['prefix']);
-	// si paquet.xml fournit un squelette, le prendre
-	if (isset($infos['config']) and $infos['config']) {
-		return recuperer_fond("$dir$nom/" . $infos['config'],
-			array(
-				'script' => 'configurer_' . $prefix,
-				'nom' => $nom
-			));
-	}
-
-	// si le plugin CFG est la, l'essayer
-	if (defined('_DIR_PLUGIN_CFG')) {
-		if (include_spip('inc/cfg')) // test CFG version >= 1.0.5
-		{
-			if ($cfg = icone_lien_cfg("$dir$nom", "cfg")) {
-				return "<div class='cfg_link'>$cfg</div>";
-			}
-		}
-	}
-
-	// sinon prendre le squelette std sur le nom std
-	return recuperer_fond("prive/squelettes/inclure/cfg",
-		array(
-			'script' => 'configurer_' . $prefix,
-			'nom' => $nom
-		));
+    // la verification se base sur le filesystem
+    // il faut donc n'utiliser que des minuscules, par convention
+    $prefix = strtolower($infos['prefix']);
+    // si paquet.xml fournit un squelette, le prendre
+    if (isset($infos['config']) and $infos['config']) {
+        return recuperer_fond("$dir$nom/" . $infos['config'],
+            array(
+                'script' => 'configurer_' . $prefix,
+                'nom' => $nom
+            ));
+    }
+
+    // si le plugin CFG est la, l'essayer
+    if (defined('_DIR_PLUGIN_CFG')) {
+        if (include_spip('inc/cfg')) // test CFG version >= 1.0.5
+        {
+            if ($cfg = icone_lien_cfg("$dir$nom", "cfg")) {
+                return "<div class='cfg_link'>$cfg</div>";
+            }
+        }
+    }
+
+    // sinon prendre le squelette std sur le nom std
+    return recuperer_fond("prive/squelettes/inclure/cfg",
+        array(
+            'script' => 'configurer_' . $prefix,
+            'nom' => $nom
+        ));
 }
 
 // checkbox pour activer ou desactiver
 // si ce n'est pas une extension
 
 function plugin_checkbox($id_input, $file, $actif) {
-	$name = substr(md5($file), 0, 16);
-
-	return "<div class='check'>\n"
-	. "<input type='checkbox' name='s$name' id='label_$id_input'"
-	. ($actif ? " checked='checked'" : "")
-	. " class='checkbox'  value='O' />"
-	. "\n<label for='label_$id_input'>" . _T('activer_plugin') . "</label>"
-	. "</div>";
+    $name = substr(md5($file), 0, 16);
+
+    return "<div class='check'>\n"
+    . "<input type='checkbox' name='s$name' id='label_$id_input'"
+    . ($actif ? " checked='checked'" : "")
+    . " class='checkbox'  value='O' />"
+    . "\n<label for='label_$id_input'>" . _T('activer_plugin') . "</label>"
+    . "</div>";
 }
 
 function plugin_nom($info, $dir_plugins, $plug_file) {
-	$prefix = $info['prefix'];
-	$dir = "$dir_plugins$plug_file";
-	// Si dtd paquet, on traite le nom soit par son item de langue soit par sa valeur immediate a l'index "nom"
-	if ($info['dtd'] == "paquet") {
-		$nom = plugin_typo("{$prefix}_nom", "$dir/lang/paquet-$prefix");
-		if (!$nom) {
-			$nom = typo($info['nom']);
-		}
-	} else {
-		$nom = typo(attribut_html($info['nom']));
-	}
-
-	return trim($nom);
+    $prefix = $info['prefix'];
+    $dir = "$dir_plugins$plug_file";
+    // Si dtd paquet, on traite le nom soit par son item de langue soit par sa valeur immediate a l'index "nom"
+    if ($info['dtd'] == "paquet") {
+        $nom = plugin_typo("{$prefix}_nom", "$dir/lang/paquet-$prefix");
+        if (!$nom) {
+            $nom = typo($info['nom']);
+        }
+    } else {
+        $nom = typo(attribut_html($info['nom']));
+    }
+
+    return trim($nom);
 }
 
 // Cartouche Resume
 function plugin_resume($info, $dir_plugins, $plug_file, $url_page) {
-	$prefix = $info['prefix'];
-	$dir = "$dir_plugins$plug_file";
-	$slogan = PtoBR(plugin_propre($info['slogan'], "$dir/lang/paquet-$prefix"));
-	// une seule ligne dans le slogan : couper si besoin
-	if (($p = strpos($slogan, "<br />")) !== false) {
-		$slogan = substr($slogan, 0, $p);
-	}
-	// couper par securite
-	$slogan = couper($slogan, 80);
-
-	$nom = plugin_nom($info, $dir_plugins, $plug_file);
-
-	$url = parametre_url($url_page, "plugin", substr($dir, strlen(_DIR_RACINE)));
-
-	$icon_class = 'icon';
-	$img = '';
-	if (isset($info['logo']) and $i = trim($info['logo'])) {
-		if ($img = chemin_image("$dir/$i")) {
-			$img = http_img_pack($img, '', " width='32' height='32'", '', ['variante_svg_si_possible' => true, 'chemin_image' => false]);
-		}
-	}
-	if (!$img) {
-		$img = http_img_pack("plugin-xx.svg", '', " width='32' height='32'");
-		$icon_class .= ' no-logo';
-	}
-	else {
+    $prefix = $info['prefix'];
+    $dir = "$dir_plugins$plug_file";
+    $slogan = PtoBR(plugin_propre($info['slogan'], "$dir/lang/paquet-$prefix"));
+    // une seule ligne dans le slogan : couper si besoin
+    if (($p = strpos($slogan, "<br />")) !== false) {
+        $slogan = substr($slogan, 0, $p);
+    }
+    // couper par securite
+    $slogan = couper($slogan, 80);
+
+    $nom = plugin_nom($info, $dir_plugins, $plug_file);
+
+    $url = parametre_url($url_page, "plugin", substr($dir, strlen(_DIR_RACINE)));
+
+    $icon_class = 'icon';
+    $img = '';
+    if (isset($info['logo']) and $i = trim($info['logo'])) {
+        if ($img = chemin_image("$dir/$i")) {
+            $img = http_img_pack($img, '', " width='32' height='32'", '', ['variante_svg_si_possible' => true, 'chemin_image' => false]);
+        }
+    }
+    if (!$img) {
+        $img = http_img_pack("plugin-xx.svg", '', " width='32' height='32'");
+        $icon_class .= ' no-logo';
+    }
+    else {
 #		$img = "<img src='$img' width='32' height='32' alt='' />";
-	}
-	$i = "<div class='$icon_class'><a href='$url' rel='info'>$img</a></div>";
-
-	return "<div class='resume'>"
-	. "<h3><a href='$url' rel='info'>"
-	. $nom
-	. "</a></h3>"
-	. " <span class='version'>" . $info['version'] . "</span>"
-	. " <span class='etat'> - "
-	. plugin_etat_en_clair($info['etat'])
-	. "</span>"
-	. "<div class='short'>" . $slogan . "</div>"
-	. $i
-	. "</div>";
+    }
+    $i = "<div class='$icon_class'><a href='$url' rel='info'>$img</a></div>";
+
+    return "<div class='resume'>"
+    . "<h3><a href='$url' rel='info'>"
+    . $nom
+    . "</a></h3>"
+    . " <span class='version'>" . $info['version'] . "</span>"
+    . " <span class='etat'> - "
+    . plugin_etat_en_clair($info['etat'])
+    . "</span>"
+    . "<div class='short'>" . $slogan . "</div>"
+    . $i
+    . "</div>";
 }
 
 function plugin_desintalle($plug_file, $nom, $dir_plugins = null) {
-	if (!$dir_plugins) {
-		$dir_plugins = _DIR_PLUGINS;
-	}
+    if (!$dir_plugins) {
+        $dir_plugins = _DIR_PLUGINS;
+    }
 
-	$action = redirige_action_auteur('desinstaller_plugin', "$dir_plugins::$plug_file", 'admin_plugin');
-	$text = _T('bouton_desinstaller');
-	$text2 = _T('info_desinstaller_plugin');
-	$file = basename($plug_file);
+    $action = redirige_action_auteur('desinstaller_plugin', "$dir_plugins::$plug_file", 'admin_plugin');
+    $text = _T('bouton_desinstaller');
+    $text2 = _T('info_desinstaller_plugin');
+    $file = basename($plug_file);
 
-	return "<div class='actions'>[" .
-	"<a href='$action'
+    return "<div class='actions'>[" .
+    "<a href='$action'
 		onclick='return confirm(\"$text $nom ?\\n$text2\")'>"
-	. $text
-	. "</a>]</div>";
+    . $text
+    . "</a>]</div>";
 }
 
 /**
@@ -221,137 +221,137 @@ 
  *     Traduction de l'état dans la langue en cours
  **/
 function plugin_etat_en_clair($etat) {
-	if (!in_array($etat, array('stable', 'test', 'experimental'))) {
-		$etat = 'developpement';
-	}
+    if (!in_array($etat, array('stable', 'test', 'experimental'))) {
+        $etat = 'developpement';
+    }
 
-	return _T('plugin_etat_' . $etat);
+    return _T('plugin_etat_' . $etat);
 }
 
 // https://code.spip.net/@plugin_propre
 function plugin_propre($texte, $module = '',$propre='propre') {
-	// retirer le retour a la racine du module, car le find_in_path se fait depuis la racine
-	if (_DIR_RACINE and strncmp($module, _DIR_RACINE, strlen(_DIR_RACINE)) == 0) {
-		$module = substr($module, strlen(_DIR_RACINE));
-	}
-	if (preg_match("|^\w+_[\w_]+$|", $texte)) {
-		$texte = _T(($module ? "$module:" : '') . $texte, array(), array('force' => false));
-	}
-
-	return $propre($texte);
+    // retirer le retour a la racine du module, car le find_in_path se fait depuis la racine
+    if (_DIR_RACINE and strncmp($module, _DIR_RACINE, strlen(_DIR_RACINE)) == 0) {
+        $module = substr($module, strlen(_DIR_RACINE));
+    }
+    if (preg_match("|^\w+_[\w_]+$|", $texte)) {
+        $texte = _T(($module ? "$module:" : '') . $texte, array(), array('force' => false));
+    }
+
+    return $propre($texte);
 }
 
 function plugin_typo($texte, $module = '') {
-	return plugin_propre($texte, $module, 'typo');
+    return plugin_propre($texte, $module, 'typo');
 }
 
 
 // https://code.spip.net/@affiche_bloc_plugin
 function affiche_bloc_plugin($plug_file, $info, $dir_plugins = null) {
-	if (!$dir_plugins) {
-		$dir_plugins = _DIR_PLUGINS;
-	}
-
-	$prefix = $info['prefix'];
-	$dir = "$dir_plugins$plug_file/lang/paquet-$prefix";
-
-	$s = "";
-	// TODO: le traiter_multi ici n'est pas beau
-	// cf. description du plugin/_stable_/ortho/plugin.xml
-	// concerne les anciens plugin.xml donc on devrait plus en avoir besoin
-	$description = "";
-	if (isset($info['description'])) {
-		$description = plugin_propre($info['description'], $dir);
-	}
-
-	if (isset($info['documentation'])
-		and $lien = $info['documentation']
-	) {
-		$description .= "<p><em class='site'><a href='$lien' class='spip_out'>" . _T('en_savoir_plus') . '</a></em></p>';
-	}
-	$s .= "<dd class='desc'>" . $description . "</dd>\n";
-
-	if (isset($info['auteur'])) {
-		if (is_array($info['auteur'])) {
-			$a = formater_credits($info['auteur'], ', ');
-		} // pour compat mais ne doit plus arriver
-		else {
-			$a = trim($info['auteur']);
-		}
-		if ($a) {
-			$s .= "<dt class='auteurs'>" . _T('public:par_auteur') . "</dt><dd class='auteurs'>" . PtoBR(propre($a,
-					$dir)) . "</dd>\n";
-		}
-	}
-
-	if (isset($info['credit'])) {
-		if ($a = formater_credits($info['credit'], ', ')) {
-			$s .= "<dt class='credits'>" . _T('plugin_info_credit') . "</dt><dd class='credits'>" . PtoBR(propre($a,
-					$dir)) . "</dd>\n";
-		}
-	}
-
-	if (isset($info['licence'])) {
-		if (is_array($info['licence'])) {
-			$a = formater_credits($info['licence'], ', ');
-		} // pour compat mais ne doit plus arriver
-		else {
-			$a = trim($info['licence']);
-		}
-		if ($a) {
-			$s .= "<dt class='licence'>" . _T('intitule_licence') . "</dt><dd class='licence'>" . PtoBR(propre($a,
-					$dir)) . "</dd>\n";
-		}
-	}
-
-	$s = "<dl class='description'>$s</dl>";
-
-	//
-	// Ajouter les infos techniques
-	//
-	$infotech = array();
-
-	$version = "<dt>" . _T('version') . "</dt><dd>" . $info['version'];
-	// Version VCS
-	if ($vcs = version_vcs_courante($dir_plugins . $plug_file)) {
-		$version .= ' ' . $vcs;
-	}
-	$version .= "</dd>";
-	$infotech[] = $version;
-	$infotech[] = "<dt>" . _T('repertoire_plugins') . "</dt><dd>" . joli_repertoire("$dir_plugins$plug_file") . "</dd>";
-	// source zip le cas echeant
-	$infotech[] = (lire_fichier($dir_plugins . $plug_file . '/install.log', $log)
-		and preg_match(',^source:(.*)$,m', $log, $r))
-		? '<dt>' . _T('plugin_source') . '</dt><dd>' . trim($r[1]) . "</dd>"
-		: '';
-
-	$infotech[] = !$info['necessite'] ? '' :
-		('<dt>' . _T('plugin_info_necessite') . '</dt><dd>' . join(' ',
-				array_map('array_shift', $info['necessite'])) . '</dd>');
-
-	$s .= "<dl class='tech'>"
-		. join('', $infotech)
-		. "</dl>";
-
-
-	return $s;
+    if (!$dir_plugins) {
+        $dir_plugins = _DIR_PLUGINS;
+    }
+
+    $prefix = $info['prefix'];
+    $dir = "$dir_plugins$plug_file/lang/paquet-$prefix";
+
+    $s = "";
+    // TODO: le traiter_multi ici n'est pas beau
+    // cf. description du plugin/_stable_/ortho/plugin.xml
+    // concerne les anciens plugin.xml donc on devrait plus en avoir besoin
+    $description = "";
+    if (isset($info['description'])) {
+        $description = plugin_propre($info['description'], $dir);
+    }
+
+    if (isset($info['documentation'])
+        and $lien = $info['documentation']
+    ) {
+        $description .= "<p><em class='site'><a href='$lien' class='spip_out'>" . _T('en_savoir_plus') . '</a></em></p>';
+    }
+    $s .= "<dd class='desc'>" . $description . "</dd>\n";
+
+    if (isset($info['auteur'])) {
+        if (is_array($info['auteur'])) {
+            $a = formater_credits($info['auteur'], ', ');
+        } // pour compat mais ne doit plus arriver
+        else {
+            $a = trim($info['auteur']);
+        }
+        if ($a) {
+            $s .= "<dt class='auteurs'>" . _T('public:par_auteur') . "</dt><dd class='auteurs'>" . PtoBR(propre($a,
+                    $dir)) . "</dd>\n";
+        }
+    }
+
+    if (isset($info['credit'])) {
+        if ($a = formater_credits($info['credit'], ', ')) {
+            $s .= "<dt class='credits'>" . _T('plugin_info_credit') . "</dt><dd class='credits'>" . PtoBR(propre($a,
+                    $dir)) . "</dd>\n";
+        }
+    }
+
+    if (isset($info['licence'])) {
+        if (is_array($info['licence'])) {
+            $a = formater_credits($info['licence'], ', ');
+        } // pour compat mais ne doit plus arriver
+        else {
+            $a = trim($info['licence']);
+        }
+        if ($a) {
+            $s .= "<dt class='licence'>" . _T('intitule_licence') . "</dt><dd class='licence'>" . PtoBR(propre($a,
+                    $dir)) . "</dd>\n";
+        }
+    }
+
+    $s = "<dl class='description'>$s</dl>";
+
+    //
+    // Ajouter les infos techniques
+    //
+    $infotech = array();
+
+    $version = "<dt>" . _T('version') . "</dt><dd>" . $info['version'];
+    // Version VCS
+    if ($vcs = version_vcs_courante($dir_plugins . $plug_file)) {
+        $version .= ' ' . $vcs;
+    }
+    $version .= "</dd>";
+    $infotech[] = $version;
+    $infotech[] = "<dt>" . _T('repertoire_plugins') . "</dt><dd>" . joli_repertoire("$dir_plugins$plug_file") . "</dd>";
+    // source zip le cas echeant
+    $infotech[] = (lire_fichier($dir_plugins . $plug_file . '/install.log', $log)
+        and preg_match(',^source:(.*)$,m', $log, $r))
+        ? '<dt>' . _T('plugin_source') . '</dt><dd>' . trim($r[1]) . "</dd>"
+        : '';
+
+    $infotech[] = !$info['necessite'] ? '' :
+        ('<dt>' . _T('plugin_info_necessite') . '</dt><dd>' . join(' ',
+                array_map('array_shift', $info['necessite'])) . '</dd>');
+
+    $s .= "<dl class='tech'>"
+        . join('', $infotech)
+        . "</dl>";
+
+
+    return $s;
 }
 
 function formater_credits($infos, $sep = ', ') {
-	$texte = '';
-
-	foreach ($infos as $_credit) {
-		if ($texte) {
-			$texte .= $sep;
-		}
-		// Si le credit en cours n'est pas un array c'est donc un copyright
-		$texte .=
-			(!is_array($_credit))
-				? PtoBR(propre($_credit))
-				: ($_credit['url'] ? '<a href="' . $_credit['url'] . '">' : '') .
-				$_credit['nom'] .
-				($_credit['url'] ? '</a>' : '');
-	}
-
-	return $texte;
+    $texte = '';
+
+    foreach ($infos as $_credit) {
+        if ($texte) {
+            $texte .= $sep;
+        }
+        // Si le credit en cours n'est pas un array c'est donc un copyright
+        $texte .=
+            (!is_array($_credit))
+                ? PtoBR(propre($_credit))
+                : ($_credit['url'] ? '<a href="' . $_credit['url'] . '">' : '') .
+                $_credit['nom'] .
+                ($_credit['url'] ? '</a>' : '');
+    }
+
+    return $texte;
 }

ecrire/public/format_html.php

Indentation +89 added lines, -89 removed lines

@@ -11,126 +11,126 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function format_boucle_html($preaff, $avant, $nom, $type, $crit, $corps, $apres, $altern, $postaff, $prof) {
-	$preaff = $preaff ? "<BB$nom>$preaff" : "";
-	$avant = $avant ? "<B$nom>$avant" : "";
-	$apres = $apres ? "$apres</B$nom>" : "";
-	$altern = $altern ? "$altern<//B$nom>" : "";
-	$postaff = $postaff ? "$postaff</BB$nom>" : "";
-	if (!$corps) {
-		$corps = " />";
-	} else {
-		$corps = ">$corps</BOUCLE$nom>";
-	}
-
-	return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
+    $preaff = $preaff ? "<BB$nom>$preaff" : "";
+    $avant = $avant ? "<B$nom>$avant" : "";
+    $apres = $apres ? "$apres</B$nom>" : "";
+    $altern = $altern ? "$altern<//B$nom>" : "";
+    $postaff = $postaff ? "$postaff</BB$nom>" : "";
+    if (!$corps) {
+        $corps = " />";
+    } else {
+        $corps = ">$corps</BOUCLE$nom>";
+    }
+
+    return "$preaff$avant<BOUCLE$nom($type)$crit$corps$apres$altern$postaff";
 }
 
 function format_inclure_html($file, $args, $prof) {
-	if (strpos($file, '#') === false) {
-		$t = $file ? ("(" . $file . ")") : "";
-	} else {
-		$t = "{fond=" . $file . '}';
-	}
-	$args = !$args ? '' : ("{" . join(", ", $args) . "}");
-
-	return ("<INCLURE" . $t . $args . ">");
+    if (strpos($file, '#') === false) {
+        $t = $file ? ("(" . $file . ")") : "";
+    } else {
+        $t = "{fond=" . $file . '}';
+    }
+    $args = !$args ? '' : ("{" . join(", ", $args) . "}");
+
+    return ("<INCLURE" . $t . $args . ">");
 }
 
 function format_polyglotte_html($args, $prof) {
-	$contenu = array();
-	foreach ($args as $l => $t) {
-		$contenu[] = ($l ? "[$l]" : '') . $t;
-	}
+    $contenu = array();
+    foreach ($args as $l => $t) {
+        $contenu[] = ($l ? "[$l]" : '') . $t;
+    }
 
-	return ("<multi>" . join(" ", $contenu) . "</multi>");
+    return ("<multi>" . join(" ", $contenu) . "</multi>");
 }
 
 function format_idiome_html($nom, $module, $args, $filtres, $prof) {
-	foreach ($args as $k => $v) {
-		$args[$k] = "$k=$v";
-	}
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
+    foreach ($args as $k => $v) {
+        $args[$k] = "$k=$v";
+    }
+    $args = (!$args ? '' : ('{' . join(',', $args) . '}'));
 
-	return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
+    return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
 }
 
 function format_champ_html($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof) {
-	$nom = "#"
-		. ($boucle ? ($boucle . ":") : "")
-		. $nom
-		. $etoile
-		. $args
-		. $filtres;
+    $nom = "#"
+        . ($boucle ? ($boucle . ":") : "")
+        . $nom
+        . $etoile
+        . $args
+        . $filtres;
 
-	// Determiner si c'est un champ etendu, 
+    // Determiner si c'est un champ etendu, 
 
-	$s = ($avant or $apres or $filtres
-		or (strpos($args, '(#') !== false));
+    $s = ($avant or $apres or $filtres
+        or (strpos($args, '(#') !== false));
 
-	return ($s ? "[$avant($nom)$apres]" : $nom);
+    return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
 function format_critere_html($critere) {
-	foreach ($critere as $k => $crit) {
-		$crit_s = '';
-		foreach ($crit as $operande) {
-			list($type, $valeur) = $operande;
-			if ($type == 'champ' and $valeur[0] == '[') {
-				$valeur = substr($valeur, 1, -1);
-				if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
-					$valeur = substr($valeur, 1, -1);
-				}
-			}
-			$crit_s .= $valeur;
-		}
-		$critere[$k] = $crit_s;
-	}
-
-	return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
+    foreach ($critere as $k => $crit) {
+        $crit_s = '';
+        foreach ($crit as $operande) {
+            list($type, $valeur) = $operande;
+            if ($type == 'champ' and $valeur[0] == '[') {
+                $valeur = substr($valeur, 1, -1);
+                if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
+                    $valeur = substr($valeur, 1, -1);
+                }
+            }
+            $crit_s .= $valeur;
+        }
+        $critere[$k] = $crit_s;
+    }
+
+    return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
 }
 
 function format_liste_html($fonc, $args, $prof) {
-	return ((($fonc !== '') ? "|$fonc" : $fonc)
-		. (!$args ? "" : ("{" . join(",", $args) . "}")));
+    return ((($fonc !== '') ? "|$fonc" : $fonc)
+        . (!$args ? "" : ("{" . join(",", $args) . "}")));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
 function format_suite_html($args) {
-	for ($i = 0; $i < count($args) - 1; $i++) {
-		list($texte, $type) = $args[$i];
-		list($texte2, $type2) = $args[$i + 1];
-		if (!$texte or !$texte2) {
-			continue;
-		}
-		$c1 = substr($texte, -1);
-		if ($type2 !== 'texte') {
-			// si un texte se termine par ( et est suivi d'un champ
-			// ou assimiles, forcer la notation pleine
-			if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
-				$args[$i + 1][0] = '[(' . $texte2 . ')]';
-			}
-		} else {
-			if ($type == 'texte') {
-				continue;
-			}
-			// si un champ ou assimiles est suivi d'un texte
-			// et si celui-ci commence par un caractere de champ
-			// forcer la notation pleine
-			if (($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
-				or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
-			) {
-				$args[$i][0] = '[(' . $texte . ')]';
-			}
-		}
-	}
-
-	return join("", array_map(function($arg) { return reset($arg); }, $args));
+    for ($i = 0; $i < count($args) - 1; $i++) {
+        list($texte, $type) = $args[$i];
+        list($texte2, $type2) = $args[$i + 1];
+        if (!$texte or !$texte2) {
+            continue;
+        }
+        $c1 = substr($texte, -1);
+        if ($type2 !== 'texte') {
+            // si un texte se termine par ( et est suivi d'un champ
+            // ou assimiles, forcer la notation pleine
+            if ($c1 == '(' and substr($texte2, 0, 1) == '#') {
+                $args[$i + 1][0] = '[(' . $texte2 . ')]';
+            }
+        } else {
+            if ($type == 'texte') {
+                continue;
+            }
+            // si un champ ou assimiles est suivi d'un texte
+            // et si celui-ci commence par un caractere de champ
+            // forcer la notation pleine
+            if (($c1 == '}' and substr(ltrim($texte2), 0, 1) == '|')
+                or (preg_match('/[\w\d_*]/', $c1) and preg_match('/^[\w\d_*{|]/', $texte2))
+            ) {
+                $args[$i][0] = '[(' . $texte . ')]';
+            }
+        }
+    }
+
+    return join("", array_map(function($arg) { return reset($arg); }, $args));
 }
 
 function format_texte_html($texte) {
-	return $texte;
+    return $texte;
 }

prive/formulaires/configurer_reducteur.php

Indentation +86 added lines, -86 removed lines

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

ecrire/inc/flock.php

Indentation +394 added lines, -394 removed lines

@@ -17,12 +17,12 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_TEST_FILE_EXISTS')) {
-	/** Permettre d'éviter des tests file_exists sur certains hébergeurs */
-	define('_TEST_FILE_EXISTS', preg_match(',(online|free)[.]fr$,', isset($_ENV["HTTP_HOST"]) ? $_ENV["HTTP_HOST"] : ""));
+    /** Permettre d'éviter des tests file_exists sur certains hébergeurs */
+    define('_TEST_FILE_EXISTS', preg_match(',(online|free)[.]fr$,', isset($_ENV["HTTP_HOST"]) ? $_ENV["HTTP_HOST"] : ""));
 }
 
 #define('_SPIP_LOCK_MODE',0); // ne pas utiliser de lock (deconseille)
@@ -30,7 +30,7 @@ 
 #define('_SPIP_LOCK_MODE',2); // utiliser le nfslock de spip
 
 if (_SPIP_LOCK_MODE == 2) {
-	include_spip('inc/nfslock');
+    include_spip('inc/nfslock');
 }
 
 $GLOBALS['liste_verrous'] = array();
@@ -53,24 +53,24 @@ 
  *     Ressource sur le fichier ouvert, sinon false.
  **/
 function spip_fopen_lock($fichier, $mode, $verrou) {
-	if (_SPIP_LOCK_MODE == 1) {
-		if ($fl = @fopen($fichier, $mode)) {
-			// verrou
-			@flock($fl, $verrou);
-		}
-
-		return $fl;
-	} elseif (_SPIP_LOCK_MODE == 2) {
-		if (($verrou = spip_nfslock($fichier)) && ($fl = @fopen($fichier, $mode))) {
-			$GLOBALS['liste_verrous'][$fl] = array($fichier, $verrou);
-
-			return $fl;
-		} else {
-			return false;
-		}
-	}
-
-	return @fopen($fichier, $mode);
+    if (_SPIP_LOCK_MODE == 1) {
+        if ($fl = @fopen($fichier, $mode)) {
+            // verrou
+            @flock($fl, $verrou);
+        }
+
+        return $fl;
+    } elseif (_SPIP_LOCK_MODE == 2) {
+        if (($verrou = spip_nfslock($fichier)) && ($fl = @fopen($fichier, $mode))) {
+            $GLOBALS['liste_verrous'][$fl] = array($fichier, $verrou);
+
+            return $fl;
+        } else {
+            return false;
+        }
+    }
+
+    return @fopen($fichier, $mode);
 }
 
 /**
@@ -85,14 +85,14 @@ 
  *     true si succès, false sinon.
  **/
 function spip_fclose_unlock($handle) {
-	if (_SPIP_LOCK_MODE == 1) {
-		@flock($handle, LOCK_UN);
-	} elseif (_SPIP_LOCK_MODE == 2) {
-		spip_nfsunlock(reset($GLOBALS['liste_verrous'][$handle]), end($GLOBALS['liste_verrous'][$handle]));
-		unset($GLOBALS['liste_verrous'][$handle]);
-	}
-
-	return @fclose($handle);
+    if (_SPIP_LOCK_MODE == 1) {
+        @flock($handle, LOCK_UN);
+    } elseif (_SPIP_LOCK_MODE == 2) {
+        spip_nfsunlock(reset($GLOBALS['liste_verrous'][$handle]), end($GLOBALS['liste_verrous'][$handle]));
+        unset($GLOBALS['liste_verrous'][$handle]);
+    }
+
+    return @fclose($handle);
 }
 
 
@@ -106,23 +106,23 @@ 
  *     Contenu du fichier
  **/
 function spip_file_get_contents($fichier) {
-	if (substr($fichier, -3) != '.gz') {
-		if (function_exists('file_get_contents')) {
-			// quand on est sous windows on ne sait pas si file_get_contents marche
-			// on essaye : si ca retourne du contenu alors c'est bon
-			// sinon on fait un file() pour avoir le coeur net
-			$contenu = @file_get_contents($fichier);
-			if (!$contenu and _OS_SERVEUR == 'windows') {
-				$contenu = @file($fichier);
-			}
-		} else {
-			$contenu = @file($fichier);
-		}
-	} else {
-		$contenu = @gzfile($fichier);
-	}
-
-	return is_array($contenu) ? join('', $contenu) : (string)$contenu;
+    if (substr($fichier, -3) != '.gz') {
+        if (function_exists('file_get_contents')) {
+            // quand on est sous windows on ne sait pas si file_get_contents marche
+            // on essaye : si ca retourne du contenu alors c'est bon
+            // sinon on fait un file() pour avoir le coeur net
+            $contenu = @file_get_contents($fichier);
+            if (!$contenu and _OS_SERVEUR == 'windows') {
+                $contenu = @file($fichier);
+            }
+        } else {
+            $contenu = @file($fichier);
+        }
+    } else {
+        $contenu = @gzfile($fichier);
+    }
+
+    return is_array($contenu) ? join('', $contenu) : (string)$contenu;
 }
 
 
@@ -147,48 +147,48 @@ 
  *     true si l'opération a réussie, false sinon.
  **/
 function lire_fichier($fichier, &$contenu, $options = array()) {
-	$contenu = '';
-	// inutile car si le fichier n'existe pas, le lock va renvoyer false juste apres
-	// economisons donc les acces disque, sauf chez free qui rale pour un rien
-	if (_TEST_FILE_EXISTS and !@file_exists($fichier)) {
-		return false;
-	}
-
-	#spip_timer('lire_fichier');
-
-	// pas de @ sur spip_fopen_lock qui est silencieux de toute facon
-	if ($fl = spip_fopen_lock($fichier, 'r', LOCK_SH)) {
-		// lire le fichier avant tout
-		$contenu = spip_file_get_contents($fichier);
-
-		// le fichier a-t-il ete supprime par le locker ?
-		// on ne verifie que si la tentative de lecture a echoue
-		// pour discriminer un contenu vide d'un fichier absent
-		// et eviter un acces disque
-		if (!$contenu and !@file_exists($fichier)) {
-			spip_fclose_unlock($fl);
-
-			return false;
-		}
-
-		// liberer le verrou
-		spip_fclose_unlock($fl);
-
-		// Verifications
-		$ok = true;
-		if (isset($options['phpcheck']) and $options['phpcheck'] == 'oui') {
-			$ok &= (preg_match(",[?]>\n?$,", $contenu));
-		}
-
-		#spip_log("$fread $fichier ".spip_timer('lire_fichier'));
-		if (!$ok) {
-			spip_log("echec lecture $fichier");
-		}
-
-		return $ok;
-	}
-
-	return false;
+    $contenu = '';
+    // inutile car si le fichier n'existe pas, le lock va renvoyer false juste apres
+    // economisons donc les acces disque, sauf chez free qui rale pour un rien
+    if (_TEST_FILE_EXISTS and !@file_exists($fichier)) {
+        return false;
+    }
+
+    #spip_timer('lire_fichier');
+
+    // pas de @ sur spip_fopen_lock qui est silencieux de toute facon
+    if ($fl = spip_fopen_lock($fichier, 'r', LOCK_SH)) {
+        // lire le fichier avant tout
+        $contenu = spip_file_get_contents($fichier);
+
+        // le fichier a-t-il ete supprime par le locker ?
+        // on ne verifie que si la tentative de lecture a echoue
+        // pour discriminer un contenu vide d'un fichier absent
+        // et eviter un acces disque
+        if (!$contenu and !@file_exists($fichier)) {
+            spip_fclose_unlock($fl);
+
+            return false;
+        }
+
+        // liberer le verrou
+        spip_fclose_unlock($fl);
+
+        // Verifications
+        $ok = true;
+        if (isset($options['phpcheck']) and $options['phpcheck'] == 'oui') {
+            $ok &= (preg_match(",[?]>\n?$,", $contenu));
+        }
+
+        #spip_log("$fread $fichier ".spip_timer('lire_fichier'));
+        if (!$ok) {
+            spip_log("echec lecture $fichier");
+        }
+
+        return $ok;
+    }
+
+    return false;
 }
 
 
@@ -216,85 +216,85 @@ 
  **/
 function ecrire_fichier($fichier, $contenu, $ignorer_echec = false, $truncate = true) {
 
-	#spip_timer('ecrire_fichier');
-
-	// verrouiller le fichier destination
-	if ($fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
-		// ecrire les donnees, compressees le cas echeant
-		// (on ouvre un nouveau pointeur sur le fichier, ce qui a l'avantage
-		// de le recreer si le locker qui nous precede l'avait supprime...)
-		if (substr($fichier, -3) == '.gz') {
-			$contenu = gzencode($contenu);
-		}
-		// si c'est une ecriture avec troncation , on fait plutot une ecriture complete a cote suivie unlink+rename
-		// pour etre sur d'avoir une operation atomique
-		// y compris en NFS : http://www.ietf.org/rfc/rfc1094.txt
-		// sauf sous wintruc ou ca ne marche pas
-		$ok = false;
-		if ($truncate and _OS_SERVEUR != 'windows') {
-			if (!function_exists('creer_uniqid')) {
-				include_spip('inc/acces');
-			}
-			$id = creer_uniqid();
-			// on ouvre un pointeur sur un fichier temporaire en ecriture +raz
-			if ($fp2 = spip_fopen_lock("$fichier.$id", 'w', LOCK_EX)) {
-				$s = @fputs($fp2, $contenu, $a = strlen($contenu));
-				$ok = ($s == $a);
-				spip_fclose_unlock($fp2);
-				spip_fclose_unlock($fp);
-				// unlink direct et pas spip_unlink car on avait deja le verrou
-				// a priori pas besoin car rename ecrase la cible
-				// @unlink($fichier);
-				// le rename aussitot, atomique quand on est pas sous windows
-				// au pire on arrive en second en cas de concourance, et le rename echoue
-				// --> on a la version de l'autre process qui doit etre identique
-				@rename("$fichier.$id", $fichier);
-				// precaution en cas d'echec du rename
-				if (!_TEST_FILE_EXISTS or @file_exists("$fichier.$id")) {
-					@unlink("$fichier.$id");
-				}
-				if ($ok) {
-					$ok = file_exists($fichier);
-				}
-			} else // echec mais penser a fermer ..
-			{
-				spip_fclose_unlock($fp);
-			}
-		}
-		// sinon ou si methode precedente a echoueee
-		// on se rabat sur la methode ancienne
-		if (!$ok) {
-			// ici on est en ajout ou sous windows, cas desespere
-			if ($truncate) {
-				@ftruncate($fp, 0);
-			}
-			$s = @fputs($fp, $contenu, $a = strlen($contenu));
-
-			$ok = ($s == $a);
-			spip_fclose_unlock($fp);
-		}
-
-		// liberer le verrou et fermer le fichier
-		@chmod($fichier, _SPIP_CHMOD & 0666);
-		if ($ok) {
-			if (strpos($fichier, ".php") !== false) {
-				spip_clear_opcode_cache(realpath($fichier));
-			}
-
-			return $ok;
-		}
-	}
-
-	if (!$ignorer_echec) {
-		include_spip('inc/autoriser');
-		if (autoriser('chargerftp')) {
-			raler_fichier($fichier);
-		}
-		spip_unlink($fichier);
-	}
-	spip_log("Ecriture fichier $fichier impossible", _LOG_INFO_IMPORTANTE);
-
-	return false;
+    #spip_timer('ecrire_fichier');
+
+    // verrouiller le fichier destination
+    if ($fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
+        // ecrire les donnees, compressees le cas echeant
+        // (on ouvre un nouveau pointeur sur le fichier, ce qui a l'avantage
+        // de le recreer si le locker qui nous precede l'avait supprime...)
+        if (substr($fichier, -3) == '.gz') {
+            $contenu = gzencode($contenu);
+        }
+        // si c'est une ecriture avec troncation , on fait plutot une ecriture complete a cote suivie unlink+rename
+        // pour etre sur d'avoir une operation atomique
+        // y compris en NFS : http://www.ietf.org/rfc/rfc1094.txt
+        // sauf sous wintruc ou ca ne marche pas
+        $ok = false;
+        if ($truncate and _OS_SERVEUR != 'windows') {
+            if (!function_exists('creer_uniqid')) {
+                include_spip('inc/acces');
+            }
+            $id = creer_uniqid();
+            // on ouvre un pointeur sur un fichier temporaire en ecriture +raz
+            if ($fp2 = spip_fopen_lock("$fichier.$id", 'w', LOCK_EX)) {
+                $s = @fputs($fp2, $contenu, $a = strlen($contenu));
+                $ok = ($s == $a);
+                spip_fclose_unlock($fp2);
+                spip_fclose_unlock($fp);
+                // unlink direct et pas spip_unlink car on avait deja le verrou
+                // a priori pas besoin car rename ecrase la cible
+                // @unlink($fichier);
+                // le rename aussitot, atomique quand on est pas sous windows
+                // au pire on arrive en second en cas de concourance, et le rename echoue
+                // --> on a la version de l'autre process qui doit etre identique
+                @rename("$fichier.$id", $fichier);
+                // precaution en cas d'echec du rename
+                if (!_TEST_FILE_EXISTS or @file_exists("$fichier.$id")) {
+                    @unlink("$fichier.$id");
+                }
+                if ($ok) {
+                    $ok = file_exists($fichier);
+                }
+            } else // echec mais penser a fermer ..
+            {
+                spip_fclose_unlock($fp);
+            }
+        }
+        // sinon ou si methode precedente a echoueee
+        // on se rabat sur la methode ancienne
+        if (!$ok) {
+            // ici on est en ajout ou sous windows, cas desespere
+            if ($truncate) {
+                @ftruncate($fp, 0);
+            }
+            $s = @fputs($fp, $contenu, $a = strlen($contenu));
+
+            $ok = ($s == $a);
+            spip_fclose_unlock($fp);
+        }
+
+        // liberer le verrou et fermer le fichier
+        @chmod($fichier, _SPIP_CHMOD & 0666);
+        if ($ok) {
+            if (strpos($fichier, ".php") !== false) {
+                spip_clear_opcode_cache(realpath($fichier));
+            }
+
+            return $ok;
+        }
+    }
+
+    if (!$ignorer_echec) {
+        include_spip('inc/autoriser');
+        if (autoriser('chargerftp')) {
+            raler_fichier($fichier);
+        }
+        spip_unlink($fichier);
+    }
+    spip_log("Ecriture fichier $fichier impossible", _LOG_INFO_IMPORTANTE);
+
+    return false;
 }
 
 /**
@@ -314,12 +314,12 @@ 
  *     Écriture avec troncation ?
  */
 function ecrire_fichier_securise($fichier, $contenu, $ecrire_quand_meme = false, $truncate = true) {
-	if (substr($fichier, -4) !== '.php') {
-		spip_log('Erreur de programmation: ' . $fichier . ' doit finir par .php');
-	}
-	$contenu = "<" . "?php die ('Acces interdit'); ?" . ">\n" . $contenu;
+    if (substr($fichier, -4) !== '.php') {
+        spip_log('Erreur de programmation: ' . $fichier . ' doit finir par .php');
+    }
+    $contenu = "<" . "?php die ('Acces interdit'); ?" . ">\n" . $contenu;
 
-	return ecrire_fichier($fichier, $contenu, $ecrire_quand_meme, $truncate);
+    return ecrire_fichier($fichier, $contenu, $ecrire_quand_meme, $truncate);
 }
 
 
@@ -330,23 +330,23 @@ 
  * @return bool
  */
 function ecrire_fichier_calcule_si_modifie($fichier, $contenu, $force=false, $use_copy=false) {
-	$fichier_tmp = $fichier . '.last';
-	if (!ecrire_fichier($fichier_tmp, $contenu, true)){
-		return false;
-	}
-	if ($force
-	  or !file_exists($fichier)
-		or md5_file($fichier) != md5_file($fichier_tmp)) {
-		if ($use_copy) {
-			@copy($fichier_tmp, $fichier);
-		}
-		else {
-			@rename($fichier_tmp, $fichier);
-		}
-		// eviter que PHP ne reserve le vieux timestamp
-		clearstatcache(true, $fichier);
-	}
-	return true;
+    $fichier_tmp = $fichier . '.last';
+    if (!ecrire_fichier($fichier_tmp, $contenu, true)){
+        return false;
+    }
+    if ($force
+      or !file_exists($fichier)
+        or md5_file($fichier) != md5_file($fichier_tmp)) {
+        if ($use_copy) {
+            @copy($fichier_tmp, $fichier);
+        }
+        else {
+            @rename($fichier_tmp, $fichier);
+        }
+        // eviter que PHP ne reserve le vieux timestamp
+        clearstatcache(true, $fichier);
+    }
+    return true;
 }
 
 
@@ -367,11 +367,11 @@ 
  *     true si l'opération a réussie, false sinon.
  */
 function lire_fichier_securise($fichier, &$contenu, $options = array()) {
-	if ($res = lire_fichier($fichier, $contenu, $options)) {
-		$contenu = substr($contenu, strlen("<" . "?php die ('Acces interdit'); ?" . ">\n"));
-	}
+    if ($res = lire_fichier($fichier, $contenu, $options)) {
+        $contenu = substr($contenu, strlen("<" . "?php die ('Acces interdit'); ?" . ">\n"));
+    }
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -386,20 +386,20 @@ 
  *     Chemin du fichier
  **/
 function raler_fichier($fichier) {
-	include_spip('inc/minipres');
-	$dir = dirname($fichier);
-	http_status(401);
-	echo minipres(_T('texte_inc_meta_2'), "<h4 style='color: red'>"
-		. _T('texte_inc_meta_1', array('fichier' => $fichier))
-		. " <a href='"
-		. generer_url_ecrire('install', "etape=chmod&test_dir=$dir")
-		. "'>"
-		. _T('texte_inc_meta_2')
-		. "</a> "
-		. _T('texte_inc_meta_3',
-			array('repertoire' => joli_repertoire($dir)))
-		. "</h4>\n");
-	exit;
+    include_spip('inc/minipres');
+    $dir = dirname($fichier);
+    http_status(401);
+    echo minipres(_T('texte_inc_meta_2'), "<h4 style='color: red'>"
+        . _T('texte_inc_meta_1', array('fichier' => $fichier))
+        . " <a href='"
+        . generer_url_ecrire('install', "etape=chmod&test_dir=$dir")
+        . "'>"
+        . _T('texte_inc_meta_2')
+        . "</a> "
+        . _T('texte_inc_meta_3',
+            array('repertoire' => joli_repertoire($dir)))
+        . "</h4>\n");
+    exit;
 }
 
 
@@ -414,14 +414,14 @@ 
  *     - true si récent, false sinon
  */
 function jeune_fichier($fichier, $n) {
-	if (!file_exists($fichier)) {
-		return false;
-	}
-	if (!$c = @filemtime($fichier)) {
-		return false;
-	}
-
-	return (time() - $n <= $c);
+    if (!file_exists($fichier)) {
+        return false;
+    }
+    if (!$c = @filemtime($fichier)) {
+        return false;
+    }
+
+    return (time() - $n <= $c);
 }
 
 /**
@@ -436,22 +436,22 @@ 
  *     - false si on n'arrive pas poser le verrou ou si la suppression échoue
  */
 function supprimer_fichier($fichier, $lock = true) {
-	if (!@file_exists($fichier)) {
-		return true;
-	}
-
-	if ($lock) {
-		// verrouiller le fichier destination
-		if (!$fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
-			return false;
-		}
-
-		// liberer le verrou
-		spip_fclose_unlock($fp);
-	}
-
-	// supprimer
-	return @unlink($fichier);
+    if (!@file_exists($fichier)) {
+        return true;
+    }
+
+    if ($lock) {
+        // verrouiller le fichier destination
+        if (!$fp = spip_fopen_lock($fichier, 'a', LOCK_EX)) {
+            return false;
+        }
+
+        // liberer le verrou
+        spip_fclose_unlock($fp);
+    }
+
+    // supprimer
+    return @unlink($fichier);
 }
 
 /**
@@ -461,12 +461,12 @@ 
  *     Chemin du fichier
  */
 function spip_unlink($f) {
-	if (!is_dir($f)) {
-		supprimer_fichier($f, false);
-	} else {
-		@unlink("$f/.ok");
-		@rmdir($f);
-	}
+    if (!is_dir($f)) {
+        supprimer_fichier($f, false);
+    } else {
+        @unlink("$f/.ok");
+        @rmdir($f);
+    }
 }
 
 /**
@@ -480,26 +480,26 @@ 
  *   The absolute path of the PHP file to invalidate.
  */
 function spip_clear_opcode_cache($filepath) {
-	clearstatcache(true, $filepath);
-
-	// Zend OPcache
-	if (function_exists('opcache_invalidate')) {
-		$invalidate = @opcache_invalidate($filepath, true);
-		// si l'invalidation a echoue lever un flag
-		if (!$invalidate and !defined('_spip_attend_invalidation_opcode_cache')) {
-			define('_spip_attend_invalidation_opcode_cache',true);
-		}
-	} elseif (!defined('_spip_attend_invalidation_opcode_cache')) {
-		// n'agira que si opcache est effectivement actif (il semble qu'on a pas toujours la fonction opcache_invalidate)
-		define('_spip_attend_invalidation_opcode_cache',true);
-	}
-	// APC.
-	if (function_exists('apc_delete_file')) {
-		// apc_delete_file() throws a PHP warning in case the specified file was
-		// not compiled yet.
-		// @see http://php.net/apc-delete-file
-		@apc_delete_file($filepath);
-	}
+    clearstatcache(true, $filepath);
+
+    // Zend OPcache
+    if (function_exists('opcache_invalidate')) {
+        $invalidate = @opcache_invalidate($filepath, true);
+        // si l'invalidation a echoue lever un flag
+        if (!$invalidate and !defined('_spip_attend_invalidation_opcode_cache')) {
+            define('_spip_attend_invalidation_opcode_cache',true);
+        }
+    } elseif (!defined('_spip_attend_invalidation_opcode_cache')) {
+        // n'agira que si opcache est effectivement actif (il semble qu'on a pas toujours la fonction opcache_invalidate)
+        define('_spip_attend_invalidation_opcode_cache',true);
+    }
+    // APC.
+    if (function_exists('apc_delete_file')) {
+        // apc_delete_file() throws a PHP warning in case the specified file was
+        // not compiled yet.
+        // @see http://php.net/apc-delete-file
+        @apc_delete_file($filepath);
+    }
 }
 
 /**
@@ -522,24 +522,24 @@ 
  *
  */
 function spip_attend_invalidation_opcode_cache($timestamp = null) {
-	if (function_exists('opcache_get_configuration')
-		and @ini_get('opcache.enable')
-		and @ini_get('opcache.validate_timestamps')
-		and ($duree = intval(@ini_get('opcache.revalidate_freq')) or $duree = 2)
-		and defined('_spip_attend_invalidation_opcode_cache') // des invalidations ont echouees
-	) {
-		$wait = $duree + 1;
-		if ($timestamp) {
-			$wait -= (time() - $timestamp);
-			if ($wait<0) {
-				$wait = 0;
-			}
-		}
-		spip_log('Probleme de configuration opcache.revalidate_freq '. $duree .'s : on attend '.$wait.'s', _LOG_INFO_IMPORTANTE);
-		if ($wait) {
-			sleep($duree + 1);
-		}
-	}
+    if (function_exists('opcache_get_configuration')
+        and @ini_get('opcache.enable')
+        and @ini_get('opcache.validate_timestamps')
+        and ($duree = intval(@ini_get('opcache.revalidate_freq')) or $duree = 2)
+        and defined('_spip_attend_invalidation_opcode_cache') // des invalidations ont echouees
+    ) {
+        $wait = $duree + 1;
+        if ($timestamp) {
+            $wait -= (time() - $timestamp);
+            if ($wait<0) {
+                $wait = 0;
+            }
+        }
+        spip_log('Probleme de configuration opcache.revalidate_freq '. $duree .'s : on attend '.$wait.'s', _LOG_INFO_IMPORTANTE);
+        if ($wait) {
+            sleep($duree + 1);
+        }
+    }
 }
 
 
@@ -552,26 +552,26 @@ 
  * @return bool Suppression reussie.
  */
 function supprimer_repertoire($dir) {
-	if (!file_exists($dir)) {
-		return true;
-	}
-	if (!is_dir($dir) || is_link($dir)) {
-		return @unlink($dir);
-	}
-
-	foreach (scandir($dir) as $item) {
-		if ($item == '.' || $item == '..') {
-			continue;
-		}
-		if (!supprimer_repertoire($dir . "/" . $item)) {
-			@chmod($dir . "/" . $item, 0777);
-			if (!supprimer_repertoire($dir . "/" . $item)) {
-				return false;
-			}
-		};
-	}
-
-	return @rmdir($dir);
+    if (!file_exists($dir)) {
+        return true;
+    }
+    if (!is_dir($dir) || is_link($dir)) {
+        return @unlink($dir);
+    }
+
+    foreach (scandir($dir) as $item) {
+        if ($item == '.' || $item == '..') {
+            continue;
+        }
+        if (!supprimer_repertoire($dir . "/" . $item)) {
+            @chmod($dir . "/" . $item, 0777);
+            if (!supprimer_repertoire($dir . "/" . $item)) {
+                return false;
+            }
+        };
+    }
+
+    return @rmdir($dir);
 }
 
 
@@ -600,57 +600,57 @@ 
  *     Chemin du répertoire créé.
  **/
 function sous_repertoire($base, $subdir = '', $nobase = false, $tantpis = false) {
-	static $dirs = array();
-
-	$base = str_replace("//", "/", $base);
-
-	# suppr le dernier caractere si c'est un /
-	$base = rtrim($base, '/');
-
-	if (!strlen($subdir)) {
-		$n = strrpos($base, "/");
-		if ($n === false) {
-			return $nobase ? '' : ($base . '/');
-		}
-		$subdir = substr($base, $n + 1);
-		$base = substr($base, 0, $n + 1);
-	} else {
-		$base .= '/';
-		$subdir = str_replace("/", "", $subdir);
-	}
-
-	$baseaff = $nobase ? '' : $base;
-	if (isset($dirs[$base . $subdir])) {
-		return $baseaff . $dirs[$base . $subdir];
-	}
-
-	$path = $base . $subdir; # $path = 'IMG/distant/pdf' ou 'IMG/distant_pdf'
-
-	if (file_exists("$path/.ok")) {
-		return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
-	}
-
-	@mkdir($path, _SPIP_CHMOD);
-	@chmod($path, _SPIP_CHMOD);
-
-	if (is_dir($path) && is_writable($path)) {
-		@touch("$path/.ok");
-		spip_log("creation $base$subdir/");
-
-		return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
-	}
-
-	// en cas d'echec c'est peut etre tout simplement que le disque est plein :
-	// l'inode du fichier dir_test existe, mais impossible d'y mettre du contenu
-	spip_log("echec creation $base${subdir}");
-	if ($tantpis) {
-		return '';
-	}
-	if (!_DIR_RESTREINT) {
-		$base = preg_replace(',^' . _DIR_RACINE . ',', '', $base);
-	}
-	$base .= $subdir;
-	raler_fichier($base . '/.ok');
+    static $dirs = array();
+
+    $base = str_replace("//", "/", $base);
+
+    # suppr le dernier caractere si c'est un /
+    $base = rtrim($base, '/');
+
+    if (!strlen($subdir)) {
+        $n = strrpos($base, "/");
+        if ($n === false) {
+            return $nobase ? '' : ($base . '/');
+        }
+        $subdir = substr($base, $n + 1);
+        $base = substr($base, 0, $n + 1);
+    } else {
+        $base .= '/';
+        $subdir = str_replace("/", "", $subdir);
+    }
+
+    $baseaff = $nobase ? '' : $base;
+    if (isset($dirs[$base . $subdir])) {
+        return $baseaff . $dirs[$base . $subdir];
+    }
+
+    $path = $base . $subdir; # $path = 'IMG/distant/pdf' ou 'IMG/distant_pdf'
+
+    if (file_exists("$path/.ok")) {
+        return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
+    }
+
+    @mkdir($path, _SPIP_CHMOD);
+    @chmod($path, _SPIP_CHMOD);
+
+    if (is_dir($path) && is_writable($path)) {
+        @touch("$path/.ok");
+        spip_log("creation $base$subdir/");
+
+        return $baseaff . ($dirs[$base . $subdir] = "$subdir/");
+    }
+
+    // en cas d'echec c'est peut etre tout simplement que le disque est plein :
+    // l'inode du fichier dir_test existe, mais impossible d'y mettre du contenu
+    spip_log("echec creation $base${subdir}");
+    if ($tantpis) {
+        return '';
+    }
+    if (!_DIR_RESTREINT) {
+        $base = preg_replace(',^' . _DIR_RACINE . ',', '', $base);
+    }
+    $base .= $subdir;
+    raler_fichier($base . '/.ok');
 }
 
 
@@ -683,51 +683,51 @@ 
  *     Chemins des fichiers trouvés.
  **/
 function preg_files($dir, $pattern = -1 /* AUTO */, $maxfiles = 10000, $recurs = array()) {
-	$nbfiles = 0;
-	if ($pattern == -1) {
-		$pattern = "^$dir";
-	}
-	$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) and is_readable($dir) and $d = opendir($dir)) {
-		while (($f = readdir($d)) !== false && ($nbfiles < $maxfiles)) {
-			if ($f[0] != '.' # ignorer . .. .svn etc
-				and $f != 'CVS'
-				and $f != 'remove.txt'
-				and is_readable($f = "$dir/$f")
-			) {
-				if (is_file($f)) {
-					if (preg_match(";$pattern;iS", $f)) {
-						$fichiers[] = $f;
-						$nbfiles++;
-					}
-				} else {
-					if (is_dir($f) and is_array($recurs)) {
-						$rp = @realpath($f);
-						if (!is_string($rp) or !strlen($rp)) {
-							$rp = $f;
-						} # realpath n'est peut etre pas autorise
-						if (!isset($recurs[$rp])) {
-							$recurs[$rp] = true;
-							$beginning = $fichiers;
-							$end = preg_files("$f/", $pattern,
-								$maxfiles - $nbfiles, $recurs);
-							$fichiers = array_merge((array)$beginning, (array)$end);
-							$nbfiles = count($fichiers);
-						}
-					}
-				}
-			}
-		}
-		closedir($d);
-	}
-	sort($fichiers);
-
-	return $fichiers;
+    $nbfiles = 0;
+    if ($pattern == -1) {
+        $pattern = "^$dir";
+    }
+    $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) and is_readable($dir) and $d = opendir($dir)) {
+        while (($f = readdir($d)) !== false && ($nbfiles < $maxfiles)) {
+            if ($f[0] != '.' # ignorer . .. .svn etc
+                and $f != 'CVS'
+                and $f != 'remove.txt'
+                and is_readable($f = "$dir/$f")
+            ) {
+                if (is_file($f)) {
+                    if (preg_match(";$pattern;iS", $f)) {
+                        $fichiers[] = $f;
+                        $nbfiles++;
+                    }
+                } else {
+                    if (is_dir($f) and is_array($recurs)) {
+                        $rp = @realpath($f);
+                        if (!is_string($rp) or !strlen($rp)) {
+                            $rp = $f;
+                        } # realpath n'est peut etre pas autorise
+                        if (!isset($recurs[$rp])) {
+                            $recurs[$rp] = true;
+                            $beginning = $fichiers;
+                            $end = preg_files("$f/", $pattern,
+                                $maxfiles - $nbfiles, $recurs);
+                            $fichiers = array_merge((array)$beginning, (array)$end);
+                            $nbfiles = count($fichiers);
+                        }
+                    }
+                }
+            }
+        }
+        closedir($d);
+    }
+    sort($fichiers);
+
+    return $fichiers;
 }

ecrire/public/debusquer.php

Indentation +681 added lines, -681 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('public/decompiler');
@@ -66,135 +66,135 @@ 
  *     - string si $message à false.
  **/
 function public_debusquer_dist($message = '', $lieu = '', $opt = array()) {
-	static $tableau_des_erreurs = array();
-
-	// Pour des tests unitaires, pouvoir récupérer les erreurs générées
-	if (isset($opt['erreurs'])) {
-		if ($opt['erreurs'] == 'get') {
-			return $tableau_des_erreurs;
-		}
-		if ($opt['erreurs'] == 'reset') {
-			$tableau_des_erreurs = array();
-
-			return true;
-		}
-	}
-
-	// Erreur ou appel final ?
-	if ($message) {
-		$message = debusquer_compose_message($message);
-		$tableau_des_erreurs[] = array($message, $lieu);
-		set_request('var_mode', 'debug');
-		$GLOBALS['bouton_admin_debug'] = true;
-		// Permettre a la compil de continuer
-		if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
-			$lieu->code = "''";
-		}
-		// forcer l'appel au debusqueur en cas de boucles infernales
-		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
-		if (!$urgence) {
-			return;
-		}
-	}
-	if (empty($GLOBALS['debug_objets']['principal'])) {
-		// espace public ?
-		if (isset($GLOBALS['fond'])) {
-			$GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
-		}
-	}
-
-	include_spip('inc/autoriser');
-	if (!autoriser('debug')) {
-		return;
-	}
-	include_spip('inc/headers');
-	include_spip('inc/filtres');
-
-	// en cas de squelette inclus,  virer le code de l'incluant:
-	// - il contient souvent une Div restreignant la largeur a 3 fois rien
-	// - ca fait 2 headers !
-	// sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
-	// actif par exemple)
-	if (ob_get_length()
-		and
-		!in_array('ob_gzhandler', ob_get_status())
-	) {
-		ob_end_clean();
-	}
-
-	lang_select($GLOBALS['visiteur_session']['lang']);
-	$fonc = _request('var_mode_objet');
-	$mode = _request('var_mode_affiche');
-	$self = str_replace("\\'", ''', self());
-	$self = parametre_url($self, 'var_mode', 'debug');
-
-	$res = debusquer_bandeau($tableau_des_erreurs)
-		. '<br />'
-		. debusquer_squelette($fonc, $mode, $self);
-
-	if (!_DIR_RESTREINT or headers_sent()) {
-		return $res;
-	}
-	if ($tableau_des_erreurs) {
-		http_status(503);
-	}
-
-	http_no_cache();
-	if (isset($_GET['var_profile'])) {
-		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
-		$titre = parametre_url($titre, 'var_mode', '');
-	} else {
-		if (!$fonc) {
-			$fonc = $GLOBALS['debug_objets']['principal'];
-		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? " " . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ""));
-	}
-	if ($message === false) {
-		lang_select();
-
-		return debusquer_entete($titre, $res);
-	} else {
-		echo debusquer_entete($titre, $res);
-	}
-	exit;
+    static $tableau_des_erreurs = array();
+
+    // Pour des tests unitaires, pouvoir récupérer les erreurs générées
+    if (isset($opt['erreurs'])) {
+        if ($opt['erreurs'] == 'get') {
+            return $tableau_des_erreurs;
+        }
+        if ($opt['erreurs'] == 'reset') {
+            $tableau_des_erreurs = array();
+
+            return true;
+        }
+    }
+
+    // Erreur ou appel final ?
+    if ($message) {
+        $message = debusquer_compose_message($message);
+        $tableau_des_erreurs[] = array($message, $lieu);
+        set_request('var_mode', 'debug');
+        $GLOBALS['bouton_admin_debug'] = true;
+        // Permettre a la compil de continuer
+        if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
+            $lieu->code = "''";
+        }
+        // forcer l'appel au debusqueur en cas de boucles infernales
+        $urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
+        if (!$urgence) {
+            return;
+        }
+    }
+    if (empty($GLOBALS['debug_objets']['principal'])) {
+        // espace public ?
+        if (isset($GLOBALS['fond'])) {
+            $GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
+        }
+    }
+
+    include_spip('inc/autoriser');
+    if (!autoriser('debug')) {
+        return;
+    }
+    include_spip('inc/headers');
+    include_spip('inc/filtres');
+
+    // en cas de squelette inclus,  virer le code de l'incluant:
+    // - il contient souvent une Div restreignant la largeur a 3 fois rien
+    // - ca fait 2 headers !
+    // sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
+    // actif par exemple)
+    if (ob_get_length()
+        and
+        !in_array('ob_gzhandler', ob_get_status())
+    ) {
+        ob_end_clean();
+    }
+
+    lang_select($GLOBALS['visiteur_session']['lang']);
+    $fonc = _request('var_mode_objet');
+    $mode = _request('var_mode_affiche');
+    $self = str_replace("\\'", '&#39;', self());
+    $self = parametre_url($self, 'var_mode', 'debug');
+
+    $res = debusquer_bandeau($tableau_des_erreurs)
+        . '<br />'
+        . debusquer_squelette($fonc, $mode, $self);
+
+    if (!_DIR_RESTREINT or headers_sent()) {
+        return $res;
+    }
+    if ($tableau_des_erreurs) {
+        http_status(503);
+    }
+
+    http_no_cache();
+    if (isset($_GET['var_profile'])) {
+        $titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
+        $titre = parametre_url($titre, 'var_mode', '');
+    } else {
+        if (!$fonc) {
+            $fonc = $GLOBALS['debug_objets']['principal'];
+        }
+        $titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? " " . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ""));
+    }
+    if ($message === false) {
+        lang_select();
+
+        return debusquer_entete($titre, $res);
+    } else {
+        echo debusquer_entete($titre, $res);
+    }
+    exit;
 }
 
 function debusquer_compose_message($msg) {
-	if (is_array($msg)) {
-		// si c'est un texte, c'est une traduction a faire, mais
-		// sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
-		if (!is_numeric($msg[0]) and count($msg) == 2) {
-			// message avec argument: instancier
-			$msg = _T($msg[0], $msg[1], 'spip-debug-arg');
-		} else {
-			// message SQL: interpreter
-			$msg = debusquer_requete($msg);
-		}
-	}
-	// FIXME: le fond n'est pas la si on n'est pas dans un squelette
-	// cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
-	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : "";
-	// une erreur critique sort $message en array
-	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log("Debug: " . $debug . " (" . $fond . ")");
-
-	return $msg;
+    if (is_array($msg)) {
+        // si c'est un texte, c'est une traduction a faire, mais
+        // sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
+        if (!is_numeric($msg[0]) and count($msg) == 2) {
+            // message avec argument: instancier
+            $msg = _T($msg[0], $msg[1], 'spip-debug-arg');
+        } else {
+            // message SQL: interpreter
+            $msg = debusquer_requete($msg);
+        }
+    }
+    // FIXME: le fond n'est pas la si on n'est pas dans un squelette
+    // cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
+    $fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : "";
+    // une erreur critique sort $message en array
+    $debug = is_array($msg) ? $msg[1] : $msg;
+    spip_log("Debug: " . $debug . " (" . $fond . ")");
+
+    return $msg;
 }
 
 function debusquer_bandeau($erreurs) {
 
-	if (!empty($erreurs)) {
-		$n = array(count($erreurs) . ' ' . _T('zbug_erreur_squelette'));
+    if (!empty($erreurs)) {
+        $n = array(count($erreurs) . ' ' . _T('zbug_erreur_squelette'));
 
-		return debusquer_navigation($erreurs, $n);
-	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
-		include_spip('public/tracer');
-		list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
+        return debusquer_navigation($erreurs, $n);
+    } elseif (!empty($GLOBALS['tableau_des_temps'])) {
+        include_spip('public/tracer');
+        list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
 
-		return debusquer_navigation($temps, $nav, 'debug-profile');
-	} else {
-		return '';
-	}
+        return debusquer_navigation($temps, $nav, 'debug-profile');
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -204,42 +204,42 @@ 
  * @return string Code HTML
  **/
 function debusquer_contexte($env) {
-	if (is_string($env) and is_array($env_tab = @unserialize($env))) {
-		$env = $env_tab;
-	}
-
-	if (!$env) {
-		return '';
-	}
-	$res = "";
-	foreach ($env as $nom => $valeur) {
-		if (is_array($valeur)) {
-			$valeur_simple = array();
-			foreach ($valeur as $v) {
-				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
-				} elseif (is_object($v)) {
-					$valeur_simple[] = get_class($v);
-				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
-				} else {
-					$valeur_simple[] = $v;
-				}
-			}
-			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
-		} elseif (is_object($valeur)) {
-			$valeur = get_class($valeur);
-		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
-		}
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. "</strong></td><td>:&nbsp;" . nl2br(entites_html($valeur))
-			. "</td></tr>\n";
-	}
-
-	return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
+    if (is_string($env) and is_array($env_tab = @unserialize($env))) {
+        $env = $env_tab;
+    }
+
+    if (!$env) {
+        return '';
+    }
+    $res = "";
+    foreach ($env as $nom => $valeur) {
+        if (is_array($valeur)) {
+            $valeur_simple = array();
+            foreach ($valeur as $v) {
+                if (is_array($v)) {
+                    $valeur_simple[] = 'array:' . count($v);
+                } elseif (is_object($v)) {
+                    $valeur_simple[] = get_class($v);
+                } elseif (is_string($v)) {
+                    $valeur_simple[] = "'" . $v . "'";
+                } else {
+                    $valeur_simple[] = $v;
+                }
+            }
+            $n = count($valeur);
+            $valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
+            $valeur .= '[' . join(', ', $valeur_simple) . ']';
+        } elseif (is_object($valeur)) {
+            $valeur = get_class($valeur);
+        } elseif (is_string($valeur)) {
+            $valeur = "'" . $valeur . "'";
+        }
+        $res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
+            . "</strong></td><td>:&nbsp;" . nl2br(entites_html($valeur))
+            . "</td></tr>\n";
+    }
+
+    return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
 }
 
 // Affichage du tableau des erreurs ou des temps de calcul
@@ -247,67 +247,67 @@ 
 
 function debusquer_navigation($tableau, $caption = array(), $id = 'debug-nav') {
 
-	if (_request('exec') == 'valider_xml') {
-		return '';
-	}
-	$GLOBALS['bouton_admin_debug'] = true;
-	$res = '';
-	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
-	foreach ($tableau as $i => $err) {
-		$boucle = $ligne = $skel = '';
-		list($msg, $lieu) = $err;
-		if (is_object($lieu)) {
-			$ligne = $lieu->ligne;
-			$boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
-			if (isset($lieu->descr['nom'])) {
-				$nom_code = $lieu->descr['nom'];
-				$skel = $lieu->descr['sourcefile'];
-				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
-				$skel = "<a href='$h3'><b>$skel</b></a>";
-				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
-					$boucle = "<a href='$h3'><b>$boucle</b></a>";
-				}
-			}
-		}
-
-		$j = ($i + 1);
-		$res .= "<tr id='req$j'><td style='text-align: right'>"
-			. $j
-			. "&nbsp;</td><td style='text-align: left'>"
-			. (is_array($msg) ? implode('', $msg) : $msg)
-			. "</td><td style='text-align: left'>"
-			. ($skel ? $skel : "&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;")
-			. "</td><td class='spip-debug-arg' style='text-align: left'>"
-			. ($boucle ? $boucle : "&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;")
-			. "</td><td style='text-align: right'>"
-			. $ligne
-			. "</td></tr>\n";
-
-	}
-
-	return "\n<table id='$id'>"
-	. "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
-	. $caption[0]
+    if (_request('exec') == 'valider_xml') {
+        return '';
+    }
+    $GLOBALS['bouton_admin_debug'] = true;
+    $res = '';
+    $href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
+    foreach ($tableau as $i => $err) {
+        $boucle = $ligne = $skel = '';
+        list($msg, $lieu) = $err;
+        if (is_object($lieu)) {
+            $ligne = $lieu->ligne;
+            $boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
+            if (isset($lieu->descr['nom'])) {
+                $nom_code = $lieu->descr['nom'];
+                $skel = $lieu->descr['sourcefile'];
+                $h2 = parametre_url($href, 'var_mode_objet', $nom_code);
+                $h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+                $skel = "<a href='$h3'><b>$skel</b></a>";
+                if ($boucle) {
+                    $h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+                    $boucle = "<a href='$h3'><b>$boucle</b></a>";
+                }
+            }
+        }
+
+        $j = ($i + 1);
+        $res .= "<tr id='req$j'><td style='text-align: right'>"
+            . $j
+            . "&nbsp;</td><td style='text-align: left'>"
+            . (is_array($msg) ? implode('', $msg) : $msg)
+            . "</td><td style='text-align: left'>"
+            . ($skel ? $skel : "&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;")
+            . "</td><td class='spip-debug-arg' style='text-align: left'>"
+            . ($boucle ? $boucle : "&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;")
+            . "</td><td style='text-align: right'>"
+            . $ligne
+            . "</td></tr>\n";
+
+    }
+
+    return "\n<table id='$id'>"
+    . "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
+    . $caption[0]
 ## aide locale courte a ecrire, avec lien vers une grosse page de documentation
 #		aider('erreur_compilation'),
-	. "</caption>"
-	//  fausse caption du chrono (mais vraie nav)
-	. (!empty($caption[1]) ? $caption[1] : '')
-	. "<tr><th>"
-	. _T('numero')
-	. "</th><th>"
-	. _T('public:message')
-	. "</th><th>"
-	. _T('squelette')
-	. "</th><th>"
-	. _T('zbug_boucle')
-	. "</th><th>"
-	. _T('ligne')
-	. "</th></tr>"
-	. $res
-	. "</table>";
+    . "</caption>"
+    //  fausse caption du chrono (mais vraie nav)
+    . (!empty($caption[1]) ? $caption[1] : '')
+    . "<tr><th>"
+    . _T('numero')
+    . "</th><th>"
+    . _T('public:message')
+    . "</th><th>"
+    . _T('squelette')
+    . "</th><th>"
+    . _T('zbug_boucle')
+    . "</th><th>"
+    . _T('ligne')
+    . "</th></tr>"
+    . $res
+    . "</table>";
 }
 
 
@@ -327,125 +327,125 @@ 
  *    ou un tableau si l'erreur est critique
  **/
 function debusquer_requete($message) {
-	list($errno, $msg, $query) = $message;
-
-	// FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
-	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
-	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
-		$errno = $regs[2];
-	} elseif (is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
-		and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
-	) {
-		$errno = $regs[1];
-	}
-
-	// Erreur systeme
-	if (is_numeric($errno) and $errno > 0 and $errno < 200) {
-		$retour = "<tt><br /><br /><blink>"
-			. _T('info_erreur_systeme', array('errsys' => $errno))
-			. "</blink><br />\n<b>"
-			. _T('info_erreur_systeme2',
-				array('script' => generer_url_ecrire('base_repair')))
-			. '</b><br />';
-		spip_log("Erreur systeme $errno");
-
-		return array($retour, '');
-	}
-
-	// Requete erronee
-	$err = "<b>" . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
-		. spip_htmlspecialchars($msg)
-		. "\n<br /><span style='color: red'><b>"
-		. spip_htmlspecialchars($query)
-		. "</b></span></tt><br />";
-
-	//. aider('erreur_mysql');
-
-	return $err;
+    list($errno, $msg, $query) = $message;
+
+    // FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
+    // il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
+    if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
+        $errno = $regs[2];
+    } elseif (is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
+        and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
+    ) {
+        $errno = $regs[1];
+    }
+
+    // Erreur systeme
+    if (is_numeric($errno) and $errno > 0 and $errno < 200) {
+        $retour = "<tt><br /><br /><blink>"
+            . _T('info_erreur_systeme', array('errsys' => $errno))
+            . "</blink><br />\n<b>"
+            . _T('info_erreur_systeme2',
+                array('script' => generer_url_ecrire('base_repair')))
+            . '</b><br />';
+        spip_log("Erreur systeme $errno");
+
+        return array($retour, '');
+    }
+
+    // Requete erronee
+    $err = "<b>" . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+        . spip_htmlspecialchars($msg)
+        . "\n<br /><span style='color: red'><b>"
+        . spip_htmlspecialchars($query)
+        . "</b></span></tt><br />";
+
+    //. aider('erreur_mysql');
+
+    return $err;
 }
 
 
 // https://code.spip.net/@trouve_boucle_debug
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = "") {
 
-	$id = $nom . $boucle;
-	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
-		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
-
-			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
-				$y = substr_count($v[0], "\n");
-			} else {
-				if ($v[1][0] == '#') // balise dynamique
-				{
-					$incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
-				} else // inclusion
-				{
-					$incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
-				}
-				$y = substr_count($incl, "\n")
-					+ substr_count($r[1], "\n")
-					+ substr_count($r[3], "\n");
-			}
-			if ($n <= ($y + $debut)) {
-				if ($v[1][0] == '?') {
-					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				} elseif ($v[1][0] == '!') {
-					if ($incl = trouve_squelette_inclus($v[1])) {
-						return trouve_boucle_debug($n, $incl, $debut);
-					}
-				}
-
-				return array($nom, $boucle, $v[2] - 1 + $n - $debut);
-			}
-			$debut += $y;
-		}
-	}
-
-	return array($nom, $boucle, $n - $debut);
+    $id = $nom . $boucle;
+    if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
+        foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
+
+            if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
+                $y = substr_count($v[0], "\n");
+            } else {
+                if ($v[1][0] == '#') // balise dynamique
+                {
+                    $incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
+                } else // inclusion
+                {
+                    $incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
+                }
+                $y = substr_count($incl, "\n")
+                    + substr_count($r[1], "\n")
+                    + substr_count($r[3], "\n");
+            }
+            if ($n <= ($y + $debut)) {
+                if ($v[1][0] == '?') {
+                    return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
+                } elseif ($v[1][0] == '!') {
+                    if ($incl = trouve_squelette_inclus($v[1])) {
+                        return trouve_boucle_debug($n, $incl, $debut);
+                    }
+                }
+
+                return array($nom, $boucle, $v[2] - 1 + $n - $debut);
+            }
+            $debut += $y;
+        }
+    }
+
+    return array($nom, $boucle, $n - $debut);
 }
 
 // https://code.spip.net/@trouve_squelette_inclus
 function trouve_squelette_inclus($script) {
 
-	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
-	// si le script X.php n'est pas ecrire/public.php
-	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1] == 'ecrire/public') // si c'est bien ecrire/public on cherche le param 'fond'
-	{
-		if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) // a defaut on cherche le param 'page'
-		{
-			if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
-				$reg[1] = "inconnu";
-			}
-		}
-	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
-
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
-		if (preg_match($incl, $v)) {
-			return $k;
-		}
-	}
-
-	return "";
+    preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
+    // si le script X.php n'est pas ecrire/public.php
+    // on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
+    if ($reg[1] == 'ecrire/public') // si c'est bien ecrire/public on cherche le param 'fond'
+    {
+        if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) // a defaut on cherche le param 'page'
+        {
+            if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
+                $reg[1] = "inconnu";
+            }
+        }
+    }
+    $incl = ',' . $reg[1] . '[.]\w$,';
+
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
+        if (preg_match($incl, $v)) {
+            return $k;
+        }
+    }
+
+    return "";
 }
 
 // https://code.spip.net/@reference_boucle_debug
 function reference_boucle_debug($n, $nom, $self) {
-	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
-
-	if (!$boucle) {
-		return !$ligne ? "" :
-			(" (" .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
-				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
-	} else {
-		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
-
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
-	}
+    list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
+
+    if (!$boucle) {
+        return !$ligne ? "" :
+            (" (" .
+                (($nom != $skel) ? _T('squelette_inclus_ligne') :
+                    _T('squelette_ligne')) .
+                " <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
+    } else {
+        $self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
+
+        return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
+            " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+    }
 }
 
 // affiche un texte avec numero de ligne et ancre.
@@ -453,395 +453,395 @@ 
 // https://code.spip.net/@ancre_texte
 function ancre_texte($texte, $fautifs = array(), $nocpt = false) {
 
-	$var_mode_ligne = _request('var_mode_ligne');
-	if ($var_mode_ligne) {
-		$fautifs[] = array($var_mode_ligne);
-	}
-	$res = '';
-
-	$s = highlight_string($texte, true);
-	if (substr($s, 0, 6) == '<code>') {
-		$s = substr($s, 6);
-		$res = '<code>';
-	}
-
-	$s = preg_replace(',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
-		$s);
-
-
-	$tableau = explode("<br />", $s);
-
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
-
-	$format10 = str_replace('white', 'lightgrey', $format);
-	$formaterr = "color: red;";
-	$i = 1;
-	$flignes = array();
-	$loc = array(0, 0);
-	foreach ($fautifs as $lc) {
-		if (is_array($lc)) {
-			$l = array_shift($lc);
-			$flignes[$l] = $lc;
-		} else {
-			$flignes[$lc] = $loc;
-		}
-	}
-
-	$ancre = md5($texte);
-	foreach ($tableau as $ligne) {
-		if (isset($flignes[$i])) {
-			$ligne = str_replace('&nbsp;', ' ', $ligne);
-			$indexmesg = $flignes[$i][1];
-			$err = textebrut($flignes[$i][2]);
-			// tentative de pointer sur la colonne fautive;
-			// marche pas car highlight_string rajoute des entites. A revoir.
-			// $m = $flignes[$i][0];
-			// $ligne = substr($ligne, 0, $m-1) .
-			// sprintf($formaterr, substr($ligne,$m));
-			$bg = $formaterr;
-		} else {
-			$indexmesg = $ancre;
-			$err = $bg = '';
-		}
-		$res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
-		$i++;
-	}
-
-	return "<div id='T$ancre'>"
-	. '<div onclick="'
-	. "jQuery(this).parent().find('a').toggle();"
-	. '" title="'
-	. _T('masquer_colonne')
-	. '" style="cursor: pointer;">'
-	. ($nocpt ? '' : _T('info_numero_abbreviation'))
-	. "</div>
+    $var_mode_ligne = _request('var_mode_ligne');
+    if ($var_mode_ligne) {
+        $fautifs[] = array($var_mode_ligne);
+    }
+    $res = '';
+
+    $s = highlight_string($texte, true);
+    if (substr($s, 0, 6) == '<code>') {
+        $s = substr($s, 6);
+        $res = '<code>';
+    }
+
+    $s = preg_replace(',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
+        '<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+        $s);
+
+
+    $tableau = explode("<br />", $s);
+
+    $format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+
+    $format10 = str_replace('white', 'lightgrey', $format);
+    $formaterr = "color: red;";
+    $i = 1;
+    $flignes = array();
+    $loc = array(0, 0);
+    foreach ($fautifs as $lc) {
+        if (is_array($lc)) {
+            $l = array_shift($lc);
+            $flignes[$l] = $lc;
+        } else {
+            $flignes[$lc] = $loc;
+        }
+    }
+
+    $ancre = md5($texte);
+    foreach ($tableau as $ligne) {
+        if (isset($flignes[$i])) {
+            $ligne = str_replace('&nbsp;', ' ', $ligne);
+            $indexmesg = $flignes[$i][1];
+            $err = textebrut($flignes[$i][2]);
+            // tentative de pointer sur la colonne fautive;
+            // marche pas car highlight_string rajoute des entites. A revoir.
+            // $m = $flignes[$i][0];
+            // $ligne = substr($ligne, 0, $m-1) .
+            // sprintf($formaterr, substr($ligne,$m));
+            $bg = $formaterr;
+        } else {
+            $indexmesg = $ancre;
+            $err = $bg = '';
+        }
+        $res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+        $i++;
+    }
+
+    return "<div id='T$ancre'>"
+    . '<div onclick="'
+    . "jQuery(this).parent().find('a').toggle();"
+    . '" title="'
+    . _T('masquer_colonne')
+    . '" style="cursor: pointer;">'
+    . ($nocpt ? '' : _T('info_numero_abbreviation'))
+    . "</div>
 	" . $res . "</div>\n";
 }
 
 // l'environnement graphique du debuggueur 
 
 function debusquer_squelette($fonc, $mode, $self) {
-	$texte = '';
-
-	if ($mode !== 'validation') {
-		if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
-			$res = "<div id='spip-boucles'>\n"
-				. debusquer_navigation_squelettes($self)
-				. "</div>";
-		} else {
-			$res = '';
-		}
-		if ($fonc) {
-			$id = " id='$fonc'";
-			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
-				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
-				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
-				$texte = ancre_texte($texte, array('', ''));
-			}
-		} else {
-			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
-			} else {
-				// cas de l'appel sur erreur: montre la page
-				return isset($GLOBALS['debug_objets']['resultat']['tout'])
-					? $GLOBALS['debug_objets']['resultat']['tout']
-					: '';
-			}
-		}
-	} else {
-		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
-		// Si erreur, signaler leur nombre dans le formulaire admin
-		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
-		list($texte, $err) = emboite_texte($val, $fonc, $self);
-		if ($err === false) {
-			$err = _T('impossible');
-		} elseif ($err === true) {
-			$err = _T('correcte');
-		} else {
-			$err = ": $err";
-		}
-		$legend = _T('validation') . ' ' . $err;
-		$res = $id = '';
-	}
-
-	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
-		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . "#f_" . substr($fonc, 0, 37) . "'> &#8593; "
-		. ($legend ? $legend : $mode)
-		. "</a></legend>"
-		. $texte
-		. "</fieldset></div>"
-		. "</div>");
+    $texte = '';
+
+    if ($mode !== 'validation') {
+        if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
+            $res = "<div id='spip-boucles'>\n"
+                . debusquer_navigation_squelettes($self)
+                . "</div>";
+        } else {
+            $res = '';
+        }
+        if ($fonc) {
+            $id = " id='$fonc'";
+            if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
+                list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
+                $texte .= $res2;
+            } elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
+                $legend = _T('zbug_' . $mode);
+                $texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+                $texte = ancre_texte($texte, array('', ''));
+            }
+        } else {
+            if (strlen(trim($res))) {
+                return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+            } else {
+                // cas de l'appel sur erreur: montre la page
+                return isset($GLOBALS['debug_objets']['resultat']['tout'])
+                    ? $GLOBALS['debug_objets']['resultat']['tout']
+                    : '';
+            }
+        }
+    } else {
+        $valider = charger_fonction('valider', 'xml');
+        $val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+        // Si erreur, signaler leur nombre dans le formulaire admin
+        $GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
+        list($texte, $err) = emboite_texte($val, $fonc, $self);
+        if ($err === false) {
+            $err = _T('impossible');
+        } elseif ($err === true) {
+            $err = _T('correcte');
+        } else {
+            $err = ": $err";
+        }
+        $legend = _T('validation') . ' ' . $err;
+        $res = $id = '';
+    }
+
+    return !trim($texte) ? '' : (
+        "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+        . "<div id='debug_boucle'><fieldset$id><legend>"
+        . "<a href='" . $self . "#f_" . substr($fonc, 0, 37) . "'> &#8593; "
+        . ($legend ? $legend : $mode)
+        . "</a></legend>"
+        . $texte
+        . "</fieldset></div>"
+        . "</div>");
 }
 
 
 // https://code.spip.net/@emboite_texte
 function emboite_texte($res, $fonc = '', $self = '') {
-	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
-
-	if (!$texte and !$errs) {
-		return array(ancre_texte('', array('', '')), false);
-	}
-	if (!$errs) {
-		return array(ancre_texte($texte, array('', '')), true);
-	}
-
-	if (!isset($GLOBALS['debug_objets'])) {
-
-		$colors = array('#e0e0f0', '#f8f8ff');
-		$encore = count_occ($errs);
-		$encore2 = array();
-		$fautifs = array();
-
-		$err = '<tr><th>'
-			. _T('numero')
-			. "</th><th>"
-			. _T('occurence')
-			. "</th><th>"
-			. _T('ligne')
-			. "</th><th>"
-			. _T('colonne')
-			. "</th><th>"
-			. _T('erreur')
-			. "</th></tr>";
-
-		$i = 0;
-		$style = "style='text-align: right; padding-right: 5px'";
-		foreach ($errs as $r) {
-			$i++;
-			list($msg, $ligne, $col) = $r;
-			#spip_log("$r = list($msg, $ligne, $col");
-			if (isset($encore2[$msg])) {
-				$ref = ++$encore2[$msg];
-			} else {
-				$encore2[$msg] = $ref = 1;
-			}
-			$err .= "<tr  style='background-color: "
-				. $colors[$i % 2]
-				. "'><td $style><a href='#debut_err'>"
-				. $i
-				. "</a></td><td $style>"
-				. "$ref/$encore[$msg]</td>"
-				. "<td $style><a href='#L"
-				. $ligne
-				. "' id='T$i'>"
-				. $ligne
-				. "</a></td><td $style>"
-				. $col
-				. "</td><td>$msg</td></tr>\n";
-			$fautifs[] = array($ligne, $col, $i, $msg);
-		}
-		$err = "<h2 style='text-align: center'>"
-			. $i
-			. "<a href='#fin_err'>"
-			. " " . _T('erreur_texte')
-			. "</a></h2><table id='debut_err' style='width: 100%'>"
-			. $err
-			. " </table><a id='fin_err'></a>";
-
-		return array(ancre_texte($texte, $fautifs), $err);
-	} else {
-		list($msg, $fermant, $ouvrant) = $errs[0];
-		$rf = reference_boucle_debug($fermant, $fonc, $self);
-		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
-
-		return array(ancre_texte($texte, array(array($ouvrant), array($fermant))), $err);
-	}
+    $errs = $res->err;
+    $texte = $res->entete . ($errs ? '' : $res->page);
+
+    if (!$texte and !$errs) {
+        return array(ancre_texte('', array('', '')), false);
+    }
+    if (!$errs) {
+        return array(ancre_texte($texte, array('', '')), true);
+    }
+
+    if (!isset($GLOBALS['debug_objets'])) {
+
+        $colors = array('#e0e0f0', '#f8f8ff');
+        $encore = count_occ($errs);
+        $encore2 = array();
+        $fautifs = array();
+
+        $err = '<tr><th>'
+            . _T('numero')
+            . "</th><th>"
+            . _T('occurence')
+            . "</th><th>"
+            . _T('ligne')
+            . "</th><th>"
+            . _T('colonne')
+            . "</th><th>"
+            . _T('erreur')
+            . "</th></tr>";
+
+        $i = 0;
+        $style = "style='text-align: right; padding-right: 5px'";
+        foreach ($errs as $r) {
+            $i++;
+            list($msg, $ligne, $col) = $r;
+            #spip_log("$r = list($msg, $ligne, $col");
+            if (isset($encore2[$msg])) {
+                $ref = ++$encore2[$msg];
+            } else {
+                $encore2[$msg] = $ref = 1;
+            }
+            $err .= "<tr  style='background-color: "
+                . $colors[$i % 2]
+                . "'><td $style><a href='#debut_err'>"
+                . $i
+                . "</a></td><td $style>"
+                . "$ref/$encore[$msg]</td>"
+                . "<td $style><a href='#L"
+                . $ligne
+                . "' id='T$i'>"
+                . $ligne
+                . "</a></td><td $style>"
+                . $col
+                . "</td><td>$msg</td></tr>\n";
+            $fautifs[] = array($ligne, $col, $i, $msg);
+        }
+        $err = "<h2 style='text-align: center'>"
+            . $i
+            . "<a href='#fin_err'>"
+            . " " . _T('erreur_texte')
+            . "</a></h2><table id='debut_err' style='width: 100%'>"
+            . $err
+            . " </table><a id='fin_err'></a>";
+
+        return array(ancre_texte($texte, $fautifs), $err);
+    } else {
+        list($msg, $fermant, $ouvrant) = $errs[0];
+        $rf = reference_boucle_debug($fermant, $fonc, $self);
+        $ro = reference_boucle_debug($ouvrant, $fonc, $self);
+        $err = $msg .
+            "<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
+            "<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+
+        return array(ancre_texte($texte, array(array($ouvrant), array($fermant))), $err);
+    }
 }
 
 // https://code.spip.net/@count_occ
 function count_occ($regs) {
-	$encore = array();
-	foreach ($regs as $r) {
-		if (isset($encore[$r[0]])) {
-			$encore[$r[0]]++;
-		} else {
-			$encore[$r[0]] = 1;
-		}
-	}
-
-	return $encore;
+    $encore = array();
+    foreach ($regs as $r) {
+        if (isset($encore[$r[0]])) {
+            $encore[$r[0]]++;
+        } else {
+            $encore[$r[0]] = 1;
+        }
+    }
+
+    return $encore;
 }
 
 function debusquer_navigation_squelettes($self) {
 
-	$res = '';
-	$boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
-	$contexte = $GLOBALS['debug_objets']['contexte'];
-	$t_skel = _T('squelette');
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
-		$self2 = parametre_url($self, 'var_mode_objet', $nom);
-		$nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
-		$temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T('zbug_profile',
-			array('time' => $GLOBALS['debug_objets']['profile'][$sourcefile]));
-
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
-			. $t_skel
-			. ' '
-			. $sourcefile
-			. "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
-			. $t_skel
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
-			. _T('zbug_resultat')
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
-			. _T('zbug_code')
-			. "</a>\n<a href='"
-			. str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
-			. "'>"
-			. _T('zbug_calcul')
-			. "</a></legend>"
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
-			. debusquer_contexte($contexte[$sourcefile])
-		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
-		. "</fieldset>\n";
-	}
-
-	return $res;
+    $res = '';
+    $boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
+    $contexte = $GLOBALS['debug_objets']['contexte'];
+    $t_skel = _T('squelette');
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
+        $self2 = parametre_url($self, 'var_mode_objet', $nom);
+        $nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
+        $temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T('zbug_profile',
+            array('time' => $GLOBALS['debug_objets']['profile'][$sourcefile]));
+
+        $res .= "<fieldset id='f_" . $nom . "'><legend>"
+            . $t_skel
+            . ' '
+            . $sourcefile
+            . "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
+            . $t_skel
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
+            . _T('zbug_resultat')
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
+            . _T('zbug_code')
+            . "</a>\n<a href='"
+            . str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
+            . "'>"
+            . _T('zbug_calcul')
+            . "</a></legend>"
+            . (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+            . debusquer_contexte($contexte[$sourcefile])
+        . (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
+        . "</fieldset>\n";
+    }
+
+    return $res;
 }
 
 function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source) {
-	$i = 0;
-	$res = '';
-	$var_mode_objet = _request('var_mode_objet');
-	$gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
-
-	foreach ($boucles as $objet => $boucle) {
-		if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
-			$i++;
-			$nom = $boucle->id_boucle;
-			$req = $boucle->type_requete;
-			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . "&amp;var_mode_objet=" . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
-				"</td></tr>";
-		}
-	}
-
-	return $res;
+    $i = 0;
+    $res = '';
+    $var_mode_objet = _request('var_mode_objet');
+    $gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
+
+    foreach ($boucles as $objet => $boucle) {
+        if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
+            $i++;
+            $nom = $boucle->id_boucle;
+            $req = $boucle->type_requete;
+            $crit = public_decompiler($boucle, $gram, 0, 'criteres');
+            $self2 = $self . "&amp;var_mode_objet=" . $objet;
+
+            $res .= "\n<tr style='background-color: " .
+                ($i % 2 ? '#e0e0f0' : '#f8f8ff') .
+                "'><td  align='right'>$i</td><td>\n" .
+                "<a  class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
+                _T('zbug_boucle') .
+                "</a></td><td>\n<a class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
+                _T('zbug_resultat') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=code#f_$nom_skel'>" .
+                _T('zbug_code') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                str_replace('var_mode=', 'var_profile=', $self2) .
+                "'>" .
+                _T('zbug_calcul') .
+                "</a></td><td>\n" .
+                (($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
+                "</td><td>\n" .
+                $req .
+                "</td><td>\n" .
+                spip_htmlspecialchars($crit) .
+                "</td></tr>";
+        }
+    }
+
+    return $res;
 }
 
 function debusquer_source($objet, $affiche) {
-	$quoi = $GLOBALS['debug_objets'][$affiche][$objet];
-	if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
-		$nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
-	} else {
-		$nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
-	}
-	$res2 = "";
-
-	if ($affiche == 'resultat') {
-		$legend = $nom;
-		$req = $GLOBALS['debug_objets']['requete'][$objet];
-		if (function_exists('_mysql_traite_query')) {
-			$c = strtolower(_request('connect'));
-			$c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
-			$req = _mysql_traite_query($req, '', $c);
-		}
-		//  permettre le copier/coller facile
-		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
-		//  formatage et affichage des resultats bruts de la requete
-		$ress_req = spip_query($req);
-		$brut_sql = '';
-		$num = 1;
-		//  eviter l'affichage de milliers de lignes
-		//  personnalisation possible dans mes_options
-		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
-		while ($retours_sql = sql_fetch($ress_req)) {
-			if ($num <= $max_aff) {
-				$brut_sql .= "<h3>" . ($num == 1 ? $num . " sur " . sql_count($ress_req) : $num) . "</h3>";
-				$brut_sql .= "<p>";
-				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= "<strong>" . $key . "</strong> => " . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
-				}
-				$brut_sql .= "</p>";
-			}
-			$num++;
-		}
-		$res2 = interdire_scripts($brut_sql);
-		foreach ($quoi as $view) {
-			//  ne pas afficher les $contexte_inclus
-			$view = preg_replace(",<\?php.+\?[>],Uims", "", $view);
-			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . "</fieldset>";
-			}
-		}
-
-	} elseif ($affiche == 'code') {
-		$legend = $nom;
-		$res = ancre_texte("<" . "?php\n" . $quoi . "\n?" . ">");
-	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
-		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
-		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
-		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
-	} elseif ($affiche == 'squelette') {
-		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
-		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
-	}
-
-	return array($legend, $res, $res2);
+    $quoi = $GLOBALS['debug_objets'][$affiche][$objet];
+    if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
+        $nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
+    } else {
+        $nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
+    }
+    $res2 = "";
+
+    if ($affiche == 'resultat') {
+        $legend = $nom;
+        $req = $GLOBALS['debug_objets']['requete'][$objet];
+        if (function_exists('_mysql_traite_query')) {
+            $c = strtolower(_request('connect'));
+            $c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
+            $req = _mysql_traite_query($req, '', $c);
+        }
+        //  permettre le copier/coller facile
+        // $res = ancre_texte($req, array(), true);
+        $res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+        //  formatage et affichage des resultats bruts de la requete
+        $ress_req = spip_query($req);
+        $brut_sql = '';
+        $num = 1;
+        //  eviter l'affichage de milliers de lignes
+        //  personnalisation possible dans mes_options
+        $max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
+        while ($retours_sql = sql_fetch($ress_req)) {
+            if ($num <= $max_aff) {
+                $brut_sql .= "<h3>" . ($num == 1 ? $num . " sur " . sql_count($ress_req) : $num) . "</h3>";
+                $brut_sql .= "<p>";
+                foreach ($retours_sql as $key => $val) {
+                    $brut_sql .= "<strong>" . $key . "</strong> => " . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+                }
+                $brut_sql .= "</p>";
+            }
+            $num++;
+        }
+        $res2 = interdire_scripts($brut_sql);
+        foreach ($quoi as $view) {
+            //  ne pas afficher les $contexte_inclus
+            $view = preg_replace(",<\?php.+\?[>],Uims", "", $view);
+            if ($view) {
+                $res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . "</fieldset>";
+            }
+        }
+
+    } elseif ($affiche == 'code') {
+        $legend = $nom;
+        $res = ancre_texte("<" . "?php\n" . $quoi . "\n?" . ">");
+    } elseif ($affiche == 'boucle') {
+        $legend = _T('zbug_boucle') . ' ' . $nom;
+        // Le compilateur prefixe le nom des boucles par l'extension du fichier source.
+        $gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
+        $res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
+    } elseif ($affiche == 'squelette') {
+        $legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
+        $res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
+    }
+
+    return array($legend, $res, $res2);
 }
 
 // https://code.spip.net/@debusquer_entete
 function debusquer_entete($titre, $corps) {
 
-	include_spip('balise/formulaire_admin');
-	include_spip('public/assembler'); // pour inclure_balise_dynamique
-	include_spip('inc/texte'); // pour corriger_typo
-
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . $titre . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
-	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
-	'</div></body></html>';
+    include_spip('balise/formulaire_admin');
+    include_spip('public/assembler'); // pour inclure_balise_dynamique
+    include_spip('inc/texte'); // pour corriger_typo
+
+    return _DOCTYPE_ECRIRE .
+    html_lang_attributes() .
+    "<head>\n<title>" .
+    ('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
+        _T('admin_debug') . ' ' . $titre . ' (' .
+        supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
+    ")</title>\n" .
+    "<meta http-equiv='Content-Type' content='text/html" .
+    (($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
+    "' />\n" .
+    http_script('', 'jquery.js')
+    . "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
+    . "' type='text/css' />" .
+    "</head>\n" .
+    "<body style='margin:0 10px;'>\n" .
+    "<div id='spip-debug-header'>" .
+    $corps .
+    inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+    '</div></body></html>';
 }