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

minor bug

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5839 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-05-13 05:54:48 +00:00
parent d9db272c23
commit 18fbb0cf0d
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/10_CUL_HM.pm
View File

@ -3226,7 +3226,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.$val.$chn); # SET_LOCK CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.$val.$chn); # SET_LOCK
} }
elsif($cmd =~ m/^(up|down|pct)$/) { ######################################### elsif($cmd =~ m/^(up|down|pct)$/) { #########################################
my ($lvl,$tval,$rval,$duration) = ($a[2],"","",0); my ($lvl,$tval,$rval,$duration) = (($a[2]?$a[2]:0),"","",0);
$lvl =~ s/(\d*\.?\d*).*/$1/; $lvl =~ s/(\d*\.?\d*).*/$1/;
my($lvlMin,$lvlMax) = split",",AttrVal($name, "levelRange", "0,100"); my($lvlMin,$lvlMax) = split",",AttrVal($name, "levelRange", "0,100");
my $lvlInv = (AttrVal($name, "param", "") eq "levelInverse")?1:0; my $lvlInv = (AttrVal($name, "param", "") eq "levelInverse")?1:0;
@ -3828,8 +3828,8 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
} }
elsif($cmd eq "fwUpdate") { ################################################# elsif($cmd eq "fwUpdate") { #################################################
return "no filename given" if (!$a[2]); return "no filename given" if (!$a[2]);
return "only thru CUL " if (!$hash->{IODev}->{TYPE} # return "only thru CUL " if (!$hash->{IODev}->{TYPE}
||($hash->{IODev}->{TYPE} ne "CUL")); # ||($hash->{IODev}->{TYPE} ne "CUL"));
# todo add version checks of CUL # todo add version checks of CUL
my ($fName,$pos,$enterBL) = ($a[2],0,($a[3] ? $a[3]+0 : 10)); my ($fName,$pos,$enterBL) = ($a[2],0,($a[3] ? $a[3]+0 : 10));
my @imA; # image array: image[block][msg] my @imA; # image array: image[block][msg]
@ -6182,12 +6182,12 @@ sub CUL_HM_storeRssi(@){
$peerName = $h->{NAME}; $peerName = $h->{NAME};
} }
$defs{$name}{helper}{xxx}{mNo} = "" if (!$defs{$name}{helper}{xxx}); $defs{$name}{helper}{mRssi}{mNo} = "" if (!$defs{$name}{helper}{mRssi});
my ($mVal,$mPn,$hashMax) = ($val,substr($peerName,3),$defs{$name}{helper}{xxx}); my ($mVal,$mPn,$hashMax) = ($val,substr($peerName,3),$defs{$name}{helper}{mRssi});
if ($hashMax->{mNo} ne $mNo){# new message if ($hashMax->{mNo} ne $mNo){# new message
delete $defs{$name}{helper}{xxx}; delete $defs{$name}{helper}{mRssi};
$defs{$name}{helper}{xxx}{mNo} = $mNo; $defs{$name}{helper}{mRssi}{mNo} = $mNo;
$hashMax = $defs{$name}{helper}{xxx}; $hashMax = $defs{$name}{helper}{mRssi};
$hashMax->{max} = $mPn; $hashMax->{max} = $mPn;
$mVal +=2 if(CUL_HM_name2IoName($name) eq $mPn); $mVal +=2 if(CUL_HM_name2IoName($name) eq $mPn);
$hashMax->{io}{$mPn} = $mVal; $hashMax->{io}{$mPn} = $mVal;