FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

70_PylonLowVoltage: print out faulty response with verbose 5

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28532 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2024-02-18 18:01:57 +00:00
parent aa273cc8ef
commit 5e5db69717
3 changed files with 43 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- feature: 70_PylonLowVoltage: print out faulty response with verbose 5
- bugfix: 88_HMCCU: fixed device detection bug - bugfix: 88_HMCCU: fixed device detection bug
- feature: 93_DbRep: sqlCmd executing ckey:latest possible - feature: 93_DbRep: sqlCmd executing ckey:latest possible
- new: 73_PRESENCE2: cover version von 73_PRESENCE.pm - new: 73_PRESENCE2: cover version von 73_PRESENCE.pm

23
fhem/FHEM/70_PylonLowVoltage.pm
View File

@ -15,7 +15,7 @@
# Copyright notice # Copyright notice
# #
# (c) 2019 Harald Schmitz (70_Pylontech.pm) # (c) 2019 Harald Schmitz (70_Pylontech.pm)
# (c) 2023 Heiko Maaz # (c) 2023 - 2024 Heiko Maaz
# #
# This script is free software; you can redistribute it and/or modify # This script is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -122,6 +122,7 @@ BEGIN {
# Versions History intern (Versions history by Heiko Maaz) # Versions History intern (Versions history by Heiko Maaz)
my %vNotesIntern = ( my %vNotesIntern = (
"0.2.1" => "18.02.2024 doOnError: print out faulty response, Forum:https://forum.fhem.de/index.php?msg=1303912 ",
"0.2.0" => "15.12.2023 extend possible number of batteries up to 14 ", "0.2.0" => "15.12.2023 extend possible number of batteries up to 14 ",
"0.1.11" => "28.10.2023 add needed data format to commandref ", "0.1.11" => "28.10.2023 add needed data format to commandref ",
"0.1.10" => "18.10.2023 new function pseudoHexToText in _callManufacturerInfo for translate battery name and Manufactorer ", "0.1.10" => "18.10.2023 new function pseudoHexToText in _callManufacturerInfo for translate battery name and Manufactorer ",
@ -688,6 +689,7 @@ sub startUpdate {
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
state => $errtxt, state => $errtxt,
res => '',
verbose => 3 verbose => 3
} }
); );
@ -769,6 +771,7 @@ sub _openSocket {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => '',
state => 'disconnected' state => 'disconnected'
} }
); );
@ -786,6 +789,7 @@ sub _openSocket {
or do { doOnError ({ hash => $hash, or do { doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
state => 'no connection to RS485 gateway established', state => 'no connection to RS485 gateway established',
res => '',
verbose => 3 verbose => 3
} }
); );
@ -844,6 +848,7 @@ sub _callSerialNumber {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -879,6 +884,7 @@ sub _callManufacturerInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -920,6 +926,7 @@ sub _callProtocolVersion {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -954,6 +961,7 @@ sub _callSoftwareVersion {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -989,6 +997,7 @@ sub _callSystemParameters {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1034,6 +1043,7 @@ sub _callAlarmInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1078,6 +1088,7 @@ sub _callChargeManagmentInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1126,6 +1137,7 @@ sub _callAnalogValue {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1201,6 +1213,7 @@ sub _callAnalogValue {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => '',
state => $err state => $err
} }
); );
@ -1389,16 +1402,22 @@ sub doOnError {
my $readings = $paref->{readings}; # Referenz auf das Hash der zu erstellenden Readings my $readings = $paref->{readings}; # Referenz auf das Hash der zu erstellenden Readings
my $state = $paref->{state}; my $state = $paref->{state};
my $socket = $paref->{sock}; my $socket = $paref->{sock};
my $res = $paref->{res} // '';
my $verbose = $paref->{verbose} // 4; my $verbose = $paref->{verbose} // 4;
ualarm(0); ualarm(0);
my $name = $hash->{NAME}; my $name = $hash->{NAME};
$state = (split "at ", $state)[0]; $state = (split "at ", $state)[0];
$readings->{state} = $state; $readings->{state} = $state;
$verbose = 3 if($readings->{state} =~ /error/xsi); $verbose = 3 if($readings->{state} =~ /error/xsi);
Log3 ($name, $verbose, "$name - ".$readings->{state}); Log3 ($name, $verbose, "$name - ".$readings->{state});
if ($res) {
Log3 ($name, 5, "$name - faulty data is printed out now: ");
__resultLog ($hash, $res);
}
_closeSocket ($hash); _closeSocket ($hash);

23
fhem/contrib/DS_Starter/70_PylonLowVoltage.pm
View File

@ -15,7 +15,7 @@
# Copyright notice # Copyright notice
# #
# (c) 2019 Harald Schmitz (70_Pylontech.pm) # (c) 2019 Harald Schmitz (70_Pylontech.pm)
# (c) 2023 Heiko Maaz # (c) 2023 - 2024 Heiko Maaz
# #
# This script is free software; you can redistribute it and/or modify # This script is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -122,6 +122,7 @@ BEGIN {
# Versions History intern (Versions history by Heiko Maaz) # Versions History intern (Versions history by Heiko Maaz)
my %vNotesIntern = ( my %vNotesIntern = (
"0.2.1" => "18.02.2024 doOnError: print out faulty response, Forum:https://forum.fhem.de/index.php?msg=1303912 ",
"0.2.0" => "15.12.2023 extend possible number of batteries up to 14 ", "0.2.0" => "15.12.2023 extend possible number of batteries up to 14 ",
"0.1.11" => "28.10.2023 add needed data format to commandref ", "0.1.11" => "28.10.2023 add needed data format to commandref ",
"0.1.10" => "18.10.2023 new function pseudoHexToText in _callManufacturerInfo for translate battery name and Manufactorer ", "0.1.10" => "18.10.2023 new function pseudoHexToText in _callManufacturerInfo for translate battery name and Manufactorer ",
@ -688,6 +689,7 @@ sub startUpdate {
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
state => $errtxt, state => $errtxt,
res => '',
verbose => 3 verbose => 3
} }
); );
@ -769,6 +771,7 @@ sub _openSocket {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => '',
state => 'disconnected' state => 'disconnected'
} }
); );
@ -786,6 +789,7 @@ sub _openSocket {
or do { doOnError ({ hash => $hash, or do { doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
state => 'no connection to RS485 gateway established', state => 'no connection to RS485 gateway established',
res => '',
verbose => 3 verbose => 3
} }
); );
@ -844,6 +848,7 @@ sub _callSerialNumber {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -879,6 +884,7 @@ sub _callManufacturerInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -920,6 +926,7 @@ sub _callProtocolVersion {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -954,6 +961,7 @@ sub _callSoftwareVersion {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -989,6 +997,7 @@ sub _callSystemParameters {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1034,6 +1043,7 @@ sub _callAlarmInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1078,6 +1088,7 @@ sub _callChargeManagmentInfo {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1126,6 +1137,7 @@ sub _callAnalogValue {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => $res,
state => $rtnerr state => $rtnerr
} }
); );
@ -1201,6 +1213,7 @@ sub _callAnalogValue {
doOnError ({ hash => $hash, doOnError ({ hash => $hash,
readings => $readings, readings => $readings,
sock => $socket, sock => $socket,
res => '',
state => $err state => $err
} }
); );
@ -1389,16 +1402,22 @@ sub doOnError {
my $readings = $paref->{readings}; # Referenz auf das Hash der zu erstellenden Readings my $readings = $paref->{readings}; # Referenz auf das Hash der zu erstellenden Readings
my $state = $paref->{state}; my $state = $paref->{state};
my $socket = $paref->{sock}; my $socket = $paref->{sock};
my $res = $paref->{res} // '';
my $verbose = $paref->{verbose} // 4; my $verbose = $paref->{verbose} // 4;
ualarm(0); ualarm(0);
my $name = $hash->{NAME}; my $name = $hash->{NAME};
$state = (split "at ", $state)[0]; $state = (split "at ", $state)[0];
$readings->{state} = $state; $readings->{state} = $state;
$verbose = 3 if($readings->{state} =~ /error/xsi); $verbose = 3 if($readings->{state} =~ /error/xsi);
Log3 ($name, $verbose, "$name - ".$readings->{state}); Log3 ($name, $verbose, "$name - ".$readings->{state});
if ($res) {
Log3 ($name, 5, "$name - faulty data is printed out now: ");
__resultLog ($hash, $res);
}
_closeSocket ($hash); _closeSocket ($hash);