70_Klafs.pm: Klafs Sauna control

git-svn-id: https://svn.fhem.de/fhem/trunk@26110 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: 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

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