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 message appears in the correct 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!nonexist 23*.* $objdir/file-3.log 24+nonexist 25*.* $objdir/file-4.log 26!* 27*.* $objdir/file-5.log 28+* 29*.* $objdir/file-6.log 30EOF 31 }, 32 multifile => [ 33 { loggrep => { get_testgrep() => 0 } }, 34 { loggrep => { get_testgrep() => 0 } }, 35 { loggrep => { get_testgrep() => 1 } }, 36 { loggrep => { get_testgrep() => 0 } }, 37 { loggrep => { get_testgrep() => 0 } }, 38 { loggrep => { get_testgrep() => 0 } }, 39 { loggrep => { get_testgrep() => 1 } }, 40 ], 41); 42 431; 44