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

10_CUL_HM: minor bugs

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6747 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-10-12 05:36:33 +00:00
parent 9d63868ace
commit c6cb15f30b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/10_CUL_HM.pm
View File

@ -3834,6 +3834,8 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
#<entries><multiply><MP3><MP3>
my $msgBytes = sprintf("%02X%02X",$itemCnt,$repeat);
foreach my $mp3 (@itemList){
return "input: $mp3 is not an integer below 255"
if (!defined $mp3 || $mp3 !~ /^[+-]?\d+$/ || $mp3 > 255);
$msgBytes .= sprintf("%02X",$mp3);
}
$msg = '++'.$flag.'11'.$id.$dst.'80'.$chn.$msgBytes;
@ -6437,7 +6439,7 @@ sub CUL_HM_repReadings($) { # parse repeater
sub CUL_HM_ModRe8($$) { # repair FW bug
#Register 18 may come with a wrong address - we will corrent that
my ($hash,$regN)=@_;
my $rl0 = ReadingsVal($hash->{NAME},$regN,undef);
my $rl0 = ReadingsVal($hash->{NAME},$regN,"empty");
return if( $rl0 !~ m/00:00/ # not if List is incomplete
||$rl0 =~ m/12:/ ); # reg 18 present, dont touch
foreach my $ad (split(" ",$rl0)){