mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

70_PHTV: fix Use of uninitialized value $cmd

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13398 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
loredo
2017-02-12 12:30:28 +00:00
parent 0ae6f98b38
commit dcb9b7f883
1 changed files with 52 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
fhem/FHEM/70_PHTV.pm
View File

@@ -446,9 +446,9 @@ sub PHTV_Set($@) {
return
"No configuration found. Please set ambiHue attributes first."
unless ( AttrVal( $name, "ambiHueLeft", undef )
&& AttrVal( $name, "ambiHueRight", undef )
&& AttrVal( $name, "ambiHueTop", undef )
&& AttrVal( $name, "ambiHueBottom", undef ) );
|| AttrVal( $name, "ambiHueRight", undef )
|| AttrVal( $name, "ambiHueTop", undef )
|| AttrVal( $name, "ambiHueBottom", undef ) );
# enable internal Ambilight color
PHTV_SendCommand( $hash, "ambilight/mode",
@@ -1596,48 +1596,29 @@ sub PHTV_ReceiveCommand($$$) {
Log3 $name, 4, "PHTV $name: RCV $service/" . urlDecode($cmd);
}
if ( $data ne "" ) {
if ( $data =~ /^{/ || $data =~ /^\[/ ) {
if ( $data =~
m/^\s*(([{\[].*)|(<html>\s*<head>\s*<title>\s*Ok\s*<\/title>\s*<\/head>\s*<body>\s*Ok\s*<\/body>\s*<\/html>))\s*$/i
)
{
$return = decode_json( Encode::encode_utf8($2) ) if ($2);
$return = "ok" if ($3);
if ( !defined($cmd) || ref($cmd) eq "HASH" || $cmd eq "" ) {
Log3 $name, 5, "PHTV $name: RES $service\n" . $data;
}
else {
Log3 $name, 5,
"PHTV $name: RES $service/"
. urlDecode($cmd) . "\n"
. $data;
"PHTV $name: RES $service/" . urlDecode($cmd) . "\n" . $data;
}
$hash->{helper}{supportedAPIcmds}{$service} = 1
unless (
defined( $hash->{helper}{supportedAPIcmds}{$service} )
&& $service =~ /^channels\/.*/
&& $service =~ /^channellists\/.*/ );
$return = decode_json( Encode::encode_utf8($data) );
unless ( defined( $hash->{helper}{supportedAPIcmds}{$service} )
|| $service =~ /^channels\/.*/
|| $service =~ /^channellists\/.*/ );
}
elsif ( $data eq
"<html><head><title>Ok</title></head><body>Ok</body></html>" )
{
if ( !defined($cmd) || ref($cmd) eq "HASH" || $cmd eq "" ) {
Log3 $name, 4, "PHTV $name: RES $service - ok";
}
else {
Log3 $name, 4,
"PHTV $name: RES $service/" . urlDecode($cmd) . " - ok";
}
$hash->{helper}{supportedAPIcmds}{$service} = 1
unless (
defined( $hash->{helper}{supportedAPIcmds}{$service} )
&& $service =~ /^channels\/.*/
&& $service =~ /^channellists\/.*/ );
$return = "ok";
}
else {
elsif ( $data ne "" ) {
if ( !defined($cmd) || ref($cmd) eq "HASH" || $cmd eq "" ) {
Log3 $name, 5, "PHTV $name: RES ERROR $service\n" . $data;
}
@@ -1648,9 +1629,7 @@ sub PHTV_ReceiveCommand($$$) {
. $data;
}
unless (
defined( $hash->{helper}{supportedAPIcmds}{$service} ) )
{
unless ( defined( $hash->{helper}{supportedAPIcmds}{$service} ) ) {
$hash->{helper}{supportedAPIcmds}{$service} = 0;
Log3 $name, 4,
"PHTV $name: API command '"
@@ -1660,7 +1639,6 @@ sub PHTV_ReceiveCommand($$$) {
return undef;
}
}
#######################
# process return data
@@ -1824,7 +1802,18 @@ sub PHTV_ReceiveCommand($$$) {
# sources/current
elsif ( $service eq "sources/current" ) {
if ( ref($return) eq "HASH" ) {
$cmd = $hash->{helper}{device}{sourceName}{ $return->{id} };
if ( defined( $return->{id} ) ) {
$return->{id} =~ s/^\s+//;
$return->{id} =~ s/\s+$//;
$cmd = (
$hash->{helper}{device}{sourceName}{ $return->{id} }
? $hash->{helper}{device}{sourceName}{ $return->{id} }
: "-"
);
}
else {
$cmd = "-";
}
# Alias handling
$cmd = $hash->{helper}{device}{inputAliases}{$cmd}