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

90_at.pm: add $SELF to avoid discussion. Forum (123956)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25234 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2021-11-16 10:20:37 +00:00
parent b5625df4b8
commit 7665d72f0b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/90_at.pm
View File

@ -93,7 +93,7 @@ at_Define($$)
return "datespec is not allowed with +" if($abstime && $rel); return "datespec is not allowed with +" if($abstime && $rel);
if($hash->{CL}) { # Do not check this for definition if($hash->{CL}) { # Do not check this for definition
$err = perlSyntaxCheck($command, ()); $err = perlSyntaxCheck($command, ("%SELF" => $name) );
return $err if($err); return $err if($err);
} }
@ -194,7 +194,8 @@ at_Exec($)
if(!$skip && !IsDisabled($name)) { if(!$skip && !IsDisabled($name)) {
Log3 $name, 5, "exec at command $name"; Log3 $name, 5, "exec at command $name";
my $ret = AnalyzeCommandChain(undef, SemicolonEscape($hash->{COMMAND})); my %sp = ( "%SELF" => $name );
my $ret = AnalyzeCommandChain(undef, EvalSpecials($hash->{"COMMAND"}, %sp));
Log3 $name, 3, "$name: $ret" if($ret); Log3 $name, 3, "$name: $ret" if($ret);
} }
@ -281,7 +282,8 @@ at_Set($@)
} elsif($a[1] eq "execNow") { } elsif($a[1] eq "execNow") {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $ret = AnalyzeCommandChain(undef, SemicolonEscape($hash->{COMMAND})); my %sp = ( "%SELF" => $name );
my $ret = AnalyzeCommandChain(undef, EvalSpecials($hash->{"COMMAND"}, %sp));
Log3 $name, 3, "$name: $ret" if($ret); Log3 $name, 3, "$name: $ret" if($ret);
} elsif($a[1] eq "skip_next") { } elsif($a[1] eq "skip_next") {