mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
PHTV: check for available Ambilight LEDs and restrict command use
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@9050 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski
parent
3e952a0294
commit
5ab66b35b9
248
FHEM/70_PHTV.pm
248
FHEM/70_PHTV.pm
@ -436,6 +436,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
||||||
if ( lc( $a[2] ) eq "on" ) {
|
if ( lc( $a[2] ) eq "on" ) {
|
||||||
return
|
return
|
||||||
@ -471,6 +493,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
||||||
if ( lc( $a[2] ) eq "internal"
|
if ( lc( $a[2] ) eq "internal"
|
||||||
|| lc( $a[2] ) eq "manual"
|
|| lc( $a[2] ) eq "manual"
|
||||||
@ -498,6 +542,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
||||||
|
|
||||||
if ( defined( $hash->{READINGS}{ambiLEDLayers}{VAL} ) ) {
|
if ( defined( $hash->{READINGS}{ambiLEDLayers}{VAL} ) ) {
|
||||||
@ -526,7 +592,8 @@ sub PHTV_Set($@) {
|
|||||||
&& $hash->{READINGS}{$ambiLED}{VAL} > 0 )
|
&& $hash->{READINGS}{$ambiLED}{VAL} > 0 )
|
||||||
{
|
{
|
||||||
$rgb = { "r" => 255, "g" => 0, "b" => 0 }
|
$rgb = { "r" => 255, "g" => 0, "b" => 0 }
|
||||||
if ( $side eq "left" || $side eq "right" );
|
if ( $side eq "left"
|
||||||
|
|| $side eq "right" );
|
||||||
|
|
||||||
# run clockwise for left and top
|
# run clockwise for left and top
|
||||||
if ( $side eq "left" || $side eq "top" ) {
|
if ( $side eq "left" || $side eq "top" ) {
|
||||||
@ -534,9 +601,12 @@ sub PHTV_Set($@) {
|
|||||||
while ( $led <=
|
while ( $led <=
|
||||||
$hash->{READINGS}{$ambiLED}{VAL} - 1 )
|
$hash->{READINGS}{$ambiLED}{VAL} - 1 )
|
||||||
{
|
{
|
||||||
$json->{$l}{$side}{$led}{r} = $rgb->{r};
|
$json->{$l}{$side}{$led}{r} =
|
||||||
$json->{$l}{$side}{$led}{g} = $rgb->{g};
|
$rgb->{r};
|
||||||
$json->{$l}{$side}{$led}{b} = $rgb->{b};
|
$json->{$l}{$side}{$led}{g} =
|
||||||
|
$rgb->{g};
|
||||||
|
$json->{$l}{$side}{$led}{b} =
|
||||||
|
$rgb->{b};
|
||||||
|
|
||||||
if ( $rgb->{r} == 255 ) {
|
if ( $rgb->{r} == 255 ) {
|
||||||
$rgb = {
|
$rgb = {
|
||||||
@ -565,14 +635,18 @@ sub PHTV_Set($@) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
# run anti-clockwise for right and bottom
|
# run anti-clockwise for right and bottom
|
||||||
elsif ( $side eq "right" || $side eq "bottom" )
|
elsif ($side eq "right"
|
||||||
|
|| $side eq "bottom" )
|
||||||
{
|
{
|
||||||
my $led =
|
my $led =
|
||||||
$hash->{READINGS}{$ambiLED}{VAL} - 1;
|
$hash->{READINGS}{$ambiLED}{VAL} - 1;
|
||||||
while ( $led >= 0 ) {
|
while ( $led >= 0 ) {
|
||||||
$json->{$l}{$side}{$led}{r} = $rgb->{r};
|
$json->{$l}{$side}{$led}{r} =
|
||||||
$json->{$l}{$side}{$led}{g} = $rgb->{g};
|
$rgb->{r};
|
||||||
$json->{$l}{$side}{$led}{b} = $rgb->{b};
|
$json->{$l}{$side}{$led}{g} =
|
||||||
|
$rgb->{g};
|
||||||
|
$json->{$l}{$side}{$led}{b} =
|
||||||
|
$rgb->{b};
|
||||||
|
|
||||||
if ( $rgb->{r} == 255 ) {
|
if ( $rgb->{r} == 255 ) {
|
||||||
$rgb = {
|
$rgb = {
|
||||||
@ -655,6 +729,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
|
||||||
|
|
||||||
# set all LEDs at once
|
# set all LEDs at once
|
||||||
@ -722,10 +818,11 @@ sub PHTV_Set($@) {
|
|||||||
if ( length($addr) > 1
|
if ( length($addr) > 1
|
||||||
&& PHTV_isinteger( substr( $addr, 1, 1 ) ) );
|
&& PHTV_isinteger( substr( $addr, 1, 1 ) ) );
|
||||||
if ( length($addr) > 2 ) {
|
if ( length($addr) > 2 ) {
|
||||||
$side = "left" if ( substr( $addr, 2, 1 ) eq "L" );
|
$side = "left" if ( substr( $addr, 2, 1 ) eq "L" );
|
||||||
$side = "top" if ( substr( $addr, 2, 1 ) eq "T" );
|
$side = "top" if ( substr( $addr, 2, 1 ) eq "T" );
|
||||||
$side = "right" if ( substr( $addr, 2, 1 ) eq "R" );
|
$side = "right" if ( substr( $addr, 2, 1 ) eq "R" );
|
||||||
$side = "bottom" if ( substr( $addr, 2, 1 ) eq "B" );
|
$side = "bottom"
|
||||||
|
if ( substr( $addr, 2, 1 ) eq "B" );
|
||||||
}
|
}
|
||||||
$led = substr( $addr, 3 )
|
$led = substr( $addr, 3 )
|
||||||
if ( length($addr) > 3
|
if ( length($addr) > 3
|
||||||
@ -806,6 +903,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
||||||
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
||||||
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
||||||
@ -843,6 +962,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
||||||
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
||||||
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
||||||
@ -881,6 +1022,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
||||||
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
||||||
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
||||||
@ -919,6 +1082,28 @@ sub PHTV_Set($@) {
|
|||||||
|
|
||||||
return "No argument given" if ( !defined( $a[2] ) );
|
return "No argument given" if ( !defined( $a[2] ) );
|
||||||
|
|
||||||
|
return "Device does not seem to support Ambilight"
|
||||||
|
if (
|
||||||
|
(
|
||||||
|
!defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& !defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
)
|
||||||
|
|| (
|
||||||
|
(
|
||||||
|
defined( $hash->{READINGS}{ambiLEDBottom}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDBottom}{VAL} == 0
|
||||||
|
)
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDLeft}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDLeft}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDRight}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDRight}{VAL} == 0 )
|
||||||
|
&& ( defined( $hash->{READINGS}{ambiLEDTop}{VAL} )
|
||||||
|
&& $hash->{READINGS}{ambiLEDTop}{VAL} == 0 )
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
|
||||||
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
if ( defined( $hash->{READINGS}{rgb}{VAL} )
|
||||||
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
&& $hash->{READINGS}{rgb}{VAL} ne "" )
|
||||||
@ -1377,15 +1562,22 @@ sub PHTV_SendCommand($$;$$$) {
|
|||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my $address = $hash->{helper}{ADDRESS};
|
my $address = $hash->{helper}{ADDRESS};
|
||||||
my $port = $hash->{helper}{PORT};
|
my $port = $hash->{helper}{PORT};
|
||||||
my $protoV =
|
my $protoV = (
|
||||||
( defined( $attr{$name}{jsversion} ) ? $attr{$name}{jsversion} : "1" );
|
defined( $attr{$name}{jsversion} )
|
||||||
|
? $attr{$name}{jsversion}
|
||||||
|
: "1"
|
||||||
|
);
|
||||||
my $timestamp = gettimeofday();
|
my $timestamp = gettimeofday();
|
||||||
my $data;
|
my $data;
|
||||||
my $timeout;
|
my $timeout;
|
||||||
|
|
||||||
if ( defined($delay) && $delay > 0 ) {
|
if ( defined($delay) && $delay > 0 ) {
|
||||||
my %par =
|
my %par = (
|
||||||
( hash => $hash, service => $service, cmd => $cmd, type => $type );
|
hash => $hash,
|
||||||
|
service => $service,
|
||||||
|
cmd => $cmd,
|
||||||
|
type => $type
|
||||||
|
);
|
||||||
InternalTimer( gettimeofday() + $delay,
|
InternalTimer( gettimeofday() + $delay,
|
||||||
"PHTV_SendCommandDelayed", \%par, 0 );
|
"PHTV_SendCommandDelayed", \%par, 0 );
|
||||||
return;
|
return;
|
||||||
@ -1926,13 +2118,15 @@ sub PHTV_ReceiveCommand($$$) {
|
|||||||
# read channel details if type is known
|
# read channel details if type is known
|
||||||
if ( defined( $return->{id} ) && $return->{id} ne "" ) {
|
if ( defined( $return->{id} ) && $return->{id} ne "" ) {
|
||||||
PHTV_SendCommand( $hash, "channels/" . $return->{id} );
|
PHTV_SendCommand( $hash, "channels/" . $return->{id} );
|
||||||
$hash->{helper}{sequentialQueryCounter}++ if $sequential;
|
$hash->{helper}{sequentialQueryCounter}++
|
||||||
|
if $sequential;
|
||||||
}
|
}
|
||||||
|
|
||||||
# read all channellists if not existing
|
# read all channellists if not existing
|
||||||
elsif ( !defined( $hash->{helper}{device}{channellists} ) ) {
|
elsif ( !defined( $hash->{helper}{device}{channellists} ) ) {
|
||||||
PHTV_SendCommand( $hash, "channellists" );
|
PHTV_SendCommand( $hash, "channellists" );
|
||||||
$hash->{helper}{sequentialQueryCounter}++ if $sequential;
|
$hash->{helper}{sequentialQueryCounter}++
|
||||||
|
if $sequential;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
elsif ( $return eq "ok" ) {
|
elsif ( $return eq "ok" ) {
|
||||||
@ -1950,13 +2144,15 @@ sub PHTV_ReceiveCommand($$$) {
|
|||||||
# read channel details if type is known
|
# read channel details if type is known
|
||||||
if ( defined($type) && $type ne "" ) {
|
if ( defined($type) && $type ne "" ) {
|
||||||
PHTV_SendCommand( $hash, "channels/" . $type );
|
PHTV_SendCommand( $hash, "channels/" . $type );
|
||||||
$hash->{helper}{sequentialQueryCounter}++ if $sequential;
|
$hash->{helper}{sequentialQueryCounter}++
|
||||||
|
if $sequential;
|
||||||
}
|
}
|
||||||
|
|
||||||
# read all channellists if not existing
|
# read all channellists if not existing
|
||||||
elsif ( !defined( $hash->{helper}{device}{channellists} ) ) {
|
elsif ( !defined( $hash->{helper}{device}{channellists} ) ) {
|
||||||
PHTV_SendCommand( $hash, "channellists" );
|
PHTV_SendCommand( $hash, "channellists" );
|
||||||
$hash->{helper}{sequentialQueryCounter}++ if $sequential;
|
$hash->{helper}{sequentialQueryCounter}++
|
||||||
|
if $sequential;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -2479,9 +2675,12 @@ sub PHTV_ReceiveCommand($$$) {
|
|||||||
|
|
||||||
my $logtext =
|
my $logtext =
|
||||||
"PHTV $name: processing $ambiHue -> $devled -> dev=$dev";
|
"PHTV $name: processing $ambiHue -> $devled -> dev=$dev";
|
||||||
$logtext .= " led=$led" if ( defined($led) );
|
$logtext .= " led=$led"
|
||||||
$logtext .= " sat=$sat" if ( defined($sat) );
|
if ( defined($led) );
|
||||||
$logtext .= " bri=$bri" if ( defined($bri) );
|
$logtext .= " sat=$sat"
|
||||||
|
if ( defined($sat) );
|
||||||
|
$logtext .= " bri=$bri"
|
||||||
|
if ( defined($bri) );
|
||||||
Log3 $name, 5, $logtext;
|
Log3 $name, 5, $logtext;
|
||||||
|
|
||||||
# next for if HUE device is not ready
|
# next for if HUE device is not ready
|
||||||
@ -2516,7 +2715,8 @@ sub PHTV_ReceiveCommand($$$) {
|
|||||||
|
|
||||||
# user named reference LED(s)
|
# user named reference LED(s)
|
||||||
else {
|
else {
|
||||||
my ( $ledB, $ledE ) = split( /-/, $led );
|
my ( $ledB, $ledE ) =
|
||||||
|
split( /-/, $led );
|
||||||
$ledB -= 1;
|
$ledB -= 1;
|
||||||
$ledE -= 1
|
$ledE -= 1
|
||||||
if ( defined($ledE) && $ledE ne "" );
|
if ( defined($ledE) && $ledE ne "" );
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user