70_Klafs.pm: Klafs Sauna control

git-svn-id: https://svn.fhem.de/fhem/trunk@26100 2b470e98-0d58-463d-a4d8-8e2adae1ed80

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 

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});