args-http-change.pl revision 1.2
1use strict; 2use warnings; 3 4my %header = ("X-Test-Header" => "XOriginalValue"); 5our %args = ( 6 client => { 7 func => \&http_client, 8 nocheck => 1, 9 loggrep => { 10 qr/X-Test-Header: XChangedValue/ => 1, 11 qr/Host: foo.bar/ => 1, 12 } 13 }, 14 relayd => { 15 protocol => [ "http", 16 'match request header set "Host" value "foobar.changed"', 17 'match response header set "X-Test-Header" value "XChangedValue"', 18 ], 19 }, 20 server => { 21 func => \&http_server, 22 header => \%header, 23 loggrep => { 24 qr/X-Test-Header: XOriginalValue/ => 1, 25 qr/Host: foobar.changed/ => 1, 26 }, 27 }, 28); 29 301; 31