view release on metacpan or  search on metacpan

examples/ekahau-events-example.pl  view on Meta::CPAN

    my $dl = $ek->request_device_list()
      or die "Couldn't get device list: $ek->{err}\n";
    $last_devlist_scan = time;
  }
  if ($ek->can_read($device_check_timeout))
  {
      $ek->dispatch;
  }
}

sub update_devices
{
  my($resp)=@_;

  foreach my $dev (grep { !$macaddr{$_} } keys %{$resp->{params}})
  {
    my $prop = $ek->request_device_properties($dev)
      or die "Couldn't get properties for '$dev'\n";
  }
}

sub update_device_properties
{
  my($prop)=@_;

  my $dev = $prop->{args}[0];
  $macaddr{$dev}=$prop->{params}{'NETWORK.MAC'};
  $ek->start_location_track($dev);
  $ek->start_area_track({ 'EPE.NUMBER_OF_AREAS' => $num_guesses }, $dev);
}

sub update_areas
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];
    my $floor = $floor{$loc->{params}{contextId}};

    if (!$macaddr{$dev})
    {
	# Skip unknown devices
	return;
    }

examples/ekahau-events-example.pl  view on Meta::CPAN

		}

	        $ormaybe .= " ORMAYBE_FROM " . $or_floor.".".$room->{name} .
		            " ORMAYBE_CONFIDENCE ".$room->{probability};
	    }
	}
    }
    print "ISEE Ekahau.$macaddr{$dev} FROM $where$coord$relcoord AT ",time," CONFIDENCE ",$loc->{params}{probability},"$ormaybe\n";
}

sub update_locations
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];

    $lastloc{$dev}{x} = $loc->{params}{latestX};
    $lastloc{$dev}{y} = $loc->{params}{latestY};
}

sub update_contexts
{
    my($ctx)=@_;
    my $ctx_id = $ctx->{args}[0];

    $floor{$ctx_id}=$ctx->{params}{address};
    $floor{$ctx_id} =~ s|/|.|g;
}

sub other_events
{