--- Maps.pm 2007/12/02 19:05:29 13 +++ Maps.pm 2007/12/03 14:25:40 14 @@ -5,6 +5,8 @@ use base qw(Net::Analysis::Listener::Base); use File::Slurp; +my $i = 0; + sub http_transaction { my ($self, $args) = @_; my ($req) = $args->{req}; # isa HTTP::Request @@ -23,6 +25,9 @@ } elsif ( $req->uri() =~ m!/aerial.maps.yimg.com/img.*&x=(\d+)&y=(\d+)&z=(\d+)&v=1\.7! ) { # Yahoo maps $file = "$3/$1-$2.jpg"; + } elsif ( $req->uri() =~ m!/GElin/mireo.NET.MapSearchWeb! ) { + $file = "foo$i"; + $i++; } if ( $file ) {