Ergonomische Version von 48_HomeConnect.pm

[Prof. Dr. Peter Henning]

Werde ich irgendwie berücksichtigen.

LG

pah

[doman75]

Hallo,

bei mir meckert FHEM die Umlaute in dem Modul an, bsp:
Unrecognized character \xC3; marked by <-- HERE after  => "Vorsp<-- HERE near column 23 at ./FHEM/48_HomeConnect.pm line 129.

Habs gefunden

da ist in dem Bereich Zeile 109-115 was verrutscht

Code Auswählen Erweitern

    "door"              =>  "Tür",
    "alarm"             =>  "Kurzzeitwecker um"
);

  "
  "Inactive" => "Inaktiv",
  "Run" => "Läuft",
  "Ready" => "Bereit",
  "Finished" => "Fertig"



Ich habe das Modul mit meinem Windows Rechner gedownloaded und per WINSCP übertragen, also eigentlich wie immer. Hat jemand eine Idee woran es liegen könnte?

Danke
Swen

[87insane]

UTF-8 / ANSI 1252 ggf....

[Shadow3561]

Hallo,

bei mir meckert FHEM die Umlaute in dem Modul an, bsp:
Unrecognized character \xC3; marked by <-- HERE after  => "Vorsp<-- HERE near column 23 at ./FHEM/48_HomeConnect.pm line 129.

Habs gefunden

da ist in dem Bereich Zeile 109-115 was verrutscht

Code Auswählen Erweitern

    "door"              =>  "Tür",
    "alarm"             =>  "Kurzzeitwecker um"
);

  "
  "Inactive" => "Inaktiv",
  "Run" => "Läuft",
  "Ready" => "Bereit",
  "Finished" => "Fertig"



Ich habe das Modul mit meinem Windows Rechner gedownloaded und per WINSCP übertragen, also eigentlich wie immer. Hat jemand eine Idee woran es liegen könnte?

Danke
Swen

Das Problem habe ich leider auch.
Habe einfach die Umlaute im Modul ersetzt. Ist zwar quick and dirty aber funktioniert.

@Prof. Dr. Peter Henning

Ich habe den state noch ein wenig nach meinen Wünschen angepasst, vielleicht magst du es mit ins Modul aufnehmen.

Mit freundlichen Grüßen

Code Auswählen Erweitern

                        # define new device state
                        my $state;
                        my $operationState = ReadingsVal($hash->{NAME},"BSH.Common.Status.OperationState","");
                        my $program = ReadingsVal($hash->{NAME},"BSH.Common.Root.ActiveProgram","");
                        if (defined($program) && defined($hash->{commandPrefix}) && length($program) > length($hash->{commandPrefix}) ) {
                            my $prefixLen = length $hash->{commandPrefix};
                            $program = substr($program, $prefixLen);
                        }
                        if ($operationState eq "BSH.Common.EnumType.OperationState.Active" ||
                            $operationState eq "BSH.Common.EnumType.OperationState.Run") {

                            $state = "$program";
                            my $optSpeed = ReadingsVal($hash->{NAME},"Dishcare.Dishwasher.Option.VarioSpeedPlus","0");
                            $state .= " Speed+" if ($optSpeed eq "1");
                            my $optHyg = ReadingsVal($hash->{NAME},"Dishcare.Dishwasher.Option.HygienePlus","0");
                            $state .= " Hygiene+" if ($optHyg eq "1");
                            my $pct = ReadingsVal($hash->{NAME},"BSH.Common.Option.ProgramProgress",undef);
                            $state .= " (Fortschritt $pct)" if (defined $pct);
                            my $tme = ReadingsVal($hash->{NAME},"remaining-time",undef);
                            $state .= " (fertig in $tme h)" if (defined $tme);
                        } elsif ($operationState eq "BSH.Common.EnumType.OperationState.DelayedStart") {
                            $state = "Delayed start of program $program";
                        } else {
                            $state = "Idle";
                        }
                        readingsBulkUpdate($hash, "state", $state) if ($hash->{STATE} ne $state);
                    } elsif (index($_,"event:DISCONNECTED") == 0) { # disconnected event Morluktom 10.05.2020
                        my $state = "Offline";
                        readingsBulkUpdate($hash, "state", $state) if ($hash->{STATE} ne $state);
                    } elsif (index($_,"event:CONNECTED") == 0) { # connected event Morluktom 10.05.2020
                        HomeConnect_UpdateStatus($hash);
                    } else {
            #Log3 $hash->{NAME}, 5, "$hash->{NAME}: event channel unknown: $_";
          }
                }
                readingsEndUpdate($hash, 1);
            } else {
                Log3 $hash->{NAME}, 5, "$hash->{NAME}: event channel read failed, len:\"$len\", received:\"$inputbuf\"";
                HomeConnect_CloseEventChannel($hash);
                return undef;
            }
        }
        Log3 $hash->{NAME}, 5, "$hash->{NAME}: event channel received no more data";
    } else {
        Log3 $hash->{NAME}, 5, "$hash->{NAME}: event channel is not connected";
    }
}