| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888 |
- ###############################################################################
- #
- # Developed with Kate
- #
- # (c) 2016-2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
- # All rights reserved
- #
- # This script is free software; you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation; either version 2 of the License, or
- # any later version.
- #
- # The GNU General Public License can be found at
- # http://www.gnu.org/copyleft/gpl.html.
- # A copy is found in the textfile GPL.txt and important notices to the license
- # from the author is found in LICENSE.txt distributed with these scripts.
- #
- # This script is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
- #
- #
- # $Id: 74_XiaomiFlowerSens.pm 15805 2018-01-06 20:11:24Z CoolTux $
- #
- ###############################################################################
- #$cmd = "qx(gatttool -i $hci -b $mac --char-write-req -a 0x33 -n A01F";
- #$cmd = "qx(gatttool -i $hci -b $mac --char-read -a 0x35"; # Sensor Daten
- #$cmd = "qx(gatttool -i $hci -b $mac --char-read -a 0x38"; # Firmware und Batterie
- # e8 00 00 58 0f 00 00 34 f1 02 02 3c 00 fb 34 9b
-
-
-
-
- package main;
- use strict;
- use warnings;
- use POSIX;
- use JSON;
- use Blocking;
- my $version = "1.4.1";
- my %CallBatteryFirmwareAge = ( '8h' => 28800,
- '16h' => 57600,
- '24h' => 86400,
- '32h' => 115200,
- '40h' => 144000,
- '48h' => 172800
- );
- # Declare functions
- sub XiaomiFlowerSens_Initialize($);
- sub XiaomiFlowerSens_Define($$);
- sub XiaomiFlowerSens_Undef($$);
- sub XiaomiFlowerSens_Attr(@);
- sub XiaomiFlowerSens_stateRequest($);
- sub XiaomiFlowerSens_stateRequestTimer($);
- sub XiaomiFlowerSens_Set($$@);
- sub XiaomiFlowerSens_Get($$@);
- sub XiaomiFlowerSens_Notify($$);
- sub XiaomiFlowerSens_CallBatteryFirmware($);
- sub XiaomiFlowerSens_CallSensData($);
- sub XiaomiFlowerSens_WriteSensData($);
- sub XiaomiFlowerSens_ExecGatttool_Run($);
- sub XiaomiFlowerSens_ExecGatttool_Done($);
- sub XiaomiFlowerSens_ExecGatttool_Aborted($);
- sub XiaomiFlowerSens_ProcessingNotification($@);
- sub XiaomiFlowerSens_WriteReadings($$);
- sub XiaomiFlowerSens_ProcessingErrors($$);
- sub XiaomiFlowerSens_CallBatteryFirmware_IsUpdateTimeAgeToOld($$);
- sub XiaomiFlowerSens_CallBatteryFirmware_Timestamp($);
- sub XiaomiFlowerSens_CallBatteryFirmware_UpdateTimeAge($);
- sub XiaomiFlowerSens_encodeJSON($);
- sub XiaomiFlowerSens_Handle0x35($$);
- sub XiaomiFlowerSens_Handle0x38($$);
- sub XiaomiFlowerSens_Initialize($) {
- my ($hash) = @_;
- $hash->{SetFn} = "XiaomiFlowerSens_Set";
- $hash->{GetFn} = "XiaomiFlowerSens_Get";
- $hash->{DefFn} = "XiaomiFlowerSens_Define";
- $hash->{NotifyFn} = "XiaomiFlowerSens_Notify";
- $hash->{UndefFn} = "XiaomiFlowerSens_Undef";
- $hash->{AttrFn} = "XiaomiFlowerSens_Attr";
- $hash->{AttrList} = "interval ".
- "disable:1 ".
- "disabledForIntervals ".
- "hciDevice:hci0,hci1,hci2 ".
- "batteryFirmwareAge:8h,16h,24h,32h,40h,48h ".
- "minFertility ".
- "maxFertility ".
- "minTemp ".
- "maxTemp ".
- "minMoisture ".
- "maxMoisture ".
- "minLux ".
- "maxLux ".
- "sshHost ".
- "blockingCallLoglevel:2,3,4,5 ".
- $readingFnAttributes;
- foreach my $d(sort keys %{$modules{XiaomiFlowerSens}{defptr}}) {
- my $hash = $modules{XiaomiFlowerSens}{defptr}{$d};
- $hash->{VERSION} = $version;
- }
- }
- sub XiaomiFlowerSens_Define($$) {
- my ( $hash, $def ) = @_;
- my @a = split( "[ \t][ \t]*", $def );
-
- return "too few parameters: define <name> XiaomiFlowerSens <BTMAC>" if( @a != 3 );
-
- my $name = $a[0];
- my $mac = $a[2];
-
- $hash->{BTMAC} = $mac;
- $hash->{VERSION} = $version;
- $hash->{INTERVAL} = 300;
- $hash->{helper}{CallSensDataCounter} = 0;
- $hash->{helper}{CallBatteryFirmware} = 0;
- $hash->{NOTIFYDEV} = "global";
- $hash->{loglevel} = 4;
-
-
- readingsSingleUpdate($hash,"state","initialized", 0);
- $attr{$name}{room} = "FlowerSens" if( !defined($attr{$name}{room}) );
-
- Log3 $name, 3, "XiaomiFlowerSens ($name) - defined with BTMAC $hash->{BTMAC}";
-
- $modules{XiaomiFlowerSens}{defptr}{$hash->{BTMAC}} = $hash;
- return undef;
- }
- sub XiaomiFlowerSens_Undef($$) {
- my ( $hash, $arg ) = @_;
-
- my $mac = $hash->{BTMAC};
- my $name = $hash->{NAME};
-
-
- RemoveInternalTimer($hash);
- BlockingKill($hash->{helper}{RUNNING_PID}) if(defined($hash->{helper}{RUNNING_PID}));
-
- delete($modules{XiaomiFlowerSens}{defptr}{$mac});
- Log3 $name, 3, "Sub XiaomiFlowerSens_Undef ($name) - delete device $name";
- return undef;
- }
- sub XiaomiFlowerSens_Attr(@) {
- my ( $cmd, $name, $attrName, $attrVal ) = @_;
- my $hash = $defs{$name};
- if( $attrName eq "disable" ) {
- if( $cmd eq "set" and $attrVal eq "1" ) {
- RemoveInternalTimer($hash);
- readingsSingleUpdate ( $hash, "state", "disabled", 1 );
- Log3 $name, 3, "XiaomiFlowerSens ($name) - disabled";
- }
- elsif( $cmd eq "del" ) {
- Log3 $name, 3, "XiaomiFlowerSens ($name) - enabled";
- }
- }
-
- elsif( $attrName eq "disabledForIntervals" ) {
- if( $cmd eq "set" ) {
- return "check disabledForIntervals Syntax HH:MM-HH:MM or 'HH:MM-HH:MM HH:MM-HH:MM ...'"
- unless($attrVal =~ /^((\d{2}:\d{2})-(\d{2}:\d{2})\s?)+$/);
- Log3 $name, 3, "XiaomiFlowerSens ($name) - disabledForIntervals";
- readingsSingleUpdate ( $hash, "state", "disabled", 1 );
- }
-
- elsif( $cmd eq "del" ) {
- Log3 $name, 3, "XiaomiFlowerSens ($name) - enabled";
- readingsSingleUpdate ( $hash, "state", "active", 1 );
- }
- }
-
- elsif( $attrName eq "interval" ) {
- if( $cmd eq "set" ) {
- if( $attrVal < 300 ) {
- Log3 $name, 3, "XiaomiFlowerSens ($name) - interval too small, please use something >= 300 (sec), default is 3600 (sec)";
- return "interval too small, please use something >= 300 (sec), default is 3600 (sec)";
- } else {
- $hash->{INTERVAL} = $attrVal;
- Log3 $name, 3, "XiaomiFlowerSens ($name) - set interval to $attrVal";
- }
- }
- elsif( $cmd eq "del" ) {
- $hash->{INTERVAL} = 300;
- Log3 $name, 3, "XiaomiFlowerSens ($name) - set interval to default";
- }
- }
-
- elsif( $attrName eq "blockingCallLoglevel" ) {
- if( $cmd eq "set" ) {
- $hash->{loglevel} = $attrVal;
- Log3 $name, 3, "XiaomiFlowerSens ($name) - set blockingCallLoglevel to $attrVal";
- }
- elsif( $cmd eq "del" ) {
- $hash->{loglevel} = 4;
- Log3 $name, 3, "XiaomiFlowerSens ($name) - set blockingCallLoglevel to default";
- }
- }
-
- return undef;
- }
- sub XiaomiFlowerSens_Notify($$) {
- my ($hash,$dev) = @_;
- my $name = $hash->{NAME};
- return if (IsDisabled($name));
-
- my $devname = $dev->{NAME};
- my $devtype = $dev->{TYPE};
- my $events = deviceEvents($dev,1);
- return if (!$events);
- XiaomiFlowerSens_stateRequestTimer($hash) if( (grep /^DEFINED.$name$/,@{$events}
- or grep /^INITIALIZED$/,@{$events}
- or grep /^MODIFIED.$name$/,@{$events}
- or grep /^DELETEATTR.$name.disable$/,@{$events}
- or grep /^ATTR.$name.disable.0$/,@{$events}
- or grep /^DELETEATTR.$name.interval$/,@{$events}
- or grep /^ATTR.$name.interval.[0-9]+/,@{$events} ) and $init_done );
- return;
- }
- sub XiaomiFlowerSens_stateRequest($) {
- my ($hash) = @_;
- my $name = $hash->{NAME};
- my %readings;
-
-
- if( !IsDisabled($name) ) {
- if( ReadingsVal($name,'firmware','none') ne 'none') {
-
- return XiaomiFlowerSens_CallBatteryFirmware($hash)
- if( XiaomiFlowerSens_CallBatteryFirmware_IsUpdateTimeAgeToOld($hash,$CallBatteryFirmwareAge{AttrVal($name,'BatteryFirmwareAge','24h')}) );
-
- if( ReadingsVal($name, 'firmware', '') eq '2.6.2') {
- XiaomiFlowerSens_CallSensData($hash);
- } else {
- if( $hash->{helper}{CallSensDataCounter} < 1 ) {
- XiaomiFlowerSens_WriteSensData($hash);
- $hash->{helper}{CallSensDataCounter} = $hash->{helper}{CallSensDataCounter} + 1;
-
- } else {
- $readings{'lastGattError'} = 'charWrite faild';
- XiaomiFlowerSens_WriteReadings($hash,\%readings);
- $hash->{helper}{CallSensDataCounter} = 0;
- return;
- }
- }
-
- } else {
-
- XiaomiFlowerSens_CallBatteryFirmware($hash);
- }
-
- readingsSingleUpdate($hash,"state","fetch sensor data",1);
- } else {
- readingsSingleUpdate($hash,"state","disabled",1);
- }
- }
- sub XiaomiFlowerSens_stateRequestTimer($) {
- my ($hash) = @_;
-
- my $name = $hash->{NAME};
-
- RemoveInternalTimer($hash);
-
- if( $init_done and not IsDisabled($name) ) {
-
- XiaomiFlowerSens_stateRequest($hash);
-
- } else {
- readingsSingleUpdate ( $hash, "state", "disabled", 1 );
- }
-
- InternalTimer( gettimeofday()+$hash->{INTERVAL}+int(rand(300)), "XiaomiFlowerSens_stateRequestTimer", $hash, 1 );
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - stateRequestTimer: Call Request Timer";
- }
- sub XiaomiFlowerSens_CallBatteryFirmware($) {
- my $hash = shift;
-
- my $name = $hash->{NAME};
- my $mac = $hash->{BTMAC};
-
- $hash->{helper}{RUNNING_PID} = BlockingCall("XiaomiFlowerSens_ExecGatttool_Run", $name."|".$mac."|read|0x38", "XiaomiFlowerSens_ExecGatttool_Done", 60, "XiaomiFlowerSens_ExecGatttool_Aborted", $hash) unless(exists($hash->{helper}{RUNNING_PID}));
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - CallBatteryFirmware: call function ExecGatttool_Run";
- }
- sub XiaomiFlowerSens_CallSensData($) {
- my $hash = shift;
-
- my $name = $hash->{NAME};
- my $mac = $hash->{BTMAC};
-
- $hash->{helper}{RUNNING_PID} = BlockingCall("XiaomiFlowerSens_ExecGatttool_Run", $name."|".$mac."|read|0x35", "XiaomiFlowerSens_ExecGatttool_Done", 60, "XiaomiFlowerSens_ExecGatttool_Aborted", $hash) unless(exists($hash->{helper}{RUNNING_PID}));
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - CallSensData: call function ExecGatttool_Run";
- }
- sub XiaomiFlowerSens_WriteSensData($) {
- my $hash = shift;
-
- my $name = $hash->{NAME};
- my $mac = $hash->{BTMAC};
- $hash->{helper}{RUNNING_PID} = BlockingCall("XiaomiFlowerSens_ExecGatttool_Run", $name."|".$mac."|write|0x33|A01F", "XiaomiFlowerSens_ExecGatttool_Done", 60, "XiaomiFlowerSens_ExecGatttool_Aborted", $hash) unless(exists($hash->{helper}{RUNNING_PID}));
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - WriteSensData: call function ExecGatttool_Run";
- }
- sub XiaomiFlowerSens_Set($$@) {
-
- my ($hash, $name, @aa) = @_;
- my ($cmd, @args) = @aa;
-
- if( $cmd eq 'clearFirmwareReading' ) {
- return "usage: clearFirmwareReading" if( @args != 0 );
-
- readingsSingleUpdate($hash,'firmware','',0);
-
- } else {
- my $list = "clearFirmwareReading:noArg";
- return "Unknown argument $cmd, choose one of $list";
- }
-
- return undef;
- }
- sub XiaomiFlowerSens_Get($$@) {
-
- my ($hash, $name, @aa) = @_;
- my ($cmd, @args) = @aa;
-
- if( $cmd eq 'statusRequest' ) {
- return "usage: statusRequest" if( @args != 0 );
-
- XiaomiFlowerSens_stateRequest($hash);
-
- } else {
- my $list = "statusRequest:noArg";
- return "Unknown argument $cmd, choose one of $list";
- }
-
- return undef;
- }
- sub XiaomiFlowerSens_ExecGatttool_Run($) {
- my $string = shift;
-
- my ($name,$mac,$gattCmd,$handle,$value) = split("\\|", $string);
- my $sshHost = AttrVal($name,"sshHost","none");
- my $gatttool;
- $gatttool = qx(which gatttool) if($sshHost eq 'none');
- $gatttool = qx(ssh $sshHost 'which gatttool') if($sshHost ne 'none');
- chomp $gatttool;
-
- if(-x $gatttool) {
-
- my $cmd;
- my $loop;
- my @gtResult;
- my $wait = 1;
- my $sshHost = AttrVal($name,"sshHost","none");
- my $hci = AttrVal($name,"hciDevice","hci0");
-
- while($wait) {
-
- my $grepGatttool;
- $grepGatttool = qx(ps ax| grep -E \'gatttool -i $hci -b $mac\' | grep -v grep) if($sshHost eq 'none');
- $grepGatttool = qx(ssh $sshHost 'ps ax| grep -E "gatttool -i $hci -b $mac" | grep -v grep') if($sshHost ne 'none');
- if(not $grepGatttool =~ /^\s*$/) {
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ExecGatttool_Run: another gatttool process is running. waiting...";
- sleep(1);
- } else {
- $wait = 0;
- }
- }
-
- $cmd .= "ssh $sshHost '" if($sshHost ne 'none');
- $cmd .= "gatttool -i $hci -b $mac ";
- $cmd .= "--char-read -a $handle" if($gattCmd eq 'read');
- $cmd .= "--char-write-req -a $handle -n $value" if($gattCmd eq 'write');
- $cmd .= " 2>&1 /dev/null";
- $cmd .= "'" if($sshHost ne 'none');
- $cmd = "ssh $sshHost 'gatttool -i $hci -b $mac --char-write-req -a 0x33 -n A01F && gatttool -i $hci -b $mac --char-read -a 0x35 2>&1 /dev/null'" if($sshHost ne 'none' and $gattCmd eq 'write');
-
- $loop = 0;
- do {
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ExecGatttool_Run: call gatttool with command $cmd and loop $loop";
- @gtResult = split(": ",qx($cmd));
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ExecGatttool_Run: gatttool loop result ".join(",", @gtResult);
- $loop++;
-
- $gtResult[0] = 'connect error'
- unless( defined($gtResult[0]) );
-
- } while( $loop < 5 and $gtResult[0] eq 'connect error' );
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - ExecGatttool_Run: gatttool result ".join(",", @gtResult);
-
- $handle = '0x35' if($sshHost ne 'none' and $gattCmd eq 'write');
- $gattCmd = 'read' if($sshHost ne 'none' and $gattCmd eq 'write');
- $gtResult[1] = 'no data response'
- unless( defined($gtResult[1]) );
-
- my $json_notification = XiaomiFlowerSens_encodeJSON($gtResult[1]);
-
- if($gtResult[1] =~ /^([0-9a-f]{2}(\s?))*$/) {
- return "$name|$mac|ok|$gattCmd|$handle|$json_notification";
- } elsif($gtResult[0] ne 'connect error' and $gattCmd eq 'write') {
- if( $sshHost ne 'none' ) {
- XiaomiFlowerSens_ExecGatttool_Run($name."|".$mac."|read|0x35");
- } else {
- return "$name|$mac|ok|$gattCmd|$handle|$json_notification";
- }
- } else {
- return "$name|$mac|error|$gattCmd|$handle|$json_notification";
- }
- } else {
- return "$name|$mac|error|$gattCmd|$handle|no gatttool binary found. Please check if bluez-package is properly installed";
- }
- }
- sub XiaomiFlowerSens_ExecGatttool_Done($) {
- my $string = shift;
- my ($name,$mac,$respstate,$gattCmd,$handle,$json_notification) = split("\\|", $string);
-
- my $hash = $defs{$name};
-
-
- delete($hash->{helper}{RUNNING_PID});
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ExecGatttool_Done: Helper is disabled. Stop processing" if($hash->{helper}{DISABLED});
- return if($hash->{helper}{DISABLED});
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - ExecGatttool_Done: gatttool return string: $string";
-
- my $decode_json = eval{decode_json($json_notification)};
- if($@){
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ExecGatttool_Done: JSON error while request: $@";
- }
-
-
- if( $respstate eq 'ok' and $gattCmd eq 'read' ) {
- XiaomiFlowerSens_ProcessingNotification($hash,$handle,$decode_json->{gtResult});
-
- } elsif( $respstate eq 'ok' and $gattCmd eq 'write' ) {
- XiaomiFlowerSens_CallSensData($hash);
-
- } else {
- XiaomiFlowerSens_ProcessingErrors($hash,$decode_json->{gtResult});
- }
- }
- sub XiaomiFlowerSens_ExecGatttool_Aborted($) {
- my ($hash) = @_;
- my $name = $hash->{NAME};
- my %readings;
- delete($hash->{helper}{RUNNING_PID});
- readingsSingleUpdate($hash,"state","unreachable", 1);
-
- $readings{'lastGattError'} = 'The BlockingCall Process terminated unexpectedly. Timedout';
- XiaomiFlowerSens_WriteReadings($hash,\%readings);
- Log3 $name, 4, "XiaomiFlowerSens ($name) - ExecGatttool_Aborted: The BlockingCall Process terminated unexpectedly. Timedout";
- }
- sub XiaomiFlowerSens_ProcessingNotification($@) {
- my ($hash,$handle,$notification) = @_;
-
- my $name = $hash->{NAME};
- my $readings;
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ProcessingNotification";
-
- if( $handle eq '0x38' ) {
- ### Read Firmware and Battery Data
- Log3 $name, 4, "XiaomiFlowerSens ($name) - ProcessingNotification: handle 0x38";
-
- $readings = XiaomiFlowerSens_Handle0x38($hash,$notification);
-
- } elsif( $handle eq '0x35' ) {
- ### Read Sensor Data
- Log3 $name, 4, "XiaomiFlowerSens ($name) - ProcessingNotification: handle 0x35";
-
- $readings = XiaomiFlowerSens_Handle0x35($hash,$notification);
- }
-
- XiaomiFlowerSens_WriteReadings($hash,$readings);
- }
- sub XiaomiFlowerSens_Handle0x38($$) {
- ### Read Firmware and Battery Data
- my ($hash,$notification) = @_;
-
- my $name = $hash->{NAME};
- my %readings;
-
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - Handle0x38";
- my @dataBatFw = split(" ",$notification);
- my $blevel = hex("0x".$dataBatFw[0]);
- my $fw = ($dataBatFw[2]-30).".".($dataBatFw[4]-30).".".($dataBatFw[6]-30);
-
- $readings{'batteryLevel'} = $blevel;
- $readings{'battery'} = ($blevel > 20?"ok":"low");
- $readings{'firmware'} = $fw;
-
- $hash->{helper}{CallBatteryFirmware} = 1;
- XiaomiFlowerSens_CallBatteryFirmware_Timestamp($hash);
- return \%readings;
- }
- sub XiaomiFlowerSens_Handle0x35($$) {
- ### Read Sensor Data
- my ($hash,$notification) = @_;
-
- my $name = $hash->{NAME};
- my %readings;
-
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - Handle0x35";
-
- my @dataSensor = split(" ",$notification);
- return XiaomiFlowerSens_stateRequest($hash)
- unless( $dataSensor[0] ne "aa" and $dataSensor[1] ne "bb" and $dataSensor[2] ne "cc" and $dataSensor[3] ne "dd" and $dataSensor[4] ne "ee" and $dataSensor[5] ne "ff");
- my $temp;
-
- if( $dataSensor[1] eq "ff" ) {
- $temp = hex("0x".$dataSensor[1].$dataSensor[0]) - hex("0xffff");
- } else {
- $temp = hex("0x".$dataSensor[1].$dataSensor[0]);
- }
-
- my $lux = hex("0x".$dataSensor[4].$dataSensor[3]);
- my $moisture = hex("0x".$dataSensor[7]);
- my $fertility = hex("0x".$dataSensor[9].$dataSensor[8]);
- $readings{'temperature'} = $temp/10;
- $readings{'lux'} = $lux;
- $readings{'moisture'} = $moisture;
- $readings{'fertility'} = $fertility;
-
- $hash->{helper}{CallBatteryFirmware} = 0;
- return \%readings;
- }
- sub XiaomiFlowerSens_WriteReadings($$) {
- my ($hash,$readings) = @_;
-
- my $name = $hash->{NAME};
- readingsBeginUpdate($hash);
- while( my ($r,$v) = each %{$readings} ) {
- readingsBulkUpdate($hash,$r,$v);
- }
- readingsBulkUpdateIfChanged($hash, "state", ($readings->{'lastGattError'}?'error':'active'));
- readingsEndUpdate($hash,1);
-
- if( defined($readings->{temperature}) ) {
- DoTrigger($name, 'minFertility ' . ($readings->{fertility}<AttrVal($name,'minFertility',0)?'low':'ok')) if( AttrVal($name,'minFertility','none') ne 'none' );
- DoTrigger($name, 'maxFertility ' . ($readings->{fertility}>AttrVal($name,'maxFertility',0)?'high':'ok')) if( AttrVal($name,'maxFertility','none') ne 'none' );
-
- DoTrigger($name, 'minTemp ' . ($readings->{temperature}<AttrVal($name,'minTemp',0)?'low':'ok')) if( AttrVal($name,'minTemp','none') ne 'none' );
- DoTrigger($name, 'maxTemp ' . ($readings->{temperature}>AttrVal($name,'maxTemp',0)?'high':'ok')) if( AttrVal($name,'maxTemp','none') ne 'none' );
-
- DoTrigger($name, 'minMoisture ' . ($readings->{moisture}<AttrVal($name,'minMoisture',0)?'low':'ok')) if( AttrVal($name,'minMoisture','none') ne 'none' );
- DoTrigger($name, 'maxMoisture ' . ($readings->{moisture}>AttrVal($name,'maxMoisture',0)?'high':'ok')) if( AttrVal($name,'maxMoisture','none') ne 'none' );
-
- DoTrigger($name, 'minLux ' . ($readings->{lux}<AttrVal($name,'minLux',0)?'low':'ok')) if( AttrVal($name,'minLux','none') ne 'none' );
- DoTrigger($name, 'maxLux ' . ($readings->{lux}>AttrVal($name,'maxLux',0)?'high':'ok')) if( AttrVal($name,'maxLux','none') ne 'none' );
- }
-
- Log3 $name, 4, "XiaomiFlowerSens ($name) - WriteReadings: Readings were written";
- $hash->{helper}{CallSensDataCounter} = 0;
- XiaomiFlowerSens_stateRequest($hash) if( $hash->{helper}{CallBatteryFirmware} == 1 );
- }
- sub XiaomiFlowerSens_ProcessingErrors($$) {
- my ($hash,$notification) = @_;
-
- my $name = $hash->{NAME};
- my %readings;
-
- Log3 $name, 5, "XiaomiFlowerSens ($name) - ProcessingErrors";
- $readings{'lastGattError'} = $notification;
-
- XiaomiFlowerSens_WriteReadings($hash,\%readings);
- }
- #### my little Helper
- sub XiaomiFlowerSens_encodeJSON($) {
- my $gtResult = shift;
-
-
- chomp($gtResult);
-
- my %response = (
- 'gtResult' => $gtResult
- );
-
- return encode_json \%response;
- }
- ## Routinen damit Firmware und Batterie nur alle X male statt immer aufgerufen wird
- sub XiaomiFlowerSens_CallBatteryFirmware_Timestamp($) {
- my $hash = shift;
-
-
- # get timestamp
- $hash->{helper}{updateTimeCallBatteryFirmware} = gettimeofday(); # in seconds since the epoch
- $hash->{helper}{updateTimestampCallBatteryFirmware} = FmtDateTime(gettimeofday());
- }
- sub XiaomiFlowerSens_CallBatteryFirmware_UpdateTimeAge($) {
- my $hash = shift;
-
- $hash->{helper}{updateTimeCallBatteryFirmware} = 0 if( not defined($hash->{helper}{updateTimeCallBatteryFirmware}) );
- my $UpdateTimeAge = gettimeofday() - $hash->{helper}{updateTimeCallBatteryFirmware};
-
- return $UpdateTimeAge;
- }
- sub XiaomiFlowerSens_CallBatteryFirmware_IsUpdateTimeAgeToOld($$) {
- my ($hash,$maxAge) = @_;;
-
-
- return (XiaomiFlowerSens_CallBatteryFirmware_UpdateTimeAge($hash)>$maxAge ? 1:0);
- }
- 1;
- =pod
- =item device
- =item summary Modul to retrieves data from a Xiaomi Flower Monitor
- =item summary_DE Modul um Daten vom Xiaomi Flower Monitor aus zu lesen
- =begin html
- <a name="XiaomiFlowerSens"></a>
- <h3>Xiaomi Flower Monitor</h3>
- <ul>
- <u><b>XiaomiFlowerSens - Retrieves data from a Xiaomi Flower Monitor</b></u>
- <br>
- With this module it is possible to read the data from a sensor and to set it as reading.</br>
- Gatttool and hcitool is required to use this modul. (apt-get install bluez)
- <br><br>
- <a name="XiaomiFlowerSensdefine"></a>
- <b>Define</b>
- <ul><br>
- <code>define <name> XiaomiFlowerSens <BT-MAC></code>
- <br><br>
- Example:
- <ul><br>
- <code>define Weihnachtskaktus XiaomiFlowerSens C4:7C:8D:62:42:6F</code><br>
- </ul>
- <br>
- This statement creates a XiaomiFlowerSens with the name Weihnachtskaktus and the Bluetooth Mac C4:7C:8D:62:42:6F.<br>
- After the device has been created, the current data of the Xiaomi Flower Monitor is automatically read from the device.
- </ul>
- <br><br>
- <a name="XiaomiFlowerSensreadings"></a>
- <b>Readings</b>
- <ul>
- <li>state - Status of the flower sensor or error message if any errors.</li>
- <li>battery - current battery state dependent on batteryLevel.</li>
- <li>batteryLevel - current battery level in percent.</li>
- <li>fertility - Values for the fertilizer content</li>
- <li>firmware - current device firmware</li>
- <li>lux - current light intensity</li>
- <li>moisture - current moisture content</li>
- <li>temperature - current temperature</li>
- </ul>
- <br><br>
- <a name="XiaomiFlowerSensset"></a>
- <b>Set</b>
- <ul>
- <li>clearFirmwareReading - clear firmware reading for new begin.</li>
- <br>
- </ul>
- <br><br>
- <a name="XiaomiFlowerSensget"></a>
- <b>Get</b>
- <ul>
- <li>statusRequest - retrieves the current state of the Xiaomi Flower Monitor.</li>
- <br>
- </ul>
- <br><br>
- <a name="XiaomiFlowerSensattribut"></a>
- <b>Attributes</b>
- <ul>
- <li>disable - disables the device</li>
- <li>disabledForIntervals - disable device for interval time (13:00-18:30 or 13:00-18:30 22:00-23:00)</li>
- <li>interval - interval in seconds for statusRequest</li>
- <li>minFertility - min fertility value for low warn event</li>
- <li>maxFertility - max fertility value for High warn event</li>
- <li>minMoisture - min moisture value for low warn event</li>
- <li>maxMoisture - max moisture value for High warn event</li>
- <li>minTemp - min temperature value for low warn event</li>
- <li>maxTemp - max temperature value for high warn event</li>
- <li>minlux - min lux value for low warn event</li>
- <li>maxlux - max lux value for high warn event
- <br>
- Event Example for min/max Value's: 2017-03-16 11:08:05 XiaomiFlowerSens Dracaena minMoisture low<br>
- Event Example for min/max Value's: 2017-03-16 11:08:06 XiaomiFlowerSens Dracaena maxTemp high</li>
- <li>sshHost - FQD-Name or IP of ssh remote system / you must configure your ssh system for certificate authentication. For better handling you can config ssh Client with .ssh/config file</li>
- <li>batteryFirmwareAge - how old can the reading befor fetch new data</li>
- <li>blockingCallLoglevel - Blocking.pm Loglevel for BlockingCall Logoutput</li>
- </ul>
- </ul>
- =end html
- =begin html_DE
- <a name="XiaomiFlowerSens"></a>
- <h3>Xiaomi Flower Monitor</h3>
- <ul>
- <u><b>XiaomiFlowerSens - liest Daten von einem Xiaomi Flower Monitor</b></u>
- <br />
- Dieser Modul liest Daten von einem Sensor und legt sie in den Readings ab.<br />
- Auf dem (Linux) FHEM-Server werden gatttool und hcitool vorausgesetzt. (sudo apt install bluez)
- <br /><br />
- <a name="XiaomiFlowerSensdefine"></a>
- <b>Define</b>
- <ul><br />
- <code>define <name> XiaomiFlowerSens <BT-MAC></code>
- <br /><br />
- Beispiel:
- <ul><br />
- <code>define Weihnachtskaktus XiaomiFlowerSens C4:7C:8D:62:42:6F</code><br />
- </ul>
- <br />
- Der Befehl legt ein Device vom Typ XiaomiFlowerSens an mit dem Namen Weihnachtskaktus und der Bluetooth MAC C4:7C:8D:62:42:6F.<br />
- Nach dem Anlegen des Device werden umgehend und automatisch die aktuellen Daten vom betroffenen Xiaomi Flower Monitor gelesen.
- </ul>
- <br /><br />
- <a name="XiaomiFlowerSensreadings"></a>
- <b>Readings</b>
- <ul>
- <li>state - Status des Flower Monitor oder eine Fehlermeldung falls Fehler beim letzten Kontakt auftraten.</li>
- <li>battery - aktueller Batterie-Status in Abhängigkeit vom Wert batteryLevel.</li>
- <li>batteryLevel - aktueller Ladestand der Batterie in Prozent.</li>
- <li>fertility - Wert des Fruchtbarkeitssensors (Bodenleitfähigkeit)</li>
- <li>firmware - aktuelle Firmware-Version des Flower Monitor</li>
- <li>lux - aktuelle Lichtintensität</li>
- <li>moisture - aktueller Feuchtigkeitswert</li>
- <li>temperature - aktuelle Temperatur</li>
- </ul>
- <br /><br />
- <a name="XiaomiFlowerSensset"></a>
- <b>Set</b>
- <ul>
- <li>clearFirmwareReading - löscht das Reading firmware für/nach Upgrade</li>
- <br />
- </ul>
- <br /><br />
- <a name="XiaomiFlowerSensGet"></a>
- <b>Get</b>
- <ul>
- <li>statusRequest - aktive Abfrage des aktuellen Status des Xiaomi Flower Monitor und seiner Werte</li>
- <br />
- </ul>
- <br /><br />
- <a name="XiaomiFlowerSensattribut"></a>
- <b>Attribute</b>
- <ul>
- <li>disable - deaktiviert das Device</li>
- <li>interval - Interval in Sekunden zwischen zwei Abfragen</li>
- <li>disabledForIntervals - deaktiviert das Gerät für den angegebenen Zeitinterval (13:00-18:30 or 13:00-18:30 22:00-23:00)</li>
- <li>minFertility - min Fruchtbarkeits-Grenzwert für ein Ereignis minFertility low </li>
- <li>maxFertility - max Fruchtbarkeits-Grenzwert für ein Ereignis maxFertility high </li>
- <li>minMoisture - min Feuchtigkeits-Grenzwert für ein Ereignis minMoisture low </li>
- <li>maxMoisture - max Feuchtigkeits-Grenzwert für ein Ereignis maxMoisture high </li>
- <li>minTemp - min Temperatur-Grenzwert für ein Ereignis minTemp low </li>
- <li>maxTemp - max Temperatur-Grenzwert für ein Ereignis maxTemp high </li>
- <li>minlux - min Helligkeits-Grenzwert für ein Ereignis minlux low </li>
- <li>maxlux - max Helligkeits-Grenzwert für ein Ereignis maxlux high
- <br /><br />Beispiele für min/max-Ereignisse:<br />
- 2017-03-16 11:08:05 XiaomiFlowerSens Dracaena minMoisture low<br />
- 2017-03-16 11:08:06 XiaomiFlowerSens Dracaena maxTemp high<br /><br /></li>
- <li>sshHost - FQDN oder IP-Adresse eines entfernten SSH-Systems. Das SSH-System ist auf eine Zertifikat basierte Authentifizierung zu konfigurieren. Am elegantesten geschieht das mit einer .ssh/config Datei auf dem SSH-Client.</li>
- <li>batteryFirmwareAge - wie alt soll der Timestamp des Readings sein bevor eine Aktuallisierung statt findet</li>
- <li>blockingCallLoglevel - Blocking.pm Loglevel für BlockingCall Logausgaben</li>
- </ul>
- </ul>
- =end html_DE
- =cut
|