1# test persistent https 1.1 put over http relay 2 3use strict; 4use warnings; 5 6my @lengths = (251, 16384, 0, 1, 2, 3, 4, 5); 7our %args = ( 8 client => { 9 func => \&http_client, 10 lengths => \@lengths, 11 method => "PUT", 12 ssl => 1, 13 }, 14 relayd => { 15 protocol => [ "http", 16 "match request header log foo", 17 "match response header log bar", 18 ], 19 loggrep => { 20 qr/, (?:done|last write \(done\))/ => (1 + @lengths), 21 }, 22 forwardssl => 1, 23 listenssl => 1, 24 }, 25 server => { 26 func => \&http_server, 27 ssl => 1, 28 }, 29 lengths => \@lengths, 30 md5 => [ 31 "bc3a3f39af35fe5b1687903da2b00c7f", 32 "52afece07e61264c3087ddf52f729376", 33 "d41d8cd98f00b204e9800998ecf8427e", 34 "68b329da9893e34099c7d8ad5cb9c940", 35 "897316929176464ebc9ad085f31e7284", 36 "0ade138937c4b9cb36a28e2edb6485fc", 37 "e686f5db1f8610b65f98f3718e1a5b72", 38 "e5870c1091c20ed693976546d23b4841", 39 "bc3a3f39af35fe5b1687903da2b00c7f", 40 "52afece07e61264c3087ddf52f729376", 41 "d41d8cd98f00b204e9800998ecf8427e", 42 "68b329da9893e34099c7d8ad5cb9c940", 43 "897316929176464ebc9ad085f31e7284", 44 "0ade138937c4b9cb36a28e2edb6485fc", 45 "e686f5db1f8610b65f98f3718e1a5b72", 46 "e5870c1091c20ed693976546d23b4841", 47 ], 48); 49 501; 51