FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 23:09:26 +00:00
Code Issues Releases Wiki Activity

98_GAEBUS.pm : fix handle broadcast in periodic update of readings (fix from Tomy)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@21206 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jamesgo 2020-02-16 09:58:49 +00:00
parent 07288c391d
commit 7f87c2dd44
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/98_GAEBUS.pm
View File

@ -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 # 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 # 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) # 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; package main;
@ -268,8 +269,9 @@ GAEBUS_Set($@)
my $type = shift @a; my $type = shift @a;
my $arg = join(" ", @a); my $arg = join(" ", @a);
$type =~ s,\xe2\x88\xbc,$delimiter,g; # UTF-8 tilde replacement
$arg =~ s,\xe2\x88\xbc,$delimiter,g; #$type =~ s,\xe2\x88\xbc,$delimiter,g;
#$arg =~ s,\xe2\x88\xbc,$delimiter,g;
#return "No $a[1] for dummies" if(IsDummy($name)); #return "No $a[1] for dummies" if(IsDummy($name));
@ -547,8 +549,9 @@ GAEBUS_Get($@)
# other read commands # other read commands
if (defined($a[1])) { $a[1] =~ s,\xe2\x88\xbc,$delimiter,g }; # UTF-8 tilde replacement
if (defined($a[2])) { $a[2] =~ s,\xe2\x88\xbc,$delimiter,g }; #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/ ) if ($a[1] =~ /^[ru]$delimiter/ )
{ {
@ -1208,8 +1211,8 @@ GAEBUS_GetUpdatesDoit($)
foreach my $oneattr (keys %{$attr{$name}}) foreach my $oneattr (keys %{$attr{$name}})
{ {
# only for "r" commands # only for "r" commands and broadcasts ("u")
if ($oneattr =~ /^r$delimiter[^$delimiter]{1,}$delimiter.*/) if ($oneattr =~ /^[ru]$delimiter[^$delimiter]{1,}$delimiter.*/)
{ {
my ($readingnameX, $cmdaddon) = split (" ", $attr{$name}{$oneattr}, 2); my ($readingnameX, $cmdaddon) = split (" ", $attr{$name}{$oneattr}, 2);