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.foo.com
11
12EOF
13	    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$/ => 0,
26	    qr/\[http:\/\/www.foo.com\/1\] GET/ => 1,
27	    qr/\[Host: www.foo.com\]/ => 1,
28	},
29    },
30    server => {
31	func => \&http_server,
32	nocheck => 1
33    },
34);
35
361;
37