FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-08 05:15:10 +00:00
Code Issues Releases Wiki Activity

98_DOIF.pm: time check in perl mode fixed

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17380 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Damian 2018-09-21 13:28:15 +00:00
parent c5303b82fa
commit 7d36b359e9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/98_DOIF.pm
View File

@ -1585,15 +1585,13 @@ DOIF_CheckTimers($$$$)
my $end;
my $intervaltimer;
if ($timer !~ /^\s*(\[.*\]|\{.*\}|\(.*\)|\+.*|[0-9][0-9]:.*|:[0-5][0-9])$/ and $hash->{MODEL} eq "Perl") {
return ($timer,"no timer");
}
$timer =~ s/\s//g;
($timer,$days)=SplitDoIf('|',$timer);
$days="" if (!defined $days);
($timer,$intervaltimer)=SplitDoIf(',',$timer);
($time,$end)=SplitDoIf('-',$timer);
if (defined $intervaltimer) {
if (!defined $end) {
return($timer,"intervaltimer without time interval");
@ -1601,12 +1599,18 @@ DOIF_CheckTimers($$$$)
}
$i=$hash->{helper}{last_timer}++;
if (defined $time) {
if ($time !~ /^\s*(\[.*\]|\{.*\}|\(.*\)|\+.*|[0-9][0-9]:.*|:[0-5][0-9])$/ and $hash->{MODEL} eq "Perl") {
return ($timer,"no timer");
}
($result,$err) = DOIF_getTime($hash,$condition,$time,$trigger,$i,$days);
return ($result,$err) if ($err);
} else {
return($timer,"no timer defined");
}
if (defined $end) {
if ($end !~ /^\s*(\[.*\]|\{.*\}|\(.*\)|\+.*|[0-9][0-9]:.*|:[0-5][0-9])$/ and $hash->{MODEL} eq "Perl") {
return ($timer,"no timer");
}
($result,$err) = DOIF_getTime($hash,$condition,$end,$trigger,$hash->{helper}{last_timer}++,$days);
return ($result,$err) if ($err);
}