1# The client writes long messages to unix domain socket /dev/log.
2# The syslogd writes it into a file and through a pipe.
3# The syslogd passes it via UDP to the loghost.
4# The server receives the message on its UDP socket.
5# Find the message in client, file, pipe, syslogd, server log.
6# Check that lines in file have 8192 bytes message length after the header.
7
8use strict;
9use warnings;
10use Socket;
11
12our %args = (
13    client => {
14	connect => { domain => AF_UNIX },
15	func => sub {
16	    my $self = shift;
17	    write_lengths($self, 8190..8193,9000);
18	    write_log($self);
19	},
20    },
21    syslogd => {
22	loggrep => {
23	    get_charlog() => 5,
24	}
25    },
26    file => {
27	# Feb  2 00:43:36 hostname 0123456789ABC...567
28	loggrep => {
29	    get_charlog() => 5,
30	    qr/^.{15} \S{1,256} .{8190}$/ => 1,
31	    qr/^.{15} \S{1,256} .{8191}$/ => 1,
32	    qr/^.{15} \S{1,256} .{8192}$/ => 3,
33	},
34    },
35);
36
371;
38