#!/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';
}
}
####
* * * * * /root/btscan.pl
##
##
#!/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;