1# The client writes a message to Sys::Syslog native method. 2# The syslogd writes into multiple files depending on hostname. 3# The syslogd writes it into a file and through a pipe. 4# The syslogd passes it via UDP to the loghost. 5# The server receives the message on its UDP socket. 6# Find the message in client, file, pipe, syslogd, server log. 7# Check that the quick message appears only in one log file. 8 9use strict; 10use warnings; 11 12our %args = ( 13 syslogd => { 14 conf => <<'EOF', 15+nonexist 16*.* $objdir/file-0.log 17++$host 18*.* $objdir/file-1.log 19*.* $objdir/file-2.log 20+* 21*.* $objdir/file-3.log 22EOF 23 }, 24 multifile => [ 25 { loggrep => { get_testgrep() => 0 } }, 26 { loggrep => { get_testgrep() => 1 } }, 27 { loggrep => { get_testgrep() => 0 } }, 28 { loggrep => { get_testgrep() => 0 } }, 29 ], 30); 31 321; 33