Changeset 248

Timestamp:

06/08/09 00:11:02 (15 years ago)

Author:

nanardon

Message:

• env. is a shortcut to have debug messages

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -13 +13 @@
     LA_CRIT
     LA_ERR
+    LA_ERROR
     LA_WARNING
     LA_NOTICE
@@ -69 +70 @@
         syslog($level, $msg, @args) unless($level >= LA_DEBUG);
     }
-    if ($log_method{console} && $level <= $log_method{console}) {
+    if ($ENV{'LA_DEBUG'}) {
+        my @caller = caller;
+        my $debug = ($level == LA_DEBUG) ? "$caller[0]:$caller[2] " : '';
+        warn sprintf("$debug$msg", @args) . "\n";
+    } elsif ($log_method{console} && $level <= $log_method{console}) {
         if ($level >= LA_NOTICE && $level < LA_DEBUG) {
             printf("$msg\n", @args);