1use strict;
2use warnings;
3
4our %args = (
5    client => {
6	func => sub {
7	    my $self = shift;
8	    print <<'EOF';
9GET /1 HTTP/1.1
10Host: www.foo.com
11Host: www.bar.com
12
13EOF
14	    # no http_response($self, 1);
15	},
16	http_vers => ["1.1"],
17	nocheck => 1,
18	method => "GET",
19    },
20    relayd => {
21	protocol => [ "http",
22	    "match request header log Host",
23	],
24	loggrep => {
25	    qr/, malformed header$/ => 1,
26	    qr/\[Host: www.foo.com\] GET/ => 0,
27	    qr/\[Host: www.bar.com\] GET/ => 0,
28	},
29    },
30    server => {
31	func => \&http_server,
32	noserver => 1,
33	nocheck => 1,
34    }
35);
36
371;
38