From f29bb7b3da7965e4de3a0b15eacdd83e3ebc9ccc Mon Sep 17 00:00:00 2001 From: Sailor Date: Tue, 13 Apr 2021 18:25:21 +0000 Subject: [PATCH] 73_GasCalculator: Bugfix - Midnight-Crash git-svn-id: https://svn.fhem.de/fhem/trunk@24241 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/73_GasCalculator.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/fhem/FHEM/73_GasCalculator.pm b/fhem/FHEM/73_GasCalculator.pm index 0f41dd85c..2cf63c790 100644 --- a/fhem/FHEM/73_GasCalculator.pm +++ b/fhem/FHEM/73_GasCalculator.pm @@ -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);