FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

PHTV: increase log levels

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8118 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2015-03-01 13:05:24 +00:00
parent a01c622e33
commit 23c916f47d
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/FHEM/70_PHTV.pm
View File

@ -355,7 +355,7 @@ sub PHTV_Set($@) {
# statusRequest # statusRequest
if ( lc( $a[1] ) eq "statusrequest" ) { if ( lc( $a[1] ) eq "statusrequest" ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
delete $hash->{helper}{device} delete $hash->{helper}{device}
if ( defined( $hash->{helper}{device} ) ); if ( defined( $hash->{helper}{device} ) );
@ -367,7 +367,7 @@ sub PHTV_Set($@) {
# toggle # toggle
elsif ( lc($a[1]) eq "toggle" ) { elsif ( lc($a[1]) eq "toggle" ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} ne "on" ) { if ( $hash->{READINGS}{state}{VAL} ne "on" ) {
return PHTV_Set( $hash, $name, "on" ); return PHTV_Set( $hash, $name, "on" );
@ -381,7 +381,7 @@ sub PHTV_Set($@) {
# off # off
# on # on
elsif ( lc($a[1]) eq "off" || lc($a[1]) eq "on" ) { elsif ( lc($a[1]) eq "off" || lc($a[1]) eq "on" ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) { if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
$cmd = PHTV_GetRemotecontrolCommand("STANDBY"); $cmd = PHTV_GetRemotecontrolCommand("STANDBY");
@ -394,7 +394,7 @@ sub PHTV_Set($@) {
# ambiHue # ambiHue
elsif ( lc( $a[1] ) eq "ambihue" ) { elsif ( lc( $a[1] ) eq "ambihue" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -429,7 +429,7 @@ sub PHTV_Set($@) {
# ambiMode # ambiMode
elsif ( lc( $a[1] ) eq "ambimode" ) { elsif ( lc( $a[1] ) eq "ambimode" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -454,7 +454,7 @@ sub PHTV_Set($@) {
# ambiPreset # ambiPreset
elsif ( lc( $a[1] ) eq "ambipreset" ) { elsif ( lc( $a[1] ) eq "ambipreset" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -762,7 +762,7 @@ sub PHTV_Set($@) {
# hue # hue
elsif ( lc($a[1]) eq "hue" ) { elsif ( lc($a[1]) eq "hue" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -799,7 +799,7 @@ sub PHTV_Set($@) {
# sat # sat
elsif ( lc($a[1]) eq "sat" ) { elsif ( lc($a[1]) eq "sat" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -837,7 +837,7 @@ sub PHTV_Set($@) {
# bri # bri
elsif ( lc($a[1]) eq "bri" ) { elsif ( lc($a[1]) eq "bri" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -875,7 +875,7 @@ sub PHTV_Set($@) {
# pct # pct
elsif ( lc($a[1]) eq "pct" ) { elsif ( lc($a[1]) eq "pct" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -915,7 +915,7 @@ sub PHTV_Set($@) {
# volume # volume
elsif ( lc($a[1]) eq "volume" ) { elsif ( lc($a[1]) eq "volume" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -955,7 +955,7 @@ sub PHTV_Set($@) {
# volumeStraight # volumeStraight
elsif ( lc( $a[1] ) eq "volumestraight" ) { elsif ( lc( $a[1] ) eq "volumestraight" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return "No argument given" if ( !defined( $a[2] ) ); return "No argument given" if ( !defined( $a[2] ) );
@ -992,7 +992,7 @@ sub PHTV_Set($@) {
# volumeUp/volumeDown # volumeUp/volumeDown
elsif ( lc( $a[1] ) =~ /^(volumeup|volumedown)$/ ) { elsif ( lc( $a[1] ) =~ /^(volumeup|volumedown)$/ ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
if ( lc( $a[1] ) eq "volumeup" ) { if ( lc( $a[1] ) eq "volumeup" ) {
@ -1012,10 +1012,10 @@ sub PHTV_Set($@) {
# mute # mute
elsif ( lc($a[1]) eq "mute" || lc($a[1]) eq "mutet" ) { elsif ( lc($a[1]) eq "mute" || lc($a[1]) eq "mutet" ) {
if ( defined( $a[2] ) ) { if ( defined( $a[2] ) ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
} }
else { else {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
} }
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
@ -1054,7 +1054,7 @@ sub PHTV_Set($@) {
# remoteControl # remoteControl
elsif ( lc( $a[1] ) eq "remotecontrol" ) { elsif ( lc( $a[1] ) eq "remotecontrol" ) {
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
if ( $hash->{READINGS}{state}{VAL} ne "absent" ) { if ( $hash->{READINGS}{state}{VAL} ne "absent" ) {
if ( !defined( $a[2] ) ) { if ( !defined( $a[2] ) ) {
@ -1118,7 +1118,7 @@ sub PHTV_Set($@) {
PHTV_Set( $hash, $name, "on" ); PHTV_Set( $hash, $name, "on" );
} }
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
return return
"No argument given, choose one of channel presetNumber channelName " "No argument given, choose one of channel presetNumber channelName "
@ -1154,7 +1154,7 @@ sub PHTV_Set($@) {
# channelUp/channelDown # channelUp/channelDown
elsif ( lc( $a[1] ) =~ /^(channelup|channeldown)$/ ) { elsif ( lc( $a[1] ) =~ /^(channelup|channeldown)$/ ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
if ( lc( $a[1] ) eq "channelup" ) { if ( lc( $a[1] ) eq "channelup" ) {
@ -1183,7 +1183,7 @@ sub PHTV_Set($@) {
return "No 2nd argument given" if ( !defined( $a[2] ) ); return "No 2nd argument given" if ( !defined( $a[2] ) );
Log3 $name, 2, "PHTV set $name " . $a[1] . " " . $a[2]; Log3 $name, 3, "PHTV set $name " . $a[1] . " " . $a[2];
# Alias handling # Alias handling
$a[2] = $hash->{helper}{device}{inputNames}{ $a[2] } $a[2] = $hash->{helper}{device}{inputNames}{ $a[2] }
@ -1216,7 +1216,7 @@ sub PHTV_Set($@) {
# play / pause # play / pause
elsif ( lc($a[1]) =~ /^(play|pause)$/ ) { elsif ( lc($a[1]) =~ /^(play|pause)$/ ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
$cmd = PHTV_GetRemotecontrolCommand("PLAYPAUSE"); $cmd = PHTV_GetRemotecontrolCommand("PLAYPAUSE");
@ -1229,7 +1229,7 @@ sub PHTV_Set($@) {
# stop # stop
elsif ( lc($a[1]) eq "stop" ) { elsif ( lc($a[1]) eq "stop" ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
$cmd = PHTV_GetRemotecontrolCommand("STOP"); $cmd = PHTV_GetRemotecontrolCommand("STOP");
@ -1242,7 +1242,7 @@ sub PHTV_Set($@) {
# record # record
elsif ( lc($a[1]) eq "record" ) { elsif ( lc($a[1]) eq "record" ) {
Log3 $name, 2, "PHTV set $name " . $a[1]; Log3 $name, 3, "PHTV set $name " . $a[1];
if ( $hash->{READINGS}{state}{VAL} eq "on" ) { if ( $hash->{READINGS}{state}{VAL} eq "on" ) {
$cmd = PHTV_GetRemotecontrolCommand("RECORD"); $cmd = PHTV_GetRemotecontrolCommand("RECORD");