From 16e02ffff3e886a9ccf7c0ef8cb6962b6cdcf7f2 Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Thu, 1 Feb 2024 08:22:49 +0000 Subject: [PATCH] 10_ZWave.pm: add eergy_export reading (Forum #136912) git-svn-id: https://svn.fhem.de/fhem/trunk@28453 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_ZWave.pm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm index 2c662d094..fa1892742 100644 --- a/fhem/FHEM/10_ZWave.pm +++ b/fhem/FHEM/10_ZWave.pm @@ -1844,15 +1844,12 @@ ZWave_meterParse($$) my $name = $hash->{NAME}; - # rate_type currently not used / not reported - my $rate_type = ($v1 >> 5) & 0x3; - my @rate_type_text =("undef","consumed", "produced"); - my $rate_type_text = ($rate_type > $#rate_type_text ? - "undef" : $rate_type_text[$rate_type]); - my $meter_type = ($v1 & 0x1f); my $meter_type_text = ($meter_type > $#meter_type_text ? - "UNKNOWN_${meter_type}" : $meter_type_text[$meter_type]); + "UNKNOWN_${meter_type}" : $meter_type_text[$meter_type]); + + my $rate_type = ($v1 >> 5) & 0x3; # ("undef","_import", "_export") + $meter_type_text .= "_export" if($meter_type == 1 && $rate_type == 2); #136912 my $precision = ($v2>>5) & 0x7; # 3 bits my $scale = ($v2>>3) & 0x3; # 2 bits, meaning unit