Analysis/Listener/Maps.pm

package Net::Analysis::Listener::Maps;

use strict;
use warnings;
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
    my ($resp)      = $args->{resp};         # isa HTTP::Response
    my ($req_mono)  = $args->{req_mono};    # isa Net::Analysis::TCPMonologue
    my ($resp_mono) = $args->{resp_mono};   # isa Net::Analysis::TCPMonologue

        my $file;

        if ( $req->uri() =~ m!/GElin/MapSrv\.aspx\?lwM=(\d+)&twM=(\d+)&zf=(\d+)! ) {
                # Mireo
                $file = "$3/$1-$2.gif";
        } elsif ( $req->uri() =~ m!/mt\?.*x=(\d+).*?&y=(\d+).*?&z=(\d+)! ) {
                # Google maps
                $file = "$3/$1-$2.png";
        } 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 ) {
                mkdir "dump" unless -e "dump";
                mkdir "dump/$3" unless -e "dump/$3";
                write_file( "dump/$file", $resp->content );
                print "$1x$2 zoom: $3 -> $file ", -s "dump/$file", " bytes\n";
        } else {
                print ">> ",$req->uri, "\n";
        }


}

1;

=head1 NAME

Net::Analysis::Listener::Maps - looking at HTTP transactions

 $ perl -MNet::Analysis -e main HTTP Maps maps_dump.tcp

1	dpavlin	11	package Net::Analysis::Listener::Maps;
2	dpavlin	1
3			use strict;
4			use warnings;
5			use base qw(Net::Analysis::Listener::Base);
6			use File::Slurp;
7
8	dpavlin	14	my $i = 0;
9
10	dpavlin	1	sub http_transaction {
11			my ($self, $args) = @_;
12			my ($req) = $args->{req}; # isa HTTP::Request
13			my ($resp) = $args->{resp}; # isa HTTP::Response
14			my ($req_mono) = $args->{req_mono}; # isa Net::Analysis::TCPMonologue
15			my ($resp_mono) = $args->{resp_mono}; # isa Net::Analysis::TCPMonologue
16
17	dpavlin	12	my $file;
18	dpavlin	1
19			if ( $req->uri() =~ m!/GElin/MapSrv\.aspx\?lwM=(\d+)&twM=(\d+)&zf=(\d+)! ) {
20	dpavlin	11	# Mireo
21	dpavlin	12	$file = "$3/$1-$2.gif";
22	dpavlin	35	} elsif ( $req->uri() =~ m!/mt\?.x=(\d+).?&y=(\d+).*?&z=(\d+)! ) {
23	dpavlin	11	# Google maps
24	dpavlin	12	$file = "$3/$1-$2.png";
25			} elsif ( $req->uri() =~ m!/aerial.maps.yimg.com/img.*&x=(\d+)&y=(\d+)&z=(\d+)&v=1\.7! ) {
26			# Yahoo maps
27			$file = "$3/$1-$2.jpg";
28	dpavlin	14	} elsif ( $req->uri() =~ m!/GElin/mireo.NET.MapSearchWeb! ) {
29			$file = "foo$i";
30			$i++;
31	dpavlin	11	}
32
33	dpavlin	12	if ( $file ) {
34	dpavlin	1	mkdir "dump" unless -e "dump";
35			mkdir "dump/$3" unless -e "dump/$3";
36	dpavlin	12	write_file( "dump/$file", $resp->content );
37			print "$1x$2 zoom: $3 -> $file ", -s "dump/$file", " bytes\n";
38			} else {
39			print ">> ",$req->uri, "\n";
40	dpavlin	1	}
41	dpavlin	11
42	dpavlin	12
43	dpavlin	1	}
44
45			1;
46
47			=head1 NAME
48
49	dpavlin	11	Net::Analysis::Listener::Maps - looking at HTTP transactions
50	dpavlin	1
51	dpavlin	11	$ perl -MNet::Analysis -e main HTTP Maps maps_dump.tcp
52	dpavlin	1