FHEM/mod-AMAD
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bessere Logausgabe

Browse Source
This commit is contained in:
Marko Oldenburg 2015-11-04 20:55:59 +01:00
parent 833669833f
commit ec0ad80ed8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
74_AMAD.pm
View File

@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use TcpServerUtils; use TcpServerUtils;
my $version = "0.9.0"; my $version = "0.9.1";
@ -902,6 +902,7 @@ sub AMAD_CommBridge_Read($) {
$data[3] =~ s/FHEMDEVICE: //; $data[3] =~ s/FHEMDEVICE: //;
my $chash = $defs{$data[3]}; my $chash = $defs{$data[3]};
### Begin Response Processing ### Begin Response Processing
Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: processing receive reading values";
my @valuestring = split( '@@@@', $tv ); my @valuestring = split( '@@@@', $tv );
my %buffer; my %buffer;
@ -932,6 +933,7 @@ sub AMAD_CommBridge_Read($) {
fhem ("$fhemCmd") if( ReadingsVal( "AMADCommBridge", "expertMode", 0 ) eq "1" ); fhem ("$fhemCmd") if( ReadingsVal( "AMADCommBridge", "expertMode", 0 ) eq "1" );
readingsSingleUpdate( $brihash, "receiveFhemCommand", $fhemCmd, 1 ); readingsSingleUpdate( $brihash, "receiveFhemCommand", $fhemCmd, 1 );
Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: set reading receive fhem command";
return; return;
} }
@ -940,7 +942,7 @@ sub AMAD_CommBridge_Read($) {
my $fhemCmd = $data[1]; my $fhemCmd = $data[1];
readingsSingleUpdate( $brihash, "receiveVoiceCommand", $fhemCmd, 1 ); readingsSingleUpdate( $brihash, "receiveVoiceCommand", $fhemCmd, 1 );
Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: set reading receive voice command";
return; return;
} }
@ -950,6 +952,7 @@ sub AMAD_CommBridge_Read($) {
$data[3] =~ s/FHEMDEVICE: //; $data[3] =~ s/FHEMDEVICE: //;
my $chash = $defs{$data[3]}; my $chash = $defs{$data[3]};
Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: Call statusRequest";
return AMAD_GetUpdateLocal( $chash ); return AMAD_GetUpdateLocal( $chash );
} }
} }