943 lines
34 KiB
Perl
943 lines
34 KiB
Perl
###############################################################################
|
||
#
|
||
# Developed with Kate
|
||
#
|
||
# (c) 2017-2018 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
||
# All rights reserved
|
||
#
|
||
# Special thanks goes to comitters:
|
||
# - Michael (mbrak) Thanks for Commandref
|
||
# - Matthias (Kenneth) Thanks for Wiki entry
|
||
#
|
||
#
|
||
# 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$
|
||
#
|
||
###############################################################################
|
||
##
|
||
##
|
||
## Das JSON Modul immer in einem eval aufrufen
|
||
# $data = eval{decode_json($data)};
|
||
#
|
||
# if($@){
|
||
# Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@");
|
||
#
|
||
# readingsSingleUpdate($hash, "state", "error", 1);
|
||
#
|
||
# return;
|
||
# }
|
||
#
|
||
#
|
||
###### Wichtige Notizen
|
||
#
|
||
# apt-get install libio-socket-ssl-perl
|
||
# http://www.dxsdata.com/de/2016/07/php-class-for-gardena-smart-system-api/
|
||
#
|
||
##
|
||
##
|
||
|
||
|
||
|
||
package main;
|
||
|
||
|
||
my $missingModul = "";
|
||
|
||
use strict;
|
||
use warnings;
|
||
|
||
use HttpUtils;
|
||
|
||
eval "use Encode qw(encode encode_utf8 decode_utf8);1" or $missingModul .= "Encode ";
|
||
eval "use JSON;1" or $missingModul .= "JSON ";
|
||
eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL ";
|
||
|
||
|
||
my $version = "1.0.2";
|
||
|
||
|
||
|
||
|
||
# Declare functions
|
||
sub GardenaSmartBridge_Attr(@);
|
||
sub GardenaSmartBridge_Define($$);
|
||
sub GardenaSmartBridge_Initialize($);
|
||
sub GardenaSmartBridge_Set($@);
|
||
sub GardenaSmartBridge_Write($@);
|
||
sub GardenaSmartBridge_Undef($$);
|
||
sub GardenaSmartBridge_ResponseProcessing($$);
|
||
sub GardenaSmartBridge_ErrorHandling($$$);
|
||
sub GardenaSmartBridge_encrypt($);
|
||
sub GardenaSmartBridge_decrypt($);
|
||
sub GardenaSmartBridge_WriteReadings($$);
|
||
sub GardenaSmartBridge_ParseJSON($$);
|
||
sub GardenaSmartBridge_getDevices($);
|
||
sub GardenaSmartBridge_getToken($);
|
||
sub GardenaSmartBridge_createHttpValueStrings($@);
|
||
sub GardenaSmartBridge_Notify($$);
|
||
sub GardenaSmartBridge_StorePassword($$);
|
||
sub GardenaSmartBridge_ReadPassword($);
|
||
sub GardenaSmartBridge_DeletePassword($);
|
||
|
||
|
||
|
||
|
||
sub GardenaSmartBridge_Initialize($) {
|
||
|
||
my ($hash) = @_;
|
||
|
||
|
||
# Provider
|
||
$hash->{WriteFn} = "GardenaSmartBridge_Write";
|
||
$hash->{Clients} = ":GardenaSmartDevice:";
|
||
$hash->{MatchList} = { "1:GardenaSmartDevice" => '^{"id":".*' };
|
||
|
||
|
||
# Consumer
|
||
$hash->{SetFn} = "GardenaSmartBridge_Set";
|
||
$hash->{DefFn} = "GardenaSmartBridge_Define";
|
||
$hash->{UndefFn} = "GardenaSmartBridge_Undef";
|
||
$hash->{NotifyFn} = "GardenaSmartBridge_Notify";
|
||
|
||
$hash->{AttrFn} = "GardenaSmartBridge_Attr";
|
||
$hash->{AttrList} = "debugJSON:0,1 ".
|
||
"disable:1 ".
|
||
"interval ".
|
||
"disabledForIntervals ".
|
||
"gardenaAccountEmail ".
|
||
$readingFnAttributes;
|
||
|
||
foreach my $d(sort keys %{$modules{GardenaSmartBridge}{defptr}}) {
|
||
|
||
my $hash = $modules{GardenaSmartBridge}{defptr}{$d};
|
||
$hash->{VERSION} = $version;
|
||
}
|
||
}
|
||
|
||
sub GardenaSmartBridge_Define($$) {
|
||
|
||
my ( $hash, $def ) = @_;
|
||
|
||
my @a = split( "[ \t][ \t]*", $def );
|
||
|
||
|
||
return "too few parameters: define <NAME> GardenaSmartBridge" if( @a < 2 or @a > 4 );
|
||
return "Cannot define Gardena Bridge device. Perl modul ${missingModul}is missing." if ( $missingModul );
|
||
|
||
my $name = $a[0];
|
||
$hash->{BRIDGE} = 1;
|
||
$hash->{URL} = 'https://sg-api.dss.husqvarnagroup.net/sg-1';
|
||
$hash->{VERSION} = $version;
|
||
$hash->{INTERVAL} = 300;
|
||
$hash->{NOTIFYDEV} = "global,$name";
|
||
|
||
|
||
CommandAttr(undef,$name.' room GardenaSmart') if( AttrVal($name,'room','none') eq 'none' );
|
||
|
||
CommandDefMod(undef,$name.' '.$hash->{TYPE}) if(@a > 2); # fix new define
|
||
|
||
readingsSingleUpdate($hash,'token','none',1);
|
||
readingsSingleUpdate($hash,'state','initialized',1);
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - defined GardenaSmartBridge";
|
||
|
||
$modules{GardenaSmartBridge}{defptr}{BRIDGE} = $hash;
|
||
|
||
return undef;
|
||
}
|
||
|
||
sub GardenaSmartBridge_Undef($$) {
|
||
|
||
my ( $hash, $arg ) = @_;
|
||
|
||
|
||
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
||
|
||
RemoveInternalTimer($hash);
|
||
setKeyValue($index,undef);
|
||
delete $modules{GardenaSmartBridge}{defptr}{BRIDGE} if( defined($modules{GardenaSmartBridge}{defptr}{BRIDGE}) );
|
||
|
||
return undef;
|
||
}
|
||
|
||
sub GardenaSmartBridge_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", "inactive", 1 );
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - disabled";
|
||
}
|
||
|
||
elsif( $cmd eq "del" ) {
|
||
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
||
Log3 $name, 3, "GardenaSmartBridge ($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, "GardenaSmartBridge ($name) - disabledForIntervals";
|
||
}
|
||
|
||
elsif( $cmd eq "del" ) {
|
||
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - enabled";
|
||
}
|
||
}
|
||
|
||
elsif( $attrName eq "interval" ) {
|
||
if( $cmd eq "set" ) {
|
||
RemoveInternalTimer($hash);
|
||
return "Interval must be greater than 0"
|
||
unless($attrVal > 0);
|
||
$hash->{INTERVAL} = $attrVal;
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - set interval: $attrVal";
|
||
}
|
||
|
||
elsif( $cmd eq "del" ) {
|
||
RemoveInternalTimer($hash);
|
||
$hash->{INTERVAL} = 300;
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - delete User interval and set default: 300";
|
||
}
|
||
}
|
||
|
||
return undef;
|
||
}
|
||
|
||
sub GardenaSmartBridge_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);
|
||
|
||
#Log3 $name, 1, "GardenaSmartBridge ($name) - Im Notify: DEVTYPE: $devtype, DEVNAME: $devname EVENT: @{$events}";
|
||
|
||
|
||
GardenaSmartBridge_getToken($hash) if (
|
||
($devtype eq 'Global'
|
||
and (grep /^INITIALIZED$/,@{$events}
|
||
or grep /^DEFINED.$name$/,@{$events}
|
||
or grep /^MODIFIED.$name$/,@{$events}
|
||
or grep /^ATTR.$name.gardenaAccountEmail.+/,@{$events}
|
||
)
|
||
)
|
||
|
||
or
|
||
($devtype eq 'GardenaSmartBridge'
|
||
and (grep /^gardenaAccountPassword.+/,@{$events}
|
||
or ReadingsVal('$devname','token','') eq 'none') )
|
||
);
|
||
|
||
GardenaSmartBridge_getDevices($hash) if ( $devtype eq 'Global'
|
||
and (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 );
|
||
|
||
if( $devtype eq 'GardenaSmartBridge' and (grep /^state:.connected.to.cloud$/,@{$events}
|
||
or grep /^lastRequestState:.request_error$/,@{$events}) ) {
|
||
|
||
InternalTimer( gettimeofday()+$hash->{INTERVAL},"GardenaSmartBridge_getDevices", $hash);
|
||
Log3 $name, 4, "GardenaSmartBridge ($name) - set internal timer function for recall GardenaSmartBridge_getDevices sub";
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
sub GardenaSmartBridge_Set($@) {
|
||
|
||
my ($hash, $name, $cmd, @args) = @_;
|
||
#my ($arg, @params) = @args;
|
||
|
||
|
||
if( lc $cmd eq 'getdevicesstate' ) {
|
||
GardenaSmartBridge_getDevices($hash);
|
||
|
||
} elsif( lc $cmd eq 'gettoken' ) {
|
||
return "please set Attribut gardenaAccountEmail first" if(AttrVal($name,'gardenaAccountEmail','none') eq 'none');
|
||
return "please set gardenaAccountPassword first" if( not defined(GardenaSmartBridge_ReadPassword($hash)) );
|
||
return "token is up to date" if( defined($hash->{helper}{session_id}) );
|
||
|
||
GardenaSmartBridge_getToken($hash);
|
||
|
||
} elsif( lc $cmd eq 'gardenaaccountpassword' ) {
|
||
return "please set Attribut gardenaAccountEmail first" if(AttrVal($name,'gardenaAccountEmail','none') eq 'none');
|
||
return "usage: $cmd <password>" if( @args != 1 );
|
||
|
||
my $passwd = join(' ',@args);
|
||
GardenaSmartBridge_StorePassword($hash,$passwd);
|
||
|
||
} elsif( lc $cmd eq 'deleteaccountpassword' ) {
|
||
return "usage: $cmd <password>" if( @args != 0 );
|
||
|
||
GardenaSmartBridge_DeletePassword($hash);
|
||
|
||
} else {
|
||
|
||
my $list = "getDevicesState:noArg getToken:noArg" if( defined(GardenaSmartBridge_ReadPassword($hash)) );
|
||
$list .= " gardenaAccountPassword" if( not defined(GardenaSmartBridge_ReadPassword($hash)) );
|
||
$list .= " deleteAccountPassword:noArg" if( defined(GardenaSmartBridge_ReadPassword($hash)) );
|
||
return "Unknown argument $cmd, choose one of $list";
|
||
}
|
||
|
||
return undef;
|
||
}
|
||
|
||
sub GardenaSmartBridge_Write($@) {
|
||
|
||
my ($hash,$payload,$deviceId,$abilities) = @_;
|
||
my $name = $hash->{NAME};
|
||
|
||
my ($session_id,$header,$uri,$method);
|
||
|
||
|
||
|
||
|
||
($payload,$session_id,$header,$uri,$method,$deviceId,$abilities) = GardenaSmartBridge_createHttpValueStrings($hash,$payload,$deviceId,$abilities);
|
||
|
||
HttpUtils_NonblockingGet(
|
||
{
|
||
url => $hash->{URL} . $uri,
|
||
timeout => 15,
|
||
hash => $hash,
|
||
device_id => $deviceId,
|
||
data => $payload,
|
||
method => $method,
|
||
header => $header,
|
||
doTrigger => 1,
|
||
callback => \&GardenaSmartBridge_ErrorHandling
|
||
}
|
||
);
|
||
|
||
#Log3 $name, 4, "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: $header, DATA: $payload, METHOD: $method";
|
||
Log3 $name, 4, "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: secret!, DATA: secret!, METHOD: $method";
|
||
}
|
||
|
||
sub GardenaSmartBridge_ErrorHandling($$$) {
|
||
|
||
my ($param,$err,$data) = @_;
|
||
|
||
my $hash = $param->{hash};
|
||
my $name = $hash->{NAME};
|
||
my $dhash = $hash;
|
||
|
||
$dhash = $modules{GardenaSmartDevice}{defptr}{$param->{'device_id'}}
|
||
unless( not defined( $param->{'device_id'}) );
|
||
|
||
my $dname = $dhash->{NAME};
|
||
|
||
|
||
|
||
|
||
if( defined( $err ) ) {
|
||
if( $err ne "" ) {
|
||
|
||
readingsBeginUpdate( $dhash );
|
||
readingsBulkUpdate( $dhash, "state", "$err") if( ReadingsVal( $dname, "state", 1 ) ne "initialized" );
|
||
|
||
readingsBulkUpdate( $dhash, "lastRequestState", "request_error", 1 );
|
||
|
||
if( $err =~ /timed out/ ) {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: connect to gardena cloud is timed out. check network";
|
||
}
|
||
|
||
elsif( $err =~ /Keine Route zum Zielrechner/ or $err =~ /no route to target/ ) {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: no route to target. bad network configuration or network is down";
|
||
|
||
} else {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: $err";
|
||
}
|
||
|
||
readingsEndUpdate( $dhash, 1 );
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: GardenaSmartBridge RequestErrorHandling: error while requesting gardena cloud: $err";
|
||
|
||
delete $dhash->{helper}{deviceAction} if( defined($dhash->{helper}{deviceAction}) );
|
||
|
||
return;
|
||
}
|
||
}
|
||
|
||
if( $data eq "" and exists( $param->{code} ) and $param->{code} != 200 ) {
|
||
|
||
readingsBeginUpdate( $dhash );
|
||
readingsBulkUpdate( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dname, "state", 1 ) ne "initialized" );
|
||
|
||
readingsBulkUpdateIfChanged( $dhash, "lastRequestState", "request_error", 1 );
|
||
|
||
if( $param->{code} == 401 and $hash eq $dhash ) {
|
||
|
||
if( ReadingsVal($dname,'token','none') eq 'none' ) {
|
||
readingsBulkUpdate( $dhash, "state", "no token available", 1);
|
||
readingsBulkUpdateIfChanged( $dhash, "lastRequestState", "no token available", 1 );
|
||
}
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: ".$param->{code};
|
||
|
||
} elsif( $param->{code} == 204 and $dhash ne $hash and defined($dhash->{helper}{deviceAction}) ) {
|
||
|
||
readingsBulkUpdate( $dhash, "state", "the command is processed", 1);
|
||
InternalTimer( gettimeofday()+3,"GardenaSmartBridge_getDevices", $hash, 1 );
|
||
|
||
} elsif( $param->{code} != 200 ) {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: ".$param->{code};
|
||
}
|
||
|
||
readingsEndUpdate( $dhash, 1 );
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: received http code ".$param->{code}." without any data after requesting gardena cloud";
|
||
|
||
delete $dhash->{helper}{deviceAction} if( defined($dhash->{helper}{deviceAction}) );
|
||
|
||
return;
|
||
}
|
||
|
||
if( ( ($data =~ /Error/ ) or defined(eval{decode_json($data)}->{errors}) ) and exists( $param->{code} ) ) {
|
||
readingsBeginUpdate( $dhash );
|
||
readingsBulkUpdate( $dhash, "state", $param->{code}, 1 ) if( ReadingsVal( $dname, "state" ,0) ne "initialized" );
|
||
|
||
readingsBulkUpdate( $dhash, "lastRequestState", "request_error", 1 );
|
||
|
||
if( $param->{code} == 400 ) {
|
||
if( eval{decode_json($data)} ) {
|
||
if( ref(eval{decode_json($data)}->{errors}) eq "ARRAY" and defined(eval{decode_json($data)}->{errors}) ) {
|
||
readingsBulkUpdate( $dhash, "state", eval{decode_json($data)}->{errors}[0]{error} . ' ' . eval{decode_json($data)}->{errors}[0]{attribute}, 1);
|
||
readingsBulkUpdate( $dhash, "lastRequestState", eval{decode_json($data)}->{errors}[0]{error} . ' ' . eval{decode_json($data)}->{errors}[0]{attribute}, 1 );
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: " . eval{decode_json($data)}->{errors}[0]{error} . " " . eval{decode_json($data)}->{errors}[0]{attribute};
|
||
}
|
||
} else {
|
||
readingsBulkUpdate( $dhash, "lastRequestState", "Error 400 Bad Request", 1 );
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: Error 400 Bad Request";
|
||
}
|
||
} elsif( $param->{code} == 503 ) {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: Error 503 Service Unavailable";
|
||
readingsBulkUpdate( $dhash, "state", "Service Unavailable", 1 );
|
||
readingsBulkUpdate( $dhash, "lastRequestState", "Error 503 Service Unavailable", 1 );
|
||
|
||
} elsif( $param->{code} == 404 ) {
|
||
if( defined($dhash->{helper}{deviceAction}) and $dhash ne $hash ) {
|
||
readingsBulkUpdate( $dhash, "state", "device Id not found", 1 );
|
||
readingsBulkUpdate( $dhash, "lastRequestState", "device id not found", 1 );
|
||
}
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: Error 404 Not Found";
|
||
|
||
} elsif( $param->{code} == 500 ) {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: check the ???";
|
||
|
||
} else {
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: http error ".$param->{code};
|
||
}
|
||
|
||
readingsEndUpdate( $dhash, 1 );
|
||
|
||
Log3 $dname, 5, "GardenaSmartBridge ($dname) - RequestERROR: received http code ".$param->{code}." receive Error after requesting gardena cloud";
|
||
|
||
delete $dhash->{helper}{deviceAction} if( defined($dhash->{helper}{deviceAction}) );
|
||
|
||
return;
|
||
}
|
||
|
||
|
||
|
||
|
||
readingsSingleUpdate($hash,'state','connected to cloud',1) if( defined($hash->{helper}{locations_id}) );
|
||
GardenaSmartBridge_ResponseProcessing($hash,$data);
|
||
}
|
||
|
||
sub GardenaSmartBridge_ResponseProcessing($$) {
|
||
|
||
my ($hash,$json) = @_;
|
||
|
||
my $name = $hash->{NAME};
|
||
|
||
|
||
my $decode_json = eval{decode_json($json)};
|
||
if($@){
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - JSON error while request: $@";
|
||
|
||
if( AttrVal( $name, 'debugJSON', 0 ) == 1 ) {
|
||
readingsBeginUpdate($hash);
|
||
readingsBulkUpdate($hash, 'JSON_ERROR', $@, 1);
|
||
readingsBulkUpdate($hash, 'JSON_ERROR_STRING', $json, 1);
|
||
readingsEndUpdate($hash, 1);
|
||
}
|
||
}
|
||
|
||
|
||
|
||
if( defined($decode_json->{sessions}) and $decode_json->{sessions}) {
|
||
|
||
$hash->{helper}{session_id} = $decode_json->{sessions}{token};
|
||
$hash->{helper}{user_id} = $decode_json->{sessions}{user_id};
|
||
|
||
GardenaSmartBridge_Write($hash,undef,undef,undef);
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - fetch locations id";
|
||
readingsSingleUpdate($hash,'token',$hash->{helper}{session_id},1);
|
||
|
||
return;
|
||
|
||
} elsif( not defined($hash->{helper}{locations_id}) and defined($decode_json->{locations}) and ref($decode_json->{locations}) eq "ARRAY" and scalar(@{$decode_json->{locations}}) > 0) {
|
||
|
||
foreach my $location ( @{$decode_json->{locations}} ) {
|
||
|
||
$hash->{helper}{locations_id} = $location->{id};
|
||
|
||
GardenaSmartBridge_WriteReadings($hash,$location);
|
||
}
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - processed locations id. ID is " . $hash->{helper}{locations_id};
|
||
GardenaSmartBridge_Write($hash,undef,undef,undef);
|
||
|
||
return;
|
||
|
||
} elsif( defined($decode_json->{devices}) and ref($decode_json->{devices}) eq "ARRAY" and scalar(@{$decode_json->{devices}}) > 0) {
|
||
|
||
my @buffer = split('"devices":\[',$json);
|
||
|
||
|
||
my ($json,$tail) = GardenaSmartBridge_ParseJSON($hash, $buffer[1]);
|
||
|
||
|
||
while($json) {
|
||
|
||
Log3 $name, 5, "GardenaSmartBridge ($name) - Decoding JSON message. Length: " . length($json) . " Content: " . $json;
|
||
Log3 $name, 5, "GardenaSmartBridge ($name) - Vor Sub: Laenge JSON: " . length($json) . " Content: " . $json . " Tail: " . $tail;
|
||
|
||
|
||
unless( not defined($tail) and not ($tail) ) {
|
||
|
||
$decode_json = eval{decode_json($json)};
|
||
if($@){
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - JSON error while request: $@";
|
||
}
|
||
|
||
Dispatch($hash,$json,undef)
|
||
unless( $decode_json->{category} eq 'gateway' );
|
||
}
|
||
|
||
($json,$tail) = GardenaSmartBridge_ParseJSON($hash, $tail);
|
||
|
||
Log3 $name, 5, "GardenaSmartBridge ($name) - Nach Sub: Laenge JSON: " . length($json) . " Content: " . $json . " Tail: " . $tail;
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - no Match for processing data"
|
||
}
|
||
|
||
sub GardenaSmartBridge_WriteReadings($$) {
|
||
|
||
my ($hash,$decode_json) = @_;
|
||
my $name = $hash->{NAME};
|
||
|
||
|
||
if( defined($decode_json->{id}) and $decode_json->{id} and defined($decode_json->{name}) and $decode_json->{name} ) {
|
||
|
||
readingsBeginUpdate($hash);
|
||
readingsBulkUpdateIfChanged($hash,'name',$decode_json->{name});
|
||
readingsBulkUpdateIfChanged($hash,'authorized_user_ids',scalar(@{$decode_json->{authorized_user_ids}}));
|
||
readingsBulkUpdateIfChanged($hash,'devices',scalar(@{$decode_json->{devices}}));
|
||
|
||
while( ( my ($t,$v) ) = each %{$decode_json->{geo_position}} ) {
|
||
$v = encode_utf8($v);
|
||
readingsBulkUpdateIfChanged($hash,$t,$v);
|
||
}
|
||
|
||
readingsBulkUpdateIfChanged($hash,'zones',scalar(@{$decode_json->{zones}}));
|
||
readingsEndUpdate( $hash, 1 );
|
||
}
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - readings would be written";
|
||
}
|
||
|
||
|
||
####################################
|
||
####################################
|
||
#### my little helpers Sub's #######
|
||
|
||
sub GardenaSmartBridge_getDevices($) {
|
||
|
||
my $hash = shift;
|
||
my $name = $hash->{NAME};
|
||
|
||
|
||
RemoveInternalTimer($hash);
|
||
|
||
if( not IsDisabled($name) ) {
|
||
|
||
GardenaSmartBridge_Write($hash,undef,undef,undef);
|
||
Log3 $name, 4, "GardenaSmartBridge ($name) - fetch device list and device states";
|
||
} else {
|
||
|
||
readingsSingleUpdate($hash,'state','disabled',1);
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - device is disabled";
|
||
}
|
||
}
|
||
|
||
sub GardenaSmartBridge_getToken($) {
|
||
|
||
my $hash = shift;
|
||
my $name = $hash->{NAME};
|
||
|
||
|
||
return readingsSingleUpdate($hash,'state','please set Attribut gardenaAccountEmail first',1) if(AttrVal($name,'gardenaAccountEmail','none') eq 'none');
|
||
return readingsSingleUpdate($hash,'state','please set gardena account password first',1) if( not defined(GardenaSmartBridge_ReadPassword($hash)) );
|
||
readingsSingleUpdate($hash,'state','get token',1);
|
||
|
||
delete $hash->{helper}{session_id} if( defined($hash->{helper}{session_id}) and $hash->{helper}{session_id} );
|
||
delete $hash->{helper}{user_id} if( defined($hash->{helper}{user_id}) and $hash->{helper}{user_id} );
|
||
delete $hash->{helper}{locations_id} if( defined($hash->{helper}{locations_id}) and $hash->{helper}{locations_id} );
|
||
|
||
GardenaSmartBridge_Write($hash,'"sessions": {"email": "'.AttrVal($name,'gardenaAccountEmail','none').'","password": "'.GardenaSmartBridge_ReadPassword($hash).'"}',undef,undef);
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - send credentials to fetch Token and locationId";
|
||
}
|
||
|
||
sub GardenaSmartBridge_StorePassword($$) {
|
||
|
||
my ($hash, $password) = @_;
|
||
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
||
my $key = getUniqueId().$index;
|
||
my $enc_pwd = "";
|
||
|
||
|
||
if(eval "use Digest::MD5;1") {
|
||
|
||
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
||
$key .= Digest::MD5::md5_hex($key);
|
||
}
|
||
|
||
for my $char (split //, $password) {
|
||
|
||
my $encode=chop($key);
|
||
$enc_pwd.=sprintf("%.2x",ord($char)^ord($encode));
|
||
$key=$encode.$key;
|
||
}
|
||
|
||
my $err = setKeyValue($index, $enc_pwd);
|
||
return "error while saving the password - $err" if(defined($err));
|
||
|
||
return "password successfully saved";
|
||
}
|
||
|
||
sub GardenaSmartBridge_ReadPassword($) {
|
||
|
||
my ($hash) = @_;
|
||
my $name = $hash->{NAME};
|
||
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
||
my $key = getUniqueId().$index;
|
||
my ($password, $err);
|
||
|
||
|
||
Log3 $name, 4, "GardenaSmartBridge ($name) - Read password from file";
|
||
|
||
($err, $password) = getKeyValue($index);
|
||
|
||
if ( defined($err) ) {
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - unable to read password from file: $err";
|
||
return undef;
|
||
|
||
}
|
||
|
||
if ( defined($password) ) {
|
||
if ( eval "use Digest::MD5;1" ) {
|
||
|
||
$key = Digest::MD5::md5_hex(unpack "H*", $key);
|
||
$key .= Digest::MD5::md5_hex($key);
|
||
}
|
||
|
||
my $dec_pwd = '';
|
||
|
||
for my $char (map { pack('C', hex($_)) } ($password =~ /(..)/g)) {
|
||
|
||
my $decode=chop($key);
|
||
$dec_pwd.=chr(ord($char)^ord($decode));
|
||
$key=$decode.$key;
|
||
}
|
||
|
||
return $dec_pwd;
|
||
|
||
} else {
|
||
|
||
Log3 $name, 3, "GardenaSmartBridge ($name) - No password in file";
|
||
return undef;
|
||
}
|
||
}
|
||
|
||
sub GardenaSmartBridge_ParseJSON($$) {
|
||
|
||
my ($hash, $buffer) = @_;
|
||
|
||
my $name = $hash->{NAME};
|
||
my $open = 0;
|
||
my $close = 0;
|
||
my $msg = '';
|
||
my $tail = '';
|
||
|
||
|
||
if($buffer) {
|
||
foreach my $c (split //, $buffer) {
|
||
if($open == $close and $open > 0) {
|
||
$tail .= $c;
|
||
Log3 $name, 5, "GardenaSmartBridge ($name) - $open == $close and $open > 0";
|
||
|
||
} elsif(($open == $close) and ($c ne '{')) {
|
||
|
||
Log3 $name, 5, "GardenaSmartBridge ($name) - Garbage character before message: " . $c;
|
||
|
||
} else {
|
||
|
||
if($c eq '{') {
|
||
|
||
$open++;
|
||
|
||
} elsif($c eq '}') {
|
||
|
||
$close++;
|
||
}
|
||
|
||
$msg .= $c;
|
||
}
|
||
}
|
||
|
||
if($open != $close) {
|
||
|
||
$tail = $msg;
|
||
$msg = '';
|
||
}
|
||
}
|
||
|
||
Log3 $name, 4, "GardenaSmartBridge ($name) - return msg: $msg and tail: $tail";
|
||
return ($msg,$tail);
|
||
}
|
||
|
||
sub GardenaSmartBridge_createHttpValueStrings($@) {
|
||
|
||
my ($hash,$payload,$deviceId,$abilities) = @_;
|
||
my $session_id = $hash->{helper}{session_id};
|
||
my $header = "Content-Type: application/json";
|
||
my $uri = '';
|
||
my $method = 'POST';
|
||
$header .= "\r\nX-Session: $session_id" if( defined($hash->{helper}{session_id}) );
|
||
$payload = '{' . $payload . '}' if( defined($payload) );
|
||
$payload = '{}' if( not defined($payload) );
|
||
|
||
|
||
if( $payload eq '{}' ) {
|
||
$method = 'GET';
|
||
$uri .= '/locations/?user_id=' . $hash->{helper}{user_id} if( not defined($hash->{helper}{locations_id}) );
|
||
readingsSingleUpdate($hash,'state','fetch locationId',1) if( not defined($hash->{helper}{locations_id}) );
|
||
$uri .= '/sessions' if( not defined($hash->{helper}{session_id}));
|
||
$uri .= '/devices' if( not defined($abilities) and defined($hash->{helper}{locations_id}) );
|
||
}
|
||
|
||
$uri .= '/sessions' if( not defined($hash->{helper}{session_id}));
|
||
|
||
if( defined($hash->{helper}{locations_id}) ) {
|
||
#$uri .= '/devices/' . $deviceId . '/abilities/' . $abilities . '/command' if( defined($abilities) and defined($payload) );
|
||
if ( defined($abilities) and $abilities eq 'mower_settings') {
|
||
|
||
$method = 'PUT';
|
||
my $dhash = $modules{GardenaSmartDevice}{defptr}{$deviceId};
|
||
$uri .= '/devices/' . $deviceId . '/settings/' . $dhash->{helper}{STARTINGPOINTID} if( defined($abilities) and defined($payload) and $abilities eq 'mower_settings');
|
||
} else {
|
||
$uri .= '/devices/' . $deviceId . '/abilities/' . $abilities . '/command' if( defined($abilities) and defined($payload) and $abilities ne 'mower_settings');
|
||
}
|
||
|
||
$uri .= '?locationId=' . $hash->{helper}{locations_id};
|
||
}
|
||
|
||
return ($payload,$session_id,$header,$uri,$method,$deviceId,$abilities);
|
||
}
|
||
|
||
sub GardenaSmartBridge_DeletePassword($) {
|
||
|
||
my $hash = shift;
|
||
|
||
|
||
#my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
|
||
setKeyValue($hash->{TYPE}."_".$hash->{NAME}."_passwd",undef);
|
||
|
||
return undef;
|
||
}
|
||
|
||
|
||
|
||
|
||
1;
|
||
|
||
|
||
|
||
|
||
|
||
|
||
=pod
|
||
|
||
=item device
|
||
=item summary Modul to communicate with the GardenaCloud
|
||
=item summary_DE Modul zur Datenübertragung zur GardenaCloud
|
||
|
||
=begin html
|
||
|
||
<a name="GardenaSmartBridge"></a>
|
||
<h3>GardenaSmartBridge</h3>
|
||
<ul>
|
||
<u><b>Prerequisite</b></u>
|
||
<br><br>
|
||
<li>In combination with GardenaSmartDevice this FHEM Module controls the communication between the GardenaCloud and connected Devices like Mover, Watering_Computer, Temperature_Sensors</li>
|
||
<li>Installation of the following packages: apt-get install libio-socket-ssl-perl</li>
|
||
<li>The Gardena-Gateway and all connected Devices must be correctly installed in the GardenaAPP</li>
|
||
</ul>
|
||
<br>
|
||
<a name="GardenaSmartBridgedefine"></a>
|
||
<b>Define</b>
|
||
<ul><br>
|
||
<code>define <name> GardenaSmartBridge</code>
|
||
<br><br>
|
||
Beispiel:
|
||
<ul><br>
|
||
<code>define Gardena_Bridge GardenaSmartBridge</code><br>
|
||
</ul>
|
||
<br>
|
||
The GardenaSmartBridge device is created in the room GardenaSmart, then the devices of Your system are recognized automatically and created in FHEM. From now on the devices can be controlled and changes in the GardenaAPP are synchronized with the state and readings of the devices.
|
||
<br><br>
|
||
<a name="GardenaSmartBridgereadings"></a>
|
||
<br><br>
|
||
<b>Readings</b>
|
||
<ul>
|
||
<li>address - your Adress (Longversion)</li>
|
||
<li>authorized_user_ids - </li>
|
||
<li>city - Zip, City</li>
|
||
<li>devices - Number of Devices in the Cloud (Gateway included)</li>
|
||
<li>lastRequestState - Last Status Result</li>
|
||
<li>latitude - Breitengrad des Grundstücks</li>
|
||
<li>longitude - Längengrad des Grundstücks</li>
|
||
<li>name - Name of your Garden – Default „My Garden“</li>
|
||
<li>state - State of the Bridge</li>
|
||
<li>token - SessionID</li>
|
||
<li>zones - </li>
|
||
</ul>
|
||
<br><br>
|
||
<a name="GardenaSmartBridgeset"></a>
|
||
<b>set</b>
|
||
<ul>
|
||
<li>getDeviceState - Starts a Datarequest</li>
|
||
<li>getToken - Gets a new Session-ID</li>
|
||
<li>gardenaAccountPassword - Passwort which was used in the GardenaAPP</li>
|
||
<li>deleteAccountPassword - delete the password from store</li>
|
||
</ul>
|
||
<br><br>
|
||
<a name="GardenaSmartBridgeattributes"></a>
|
||
<b>Attributes</b>
|
||
<ul>
|
||
<li>debugJSON - </li>
|
||
<li>disable - Disables the Bridge</li>
|
||
<li>interval - Interval in seconds (Default=300)</li>
|
||
<li>gardenaAccountEmail - Email Adresse which was used in the GardenaAPP</li>
|
||
</ul>
|
||
</ul>
|
||
|
||
=end html
|
||
=begin html_DE
|
||
|
||
<a name="GardenaSmartBridge"></a>
|
||
<h3>GardenaSmartBridge</h3>
|
||
<ul>
|
||
<u><b>Voraussetzungen</b></u>
|
||
<br><br>
|
||
<li>Zusammen mit dem Device GardenaSmartDevice stellt dieses FHEM Modul die Kommunikation zwischen der GardenaCloud und Fhem her. Es können damit Rasenmäher, Bewässerungscomputer und Bodensensoren überwacht und gesteuert werden</li>
|
||
<li>Das Perl-Modul "SSL Packet" wird benötigt.</li>
|
||
<li>Unter Debian (basierten) System, kann dies mittels "apt-get install libio-socket-ssl-perl" installiert werden.</li>
|
||
<li>Das Gardena-Gateway und alle damit verbundenen Geräte und Sensoren müssen vorab in der GardenaApp eingerichtet sein.</li>
|
||
</ul>
|
||
<br>
|
||
<a name="GardenaSmartBridgedefine"></a>
|
||
<b>Define</b>
|
||
<ul><br>
|
||
<code>define <name> GardenaSmartBridge</code>
|
||
<br><br>
|
||
Beispiel:
|
||
<ul><br>
|
||
<code>define Gardena_Bridge GardenaSmartBridge</code><br>
|
||
</ul>
|
||
<br>
|
||
Das Bridge Device wird im Raum GardenaSmart angelegt und danach erfolgt das Einlesen und automatische Anlegen der Geräte. Von nun an können die eingebundenen Geräte gesteuert werden. Änderungen in der APP werden mit den Readings und dem Status syncronisiert.
|
||
<br><br>
|
||
<a name="GardenaSmartBridgereadings"></a>
|
||
<br><br>
|
||
<b>Readings</b>
|
||
<ul>
|
||
<li>address - Adresse, welche in der App eingetragen wurde (Langversion)</li>
|
||
<li>authorized_user_ids - </li>
|
||
<li>city - PLZ, Stadt</li>
|
||
<li>devices - Anzahl der Geräte, welche in der GardenaCloud angemeldet sind (Gateway zählt mit)</li>
|
||
<li>lastRequestState - Letzter abgefragter Status der Bridge</li>
|
||
<li>latitude - Breitengrad des Grundstücks</li>
|
||
<li>longitude - Längengrad des Grundstücks</li>
|
||
<li>name - Name für das Grundstück – Default „My Garden“</li>
|
||
<li>state - Status der Bridge</li>
|
||
<li>token - SessionID</li>
|
||
<li>zones - </li>
|
||
</ul>
|
||
<br><br>
|
||
<a name="GardenaSmartBridgeset"></a>
|
||
<b>set</b>
|
||
<ul>
|
||
<li>getDeviceState - Startet eine Abfrage der Daten.</li>
|
||
<li>getToken - Holt eine neue Session-ID</li>
|
||
<li>gardenaAccountPassword - Passwort, welches in der GardenaApp verwendet wurde</li>
|
||
<li>deleteAccountPassword - l&oml;scht das Passwort aus dem Passwortstore</li>
|
||
</ul>
|
||
<br><br>
|
||
<a name="GardenaSmartBridgeattributes"></a>
|
||
<b>Attribute</b>
|
||
<ul>
|
||
<li>debugJSON - JSON Fehlermeldungen</li>
|
||
<li>disable - Schaltet die Datenübertragung der Bridge ab</li>
|
||
<li>interval - Abfrageinterval in Sekunden (default: 300)</li>
|
||
<li>gardenaAccountEmail - Email Adresse, die auch in der GardenaApp verwendet wurde</li>
|
||
</ul>
|
||
</ul>
|
||
|
||
=end html_DE
|
||
=cut
|