From 9a7efbec1e6935ad1b6b777d3d8b86abb0f32b6a Mon Sep 17 00:00:00 2001
From: xasher <>
Date: Thu, 2 Jun 2022 09:14:02 +0000
Subject: [PATCH] 70_Klafs.pm: Klafs Sauna control

git-svn-id: https://svn.fhem.de/fhem/trunk@26110 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 1 +
 fhem/FHEM/70_Klafs.pm | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index fb19baf1c..7d55ed295 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: Start time error fixed
  - 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
diff --git a/fhem/FHEM/70_Klafs.pm b/fhem/FHEM/70_Klafs.pm
index 976cf9e6e..61feb8212 100644
--- a/fhem/FHEM/70_Klafs.pm
+++ b/fhem/FHEM/70_Klafs.pm
@@ -32,7 +32,7 @@ use JSON            qw(decode_json encode_json);
 #use Encode          qw(encode_utf8 decode_utf8);
 use Time::Piece;
 use Time::Local;
-#use Data::Dumper;
+use Data::Dumper;
 use HttpUtils;
 use FHEM::Core::Authentication::Passwords qw(:ALL);
 
@@ -667,10 +667,11 @@ sub Klafs_Set {
     }
     my $next = scalar localtime $now;
     my @Zeit = split(/ /,$next);
-    my @Uhrzeit = split(/:/,$Zeit[3]);
+    my @Uhrzeit = split(/:/,$Zeit[4]);
     my $std = $Uhrzeit[0];
     my $min = $Uhrzeit[1];
-    
+
+
     if($std < 10){
       if(substr($std,0,1) eq "0"){
         $std = substr($std,1,1);