Go to most recent revision | Blame | Last modification | View Log | RSS feed
<?php/***************************************************************************\* SPIP, Systeme de publication pour l'internet ** ** Copyright (c) 2001-2005 ** Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James ** ** Ce programme est un logiciel libre distribue sous licence GNU/GPL. ** Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *\***************************************************************************///// Ce fichier ne sera execute qu'une foisif (defined("_INC_CACHE")) return;define("_INC_CACHE", "1");//// Calcul du nom du fichier cache//function nettoyer_uri() {$fichier_requete = $GLOBALS['REQUEST_URI'];$fichier_requete = eregi_replace('[?&](PHPSESSID|(var_[^=&]*))=[^&]*','', $fichier_requete);return $fichier_requete;}//// Le format souhaite : "CACHE/a/bout-d-url.md5(.gz)"// Attention a modifier simultanement le sanity check de// la fonction retire_cache()//function generer_nom_fichier_cache($contexte='', $fond='') {global $flag_gz;if (!$contexte) {$fichier_requete = nettoyer_uri();} else {$fichier_requete = $fond;foreach ($contexte as $var=>$val)$fichier_requete .= "&$var=$val";}$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), -22);// Pour la page d'accueilif (!$fichier_cache)$fichier_cache = 'INDEX-';// morceau de md5 selon HOST et $fond$md_cache = md5($fichier_requete . $GLOBALS['HTTP_HOST'] . $fond);$fichier_cache .= '.'.substr($md_cache, 1, 8);// Sous-repertoires 0...9a..f/$subdir = creer_repertoire(_DIR_CACHE, substr($md_cache, 0, 1));include_ecrire('inc_acces.php3');verifier_htaccess(_DIR_CACHE);$gzip = $flag_gz ? '.gz' : '';return _DIR_CACHE . $subdir.$fichier_cache.$gzip;}//// Destruction des fichiers caches invalides//// NE PAS appeler ces fonctions depuis l'espace prive// car openbase_dir peut leur interdire l'acces au repertoire de cache// Securite : est sur que c'est un cachefunction retire_cache($cache) {if (!_DIR_RESTREINT) return;if (preg_match('|^' . _DIR_CACHE ."([0-9a-f]/)?([0-9]+/)?[^.][\-_\%0-9a-z]+\.[0-9a-f]+(\.gz)?$|i",$cache)) {// supprimer le fichier (de facon propre)supprimer_fichier($cache);} elsespip_log("Impossible de retirer $cache");}// Supprimer les caches marques "x"function retire_caches($chemin = '') {if (!_DIR_RESTREINT) return;// recuperer la liste des caches voues a la suppression$suppr = array();// En priorite le cache qu'on appelle maintenantif ($chemin) {$q = spip_query("SELECT fichier FROM spip_cachesWHERE fichier = '".addslashes($chemin)."' AND type='x' LIMIT 0,1");if ($r = spip_fetch_array($q))$suppr[$r['fichier']] = true;}// Et puis une centaine d'autresif (lire_meta('invalider_caches')) {$compte = 1;effacer_meta('invalider_caches'); # concurrenceecrire_metas();$q = spip_query("SELECT fichier FROM spip_cachesWHERE type='x' LIMIT 0,100");while ($r = spip_fetch_array($q)) {$compte ++; # compte le nombre de resultats vus (y compris doublons)$suppr[$r['fichier']] = true;}}if ($n = count($suppr)) {spip_log ("Retire $n caches");foreach ($suppr as $cache => $ignore)retire_cache($cache);spip_query("DELETE FROM spip_caches WHERE ".calcul_mysql_in('fichier', "'".join("','",array_keys($suppr))."'") );}// Si on a regarde (compte > 0), signaler s'il reste des caches invalidesif ($compte > 0) {if ($compte > 100) # s'il y en a 101 c'est qu'on n'a pas finiecrire_meta('invalider_caches', 'oui');elseeffacer_meta('invalider');ecrire_metas();}}//// Retourne 0 s'il faut calculer le cache, 1 si on peut l'utiliser//function utiliser_cache($chemin_cache, $delais) {global $_SERVER;// ne jamais calculer pour les moteurs de recherche, proxies...if ($_SERVER['REQUEST_METHOD'] == 'HEAD')return 1;// calcul par forcageif ($GLOBALS['var_mode'] &&($GLOBALS['_COOKIE']['spip_session']|| $GLOBALS['_COOKIE']['spip_admin']|| @file_exists(_ACCESS_FILE_NAME))) # insuffisant...return 0;// calcul par absenceif (!@file_exists($chemin_cache)) return 0;// calcul par obsolescencereturn ((time() - @filemtime($chemin_cache)) > $delais) ? 0 : 1;}// Obsolete ? Utilisee pour vider le cache depuis l'espace prive// (ou juste les squelettes si un changement de config le necessite)function purger_repertoire($dir, $age='ignore', $regexp = '') {$handle = @opendir($dir);if (!$handle) return;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))@unlink($chemin);else if (is_dir($chemin))if ($fichier != 'CVS')purger_repertoire($chemin);}closedir($handle);}function purger_cache() {spip_log('vider le cache');include_ecrire('inc_invalideur.php3');supprime_invalideurs();purger_repertoire(_DIR_CACHE, 0);}function purger_squelettes() {spip_log('effacer les squelettes compiles');purger_repertoire(_DIR_CACHE, 0, '^skel_');}// Determination du fichier cache (si besoin)function determiner_cache($delais, &$use_cache, &$chemin_cache) {global $_SERVER;$post = ($_SERVER['REQUEST_METHOD'] == 'POST');// Le fichier cache est-il valide ?if ($delais<>0 AND !$post)$use_cache = utiliser_cache($chemin_cache, $delais);// Sinon, tester qu'on a la connexion a la baseif (!$use_cache) {include_local(_FILE_CONNECT);if (!$GLOBALS['db_ok']) {if (@file_exists($chemin_cache))$use_cache = 1; // passer outreelse {spip_log("Erreur base de donnees & ". "impossible utiliser $chemin_cache");if (!$GLOBALS['flag_preserver']) {include_ecrire('inc_presentation.php3');if (!headers_sent()) {install_debut_html(_T('info_travaux_titre'));echo _T('titre_probleme_technique');install_fin_html();}else echo _T('titre_probleme_technique');}// continuer quand meme, ca n'ira pas loin.// mais ne plus rien signaler, ne pas mettre en cache ...$GLOBALS['flag_preserver'] = true;define ('spip_interdire_cache', true);}}// En cas de POST (et si la connexion est ok) supprimer le cache// histoire de faciliter la gestion de certaines balises dynamiqueselse if ($post AND $chemin_cache) {supprimer_fichier($chemin_cache);}}}// Fonctions pour le cache des images (vues reduites)function calculer_taille_dossier ($dir) {$handle = @opendir($dir);if (!$handle) return;while (($fichier = @readdir($handle)) != '') {// Eviter ".", "..", ".htaccess", etc.if ($fichier[0] == '.') continue;if ($regexp AND !ereg($regexp, $fichier)) continue;if (is_file("$dir/$fichier")) {$taille += filesize("$dir/$fichier");}}closedir($handle);return $taille;}function calculer_cache_vignettes() {$handle = @opendir(_DIR_IMG);if (!$handle) return;while (($fichier = @readdir($handle)) != '') {// Eviter ".", "..", ".htaccess", etc.if ($fichier[0] == '.') continue;if ($regexp AND !ereg($regexp, $fichier)) continue;if (is_dir(_DIR_IMG.$fichier) AND ereg("^cache-", $fichier)) {$taille += calculer_taille_dossier(_DIR_IMG.$fichier);}}closedir($handle);include_ecrire("inc_filtres.php3");echo "<html><body>\n";echo "<div style='font-family: verdana, arial, sans; font-size: 12px;'>";echo "<p align='justify'>\n";echo _T('ecrire:taille_cache_image', array('dir' => _DIR_IMG,'taille' => "<b>".taille_en_octets($taille)."</b>"));echo "</p></div></body></html>";}function purger_cache_images() {purger_repertoire(_DIR_IMG, $age='ignore', $regexp = '^cache\-');}?>