FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues Releases Wiki Activity

00_ZWDongle: routeFor fixes (forum #61359)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12654 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-11-25 19:18:53 +00:00
parent 79eb4210b7
commit c1b1af7167
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/00_ZWDongle.pm
View File

@ -523,14 +523,18 @@ ZWDongle_Get($@)
} elsif($cmd eq "routeFor") { ############################
my $homeId = $hash->{homeId};
my @list = (hex(substr($msg, 6, 2)));
for(my $off=8; $off<16; $off+=2) {
my @list;
for(my $off=6; $off<16; $off+=2) {
my $dec = hex(substr($msg, $off, 2));
my $hex = sprintf("%02x", $dec);
my $h = $modules{ZWave}{defptr}{"$homeId $hex"};
my $h = ($hex eq $hash->{nodeIdHex} ?
$hash : $modules{ZWave}{defptr}{"$homeId $hex"});
push @list, ($h ? $h->{NAME} : "UNKNOWN_$dec") if($dec);
}
$msg = "NrRouters:".join(" ", @list);
my $f = substr($msg, 17, 1);
push @list, ("at ".($f==1 ? "9.6": ($f==2 ? "40":"100"))."kbps")
if(@list && $f =~ m/[123]/);
$msg = (@list ? join(" ", @list) : "N/A");
}
$cmd .= "_".join("_", @a) if(@a);
@ -1150,6 +1154,10 @@ ZWDongle_Ready($)
Send raw data &lt;hex&gt; to the controller. Developer only.
</li>
<li>routeFor node<br>
request priority routing for node
</li>
<li>sucNodeId<br>
return the currently registered decimal SUC nodeId.
</li>