FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 01:46:08 +00:00
Code Issues Releases Wiki Activity

PRESENCE: fix perl warning (Forum: #55673, #55699)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11810 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markusbloch 2016-07-17 18:17:46 +00:00
parent 6b973c3d34
commit a2d546a71d
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/FHEM/73_PRESENCE.pm
View File

@ -130,6 +130,8 @@ PRESENCE_Define($$)
$hash->{TIMEOUT_NORMAL} = ($4 ne "" ? $4 : 30);
$hash->{TIMEOUT_PRESENT} = ($5 ne "" ? $5 : $hash->{TIMEOUT_NORMAL});
delete($hash->{helper}{ADDRESS});
if($hash->{helper}{call} =~ /\|/)
{
my $msg = "The command contains a pipe ( | ) symbol, which is not allowed.";
@ -211,8 +213,9 @@ PRESENCE_Define($$)
return $msg;
}
delete $hash->{helper}{cachednr} if(defined($hash->{helper}{cachednr}));
delete($hash->{helper}{cachednr});
return undef;
}
@ -298,12 +301,12 @@ PRESENCE_Set($@)
elsif(defined($powerCmd) && $a[1] eq "power")
{
my %specials= (
"%NAME" => $name,
"%ADDRESS" => $hash->{ADDRESS},
"%ARGUMENT" => (defined($a[2]) ? $a[2] : "")
'%NAME' => $name,
'%ADDRESS' => (defined($hash->{ADDRESS}) ? $hash->{ADDRESS} : ""),
'%ARGUMENT' => (defined($a[2]) ? $a[2] : "")
);
$powerCmd= EvalSpecials($powerCmd, %specials);
$powerCmd = EvalSpecials($powerCmd, %specials);
Log3 $name, 5, "PRESENCE ($name) - executing powerCmd: $powerCmd";
my $return = AnalyzeCommandChain(undef, $powerCmd);