Neues Modul für Brilix/Alsavo Pool-Wärmepumpe

[Init]

Hallo zusammen,

da ich gerne meine Wärmepumpe über FHEM steuern möchte und es nichts in der Richtung gibt, habe ich endlich Zeit gefunden ein eigenes Mini-Modul anzufangen.

Da ich gerne die Dinge komplett verstehen würde, die ich hier mache, habe ich folgende Verständnisfrage:

Warum leitet folgendes "set" über FHEMWEB bei einem "on" immer auf eine leere Seite weiter, auf der dann "on" steht:

Code Auswählen Erweitern

sub Alsavo_Set($@) {
.....
    if($cmd eq "off" || $cmd eq "on"){
        $hash->{STATE} = "$cmd";
        }
.....
}


Und warum bleibt folgende Version nach dem Ausführen des gleichen "set" auf der Seite und aktualisiert die Daten dort?

Code Auswählen Erweitern

sub Alsavo_Set($@) {
.....
    if($cmd eq "off" || $cmd eq "on"){
        $hash->{STATE} = "$cmd";
        Log3 $name, 3, "$self #3 State: after: ". $hash->{STATE};
        }
.....
}


Letzte Variante hätte ich gerne, aber ich möchte keine überflüssigen Logausgaben einbauen.

Viele Grüße
Marc

[Beta-User]

Bitte nicht direkt ins Internal schreiben, sondern das Reading "state" aktualisieren (allerdings m.E. in Senderichtung mit einem Übergangswert).

[Init]

Danke für den Hinweis auf die richtige Implementierung.

Es sieht nun wie folgt aus:

Code Auswählen Erweitern

sub Alsavo_Set($@) {
.....
    if($cmd eq "off" || $cmd eq "on"){
        readingsSingleUpdate($hash,'state',$cmd,1);
        }
.....
}
Aber leider lande ich nach dem Schalten auf on oder off wieder auf einer leeren Seite, wo das letzte $cmd ausgegeben wird. Also on oder off.

Was mache ich hier falsch?

Möchte weiterhin keine unnötige Logausgabe implementieren.

Viele Grüße
Marc

[Beta-User]

Wie springst du aus der Funktion?

Code Auswählen Erweitern

return;

[Init]

Das

return

fehlte.

Jetzt funktioniert es wie erwartet.

Vielen Dank!

[Init]

Hallo,

jetzt habe ich leider das nächste Problem 

Ich möchte die Daten aus der Wärmepumpe über qx abholen, aber dies soll FHEM nicht blockieren.

Daher rufe ich das Update wie folgt auf:

Code Auswählen Erweitern

    BlockingCall("getUpdates", $hash, "", "", "", "");

In der Sub getUpdates rufe ich das Modul der Wärmepumpe auf um die Statuswerte als Reading zu speichern, aber die Readings im BlockingCall werden nicht an das Device übergeben. Hier mein sub:

Code Auswählen Erweitern

sub getUpdates($){
    my ($hash) = @_;
    my $output=qx (./AlsavoCtrl -s xxx -l xxx -a 172.16.0.70 -p 1194 2>/dev/null);
my @lines = split /\n/, $output;
readingsSingleUpdate($hash,'marc','initB10r',1);
readingsBeginUpdate($hash);
foreach my $line( @lines ) {
    my $jsonraw = (split(/\=/,$line))[1];
    my $json = from_json($jsonraw);
    my $rowId = $json->{index};
    my $rowValue = $json->{value};
    my $rowReadingName = $Alsavo_params{$rowId};
readingsBulkUpdate($hash, $rowId, $rowValue );
    }
readingsEndUpdate($hash, 1);
    return;
    }

Auch das "readingsSingleUpdate" klappt nicht. Vor dem BlockingCall funktioniert ein "readingsSingleUpdate".

Ist das nicht möglich, was ich hier versuche?

Viele Grüße
Marc

[Beta-User]

Kann mir das leider grade nicht im Detail ansehen.

Vielleicht suchst du mal meine Version von TvHeadend. Die ist etwas anders strukturiert (gepackaged), aber sonst vermutlich ähnlich.

[Init]

Danke für deine Hilfe!

Habe mir die letzte Version von runtergeladen, aber leider verfährst du da anders als ich, da du alles über HTTP-Requests abfragen kannst.

Bei meiner Wärmepumpe muss ich ein qx auf ein python-Skript machen.

Hab aber nun auch das Problem entdeckt. Ich muss das Ergebnis im Hauptprozess verarbeiten. Im Wiki wird auch auf diese Einschränkung hingewiesen:

Veränderungen an internen Variablen von FHEM (Device Hashes, Timers, usw.) werden innerhalb eines BlockingCalls durchgeführt und sind dort auch sichtbar, haben aber keinerlei Einfluss auf den eigentlichen FHEM Hauptprozess und alle Definitionen. Solche Veränderungen müssen an die finishFn delegiert werden

Grüße
Marc

[Init]

Hallo zusammen,

ich bin heute endlich wieder dazu gekommen an dem Modul weiterzumachen

Vorhin haben die Set Befehle noch funktioniert und auf einmal bekomme ich statt den Schaltwert "on" / "off" in der Perl Funktion zufällige Zahlenwerte. Statt "on" kommt 30,20 oder 31

Mir ist nicht bewusst, dass ich da irgendwas in der Richtung geändert habe. In der Oberfläche wird korrekt "on" / "off" bei der Option "Timer" angezeigt.

Nachdem ich nicht weitergekommen bin, habe ich an eine Stelle den Code zurückgerollt, wo es definitiv noch funktioniert hatte, aber leider erhalte ich weiter Werte wie 30 statt on

Ich weiß echt nicht weiter.

Hier der relevante Code

Code Auswählen Erweitern

my %Alsavo_sets = (
    off                => 'noArg',
    on                  => 'noArg',
    RunMode            => 'Auto,Heating,Cooling',
    PowerMode          => 'Silent,Smart,Powerful',
    TemperaturHeating  => 'slider,15,1,41',
    TemperaturCooling  => 'slider,6,1,35',
    TemperaturAutoMode  => 'slider,6,1,41',
    Timer              => 'on,off',
    TimerOnTime        => 'time',
    TimerOffTime        => 'time'
    );

sub Alsavo_Initialize($) {
    my ($hash) = @_;
    Alsavo_Log($hash, 3, "Hashinhalte von \"Alsavo_config_params\"". join( " ", map { "$_" . ( $Alsavo_config_params{$_} ? ":$Alsavo_config_params{$_}" : "" ) } keys %Alsavo_config_params ));

    $hash->{DefFn}  = 'Alsavo_Define';
    $hash->{UndefFn} = 'Alsavo_Undef';
    $hash->{DeleteFn}= 'Alsavo_Delete';
    $hash->{SetFn}  = 'Alsavo_Set';
    $hash->{GetFn}  = 'Alsavo_Get';
    $hash->{AttrFn}  = 'Alsavo_Attr';
    $hash->{ReadFn}  = 'Alsavo_Read';
    $hash->{AttrList} = "debuglevel:0,1,2 " . $readingFnAttributes;
    }

sub Alsavo_Set($@) {
    my ( $hash, $name, $cmd, @args ) = @_;
    Alsavo_Log($hash, 3, "#1 Cmd: $cmd - Args: ".join( " ", @args));
    if($cmd eq "on"){
        my $bitmask = $hash->{READINGS}{config_4_System_config_bitmask_1}{VAL};
        $bitmask |= 32; # Activating Bit 5
        return undef;
        }
    elsif($cmd eq "off"){
        my $bitmask = $hash->{READINGS}{config_4_System_config_bitmask_1}{VAL};
        $bitmask &= ~32; # Deactivating Bit 5
        return undef;
        }
    elsif($cmd eq "Timer"){
        my $mode = shift @args;
        if($mode eq "on"){
            my $bitmask = $hash->{READINGS}{config_4_System_config_bitmask_1}{VAL};
            $bitmask |= 4; # Activating Bit 2
            doBlockingCall($hash,"4 .$bitmask");
            return undef;
            }
        elsif($mode eq "off"){
            my $bitmask = $hash->{READINGS}{config_4_System_config_bitmask_1}{VAL};
            $bitmask &= ~4; # Deactivating Bit 2
            doBlockingCall($hash,"4 .$bitmask");
            return undef;
            }
        else {
            return "Unbekannter Timer-Modus: $mode";
            }
        }
    else { # Unbekannte Commands und für das Webfrontend mit dem cmd=?
        return "Unknown argument $cmd, choose one of " . join( " ", map { "$_" . ( $Alsavo_sets{$_} ? ":$Alsavo_sets{$_}" : "" ) } keys %Alsavo_sets );
        #return SetExtensions($hash, map { "$_" . ( $Alsavo_sets{$_} ? ":$Alsavo_sets{$_}" : "" ) } keys %Alsavo_sets ), $name, $cmd, @args);
    }



Und in der Methode Alsavo_Set erhalte ich in "join( " ", @args)" die Ausgabe wie 30,20 oder andere Zahlen.

Hat jemand eine Idee?

Viele Grüße
Marc

[Beta-User]

Es ist echt schwierig, auf Schnippsel was sinnvolles zu antworten...

Also: Wenn (!) das "entfernte Gerät" nicht via HTTP-requests gesteuert werden kann/soll, sind m.E. auch die HTTP-Werkzeuge aus dem FHEM-Baukasten nicht passend. Allerdings _glaube_ ich nicht, dass das Python-script was anderes macht, nur ist da halt der Code schon funktional. Ich würde versuchen, das nach Perl zu portieren und direkt ins Modul zu integrieren. Falls das script eine Art Web-Interface bietet, wäre es sonst ggf. einfacher, das via HTTPMOD oder JsonMod zu lösen, falls es MQTT kann, wäre MQTT2_DEVICE das Mittel der Wahl...

Vielleicht zeigst du, wo das script zu finden ist und fügst hier den kompletten Modul-Code mal an? (Verschieben nach Perl für FHEM-User wäre vermutlich auch eine Idee...).

Sonstiges:

- "return undef;" => Wenn du nicht weißt, für was du das undef brauchst, wirf es weg! "return;" macht dasselbe...

- Warum springst du in der setFn bei on/off raus, ohne was zu machen? Oder anders: Was willst du tun?

- Selbst beim Entwickeln sollte man m.E. nicht allzu "konkrete" Angaben im Code verstreuen - die IP-Adresse des Gerätes (aus dem qx) gehört ins define oder ein Attribut und sollte dann so auch verwendet werden.

[Init]

Hallo Beta-User,

vielen Dank für deine Antwort.

Mein Modul soll ein Python-Skript (AlsavoCtrl) aufrufen, um unsere Wärmepumpe des Pools zu steuern und auszuwerten.
Es gibt zwar mittlerweile eine Docker-Version, welche auch mqtt verwendet, aber ich würde gerne bei der Implementierung in meinem Modul bleiben.
Ein Umbau des Skript auf 100% Perl wäre die tollste Variante, aber dies ist definitiv eine Nummer zu groß für mich, da ich mit Perl nur im Bereich FHEM zu tun habe.

Ich habe mal das Modul angehängt.

Bin dort für jede konstruktive Kritik zu haben.

Log-Ausgaben verschwinden natürlich noch, da diese mir einfach geholfen haben herauszufinden, wann was aufgerufen wird.
Die Hilfe kommt am Schluss.

Erstellt wird das Gerät über:  define <name> Alsavo <ip> <port> <serialnumber> <password> [<interval> <AlsavoCtrl-Path>]

Wo ich das gerade schreiben, dass Passwort muss natürlich auch noch verschlüsselt werden und liegt derzeit in plain text ab.

Aktuell bekomme ich alle Daten der Wärmepumpe und im Bereich "Set" werden auch schon die richtigen Daten angezeigt.

Status passt auch, allerdings hätte ich hier gerne noch ein Icon + Text mit aktueller Temperatur als Status im Webinterface. Bislang bekomme ich nur die Temperatur über StateFormat = "   {sprintf("Wassertemperatur: %.1f °C", ReadingsVal($name,"status_16_Water_in_temp","-1"))}", aber nun habe ich kein Icon mehr

Aber zurück zum eigentlichen Problem.
In Zeile 281 erhalte ich in "@args" aktuell eine Zahl statt on oder off, wenn ich über das WebInterface Set Device Timer on/off wähle und dann auf set klicke.

- "return undef;" => Wenn du nicht weißt, für was du das undef brauchst, wirf es weg! "return;" macht dasselbe...

Habe ich geändert

- Warum springst du in der setFn bei on/off raus, ohne was zu machen? Oder anders: Was willst du tun?

In beiden Varianten wird noch folgende Zeile eingefügt:
doBlockingCall($hash,"4 .$bitmask");

- Selbst beim Entwickeln sollte man m.E. nicht allzu "konkrete" Angaben im Code verstreuen - die IP-Adresse des Gerätes (aus dem qx) gehört ins define oder ein Attribut und sollte dann so auch verwendet werden.

Das habe ich leider nicht verstanden. Wo hatte ich die IP im Code? Oder beziehst du dich auf eine alte Nachricht von mir?

Wenn dieser Bereich im Forum nicht richtig ist, dann kannst den Thread gerne verschieben.

Viele Grüße
Marc

[Beta-User]

Also: Es geht um das Script von strandborg von hier: https://github.com/strandborg/AlsavoCtrl? Das wäre wohl C++ und fragt einen externen Server ab... Damit wäre evtl. HTTPMOD wieder im Spiel...

Da ich das ohne Hardware/passende Zugangscodes etc. nicht testen kann, hatte ich vor der Abfrage, ob das script da ist ein return in den (geringfügig überarbeiteten) Code eingebaut.

Generell: Du arbeitest mit "generischen Funktionsnamen". Das ist super, wenn man es mit einem gepackagten Modul zu tun haben. Haben wir nur nicht => ändern (nach dem Vorbild der "firstInit")...

Status passt auch, allerdings hätte ich hier gerne noch ein Icon + Text mit aktueller Temperatur als Status im Webinterface. Bislang bekomme ich nur die Temperatur über StateFormat = "  {sprintf("Wassertemperatur: %.1f °C", ReadingsVal($name,"status_16_Water_in_temp","-1"))}", aber nun habe ich kein Icon mehr

Würde ich über devStateIcon-Code machen, schau mal in die attrTemplate-file zu MQTT2_DEVICE, da gibt es Legionen an Beispielen, wie das ginge.
Hier mal ein extremes Beispiel (Achtung: myUtils ist gepackaged! Icons sind (noch...) nicht klickbar...):
(OK, Bild will grade nicht...)

Code Auswählen Erweitern

attr Heizung_neu devStateIcon {FHEM::Heizung_Utils::devStateIcon($name)}

Code Auswählen Erweitern

sub devStateIcon {
  my $devname = shift // return;
 
  return if !defined $defs{$devname};
 
  my $col = ReadingsVal($devname,'LWT','Offline') eq 'Online' ? 'green' : 'red';
  my $ret = FW_makeImage("lan_rs485\@$col",'file_unknown@grey');
  my $rval = ReadingsNum($devname,'DS01_Temperature',0);
  $col = substr(Color::pahColor(-15,0,40,$rval,0),0,6);
  $ret .= ' ';
  $ret .= FW_makeImage("temp_temperature\@$col",'file_unknown@grey');
  $ret .= ' ';
  $ret .= ReadingsNum($devname,'DS01_Temperature',0,1);
  $ret .= ' °C<br>';
 
  $ret .= ' ';
  $ret .= ReadingsNum($devname,'Solar_sens1',0,1);
  $ret .= ' °C ';
  $col = substr(Color::pahColor(-10,40,95,ReadingsNum($devname,'Solar_sens1',0),0),0,6);
  $ret .= FW_makeImage("sani_solar_temp\@$col",'file_unknown@grey');
  $ret .= ' ';
 
  $rval = ReadingsNum($devname,'Solar_pump1',0);
  if ($rval) {
      $col = substr(Color::pahColor(0,40,100,ReadingsNum($devname,'Solar_pump1',0),0),0,6);
      $ret .= FW_makeImage("sani_pump\@$col",'file_unknown@grey');
  } else {
      $ret .= FW_makeImage('sani_pump','file_unknown@grey');
  }
  $ret .= ' ';
  $ret .= ReadingsNum($devname,'Solar_pump1',0);
  $ret .= ' %<br>';

  $rval = ReadingsNum($devname,'DS03_Temperature',1);
  $col = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= $rval;
  $ret .= ' °C ';
  $ret .= FW_makeImage("sani_return_temp\@$col",'file_unknown@grey');
  $ret .= ' ';
  $rval = ReadingsNum($devname,'DS02_Temperature',1);
  $col = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= FW_makeImage("sani_supply_temp\@$col",'file_unknown@grey');
  $ret .= ' ';
  $ret .= $rval;
  $ret .= ' °C<br>';
  $rval = ReadingsNum($devname,'Solar_sens2',0,1);
  my $col1 = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= "$rval °C / ";
  $rval = ReadingsNum($devname,'Solar_sens3',0,1);
  my $col2 = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= "$rval °C / ";
  $rval = ReadingsNum($devname,'Solar_sens4',0,1);
  my $col3 = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= "$rval °C / ";
  $rval = ReadingsNum($devname,'Solar_sens5',0,1);
  $col = substr(Color::pahColor(0,40,90,$rval,0),0,6);
  $ret .= "$rval °C ";

  my $deftags = qq(<defs>
        <linearGradient id="lgrad1" x1="0" y1="1" x2="0" y2="0">
            <stop offset="0%" stop-color="#$col1" />
            <stop offset="25%" stop-color="#$col2" />
            <stop offset="50%" stop-color="#$col3" />
            <stop offset="75%" stop-color="#$col" />
        </linearGradient>
    </defs>);
  $ret .= special_makeImage("sani_buffer_temp_all\@url(#lgrad1)",$deftags);
   
  return qq(<div><p style="text-align:right">$ret</p></div>);
}

Das habe ich leider nicht verstanden. Wo hatte ich die IP im Code? Oder beziehst du dich auf eine alte Nachricht von mir?

Das bezog sich auf einen deiner vorherigen Posts.

Verschieben kannst du selbst (Knopf unter dem ersten Beitrag), sonst bräuchten wir einen Admin oder Moderator...

[Init]

Tausend Dank für die Überarbeitung und das Beispiel vom devStateIcon!
Jetzt funktioniert es wieder, aber ich verstehe nicht warum!
Liegt es an der Umbenennen von "firstInit" oder der am auskommentieren von "Data::Dumper"?

Was ist ein "gepackagten Modul"? Werde alle übrigen Funktionen den Präfix "Alsavo_" voranstellen.

Verschieben kannst du selbst (Knopf unter dem ersten Beitrag), sonst bräuchten wir einen Admin oder Moderator...

Diese Funktion habe ich dort leider nicht, sonst wäre ich jetzt deinem Rat gefolgt und hätte es nach "Perl für FHEM-User" geschoben.

[Beta-User]

Liegt es an der Umbenennen von "firstInit" oder der am auskommentieren von "Data::Dumper"?

Ziemlich sicher nicht an letzterem, und bei ersterer Funktion kommt es darauf an, ob "noch jemand" so eine generische Benennung (außerhalb seines eigenen Namespace) gemacht hat...

Details zu Packages: https://forum.fhem.de/index.php?topic=122708.0

Diese Funktion habe ich dort leider nicht, sonst wäre ich jetzt deinem Rat gefolgt und hätte es nach "Perl für FHEM-User" geschoben.

Hmmm, ich habe die jedenfalls nicht (kein Mod), und ich bin ziemlich sicher, dass die Option für dich verfügbar ist. Ggf. mit einem anderen Browser, aktivierten scripts, upgedatetem cache, whatever...

[Init]

Ich werde gerade irre

Es hatte ja mit dem überarbeiteten Skript funktioniert. Jetzt habe ich angefangen die Funktionen umzubenennen und nun bekomme ich wieder Zahlen in  @args (Zeile 282+283) statt on/off.

Danach habe ich wieder das Original eingespielt und es funktioniert weiterhin nicht.
Auch das Löschen und eine Neuerstellung vom Device helfen nicht.

Was kann das nur sein. Habe echt keine Idee

Im Anhang ein Screenshot von meinen Optionen unter dem ersten Post (Chrome und Edge). Habe nun den Moderator angeschrieben.

[Beta-User]

Im Anhang ein Screenshot von meinen Optionen unter dem ersten Post (Chrome und Edge). Habe nun den Moderator angeschrieben.

Das ist immer unten-unten, nur bei mir halt (umgekehrte Sortierung der Beiträge) unter dem ERSTEN Beitrag (sorry), bei dir unter dem LETZTEN...

Das mit den vermeintlichen Zahlen in

Code Auswählen Erweitern

    Alsavo_Log($hash, 3, "#1 Cmd: $cmd - Args: ".join( " ", @args));
hat vermutlich damit zu tun, dass (im on/off-Fall) nur "$cmd" überhaupt einen Inhalt hat, und der Rest irgendwelche Reste sind, die halt im Speicher sind. Das kommt davon (nicht personlich gemeint!), wenn man Prototypes propagiert, aber nicht im Detail erklärt, für was die gut sind. Daher arbeite ich in der Regel (PBP-konform und) ohne Prototypes... (Diskussion dazu siehe den bereits verlinkten Thread in "Perl für ...").

[Init]

Im Anhang ein Screenshot von meinen Optionen unter dem ersten Post (Chrome und Edge). Habe nun den Moderator angeschrieben.

Das ist immer unten-unten, nur bei mir halt (umgekehrte Sortierung der Beiträge) unter dem ERSTEN Beitrag (sorry), bei dir unter dem LETZTEN...

Jetzt habe ich den Button gefunden und habe den Thread verschoben.

Ich habe nun alle Funktionen umbenannt, erhalte aber weiterhin in Zeile 282 bzw. 283 Zahlenwerte.

Ich versuche es mal mit Bildern zu erklären.

Ich klicke im folgenden Bild auf "set"
Du darfst diesen Dateianhang nicht ansehen.

Und erhalte folgenden Fehler:
Du darfst diesen Dateianhang nicht ansehen.

Mit folgender Ausgabe im Log:

Code Auswählen Erweitern

2024.09.01 14:20:54.557 3: Alsavo Marc1 Device: schneckenBrilix - Line: 283 - Function: Set - Message: #1 Cmd: Timer - Args: 31

Die select Box enthält die richtigen Werte:

Code Auswählen Erweitern

<select class="select_widget" informid="schneckenBrilix-Timer" title="Timer"><option value="on">on</option><option value="off">off</option></select>

Die Fehlermeldung stammt aus Zeile 309 des Skripts, da $mode in 296/302 weder on noch off ist.

Das aktuelle Skript ist nochmal im Anhang.

Wie gesagt, es ist einfach komisch, dass es mal nach einem "reload 23_Alsavo" funktioniert und dann nicht mehr.
Auch ein Neustart von FHEM oder eine Neuerstellung vom Device helfen.

[Beta-User]

Hmmm, strange...

Wie schaut es aus, wenn du den Befehl im Klartext in das Kommandofeld eingibts, also nicht "klickibunti" vorgehst?

Kleine Anmerkungen zu Code im Anhang.

[Init]

Sehr interessant.

Code Auswählen Erweitern

set schneckenBrilix Timer off
set schneckenBrilix Timer on
Funktioniert beides.

Anbei nochmal die aktuelle Version, da habe ich das set für on und off kompetiert.

Es riecht für mich danach, das manchmal in @args die Werte aus Zeile 234 - 244 steht.
Aber warum. Das verstehe ich nicht. Wahrscheinlich ist meine Herangehensweise für das Schreiben der aktuellen Werte für die Set-Select-Box falsch.

Um dies zu verifizieren, habe ich die Zeile 252 ersetzt.
Von "return $name . "|" . $myReturn;" auf "return;"

Jetzt werden keine Readings geschrieben. Danach habe ich alle Redings mit "deletereading schneckenBrilix .*" gelöscht.

Nun erhalte ich immer eine 6 in @args

[Beta-User]

Hmmm, hatte das in grauer Vorzeit auch mal, dass irgendein Modulcode Probleme im Web-Frontend machte. (Sorry, weiß aber auch nicht mehr, was das Problem war und wie es zu lösen gewesen ist).

Aber was genau macht eigentlich "DoCommunication"? Da wird ja nur irgendein String zusammengebaut und zurückgegeben, oder verstehe ich da was falsch?

Anbei wieder eine kleine Überarbeitung, jetzt ist wenigstens der Prototype in setFn "korrekt"... (sicherheitshalber FHEM neu starten, wenn Prototypes geändert werden)

[Beta-User]

Jedenfalls kommt es mir extremst komisch vor, wie da in DoCommunication mit $hash gearbeitet wird. Funktioniert das wirklich?!?

Tendenziell würde ich statt später auszuführendem Code was serialisiertes zurückgeben (wenn man nicht den urspünglichen JSON haben will?!?), das durch "parseParams" leicht wieder in einen HASH zurückzuführen wäre (TemperaturHeating=54 state=on) und dann in der DoCommunicationDone erst ausgepackt wird...

[Init]

Danke für die Anpassung!

Alsavo_DoCommunication ruft AlsavoCtrl mit den notwendigen Parametern auf und bereitet folgenden String auf, um den 2. Teil (Trenner ist |) in Alsavo_DoCommunicationDone mittel eval ausführen zu lassen:

Code Auswählen Erweitern

{Alsavo_DoCommunicationDone('schneckenBrilix|readingsBeginUpdate($hash)
readingsBulkUpdate($hash, "TemperaturHeating","32")
readingsBulkUpdate($hash, "config_1_Heating_mode_target_temp", "320")
readingsBulkUpdate($hash, "TemperaturCooling","20")
readingsBulkUpdate($hash, "config_2_Cooling_mode_target_temp", "200")
readingsBulkUpdate($hash, "TemperaturAutoMode","30")
readingsBulkUpdate($hash, "config_3_Auto_mode_target_temp", "300")
readingsBulkUpdate($hash, "state","on")
readingsBulkUpdate($hash, "Timer","off")
readingsBulkUpdate($hash, "config_4_System_config_bitmask_1", "32")
readingsBulkUpdate($hash, "config_5_System_config_bitmask_2", "0")
readingsBulkUpdate($hash, "config_6_Manual_frequency_setting", "50")
readingsBulkUpdate($hash, "config_7_Manual_EEV_setting", "350")
readingsBulkUpdate($hash, "config_8_Manual_fan_speed_setting", "500")
readingsBulkUpdate($hash, "config_9_Defrost_in_temp", "-70")
readingsBulkUpdate($hash, "config_10_Defrost_out_temp", "200")
readingsBulkUpdate($hash, "config_11_Water_temperature_calibration", "0")
readingsBulkUpdate($hash, "config_12_Defrost_in_time", "40")
readingsBulkUpdate($hash, "config_13_Defrost_out_time", "12")
readingsBulkUpdate($hash, "config_14_Hot_over", "30")
readingsBulkUpdate($hash, "config_15_Cold_over_default_-20", "-20")
readingsBulkUpdate($hash, "PowerMode","Powerful")
readingsBulkUpdate($hash, "config_16_Power_mode", "2")
readingsBulkUpdate($hash, "config_17_Unknown,_default_value_6", "6")
readingsBulkUpdate($hash, "config_32_Current_time,_hibyte=hours,_lobyte=minutes", "5432")
readingsBulkUpdate($hash, "TimerOnTime","09:30")
readingsBulkUpdate($hash, "config_33_Timer_on_time", "2334")
readingsBulkUpdate($hash, "TimerOffTime","17:45")
readingsBulkUpdate($hash, "config_34_Timer_off_time", "4397")
readingsBulkUpdate($hash, "status_16_Water_in_temp", "27.5")
readingsBulkUpdate($hash, "status_17_Water_out_temp", "35")
readingsBulkUpdate($hash, "status_18_Ambient_temperature", "28.7")
readingsBulkUpdate($hash, "status_19_Cold_pipe_temperature", "7.4")
readingsBulkUpdate($hash, "status_20_Heating_pipe_temperature", "14.1")
readingsBulkUpdate($hash, "status_21_IPM_module_temperature", "47")
readingsBulkUpdate($hash, "status_22_Fan_speed_(RPM)", "855")
readingsBulkUpdate($hash, "status_23_Exhaust_temperature", "74.8")
readingsBulkUpdate($hash, "status_24_Compressor_input_temperature", "0")
readingsBulkUpdate($hash, "status_25_Electronic_exhaust_valve_opening_setting,_Range:_0-450\'ish", "334")
readingsBulkUpdate($hash, "status_26_Compressor_current_in_amps", "11")
readingsBulkUpdate($hash, "status_27_Compressor_running_frequency", "99")
readingsBulkUpdate($hash, "status_33_Compressor_speed_setting_(0_=_off,_1_=_P1_40Hz,_5_=_P5_82Hz)", "4")
readingsBulkUpdate($hash, "status_34_Frequency_limit_code", "0")
readingsBulkUpdate($hash, "status_48_Alarm_code_1", "0")
readingsBulkUpdate($hash, "status_49_Alarm_code_2", "0")
readingsBulkUpdate($hash, "status_50_Alarm_code_3", "0")
readingsBulkUpdate($hash, "status_51_Alarm_code_4", "0")
readingsBulkUpdate($hash, "status_52_System_status_code", "0")
readingsBulkUpdate($hash, "status_53_System_running_code", "3")
readingsBulkUpdate($hash, "status_54_Device_status_code", "47")
readingsBulkUpdate($hash, "status_55_Heating_max_temperature", "41")
readingsBulkUpdate($hash, "status_56_Cooling_min_temperature", "6")
readingsBulkUpdate($hash, "status_64_Device_type", "0")
readingsBulkUpdate($hash, "status_65_Main_board_HW_revision", "8306")
readingsBulkUpdate($hash, "status_66_Main_board_SW_revision", "16")
readingsBulkUpdate($hash, "status_67_Manual_HW_code", "8306")
readingsBulkUpdate($hash, "status_68_Manual_SW_code", "16")
readingsBulkUpdate($hash, "TemperaturHeating","32")
readingsBulkUpdate($hash, "config_1_Heating_mode_target_temp", "320")
readingsBulkUpdate($hash, "TemperaturCooling","20")
readingsBulkUpdate($hash, "config_2_Cooling_mode_target_temp", "200")
readingsBulkUpdate($hash, "TemperaturAutoMode","30")
readingsBulkUpdate($hash, "config_3_Auto_mode_target_temp", "300")
readingsBulkUpdate($hash, "state","on")
readingsBulkUpdate($hash, "Timer","off")
readingsBulkUpdate($hash, "config_4_System_config_bitmask_1", "32")
readingsBulkUpdate($hash, "config_5_System_config_bitmask_2", "0")
readingsBulkUpdate($hash, "config_6_Manual_frequency_setting", "50")
readingsBulkUpdate($hash, "config_7_Manual_EEV_setting", "350")
readingsBulkUpdate($hash, "config_8_Manual_fan_speed_setting", "500")
readingsBulkUpdate($hash, "config_9_Defrost_in_temp", "-70")
readingsBulkUpdate($hash, "config_10_Defrost_out_temp", "200")
readingsBulkUpdate($hash, "config_11_Water_temperature_calibration", "0")
readingsBulkUpdate($hash, "config_12_Defrost_in_time", "40")
readingsBulkUpdate($hash, "config_13_Defrost_out_time", "12")
readingsBulkUpdate($hash, "config_14_Hot_over", "30")
readingsBulkUpdate($hash, "config_15_Cold_over_default_-20", "-20")
readingsBulkUpdate($hash, "PowerMode","Powerful")
readingsBulkUpdate($hash, "config_16_Power_mode", "2")
readingsBulkUpdate($hash, "config_17_Unknown,_default_value_6", "6")
readingsBulkUpdate($hash, "config_32_Current_time,_hibyte=hours,_lobyte=minutes", "5432")
readingsBulkUpdate($hash, "TimerOnTime","09:30")
readingsBulkUpdate($hash, "config_33_Timer_on_time", "2334")
readingsBulkUpdate($hash, "TimerOffTime","17:45")
readingsBulkUpdate($hash, "config_34_Timer_off_time", "4397")
readingsEndUpdate($hash, 1)
 ')}

Siehst du hier etwas falsches?

[Beta-User]

Siehst du hier etwas falsches?

Das mit dem "$hash" gefällt mir ebensowenig wie "eval" (is evil)...

Warum gibts du nicht was parseParams-taugliches zurück, Muster in etwa so:

Code Auswählen Erweitern

{Alsavo_DoCommunicationDone('schneckenBrilix|TemperaturHeating=32 config_1_Heating_mode_target_temp=320 TemperaturCooling=....')}

[Beta-User]

Und warum machst du das nicht so, dass du statt

Code Auswählen Erweitern

return $name . "|" . $myReturn;
nicht einfach

Code Auswählen Erweitern

return "$name|${output}";
aus DoCommunication zurückgibst und den ganzen Rest in "Done" machst?!?

PS:

Code Auswählen Erweitern

        my $json = from_json($jsonraw);
Alle JSON-Decodierungsversuche sind hochgradig "gefährlich" für den Fall, dass nicht wie erwartet effektiv ein JSON-Blob zurückgegeben wird. Das sollte man unbedingt "einpacken", siehe https://forum.fhem.de/index.php?msg=1227235

[Init]

Warum gibts du nicht was parseParams-taugliches zurück, Muster in etwa so:

Code Auswählen Erweitern

{Alsavo_DoCommunicationDone('schneckenBrilix|TemperaturHeating=32 config_1_Heating_mode_target_temp=320 TemperaturCooling=....')}

Wenn ich es richtig gemacht habe, dann sollte alles in "DoCommunication" nicht FHEM blockieren und daher wollte ich dort alle "zeitraubenden" Schleifen implementieren und im Alsavo_DoCommunicationDone alles einfach ausführen lassen.

Code Auswählen Erweitern

        my $json = from_json($jsonraw);
Alle JSON-Decodierungsversuche sind hochgradig "gefährlich" für den Fall, dass nicht wie erwartet effektiv ein JSON-Blob zurückgegeben wird. Das sollte man unbedingt "einpacken", siehe https://forum.fhem.de/index.php?msg=1227235

Der Response von ./AlsavoCtrl sieht wie folgt aus:

Code Auswählen Erweitern

/home/alsavo/status/16={"type":"status", "index":16, "value":26.0}
/home/alsavo/status/17={"type":"status", "index":17, "value":28.5}
/home/alsavo/status/18={"type":"status", "index":18, "value":21.3}
/home/alsavo/status/19={"type":"status", "index":19, "value":0.0}
/home/alsavo/status/20={"type":"status", "index":20, "value":20.4}
/home/alsavo/status/21={"type":"status", "index":21, "value":30.0}
/home/alsavo/status/22={"type":"status", "index":22, "value":0}
/home/alsavo/status/23={"type":"status", "index":23, "value":29.8}
/home/alsavo/status/24={"type":"status", "index":24, "value":0.0}
/home/alsavo/status/25={"type":"status", "index":25, "value":350}
/home/alsavo/status/26={"type":"status", "index":26, "value":0}
/home/alsavo/status/27={"type":"status", "index":27, "value":0}
/home/alsavo/status/33={"type":"status", "index":33, "value":8}
/home/alsavo/status/34={"type":"status", "index":34, "value":0}
/home/alsavo/status/48={"type":"status", "index":48, "value":0}
/home/alsavo/status/49={"type":"status", "index":49, "value":0}
/home/alsavo/status/50={"type":"status", "index":50, "value":0}
/home/alsavo/status/51={"type":"status", "index":51, "value":0}
/home/alsavo/status/52={"type":"status", "index":52, "value":0}
/home/alsavo/status/53={"type":"status", "index":53, "value":0}
/home/alsavo/status/54={"type":"status", "index":54, "value":0}
/home/alsavo/status/55={"type":"status", "index":55, "value":41.0}
/home/alsavo/status/56={"type":"status", "index":56, "value":6.0}
/home/alsavo/status/64={"type":"status", "index":64, "value":0}
/home/alsavo/status/65={"type":"status", "index":65, "value":8306}
/home/alsavo/status/66={"type":"status", "index":66, "value":16}
/home/alsavo/status/67={"type":"status", "index":67, "value":8306}
/home/alsavo/status/68={"type":"status", "index":68, "value":16}
/home/alsavo/config/1={"type":"config", "index":1, "value":320}
/home/alsavo/config/2={"type":"config", "index":2, "value":200}
/home/alsavo/config/3={"type":"config", "index":3, "value":300}
/home/alsavo/config/4={"type":"config", "index":4, "value":1}
/home/alsavo/config/5={"type":"config", "index":5, "value":0}
/home/alsavo/config/6={"type":"config", "index":6, "value":50}
/home/alsavo/config/7={"type":"config", "index":7, "value":350}
/home/alsavo/config/8={"type":"config", "index":8, "value":500}
/home/alsavo/config/9={"type":"config", "index":9, "value":-70}
/home/alsavo/config/10={"type":"config", "index":10, "value":200}
/home/alsavo/config/11={"type":"config", "index":11, "value":0}
/home/alsavo/config/12={"type":"config", "index":12, "value":40}
/home/alsavo/config/13={"type":"config", "index":13, "value":12}
/home/alsavo/config/14={"type":"config", "index":14, "value":30}
/home/alsavo/config/15={"type":"config", "index":15, "value":-20}
/home/alsavo/config/16={"type":"config", "index":16, "value":2}
/home/alsavo/config/17={"type":"config", "index":17, "value":6}
/home/alsavo/config/32={"type":"config", "index":32, "value":5433}
/home/alsavo/config/33={"type":"config", "index":33, "value":2334}
/home/alsavo/config/34={"type":"config", "index":34, "value":4397}
Ich habe extra nicht die JSON-Variante genommen.

Anbei wieder eine kleine Überarbeitung, jetzt ist wenigstens der Prototype in setFn "korrekt"... (sicherheitshalber FHEM neu starten, wenn Prototypes geändert werden)

Danke, habe ich übernommen, aber was macht folgendes genau?

Code Auswählen Erweitern

Alsavo_Set($$$;@)

Hatte schon gehofft, dass die geänderten Parameter helfen, aber leider ist der Fehler noch vorhanden.

Ich habe das Modul mal so umgebaut, dass du die selben Readings zurückbekommst wie ich über AlsavoCtrl. Alle Aufrufe zu AlsavoCtrl sind deaktiviert.
Bekommst du bei dieser Version auch den Fehler, wenn du über die Weboberfläche set schneckenBrilix Timer off machst? Also wie in https://forum.fhem.de/index.php?msg=1319352 beschrieben. Aktuelle Version im Anhang

Viele Grüße und tausend Dank für deinen ganzen Input
Marc

[Init]

Es ist nicht zu verstehen. Heute habe ich die Readings gelöscht, dann das Device gelöscht, FHEM neu gestartet und das Device neu angelegt. Nun funktioniert es.
Danke für die Unterstützung