FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-24 21:29:21 +00:00
Code Issues Releases Wiki Activity

73_WaterCalculator: Bugfix - Midnight-Crash

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@24240 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Sailor 2021-04-13 18:25:20 +00:00
parent e29e2f86cb
commit 741cd6d956
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/FHEM/73_WaterCalculator.pm
View File

@ -455,11 +455,23 @@ sub WaterCalculator_MidnightTimer($)
my ($WaterCountName, $WaterCountReadingRegEx) = split(":", $RegEx, 2); my ($WaterCountName, $WaterCountReadingRegEx) = split(":", $RegEx, 2);
my $WaterCountDev = $defs{$WaterCountName}; my $WaterCountDev = $defs{$WaterCountName};
$WaterCountReadingRegEx =~ s/[\.\*]+$//; $WaterCountReadingRegEx =~ s/[\.\*]+$//;
my $WaterCountReadingRegExNeg = $WaterCountReadingRegEx . "_"; my $WaterCountReadingRegExNeg = $WaterCountReadingRegEx . "_";
my @WaterCountReadingNameListComplete = keys(%{$WaterCountDev->{READINGS}}); my @WaterCountReadingNameListComplete = keys(%{$WaterCountDev->{READINGS}});
my @WaterCountReadingNameListFiltered; my @WaterCountReadingNameListFiltered;
### Create Log entries for debugging purpose
Log3 $WaterCalcName, 2, $WaterCalcName. " : WaterCalculator_MidnightTimer ReadingRegEx : " . $WaterCountReadingRegEx;
Log3 $WaterCalcName, 2, $WaterCalcName. " : WaterCalculator_MidnightTimer ReadingRegExNeg : " . $WaterCountReadingRegExNeg;
### If no RegEx is available, leave routine
if (($WaterCountReadingRegEx eq "") || ($WaterCountReadingRegExNeg eq "")) {
Log3 $WaterCalcName, 2, $WaterCalcName. " : WaterCalculator_MidnightTimer : ERROR! No RegEx has been previously stored! Beaking midnight routine.";
Log3 $WaterCalcName, 2, $WaterCalcName. " : WaterCalculator_MidnightTimer ReadingRegEx : " . $WaterCountReadingRegEx;
Log3 $WaterCalcName, 2, $WaterCalcName. " : WaterCalculator_MidnightTimer ReadingRegExNeg : " . $WaterCountReadingRegExNeg;
return;
}
foreach my $WaterCountReadingName (@WaterCountReadingNameListComplete) { foreach my $WaterCountReadingName (@WaterCountReadingNameListComplete) {
if (($WaterCountReadingName =~ m[$WaterCountReadingRegEx]) && ($WaterCountReadingName !~ m[$WaterCountReadingRegExNeg])) { if (($WaterCountReadingName =~ m[$WaterCountReadingRegEx]) && ($WaterCountReadingName !~ m[$WaterCountReadingRegExNeg])) {
push(@WaterCountReadingNameListFiltered, $WaterCountReadingName); push(@WaterCountReadingNameListFiltered, $WaterCountReadingName);