args-https-contentlength.pl revision 1.2 
1# test persistent https 1.1 connection and grep for content length
2
3use strict;
4use warnings;
5
6my @lengths = (1, 2, 0, 3, 4);
7our %args = (
8    client => {
9	func => \&http_client,
10	lengths => \@lengths,
11	ssl => 1,
12	mreqs => 1
13    },
14    relayd => {
15	protocol => [ "http",
16	    "match request header log foo",
17	    "match response header log Content-Length",
18	],
19	loggrep => [ map { "Content-Length: $_" } @lengths ],
20	forwardssl => 1,
21	listenssl => 1,
22    },
23    server => {
24	func => \&http_server,
25	ssl => 1,
26	mreqs => scalar(@lengths),
27    },
28    lengths => \@lengths,
29);
30
311;
32