diff options
author | dakkar <dakkar@luxion> | 2008-12-29 13:44:50 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2008-12-29 13:44:50 +0000 |
commit | 26ff8bed4c6560f04b00ab8b5e3867645b740807 (patch) | |
tree | 1a8f36e4912299543dbe1876353e14ded4736818 /lib/WebCoso/Cleaner.pm | |
parent | inizio dei feed (diff) | |
download | WebCoso-26ff8bed4c6560f04b00ab8b5e3867645b740807.tar.gz WebCoso-26ff8bed4c6560f04b00ab8b5e3867645b740807.tar.bz2 WebCoso-26ff8bed4c6560f04b00ab8b5e3867645b740807.zip |
forse i feed vanno (tranne i body); cleaner non elimina i sorgenti dei feed
git-svn-id: svn://luxion/repos/WebCoso/trunk@397 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'lib/WebCoso/Cleaner.pm')
-rw-r--r-- | lib/WebCoso/Cleaner.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/WebCoso/Cleaner.pm b/lib/WebCoso/Cleaner.pm index 8c7eb32..69d2bb7 100644 --- a/lib/WebCoso/Cleaner.pm +++ b/lib/WebCoso/Cleaner.pm @@ -8,10 +8,11 @@ use Log::Log4perl ':easy'; sub clean { my %to_keep; - @to_keep{WebCoso::Common::keepEarliest(WebCoso::Common::fromTo($WebCoso::Common::SRCPATH,{%WebCoso::Common::docfiles,dirs=>sub{!m{^(_webcoso|\.svn)$}}}))}=(); - @to_keep{WebCoso::Common::fromTo($WebCoso::Common::SRCPATH,{files=>sub{!m{^document\.}},dirs=>sub{!m{^(_webcoso|\.svn)$}}})}=(); + @to_keep{WebCoso::Common::keepEarliest(WebCoso::Common::fromTo($WebCoso::Common::SRCPATH,{%WebCoso::Common::docfiles,dirs=>sub{!m{^[_.]}}}))}=(); + @to_keep{WebCoso::Common::fromTo($WebCoso::Common::SRCPATH,{%WebCoso::Common::feedfiles})}=(); + @to_keep{WebCoso::Common::fromTo($WebCoso::Common::SRCPATH,{files=>sub{!m{^(?:document|feed)\.}},dirs=>sub{!m{^[_.]}}})}=(); - my $iter=File::Next::files({descend_filter=>sub{!m{^\.svn$}}},$WebCoso::Common::SRCPATH,$WebCoso::Common::DSTPATH); + my $iter=File::Next::files({descend_filter=>sub{!m{^\.}}},$WebCoso::Common::SRCPATH,$WebCoso::Common::DSTPATH); while (defined (my $file=$iter->())) { DEBUG("Examining $file"); next if exists $to_keep{$file}; |