Batterie Abfrage / Benachrichtigung

[guhu]

Versuch doch mal das Modul Homemode, das hat eine Batterieüberwachung out of the box drin. Bin mir aber nicht sicher, ob Zigbee unterstützt wird, sollte aber kein Problem sein.

[yellowpinky]

Danke für eure Antworten...
Der Ursprungscode war ja auch "geklaut" und bezog sich nur auf HM-Komponenten mit battery ok bzw. low und hat auch funktioniert.
Er hat auch verhindert dass bei battery low das email mehrfach/immer wieder gesendet wird.
Das hatte ber zur Folge, das bei der Inbetriebnahme von zigbee Komponenten mit 100 Prozent Batterie immer sofort eine email ausgelöst wurde (da ungleich OK), welches ich nun mit

Code Auswählen Erweitern

or ($EVENT = 0) bzw.

Code Auswählen Erweitern

($EVENT = 100) verhindern wollte.
if(($EVENT !~ m/ok/i) or ($EVENT = 0)) -> soll bei battery low oder battery 0 email senden
elsif(($EVENT =~ m/ok/i) or ($EVENT = 100)) -> soll comment löschen und das Reading lastBatChange mit dem aktuellen Datum befüllen.
Das funktioniert aber nur mit den HM-Komponenten (ok, low), nicht aber mit den zigbee (0, 100), da tut sich nichts - eigentlich wollte ich anstatt 0 auf <=5 vergleichen.

Güße
Daniel

[Otto123]

Hallo Daniel,

hast Du Dir mal so einen zigbee Event angeschaut? Kannst Du einen posten?!

Gruß Otto

[yellowpinky]

Hallo Otto:

Event Monitor:
2020-01-21 22:40:39 HUEDevice VibrationTest1 battery: 88

lt. Log-File der zigbee Komponete:
2020-01-21_22:15:48 VibrationTest1 orientation: 1,80,10
2020-01-21_22:15:48 VibrationTest1 vibrationstrength: 2
2020-01-21_22:15:48 VibrationTest1 tiltangle: 6
2020-01-21_22:15:48 VibrationTest1 vibration: 0
2020-01-21_22:40:39 VibrationTest1 reachable: 1
2020-01-21_22:40:39 VibrationTest1 temperature: 23
2020-01-21_22:40:39 VibrationTest1 battery: 88

LG Daniel

[Otto123]

Naja ich denke der $EVENT auf den Du scharf bist ist dieser hier: "battery: 88"

Du könntest mal mitloggen, aber ich denke $EVTPART1 könnte den Wert enthalten $EVENT enthält auf alle Fälle keine Zahl (bzw. nicht nur)

[yellowpinky]

Hallo Otto;

$EVTPART1 hab ich auch schon versucht, kann aber aus meiner Sicht nicht helfen weil ja das Reading battery nur eine Zahl enthält.
Irgendwie muss es am "or" liegen?

LG Daniel

[yellowpinky]

geht auch mit "nur" zigbee (HUEDevice) nicht

Code Auswählen Erweitern

define n_batt_chk notify .*:[Bb]attery:.* {if($EVENT = 0) {\
my $AttComment=AttrVal($NAME,"comment",0);;\
#Log 3, "comment ist $AttComment";;\
if ($AttComment ne 1) {\
my $DNAME = AttrVal($NAME,"alias",$NAME);;\
Log 3, 'about to use DebianMail';;\
{ DebianMail('vorname.nachname@mail.com','FHEM Batteriewarnung', "$DNAME -> $EVENT") };;\
Log 3,"Bat $DNAME $EVENT";;\
fhem "attr $NAME comment 1";;\
}\
}elsif($EVENT = 100) {\
if (AttrVal("$NAME","comment",0) eq 1){\
fhem("setreading $NAME lastBatChange ".localtime);;\
fhem("deleteattr $NAME comment")\
}\
}\
}



LG Daniel

[Otto123]

Ja sorry, ich war blind. Liegt nicht am or es liegt am Operator = -> ==
https://perldoc.perl.org/perlop.html#Operator-Precedence-and-Associativity
Merke
=  Zuweisung: linke Tasche = rechte Tasche
== Vergleich: links gleich rechts?

[MadMax-FHEM]

Merke
=  Zuweisung: linke Tasche = rechte Tasche
== Vergleich: links gleich rechts?

Hi Otto,

so philosophisch schon am (frühen) Morgen

Aber das ist sehr einleuchtend formuliert

Gruß, Joachim

[Otto123]

Und ich bleibe dabei:
2020-01-21 22:40:39 HUEDevice VibrationTest1 battery: 88
$NAME ist VibrationTest1
In $EVENT steht battery: 88
In $EVTPART1 steht 88
Kannst Du mit diesem Ausführungsteil überprüfen:

Code Auswählen Erweitern

{Log 1, "Name $NAME Gesamter Event $EVENT Teil0 $EVTPART0 Teil1 $EVTPART1"}

Gruß Otto

[yellowpinky]

Hallo;

Otto du hattest in beiden Dingen recht, so funktioniert es jetzt:

Code Auswählen Erweitern

define n_batt_chk notify .*:[Bb]attery:.* {if (($EVENT =~ m/low/i) or ($EVTPART1 == 3)) {\
my $AttComment=AttrVal($NAME,"comment",0);;\
#Log 3, "comment ist $AttComment";;\
if ($AttComment ne 1) {\
my $DNAME = AttrVal($NAME,"alias",$NAME);;\
Log 3, 'about to use DebianMail';;\
{ DebianMail('vorname.nachname@mail.com','FHEM Batteriewarnung', "$DNAME -> $EVENT") };;\
Log 3,"Bat $DNAME $EVENT";;\
fhem "attr $NAME comment 1";;\
}\
}elsif (($EVENT =~ m/ok/i) or ($EVTPART1 == 100)) {\
if (AttrVal("$NAME","comment",0) eq 1){\
fhem("setreading $NAME lastBatChange ".localtime);;\
fhem("deleteattr $NAME comment")\
}\
}\
}

DANKE

[Otto123]

Ich frag nochmal nach: Warum setzt Du ein Attribute? Warum nimmst Du kein Reading?
attribute setzen verändert die config, Readings werden im state File gespeichert.

Gruß Otto

[yellowpinky]

Hallo Otto;

Wie ich schon erwähnt hatte, habe ich den Ursprungscode übernommen und mich damit ehrlich gesagt nicht weiter auseinander gesetzt. Auch mangels Kenntnis.
Hättest du diesbezüglich einen Optimierungstipp für mich?

Danke
Daniel

[Otto123]

Naja, ich würde es einfach anstatt ins attr comment  in ein reading comment schreiben?
ReadingsVal statt AttrVal
setreading statt attr
deletereading statt deleteattr

Gruß  Otto

[yellowpinky]

Hallo Otto;

Hab ich mit Readings umgesetzt und funktioniert perfekt.

Code Auswählen Erweitern

define n_batt_chk notify .*:[Bb]attery:.* {if (($EVENT =~ m/low/i) or ($EVTPART1 == 3)) {\
my $ReadingsComment=ReadingsVal($NAME,"comment",0);;\
#Log 3, "comment ist $ReadingsComment";;\
if ($ReadingsComment ne 1) {\
my $DNAME = ReadingsVal($NAME,"alias",$NAME);;\
Log 3, 'about to use DebianMail';;\
{ DebianMail('vorname.nachname@mail.com','FHEM Batteriewarnung', "$DNAME -> $EVENT") };;\
Log 3,"Bat $DNAME $EVENT";;\
fhem "setreading $NAME comment 1";;\
}\
}elsif (($EVENT =~ m/ok/i) or ($EVTPART1 == 100)) {\
if (ReadingsVal("$NAME","comment",0) eq 1){\
fhem("setreading $NAME lastBatChange ".localtime);;\
fhem("deletereading $NAME comment")\
}\
}\
}


Danke nochmal für die Unterstützung und die Tipps!

Gruß Daniel