Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-06-17 05:40:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

14_CUL_TCM97001: Fix uninitialized value warning

Browse Source 
14_CUL_REDIRECT: Fix uninitialized value warning



git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18358 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
bjoernh 2019-01-20 20:21:05 +00:00
parent 9c880ba2cb
commit 814a7801e9
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CHANGED
View File

@ -1,5 +1,7 @@
# 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.
- bugfix: 14_CUL_TCM97001: Fix uninitialized value warning
- bugfix: 14_CUL_REDIRECT: Fix uninitialized value warning
- feature: 93_DbRep: sqlCmd can handle SQL session variables, Forum:#96082
- bugfix: 98_DOIFtools: remove Log in DOIFtoolsNextTimer
- bugfix: 93_DbRep: V8.9.10, fix warnings Malformed UTF-8 character during

6
FHEM/14_CUL_REDIRECT.pm
View File

@ -20,6 +20,8 @@
# Free Software Foundation, Inc.,
# 51 Franklin St, Fifth Floor, Boston, MA 02110, USA
#
# $Id$
#
##############################################
package main;
@ -189,7 +191,7 @@ sub decode_Hideki
return (-1,"message is to long") if ($message_length > $length_max );
my $hidekihex;
my $hidekihex = "";
my $idx;
for ($idx=$message_start; $idx<$message_end; $idx=$idx+9)
@ -313,6 +315,8 @@ CUL_REDIRECT_Parse($$)
1;
=item summary This module redirects recived messages from CUL to submodules.
=item summary_DE Module leitet Nachrichrichten vom CUL an Submodule weiter.
=pod
=begin html

20
FHEM/14_CUL_TCM97001.pm
View File

@ -152,7 +152,7 @@ sub checksum_W174 {
my $msg = shift;
Log3 "CUL_TCM97001 ", 4 , "CUL_TCM97001 W174 checksum calc for: $msg";
my @a = split("", $msg);
my $bitReverse = undef;
my $bitReverse = "";
my $x = undef;
foreach $x (@a) {
my $bin3=sprintf("%04b",hex($x));
@ -177,7 +177,7 @@ sub checksum_W155 {
my $msg = shift;
Log3 "CUL_TCM97001 ", 5 , "CUL_TCM97001 W155 checksum calc for: $msg";
my @a = split("", $msg);
my $bitReverse = undef;
my $bitReverse = "";
my $x = undef;
foreach $x (@a) {
my $bin3=sprintf("%04b",hex($x));
@ -201,7 +201,7 @@ sub checksum_W155 {
sub checkCRC {
my $msg = shift;
my @a = split("", $msg);
my $bitReverse = undef;
my $bitReverse = "";
my $x = undef;
foreach $x (@a) {
my $bin3=sprintf("%04b",hex($x));
@ -269,7 +269,7 @@ sub checkCRCKW9010 {
my $msg = shift;
Log3 "CUL_TCM97001", 5 , "CUL_TCM97001 checkCRCKW9010 crc calc for: $msg";
my @a = split("", $msg);
my $bitReverse = undef;
my $bitReverse = "";
my $x = undef;
foreach $x (@a) {
my $bin3=sprintf("%04b",hex($x));
@ -867,11 +867,11 @@ CUL_TCM97001_Parse($$)
# * E = Checksum
# * F = 0000 0000 (W174!!!)
my @a = split("", $msg);
my $bitReverse = undef;
my $bitUnreverse = undef;
my $bitReverse = "";
my $bitUnreverse = "";
my $x = undef;
my $bin3;
foreach $x (@a) {
foreach $x (@a) {
$bin3=sprintf("%024b",hex($x));
$bitReverse = $bitReverse . substr(reverse($bin3),0,4);
$bitUnreverse = $bitUnreverse . sprintf( "%b", hex( substr($bin3,0,4) ) );
@ -961,8 +961,8 @@ CUL_TCM97001_Parse($$)
# * E = Checksum
my @a = split("", $msg);
my $bitReverse = undef;
my $bitUnreverse = undef;
my $bitReverse = "";
my $bitUnreverse = "";
my $x = undef;
my $bin3;
my $hlen = length($msg);
@ -1515,7 +1515,7 @@ CUL_TCM97001_Parse($$)
# 000011010100 11011110
# 212 222-156=66
my @a = split("", $msg);
my $bitReverse = undef;
my $bitReverse = "";
my $x = undef;
foreach $x (@a) {
$bitReverse = $bitReverse . reverse(sprintf("%04b",hex($x)));