viewvc.cgi/maps/Maps.pm

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

use strict;
use warnings;
use base qw(Net::Analysis::Listener::Base);
use File::Slurp;

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

        print ">> ",$req->uri, "\n";

        my $ext;

        if ( $req->uri() =~ m!/GElin/MapSrv\.aspx\?lwM=(\d+)&twM=(\d+)&zf=(\d+)! ) {
                # Mireo
                $ext = 'png';
        } elsif ( $req->uri() =~ m!/mt\?.*x=(\d+)&y=(\d+)&zoom=(\d+)! ) {
                # Google maps
                $ext = 'png'
        } elsif ( $req->uri() =~ m!/aerial.maps.yimg.com/img.*&x=(\d+)&y=(\d+)&z=(\d+)! ) {
                $ext = 'jpg'
        }

        if ( $ext ) {
                mkdir "dump" unless -e "dump";
                mkdir "dump/$3" unless -e "dump/$3";
                my $file = "dump/$3/$1-$2.$ext";
                write_file( $file, $resp->content );
                print "$1x$2 zoom: $3 -> $file ", -s $file, " bytes\n";
        }

}

1;

=head1 NAME

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

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

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