1use strict; 2use warnings; 3 4my @lengths = (1, 2, 4, 0, 3, 5); 5our %args = ( 6 client => { 7 func => \&http_client, 8 lengths => \@lengths, 9 loggrep => { 10 qr/403 Forbidden/ => 4, 11 }, 12 }, 13 relayd => { 14 protocol => [ "http", 15 'return error', 16 'pass', 17 'block request url log file "$curdir/args-http-filter-url-file.in" value "*" label "test_reject_label"', 18 ], 19 loggrep => { 20 qr/Forbidden/ => 4, 21 qr/\[test_reject_label\, foo\.bar\/0\]/ => 2, 22 qr/\[test_reject_label\, foo\.bar\/3\]/ => 2, 23 }, 24 }, 25 server => { 26 func => \&http_server, 27 }, 28 lengths => [1, 2, 4, 5], 29); 30 311; 32