/usr/share/doc/liblog-log4perl-perl/examples/color is in liblog-log4perl-perl 1.48-1+deb9u1.
This file is owned by root:root, with mode 0o755.
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 | #!/usr/bin/perl
######################################################################
# color - Print messages colored by level
######################################################################
use strict;
use warnings;
my $VERSION = "0.01";
our $CVSVERSION = '$Revision: 1.1 $';
use Log::Log4perl qw(:easy);
Log::Log4perl->init(\ <<'EOT');
log4perl.category = DEBUG, Screen
log4perl.appender.Screen = Log::Log4perl::Appender::ScreenColoredLevels
log4perl.appender.Screen.layout = \
Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %d %F{1} %L> %m %n
EOT
for(1..3) {
DEBUG "Debug Message";
INFO "Info Message";
WARN "Warn Message";
ERROR "Error Message";
FATAL "Fatal Message";
}
|