/[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.2 by cvsjoko, Fri Oct 11 04:48:05 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  #  Revision 1.2  2002/10/11 04:48:05  cvsjoko
11  #  + added strictness (use strict, use warnings)  #  + added strictness (use strict, use warnings)
12  #  #
# Line 132  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.2  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed