diff --git a/fhem/CHANGED b/fhem/CHANGED index a70ae9b62..ed5197bdd 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -512,7 +512,7 @@ - feature: 14_CUL_WS: better error checking - bugfix: webpgm2 multi line editing is working again -- =DATE= (4.7) +- 2009-10-23 (4.7) - bugfix: Reattached corrupted CUL device caused uninitialized message - bugfix: CUL/HMS changes, HMS cleanup - bugfix: EM/EMWZ/EMGZ set changed to work in FHEMWEB @@ -531,3 +531,6 @@ - feature: dumpdef module from Axel in contrib - feature: javascripting support in FHEMWEB (Klaus/Axel) - feature: Module 09_BS.pm for brightness sensor added (Boris 2009-09-20) + +- ==DATE== (4.8) + - bugfix: loosing data when sending FS20 messages in a group diff --git a/fhem/FHEM/00_CUL.pm b/fhem/FHEM/00_CUL.pm index af8d73409..a443df2db 100755 --- a/fhem/FHEM/00_CUL.pm +++ b/fhem/FHEM/00_CUL.pm @@ -607,9 +607,8 @@ CUL_AddFS20Queue($$) # Write the next buffer not earlier than 0.23 seconds # = 3* (12*0.8+1.2+1.0*5*9+0.8+10) = 226.8ms # else it will be sent too early by the CUL, resulting in a collision - # Experimental value: 0.25 does not always work: 0.3 is better... $hash->{QUEUE} = [ $bstring ]; - InternalTimer(gettimeofday()+0.5, "CUL_HandleWriteQueue", $hash, 1); + InternalTimer(gettimeofday()+0.3, "CUL_HandleWriteQueue", $hash, 1); return 0; } push(@{$hash->{QUEUE}}, $bstring); @@ -624,7 +623,7 @@ CUL_HandleWriteQueue($) my $hash = shift; my $arr = $hash->{QUEUE}; - while(defined($arr) && @{$arr} > 0) { + if(defined($arr) && @{$arr} > 0) { shift(@{$arr}); if(@{$arr} == 0) { delete($hash->{QUEUE}); @@ -634,7 +633,7 @@ CUL_HandleWriteQueue($) next if($bstring eq "-"); CUL_XmitLimitCheck($hash,$bstring); CUL_SimpleWrite($hash, $bstring); - InternalTimer(gettimeofday()+0.5, "CUL_HandleWriteQueue", $hash, 1); + InternalTimer(gettimeofday()+0.3, "CUL_HandleWriteQueue", $hash, 1); } }