diff --git a/74_AMAD.pm b/74_AMAD.pm index c1bcb4b..6c8fd4b 100644 --- a/74_AMAD.pm +++ b/74_AMAD.pm @@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday); use HttpUtils; use TcpServerUtils; -my $version = "0.9.1"; +my $version = "0.9.2"; @@ -894,8 +894,20 @@ sub AMAD_CommBridge_Read($) { ### my @data = split( '\R\R', $buf ); - my $chash = undef; + my $chash; + my $fhemdev; + + my @fhemdev = split( '\R', $data[0] ); + foreach my $ret( @fhemdev ) { + if( $ret =~ /FHEMDEVICE: (.*)/ ) { + $fhemdev = $1; + } + } + + $chash = $defs{$fhemdev}; + + if ( $data[0] =~ /FHEMCMD: setreading\b/ ) { my $tv = $data[1]; @@ -914,35 +926,16 @@ sub AMAD_CommBridge_Read($) { my $t; my $v; - - if( $data[2] =~ /FHEMDEVICE:/ ) { - - $data[2] =~ s/FHEMDEVICE: //; - - while( ( $t, $v ) = each %buffer ) { - $v =~ s/null//g; - - readingsBeginUpdate( $chash ); - readingsBulkUpdate( $chash, $t, $v ) if( defined( $v ) ); - } - - readingsBulkUpdate( $chash, "lastStatusRequestState", "statusRequest_done" ); - readingsEndUpdate( $chash, 1 ); - - } else { - $data[3] =~ s/FHEMDEVICE: //; - - while( ( $t, $v ) = each %buffer ) { - $v =~ s/null//g; - - readingsBeginUpdate( $chash ); - readingsBulkUpdate( $chash, $t, $v ) if( defined( $v ) ); - } - - readingsBulkUpdate( $chash, "lastStatusRequestState", "statusRequest_done" ); - readingsEndUpdate( $chash, 1 ); + while( ( $t, $v ) = each %buffer ) { + $v =~ s/null//g; + + readingsBeginUpdate( $chash ); + readingsBulkUpdate( $chash, $t, $v ) if( defined( $v ) ); } + + readingsBulkUpdate( $chash, "lastStatusRequestState", "statusRequest_done" ); + readingsEndUpdate( $chash, 1 ); ### End Response Processing @@ -969,22 +962,8 @@ sub AMAD_CommBridge_Read($) { elsif ( $data[0] =~ /FHEMCMD: statusrequest\b/ ) { - @data = split( '\R', $data[0] ); - - if( $data[2] =~ /FHEMDEVICE:/ ) { - - $data[2] =~ s/FHEMDEVICE: //; - my $chash = $defs{$data[2]}; - Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: Call statusRequest"; - return AMAD_GetUpdateLocal( $chash ); - - } else { - $data[3] =~ s/FHEMDEVICE: //; - my $chash = $defs{$data[3]}; - Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: Call statusRequest"; - return AMAD_GetUpdateLocal( $chash ); - - } + Log3 $name, 4, "AMAD ($name) - AMAD_CommBridge: Call statusRequest"; + return AMAD_GetUpdateLocal( $chash ); } }