/usr/share/fusioninventory/lib/FusionInventory/Agent/Logger/File.pm is in fusioninventory-agent 1:2.3.10.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package FusionInventory::Agent::Logger::File;
use strict;
use warnings;
use base 'FusionInventory::Agent::Logger::Backend';
use English qw(-no_match_vars);
use Fcntl qw(:flock);
use File::stat;
sub new {
my ($class, %params) = @_;
my $self = {
logfile => $params{config}->{logfile},
logfile_maxsize => $params{config}->{'logfile-maxsize'} ?
$params{config}->{'logfile-maxsize'} * 1024 * 1024 : 0
};
bless $self, $class;
return $self;
}
sub addMessage {
my ($self, %params) = @_;
my $level = $params{level};
my $message = $params{message};
my $handle;
if ($self->{logfile_maxsize}) {
my $stat = stat($self->{logfile});
if ($stat && $stat->size() > $self->{logfile_maxsize}) {
if (!open $handle, '>', $self->{logfile}) {
warn "Can't open $self->{logfile}: $ERRNO";
return;
}
}
}
if (!$handle && !open $handle, '>>', $self->{logfile}) {
warn "can't open $self->{logfile}: $ERRNO";
return;
}
my $locked;
my $retryTill = time + 60;
while ($retryTill > time && !$locked) {
## no critic (ProhibitBitwise)
# get an exclusive lock on log file
$locked = 1 if flock($handle, LOCK_EX|LOCK_NB);
}
if (!$locked) {
die "can't get an exclusive lock on $self->{logfile}: $ERRNO";
}
print {$handle}
"[". localtime() ."]" .
"[$level]" .
" $message\n";
# closing handle release the lock automatically
close $handle;
}
1;
__END__
=head1 NAME
FusionInventory::Agent::Logger::File - A file backend for the logger
=head1 DESCRIPTION
This is a file-based backend for the logger. It supports automatic filesize
limitation.
|