inc-cache.php3

<?php

//
// Ce fichier ne sera execute qu'une fois
if (defined("_INC_CACHE")) return;
define("_INC_CACHE", "1");


//
// Calcul du nom du fichier cache
//

function generer_nom_fichier_cache($fichier_requete) {
	global $HTTP_POST_VARS;

	$md_cache = md5($fichier_requete);

	$fichier_cache = ereg_replace('^/+', '', $fichier_requete);
	$fichier_cache = ereg_replace('\.[a-zA-Z0-9]*', '', $fichier_cache);
	$fichier_cache = ereg_replace('&[^&]+=([^&]+)', '&\1', $fichier_cache);
	$fichier_cache = rawurlencode(strtr($fichier_cache, '/&-', '--_'));
	if (strlen($fichier_cache) > 24)
		$fichier_cache = substr(ereg_replace('([a-zA-Z]{1,3})[^-]*-', '\1-', $fichier_cache), -24);

	if (!$fichier_cache)
		$fichier_cache = 'INDEX-';
	if (!empty($HTTP_POST_VARS)) $fichier_cache .= '.'.@getmypid();
	$fichier_cache .= '.'.substr($md_cache, 1, 6);

	$subdir_cache = substr($md_cache, 0, 1);

	if (creer_repertoire('CACHE', $subdir_cache))
		$fichier_cache = "$subdir_cache/$fichier_cache";

	return $fichier_cache;
}


//
// Doit-on recalculer le cache ?
//

function utiliser_cache($chemin_cache, $delais) {
	global $HTTP_SERVER_VARS, $HTTP_POST_VARS;
	global $lastmodified;

	// A priori cache
	$use_cache = true;

	// Existence du fichier
	if (!@file_exists($chemin_cache)) {
		if (@file_exists($chemin_cache.'.NEW')) {
			// Deuxieme acces : le fichier est marque comme utilise
			@rename($chemin_cache.'.NEW', $chemin_cache);
		}
		// Double verification (cas renommage/suppression entre les deux @file_exists)
		clearstatcache();
		$use_cache = @file_exists($chemin_cache);
	}

	// Date de creation du fichier
	if ($use_cache) {
		$t = filemtime($chemin_cache);
		$age = time() - $t;
		$age_ok = (($age < $delais) AND ($age >= 0));
		if (!$age_ok) {		// fichier cache trop vieux
			if (timeout(false, false))	// sauf lock hebergeur ou probleme base
				$use_cache = false;
		}
		// Inclusions multiples : derniere modification
		if ($lastmodified < $t) $lastmodified = $t;
	}

	// recalcul obligatoire
	$use_cache &= ($GLOBALS['recalcul'] != 'oui');
	$use_cache &= empty($HTTP_POST_VARS);

	// ne jamais recalculer pour les moteurs de recherche, proxies...
	if ($HTTP_SERVER_VARS['REQUEST_METHOD'] == 'HEAD')
		$use_cache = true;

	spip_debug (($use_cache ? "cache":"calcul")." ($chemin_cache)". ($age ? " age: $age s (reste ".($delais-$age)." s)":''));
	return $use_cache;
}


function ecrire_fichier_cache($fichier, $contenu) {
	global $flag_flock;

	$fichier_tmp = $fichier.'_tmp';
	$fichier_new = $fichier.'.NEW';

	// Essayer de poser un verrou pour proteger l'ecriture du fichier
	if (!spip_get_lock($fichier_tmp, 1)) return $fichier_new;
	$ok = true;
	$f = fopen($fichier_tmp, "wb");
	if (!$f) $ok = false;
	else {
		$r = fwrite($f, $contenu);
		if ($r != strlen($contenu)) $ok = false;
		if (!fclose($f)) $ok = false;
	}

	// En cas d'erreur d'ecriture, renvoyer le fichier existant
	if (!$ok) {
		spip_release_lock($fichier_tmp);
		clearstatcache();
		return @file_exists($fichier_new) ? $fichier_new : $fichier;
	}

	// Finaliser
	@unlink($fichier_new);
	rename($fichier_tmp, $fichier_new);
	@unlink($fichier);
	spip_release_lock($fichier_tmp);

	if ($GLOBALS['flag_apc']) {
		apc_rm($fichier_new);
		apc_rm($fichier);
	}
	return $fichier_new;
}


//
// Retourne $subdir/ si le sous-repertoire peut etre cree, '' sinon
//

function creer_repertoire($base, $subdir) {
	if (@file_exists("$base/.plat")) return '';
	$path = $base.'/'.$subdir;
	if (@file_exists($path)) return "$subdir/";

	@mkdir($path, 0777);
	@chmod($path, 0777);
	$ok = false;
	if ($f = @fopen("$path/.test", "w")) {
		@fputs($f, '<'.'?php $ok = true; ?'.'>');
		@fclose($f);
		include("$path/.test");
	}
	if (!$ok) {
		$f = @fopen("$base/.plat", "w");
		if ($f)
			fclose($f);
		else {
			@header("Location: spip_test_dirs.php3");
			exit;
		}
	}
	return ($ok? "$subdir/" : '');
}


function purger_repertoire($dir, $age, $regexp = '') {
	$handle = @opendir($dir);
	if (!$handle) return;

	$t = time();
	while (($fichier = @readdir($handle)) != '') {
		// Eviter ".", "..", ".htaccess", etc.
		if ($fichier[0] == '.') continue;
		if ($regexp AND !ereg($regexp, $fichier)) continue;
		$chemin = "$dir/$fichier";
		if (is_file($chemin)) {
			$d = $t - filemtime($chemin);
			if ($d > $age OR (ereg('\.NEW$', $fichier) AND $d > 60)) {
				@unlink($chemin);
				$fichier = ereg_replace('\.NEW$', '', $fichier);
				$query = "DELETE FROM spip_forum_cache WHERE fichier='$fichier'";
				spip_query($query);
			}
		}
		else if (is_dir($chemin)) {
			if ($fichier != 'CVS') purger_repertoire($chemin, $age);
		}
	}
	closedir($handle);
}

?>