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