FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 06:39:11 +00:00
Code Issues Releases Wiki Activity

70_Klafs.pm: Klafs Sauna control

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26163 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
xasher 2022-06-21 14:27:17 +00:00
parent 120c25b30e
commit 62ec22b88a
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- bugfix: 79_Klafs: minor bugfix for date format
- bugfix: 38_netatmo: fixed csrf error on home notification settings - bugfix: 38_netatmo: fixed csrf error on home notification settings
- bugfix: 10_SOMFY: Correct match for long commands according to #msg1224029 - bugfix: 10_SOMFY: Correct match for long commands according to #msg1224029
- bugfix: 70_Klafs: Start time error fixed - bugfix: 70_Klafs: Start time error fixed

14
fhem/FHEM/70_Klafs.pm
View File

@ -32,7 +32,7 @@ use JSON qw(decode_json encode_json);
#use Encode qw(encode_utf8 decode_utf8); #use Encode qw(encode_utf8 decode_utf8);
use Time::Piece; use Time::Piece;
use Time::Local; use Time::Local;
use Data::Dumper; #use Data::Dumper;
use HttpUtils; use HttpUtils;
use FHEM::Core::Authentication::Passwords qw(:ALL); use FHEM::Core::Authentication::Passwords qw(:ALL);
@ -666,11 +666,19 @@ sub Klafs_Set {
$now += $FIFTEEN_MINS - $diff; $now += $FIFTEEN_MINS - $diff;
} }
my $next = scalar localtime $now; my $next = scalar localtime $now;
# doppelte Leerzeichen bei einstelligen Datumsangaben entfernen
$next =~ tr/ //s;
my @Zeit = split(/ /,$next); my @Zeit = split(/ /,$next);
my @Uhrzeit = split(/:/,$Zeit[4]); my @Uhrzeit = split(/:/,$Zeit[3]);
my $std = $Uhrzeit[0]; my $std = $Uhrzeit[0];
my $min = $Uhrzeit[1]; my $min = $Uhrzeit[1];
# print "Decoded Zeit:\n".Dumper(@Zeit);
#Decoded Zeit:
#$VAR1 = 'Mon';
#$VAR2 = 'Jun';
#$VAR3 = '20';
#$VAR4 = '15:15:00';
#$VAR5 = '2022';
if($std < 10){ if($std < 10){
if(substr($std,0,1) eq "0"){ if(substr($std,0,1) eq "0"){