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

vitoconnect: readings werden wieder immer erzeugt, auch wenn sie unverändert sind

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20130 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
andreas13 2019-09-08 08:33:42 +00:00
parent 4dc63fb096
commit df76eecc81
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/FHEM/98_vitoconnect.pm
View File

@ -132,6 +132,8 @@
# ErrorListChanges (Fehlereintraege_Historie und Fehlereintraege_aktive) werden jetzt im JSON # ErrorListChanges (Fehlereintraege_Historie und Fehlereintraege_aktive) werden jetzt im JSON
# JSON Format ausgegeben (z.B.: "{"new":[],"current":[],"gone":[]}") # JSON Format ausgegeben (z.B.: "{"new":[],"current":[],"gone":[]}")
# #
# 2019-09-07 Readings werden wieder erzeugt auch wenn sich der Wert nicht ändert
#
# ToDo: timeout konfigurierbar machen # ToDo: timeout konfigurierbar machen
# "set"s für Schedules zum Steuern der Heizung implementieren # "set"s für Schedules zum Steuern der Heizung implementieren
# Nicht bei jedem Lesen neu einloggen (wenn möglich) # Nicht bei jedem Lesen neu einloggen (wenn möglich)
@ -1365,17 +1367,17 @@ sub vitoconnect_getResourceCallback($) {
my $Type = $Properties{$Key}{type}; my $Type = $Properties{$Key}{type};
my $Value = $Properties{$Key}{value}; my $Value = $Properties{$Key}{value};
if ( $Type eq "string" ) { if ( $Type eq "string" ) {
readingsBulkUpdateIfChanged($hash, $Reading, $Value); readingsBulkUpdate($hash, $Reading, $Value);
Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)";
} elsif ( $Type eq "number" ) { } elsif ( $Type eq "number" ) {
readingsBulkUpdateIfChanged($hash, $Reading, $Value); readingsBulkUpdate($hash, $Reading, $Value);
Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)";
} elsif ( $Type eq "array" ) { } elsif ( $Type eq "array" ) {
my $Array = join(",", @$Value); my $Array = join(",", @$Value);
readingsBulkUpdateIfChanged($hash, $Reading, $Array); readingsBulkUpdate($hash, $Reading, $Array);
Log3 $name, 5, "$FieldName".".$Key: $Array ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Array ($Type)";
} elsif ( $Type eq "boolean" ) { } elsif ( $Type eq "boolean" ) {
readingsBulkUpdateIfChanged($hash, $Reading, $Value); readingsBulkUpdate($hash, $Reading, $Value);
Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)";
} elsif ( $Type eq "Schedule" ) { } elsif ( $Type eq "Schedule" ) {
# my %Entries = %$Value; # my %Entries = %$Value;
@ -1390,19 +1392,19 @@ sub vitoconnect_getResourceCallback($) {
# } # }
#} #}
my $Result = encode_json($Value); my $Result = encode_json($Value);
readingsBulkUpdateIfChanged($hash, $Reading, $Result); readingsBulkUpdate($hash, $Reading, $Result);
Log3 $name, 5, "$FieldName".".$Key: $Result ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Result ($Type)";
} elsif ( $Type eq "ErrorListChanges" ) { } elsif ( $Type eq "ErrorListChanges" ) {
# not implemented yet # not implemented yet
#readingsBulkUpdateIfChanged($hash, $Reading, "ErrorListChanges"); #readingsBulkUpdate($hash, $Reading, "ErrorListChanges");
#Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)"; #Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)";
my $Result = encode_json($Value); my $Result = encode_json($Value);
readingsBulkUpdateIfChanged($hash, $Reading, $Result); readingsBulkUpdate($hash, $Reading, $Result);
Log3 $name, 5, "$FieldName".".$Key: $Result ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Result ($Type)";
} else { } else {
readingsBulkUpdateIfChanged($hash, $Reading, "Unknown: $Type"); readingsBulkUpdate($hash, $Reading, "Unknown: $Type");
Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)"; Log3 $name, 5, "$FieldName".".$Key: $Value ($Type)";
} }
} }
@ -1415,7 +1417,7 @@ sub vitoconnect_getResourceCallback($) {
my @fields = @{$action->{fields}}; my @fields = @{$action->{fields}};
my $Result = "action: "; my $Result = "action: ";
for my $field (@fields) { $Result .= $field->{name}." "; } for my $field (@fields) { $Result .= $field->{name}." "; }
readingsBulkUpdateIfChanged($hash, $FieldName.".".$action->{"name"}, $Result); readingsBulkUpdate($hash, $FieldName.".".$action->{"name"}, $Result);
} }
} }
} }