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

Only parse complete messages

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1720 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2012-07-11 14:48:00 +00:00
parent 85d78eb939
commit 748d5a02d7
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/16_CUL_RFR.pm
View File

@@ -87,16 +87,18 @@ CUL_RFR_Parse($$)
my $name = $hash->{NAME};
return "" if(IsIgnored($name));
if($smsg =~ m/^T/) { $hash->{NR_TMSG}++ }
elsif($smsg =~ m/^F/) { $hash->{NR_FMSG}++ }
elsif($smsg =~ m/^E/) { $hash->{NR_EMSG}++ }
elsif($smsg =~ m/^K/) { $hash->{NR_KMSG}++ }
else { $hash->{NR_RMSG}++ }
$hash->{Clients} = $iohash->{Clients};
$hash->{MatchList} = $iohash->{MatchList};
foreach my $m (split(";", $smsg)) {
my @m = split(";", $smsg, -1); # process only messages terminated with ;
for(my $i = 0; $i < $#m; $i++) {
my $m = $m[$i];
CUL_Parse($hash, $iohash, $hash->{NAME}, $m, "X21");
if($m =~ m/^T/) { $hash->{NR_TMSG}++ }
elsif($m =~ m/^F/) { $hash->{NR_FMSG}++ }
elsif($m =~ m/^E/) { $hash->{NR_EMSG}++ }
elsif($m =~ m/^K/) { $hash->{NR_KMSG}++ }
else { $hash->{NR_RMSG}++ }
}
return "";
}