From a748c65e0d4b8906d6750f4598c91d7984603895 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 1 Oct 2008 13:36:32 +0000
Subject: sensible levels

git-svn-id: svn://luxion/repos/WebCoso/trunk@383 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/WebCoso/Common.pm | 1 +
 script/webcoso.pl     | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

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