From 33aa584d604fa52fdb98b30d6003a74c34c117af Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 1 Oct 2008 13:33:36 +0000
Subject: addded logging

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

(limited to 'script/webcoso.pl')

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;
-- 
cgit v1.2.3