diff options
| -rw-r--r-- | lib/WebCoso/Common.pm | 1 | ||||
| -rw-r--r-- | script/webcoso.pl | 5 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm index 6b6ba9e..14b85c8 100644 --- a/lib/WebCoso/Common.pm +++ b/lib/WebCoso/Common.pm @@ -12,6 +12,7 @@ our $SRCPATH='src'; our $DSTPATH='dst'; our $DSTBASEURL='/'; our @TMPLPATH=('common/'); +our $VERBOSITY=0; my $xpath=XML::LibXML::XPathContext->new(); $xpath->registerNs('x', 'http://www.w3.org/1999/xhtml'); diff --git a/script/webcoso.pl b/script/webcoso.pl index 660d7dd..a4f9407 100644 --- a/script/webcoso.pl +++ b/script/webcoso.pl @@ -20,7 +20,10 @@ $WebCoso::Common::SRCPATH=~s{/+$}{}; $WebCoso::Common::DSTPATH=~s{/+$}{}; $WebCoso::Common::DSTBASEURL=~s{/*$}{/}; } -Log::Log4perl->easy_init({level=>$WebCoso::Common::VERBOSITY}); +Log::Log4perl->easy_init({level=> + [qw(WARN INFO DEBUG TRACE)] + ->[$WebCoso::Common::VERBOSITY] + }); if ($CLEAN) { |