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