args-http-remove.pl revision 1.3
1use strict; 2use warnings; 3 4my %header = ( 5 "X-Header-Foo" => "foo", 6 "X-Header-Bar" => "bar", 7); 8our %args = ( 9 client => { 10 func => \&http_client, 11 nocheck => 1, 12 loggrep => { 13 "X-Header-Foo: foo" => 0, 14 "X-Header-Bar: bar" => 1, 15 }, 16 }, 17 relayd => { 18 protocol => [ "http", 19 'match response header remove X-Header-Foo', 20 'match response header log "*"', 21 ], 22 loggrep => { qr/ (?:done|last write \(done\)), \[X-Header-Foo: foo \*removed\*\s*\]/ => 1 }, 23 }, 24 server => { 25 func => \&http_server, 26 header => \%header, 27 loggrep => { 28 "X-Header-Foo: foo" => 1, 29 "X-Header-Bar: bar" => 1, 30 }, 31 }, 32); 33 341; 35