1# test appending headers, both directions 2 3use strict; 4use warnings; 5 6my %header_client = ( 7 "X-Header-Client" => "ABC", 8); 9my %header_server = ( 10 "X-Header-Server" => "XYZ", 11); 12our %args = ( 13 client => { 14 func => \&http_client, 15 header => \%header_client, 16 loggrep => { 17 "X-Header-Server: XYZ" => 1, 18 "X-Header-Server: xyz" => 1, 19 }, 20 }, 21 relayd => { 22 protocol => [ "http", 23 'match request header append "X-Header-Client" value "abc"', 24 'match response header append "X-Header-Server" value "xyz"', 25 'match request header log "X-Header*"', 26 'match response header log "X-Header*"', 27 ], 28 loggrep => { qr/ (?:done|last write \(done\)), \[X-Header-Client: ABC\]\ GET \{X-Header-Server: XYZ\};/ => 1 }, 29 }, 30 server => { 31 func => \&http_server, 32 header => \%header_server, 33 loggrep => { 34 "X-Header-Client: ABC" => 1, 35 "X-Header-Client: abc" => 1, 36 }, 37 }, 38); 39 401; 41