Changeset 299 for LATMOS-Accounts/lib

Timestamp:

07/28/09 02:44:59 (15 years ago)

Author:

nanardon

Message:

• store last by error, add function to fetch it

File:

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

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

@@ -47 +47 @@
 
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
+
+my %lastmessages = ();
 
 =head1 LOG LEVEL
@@ -150 +152 @@
 }
 
+sub lastmessage {
+    my ($level) = @_;
+    return $lastmessages{$level};
+}
+
 =head2 la_log($level, @sprintf_args)
 
@@ -156 +163 @@
 sub la_log {
     my ($level, $msg, @args) = @_;
+    $lastmessages{$level} = sprintf($msg, @args);
     if ($log_method{syslog}) {
         syslog($level, $msg, @args) unless($level >= LA_DEBUG);