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

45_TRX.pm: Removed "Dumper" in Log message

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20807 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
KernSani 2019-12-22 15:35:25 +00:00
parent 17a1e3c082
commit 9984b9c146
1 changed files with 35 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
fhem/FHEM/45_TRX.pm
View File

@ -29,8 +29,9 @@
# #
# CHANGELOG # CHANGELOG
# #
# 25.02.2ß19 Fixed missing FW reading for ProXL receivers # 20.12.2019 Removed "Dumper"
# ß4.12.2018 Added NotifyDn to catch DISCONNECTED Events # 25.02.2019 Fixed missing FW reading for ProXL receivers
# 04.12.2018 Added NotifyDn to catch DISCONNECTED Events
# 26.12.2018 RfxMgr-like functionality to enable/disable protocols # 26.12.2018 RfxMgr-like functionality to enable/disable protocols
# Support for Cuveo devices # Support for Cuveo devices
# 15.12.2018 added more readings and additional RFX-models # 15.12.2018 added more readings and additional RFX-models
@ -47,7 +48,6 @@ use strict;
use warnings; use warnings;
use Time::HiRes qw(gettimeofday usleep); use Time::HiRes qw(gettimeofday usleep);
my $last_rmsg = "abcd"; my $last_rmsg = "abcd";
my $last_time = 1; my $last_time = 1;
my $trx_rssi = 0; my $trx_rssi = 0;
@ -129,7 +129,7 @@ sub TRX_Initialize($) {
$hash->{StateFn} = "TRX_SetState"; $hash->{StateFn} = "TRX_SetState";
$hash->{AttrList} = "do_not_notify:1,0 dummy:1,0 do_not_init:1,0 addvaltrigger:1,0 longids rssi:1,0"; $hash->{AttrList} = "do_not_notify:1,0 dummy:1,0 do_not_init:1,0 addvaltrigger:1,0 longids rssi:1,0";
$hash->{ShutdownFn} = "TRX_Shutdown"; $hash->{ShutdownFn} = "TRX_Shutdown";
$hash->{NotifyFn} = "TRX_Notify"; $hash->{NotifyFn} = "TRX_Notify";
} }
@ -172,24 +172,25 @@ sub TRX_Define($$) {
} }
sub TRX_Notify ($$) { sub TRX_Notify ($$) {
my ($own_hash, $dev_hash) = @_; my ( $own_hash, $dev_hash ) = @_;
my $ownName = $own_hash->{NAME}; # own name / hash my $ownName = $own_hash->{NAME}; # own name / hash
return "" if(IsDisabled($ownName)); # Return without any further action if the module is disabled return "" if ( IsDisabled($ownName) ); # Return without any further action if the module is disabled
my $devName = $dev_hash->{NAME}; # Device that created the events my $devName = $dev_hash->{NAME}; # Device that created the events
return "" if ($devName ne $ownName); # we just want to treat Devio events for own device return "" if ( $devName ne $ownName ); # we just want to treat Devio events for own device
my $events = deviceEvents($dev_hash,1); my $events = deviceEvents( $dev_hash, 1 );
return if( !$events ); return if ( !$events );
foreach my $event (@{$events}) { foreach my $event ( @{$events} ) {
#Log3 $ownName, 1, "TRX received $event";
if ($event eq "DISCONNECTED") { #Log3 $ownName, 1, "TRX received $event";
readingsSingleUpdate( $own_hash, "state", "disconnected", 1 ); if ( $event eq "DISCONNECTED" ) {
} readingsSingleUpdate( $own_hash, "state", "disconnected", 1 );
} }
}
} }
##################################### #####################################
@ -295,7 +296,7 @@ sub TRX_SetModes($@) {
my ( $b3, $b4, $b5, $b6 ) = "00"; my ( $b3, $b4, $b5, $b6 ) = "00";
Log3 $name, 5, "[$name] Setting protocols " . Dumper(@vals); #Log3 $name, 5, "[$name] Setting protocols " . Dumper(@vals);
foreach my $key ( keys %m3 ) { foreach my $key ( keys %m3 ) {
if ( grep ( /$m3{$key}/, @vals ) ) { if ( grep ( /$m3{$key}/, @vals ) ) {
$b3 += $key; $b3 += $key;
@ -364,12 +365,13 @@ sub TRX_DoInit($) {
my $init = pack( 'H*', "0D00000000000000000000000000" ); my $init = pack( 'H*', "0D00000000000000000000000000" );
DevIo_SimpleWrite( $hash, $init, 0 ); DevIo_SimpleWrite( $hash, $init, 0 );
usleep(50000); # wait 50 ms usleep(50000); # wait 50 ms
#DevIo_TimeoutRead( $hash, 0.5 ); #DevIo_TimeoutRead( $hash, 0.5 );
#$buf = DevIo_Expect( $hash, $init, 1 ); #$buf = DevIo_Expect( $hash, $init, 1 );
sleep(1); sleep(1);
#Log3 $name,1,"TRX Expect received $buf";
#Log3 $name,1,"TRX Expect received $buf";
TRX_Clear($hash); TRX_Clear($hash);
sleep(1); sleep(1);
@ -378,18 +380,20 @@ sub TRX_DoInit($) {
# Get Status # Get Status
$init = pack( 'H*', "0D00000102000000000000000000" ); $init = pack( 'H*', "0D00000102000000000000000000" );
DevIo_SimpleWrite( $hash, $init, 0 ); DevIo_SimpleWrite( $hash, $init, 0 );
#usleep(50000); # wait 50 ms #usleep(50000); # wait 50 ms
$buf = unpack( 'H*', DevIo_TimeoutRead( $hash, 1 ) ); $buf = unpack( 'H*', DevIo_TimeoutRead( $hash, 1 ) );
#$buf = DevIo_Expect( $hash, $init, 1 );
#$buf = DevIo_Expect( $hash, $init, 1 );
if ( !$buf ) { if ( !$buf ) {
Log3 $name, 1, "TRX: Initialization Error: No character read"; Log3 $name, 1, "TRX: Initialization Error: No character read";
readingsSingleUpdate( $hash, "state", "Error", 1 ); readingsSingleUpdate( $hash, "state", "Error", 1 );
return "TRX: Initialization Error $name: no char read"; return "TRX: Initialization Error $name: no char read";
} }
elsif ( $buf !~ m/0d0100....................../ && $buf !~ m/140100..................................../ ) { elsif ( $buf !~ m/0d0100....................../ && $buf !~ m/140100..................................../ ) {
Log3 $name, 1, "TRX: Initialization Error hexline='$buf', expected 0d0100......................"; Log3 $name, 1, "TRX: Initialization Error hexline='$buf', expected 0d0100......................";
readingsSingleUpdate( $hash, "state", "Error", 1 ); readingsSingleUpdate( $hash, "state", "Error", 1 );
return "TRX: Initialization Error %name expected 0D010, but buf=$buf received."; return "TRX: Initialization Error %name expected 0D010, but buf=$buf received.";
} }
else { else {
@ -408,8 +412,8 @@ sub TRX_DoInit($) {
} }
sub TRX_evaluateResponse($$) { sub TRX_evaluateResponse($$) {
my ($hash, $buf ) = @_; my ( $hash, $buf ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
my $fw = undef; my $fw = undef;
if ( $buf =~ m/0d0100(..)(..)(..)(..)(..)(..)(..)(..)(..)(..)(..)/ ) { if ( $buf =~ m/0d0100(..)(..)(..)(..)(..)(..)(..)(..)(..)(..)(..)/ ) {
@ -465,7 +469,7 @@ sub TRX_evaluateResponse($$) {
'4' => 'Ext2', '4' => 'Ext2',
'5' => 'Pro1', '5' => 'Pro1',
'6' => 'Pro2', '6' => 'Pro2',
'16' => 'ProXL1', #forum #97873, just wondering why it comes as 16... '16' => 'ProXL1', #forum #97873, just wondering why it comes as 16...
}->{$msg10} }->{$msg10}
|| 'unknown FW Type ' . $msg10; || 'unknown FW Type ' . $msg10;