#!/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';
    }
}

##</code><code>##

* * * * * /root/btscan.pl

##</code><code>##

#!/usr/bin/perl -w
use strict;
use MIME::Lite;

my $to = 'foo@example.com';

my %text =
    $0 =~ /left/ ? (
        subject => "%s is weer weg",
        data    => "Dit is een geautomatiseerd bericht, dat wordt gestuurd " .
                   "omdat de telefoon van\n%s buiten bereik is."
    )
    :
    $0 =~ /arrived/ ? (
        subject => "%s is er weer",
        data    => "Dit is een geautomatiseerd bericht, dat wordt gestuurd " .
                   "omdat de telefoon van\n%s binnen bereik is."
    )
    :
    die "What am I?"
    ;

my $person = shift;

my $msg = MIME::Lite->new(
    From    => 'bar@example.org',
    To      => $to,
    Subject => sprintf($text{subject}, $person),
    Data    => sprintf($text{data}, $person),
);

$msg->send;