From ece94c66955b545eb3df13e4ff3fb4dacf61e000 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Sun, 2 Jul 2023 08:57:40 +0000 Subject: [PATCH] 93_DbRep: fix check of DbRep_afterproc, DbRep_beforeproc git-svn-id: https://svn.fhem.de/fhem/trunk@27720 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 2 ++ fhem/FHEM/93_DbRep.pm | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index ac47f8bbf..d62f280f8 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 93_DbRep: fix check of DbRep_afterproc, DbRep_beforeproc if should + exec PERL code - bugfix : 74_AutomowerConnect: Common.pm fixed bug in WS filter - feature: 74_AutomowerConnect: Common.pm Cref update, add Log after WS filter add Collisions to statistics and zones if addPollingMinInterval is set diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm index ae31c31ec..313c7f25f 100644 --- a/fhem/FHEM/93_DbRep.pm +++ b/fhem/FHEM/93_DbRep.pm @@ -59,6 +59,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch'; # Version History intern my %DbRep_vNotesIntern = ( + "8.52.8" => "28.06.2023 fix check of DbRep_afterproc, DbRep_beforeproc if should exec PERL code ", "8.52.7" => "16.05.2023 DbRep_afterproc, DbRep_beforeproc can execute FHEM commands as well as PERL code ", "8.52.6" => "11.04.2023 change diffValue for aggr month ", "8.52.5" => "10.04.2023 change diffValue, Forum: https://forum.fhem.de/index.php?msg=1271853 ", @@ -1642,7 +1643,7 @@ sub DbRep_Attr { if ($aName =~ /executeAfterProc|executeBeforeProc/xs) { if($cmd eq "set") { - if ($aVal =~ m/^\s*(\{.*\}|{.*|.*})\s*$/xs) { + if ($aVal =~ m/^\s*(\{.*\}|{.*|.*})\s*$/xs && $aVal !~ /{".*"}/xs) { $aVal = $1; eval $aVal; return $@ if ($@);