From 0984f50d91ff61131127ae80171c75f37de0fe30 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 3 Jan 2008 20:37:00 +0000
Subject: refactoring: cleaner

git-svn-id: svn://luxion/repos/WebCoso/trunk@329 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 script/webcoso.pl | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

(limited to 'script')

diff --git a/script/webcoso.pl b/script/webcoso.pl
index 0e888d4..a247be0 100644
--- a/script/webcoso.pl
+++ b/script/webcoso.pl
@@ -1,8 +1,6 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use File::Next;
-use Path::Class;
 use Getopt::Long;
 use WebCoso::Common;
 
@@ -22,18 +20,8 @@ $WebCoso::Common::DSTBASEURL=~s{/*$}{/};
 }
 
 if ($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)$}}})}=();
-
-    my $iter=File::Next::files({descend_filter=>sub{!m{^\.svn$}}},$WebCoso::Common::SRCPATH,$WebCoso::Common::DSTPATH);
-    while (defined (my $file=$iter->())) {
-        next if exists $to_keep{$file};
-        unlink $file;
-    }
-    dir($WebCoso::Common::DSTPATH)->rmtree;
-    dir($WebCoso::Common::SRCPATH,'_webcoso')->rmtree;
-    exit 0;
+    require WebCoso::Cleaner;
+    WebCoso::Cleaner::clean();
 }
 else {
     require WebCoso::Maker;
-- 
cgit v1.2.3