Subversion Repositories Sites.tela-botanica.org

<?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\-');
}



?>