From 263e14f63daa730af00fcea08f350597a023e90d Mon Sep 17 00:00:00 2001 From: zap <> Date: Mon, 13 Nov 2017 12:46:53 +0000 Subject: [PATCH] FULLY: Adjust brightness git-svn-id: https://svn.fhem.de/fhem/trunk@15428 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/89_FULLY.pm | 21 +++++++++++++++++---- 2 files changed, 18 insertions(+), 4 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 26b442c8f..f2510c658 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - feature: 89_FULLY: New commands for motion detection and brightness - update: 98_Siro.pm: add Disable attribute - bugfix: 50_TelegramBot: fix minusdesc warning / cleanup - fix: 71_YAMAHA_AVR: fix navigateListMenu on RX-Vx65/RX-Vx67 series diff --git a/fhem/FHEM/89_FULLY.pm b/fhem/FHEM/89_FULLY.pm index 17921c944..4117aef45 100755 --- a/fhem/FHEM/89_FULLY.pm +++ b/fhem/FHEM/89_FULLY.pm @@ -1,6 +1,6 @@ ############################################################################## # -# 89_FULLY.pm 0.4 +# 89_FULLY.pm 0.5 # # $Id$ # @@ -32,7 +32,7 @@ sub FULLY_GotDeviceInfo ($); sub FULLY_Abort ($); sub FULLY_UpdateReadings ($$); -my $FULLY_VERSION = "0.4"; +my $FULLY_VERSION = "0.5"; my $FULLY_TIMEOUT = 4; my $FULLY_POLL_INTERVAL = 3600; @@ -173,8 +173,8 @@ sub FULLY_Set ($@) my ($hash, $a, $h) = @_; my $name = shift @$a; my $opt = shift @$a; - my $options = "clearCache:noArg exit:noArg lock:noArg motionDetection:on,off off:noArg ". - "on:noArg restart:noArg unlock:noArg speak url"; + my $options = "brightness clearCache:noArg exit:noArg lock:noArg motionDetection:on,off ". + "off:noArg on:noArg restart:noArg unlock:noArg speak url"; my $response; # Fully commands without argument @@ -188,6 +188,13 @@ sub FULLY_Set ($@) if (exists ($cmds{$opt})) { $response = FULLY_Execute ($hash, $cmds{$opt}, undef); } + elsif ($opt eq 'brightness') { + my $value = shift @$a; + return "Usage: set $name brightness 0-255" if (!defined ($value)); + $value = 255 if ($value > 255); + $response = FULLY_Execute ($hash, "setStringSetting", + { "key" => "screenBrightness", "value" => "$value" }); + } elsif ($opt eq 'motionDetection') { my $state = shift @$a; return "Usage: set $name motionDetection {on|off}" if (!defined ($state)); @@ -348,6 +355,9 @@ sub FULLY_ProcessDeviceInfo ($$) next; } } + elsif ($rn eq 'screen_brightness') { + $rn = "brightness"; + } elsif ($rn eq 'screen_status') { $parameters .= "|state=$rv"; } @@ -482,6 +492,9 @@ sub FULLY_UpdateReadings ($$) Set