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

zusätzliche Logausgaben eingefügt

Browse Source
This commit is contained in:
Marko Oldenburg
2016-02-18 20:19:26 +01:00
parent 4d344dd0ed
commit 98d621da0e
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
74_AMAD.pm
View File

@@ -231,7 +231,7 @@ my ( $hash ) = @_;
InternalTimer( gettimeofday()+15, "AMAD_GetUpdate", $hash, 0 ); InternalTimer( gettimeofday()+15, "AMAD_GetUpdate", $hash, 0 );
Log3 $name, 3, "AMAD ($name) - GetUpdate, FHEM or Device not ready yet"; Log3 $name, 3, "AMAD ($name) - GetUpdate, FHEM or Device not ready yet";
Log3 $name, 3, "AMAD ($name) - GetUpdate, Please set \"$bname fhemServerIP <IP-FHEM>\" NOW!"; Log3 $name, 3, "AMAD ($name) - GetUpdate, Please set \"$bname fhemServerIP <IP-FHEM>\" NOW!" if( ReadingsVal( $bname, "fhemServerIP", "none" ) ne "none" );
} }
} }
@@ -253,7 +253,7 @@ sub AMAD_statusRequest($) {
HttpUtils_NonblockingGet( HttpUtils_NonblockingGet(
{ {
url => $url, url => $url,
timeout => 60, timeout => 30,
hash => $hash, hash => $hash,
method => "GET", method => "GET",
header => "fhemIP: $fhemip\r\nfhemDevice: $name\r\nactiveTask: $activetask\r\napSSID: $apssid", header => "fhemIP: $fhemip\r\nfhemDevice: $name\r\nactiveTask: $activetask\r\napSSID: $apssid",
@@ -261,6 +261,8 @@ sub AMAD_statusRequest($) {
callback => \&AMAD_statusRequestErrorHandling, callback => \&AMAD_statusRequestErrorHandling,
} }
); );
Log3 $name, 5, "AMAD ($name) - Send statusRequest with URL: \"$url\" and Header: \"fhemIP: $fhemip\r\nfhemDevice: $name\r\nactiveTask: $activetask\r\napSSID: $apssid\"";
} }
sub AMAD_statusRequestErrorHandling($$$) { sub AMAD_statusRequestErrorHandling($$$) {
@@ -410,7 +412,7 @@ sub AMAD_ResponseProcessing($$) {
my $host = $hash->{HOST}; my $host = $hash->{HOST};
### Begin Response Processing ### Begin Response Processing
Log3 $name, 4, "AMAD ($name) - Processing data: $data"; Log3 $name, 5, "AMAD ($name) - Processing data: $data";
readingsSingleUpdate( $hash, "state", "active", 1) if( ReadingsVal( $name, "state", 0 ) ne "initialized" or ReadingsVal( $name, "state", 0 ) ne "active" ); readingsSingleUpdate( $hash, "state", "active", 1) if( ReadingsVal( $name, "state", 0 ) ne "initialized" or ReadingsVal( $name, "state", 0 ) ne "active" );
my @valuestring = split( '@@@@', $data ); my @valuestring = split( '@@@@', $data );
@@ -982,7 +984,7 @@ sub AMAD_CommBridge_Read($) {
if ( $fhemcmd =~ /setreading\b/ ) { if ( $fhemcmd =~ /setreading\b/ ) {
my $tv = $data[1]; my $tv = $data[1];
Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: processing receive reading values"; Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: processing receive reading values - Device: $device Data: $tv";
AMAD_ResponseProcessing($dhash,$tv); AMAD_ResponseProcessing($dhash,$tv);