/usr/share/doc/liblog-log4perl-perl/examples/newsyslog-test is in liblog-log4perl-perl 1.49-1.
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 27 28 29 30 | #!/usr/bin/perl -w
###########################################
# newsyslog-test
# Mike Schilli, 200t (m@perlmeister.com)
###########################################
use strict;
use Log::Log4perl qw(:easy);
# newsyslog configuration:
# /tmp/test.log 666 12 1 * B /tmp/test.pid 30
my $conf = q{
log4perl.category = DEBUG, Logfile
log4perl.appender.Logfile = Log::Log4perl::Appender::File
log4perl.appender.Logfile.recreate = 1
log4perl.appender.Logfile.recreate_check_signal = USR1
log4perl.appender.Logfile.recreate_pid_write = /tmp/test.pid
log4perl.appender.Logfile.mode = append
log4perl.appender.Logfile.filename = /tmp/test.log
log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %d %F{1} %L> %m%n
};
Log::Log4perl->init(\$conf);
while(1) {
DEBUG "test" x 1000;
system("ls -l /tmp/test.log* | head -2; echo");
sleep(1);
}
|