Changeset 47935 in spip-zone


Ignore:
Timestamp:
May 19, 2011, 1:29:23 PM (10 years ago)
Author:
cedric@…
Message:

nettoyage recursif des vieux paquets

File:
1 edited

Legend:

Unmodified
Added
Removed
  • _outils_/smart_paquets/inc_outils.php

    r47298 r47935  
    183183//
    184184// return               : aucun
    185 function nettoyer_vieux_paquets($paquets_a_jour, $dir_paq, $dir_tmp) {
     185function nettoyer_vieux_paquets($paquets_a_jour, $dir_paq, $dir_tmp, $prepend='') {
    186186
    187187        $maxfiles = 10000; // securite
     188        #echo_trace("Nettoyer vieux paquets:".$dir_paq);
    188189        $nbfiles = 0;
     190
    189191        if (@is_dir($dir_paq) AND is_readable($dir_paq) AND $d = @opendir($dir_paq)) {
    190192                while (($f = readdir($d)) !== false && ($nbfiles<$maxfiles)) {
     193                        #echo_trace("fichier $f lu");
    191194                        if ($f[0] != '.' # ignorer . .. .svn etc
    192195                        AND $f != 'CVS'
    193196                        AND $f != 'remove.txt'
    194197                        AND is_readable($g = $dir_paq.$f)) {
    195                                 if (is_file($g) AND pathinfo($g, PATHINFO_EXTENSION) == "zip") {
    196                                         if (!in_array($f,$paquets_a_jour)){
     198                                #echo_trace("fichier $g a supprimer ?");
     199                                if (is_dir($g)){
     200                                        nettoyer_vieux_paquets($paquets_a_jour, "$g/", $dir_tmp, "$prepend$f/");
     201                                }
     202                                elseif (is_file($g) AND pathinfo($g, PATHINFO_EXTENSION) == "zip") {
     203                                        #echo_trace("fichier $g est un zip");
     204                                        if (!in_array($prepend.$f,$paquets_a_jour)){
    197205                                                echo_trace("Suppression du vieux paquet $f");
    198206                                                unlink($g);
Note: See TracChangeset for help on using the changeset viewer.