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