73_GasCalculator: Bugfix - Midnight-Crash

git-svn-id: https://svn.fhem.de/fhem/trunk@24241 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Sailor
2021-04-13 18:25:21 +00:00
parent 833f7bff2e
commit f29bb7b3da

View File

@@ -460,6 +460,18 @@ sub GasCalculator_MidnightTimer($)
my @GasCountReadingNameListComplete = keys(%{$GasCountDev->{READINGS}});
my @GasCountReadingNameListFiltered;
### Create Log entries for debugging purpose
Log3 $GasCalcName, 2, $GasCalcName. " : GasCalculator_MidnightTimer ReadingRegEx : " . $GasCountReadingRegEx;
Log3 $GasCalcName, 2, $GasCalcName. " : GasCalculator_MidnightTimer ReadingRegExNeg : " . $GasCountReadingRegExNeg;
### If no RegEx is available, leave routine
if (($GasCountReadingRegEx eq "") || ($GasCountReadingRegExNeg eq "")) {
Log3 $GasCalcName, 2, $GasCalcName. " : GasCalculator_MidnightTimer : ERROR! No RegEx has been previously stored! Beaking midnight routine.";
Log3 $GasCalcName, 2, $GasCalcName. " : GasCalculator_MidnightTimer ReadingRegEx : " . $GasCountReadingRegEx;
Log3 $GasCalcName, 2, $GasCalcName. " : GasCalculator_MidnightTimer ReadingRegExNeg : " . $GasCountReadingRegExNeg;
return;
}
foreach my $GasCountReadingName (@GasCountReadingNameListComplete) {
if (($GasCountReadingName =~ m[$GasCountReadingRegEx]) && ($GasCountReadingName !~ m[$GasCountReadingRegExNeg])) {
push(@GasCountReadingNameListFiltered, $GasCountReadingName);