FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 09:55:38 +00:00
Code Issues Releases Wiki Activity

THZ: timeframe 7prog until 24:00, forum topic=33211.msg1272361

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27446 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
immi 2023-04-14 19:26:16 +00:00
parent f84861c4c5
commit 96d41f8bdb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/00_THZ.pm
View File

@ -1,8 +1,8 @@
############################################## ##############################################
# 00_THZ # 00_THZ
# $Id$ # $Id$
# by immi 12/2022 # by immi 04/2023
my $thzversion = "0.206"; my $thzversion = "0.207";
# this code is based on the hard work of Robert; I just tried to port it # this code is based on the hard work of Robert; I just tried to port it
# http://robert.penz.name/heat-pump-lwz/ # http://robert.penz.name/heat-pump-lwz/
######################################################################################## ########################################################################################
@ -1213,7 +1213,7 @@ sub THZ_Set($@){
} }
elsif ($cmdhash->{type} =~ /7prog|8party/) { elsif ($cmdhash->{type} =~ /7prog|8party/) {
($arg, $arg1)=split('--', $arg); ($arg, $arg1)=split('--', $arg);
return "Argument does not match the allowed inerval Min $argMin ...... Max $argMax " if (($arg ne "n.a.") and ($arg1 ne "n.a.") and (($arg !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ ) or ($arg1 !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )) ) ; return "Argument does not match the allowed inerval Min $argMin ...... Max $argMax " if (($arg ne "n.a.") and ($arg1 ne "n.a.") and (($arg !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ ) or ($arg1 !~ /^24:00|(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )) ) ;
} }
elsif ($cmdhash->{type} eq "2opmode") { elsif ($cmdhash->{type} eq "2opmode") {
$arg1=undef; $arg1=undef;