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

10_EQ3BT: support childlock

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dominikkarall 2018-02-24 14:59:23 +00:00
parent aab52673de
commit ecb9c4ce46
1 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
fhem/FHEM/10_EQ3BT.pm
View File

@ -1,15 +1,16 @@
#############################################################
#
# EQ3BT.pm (c) by Dominik Karall, 2016-2017
# EQ3BT.pm (c) by Dominik Karall, 2016-2018
# dominik karall at gmail dot com
# $Id$
#
# FHEM module to communicate with EQ-3 Bluetooth thermostats
#
# Version: 2.0.3
#
#############################################################
#
# v2.0.4 - 20180224
# - FEATURE: support childlock
#
# v2.0.3 - 20171218
# - FEATURE: support maxRetries and timeout attribute
# maxRetries...number of tries before error is counted
@ -170,7 +171,7 @@ sub EQ3BT_Define($$) {
my $sshHost;
$hash->{STATE} = "initialized";
$hash->{VERSION} = "2.0.3";
$hash->{VERSION} = "2.0.4";
Log3 $hash, 3, "EQ3BT: EQ-3 Bluetooth Thermostat ".$hash->{VERSION};
if (int(@a) > 4) {
@ -254,7 +255,7 @@ sub EQ3BT_Set($@) {
my ($hash, $name, @params) = @_;
my $workType = shift(@params);
my $list = "desiredTemperature:slider,4.5,0.5,29.5,1 updateStatus:noArg boost:on,off mode:manual,automatic eco:noArg comfort:noArg ".
"resetErrorCounters:noArg resetConsumption:noArg";
"resetErrorCounters:noArg resetConsumption:noArg childlock:on,off";
# check parameters for set function
if($workType eq "?") {
@ -673,8 +674,8 @@ sub EQ3BT_processNotification {
my $isBoost = (hex($vals[2]) & 4) >> 2;
my $dst = (hex($vals[2]) & 8) >> 3;
my $wndOpen = (hex($vals[2]) & 16) >> 4;
my $unknown = (hex($vals[2]) & 32) >> 5;
$unknown = (hex($vals[2]) & 64) >> 6;
my $locked = (hex($vals[2]) & 32) >> 5;
my $unknown = (hex($vals[2]) & 64) >> 6;
my $isLowBattery = (hex($vals[2]) & 128) >> 7;
my $batteryStr = "ok";
if($isLowBattery > 0) {
@ -709,6 +710,7 @@ sub EQ3BT_processNotification {
readingsSingleUpdate($hash, "valvePosition", $pct, 1);
#changes below this line will set lastchangeby
EQ3BT_readingsSingleUpdateIfChanged($hash, "windowOpen", $wndOpen, 1);
EQ3BT_readingsSingleUpdateIfChanged($hash, "childlock", $locked, 1);
EQ3BT_readingsSingleUpdateIfChanged($hash, "ecoMode", $eco, 1);
EQ3BT_readingsSingleUpdateIfChanged($hash, "battery", $batteryStr, 1);
EQ3BT_readingsSingleUpdateIfChanged($hash, "boost", $isBoost, 1);
@ -744,7 +746,26 @@ sub EQ3BT_setNightmode($) {
}
sub EQ3BT_setChildlock($$) {
my ($hash, $desiredState) = @_;
my ($hash, $onoff) = @_;
my $name = $hash->{NAME};
my $data = "01";
$data = "00" if($onoff eq "off");
$hash->{helper}{RUNNING_PID} = BlockingCall("EQ3BT_execGatttool", $name."|".$hash->{MAC}."|setChildlock|0x0411|80".$data, "EQ3BT_processGatttoolResult", 60, "EQ3BT_killGatttool", $hash);
return undef;
}
sub EQ3BT_setChildlockSuccessful {
my ($hash, $handle, $value) = @_;
my $val = (hex($value) - 0x8000);
readingsSingleUpdate($hash, "childlock", $val, 1);
return undef;
}
sub EQ3BT_setChildlockRetry {
my ($hash) = @_;
EQ3BT_retryGatttool($hash, "setChildlock");
return undef;
}
sub EQ3BT_setHolidaymode($$) {