blob: a247be0161b0c2fb74c50d36bafed8d4d2baeda1 (
plain)
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
|
use strict; use warnings; 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) { require WebCoso::Cleaner; WebCoso::Cleaner::clean(); } else { require WebCoso::Maker; WebCoso::Maker::make(); }
|