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

Only parse complete messages

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1720 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-07-11 14:48:00 +00:00
parent 8964ec1f15
commit 3fa467082e
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/16_CUL_RFR.pm
View File

@ -87,16 +87,18 @@ CUL_RFR_Parse($$)
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return "" if(IsIgnored($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->{Clients} = $iohash->{Clients};
$hash->{MatchList} = $iohash->{MatchList}; $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"); 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 ""; return "";
} }