/usr/share/perl5/MMM/Common/Log.pm is in mysql-mmm-common 2.2.1-1.1.
This file is owned by root:root, with mode 0o664.
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 | package MMM::Common::Log;
use strict;
use warnings FATAL => 'all';
use Log::Log4perl qw(:easy);
use English qw( PROGRAM_NAME );
our $VERSION = '0.01';
sub init($$) {
my $file = shift;
my $progam = shift;
my @paths = qw(/etc /etc/mmm /etc/mysql-mmm);
# Determine filename
my $fullname;
foreach my $path (@paths) {
if (-r "$path/$file") {
$fullname = "$path/$file";
last;
}
}
# Read configuration from file
if ($fullname) {
Log::Log4perl->init($fullname);
return;
}
# Use default configuration
my $conf = "
log4perl.logger = INFO, LogFile
log4perl.appender.LogFile = Log::Log4perl::Appender::File
log4perl.appender.LogFile.Threshold = INFO
log4perl.appender.LogFile.filename = /var/log/mysql-mmm/$progam.log
log4perl.appender.LogFile.recreate = 1
log4perl.appender.LogFile.layout = PatternLayout
log4perl.appender.LogFile.layout.ConversionPattern = %d %5p %m%n
";
Log::Log4perl->init(\$conf);
}
sub debug() {
my $stdout_appender = Log::Log4perl::Appender->new(
'Log::Log4perl::Appender::Screen',
name => 'ScreenLog',
stderr => 0
);
my $layout = Log::Log4perl::Layout::PatternLayout->new('%d %5p %m%n');
$stdout_appender->layout($layout);
Log::Log4perl::Logger->get_root_logger()->add_appender($stdout_appender);
Log::Log4perl::Logger->get_root_logger()->level($DEBUG);
}
1;
|