args-http-remove.pl revision 1.8
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 loggrep => { 12 "X-Header-Foo: foo" => 0, 13 "X-Header-Bar: bar" => 1, 14 }, 15 }, 16 relayd => { 17 protocol => [ "http", 18 'match response header remove X-Header-Foo', 19 'match response header log "*Foo"', 20 ], 21 loggrep => { qr/ (?:done|last write \(done\)), GET \{X-Header-Foo: foo \(removed\)\s*\};/ => 1 }, 22 }, 23 server => { 24 func => \&http_server, 25 header => \%header, 26 loggrep => { 27 "X-Header-Foo: foo" => 1, 28 "X-Header-Bar: bar" => 1, 29 }, 30 }, 31); 32 331; 34