script/webcoso.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#!/usr/bin/perl 
use strict;
use warnings;
use File::Next;
use Path::Class;
use Getopt::Long;
use WebCoso::Common;
 
my $CLEAN=0;
 
{
my $res=GetOptions('src|s=s'=>\$WebCoso::Common::SRCPATH,
                   'dst|d=s'=>\$WebCoso::Common::DSTPATH,
                   'url|u=s'=>\$WebCoso::Common::DSTBASEURL,
                   'include|I=s'=>\@WebCoso::Common::TMPLPATH,
                   'clean'=>\$CLEAN,
               );
exit 1 unless $res;
$WebCoso::Common::SRCPATH=~s{/+$}{};
$WebCoso::Common::DSTPATH=~s{/+$}{};
$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;
}
else {
    require WebCoso::Maker;
    WebCoso::Maker::make();
}