1# The client writes a message to Sys::Syslog native method. 2# The syslogd writes it into a file and through a pipe and to tty. 3# The syslogd passes it via UDP non exising loghost with reject route 4# Find dropped udp loghost message in log file. 5 6use strict; 7use warnings; 8use Socket; 9 10our %args = ( 11 syslogd => { 12 loghost => '@udp://127.1.2.3:4567', 13 loggrep => { 14 # more messages after 'dropped 4 messages' are dropped 15 qr/Logging to FORWUDP .* \(dropped send error\)/ => '>=4', 16 }, 17 }, 18 server => { 19 noserver => 1, 20 }, 21 file => { 22 loggrep => { 23 qr/syslogd\[\d+\]: dropped 4 messages to udp loghost/ => 1, 24 }, 25 }, 26); 27 281; 29