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

00_ZWDongle.pm: another wakup change (Forum #37418)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8750 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-06-14 18:26:34 +00:00
parent 046cac6245
commit 60cd138bf7
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/00_ZWDongle.pm
View File

@@ -511,22 +511,23 @@ ZWDongle_Write($$$)
# push message on stack
my $ss = $hash->{SendStack};
my $wNMIre = '01....13..028408';
if(@{$ss} && $ss->[0] =~ m/$wNMIre/) {
Log3 $hash, 2,
"ZWDongle_Write: command after wakeupNoMoreInformation dropped";
return;
}
push @{$ss}, $msg;
# assure that wakeupNoMoreInformation is the last message on the sendStack
if($msg =~ m/^01....13(..)/) {
my $wNMIre = '01....13..028408';
if($ss->[0] =~ m/$wNMIre/) {
Log3 $hash, 2,
"ZWDongle_Write: command after wakeupNoMoreInformation dropped";
return;
}
my $wNMI;
my @s = grep { /^$wNMIre/ ? ($wNMI=$_,0):1 } @{$ss};
if($wNMI) {
Log3 $hash, 5, "ZWDongle_Write wakeupNoMoreInformation moved to the end";
Log3 $hash, 5, "ZWDongle_Write wakeupNoMoreInformation moved to the end"
if($wNMI ne $msg);
push @s, $wNMI;
$hash->{SendStack} = \@s;
}