- fix error levels

- somehow the old system from the old docbot is not intuitive, make the new one clear

diff --git a/db.pm b/db.pm
index bdae21b80637079059646edaa6bf136d39672632..f95231b490e86bfb24e858fa74842e3fb6dedd05 100644 (file)
--- a/db.pm
+++ b/db.pm
@@ -12,11 +12,11 @@ use DBI;
 use Data::Dumper;
 
 
-use constant DEBUG2 => 4;
-use constant DEBUG  => 3;
-use constant ERROR  => 2;
-use constant WARN   => 1;
-use constant INFO   => 0;
+use constant DEBUG2 => 5;
+use constant DEBUG  => 4;
+use constant INFO   => 3;
+use constant WARN   => 2;
+use constant ERROR  => 1;
 
 
 # new()

diff --git a/docbot.pl b/docbot.pl
index fe39bf7ceefd49da7a795275062c836c7e78f02b..e71c60ba661986066368515dcd2e8ac086a22cd1 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -60,18 +60,18 @@ import docbot::db;
 # initialize global variables
 ######################################################################
 
-use constant DEBUG2 => 4;
-use constant DEBUG  => 3;
-use constant ERROR  => 2;
-use constant WARN   => 1;
-use constant INFO   => 0;
+use constant DEBUG2 => 5;
+use constant DEBUG  => 4;
+use constant INFO   => 3;
+use constant WARN   => 2;
+use constant ERROR  => 1;
 
 %main::loglevels = (
-    4 => 'DEBUG2',
-    3 => 'DEBUG',
-    2 => 'ERROR',
-    1 => 'WARN',
-    0 => 'INFO',
+    5 => 'DEBUG2',
+    4 => 'DEBUG',
+    3 => 'INFO',
+    2 => 'WARN',
+    1 => 'ERROR',
 );
 
 $main::loglevel = INFO;