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