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