#!/usr/bin/perl -w
use strict;

my %phones = (
    # Bluetooth addresses
    '00:16:20:XX:XX:XX' => 'Juerd',
    'XX:XX:XX:XX:XX:XX' => 'Foo Bar',
);

{
    package Status;

    sub new {
        my ($class, $fn) = @_;
        my $self = bless {}, $class;
        open my $fh, '<', $fn or return $self;
        while (defined (my $line = readline $fh)) {
            my ($addr, $desc) = split ' ', $line, 2;
            if ($phones{$addr}) {
                $self->{ $phones{$addr} } = 1;
            }
        }
        return $self
    }

    sub present {
        my ($self, $who) = @_;
        $self->{ $who };
    }
}

package main;

use POSIX qw(strftime);

mkdir "$ENV{HOME}/.btscan" or die $! if not -e "$ENV{HOME}/.btscan";
chdir "$ENV{HOME}/.btscan" or die $!;

system 'mv now before';
system 'hcitool scan > now';

my $before = Status->new('before');
my $now    = Status->new('now');

my $time = strftime '%Y-%m-%d %H:%M:%S', localtime;

my @people = keys %{ { reverse %phones } };

for my $person (@people) {
    if ($before->present($person) and not $now->present($person)) {
        print "[$time] $person left\n";
        system './left', $person if -x 'left';
    }
    if ($now->present($person) and not $before->present($person)) {
        print "[$time] $person arrived\n";
        system './arrived', $person if -x 'arrived';
    }
}