| New file |
|---|
| 0,0 → 1,294 |
|---|
| <?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 fois |
| if (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'accueil |
| if (!$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 cache |
| function 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); |
| } else |
| spip_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 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 |
| if (lire_meta('invalider_caches')) { |
| $compte = 1; |
| effacer_meta('invalider_caches'); # concurrence |
| ecrire_metas(); |
| |
| $q = spip_query("SELECT fichier FROM spip_caches |
| WHERE 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 invalides |
| if ($compte > 0) { |
| if ($compte > 100) # s'il y en a 101 c'est qu'on n'a pas fini |
| ecrire_meta('invalider_caches', 'oui'); |
| else |
| effacer_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 forcage |
| if ($GLOBALS['var_mode'] && |
| ($GLOBALS['_COOKIE']['spip_session'] |
| || $GLOBALS['_COOKIE']['spip_admin'] |
| || @file_exists(_ACCESS_FILE_NAME))) # insuffisant... |
| return 0; |
| |
| // calcul par absence |
| if (!@file_exists($chemin_cache)) return 0; |
| |
| // calcul par obsolescence |
| return ((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 base |
| if (!$use_cache) { |
| include_local(_FILE_CONNECT); |
| if (!$GLOBALS['db_ok']) { |
| if (@file_exists($chemin_cache)) |
| $use_cache = 1; // passer outre |
| else { |
| 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 dynamiques |
| else 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\-'); |
| } |
| |
| |
| |
| ?> |