mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

culfw version 1.46 FHT_compress changes

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1751 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2012-07-22 09:13:52 +00:00
parent 7b34ab0cdf
commit a3c5d94a24
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
FHEM/16_CUL_RFR.pm
View File

@@ -93,6 +93,16 @@ CUL_RFR_Parse($$)
my @m = split(";", $smsg, -1); # process only messages terminated with ; my @m = split(";", $smsg, -1); # process only messages terminated with ;
for(my $i = 0; $i < $#m; $i++) { for(my $i = 0; $i < $#m; $i++) {
my $m = $m[$i]; my $m = $m[$i];
# Compressed FHT messages
while($m =~ m/^T(....)(..)(..)(..)(..)(..)(.*)(..)$/) {
my ($fhtid, $cmd, $source, $val, $cmd2, $val2, $rest, $rssi) =
($1, $2, $3, $4, $5, $6, $7, $8);
my $firstmsg = "T$fhtid$cmd$source$val$rssi";
$m = "T$fhtid$cmd2$source$val2$rest$rssi";
CUL_Parse($hash, $iohash, $hash->{NAME}, $firstmsg, "X21");
}
CUL_Parse($hash, $iohash, $hash->{NAME}, $m, "X21"); CUL_Parse($hash, $iohash, $hash->{NAME}, $m, "X21");
if($m =~ m/^T/) { $hash->{NR_TMSG}++ } if($m =~ m/^T/) { $hash->{NR_TMSG}++ }
elsif($m =~ m/^F/) { $hash->{NR_FMSG}++ } elsif($m =~ m/^F/) { $hash->{NR_FMSG}++ }