FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +00:00
Code Issues Releases Wiki Activity

fhem.pl: revert changes from SVN Version 25891 (Forum #127077)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25957 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-04-14 09:05:11 +00:00
parent f74e224e1a
commit b6664970dd
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/fhem.pl
View File

@ -297,7 +297,6 @@ my $readingsUpdateDelayTrigger; # needed internally
my $gotSig; # non-undef if got a signal my $gotSig; # non-undef if got a signal
my %oldvalue; # Old values, see commandref.html my %oldvalue; # Old values, see commandref.html
my $wbName = ".WRITEBUFFER"; # Buffer-name for delayed writing via select my $wbName = ".WRITEBUFFER"; # Buffer-name for delayed writing via select
my $wbPartial = ".PARTIALWRITE";# Partial-Write name, #126946
my %comments; # Comments from the include files my %comments; # Comments from the include files
my %duplicate; # Pool of received msg for multi-fhz/cul setups my %duplicate; # Pool of received msg for multi-fhz/cul setups
my @cmdList; # Remaining commands in a chain. Used by sleep my @cmdList; # Remaining commands in a chain. Used by sleep
@ -820,7 +819,6 @@ while (1) {
} else { } else {
if($ret >= length($wb)) { # for the > see Forum #29963 if($ret >= length($wb)) { # for the > see Forum #29963
delete($hash->{$wbName}); delete($hash->{$wbName});
delete($hash->{$wbPartial});
if($hash->{WBCallback}) { if($hash->{WBCallback}) {
no strict "refs"; no strict "refs";
my $ret = &{$hash->{WBCallback}}($hash); my $ret = &{$hash->{WBCallback}}($hash);
@ -829,7 +827,6 @@ while (1) {
} }
} else { } else {
$hash->{$wbName} = substr($wb, $ret); $hash->{$wbName} = substr($wb, $ret);
$hash->{$wbPartial} = 1;
} }
} }
} }
@ -5537,7 +5534,7 @@ addToWritebuffer($$@)
$hash->{WBCallback} = $callback; $hash->{WBCallback} = $callback;
if(!defined($hash->{$wbName})) { if(!defined($hash->{$wbName})) {
$hash->{$wbName} = $txt; $hash->{$wbName} = $txt;
} elsif($nolimit || length($hash->{$wbName}) < 1024000 || !$hash->{$wbPartial}) { } elsif($nolimit || length($hash->{$wbName}) < 1024000) {
$hash->{$wbName} .= $txt; $hash->{$wbName} .= $txt;
} else { } else {
return 0; return 0;