2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00

FULLY: Motion detection

git-svn-id: https://svn.fhem.de/fhem/trunk@15416 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
zap 2017-11-10 09:34:06 +00:00
parent 696a2fdcf6
commit 1b1d39ee42
2 changed files with 15 additions and 3 deletions

View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- feature: 89_FULLY: Turn motion detection on or off
- new: 89_FULLY: Control Fully Browser - new: 89_FULLY: Control Fully Browser
- bugfix: 72_FB_CALLMONITOR: replace all unicode placeholders correctly - bugfix: 72_FB_CALLMONITOR: replace all unicode placeholders correctly
in reverse search results in reverse search results

View File

@ -1,6 +1,6 @@
############################################################################## ##############################################################################
# #
# 89_FULLY.pm 0.3 # 89_FULLY.pm 0.4
# #
# $Id$ # $Id$
# #
@ -32,7 +32,7 @@ sub FULLY_GotDeviceInfo ($);
sub FULLY_Abort ($); sub FULLY_Abort ($);
sub FULLY_UpdateReadings ($$); sub FULLY_UpdateReadings ($$);
my $FULLY_VERSION = "0.3"; my $FULLY_VERSION = "0.4";
my $FULLY_TIMEOUT = 4; my $FULLY_TIMEOUT = 4;
my $FULLY_POLL_INTERVAL = 3600; my $FULLY_POLL_INTERVAL = 3600;
@ -173,7 +173,8 @@ sub FULLY_Set ($@)
my ($hash, $a, $h) = @_; my ($hash, $a, $h) = @_;
my $name = shift @$a; my $name = shift @$a;
my $opt = shift @$a; my $opt = shift @$a;
my $options = "clearCache:noArg exit:noArg lock:noArg off:noArg on:noArg restart:noArg unlock:noArg speak url"; my $options = "clearCache:noArg exit:noArg lock:noArg motionDetection:on,off off:noArg ".
"on:noArg restart:noArg unlock:noArg speak url";
my $response; my $response;
# Fully commands without argument # Fully commands without argument
@ -187,6 +188,13 @@ sub FULLY_Set ($@)
if (exists ($cmds{$opt})) { if (exists ($cmds{$opt})) {
$response = FULLY_Execute ($hash, $cmds{$opt}, undef); $response = FULLY_Execute ($hash, $cmds{$opt}, undef);
} }
elsif ($opt eq 'motionDetection') {
my $state = shift @$a;
return "Usage: set $name motionDetection {on|off}" if (!defined ($state));
my $value = $state eq 'on' ? 'true' : 'false';
$response = FULLY_Execute ($hash, "setBooleanSetting",
{ "key" => "motionDetection", "value" => "$value" });
}
elsif ($opt eq 'speak') { elsif ($opt eq 'speak') {
my $text = shift @$a; my $text = shift @$a;
return "Usage: set $name speak {Text}" if (!defined ($text)); return "Usage: set $name speak {Text}" if (!defined ($text));
@ -480,6 +488,9 @@ sub FULLY_UpdateReadings ($$)
<li><b>set &lt;name&gt; exit</b><br/> <li><b>set &lt;name&gt; exit</b><br/>
Terminate Fully. Terminate Fully.
</li><br/> </li><br/>
<li><b>set &lt;name&gt; motionDetection { on | off }</b><br/>
Turn motion detection by camera on or off.
</li><br/>
<li><b>set &lt;name&gt; { lock | unlock }</b><br/> <li><b>set &lt;name&gt; { lock | unlock }</b><br/>
Lock or unlock display. Lock or unlock display.
</li><br/> </li><br/>