1# The syslogd listens on ::1 TCP socket. 2# The client writes a message into a ::1 TCP socket. 3# The syslogd writes it into a file and through a pipe without dns. 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 file log contains the ::1 address. 8 9use strict; 10use warnings; 11use Socket; 12 13our %args = ( 14 client => { 15 connect => { domain => AF_INET6, proto => "tcp", addr => "::1", 16 port => 514 }, 17 }, 18 syslogd => { 19 options => ["-n", "-T", "[::1]:514"], 20 }, 21 file => { 22 loggrep => qr/ ::1 /. get_testgrep(), 23 }, 24); 25 261; 27