128157168Sbluhm# The client writes a message to Sys::Syslog native method. 228157168Sbluhm# The syslogd writes into multiple files depending on program name. 328157168Sbluhm# The syslogd writes it into a file and through a pipe. 428157168Sbluhm# The syslogd passes it via UDP to the loghost. 528157168Sbluhm# The server receives the message on its UDP socket. 628157168Sbluhm# Find the message in client, file, pipe, syslogd, server log. 728157168Sbluhm# Check that the message appears in the correct log files. 828157168Sbluhm 928157168Sbluhmuse strict; 1028157168Sbluhmuse warnings; 1128157168Sbluhm 1228157168Sbluhmour %args = ( 1328157168Sbluhm syslogd => { 14*a17617cfSbluhm conf => <<'EOF', 1528157168Sbluhm!nonexist 1628157168Sbluhm*.* $objdir/file-0.log 1728157168Sbluhm!syslogd-regress 1828157168Sbluhm*.* $objdir/file-1.log 1928157168Sbluhm*.* $objdir/file-2.log 2028157168Sbluhm!* 2128157168Sbluhm*.* $objdir/file-3.log 2228157168SbluhmEOF 2328157168Sbluhm }, 2428157168Sbluhm multifile => [ 25bb7ea376Sbluhm { loggrep => { get_testgrep() => 0 } }, 26bb7ea376Sbluhm { loggrep => { get_testgrep() => 1 } }, 27bb7ea376Sbluhm { loggrep => { get_testgrep() => 1 } }, 28bb7ea376Sbluhm { loggrep => { get_testgrep() => 1 } }, 2928157168Sbluhm ], 3028157168Sbluhm); 3128157168Sbluhm 3228157168Sbluhm1; 33