args-http-remove.pl revision 1.2 
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	    'response header remove X-Header-Foo log',
19	],
20	loggrep => { qr/ (?:done|last write \(done\)), \[X-Header-Foo: foo\s*\]/ => 1 },
21    },
22    server => {
23	func => \&http_server,
24	header => \%header,
25	loggrep => {
26	    "X-Header-Foo: foo" => 1,
27	    "X-Header-Bar: bar" => 1,
28	},
29    },
30);
31
321;
33