/usr/share/perl5/Munin/Master/Logger.pm is in munin 2.0.33-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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | package Munin::Master::Logger;
# $Id$
=encoding utf-8
=head1 NAME
Munin::Master::Logger - Munin master's old logging routines
=head1 SYNOPSIS
This module contains Munin master's old logging routines while we're
switching to Log::Log4perl. It also sets up Log4perl according to our
needs.
Do not use "logger" when writing new code, use the
Log::Log4perl :easy API. This module takes care of initializing
Log::Log4perl at load time.
=head1 SUBROUTINES
=over
=item B<logger_open>
needs to be called once in the main program with one argument: The
directory where the munin logs goes. The running programs name ($0)
will be used as the log name (e.g. munin-graph.log).
=item B<logger>
Do not use.
=item B<logger_level>
Use to set the programs log level to debug, info, warn, error,
or fatal. This corresponds to the log levels used in syslog, but
syslog is not used for logging.
=item B<logger_debug>
Set up DEBUG logging. Both STDOUT and the log file will receive DEBUG
level output.
=back
=head1 AUTHOR
Munin master logging ported to Log4perl by Nicolai Langfeldt. Split
out into this module by Kjell Magne Øierud.
=head1 LICENSE
GPLv2
=cut
use base qw(Exporter);
use strict;
use warnings;
use English qw(-no_match_vars);
use File::Basename qw(basename);
use Log::Log4perl qw(:easy);
our @EXPORT = qw(logger_open logger_open_stderr logger_debug logger_level logger);
# Early open of the log. Warning and more urgent messages will go to
# screen.
Log::Log4perl->easy_init( $WARN );
my $logdir = undef;
my $logopened = 0;
my $me = $1 if basename($PROGRAM_NAME) =~ m/(.*)/; # Fast untaint $PROGRAM_NAME
sub _warn_catcher {
if ($logopened) {
WARN "[PERL WARNING] ".join(" ",@_);
} else {
print STDERR join(" ",@_);
}
}
sub logger_open_stderr {
if (!$logopened) {
# I'm a bit uncertain about the :utf8 bit.
Log::Log4perl->easy_init( { level => $INFO,
file => ":utf8>&STDERR" } );
$logopened = 1;
}
get_logger('')->debug("Opened log file");
# Get perl warnings into the log files
$SIG{__WARN__} = \&_warn_catcher;
}
sub logger_open {
# This is called when we have a directory and file name to log in.
my $dirname = shift;
$logdir=$dirname;
if (!defined($dirname)) {
confess("In logger_open, directory for log files undefined");
}
my $log_filename = shift || "$dirname/$me.log";
if (!$logopened) {
# I'm a bit uncertain about the :utf8 bit.
Log::Log4perl->easy_init( { level => $INFO,
file => ":utf8>>$log_filename" } );
# warn "Logging to $dirname/$me.log";
$logopened = 1;
}
get_logger('')->debug("Opened log file");
# Get perl warnings into the log files
$SIG{__WARN__} = \&_warn_catcher;
}
sub logger_debug {
# Adjust log level to DEBUG if user gave --debug option
my $logger = get_logger('');
WARN "Setting log level to DEBUG\n";
if (defined($logdir)) {
Log::Log4perl->easy_init( { level => $DEBUG,
file => ":utf8>>$logdir/$me.log" },
{ level => $DEBUG,
file => "STDERR" } );
} else {
# If we do not have a log file name to log to just send
# everything to STDERR
Log::Log4perl->easy_init( { level => $DEBUG,
file => "STDERR" } );
}
# And do not open the loggers again now.
$logopened=1;
}
sub logger_level {
my ($loglevel) = @_;
my $logger = get_logger('');
$loglevel = lc $loglevel;
my %level_map = (
debug => $DEBUG,
info => $INFO,
warn => $WARN,
error => $ERROR,
fatal => $FATAL,
);
unless ($level_map{$loglevel}) {
ERROR "Unknown log level: '$loglevel'\n";
return;
}
$logger->level($level_map{$loglevel});
INFO "Setting log level to $loglevel\n";
}
sub logger {
my ($comment) = @_;
INFO @_;
}
1;
|