1# The client writes a message to Sys::Syslog native method. 2# The syslogd writes into multiple files depending on program and 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 in log files. 8 9use strict; 10use warnings; 11 12our %args = ( 13 syslogd => { 14 conf => <<'EOF', 15!nonexist 16+nonexist 17*.* $objdir/file-0.log 18!!syslogd-regress 19*.* $objdir/file-1.log 20+$host 21*.* $objdir/file-2.log 22*.* $objdir/file-3.log 23!* 24+* 25*.* $objdir/file-4.log 26EOF 27 }, 28 multifile => [ 29 { loggrep => { get_testgrep() => 0 } }, 30 { loggrep => { get_testgrep() => 0 } }, 31 { loggrep => { get_testgrep() => 1 } }, 32 { loggrep => { get_testgrep() => 0 } }, 33 { loggrep => { get_testgrep() => 0 } }, 34 ], 35); 36 371; 38