From 95b53c73b9ef1c24e426adbbb5f0a03acec48fda Mon Sep 17 00:00:00 2001 From: xasher <> Date: Tue, 31 May 2022 04:34:15 +0000 Subject: [PATCH] 70_Klafs.pm: Klafs Sauna control git-svn-id: https://svn.fhem.de/fhem/trunk@26100 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/70_Klafs.pm | 6 +++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 20ca952df..fb19baf1c 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 70_Klafs: minor bugfix for Reading power - bugfix: 70_Klafs: minor bugfix for automatic reconnect - change: 72_FB_CALLMONITOR: adapt regexp for dasoertliche.de reverse search diff --git a/fhem/FHEM/70_Klafs.pm b/fhem/FHEM/70_Klafs.pm index 57ce250a8..976cf9e6e 100644 --- a/fhem/FHEM/70_Klafs.pm +++ b/fhem/FHEM/70_Klafs.pm @@ -368,7 +368,6 @@ sub klafs_getStatusResponse { my $hash = $param->{hash}; my $name = $hash->{NAME}; my $header = $param->{httpheader}; - my $power = ReadingsVal( $name, "power", "off" ); Log3 ($name, 5, "Status header: $header"); Log3 ($name, 5, "Status Data: $data"); @@ -389,6 +388,11 @@ sub klafs_getStatusResponse { for my $key (qw( saunaSelected sanariumSelected irSelected isConnected isPoweredOn isReadyForUse showBathingHour)) { $entries->{$key} = $entries->{$key} ? q{true} : q{false} ; } + my $power = $entries->{isPoweredOn} eq q{true} ? 'on' + : $entries->{isPoweredOn} eq q{false} ? 'off' + : 0; + $entries->{power} = $power; + $entries->{statusMessage} //= ''; $entries->{currentTemperature} = '0' if $entries->{currentTemperature} eq '141'; $entries->{RemainTime} = sprintf("%2.2d:%2.2d" , $entries->{bathingHours}, $entries->{bathingMinutes});