{"type":"doc","content":[{"type":"paragraph","content":[{"text":"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.","type":"text"},{"type":"hardBreak"},{"text":"Und vor allem kommt diese Lösung ohne Zugriffe auf Cloud-Dienste aus.","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"panel","attrs":{"panelType":"info"},"content":[{"type":"paragraph","content":[{"text":"Im Forum wurde angekündigt, dass es Probleme geben könnte mit iPhone-Geräten.","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"paragraph","content":[{"text":"Ich habe nun seit dem 09. Januar 2016 die Anwesenheitsdaten immer mitgeschrieben um nachzuvollziehen, wann das Gerät aus der Fritzbox verschwindet.","type":"text"}]},{"type":"paragraph","content":[{"text":"Es gab nur einmal in der Nacht einen Aussetzer von ca. 1 1/2 Std. Das ist aber aus meiner Sicht vernachlässigbar, da","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Die Nachtabsenkung aktiv war","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Und noch zwei weitere Handys für die Fritzbox sichtbar waren","type":"text"}]}]}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"paragraph","content":[{"text":"Aktualisierung am 17.02.2016:","type":"text"}]},{"type":"paragraph","content":[{"text":"Ich habe durch einen Tipp aus dem Forum (direktes schreiben des Status auf dem Server) die Datei angepasst.","type":"text"}]},{"type":"paragraph","content":[{"text":"Was mir jedoch nicht gefiel, dass die Daten (u.a. das Loxone-Kennwort) unverschlüsselt durch das heimische Netz geschickt werden. Das soll mit der neuen Methode meines Erachtens besser sein. Denn der Miniserver empfängt nur noch einen Status den der raspberry sendet.","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"paragraph","content":[{"text":"Als Inspiration diente mir folgender Forumeintrag:","type":"text"}]},{"type":"paragraph","content":[{"text":"Anwesenheit per WLAN feststellen","type":"text","marks":[{"type":"link","attrs":{"href":"https://www.loxforum.com/forum/faqs-tutorials-howto-s/16239-anwesenheit-per-wlan-feststellen?_=1452238659328"}}]}]},{"type":"paragraph","content":[{"text":"Dort habe ich die Grunddatei vom User Dott verwendet.","type":"text"}]},{"type":"paragraph","content":[{"text":"Das Perlskript zur Fritzbox-Abfrage kommt von ","type":"text"},{"text":"Bock-Systems","type":"text","marks":[{"type":"link","attrs":{"href":"https://www.bock-systems.de/?p=161"}}]},{"text":". Bitte auch von dort bitte die notwendigen Einstellungen für die Fritzbox nachschauen.","type":"text"}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Benötigte Hard- und Software","type":"text"}]},{"type":"orderedList","attrs":{"order":1},"content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Linux-Server (raspberry pi ist ausreichend)","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Fritzbox","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"iPhone oder Android mit aktiviertem WLAN","type":"text"}]}]}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Fritzbox MAC-Adressen","type":"text"}]},{"type":"paragraph","content":[{"text":"Es gilt über die Fritzbox die MAC-Adressen der betroffenen Mobilfunkgeräte herauszufinden.","type":"text"}]},{"type":"paragraph","content":[{"text":"Die Übersicht für alle Netzwerkgeräte befindet sich bei FRITZ!OS 6.50 unter folgendem Pfad, wobei Android meistens mit \"android-\" beginnen und einer alphanumerischen Kombination enden.","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Bei aktuell eingebuchten Geräten","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Heimnetz -> Heimnetzübersicht -> Details beim jeweiligen Netzgerät","type":"text"}]}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Bei vergangenen eingebuchten Geräten","type":"text"}]},{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Heimnetz -> Heimnetzübersicht -> Netzwerkverbindungen -> Details beim jeweiligen Netzgerät","type":"text"}]}]}]}]}]},{"type":"paragraph","content":[{"text":"Als Beispiel haben wir nun die MAC-Adressen erhalten","type":"text"}]},{"type":"paragraph","content":[{"text":"11:22:33:44:55:66 und 22:33:44:55:66:77, wobei eins davon ein iPhone und das andere ein Android-Handy ist.","type":"text"}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Installieren der Perl-Umgebung auf dem Linux-Server","type":"text","marks":[{"type":"strong"}]},{"type":"hardBreak"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"heading","attrs":{"level":5},"content":[{"text":"Installieren der Perl-Umgebung auf dem Linux-Server","type":"text","marks":[{"type":"strong"}]}]},{"type":"codeBlock","content":[{"text":"sudo apt-get install libxml-simple-perl libio-all-lwp-perl libgetopt-long-descriptive-perl","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Einrichten des Perl-Skriptes","type":"text"}]},{"type":"paragraph","content":[{"text":"Anschließend folgendes Perl-Skript in einem beliebigen Verzeichnis unter etwa folgendem Namen speichern, /home/pi/fritzbox-bewohner1.pl.","type":"text"}]},{"type":"heading","attrs":{"level":3},"content":[{"text":"Funktionsweise des Skripts","type":"text"}]},{"type":"paragraph","content":[{"text":"Das Perl-Skript fragt die Fritzbox die MAC-Adressen ab und sendet per UDP \"xxx-1\" für online und \"xxx\"-0 für offline.","type":"text"}]},{"type":"paragraph","content":[{"text":"Die Information kann dann wie auf der Seite ","type":"text"},{"text":"UDP Eingang definieren","type":"text","marks":[{"type":"link","attrs":{"href":"/wiki/spaces/LOX/pages/1519681544"}}]},{"text":" ausgewertet werden.","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"heading","attrs":{"level":5},"content":[{"text":"Perl-Skript zur Fritzbox-Abfrage","type":"text","marks":[{"type":"strong"}]}]},{"type":"codeBlock","attrs":{"language":"perl"},"content":[{"text":"#!/usr/bin/perl -w\n \nuse strict;\nuse warnings;\nuse LWP::Simple;\nuse LWP::UserAgent;\nuse XML::Simple;\nuse Getopt::Long;\nuse open qw(:std :utf8);\nuse HTTP::Request::Common;\nuse IO::Socket::INET;\n\n \n# ------------- Konfiguration -------------\nmy $ip = \"192.168.xxx.xxx\"; # IP Fritzbox\nmy $port = \"49443\"; # Port Fritzbox\nmy @macs_to_check = (\"AA:BB:CC:DD:EE:FF\"); # MAC Adresse der Geraete, es können mehrere eingetragen werden\nmy $LOXIP = \"192.168.xxx.xxx\"; # IP Miniserver\nmy $udpport = \"34435\"; # UDP-Port\nmy $online = \"xxx-1\"; \t # Person Online \nmy $offline = \"xxx-0\"; \t # Person Offline\n# ---------------- Programm ----------------\n\n$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;\n$ENV{HTTPS_DEBUG} = 1;\n \nmy $ua = new LWP::UserAgent;\n$ua->default_headers;\n$ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00);\n \nmy $resp_discover = $ua->get(\"https://$ip:$port/tr64desc.xml\");\nmy $xml_discover;\nif ( $resp_discover->is_success ) {\n $xml_discover = $resp_discover->decoded_content;\n}\nelse {\n die $resp_discover->status_line;\n}\n \nmy $discover = XMLin($xml_discover);\nprint \"$discover->{device}->{modelName} gefunden...\\n\";\n\nmy $control_url = \"not set\";\nmy $service_type = \"not set\";\nmy $service_command = \"GetSpecificHostEntry\";\nforeach(@{$discover->{device}->{deviceList}->{device}->[0]->{serviceList}->{service}}){\n if(\"urn:LanDeviceHosts-com:serviceId:Hosts1\" =~ m/.*$_->{serviceId}.*/){\n $control_url = $_->{controlURL};\n $service_type = $_->{serviceType};\n }\n}\n \nif ($control_url eq \"not set\" or $service_type eq \"not set\"){\n die \"control URL/service type not found. Cannot request host info!\";\n}\n \n$ua->default_header( 'SOAPACTION' => \"$service_type#$service_command\" );\nmy $xml_mac_resp;\nmy $any_online = 0;\n \nforeach my $mac (@macs_to_check){\n my $init_request = <\n \n \n \n \n \n $mac\n \n \n \nEOD\n \n my $init_url = \"https://$ip:$port$control_url\";\n my $resp_init = $ua->post($init_url, Content_Type => 'text/xml; charset=utf-8', Content => $init_request);\n $xml_mac_resp = XMLin($resp_init->decoded_content);\n if(exists $xml_mac_resp->{'s:Body'}->{'s:Fault'}){\n if($xml_mac_resp->{'s:Body'}->{'s:Fault'}->{detail}->{UPnPError}->{errorCode} eq \"714\"){\n print \"MAC $mac nicht in der FritzBox gefunden!\\n\";\n }\n \n }\n if(exists $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}){\n if($xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewActive} eq \"1\"){\n my $name = $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewHostName};\n my $ip = $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewIPAddress};\n my $iftype = $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewInterfaceType};\n print \"MAC $mac ($name) ist online mit der IP $ip mit $iftype\\n\";\n $any_online = 1;\n }\n if($xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewActive} eq \"0\"){\n my $name = $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewHostName};\n print \"MAC $mac ($name) ist offline\\n\";\n }\n \n \n }\n \n}\n \n\n if ($any_online){\n my $sock = new IO::Socket::INET(PeerAddr => $LOXIP,\n PeerPort => $udpport,\n Proto => 'udp', Timeout => 1) or die('Error opening socket.');\n print $sock $online;\n exit 1;\n}\n else{\n my $sock = new IO::Socket::INET(PeerAddr => $LOXIP,\n PeerPort => $udpport,\n Proto => 'udp', Timeout => 1) or die('Error opening socket.');\n print $sock $offline;\n exit 0;\n}","type":"text"}]},{"type":"heading","attrs":{"level":3},"content":[{"text":"Trennung des Skriptes","type":"text"}]},{"type":"paragraph","content":[{"text":"Um eine getrennte Abfrage für jeden Bewohner zu machen sind mehrere Skripte erforderlich. Also fritzbox-Bewohner1.pl, fritzbox-Bewohner2.pl, usw.","type":"text"}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Automatisierung der Abfrage","type":"text"}]},{"type":"paragraph","content":[{"text":"Um das ganze automatisiert abfragen zu können ist wieder ein cronjob und die Ausführberechtigung für das Skript notwendig.","type":"text"}]},{"type":"codeBlock","attrs":{"language":"shell"},"content":[{"text":"chmod +x /home/pi/fritzbox-Bewohner1.pl","type":"text"}]},{"type":"heading","attrs":{"level":5},"content":[{"text":"cronjob anlegen","type":"text","marks":[{"type":"strong"}]}]},{"type":"codeBlock","attrs":{"language":"shell"},"content":[{"text":"sudo crontab -e","type":"text"}]},{"type":"paragraph","content":[{"text":"Folgende Zeilen am Ende einfügen:","type":"text"}]},{"type":"codeBlock","attrs":{"language":"shell"},"content":[{"text":"* * * * * /usr/bin/perl /home/pi/fritzbox-Bewohner1.pl -any >/dev/null 2>&1","type":"text"}]},{"type":"paragraph","content":[{"text":"Nun fragt der raspberry pi jede Minute den Status der anwesenden WLAN-Geräte bei der Fritzbox ab.","type":"text"}]},{"type":"paragraph","content":[{"text":" ","type":"text"}]},{"type":"paragraph","content":[{"text":"Den Empfang der UDP - Telegramme und die Verwertung im Miniserver ist unter ","type":"text"},{"text":"UDP Eingang definieren","type":"text","marks":[{"type":"link","attrs":{"href":"/wiki/spaces/LOX/pages/1519681544"}}]},{"text":" beschrieben.","type":"text"}]}],"version":1}

Browser nicht unterstützt