/[cvs]/nfo/perl/libs/Log/Dispatch/Tangram.pm
ViewVC logotype

Diff of /nfo/perl/libs/Log/Dispatch/Tangram.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by cvsjoko, Thu Oct 10 03:44:42 2002 UTC revision 1.3 by joko, Thu Oct 17 00:11:21 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.3  2002/10/17 00:11:21  joko
7    #  + bugfixes regarding "deep recursion" stuff
8    #  + just log to storage if storage is connected
9    #
10    #  Revision 1.2  2002/10/11 04:48:05  cvsjoko
11    #  + added strictness (use strict, use warnings)
12    #
13  #  Revision 1.1  2002/10/10 03:44:42  cvsjoko  #  Revision 1.1  2002/10/10 03:44:42  cvsjoko
14  #  + new  #  + new
15  #  #
# Line 12  Line 19 
19  package Log::Dispatch::Tangram;  package Log::Dispatch::Tangram;
20    
21  use strict;  use strict;
22    use warnings;
23    
24  use Log::Dispatch::Output;  use Log::Dispatch::Output;
25    
# Line 128  sub log_message Line 136  sub log_message
136      $sysEvent->{$self->{mapping}{level}} = $params{level};      $sysEvent->{$self->{mapping}{level}} = $params{level};
137      $sysEvent->{$self->{mapping}{message}} = $params{message};      $sysEvent->{$self->{mapping}{message}} = $params{message};
138    
139      $self->{storage}->insert($sysEvent);      $self->{storage}->isConnected() && $self->{storage}->insert($sysEvent);
140    
141  }  }
142    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed