spip / SPIP

ecrire/install/etape_3.php

Doc Comments +3 added lines

@@ -184,6 +184,9 @@
 
 
 // http://doc.spip.org/@install_premier_auteur
+/**
+ * @param string $hidden
+ */
 function install_premier_auteur($email, $login, $nom, $pass, $hidden, $auteur_obligatoire)
 {
 	return info_progression_etape(3,'etape_','install/') .

Indentation +273 added lines, -273 removed lines

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

Spacing +22 added lines, -22 removed lines

@@ -16,7 +16,7 @@ 
 include_spip('base/abstract_sql');
 
 // http://doc.spip.org/@install_bases
-function install_bases($adresse_db, $login_db, $pass_db,  $server_db, $choix_db, $sel_db, $chmod_db){
+function install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db) {
 	global $spip_version_base;
 
 	// Prefix des tables :
@@ -27,7 +27,7 @@ 
 	if (!defined('_INSTALL_TABLE_PREFIX')) {
 		$table_prefix = ($GLOBALS['table_prefix'] != 'spip')
 		? $GLOBALS['table_prefix']
-		: trim(preg_replace(',[^a-z0-9],','',strtolower(_request('tprefix'))));
+		: trim(preg_replace(',[^a-z0-9],', '', strtolower(_request('tprefix'))));
 		// S'il est vide on remet spip
 		if (!$table_prefix)
 			$table_prefix = 'spip';
@@ -39,7 +39,7 @@ 
 	= spip_connect_db($adresse_db, 0, $login_db, $pass_db, '', $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-	= $GLOBALS['spip_' . $server_db .'_functions_' . $GLOBALS['spip_sql_version']];
+	= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	$fquery = sql_serveur('query', $server_db);
 	if ($choix_db == "new_spip") {
@@ -60,14 +60,14 @@ 
 	= spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-	= $GLOBALS['spip_' . $server_db .'_functions_' . $GLOBALS['spip_sql_version']];
+	= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	// Completer le tableau decrivant la connexion
 
 	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
 	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
 
-	$old = sql_showbase($table_prefix  . "_meta", $server_db);
+	$old = sql_showbase($table_prefix."_meta", $server_db);
 	if ($old) $old = sql_fetch($old, $server_db);
 	if (!$old) {
 
@@ -85,7 +85,7 @@ 
 				$charset['charset'];
 			$charsetbase = $charset['charset'];
 		} else {
-			spip_log(_DEFAULT_CHARSET . " inconnu du serveur SQL");
+			spip_log(_DEFAULT_CHARSET." inconnu du serveur SQL");
 			$charsetbase = 'standard';
 		}
 		spip_log("Creation des tables. Codage $charsetbase");
@@ -112,8 +112,8 @@ 
 		$t['valeur'] = 1;
 		@sql_insertq('spip_meta', $t, '', $server_db);
 		// positionner la langue par defaut du site si un cookie de lang a ete mis
-		if (isset($_COOKIE['spip_lang_ecrire'])){
-			@sql_insertq('spip_meta', array('nom'=>'langue_site','valeur'=>$_COOKIE['spip_lang_ecrire']), '', $server_db);
+		if (isset($_COOKIE['spip_lang_ecrire'])) {
+			@sql_insertq('spip_meta', array('nom'=>'langue_site', 'valeur'=>$_COOKIE['spip_lang_ecrire']), '', $server_db);
 		}
 	} else {
 
@@ -127,7 +127,7 @@ 
 	  if ($r) $r = sql_fetch($r, $server_db);
 	  $version_installee = !$r ? 0 : (double) $r['valeur'];
 	  if (!$version_installee OR ($spip_version_base < $version_installee)) {
-	    $fupdateq('spip_meta', array('valeur'=>$spip_version_base, 'impt'=>'non'), "nom='version_installee'",'', $server_db);
+	    $fupdateq('spip_meta', array('valeur'=>$spip_version_base, 'impt'=>'non'), "nom='version_installee'", '', $server_db);
 	    spip_log("nouvelle version installee: $spip_version_base");
 	  }
 	  // eliminer la derniere operation d'admin mal terminee
@@ -141,7 +141,7 @@ 
 	if (!$result_ok) return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
 
 	if ($chmod_db) {
-		install_fichier_connexion(_FILE_CHMOD_TMP, "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ". sprintf('0%3o',$chmod_db).");\n");
+		install_fichier_connexion(_FILE_CHMOD_TMP, "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ".sprintf('0%3o', $chmod_db).");\n");
 	}
 
 	if (preg_match(',(.*):(.*),', $adresse_db, $r))
@@ -186,16 +186,16 @@ 
 // http://doc.spip.org/@install_premier_auteur
 function install_premier_auteur($email, $login, $nom, $pass, $hidden, $auteur_obligatoire)
 {
-	return info_progression_etape(3,'etape_','install/') .
+	return info_progression_etape(3, 'etape_', 'install/').
 		info_etape(_T('info_informations_personnelles'),
 
-		     "<b>"._T('texte_informations_personnelles_1')."</b>" .
-			     aide ("install5", true) .
-			     "<p>" .
-			     ($auteur_obligatoire?
+		     "<b>"._T('texte_informations_personnelles_1')."</b>".
+			     aide("install5", true).
+			     "<p>".
+			     ($auteur_obligatoire ?
 				     ''
 				     :
-				     _T('texte_informations_personnelles_2') . " " . _T('info_laisser_champs_vides')
+				     _T('texte_informations_personnelles_2')." "._T('info_laisser_champs_vides')
 			     ))
 	. generer_form_ecrire('install', (
 			  "\n<input type='hidden' name='etape' value='3b' />"
@@ -269,10 +269,10 @@ 
 		$sel_db = ($choix_db == "new_spip")
 		? _request('table_new') : $choix_db;
 
-		$res = install_bases($adresse_db, $login_db, $pass_db,  $server_db, $choix_db, $sel_db, $chmod_db);
+		$res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
 
 		if ($res) {
-			$res = info_progression_etape(2,'etape_','install/', true)
+			$res = info_progression_etape(2, 'etape_', 'install/', true)
 				. "<div class='error'><h3>"._T('avis_operation_echec')."</h3>"
 			  . $res
 			  . "<p>"._T('texte_operation_echec')."</p>"
@@ -300,9 +300,9 @@ 
 		  . (defined('_INSTALL_NAME_DB') ? ''
 		     : "\n<input type='hidden' name='sel_db' value='$sel_db' />");
 
-		$auteur_obligatoire = ($ldap_present?0:!sql_countsel('spip_auteurs','','','',$server_db));
+		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
 
-		$res =  "<div class='success'><b>"
+		$res = "<div class='success'><b>"
 		. _T('info_base_installee')
 		. "</b></div>"
 		. install_premier_auteur(_request('email'),
@@ -310,8 +310,8 @@ 
 					_request('nom'),
 					_request('pass'),
 					 $hidden, $auteur_obligatoire)
-		  . (($ldap_present  OR !function_exists('ldap_connect'))
-		     ?  '' : install_propose_ldap());
+		  . (($ldap_present OR !function_exists('ldap_connect'))
+		     ? '' : install_propose_ldap());
 	}
 
 	echo install_debut_html();

Braces +36 added lines, -22 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 include_spip('inc/headers');
 include_spip('base/abstract_sql');
@@ -29,8 +31,9 @@ 
 		? $GLOBALS['table_prefix']
 		: trim(preg_replace(',[^a-z0-9],','',strtolower(_request('tprefix'))));
 		// S'il est vide on remet spip
-		if (!$table_prefix)
-			$table_prefix = 'spip';
+		if (!$table_prefix) {
+					$table_prefix = 'spip';
+		}
 	} else {
 		$table_prefix = _INSTALL_TABLE_PREFIX;
 	}
@@ -44,9 +47,9 @@ 
 	$fquery = sql_serveur('query', $server_db);
 	if ($choix_db == "new_spip") {
 		$re = ',^[a-z_][a-z_0-9-]*$,i';
-		if (preg_match($re, $sel_db))
-			sql_create_base($sel_db, $server_db);
-		else {
+		if (preg_match($re, $sel_db)) {
+					sql_create_base($sel_db, $server_db);
+		} else {
 		  $re = "Le nom de la base doit correspondre a $re";
 		  spip_log($re);
 		  return "<p>"._T("avis_connexion_erreur_nom_base")."</p><!--\n$re\n-->";
@@ -68,7 +71,9 @@ 
 	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
 
 	$old = sql_showbase($table_prefix  . "_meta", $server_db);
-	if ($old) $old = sql_fetch($old, $server_db);
+	if ($old) {
+	    $old = sql_fetch($old, $server_db);
+	}
 	if (!$old) {
 
 		// Si possible, demander au serveur d'envoyer les textes
@@ -124,7 +129,9 @@ 
 
 	  $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
 
-	  if ($r) $r = sql_fetch($r, $server_db);
+	  if ($r) {
+	      $r = sql_fetch($r, $server_db);
+	  }
 	  $version_installee = !$r ? 0 : (double) $r['valeur'];
 	  if (!$version_installee OR ($spip_version_base < $version_installee)) {
 	    $fupdateq('spip_meta', array('valeur'=>$spip_version_base, 'impt'=>'non'), "nom='version_installee'",'', $server_db);
@@ -138,22 +145,27 @@ 
 	$ligne_rappel = install_mode_appel($server_db);
 
 	$result_ok = @$fquery("SELECT COUNT(*) FROM spip_meta", $server_db);
-	if (!$result_ok) return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
+	if (!$result_ok) {
+	    return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
+	}
 
 	if ($chmod_db) {
 		install_fichier_connexion(_FILE_CHMOD_TMP, "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ". sprintf('0%3o',$chmod_db).");\n");
 	}
 
-	if (preg_match(',(.*):(.*),', $adresse_db, $r))
-		list(,$adresse_db, $port) = $r;
-	else $port = '';
+	if (preg_match(',(.*):(.*),', $adresse_db, $r)) {
+			list(,$adresse_db, $port) = $r;
+	} else {
+	    $port = '';
+	}
 
 	// si ce fichier existe a cette etape c'est qu'il provient
 	// d'une installation qui ne l'a pas cree correctement.
 	// Le supprimer pour que _FILE_CONNECT_TMP prime.
 
-	if (_FILE_CONNECT AND file_exists(_FILE_CONNECT))
-		spip_unlink(_FILE_CONNECT);
+	if (_FILE_CONNECT AND file_exists(_FILE_CONNECT)) {
+			spip_unlink(_FILE_CONNECT);
+	}
 
 	install_fichier_connexion(_FILE_CONNECT_TMP, 
 				  $ligne_rappel
@@ -286,15 +298,17 @@ 
 	}
 
 	if (!$res) {
-		if (file_exists(_FILE_CONNECT_TMP))
-			include(_FILE_CONNECT_TMP);
-		else
-			redirige_url_ecrire('install');
+		if (file_exists(_FILE_CONNECT_TMP)) {
+					include(_FILE_CONNECT_TMP);
+		} else {
+					redirige_url_ecrire('install');
+		}
 	
-		if (file_exists(_FILE_CHMOD_TMP))
-			include(_FILE_CHMOD_TMP);
-		else
-			redirige_url_ecrire('install');
+		if (file_exists(_FILE_CHMOD_TMP)) {
+					include(_FILE_CHMOD_TMP);
+		} else {
+					redirige_url_ecrire('install');
+		}
 
 		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
 		  . (defined('_INSTALL_NAME_DB') ? ''

ecrire/public/composer.php

Doc Comments +9 added lines

@@ -113,6 +113,9 @@ 
 	return $nom ? $nom : false;
 }
 
+/**
+ * @param string $phpfile
+ */
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles)
 {
 
@@ -135,6 +138,9 @@ 
 
 // Le squelette compile est-il trop vieux ?
 // http://doc.spip.org/@squelette_obsolete
+/**
+ * @param string $skel
+ */
 function squelette_obsolete($skel, $squelette) {
 	static $date_change = null;
 	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
@@ -470,6 +476,9 @@ 
 	return false;
 }
 // http://doc.spip.org/@remplace_sous_requete
+/**
+ * @param string $sousrequete
+ */
 function remplace_sous_requete($w,$sousrequete){
 	if (is_array($w)) {
 		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;

Indentation +610 added lines, -610 removed lines

@@ -33,93 +33,93 @@ 
 // http://doc.spip.org/@public_composer_dist
 function public_composer_dist($squelette, $mime_type, $gram, $source, $connect='') {
 
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) return $nom;
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
-		$GLOBALS['debug_objets']['courant'] = $nom;
-
-	$phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)){
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_log($skel_code, 'comp')
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions'.'.php')){
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) return $nom;
-
-	// charger le source, si possible, et compiler 
-	if (lire_fichier ($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) return false;
-
-	foreach($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		if (@eval("return true; $f ;") ===  false) {
-		// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		} 
-		// Contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom))
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		else {
-		// code semantiquement faux: bug du compilateur
-		// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
-
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if ($GLOBALS['debug_objets']['sourcefile']
-		AND (_request('var_mode_objet') == $nom)
-		AND (_request('var_mode_affiche') == 'code')  )
-			erreur_squelette();
-	}
-	return $nom ? $nom : false;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) return $nom;
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
+        $GLOBALS['debug_objets']['courant'] = $nom;
+
+    $phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)){
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_log($skel_code, 'comp')
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions'.'.php')){
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) return $nom;
+
+    // charger le source, si possible, et compiler 
+    if (lire_fichier ($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) return false;
+
+    foreach($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        if (@eval("return true; $f ;") ===  false) {
+        // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        } 
+        // Contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom))
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        else {
+        // code semantiquement faux: bug du compilateur
+        // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
+
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if ($GLOBALS['debug_objets']['sourcefile']
+        AND (_request('var_mode_objet') == $nom)
+        AND (_request('var_mode_affiche') == 'code')  )
+            erreur_squelette();
+    }
+    return $nom ? $nom : false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles)
 {
 
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join (', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE)
-	$code = "
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join (', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE)
+    $code = "
 /*
  * Squelette : $sourcefile
  * Date :      ".gmdate("D, d M Y H:i:s", @filemtime($sourcefile))." GMT
@@ -127,97 +127,97 @@ 
  * " . (!$boucles ?  "Pas de boucle" :	("Boucles :   " . $noms)) ."
  */ " ;
 
-	$code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
-	if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
-		ecrire_fichier($phpfile, $code);
-	return $code;
+    $code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
+    if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
+        ecrire_fichier($phpfile, $code);
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 // http://doc.spip.org/@squelette_obsolete
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)){
-		if (@file_exists($fonc = 'mes_fonctions.php'))
-			$date_change = @filemtime($fonc); # compatibilite
-		if (defined('_FILE_OPTIONS'))
-			$date_change = max($date_change,@filemtime(_FILE_OPTIONS));
-	}
-	return (
-		(defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
-		OR !@file_exists($skel)
-		OR ((@file_exists($squelette)?@filemtime($squelette):0)
-			> ($date = @filemtime($skel)))
-		OR ($date_change > $date)
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)){
+        if (@file_exists($fonc = 'mes_fonctions.php'))
+            $date_change = @filemtime($fonc); # compatibilite
+        if (defined('_FILE_OPTIONS'))
+            $date_change = max($date_change,@filemtime(_FILE_OPTIONS));
+    }
+    return (
+        (defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
+        OR !@file_exists($skel)
+        OR ((@file_exists($squelette)?@filemtime($squelette):0)
+            > ($date = @filemtime($skel)))
+        OR ($date_change > $date)
+    );
 }
 
 // Activer l'invalideur de session
 // http://doc.spip.org/@invalideur_session
 function invalideur_session(&$Cache, $code=NULL) {
-	$Cache['session']=spip_session();
-	return $code;
+    $Cache['session']=spip_session();
+    return $code;
 }
 
 
 // http://doc.spip.org/@analyse_resultat_skel
 function analyse_resultat_skel($nom, $cache, $corps, $source='') {
-	static $filtres = array();
-	$headers = array();
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (stripos($corps,'header')!==false
-		AND preg_match_all(
-	'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-	$corps, $regs, PREG_SET_ORDER)){
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
-				$headers[$j].="|".$r[3];
-			else
-				$headers[$j] = $r[3];
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		strpos($corps,'<'.'?') === false
-		OR
-		 (strpos($corps,'<'.'?xml')!==false AND
-		  strpos(str_replace('<'.'?xml', '', $corps),'<'.'?') === false)
-	)
-		? 'html'
-		: 'php';
-
-	$skel = array(
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	);
-
-	// traiter #FILTRE{} et filtres
-  if (!isset($filtres[$nom])) {
-	  $filtres[$nom] = pipeline('declarer_filtres_squelettes',array('args'=>$skel,'data'=>array()));
-  }
-	if (count($filtres[$nom]) OR (isset($headers['X-Spip-Filtre']) AND strlen($headers['X-Spip-Filtre']))) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel,$corps,strlen($headers['X-Spip-Filtre'])?explode('|', $headers['X-Spip-Filtre']):array(),$filtres[$nom]);
-		unset($headers['X-Spip-Filtre']);
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = array();
+    $headers = array();
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (stripos($corps,'header')!==false
+        AND preg_match_all(
+    '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+    $corps, $regs, PREG_SET_ORDER)){
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
+                $headers[$j].="|".$r[3];
+            else
+                $headers[$j] = $r[3];
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        strpos($corps,'<'.'?') === false
+        OR
+         (strpos($corps,'<'.'?xml')!==false AND
+          strpos(str_replace('<'.'?xml', '', $corps),'<'.'?') === false)
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = array(
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    );
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes',array('args'=>$skel,'data'=>array()));
+    }
+    if (count($filtres[$nom]) OR (isset($headers['X-Spip-Filtre']) AND strlen($headers['X-Spip-Filtre']))) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel,$corps,strlen($headers['X-Spip-Filtre'])?explode('|', $headers['X-Spip-Filtre']):array(),$filtres[$nom]);
+        unset($headers['X-Spip-Filtre']);
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -236,62 +236,62 @@ 
 //
 // http://doc.spip.org/@filtre_introduction_dist
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect) {
-	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif))
-		return propre($descriptif,$connect);
-
-	// De preference ce qui est marque <intro>...</intro>
-	$intro = '';
-	$texte = preg_replace(",(</?)intro>,i", "\\1intro>", $texte); // minuscules
-	while ($fin = strpos($texte, "</intro>")) {
-		$zone = substr($texte, 0, $fin);
-		$texte = substr($texte, $fin + strlen("</intro>"));
-		if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>")
-			$zone = substr($zone, $deb + 7);
-		$intro .= $zone;
-	}
-
-	// [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
-	// qui inclus raccourcis et modeles
-	// un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
-	// par ailleurs le nettoyage des raccourcis ne tient pas compte
-	// des surcharges et enrichissement de propre
-	// couper doit se faire apres propre
-	//$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
-
-	// Cependant pour des questions de perfs on coupe quand meme, en prenant
-	// large et en se mefiant des tableaux #1323
-
-	if (strlen($intro))
-		$texte = $intro;
-
-	else
-	if (strpos("\n".$texte, "\n|")===false
-	  AND strlen($texte) > 2.5*$longueur){
-		if (strpos($texte,"<multi")!==false)
-			$texte = extraire_multi($texte);
-		$texte = couper($texte, 2*$longueur);
-	}
-
-	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true))
-		$notes('','empiler');
-	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
-	// dans l'introduction.
-	$texte = supprime_img($texte, '');
-	$texte = propre($texte,$connect);
-	if ($notes)
-		$notes('','depiler');
-
-	if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
-	$texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
-
-	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	if ($GLOBALS['toujours_paragrapher'])
-		// Fermer les paragraphes
-		$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
-
-	return $texte;
+    // Si un descriptif est envoye, on l'utilise directement
+    if (strlen($descriptif))
+        return propre($descriptif,$connect);
+
+    // De preference ce qui est marque <intro>...</intro>
+    $intro = '';
+    $texte = preg_replace(",(</?)intro>,i", "\\1intro>", $texte); // minuscules
+    while ($fin = strpos($texte, "</intro>")) {
+        $zone = substr($texte, 0, $fin);
+        $texte = substr($texte, $fin + strlen("</intro>"));
+        if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>")
+            $zone = substr($zone, $deb + 7);
+        $intro .= $zone;
+    }
+
+    // [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
+    // qui inclus raccourcis et modeles
+    // un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
+    // par ailleurs le nettoyage des raccourcis ne tient pas compte
+    // des surcharges et enrichissement de propre
+    // couper doit se faire apres propre
+    //$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
+
+    // Cependant pour des questions de perfs on coupe quand meme, en prenant
+    // large et en se mefiant des tableaux #1323
+
+    if (strlen($intro))
+        $texte = $intro;
+
+    else
+    if (strpos("\n".$texte, "\n|")===false
+      AND strlen($texte) > 2.5*$longueur){
+        if (strpos($texte,"<multi")!==false)
+            $texte = extraire_multi($texte);
+        $texte = couper($texte, 2*$longueur);
+    }
+
+    // ne pas tenir compte des notes
+    if ($notes = charger_fonction('notes', 'inc', true))
+        $notes('','empiler');
+    // Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
+    // dans l'introduction.
+    $texte = supprime_img($texte, '');
+    $texte = propre($texte,$connect);
+    if ($notes)
+        $notes('','depiler');
+
+    if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
+    $texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
+
+    // et reparagrapher si necessaire (coherence avec le cas descriptif)
+    if ($GLOBALS['toujours_paragrapher'])
+        // Fermer les paragraphes
+        $texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+
+    return $texte;
 }
 
 //
@@ -307,137 +307,137 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-       .'>');
+        .'>');
 
 
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	$r = sprintf(CODE_INCLURE_BALISE,
-	       $file,
-	       $context_compil[4]?$context_compil[4]:'',
-	       $nom,
-	       join(', ', array_map('argumenter_squelette', $args)),
-	       join(', ', array_map('_q', $context_compil)));
-	return $r;
+    $r = sprintf(CODE_INCLURE_BALISE,
+            $file,
+            $context_compil[4]?$context_compil[4]:'',
+            $nom,
+            join(', ', array_map('argumenter_squelette', $args)),
+            join(', ', array_map('_q', $context_compil)));
+    return $r;
 }
 
 // http://doc.spip.org/@argumenter_squelette
 function argumenter_squelette($v) {
 
-	if (!is_array($v))
-		return "'" . texte_script($v) . "'";
-	else {
-		$out = array();
-		foreach($v as $k=>$val) 
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-	  return 'array(' . join(", ", $out) . ')';
-	}
+    if (!is_array($v))
+        return "'" . texte_script($v) . "'";
+    else {
+        $out = array();
+        foreach($v as $k=>$val) 
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        return 'array(' . join(", ", $out) . ')';
+    }
 }
 
 // verifier leurs arguments et filtres, et calculer le code a inclure
 // http://doc.spip.org/@executer_balise_dynamique
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	$p = strpos($nom,"_");
-	$nomfonction = $nom;
-	$nomfonction_generique = substr($nom,0,$p+1);
-	if (!$file = include_spip("balise/". strtolower($nomfonction))) {
-		// pas de fichier associe, passer au traitement generique
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
-		if ($file) {
-			// et injecter en premier arg le nom de la balise 
-			array_unshift($args,$nom);
-			// et passer sur la fonction generique pour la suite
-			$nomfonction = $nomfonction_generique;
-		}
-		else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
-			erreur_squelette($msg, $context_compil);
-			return '';
-		}
-	}
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nomfonction . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil); 
-
-	if (!is_array($r)) return $r;
-
-	// verifier que la fonction dyn est la, 
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nomfonction . '_dyn')) {
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
-		if (function_exists('balise_' . $nomfonction_generique . '_dyn')) {
-			// et lui injecter en premier arg le nom de la balise 
-			array_unshift($r,$nom);
-			$nomfonction = $nomfonction_generique;
-		} else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
-			erreur_squelette($msg, $context_compil);
-			return '';
-		}
-	}
-
-	if (!_DIR_RESTREINT) 
-		$file = _DIR_RESTREINT_ABS . $file;
-	return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
+    $p = strpos($nom,"_");
+    $nomfonction = $nom;
+    $nomfonction_generique = substr($nom,0,$p+1);
+    if (!$file = include_spip("balise/". strtolower($nomfonction))) {
+        // pas de fichier associe, passer au traitement generique
+        $file = include_spip("balise/" .strtolower($nomfonction_generique));
+        if ($file) {
+            // et injecter en premier arg le nom de la balise 
+            array_unshift($args,$nom);
+            // et passer sur la fonction generique pour la suite
+            $nomfonction = $nomfonction_generique;
+        }
+        else {
+            $msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+            erreur_squelette($msg, $context_compil);
+            return '';
+        }
+    }
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nomfonction . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil); 
+
+    if (!is_array($r)) return $r;
+
+    // verifier que la fonction dyn est la, 
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nomfonction . '_dyn')) {
+        $file = include_spip("balise/" .strtolower($nomfonction_generique));
+        if (function_exists('balise_' . $nomfonction_generique . '_dyn')) {
+            // et lui injecter en premier arg le nom de la balise 
+            array_unshift($r,$nom);
+            $nomfonction = $nomfonction_generique;
+        } else {
+            $msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+            erreur_squelette($msg, $context_compil);
+            return '';
+        }
+    }
+
+    if (!_DIR_RESTREINT) 
+        $file = _DIR_RESTREINT_ABS . $file;
+    return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
 }
 
 // http://doc.spip.org/@lister_objets_avec_logos
 function lister_objets_avec_logos ($type) {
-	global $formats_logos;
-	$logos = array();
-	$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$type = '/'
-	. type_du_logo($type)
-	. "on(\d+)\.("
-	. join('|',$formats_logos)
-	. ")$/";
-
-	if ($d = @opendir(_DIR_LOGOS)) {
-		while($f = readdir($d)) {
-			if (preg_match($type, $f, $r))
-				$logos[] = $r[1];
-		}
-	}
-	@closedir($d);
-	return join(',',$logos);
+    global $formats_logos;
+    $logos = array();
+    $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $type = '/'
+    . type_du_logo($type)
+    . "on(\d+)\.("
+    . join('|',$formats_logos)
+    . ")$/";
+
+    if ($d = @opendir(_DIR_LOGOS)) {
+        while($f = readdir($d)) {
+            if (preg_match($type, $f, $r))
+                $logos[] = $r[1];
+        }
+    }
+    @closedir($d);
+    return join(',',$logos);
 }
 
 // fonction appelee par la balise #NOTES
 // Renvoyer l'etat courant des notes, le purger et en preparer un nouveau
 // http://doc.spip.org/@calculer_notes
 function calculer_notes() {
-	$r='';
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$r = $notes(array());
-		$notes('','depiler');
-		$notes('','empiler');
-	}
-	return $r;
+    $r='';
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $r = $notes(array());
+        $notes('','depiler');
+        $notes('','empiler');
+    }
+    return $r;
 }
 
 // Selectionner la langue de l'objet dans la boucle, sauf dans les
 // cas ou il ne le faut pas :-)
 function lang_select_public($lang, $lang_select, $titre=null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
-	AND $lang_select !== 'oui')
-		$lang = $GLOBALS['spip_lang'];
-
-	// Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang))
-		$lang = $GLOBALS['spip_lang'];
-
-	// Cas 3. l'objet est multilingue !
-	elseif ($lang_select !== 'oui'
-	  AND strlen($titre) > 10
-	  AND strpos($titre, '<multi>') !== false
-	  AND strpos(echappe_html($titre), '<multi>') !== false)
-		$lang = $GLOBALS['spip_lang'];
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
+    AND $lang_select !== 'oui')
+        $lang = $GLOBALS['spip_lang'];
+
+    // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang))
+        $lang = $GLOBALS['spip_lang'];
+
+    // Cas 3. l'objet est multilingue !
+    elseif ($lang_select !== 'oui'
+      AND strlen($titre) > 10
+      AND strpos($titre, '<multi>') !== false
+      AND strpos(echappe_html($titre), '<multi>') !== false)
+        $lang = $GLOBALS['spip_lang'];
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
@@ -445,48 +445,48 @@ 
 // il faut le nettoyer car il pourrait etre injecte en SQL
 // http://doc.spip.org/@nettoyer_env_doublons
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach(explode(',',$liste) as $val) {
-			if ($a = intval($val) AND $val === strval($a))
-				$n.= ','.$val;
-		}
-		if (strlen($n))
-			$envd[$table] = $n;
-		else
-			unset($envd[$table]);
-	}
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach(explode(',',$liste) as $val) {
+            if ($a = intval($val) AND $val === strval($a))
+                $n.= ','.$val;
+        }
+        if (strlen($n))
+            $envd[$table] = $n;
+        else
+            unset($envd[$table]);
+    }
+    return $envd;
 }
 
 // http://doc.spip.org/@match_self
 function match_self($w){
-	if (is_string($w)) return false;
-	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
-		foreach(array_filter($w,'is_array') as $sw)
-			if ($m=match_self($sw)) return $m;
-	}
-	return false;
+    if (is_string($w)) return false;
+    if (is_array($w)) {
+        if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
+        foreach(array_filter($w,'is_array') as $sw)
+            if ($m=match_self($sw)) return $m;
+    }
+    return false;
 }
 // http://doc.spip.org/@remplace_sous_requete
 function remplace_sous_requete($w,$sousrequete){
-	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
-		foreach($w as $k=>$sw)
-			$w[$k] = remplace_sous_requete($sw,$sousrequete);
-	}
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
+        foreach($w as $k=>$sw)
+            $w[$k] = remplace_sous_requete($sw,$sousrequete);
+    }
+    return $w;
 }
 // http://doc.spip.org/@trouver_sous_requetes
 function trouver_sous_requetes($where){
-	$where_simples = array();
-	$where_sous = array();
-	foreach($where as $k=>$w){
-		if (match_self($w)) $where_sous[$k] = $w;
-		else $where_simples[$k] = $w;
-	}
-	return array($where_simples,$where_sous);
+    $where_simples = array();
+    $where_sous = array();
+    foreach($where as $k=>$w){
+        if (match_self($w)) $where_sous[$k] = $w;
+        else $where_simples[$k] = $w;
+    }
+    return array($where_simples,$where_sous);
 }
 
 
@@ -511,224 +511,224 @@ 
  * @return resource
  */
 function calculer_select ($select = array(), $from = array(), 
-			$from_type = array(),
-      $where = array(), $join=array(),
-			$groupby = array(), $orderby = array(), $limit = '',
-			$having=array(), $table = '', $id = '', $serveur='', $requeter=true) {
-
-	// retirer les criteres vides:
-	// {X ?} avec X absent de l'URL
-	// {par #ENV{X}} avec X absent de l'URL
-	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-	$menage = false;
-	foreach($where as $k => $v) { 
-		if (is_array($v)){
-			if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
-			elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
-			else $op = $v[0] ? $v[0] : $v;
-		} else $op = $v;
-		if ((!$op) OR ($op==1) OR ($op=='0=0')) {
-			unset($where[$k]);
-			$menage = true;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby,array(''));
-
-	// remplacer les sous requetes recursives au calcul
-	list($where_simples,$where_sous) = trouver_sous_requetes($where);
-	foreach($where_sous as $k=>$w) {
-		$menage = true;
-		// on recupere la sous requete 
-		$sous = match_self($w);
-		if ($sous[0]=='SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples,$sous[2]);
-			$wheresub = array($sous[2],'0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w,"(".calculer_select(
-				array($sous[1]." AS id"),
-				$from,
-				$from_type,
-				$wheresub,
-				$jsub,
-				array(),array(),'',
-				$having,$table,$id,$serveur,false).")");
-				if (!$i){
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle=>$wj){
-						if (count($wj)==4
-							AND strpos($wherestring,"{$cle}.")!==FALSE
-						){
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++<1);
-		}
-		if ($sous[0]=='SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples,$sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w,"(".calculer_select(
-			$sous[1], # select
-			$sous[2], #from
-			array(), #from_type
-			$sous[3]?(is_array($sous[3])?$sous[3]:array($sous[3])):array(), #where, qui peut etre de la forme string comme dans sql_select
-			array(), #join
-			$sous[4]?$sous[4]:array(), #groupby
-			$sous[5]?$sous[5]:array(), #orderby
-			$sous[6], #limit
-			$sous[7]?$sous[7]:array(), #having
-			$table,$id,$serveur,false
-			).")");
-		}
-		array_pop($where_simples);
-	}
-
-	foreach($having as $k => $v) { 
-		if ((!$v) OR ($v==1) OR ($v=='0=0')) {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
+            $from_type = array(),
+        $where = array(), $join=array(),
+            $groupby = array(), $orderby = array(), $limit = '',
+            $having=array(), $table = '', $id = '', $serveur='', $requeter=true) {
+
+    // retirer les criteres vides:
+    // {X ?} avec X absent de l'URL
+    // {par #ENV{X}} avec X absent de l'URL
+    // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+    $menage = false;
+    foreach($where as $k => $v) { 
+        if (is_array($v)){
+            if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
+            elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
+            else $op = $v[0] ? $v[0] : $v;
+        } else $op = $v;
+        if ((!$op) OR ($op==1) OR ($op=='0=0')) {
+            unset($where[$k]);
+            $menage = true;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby,array(''));
+
+    // remplacer les sous requetes recursives au calcul
+    list($where_simples,$where_sous) = trouver_sous_requetes($where);
+    foreach($where_sous as $k=>$w) {
+        $menage = true;
+        // on recupere la sous requete 
+        $sous = match_self($w);
+        if ($sous[0]=='SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples,$sous[2]);
+            $wheresub = array($sous[2],'0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w,"(".calculer_select(
+                array($sous[1]." AS id"),
+                $from,
+                $from_type,
+                $wheresub,
+                $jsub,
+                array(),array(),'',
+                $having,$table,$id,$serveur,false).")");
+                if (!$i){
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle=>$wj){
+                        if (count($wj)==4
+                            AND strpos($wherestring,"{$cle}.")!==FALSE
+                        ){
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++<1);
+        }
+        if ($sous[0]=='SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples,$sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w,"(".calculer_select(
+            $sous[1], # select
+            $sous[2], #from
+            array(), #from_type
+            $sous[3]?(is_array($sous[3])?$sous[3]:array($sous[3])):array(), #where, qui peut etre de la forme string comme dans sql_select
+            array(), #join
+            $sous[4]?$sous[4]:array(), #groupby
+            $sous[5]?$sous[5]:array(), #orderby
+            $sous[6], #limit
+            $sous[7]?$sous[7]:array(), #having
+            $table,$id,$serveur,false
+            ).")");
+        }
+        array_pop($where_simples);
+    }
+
+    foreach($having as $k => $v) { 
+        if ((!$v) OR ($v==1) OR ($v=='0=0')) {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
 	
-	$afrom = array();
-	$equiv = array();
-	$k = count($join);
-	foreach(array_reverse($join,true) as $cledef=>$j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
-		if (count($join[$cle])==3) $join[$cle][] = '';
-		list($t,$c,$carr,$and) = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle))
-			$cle = "L$k";
-		if (!$menage
-		OR isset($afrom[$cle])
-		OR calculer_jointnul($cle, $select)
-		OR calculer_jointnul($cle, array_diff_key($join, array($cle=>$join[$cle])))
-		OR calculer_jointnul($cle, $having)
-		OR calculer_jointnul($cle, $where_simples)) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach($select as $i=>$s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach($groupby as $i=>$g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = array("\n" .
-				(isset($from_type[$cle])?$from_type[$cle]:"INNER")." JOIN",
-				$from[$cle],
-				"AS $cle",
-				"ON (",
-				"$cle.$c",
-				"=",
-				"$t.$carr",
-				($and ? "AND ". $and:"") .
-				")");
-			if (isset($afrom[$cle])){
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[]= $carr;
-		} else { unset($join[$cledef]);}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+    $afrom = array();
+    $equiv = array();
+    $k = count($join);
+    foreach(array_reverse($join,true) as $cledef=>$j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
+        if (count($join[$cle])==3) $join[$cle][] = '';
+        list($t,$c,$carr,$and) = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle))
+            $cle = "L$k";
+        if (!$menage
+        OR isset($afrom[$cle])
+        OR calculer_jointnul($cle, $select)
+        OR calculer_jointnul($cle, array_diff_key($join, array($cle=>$join[$cle])))
+        OR calculer_jointnul($cle, $having)
+        OR calculer_jointnul($cle, $where_simples)) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach($select as $i=>$s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach($groupby as $i=>$g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = array("\n" .
+                (isset($from_type[$cle])?$from_type[$cle]:"INNER")." JOIN",
+                $from[$cle],
+                "AS $cle",
+                "ON (",
+                "$cle.$c",
+                "=",
+                "$t.$carr",
+                ($and ? "AND ". $and:"") .
+                ")");
+            if (isset($afrom[$cle])){
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[]= $carr;
+        } else { unset($join[$cledef]);}
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
 		
-	  list($t,$c) = each($from);
-	  reset($from);
-	  $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
-	  if (!(strpos($t, ' ') OR // jointure des le depart cf boucle_doc
-		 calculer_jointnul($t, $select, $e) OR
-		 calculer_jointnul($t, $join, $e) OR
-		 calculer_jointnul($t, $where, $e) OR
-		 calculer_jointnul($t, $orderby, $e) OR
-		 calculer_jointnul($t, $groupby, $e) OR
-		 calculer_jointnul($t, $having, $e))
-		 && count($afrom[$t])) {
-		 	reset($afrom[$t]);
-		 	list($nt,$nfrom) = each($afrom[$t]);
-	    unset($from[$t]);
-	    $from[$nt] = $nfrom[1];
-	    unset($afrom[$t][$nt]);
-	    $afrom[$nt] = $afrom[$t];
-	    unset($afrom[$t]);
-	    $e = '/\b'.preg_quote($nfrom[6]).'\b/';
-	    $t = $nfrom[4];
-	    $alias = "";
-	    // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-	    $oldcle = explode('.',$nfrom[6]);
-	    $oldcle = end($oldcle);
-	    $newcle = explode('.',$nfrom[4]);
-	    $newcle = end($newcle);
-	    if ($newcle!=$oldcle){
-		    // si l'ancienne cle etait deja dans le select avec un AS
-		    // reprendre simplement ce AS
-		    $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
-		    if (preg_match($as,implode(',',$select),$m)){
-			    $alias = "";
-		    }
-		    else
-					$alias = ", ".$nfrom[4]." AS $oldcle";
-	    }
-	    $select = remplacer_jointnul($t . $alias, $select, $e);
-	    $join = remplacer_jointnul($t, $join, $e);
-	    $where = remplacer_jointnul($t, $where, $e);
-	    $having = remplacer_jointnul($t, $having, $e);
-	    $groupby = remplacer_jointnul($t, $groupby, $e);
-	    $orderby = remplacer_jointnul($t, $orderby, $e);
-	  }
-	  $from = reinjecte_joint($afrom, $from);
-	}
-	$GLOBALS['debug']['aucasou'] = array ($table, $id, $serveur, $requeter);
-	$r = sql_select($select, $from, $where,
-		$groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
-	unset($GLOBALS['debug']['aucasou']);
-	return $r;
+        list($t,$c) = each($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
+        if (!(strpos($t, ' ') OR // jointure des le depart cf boucle_doc
+         calculer_jointnul($t, $select, $e) OR
+         calculer_jointnul($t, $join, $e) OR
+         calculer_jointnul($t, $where, $e) OR
+         calculer_jointnul($t, $orderby, $e) OR
+         calculer_jointnul($t, $groupby, $e) OR
+         calculer_jointnul($t, $having, $e))
+         && count($afrom[$t])) {
+                reset($afrom[$t]);
+                list($nt,$nfrom) = each($afrom[$t]);
+        unset($from[$t]);
+        $from[$nt] = $nfrom[1];
+        unset($afrom[$t][$nt]);
+        $afrom[$nt] = $afrom[$t];
+        unset($afrom[$t]);
+        $e = '/\b'.preg_quote($nfrom[6]).'\b/';
+        $t = $nfrom[4];
+        $alias = "";
+        // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+        $oldcle = explode('.',$nfrom[6]);
+        $oldcle = end($oldcle);
+        $newcle = explode('.',$nfrom[4]);
+        $newcle = end($newcle);
+        if ($newcle!=$oldcle){
+            // si l'ancienne cle etait deja dans le select avec un AS
+            // reprendre simplement ce AS
+            $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
+            if (preg_match($as,implode(',',$select),$m)){
+                $alias = "";
+            }
+            else
+                    $alias = ", ".$nfrom[4]." AS $oldcle";
+        }
+        $select = remplacer_jointnul($t . $alias, $select, $e);
+        $join = remplacer_jointnul($t, $join, $e);
+        $where = remplacer_jointnul($t, $where, $e);
+        $having = remplacer_jointnul($t, $having, $e);
+        $groupby = remplacer_jointnul($t, $groupby, $e);
+        $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    $GLOBALS['debug']['aucasou'] = array ($table, $id, $serveur, $requeter);
+    $r = sql_select($select, $from, $where,
+        $groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
+    unset($GLOBALS['debug']['aucasou']);
+    return $r;
 }
 
 /**
@@ -738,18 +738,18 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND'){
-	if (empty($v))
-		return '';
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = "";
-		if (strtoupper($join) === 'AND')
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		else
-			return $exp . join($join, $v);
-	}
+    if (empty($v))
+        return '';
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = "";
+        if (strtoupper($join) === 'AND')
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        else
+            return $exp . join($join, $v);
+    }
 }
 
 
@@ -758,55 +758,55 @@ 
 // http://doc.spip.org/@calculer_jointnul
 function calculer_jointnul($cle, $exp, $equiv='')
 {
-	if (!is_array($exp)) {
-		if ($equiv) $exp = preg_replace($equiv, '', $exp);
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) return true;
-		}
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) $exp = preg_replace($equiv, '', $exp);
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) return true;
+        }
+        return false;
+    }
 }
 
 // http://doc.spip.org/@reinjecte_joint
 function reinjecte_joint($afrom, $from)
 {
-	  $from_synth = array();
-	  foreach($from as $k=>$v){
-	  	$from_synth[$k]=$from[$k];
-	  	if (isset($afrom[$k])) {
-	  		foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
-	  		$from_synth["$k@"]= implode(' ',$afrom[$k]);
-	  		unset($afrom[$k]);
-	  	}
-	  }
-	  return $from_synth;
+        $from_synth = array();
+        foreach($from as $k=>$v){
+            $from_synth[$k]=$from[$k];
+            if (isset($afrom[$k])) {
+                foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
+                $from_synth["$k@"]= implode(' ',$afrom[$k]);
+                unset($afrom[$k]);
+            }
+        }
+        return $from_synth;
 }
 
 // http://doc.spip.org/@remplacer_jointnul
 function remplacer_jointnul($cle, $exp, $equiv='')
 {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach($exp as $k => $v) {
-		  $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 // http://doc.spip.org/@calculer_nom_fonction_squel
 function calculer_nom_fonction_squel($skel, $mime_type='html', $connect='')
 {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
-		$skel = substr($skel,strlen(_DIR_RACINE));
-	return $mime_type
-	. (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
+        $skel = substr($skel,strlen(_DIR_RACINE));
+    return $mime_type
+    . (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));
 }
 
 ?>

Braces +157 added lines, -94 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 include_spip('inc/texte');
 include_spip('inc/documents');
@@ -36,10 +38,13 @@ 
 	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
 
 	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) return $nom;
+	if (function_exists($nom)) {
+	    return $nom;
+	}
 
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
-		$GLOBALS['debug_objets']['courant'] = $nom;
+	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
+			$GLOBALS['debug_objets']['courant'] = $nom;
+	}
 
 	$phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
 
@@ -60,7 +65,9 @@ 
 
 	// tester si le eval ci-dessus a mis le squelette en memoire
 
-	if (function_exists($nom)) return $nom;
+	if (function_exists($nom)) {
+	    return $nom;
+	}
 
 	// charger le source, si possible, et compiler 
 	if (lire_fichier ($source, $skel)) {
@@ -69,7 +76,9 @@ 
 	}
 
 	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) return false;
+	if (!$skel_code) {
+	    return false;
+	}
 
 	foreach($skel_code as $id => $boucle) {
 		$f = $boucle->return;
@@ -88,9 +97,9 @@ 
 
 	if ($nom) {
 		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom))
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		else {
+		if (function_exists($nom)) {
+					$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+		} else {
 		// code semantiquement faux: bug du compilateur
 		// $boucle est en fait ici la fct principale du squelette
 			$msg = _T('zbug_erreur_compilation');
@@ -107,8 +116,9 @@ 
 		// si c'est ce que demande le debusqueur, lui passer la main
 		if ($GLOBALS['debug_objets']['sourcefile']
 		AND (_request('var_mode_objet') == $nom)
-		AND (_request('var_mode_affiche') == 'code')  )
-			erreur_squelette();
+		AND (_request('var_mode_affiche') == 'code')  ) {
+					erreur_squelette();
+		}
 	}
 	return $nom ? $nom : false;
 }
@@ -118,18 +128,20 @@ 
 
 	// Le dernier index est '' (fonction principale)
 	$noms = substr(join (', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE)
-	$code = "
+	if (CODE_COMMENTE) {
+		$code = "
 /*
  * Squelette : $sourcefile
  * Date :      ".gmdate("D, d M Y H:i:s", @filemtime($sourcefile))." GMT
  * Compile :   ".gmdate("D, d M Y H:i:s", time())." GMT
  * " . (!$boucles ?  "Pas de boucle" :	("Boucles :   " . $noms)) ."
  */ " ;
+	}
 
 	$code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
-	if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
-		ecrire_fichier($phpfile, $code);
+	if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE) {
+			ecrire_fichier($phpfile, $code);
+	}
 	return $code;
 }
 
@@ -140,10 +152,13 @@ 
 	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
 	// par hit
 	if (is_null($date_change)){
-		if (@file_exists($fonc = 'mes_fonctions.php'))
-			$date_change = @filemtime($fonc); # compatibilite
-		if (defined('_FILE_OPTIONS'))
-			$date_change = max($date_change,@filemtime(_FILE_OPTIONS));
+		if (@file_exists($fonc = 'mes_fonctions.php')) {
+					$date_change = @filemtime($fonc);
+		}
+		# compatibilite
+		if (defined('_FILE_OPTIONS')) {
+					$date_change = max($date_change,@filemtime(_FILE_OPTIONS));
+		}
 	}
 	return (
 		(defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
@@ -179,10 +194,11 @@ 
 			# $j = Content-Type, et pas content-TYPE.
 			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
 
-			if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
-				$headers[$j].="|".$r[3];
-			else
-				$headers[$j] = $r[3];
+			if ($j=='X-Spip-Filtre' AND isset($headers[$j])) {
+							$headers[$j].="|".$r[3];
+			} else {
+							$headers[$j] = $r[3];
+			}
 		}
 	}
 	// S'agit-il d'un resultat constant ou contenant du code php
@@ -237,8 +253,9 @@ 
 // http://doc.spip.org/@filtre_introduction_dist
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect) {
 	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif))
-		return propre($descriptif,$connect);
+	if (strlen($descriptif)) {
+			return propre($descriptif,$connect);
+	}
 
 	// De preference ce qui est marque <intro>...</intro>
 	$intro = '';
@@ -246,8 +263,9 @@ 
 	while ($fin = strpos($texte, "</intro>")) {
 		$zone = substr($texte, 0, $fin);
 		$texte = substr($texte, $fin + strlen("</intro>"));
-		if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>")
-			$zone = substr($zone, $deb + 7);
+		if ($deb = strpos($zone, "<intro>") OR substr($zone, 0, 7) == "<intro>") {
+					$zone = substr($zone, $deb + 7);
+		}
 		$intro .= $zone;
 	}
 
@@ -262,34 +280,39 @@ 
 	// Cependant pour des questions de perfs on coupe quand meme, en prenant
 	// large et en se mefiant des tableaux #1323
 
-	if (strlen($intro))
-		$texte = $intro;
-
-	else
+	if (strlen($intro)) {
+			$texte = $intro;
+	} else
 	if (strpos("\n".$texte, "\n|")===false
 	  AND strlen($texte) > 2.5*$longueur){
-		if (strpos($texte,"<multi")!==false)
-			$texte = extraire_multi($texte);
+		if (strpos($texte,"<multi")!==false) {
+					$texte = extraire_multi($texte);
+		}
 		$texte = couper($texte, 2*$longueur);
 	}
 
 	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true))
-		$notes('','empiler');
+	if ($notes = charger_fonction('notes', 'inc', true)) {
+			$notes('','empiler');
+	}
 	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
 	// dans l'introduction.
 	$texte = supprime_img($texte, '');
 	$texte = propre($texte,$connect);
-	if ($notes)
-		$notes('','depiler');
+	if ($notes) {
+			$notes('','depiler');
+	}
 
-	if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
+	if (!defined('_INTRODUCTION_SUITE')) {
+	    define('_INTRODUCTION_SUITE', '&nbsp;(...)');
+	}
 	$texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
 
 	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	if ($GLOBALS['toujours_paragrapher'])
-		// Fermer les paragraphes
+	if ($GLOBALS['toujours_paragrapher']) {
+			// Fermer les paragraphes
 		$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+	}
 
 	return $texte;
 }
@@ -323,12 +346,13 @@ 
 // http://doc.spip.org/@argumenter_squelette
 function argumenter_squelette($v) {
 
-	if (!is_array($v))
-		return "'" . texte_script($v) . "'";
-	else {
+	if (!is_array($v)) {
+			return "'" . texte_script($v) . "'";
+	} else {
 		$out = array();
-		foreach($v as $k=>$val) 
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+		foreach($v as $k=>$val) {
+					$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+		}
 	  return 'array(' . join(", ", $out) . ')';
 	}
 }
@@ -347,8 +371,7 @@ 
 			array_unshift($args,$nom);
 			// et passer sur la fonction generique pour la suite
 			$nomfonction = $nomfonction_generique;
-		}
-		else {
+		} else {
 			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
 			erreur_squelette($msg, $context_compil);
 			return '';
@@ -359,7 +382,9 @@ 
 
 	$r = !function_exists($f) ? $args : $f($args, $context_compil); 
 
-	if (!is_array($r)) return $r;
+	if (!is_array($r)) {
+	    return $r;
+	}
 
 	// verifier que la fonction dyn est la, 
 	// sinon se replier sur la generique si elle existe
@@ -376,8 +401,9 @@ 
 		}
 	}
 
-	if (!_DIR_RESTREINT) 
-		$file = _DIR_RESTREINT_ABS . $file;
+	if (!_DIR_RESTREINT) {
+			$file = _DIR_RESTREINT_ABS . $file;
+	}
 	return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
 }
 
@@ -394,8 +420,9 @@ 
 
 	if ($d = @opendir(_DIR_LOGOS)) {
 		while($f = readdir($d)) {
-			if (preg_match($type, $f, $r))
-				$logos[] = $r[1];
+			if (preg_match($type, $f, $r)) {
+							$logos[] = $r[1];
+			}
 		}
 	}
 	@closedir($d);
@@ -420,19 +447,22 @@ 
 function lang_select_public($lang, $lang_select, $titre=null) {
 	// Cas 1. forcer_lang = true et pas de critere {lang_select}
 	if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
-	AND $lang_select !== 'oui')
-		$lang = $GLOBALS['spip_lang'];
+	AND $lang_select !== 'oui') {
+			$lang = $GLOBALS['spip_lang'];
+	}
 
 	// Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang))
-		$lang = $GLOBALS['spip_lang'];
+	elseif (!strlen($lang)) {
+			$lang = $GLOBALS['spip_lang'];
+	}
 
 	// Cas 3. l'objet est multilingue !
 	elseif ($lang_select !== 'oui'
 	  AND strlen($titre) > 10
 	  AND strpos($titre, '<multi>') !== false
-	  AND strpos(echappe_html($titre), '<multi>') !== false)
-		$lang = $GLOBALS['spip_lang'];
+	  AND strpos(echappe_html($titre), '<multi>') !== false) {
+			$lang = $GLOBALS['spip_lang'];
+	}
 
 	// faire un lang_select() eventuellement sur la langue inchangee
 	lang_select($lang);
@@ -448,33 +478,43 @@ 
 	foreach ($envd as $table => $liste) {
 		$n = '';
 		foreach(explode(',',$liste) as $val) {
-			if ($a = intval($val) AND $val === strval($a))
-				$n.= ','.$val;
+			if ($a = intval($val) AND $val === strval($a)) {
+							$n.= ','.$val;
+			}
+		}
+		if (strlen($n)) {
+					$envd[$table] = $n;
+		} else {
+					unset($envd[$table]);
 		}
-		if (strlen($n))
-			$envd[$table] = $n;
-		else
-			unset($envd[$table]);
 	}
 	return $envd;
 }
 
 // http://doc.spip.org/@match_self
 function match_self($w){
-	if (is_string($w)) return false;
+	if (is_string($w)) {
+	    return false;
+	}
 	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
-		foreach(array_filter($w,'is_array') as $sw)
-			if ($m=match_self($sw)) return $m;
+		if (in_array(reset($w),array("SELF","SUBSELECT"))) {
+		    return $w;
+		}
+		foreach(array_filter($w,'is_array') as $sw) {
+					if ($m=match_self($sw)) return $m;
+		}
 	}
 	return false;
 }
 // http://doc.spip.org/@remplace_sous_requete
 function remplace_sous_requete($w,$sousrequete){
 	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
-		foreach($w as $k=>$sw)
-			$w[$k] = remplace_sous_requete($sw,$sousrequete);
+		if (in_array(reset($w),array("SELF","SUBSELECT"))) {
+		    return $sousrequete;
+		}
+		foreach($w as $k=>$sw) {
+					$w[$k] = remplace_sous_requete($sw,$sousrequete);
+		}
 	}
 	return $w;
 }
@@ -483,8 +523,11 @@ 
 	$where_simples = array();
 	$where_sous = array();
 	foreach($where as $k=>$w){
-		if (match_self($w)) $where_sous[$k] = $w;
-		else $where_simples[$k] = $w;
+		if (match_self($w)) {
+		    $where_sous[$k] = $w;
+		} else {
+		    $where_simples[$k] = $w;
+		}
 	}
 	return array($where_simples,$where_sous);
 }
@@ -523,10 +566,16 @@ 
 	$menage = false;
 	foreach($where as $k => $v) { 
 		if (is_array($v)){
-			if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
-			elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
-			else $op = $v[0] ? $v[0] : $v;
-		} else $op = $v;
+			if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) {
+			    $op= false;
+			} elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) {
+			    $op= false;
+			} else {
+			    $op = $v[0] ? $v[0] : $v;
+			}
+		} else {
+		    $op = $v;
+		}
 		if ((!$op) OR ($op==1) OR ($op=='0=0')) {
 			unset($where[$k]);
 			$menage = true;
@@ -613,13 +662,18 @@ 
 		$cle = $cledef;
 		// le format de join est :
 		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
-		if (count($join[$cle])==3) $join[$cle][] = '';
+		if (count($join[$cle])==2) {
+		    $join[$cle][] = $join[$cle][1];
+		}
+		if (count($join[$cle])==3) {
+		    $join[$cle][] = '';
+		}
 		list($t,$c,$carr,$and) = $join[$cle];
 		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
 		// pour compat avec ancienne convention
-		if (is_numeric($cle))
-			$cle = "L$k";
+		if (is_numeric($cle)) {
+					$cle = "L$k";
+		}
 		if (!$menage
 		OR isset($afrom[$cle])
 		OR calculer_jointnul($cle, $select)
@@ -711,9 +765,9 @@ 
 		    $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
 		    if (preg_match($as,implode(',',$select),$m)){
 			    $alias = "";
+		    } else {
+		    					$alias = ", ".$nfrom[4]." AS $oldcle";
 		    }
-		    else
-					$alias = ", ".$nfrom[4]." AS $oldcle";
 	    }
 	    $select = remplacer_jointnul($t . $alias, $select, $e);
 	    $join = remplacer_jointnul($t, $join, $e);
@@ -738,17 +792,19 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND'){
-	if (empty($v))
-		return '';
+	if (empty($v)) {
+			return '';
+	}
 
 	if (!is_array($v)) {
 		return $v;
 	} else {
 		$exp = "";
-		if (strtoupper($join) === 'AND')
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		else
-			return $exp . join($join, $v);
+		if (strtoupper($join) === 'AND') {
+					return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+		} else {
+					return $exp . join($join, $v);
+		}
 	}
 }
 
@@ -759,11 +815,15 @@ 
 function calculer_jointnul($cle, $exp, $equiv='')
 {
 	if (!is_array($exp)) {
-		if ($equiv) $exp = preg_replace($equiv, '', $exp);
+		if ($equiv) {
+		    $exp = preg_replace($equiv, '', $exp);
+		}
 		return preg_match("/\\b$cle\\./", $exp);
 	} else {
 		foreach($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) return true;
+			if (calculer_jointnul($cle, $v, $equiv)) {
+			    return true;
+			}
 		}
 		return false;
 	}
@@ -776,7 +836,9 @@ 
 	  foreach($from as $k=>$v){
 	  	$from_synth[$k]=$from[$k];
 	  	if (isset($afrom[$k])) {
-	  		foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
+	  		foreach($afrom[$k] as $kk=>$vv) {
+	  		    $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
+	  		}
 	  		$from_synth["$k@"]= implode(' ',$afrom[$k]);
 	  		unset($afrom[$k]);
 	  	}
@@ -802,8 +864,9 @@ 
 function calculer_nom_fonction_squel($skel, $mime_type='html', $connect='')
 {
 	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
-		$skel = substr($skel,strlen(_DIR_RACINE));
+	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0) {
+			$skel = substr($skel,strlen(_DIR_RACINE));
+	}
 	return $mime_type
 	. (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
 	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));

Spacing +146 added lines, -146 removed lines

@@ -31,7 +31,7 @@ 
 # Toutefois pour 2. et 3. preferer la technique de la surcharge
 
 // http://doc.spip.org/@public_composer_dist
-function public_composer_dist($squelette, $mime_type, $gram, $source, $connect='') {
+function public_composer_dist($squelette, $mime_type, $gram, $source, $connect = '') {
 
 	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
 
@@ -41,10 +41,10 @@ 
 	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug')
 		$GLOBALS['debug_objets']['courant'] = $nom;
 
-	$phpfile = sous_repertoire(_DIR_SKELS,'',false,true) . $nom . '.php';
+	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true).$nom.'.php';
 
 	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)){
+	if (!squelette_obsolete($phpfile, $source)) {
 		include_once $phpfile;
 		#if (!squelette_obsolete($phpfile, $source)
 		#  AND lire_fichier ($phpfile, $skel_code,
@@ -54,7 +54,7 @@ 
 		#}
 	}
 
-	if (file_exists($lib = $squelette . '_fonctions'.'.php')){
+	if (file_exists($lib = $squelette.'_fonctions'.'.php')) {
 		include_once $lib;
 	}
 
@@ -63,7 +63,7 @@ 
 	if (function_exists($nom)) return $nom;
 
 	// charger le source, si possible, et compiler 
-	if (lire_fichier ($source, $skel)) {
+	if (lire_fichier($source, $skel)) {
 		$compiler = charger_fonction('compiler', 'public');
 		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
 	}
@@ -71,9 +71,9 @@ 
 	// Ne plus rien faire si le compilateur n'a pas pu operer.
 	if (!$skel_code) return false;
 
-	foreach($skel_code as $id => $boucle) {
+	foreach ($skel_code as $id => $boucle) {
 		$f = $boucle->return;
-		if (@eval("return true; $f ;") ===  false) {
+		if (@eval("return true; $f ;") === false) {
 		// Code syntaxiquement faux (critere etc mal programme')
 			$msg = _T('zbug_erreur_compilation');
 			erreur_squelette($msg, $boucle);
@@ -102,12 +102,12 @@ 
 	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
 
 		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+		$GLOBALS['debug_objets']['code'][$nom.'tout'] = $code;
 
 		// si c'est ce que demande le debusqueur, lui passer la main
 		if ($GLOBALS['debug_objets']['sourcefile']
 		AND (_request('var_mode_objet') == $nom)
-		AND (_request('var_mode_affiche') == 'code')  )
+		AND (_request('var_mode_affiche') == 'code'))
 			erreur_squelette();
 	}
 	return $nom ? $nom : false;
@@ -117,17 +117,17 @@ 
 {
 
 	// Le dernier index est '' (fonction principale)
-	$noms = substr(join (', ', array_keys($boucles)), 0, -2);
+	$noms = substr(join(', ', array_keys($boucles)), 0, -2);
 	if (CODE_COMMENTE)
 	$code = "
 /*
  * Squelette : $sourcefile
  * Date :      ".gmdate("D, d M Y H:i:s", @filemtime($sourcefile))." GMT
  * Compile :   ".gmdate("D, d M Y H:i:s", time())." GMT
- * " . (!$boucles ?  "Pas de boucle" :	("Boucles :   " . $noms)) ."
+ * " . (!$boucles ? "Pas de boucle" : ("Boucles :   ".$noms))."
  */ " ;
 
-	$code = '<'. "?php\n" . $code . join('', $boucles)  . "\n?" .'>';
+	$code = '<'."?php\n".$code.join('', $boucles)."\n?".'>';
 	if (!defined('_VAR_NOCACHE') OR !_VAR_NOCACHE)
 		ecrire_fichier($phpfile, $code);
 	return $code;
@@ -139,16 +139,16 @@ 
 	static $date_change = null;
 	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
 	// par hit
-	if (is_null($date_change)){
+	if (is_null($date_change)) {
 		if (@file_exists($fonc = 'mes_fonctions.php'))
 			$date_change = @filemtime($fonc); # compatibilite
 		if (defined('_FILE_OPTIONS'))
-			$date_change = max($date_change,@filemtime(_FILE_OPTIONS));
+			$date_change = max($date_change, @filemtime(_FILE_OPTIONS));
 	}
 	return (
-		(defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul','preview','debug')))
+		(defined('_VAR_MODE') AND in_array(_VAR_MODE, array('recalcul', 'preview', 'debug')))
 		OR !@file_exists($skel)
-		OR ((@file_exists($squelette)?@filemtime($squelette):0)
+		OR ((@file_exists($squelette) ? @filemtime($squelette) : 0)
 			> ($date = @filemtime($skel)))
 		OR ($date_change > $date)
 	);
@@ -156,41 +156,41 @@ 
 
 // Activer l'invalideur de session
 // http://doc.spip.org/@invalideur_session
-function invalideur_session(&$Cache, $code=NULL) {
-	$Cache['session']=spip_session();
+function invalideur_session(&$Cache, $code = NULL) {
+	$Cache['session'] = spip_session();
 	return $code;
 }
 
 
 // http://doc.spip.org/@analyse_resultat_skel
-function analyse_resultat_skel($nom, $cache, $corps, $source='') {
+function analyse_resultat_skel($nom, $cache, $corps, $source = '') {
 	static $filtres = array();
 	$headers = array();
 
 	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
 	// note: on essaie d'attrapper aussi certains de ces entetes codes
 	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (stripos($corps,'header')!==false
+	if (stripos($corps, 'header') !== false
 		AND preg_match_all(
 	'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-	$corps, $regs, PREG_SET_ORDER)){
+	$corps, $regs, PREG_SET_ORDER)) {
 		foreach ($regs as $r) {
 			$corps = str_replace($r[0], '', $corps);
 			# $j = Content-Type, et pas content-TYPE.
 			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
 
-			if ($j=='X-Spip-Filtre' AND isset($headers[$j]))
-				$headers[$j].="|".$r[3];
+			if ($j == 'X-Spip-Filtre' AND isset($headers[$j]))
+				$headers[$j] .= "|".$r[3];
 			else
 				$headers[$j] = $r[3];
 		}
 	}
 	// S'agit-il d'un resultat constant ou contenant du code php
 	$process_ins = (
-		strpos($corps,'<'.'?') === false
+		strpos($corps, '<'.'?') === false
 		OR
-		 (strpos($corps,'<'.'?xml')!==false AND
-		  strpos(str_replace('<'.'?xml', '', $corps),'<'.'?') === false)
+		 (strpos($corps, '<'.'?xml') !== false AND
+		  strpos(str_replace('<'.'?xml', '', $corps), '<'.'?') === false)
 	)
 		? 'html'
 		: 'php';
@@ -206,11 +206,11 @@ 
 
 	// traiter #FILTRE{} et filtres
   if (!isset($filtres[$nom])) {
-	  $filtres[$nom] = pipeline('declarer_filtres_squelettes',array('args'=>$skel,'data'=>array()));
+	  $filtres[$nom] = pipeline('declarer_filtres_squelettes', array('args'=>$skel, 'data'=>array()));
   }
 	if (count($filtres[$nom]) OR (isset($headers['X-Spip-Filtre']) AND strlen($headers['X-Spip-Filtre']))) {
 		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel,$corps,strlen($headers['X-Spip-Filtre'])?explode('|', $headers['X-Spip-Filtre']):array(),$filtres[$nom]);
+		$corps = sandbox_filtrer_squelette($skel, $corps, strlen($headers['X-Spip-Filtre']) ?explode('|', $headers['X-Spip-Filtre']) : array(), $filtres[$nom]);
 		unset($headers['X-Spip-Filtre']);
 	}
 
@@ -238,7 +238,7 @@ 
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect) {
 	// Si un descriptif est envoye, on l'utilise directement
 	if (strlen($descriptif))
-		return propre($descriptif,$connect);
+		return propre($descriptif, $connect);
 
 	// De preference ce qui est marque <intro>...</intro>
 	$intro = '';
@@ -266,22 +266,22 @@ 
 		$texte = $intro;
 
 	else
-	if (strpos("\n".$texte, "\n|")===false
-	  AND strlen($texte) > 2.5*$longueur){
-		if (strpos($texte,"<multi")!==false)
+	if (strpos("\n".$texte, "\n|") === false
+	  AND strlen($texte) > 2.5 * $longueur) {
+		if (strpos($texte, "<multi") !== false)
 			$texte = extraire_multi($texte);
-		$texte = couper($texte, 2*$longueur);
+		$texte = couper($texte, 2 * $longueur);
 	}
 
 	// ne pas tenir compte des notes
 	if ($notes = charger_fonction('notes', 'inc', true))
-		$notes('','empiler');
+		$notes('', 'empiler');
 	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
 	// dans l'introduction.
 	$texte = supprime_img($texte, '');
-	$texte = propre($texte,$connect);
+	$texte = propre($texte, $connect);
 	if ($notes)
-		$notes('','depiler');
+		$notes('', 'depiler');
 
 	if (!defined('_INTRODUCTION_SUITE')) define('_INTRODUCTION_SUITE', '&nbsp;(...)');
 	$texte = couper($texte, $longueur, _INTRODUCTION_SUITE);
@@ -301,7 +301,7 @@ 
 // elles sont traitees comme des inclusions
 // http://doc.spip.org/@synthetiser_balise_dynamique
 
-define('CODE_INCLURE_BALISE', '<' . '?php 
+define('CODE_INCLURE_BALISE', '<'.'?php 
 include_once("./" . _DIR_RACINE . "%s");
 if ($lang_select = "%s") $lang_select = lang_select($lang_select);
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
@@ -313,7 +313,7 @@ 
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
 	$r = sprintf(CODE_INCLURE_BALISE,
 	       $file,
-	       $context_compil[4]?$context_compil[4]:'',
+	       $context_compil[4] ? $context_compil[4] : '',
 	       $nom,
 	       join(', ', array_map('argumenter_squelette', $args)),
 	       join(', ', array_map('_q', $context_compil)));
@@ -324,38 +324,38 @@ 
 function argumenter_squelette($v) {
 
 	if (!is_array($v))
-		return "'" . texte_script($v) . "'";
+		return "'".texte_script($v)."'";
 	else {
 		$out = array();
-		foreach($v as $k=>$val) 
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-	  return 'array(' . join(", ", $out) . ')';
+		foreach ($v as $k=>$val) 
+			$out [] = argumenter_squelette($k).'=>'.argumenter_squelette($val);
+	  return 'array('.join(", ", $out).')';
 	}
 }
 
 // verifier leurs arguments et filtres, et calculer le code a inclure
 // http://doc.spip.org/@executer_balise_dynamique
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	$p = strpos($nom,"_");
+	$p = strpos($nom, "_");
 	$nomfonction = $nom;
-	$nomfonction_generique = substr($nom,0,$p+1);
-	if (!$file = include_spip("balise/". strtolower($nomfonction))) {
+	$nomfonction_generique = substr($nom, 0, $p + 1);
+	if (!$file = include_spip("balise/".strtolower($nomfonction))) {
 		// pas de fichier associe, passer au traitement generique
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
+		$file = include_spip("balise/".strtolower($nomfonction_generique));
 		if ($file) {
 			// et injecter en premier arg le nom de la balise 
-			array_unshift($args,$nom);
+			array_unshift($args, $nom);
 			// et passer sur la fonction generique pour la suite
 			$nomfonction = $nomfonction_generique;
 		}
 		else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+			$msg = array('zbug_balise_inexistante', array('from'=>'CVT', 'balise'=>$nom));
 			erreur_squelette($msg, $context_compil);
 			return '';
 		}
 	}
 	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nomfonction . '_stat';
+	$f = 'balise_'.$nomfonction.'_stat';
 
 	$r = !function_exists($f) ? $args : $f($args, $context_compil); 
 
@@ -363,61 +363,61 @@ 
 
 	// verifier que la fonction dyn est la, 
 	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nomfonction . '_dyn')) {
-		$file = include_spip("balise/" .strtolower($nomfonction_generique));
-		if (function_exists('balise_' . $nomfonction_generique . '_dyn')) {
+	if (!function_exists('balise_'.$nomfonction.'_dyn')) {
+		$file = include_spip("balise/".strtolower($nomfonction_generique));
+		if (function_exists('balise_'.$nomfonction_generique.'_dyn')) {
 			// et lui injecter en premier arg le nom de la balise 
-			array_unshift($r,$nom);
+			array_unshift($r, $nom);
 			$nomfonction = $nomfonction_generique;
 		} else {
-			$msg = array('zbug_balise_inexistante',array('from'=>'CVT','balise'=>$nom));
+			$msg = array('zbug_balise_inexistante', array('from'=>'CVT', 'balise'=>$nom));
 			erreur_squelette($msg, $context_compil);
 			return '';
 		}
 	}
 
 	if (!_DIR_RESTREINT) 
-		$file = _DIR_RESTREINT_ABS . $file;
+		$file = _DIR_RESTREINT_ABS.$file;
 	return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
 }
 
 // http://doc.spip.org/@lister_objets_avec_logos
-function lister_objets_avec_logos ($type) {
+function lister_objets_avec_logos($type) {
 	global $formats_logos;
 	$logos = array();
 	$chercher_logo = charger_fonction('chercher_logo', 'inc');
 	$type = '/'
 	. type_du_logo($type)
 	. "on(\d+)\.("
-	. join('|',$formats_logos)
+	. join('|', $formats_logos)
 	. ")$/";
 
 	if ($d = @opendir(_DIR_LOGOS)) {
-		while($f = readdir($d)) {
+		while ($f = readdir($d)) {
 			if (preg_match($type, $f, $r))
 				$logos[] = $r[1];
 		}
 	}
 	@closedir($d);
-	return join(',',$logos);
+	return join(',', $logos);
 }
 
 // fonction appelee par la balise #NOTES
 // Renvoyer l'etat courant des notes, le purger et en preparer un nouveau
 // http://doc.spip.org/@calculer_notes
 function calculer_notes() {
-	$r='';
+	$r = '';
 	if ($notes = charger_fonction('notes', 'inc', true)) {
 		$r = $notes(array());
-		$notes('','depiler');
-		$notes('','empiler');
+		$notes('', 'depiler');
+		$notes('', 'empiler');
 	}
 	return $r;
 }
 
 // Selectionner la langue de l'objet dans la boucle, sauf dans les
 // cas ou il ne le faut pas :-)
-function lang_select_public($lang, $lang_select, $titre=null) {
+function lang_select_public($lang, $lang_select, $titre = null) {
 	// Cas 1. forcer_lang = true et pas de critere {lang_select}
 	if (isset($GLOBALS['forcer_lang']) AND $GLOBALS['forcer_lang']
 	AND $lang_select !== 'oui')
@@ -447,9 +447,9 @@ 
 function nettoyer_env_doublons($envd) {
 	foreach ($envd as $table => $liste) {
 		$n = '';
-		foreach(explode(',',$liste) as $val) {
+		foreach (explode(',', $liste) as $val) {
 			if ($a = intval($val) AND $val === strval($a))
-				$n.= ','.$val;
+				$n .= ','.$val;
 		}
 		if (strlen($n))
 			$envd[$table] = $n;
@@ -460,33 +460,33 @@ 
 }
 
 // http://doc.spip.org/@match_self
-function match_self($w){
+function match_self($w) {
 	if (is_string($w)) return false;
 	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $w;
-		foreach(array_filter($w,'is_array') as $sw)
-			if ($m=match_self($sw)) return $m;
+		if (in_array(reset($w), array("SELF", "SUBSELECT"))) return $w;
+		foreach (array_filter($w, 'is_array') as $sw)
+			if ($m = match_self($sw)) return $m;
 	}
 	return false;
 }
 // http://doc.spip.org/@remplace_sous_requete
-function remplace_sous_requete($w,$sousrequete){
+function remplace_sous_requete($w, $sousrequete) {
 	if (is_array($w)) {
-		if (in_array(reset($w),array("SELF","SUBSELECT"))) return $sousrequete;
-		foreach($w as $k=>$sw)
-			$w[$k] = remplace_sous_requete($sw,$sousrequete);
+		if (in_array(reset($w), array("SELF", "SUBSELECT"))) return $sousrequete;
+		foreach ($w as $k=>$sw)
+			$w[$k] = remplace_sous_requete($sw, $sousrequete);
 	}
 	return $w;
 }
 // http://doc.spip.org/@trouver_sous_requetes
-function trouver_sous_requetes($where){
+function trouver_sous_requetes($where) {
 	$where_simples = array();
 	$where_sous = array();
-	foreach($where as $k=>$w){
+	foreach ($where as $k=>$w) {
 		if (match_self($w)) $where_sous[$k] = $w;
 		else $where_simples[$k] = $w;
 	}
-	return array($where_simples,$where_sous);
+	return array($where_simples, $where_sous);
 }
 
 
@@ -510,42 +510,42 @@ 
  * @param bool $requeter
  * @return resource
  */
-function calculer_select ($select = array(), $from = array(), 
+function calculer_select($select = array(), $from = array(), 
 			$from_type = array(),
-      $where = array(), $join=array(),
+      $where = array(), $join = array(),
 			$groupby = array(), $orderby = array(), $limit = '',
-			$having=array(), $table = '', $id = '', $serveur='', $requeter=true) {
+			$having = array(), $table = '', $id = '', $serveur = '', $requeter = true) {
 
 	// retirer les criteres vides:
 	// {X ?} avec X absent de l'URL
 	// {par #ENV{X}} avec X absent de l'URL
 	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
 	$menage = false;
-	foreach($where as $k => $v) { 
-		if (is_array($v)){
-			if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
-			elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
+	foreach ($where as $k => $v) { 
+		if (is_array($v)) {
+			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) $op = false;
+			elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) $op = false;
 			else $op = $v[0] ? $v[0] : $v;
 		} else $op = $v;
-		if ((!$op) OR ($op==1) OR ($op=='0=0')) {
+		if ((!$op) OR ($op == 1) OR ($op == '0=0')) {
 			unset($where[$k]);
 			$menage = true;
 		}
 	}
 
 	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby,array(''));
+	$groupby = array_diff($groupby, array(''));
 
 	// remplacer les sous requetes recursives au calcul
-	list($where_simples,$where_sous) = trouver_sous_requetes($where);
-	foreach($where_sous as $k=>$w) {
+	list($where_simples, $where_sous) = trouver_sous_requetes($where);
+	foreach ($where_sous as $k=>$w) {
 		$menage = true;
 		// on recupere la sous requete 
 		$sous = match_self($w);
-		if ($sous[0]=='SELF') {
+		if ($sous[0] == 'SELF') {
 			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples,$sous[2]);
-			$wheresub = array($sous[2],'0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+			array_push($where_simples, $sous[2]);
+			$wheresub = array($sous[2], '0=0'); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
 			$jsub = $join;
 			// trouver les jointures utiles a
 			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
@@ -553,50 +553,50 @@ 
 			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
 			$i = 0;
 			do {
-				$where[$k] = remplace_sous_requete($w,"(".calculer_select(
+				$where[$k] = remplace_sous_requete($w, "(".calculer_select(
 				array($sous[1]." AS id"),
 				$from,
 				$from_type,
 				$wheresub,
 				$jsub,
-				array(),array(),'',
-				$having,$table,$id,$serveur,false).")");
-				if (!$i){
+				array(), array(), '',
+				$having, $table, $id, $serveur, false).")");
+				if (!$i) {
 					$i = 1;
 					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle=>$wj){
-						if (count($wj)==4
-							AND strpos($wherestring,"{$cle}.")!==FALSE
-						){
+					foreach ($join as $cle=>$wj) {
+						if (count($wj) == 4
+							AND strpos($wherestring, "{$cle}.") !== FALSE
+						) {
 							$i = 0;
 							$wheresub[] = $wj[3];
 							unset($jsub[$cle][3]);
 						}
 					}
 				}
-			} while ($i++<1);
+			} while ($i++ < 1);
 		}
-		if ($sous[0]=='SUBSELECT') {
+		if ($sous[0] == 'SUBSELECT') {
 			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples,$sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w,"(".calculer_select(
+			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
+			$where[$k] = remplace_sous_requete($w, "(".calculer_select(
 			$sous[1], # select
 			$sous[2], #from
 			array(), #from_type
-			$sous[3]?(is_array($sous[3])?$sous[3]:array($sous[3])):array(), #where, qui peut etre de la forme string comme dans sql_select
+			$sous[3] ? (is_array($sous[3]) ? $sous[3] : array($sous[3])) : array(), #where, qui peut etre de la forme string comme dans sql_select
 			array(), #join
-			$sous[4]?$sous[4]:array(), #groupby
-			$sous[5]?$sous[5]:array(), #orderby
+			$sous[4] ? $sous[4] : array(), #groupby
+			$sous[5] ? $sous[5] : array(), #orderby
 			$sous[6], #limit
-			$sous[7]?$sous[7]:array(), #having
-			$table,$id,$serveur,false
+			$sous[7] ? $sous[7] : array(), #having
+			$table, $id, $serveur, false
 			).")");
 		}
 		array_pop($where_simples);
 	}
 
-	foreach($having as $k => $v) { 
-		if ((!$v) OR ($v==1) OR ($v=='0=0')) {
+	foreach ($having as $k => $v) { 
+		if ((!$v) OR ($v == 1) OR ($v == '0=0')) {
 			unset($having[$k]);
 		}
 	}
@@ -609,13 +609,13 @@ 
 	$afrom = array();
 	$equiv = array();
 	$k = count($join);
-	foreach(array_reverse($join,true) as $cledef=>$j) {
+	foreach (array_reverse($join, true) as $cledef=>$j) {
 		$cle = $cledef;
 		// le format de join est :
 		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		if (count($join[$cle])==2) $join[$cle][] = $join[$cle][1];
-		if (count($join[$cle])==3) $join[$cle][] = '';
-		list($t,$c,$carr,$and) = $join[$cle];
+		if (count($join[$cle]) == 2) $join[$cle][] = $join[$cle][1];
+		if (count($join[$cle]) == 3) $join[$cle][] = '';
+		list($t, $c, $carr, $and) = $join[$cle];
 		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
 		// pour compat avec ancienne convention
 		if (is_numeric($cle))
@@ -628,13 +628,13 @@ 
 		OR calculer_jointnul($cle, $where_simples)) {
 			// corriger les references non explicites dans select
 			// ou groupby
-			foreach($select as $i=>$s) {
+			foreach ($select as $i=>$s) {
 				if ($s == $c) {
 					$select[$i] = "$cle.$c AS $c";
 					break;
 				}
 			}
-			foreach($groupby as $i=>$g) {
+			foreach ($groupby as $i=>$g) {
 				if ($g == $c) {
 					$groupby[$i] = "$cle.$c";
 					break;
@@ -643,22 +643,22 @@ 
 			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
 			// sans recours a preg_match
 			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = array("\n" .
-				(isset($from_type[$cle])?$from_type[$cle]:"INNER")." JOIN",
+			$afrom[$t][$cle] = array("\n".
+				(isset($from_type[$cle]) ? $from_type[$cle] : "INNER")." JOIN",
 				$from[$cle],
 				"AS $cle",
 				"ON (",
 				"$cle.$c",
 				"=",
 				"$t.$carr",
-				($and ? "AND ". $and:"") .
+				($and ? "AND ".$and : "").
 				")");
-			if (isset($afrom[$cle])){
+			if (isset($afrom[$cle])) {
 				$afrom[$t] = $afrom[$t] + $afrom[$cle];
 				unset($afrom[$cle]);
 			}
-			$equiv[]= $carr;
-		} else { unset($join[$cledef]);}
+			$equiv[] = $carr;
+		} else { unset($join[$cledef]); }
 		unset($from[$cle]);
 		$k--;
 	}
@@ -679,9 +679,9 @@ 
 		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
 		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
 		
-	  list($t,$c) = each($from);
+	  list($t, $c) = each($from);
 	  reset($from);
-	  $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
+	  $e = '/\b('."$t\\.".join("|".$t.'\.', $equiv).')\b/';
 	  if (!(strpos($t, ' ') OR // jointure des le depart cf boucle_doc
 		 calculer_jointnul($t, $select, $e) OR
 		 calculer_jointnul($t, $join, $e) OR
@@ -691,7 +691,7 @@ 
 		 calculer_jointnul($t, $having, $e))
 		 && count($afrom[$t])) {
 		 	reset($afrom[$t]);
-		 	list($nt,$nfrom) = each($afrom[$t]);
+		 	list($nt, $nfrom) = each($afrom[$t]);
 	    unset($from[$t]);
 	    $from[$nt] = $nfrom[1];
 	    unset($afrom[$t][$nt]);
@@ -701,21 +701,21 @@ 
 	    $t = $nfrom[4];
 	    $alias = "";
 	    // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-	    $oldcle = explode('.',$nfrom[6]);
+	    $oldcle = explode('.', $nfrom[6]);
 	    $oldcle = end($oldcle);
-	    $newcle = explode('.',$nfrom[4]);
+	    $newcle = explode('.', $nfrom[4]);
 	    $newcle = end($newcle);
-	    if ($newcle!=$oldcle){
+	    if ($newcle != $oldcle) {
 		    // si l'ancienne cle etait deja dans le select avec un AS
 		    // reprendre simplement ce AS
 		    $as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
-		    if (preg_match($as,implode(',',$select),$m)){
+		    if (preg_match($as, implode(',', $select), $m)) {
 			    $alias = "";
 		    }
 		    else
 					$alias = ", ".$nfrom[4]." AS $oldcle";
 	    }
-	    $select = remplacer_jointnul($t . $alias, $select, $e);
+	    $select = remplacer_jointnul($t.$alias, $select, $e);
 	    $join = remplacer_jointnul($t, $join, $e);
 	    $where = remplacer_jointnul($t, $where, $e);
 	    $having = remplacer_jointnul($t, $having, $e);
@@ -724,7 +724,7 @@ 
 	  }
 	  $from = reinjecte_joint($afrom, $from);
 	}
-	$GLOBALS['debug']['aucasou'] = array ($table, $id, $serveur, $requeter);
+	$GLOBALS['debug']['aucasou'] = array($table, $id, $serveur, $requeter);
 	$r = sql_select($select, $from, $where,
 		$groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
 	unset($GLOBALS['debug']['aucasou']);
@@ -737,7 +737,7 @@ 
  * @param string $join
  * @return string
  */
-function calculer_where_to_string($v, $join = 'AND'){
+function calculer_where_to_string($v, $join = 'AND') {
 	if (empty($v))
 		return '';
 
@@ -746,9 +746,9 @@ 
 	} else {
 		$exp = "";
 		if (strtoupper($join) === 'AND')
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+			return $exp.join(" $join ", array_map('calculer_where_to_string', $v));
 		else
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 	}
 }
 
@@ -756,13 +756,13 @@ 
 //condition suffisante (mais non necessaire) pour qu'une table soit utile
 
 // http://doc.spip.org/@calculer_jointnul
-function calculer_jointnul($cle, $exp, $equiv='')
+function calculer_jointnul($cle, $exp, $equiv = '')
 {
 	if (!is_array($exp)) {
 		if ($equiv) $exp = preg_replace($equiv, '', $exp);
 		return preg_match("/\\b$cle\\./", $exp);
 	} else {
-		foreach($exp as $v) {
+		foreach ($exp as $v) {
 			if (calculer_jointnul($cle, $v, $equiv)) return true;
 		}
 		return false;
@@ -773,11 +773,11 @@ 
 function reinjecte_joint($afrom, $from)
 {
 	  $from_synth = array();
-	  foreach($from as $k=>$v){
-	  	$from_synth[$k]=$from[$k];
+	  foreach ($from as $k=>$v) {
+	  	$from_synth[$k] = $from[$k];
 	  	if (isset($afrom[$k])) {
-	  		foreach($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ',$afrom[$k][$kk]);
-	  		$from_synth["$k@"]= implode(' ',$afrom[$k]);
+	  		foreach ($afrom[$k] as $kk=>$vv) $afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
+	  		$from_synth["$k@"] = implode(' ', $afrom[$k]);
 	  		unset($afrom[$k]);
 	  	}
 	  }
@@ -785,12 +785,12 @@ 
 }
 
 // http://doc.spip.org/@remplacer_jointnul
-function remplacer_jointnul($cle, $exp, $equiv='')
+function remplacer_jointnul($cle, $exp, $equiv = '')
 {
 	if (!is_array($exp)) {
 		return preg_replace($equiv, $cle, $exp);
 	} else {
-		foreach($exp as $k => $v) {
+		foreach ($exp as $k => $v) {
 		  $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
 		}
 		return $exp;
@@ -799,14 +799,14 @@ 
 
 // calcul du nom du squelette
 // http://doc.spip.org/@calculer_nom_fonction_squel
-function calculer_nom_fonction_squel($skel, $mime_type='html', $connect='')
+function calculer_nom_fonction_squel($skel, $mime_type = 'html', $connect = '')
 {
 	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l=strlen(_DIR_RACINE) AND strncmp($skel,_DIR_RACINE,$l)==0)
-		$skel = substr($skel,strlen(_DIR_RACINE));
+	if ($l = strlen(_DIR_RACINE) AND strncmp($skel, _DIR_RACINE, $l) == 0)
+		$skel = substr($skel, strlen(_DIR_RACINE));
 	return $mime_type
-	. (!$connect ?  '' : preg_replace('/\W/',"_", $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel'])?'*'.$GLOBALS['marqueur_skel']:''));
+	. (!$connect ? '' : preg_replace('/\W/', "_", $connect)).'_'
+	. md5($GLOBALS['spip_version_code'].' * '.$skel.(isset($GLOBALS['marqueur_skel']) ? '*'.$GLOBALS['marqueur_skel'] : ''));
 }
 
 ?>

ecrire/public/phraser_html.php

Doc Comments +19 added lines

@@ -200,6 +200,9 @@ 
 // on recommence tant qu'il y a des [...] en substituant a l'appel suivant
 
 // http://doc.spip.org/@phraser_champs_etendus
+/**
+ * @param integer $ligne
+ */
 function phraser_champs_etendus($texte, $ligne, $result){
 	if ($texte==="") return $result;
 	$sep = '##';
@@ -216,6 +219,9 @@ 
 // Tres chevelu
 
 // http://doc.spip.org/@phraser_args
+/**
+ * @param string $fin
+ */
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ){
 	$texte = ltrim($texte);
 	while (($texte!=="") && strpos($fin, $texte[0])===false){
@@ -230,6 +236,9 @@ 
 }
 
 // http://doc.spip.org/@phraser_arg
+/**
+ * @param string $texte
+ */
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ){
 	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
 	$suite = ltrim($match[2]);
@@ -355,6 +364,9 @@ 
 
 
 // http://doc.spip.org/@phraser_champs_exterieurs
+/**
+ * @param string $texte
+ */
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested){
 	$res = array();
 	while (($p = strpos($texte, "%$sep"))!==false){
@@ -372,6 +384,9 @@ 
 }
 
 // http://doc.spip.org/@phraser_champs_interieurs
+/**
+ * @param string $sep
+ */
 function phraser_champs_interieurs($texte, $ligne, $sep, $result){
 	$i = 0; // en fait count($result)
 	$x = "";
@@ -634,6 +649,10 @@ 
 }
 
 // http://doc.spip.org/@phraser_critere_infixe
+/**
+ * @param string $arg1
+ * @param string $arg2
+ */
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond){
 	$args[0] = new Texte;
 	$args[0]->texte = $arg1;

Indentation +675 added lines, -675 removed lines

@@ -41,77 +41,77 @@ 
 // http://doc.spip.org/@phraser_inclure
 function phraser_inclure($texte, $ligne, $result){
 
-	while (preg_match(BALISE_INCLURE, $texte, $match)){
-		$p = strpos($texte, $match[0]);
-		$debut = substr($texte, 0, $p);
-		if ($p) $result = phraser_idiomes($debut, $ligne, $result);
-		$ligne += substr_count($debut, "\n");
-		$champ = new Inclure;
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$fichier = @$match[2];
-		# assurer ici la migration .php3 => .php
-		# et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
-		if (preg_match(',^(.*[.]php)3$,', $fichier, $r)){
-			$fichier = $r[1];
-		}
-		$champ->texte = ($fichier!=='page.php') ? $fichier : '';
-		$texte = substr($texte, $p+strlen($match[0]));
-		// on assimile {var=val} a une liste de un argument sans fonction
-		phraser_args($texte, "/>", "", $result, $champ);
-		if (!$champ->texte OR count($champ->param)>1){
-			if (!function_exists('normaliser_inclure'))
-				include_spip('public/normaliser');
-			normaliser_inclure($champ);
-		}
-		$texte = substr($champ->apres, strpos($champ->apres, '>')+1);
-		$champ->apres = "";
-		$texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
-		$result[] = $champ;
-	}
-
-	return (($texte==="") ? $result : phraser_idiomes($texte, $ligne, $result));
+    while (preg_match(BALISE_INCLURE, $texte, $match)){
+        $p = strpos($texte, $match[0]);
+        $debut = substr($texte, 0, $p);
+        if ($p) $result = phraser_idiomes($debut, $ligne, $result);
+        $ligne += substr_count($debut, "\n");
+        $champ = new Inclure;
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $fichier = @$match[2];
+        # assurer ici la migration .php3 => .php
+        # et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
+        if (preg_match(',^(.*[.]php)3$,', $fichier, $r)){
+            $fichier = $r[1];
+        }
+        $champ->texte = ($fichier!=='page.php') ? $fichier : '';
+        $texte = substr($texte, $p+strlen($match[0]));
+        // on assimile {var=val} a une liste de un argument sans fonction
+        phraser_args($texte, "/>", "", $result, $champ);
+        if (!$champ->texte OR count($champ->param)>1){
+            if (!function_exists('normaliser_inclure'))
+                include_spip('public/normaliser');
+            normaliser_inclure($champ);
+        }
+        $texte = substr($champ->apres, strpos($champ->apres, '>')+1);
+        $champ->apres = "";
+        $texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
+        $result[] = $champ;
+    }
+
+    return (($texte==="") ? $result : phraser_idiomes($texte, $ligne, $result));
 }
 
 // http://doc.spip.org/@phraser_polyglotte
 function phraser_polyglotte($texte, $ligne, $result){
 
-	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER))
-		foreach ($m as $match){
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p){
-				$champ = new Texte;
-				$champ->texte = $debut;
-				$champ->ligne = $ligne;
-				$result[] = $champ;
-				$ligne += substr_count($champ->texte, "\n");
-			}
-
-			$champ = new Polyglotte;
-			$champ->ligne = $ligne;
-			$ligne += substr_count($match[0], "\n");
-			$lang = '';
-			$bloc = $match[1];
-			$texte = substr($texte, $p+strlen($match[0]));
-			while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)){
-				$trad = $regs[1];
-				if ($trad OR $lang)
-					$champ->traductions[$lang] = $trad;
-				$lang = $regs[2];
-				$bloc = $regs[3];
-			}
-			$champ->traductions[$lang] = $bloc;
-			$result[] = $champ;
-		}
-	if ($texte!==""){
-		$champ = new Texte;
-		$champ->texte = $texte;
-		$champ->ligne = $ligne;
-		$result[] = $champ;
-	}
-
-	return $result;
+    if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER))
+        foreach ($m as $match){
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p){
+                $champ = new Texte;
+                $champ->texte = $debut;
+                $champ->ligne = $ligne;
+                $result[] = $champ;
+                $ligne += substr_count($champ->texte, "\n");
+            }
+
+            $champ = new Polyglotte;
+            $champ->ligne = $ligne;
+            $ligne += substr_count($match[0], "\n");
+            $lang = '';
+            $bloc = $match[1];
+            $texte = substr($texte, $p+strlen($match[0]));
+            while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)){
+                $trad = $regs[1];
+                if ($trad OR $lang)
+                    $champ->traductions[$lang] = $trad;
+                $lang = $regs[2];
+                $bloc = $regs[3];
+            }
+            $champ->traductions[$lang] = $bloc;
+            $result[] = $champ;
+        }
+    if ($texte!==""){
+        $champ = new Texte;
+        $champ->texte = $texte;
+        $champ->ligne = $ligne;
+        $result[] = $champ;
+    }
+
+    return $result;
 }
 
 
@@ -121,77 +121,77 @@ 
 // sinon ce n'est pas un idiome
 // http://doc.spip.org/@phraser_idiomes
 function phraser_idiomes($texte, $ligne, $result){
-	while (preg_match(BALISE_IDIOMES, $texte, $match)){
-		$p = strpos($texte, $match[0]);
-		$ko = (!$match[3] && ($match[5][0]!=='='));
-		$debut = substr($texte, 0, $p+($ko ? strlen($match[0]) : 0));
-		if ($debut) $result = phraser_champs($debut, $ligne, $result);
-		$texte = substr($texte, $p+strlen($match[0]));
-		$ligne += substr_count($debut, "\n");
-		if ($ko) continue; // faux idiome
-		$champ = new Idiome;
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		// Stocker les arguments de la balise de traduction
-		$args = array();
-		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)){
-			$args[$r[1]] = phraser_champs($r[2], 0, array());
-			$largs = substr($largs, strlen($r[0]));
-		}
-		$champ->arg = $args;
-		$champ->nom_champ = strtolower($match[3]);
-		$champ->module = $match[2];
-		// pas d'imbrication pour les filtres sur langue
-		phraser_args(@$match[7], ":", '', array(), $champ);
-		$result[] = $champ;
-	}
-	if ($texte!=="") $result = phraser_champs($texte, $ligne, $result);
-
-	return $result;
+    while (preg_match(BALISE_IDIOMES, $texte, $match)){
+        $p = strpos($texte, $match[0]);
+        $ko = (!$match[3] && ($match[5][0]!=='='));
+        $debut = substr($texte, 0, $p+($ko ? strlen($match[0]) : 0));
+        if ($debut) $result = phraser_champs($debut, $ligne, $result);
+        $texte = substr($texte, $p+strlen($match[0]));
+        $ligne += substr_count($debut, "\n");
+        if ($ko) continue; // faux idiome
+        $champ = new Idiome;
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        // Stocker les arguments de la balise de traduction
+        $args = array();
+        $largs = $match[5];
+        while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)){
+            $args[$r[1]] = phraser_champs($r[2], 0, array());
+            $largs = substr($largs, strlen($r[0]));
+        }
+        $champ->arg = $args;
+        $champ->nom_champ = strtolower($match[3]);
+        $champ->module = $match[2];
+        // pas d'imbrication pour les filtres sur langue
+        phraser_args(@$match[7], ":", '', array(), $champ);
+        $result[] = $champ;
+    }
+    if ($texte!=="") $result = phraser_champs($texte, $ligne, $result);
+
+    return $result;
 }
 
 // http://doc.spip.org/@phraser_champs
 function phraser_champs($texte, $ligne, $result){
-	while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)){
-		$p = strpos($texte, $match[0]);
-		$suite = substr($texte, $p+strlen($match[0]));
-		if ($match[5] || (strpos($suite[0], "[0-9]")===false)){
-			$debut = substr($texte, 0, $p);
-			if ($p) $result = phraser_polyglotte($debut, $ligne, $result);
-			$ligne += substr_count($debut, "\n");
-			$champ = new Champ;
-			$champ->ligne = $ligne;
-			$ligne += substr_count($match[0], "\n");
-			$champ->nom_boucle = $match[2];
-			$champ->nom_champ = $match[3];
-			$champ->etoile = $match[5];
-
-			if ($suite[0]=='{'){
-				phraser_arg($suite, '', array(), $champ);
-				// ce ltrim est une ereur de conception
-				// mais on le conserve par souci de compatibilite
-				$texte = ltrim($suite);
-				// Il faudrait le normaliser dans l'arbre de syntaxe abstraite
-				// pour faire sauter ce cas particulier a la decompilation.
-				/* Ce qui suit est malheureusement incomplet pour cela:
+    while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)){
+        $p = strpos($texte, $match[0]);
+        $suite = substr($texte, $p+strlen($match[0]));
+        if ($match[5] || (strpos($suite[0], "[0-9]")===false)){
+            $debut = substr($texte, 0, $p);
+            if ($p) $result = phraser_polyglotte($debut, $ligne, $result);
+            $ligne += substr_count($debut, "\n");
+            $champ = new Champ;
+            $champ->ligne = $ligne;
+            $ligne += substr_count($match[0], "\n");
+            $champ->nom_boucle = $match[2];
+            $champ->nom_champ = $match[3];
+            $champ->etoile = $match[5];
+
+            if ($suite[0]=='{'){
+                phraser_arg($suite, '', array(), $champ);
+                // ce ltrim est une ereur de conception
+                // mais on le conserve par souci de compatibilite
+                $texte = ltrim($suite);
+                // Il faudrait le normaliser dans l'arbre de syntaxe abstraite
+                // pour faire sauter ce cas particulier a la decompilation.
+                /* Ce qui suit est malheureusement incomplet pour cela:
 					if ($n = (strlen($suite) - strlen($texte))) {
 						$champ->apres = array(new Texte);
 						$champ->apres[0]->texte = substr($suite,0,$n);
 					}
 				*/
-			} else $texte = $suite;
-			phraser_vieux($champ);
-			$result[] = $champ;
-		} else {
-			// faux champ
-			$result = phraser_polyglotte(substr($texte, 0, $p+1), $ligne, $result);
-			$texte = (substr($texte, $p+1));
-		}
-	}
-	if ($texte!=="") $result = phraser_polyglotte($texte, $ligne, $result);
-
-	return $result;
+            } else $texte = $suite;
+            phraser_vieux($champ);
+            $result[] = $champ;
+        } else {
+            // faux champ
+            $result = phraser_polyglotte(substr($texte, 0, $p+1), $ligne, $result);
+            $texte = (substr($texte, $p+1));
+        }
+    }
+    if ($texte!=="") $result = phraser_polyglotte($texte, $ligne, $result);
+
+    return $result;
 }
 
 // Gestion des imbrications:
@@ -201,12 +201,12 @@ 
 
 // http://doc.spip.org/@phraser_champs_etendus
 function phraser_champs_etendus($texte, $ligne, $result){
-	if ($texte==="") return $result;
-	$sep = '##';
-	while (strpos($texte, $sep)!==false)
-		$sep .= '#';
+    if ($texte==="") return $result;
+    $sep = '##';
+    while (strpos($texte, $sep)!==false)
+        $sep .= '#';
 
-	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
+    return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
 }
 
 //  Analyse les filtres d'un champ etendu et affecte le resultat
@@ -217,248 +217,248 @@ 
 
 // http://doc.spip.org/@phraser_args
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ){
-	$texte = ltrim($texte);
-	while (($texte!=="") && strpos($fin, $texte[0])===false){
-		$result = phraser_arg($texte, $sep, $result, $pointeur_champ);
-		$texte = ltrim($texte);
-	}
+    $texte = ltrim($texte);
+    while (($texte!=="") && strpos($fin, $texte[0])===false){
+        $result = phraser_arg($texte, $sep, $result, $pointeur_champ);
+        $texte = ltrim($texte);
+    }
 # mettre ici la suite du texte, 
 # notamment pour que l'appelant vire le caractere fermant si besoin
-	$pointeur_champ->apres = $texte;
+    $pointeur_champ->apres = $texte;
 
-	return $result;
+    return $result;
 }
 
 // http://doc.spip.org/@phraser_arg
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ){
-	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
-	$suite = ltrim($match[2]);
-	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0]=="|") $fonc = ltrim(substr($fonc, 1));
-	$res = array($fonc);
-	$err_f = '';
-	// cas du filtre sans argument ou du critere /
-	if (($suite && ($suite[0]!='{')) || ($fonc && $fonc[0]=='/')){
-		// si pas d'argument, alors il faut une fonction ou un double |
-		if (!$match[1]){
-			$err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
-			erreur_squelette($err_f, $pointeur_champ);
-			$texte = '';
-		} else  $texte = $suite;
-		if ($err_f) $pointeur_champ->param = false;
-		elseif ($fonc!=='') $pointeur_champ->param[] = $res;
-		// pour les balises avec faux filtres qui boudent ce dur larbeur
-		$pointeur_champ->fonctions[] = array($fonc, '');
-
-		return $result;
-	}
-	$args = ltrim(substr($suite, 1)); // virer le '(' initial
-	$collecte = array();
-	while ($args && $args[0]!='}'){
-		if ($args[0]=='"')
-			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		else if ($args[0]=="'")
-			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
-		else {
-			preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
-			if (!strlen($regs[2])){
-				$err_f = array('zbug_erreur_filtre', array('filtre' => $args));
-				erreur_squelette($err_f, $pointeur_champ);
-				$champ = new Texte;
-				$champ->apres = $champ->avant = $args = "";
-				break;
-			}
-		}
-		$arg = $regs[2];
-		if (trim($regs[1])){
-			$champ = new Texte;
-			$champ->texte = $arg;
-			$champ->apres = $champ->avant = $regs[1];
-			$result[] = $champ;
-			$collecte[] = $champ;
-			$args = ltrim($regs[count($regs)-1]);
-		} else {
-			if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)){
-				// 0 est un aveu d'impuissance. A completer
-				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
-
-				$args = ltrim($regs[count($regs)-1]);
-				$collecte = array_merge($collecte, $arg);
-				$result = array_merge($result, $arg);
-			} else {
-				$n = strpos($args, $r[0]);
-				$pred = substr($args, 0, $n);
-				$par = ',}';
-				if (preg_match('/^(.*)\($/', $pred, $m)){
-					$pred = $m[1];
-					$par = ')';
-				}
-				if ($pred){
-					$champ = new Texte;
-					$champ->texte = $pred;
-					$champ->apres = $champ->avant = "";
-					$result[] = $champ;
-					$collecte[] = $champ;
-				}
-				$rec = substr($args, $n+strlen($r[0])-1);
-				$champ = new Champ;
-				$champ->nom_boucle = $r[2];
-				$champ->nom_champ = $r[3];
-				$champ->etoile = $r[5];
-				$next = $r[6];
-				while ($next=='{'){
-					phraser_arg($rec, $sep, array(), $champ);
-					$args = ltrim($rec);
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				while ($next=='|'){
-					phraser_args($rec, $par, $sep, array(), $champ);
-					$args = $champ->apres;
-					$champ->apres = '';
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param===false)
-					$err_f = true;
-				else phraser_vieux($champ);
-				if ($par==')') $args = substr($args, 1);
-				$collecte[] = $champ;
-				$result[] = $champ;
-			}
-		}
-		if (isset($args[0]) AND $args[0]==','){
-			$args = ltrim(substr($args, 1));
-			if ($collecte){
-				$res[] = $collecte;
-				$collecte = array();
-			}
-		}
-	}
-	if ($collecte){
-		$res[] = $collecte;
-		$collecte = array();
-	}
-	$texte = substr($args, 1);
-	$source = substr($suite, 0, strlen($suite)-strlen($texte));
-	// propager les erreurs, et ignorer les param vides
-	if ($pointeur_champ->param!==false){
-		if ($err_f)
-			$pointeur_champ->param = false;
-		elseif ($fonc!=='' || count($res)>1)
-			$pointeur_champ->param[] = $res;
-	}
-	// pour les balises avec faux filtres qui boudent ce dur larbeur
-	$pointeur_champ->fonctions[] = array($fonc, $source);
-
-	return $result;
+    preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
+    $suite = ltrim($match[2]);
+    $fonc = trim($match[1]);
+    if ($fonc && $fonc[0]=="|") $fonc = ltrim(substr($fonc, 1));
+    $res = array($fonc);
+    $err_f = '';
+    // cas du filtre sans argument ou du critere /
+    if (($suite && ($suite[0]!='{')) || ($fonc && $fonc[0]=='/')){
+        // si pas d'argument, alors il faut une fonction ou un double |
+        if (!$match[1]){
+            $err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
+            erreur_squelette($err_f, $pointeur_champ);
+            $texte = '';
+        } else  $texte = $suite;
+        if ($err_f) $pointeur_champ->param = false;
+        elseif ($fonc!=='') $pointeur_champ->param[] = $res;
+        // pour les balises avec faux filtres qui boudent ce dur larbeur
+        $pointeur_champ->fonctions[] = array($fonc, '');
+
+        return $result;
+    }
+    $args = ltrim(substr($suite, 1)); // virer le '(' initial
+    $collecte = array();
+    while ($args && $args[0]!='}'){
+        if ($args[0]=='"')
+            preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
+        else if ($args[0]=="'")
+            preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
+        else {
+            preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
+            if (!strlen($regs[2])){
+                $err_f = array('zbug_erreur_filtre', array('filtre' => $args));
+                erreur_squelette($err_f, $pointeur_champ);
+                $champ = new Texte;
+                $champ->apres = $champ->avant = $args = "";
+                break;
+            }
+        }
+        $arg = $regs[2];
+        if (trim($regs[1])){
+            $champ = new Texte;
+            $champ->texte = $arg;
+            $champ->apres = $champ->avant = $regs[1];
+            $result[] = $champ;
+            $collecte[] = $champ;
+            $args = ltrim($regs[count($regs)-1]);
+        } else {
+            if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)){
+                // 0 est un aveu d'impuissance. A completer
+                $arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
+
+                $args = ltrim($regs[count($regs)-1]);
+                $collecte = array_merge($collecte, $arg);
+                $result = array_merge($result, $arg);
+            } else {
+                $n = strpos($args, $r[0]);
+                $pred = substr($args, 0, $n);
+                $par = ',}';
+                if (preg_match('/^(.*)\($/', $pred, $m)){
+                    $pred = $m[1];
+                    $par = ')';
+                }
+                if ($pred){
+                    $champ = new Texte;
+                    $champ->texte = $pred;
+                    $champ->apres = $champ->avant = "";
+                    $result[] = $champ;
+                    $collecte[] = $champ;
+                }
+                $rec = substr($args, $n+strlen($r[0])-1);
+                $champ = new Champ;
+                $champ->nom_boucle = $r[2];
+                $champ->nom_champ = $r[3];
+                $champ->etoile = $r[5];
+                $next = $r[6];
+                while ($next=='{'){
+                    phraser_arg($rec, $sep, array(), $champ);
+                    $args = ltrim($rec);
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                while ($next=='|'){
+                    phraser_args($rec, $par, $sep, array(), $champ);
+                    $args = $champ->apres;
+                    $champ->apres = '';
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                // Si erreur de syntaxe dans un sous-argument, propager.
+                if ($champ->param===false)
+                    $err_f = true;
+                else phraser_vieux($champ);
+                if ($par==')') $args = substr($args, 1);
+                $collecte[] = $champ;
+                $result[] = $champ;
+            }
+        }
+        if (isset($args[0]) AND $args[0]==','){
+            $args = ltrim(substr($args, 1));
+            if ($collecte){
+                $res[] = $collecte;
+                $collecte = array();
+            }
+        }
+    }
+    if ($collecte){
+        $res[] = $collecte;
+        $collecte = array();
+    }
+    $texte = substr($args, 1);
+    $source = substr($suite, 0, strlen($suite)-strlen($texte));
+    // propager les erreurs, et ignorer les param vides
+    if ($pointeur_champ->param!==false){
+        if ($err_f)
+            $pointeur_champ->param = false;
+        elseif ($fonc!=='' || count($res)>1)
+            $pointeur_champ->param[] = $res;
+    }
+    // pour les balises avec faux filtres qui boudent ce dur larbeur
+    $pointeur_champ->fonctions[] = array($fonc, $source);
+
+    return $result;
 }
 
 
 // http://doc.spip.org/@phraser_champs_exterieurs
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested){
-	$res = array();
-	while (($p = strpos($texte, "%$sep"))!==false){
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m))
-			break;
-		$debut = substr($texte, 0, $p);
-		$texte = substr($texte, $p+strlen($m[0]));
-		if ($p)
-			$res = phraser_inclure($debut, $ligne, $res);
-		$ligne += substr_count($debut, "\n");
-		$res[] = $nested[$m[1]];
-	}
-
-	return (($texte==='') ? $res : phraser_inclure($texte, $ligne, $res));
+    $res = array();
+    while (($p = strpos($texte, "%$sep"))!==false){
+        if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m))
+            break;
+        $debut = substr($texte, 0, $p);
+        $texte = substr($texte, $p+strlen($m[0]));
+        if ($p)
+            $res = phraser_inclure($debut, $ligne, $res);
+        $ligne += substr_count($debut, "\n");
+        $res[] = $nested[$m[1]];
+    }
+
+    return (($texte==='') ? $res : phraser_inclure($texte, $ligne, $res));
 }
 
 // http://doc.spip.org/@phraser_champs_interieurs
 function phraser_champs_interieurs($texte, $ligne, $sep, $result){
-	$i = 0; // en fait count($result)
-	$x = "";
-
-	while (true){
-		$j = $i;
-		$n = $ligne;
-		while (preg_match(CHAMP_ETENDU, $texte, $match)){
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p){
-				$result[$i] = $debut;
-				$i++;
-			}
-			$nom = $match[4];
-			$champ = new Champ;
-			// ca ne marche pas encore en cas de champ imbrique
-			$champ->ligne = $x ? 0 : ($n+substr_count($debut, "\n"));
-			$champ->nom_boucle = $match[3];
-			$champ->nom_champ = $nom;
-			$champ->etoile = $match[6];
-			// phraser_args indiquera ou commence apres
-			$result = phraser_args($match[7], ")", $sep, $result, $champ);
-			phraser_vieux($champ);
-			$champ->avant =
-				phraser_champs_exterieurs($match[1], $n, $sep, $result);
-			$debut = substr($champ->apres, 1);
-			if (!empty($debut)){
-				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
-			}
-			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
-
-			$result[$i] = $champ;
-			$i++;
-			$texte = substr($texte, $p+strlen($match[0]));
-		}
-		if ($texte!==""){
-			$result[$i] = $texte;
-			$i++;
-		}
-		$x = '';
-
-		while ($j<$i){
-			$z = $result[$j];
-			// j'aurais besoin de connaitre le nombre de lignes...
-			if (is_object($z))
-				$x .= "%$sep$j@";
-			else
-				$x .= $z;
-			$j++;
-		}
-		if (preg_match(CHAMP_ETENDU, $x))
-			$texte = $x;
-		else
-			return phraser_champs_exterieurs($x, $ligne, $sep, $result);
-	}
+    $i = 0; // en fait count($result)
+    $x = "";
+
+    while (true){
+        $j = $i;
+        $n = $ligne;
+        while (preg_match(CHAMP_ETENDU, $texte, $match)){
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p){
+                $result[$i] = $debut;
+                $i++;
+            }
+            $nom = $match[4];
+            $champ = new Champ;
+            // ca ne marche pas encore en cas de champ imbrique
+            $champ->ligne = $x ? 0 : ($n+substr_count($debut, "\n"));
+            $champ->nom_boucle = $match[3];
+            $champ->nom_champ = $nom;
+            $champ->etoile = $match[6];
+            // phraser_args indiquera ou commence apres
+            $result = phraser_args($match[7], ")", $sep, $result, $champ);
+            phraser_vieux($champ);
+            $champ->avant =
+                phraser_champs_exterieurs($match[1], $n, $sep, $result);
+            $debut = substr($champ->apres, 1);
+            if (!empty($debut)){
+                $n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
+            }
+            $champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
+
+            $result[$i] = $champ;
+            $i++;
+            $texte = substr($texte, $p+strlen($match[0]));
+        }
+        if ($texte!==""){
+            $result[$i] = $texte;
+            $i++;
+        }
+        $x = '';
+
+        while ($j<$i){
+            $z = $result[$j];
+            // j'aurais besoin de connaitre le nombre de lignes...
+            if (is_object($z))
+                $x .= "%$sep$j@";
+            else
+                $x .= $z;
+            $j++;
+        }
+        if (preg_match(CHAMP_ETENDU, $x))
+            $texte = $x;
+        else
+            return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+    }
 }
 
 function phraser_vieux(&$champ){
-	$nom = $champ->nom_champ;
-	if ($nom=='EMBED_DOCUMENT'){
-		if (!function_exists('phraser_vieux_emb'))
-			include_spip('public/normaliser');
-		phraser_vieux_emb($champ);
-	} elseif ($nom=='EXPOSER') {
-		if (!function_exists('phraser_vieux_exposer'))
-			include_spip('public/normaliser');
-		phraser_vieux_exposer($champ);
-	} elseif ($champ->param) {
-		if ($nom=='FORMULAIRE_RECHERCHE'){
-			if (!function_exists('phraser_vieux_recherche'))
-				include_spip('public/normaliser');
-			phraser_vieux_recherche($champ);
-		} elseif (preg_match(",^LOGO_[A-Z]+,", $nom)) {
-			if (!function_exists('phraser_vieux_logos'))
-				include_spip('public/normaliser');
-			phraser_vieux_logos($champ);
-		} elseif ($nom=='MODELE') {
-			if (!function_exists('phraser_vieux_modele'))
-				include_spip('public/normaliser');
-			phraser_vieux_modele($champ);
-		} elseif ($nom=='INCLURE' OR $nom=='INCLUDE') {
-			if (!function_exists('phraser_vieux_inclu'))
-				include_spip('public/normaliser');
-			phraser_vieux_inclu($champ);
-		}
-	}
+    $nom = $champ->nom_champ;
+    if ($nom=='EMBED_DOCUMENT'){
+        if (!function_exists('phraser_vieux_emb'))
+            include_spip('public/normaliser');
+        phraser_vieux_emb($champ);
+    } elseif ($nom=='EXPOSER') {
+        if (!function_exists('phraser_vieux_exposer'))
+            include_spip('public/normaliser');
+        phraser_vieux_exposer($champ);
+    } elseif ($champ->param) {
+        if ($nom=='FORMULAIRE_RECHERCHE'){
+            if (!function_exists('phraser_vieux_recherche'))
+                include_spip('public/normaliser');
+            phraser_vieux_recherche($champ);
+        } elseif (preg_match(",^LOGO_[A-Z]+,", $nom)) {
+            if (!function_exists('phraser_vieux_logos'))
+                include_spip('public/normaliser');
+            phraser_vieux_logos($champ);
+        } elseif ($nom=='MODELE') {
+            if (!function_exists('phraser_vieux_modele'))
+                include_spip('public/normaliser');
+            phraser_vieux_modele($champ);
+        } elseif ($nom=='INCLURE' OR $nom=='INCLUDE') {
+            if (!function_exists('phraser_vieux_inclu'))
+                include_spip('public/normaliser');
+            phraser_vieux_inclu($champ);
+        }
+    }
 }
 
 
@@ -486,340 +486,340 @@ 
  **/
 function phraser_criteres($params, &$result){
 
-	$err_ci = ''; // indiquera s'il y a eu une erreur
-	$args = array();
-	$type = $result->type_requete;
-	$doublons = array();
-	foreach ($params as $v){
-		$var = $v[1][0];
-		$param = ($var->type!='texte') ? "" : $var->texte;
-		if ((count($v)>2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))){
+    $err_ci = ''; // indiquera s'il y a eu une erreur
+    $args = array();
+    $type = $result->type_requete;
+    $doublons = array();
+    foreach ($params as $v){
+        $var = $v[1][0];
+        $param = ($var->type!='texte') ? "" : $var->texte;
+        if ((count($v)>2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))){
 // plus d'un argument et pas le critere IN:
 // detecter comme on peut si c'est le critere implicite LIMIT debut, fin
 
-			if ($var->type!='texte'
-				OR preg_match("/^(n|n-|(n-)?\d+)$/S", $param)
-			){
-				$op = ',';
-				$not = "";
-			} else {
-				// Le debut du premier argument est l'operateur
-				preg_match("/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms", $param, $m);
-				$op = $m[2];
-				$not = $m[1];
-				$cond = $m[3];
-				// virer le premier argument,
-				// et mettre son reliquat eventuel
-				// Recopier pour ne pas alterer le texte source
-				// utile au debusqueur
-				if ($m[4]){
-					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
-					if (preg_match(',^(["\'])(.*)\1$,', $m[4])){
-						$c = null;
-						eval ('$c = ' . $m[4] . ';');
-						if (isset($c))
-							$m[4] = $c;
-					}
-					$texte = new Texte;
-					$texte->texte = $m[4];
-					$v[1][0] = $texte;
-				} else array_shift($v[1]);
-			}
-			array_shift($v); // $v[O] est vide
-			$crit = new Critere;
-			$crit->op = $op;
-			$crit->not = $not;
-			$crit->cond = $cond;
-			$crit->exclus = "";
-			$crit->param = $v;
-			$args[] = $crit;
-		} else {
-			if ($var->type!='texte'){
-				// cas 1 seul arg ne commencant pas par du texte brut:
-				// erreur ou critere infixe "/"
-				if (($v[1][1]->type!='texte') || (trim($v[1][1]->texte)!='/')){
-					$err_ci = array('zbug_critere_inconnu',
-						array('critere' => $var->nom_champ));
-					erreur_squelette($err_ci, $result);
-				} else {
-					$crit = new Critere;
-					$crit->op = '/';
-					$crit->not = "";
-					$crit->exclus = "";
-					$crit->param = array(array($v[1][0]), array($v[1][2]));
-					$args[] = $crit;
-				}
-			} else {
-				// traiter qq lexemes particuliers pour faciliter la suite
-				// les separateurs
-				if ($var->apres)
-					$result->separateur[] = $param;
-				elseif (($param=='tout') OR ($param=='tous'))
-					$result->modificateur['tout'] = true;
-				elseif ($param=='plat')
-					$result->modificateur['plat'] = true;
-
-				// Boucle hierarchie, analyser le critere id_rubrique
-				// et les autres critères {id_x} pour forcer {tout} sur
-				// ceux-ci pour avoir la rubrique mere...
-				// Les autres critères de la boucle hierarchie doivent être
-				// traités normalement.
-				elseif (strcasecmp($type, 'hierarchie')==0
-					AND !preg_match(",^id_rubrique\b,", $param)
-					AND preg_match(",^id_\w+\s*$,", $param)
-				) {
-					$result->modificateur['tout'] = true;
-				} elseif (strcasecmp($type, 'hierarchie')==0 AND $param=="id_rubrique") {
-					// rien a faire sur {id_rubrique} tout seul
-				} else {
-					// pas d'emplacement statique, faut un dynamique
-					/// mais il y a 2 cas qui ont les 2 !
-					if (($param=='unique') || (preg_match(',^!?doublons *,', $param))){
-						// cette variable sera inseree dans le code
-						// et son nom sert d'indicateur des maintenant
-						$result->doublons = '$doublons_index';
-						if ($param=='unique') $param = 'doublons';
-					} elseif ($param=='recherche')
-						// meme chose (a cause de #nom_de_boucle:URL_*)
-						$result->hash = ' ';
-					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)){
-						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
-						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
-						$a2 = trim($m[8]);
-						if ($a2 AND ($a2[0]=="'" OR $a2[0]=='"') AND ($a2[0]==substr($a2, -1)))
-							$a2 = substr($a2, 1, -1);
-						$crit = phraser_critere_infixe($m[2], $a2, $v,
-							(($m[2]=='lang_select') ? $m[2] : $m[7]),
-							$m[6], $m[5]);
-						$crit->exclus = $m[1];
-					} elseif (preg_match("/^([!]?)\s*(" .
-						CHAMP_SQL_PLUS_FONC .
-						")\s*(\??)(.*)$/is", $param, $m)) {
-						// contient aussi les comparaisons implicites !
-						// Comme ci-dessus:
-						// le premier arg contient l'operateur
-						array_shift($v);
-						if ($m[6]){
-							$v[0][0] = new Texte;
-							$v[0][0]->texte = $m[6];
-						} else {
-							array_shift($v[0]);
-							if (!$v[0]) array_shift($v);
-						}
-						$crit = new Critere;
-						$crit->op = $m[2];
-						$crit->param = $v;
-						$crit->not = $m[1];
-						$crit->cond = $m[5];
-					} else {
-						$err_ci = array('zbug_critere_inconnu',
-							array('critere' => $param));
-						erreur_squelette($err_ci, $result);
-					}
-					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not)
-						$args[] = $crit;
-					else
-						$doublons[] = $crit;
-				}
-			}
-		}
-	}
-	// les doublons non nies doivent etre le dernier critere
-	// pour que la variable $doublon_index ait la bonne valeur
-	// cf critere_doublon
-	if ($doublons) $args = array_merge($args, $doublons);
-	// Si erreur, laisser la chaine dans ce champ pour le HTTP 503
-	if (!$err_ci) $result->criteres = $args;
+            if ($var->type!='texte'
+                OR preg_match("/^(n|n-|(n-)?\d+)$/S", $param)
+            ){
+                $op = ',';
+                $not = "";
+            } else {
+                // Le debut du premier argument est l'operateur
+                preg_match("/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms", $param, $m);
+                $op = $m[2];
+                $not = $m[1];
+                $cond = $m[3];
+                // virer le premier argument,
+                // et mettre son reliquat eventuel
+                // Recopier pour ne pas alterer le texte source
+                // utile au debusqueur
+                if ($m[4]){
+                    // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
+                    if (preg_match(',^(["\'])(.*)\1$,', $m[4])){
+                        $c = null;
+                        eval ('$c = ' . $m[4] . ';');
+                        if (isset($c))
+                            $m[4] = $c;
+                    }
+                    $texte = new Texte;
+                    $texte->texte = $m[4];
+                    $v[1][0] = $texte;
+                } else array_shift($v[1]);
+            }
+            array_shift($v); // $v[O] est vide
+            $crit = new Critere;
+            $crit->op = $op;
+            $crit->not = $not;
+            $crit->cond = $cond;
+            $crit->exclus = "";
+            $crit->param = $v;
+            $args[] = $crit;
+        } else {
+            if ($var->type!='texte'){
+                // cas 1 seul arg ne commencant pas par du texte brut:
+                // erreur ou critere infixe "/"
+                if (($v[1][1]->type!='texte') || (trim($v[1][1]->texte)!='/')){
+                    $err_ci = array('zbug_critere_inconnu',
+                        array('critere' => $var->nom_champ));
+                    erreur_squelette($err_ci, $result);
+                } else {
+                    $crit = new Critere;
+                    $crit->op = '/';
+                    $crit->not = "";
+                    $crit->exclus = "";
+                    $crit->param = array(array($v[1][0]), array($v[1][2]));
+                    $args[] = $crit;
+                }
+            } else {
+                // traiter qq lexemes particuliers pour faciliter la suite
+                // les separateurs
+                if ($var->apres)
+                    $result->separateur[] = $param;
+                elseif (($param=='tout') OR ($param=='tous'))
+                    $result->modificateur['tout'] = true;
+                elseif ($param=='plat')
+                    $result->modificateur['plat'] = true;
+
+                // Boucle hierarchie, analyser le critere id_rubrique
+                // et les autres critères {id_x} pour forcer {tout} sur
+                // ceux-ci pour avoir la rubrique mere...
+                // Les autres critères de la boucle hierarchie doivent être
+                // traités normalement.
+                elseif (strcasecmp($type, 'hierarchie')==0
+                    AND !preg_match(",^id_rubrique\b,", $param)
+                    AND preg_match(",^id_\w+\s*$,", $param)
+                ) {
+                    $result->modificateur['tout'] = true;
+                } elseif (strcasecmp($type, 'hierarchie')==0 AND $param=="id_rubrique") {
+                    // rien a faire sur {id_rubrique} tout seul
+                } else {
+                    // pas d'emplacement statique, faut un dynamique
+                    /// mais il y a 2 cas qui ont les 2 !
+                    if (($param=='unique') || (preg_match(',^!?doublons *,', $param))){
+                        // cette variable sera inseree dans le code
+                        // et son nom sert d'indicateur des maintenant
+                        $result->doublons = '$doublons_index';
+                        if ($param=='unique') $param = 'doublons';
+                    } elseif ($param=='recherche')
+                        // meme chose (a cause de #nom_de_boucle:URL_*)
+                        $result->hash = ' ';
+                    if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)){
+                        $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
+                    } elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+                        ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
+                        $a2 = trim($m[8]);
+                        if ($a2 AND ($a2[0]=="'" OR $a2[0]=='"') AND ($a2[0]==substr($a2, -1)))
+                            $a2 = substr($a2, 1, -1);
+                        $crit = phraser_critere_infixe($m[2], $a2, $v,
+                            (($m[2]=='lang_select') ? $m[2] : $m[7]),
+                            $m[6], $m[5]);
+                        $crit->exclus = $m[1];
+                    } elseif (preg_match("/^([!]?)\s*(" .
+                        CHAMP_SQL_PLUS_FONC .
+                        ")\s*(\??)(.*)$/is", $param, $m)) {
+                        // contient aussi les comparaisons implicites !
+                        // Comme ci-dessus:
+                        // le premier arg contient l'operateur
+                        array_shift($v);
+                        if ($m[6]){
+                            $v[0][0] = new Texte;
+                            $v[0][0]->texte = $m[6];
+                        } else {
+                            array_shift($v[0]);
+                            if (!$v[0]) array_shift($v);
+                        }
+                        $crit = new Critere;
+                        $crit->op = $m[2];
+                        $crit->param = $v;
+                        $crit->not = $m[1];
+                        $crit->cond = $m[5];
+                    } else {
+                        $err_ci = array('zbug_critere_inconnu',
+                            array('critere' => $param));
+                        erreur_squelette($err_ci, $result);
+                    }
+                    if ((!preg_match(',^!?doublons *,', $param)) || $crit->not)
+                        $args[] = $crit;
+                    else
+                        $doublons[] = $crit;
+                }
+            }
+        }
+    }
+    // les doublons non nies doivent etre le dernier critere
+    // pour que la variable $doublon_index ait la bonne valeur
+    // cf critere_doublon
+    if ($doublons) $args = array_merge($args, $doublons);
+    // Si erreur, laisser la chaine dans ce champ pour le HTTP 503
+    if (!$err_ci) $result->criteres = $args;
 }
 
 // http://doc.spip.org/@phraser_critere_infixe
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond){
-	$args[0] = new Texte;
-	$args[0]->texte = $arg1;
-	$args[0] = array($args[0]);
-	$args[1][0] = new Texte;
-	$args[1][0]->texte = $arg2;
-	$crit = new Critere;
-	$crit->op = $op;
-	$crit->not = $not;
-	$crit->cond = $cond;
-	$crit->param = $args;
-
-	return $crit;
+    $args[0] = new Texte;
+    $args[0]->texte = $arg1;
+    $args[0] = array($args[0]);
+    $args[1][0] = new Texte;
+    $args[1][0]->texte = $arg2;
+    $crit = new Critere;
+    $crit->op = $op;
+    $crit->not = $not;
+    $crit->cond = $cond;
+    $crit->param = $args;
+
+    return $crit;
 }
 
 function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne = 1){
 
-	$all_res = array();
+    $all_res = array();
 
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE))!==false){
+    while (($pos_boucle = strpos($texte, BALISE_BOUCLE))!==false){
 
-		$err_b = ''; // indiquera s'il y a eu une erreur
-		$result = new Boucle;
-		$result->id_parent = $id_parent;
-		$result->descr = $descr;
+        $err_b = ''; // indiquera s'il y a eu une erreur
+        $result = new Boucle;
+        $result->id_parent = $id_parent;
+        $result->descr = $descr;
 # attention: reperer la premiere des 2 balises: pre_boucle ou boucle
 
-		if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
-			OR ($n = strpos($texte, $r[0]))===false
-			OR ($n>$pos_boucle)
-		){
-			$debut = substr($texte, 0, $pos_boucle);
-			$milieu = substr($texte, $pos_boucle);
-			$k = strpos($milieu, '(');
-			$id_boucle = trim(substr($milieu,
-				strlen(BALISE_BOUCLE),
-				$k-strlen(BALISE_BOUCLE)));
-			$milieu = substr($milieu, $k);
-
-		} else {
-			$debut = substr($texte, 0, $n);
-			$milieu = substr($texte, $n);
-			$k = strpos($milieu, '>');
-			$id_boucle = substr($milieu,
-				strlen(BALISE_PRE_BOUCLE),
-				$k-strlen(BALISE_PRE_BOUCLE));
-
-			if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)){
-				$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
-				erreur_squelette($err_b, $result);
-				$texte = substr($texte, $n+1);
-				continue;
-			} else {
-				$pos_boucle = $n;
-				$n = strpos($milieu, $r[0]);
-				$result->avant = substr($milieu, $k+1, $n-$k-1);
-				$milieu = substr($milieu, $n+strlen($id_boucle)+strlen(BALISE_BOUCLE));
-			}
-		}
-		$result->id_boucle = $id_boucle;
-
-		preg_match(SPEC_BOUCLE, $milieu, $match);
-		$result->type_requete = $match[0];
-		$milieu = substr($milieu, strlen($match[0]));
-		$type = $match[1];
-		$jointures = trim($match[2]);
-		$table_optionnelle = ($match[3]);
-		if ($jointures){
-			// on affecte pas ici les jointures explicites, mais dans la compilation
-			// ou elles seront completees des jointures declarees
-			$result->jointures_explicites = $jointures;
-		}
-
-		if ($table_optionnelle){
-			$result->table_optionnelle = $type;
-		}
-
-		// 1ere passe sur les criteres, vu comme des arguments sans fct
-		// Resultat mis dans result->param
-		phraser_args($milieu, "/>", "", $all_res, $result);
-
-		// En 2e passe result->criteres contiendra un tableau
-		// pour l'instant on met le source (chaine) :
-		// si elle reste ici au final, c'est qu'elle contient une erreur
-		$result->criteres = substr($milieu, 0, @strpos($milieu, $result->apres));
-		$milieu = $result->apres;
-		$result->apres = "";
-
-		//
-		// Recuperer la fin :
-		//
-		if ($milieu[0]==='/'){
-			$suite = substr($milieu, 2);
-			$milieu = '';
-		} else {
-			$milieu = substr($milieu, 1);
-			$s = BALISE_FIN_BOUCLE . $id_boucle . ">";
-			$p = strpos($milieu, $s);
-			if ($p===false){
-				$err_b = array('zbug_erreur_boucle_fermant',
-					array('id' => $id_boucle));
-				erreur_squelette($err_b, $result);
-			}
-
-			$suite = substr($milieu, $p+strlen($s));
-			$milieu = substr($milieu, 0, $p);
-		}
-
-		$result->milieu = $milieu;
-
-		//
-		// 1. Recuperer la partie conditionnelle apres
-		//
-		$s = BALISE_POST_BOUCLE . $id_boucle . ">";
-		$p = strpos($suite, $s);
-		if ($p!==false){
-			$result->apres = substr($suite, 0, $p);
-			$suite = substr($suite, $p+strlen($s));
-		}
-
-		//
-		// 2. Recuperer la partie alternative
-		//
-		$s = BALISE_ALT_BOUCLE . $id_boucle . ">";
-		$p = strpos($suite, $s);
-		if ($p!==false){
-			$result->altern = substr($suite, 0, $p);
-			$suite = substr($suite, $p+strlen($s));
-		}
-		$result->ligne = $ligne+substr_count($debut, "\n");
-		$m = substr_count($milieu, "\n");
-		$b = substr_count($result->avant, "\n");
-		$a = substr_count($result->apres, "\n");
-
-		if ($p = strpos($type, ':')){
-			$result->sql_serveur = substr($type, 0, $p);
-			$type = substr($type, $p+1);
-		}
-		$soustype = strtolower($type);
-
-		if (!isset($GLOBALS["table_des_tables"][$soustype]))
-			$soustype = $type;
-
-		$result->type_requete = $soustype;
-		// Lancer la 2e passe sur les criteres si la 1ere etait bonne
-		if (!is_array($result->param))
-			$err_b = true;
-		else {
-			phraser_criteres($result->param, $result);
-			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF))==0){
-				$result->type_requete = TYPE_RECURSIF;
-				$args = $result->param;
-				array_unshift($args,
-					substr($type, strlen(TYPE_RECURSIF)));
-				$result->param = $args;
-			}
-		}
-
-		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $result->ligne);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne+$b+$m);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne+$a+$m+$b);
-		$result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne+$b);
-
-		// Prevenir le generateur de code que le squelette est faux
-		if ($err_b) $result->type_requete = false;
-
-		// Verifier qu'il n'y a pas double definition
-		// apres analyse des sous-parties (pas avant).
-
-		if (isset($boucles[$id_boucle])){
-			$err_b_d = array('zbug_erreur_boucle_double',
-				array('id' => $id_boucle));
-			erreur_squelette($err_b_d, $result);
-			// Prevenir le generateur de code que le squelette est faux
-			$boucles[$id_boucle]->type_requete = false;
-		} else
-			$boucles[$id_boucle] = $result;
-		$all_res = phraser_champs_etendus($debut, $ligne, $all_res);
-		$all_res[] = &$boucles[$id_boucle];
-		if (!empty($suite)){
-			$ligne += substr_count(substr($texte, 0, strpos($texte, $suite)), "\n");
-		}
-		$texte = $suite;
-	}
-
-	return phraser_champs_etendus($texte, $ligne, $all_res);
+        if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
+            OR ($n = strpos($texte, $r[0]))===false
+            OR ($n>$pos_boucle)
+        ){
+            $debut = substr($texte, 0, $pos_boucle);
+            $milieu = substr($texte, $pos_boucle);
+            $k = strpos($milieu, '(');
+            $id_boucle = trim(substr($milieu,
+                strlen(BALISE_BOUCLE),
+                $k-strlen(BALISE_BOUCLE)));
+            $milieu = substr($milieu, $k);
+
+        } else {
+            $debut = substr($texte, 0, $n);
+            $milieu = substr($texte, $n);
+            $k = strpos($milieu, '>');
+            $id_boucle = substr($milieu,
+                strlen(BALISE_PRE_BOUCLE),
+                $k-strlen(BALISE_PRE_BOUCLE));
+
+            if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)){
+                $err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
+                erreur_squelette($err_b, $result);
+                $texte = substr($texte, $n+1);
+                continue;
+            } else {
+                $pos_boucle = $n;
+                $n = strpos($milieu, $r[0]);
+                $result->avant = substr($milieu, $k+1, $n-$k-1);
+                $milieu = substr($milieu, $n+strlen($id_boucle)+strlen(BALISE_BOUCLE));
+            }
+        }
+        $result->id_boucle = $id_boucle;
+
+        preg_match(SPEC_BOUCLE, $milieu, $match);
+        $result->type_requete = $match[0];
+        $milieu = substr($milieu, strlen($match[0]));
+        $type = $match[1];
+        $jointures = trim($match[2]);
+        $table_optionnelle = ($match[3]);
+        if ($jointures){
+            // on affecte pas ici les jointures explicites, mais dans la compilation
+            // ou elles seront completees des jointures declarees
+            $result->jointures_explicites = $jointures;
+        }
+
+        if ($table_optionnelle){
+            $result->table_optionnelle = $type;
+        }
+
+        // 1ere passe sur les criteres, vu comme des arguments sans fct
+        // Resultat mis dans result->param
+        phraser_args($milieu, "/>", "", $all_res, $result);
+
+        // En 2e passe result->criteres contiendra un tableau
+        // pour l'instant on met le source (chaine) :
+        // si elle reste ici au final, c'est qu'elle contient une erreur
+        $result->criteres = substr($milieu, 0, @strpos($milieu, $result->apres));
+        $milieu = $result->apres;
+        $result->apres = "";
+
+        //
+        // Recuperer la fin :
+        //
+        if ($milieu[0]==='/'){
+            $suite = substr($milieu, 2);
+            $milieu = '';
+        } else {
+            $milieu = substr($milieu, 1);
+            $s = BALISE_FIN_BOUCLE . $id_boucle . ">";
+            $p = strpos($milieu, $s);
+            if ($p===false){
+                $err_b = array('zbug_erreur_boucle_fermant',
+                    array('id' => $id_boucle));
+                erreur_squelette($err_b, $result);
+            }
+
+            $suite = substr($milieu, $p+strlen($s));
+            $milieu = substr($milieu, 0, $p);
+        }
+
+        $result->milieu = $milieu;
+
+        //
+        // 1. Recuperer la partie conditionnelle apres
+        //
+        $s = BALISE_POST_BOUCLE . $id_boucle . ">";
+        $p = strpos($suite, $s);
+        if ($p!==false){
+            $result->apres = substr($suite, 0, $p);
+            $suite = substr($suite, $p+strlen($s));
+        }
+
+        //
+        // 2. Recuperer la partie alternative
+        //
+        $s = BALISE_ALT_BOUCLE . $id_boucle . ">";
+        $p = strpos($suite, $s);
+        if ($p!==false){
+            $result->altern = substr($suite, 0, $p);
+            $suite = substr($suite, $p+strlen($s));
+        }
+        $result->ligne = $ligne+substr_count($debut, "\n");
+        $m = substr_count($milieu, "\n");
+        $b = substr_count($result->avant, "\n");
+        $a = substr_count($result->apres, "\n");
+
+        if ($p = strpos($type, ':')){
+            $result->sql_serveur = substr($type, 0, $p);
+            $type = substr($type, $p+1);
+        }
+        $soustype = strtolower($type);
+
+        if (!isset($GLOBALS["table_des_tables"][$soustype]))
+            $soustype = $type;
+
+        $result->type_requete = $soustype;
+        // Lancer la 2e passe sur les criteres si la 1ere etait bonne
+        if (!is_array($result->param))
+            $err_b = true;
+        else {
+            phraser_criteres($result->param, $result);
+            if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF))==0){
+                $result->type_requete = TYPE_RECURSIF;
+                $args = $result->param;
+                array_unshift($args,
+                    substr($type, strlen(TYPE_RECURSIF)));
+                $result->param = $args;
+            }
+        }
+
+        $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $result->ligne);
+        $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne+$b+$m);
+        $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne+$a+$m+$b);
+        $result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne+$b);
+
+        // Prevenir le generateur de code que le squelette est faux
+        if ($err_b) $result->type_requete = false;
+
+        // Verifier qu'il n'y a pas double definition
+        // apres analyse des sous-parties (pas avant).
+
+        if (isset($boucles[$id_boucle])){
+            $err_b_d = array('zbug_erreur_boucle_double',
+                array('id' => $id_boucle));
+            erreur_squelette($err_b_d, $result);
+            // Prevenir le generateur de code que le squelette est faux
+            $boucles[$id_boucle]->type_requete = false;
+        } else
+            $boucles[$id_boucle] = $result;
+        $all_res = phraser_champs_etendus($debut, $ligne, $all_res);
+        $all_res[] = &$boucles[$id_boucle];
+        if (!empty($suite)){
+            $ligne += substr_count(substr($texte, 0, strpos($texte, $suite)), "\n");
+        }
+        $texte = $suite;
+    }
+
+    return phraser_champs_etendus($texte, $ligne, $all_res);
 }
 
 ?>

Spacing +143 added lines, -143 removed lines

@@ -27,21 +27,21 @@ 
 define('SPEC_BOUCLE', '/\s*\(\s*([^\s?)]+)(\s*[^)?]*)([?]?)\)/');
 define('NOM_DE_BOUCLE', "[0-9]+|[-_][-_.a-zA-Z0-9]*");
 # ecriture alambiquee pour rester compatible avec les hexadecimaux des vieux squelettes
-define('NOM_DE_CHAMP', "#((" . NOM_DE_BOUCLE . "):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)(\*{0,2})");
-define('CHAMP_ETENDU', '/\[([^]\[]*)\(' . NOM_DE_CHAMP . '([^[)]*\)[^]\[]*)\]/S');
+define('NOM_DE_CHAMP', "#((".NOM_DE_BOUCLE."):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)(\*{0,2})");
+define('CHAMP_ETENDU', '/\[([^]\[]*)\('.NOM_DE_CHAMP.'([^[)]*\)[^]\[]*)\]/S');
 
 define('BALISE_INCLURE', '/<INCLU[DR]E[[:space:]]*(\(([^)]*)\))?/S');
 define('BALISE_POLYGLOTTE', ',<multi>(.*)</multi>,Uims');
 define('BALISE_IDIOMES', ',<:(([a-z0-9_]+):)?([a-z0-9_]*)({([^\|=>]*=[^\|>]*)})?((\|[^>]*)?:>),iS');
-define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*((' . NOM_DE_CHAMP . '[{][^}]*})?[^,]*)\s*,?\s*@s');
+define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*(('.NOM_DE_CHAMP.'[{][^}]*})?[^,]*)\s*,?\s*@s');
 
 define('SQL_ARGS', '(\([^)]*\))');
-define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)' . SQL_ARGS . '?`?');
+define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)'.SQL_ARGS.'?`?');
 
 // http://doc.spip.org/@phraser_inclure
-function phraser_inclure($texte, $ligne, $result){
+function phraser_inclure($texte, $ligne, $result) {
 
-	while (preg_match(BALISE_INCLURE, $texte, $match)){
+	while (preg_match(BALISE_INCLURE, $texte, $match)) {
 		$p = strpos($texte, $match[0]);
 		$debut = substr($texte, 0, $p);
 		if ($p) $result = phraser_idiomes($debut, $ligne, $result);
@@ -52,35 +52,35 @@ 
 		$fichier = @$match[2];
 		# assurer ici la migration .php3 => .php
 		# et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
-		if (preg_match(',^(.*[.]php)3$,', $fichier, $r)){
+		if (preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
 			$fichier = $r[1];
 		}
-		$champ->texte = ($fichier!=='page.php') ? $fichier : '';
-		$texte = substr($texte, $p+strlen($match[0]));
+		$champ->texte = ($fichier !== 'page.php') ? $fichier : '';
+		$texte = substr($texte, $p + strlen($match[0]));
 		// on assimile {var=val} a une liste de un argument sans fonction
 		phraser_args($texte, "/>", "", $result, $champ);
-		if (!$champ->texte OR count($champ->param)>1){
+		if (!$champ->texte OR count($champ->param) > 1) {
 			if (!function_exists('normaliser_inclure'))
 				include_spip('public/normaliser');
 			normaliser_inclure($champ);
 		}
-		$texte = substr($champ->apres, strpos($champ->apres, '>')+1);
+		$texte = substr($champ->apres, strpos($champ->apres, '>') + 1);
 		$champ->apres = "";
 		$texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
 		$result[] = $champ;
 	}
 
-	return (($texte==="") ? $result : phraser_idiomes($texte, $ligne, $result));
+	return (($texte === "") ? $result : phraser_idiomes($texte, $ligne, $result));
 }
 
 // http://doc.spip.org/@phraser_polyglotte
-function phraser_polyglotte($texte, $ligne, $result){
+function phraser_polyglotte($texte, $ligne, $result) {
 
 	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER))
-		foreach ($m as $match){
+		foreach ($m as $match) {
 			$p = strpos($texte, $match[0]);
 			$debut = substr($texte, 0, $p);
-			if ($p){
+			if ($p) {
 				$champ = new Texte;
 				$champ->texte = $debut;
 				$champ->ligne = $ligne;
@@ -93,8 +93,8 @@ 
 			$ligne += substr_count($match[0], "\n");
 			$lang = '';
 			$bloc = $match[1];
-			$texte = substr($texte, $p+strlen($match[0]));
-			while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)){
+			$texte = substr($texte, $p + strlen($match[0]));
+			while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)) {
 				$trad = $regs[1];
 				if ($trad OR $lang)
 					$champ->traductions[$lang] = $trad;
@@ -104,7 +104,7 @@ 
 			$champ->traductions[$lang] = $bloc;
 			$result[] = $champ;
 		}
-	if ($texte!==""){
+	if ($texte !== "") {
 		$champ = new Texte;
 		$champ->texte = $texte;
 		$champ->ligne = $ligne;
@@ -120,13 +120,13 @@ 
 // chaine peut etre vide si =texte1 est present et arg1 est vide
 // sinon ce n'est pas un idiome
 // http://doc.spip.org/@phraser_idiomes
-function phraser_idiomes($texte, $ligne, $result){
-	while (preg_match(BALISE_IDIOMES, $texte, $match)){
+function phraser_idiomes($texte, $ligne, $result) {
+	while (preg_match(BALISE_IDIOMES, $texte, $match)) {
 		$p = strpos($texte, $match[0]);
-		$ko = (!$match[3] && ($match[5][0]!=='='));
-		$debut = substr($texte, 0, $p+($ko ? strlen($match[0]) : 0));
+		$ko = (!$match[3] && ($match[5][0] !== '='));
+		$debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
 		if ($debut) $result = phraser_champs($debut, $ligne, $result);
-		$texte = substr($texte, $p+strlen($match[0]));
+		$texte = substr($texte, $p + strlen($match[0]));
 		$ligne += substr_count($debut, "\n");
 		if ($ko) continue; // faux idiome
 		$champ = new Idiome;
@@ -135,7 +135,7 @@ 
 		// Stocker les arguments de la balise de traduction
 		$args = array();
 		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)){
+		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
 			$args[$r[1]] = phraser_champs($r[2], 0, array());
 			$largs = substr($largs, strlen($r[0]));
 		}
@@ -146,17 +146,17 @@ 
 		phraser_args(@$match[7], ":", '', array(), $champ);
 		$result[] = $champ;
 	}
-	if ($texte!=="") $result = phraser_champs($texte, $ligne, $result);
+	if ($texte !== "") $result = phraser_champs($texte, $ligne, $result);
 
 	return $result;
 }
 
 // http://doc.spip.org/@phraser_champs
-function phraser_champs($texte, $ligne, $result){
-	while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)){
+function phraser_champs($texte, $ligne, $result) {
+	while (preg_match("/".NOM_DE_CHAMP."/S", $texte, $match)) {
 		$p = strpos($texte, $match[0]);
-		$suite = substr($texte, $p+strlen($match[0]));
-		if ($match[5] || (strpos($suite[0], "[0-9]")===false)){
+		$suite = substr($texte, $p + strlen($match[0]));
+		if ($match[5] || (strpos($suite[0], "[0-9]") === false)) {
 			$debut = substr($texte, 0, $p);
 			if ($p) $result = phraser_polyglotte($debut, $ligne, $result);
 			$ligne += substr_count($debut, "\n");
@@ -167,7 +167,7 @@ 
 			$champ->nom_champ = $match[3];
 			$champ->etoile = $match[5];
 
-			if ($suite[0]=='{'){
+			if ($suite[0] == '{') {
 				phraser_arg($suite, '', array(), $champ);
 				// ce ltrim est une ereur de conception
 				// mais on le conserve par souci de compatibilite
@@ -185,11 +185,11 @@ 
 			$result[] = $champ;
 		} else {
 			// faux champ
-			$result = phraser_polyglotte(substr($texte, 0, $p+1), $ligne, $result);
-			$texte = (substr($texte, $p+1));
+			$result = phraser_polyglotte(substr($texte, 0, $p + 1), $ligne, $result);
+			$texte = (substr($texte, $p + 1));
 		}
 	}
-	if ($texte!=="") $result = phraser_polyglotte($texte, $ligne, $result);
+	if ($texte !== "") $result = phraser_polyglotte($texte, $ligne, $result);
 
 	return $result;
 }
@@ -200,10 +200,10 @@ 
 // on recommence tant qu'il y a des [...] en substituant a l'appel suivant
 
 // http://doc.spip.org/@phraser_champs_etendus
-function phraser_champs_etendus($texte, $ligne, $result){
-	if ($texte==="") return $result;
+function phraser_champs_etendus($texte, $ligne, $result) {
+	if ($texte === "") return $result;
 	$sep = '##';
-	while (strpos($texte, $sep)!==false)
+	while (strpos($texte, $sep) !== false)
 		$sep .= '#';
 
 	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
@@ -216,9 +216,9 @@ 
 // Tres chevelu
 
 // http://doc.spip.org/@phraser_args
-function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ){
+function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
 	$texte = ltrim($texte);
-	while (($texte!=="") && strpos($fin, $texte[0])===false){
+	while (($texte !== "") && strpos($fin, $texte[0]) === false) {
 		$result = phraser_arg($texte, $sep, $result, $pointeur_champ);
 		$texte = ltrim($texte);
 	}
@@ -230,23 +230,23 @@ 
 }
 
 // http://doc.spip.org/@phraser_arg
-function phraser_arg(&$texte, $sep, $result, &$pointeur_champ){
+function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) {
 	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
 	$suite = ltrim($match[2]);
 	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0]=="|") $fonc = ltrim(substr($fonc, 1));
+	if ($fonc && $fonc[0] == "|") $fonc = ltrim(substr($fonc, 1));
 	$res = array($fonc);
 	$err_f = '';
 	// cas du filtre sans argument ou du critere /
-	if (($suite && ($suite[0]!='{')) || ($fonc && $fonc[0]=='/')){
+	if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
 		// si pas d'argument, alors il faut une fonction ou un double |
-		if (!$match[1]){
+		if (!$match[1]) {
 			$err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
 			erreur_squelette($err_f, $pointeur_champ);
 			$texte = '';
 		} else  $texte = $suite;
 		if ($err_f) $pointeur_champ->param = false;
-		elseif ($fonc!=='') $pointeur_champ->param[] = $res;
+		elseif ($fonc !== '') $pointeur_champ->param[] = $res;
 		// pour les balises avec faux filtres qui boudent ce dur larbeur
 		$pointeur_champ->fonctions[] = array($fonc, '');
 
@@ -254,14 +254,14 @@ 
 	}
 	$args = ltrim(substr($suite, 1)); // virer le '(' initial
 	$collecte = array();
-	while ($args && $args[0]!='}'){
-		if ($args[0]=='"')
+	while ($args && $args[0] != '}') {
+		if ($args[0] == '"')
 			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		else if ($args[0]=="'")
+		else if ($args[0] == "'")
 			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
 		else {
 			preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
-			if (!strlen($regs[2])){
+			if (!strlen($regs[2])) {
 				$err_f = array('zbug_erreur_filtre', array('filtre' => $args));
 				erreur_squelette($err_f, $pointeur_champ);
 				$champ = new Texte;
@@ -270,81 +270,81 @@ 
 			}
 		}
 		$arg = $regs[2];
-		if (trim($regs[1])){
+		if (trim($regs[1])) {
 			$champ = new Texte;
 			$champ->texte = $arg;
 			$champ->apres = $champ->avant = $regs[1];
 			$result[] = $champ;
 			$collecte[] = $champ;
-			$args = ltrim($regs[count($regs)-1]);
+			$args = ltrim($regs[count($regs) - 1]);
 		} else {
-			if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)){
+			if (!preg_match("/".NOM_DE_CHAMP."([{|])/", $arg, $r)) {
 				// 0 est un aveu d'impuissance. A completer
 				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
 
-				$args = ltrim($regs[count($regs)-1]);
+				$args = ltrim($regs[count($regs) - 1]);
 				$collecte = array_merge($collecte, $arg);
 				$result = array_merge($result, $arg);
 			} else {
 				$n = strpos($args, $r[0]);
 				$pred = substr($args, 0, $n);
 				$par = ',}';
-				if (preg_match('/^(.*)\($/', $pred, $m)){
+				if (preg_match('/^(.*)\($/', $pred, $m)) {
 					$pred = $m[1];
 					$par = ')';
 				}
-				if ($pred){
+				if ($pred) {
 					$champ = new Texte;
 					$champ->texte = $pred;
 					$champ->apres = $champ->avant = "";
 					$result[] = $champ;
 					$collecte[] = $champ;
 				}
-				$rec = substr($args, $n+strlen($r[0])-1);
+				$rec = substr($args, $n + strlen($r[0]) - 1);
 				$champ = new Champ;
 				$champ->nom_boucle = $r[2];
 				$champ->nom_champ = $r[3];
 				$champ->etoile = $r[5];
 				$next = $r[6];
-				while ($next=='{'){
+				while ($next == '{') {
 					phraser_arg($rec, $sep, array(), $champ);
 					$args = ltrim($rec);
 					$next = isset($args[0]) ? $args[0] : '';
 				}
-				while ($next=='|'){
+				while ($next == '|') {
 					phraser_args($rec, $par, $sep, array(), $champ);
 					$args = $champ->apres;
 					$champ->apres = '';
 					$next = isset($args[0]) ? $args[0] : '';
 				}
 				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param===false)
+				if ($champ->param === false)
 					$err_f = true;
 				else phraser_vieux($champ);
-				if ($par==')') $args = substr($args, 1);
+				if ($par == ')') $args = substr($args, 1);
 				$collecte[] = $champ;
 				$result[] = $champ;
 			}
 		}
-		if (isset($args[0]) AND $args[0]==','){
+		if (isset($args[0]) AND $args[0] == ',') {
 			$args = ltrim(substr($args, 1));
-			if ($collecte){
+			if ($collecte) {
 				$res[] = $collecte;
 				$collecte = array();
 			}
 		}
 	}
-	if ($collecte){
+	if ($collecte) {
 		$res[] = $collecte;
 		$collecte = array();
 	}
 	$texte = substr($args, 1);
-	$source = substr($suite, 0, strlen($suite)-strlen($texte));
+	$source = substr($suite, 0, strlen($suite) - strlen($texte));
 	// propager les erreurs, et ignorer les param vides
-	if ($pointeur_champ->param!==false){
+	if ($pointeur_champ->param !== false) {
 		if ($err_f)
 			$pointeur_champ->param = false;
-		elseif ($fonc!=='' || count($res)>1)
+		elseif ($fonc !== '' || count($res) > 1)
 			$pointeur_champ->param[] = $res;
 	}
 	// pour les balises avec faux filtres qui boudent ce dur larbeur
@@ -355,41 +355,41 @@ 
 
 
 // http://doc.spip.org/@phraser_champs_exterieurs
-function phraser_champs_exterieurs($texte, $ligne, $sep, $nested){
+function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
 	$res = array();
-	while (($p = strpos($texte, "%$sep"))!==false){
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m))
+	while (($p = strpos($texte, "%$sep")) !== false) {
+		if (!preg_match(',^%'.preg_quote($sep).'([0-9]+)@,', substr($texte, $p), $m))
 			break;
 		$debut = substr($texte, 0, $p);
-		$texte = substr($texte, $p+strlen($m[0]));
+		$texte = substr($texte, $p + strlen($m[0]));
 		if ($p)
 			$res = phraser_inclure($debut, $ligne, $res);
 		$ligne += substr_count($debut, "\n");
 		$res[] = $nested[$m[1]];
 	}
 
-	return (($texte==='') ? $res : phraser_inclure($texte, $ligne, $res));
+	return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
 }
 
 // http://doc.spip.org/@phraser_champs_interieurs
-function phraser_champs_interieurs($texte, $ligne, $sep, $result){
+function phraser_champs_interieurs($texte, $ligne, $sep, $result) {
 	$i = 0; // en fait count($result)
 	$x = "";
 
-	while (true){
+	while (true) {
 		$j = $i;
 		$n = $ligne;
-		while (preg_match(CHAMP_ETENDU, $texte, $match)){
+		while (preg_match(CHAMP_ETENDU, $texte, $match)) {
 			$p = strpos($texte, $match[0]);
 			$debut = substr($texte, 0, $p);
-			if ($p){
+			if ($p) {
 				$result[$i] = $debut;
 				$i++;
 			}
 			$nom = $match[4];
 			$champ = new Champ;
 			// ca ne marche pas encore en cas de champ imbrique
-			$champ->ligne = $x ? 0 : ($n+substr_count($debut, "\n"));
+			$champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
 			$champ->nom_boucle = $match[3];
 			$champ->nom_champ = $nom;
 			$champ->etoile = $match[6];
@@ -399,22 +399,22 @@ 
 			$champ->avant =
 				phraser_champs_exterieurs($match[1], $n, $sep, $result);
 			$debut = substr($champ->apres, 1);
-			if (!empty($debut)){
+			if (!empty($debut)) {
 				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
 			}
 			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
 
 			$result[$i] = $champ;
 			$i++;
-			$texte = substr($texte, $p+strlen($match[0]));
+			$texte = substr($texte, $p + strlen($match[0]));
 		}
-		if ($texte!==""){
+		if ($texte !== "") {
 			$result[$i] = $texte;
 			$i++;
 		}
 		$x = '';
 
-		while ($j<$i){
+		while ($j < $i) {
 			$z = $result[$j];
 			// j'aurais besoin de connaitre le nombre de lignes...
 			if (is_object($z))
@@ -430,18 +430,18 @@ 
 	}
 }
 
-function phraser_vieux(&$champ){
+function phraser_vieux(&$champ) {
 	$nom = $champ->nom_champ;
-	if ($nom=='EMBED_DOCUMENT'){
+	if ($nom == 'EMBED_DOCUMENT') {
 		if (!function_exists('phraser_vieux_emb'))
 			include_spip('public/normaliser');
 		phraser_vieux_emb($champ);
-	} elseif ($nom=='EXPOSER') {
+	} elseif ($nom == 'EXPOSER') {
 		if (!function_exists('phraser_vieux_exposer'))
 			include_spip('public/normaliser');
 		phraser_vieux_exposer($champ);
 	} elseif ($champ->param) {
-		if ($nom=='FORMULAIRE_RECHERCHE'){
+		if ($nom == 'FORMULAIRE_RECHERCHE') {
 			if (!function_exists('phraser_vieux_recherche'))
 				include_spip('public/normaliser');
 			phraser_vieux_recherche($champ);
@@ -449,11 +449,11 @@ 
 			if (!function_exists('phraser_vieux_logos'))
 				include_spip('public/normaliser');
 			phraser_vieux_logos($champ);
-		} elseif ($nom=='MODELE') {
+		} elseif ($nom == 'MODELE') {
 			if (!function_exists('phraser_vieux_modele'))
 				include_spip('public/normaliser');
 			phraser_vieux_modele($champ);
-		} elseif ($nom=='INCLURE' OR $nom=='INCLUDE') {
+		} elseif ($nom == 'INCLURE' OR $nom == 'INCLUDE') {
 			if (!function_exists('phraser_vieux_inclu'))
 				include_spip('public/normaliser');
 			phraser_vieux_inclu($champ);
@@ -484,22 +484,22 @@ 
  *     Elle sera complété de la liste de ses critères
  * @return void
  **/
-function phraser_criteres($params, &$result){
+function phraser_criteres($params, &$result) {
 
 	$err_ci = ''; // indiquera s'il y a eu une erreur
 	$args = array();
 	$type = $result->type_requete;
 	$doublons = array();
-	foreach ($params as $v){
+	foreach ($params as $v) {
 		$var = $v[1][0];
-		$param = ($var->type!='texte') ? "" : $var->texte;
-		if ((count($v)>2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))){
+		$param = ($var->type != 'texte') ? "" : $var->texte;
+		if ((count($v) > 2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))) {
 // plus d'un argument et pas le critere IN:
 // detecter comme on peut si c'est le critere implicite LIMIT debut, fin
 
-			if ($var->type!='texte'
+			if ($var->type != 'texte'
 				OR preg_match("/^(n|n-|(n-)?\d+)$/S", $param)
-			){
+			) {
 				$op = ',';
 				$not = "";
 			} else {
@@ -512,11 +512,11 @@ 
 				// et mettre son reliquat eventuel
 				// Recopier pour ne pas alterer le texte source
 				// utile au debusqueur
-				if ($m[4]){
+				if ($m[4]) {
 					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
-					if (preg_match(',^(["\'])(.*)\1$,', $m[4])){
+					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
 						$c = null;
-						eval ('$c = ' . $m[4] . ';');
+						eval ('$c = '.$m[4].';');
 						if (isset($c))
 							$m[4] = $c;
 					}
@@ -534,10 +534,10 @@ 
 			$crit->param = $v;
 			$args[] = $crit;
 		} else {
-			if ($var->type!='texte'){
+			if ($var->type != 'texte') {
 				// cas 1 seul arg ne commencant pas par du texte brut:
 				// erreur ou critere infixe "/"
-				if (($v[1][1]->type!='texte') || (trim($v[1][1]->texte)!='/')){
+				if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
 					$err_ci = array('zbug_critere_inconnu',
 						array('critere' => $var->nom_champ));
 					erreur_squelette($err_ci, $result);
@@ -554,9 +554,9 @@ 
 				// les separateurs
 				if ($var->apres)
 					$result->separateur[] = $param;
-				elseif (($param=='tout') OR ($param=='tous'))
+				elseif (($param == 'tout') OR ($param == 'tous'))
 					$result->modificateur['tout'] = true;
-				elseif ($param=='plat')
+				elseif ($param == 'plat')
 					$result->modificateur['plat'] = true;
 
 				// Boucle hierarchie, analyser le critere id_rubrique
@@ -564,43 +564,43 @@ 
 				// ceux-ci pour avoir la rubrique mere...
 				// Les autres critères de la boucle hierarchie doivent être
 				// traités normalement.
-				elseif (strcasecmp($type, 'hierarchie')==0
+				elseif (strcasecmp($type, 'hierarchie') == 0
 					AND !preg_match(",^id_rubrique\b,", $param)
 					AND preg_match(",^id_\w+\s*$,", $param)
 				) {
 					$result->modificateur['tout'] = true;
-				} elseif (strcasecmp($type, 'hierarchie')==0 AND $param=="id_rubrique") {
+				} elseif (strcasecmp($type, 'hierarchie') == 0 AND $param == "id_rubrique") {
 					// rien a faire sur {id_rubrique} tout seul
 				} else {
 					// pas d'emplacement statique, faut un dynamique
 					/// mais il y a 2 cas qui ont les 2 !
-					if (($param=='unique') || (preg_match(',^!?doublons *,', $param))){
+					if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
 						// cette variable sera inseree dans le code
 						// et son nom sert d'indicateur des maintenant
 						$result->doublons = '$doublons_index';
-						if ($param=='unique') $param = 'doublons';
-					} elseif ($param=='recherche')
+						if ($param == 'unique') $param = 'doublons';
+					} elseif ($param == 'recherche')
 						// meme chose (a cause de #nom_de_boucle:URL_*)
 						$result->hash = ' ';
-					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)){
+					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
 						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+					} elseif (preg_match(',^([!]?)('.CHAMP_SQL_PLUS_FONC.
 						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
 						$a2 = trim($m[8]);
-						if ($a2 AND ($a2[0]=="'" OR $a2[0]=='"') AND ($a2[0]==substr($a2, -1)))
+						if ($a2 AND ($a2[0] == "'" OR $a2[0] == '"') AND ($a2[0] == substr($a2, -1)))
 							$a2 = substr($a2, 1, -1);
 						$crit = phraser_critere_infixe($m[2], $a2, $v,
-							(($m[2]=='lang_select') ? $m[2] : $m[7]),
+							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
 							$m[6], $m[5]);
 						$crit->exclus = $m[1];
-					} elseif (preg_match("/^([!]?)\s*(" .
-						CHAMP_SQL_PLUS_FONC .
+					} elseif (preg_match("/^([!]?)\s*(".
+						CHAMP_SQL_PLUS_FONC.
 						")\s*(\??)(.*)$/is", $param, $m)) {
 						// contient aussi les comparaisons implicites !
 						// Comme ci-dessus:
 						// le premier arg contient l'operateur
 						array_shift($v);
-						if ($m[6]){
+						if ($m[6]) {
 							$v[0][0] = new Texte;
 							$v[0][0]->texte = $m[6];
 						} else {
@@ -634,7 +634,7 @@ 
 }
 
 // http://doc.spip.org/@phraser_critere_infixe
-function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond){
+function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) {
 	$args[0] = new Texte;
 	$args[0]->texte = $arg1;
 	$args[0] = array($args[0]);
@@ -649,11 +649,11 @@ 
 	return $crit;
 }
 
-function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne = 1){
+function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne = 1) {
 
 	$all_res = array();
 
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE))!==false){
+	while (($pos_boucle = strpos($texte, BALISE_BOUCLE)) !== false) {
 
 		$err_b = ''; // indiquera s'il y a eu une erreur
 		$result = new Boucle;
@@ -661,16 +661,16 @@ 
 		$result->descr = $descr;
 # attention: reperer la premiere des 2 balises: pre_boucle ou boucle
 
-		if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
-			OR ($n = strpos($texte, $r[0]))===false
-			OR ($n>$pos_boucle)
-		){
+		if (!preg_match(",".BALISE_PRE_BOUCLE.'[0-9_],', $texte, $r)
+			OR ($n = strpos($texte, $r[0])) === false
+			OR ($n > $pos_boucle)
+		) {
 			$debut = substr($texte, 0, $pos_boucle);
 			$milieu = substr($texte, $pos_boucle);
 			$k = strpos($milieu, '(');
 			$id_boucle = trim(substr($milieu,
 				strlen(BALISE_BOUCLE),
-				$k-strlen(BALISE_BOUCLE)));
+				$k - strlen(BALISE_BOUCLE)));
 			$milieu = substr($milieu, $k);
 
 		} else {
@@ -679,18 +679,18 @@ 
 			$k = strpos($milieu, '>');
 			$id_boucle = substr($milieu,
 				strlen(BALISE_PRE_BOUCLE),
-				$k-strlen(BALISE_PRE_BOUCLE));
+				$k - strlen(BALISE_PRE_BOUCLE));
 
-			if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)){
+			if (!preg_match(",".BALISE_BOUCLE.$id_boucle."[[:space:]]*\(,", $milieu, $r)) {
 				$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
 				erreur_squelette($err_b, $result);
-				$texte = substr($texte, $n+1);
+				$texte = substr($texte, $n + 1);
 				continue;
 			} else {
 				$pos_boucle = $n;
 				$n = strpos($milieu, $r[0]);
-				$result->avant = substr($milieu, $k+1, $n-$k-1);
-				$milieu = substr($milieu, $n+strlen($id_boucle)+strlen(BALISE_BOUCLE));
+				$result->avant = substr($milieu, $k + 1, $n - $k - 1);
+				$milieu = substr($milieu, $n + strlen($id_boucle) + strlen(BALISE_BOUCLE));
 			}
 		}
 		$result->id_boucle = $id_boucle;
@@ -701,13 +701,13 @@ 
 		$type = $match[1];
 		$jointures = trim($match[2]);
 		$table_optionnelle = ($match[3]);
-		if ($jointures){
+		if ($jointures) {
 			// on affecte pas ici les jointures explicites, mais dans la compilation
 			// ou elles seront completees des jointures declarees
 			$result->jointures_explicites = $jointures;
 		}
 
-		if ($table_optionnelle){
+		if ($table_optionnelle) {
 			$result->table_optionnelle = $type;
 		}
 
@@ -725,20 +725,20 @@ 
 		//
 		// Recuperer la fin :
 		//
-		if ($milieu[0]==='/'){
+		if ($milieu[0] === '/') {
 			$suite = substr($milieu, 2);
 			$milieu = '';
 		} else {
 			$milieu = substr($milieu, 1);
-			$s = BALISE_FIN_BOUCLE . $id_boucle . ">";
+			$s = BALISE_FIN_BOUCLE.$id_boucle.">";
 			$p = strpos($milieu, $s);
-			if ($p===false){
+			if ($p === false) {
 				$err_b = array('zbug_erreur_boucle_fermant',
 					array('id' => $id_boucle));
 				erreur_squelette($err_b, $result);
 			}
 
-			$suite = substr($milieu, $p+strlen($s));
+			$suite = substr($milieu, $p + strlen($s));
 			$milieu = substr($milieu, 0, $p);
 		}
 
@@ -747,30 +747,30 @@ 
 		//
 		// 1. Recuperer la partie conditionnelle apres
 		//
-		$s = BALISE_POST_BOUCLE . $id_boucle . ">";
+		$s = BALISE_POST_BOUCLE.$id_boucle.">";
 		$p = strpos($suite, $s);
-		if ($p!==false){
+		if ($p !== false) {
 			$result->apres = substr($suite, 0, $p);
-			$suite = substr($suite, $p+strlen($s));
+			$suite = substr($suite, $p + strlen($s));
 		}
 
 		//
 		// 2. Recuperer la partie alternative
 		//
-		$s = BALISE_ALT_BOUCLE . $id_boucle . ">";
+		$s = BALISE_ALT_BOUCLE.$id_boucle.">";
 		$p = strpos($suite, $s);
-		if ($p!==false){
+		if ($p !== false) {
 			$result->altern = substr($suite, 0, $p);
-			$suite = substr($suite, $p+strlen($s));
+			$suite = substr($suite, $p + strlen($s));
 		}
-		$result->ligne = $ligne+substr_count($debut, "\n");
+		$result->ligne = $ligne + substr_count($debut, "\n");
 		$m = substr_count($milieu, "\n");
 		$b = substr_count($result->avant, "\n");
 		$a = substr_count($result->apres, "\n");
 
-		if ($p = strpos($type, ':')){
+		if ($p = strpos($type, ':')) {
 			$result->sql_serveur = substr($type, 0, $p);
-			$type = substr($type, $p+1);
+			$type = substr($type, $p + 1);
 		}
 		$soustype = strtolower($type);
 
@@ -783,7 +783,7 @@ 
 			$err_b = true;
 		else {
 			phraser_criteres($result->param, $result);
-			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF))==0){
+			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
 				$result->type_requete = TYPE_RECURSIF;
 				$args = $result->param;
 				array_unshift($args,
@@ -793,9 +793,9 @@ 
 		}
 
 		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $result->ligne);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne+$b+$m);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne+$a+$m+$b);
-		$result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne+$b);
+		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne + $b + $m);
+		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne + $a + $m + $b);
+		$result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne + $b);
 
 		// Prevenir le generateur de code que le squelette est faux
 		if ($err_b) $result->type_requete = false;
@@ -803,7 +803,7 @@ 
 		// Verifier qu'il n'y a pas double definition
 		// apres analyse des sous-parties (pas avant).
 
-		if (isset($boucles[$id_boucle])){
+		if (isset($boucles[$id_boucle])) {
 			$err_b_d = array('zbug_erreur_boucle_double',
 				array('id' => $id_boucle));
 			erreur_squelette($err_b_d, $result);
@@ -813,7 +813,7 @@ 
 			$boucles[$id_boucle] = $result;
 		$all_res = phraser_champs_etendus($debut, $ligne, $all_res);
 		$all_res[] = &$boucles[$id_boucle];
-		if (!empty($suite)){
+		if (!empty($suite)) {
 			$ligne += substr_count(substr($texte, 0, strpos($texte, $suite)), "\n");
 		}
 		$texte = $suite;

Braces +152 added lines, -88 removed lines

@@ -11,7 +11,9 @@ 
  * \***************************************************************************/
 
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 # Ce fichier transforme un squelette en un tableau d'objets de classe Boucle
 # il est charge par un include calcule 
@@ -44,7 +46,9 @@ 
 	while (preg_match(BALISE_INCLURE, $texte, $match)){
 		$p = strpos($texte, $match[0]);
 		$debut = substr($texte, 0, $p);
-		if ($p) $result = phraser_idiomes($debut, $ligne, $result);
+		if ($p) {
+		    $result = phraser_idiomes($debut, $ligne, $result);
+		}
 		$ligne += substr_count($debut, "\n");
 		$champ = new Inclure;
 		$champ->ligne = $ligne;
@@ -60,8 +64,9 @@ 
 		// on assimile {var=val} a une liste de un argument sans fonction
 		phraser_args($texte, "/>", "", $result, $champ);
 		if (!$champ->texte OR count($champ->param)>1){
-			if (!function_exists('normaliser_inclure'))
-				include_spip('public/normaliser');
+			if (!function_exists('normaliser_inclure')) {
+							include_spip('public/normaliser');
+			}
 			normaliser_inclure($champ);
 		}
 		$texte = substr($champ->apres, strpos($champ->apres, '>')+1);
@@ -76,9 +81,10 @@ 
 // http://doc.spip.org/@phraser_polyglotte
 function phraser_polyglotte($texte, $ligne, $result){
 
-	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER))
-		foreach ($m as $match){
+	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
+			foreach ($m as $match){
 			$p = strpos($texte, $match[0]);
+	}
 			$debut = substr($texte, 0, $p);
 			if ($p){
 				$champ = new Texte;
@@ -96,8 +102,9 @@ 
 			$texte = substr($texte, $p+strlen($match[0]));
 			while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)){
 				$trad = $regs[1];
-				if ($trad OR $lang)
-					$champ->traductions[$lang] = $trad;
+				if ($trad OR $lang) {
+									$champ->traductions[$lang] = $trad;
+				}
 				$lang = $regs[2];
 				$bloc = $regs[3];
 			}
@@ -125,10 +132,15 @@ 
 		$p = strpos($texte, $match[0]);
 		$ko = (!$match[3] && ($match[5][0]!=='='));
 		$debut = substr($texte, 0, $p+($ko ? strlen($match[0]) : 0));
-		if ($debut) $result = phraser_champs($debut, $ligne, $result);
+		if ($debut) {
+		    $result = phraser_champs($debut, $ligne, $result);
+		}
 		$texte = substr($texte, $p+strlen($match[0]));
 		$ligne += substr_count($debut, "\n");
-		if ($ko) continue; // faux idiome
+		if ($ko) {
+		    continue;
+		}
+		// faux idiome
 		$champ = new Idiome;
 		$champ->ligne = $ligne;
 		$ligne += substr_count($match[0], "\n");
@@ -146,7 +158,9 @@ 
 		phraser_args(@$match[7], ":", '', array(), $champ);
 		$result[] = $champ;
 	}
-	if ($texte!=="") $result = phraser_champs($texte, $ligne, $result);
+	if ($texte!=="") {
+	    $result = phraser_champs($texte, $ligne, $result);
+	}
 
 	return $result;
 }
@@ -158,7 +172,9 @@ 
 		$suite = substr($texte, $p+strlen($match[0]));
 		if ($match[5] || (strpos($suite[0], "[0-9]")===false)){
 			$debut = substr($texte, 0, $p);
-			if ($p) $result = phraser_polyglotte($debut, $ligne, $result);
+			if ($p) {
+			    $result = phraser_polyglotte($debut, $ligne, $result);
+			}
 			$ligne += substr_count($debut, "\n");
 			$champ = new Champ;
 			$champ->ligne = $ligne;
@@ -180,7 +196,9 @@ 
 						$champ->apres[0]->texte = substr($suite,0,$n);
 					}
 				*/
-			} else $texte = $suite;
+			} else {
+			    $texte = $suite;
+			}
 			phraser_vieux($champ);
 			$result[] = $champ;
 		} else {
@@ -189,7 +207,9 @@ 
 			$texte = (substr($texte, $p+1));
 		}
 	}
-	if ($texte!=="") $result = phraser_polyglotte($texte, $ligne, $result);
+	if ($texte!=="") {
+	    $result = phraser_polyglotte($texte, $ligne, $result);
+	}
 
 	return $result;
 }
@@ -201,10 +221,13 @@ 
 
 // http://doc.spip.org/@phraser_champs_etendus
 function phraser_champs_etendus($texte, $ligne, $result){
-	if ($texte==="") return $result;
+	if ($texte==="") {
+	    return $result;
+	}
 	$sep = '##';
-	while (strpos($texte, $sep)!==false)
-		$sep .= '#';
+	while (strpos($texte, $sep)!==false) {
+			$sep .= '#';
+	}
 
 	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
 }
@@ -234,7 +257,9 @@ 
 	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
 	$suite = ltrim($match[2]);
 	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0]=="|") $fonc = ltrim(substr($fonc, 1));
+	if ($fonc && $fonc[0]=="|") {
+	    $fonc = ltrim(substr($fonc, 1));
+	}
 	$res = array($fonc);
 	$err_f = '';
 	// cas du filtre sans argument ou du critere /
@@ -244,9 +269,14 @@ 
 			$err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
 			erreur_squelette($err_f, $pointeur_champ);
 			$texte = '';
-		} else  $texte = $suite;
-		if ($err_f) $pointeur_champ->param = false;
-		elseif ($fonc!=='') $pointeur_champ->param[] = $res;
+		} else {
+		    $texte = $suite;
+		}
+		if ($err_f) {
+		    $pointeur_champ->param = false;
+		} elseif ($fonc!=='') {
+		    $pointeur_champ->param[] = $res;
+		}
 		// pour les balises avec faux filtres qui boudent ce dur larbeur
 		$pointeur_champ->fonctions[] = array($fonc, '');
 
@@ -255,11 +285,11 @@ 
 	$args = ltrim(substr($suite, 1)); // virer le '(' initial
 	$collecte = array();
 	while ($args && $args[0]!='}'){
-		if ($args[0]=='"')
-			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		else if ($args[0]=="'")
-			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
-		else {
+		if ($args[0]=='"') {
+					preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
+		} else if ($args[0]=="'") {
+					preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
+		} else {
 			preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
 			if (!strlen($regs[2])){
 				$err_f = array('zbug_erreur_filtre', array('filtre' => $args));
@@ -318,10 +348,14 @@ 
 					$next = isset($args[0]) ? $args[0] : '';
 				}
 				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param===false)
-					$err_f = true;
-				else phraser_vieux($champ);
-				if ($par==')') $args = substr($args, 1);
+				if ($champ->param===false) {
+									$err_f = true;
+				} else {
+				    phraser_vieux($champ);
+				}
+				if ($par==')') {
+				    $args = substr($args, 1);
+				}
 				$collecte[] = $champ;
 				$result[] = $champ;
 			}
@@ -342,10 +376,11 @@ 
 	$source = substr($suite, 0, strlen($suite)-strlen($texte));
 	// propager les erreurs, et ignorer les param vides
 	if ($pointeur_champ->param!==false){
-		if ($err_f)
-			$pointeur_champ->param = false;
-		elseif ($fonc!=='' || count($res)>1)
-			$pointeur_champ->param[] = $res;
+		if ($err_f) {
+					$pointeur_champ->param = false;
+		} elseif ($fonc!=='' || count($res)>1) {
+					$pointeur_champ->param[] = $res;
+		}
 	}
 	// pour les balises avec faux filtres qui boudent ce dur larbeur
 	$pointeur_champ->fonctions[] = array($fonc, $source);
@@ -358,12 +393,14 @@ 
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested){
 	$res = array();
 	while (($p = strpos($texte, "%$sep"))!==false){
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m))
-			break;
+		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+					break;
+		}
 		$debut = substr($texte, 0, $p);
 		$texte = substr($texte, $p+strlen($m[0]));
-		if ($p)
-			$res = phraser_inclure($debut, $ligne, $res);
+		if ($p) {
+					$res = phraser_inclure($debut, $ligne, $res);
+		}
 		$ligne += substr_count($debut, "\n");
 		$res[] = $nested[$m[1]];
 	}
@@ -417,45 +454,53 @@ 
 		while ($j<$i){
 			$z = $result[$j];
 			// j'aurais besoin de connaitre le nombre de lignes...
-			if (is_object($z))
-				$x .= "%$sep$j@";
-			else
-				$x .= $z;
+			if (is_object($z)) {
+							$x .= "%$sep$j@";
+			} else {
+							$x .= $z;
+			}
 			$j++;
 		}
-		if (preg_match(CHAMP_ETENDU, $x))
-			$texte = $x;
-		else
-			return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+		if (preg_match(CHAMP_ETENDU, $x)) {
+					$texte = $x;
+		} else {
+					return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+		}
 	}
 }
 
 function phraser_vieux(&$champ){
 	$nom = $champ->nom_champ;
 	if ($nom=='EMBED_DOCUMENT'){
-		if (!function_exists('phraser_vieux_emb'))
-			include_spip('public/normaliser');
+		if (!function_exists('phraser_vieux_emb')) {
+					include_spip('public/normaliser');
+		}
 		phraser_vieux_emb($champ);
 	} elseif ($nom=='EXPOSER') {
-		if (!function_exists('phraser_vieux_exposer'))
-			include_spip('public/normaliser');
+		if (!function_exists('phraser_vieux_exposer')) {
+					include_spip('public/normaliser');
+		}
 		phraser_vieux_exposer($champ);
 	} elseif ($champ->param) {
 		if ($nom=='FORMULAIRE_RECHERCHE'){
-			if (!function_exists('phraser_vieux_recherche'))
-				include_spip('public/normaliser');
+			if (!function_exists('phraser_vieux_recherche')) {
+							include_spip('public/normaliser');
+			}
 			phraser_vieux_recherche($champ);
 		} elseif (preg_match(",^LOGO_[A-Z]+,", $nom)) {
-			if (!function_exists('phraser_vieux_logos'))
-				include_spip('public/normaliser');
+			if (!function_exists('phraser_vieux_logos')) {
+							include_spip('public/normaliser');
+			}
 			phraser_vieux_logos($champ);
 		} elseif ($nom=='MODELE') {
-			if (!function_exists('phraser_vieux_modele'))
-				include_spip('public/normaliser');
+			if (!function_exists('phraser_vieux_modele')) {
+							include_spip('public/normaliser');
+			}
 			phraser_vieux_modele($champ);
 		} elseif ($nom=='INCLURE' OR $nom=='INCLUDE') {
-			if (!function_exists('phraser_vieux_inclu'))
-				include_spip('public/normaliser');
+			if (!function_exists('phraser_vieux_inclu')) {
+							include_spip('public/normaliser');
+			}
 			phraser_vieux_inclu($champ);
 		}
 	}
@@ -517,13 +562,16 @@ 
 					if (preg_match(',^(["\'])(.*)\1$,', $m[4])){
 						$c = null;
 						eval ('$c = ' . $m[4] . ';');
-						if (isset($c))
-							$m[4] = $c;
+						if (isset($c)) {
+													$m[4] = $c;
+						}
 					}
 					$texte = new Texte;
 					$texte->texte = $m[4];
 					$v[1][0] = $texte;
-				} else array_shift($v[1]);
+				} else {
+				    array_shift($v[1]);
+				}
 			}
 			array_shift($v); // $v[O] est vide
 			$crit = new Critere;
@@ -552,12 +600,13 @@ 
 			} else {
 				// traiter qq lexemes particuliers pour faciliter la suite
 				// les separateurs
-				if ($var->apres)
-					$result->separateur[] = $param;
-				elseif (($param=='tout') OR ($param=='tous'))
-					$result->modificateur['tout'] = true;
-				elseif ($param=='plat')
-					$result->modificateur['plat'] = true;
+				if ($var->apres) {
+									$result->separateur[] = $param;
+				} elseif (($param=='tout') OR ($param=='tous')) {
+									$result->modificateur['tout'] = true;
+				} elseif ($param=='plat') {
+									$result->modificateur['plat'] = true;
+				}
 
 				// Boucle hierarchie, analyser le critere id_rubrique
 				// et les autres critères {id_x} pour forcer {tout} sur
@@ -578,17 +627,21 @@ 
 						// cette variable sera inseree dans le code
 						// et son nom sert d'indicateur des maintenant
 						$result->doublons = '$doublons_index';
-						if ($param=='unique') $param = 'doublons';
-					} elseif ($param=='recherche')
-						// meme chose (a cause de #nom_de_boucle:URL_*)
+						if ($param=='unique') {
+						    $param = 'doublons';
+						}
+					} elseif ($param=='recherche') {
+											// meme chose (a cause de #nom_de_boucle:URL_*)
 						$result->hash = ' ';
+					}
 					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)){
 						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
 					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
 						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
 						$a2 = trim($m[8]);
-						if ($a2 AND ($a2[0]=="'" OR $a2[0]=='"') AND ($a2[0]==substr($a2, -1)))
-							$a2 = substr($a2, 1, -1);
+						if ($a2 AND ($a2[0]=="'" OR $a2[0]=='"') AND ($a2[0]==substr($a2, -1))) {
+													$a2 = substr($a2, 1, -1);
+						}
 						$crit = phraser_critere_infixe($m[2], $a2, $v,
 							(($m[2]=='lang_select') ? $m[2] : $m[7]),
 							$m[6], $m[5]);
@@ -605,7 +658,9 @@ 
 							$v[0][0]->texte = $m[6];
 						} else {
 							array_shift($v[0]);
-							if (!$v[0]) array_shift($v);
+							if (!$v[0]) {
+							    array_shift($v);
+							}
 						}
 						$crit = new Critere;
 						$crit->op = $m[2];
@@ -617,10 +672,11 @@ 
 							array('critere' => $param));
 						erreur_squelette($err_ci, $result);
 					}
-					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not)
-						$args[] = $crit;
-					else
-						$doublons[] = $crit;
+					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
+											$args[] = $crit;
+					} else {
+											$doublons[] = $crit;
+					}
 				}
 			}
 		}
@@ -628,10 +684,14 @@ 
 	// les doublons non nies doivent etre le dernier critere
 	// pour que la variable $doublon_index ait la bonne valeur
 	// cf critere_doublon
-	if ($doublons) $args = array_merge($args, $doublons);
+	if ($doublons) {
+	    $args = array_merge($args, $doublons);
+	}
 	// Si erreur, laisser la chaine dans ce champ pour le HTTP 503
-	if (!$err_ci) $result->criteres = $args;
-}
+	if (!$err_ci) {
+	    $result->criteres = $args;
+	}
+	}
 
 // http://doc.spip.org/@phraser_critere_infixe
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond){
@@ -774,14 +834,15 @@ 
 		}
 		$soustype = strtolower($type);
 
-		if (!isset($GLOBALS["table_des_tables"][$soustype]))
-			$soustype = $type;
+		if (!isset($GLOBALS["table_des_tables"][$soustype])) {
+					$soustype = $type;
+		}
 
 		$result->type_requete = $soustype;
 		// Lancer la 2e passe sur les criteres si la 1ere etait bonne
-		if (!is_array($result->param))
-			$err_b = true;
-		else {
+		if (!is_array($result->param)) {
+					$err_b = true;
+		} else {
 			phraser_criteres($result->param, $result);
 			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF))==0){
 				$result->type_requete = TYPE_RECURSIF;
@@ -798,7 +859,9 @@ 
 		$result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne+$b);
 
 		// Prevenir le generateur de code que le squelette est faux
-		if ($err_b) $result->type_requete = false;
+		if ($err_b) {
+		    $result->type_requete = false;
+		}
 
 		// Verifier qu'il n'y a pas double definition
 		// apres analyse des sous-parties (pas avant).
@@ -809,8 +872,9 @@ 
 			erreur_squelette($err_b_d, $result);
 			// Prevenir le generateur de code que le squelette est faux
 			$boucles[$id_boucle]->type_requete = false;
-		} else
-			$boucles[$id_boucle] = $result;
+		} else {
+					$boucles[$id_boucle] = $result;
+		}
 		$all_res = phraser_champs_etendus($debut, $ligne, $all_res);
 		$all_res[] = &$boucles[$id_boucle];
 		if (!empty($suite)){

ecrire/public/quete.php

Doc Comments +7 added lines, -7 removed lines

@@ -24,9 +24,9 @@ 
  * retourne l'url de redirection d'un article virtuel, seulement si il est publié
  * http://doc.spip.org/@quete_chapo
  *
- * @param $id_article
- * @param $connect
- * @return array|bool|null
+ * @param integer $id_article
+ * @param string $connect
+ * @return string
  */
 function quete_virtuel($id_article, $connect) {
 	return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
@@ -91,7 +91,7 @@ 
  * http://doc.spip.org/@quete_rubrique
  *
  * @param int $id_article
- * @param $serveur
+ * @param string $serveur
  * @return
  */
 function quete_rubrique($id_article, $serveur) {
@@ -220,7 +220,7 @@ 
  *
  * @param int $id_document
  * @param string $serveur
- * @return array|bool|null
+ * @return string
  */
 function quete_fichier($id_document, $serveur='') {
 	return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
@@ -242,8 +242,8 @@ 
  *
  * http://doc.spip.org/@quete_meta
  *
- * @param $nom
- * @param $serveur
+ * @param string $nom
+ * @param string $serveur
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {

Indentation +237 added lines, -237 removed lines

@@ -29,7 +29,7 @@ 
  * @return array|bool|null
  */
 function quete_virtuel($id_article, $connect) {
-	return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
+    return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
 }
 
 /**
@@ -43,25 +43,25 @@ 
  * @return array
  */
 function quete_parent_lang($table,$id,$connect=''){
-	static $cache_quete = array();
-
-	if (!isset($cache_quete[$connect][$table][$id])) {
-		if (!isset($cache_quete[$connect][$table]['_select'])){
-			$trouver_table = charger_fonction('trouver_table','base');
-			if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
-				// pas de parent rubrique, on passe
-				$cache_quete[$connect][$table]['_select'] = false; 
-			else {
-				$select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
-				$select .= isset($desc['field']['lang'])?", lang":"";
-				$cache_quete[$connect][$table]['_select'] = $select;
-				$cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
-			}
-		}
-		if ($cache_quete[$connect][$table]['_select'])
-			$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
-	}
-	return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
+    static $cache_quete = array();
+
+    if (!isset($cache_quete[$connect][$table][$id])) {
+        if (!isset($cache_quete[$connect][$table]['_select'])){
+            $trouver_table = charger_fonction('trouver_table','base');
+            if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
+                // pas de parent rubrique, on passe
+                $cache_quete[$connect][$table]['_select'] = false; 
+            else {
+                $select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
+                $select .= isset($desc['field']['lang'])?", lang":"";
+                $cache_quete[$connect][$table]['_select'] = $select;
+                $cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
+            }
+        }
+        if ($cache_quete[$connect][$table]['_select'])
+            $cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
+    }
+    return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
 }
 
 
@@ -77,10 +77,10 @@ 
  * @return int
  */
 function quete_parent($id_rubrique, $connect='') {
-	if (!$id_rubrique = intval($id_rubrique))
-		return 0;
-	$id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
-	return $id_parent['id_parent'];
+    if (!$id_rubrique = intval($id_rubrique))
+        return 0;
+    $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
+    return $id_parent['id_parent'];
 }
 
 /**
@@ -95,8 +95,8 @@ 
  * @return
  */
 function quete_rubrique($id_article, $serveur) {
-	$id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
-	return $id_parent['id_rubrique'];
+    $id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
+    return $id_parent['id_rubrique'];
 }
 
 
@@ -110,12 +110,12 @@ 
  * @return int
  */
 function quete_profondeur($id, $connect='') {
-	$n = 0;
-	while ($id) {
-		$n++;
-		$id = quete_parent($id, $connect);
-	}
-	return $n;
+    $n = 0;
+    while ($id) {
+        $n++;
+        $id = quete_parent($id, $connect);
+    }
+    return $n;
 }
 
 
@@ -126,13 +126,13 @@ 
  * @return string
  */
 function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		return "1=1";
-	return
-	  (isset($GLOBALS['meta']['date_prochain_postdate'])
-	     AND $GLOBALS['meta']['date_prochain_postdate'] > time())
-			? "$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
-	    : "1=1" ;
+    if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
+        return "1=1";
+    return
+        (isset($GLOBALS['meta']['date_prochain_postdate'])
+         AND $GLOBALS['meta']['date_prochain_postdate'] > time())
+            ? "$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
+        : "1=1" ;
 }
 
 
@@ -150,67 +150,67 @@ 
  * @return array
  */
 function quete_condition_statut($mstatut,$previsu,$publie, $serveur='', $ignore_previsu=false){
-	static $cond = array();
-	$key = func_get_args();
-	$key = implode("-",$key);
-	if (isset($cond[$key])) return $cond[$key];
-
-	$liste = $publie;
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		$liste = $previsu;
-	$not = false;
-	if (strncmp($liste,'!',1)==0){
-		$not = true;
-	  $liste = substr($liste,1);
-	}
-	// '' => ne rien afficher, '!'=> ne rien filtrer
-	if (!strlen($liste))
-		return $cond[$key]=($not?"1=1":"'0=1'");
-
-	$liste = explode(',',$liste);
-	$where = array();
-	foreach($liste as $k=>$v) {
-		// filtrage /auteur pour limiter les objets d'un statut (prepa en general)
-		// a ceux de l'auteur identifie
-		if (strpos($v,"/")!==false){
-			$v = explode("/",$v);
-			$filtre = end($v);
-			$v = reset($v);
-			$v = preg_replace(",\W,","",$v);
-			if ($filtre=="auteur"
-				AND isset($GLOBALS['visiteur_session']['id_auteur'])
-				AND intval($GLOBALS['visiteur_session']['id_auteur'])
-				AND (strpos($mstatut,".")!==false)
-			  AND $objet = explode(".",$mstatut)
-				AND $id_table = reset($objet)
-			  AND $objet = objet_type($id_table)){
-				$primary = id_table_objet($objet);
-				$where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
-			}
-			// ignorer ce statut si on ne sait pas comment le filtrer
-			else
-				$v = "";
-		}
-		// securite
-		$liste[$k] = preg_replace(",\W,","",$v);
-	}
-	$liste = array_filter($liste);
-  if (count($liste)==1){
-		$where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
-  }
-  else {
-	  $where[] = sql_in($mstatut,$liste,$not,$serveur);
-  }
-
-	while (count($where)>1){
-		$and = array('AND',array_pop($where),array_pop($where));
-		$where[] = $and;
-	}
-	$cond[$key] = reset($where);
-	if ($not)
-		$cond[$key] = array('NOT',$cond[$key]);
-
-	return $cond[$key];
+    static $cond = array();
+    $key = func_get_args();
+    $key = implode("-",$key);
+    if (isset($cond[$key])) return $cond[$key];
+
+    $liste = $publie;
+    if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
+        $liste = $previsu;
+    $not = false;
+    if (strncmp($liste,'!',1)==0){
+        $not = true;
+        $liste = substr($liste,1);
+    }
+    // '' => ne rien afficher, '!'=> ne rien filtrer
+    if (!strlen($liste))
+        return $cond[$key]=($not?"1=1":"'0=1'");
+
+    $liste = explode(',',$liste);
+    $where = array();
+    foreach($liste as $k=>$v) {
+        // filtrage /auteur pour limiter les objets d'un statut (prepa en general)
+        // a ceux de l'auteur identifie
+        if (strpos($v,"/")!==false){
+            $v = explode("/",$v);
+            $filtre = end($v);
+            $v = reset($v);
+            $v = preg_replace(",\W,","",$v);
+            if ($filtre=="auteur"
+                AND isset($GLOBALS['visiteur_session']['id_auteur'])
+                AND intval($GLOBALS['visiteur_session']['id_auteur'])
+                AND (strpos($mstatut,".")!==false)
+              AND $objet = explode(".",$mstatut)
+                AND $id_table = reset($objet)
+              AND $objet = objet_type($id_table)){
+                $primary = id_table_objet($objet);
+                $where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
+            }
+            // ignorer ce statut si on ne sait pas comment le filtrer
+            else
+                $v = "";
+        }
+        // securite
+        $liste[$k] = preg_replace(",\W,","",$v);
+    }
+    $liste = array_filter($liste);
+    if (count($liste)==1){
+        $where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
+    }
+    else {
+        $where[] = sql_in($mstatut,$liste,$not,$serveur);
+    }
+
+    while (count($where)>1){
+        $and = array('AND',array_pop($where),array_pop($where));
+        $where[] = $and;
+    }
+    $cond[$key] = reset($where);
+    if ($not)
+        $cond[$key] = array('NOT',$cond[$key]);
+
+    return $cond[$key];
 }
 
 /**
@@ -223,7 +223,7 @@ 
  * @return array|bool|null
  */
 function quete_fichier($id_document, $serveur='') {
-	return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+    return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
 }
 
 /**
@@ -234,7 +234,7 @@ 
  * @return array|bool
  */
 function quete_document($id_document, $serveur='') {
-	return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+    return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
 }
 
 /**
@@ -247,8 +247,8 @@ 
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {
-	return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
-			     '','','','',$serveur);
+    return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
+                    '','','','',$serveur);
 }
 
 /**
@@ -265,38 +265,38 @@ 
  * @return array|string
  */
 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
-	static $chercher_logo;
-	if (is_null($chercher_logo))
-		$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$nom = strtolower($onoff);
-
-	while (1) {
-		$on = $chercher_logo($id, $type, $nom);
-		if ($on) {
-			if ($flag)
-				return "$on[2].$on[3]";
-			else {
-				$taille = @getimagesize($on[0]);
-				$off = ($onoff != 'ON') ? '' :
-					$chercher_logo($id, $type, 'off');
-				// on retourne une url du type IMG/artonXX?timestamp
-				// qui permet de distinguer le changement de logo
-				// et placer un expire sur le dossier IMG/
-				return array ($on[0].($on[4]?"?$on[4]":""),
-					($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
-					(!$taille ? '' : (" ".$taille[3])));
-			}
-		}
+    static $chercher_logo;
+    if (is_null($chercher_logo))
+        $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $nom = strtolower($onoff);
+
+    while (1) {
+        $on = $chercher_logo($id, $type, $nom);
+        if ($on) {
+            if ($flag)
+                return "$on[2].$on[3]";
+            else {
+                $taille = @getimagesize($on[0]);
+                $off = ($onoff != 'ON') ? '' :
+                    $chercher_logo($id, $type, 'off');
+                // on retourne une url du type IMG/artonXX?timestamp
+                // qui permet de distinguer le changement de logo
+                // et placer un expire sur le dossier IMG/
+                return array ($on[0].($on[4]?"?$on[4]":""),
+                    ($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
+                    (!$taille ? '' : (" ".$taille[3])));
+            }
+        }
         else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE'))
             return '';
-		else if ($id_rubrique) {
-			$type = 'id_rubrique';
-			$id = $id_rubrique;
-			$id_rubrique = 0;
-		} else if ($id AND $type == 'id_rubrique')
-			$id = quete_parent($id);
-		else return '';
-	}
+        else if ($id_rubrique) {
+            $type = 'id_rubrique';
+            $id = $id_rubrique;
+            $id_rubrique = 0;
+        } else if ($id AND $type == 'id_rubrique')
+            $id = quete_parent($id);
+        else return '';
+    }
 }
 
 /**
@@ -309,19 +309,19 @@ 
  * @return bool|string
  */
 function quete_logo_file($row, $connect=NULL) {
-	include_spip('inc/documents');
-	$logo = vignette_logo_document($row, $connect);
-	if (!$logo) $logo = image_du_document($row);
-	if (!$logo){
-		$f = charger_fonction('vignette','inc');
-		$logo = $f($row['extension'], false);
-	}
-	// si c'est une vignette type doc, la renvoyer direct
-	if (strcmp($logo,_DIR_PLUGINS)==0
-		OR strcmp($logo,_DIR_PLUGINS_DIST)==0
-		OR strcmp($logo,_DIR_RACINE.'prive/')==0)
-		return $logo;
-	return get_spip_doc($logo);
+    include_spip('inc/documents');
+    $logo = vignette_logo_document($row, $connect);
+    if (!$logo) $logo = image_du_document($row);
+    if (!$logo){
+        $f = charger_fonction('vignette','inc');
+        $logo = $f($row['extension'], false);
+    }
+    // si c'est une vignette type doc, la renvoyer direct
+    if (strcmp($logo,_DIR_PLUGINS)==0
+        OR strcmp($logo,_DIR_PLUGINS_DIST)==0
+        OR strcmp($logo,_DIR_RACINE.'prive/')==0)
+        return $logo;
+    return get_spip_doc($logo);
 }
 
 /**
@@ -348,16 +348,16 @@ 
  * @return string
  */
 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
-	include_spip('inc/documents');
-	$logo = '';
-	if (!in_array($mode_logo,array('icone','apercu')))
-		$logo = vignette_logo_document($row, $connect);
-	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
-	if ($mode_logo == 'vignette' AND !$logo)
-		return '';
-	if ($mode_logo == 'icone')
-		$row['fichier'] = '';
-	return vignette_automatique($logo, $row, $lien, $x, $y, $align);
+    include_spip('inc/documents');
+    $logo = '';
+    if (!in_array($mode_logo,array('icone','apercu')))
+        $logo = vignette_logo_document($row, $connect);
+    // si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
+    if ($mode_logo == 'vignette' AND !$logo)
+        return '';
+    if ($mode_logo == 'icone')
+        $row['fichier'] = '';
+    return vignette_automatique($logo, $row, $lien, $x, $y, $align);
 }
 
 /**
@@ -371,17 +371,17 @@ 
  */
 function vignette_logo_document($row, $connect='')
 {
-	if (!$row['id_vignette']) return '';
-	$fichier = quete_fichier($row['id_vignette'], $connect);
-	if ($connect) {
-		$site = quete_meta('adresse_site', $connect);
-		$dir = quete_meta('dir_img', $connect);
-		return "$site/$dir$fichier";
-	}
-	$f = get_spip_doc($fichier);
-	if ($f AND @file_exists($f)) return $f;
-	if ($row['mode'] !== 'vignette') return '';
-	return generer_url_entite($row['id_document'], 'document','','', $connect);
+    if (!$row['id_vignette']) return '';
+    $fichier = quete_fichier($row['id_vignette'], $connect);
+    if ($connect) {
+        $site = quete_meta('adresse_site', $connect);
+        $dir = quete_meta('dir_img', $connect);
+        return "$site/$dir$fichier";
+    }
+    $f = get_spip_doc($fichier);
+    if ($f AND @file_exists($f)) return $f;
+    if ($row['mode'] !== 'vignette') return '';
+    return generer_url_entite($row['id_document'], 'document','','', $connect);
 }
 
 /**
@@ -399,60 +399,60 @@ 
  * @return bool|string
  */
 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
-	static $exposer = array();
-
-	// Que faut-il exposer ? Tous les elements de $reference
-	// ainsi que leur hierarchie ; on ne fait donc ce calcul
-	// qu'une fois (par squelette) et on conserve le resultat
-	// en static.
-	if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
-		$principal = isset($reference[$type])?$reference[$type]:
-			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
-			// et donne la reference dynamique @type=xx dans le contexte
-			(isset($reference["@$type"])?$reference["@$type"]:'');
-		// le parent fournit en argument est le parent de $id, pas celui de $principal
-		// il n'est donc pas utile
-		$parent = 0;
-		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
-			$enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
-			if (isset($enfants[$type]))
-				foreach($enfants[$type] as $t)
-					if (isset($reference[$t])
-						// cas de la reference donnee dynamiquement par la pagination
-						OR isset($reference["@$t"])) {
-						$type = $t;
-						$principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
-						continue;
-					}
-		}
-		$exposer[$m][$type] = array();
-		if ($principal) {
-			$principaux = is_array($principal)?$principal:array($principal);
-			foreach($principaux as $principal){
-				$exposer[$m][$type][$principal] = true;
-				if ($type == 'id_mot'){
-					if (!$parent) {
-						$parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
-					}
-					if ($parent)
-						$exposer[$m]['id_groupe'][$parent] = true;
-				}
-				else if ($type != 'id_groupe') {
-				  if (!$parent) {
-				  	if ($type == 'id_rubrique')
-				  		$parent = $principal;
-				  	if ($type == 'id_article') {
-						$parent = quete_rubrique($principal,$connect);
-				  	}
-				  }
-				  do { $exposer[$m]['id_rubrique'][$parent] = true; }
-				  while ($parent = quete_parent($parent, $connect));
-				}
-			}
-		}
-	}
-	// And the winner is...
-	return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
+    static $exposer = array();
+
+    // Que faut-il exposer ? Tous les elements de $reference
+    // ainsi que leur hierarchie ; on ne fait donc ce calcul
+    // qu'une fois (par squelette) et on conserve le resultat
+    // en static.
+    if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
+        $principal = isset($reference[$type])?$reference[$type]:
+            // cas de la pagination indecte @xx qui positionne la page avec l'id xx
+            // et donne la reference dynamique @type=xx dans le contexte
+            (isset($reference["@$type"])?$reference["@$type"]:'');
+        // le parent fournit en argument est le parent de $id, pas celui de $principal
+        // il n'est donc pas utile
+        $parent = 0;
+        if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
+            $enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
+            if (isset($enfants[$type]))
+                foreach($enfants[$type] as $t)
+                    if (isset($reference[$t])
+                        // cas de la reference donnee dynamiquement par la pagination
+                        OR isset($reference["@$t"])) {
+                        $type = $t;
+                        $principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
+                        continue;
+                    }
+        }
+        $exposer[$m][$type] = array();
+        if ($principal) {
+            $principaux = is_array($principal)?$principal:array($principal);
+            foreach($principaux as $principal){
+                $exposer[$m][$type][$principal] = true;
+                if ($type == 'id_mot'){
+                    if (!$parent) {
+                        $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
+                    }
+                    if ($parent)
+                        $exposer[$m]['id_groupe'][$parent] = true;
+                }
+                else if ($type != 'id_groupe') {
+                    if (!$parent) {
+                        if ($type == 'id_rubrique')
+                            $parent = $principal;
+                        if ($type == 'id_article') {
+                        $parent = quete_rubrique($principal,$connect);
+                        }
+                    }
+                    do { $exposer[$m]['id_rubrique'][$parent] = true; }
+                    while ($parent = quete_parent($parent, $connect));
+                }
+            }
+        }
+    }
+    // And the winner is...
+    return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
 }
 
 /**
@@ -467,20 +467,20 @@ 
  * @return int
  */
 function quete_debut_pagination($primary,$valeur,$pas,$iter){
-	// on ne devrait pas arriver ici si la cle primaire est inexistante
-	// ou composee, mais verifions
-	if (!$primary OR preg_match('/[,\s]/',$primary))
-		return 0;
-
-	$pos = 0;
-	while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
-		$pos++;
-	}
-	// si on a pas trouve
-	if ($row[$primary]!=$valeur)
-		return 0;
-
-	// sinon, calculer le bon numero de page
-	return floor($pos/$pas)*$pas;
+    // on ne devrait pas arriver ici si la cle primaire est inexistante
+    // ou composee, mais verifions
+    if (!$primary OR preg_match('/[,\s]/',$primary))
+        return 0;
+
+    $pos = 0;
+    while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
+        $pos++;
+    }
+    // si on a pas trouve
+    if ($row[$primary]!=$valeur)
+        return 0;
+
+    // sinon, calculer le bon numero de page
+    return floor($pos/$pas)*$pas;
 }
 ?>

Spacing +73 added lines, -75 removed lines

@@ -29,7 +29,7 @@ 
  * @return array|bool|null
  */
 function quete_virtuel($id_article, $connect) {
-	return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
+	return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '', '', '', '', $connect);
 }
 
 /**
@@ -42,24 +42,24 @@ 
  * @param string $connect
  * @return array
  */
-function quete_parent_lang($table,$id,$connect=''){
+function quete_parent_lang($table, $id, $connect = '') {
 	static $cache_quete = array();
 
 	if (!isset($cache_quete[$connect][$table][$id])) {
-		if (!isset($cache_quete[$connect][$table]['_select'])){
-			$trouver_table = charger_fonction('trouver_table','base');
-			if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
+		if (!isset($cache_quete[$connect][$table]['_select'])) {
+			$trouver_table = charger_fonction('trouver_table', 'base');
+			if (!$desc = $trouver_table($table, $connect) OR !isset($desc['field']['id_rubrique']))
 				// pas de parent rubrique, on passe
 				$cache_quete[$connect][$table]['_select'] = false; 
 			else {
-				$select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
-				$select .= isset($desc['field']['lang'])?", lang":"";
+				$select = ($table == 'spip_rubriques' ? 'id_parent' : 'id_rubrique');
+				$select .= isset($desc['field']['lang']) ? ", lang" : "";
 				$cache_quete[$connect][$table]['_select'] = $select;
 				$cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
 			}
 		}
 		if ($cache_quete[$connect][$table]['_select'])
-			$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
+			$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table, $cache_quete[$connect][$table]['_id']."=".intval($id), '', '', '', '', $connect);
 	}
 	return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
 }
@@ -76,10 +76,10 @@ 
  * @param string $connect
  * @return int
  */
-function quete_parent($id_rubrique, $connect='') {
+function quete_parent($id_rubrique, $connect = '') {
 	if (!$id_rubrique = intval($id_rubrique))
 		return 0;
-	$id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
+	$id_parent = quete_parent_lang('spip_rubriques', $id_rubrique, $connect);
 	return $id_parent['id_parent'];
 }
 
@@ -95,7 +95,7 @@ 
  * @return
  */
 function quete_rubrique($id_article, $serveur) {
-	$id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
+	$id_parent = quete_parent_lang('spip_articles', $id_article, $serveur);
 	return $id_parent['id_rubrique'];
 }
 
@@ -109,7 +109,7 @@ 
  * @param string $connect
  * @return int
  */
-function quete_profondeur($id, $connect='') {
+function quete_profondeur($id, $connect = '') {
 	$n = 0;
 	while ($id) {
 		$n++;
@@ -125,14 +125,14 @@ 
  * @param string $serveur
  * @return string
  */
-function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
+function quete_condition_postdates($champ_date, $serveur = '', $ignore_previsu = false) {
 	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
 		return "1=1";
 	return
 	  (isset($GLOBALS['meta']['date_prochain_postdate'])
 	     AND $GLOBALS['meta']['date_prochain_postdate'] > time())
-			? "$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
-	    : "1=1" ;
+			? "$champ_date<".sql_quote(date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']), $serveur)
+	    : "1=1";
 }
 
 
@@ -149,66 +149,66 @@ 
  *  serveur de BDD
  * @return array
  */
-function quete_condition_statut($mstatut,$previsu,$publie, $serveur='', $ignore_previsu=false){
+function quete_condition_statut($mstatut, $previsu, $publie, $serveur = '', $ignore_previsu = false) {
 	static $cond = array();
 	$key = func_get_args();
-	$key = implode("-",$key);
+	$key = implode("-", $key);
 	if (isset($cond[$key])) return $cond[$key];
 
 	$liste = $publie;
 	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
 		$liste = $previsu;
 	$not = false;
-	if (strncmp($liste,'!',1)==0){
+	if (strncmp($liste, '!', 1) == 0) {
 		$not = true;
-	  $liste = substr($liste,1);
+	  $liste = substr($liste, 1);
 	}
 	// '' => ne rien afficher, '!'=> ne rien filtrer
 	if (!strlen($liste))
-		return $cond[$key]=($not?"1=1":"'0=1'");
+		return $cond[$key] = ($not ? "1=1" : "'0=1'");
 
-	$liste = explode(',',$liste);
+	$liste = explode(',', $liste);
 	$where = array();
-	foreach($liste as $k=>$v) {
+	foreach ($liste as $k=>$v) {
 		// filtrage /auteur pour limiter les objets d'un statut (prepa en general)
 		// a ceux de l'auteur identifie
-		if (strpos($v,"/")!==false){
-			$v = explode("/",$v);
+		if (strpos($v, "/") !== false) {
+			$v = explode("/", $v);
 			$filtre = end($v);
 			$v = reset($v);
-			$v = preg_replace(",\W,","",$v);
-			if ($filtre=="auteur"
+			$v = preg_replace(",\W,", "", $v);
+			if ($filtre == "auteur"
 				AND isset($GLOBALS['visiteur_session']['id_auteur'])
 				AND intval($GLOBALS['visiteur_session']['id_auteur'])
-				AND (strpos($mstatut,".")!==false)
-			  AND $objet = explode(".",$mstatut)
+				AND (strpos($mstatut, ".") !== false)
+			  AND $objet = explode(".", $mstatut)
 				AND $id_table = reset($objet)
-			  AND $objet = objet_type($id_table)){
+			  AND $objet = objet_type($id_table)) {
 				$primary = id_table_objet($objet);
-				$where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
+				$where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet", "spip_auteurs_liens AS ssss", "ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']), '', '', '', '', $serveur)."))";
 			}
 			// ignorer ce statut si on ne sait pas comment le filtrer
 			else
 				$v = "";
 		}
 		// securite
-		$liste[$k] = preg_replace(",\W,","",$v);
+		$liste[$k] = preg_replace(",\W,", "", $v);
 	}
 	$liste = array_filter($liste);
-  if (count($liste)==1){
-		$where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
+  if (count($liste) == 1) {
+		$where[] = array('=', $mstatut, sql_quote(reset($liste), $serveur));
   }
   else {
-	  $where[] = sql_in($mstatut,$liste,$not,$serveur);
+	  $where[] = sql_in($mstatut, $liste, $not, $serveur);
   }
 
-	while (count($where)>1){
-		$and = array('AND',array_pop($where),array_pop($where));
+	while (count($where) > 1) {
+		$and = array('AND', array_pop($where), array_pop($where));
 		$where[] = $and;
 	}
 	$cond[$key] = reset($where);
 	if ($not)
-		$cond[$key] = array('NOT',$cond[$key]);
+		$cond[$key] = array('NOT', $cond[$key]);
 
 	return $cond[$key];
 }
@@ -222,8 +222,8 @@ 
  * @param string $serveur
  * @return array|bool|null
  */
-function quete_fichier($id_document, $serveur='') {
-	return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+function quete_fichier($id_document, $serveur = '') {
+	return sql_getfetsel('fichier', 'spip_documents', ("id_document=".intval($id_document)), '', array(), '', '', $serveur);
 }
 
 /**
@@ -233,8 +233,8 @@ 
  * @param string $serveur
  * @return array|bool
  */
-function quete_document($id_document, $serveur='') {
-	return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+function quete_document($id_document, $serveur = '') {
+	return sql_fetsel('*', 'spip_documents', ("id_document=".intval($id_document)), '', array(), '', '', $serveur);
 }
 
 /**
@@ -247,8 +247,8 @@ 
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {
-	return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
-			     '','','','',$serveur);
+	return sql_getfetsel("valeur", "spip_meta", "nom=".sql_quote($nom),
+			     '', '', '', '', $serveur);
 }
 
 /**
@@ -277,13 +277,12 @@ 
 				return "$on[2].$on[3]";
 			else {
 				$taille = @getimagesize($on[0]);
-				$off = ($onoff != 'ON') ? '' :
-					$chercher_logo($id, $type, 'off');
+				$off = ($onoff != 'ON') ? '' : $chercher_logo($id, $type, 'off');
 				// on retourne une url du type IMG/artonXX?timestamp
 				// qui permet de distinguer le changement de logo
 				// et placer un expire sur le dossier IMG/
-				return array ($on[0].($on[4]?"?$on[4]":""),
-					($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
+				return array($on[0].($on[4] ? "?$on[4]" : ""),
+					($off ? $off[0].($off[4] ? "?$off[4]" : "") : ''),
 					(!$taille ? '' : (" ".$taille[3])));
 			}
 		}
@@ -308,18 +307,18 @@ 
  * @param string $connect
  * @return bool|string
  */
-function quete_logo_file($row, $connect=NULL) {
+function quete_logo_file($row, $connect = NULL) {
 	include_spip('inc/documents');
 	$logo = vignette_logo_document($row, $connect);
 	if (!$logo) $logo = image_du_document($row);
-	if (!$logo){
-		$f = charger_fonction('vignette','inc');
+	if (!$logo) {
+		$f = charger_fonction('vignette', 'inc');
 		$logo = $f($row['extension'], false);
 	}
 	// si c'est une vignette type doc, la renvoyer direct
-	if (strcmp($logo,_DIR_PLUGINS)==0
-		OR strcmp($logo,_DIR_PLUGINS_DIST)==0
-		OR strcmp($logo,_DIR_RACINE.'prive/')==0)
+	if (strcmp($logo, _DIR_PLUGINS) == 0
+		OR strcmp($logo, _DIR_PLUGINS_DIST) == 0
+		OR strcmp($logo, _DIR_RACINE.'prive/') == 0)
 		return $logo;
 	return get_spip_doc($logo);
 }
@@ -347,10 +346,10 @@ 
  *   serveur
  * @return string
  */
-function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
+function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect = NULL) {
 	include_spip('inc/documents');
 	$logo = '';
-	if (!in_array($mode_logo,array('icone','apercu')))
+	if (!in_array($mode_logo, array('icone', 'apercu')))
 		$logo = vignette_logo_document($row, $connect);
 	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
 	if ($mode_logo == 'vignette' AND !$logo)
@@ -369,7 +368,7 @@ 
  * @param string $connect
  * @return string
  */
-function vignette_logo_document($row, $connect='')
+function vignette_logo_document($row, $connect = '')
 {
 	if (!$row['id_vignette']) return '';
 	$fichier = quete_fichier($row['id_vignette'], $connect);
@@ -381,7 +380,7 @@ 
 	$f = get_spip_doc($fichier);
 	if ($f AND @file_exists($f)) return $f;
 	if ($row['mode'] !== 'vignette') return '';
-	return generer_url_entite($row['id_document'], 'document','','', $connect);
+	return generer_url_entite($row['id_document'], 'document', '', '', $connect);
 }
 
 /**
@@ -398,41 +397,40 @@ 
  * @param string $connect
  * @return bool|string
  */
-function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
+function calcul_exposer($id, $prim, $reference, $parent, $type, $connect = '') {
 	static $exposer = array();
 
 	// Que faut-il exposer ? Tous les elements de $reference
 	// ainsi que leur hierarchie ; on ne fait donc ce calcul
 	// qu'une fois (par squelette) et on conserve le resultat
 	// en static.
-	if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
-		$principal = isset($reference[$type])?$reference[$type]:
-			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
+	if (!isset($exposer[$m = md5(serialize($reference))][$prim])) {
+		$principal = isset($reference[$type]) ? $reference[$type] : // cas de la pagination indecte @xx qui positionne la page avec l'id xx
 			// et donne la reference dynamique @type=xx dans le contexte
-			(isset($reference["@$type"])?$reference["@$type"]:'');
+			(isset($reference["@$type"]) ? $reference["@$type"] : '');
 		// le parent fournit en argument est le parent de $id, pas celui de $principal
 		// il n'est donc pas utile
 		$parent = 0;
 		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
-			$enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
+			$enfants = array('id_rubrique'=>array('id_article'), 'id_groupe'=>array('id_mot'));
 			if (isset($enfants[$type]))
-				foreach($enfants[$type] as $t)
+				foreach ($enfants[$type] as $t)
 					if (isset($reference[$t])
 						// cas de la reference donnee dynamiquement par la pagination
 						OR isset($reference["@$t"])) {
 						$type = $t;
-						$principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
+						$principal = isset($reference[$type]) ? $reference[$type] : $reference["@$type"];
 						continue;
 					}
 		}
 		$exposer[$m][$type] = array();
 		if ($principal) {
-			$principaux = is_array($principal)?$principal:array($principal);
-			foreach($principaux as $principal){
+			$principaux = is_array($principal) ? $principal : array($principal);
+			foreach ($principaux as $principal) {
 				$exposer[$m][$type][$principal] = true;
-				if ($type == 'id_mot'){
+				if ($type == 'id_mot') {
 					if (!$parent) {
-						$parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
+						$parent = sql_getfetsel('id_groupe', 'spip_mots', "id_mot=".intval($principal), '', '', '', '', $connect);
 					}
 					if ($parent)
 						$exposer[$m]['id_groupe'][$parent] = true;
@@ -442,7 +440,7 @@ 
 				  	if ($type == 'id_rubrique')
 				  		$parent = $principal;
 				  	if ($type == 'id_article') {
-						$parent = quete_rubrique($principal,$connect);
+						$parent = quete_rubrique($principal, $connect);
 				  	}
 				  }
 				  do { $exposer[$m]['id_rubrique'][$parent] = true; }
@@ -466,21 +464,21 @@ 
  * @param objetc $iter
  * @return int
  */
-function quete_debut_pagination($primary,$valeur,$pas,$iter){
+function quete_debut_pagination($primary, $valeur, $pas, $iter) {
 	// on ne devrait pas arriver ici si la cle primaire est inexistante
 	// ou composee, mais verifions
-	if (!$primary OR preg_match('/[,\s]/',$primary))
+	if (!$primary OR preg_match('/[,\s]/', $primary))
 		return 0;
 
 	$pos = 0;
-	while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
+	while ($row = $iter->fetch() AND $row[$primary] != $valeur) {
 		$pos++;
 	}
 	// si on a pas trouve
-	if ($row[$primary]!=$valeur)
+	if ($row[$primary] != $valeur)
 		return 0;
 
 	// sinon, calculer le bon numero de page
-	return floor($pos/$pas)*$pas;
+	return floor($pos / $pas) * $pas;
 }
 ?>

Braces +86 added lines, -58 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 //
 // Fonctions d'appel aux serveurs SQL presentes dans le code compile
@@ -48,18 +50,19 @@ 
 	if (!isset($cache_quete[$connect][$table][$id])) {
 		if (!isset($cache_quete[$connect][$table]['_select'])){
 			$trouver_table = charger_fonction('trouver_table','base');
-			if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
-				// pas de parent rubrique, on passe
-				$cache_quete[$connect][$table]['_select'] = false; 
-			else {
+			if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique'])) {
+							// pas de parent rubrique, on passe
+				$cache_quete[$connect][$table]['_select'] = false;
+			} else {
 				$select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
 				$select .= isset($desc['field']['lang'])?", lang":"";
 				$cache_quete[$connect][$table]['_select'] = $select;
 				$cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
 			}
 		}
-		if ($cache_quete[$connect][$table]['_select'])
-			$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
+		if ($cache_quete[$connect][$table]['_select']) {
+					$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
+		}
 	}
 	return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
 }
@@ -77,8 +80,9 @@ 
  * @return int
  */
 function quete_parent($id_rubrique, $connect='') {
-	if (!$id_rubrique = intval($id_rubrique))
-		return 0;
+	if (!$id_rubrique = intval($id_rubrique)) {
+			return 0;
+	}
 	$id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
 	return $id_parent['id_parent'];
 }
@@ -126,8 +130,9 @@ 
  * @return string
  */
 function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		return "1=1";
+	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu) {
+			return "1=1";
+	}
 	return
 	  (isset($GLOBALS['meta']['date_prochain_postdate'])
 	     AND $GLOBALS['meta']['date_prochain_postdate'] > time())
@@ -153,19 +158,23 @@ 
 	static $cond = array();
 	$key = func_get_args();
 	$key = implode("-",$key);
-	if (isset($cond[$key])) return $cond[$key];
+	if (isset($cond[$key])) {
+	    return $cond[$key];
+	}
 
 	$liste = $publie;
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		$liste = $previsu;
+	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu) {
+			$liste = $previsu;
+	}
 	$not = false;
 	if (strncmp($liste,'!',1)==0){
 		$not = true;
 	  $liste = substr($liste,1);
 	}
 	// '' => ne rien afficher, '!'=> ne rien filtrer
-	if (!strlen($liste))
-		return $cond[$key]=($not?"1=1":"'0=1'");
+	if (!strlen($liste)) {
+			return $cond[$key]=($not?"1=1":"'0=1'");
+	}
 
 	$liste = explode(',',$liste);
 	$where = array();
@@ -188,8 +197,9 @@ 
 				$where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
 			}
 			// ignorer ce statut si on ne sait pas comment le filtrer
-			else
-				$v = "";
+			else {
+							$v = "";
+			}
 		}
 		// securite
 		$liste[$k] = preg_replace(",\W,","",$v);
@@ -197,8 +207,7 @@ 
 	$liste = array_filter($liste);
   if (count($liste)==1){
 		$where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
-  }
-  else {
+  } else {
 	  $where[] = sql_in($mstatut,$liste,$not,$serveur);
   }
 
@@ -207,8 +216,9 @@ 
 		$where[] = $and;
 	}
 	$cond[$key] = reset($where);
-	if ($not)
-		$cond[$key] = array('NOT',$cond[$key]);
+	if ($not) {
+			$cond[$key] = array('NOT',$cond[$key]);
+	}
 
 	return $cond[$key];
 }
@@ -266,16 +276,17 @@ 
  */
 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
 	static $chercher_logo;
-	if (is_null($chercher_logo))
-		$chercher_logo = charger_fonction('chercher_logo', 'inc');
+	if (is_null($chercher_logo)) {
+			$chercher_logo = charger_fonction('chercher_logo', 'inc');
+	}
 	$nom = strtolower($onoff);
 
 	while (1) {
 		$on = $chercher_logo($id, $type, $nom);
 		if ($on) {
-			if ($flag)
-				return "$on[2].$on[3]";
-			else {
+			if ($flag) {
+							return "$on[2].$on[3]";
+			} else {
 				$taille = @getimagesize($on[0]);
 				$off = ($onoff != 'ON') ? '' :
 					$chercher_logo($id, $type, 'off');
@@ -286,16 +297,17 @@ 
 					($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
 					(!$taille ? '' : (" ".$taille[3])));
 			}
-		}
-        else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE'))
-            return '';
-		else if ($id_rubrique) {
+		} else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE')) {
+                    return '';
+        } else if ($id_rubrique) {
 			$type = 'id_rubrique';
 			$id = $id_rubrique;
 			$id_rubrique = 0;
-		} else if ($id AND $type == 'id_rubrique')
-			$id = quete_parent($id);
-		else return '';
+		} else if ($id AND $type == 'id_rubrique') {
+					$id = quete_parent($id);
+		} else {
+		    return '';
+		}
 	}
 }
 
@@ -311,7 +323,9 @@ 
 function quete_logo_file($row, $connect=NULL) {
 	include_spip('inc/documents');
 	$logo = vignette_logo_document($row, $connect);
-	if (!$logo) $logo = image_du_document($row);
+	if (!$logo) {
+	    $logo = image_du_document($row);
+	}
 	if (!$logo){
 		$f = charger_fonction('vignette','inc');
 		$logo = $f($row['extension'], false);
@@ -319,8 +333,9 @@ 
 	// si c'est une vignette type doc, la renvoyer direct
 	if (strcmp($logo,_DIR_PLUGINS)==0
 		OR strcmp($logo,_DIR_PLUGINS_DIST)==0
-		OR strcmp($logo,_DIR_RACINE.'prive/')==0)
-		return $logo;
+		OR strcmp($logo,_DIR_RACINE.'prive/')==0) {
+			return $logo;
+	}
 	return get_spip_doc($logo);
 }
 
@@ -350,13 +365,16 @@ 
 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
 	include_spip('inc/documents');
 	$logo = '';
-	if (!in_array($mode_logo,array('icone','apercu')))
-		$logo = vignette_logo_document($row, $connect);
+	if (!in_array($mode_logo,array('icone','apercu'))) {
+			$logo = vignette_logo_document($row, $connect);
+	}
 	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
-	if ($mode_logo == 'vignette' AND !$logo)
-		return '';
-	if ($mode_logo == 'icone')
-		$row['fichier'] = '';
+	if ($mode_logo == 'vignette' AND !$logo) {
+			return '';
+	}
+	if ($mode_logo == 'icone') {
+			$row['fichier'] = '';
+	}
 	return vignette_automatique($logo, $row, $lien, $x, $y, $align);
 }
 
@@ -371,7 +389,9 @@ 
  */
 function vignette_logo_document($row, $connect='')
 {
-	if (!$row['id_vignette']) return '';
+	if (!$row['id_vignette']) {
+	    return '';
+	}
 	$fichier = quete_fichier($row['id_vignette'], $connect);
 	if ($connect) {
 		$site = quete_meta('adresse_site', $connect);
@@ -379,8 +399,12 @@ 
 		return "$site/$dir$fichier";
 	}
 	$f = get_spip_doc($fichier);
-	if ($f AND @file_exists($f)) return $f;
-	if ($row['mode'] !== 'vignette') return '';
+	if ($f AND @file_exists($f)) {
+	    return $f;
+	}
+	if ($row['mode'] !== 'vignette') {
+	    return '';
+	}
 	return generer_url_entite($row['id_document'], 'document','','', $connect);
 }
 
@@ -415,12 +439,13 @@ 
 		$parent = 0;
 		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
 			$enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
-			if (isset($enfants[$type]))
-				foreach($enfants[$type] as $t)
+			if (isset($enfants[$type])) {
+							foreach($enfants[$type] as $t)
 					if (isset($reference[$t])
 						// cas de la reference donnee dynamiquement par la pagination
 						OR isset($reference["@$t"])) {
 						$type = $t;
+			}
 						$principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
 						continue;
 					}
@@ -434,13 +459,14 @@ 
 					if (!$parent) {
 						$parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
 					}
-					if ($parent)
-						$exposer[$m]['id_groupe'][$parent] = true;
-				}
-				else if ($type != 'id_groupe') {
+					if ($parent) {
+											$exposer[$m]['id_groupe'][$parent] = true;
+					}
+				} else if ($type != 'id_groupe') {
 				  if (!$parent) {
-				  	if ($type == 'id_rubrique')
-				  		$parent = $principal;
+				  	if ($type == 'id_rubrique') {
+				  					  		$parent = $principal;
+				  	}
 				  	if ($type == 'id_article') {
 						$parent = quete_rubrique($principal,$connect);
 				  	}
@@ -469,16 +495,18 @@ 
 function quete_debut_pagination($primary,$valeur,$pas,$iter){
 	// on ne devrait pas arriver ici si la cle primaire est inexistante
 	// ou composee, mais verifions
-	if (!$primary OR preg_match('/[,\s]/',$primary))
-		return 0;
+	if (!$primary OR preg_match('/[,\s]/',$primary)) {
+			return 0;
+	}
 
 	$pos = 0;
 	while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
 		$pos++;
 	}
 	// si on a pas trouve
-	if ($row[$primary]!=$valeur)
-		return 0;
+	if ($row[$primary]!=$valeur) {
+			return 0;
+	}
 
 	// sinon, calculer le bon numero de page
 	return floor($pos/$pas)*$pas;

ecrire/req/sqlite_fonctions.php

Doc Comments +6 added lines

@@ -21,6 +21,9 @@ 
  * 
  */
 // http://doc.spip.org/@_sqlite_init_functions
+/**
+ * @param PDO $sqlite
+ */
 function _sqlite_init_functions(&$sqlite){
 	
 	if (!$sqlite) return false;
@@ -89,6 +92,9 @@ 
 
 // permet au besoin de charger des fonctions ailleurs par _sqlite_init_functions();
 // http://doc.spip.org/@_sqlite_add_function
+/**
+ * @param string $f
+ */
 function _sqlite_add_function(&$sqlite, &$f, &$r){
 	if (_sqlite_is_version(3, $sqlite)){
 		isset($r[1])

Indentation +186 added lines, -186 removed lines

@@ -23,82 +23,82 @@ 
 // http://doc.spip.org/@_sqlite_init_functions
 function _sqlite_init_functions(&$sqlite){
 	
-	if (!$sqlite) return false;
+    if (!$sqlite) return false;
 
 	
-	$fonctions = array(
-		'CONCAT'		=> array( '_sqlite_func_concat'			,-1),
-		'CEIL'      => array( '_sqlite_func_ceil', 1), // absent de sqlite2
+    $fonctions = array(
+        'CONCAT'		=> array( '_sqlite_func_concat'			,-1),
+        'CEIL'      => array( '_sqlite_func_ceil', 1), // absent de sqlite2
 		
-		'DATE_FORMAT'	=> array( '_sqlite_func_strftime'		,2),
-		'DAYOFMONTH'	=> array( '_sqlite_func_dayofmonth'		,1),
+        'DATE_FORMAT'	=> array( '_sqlite_func_strftime'		,2),
+        'DAYOFMONTH'	=> array( '_sqlite_func_dayofmonth'		,1),
 
-		'EXTRAIRE_MULTI' => array( '_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
-		'EXP'			=> array( 'exp'							,1),//exponentielle
-		'FIND_IN_SET'	=> array( '_sqlite_func_find_in_set'	,2),
-		'FLOOR'      => array( '_sqlite_func_floor', 1), // absent de sqlite2
+        'EXTRAIRE_MULTI' => array( '_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
+        'EXP'			=> array( 'exp'							,1),//exponentielle
+        'FIND_IN_SET'	=> array( '_sqlite_func_find_in_set'	,2),
+        'FLOOR'      => array( '_sqlite_func_floor', 1), // absent de sqlite2
 
-		'IF'			=> array( '_sqlite_func_if' 			,3),
-		'INSERT'		=> array( '_sqlite_func_insert'			,4),		
-		'INSTR'			=> array( '_sqlite_func_instr'			,2),
+        'IF'			=> array( '_sqlite_func_if' 			,3),
+        'INSERT'		=> array( '_sqlite_func_insert'			,4),		
+        'INSTR'			=> array( '_sqlite_func_instr'			,2),
 
-		'LEAST'			=> array( '_sqlite_func_least'			,3),
-		'_LEFT'			=> array( '_sqlite_func_left'			,2),
+        'LEAST'			=> array( '_sqlite_func_least'			,3),
+        '_LEFT'			=> array( '_sqlite_func_left'			,2),
 #		'LENGTH'		=> array( 'strlen'						,1), // present v1.0.4
 #		'LOWER'			=> array( 'strtolower'					,1), // present v2.4
 #		'LTRIM'			=> array( 'ltrim'						,1), // present en theorie
 
-		'NOW'			=> array( '_sqlite_func_now'			,0),
+        'NOW'			=> array( '_sqlite_func_now'			,0),
 		
-		'MD5'			=> array( 'md5'							,1),
-		'MONTH'			=> array( '_sqlite_func_month'			,1),
+        'MD5'			=> array( 'md5'							,1),
+        'MONTH'			=> array( '_sqlite_func_month'			,1),
 		
-		'PREG_REPLACE'	=> array( '_sqlite_func_preg_replace'	,3),	
+        'PREG_REPLACE'	=> array( '_sqlite_func_preg_replace'	,3),	
 		
-		'RAND'			=> array( '_sqlite_func_rand'			,0), // sinon random() v2.4
-		'REGEXP'		=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
-		//'REGEXP_MATCH'	=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
+        'RAND'			=> array( '_sqlite_func_rand'			,0), // sinon random() v2.4
+        'REGEXP'		=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
+        //'REGEXP_MATCH'	=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
 
-		'RIGHT'			=> array( '_sqlite_func_right'			,2),
+        'RIGHT'			=> array( '_sqlite_func_right'			,2),
 #		'RTRIM'			=> array( 'rtrim'						,1), // present en theorie
 
-		'SETTYPE'		=> array( 'settype'						,2), // CAST present en v3.2.3
-		'SQRT'			=> array( 'sqrt'						,1), 
-		'SUBSTRING'		=> array( '_sqlite_func_substring'						/*,3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
+        'SETTYPE'		=> array( 'settype'						,2), // CAST present en v3.2.3
+        'SQRT'			=> array( 'sqrt'						,1), 
+        'SUBSTRING'		=> array( '_sqlite_func_substring'						/*,3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
 		
-		'TO_DAYS'		=> array( '_sqlite_func_to_days'		,1),
+        'TO_DAYS'		=> array( '_sqlite_func_to_days'		,1),
 #		'TRIM'			=> array( 'trim'						,1), // present en theorie
 
-		'TIMESTAMPDIFF' => array('_sqlite_timestampdiff'		/*,3*/),
+        'TIMESTAMPDIFF' => array('_sqlite_timestampdiff'		/*,3*/),
 
-		'UNIX_TIMESTAMP'=> array( '_sqlite_func_unix_timestamp'	,1),
+        'UNIX_TIMESTAMP'=> array( '_sqlite_func_unix_timestamp'	,1),
 #		'UPPER'			=> array( 'strtoupper'					,1), // present v2.4		
 
-		'VIDE'			=> array( '_sqlite_func_vide'			,0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
+        'VIDE'			=> array( '_sqlite_func_vide'			,0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
 			
-		'YEAR'			=> array( '_sqlite_func_year'			,1)
-	);
+        'YEAR'			=> array( '_sqlite_func_year'			,1)
+    );
 	
 
-	foreach ($fonctions as $f=>$r){
-		_sqlite_add_function($sqlite, $f, $r);
-	}
+    foreach ($fonctions as $f=>$r){
+        _sqlite_add_function($sqlite, $f, $r);
+    }
 
-	#spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
+    #spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
 }
 
 // permet au besoin de charger des fonctions ailleurs par _sqlite_init_functions();
 // http://doc.spip.org/@_sqlite_add_function
 function _sqlite_add_function(&$sqlite, &$f, &$r){
-	if (_sqlite_is_version(3, $sqlite)){
-		isset($r[1])
-			?$sqlite->sqliteCreateFunction($f, $r[0], $r[1])
-			:$sqlite->sqliteCreateFunction($f, $r[0]);
-	} else {
-		isset($r[1])
-			?sqlite_create_function($sqlite, $f, $r[0], $r[1])	
-			:sqlite_create_function($sqlite, $f, $r[0]);
-	}
+    if (_sqlite_is_version(3, $sqlite)){
+        isset($r[1])
+            ?$sqlite->sqliteCreateFunction($f, $r[0], $r[1])
+            :$sqlite->sqliteCreateFunction($f, $r[0]);
+    } else {
+        isset($r[1])
+            ?sqlite_create_function($sqlite, $f, $r[0], $r[1])	
+            :sqlite_create_function($sqlite, $f, $r[0]);
+    }
 }
 
 //
@@ -107,34 +107,34 @@ 
 //
 
 function _sqlite_func_ceil($a) {
-	return ceil($a);
+    return ceil($a);
 }
 
 // http://doc.spip.org/@_sqlite_func_concat
 function _sqlite_func_concat () {
-	$args = func_get_args();
-	return join('',$args);
+    $args = func_get_args();
+    return join('',$args);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_dayofmonth
 function _sqlite_func_dayofmonth ($d) {
-	return _sqlite_func_date("d",$d);
+    return _sqlite_func_date("d",$d);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_find_in_set
 function _sqlite_func_find_in_set($num, $set) {
-  $rank=0;
-  foreach (explode(",",$set) as $v) {
-   if ($v == $num) return (++$rank);
-   $rank++;
-  }
-  return 0;
+    $rank=0;
+    foreach (explode(",",$set) as $v) {
+    if ($v == $num) return (++$rank);
+    $rank++;
+    }
+    return 0;
 }
 
 function _sqlite_func_floor($a) {
-	return floor($a);
+    return floor($a);
 }
 
 // http://doc.spip.org/@_sqlite_func_if
@@ -150,10 +150,10 @@ 
  */ 
 // http://doc.spip.org/@_sqlite_func_insert
 function _sqlite_func_insert ($s, $index, $longueur, $chaine) {
-	return
-			substr($s,0, $index)
-		. $chaine
-		. substr(substr($s, $index), $longueur);
+    return
+            substr($s,0, $index)
+        . $chaine
+        . substr(substr($s, $index), $longueur);
 }
 
 
@@ -165,10 +165,10 @@ 
 
 // http://doc.spip.org/@_sqlite_func_least
 function _sqlite_func_least () {
-	$arg_list = func_get_args();
+    $arg_list = func_get_args();
     $least = min($arg_list);
-	#spip_log("Passage avec LEAST : $least",'sqlite.'._LOG_DEBUG);
-	return $least;
+    #spip_log("Passage avec LEAST : $least",'sqlite.'._LOG_DEBUG);
+    return $least;
 }
 
 
@@ -180,26 +180,26 @@ 
 
 // http://doc.spip.org/@_sqlite_func_now
 function _sqlite_func_now(){
-	static $now = null;
-	if (is_null($now))
-		$now = date("Y-m-d H:i:s");
-	#spip_log("Passage avec NOW : $now",'sqlite.'._LOG_DEBUG);
-	return $now;
+    static $now = null;
+    if (is_null($now))
+        $now = date("Y-m-d H:i:s");
+    #spip_log("Passage avec NOW : $now",'sqlite.'._LOG_DEBUG);
+    return $now;
 }
 
 
 // http://doc.spip.org/@_sqlite_func_month
 function _sqlite_func_month ($d) {
-	return _sqlite_func_date("m",$d);
+    return _sqlite_func_date("m",$d);
 }
 
 
 
 // http://doc.spip.org/@_sqlite_func_preg_replace
 function _sqlite_func_preg_replace($quoi, $cherche, $remplace) {
-	$return = preg_replace('%'.$cherche.'%', $remplace, $quoi);
-	#spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    $return = preg_replace('%'.$cherche.'%', $remplace, $quoi);
+    #spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 /**
@@ -210,51 +210,51 @@ 
  * @return string, l'extrait trouve.
 **/
 function _sqlite_func_extraire_multi($quoi, $lang) {
-	if (!defined('_EXTRAIRE_MULTI'))
-		include_spip('inc/filtres');
-	if (!function_exists('approcher_langue'))
-		include_spip('inc/lang');
-	if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
-		foreach ($regs as $reg) {
-			// chercher la version de la langue courante
-			$trads = extraire_trads($reg[1]);
-			if ($l = approcher_langue($trads, $lang)) {
-				$trad = $trads[$l];
-			} else {
-				$trad = reset($trads);
-			}
-			$quoi = str_replace($reg[0], $trad, $quoi);
-		}
-	}
-	return $quoi;
+    if (!defined('_EXTRAIRE_MULTI'))
+        include_spip('inc/filtres');
+    if (!function_exists('approcher_langue'))
+        include_spip('inc/lang');
+    if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
+        foreach ($regs as $reg) {
+            // chercher la version de la langue courante
+            $trads = extraire_trads($reg[1]);
+            if ($l = approcher_langue($trads, $lang)) {
+                $trad = $trads[$l];
+            } else {
+                $trad = reset($trads);
+            }
+            $quoi = str_replace($reg[0], $trad, $quoi);
+        }
+    }
+    return $quoi;
 }
 
 
 // http://doc.spip.org/@_sqlite_func_rand
 function _sqlite_func_rand() {
-	return rand();
+    return rand();
 }
 
 
 // http://doc.spip.org/@_sqlite_func_right
 function _sqlite_func_right ($s, $length) {
-	return substr($s,0 - $length);
+    return substr($s,0 - $length);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_regexp_match
 function _sqlite_func_regexp_match($cherche, $quoi) {
-	// optimiser un cas tres courant avec les requetes en base
-	if (!$quoi AND !strlen($quoi)) return false;
-	$u = $GLOBALS['meta']['pcre_u'];
-	$return = preg_match('%'.$cherche.'%imsS'.$u, $quoi);
-	#spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    // optimiser un cas tres courant avec les requetes en base
+    if (!$quoi AND !strlen($quoi)) return false;
+    $u = $GLOBALS['meta']['pcre_u'];
+    $return = preg_match('%'.$cherche.'%imsS'.$u, $quoi);
+    #spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 // http://doc.spip.org/@_sqlite_func_strftime
 function _sqlite_func_strftime($date, $conv){
-	return strftime($conv, is_int($date)?$date:strtotime($date));
+    return strftime($conv, is_int($date)?$date:strtotime($date));
 }
 
 /**
@@ -265,19 +265,19 @@ 
  * @return int
  */
 function _sqlite_func_to_days ($d) {
-	static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
-	$result = $offset+(int)ceil(_sqlite_func_unix_timestamp($d)/(24*3600));
-	#spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
-	return $result;
+    static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
+    $result = $offset+(int)ceil(_sqlite_func_unix_timestamp($d)/(24*3600));
+    #spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
+    return $result;
 }
 
 function _sqlite_func_substring($string,$start,$len=null){
-	// SQL compte a partir de 1, php a partir de 0
-	$start = ($start>0)?$start-1:$start;
-	if (is_null($len))
-		return substr($string,$start);
-	else
-		return substr($string,$start,$len);
+    // SQL compte a partir de 1, php a partir de 0
+    $start = ($start>0)?$start-1:$start;
+    if (is_null($len))
+        return substr($string,$start);
+    else
+        return substr($string,$start,$len);
 }
 
 /**
@@ -289,84 +289,84 @@ 
  * @return int
  */
 function _sqlite_timestampdiff($unit,$date1,$date2){
-	// PHP >= 5.3
-	if (function_exists("date_diff")){
-		$d1 = date_create($date1);
-		$d2 = date_create($date2);
-		$diff = date_diff($d1,$d2);
-		$inv = $diff->invert?-1:1;
-		switch($unit){
-			case "YEAR":
-				return $inv*$diff->y;
-			case "QUARTER":
-				return $inv*(4*$diff->y+intval(floor($diff->m/3)));
-			case "MONTH":
-				return $inv*(12*$diff->y+$diff->m);
-			case "WEEK":
-				return $inv*intval(floor($diff->days/7));
-			case "DAY":
-				#var_dump($inv*$diff->days);
-				return $inv*$diff->days;
-			case "HOUR":
-				return $inv*(24*$diff->days+$diff->h);
-			case "MINUTE":
-				return $inv*((24*$diff->days+$diff->h)*60+$diff->i);
-			case "SECOND":
-				return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s);
-			case "MICROSECOND":
-				return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s)*1000000;
-		}
-		return 0;
-	}
-	// PHP < 5.3
-	else {
-		$d1 = strtotime($date1);
-		$d2 = strtotime($date2);
-		$diff = $d2 - $d1;
-		$sign = ($diff<0?-1:1);
-		$diff = $sign * $diff;
-		switch($unit){
-			case "YEAR":
-				$diff = $d2-$d1;
-				return $sign*(date('Y',abs($diff))-date('Y',0));
-			case "QUARTER":
-				return $sign*(4*(date('Y',abs($diff))-date('Y',0))+intval(floor((date('m',$diff)-1)/3)));
-			case "MONTH":
-				return $sign*((date('Y',$diff)-date('Y',0))*12+date('m',$diff)-1);
-			case "WEEK":
-				return intval(floor(($d2-$d1)/3600/7));
-			case "DAY":
-				return intval(floor(($d2-$d1)/3600/24));
-			case "HOUR":
-				return intval(floor(($d2-$d1)/3600));
-			case "MINUTE":
-				return intval(floor(($d2-$d1)/60));
-			case "SECOND":
-				return $d2-$d1;
-			case "MICROSECOND":
-				return $d2-$d1*1000000;
-		}
-	}
+    // PHP >= 5.3
+    if (function_exists("date_diff")){
+        $d1 = date_create($date1);
+        $d2 = date_create($date2);
+        $diff = date_diff($d1,$d2);
+        $inv = $diff->invert?-1:1;
+        switch($unit){
+            case "YEAR":
+                return $inv*$diff->y;
+            case "QUARTER":
+                return $inv*(4*$diff->y+intval(floor($diff->m/3)));
+            case "MONTH":
+                return $inv*(12*$diff->y+$diff->m);
+            case "WEEK":
+                return $inv*intval(floor($diff->days/7));
+            case "DAY":
+                #var_dump($inv*$diff->days);
+                return $inv*$diff->days;
+            case "HOUR":
+                return $inv*(24*$diff->days+$diff->h);
+            case "MINUTE":
+                return $inv*((24*$diff->days+$diff->h)*60+$diff->i);
+            case "SECOND":
+                return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s);
+            case "MICROSECOND":
+                return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s)*1000000;
+        }
+        return 0;
+    }
+    // PHP < 5.3
+    else {
+        $d1 = strtotime($date1);
+        $d2 = strtotime($date2);
+        $diff = $d2 - $d1;
+        $sign = ($diff<0?-1:1);
+        $diff = $sign * $diff;
+        switch($unit){
+            case "YEAR":
+                $diff = $d2-$d1;
+                return $sign*(date('Y',abs($diff))-date('Y',0));
+            case "QUARTER":
+                return $sign*(4*(date('Y',abs($diff))-date('Y',0))+intval(floor((date('m',$diff)-1)/3)));
+            case "MONTH":
+                return $sign*((date('Y',$diff)-date('Y',0))*12+date('m',$diff)-1);
+            case "WEEK":
+                return intval(floor(($d2-$d1)/3600/7));
+            case "DAY":
+                return intval(floor(($d2-$d1)/3600/24));
+            case "HOUR":
+                return intval(floor(($d2-$d1)/3600));
+            case "MINUTE":
+                return intval(floor(($d2-$d1)/60));
+            case "SECOND":
+                return $d2-$d1;
+            case "MICROSECOND":
+                return $d2-$d1*1000000;
+        }
+    }
 }
 
 // http://doc.spip.org/@_sqlite_func_unix_timestamp
 function _sqlite_func_unix_timestamp($d) {
-	static $mem = array();
-	static $n = 0;
-	if (isset($mem[$d])) return $mem[$d];
-	if ($n++>100) {$mem = array();$n=0;}
-
-	//2005-12-02 20:53:53
-	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
-	if (!$d) return $mem[$d] = mktime();
-	// une pile plus grosse n'accelere pas le calcul
-	return $mem[$d] = strtotime($d);
+    static $mem = array();
+    static $n = 0;
+    if (isset($mem[$d])) return $mem[$d];
+    if ($n++>100) {$mem = array();$n=0;}
+
+    //2005-12-02 20:53:53
+    #spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
+    if (!$d) return $mem[$d] = mktime();
+    // une pile plus grosse n'accelere pas le calcul
+    return $mem[$d] = strtotime($d);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_year
 function _sqlite_func_year ($d) {
-	return _sqlite_func_date("Y",$d);
+    return _sqlite_func_date("Y",$d);
 }
 
 /**
@@ -379,19 +379,19 @@ 
  * @return int
  */
 function _sqlite_func_date($quoi,$d) {
-	static $mem = array();
-	static $n = 0;
-	if (isset($mem[$d])) return $mem[$d][$quoi];
-	if ($n++>100) {$mem = array();$n=0;}
-
-	$dec = date("Y-m-d",_sqlite_func_unix_timestamp($d));
-	$mem[$d] = array("Y"=>substr($dec,0,4),"m"=>substr($dec,5,2),"d"=>substr($dec,8,2));
-	return $mem[$d][$quoi];
+    static $mem = array();
+    static $n = 0;
+    if (isset($mem[$d])) return $mem[$d][$quoi];
+    if ($n++>100) {$mem = array();$n=0;}
+
+    $dec = date("Y-m-d",_sqlite_func_unix_timestamp($d));
+    $mem[$d] = array("Y"=>substr($dec,0,4),"m"=>substr($dec,5,2),"d"=>substr($dec,8,2));
+    return $mem[$d][$quoi];
 }
 
 // http://doc.spip.org/@_sqlite_func_vide
 function _sqlite_func_vide(){
-	return;
+    return;
 }
 
 

Braces +36 added lines, -18 removed lines

@@ -11,7 +11,9 @@ 
 \***************************************************************************/
 
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 /*
  * Des fonctions pour les requetes SQL
@@ -23,7 +25,9 @@ 
 // http://doc.spip.org/@_sqlite_init_functions
 function _sqlite_init_functions(&$sqlite){
 	
-	if (!$sqlite) return false;
+	if (!$sqlite) {
+	    return false;
+	}
 
 	
 	$fonctions = array(
@@ -127,7 +131,9 @@ 
 function _sqlite_func_find_in_set($num, $set) {
   $rank=0;
   foreach (explode(",",$set) as $v) {
-   if ($v == $num) return (++$rank);
+   if ($v == $num) {
+       return (++$rank);
+   }
    $rank++;
   }
   return 0;
@@ -181,8 +187,9 @@ 
 // http://doc.spip.org/@_sqlite_func_now
 function _sqlite_func_now(){
 	static $now = null;
-	if (is_null($now))
-		$now = date("Y-m-d H:i:s");
+	if (is_null($now)) {
+			$now = date("Y-m-d H:i:s");
+	}
 	#spip_log("Passage avec NOW : $now",'sqlite.'._LOG_DEBUG);
 	return $now;
 }
@@ -210,10 +217,12 @@ 
  * @return string, l'extrait trouve.
 **/
 function _sqlite_func_extraire_multi($quoi, $lang) {
-	if (!defined('_EXTRAIRE_MULTI'))
-		include_spip('inc/filtres');
-	if (!function_exists('approcher_langue'))
-		include_spip('inc/lang');
+	if (!defined('_EXTRAIRE_MULTI')) {
+			include_spip('inc/filtres');
+	}
+	if (!function_exists('approcher_langue')) {
+			include_spip('inc/lang');
+	}
 	if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
 		foreach ($regs as $reg) {
 			// chercher la version de la langue courante
@@ -245,7 +254,9 @@ 
 // http://doc.spip.org/@_sqlite_func_regexp_match
 function _sqlite_func_regexp_match($cherche, $quoi) {
 	// optimiser un cas tres courant avec les requetes en base
-	if (!$quoi AND !strlen($quoi)) return false;
+	if (!$quoi AND !strlen($quoi)) {
+	    return false;
+	}
 	$u = $GLOBALS['meta']['pcre_u'];
 	$return = preg_match('%'.$cherche.'%imsS'.$u, $quoi);
 	#spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
@@ -274,11 +285,12 @@ 
 function _sqlite_func_substring($string,$start,$len=null){
 	// SQL compte a partir de 1, php a partir de 0
 	$start = ($start>0)?$start-1:$start;
-	if (is_null($len))
-		return substr($string,$start);
-	else
-		return substr($string,$start,$len);
-}
+	if (is_null($len)) {
+			return substr($string,$start);
+	} else {
+			return substr($string,$start,$len);
+	}
+	}
 
 /**
  * Calcul de la difference entre 2 timestamp, exprimes dans l'unite fournie en premier argument
@@ -353,12 +365,16 @@ 
 function _sqlite_func_unix_timestamp($d) {
 	static $mem = array();
 	static $n = 0;
-	if (isset($mem[$d])) return $mem[$d];
+	if (isset($mem[$d])) {
+	    return $mem[$d];
+	}
 	if ($n++>100) {$mem = array();$n=0;}
 
 	//2005-12-02 20:53:53
 	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
-	if (!$d) return $mem[$d] = mktime();
+	if (!$d) {
+	    return $mem[$d] = mktime();
+	}
 	// une pile plus grosse n'accelere pas le calcul
 	return $mem[$d] = strtotime($d);
 }
@@ -381,7 +397,9 @@ 
 function _sqlite_func_date($quoi,$d) {
 	static $mem = array();
 	static $n = 0;
-	if (isset($mem[$d])) return $mem[$d][$quoi];
+	if (isset($mem[$d])) {
+	    return $mem[$d][$quoi];
+	}
 	if ($n++>100) {$mem = array();$n=0;}
 
 	$dec = date("Y-m-d",_sqlite_func_unix_timestamp($d));

Spacing +94 added lines, -94 removed lines

@@ -21,66 +21,66 @@ 
  * 
  */
 // http://doc.spip.org/@_sqlite_init_functions
-function _sqlite_init_functions(&$sqlite){
+function _sqlite_init_functions(&$sqlite) {
 	
 	if (!$sqlite) return false;
 
 	
 	$fonctions = array(
-		'CONCAT'		=> array( '_sqlite_func_concat'			,-1),
-		'CEIL'      => array( '_sqlite_func_ceil', 1), // absent de sqlite2
+		'CONCAT'		=> array('_sqlite_func_concat', -1),
+		'CEIL'      => array('_sqlite_func_ceil', 1), // absent de sqlite2
 		
-		'DATE_FORMAT'	=> array( '_sqlite_func_strftime'		,2),
-		'DAYOFMONTH'	=> array( '_sqlite_func_dayofmonth'		,1),
+		'DATE_FORMAT'	=> array('_sqlite_func_strftime', 2),
+		'DAYOFMONTH'	=> array('_sqlite_func_dayofmonth', 1),
 
-		'EXTRAIRE_MULTI' => array( '_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
-		'EXP'			=> array( 'exp'							,1),//exponentielle
-		'FIND_IN_SET'	=> array( '_sqlite_func_find_in_set'	,2),
-		'FLOOR'      => array( '_sqlite_func_floor', 1), // absent de sqlite2
+		'EXTRAIRE_MULTI' => array('_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
+		'EXP'			=> array('exp', 1), //exponentielle
+		'FIND_IN_SET'	=> array('_sqlite_func_find_in_set', 2),
+		'FLOOR'      => array('_sqlite_func_floor', 1), // absent de sqlite2
 
-		'IF'			=> array( '_sqlite_func_if' 			,3),
-		'INSERT'		=> array( '_sqlite_func_insert'			,4),		
-		'INSTR'			=> array( '_sqlite_func_instr'			,2),
+		'IF'			=> array('_sqlite_func_if', 3),
+		'INSERT'		=> array('_sqlite_func_insert', 4),		
+		'INSTR'			=> array('_sqlite_func_instr', 2),
 
-		'LEAST'			=> array( '_sqlite_func_least'			,3),
-		'_LEFT'			=> array( '_sqlite_func_left'			,2),
+		'LEAST'			=> array('_sqlite_func_least', 3),
+		'_LEFT'			=> array('_sqlite_func_left', 2),
 #		'LENGTH'		=> array( 'strlen'						,1), // present v1.0.4
 #		'LOWER'			=> array( 'strtolower'					,1), // present v2.4
 #		'LTRIM'			=> array( 'ltrim'						,1), // present en theorie
 
-		'NOW'			=> array( '_sqlite_func_now'			,0),
+		'NOW'			=> array('_sqlite_func_now', 0),
 		
-		'MD5'			=> array( 'md5'							,1),
-		'MONTH'			=> array( '_sqlite_func_month'			,1),
+		'MD5'			=> array('md5', 1),
+		'MONTH'			=> array('_sqlite_func_month', 1),
 		
-		'PREG_REPLACE'	=> array( '_sqlite_func_preg_replace'	,3),	
+		'PREG_REPLACE'	=> array('_sqlite_func_preg_replace', 3),	
 		
-		'RAND'			=> array( '_sqlite_func_rand'			,0), // sinon random() v2.4
-		'REGEXP'		=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
+		'RAND'			=> array('_sqlite_func_rand', 0), // sinon random() v2.4
+		'REGEXP'		=> array('_sqlite_func_regexp_match', 2), // critere REGEXP supporte a partir de v3.3.2
 		//'REGEXP_MATCH'	=> array( '_sqlite_func_regexp_match'	,2), // critere REGEXP supporte a partir de v3.3.2
 
-		'RIGHT'			=> array( '_sqlite_func_right'			,2),
+		'RIGHT'			=> array('_sqlite_func_right', 2),
 #		'RTRIM'			=> array( 'rtrim'						,1), // present en theorie
 
-		'SETTYPE'		=> array( 'settype'						,2), // CAST present en v3.2.3
-		'SQRT'			=> array( 'sqrt'						,1), 
-		'SUBSTRING'		=> array( '_sqlite_func_substring'						/*,3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
+		'SETTYPE'		=> array('settype', 2), // CAST present en v3.2.3
+		'SQRT'			=> array('sqrt', 1), 
+		'SUBSTRING'		=> array('_sqlite_func_substring'						/*,3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
 		
-		'TO_DAYS'		=> array( '_sqlite_func_to_days'		,1),
+		'TO_DAYS'		=> array('_sqlite_func_to_days', 1),
 #		'TRIM'			=> array( 'trim'						,1), // present en theorie
 
 		'TIMESTAMPDIFF' => array('_sqlite_timestampdiff'		/*,3*/),
 
-		'UNIX_TIMESTAMP'=> array( '_sqlite_func_unix_timestamp'	,1),
+		'UNIX_TIMESTAMP'=> array('_sqlite_func_unix_timestamp', 1),
 #		'UPPER'			=> array( 'strtoupper'					,1), // present v2.4		
 
-		'VIDE'			=> array( '_sqlite_func_vide'			,0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
+		'VIDE'			=> array('_sqlite_func_vide', 0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
 			
-		'YEAR'			=> array( '_sqlite_func_year'			,1)
+		'YEAR'			=> array('_sqlite_func_year', 1)
 	);
 	
 
-	foreach ($fonctions as $f=>$r){
+	foreach ($fonctions as $f=>$r) {
 		_sqlite_add_function($sqlite, $f, $r);
 	}
 
@@ -89,10 +89,10 @@ 
 
 // permet au besoin de charger des fonctions ailleurs par _sqlite_init_functions();
 // http://doc.spip.org/@_sqlite_add_function
-function _sqlite_add_function(&$sqlite, &$f, &$r){
-	if (_sqlite_is_version(3, $sqlite)){
+function _sqlite_add_function(&$sqlite, &$f, &$r) {
+	if (_sqlite_is_version(3, $sqlite)) {
 		isset($r[1])
-			?$sqlite->sqliteCreateFunction($f, $r[0], $r[1])
+			? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
 			:$sqlite->sqliteCreateFunction($f, $r[0]);
 	} else {
 		isset($r[1])
@@ -111,22 +111,22 @@ 
 }
 
 // http://doc.spip.org/@_sqlite_func_concat
-function _sqlite_func_concat () {
+function _sqlite_func_concat() {
 	$args = func_get_args();
-	return join('',$args);
+	return join('', $args);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_dayofmonth
-function _sqlite_func_dayofmonth ($d) {
-	return _sqlite_func_date("d",$d);
+function _sqlite_func_dayofmonth($d) {
+	return _sqlite_func_date("d", $d);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_find_in_set
 function _sqlite_func_find_in_set($num, $set) {
-  $rank=0;
-  foreach (explode(",",$set) as $v) {
+  $rank = 0;
+  foreach (explode(",", $set) as $v) {
    if ($v == $num) return (++$rank);
    $rank++;
   }
@@ -138,8 +138,8 @@ 
 }
 
 // http://doc.spip.org/@_sqlite_func_if
-function _sqlite_func_if ($bool, $oui, $non) {
-    return ($bool)?$oui:$non;
+function _sqlite_func_if($bool, $oui, $non) {
+    return ($bool) ? $oui : $non;
 }
 
 
@@ -149,22 +149,22 @@ 
  *  a ete inseree a la position "index" en remplacant "longueur" caracteres.
  */ 
 // http://doc.spip.org/@_sqlite_func_insert
-function _sqlite_func_insert ($s, $index, $longueur, $chaine) {
+function _sqlite_func_insert($s, $index, $longueur, $chaine) {
 	return
-			substr($s,0, $index)
+			substr($s, 0, $index)
 		. $chaine
 		. substr(substr($s, $index), $longueur);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_instr
-function _sqlite_func_instr ($s, $search) {
-    return strpos($s,$search);
+function _sqlite_func_instr($s, $search) {
+    return strpos($s, $search);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_least
-function _sqlite_func_least () {
+function _sqlite_func_least() {
 	$arg_list = func_get_args();
     $least = min($arg_list);
 	#spip_log("Passage avec LEAST : $least",'sqlite.'._LOG_DEBUG);
@@ -173,13 +173,13 @@ 
 
 
 // http://doc.spip.org/@_sqlite_func_left
-function _sqlite_func_left ($s, $lenght) {
-    return substr($s,0,$lenght);
+function _sqlite_func_left($s, $lenght) {
+    return substr($s, 0, $lenght);
 }
 
 
 // http://doc.spip.org/@_sqlite_func_now
-function _sqlite_func_now(){
+function _sqlite_func_now() {
 	static $now = null;
 	if (is_null($now))
 		$now = date("Y-m-d H:i:s");
@@ -189,8 +189,8 @@ 
 
 
 // http://doc.spip.org/@_sqlite_func_month
-function _sqlite_func_month ($d) {
-	return _sqlite_func_date("m",$d);
+function _sqlite_func_month($d) {
+	return _sqlite_func_date("m", $d);
 }
 
 
@@ -237,8 +237,8 @@ 
 
 
 // http://doc.spip.org/@_sqlite_func_right
-function _sqlite_func_right ($s, $length) {
-	return substr($s,0 - $length);
+function _sqlite_func_right($s, $length) {
+	return substr($s, 0 - $length);
 }
 
 
@@ -253,8 +253,8 @@ 
 }
 
 // http://doc.spip.org/@_sqlite_func_strftime
-function _sqlite_func_strftime($date, $conv){
-	return strftime($conv, is_int($date)?$date:strtotime($date));
+function _sqlite_func_strftime($date, $conv) {
+	return strftime($conv, is_int($date) ? $date : strtotime($date));
 }
 
 /**
@@ -264,20 +264,20 @@ 
  * @param string $d
  * @return int
  */
-function _sqlite_func_to_days ($d) {
+function _sqlite_func_to_days($d) {
 	static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
-	$result = $offset+(int)ceil(_sqlite_func_unix_timestamp($d)/(24*3600));
+	$result = $offset + (int) ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
 	#spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
 	return $result;
 }
 
-function _sqlite_func_substring($string,$start,$len=null){
+function _sqlite_func_substring($string, $start, $len = null) {
 	// SQL compte a partir de 1, php a partir de 0
-	$start = ($start>0)?$start-1:$start;
+	$start = ($start > 0) ? $start - 1 : $start;
 	if (is_null($len))
-		return substr($string,$start);
+		return substr($string, $start);
 	else
-		return substr($string,$start,$len);
+		return substr($string, $start, $len);
 }
 
 /**
@@ -288,33 +288,33 @@ 
  * @param string $date2
  * @return int
  */
-function _sqlite_timestampdiff($unit,$date1,$date2){
+function _sqlite_timestampdiff($unit, $date1, $date2) {
 	// PHP >= 5.3
-	if (function_exists("date_diff")){
+	if (function_exists("date_diff")) {
 		$d1 = date_create($date1);
 		$d2 = date_create($date2);
-		$diff = date_diff($d1,$d2);
-		$inv = $diff->invert?-1:1;
-		switch($unit){
+		$diff = date_diff($d1, $d2);
+		$inv = $diff->invert ?-1 : 1;
+		switch ($unit) {
 			case "YEAR":
-				return $inv*$diff->y;
+				return $inv * $diff->y;
 			case "QUARTER":
-				return $inv*(4*$diff->y+intval(floor($diff->m/3)));
+				return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
 			case "MONTH":
-				return $inv*(12*$diff->y+$diff->m);
+				return $inv * (12 * $diff->y + $diff->m);
 			case "WEEK":
-				return $inv*intval(floor($diff->days/7));
+				return $inv * intval(floor($diff->days / 7));
 			case "DAY":
 				#var_dump($inv*$diff->days);
-				return $inv*$diff->days;
+				return $inv * $diff->days;
 			case "HOUR":
-				return $inv*(24*$diff->days+$diff->h);
+				return $inv * (24 * $diff->days + $diff->h);
 			case "MINUTE":
-				return $inv*((24*$diff->days+$diff->h)*60+$diff->i);
+				return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
 			case "SECOND":
-				return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s);
+				return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
 			case "MICROSECOND":
-				return $inv*(((24*$diff->days+$diff->h)*60+$diff->i)*60+$diff->s)*1000000;
+				return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1000000;
 		}
 		return 0;
 	}
@@ -323,28 +323,28 @@ 
 		$d1 = strtotime($date1);
 		$d2 = strtotime($date2);
 		$diff = $d2 - $d1;
-		$sign = ($diff<0?-1:1);
+		$sign = ($diff < 0 ?-1 : 1);
 		$diff = $sign * $diff;
-		switch($unit){
+		switch ($unit) {
 			case "YEAR":
-				$diff = $d2-$d1;
-				return $sign*(date('Y',abs($diff))-date('Y',0));
+				$diff = $d2 - $d1;
+				return $sign * (date('Y', abs($diff)) - date('Y', 0));
 			case "QUARTER":
-				return $sign*(4*(date('Y',abs($diff))-date('Y',0))+intval(floor((date('m',$diff)-1)/3)));
+				return $sign * (4 * (date('Y', abs($diff)) - date('Y', 0)) + intval(floor((date('m', $diff) - 1) / 3)));
 			case "MONTH":
-				return $sign*((date('Y',$diff)-date('Y',0))*12+date('m',$diff)-1);
+				return $sign * ((date('Y', $diff) - date('Y', 0)) * 12 + date('m', $diff) - 1);
 			case "WEEK":
-				return intval(floor(($d2-$d1)/3600/7));
+				return intval(floor(($d2 - $d1) / 3600 / 7));
 			case "DAY":
-				return intval(floor(($d2-$d1)/3600/24));
+				return intval(floor(($d2 - $d1) / 3600 / 24));
 			case "HOUR":
-				return intval(floor(($d2-$d1)/3600));
+				return intval(floor(($d2 - $d1) / 3600));
 			case "MINUTE":
-				return intval(floor(($d2-$d1)/60));
+				return intval(floor(($d2 - $d1) / 60));
 			case "SECOND":
-				return $d2-$d1;
+				return $d2 - $d1;
 			case "MICROSECOND":
-				return $d2-$d1*1000000;
+				return $d2 - $d1 * 1000000;
 		}
 	}
 }
@@ -354,7 +354,7 @@ 
 	static $mem = array();
 	static $n = 0;
 	if (isset($mem[$d])) return $mem[$d];
-	if ($n++>100) {$mem = array();$n=0;}
+	if ($n++ > 100) {$mem = array(); $n = 0; }
 
 	//2005-12-02 20:53:53
 	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
@@ -365,8 +365,8 @@ 
 
 
 // http://doc.spip.org/@_sqlite_func_year
-function _sqlite_func_year ($d) {
-	return _sqlite_func_date("Y",$d);
+function _sqlite_func_year($d) {
+	return _sqlite_func_date("Y", $d);
 }
 
 /**
@@ -378,19 +378,19 @@ 
  *   timestamp
  * @return int
  */
-function _sqlite_func_date($quoi,$d) {
+function _sqlite_func_date($quoi, $d) {
 	static $mem = array();
 	static $n = 0;
 	if (isset($mem[$d])) return $mem[$d][$quoi];
-	if ($n++>100) {$mem = array();$n=0;}
+	if ($n++ > 100) {$mem = array(); $n = 0; }
 
-	$dec = date("Y-m-d",_sqlite_func_unix_timestamp($d));
-	$mem[$d] = array("Y"=>substr($dec,0,4),"m"=>substr($dec,5,2),"d"=>substr($dec,8,2));
+	$dec = date("Y-m-d", _sqlite_func_unix_timestamp($d));
+	$mem[$d] = array("Y"=>substr($dec, 0, 4), "m"=>substr($dec, 5, 2), "d"=>substr($dec, 8, 2));
 	return $mem[$d][$quoi];
 }
 
 // http://doc.spip.org/@_sqlite_func_vide
-function _sqlite_func_vide(){
+function _sqlite_func_vide() {
 	return;
 }
 

ecrire/xml/sax.php

Doc Comments +9 added lines

@@ -96,6 +96,9 @@ 
 	  : xml_entites_html($data);
 }
 
+/**
+ * @param IndenteurXML $phraseur
+ */
 function xml_piElement($phraseur, $target, $data)
 {
 	$depth = $phraseur->depth;
@@ -113,6 +116,9 @@ 
 
 
 // http://doc.spip.org/@xml_defautElement
+/**
+ * @param IndenteurXML $phraseur
+ */
 function xml_defaultElement($phraseur, $data)
 {
 	$depth = $phraseur->depth;
@@ -144,6 +150,9 @@ 
 }
 
 // http://doc.spip.org/@coordonnees_erreur
+/**
+ * @param string $msg
+ */
 function coordonnees_erreur($phraseur, $msg)
 {
 	$entete_length = substr_count($phraseur->entete,"\n");

Indentation +210 added lines, -210 removed lines

@@ -21,207 +21,207 @@ 
  * @return string
  */
 function xml_entites_html($texte){
-	if (!is_string($texte) OR !$texte
-	OR strpbrk($texte, "&\"'<>")==false
-	) return $texte;
-
-	if (!function_exists('spip_htmlspecialchars'))
-		include_spip("inc/filtres_mini");
-	$texte = spip_htmlspecialchars($texte,ENT_QUOTES);
-	return $texte;
+    if (!is_string($texte) OR !$texte
+    OR strpbrk($texte, "&\"'<>")==false
+    ) return $texte;
+
+    if (!function_exists('spip_htmlspecialchars'))
+        include_spip("inc/filtres_mini");
+    $texte = spip_htmlspecialchars($texte,ENT_QUOTES);
+    return $texte;
 }
 
 // http://doc.spip.org/@xml_debutElement
 function xml_debutElement($phraseur, $name, $attrs)
 {
-	$depth = $phraseur->depth;
-
-	$t = isset($phraseur->ouvrant[$depth]) ? $phraseur->ouvrant[$depth] : ' ';
-	// espace initial signifie: deja integree au resultat
-	if ($t[0] != ' ')
-	  {
-	    $phraseur->res .= '<' . $t . '>';
-	    $phraseur->ouvrant[$depth] = ' ' . $t;
-	  }
-	$t = $phraseur->contenu[$depth];
-	// n'indenter que s'il y a un separateur avant
-	$phraseur->res .= preg_replace("/[\n\t ]+$/",  "\n$depth", $t);
-	$phraseur->contenu[$depth] = "";
-	$att = '';
-	$sep = ' ';
-	foreach ($attrs as $k => $v) {
-	  $delim = strpos($v, "'") === false ? "'" : '"';
-	  $val = xml_entites_html($v);
-	  $att .= $sep .  $k . "=" . $delim
-	    . ($delim !== '"' ? str_replace('&quot;', '"', $val) : $val)
-	    . $delim;
-	  $sep = "\n $depth";
-	}
-	$phraseur->depth .= '  ';
-	$phraseur->contenu[$phraseur->depth] = "";
-	$phraseur->ouvrant[$phraseur->depth] = $name . $att;
-	$phraseur->reperes[$phraseur->depth] = xml_get_current_line_number($phraseur->sax);
+    $depth = $phraseur->depth;
+
+    $t = isset($phraseur->ouvrant[$depth]) ? $phraseur->ouvrant[$depth] : ' ';
+    // espace initial signifie: deja integree au resultat
+    if ($t[0] != ' ')
+        {
+        $phraseur->res .= '<' . $t . '>';
+        $phraseur->ouvrant[$depth] = ' ' . $t;
+        }
+    $t = $phraseur->contenu[$depth];
+    // n'indenter que s'il y a un separateur avant
+    $phraseur->res .= preg_replace("/[\n\t ]+$/",  "\n$depth", $t);
+    $phraseur->contenu[$depth] = "";
+    $att = '';
+    $sep = ' ';
+    foreach ($attrs as $k => $v) {
+        $delim = strpos($v, "'") === false ? "'" : '"';
+        $val = xml_entites_html($v);
+        $att .= $sep .  $k . "=" . $delim
+        . ($delim !== '"' ? str_replace('&quot;', '"', $val) : $val)
+        . $delim;
+        $sep = "\n $depth";
+    }
+    $phraseur->depth .= '  ';
+    $phraseur->contenu[$phraseur->depth] = "";
+    $phraseur->ouvrant[$phraseur->depth] = $name . $att;
+    $phraseur->reperes[$phraseur->depth] = xml_get_current_line_number($phraseur->sax);
 }
 
 // http://doc.spip.org/@xml_finElement
 function xml_finElement($phraseur, $name, $fusion_bal=false)
 {
-	$ouv = $phraseur->ouvrant[$phraseur->depth];
-
-	if ($ouv[0] != ' ')
-		$phraseur->ouvrant[$phraseur->depth] = ' ' . $ouv;
-	else $ouv= "";
-	$t = $phraseur->contenu[$phraseur->depth];
-	$phraseur->depth = substr($phraseur->depth, 2);
-	$t = preg_replace("/[\n\t ]+$/", "\n" . $phraseur->depth, $t);
-
-  // fusion <balise></balise> en <balise />.
-  // ATTENTION,  certains clients http croient que fusion ==> pas d'atttributs
-  // en particulier pour les balises Script et A.
-  // en presence d'attributs ne le faire que si la DTD est dispo et d'accord
-  // (param fusion_bal)
-
-	if ($t || (($ouv != $name) AND !$fusion_bal))
-	  $phraseur->res .= ($ouv ? ('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
-	else
-	  $phraseur->res .= ($ouv ? ('<' . $ouv  . ' />') : ("</" .  $name . ">"));
+    $ouv = $phraseur->ouvrant[$phraseur->depth];
+
+    if ($ouv[0] != ' ')
+        $phraseur->ouvrant[$phraseur->depth] = ' ' . $ouv;
+    else $ouv= "";
+    $t = $phraseur->contenu[$phraseur->depth];
+    $phraseur->depth = substr($phraseur->depth, 2);
+    $t = preg_replace("/[\n\t ]+$/", "\n" . $phraseur->depth, $t);
+
+    // fusion <balise></balise> en <balise />.
+    // ATTENTION,  certains clients http croient que fusion ==> pas d'atttributs
+    // en particulier pour les balises Script et A.
+    // en presence d'attributs ne le faire que si la DTD est dispo et d'accord
+    // (param fusion_bal)
+
+    if ($t || (($ouv != $name) AND !$fusion_bal))
+        $phraseur->res .= ($ouv ? ('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
+    else
+        $phraseur->res .= ($ouv ? ('<' . $ouv  . ' />') : ("</" .  $name . ">"));
 }
 
 // http://doc.spip.org/@xml_textElement
 function xml_textElement($phraseur, $data)
 {
-	$depth = $phraseur->depth;
-	$phraseur->contenu[$depth] .= preg_match('/^script/',$phraseur->ouvrant[$depth])
-	  ? $data
-	  : xml_entites_html($data);
+    $depth = $phraseur->depth;
+    $phraseur->contenu[$depth] .= preg_match('/^script/',$phraseur->ouvrant[$depth])
+      ? $data
+      : xml_entites_html($data);
 }
 
 function xml_piElement($phraseur, $target, $data)
 {
-	$depth = $phraseur->depth;
-
-	if (strtolower($target) != "php")
-	  $phraseur->contenu[$depth] .= $data;
-	else {
-		ob_start();
-		eval($data);
-		$data = ob_get_contents();
-		ob_end_clean();
-		$phraseur->contenu[$depth] .= $data;
-	}
+    $depth = $phraseur->depth;
+
+    if (strtolower($target) != "php")
+        $phraseur->contenu[$depth] .= $data;
+    else {
+        ob_start();
+        eval($data);
+        $data = ob_get_contents();
+        ob_end_clean();
+        $phraseur->contenu[$depth] .= $data;
+    }
 }
 
 
 // http://doc.spip.org/@xml_defautElement
 function xml_defaultElement($phraseur, $data)
 {
-	$depth = $phraseur->depth;
+    $depth = $phraseur->depth;
 
-	if (!isset($phraseur->contenu[$depth])) $phraseur->contenu[$depth]='';
-	$phraseur->contenu[$depth] .= $data;
+    if (!isset($phraseur->contenu[$depth])) $phraseur->contenu[$depth]='';
+    $phraseur->contenu[$depth] .= $data;
 }
 
 // http://doc.spip.org/@xml_parsestring
 function xml_parsestring($phraseur, $data)
 {
-	$phraseur->contenu[$phraseur->depth] ='';
-
-	if (!xml_parse($phraseur->sax, $data, true)) {
-		coordonnees_erreur($phraseur,
-			xml_error_string(xml_get_error_code($phraseur->sax))
-			. "<br />\n" .
-			(!$phraseur->depth ? '' :
-			 ('(' .
-			  _T('erreur_balise_non_fermee') .
-			  " <tt>" .
-			  $phraseur->ouvrant[$phraseur->depth] .
-			  "</tt> " .
-			  _T('ligne') .
-			  " " .
-			  $phraseur->reperes[$phraseur->depth] .
-			  ") <br />\n" )));
-	}
+    $phraseur->contenu[$phraseur->depth] ='';
+
+    if (!xml_parse($phraseur->sax, $data, true)) {
+        coordonnees_erreur($phraseur,
+            xml_error_string(xml_get_error_code($phraseur->sax))
+            . "<br />\n" .
+            (!$phraseur->depth ? '' :
+             ('(' .
+                _T('erreur_balise_non_fermee') .
+                " <tt>" .
+                $phraseur->ouvrant[$phraseur->depth] .
+                "</tt> " .
+                _T('ligne') .
+                " " .
+                $phraseur->reperes[$phraseur->depth] .
+                ") <br />\n" )));
+    }
 }
 
 // http://doc.spip.org/@coordonnees_erreur
 function coordonnees_erreur($phraseur, $msg)
 {
-	$entete_length = substr_count($phraseur->entete,"\n");
-	$phraseur->err[] = array($msg,
-		xml_get_current_line_number($phraseur->sax) + $entete_length,
-		xml_get_current_column_number($phraseur->sax));
+    $entete_length = substr_count($phraseur->entete,"\n");
+    $phraseur->err[] = array($msg,
+        xml_get_current_line_number($phraseur->sax) + $entete_length,
+        xml_get_current_column_number($phraseur->sax));
 }
 
 // http://doc.spip.org/@xml_sax_dist
 function xml_sax_dist($page, $apply=false, $phraseur=NULL, $doctype='', $charset=null)
 {
-	if (is_null($charset))
-		$charset = $GLOBALS['meta']['charset'];
-	if ($apply) {
-		ob_start();
-		if (is_array($apply))
-		  $r = call_user_func_array($page, $apply);
-		else $r = $page();
-		$page = ob_get_contents();
-		ob_end_clean();
-		// fonction sans aucun "echo", ca doit etre le resultat
-		if (!$page) $page = $r;
-	}
-
-	if (!$page) return '';
-	// charger la DTD et transcoder les entites,
-	// et escamoter le doctype que sax mange en php5 mais pas en  php4
-	if (!$doctype) {
-		if (!$r = analyser_doctype($page)) {
-			$page = _MESSAGE_DOCTYPE . _DOCTYPE_ECRIRE
-			  . preg_replace(_REGEXP_DOCTYPE, '', $page);
-			$r =  analyser_doctype($page);
-		}
-		list($entete, $avail, $grammaire, $rotlvl) = array_pad($r, 4, null);
-		$page = substr($page,strlen($entete));
-	} else {
-		$avail = 'SYSTEM';
-		$grammaire = $doctype;
-		$rotlvl = basename($grammaire);
-	}
-
-	include_spip('xml/analyser_dtd');
-	$dtc = charger_dtd($grammaire, $avail, $rotlvl);
-	$page = sax_bug($page, $dtc, $charset);
-
-	// compatibilite Tidy espace public
-	if (!$phraseur) {
-		$indenter_xml = charger_fonction('indenter', 'xml');
-		return $indenter_xml($page, $apply);
-	}
-
-	$xml_parser = xml_parser_create($charset);
-
-	xml_set_element_handler($xml_parser,
-			array($phraseur, "debutElement"),
-			array($phraseur, "finElement"));
-
-	xml_set_character_data_handler($xml_parser,
-				       array($phraseur, "textElement"));
-
-	xml_set_processing_instruction_handler($xml_parser,
-				       array($phraseur, 'piElement'));
-
-	xml_set_default_handler($xml_parser,
-				array($phraseur, "defaultElement"));
-
-	xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, false);
-
-	$phraseur->sax = $xml_parser;
-	if (isset($entete)) {
-		$phraseur->entete = $entete;
-	}
-	$phraseur->page = $page;
-	$phraseur->dtc = $dtc;
-	$phraseur->phraserTout($xml_parser, $page);
-	xml_parser_free($xml_parser);
-	$phraseur->sax = '';
-	return $phraseur;
+    if (is_null($charset))
+        $charset = $GLOBALS['meta']['charset'];
+    if ($apply) {
+        ob_start();
+        if (is_array($apply))
+            $r = call_user_func_array($page, $apply);
+        else $r = $page();
+        $page = ob_get_contents();
+        ob_end_clean();
+        // fonction sans aucun "echo", ca doit etre le resultat
+        if (!$page) $page = $r;
+    }
+
+    if (!$page) return '';
+    // charger la DTD et transcoder les entites,
+    // et escamoter le doctype que sax mange en php5 mais pas en  php4
+    if (!$doctype) {
+        if (!$r = analyser_doctype($page)) {
+            $page = _MESSAGE_DOCTYPE . _DOCTYPE_ECRIRE
+                . preg_replace(_REGEXP_DOCTYPE, '', $page);
+            $r =  analyser_doctype($page);
+        }
+        list($entete, $avail, $grammaire, $rotlvl) = array_pad($r, 4, null);
+        $page = substr($page,strlen($entete));
+    } else {
+        $avail = 'SYSTEM';
+        $grammaire = $doctype;
+        $rotlvl = basename($grammaire);
+    }
+
+    include_spip('xml/analyser_dtd');
+    $dtc = charger_dtd($grammaire, $avail, $rotlvl);
+    $page = sax_bug($page, $dtc, $charset);
+
+    // compatibilite Tidy espace public
+    if (!$phraseur) {
+        $indenter_xml = charger_fonction('indenter', 'xml');
+        return $indenter_xml($page, $apply);
+    }
+
+    $xml_parser = xml_parser_create($charset);
+
+    xml_set_element_handler($xml_parser,
+            array($phraseur, "debutElement"),
+            array($phraseur, "finElement"));
+
+    xml_set_character_data_handler($xml_parser,
+                        array($phraseur, "textElement"));
+
+    xml_set_processing_instruction_handler($xml_parser,
+                        array($phraseur, 'piElement'));
+
+    xml_set_default_handler($xml_parser,
+                array($phraseur, "defaultElement"));
+
+    xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, false);
+
+    $phraseur->sax = $xml_parser;
+    if (isset($entete)) {
+        $phraseur->entete = $entete;
+    }
+    $phraseur->page = $page;
+    $phraseur->dtc = $dtc;
+    $phraseur->phraserTout($xml_parser, $page);
+    xml_parser_free($xml_parser);
+    $phraseur->sax = '';
+    return $phraseur;
 }
 
 // SAX ne dit pas si une Entite est dans un attribut ou non.
@@ -234,21 +234,21 @@ 
 // http://doc.spip.org/@sax_bug
 function sax_bug($data, $dtc, $charset=null)
 {
-	if (is_null($charset))
-		$charset = $GLOBALS['meta']['charset'];
+    if (is_null($charset))
+        $charset = $GLOBALS['meta']['charset'];
 
-	if ($dtc) {
-		$trans = array();
+    if ($dtc) {
+        $trans = array();
 		
-		foreach($dtc->entites as $k => $v) {
-			if (!strpos(" amp lt gt quot ", $k))
-			    $trans["&$k;"] = $v;
-		}
-		$data = strtr($data, $trans);
-	} else {
-		$data = html2unicode($data, true);
-	}
-	return unicode2charset($data, $charset);
+        foreach($dtc->entites as $k => $v) {
+            if (!strpos(" amp lt gt quot ", $k))
+                $trans["&$k;"] = $v;
+        }
+        $data = strtr($data, $trans);
+    } else {
+        $data = html2unicode($data, true);
+    }
+    return unicode2charset($data, $charset);
 }
 
 // Retirer < ? xml... ? > et autre PI, ainsi que les commentaires en debut
@@ -260,42 +260,42 @@ 
 // http://doc.spip.org/@analyser_doctype
 function analyser_doctype($data)
 {
-	if (!preg_match(_REGEXP_DOCTYPE, $data, $page)) {
-		if (preg_match(_REGEXP_XML, $data, $page)) {
-			list(,$entete, $topelement) = $page;
-			if ($topelement == 'rss')
-			  return array($entete, 'PUBLIC', 
-				       _DOCTYPE_RSS,
-					     'rss-0.91.dtd');
-			else {
-				$dtd = $topelement . '.dtd';
-				$f = find_in_path($dtd);
-				if (file_exists($f))
-				  return array($entete, 'SYSTEM', $f, $dtd);
-			}
-		}
-		spip_log("Dtd pas vu pour " . substr($data, 0, 100));
-		return array();
-	}
-	list($entete,, $topelement, $avail,$suite) = $page;
-
-	if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r))
-		if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))
-			return  array();
-	list(,$rotlvl, $suite) = $r;
-
-	if (!$suite) {
-		if ($avail != 'SYSTEM') return array();
-		$grammaire = $rotlvl;
-		$rotlvl = '';
-	} else {
-		if (!preg_match('/^"([^"]*)"\s*$/', $suite, $r))
-			if (!preg_match("/^'([^']*)'\s*$/", $suite, $r))
-				return array();
-
-		$grammaire = $r[1];
-	}
-
-	return array($entete, $avail, $grammaire, $rotlvl);
+    if (!preg_match(_REGEXP_DOCTYPE, $data, $page)) {
+        if (preg_match(_REGEXP_XML, $data, $page)) {
+            list(,$entete, $topelement) = $page;
+            if ($topelement == 'rss')
+                return array($entete, 'PUBLIC', 
+                        _DOCTYPE_RSS,
+                            'rss-0.91.dtd');
+            else {
+                $dtd = $topelement . '.dtd';
+                $f = find_in_path($dtd);
+                if (file_exists($f))
+                    return array($entete, 'SYSTEM', $f, $dtd);
+            }
+        }
+        spip_log("Dtd pas vu pour " . substr($data, 0, 100));
+        return array();
+    }
+    list($entete,, $topelement, $avail,$suite) = $page;
+
+    if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r))
+        if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))
+            return  array();
+    list(,$rotlvl, $suite) = $r;
+
+    if (!$suite) {
+        if ($avail != 'SYSTEM') return array();
+        $grammaire = $rotlvl;
+        $rotlvl = '';
+    } else {
+        if (!preg_match('/^"([^"]*)"\s*$/', $suite, $r))
+            if (!preg_match("/^'([^']*)'\s*$/", $suite, $r))
+                return array();
+
+        $grammaire = $r[1];
+    }
+
+    return array($entete, $avail, $grammaire, $rotlvl);
 }
 ?>

Spacing +37 added lines, -38 removed lines

@@ -20,14 +20,14 @@ 
  * @param string $texte
  * @return string
  */
-function xml_entites_html($texte){
+function xml_entites_html($texte) {
 	if (!is_string($texte) OR !$texte
-	OR strpbrk($texte, "&\"'<>")==false
+	OR strpbrk($texte, "&\"'<>") == false
 	) return $texte;
 
 	if (!function_exists('spip_htmlspecialchars'))
 		include_spip("inc/filtres_mini");
-	$texte = spip_htmlspecialchars($texte,ENT_QUOTES);
+	$texte = spip_htmlspecialchars($texte, ENT_QUOTES);
 	return $texte;
 }
 
@@ -40,40 +40,40 @@ 
 	// espace initial signifie: deja integree au resultat
 	if ($t[0] != ' ')
 	  {
-	    $phraseur->res .= '<' . $t . '>';
-	    $phraseur->ouvrant[$depth] = ' ' . $t;
+	    $phraseur->res .= '<'.$t.'>';
+	    $phraseur->ouvrant[$depth] = ' '.$t;
 	  }
 	$t = $phraseur->contenu[$depth];
 	// n'indenter que s'il y a un separateur avant
-	$phraseur->res .= preg_replace("/[\n\t ]+$/",  "\n$depth", $t);
+	$phraseur->res .= preg_replace("/[\n\t ]+$/", "\n$depth", $t);
 	$phraseur->contenu[$depth] = "";
 	$att = '';
 	$sep = ' ';
 	foreach ($attrs as $k => $v) {
 	  $delim = strpos($v, "'") === false ? "'" : '"';
 	  $val = xml_entites_html($v);
-	  $att .= $sep .  $k . "=" . $delim
+	  $att .= $sep.$k."=".$delim
 	    . ($delim !== '"' ? str_replace('&quot;', '"', $val) : $val)
 	    . $delim;
 	  $sep = "\n $depth";
 	}
 	$phraseur->depth .= '  ';
 	$phraseur->contenu[$phraseur->depth] = "";
-	$phraseur->ouvrant[$phraseur->depth] = $name . $att;
+	$phraseur->ouvrant[$phraseur->depth] = $name.$att;
 	$phraseur->reperes[$phraseur->depth] = xml_get_current_line_number($phraseur->sax);
 }
 
 // http://doc.spip.org/@xml_finElement
-function xml_finElement($phraseur, $name, $fusion_bal=false)
+function xml_finElement($phraseur, $name, $fusion_bal = false)
 {
 	$ouv = $phraseur->ouvrant[$phraseur->depth];
 
 	if ($ouv[0] != ' ')
-		$phraseur->ouvrant[$phraseur->depth] = ' ' . $ouv;
-	else $ouv= "";
+		$phraseur->ouvrant[$phraseur->depth] = ' '.$ouv;
+	else $ouv = "";
 	$t = $phraseur->contenu[$phraseur->depth];
 	$phraseur->depth = substr($phraseur->depth, 2);
-	$t = preg_replace("/[\n\t ]+$/", "\n" . $phraseur->depth, $t);
+	$t = preg_replace("/[\n\t ]+$/", "\n".$phraseur->depth, $t);
 
   // fusion <balise></balise> en <balise />.
   // ATTENTION,  certains clients http croient que fusion ==> pas d'atttributs
@@ -82,16 +82,16 @@ 
   // (param fusion_bal)
 
 	if ($t || (($ouv != $name) AND !$fusion_bal))
-	  $phraseur->res .= ($ouv ? ('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
+	  $phraseur->res .= ($ouv ? ('<'.$ouv.'>') : '').$t."</".$name.">";
 	else
-	  $phraseur->res .= ($ouv ? ('<' . $ouv  . ' />') : ("</" .  $name . ">"));
+	  $phraseur->res .= ($ouv ? ('<'.$ouv.' />') : ("</".$name.">"));
 }
 
 // http://doc.spip.org/@xml_textElement
 function xml_textElement($phraseur, $data)
 {
 	$depth = $phraseur->depth;
-	$phraseur->contenu[$depth] .= preg_match('/^script/',$phraseur->ouvrant[$depth])
+	$phraseur->contenu[$depth] .= preg_match('/^script/', $phraseur->ouvrant[$depth])
 	  ? $data
 	  : xml_entites_html($data);
 }
@@ -117,43 +117,42 @@ 
 {
 	$depth = $phraseur->depth;
 
-	if (!isset($phraseur->contenu[$depth])) $phraseur->contenu[$depth]='';
+	if (!isset($phraseur->contenu[$depth])) $phraseur->contenu[$depth] = '';
 	$phraseur->contenu[$depth] .= $data;
 }
 
 // http://doc.spip.org/@xml_parsestring
 function xml_parsestring($phraseur, $data)
 {
-	$phraseur->contenu[$phraseur->depth] ='';
+	$phraseur->contenu[$phraseur->depth] = '';
 
 	if (!xml_parse($phraseur->sax, $data, true)) {
 		coordonnees_erreur($phraseur,
 			xml_error_string(xml_get_error_code($phraseur->sax))
-			. "<br />\n" .
-			(!$phraseur->depth ? '' :
-			 ('(' .
-			  _T('erreur_balise_non_fermee') .
-			  " <tt>" .
-			  $phraseur->ouvrant[$phraseur->depth] .
-			  "</tt> " .
-			  _T('ligne') .
-			  " " .
-			  $phraseur->reperes[$phraseur->depth] .
-			  ") <br />\n" )));
+			. "<br />\n".
+			(!$phraseur->depth ? '' : ('('.
+			  _T('erreur_balise_non_fermee').
+			  " <tt>".
+			  $phraseur->ouvrant[$phraseur->depth].
+			  "</tt> ".
+			  _T('ligne').
+			  " ".
+			  $phraseur->reperes[$phraseur->depth].
+			  ") <br />\n")));
 	}
 }
 
 // http://doc.spip.org/@coordonnees_erreur
 function coordonnees_erreur($phraseur, $msg)
 {
-	$entete_length = substr_count($phraseur->entete,"\n");
+	$entete_length = substr_count($phraseur->entete, "\n");
 	$phraseur->err[] = array($msg,
 		xml_get_current_line_number($phraseur->sax) + $entete_length,
 		xml_get_current_column_number($phraseur->sax));
 }
 
 // http://doc.spip.org/@xml_sax_dist
-function xml_sax_dist($page, $apply=false, $phraseur=NULL, $doctype='', $charset=null)
+function xml_sax_dist($page, $apply = false, $phraseur = NULL, $doctype = '', $charset = null)
 {
 	if (is_null($charset))
 		$charset = $GLOBALS['meta']['charset'];
@@ -173,12 +172,12 @@ 
 	// et escamoter le doctype que sax mange en php5 mais pas en  php4
 	if (!$doctype) {
 		if (!$r = analyser_doctype($page)) {
-			$page = _MESSAGE_DOCTYPE . _DOCTYPE_ECRIRE
+			$page = _MESSAGE_DOCTYPE._DOCTYPE_ECRIRE
 			  . preg_replace(_REGEXP_DOCTYPE, '', $page);
-			$r =  analyser_doctype($page);
+			$r = analyser_doctype($page);
 		}
 		list($entete, $avail, $grammaire, $rotlvl) = array_pad($r, 4, null);
-		$page = substr($page,strlen($entete));
+		$page = substr($page, strlen($entete));
 	} else {
 		$avail = 'SYSTEM';
 		$grammaire = $doctype;
@@ -232,7 +231,7 @@ 
 // sinon on se rabat sur ce qu'en connait SPIP en standard.
 
 // http://doc.spip.org/@sax_bug
-function sax_bug($data, $dtc, $charset=null)
+function sax_bug($data, $dtc, $charset = null)
 {
 	if (is_null($charset))
 		$charset = $GLOBALS['meta']['charset'];
@@ -240,7 +239,7 @@ 
 	if ($dtc) {
 		$trans = array();
 		
-		foreach($dtc->entites as $k => $v) {
+		foreach ($dtc->entites as $k => $v) {
 			if (!strpos(" amp lt gt quot ", $k))
 			    $trans["&$k;"] = $v;
 		}
@@ -268,16 +267,16 @@ 
 				       _DOCTYPE_RSS,
 					     'rss-0.91.dtd');
 			else {
-				$dtd = $topelement . '.dtd';
+				$dtd = $topelement.'.dtd';
 				$f = find_in_path($dtd);
 				if (file_exists($f))
 				  return array($entete, 'SYSTEM', $f, $dtd);
 			}
 		}
-		spip_log("Dtd pas vu pour " . substr($data, 0, 100));
+		spip_log("Dtd pas vu pour ".substr($data, 0, 100));
 		return array();
 	}
-	list($entete,, $topelement, $avail,$suite) = $page;
+	list($entete,, $topelement, $avail, $suite) = $page;
 
 	if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r))
 		if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))

Braces +61 added lines, -37 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 include_spip('inc/charsets');
 include_spip('xml/interfaces');
@@ -23,10 +25,13 @@ 
 function xml_entites_html($texte){
 	if (!is_string($texte) OR !$texte
 	OR strpbrk($texte, "&\"'<>")==false
-	) return $texte;
+	) {
+	    return $texte;
+	}
 
-	if (!function_exists('spip_htmlspecialchars'))
-		include_spip("inc/filtres_mini");
+	if (!function_exists('spip_htmlspecialchars')) {
+			include_spip("inc/filtres_mini");
+	}
 	$texte = spip_htmlspecialchars($texte,ENT_QUOTES);
 	return $texte;
 }
@@ -68,9 +73,11 @@ 
 {
 	$ouv = $phraseur->ouvrant[$phraseur->depth];
 
-	if ($ouv[0] != ' ')
-		$phraseur->ouvrant[$phraseur->depth] = ' ' . $ouv;
-	else $ouv= "";
+	if ($ouv[0] != ' ') {
+			$phraseur->ouvrant[$phraseur->depth] = ' ' . $ouv;
+	} else {
+	    $ouv= "";
+	}
 	$t = $phraseur->contenu[$phraseur->depth];
 	$phraseur->depth = substr($phraseur->depth, 2);
 	$t = preg_replace("/[\n\t ]+$/", "\n" . $phraseur->depth, $t);
@@ -81,11 +88,12 @@ 
   // en presence d'attributs ne le faire que si la DTD est dispo et d'accord
   // (param fusion_bal)
 
-	if ($t || (($ouv != $name) AND !$fusion_bal))
-	  $phraseur->res .= ($ouv ? ('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
-	else
-	  $phraseur->res .= ($ouv ? ('<' . $ouv  . ' />') : ("</" .  $name . ">"));
-}
+	if ($t || (($ouv != $name) AND !$fusion_bal)) {
+		  $phraseur->res .= ($ouv ? ('<' . $ouv . '>') : '') . $t . "</" . $name . ">";
+	} else {
+		  $phraseur->res .= ($ouv ? ('<' . $ouv  . ' />') : ("</" .  $name . ">"));
+	}
+	}
 
 // http://doc.spip.org/@xml_textElement
 function xml_textElement($phraseur, $data)
@@ -100,9 +108,9 @@ 
 {
 	$depth = $phraseur->depth;
 
-	if (strtolower($target) != "php")
-	  $phraseur->contenu[$depth] .= $data;
-	else {
+	if (strtolower($target) != "php") {
+		  $phraseur->contenu[$depth] .= $data;
+	} else {
 		ob_start();
 		eval($data);
 		$data = ob_get_contents();
@@ -117,7 +125,9 @@ 
 {
 	$depth = $phraseur->depth;
 
-	if (!isset($phraseur->contenu[$depth])) $phraseur->contenu[$depth]='';
+	if (!isset($phraseur->contenu[$depth])) {
+	    $phraseur->contenu[$depth]='';
+	}
 	$phraseur->contenu[$depth] .= $data;
 }
 
@@ -155,20 +165,27 @@ 
 // http://doc.spip.org/@xml_sax_dist
 function xml_sax_dist($page, $apply=false, $phraseur=NULL, $doctype='', $charset=null)
 {
-	if (is_null($charset))
-		$charset = $GLOBALS['meta']['charset'];
+	if (is_null($charset)) {
+			$charset = $GLOBALS['meta']['charset'];
+	}
 	if ($apply) {
 		ob_start();
-		if (is_array($apply))
-		  $r = call_user_func_array($page, $apply);
-		else $r = $page();
+		if (is_array($apply)) {
+				  $r = call_user_func_array($page, $apply);
+		} else {
+		    $r = $page();
+		}
 		$page = ob_get_contents();
 		ob_end_clean();
 		// fonction sans aucun "echo", ca doit etre le resultat
-		if (!$page) $page = $r;
+		if (!$page) {
+		    $page = $r;
+		}
 	}
 
-	if (!$page) return '';
+	if (!$page) {
+	    return '';
+	}
 	// charger la DTD et transcoder les entites,
 	// et escamoter le doctype que sax mange en php5 mais pas en  php4
 	if (!$doctype) {
@@ -234,15 +251,17 @@ 
 // http://doc.spip.org/@sax_bug
 function sax_bug($data, $dtc, $charset=null)
 {
-	if (is_null($charset))
-		$charset = $GLOBALS['meta']['charset'];
+	if (is_null($charset)) {
+			$charset = $GLOBALS['meta']['charset'];
+	}
 
 	if ($dtc) {
 		$trans = array();
 		
 		foreach($dtc->entites as $k => $v) {
-			if (!strpos(" amp lt gt quot ", $k))
-			    $trans["&$k;"] = $v;
+			if (!strpos(" amp lt gt quot ", $k)) {
+						    $trans["&$k;"] = $v;
+			}
 		}
 		$data = strtr($data, $trans);
 	} else {
@@ -263,15 +282,16 @@ 
 	if (!preg_match(_REGEXP_DOCTYPE, $data, $page)) {
 		if (preg_match(_REGEXP_XML, $data, $page)) {
 			list(,$entete, $topelement) = $page;
-			if ($topelement == 'rss')
-			  return array($entete, 'PUBLIC', 
+			if ($topelement == 'rss') {
+						  return array($entete, 'PUBLIC', 
 				       _DOCTYPE_RSS,
 					     'rss-0.91.dtd');
-			else {
+			} else {
 				$dtd = $topelement . '.dtd';
 				$f = find_in_path($dtd);
-				if (file_exists($f))
-				  return array($entete, 'SYSTEM', $f, $dtd);
+				if (file_exists($f)) {
+								  return array($entete, 'SYSTEM', $f, $dtd);
+				}
 			}
 		}
 		spip_log("Dtd pas vu pour " . substr($data, 0, 100));
@@ -279,19 +299,23 @@ 
 	}
 	list($entete,, $topelement, $avail,$suite) = $page;
 
-	if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r))
-		if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))
+	if (!preg_match('/^"([^"]*)"\s*(.*)$/', $suite, $r)) {
+			if (!preg_match("/^'([^']*)'\s*(.*)$/", $suite, $r))
 			return  array();
+	}
 	list(,$rotlvl, $suite) = $r;
 
 	if (!$suite) {
-		if ($avail != 'SYSTEM') return array();
+		if ($avail != 'SYSTEM') {
+		    return array();
+		}
 		$grammaire = $rotlvl;
 		$rotlvl = '';
 	} else {
-		if (!preg_match('/^"([^"]*)"\s*$/', $suite, $r))
-			if (!preg_match("/^'([^']*)'\s*$/", $suite, $r))
+		if (!preg_match('/^"([^"]*)"\s*$/', $suite, $r)) {
+					if (!preg_match("/^'([^']*)'\s*$/", $suite, $r))
 				return array();
+		}
 
 		$grammaire = $r[1];
 	}

prive/formulaires/configurer_multilinguisme.php

Doc Comments +3 added lines

@@ -80,6 +80,9 @@
 }
 
 
+/**
+ * @param string $name
+ */
 function saisie_langues_utiles($name, $selection) {
 	include_spip('inc/lang_liste');
 	$langues = $GLOBALS['codes_langues'];

Indentation +90 added lines, -90 removed lines

@@ -13,44 +13,44 @@ 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
 function formulaires_configurer_multilinguisme_charger_dist(){
-	$valeurs['multi_secteurs'] = $GLOBALS['meta']['multi_secteurs'];
-	foreach(array('multi_objets','gerer_trad_objets') as $m)
-		$valeurs[$m] = explode(',',isset($GLOBALS['meta'][$m])?$GLOBALS['meta'][$m]:'');
+    $valeurs['multi_secteurs'] = $GLOBALS['meta']['multi_secteurs'];
+    foreach(array('multi_objets','gerer_trad_objets') as $m)
+        $valeurs[$m] = explode(',',isset($GLOBALS['meta'][$m])?$GLOBALS['meta'][$m]:'');
 
-	if (count($valeurs['multi_objets'])
-	  OR count(explode(',',$GLOBALS['meta']['langues_utilisees'])) > 1) {
+    if (count($valeurs['multi_objets'])
+      OR count(explode(',',$GLOBALS['meta']['langues_utilisees'])) > 1) {
 
-		$selection = (is_null(_request('multi_objets'))?explode(',', $GLOBALS['meta']['langues_multilingue']):_request('langues_auth'));
-		$valeurs['_langues'] = saisie_langues_utiles('langues_auth',$selection?$selection:array());
-		$valeurs['_nb_langues_selection'] = count($selection);
-	}
+        $selection = (is_null(_request('multi_objets'))?explode(',', $GLOBALS['meta']['langues_multilingue']):_request('langues_auth'));
+        $valeurs['_langues'] = saisie_langues_utiles('langues_auth',$selection?$selection:array());
+        $valeurs['_nb_langues_selection'] = count($selection);
+    }
 
-	return $valeurs;
+    return $valeurs;
 }
 
 
 function formulaires_configurer_multilinguisme_traiter_dist(){
-	$res = array('editable'=>true);
-	// un checkbox seul de name X non coche n'est pas poste.
-	// on verifie le champ X_check qui indique que la checkbox etait presente dans le formulaire.
-	foreach(array('multi_secteurs') as $m) {
-		if (!is_null(_request($m . '_check'))) {
-			ecrire_meta($m, _request($m) ? 'oui' : 'non');
-		}
-	}
-	foreach(array('multi_objets','gerer_trad_objets') as $m) {
-		if (!is_null($v=_request($m))) {
-			// join et enlever la valeur vide ''
-			ecrire_meta($m, implode(',',array_diff($v,array(''))));
-		}
-	}
-
-	if ($i = _request('langues_auth') AND is_array($i)) {
-		$i = array_unique(array_merge($i,explode(',',$GLOBALS['meta']['langues_utilisees'])));
-		ecrire_meta('langues_multilingue', implode(",",$i));
-	}
-	$res['message_ok'] = _T('config_info_enregistree');
-	return $res;
+    $res = array('editable'=>true);
+    // un checkbox seul de name X non coche n'est pas poste.
+    // on verifie le champ X_check qui indique que la checkbox etait presente dans le formulaire.
+    foreach(array('multi_secteurs') as $m) {
+        if (!is_null(_request($m . '_check'))) {
+            ecrire_meta($m, _request($m) ? 'oui' : 'non');
+        }
+    }
+    foreach(array('multi_objets','gerer_trad_objets') as $m) {
+        if (!is_null($v=_request($m))) {
+            // join et enlever la valeur vide ''
+            ecrire_meta($m, implode(',',array_diff($v,array(''))));
+        }
+    }
+
+    if ($i = _request('langues_auth') AND is_array($i)) {
+        $i = array_unique(array_merge($i,explode(',',$GLOBALS['meta']['langues_utilisees'])));
+        ecrire_meta('langues_multilingue', implode(",",$i));
+    }
+    $res['message_ok'] = _T('config_info_enregistree');
+    return $res;
 }
 
 /**
@@ -59,11 +59,11 @@ 
  * @return string
  */
 function table_supporte_lang($table_sql){
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']['lang']))
-		return '';
-	return ' ';
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc OR !isset($desc['field']['lang']))
+        return '';
+    return ' ';
 }
 
 /**
@@ -72,64 +72,64 @@ 
  * @return string
  */
 function table_supporte_trad($table_sql){
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']['id_trad']))
-		return '';
-	return ' ';
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc OR !isset($desc['field']['id_trad']))
+        return '';
+    return ' ';
 }
 
 
 function saisie_langues_utiles($name, $selection) {
-	include_spip('inc/lang_liste');
-	$langues = $GLOBALS['codes_langues'];
+    include_spip('inc/lang_liste');
+    $langues = $GLOBALS['codes_langues'];
 	
-	$langues_installees = explode(',', $GLOBALS['meta']['langues_proposees']);
-	$langues_trad = array_flip($langues_installees);
-
-	$langues_bloquees = explode(',',$GLOBALS['meta']['langues_utilisees']);
-
-	$res = "";
-
-	$i = 0;
-	foreach($langues_bloquees as $code_langue) {
-		$nom_langue = $langues[$code_langue];
-		$res .= "<li class='choix "
-		  . alterner($i++,'odd','even')
-		  . (isset($langues_trad[$code_langue])?" traduite":"")
-		  . "'>"
-			. "<input type='hidden' name='{$name}[]' value='$code_langue'>" // necessaire ...
-		  . "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue' checked='checked' disabled='disabled' />"
-		  . "<label for='{$name}_$code_langue'>" . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
-		  . "</li>";
-	}
-
-	if ($res)
-		$res = "<ul id='langues_bloquees'>".$res."</ul><div class='nettoyeur'></div>";
-
-	$res .= "<ul id='langues_proposees'>";
-
-	$i = 0;
-	$langues_bloquees = array_flip($langues_bloquees);
-	foreach($langues as $code_langue=>$nom_langue) {
-		if (!isset($langues_bloquees[$code_langue])) {
-			$checked = (in_array($code_langue,$selection)?' checked="checked"':'');
-			$res .= "<li class='choix "
-			  . alterner($i++,'odd','even')
-				. (isset($langues_trad[$code_langue])?" traduite":"")
-				. "'>"
-				. "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue'"
-			  . $checked
-			  . "/>"
-				. "<label for='{$name}_$code_langue'"
-			  . ($checked?" class='on'":"")
-			  . ">"
-			  . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
-				. "</li>";
-		}
-	}
-
-	$res .= "</ul><div class='nettoyeur'></div>";
-	return $res;
+    $langues_installees = explode(',', $GLOBALS['meta']['langues_proposees']);
+    $langues_trad = array_flip($langues_installees);
+
+    $langues_bloquees = explode(',',$GLOBALS['meta']['langues_utilisees']);
+
+    $res = "";
+
+    $i = 0;
+    foreach($langues_bloquees as $code_langue) {
+        $nom_langue = $langues[$code_langue];
+        $res .= "<li class='choix "
+            . alterner($i++,'odd','even')
+            . (isset($langues_trad[$code_langue])?" traduite":"")
+            . "'>"
+            . "<input type='hidden' name='{$name}[]' value='$code_langue'>" // necessaire ...
+            . "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue' checked='checked' disabled='disabled' />"
+            . "<label for='{$name}_$code_langue'>" . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
+            . "</li>";
+    }
+
+    if ($res)
+        $res = "<ul id='langues_bloquees'>".$res."</ul><div class='nettoyeur'></div>";
+
+    $res .= "<ul id='langues_proposees'>";
+
+    $i = 0;
+    $langues_bloquees = array_flip($langues_bloquees);
+    foreach($langues as $code_langue=>$nom_langue) {
+        if (!isset($langues_bloquees[$code_langue])) {
+            $checked = (in_array($code_langue,$selection)?' checked="checked"':'');
+            $res .= "<li class='choix "
+                . alterner($i++,'odd','even')
+                . (isset($langues_trad[$code_langue])?" traduite":"")
+                . "'>"
+                . "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue'"
+                . $checked
+                . "/>"
+                . "<label for='{$name}_$code_langue'"
+                . ($checked?" class='on'":"")
+                . ">"
+                . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
+                . "</li>";
+        }
+    }
+
+    $res .= "</ul><div class='nettoyeur'></div>";
+    return $res;
 }
 ?>

Braces +15 added lines, -9 removed lines

@@ -10,12 +10,15 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 function formulaires_configurer_multilinguisme_charger_dist(){
 	$valeurs['multi_secteurs'] = $GLOBALS['meta']['multi_secteurs'];
-	foreach(array('multi_objets','gerer_trad_objets') as $m)
-		$valeurs[$m] = explode(',',isset($GLOBALS['meta'][$m])?$GLOBALS['meta'][$m]:'');
+	foreach(array('multi_objets','gerer_trad_objets') as $m) {
+			$valeurs[$m] = explode(',',isset($GLOBALS['meta'][$m])?$GLOBALS['meta'][$m]:'');
+	}
 
 	if (count($valeurs['multi_objets'])
 	  OR count(explode(',',$GLOBALS['meta']['langues_utilisees'])) > 1) {
@@ -61,8 +64,9 @@ 
 function table_supporte_lang($table_sql){
 	$trouver_table = charger_fonction('trouver_table','base');
 	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']['lang']))
-		return '';
+	if (!$desc OR !isset($desc['field']['lang'])) {
+			return '';
+	}
 	return ' ';
 }
 
@@ -74,8 +78,9 @@ 
 function table_supporte_trad($table_sql){
 	$trouver_table = charger_fonction('trouver_table','base');
 	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']['id_trad']))
-		return '';
+	if (!$desc OR !isset($desc['field']['id_trad'])) {
+			return '';
+	}
 	return ' ';
 }
 
@@ -104,8 +109,9 @@ 
 		  . "</li>";
 	}
 
-	if ($res)
-		$res = "<ul id='langues_bloquees'>".$res."</ul><div class='nettoyeur'></div>";
+	if ($res) {
+			$res = "<ul id='langues_bloquees'>".$res."</ul><div class='nettoyeur'></div>";
+	}
 
 	$res .= "<ul id='langues_proposees'>";
 

Spacing +29 added lines, -29 removed lines

@@ -12,16 +12,16 @@ 
 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
-function formulaires_configurer_multilinguisme_charger_dist(){
+function formulaires_configurer_multilinguisme_charger_dist() {
 	$valeurs['multi_secteurs'] = $GLOBALS['meta']['multi_secteurs'];
-	foreach(array('multi_objets','gerer_trad_objets') as $m)
-		$valeurs[$m] = explode(',',isset($GLOBALS['meta'][$m])?$GLOBALS['meta'][$m]:'');
+	foreach (array('multi_objets', 'gerer_trad_objets') as $m)
+		$valeurs[$m] = explode(',', isset($GLOBALS['meta'][$m]) ? $GLOBALS['meta'][$m] : '');
 
 	if (count($valeurs['multi_objets'])
-	  OR count(explode(',',$GLOBALS['meta']['langues_utilisees'])) > 1) {
+	  OR count(explode(',', $GLOBALS['meta']['langues_utilisees'])) > 1) {
 
-		$selection = (is_null(_request('multi_objets'))?explode(',', $GLOBALS['meta']['langues_multilingue']):_request('langues_auth'));
-		$valeurs['_langues'] = saisie_langues_utiles('langues_auth',$selection?$selection:array());
+		$selection = (is_null(_request('multi_objets')) ?explode(',', $GLOBALS['meta']['langues_multilingue']) : _request('langues_auth'));
+		$valeurs['_langues'] = saisie_langues_utiles('langues_auth', $selection ? $selection : array());
 		$valeurs['_nb_langues_selection'] = count($selection);
 	}
 
@@ -29,25 +29,25 @@ 
 }
 
 
-function formulaires_configurer_multilinguisme_traiter_dist(){
+function formulaires_configurer_multilinguisme_traiter_dist() {
 	$res = array('editable'=>true);
 	// un checkbox seul de name X non coche n'est pas poste.
 	// on verifie le champ X_check qui indique que la checkbox etait presente dans le formulaire.
-	foreach(array('multi_secteurs') as $m) {
-		if (!is_null(_request($m . '_check'))) {
+	foreach (array('multi_secteurs') as $m) {
+		if (!is_null(_request($m.'_check'))) {
 			ecrire_meta($m, _request($m) ? 'oui' : 'non');
 		}
 	}
-	foreach(array('multi_objets','gerer_trad_objets') as $m) {
-		if (!is_null($v=_request($m))) {
+	foreach (array('multi_objets', 'gerer_trad_objets') as $m) {
+		if (!is_null($v = _request($m))) {
 			// join et enlever la valeur vide ''
-			ecrire_meta($m, implode(',',array_diff($v,array(''))));
+			ecrire_meta($m, implode(',', array_diff($v, array(''))));
 		}
 	}
 
 	if ($i = _request('langues_auth') AND is_array($i)) {
-		$i = array_unique(array_merge($i,explode(',',$GLOBALS['meta']['langues_utilisees'])));
-		ecrire_meta('langues_multilingue', implode(",",$i));
+		$i = array_unique(array_merge($i, explode(',', $GLOBALS['meta']['langues_utilisees'])));
+		ecrire_meta('langues_multilingue', implode(",", $i));
 	}
 	$res['message_ok'] = _T('config_info_enregistree');
 	return $res;
@@ -58,8 +58,8 @@ 
  * @param string $table_sql
  * @return string
  */
-function table_supporte_lang($table_sql){
-	$trouver_table = charger_fonction('trouver_table','base');
+function table_supporte_lang($table_sql) {
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc OR !isset($desc['field']['lang']))
 		return '';
@@ -71,8 +71,8 @@ 
  * @param string $table_sql
  * @return string
  */
-function table_supporte_trad($table_sql){
-	$trouver_table = charger_fonction('trouver_table','base');
+function table_supporte_trad($table_sql) {
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc OR !isset($desc['field']['id_trad']))
 		return '';
@@ -87,20 +87,20 @@ 
 	$langues_installees = explode(',', $GLOBALS['meta']['langues_proposees']);
 	$langues_trad = array_flip($langues_installees);
 
-	$langues_bloquees = explode(',',$GLOBALS['meta']['langues_utilisees']);
+	$langues_bloquees = explode(',', $GLOBALS['meta']['langues_utilisees']);
 
 	$res = "";
 
 	$i = 0;
-	foreach($langues_bloquees as $code_langue) {
+	foreach ($langues_bloquees as $code_langue) {
 		$nom_langue = $langues[$code_langue];
 		$res .= "<li class='choix "
-		  . alterner($i++,'odd','even')
-		  . (isset($langues_trad[$code_langue])?" traduite":"")
+		  . alterner($i++, 'odd', 'even')
+		  . (isset($langues_trad[$code_langue]) ? " traduite" : "")
 		  . "'>"
 			. "<input type='hidden' name='{$name}[]' value='$code_langue'>" // necessaire ...
 		  . "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue' checked='checked' disabled='disabled' />"
-		  . "<label for='{$name}_$code_langue'>" . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
+		  . "<label for='{$name}_$code_langue'>".$nom_langue."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
 		  . "</li>";
 	}
 
@@ -111,20 +111,20 @@ 
 
 	$i = 0;
 	$langues_bloquees = array_flip($langues_bloquees);
-	foreach($langues as $code_langue=>$nom_langue) {
+	foreach ($langues as $code_langue=>$nom_langue) {
 		if (!isset($langues_bloquees[$code_langue])) {
-			$checked = (in_array($code_langue,$selection)?' checked="checked"':'');
+			$checked = (in_array($code_langue, $selection) ? ' checked="checked"' : '');
 			$res .= "<li class='choix "
-			  . alterner($i++,'odd','even')
-				. (isset($langues_trad[$code_langue])?" traduite":"")
+			  . alterner($i++, 'odd', 'even')
+				. (isset($langues_trad[$code_langue]) ? " traduite" : "")
 				. "'>"
 				. "<input type='checkbox' name='{$name}[]' id='{$name}_$code_langue' value='$code_langue'"
 			  . $checked
 			  . "/>"
 				. "<label for='{$name}_$code_langue'"
-			  . ($checked?" class='on'":"")
+			  . ($checked ? " class='on'" : "")
 			  . ">"
-			  . $nom_langue ."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
+			  . $nom_langue."&nbsp;&nbsp; <span class='code_langue'>[$code_langue]</span></label>"
 				. "</li>";
 		}
 	}

index.php

Indentation +2 added lines, -2 removed lines

@@ -1,4 +1,4 @@
 <?php
-	# appel SPIP
-	include ('spip.php');
+    # appel SPIP
+    include ('spip.php');
 ?>

config/ecran_securite.php

Indentation +150 added lines, -150 removed lines

@@ -15,7 +15,7 @@ 
  * Test utilisateur
  */
 if (isset($_GET['test_ecran_securite']))
-	$ecran_securite_raison = 'test '._ECRAN_SECURITE;
+    $ecran_securite_raison = 'test '._ECRAN_SECURITE;
 
 /*
  * Monitoring
@@ -24,33 +24,33 @@ 
  * le load depasse ECRAN_SECURITE_LOAD)
  */
 if (!defined('_IS_BOT') and isset($_GET['var_isbot'])){
-	define('_IS_BOT', $_GET['var_isbot'] ? true : false);
+    define('_IS_BOT', $_GET['var_isbot'] ? true : false);
 }
 
 /*
  * Détecteur de robot d'indexation
  */
 if (!defined('_IS_BOT')){
-	define('_IS_BOT',
-		isset($_SERVER['HTTP_USER_AGENT'])
-		and preg_match(
-		// mots generiques
-			',bot|slurp|crawler|spider|webvac|yandex|'
-			// MSIE 6.0 est un botnet 99,9% du temps, on traite donc ce USER_AGENT comme un bot
-			. 'MSIE 6\.0|'
-			// UA plus cibles
-			. '80legs|accoona|AltaVista|ASPSeek|Baidu|Charlotte|EC2LinkFinder|eStyle|facebookexternalhit|flipboard|hootsuite|FunWebProducts|Google|Genieo|INA dlweb|InfegyAtlas|Java VM|LiteFinder|Lycos|MegaIndex|MetaURI|Moreover|Rambler|Scrapy|Scooter|ScrubbyBloglines|Yahoo|Yeti'
-			. ',i', (string)$_SERVER['HTTP_USER_AGENT'])
-	);
+    define('_IS_BOT',
+        isset($_SERVER['HTTP_USER_AGENT'])
+        and preg_match(
+        // mots generiques
+            ',bot|slurp|crawler|spider|webvac|yandex|'
+            // MSIE 6.0 est un botnet 99,9% du temps, on traite donc ce USER_AGENT comme un bot
+            . 'MSIE 6\.0|'
+            // UA plus cibles
+            . '80legs|accoona|AltaVista|ASPSeek|Baidu|Charlotte|EC2LinkFinder|eStyle|facebookexternalhit|flipboard|hootsuite|FunWebProducts|Google|Genieo|INA dlweb|InfegyAtlas|Java VM|LiteFinder|Lycos|MegaIndex|MetaURI|Moreover|Rambler|Scrapy|Scooter|ScrubbyBloglines|Yahoo|Yeti'
+            . ',i', (string)$_SERVER['HTTP_USER_AGENT'])
+    );
 }
 if (!defined('_IS_BOT_FRIEND')){
-	define('_IS_BOT_FRIEND',
-		isset($_SERVER['HTTP_USER_AGENT'])
-		and preg_match(','
-			// UA plus cibles
-			. 'facebookexternalhit'
-			. ',i', (string)$_SERVER['HTTP_USER_AGENT'])
-	);
+    define('_IS_BOT_FRIEND',
+        isset($_SERVER['HTTP_USER_AGENT'])
+        and preg_match(','
+            // UA plus cibles
+            . 'facebookexternalhit'
+            . ',i', (string)$_SERVER['HTTP_USER_AGENT'])
+    );
 }
 
 /*
@@ -61,17 +61,17 @@ 
  * (id_base est une variable de la config des widgets de WordPress)
  */
 foreach ($_GET as $var => $val)
-	if ($_GET[$var] and strncmp($var, "id_", 3) == 0
-	and !in_array($var, array('id_table', 'id_base')))
-		$_GET[$var] = is_array($_GET[$var])?@array_map('intval', $_GET[$var]):intval($_GET[$var]);
+    if ($_GET[$var] and strncmp($var, "id_", 3) == 0
+    and !in_array($var, array('id_table', 'id_base')))
+        $_GET[$var] = is_array($_GET[$var])?@array_map('intval', $_GET[$var]):intval($_GET[$var]);
 foreach ($_POST as $var => $val)
-	if ($_POST[$var] and strncmp($var, "id_", 3) == 0
-	and !in_array($var, array('id_table', 'id_base')))
-		$_POST[$var] = is_array($_POST[$var])?@array_map('intval', $_POST[$var]):intval($_POST[$var]);
+    if ($_POST[$var] and strncmp($var, "id_", 3) == 0
+    and !in_array($var, array('id_table', 'id_base')))
+        $_POST[$var] = is_array($_POST[$var])?@array_map('intval', $_POST[$var]):intval($_POST[$var]);
 foreach ($GLOBALS as $var => $val)
-	if ($GLOBALS[$var] and strncmp($var, "id_", 3) == 0
-	and !in_array($var, array('id_table', 'id_base')))
-		$GLOBALS[$var] = is_array($GLOBALS[$var])?@array_map('intval', $GLOBALS[$var]):intval($GLOBALS[$var]);
+    if ($GLOBALS[$var] and strncmp($var, "id_", 3) == 0
+    and !in_array($var, array('id_table', 'id_base')))
+        $GLOBALS[$var] = is_array($GLOBALS[$var])?@array_map('intval', $GLOBALS[$var]):intval($GLOBALS[$var]);
 
 /*
  * Interdit la variable $cjpeg_command, qui était utilisée sans
@@ -83,17 +83,17 @@ 
  * Contrôle de quelques variables (XSS)
  */
 foreach(array('lang', 'var_recherche', 'aide', 'var_lang_r', 'lang_r', 'var_ajax_ancre', 'nom_fichier') as $var) {
-	if (isset($_GET[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_GET[$var]);
-	if (isset($_POST[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_POST[$var]);
+    if (isset($_GET[$var]))
+        $_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_GET[$var]);
+    if (isset($_POST[$var]))
+        $_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_POST[$var]);
 }
 
 /*
  * Filtre l'accès à spip_acces_doc (injection SQL en 1.8.2x)
  */
 if (preg_match(',^(.*/)?spip_acces_doc\.,', (string)$_SERVER['REQUEST_URI'])) {
-	$file = addslashes((string)$_GET['file']);
+    $file = addslashes((string)$_GET['file']);
 }
 
 /*
@@ -102,79 +102,79 @@ 
 if (isset($_REQUEST['mode']) and isset($_REQUEST['page'])
 and !in_array($_REQUEST['mode'], array("6forum", "1comite"))
 and $_REQUEST['page'] == "identifiants")
-	$ecran_securite_raison = "identifiants";
+    $ecran_securite_raison = "identifiants";
 
 /*
  * Agenda joue à l'injection php
  */
 if (isset($_REQUEST['partie_cal'])
 and $_REQUEST['partie_cal'] !== htmlentities((string)$_REQUEST['partie_cal']))
-	$ecran_securite_raison = "partie_cal";
+    $ecran_securite_raison = "partie_cal";
 if (isset($_REQUEST['echelle'])
 and $_REQUEST['echelle'] !== htmlentities((string)$_REQUEST['echelle']))
-	$ecran_securite_raison = "echelle";
+    $ecran_securite_raison = "echelle";
 
 /*
  * Espace privé
  */
 if (isset($_REQUEST['exec'])
 and !preg_match(',^[\w-]+$,', (string)$_REQUEST['exec']))
-	$ecran_securite_raison = "exec";
+    $ecran_securite_raison = "exec";
 if (isset($_REQUEST['cherche_auteur'])
 and preg_match(',[<],', (string)$_REQUEST['cherche_auteur']))
-	$ecran_securite_raison = "cherche_auteur";
+    $ecran_securite_raison = "cherche_auteur";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'auteurs'
 and preg_match(',[<],', (string)$_REQUEST['recherche']))
-	$ecran_securite_raison = "recherche";
+    $ecran_securite_raison = "recherche";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'info_plugin'
 and preg_match(',[<],', (string)$_REQUEST['plugin']))
-	$ecran_securite_raison = "plugin";
+    $ecran_securite_raison = "plugin";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'puce_statut'
 and isset($_REQUEST['id'])
 and !intval($_REQUEST['id']))
-	$ecran_securite_raison = "puce_statut";
+    $ecran_securite_raison = "puce_statut";
 if (isset($_REQUEST['action'])
 and $_REQUEST['action'] == 'configurer') {
-	if (@file_exists('inc_version.php')
-	or @file_exists('ecrire/inc_version.php')) {
-		function action_configurer() {
-			include_spip('inc/autoriser');
-			if(!autoriser('configurer', _request('configuration'))) {
-				include_spip('inc/minipres');
-				echo minipres(_T('info_acces_interdit'));
-				exit;
-			}
-			require _DIR_RESTREINT.'action/configurer.php';
-			action_configurer_dist();
-		}
-	}
+    if (@file_exists('inc_version.php')
+    or @file_exists('ecrire/inc_version.php')) {
+        function action_configurer() {
+            include_spip('inc/autoriser');
+            if(!autoriser('configurer', _request('configuration'))) {
+                include_spip('inc/minipres');
+                echo minipres(_T('info_acces_interdit'));
+                exit;
+            }
+            require _DIR_RESTREINT.'action/configurer.php';
+            action_configurer_dist();
+        }
+    }
 }
 
 /*
  * Bloque les requêtes contenant %00 (manipulation d'include)
  */
 if (strpos(
-	@get_magic_quotes_gpc() ?
-		stripslashes(serialize($_REQUEST)) : serialize($_REQUEST),
-	chr(0)
+    @get_magic_quotes_gpc() ?
+        stripslashes(serialize($_REQUEST)) : serialize($_REQUEST),
+    chr(0)
 ) !== false)
-	$ecran_securite_raison = "%00";
+    $ecran_securite_raison = "%00";
 
 /*
  * Bloque les requêtes fond=formulaire_
  */
 if (isset($_REQUEST['fond'])
 and preg_match(',^formulaire_,i', $_REQUEST['fond']))
-	$ecran_securite_raison = "fond=formulaire_";
+    $ecran_securite_raison = "fond=formulaire_";
 
 /*
  * Bloque les requêtes du type ?GLOBALS[type_urls]=toto (bug vieux php)
  */
 if (isset($_REQUEST['GLOBALS']))
-	$ecran_securite_raison = "GLOBALS[GLOBALS]";
+    $ecran_securite_raison = "GLOBALS[GLOBALS]";
 
 /*
  * Bloque les requêtes des bots sur:
@@ -182,24 +182,24 @@ 
  * les paginations entremélées
  */
 if (_IS_BOT and (
-	(isset($_REQUEST['echelle']) and isset($_REQUEST['partie_cal']) and isset($_REQUEST['type']))
-	or (strpos((string)$_SERVER['REQUEST_URI'], 'debut_') and preg_match(',[?&]debut_.*&debut_,', (string)$_SERVER['REQUEST_URI']))
+    (isset($_REQUEST['echelle']) and isset($_REQUEST['partie_cal']) and isset($_REQUEST['type']))
+    or (strpos((string)$_SERVER['REQUEST_URI'], 'debut_') and preg_match(',[?&]debut_.*&debut_,', (string)$_SERVER['REQUEST_URI']))
 )
 )
-	$ecran_securite_raison = "robot agenda/double pagination";
+    $ecran_securite_raison = "robot agenda/double pagination";
 
 /*
  * Bloque une vieille page de tests de CFG (<1.11)
  * Bloque un XSS sur une page inexistante
  */
 if (isset($_REQUEST['page'])) {
-	if ($_REQUEST['page'] == 'test_cfg')
-		$ecran_securite_raison = "test_cfg";
-	if ($_REQUEST['page'] !== htmlspecialchars((string)$_REQUEST['page']))
-		$ecran_securite_raison = "xsspage";
-	if ($_REQUEST['page'] == '404'
-	and isset($_REQUEST['erreur']))
-		$ecran_securite_raison = "xss404";
+    if ($_REQUEST['page'] == 'test_cfg')
+        $ecran_securite_raison = "test_cfg";
+    if ($_REQUEST['page'] !== htmlspecialchars((string)$_REQUEST['page']))
+        $ecran_securite_raison = "xsspage";
+    if ($_REQUEST['page'] == '404'
+    and isset($_REQUEST['erreur']))
+        $ecran_securite_raison = "xss404";
 }
 
 /*
@@ -207,39 +207,39 @@ 
  */
 foreach (array('var_login') as $var)
 if (isset($_REQUEST[$var]) and is_array($_REQUEST[$var]))
-	$ecran_securite_raison = "xss ".$var;
+    $ecran_securite_raison = "xss ".$var;
 
 /*
  * Parade antivirale contre un cheval de troie
  */
 if (!function_exists('tmp_lkojfghx')) {
-	function tmp_lkojfghx() {}
-	function tmp_lkojfghx2($a = 0, $b = 0, $c = 0, $d = 0) {
-		// si jamais on est arrivé ici sur une erreur php
-		// et qu'un autre gestionnaire d'erreur est défini, l'appeller
-		if ($b && $GLOBALS['tmp_xhgfjokl'])
-			call_user_func($GLOBALS['tmp_xhgfjokl'], $a, $b, $c, $d);
-	}
+    function tmp_lkojfghx() {}
+    function tmp_lkojfghx2($a = 0, $b = 0, $c = 0, $d = 0) {
+        // si jamais on est arrivé ici sur une erreur php
+        // et qu'un autre gestionnaire d'erreur est défini, l'appeller
+        if ($b && $GLOBALS['tmp_xhgfjokl'])
+            call_user_func($GLOBALS['tmp_xhgfjokl'], $a, $b, $c, $d);
+    }
 }
 if (isset($_POST['tmp_lkojfghx3']))
-	$ecran_securite_raison = "gumblar";
+    $ecran_securite_raison = "gumblar";
 
 /*
  * Outils XML mal sécurisés < 2.0.9
  */
 if (isset($_REQUEST['transformer_xml']))
-	$ecran_securite_raison = "transformer_xml";
+    $ecran_securite_raison = "transformer_xml";
 
 /*
  * Outils XML mal sécurisés again
  */
 if (isset($_REQUEST['var_url']) and $_REQUEST['var_url'] and isset($_REQUEST['exec']) and $_REQUEST['exec']=='valider_xml'){
-	$url = trim($_REQUEST['var_url']);
-	if (strncmp($url,'/',1)==0
-	  or (($p=strpos($url,'..'))!==false AND strpos($url,'..',$p+3)!==false)
-		or (strpos($url,'://')!==false or strpos($url,':\\')!==false)) {
-		$ecran_securite_raison = 'URL interdite pour var_url';
-	}
+    $url = trim($_REQUEST['var_url']);
+    if (strncmp($url,'/',1)==0
+      or (($p=strpos($url,'..'))!==false AND strpos($url,'..',$p+3)!==false)
+        or (strpos($url,'://')!==false or strpos($url,':\\')!==false)) {
+        $ecran_securite_raison = 'URL interdite pour var_url';
+    }
 }
 
 /*
@@ -247,10 +247,10 @@ 
  */
 if (isset($_REQUEST['nom_sauvegarde'])
 and strstr((string)$_REQUEST['nom_sauvegarde'], '/'))
-	$ecran_securite_raison = 'nom_sauvegarde manipulee';
+    $ecran_securite_raison = 'nom_sauvegarde manipulee';
 if (isset($_REQUEST['znom_sauvegarde'])
 and strstr((string)$_REQUEST['znom_sauvegarde'], '/'))
-	$ecran_securite_raison = 'znom_sauvegarde manipulee';
+    $ecran_securite_raison = 'znom_sauvegarde manipulee';
 
 
 /*
@@ -259,26 +259,26 @@ 
  */
 if (isset($_REQUEST['op']) and isset($_REQUEST['page'])
 and $_REQUEST['op'] !== preg_replace('/[^\-\w]/', '', $_REQUEST['op']))
-	$ecran_securite_raison = 'op';
+    $ecran_securite_raison = 'op';
 
 /*
  * Forms & Table ne se méfiait pas assez des uploads de fichiers
  */
 if (count($_FILES)){
-	foreach($_FILES as $k => $v){
-		 if (preg_match(',^fichier_\d+$,', $k)
-		 and preg_match(',\.php,i', $v['name']))
-		 	unset($_FILES[$k]);
-	}
+    foreach($_FILES as $k => $v){
+            if (preg_match(',^fichier_\d+$,', $k)
+         and preg_match(',\.php,i', $v['name']))
+                unset($_FILES[$k]);
+    }
 }
 /*
  * et Contact trop laxiste avec une variable externe
  * on bloque pas le post pour eviter de perdre des donnees mais on unset la variable et c'est tout
  */
 if (isset($_REQUEST['pj_enregistrees_nom']) and $_REQUEST['pj_enregistrees_nom']){
-	unset($_REQUEST['pj_enregistrees_nom']);
-	unset($_GET['pj_enregistrees_nom']);
-	unset($_POST['pj_enregistrees_nom']);
+    unset($_REQUEST['pj_enregistrees_nom']);
+    unset($_GET['pj_enregistrees_nom']);
+    unset($_POST['pj_enregistrees_nom']);
 }
 
 /*
@@ -286,66 +286,66 @@ 
  */
 if (isset($_REQUEST['reinstall'])
 and $_REQUEST['reinstall'] == 'oui')
-	$ecran_securite_raison = 'reinstall=oui';
+    $ecran_securite_raison = 'reinstall=oui';
 
 /*
  * Échappement xss referer
  */
 if (isset($_SERVER['HTTP_REFERER']))
-	$_SERVER['HTTP_REFERER'] = strtr($_SERVER['HTTP_REFERER'], '<>"\'', '[]##');
+    $_SERVER['HTTP_REFERER'] = strtr($_SERVER['HTTP_REFERER'], '<>"\'', '[]##');
 
 
 /*
  * Echappement HTTP_X_FORWARDED_HOST
  */
 if (isset($_SERVER['HTTP_X_FORWARDED_HOST']))
-	$_SERVER['HTTP_X_FORWARDED_HOST'] = strtr($_SERVER['HTTP_X_FORWARDED_HOST'], "<>?\"\{\}\$'` \r\n", '____________');
+    $_SERVER['HTTP_X_FORWARDED_HOST'] = strtr($_SERVER['HTTP_X_FORWARDED_HOST'], "<>?\"\{\}\$'` \r\n", '____________');
 
 
 /*
  * Réinjection des clés en html dans l'admin r19561
  */
 if (strpos($_SERVER['REQUEST_URI'], "ecrire/") !== false){
-	$zzzz = implode("", array_keys($_REQUEST));
-	if (strlen($zzzz) != strcspn($zzzz, '<>"\''))
-		$ecran_securite_raison = 'Cle incorrecte en $_REQUEST';
+    $zzzz = implode("", array_keys($_REQUEST));
+    if (strlen($zzzz) != strcspn($zzzz, '<>"\''))
+        $ecran_securite_raison = 'Cle incorrecte en $_REQUEST';
 }
 
 /*
  * Injection par connect
  */
 if (isset($_REQUEST['connect'])
-	and
-	// cas qui permettent de sortir d'un commentaire PHP
-	(strpos($_REQUEST['connect'], "?") !== false
-	 or strpos($_REQUEST['connect'], "<") !== false
-	 or strpos($_REQUEST['connect'], ">") !== false
-	 or strpos($_REQUEST['connect'], "\n") !== false
-	 or strpos($_REQUEST['connect'], "\r") !== false)
-	) {
-	$ecran_securite_raison = "malformed connect argument";
+    and
+    // cas qui permettent de sortir d'un commentaire PHP
+    (strpos($_REQUEST['connect'], "?") !== false
+     or strpos($_REQUEST['connect'], "<") !== false
+     or strpos($_REQUEST['connect'], ">") !== false
+     or strpos($_REQUEST['connect'], "\n") !== false
+     or strpos($_REQUEST['connect'], "\r") !== false)
+    ) {
+    $ecran_securite_raison = "malformed connect argument";
 }
 
 /*
  * S'il y a une raison de mourir, mourons
  */
 if (isset($ecran_securite_raison)) {
-	header("HTTP/1.0 403 Forbidden");
-	header("Expires: Wed, 11 Jan 1984 05:00:00 GMT");
-	header("Cache-Control: no-cache, must-revalidate");
-	header("Pragma: no-cache");
-	header("Content-Type: text/html");
-	die("<html><title>Error 403: Forbidden</title><body><h1>Error 403</h1><p>You are not authorized to view this page ($ecran_securite_raison)</p></body></html>");
+    header("HTTP/1.0 403 Forbidden");
+    header("Expires: Wed, 11 Jan 1984 05:00:00 GMT");
+    header("Cache-Control: no-cache, must-revalidate");
+    header("Pragma: no-cache");
+    header("Content-Type: text/html");
+    die("<html><title>Error 403: Forbidden</title><body><h1>Error 403</h1><p>You are not authorized to view this page ($ecran_securite_raison)</p></body></html>");
 }
 
 /*
  * Un filtre filtrer_entites securise
  */
 if (!function_exists('filtre_filtrer_entites_dist')) {
-	function filtre_filtrer_entites_dist($t) {
-		include_spip('inc/texte');
-		return interdire_scripts(filtrer_entites($t));
-	}
+    function filtre_filtrer_entites_dist($t) {
+        include_spip('inc/texte');
+        return interdire_scripts(filtrer_entites($t));
+    }
 }
 
 
@@ -359,34 +359,34 @@ 
  * Bloque les bots quand le load déborde
  */
 if (!defined('_ECRAN_SECURITE_LOAD'))
-	define('_ECRAN_SECURITE_LOAD', 4);
+    define('_ECRAN_SECURITE_LOAD', 4);
 
 if (
-	defined('_ECRAN_SECURITE_LOAD')
-	and _ECRAN_SECURITE_LOAD > 0
-	and _IS_BOT
-	and !_IS_BOT_FRIEND
-	and $_SERVER['REQUEST_METHOD'] === 'GET'
-	and (
-		(function_exists('sys_getloadavg')
-		  and $load = sys_getloadavg()
-		  and is_array($load)
-		  and $load = array_shift($load)
-		)
-		or
-		(@is_readable('/proc/loadavg')
-		  and $load = file_get_contents('/proc/loadavg')
-		  and $load = floatval($load)
-		)
-	)
-	and $load > _ECRAN_SECURITE_LOAD // eviter l'evaluation suivante si de toute facon le load est inferieur a la limite
-	and rand(0, $load * $load) > _ECRAN_SECURITE_LOAD * _ECRAN_SECURITE_LOAD
+    defined('_ECRAN_SECURITE_LOAD')
+    and _ECRAN_SECURITE_LOAD > 0
+    and _IS_BOT
+    and !_IS_BOT_FRIEND
+    and $_SERVER['REQUEST_METHOD'] === 'GET'
+    and (
+        (function_exists('sys_getloadavg')
+          and $load = sys_getloadavg()
+          and is_array($load)
+          and $load = array_shift($load)
+        )
+        or
+        (@is_readable('/proc/loadavg')
+          and $load = file_get_contents('/proc/loadavg')
+          and $load = floatval($load)
+        )
+    )
+    and $load > _ECRAN_SECURITE_LOAD // eviter l'evaluation suivante si de toute facon le load est inferieur a la limite
+    and rand(0, $load * $load) > _ECRAN_SECURITE_LOAD * _ECRAN_SECURITE_LOAD
 ) {
-	header("HTTP/1.0 503 Service Unavailable");
-	header("Retry-After: 300");
-	header("Expires: Wed, 11 Jan 1984 05:00:00 GMT");
-	header("Cache-Control: no-cache, must-revalidate");
-	header("Pragma: no-cache");
-	header("Content-Type: text/html");
-	die("<html><title>Status 503: Site temporarily unavailable</title><body><h1>Status 503</h1><p>Site temporarily unavailable (load average $load)</p></body></html>");
+    header("HTTP/1.0 503 Service Unavailable");
+    header("Retry-After: 300");
+    header("Expires: Wed, 11 Jan 1984 05:00:00 GMT");
+    header("Cache-Control: no-cache, must-revalidate");
+    header("Pragma: no-cache");
+    header("Content-Type: text/html");
+    die("<html><title>Status 503: Site temporarily unavailable</title><body><h1>Status 503</h1><p>Site temporarily unavailable (load average $load)</p></body></html>");
 }

Spacing +32 added lines, -32 removed lines

@@ -23,14 +23,14 @@ 
  * var_isbot=1 peut etre utilise pour monitorer la disponibilite pour les bots (sujets a 503 de delestage si
  * le load depasse ECRAN_SECURITE_LOAD)
  */
-if (!defined('_IS_BOT') and isset($_GET['var_isbot'])){
+if (!defined('_IS_BOT') and isset($_GET['var_isbot'])) {
 	define('_IS_BOT', $_GET['var_isbot'] ? true : false);
 }
 
 /*
  * Détecteur de robot d'indexation
  */
-if (!defined('_IS_BOT')){
+if (!defined('_IS_BOT')) {
 	define('_IS_BOT',
 		isset($_SERVER['HTTP_USER_AGENT'])
 		and preg_match(
@@ -40,16 +40,16 @@ 
 			. 'MSIE 6\.0|'
 			// UA plus cibles
 			. '80legs|accoona|AltaVista|ASPSeek|Baidu|Charlotte|EC2LinkFinder|eStyle|facebookexternalhit|flipboard|hootsuite|FunWebProducts|Google|Genieo|INA dlweb|InfegyAtlas|Java VM|LiteFinder|Lycos|MegaIndex|MetaURI|Moreover|Rambler|Scrapy|Scooter|ScrubbyBloglines|Yahoo|Yeti'
-			. ',i', (string)$_SERVER['HTTP_USER_AGENT'])
+			. ',i', (string) $_SERVER['HTTP_USER_AGENT'])
 	);
 }
-if (!defined('_IS_BOT_FRIEND')){
+if (!defined('_IS_BOT_FRIEND')) {
 	define('_IS_BOT_FRIEND',
 		isset($_SERVER['HTTP_USER_AGENT'])
 		and preg_match(','
 			// UA plus cibles
 			. 'facebookexternalhit'
-			. ',i', (string)$_SERVER['HTTP_USER_AGENT'])
+			. ',i', (string) $_SERVER['HTTP_USER_AGENT'])
 	);
 }
 
@@ -63,15 +63,15 @@ 
 foreach ($_GET as $var => $val)
 	if ($_GET[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
-		$_GET[$var] = is_array($_GET[$var])?@array_map('intval', $_GET[$var]):intval($_GET[$var]);
+		$_GET[$var] = is_array($_GET[$var]) ? @array_map('intval', $_GET[$var]) : intval($_GET[$var]);
 foreach ($_POST as $var => $val)
 	if ($_POST[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
-		$_POST[$var] = is_array($_POST[$var])?@array_map('intval', $_POST[$var]):intval($_POST[$var]);
+		$_POST[$var] = is_array($_POST[$var]) ? @array_map('intval', $_POST[$var]) : intval($_POST[$var]);
 foreach ($GLOBALS as $var => $val)
 	if ($GLOBALS[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
-		$GLOBALS[$var] = is_array($GLOBALS[$var])?@array_map('intval', $GLOBALS[$var]):intval($GLOBALS[$var]);
+		$GLOBALS[$var] = is_array($GLOBALS[$var]) ? @array_map('intval', $GLOBALS[$var]) : intval($GLOBALS[$var]);
 
 /*
  * Interdit la variable $cjpeg_command, qui était utilisée sans
@@ -82,18 +82,18 @@ 
 /*
  * Contrôle de quelques variables (XSS)
  */
-foreach(array('lang', 'var_recherche', 'aide', 'var_lang_r', 'lang_r', 'var_ajax_ancre', 'nom_fichier') as $var) {
+foreach (array('lang', 'var_recherche', 'aide', 'var_lang_r', 'lang_r', 'var_ajax_ancre', 'nom_fichier') as $var) {
 	if (isset($_GET[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_GET[$var]);
+		$_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string) $_GET[$var]);
 	if (isset($_POST[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_POST[$var]);
+		$_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string) $_POST[$var]);
 }
 
 /*
  * Filtre l'accès à spip_acces_doc (injection SQL en 1.8.2x)
  */
-if (preg_match(',^(.*/)?spip_acces_doc\.,', (string)$_SERVER['REQUEST_URI'])) {
-	$file = addslashes((string)$_GET['file']);
+if (preg_match(',^(.*/)?spip_acces_doc\.,', (string) $_SERVER['REQUEST_URI'])) {
+	$file = addslashes((string) $_GET['file']);
 }
 
 /*
@@ -108,28 +108,28 @@ 
  * Agenda joue à l'injection php
  */
 if (isset($_REQUEST['partie_cal'])
-and $_REQUEST['partie_cal'] !== htmlentities((string)$_REQUEST['partie_cal']))
+and $_REQUEST['partie_cal'] !== htmlentities((string) $_REQUEST['partie_cal']))
 	$ecran_securite_raison = "partie_cal";
 if (isset($_REQUEST['echelle'])
-and $_REQUEST['echelle'] !== htmlentities((string)$_REQUEST['echelle']))
+and $_REQUEST['echelle'] !== htmlentities((string) $_REQUEST['echelle']))
 	$ecran_securite_raison = "echelle";
 
 /*
  * Espace privé
  */
 if (isset($_REQUEST['exec'])
-and !preg_match(',^[\w-]+$,', (string)$_REQUEST['exec']))
+and !preg_match(',^[\w-]+$,', (string) $_REQUEST['exec']))
 	$ecran_securite_raison = "exec";
 if (isset($_REQUEST['cherche_auteur'])
-and preg_match(',[<],', (string)$_REQUEST['cherche_auteur']))
+and preg_match(',[<],', (string) $_REQUEST['cherche_auteur']))
 	$ecran_securite_raison = "cherche_auteur";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'auteurs'
-and preg_match(',[<],', (string)$_REQUEST['recherche']))
+and preg_match(',[<],', (string) $_REQUEST['recherche']))
 	$ecran_securite_raison = "recherche";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'info_plugin'
-and preg_match(',[<],', (string)$_REQUEST['plugin']))
+and preg_match(',[<],', (string) $_REQUEST['plugin']))
 	$ecran_securite_raison = "plugin";
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'puce_statut'
@@ -142,7 +142,7 @@ 
 	or @file_exists('ecrire/inc_version.php')) {
 		function action_configurer() {
 			include_spip('inc/autoriser');
-			if(!autoriser('configurer', _request('configuration'))) {
+			if (!autoriser('configurer', _request('configuration'))) {
 				include_spip('inc/minipres');
 				echo minipres(_T('info_acces_interdit'));
 				exit;
@@ -183,7 +183,7 @@ 
  */
 if (_IS_BOT and (
 	(isset($_REQUEST['echelle']) and isset($_REQUEST['partie_cal']) and isset($_REQUEST['type']))
-	or (strpos((string)$_SERVER['REQUEST_URI'], 'debut_') and preg_match(',[?&]debut_.*&debut_,', (string)$_SERVER['REQUEST_URI']))
+	or (strpos((string) $_SERVER['REQUEST_URI'], 'debut_') and preg_match(',[?&]debut_.*&debut_,', (string) $_SERVER['REQUEST_URI']))
 )
 )
 	$ecran_securite_raison = "robot agenda/double pagination";
@@ -195,7 +195,7 @@ 
 if (isset($_REQUEST['page'])) {
 	if ($_REQUEST['page'] == 'test_cfg')
 		$ecran_securite_raison = "test_cfg";
-	if ($_REQUEST['page'] !== htmlspecialchars((string)$_REQUEST['page']))
+	if ($_REQUEST['page'] !== htmlspecialchars((string) $_REQUEST['page']))
 		$ecran_securite_raison = "xsspage";
 	if ($_REQUEST['page'] == '404'
 	and isset($_REQUEST['erreur']))
@@ -233,11 +233,11 @@ 
 /*
  * Outils XML mal sécurisés again
  */
-if (isset($_REQUEST['var_url']) and $_REQUEST['var_url'] and isset($_REQUEST['exec']) and $_REQUEST['exec']=='valider_xml'){
+if (isset($_REQUEST['var_url']) and $_REQUEST['var_url'] and isset($_REQUEST['exec']) and $_REQUEST['exec'] == 'valider_xml') {
 	$url = trim($_REQUEST['var_url']);
-	if (strncmp($url,'/',1)==0
-	  or (($p=strpos($url,'..'))!==false AND strpos($url,'..',$p+3)!==false)
-		or (strpos($url,'://')!==false or strpos($url,':\\')!==false)) {
+	if (strncmp($url, '/', 1) == 0
+	  or (($p = strpos($url, '..')) !== false AND strpos($url, '..', $p + 3) !== false)
+		or (strpos($url, '://') !== false or strpos($url, ':\\') !== false)) {
 		$ecran_securite_raison = 'URL interdite pour var_url';
 	}
 }
@@ -246,10 +246,10 @@ 
  * Sauvegarde mal securisée < 2.0.9
  */
 if (isset($_REQUEST['nom_sauvegarde'])
-and strstr((string)$_REQUEST['nom_sauvegarde'], '/'))
+and strstr((string) $_REQUEST['nom_sauvegarde'], '/'))
 	$ecran_securite_raison = 'nom_sauvegarde manipulee';
 if (isset($_REQUEST['znom_sauvegarde'])
-and strstr((string)$_REQUEST['znom_sauvegarde'], '/'))
+and strstr((string) $_REQUEST['znom_sauvegarde'], '/'))
 	$ecran_securite_raison = 'znom_sauvegarde manipulee';
 
 
@@ -264,8 +264,8 @@ 
 /*
  * Forms & Table ne se méfiait pas assez des uploads de fichiers
  */
-if (count($_FILES)){
-	foreach($_FILES as $k => $v){
+if (count($_FILES)) {
+	foreach ($_FILES as $k => $v) {
 		 if (preg_match(',^fichier_\d+$,', $k)
 		 and preg_match(',\.php,i', $v['name']))
 		 	unset($_FILES[$k]);
@@ -275,7 +275,7 @@ 
  * et Contact trop laxiste avec une variable externe
  * on bloque pas le post pour eviter de perdre des donnees mais on unset la variable et c'est tout
  */
-if (isset($_REQUEST['pj_enregistrees_nom']) and $_REQUEST['pj_enregistrees_nom']){
+if (isset($_REQUEST['pj_enregistrees_nom']) and $_REQUEST['pj_enregistrees_nom']) {
 	unset($_REQUEST['pj_enregistrees_nom']);
 	unset($_GET['pj_enregistrees_nom']);
 	unset($_POST['pj_enregistrees_nom']);
@@ -305,7 +305,7 @@ 
 /*
  * Réinjection des clés en html dans l'admin r19561
  */
-if (strpos($_SERVER['REQUEST_URI'], "ecrire/") !== false){
+if (strpos($_SERVER['REQUEST_URI'], "ecrire/") !== false) {
 	$zzzz = implode("", array_keys($_REQUEST));
 	if (strlen($zzzz) != strcspn($zzzz, '<>"\''))
 		$ecran_securite_raison = 'Cle incorrecte en $_REQUEST';

Braces +80 added lines, -46 removed lines

@@ -14,8 +14,9 @@ 
 /*
  * Test utilisateur
  */
-if (isset($_GET['test_ecran_securite']))
+if (isset($_GET['test_ecran_securite'])) {
 	$ecran_securite_raison = 'test '._ECRAN_SECURITE;
+}
 
 /*
  * Monitoring
@@ -60,18 +61,21 @@ 
  * (sauf pour id_table, qui n'est pas numérique jusqu'à [5743])
  * (id_base est une variable de la config des widgets de WordPress)
  */
-foreach ($_GET as $var => $val)
+foreach ($_GET as $var => $val) {
 	if ($_GET[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
 		$_GET[$var] = is_array($_GET[$var])?@array_map('intval', $_GET[$var]):intval($_GET[$var]);
-foreach ($_POST as $var => $val)
+}
+foreach ($_POST as $var => $val) {
 	if ($_POST[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
 		$_POST[$var] = is_array($_POST[$var])?@array_map('intval', $_POST[$var]):intval($_POST[$var]);
-foreach ($GLOBALS as $var => $val)
+}
+foreach ($GLOBALS as $var => $val) {
 	if ($GLOBALS[$var] and strncmp($var, "id_", 3) == 0
 	and !in_array($var, array('id_table', 'id_base')))
 		$GLOBALS[$var] = is_array($GLOBALS[$var])?@array_map('intval', $GLOBALS[$var]):intval($GLOBALS[$var]);
+}
 
 /*
  * Interdit la variable $cjpeg_command, qui était utilisée sans
@@ -83,11 +87,13 @@ 
  * Contrôle de quelques variables (XSS)
  */
 foreach(array('lang', 'var_recherche', 'aide', 'var_lang_r', 'lang_r', 'var_ajax_ancre', 'nom_fichier') as $var) {
-	if (isset($_GET[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_GET[$var]);
-	if (isset($_POST[$var]))
-		$_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_POST[$var]);
-}
+	if (isset($_GET[$var])) {
+			$_REQUEST[$var] = $GLOBALS[$var] = $_GET[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_GET[$var]);
+	}
+	if (isset($_POST[$var])) {
+			$_REQUEST[$var] = $GLOBALS[$var] = $_POST[$var] = preg_replace(',[^\w\,/#&;-]+,', ' ', (string)$_POST[$var]);
+	}
+	}
 
 /*
  * Filtre l'accès à spip_acces_doc (injection SQL en 1.8.2x)
@@ -101,41 +107,49 @@ 
  */
 if (isset($_REQUEST['mode']) and isset($_REQUEST['page'])
 and !in_array($_REQUEST['mode'], array("6forum", "1comite"))
-and $_REQUEST['page'] == "identifiants")
+and $_REQUEST['page'] == "identifiants") {
 	$ecran_securite_raison = "identifiants";
+}
 
 /*
  * Agenda joue à l'injection php
  */
 if (isset($_REQUEST['partie_cal'])
-and $_REQUEST['partie_cal'] !== htmlentities((string)$_REQUEST['partie_cal']))
+and $_REQUEST['partie_cal'] !== htmlentities((string)$_REQUEST['partie_cal'])) {
 	$ecran_securite_raison = "partie_cal";
+}
 if (isset($_REQUEST['echelle'])
-and $_REQUEST['echelle'] !== htmlentities((string)$_REQUEST['echelle']))
+and $_REQUEST['echelle'] !== htmlentities((string)$_REQUEST['echelle'])) {
 	$ecran_securite_raison = "echelle";
+}
 
 /*
  * Espace privé
  */
 if (isset($_REQUEST['exec'])
-and !preg_match(',^[\w-]+$,', (string)$_REQUEST['exec']))
+and !preg_match(',^[\w-]+$,', (string)$_REQUEST['exec'])) {
 	$ecran_securite_raison = "exec";
+}
 if (isset($_REQUEST['cherche_auteur'])
-and preg_match(',[<],', (string)$_REQUEST['cherche_auteur']))
+and preg_match(',[<],', (string)$_REQUEST['cherche_auteur'])) {
 	$ecran_securite_raison = "cherche_auteur";
+}
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'auteurs'
-and preg_match(',[<],', (string)$_REQUEST['recherche']))
+and preg_match(',[<],', (string)$_REQUEST['recherche'])) {
 	$ecran_securite_raison = "recherche";
+}
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'info_plugin'
-and preg_match(',[<],', (string)$_REQUEST['plugin']))
+and preg_match(',[<],', (string)$_REQUEST['plugin'])) {
 	$ecran_securite_raison = "plugin";
+}
 if (isset($_REQUEST['exec'])
 and $_REQUEST['exec'] == 'puce_statut'
 and isset($_REQUEST['id'])
-and !intval($_REQUEST['id']))
+and !intval($_REQUEST['id'])) {
 	$ecran_securite_raison = "puce_statut";
+}
 if (isset($_REQUEST['action'])
 and $_REQUEST['action'] == 'configurer') {
 	if (@file_exists('inc_version.php')
@@ -160,21 +174,24 @@ 
 	@get_magic_quotes_gpc() ?
 		stripslashes(serialize($_REQUEST)) : serialize($_REQUEST),
 	chr(0)
-) !== false)
+) !== false) {
 	$ecran_securite_raison = "%00";
+}
 
 /*
  * Bloque les requêtes fond=formulaire_
  */
 if (isset($_REQUEST['fond'])
-and preg_match(',^formulaire_,i', $_REQUEST['fond']))
+and preg_match(',^formulaire_,i', $_REQUEST['fond'])) {
 	$ecran_securite_raison = "fond=formulaire_";
+}
 
 /*
  * Bloque les requêtes du type ?GLOBALS[type_urls]=toto (bug vieux php)
  */
-if (isset($_REQUEST['GLOBALS']))
+if (isset($_REQUEST['GLOBALS'])) {
 	$ecran_securite_raison = "GLOBALS[GLOBALS]";
+}
 
 /*
  * Bloque les requêtes des bots sur:
@@ -185,29 +202,34 @@ 
 	(isset($_REQUEST['echelle']) and isset($_REQUEST['partie_cal']) and isset($_REQUEST['type']))
 	or (strpos((string)$_SERVER['REQUEST_URI'], 'debut_') and preg_match(',[?&]debut_.*&debut_,', (string)$_SERVER['REQUEST_URI']))
 )
-)
+) {
 	$ecran_securite_raison = "robot agenda/double pagination";
+}
 
 /*
  * Bloque une vieille page de tests de CFG (<1.11)
  * Bloque un XSS sur une page inexistante
  */
 if (isset($_REQUEST['page'])) {
-	if ($_REQUEST['page'] == 'test_cfg')
-		$ecran_securite_raison = "test_cfg";
-	if ($_REQUEST['page'] !== htmlspecialchars((string)$_REQUEST['page']))
-		$ecran_securite_raison = "xsspage";
+	if ($_REQUEST['page'] == 'test_cfg') {
+			$ecran_securite_raison = "test_cfg";
+	}
+	if ($_REQUEST['page'] !== htmlspecialchars((string)$_REQUEST['page'])) {
+			$ecran_securite_raison = "xsspage";
+	}
 	if ($_REQUEST['page'] == '404'
-	and isset($_REQUEST['erreur']))
-		$ecran_securite_raison = "xss404";
-}
+	and isset($_REQUEST['erreur'])) {
+			$ecran_securite_raison = "xss404";
+	}
+	}
 
 /*
  * XSS par array
  */
-foreach (array('var_login') as $var)
-if (isset($_REQUEST[$var]) and is_array($_REQUEST[$var]))
+foreach (array('var_login') as $var) {
+    if (isset($_REQUEST[$var]) and is_array($_REQUEST[$var]))
 	$ecran_securite_raison = "xss ".$var;
+}
 
 /*
  * Parade antivirale contre un cheval de troie
@@ -217,18 +239,21 @@ 
 	function tmp_lkojfghx2($a = 0, $b = 0, $c = 0, $d = 0) {
 		// si jamais on est arrivé ici sur une erreur php
 		// et qu'un autre gestionnaire d'erreur est défini, l'appeller
-		if ($b && $GLOBALS['tmp_xhgfjokl'])
-			call_user_func($GLOBALS['tmp_xhgfjokl'], $a, $b, $c, $d);
+		if ($b && $GLOBALS['tmp_xhgfjokl']) {
+					call_user_func($GLOBALS['tmp_xhgfjokl'], $a, $b, $c, $d);
+		}
 	}
 }
-if (isset($_POST['tmp_lkojfghx3']))
+if (isset($_POST['tmp_lkojfghx3'])) {
 	$ecran_securite_raison = "gumblar";
+}
 
 /*
  * Outils XML mal sécurisés < 2.0.9
  */
-if (isset($_REQUEST['transformer_xml']))
+if (isset($_REQUEST['transformer_xml'])) {
 	$ecran_securite_raison = "transformer_xml";
+}
 
 /*
  * Outils XML mal sécurisés again
@@ -246,11 +271,13 @@ 
  * Sauvegarde mal securisée < 2.0.9
  */
 if (isset($_REQUEST['nom_sauvegarde'])
-and strstr((string)$_REQUEST['nom_sauvegarde'], '/'))
+and strstr((string)$_REQUEST['nom_sauvegarde'], '/')) {
 	$ecran_securite_raison = 'nom_sauvegarde manipulee';
+}
 if (isset($_REQUEST['znom_sauvegarde'])
-and strstr((string)$_REQUEST['znom_sauvegarde'], '/'))
+and strstr((string)$_REQUEST['znom_sauvegarde'], '/')) {
 	$ecran_securite_raison = 'znom_sauvegarde manipulee';
+}
 
 
 /*
@@ -258,8 +285,9 @@ 
  * on vérifie 'page' pour ne pas bloquer ... drupal
  */
 if (isset($_REQUEST['op']) and isset($_REQUEST['page'])
-and $_REQUEST['op'] !== preg_replace('/[^\-\w]/', '', $_REQUEST['op']))
+and $_REQUEST['op'] !== preg_replace('/[^\-\w]/', '', $_REQUEST['op'])) {
 	$ecran_securite_raison = 'op';
+}
 
 /*
  * Forms & Table ne se méfiait pas assez des uploads de fichiers
@@ -267,8 +295,9 @@ 
 if (count($_FILES)){
 	foreach($_FILES as $k => $v){
 		 if (preg_match(',^fichier_\d+$,', $k)
-		 and preg_match(',\.php,i', $v['name']))
-		 	unset($_FILES[$k]);
+		 and preg_match(',\.php,i', $v['name'])) {
+		 		 	unset($_FILES[$k]);
+		 }
 	}
 }
 /*
@@ -285,21 +314,24 @@ 
  * reinstall=oui un peu trop permissif
  */
 if (isset($_REQUEST['reinstall'])
-and $_REQUEST['reinstall'] == 'oui')
+and $_REQUEST['reinstall'] == 'oui') {
 	$ecran_securite_raison = 'reinstall=oui';
+}
 
 /*
  * Échappement xss referer
  */
-if (isset($_SERVER['HTTP_REFERER']))
+if (isset($_SERVER['HTTP_REFERER'])) {
 	$_SERVER['HTTP_REFERER'] = strtr($_SERVER['HTTP_REFERER'], '<>"\'', '[]##');
+}
 
 
 /*
  * Echappement HTTP_X_FORWARDED_HOST
  */
-if (isset($_SERVER['HTTP_X_FORWARDED_HOST']))
+if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
 	$_SERVER['HTTP_X_FORWARDED_HOST'] = strtr($_SERVER['HTTP_X_FORWARDED_HOST'], "<>?\"\{\}\$'` \r\n", '____________');
+}
 
 
 /*
@@ -307,9 +339,10 @@ 
  */
 if (strpos($_SERVER['REQUEST_URI'], "ecrire/") !== false){
 	$zzzz = implode("", array_keys($_REQUEST));
-	if (strlen($zzzz) != strcspn($zzzz, '<>"\''))
-		$ecran_securite_raison = 'Cle incorrecte en $_REQUEST';
-}
+	if (strlen($zzzz) != strcspn($zzzz, '<>"\'')) {
+			$ecran_securite_raison = 'Cle incorrecte en $_REQUEST';
+	}
+	}
 
 /*
  * Injection par connect
@@ -358,8 +391,9 @@ 
 /*
  * Bloque les bots quand le load déborde
  */
-if (!defined('_ECRAN_SECURITE_LOAD'))
+if (!defined('_ECRAN_SECURITE_LOAD')) {
 	define('_ECRAN_SECURITE_LOAD', 4);
+}
 
 if (
 	defined('_ECRAN_SECURITE_LOAD')