diff --git a/fhem/FHEM/98_GAEBUS.pm b/fhem/FHEM/98_GAEBUS.pm index 98d5a1104..88527b281 100644 --- a/fhem/FHEM/98_GAEBUS.pm +++ b/fhem/FHEM/98_GAEBUS.pm @@ -54,6 +54,7 @@ # 09.01.2020 : A.Goebel : fix handling for valueFormat, give exact number of parameters to sprintf and shift all of them # 16.01.2020 : A.Goebel : add ignore error messages returned by ebusd # 05.02.2020 : A.Goebel : change substitute tilde by slash in attribute names (delimiter) +# 16.02.2020 : A.Goebel : fix also request broadcast messages periodic call (fix from Tomy) package main; @@ -268,8 +269,9 @@ GAEBUS_Set($@) my $type = shift @a; my $arg = join(" ", @a); - $type =~ s,\xe2\x88\xbc,$delimiter,g; - $arg =~ s,\xe2\x88\xbc,$delimiter,g; + # UTF-8 tilde replacement + #$type =~ s,\xe2\x88\xbc,$delimiter,g; + #$arg =~ s,\xe2\x88\xbc,$delimiter,g; #return "No $a[1] for dummies" if(IsDummy($name)); @@ -547,8 +549,9 @@ GAEBUS_Get($@) # other read commands - if (defined($a[1])) { $a[1] =~ s,\xe2\x88\xbc,$delimiter,g }; - if (defined($a[2])) { $a[2] =~ s,\xe2\x88\xbc,$delimiter,g }; + # UTF-8 tilde replacement + #if (defined($a[1])) { $a[1] =~ s,\xe2\x88\xbc,$delimiter,g }; + #if (defined($a[2])) { $a[2] =~ s,\xe2\x88\xbc,$delimiter,g }; if ($a[1] =~ /^[ru]$delimiter/ ) { @@ -1208,8 +1211,8 @@ GAEBUS_GetUpdatesDoit($) foreach my $oneattr (keys %{$attr{$name}}) { - # only for "r" commands - if ($oneattr =~ /^r$delimiter[^$delimiter]{1,}$delimiter.*/) + # only for "r" commands and broadcasts ("u") + if ($oneattr =~ /^[ru]$delimiter[^$delimiter]{1,}$delimiter.*/) { my ($readingnameX, $cmdaddon) = split (" ", $attr{$name}{$oneattr}, 2);