#!/usr/bin/perl use CGI; my $cgi = new CGI; my $dir = $cgi->param('dir'); my $file = $cgi->param('file'); my $markers; my $test; if( $file ) { while( <$file> ) { $test = $test . $_; if( /^#.*/ ) { # If the line starts with a # then ignore it } else { ($lat, $long, $ssid, $type, $bssid, $encrypt, $lastseen, $key, $crc) = split /\t/; # Clean up the lat and long $lat =~ /([^NS]*)(.)/; if( $2 eq "N" ) { $lat = $1; } else { $lat = "-" . $1; } $long =~ /([^WE]*)(.)/; if( $2 eq "E" ) { $long = $1; } else { $long = "-" . $1; } # Clean up the SSID $ssid =~ s/\+/ /g; $ssid =~ s/%([0-9A-Fa-f]{2})/"&#" . hex($1) . ";"/eg; $markers = $markers . "\t\t\t\t\n"; } } } # Print out our xhtml result file print "Content-type: text/html\n\n"; print <<"EndOfXHTMLText";

This app works with a Kismac ".kismac Webservice file" which can be made by exporting from the Kismac application. It will plot all of the access points in the file with google maps.

$markers EndOfXHTMLText exit(0);