json2reading im Userreading nutzen ohne expandJSON Modul

[Tobias]

Hi,
ich habe jetzt neu einen "Shelly Plus PM Mini" am laufen. Dieser liefert alle Werte zusammen in einem JSON. Alle meine vielen anderen "alten" Shellies liefern jeden Einzelwert in einem eigenen Topic. Das stellt mich vor die Herausforderung jetzt noch zusätzlich das JSON parsen zu müssen um jeden Wert in einem einzelnen Reading zu haben.
Dazu habe ich mich bzgl json2reading schon schlau gemacht. Ist eigentlich genau das was ich brauche. Ich habe auch das Modul ExpandJson gefunden, möchte es aber nicht einsetzen da es wieder ein neues Modul ist und für jedes MQTT Device mit JSON-NAchrichten ein ExpandJson MOdul dazu gestellt werden muss.

Wie auch immer, ich habe alles so vorbereitet:

Code Auswählen Erweitern

defmod PM_KG_Waschmaschine MQTT_DEVICE
attr PM_KG_Waschmaschine IODev mqtt
attr PM_KG_Waschmaschine subscribeReading_data shelly_kg_waschmaschine/status/pm1:0
attr PM_KG_Waschmaschine userReadings dummy {json2reading($defs{$name},ReadingsVal($name, "data", "{}"),"",undef,"","apower")}
Im Data Reading steht folgendes drin:

Code Auswählen Erweitern

{"id":0, "voltage":235.4, "current":0.000, "apower":0.0 ,"freq":50.0,"aenergy":{"total":0.000,"by_minute":[0.000,0.000,0.000],"minute_ts":1715065259},"ret_aenergy":{"total":0.000,"by_minute":[0.000,0.000,0.000],"minute_ts":1715065259}}
Der json2reading Aufruf funktioniert bestens in der Commandline, im Userreading kommt aber folgdener Fehler:

Code Auswählen Erweitern

Error evaluating PM_KG_Waschmaschine userReading dummy: syntax error at (eval 300068076) line 1, at EOF
Missing right curly or square bracket at (eval 300068076) line 1, at end of line
Ich habe keine Ahnung wo da eine schließende Klammer fehlen soll. Kann mir jemand einen Tipp geben? Oder kann man "json2reading" eventuell besser im MQTT-Device einbauen?

[Beta-User]

Hmmm, warum es direkt klappt, und in der userReadings-Variante nicht, kann ich auch nicht genau sagen, aber uU. macht das "Redaing-update im Reading-update" Probleme? (Kann vielleicht Rudi besser beantworten, wenn ein Blick in die trigger- und update-Funktionen von fhem.pl nicht weiter hilft).

Prinzipielle Anmerkungen:
- ExpandJson kann afaik auch mehrere Devices auspacken, allerdings ist es uU. halt etwas komplexer, wenn man arg filtern will.
- U.a. wegen dieser ganzen Probleme mit JSON hat Rudi die MQTT2-Module gebaut. In dem Rahmen ist afaik auch json2reading() entstanden. Es wäre uU. einfacher, zumindest die neuen Shelly-Devices (mit ihrer sehr speziellen MQTT-Schnittstelle....) mit MQTT2-Methoden zu verarbeiten (oder das Shelly-Modul zu bemühen).

[betateilchen]

Was ist denn die eigentliche Aufgabe?

Du willst aus dem eingehenden json ein reading erzeugen, das den Wert aus "apower":0.0 enthält?

[rudolfkoenig]

Ich habe keine Ahnung wo da eine schließende Klammer fehlen soll.

Can of worms.

#1:
mit userreadings kann man gleich mehrere Readings setzen, der Trenner ist },
Ausgewertet wird damit {json2reading($defs{$name}
Das mit dem Trenner war nicht meine Idee
=> Weiter kommt man mit

Code Auswählen Erweitern

attr X userReadings dummy {my $dHash=$defs{$name};; json2reading($dHash,ReadingsVal($name, "data", "{}"),"",undef,"","apower")}

#2:
Das "Weiter" bedeutet eine Endlosschleife, weil json2readings erneut die userReadings Auswertung aufruft.
userReadings Filtern hilft nicht, weil data noch in der CHANGED Liste drin ist, weil userReadings die Events erweitern soll, bevor die eigentliche Event-Verarbeitung durch notify/etc anlaeuft.
Mit json2readings im notify gibts zwar keine Endlosschleife, aber auch keine weiteren Events, d.h. apower kann man nicht direkt weiterverwenden.

Ich habe fhem.pl erweitert, damit eine userReading Berechnung aus der gleichen Berechnung nicht erneut aufgerufen werden kann.
Entweder ab sofort aus svn, oder ab morgen per FHEM update.

[betateilchen]

Du willst aus dem eingehenden json ein reading erzeugen, das den Wert aus "apower":0.0 enthält?

Code Auswählen Erweitern

sub jt {
  my $j = '{"id":0, "voltage":235.4, "current":0.000, "apower":0.0 ,"freq":50.0,"aenergy":{"total":0.000,"by_minute":[0.000,0.000,0.000],"minute_ts":1715065259},"ret_aenergy":{"total":0.000,"by_minute":[0.000,0.000,0.000],"minute_ts":1715065259}}';
  return (json2nameValue($j))->{apower};
}


[rudolfkoenig]

Die "saubere" Methode waere ein apower userReading mit data als trigger zu definieren und den Wert mit betateilechens Methode (s.o) zu berechnen:

Code Auswählen Erweitern

attr X userReadings apower:data:.* {json2nameValue($eventValue)->{apower}}


[Tobias]

Die "saubere" Methode waere ein apower userReading mit data als trigger zu definieren und den Wert mit betateilechens Methode (s.o) zu berechnen:

Code Auswählen Erweitern

attr X userReadings apower:data:.* {json2nameValue($eventValue)->{apower}}


Danke Rudi, genau damit funktioniert es perfekt.

Code Auswählen Erweitern

defmod PM_KG_Waschmaschine MQTT_DEVICE
attr PM_KG_Waschmaschine DbLogExclude .*
attr PM_KG_Waschmaschine IODev mqtt
attr PM_KG_Waschmaschine stateFormat power W
attr PM_KG_Waschmaschine subscribeReading_data shelly_kg_waschmaschine/status/pm1:0
attr PM_KG_Waschmaschine userReadings power:data:.* {json2nameValue($eventValue)->{apower}}