1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
package Ocsinventory::Logger;
# TODO use Log::Log4perl instead.
use Carp;
sub new {
my (undef, $params) = @_;
my $self = {};
bless $self;
$self->{backend} = [];
$self->{config} = $params->{config};
$self->{debug} = $self->{config}->{debug}?1:0;
my @logger;
if (exists ($self->{config}->{logger})) {
@logger = split /,/, $self->{config}->{logger};
} else {
# if no 'logger' parameter exist I use Stderr as default backend
push @logger, 'Stderr';
}
my @loadedMbackends;
foreach (@logger) {
my $backend = "Ocsinventory::LoggerBackend::".$_;
eval ("require $backend"); # TODO deal with error
if ($@) {
print STDERR "Failed to load Logger backend: $backend ($@)\n";
next;
} else {
push @loadedMbackends, $_;
}
my $obj = new $backend ({
config => $self->{config},
});
push @{$self->{backend}}, $obj if $obj;
}
my $version = "Ocsinventory unified agent for UNIX, Linux and MacOSX ";
$version .= exists ($self->{config}->{VERSION})?$self->{config}->{VERSION}:'';
$self->debug($version."\n");
$self->debug("Log system initialised (@loadedMbackends)");
$self;
}
sub log {
my ($self, $args) = @_;
# levels: info, debug, warn, fault
my $level = $args->{level};
my $message = $args->{message};
my $header = $self->{header};
return if ($level =~ /^debug$/ && !($self->{debug}));
chomp($message);
#Add a header to message if needed
$message="$header $message" if $header;
$level = 'info' unless $level;
foreach (@{$self->{backend}}) {
$_->addMsg ({
level => $level,
message => $message
});
}
confess if $level =~ /^fault$/; # Die with a backtace
}
sub debug {
my ($self, $msg) = @_;
$self->log({ level => 'debug', message => $msg});
}
sub info {
my ($self, $msg) = @_;
$self->log({ level => 'info', message => $msg});
}
sub error {
my ($self, $msg) = @_;
$self->log({ level => 'error', message => $msg});
}
sub fault {
my ($self, $msg) = @_;
$self->log({ level => 'fault', message => $msg});
}
sub user {
my ($self, $msg) = @_;
$self->log({ level => 'user', message => $msg});
}
1;
|
