1213496Scognetuse strict; 2213496Scognetuse warnings; 3213496Scognet 4213496Scognetour %args = ( 5213496Scognet client => { 6213496Scognet func => sub { 7213496Scognet my $self = shift; 8213496Scognet print <<'EOF'; 9213496ScognetGET http://www.foo.com/1 HTTP/1.1 10213496ScognetHost: www.foo.com 11213496Scognet 12213496ScognetEOF 13213496Scognet http_response($self, 1); 14213496Scognet }, 15213496Scognet http_vers => ["1.1"], 16213496Scognet nocheck => 1, 17213496Scognet method => "GET", 18213496Scognet }, 19213496Scognet relayd => { 20213496Scognet protocol => [ "http", 21213496Scognet "match request header log Host", 22213496Scognet "match request path log \"*\"", 23213496Scognet ], 24213496Scognet loggrep => { 25213496Scognet qr/, malformed host$/ => 0, 26236989Simp qr/\[http:\/\/www.foo.com\/1\] GET/ => 1, 27213496Scognet qr/\[Host: www.foo.com\]/ => 1, 28213496Scognet }, 29213496Scognet }, 30213496Scognet server => { 31213496Scognet func => \&http_server, 32213496Scognet nocheck => 1 33213496Scognet }, 34213496Scognet); 35213496Scognet 36213496Scognet1; 37213496Scognet