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

minor corrections

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3956 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-09-25 05:03:34 +00:00
parent 41b1d1f709
commit 2ab0c0ff5e
3 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/10_CUL_HM.pm
View File

@ -217,7 +217,7 @@ sub CUL_HM_updateConfig($){
my $st = CUL_HM_Get($hash,$name,"param","subType"); my $st = CUL_HM_Get($hash,$name,"param","subType");
my $md = CUL_HM_Get($hash,$name,"param","model"); my $md = CUL_HM_Get($hash,$name,"param","model");
if ("HM-CC-TC" eq $md){ if ($md =~ /(HM-CC-TC|HM-CC-RT-DN)/){
$hash->{helper}{role}{chn} = 1 if (length($id) == 6); #tc special $hash->{helper}{role}{chn} = 1 if (length($id) == 6); #tc special
$attr{$name}{stateFormat} = "last:trigLast" if ($chn eq "03"); $attr{$name}{stateFormat} = "last:trigLast" if ($chn eq "03");
} }
@ -2985,7 +2985,7 @@ sub CUL_HM_Set($@) {
my $pHash = CUL_HM_id2Hash($peer); my $pHash = CUL_HM_id2Hash($peer);
my $peerFlag = $peer eq '00000000'?'A4':CUL_HM_getFlag($pHash); my $peerFlag = $peer eq '00000000'?'A4':CUL_HM_getFlag($pHash);
$peerFlag =~ s/0/4/;# either 'A4' or 'B4' $peerFlag =~ s/0/4/;# either 'A4' or 'B4'
CUL_HM_SndCmd($hash, "++B412$dst".substr($peer,0,6_)) CUL_HM_SndCmd($hash, "++B412$dst".substr($peer,0,6))
if (CUL_HM_getRxType($pHash) & 0x80); if (CUL_HM_getRxType($pHash) & 0x80);
CUL_HM_SndCmd($hash, sprintf("++%s41%s%s%02X%02X%02X" CUL_HM_SndCmd($hash, sprintf("++%s41%s%s%02X%02X%02X"
,$peerFlag,$dst,$peer ,$peerFlag,$dst,$peer

10
fhem/FHEM/98_HMinfo.pm
View File

@ -234,9 +234,10 @@ sub HMinfo_SetFn($@) {#########################################################
} }
elsif($cmd eq "clear" ) {##actionImmediate: clear parameter-------------- elsif($cmd eq "clear" ) {##actionImmediate: clear parameter--------------
my ($type) = @a; my ($type) = @a;
$opt .= "d" if ($type ne "Readings");# readings apply to all, others device only $opt .= "d" if ($type !~ m/(readings|register)/);# readings apply to all, others device only
my @entities; my @entities;
return "unknown parameter - use Protocol,readings or rssi" if ($type !~ m/^(Protocol|readings|rssi)$/); return "unknown parameter - use Protocol, readings, register or rssi"
if ($type !~ m/^(Protocol|readings|register|rssi)$/);
$type = "msgEvents" if ($type eq "Protocol");# translate parameter $type = "msgEvents" if ($type eq "Protocol");# translate parameter
foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ foreach my $dName (HMinfo_getEntities($opt."v",$filter)){
push @entities,$dName; push @entities,$dName;
@ -504,8 +505,9 @@ sub HMinfo_SetFn($@) {#########################################################
."\n ---clear status---" ."\n ---clear status---"
."\n clear [<typeFilter>] [Protocol|Readings|Rssi]" ."\n clear [<typeFilter>] [Protocol|Readings|Rssi]"
."\n Protocol # delete all protocol-events" ."\n Protocol # delete all protocol-events"
."\n Readings # delete all readings" ."\n readings # delete all readings"
."\n Rssi # delete all rssi data" ."\n register # delete all register-readings"
."\n rssi # delete all rssi data"
."\n ---help---" ."\n ---help---"
."\n help #" ."\n help #"
."\n ***footnote***" ."\n ***footnote***"

3
fhem/FHEM/HMConfig.pm
View File

@ -1031,6 +1031,8 @@ my %culHmChanSets = (
,on =>"" ,on =>""
,off =>"" ,off =>""
,toggle =>""}, ,toggle =>""},
"HM-CC-RT-DN00" =>{ sysTime =>""},
"HM-CC-RT-DN02" =>{ sysTime =>""},
"HM-CC-RT-DN04" =>{ mode => "[auto|manu|party|boost|comfort|lower] ... <temp> <startTime> <endTime>" "HM-CC-RT-DN04" =>{ mode => "[auto|manu|party|boost|comfort|lower] ... <temp> <startTime> <endTime>"
,tempListSat =>"HH:MM temp ..." ,tempListSat =>"HH:MM temp ..."
,tempListSun =>"HH:MM temp ..." ,tempListSun =>"HH:MM temp ..."
@ -1040,6 +1042,7 @@ my %culHmChanSets = (
,tempListWed =>"HH:MM temp ..." ,tempListWed =>"HH:MM temp ..."
,tempListFri =>"HH:MM temp ..." ,tempListFri =>"HH:MM temp ..."
,"desired-temp" =>"[on|off|5.0..30.0]" ,"desired-temp" =>"[on|off|5.0..30.0]"
,sysTime =>""
}, },
"HM-CC-RT-DN05" =>{ peerChan =>" 0 <actChn> ... [single] [set|unset] [actor|remote|both]"}, "HM-CC-RT-DN05" =>{ peerChan =>" 0 <actChn> ... [single] [set|unset] [actor|remote|both]"},
); );