eviter de planter le site quand il y a trop de fichiers caches à invalider

(c'est le cas de www.spip.net)

ecrire/inc_db_mysql.php3

@@ -226,15 +226,21 @@ function spip_release_lock($nom) {
 //
 function calcul_mysql_in($val, $valeurs, $not='') {
 	if (!$valeurs) return '0=0';
-	$s = split(',', $valeurs, 255);
-	if (count($s) < 255) {
-		return ("($val $not IN ($valeurs))");
-	} else {
-		$valeurs = array_pop($s);
-		return ("($val $not IN (" . join(',',$s) . "))\n" .
-			($not ? "AND\t" : "OR\t") .
-			calcul_mysql_in($val, $valeurs, $not));
-    }
+
+	$n = $i = 0;
+	$chunk = array();
+	while ($n = strpos($valeurs, ',', $n+1)) {
+		if ((++$i) >= 255) {
+			$chunk = substr($valeurs, 0, $n);
+			$in_sql .= "($val $not IN (" . $chunk . "))\n" .
+				($not ? "AND\t" : "OR\t");
+			$valeurs = substr($valeurs, $n+1);
+			$i = $n = 0;
+		}
+	}
+	$in_sql .= "($val $not IN ($valeurs))";
+
+	return $in_sql;
 }
 
 ?>

ecrire/inc_invalideur.php3

@@ -106,10 +106,9 @@ function applique_invalideur($depart) {
 		// ce qui evite des chevauchements dans la validation des forums
 		// [ A valide un forum, B obtient de purger les invalides, et A
 		//   trouve son cache avant que B n'ait eu le temps de le purger ]
-		if (!_DIR_RESTREINT) {
-			ecrire_meta('invalider', 'oui');
-			ecrire_metas();
-		} else {
+		ecrire_meta('invalider', 'oui');
+		ecrire_metas();
+		if (_DIR_RESTREINT) {
 			include_local('inc-cache.php3');
 			retire_caches();
 		}

inc-cache.php3

@@ -97,7 +97,7 @@ function retire_cache($cache) {
 }
 
 // Supprimer les caches marques "x"
-function retire_caches() {
+function retire_caches($chemin = '') {
 	if (!_DIR_RESTREINT) return;
 
 	// signaler
@@ -106,7 +106,18 @@ function retire_caches() {
 
 	// recuperer la liste des caches voues a la suppression
 	$suppr = array();
-	$q = spip_query("SELECT fichier FROM spip_caches WHERE type='x'");
+
+	// En priorite le cache qu'on appelle maintenant
+	if ($chemin) {
+		$q = spip_query("SELECT fichier FROM spip_caches
+		WHERE fichier = '".addslashes($chemin)."' AND type='x' LIMIT 0,1");
+		if ($r = spip_fetch_array($q))
+			$suppr[$r['fichier']] = true;
+	}
+
+	// Et puis une centaine d'autres
+	$q = spip_query("SELECT fichier FROM spip_caches
+	WHERE type='x' LIMIT 0,100");
 	while ($r = spip_fetch_array($q))
 		$suppr[$r['fichier']] = true;
 
@@ -116,6 +127,12 @@ function retire_caches() {
 			retire_cache($cache);
 		spip_query("DELETE FROM spip_caches WHERE "
 		.calcul_mysql_in('fichier', "'".join("','",array_keys($suppr))."'") );
+
+		// signaler aux suivants
+		if ($n>99) {
+			ecrire_meta('invalider', 'oui');
+			ecrire_metas();
+		}
 	}
 }
 

inc-messforum.php3

@@ -150,7 +150,7 @@ function enregistre_forum() {
 	// verifier fichier lock
 	$alea = preg_replace('/[^0-9]/', '', $alea);
 	if (!file_exists($hash = _DIR_SESSIONS."forum_$alea.lck"))
-		exit; # echec silencieux du POST
+		return $retour_forum; # echec silencieux du POST
 	unlink($hash);
 
 	// Entrer le message dans la base

inc-public-global.php3

@@ -214,17 +214,17 @@ function afficher_page_globale ($fond, $delais, &$use_cache) {
 			$var_preview = false;
 	}
 
+	// Calculer le chemin putatif du cache
+	$chemin_cache = generer_nom_fichier_cache('', $fond);
+
 	// Faut-il effacer des pages invalidees ?
 	if (lire_meta('invalider')) {
 		include_ecrire('inc_meta.php3');
 		lire_metas();
 		if (lire_meta('invalider'))
-			retire_caches();
+			retire_caches($chemin_cache);
 	}
 
-	// Calculer le chemin putatif du cache
-	$chemin_cache = generer_nom_fichier_cache('', $fond);
-
 	// Peut-on utiliser un fichier cache ?
 	determiner_cache($delais, $use_cache, $chemin_cache);