fhem.pl: disabledForIntervals: change eval to AnalyzePerlCommand (Forum #126815)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25852 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-03-17 17:20:30 +00:00
parent ed9b0cab51
commit 468bc7c261

View File

@ -908,7 +908,7 @@ IsDisabled($)
my $dfi = $attr{$devname}{disabledForIntervals};
if(defined($dfi)) {
$dfi =~ s/{([^\x7d]*)}/$cmdFromAnalyze=$1; eval $1/ge; # Forum #69787
$dfi =~ s/{([^\x7d]*)}/AnalyzePerlCommand(undef,$1)/ge; # Forum #69787
my ($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) =
localtime(gettimeofday());
my $dhms = sprintf("%s\@%02d:%02d:%02d", $wday, $hour, $min, $sec);