Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

fhem.pl: add eval for diabledForIntervals (Forum #69787)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@13840 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2017-03-29 07:52:29 +00:00
parent 7e25f2444b
commit c42bf22e2f
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
FHEM/90_at.pm
View File

@ -567,6 +567,10 @@ EOF
<ul> <ul>
23:00-24:00 00:00-01:00 23:00-24:00 00:00-01:00
</ul> </ul>
If parts of the attribute value are enclosed in {}, they are evaluated:
<ul>
{sunset_abs()}-24 {sunrise_abs()}-08
</ul>
</li><br> </li><br>
<a name="skip_next"></a> <a name="skip_next"></a>
@ -754,6 +758,11 @@ EOF
<ul> <ul>
23:00-24:00 00:00-01:00 23:00-24:00 00:00-01:00
</ul> </ul>
Falls Teile des Wertes in {} eingeschlossen sind, dann werden sie als
ein Perl Ausdruck ausgewertet:
<ul>
{sunset_abs()}-24 {sunrise_abs()}-08
</ul>
</li><br> </li><br>
<a name="skip_next"></a> <a name="skip_next"></a>

1
fhem.pl
View File

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