{"type":"doc","content":[{"type":"paragraph","content":[{"text":"Diese Anleitung beschreibt, wie man mit einer Fritz!Box 7490 eine Smartphone-Anwesenheitserkennung via WLAN-Erkennung bauen kann.","type":"text"}]},{"type":"panel","attrs":{"panelType":"warning"},"content":[{"type":"heading","attrs":{"level":3},"content":[{"text":"Voraussetzung","type":"text"}]},{"type":"paragraph","content":[{"text":"Die Voraussetzung zur Nutzung des Scripts ist eine Server mit einer laufenden Perl-Installation und einem Cron-Daemon.","type":"text"}]}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Schritt-für-Schritt-Anleitung","type":"text"}]},{"type":"orderedList","attrs":{"order":1},"content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Zuerst wird das Perl Script ","type":"text"},{"text":"fritzbox-bewohner.pl","type":"text","marks":[{"type":"strong"}]},{"text":" mit folgendem Inhalt erstellt:","type":"text"}]},{"type":"paragraph","content":[{"text":"fritzbox-bewohner.pl","type":"text","marks":[{"type":"strong"}]}]},{"type":"codeBlock","attrs":{"language":"perl"},"content":[{"text":"#!/usr/bin/perl -w\n#####################################################\n# Script zur Anwesenheitserkennung von WLAN-Geräten #\n# an einer Fritz!Box 7490 in Verbindung mit einem #\n# Loxone Miniserver #\n# Version: 2016.02.27.15.09.14 #\n#####################################################\n# Miniserver UDP Information\nmy $mshost = 'miniserver'; # Miniserver-IP oder Hostname\nmy $msport = 7007; # Miniserver UDP-Empfangsport\nmy $msprotocol = 'udp';\n\n# Fritz!Box Information\nmy $ip = 'fritz.box'; # Fritz!Box-IP oder Hostname\nmy $port = 49443; # Fritz!Box Port\n# Flushing to STDOUT after each write\n$| = 1;\nuse strict;\nuse warnings;\nuse LWP::Simple;\nuse LWP::UserAgent;\nuse XML::Simple;\nuse Getopt::Long;\nuse open qw(:std :utf8);\nuse POSIX qw/ strftime /;\nuse IO::Socket;\n# Check Command Line parameters\n# Minumum 2 - Resident and at least one Phone-MAC address\nmy $num_args = $#ARGV + 1;\nif ($num_args < 2) \n{\n print \"Missing command line argument!\";\n print \"\\nUsage: fritzbox-bewohner.pl

[]\";\n print \"\\nExample: fritzbox-bewohner.pl Bewohner1 00:00:00:00:00:00\\n\";\n exit;\n}\n# Alle MACs sammeln und im Array macs_to_check speichern \nmy @macs_to_check =($ARGV[1]);\nmy $bewohner = $ARGV[0];\nprint \"Checking presence for User \".$bewohner.\" with MAC \".$ARGV[1];\nfor (my $mac=1; $mac <= $num_args-2; $mac++) \n { \n push @macs_to_check, $ARGV[$mac+1];\n print \" or MAC \".$ARGV[($mac+1)];\n }\nprint \" at \" . $ip .\" on port \" . $port . \"...\\n\";\n# disable SSL checks. No signed certificate!\n$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;\n$ENV{HTTPS_DEBUG} = 1;\n\n# Discover Service Parameters\nmy $ua = new LWP::UserAgent;\n$ua->default_headers;\n$ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00);\n\n# Read all available services\nmy $resp_discover = $ua->get(\"https://$ip:$port/tr64desc.xml\");\nmy $xml_discover;\nif ( $resp_discover->is_success ) \n {\n $xml_discover = $resp_discover->decoded_content;\n }\nelse \n {\n die $resp_discover->status_line;\n }\nmy $discover = XMLin($xml_discover);\nprint \"$discover->{device}->{modelName} detected...\\n\"; \n\n# Parse XML service response, get needed parameters for LAN host service\nmy $control_url = \"not set\";\nmy $service_type = \"not set\";\nmy $service_command = \"GetSpecificHostEntry\"; # fixed command for requesting info of specific MAC\nforeach(@{$discover->{device}->{deviceList}->{device}->[0]->{serviceList}->{service}})\n {\n if(\"urn:LanDeviceHosts-com:serviceId:Hosts1\" =~ m/.*$_->{serviceId}.*/)\n {\n $control_url = $_->{controlURL};\n $service_type = $_->{serviceType};\n }\n }\n\nif ($control_url eq \"not set\" or $service_type eq \"not set\")\n {\n die \"control URL/service type not found. Cannot request host info!\";\n }\n\n# Prepare request for query LAN host\n$ua->default_header( 'SOAPACTION' => \"$service_type#$service_command\" );\nmy $xml_mac_resp;\nmy $any_online = 0; # if arg any specified\n\nforeach my $mac (@macs_to_check)\n{\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\n\n if(exists $xml_mac_resp->{'s:Body'}->{'s:Fault'})\n {\n if($xml_mac_resp->{'s:Body'}->{'s:Fault'}->{detail}->{UPnPError}->{errorCode} eq \"714\")\n {\n print \"Mac $mac not found in FritzBox Database!\\n\";\n }\n }\n if(exists $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'})\n {\n if($xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewActive} eq \"1\")\n {\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) is online with IP $ip on $iftype\\n\";\n $any_online = 1;\n }\n if($xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewActive} eq \"0\")\n {\n my $name = $xml_mac_resp->{'s:Body'}->{'u:GetSpecificHostEntryResponse'}->{NewHostName};\n print \"Mac $mac ($name) is offline\\n\"; \n }\n }\n}\n# Creating UDP socket to Miniserver\nmy $client = IO::Socket::INET->new (\n PeerAddr => $mshost,\n PeerPort => $msport,\n Proto => $msprotocol,\n Type => SOCK_DGRAM\n) or die \"Socket could not be created, failed with error: $!\\n\";\nprint \"Sending Data '\".$bewohner.\":\".$any_online.\"' to $mshost on port $msport ...\\n\";\n$client->send($bewohner.\":\".$any_online);\n$client->close();","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Danach wird die Konfiguration dieses Scripts angepasst. Es ist die Adresse der Fritzbox und des Miniservers anzupassen. Auf Wunsch auch der UDP-Port des Miniservers welcher die Info empfängt.","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Nun wird ein Eintrag in der Crontab des Servers angelegt. Ich rufe das Script jede Minute auf. Die Fritz!Box liefert die Daten sowieso bis zu 15 Minuten verzögert aus.","type":"text"}]},{"type":"paragraph","content":[{"text":"crontab","type":"text","marks":[{"type":"strong"}]}]},{"type":"codeBlock","attrs":{"language":"shell"},"content":[{"text":"* * * * * /usr/bin/perl /home/pfad/zum/script/fritzbox-bewohner.pl Bewohner1 54:4E:90:11:22:33 >/dev/null 2>&1\n* * * * * /usr/bin/perl /home/pfad/zum/script/fritzbox-bewohner.pl Bewohner2 14:A3:64:44:55:66 >/dev/null 2>&1 ","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"In der Loxone Config muss nun ein ","type":"text"},{"text":"Virtueller UDP Eingang","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" ersellt werden:","type":"text"},{"type":"hardBreak"},{"text":"Die ","type":"text"},{"text":"Senderadresse","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" ist optional aber beim ","type":"text"},{"text":"UDP Empfangsport","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" muss die ","type":"text"},{"text":"Port-Nummer","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" vom ","type":"text"},{"text":"$msport","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" eingetragen werden. Hier im Beispiel ist es die ","type":"text"},{"text":"7007","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":". ","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Ausserdem wird nun für jeden Bewohner in der In der Loxone Config ein ","type":"text"},{"text":"Virtueller UDP Eingang Befehl","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" angelegt.","type":"text"},{"type":"hardBreak"},{"text":"Als ","type":"text"},{"text":"Befehlserkennung","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":" ist","type":"text"},{"text":" ","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":"\\iBewohner1:\\i\\v","type":"text","marks":[{"type":"code"}]},{"text":" ","type":"text","marks":[{"type":"textColor","attrs":{"color":"#0000ff"}}]},{"text":"zu verwenden wobei Bewohner1 für jeden Bewohner anzupassen ist und dem ersten Parameter des Scripts in der Crontab entspricht.","type":"text"}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Ich gehe dann mit den Daten durch einen Status-Baustein auf einen Tracker.","type":"text"},{"type":"hardBreak"}]},{"type":"mediaSingle","attrs":{"layout":"align-start","width":67.0},"content":[{"type":"media","attrs":{"width":951,"id":"423c5804-9ce7-4a9f-b100-4ff1c54d229e","collection":"contentId-1521975447","type":"file","height":274}}]}]}]},{"type":"paragraph","content":[{"type":"hardBreak"},{"text":"Dank an ","type":"text"},{"type":"mention","attrs":{"id":"6166ff1b64ff010071d63f8a","text":"@jdlwguard-loxone"}},{"text":" und ","type":"text"},{"text":"svethi","type":"text","marks":[{"type":"link","attrs":{"href":"https://www.loxforum.com/member/155-svethi"}}]},{"text":" welche mich motiviert haben, das umzusetzen und von wo ich Teile des Codes übernommen habe. ","type":"text"},{"type":"hardBreak"},{"text":" ","type":"text"}]},{"type":"panel","attrs":{"panelType":"info"},"content":[{"type":"paragraph","content":[{"text":"Erfolgreich getestet mit einer Fritz!Box 7490 mit Fritz!OS 06.51 an einem Miniserver Version 7.3.2.24 und Iphone 6 sowie Samsung S3 Neo.","type":"text"}]}]},{"type":"heading","attrs":{"level":2},"content":[{"text":"Verwandte Artikel","type":"text"}]},{"type":"paragraph","content":[{"type":"placeholder","attrs":{"text":"Verwandte Artikel erscheinen hier basierend auf den Stichwörtern, die Sie auswählen. Klicken Sie, um das Makro zu bearbeiten und Stichwörter hinzuzufügen oder zu ändern."}}]},{"type":"extension","attrs":{"extensionType":"com.atlassian.confluence.macro.core","extensionKey":"contentbylabel","parameters":{"macroParams":{"showLabels":{"value":"false"},"max":{"value":"5"},"spaces":{"value":"LOX"},"showSpace":{"value":"false"},"sort":{"value":"modified"},"reverse":{"value":"true"},"type":{"value":"page"},"cql":{"value":"label in ( \"anwesenheitserkennung\" , \"präsenzmelder\" , \"wlan\" , \"anwesenheit-erkennung\" , \"fritzbox\" , \"handy\" ) and type = \"page\" and space = \"LOX\""},"labels":{"value":"anwesenheit-erkennung anwesenheitserkennung fritzbox wlan handy präsenzmelder"}},"macroMetadata":{"macroId":{"value":"76578843-1fcc-405d-b389-ba9b80cf2f1a"},"schemaVersion":{"value":"4"},"title":"Inhalt nach Stichwort"}}}},{"type":"bodiedExtension","attrs":{"extensionType":"com.atlassian.confluence.macro.core","extensionKey":"details","parameters":{"macroParams":{"hidden":{"value":"true"}},"macroMetadata":{"macroId":{"value":"a9835238-90fe-4dfd-888c-bd59a6aed840"},"schemaVersion":{"value":"1"},"title":"Seiteneigenschaften"}}},"content":[{"type":"table","content":[{"type":"tableRow","content":[{"type":"tableHeader","attrs":{"colspan":1,"rowspan":1},"content":[{"type":"paragraph","content":[{"text":"Verwandte Vorgänge","type":"text"}]}]},{"type":"tableCell","attrs":{"colspan":1,"rowspan":1},"content":[{"type":"paragraph","content":[{"text":" ","type":"text"}]}]}]}]}]}],"version":1}

Browser nicht unterstützt