diff options
author | dakkar <dakkar@luxion> | 2008-10-01 13:33:36 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2008-10-01 13:33:36 +0000 |
commit | 33aa584d604fa52fdb98b30d6003a74c34c117af (patch) | |
tree | 2afd3e09cc46f1a7566f240463732d8a2da1b525 /script/webcoso.pl | |
parent | better tag handling (diff) | |
download | WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.tar.gz WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.tar.bz2 WebCoso-33aa584d604fa52fdb98b30d6003a74c34c117af.zip |
addded logging
git-svn-id: svn://luxion/repos/WebCoso/trunk@382 fcb26f47-9200-0410-b104-b98ab5b095f3
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; |