1 files changed, 30 insertions, 0 deletions
diff --git a/eg/newsyslog-test b/eg/newsyslog-test
new file mode 100755
index 0000000..466c897
--- /dev/null
+++ b/eg/newsyslog-test
@@ -0,0 +1,30 @@
+#!/usr/local/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);
+}