Hallo zusammen,
ich habe heute ein bisschen gebastelt und vielleicht ist es auch nützlich für den ein oder anderen.
Mein FHEM sagt nun, wenn ein Gast sich verbindet oder trennt :)
Folgendes Setup: FritzBox mit Gast-WLAN und Raspberry zur Sprachausgabe.
Zuerst die Fritz-Box und das userReading definieren:
define Fritzbox FRITZBOX
attr Fritzbox allowShellCommand 1
attr Fritzbox userReadings guests4 {fhem("get Fritzbox shellCommand /sbin/wlanconfig guest4 list sta | grep -v ADDR | wc -l ")}, guests5 {fhem("get Fritzbox shellCommand /sbin/wlanconfig guest5 list sta | grep -v ADDR | wc -l ")}
dann das eigentliche Script (vierer und fünfer entspricht dabei 2.4 und 5 GhZ - die Fritzbox funkt in beiden Bändern das Gast-Netz)
define Gast4Alt dummy
define Gast5Alt dummy
define viererGast notify (Fritzbox:guests4.*) {\
my $Gast4Neu = ReadingsVal("Fritzbox", "guests4", "0");;\
if (Value("Anwesend") eq "on" and $Gast4Neu gt Value("Gast4Alt"))\
{fhem ("set MyTTS tts Neuer Gast verbunden;;set Gast4Alt $Gast4Neu")}\
else {\
if (Value("Anwesend") eq "on" and $Gast4Neu lt Value("Gast4Alt"))\
{fhem ("set MyTTS tts Gast getrennt;;set Gast4Alt $Gast4Neu")}\
}}
define fuenferGast notify (Fritzbox:guests5.*) {\
my $Gast5Neu = ReadingsVal("Fritzbox", "guests5", "0");;\
if (Value("Anwesend") eq "on" and $Gast5Neu gt Value("Gast5Alt"))\
{fhem ("set MyTTS tts Neuer Gast verbunden;;set Gast5Alt $Gast5Neu")}\
else {\
if (Value("Anwesend") eq "on" and $Gast5Neu lt Value("Gast5Alt"))\
{fhem ("set MyTTS tts Gast getrennt;;set Gast5Alt $Gast5Neu")}\
}}
Zu beachten ist, dass das event erst erzeugt wird, wenn fhem sich ein neues update von der FritzBox geholt hat - kann also ein bisschen dauern, bis die Ansage kommt.
Ggf. Interval anpassen - (INTERVAL <seconds>
Polling-Interval. Default is 300 (seconds). Smallest possible value is 60.)