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 }, 13 relayd => { 14 protocol => [ "http", 15 "match request header log foo", 16 "match response header log Content-Length", 17 ], 18 loggrep => [ map { "Content-Length: $_" } @lengths ], 19 forwardssl => 1, 20 listenssl => 1, 21 }, 22 server => { 23 func => \&http_server, 24 ssl => 1, 25 }, 26 lengths => \@lengths, 27 md5 => [ 28 "68b329da9893e34099c7d8ad5cb9c940", 29 "897316929176464ebc9ad085f31e7284", 30 "d41d8cd98f00b204e9800998ecf8427e", 31 "0ade138937c4b9cb36a28e2edb6485fc", 32 "e686f5db1f8610b65f98f3718e1a5b72", 33 "68b329da9893e34099c7d8ad5cb9c940", 34 "897316929176464ebc9ad085f31e7284", 35 "d41d8cd98f00b204e9800998ecf8427e", 36 "0ade138937c4b9cb36a28e2edb6485fc", 37 "e686f5db1f8610b65f98f3718e1a5b72", 38 ], 39); 40 411; 42