#Netstumbler script that emulates kismet server version pre1 - Work in Progress

use IO::Socket;
use threads;

#my $sock = new IO::Socket::INET (
#			LocalHost => 'localhost',
#			LocalPort => '7070',
#			Proto => 'tcp',
#			Listen => 1,
#			Reuse => 1,
#			);

#$clientSock = $sock->accept();

$latitude = $longitude = $altitude = $speed = 0;

open(LOGFILE,">c:\\ns.log");

sub OnGPSPosition()
{
	($latitude,$longitude,$altitude) = @_;
}

sub OnGPSSpeed()
{
	($speed) = @_;
}

sub OnScanResult()
{
	($ssid, $bssid, $capflags, $signal, $noise, $lastseen) = @_;

	$networks{$bssid} = [$ssid,$capflags,$signal,$noise,
				$latitude,$longitude,$altitude,$speed];
}

sub OnDisableScan()
{
	foreach $bssid (keys %networks)
	{
		$thisNetwork = $networks{$bssid};

		print LOGFILE "*NETWORK: $bssid $$thisNetwork[0]\n";
	}
}