Hiermit soll beschrieben werden, wie mit einem Linux-Server (raspberry pi oder ähnlich), einer Fritzbox und einem iPhone oder Android-Handy die Anwesenheit eines oder mehrere Bewohner geprüft werden kann um verschiedene Stadien im Haus zu aktivieren.
Und vor allem kommt diese Lösung ohne Zugriffe auf Cloud-Dienste aus.
| Info |
|---|
Im Forum wurde angekündigt, dass es Probleme geben könnte mit iPhone-Geräten.
Ich habe nun seit dem 09. Januar 2016 die Anwesenheitsdaten immer mitgeschrieben um nachzuvollziehen, wann das Gerät aus der Fritzbox verschwindet. Es gab nur einmal in der Nacht einen Aussetzer von ca. 1 1/2 Std. Das ist aber aus meiner Sicht vernachlässigbar, da
|
Als Inspiration diente mir folgender Forumeintrag:
...
| Codeblock | ||||
|---|---|---|---|---|
| ||||
# ---------------- Konfig ----------------
my $ip = "xxx.xxx.xxx.xxx";
my $port = "49443";
my @macs_to_check = ("11:22:33:44:55:66", "22:33:44:55:66:77");
# ----------------/Konfig ----------------
if ($arg_any){
if ($any_online){
#print "Anwesend";
my $datei = '/var/www/on-Bewohner1';
open (my $fh, ">>", $datei) or die "Kann Datei $datei nicht oeffnen: $!";
print $fh strftime("%Y-%m-%d %H-%M-%S", localtime), " Anwesend\n";
close $fh;
my $dateianwesend = '/var/www/anwesend-Bewohner1';
open (my $fhanwesend, ">", $dateianwesend) or die "Kann Datei $datei nicht oeffnen: $!";
print $fhanwesend strftime("%Y-%m-%d %H-%M-%S", localtime), " Wert = 1\n";
close $fhanwesend;
}
else{
#print "Abwesend";
my $datei = '/var/www/off-Bewohner1';
open (my $fh, ">>", $datei) or die "Kann Datei $datei nicht oeffnen: $!";
print $fh strftime("%Y-%m-%d %H-%M-%S", localtime), " Abwesend\n";
close $fh;
my $dateianwesend = '/var/www/anwesend-Bewohner1';
open (my $fhanwesend, ">", $dateianwesend) or die "Kann Datei $datei nicht oeffnen: $!";
print $fhanwesend strftime("%Y-%m-%d %H-%M-%S", localtime), " Wert = 0\n";
close $fhanwesend;
exit 0;
}
} |
...