/[maps]/Maps.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Maps.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 13 by dpavlin, Wed Oct 17 15:50:35 2007 UTC revision 14 by dpavlin, Mon Dec 3 14:25:40 2007 UTC
# Line 5  use warnings; Line 5  use warnings;
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
# Line 23  sub http_transaction { Line 25  sub http_transaction {
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 ) {
Legend:
Removed from v.13  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26