6 my $dbh = DBI->connect("DBI:mysql:database=wireless;host=127.0.0.1",
7 "USERNAME", "PASSWORD",
10 $k = new Net::Kismet('localhost', 2501);
11 $k->register('SSID', \&ssidhandler, '*');
12 $k->register('BSSID', \&bssidhandler, '*');
13 $k->register('CLIENT', \&clienthandler, '*');
14 #$k->timer_register(\&timer, 5);
20 my $ssid = "<cloked>";
21 if ($vars->{'ssid'} eq "") {
24 $ssid = $vars->{'ssid'};
26 #print $vars->{'mac'}."\n";
27 #print "lt: ".$vars->{'lasttime'}."\n";
28 #print "INSERT INTO ssid VALUES ('". $ssid. "', '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")";
30 my $sth = $dbh->prepare("SELECT LASTSEEN from ssid where SSID=? and MAC='" . $vars->{'mac'} . "'");
32 if ($sth->rows() > 0) {
33 $sth = $dbh->prepare("UPDATE ssid set LASTSEEN=" . $vars->{'lasttime'} . " where SSID=? and MAC = '" . $vars->{'mac'} . "'");
35 $sth = $dbh->prepare("INSERT INTO ssid VALUES (?, '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")");
42 #print $vars->{'bssid'}."\n";
43 #print "lt: ".$vars->{'lasttime'}."\n";
44 #print "INSERT INTO bssid VALUES ('". $vars->{'bssid'}. "', " . $vars->{'lasttime'} . ")";
45 my $sth = $dbh->prepare("SELECT LASTSEEN from bssid where BSSID='" . $vars->{'bssid'} . "'");
47 if ($sth->rows() > 0) {
48 $dbh->do("UPDATE bssid set LASTSEEN=" . $vars->{'lasttime'} . " where BSSID = '" . $vars->{'bssid'} . "'");
50 $dbh->do("INSERT INTO bssid VALUES ('". $vars->{'bssid'}. "', " . $vars->{'lasttime'} . ")");
52 #$dbh->do("INSERT INTO bssid VALUES ('". $vars->{'bssid'}. "', " . $vars->{'lasttime'} . ")");
57 #print $vars->{'bssid'}."\n";
58 #print $vars->{'mac'}."\n";
59 #print "lt: ".$vars->{'lasttime'}."\n";
60 my $sth = $dbh->prepare("SELECT LASTSEEN from clients where BSSID='". $vars->{'bssid'}. "' and MAC='" . $vars->{'mac'} . "'");
62 if ($sth->rows() > 0) {
63 $dbh->do("UPDATE clients set LASTSEEN=" . $vars->{'lasttime'} . " where BSSID = '". $vars->{'bssid'}. "' and MAC = '" . $vars->{'mac'} . "'");
65 $dbh->do("INSERT INTO clients VALUES ('". $vars->{'bssid'}. "', '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")");
66 #$dbh->do("INSERT INTO clients VALUES ('". $ssid. "', '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")");
69 #print "INSERT INTO clients VALUES ('". $vars->{'bssid'}. "', '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")";
71 #$dbh->do("INSERT INTO clients VALUES ('". $vars->{'bssid'}. "', '" . $vars->{'mac'} . "', " . $vars->{'lasttime'} . ")");
77 print "<<TIMER CALLBACK CALLED>>\n";
78 # check for lame threads and kill if hung
80 vec ( $rin, fileno ("PREAD00"), 1 ) = 1;
82 if ( $nfound = select($rout=$rin, undef, undef, 0) ) {
84 #print "TIMER: $line";
91 while( my( $key, $val ) = each %{$href} ) {
92 print "$key\t=>$val\n";