1# test http connection over http relay 2 3use strict; 4use warnings; 5 6our %args = ( 7 client => { 8 func => \&http_client, 9 }, 10 relayd => { 11 protocol => [ "http", 12 "match request header log Host", 13 "match response header log Server", 14 ], 15 loggrep => { 16 qr/\[Host: foo.bar\]/ => 1, 17 qr/\{Server: Perl\/[^\s]+\s*\};/ => 1, 18 }, 19 }, 20 server => { 21 func => \&http_server, 22 }, 23 len => 251, 24 md5 => "bc3a3f39af35fe5b1687903da2b00c7f", 25); 26 271; 28