FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00
Code Issues Releases Wiki Activity

22_HOMEMODE: fix 'Use of uninitialized value in hash element', minor commandref fix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14133 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
deespe 2017-04-29 08:19:40 +00:00
parent c350267090
commit 4b2c9d127a
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -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: 22_HOMEMODE: Use of uninitialized value $d in hash element
minor commandref fix
- new: 22_HOMEMODE: initial SVN check-in v1.0.0
- bugfix: 74_AMAD: fix Use of uninitialized value,no Flowset update nececcary
- feature: 34_ESPEasy: added ESPEasy commands: tone and rtttl

4
fhem/FHEM/22_HOMEMODE.pm
View File

@ -2198,7 +2198,7 @@ sub HOMEMODE_TriggerState($;$$$)
my $amode = ReadingsVal($name,"modeAlarm","");
foreach my $sensor (devspec2array($contacts))
{
my ($oread,$tread) = split " ",AttrVal($_,"HomeReadings",AttrVal($name,"HomeSensorsContactReadings","state sabotageError")),2;
my ($oread,$tread) = split " ",AttrVal($sensor,"HomeReadings",AttrVal($name,"HomeSensorsContactReadings","state sabotageError")),2;
my $otcmd = AttrVal($sensor,"HomeValues",AttrVal($name,"HomeSensorsContactValues","open|tilted|on"));
my $amodea = AttrVal($sensor,"HomeModeAlarmActive","-");
my $ostate = ReadingsVal($sensor,$oread,"");
@ -2247,7 +2247,7 @@ sub HOMEMODE_TriggerState($;$$$)
}
foreach my $sensor (devspec2array($motions))
{
my ($oread,$tread) = split " ",AttrVal($_,"HomeReadings",AttrVal($name,"HomeSensorsMotionReadings","state sabotageError")),2;
my ($oread,$tread) = split " ",AttrVal($sensor,"HomeReadings",AttrVal($name,"HomeSensorsMotionReadings","state sabotageError")),2;
my $otcmd = AttrVal($sensor,"HomeValues",AttrVal($name,"HomeSensorsMotionValues","open|on"));
my $amodea = AttrVal($sensor,"HomeModeAlarmActive","-");
my $ostate = ReadingsVal($sensor,$oread,"");