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 |
# |
# |
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 |
|
|
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 |
|
|