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

bugfixing of 59_HCS.pm

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2094 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mfr69bs 2012-11-07 22:11:29 +00:00
parent 9afd02ba1f
commit fee2357cdf
1 changed files with 59 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/59_HCS.pm
View File

@ -284,7 +284,7 @@ HCS_setState($$) {
my $eventOnUpdate = AttrVal($name,"event-on-update-reading",""); my $eventOnUpdate = AttrVal($name,"event-on-update-reading","");
if(!$eventOnChange || if(!$eventOnChange ||
($eventOnUpdate && $eventOnUpdate =~ m/device/) || ($eventOnUpdate && $eventOnUpdate =~ m/device/) ||
($eventOnChange && ($eventOnChange =~ m/device/ || $eventOnChange == 1) && $cmd ne $stateDevice)) { ($eventOnChange && $eventOnChange =~ m/device/ && $cmd ne $stateDevice)) {
if(!$idlePeriod || ($idlePeriod && $diffPeriodTime >= $idlePeriod)) { if(!$idlePeriod || ($idlePeriod && $diffPeriodTime >= $idlePeriod)) {
my $cmdret = CommandSet(undef,"$device $cmd"); my $cmdret = CommandSet(undef,"$device $cmd");
$hash->{helper}{lastSend} = $newPeriodTime; $hash->{helper}{lastSend} = $newPeriodTime;
@ -338,6 +338,7 @@ HCS_getValves($$) {
# get current actuator state from each device # get current actuator state from each device
$valveState = $defs{$d}{READINGS}{"actuator"}{VAL}; $valveState = $defs{$d}{READINGS}{"actuator"}{VAL};
if($valveState) {
$valveState =~ s/[\s%]//g; $valveState =~ s/[\s%]//g;
if($attr{$d}{ignore}) { if($attr{$d}{ignore}) {
@ -404,9 +405,10 @@ HCS_getValves($$) {
# count devices # count devices
$sumFHT++ if($defs{$d}{TYPE} eq "FHT"); $sumFHT++ if($defs{$d}{TYPE} eq "FHT");
$sumHMCCTC++ if($attr{$d}{model} eq "HM-CC-TC"); $sumHMCCTC++ if(defined($attr{$d}{model}) && $attr{$d}{model} eq "HM-CC-TC");
$sumValves++; $sumValves++;
} }
}
# overdrive mode # overdrive mode
my $sensor = AttrVal($name,"sensor",undef); my $sensor = AttrVal($name,"sensor",undef);
@ -591,6 +593,7 @@ HCS_getValves($$) {
</li><br> </li><br>
<li>valvesExcluded<br> <li>valvesExcluded<br>
space separated list of devices (FHT or HM-CC-TC) for excluding space separated list of devices (FHT or HM-CC-TC) for excluding
</li><br>
<li>valveThresholdOn<br> <li>valveThresholdOn<br>
see Set see Set
</li><br> </li><br>