diff options
Diffstat (limited to 'script/webcoso.pl')
-rw-r--r-- | script/webcoso.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/script/webcoso.pl b/script/webcoso.pl index a247be0..660d7dd 100644 --- a/script/webcoso.pl +++ b/script/webcoso.pl @@ -3,6 +3,7 @@ use strict; use warnings; use Getopt::Long; use WebCoso::Common; +use Log::Log4perl ':easy'; my $CLEAN=0; @@ -11,6 +12,7 @@ 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, + 'verbose|v+'=>\$WebCoso::Common::VERBOSITY, 'clean'=>\$CLEAN, ); exit 1 unless $res; @@ -18,6 +20,8 @@ $WebCoso::Common::SRCPATH=~s{/+$}{}; $WebCoso::Common::DSTPATH=~s{/+$}{}; $WebCoso::Common::DSTBASEURL=~s{/*$}{/}; } +Log::Log4perl->easy_init({level=>$WebCoso::Common::VERBOSITY}); + if ($CLEAN) { require WebCoso::Cleaner; |