5 |
use base qw(Net::Analysis::Listener::Base); |
use base qw(Net::Analysis::Listener::Base); |
6 |
use File::Slurp; |
use File::Slurp; |
7 |
|
|
8 |
|
my $i = 0; |
9 |
|
|
10 |
sub http_transaction { |
sub http_transaction { |
11 |
my ($self, $args) = @_; |
my ($self, $args) = @_; |
12 |
my ($req) = $args->{req}; # isa HTTP::Request |
my ($req) = $args->{req}; # isa HTTP::Request |
25 |
} elsif ( $req->uri() =~ m!/aerial.maps.yimg.com/img.*&x=(\d+)&y=(\d+)&z=(\d+)&v=1\.7! ) { |
} elsif ( $req->uri() =~ m!/aerial.maps.yimg.com/img.*&x=(\d+)&y=(\d+)&z=(\d+)&v=1\.7! ) { |
26 |
# Yahoo maps |
# Yahoo maps |
27 |
$file = "$3/$1-$2.jpg"; |
$file = "$3/$1-$2.jpg"; |
28 |
|
} elsif ( $req->uri() =~ m!/GElin/mireo.NET.MapSearchWeb! ) { |
29 |
|
$file = "foo$i"; |
30 |
|
$i++; |
31 |
} |
} |
32 |
|
|
33 |
if ( $file ) { |
if ( $file ) { |