mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-03 16:56:54 +00:00
74_HusqvarnaAutomower.pm: New module
git-svn-id: https://svn.fhem.de/fhem/trunk@16673 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
krannich
parent
9223be7f0e
commit
f416081f1f
814
fhem/FHEM/74_HusqvarnaAutomower.pm
Normal file
814
fhem/FHEM/74_HusqvarnaAutomower.pm
Normal file
@ -0,0 +1,814 @@
|
||||
###############################################################################
|
||||
#
|
||||
# (c) 2018 Copyright: Dr. Dennis Krannich (blog at krannich dot de)
|
||||
# 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$
|
||||
#
|
||||
################################################################################
|
||||
|
||||
package main;
|
||||
|
||||
my $missingModul = "";
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Time::Local;
|
||||
use JSON;
|
||||
use HttpUtils;
|
||||
use Blocking;
|
||||
|
||||
eval "use JSON;1" or $missingModul .= "JSON ";
|
||||
|
||||
my $version = "0.1";
|
||||
|
||||
use constant AUTHURL => "https://iam-api.dss.husqvarnagroup.net/api/v3/";
|
||||
use constant APIURL => "https://amc-api.dss.husqvarnagroup.net/v1/";
|
||||
|
||||
##############################################################
|
||||
#
|
||||
# Declare functions
|
||||
#
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_Initialize($);
|
||||
sub HusqvarnaAutomower_Define($$);
|
||||
|
||||
sub HusqvarnaAutomower_Notify($$);
|
||||
|
||||
sub HusqvarnaAutomower_Attr(@);
|
||||
sub HusqvarnaAutomower_Set($@);
|
||||
sub HusqvarnaAutomower_Undef($$);
|
||||
|
||||
sub HusqvarnaAutomower_CONNECTED($@);
|
||||
sub HusqvarnaAutomower_CMD($$);
|
||||
|
||||
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_Initialize($) {
|
||||
my ($hash) = @_;
|
||||
|
||||
$hash->{SetFn} = "HusqvarnaAutomower_Set";
|
||||
$hash->{DefFn} = "HusqvarnaAutomower_Define";
|
||||
$hash->{UndefFn} = "HusqvarnaAutomower_Undef";
|
||||
$hash->{NotifyFn} = "HusqvarnaAutomower_Notify";
|
||||
$hash->{AttrFn} = "HusqvarnaAutomower_Attr";
|
||||
$hash->{AttrList} = "username " .
|
||||
"password " .
|
||||
"mower " .
|
||||
"interval " .
|
||||
$readingFnAttributes;
|
||||
|
||||
foreach my $d(sort keys %{$modules{HusqvarnaAutomower}{defptr}}) {
|
||||
my $hash = $modules{HusqvarnaAutomower}{defptr}{$d};
|
||||
$hash->{HusqvarnaAutomower}{version} = $version;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_Define($$){
|
||||
my ( $hash, $def ) = @_;
|
||||
my @a = split( "[ \t]+", $def );
|
||||
my $name = $a[0];
|
||||
|
||||
return "too few parameters: define <NAME> HusqvarnaAutomower" if( @a < 1 ) ;
|
||||
return "Cannot define HusqvarnaAutomower device. Perl modul $missingModul is missing." if ( $missingModul );
|
||||
|
||||
%$hash = (%$hash,
|
||||
NOTIFYDEV => "global,$name",
|
||||
HusqvarnaAutomower => {
|
||||
CONNECTED => 0,
|
||||
version => $version,
|
||||
token => '',
|
||||
provider => '',
|
||||
user_id => '',
|
||||
mower_id => '',
|
||||
mower_name => '',
|
||||
mower_model => '',
|
||||
mower_battery => 0,
|
||||
mower_status => '',
|
||||
mower_lastLatitude => 0,
|
||||
mower_lastLongitude => 0,
|
||||
mower_status => '',
|
||||
device_operatingMode => '',
|
||||
mower_nextStart => 0,
|
||||
mower => 0,
|
||||
username => '',
|
||||
password => '',
|
||||
interval => 300,
|
||||
expires => time(),
|
||||
},
|
||||
);
|
||||
|
||||
$attr{$name}{room} = "HusqvarnaAutomower" if( !defined( $attr{$name}{room} ) );
|
||||
|
||||
HusqvarnaAutomower_CONNECTED($hash,'initialized');
|
||||
|
||||
return undef;
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_Notify($$) {
|
||||
|
||||
my ($hash,$dev) = @_;
|
||||
my ($name) = ($hash->{NAME});
|
||||
|
||||
if (AttrVal($name, "disable", 0)) {
|
||||
Log3 $name, 5, "Device '$name' is disabled, do nothing...";
|
||||
HusqvarnaAutomower_CONNECTED($hash,'disabled');
|
||||
return undef;
|
||||
}
|
||||
|
||||
my $devname = $dev->{NAME};
|
||||
my $devtype = $dev->{TYPE};
|
||||
my $events = deviceEvents($dev,1);
|
||||
return if (!$events);
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{updateStartTime} = time();
|
||||
|
||||
if ( $devtype eq 'Global') {
|
||||
if (
|
||||
grep /^INITIALIZED$/,@{$events}
|
||||
or grep /^REREADCFG$/,@{$events}
|
||||
or grep /^DEFINED.$name$/,@{$events}
|
||||
or grep /^MODIFIED.$name$/,@{$events}
|
||||
) {
|
||||
HusqvarnaAutomower_APIAuth($hash);
|
||||
}
|
||||
}
|
||||
|
||||
if ( $devtype eq 'HusqvarnaAutomower') {
|
||||
if ( grep(/^state:.authenticated$/, @{$events}) ) {
|
||||
HusqvarnaAutomower_getMower($hash);
|
||||
}
|
||||
|
||||
if ( grep(/^state:.connected$/, @{$events}) ) {
|
||||
HusqvarnaAutomower_DoUpdate($hash);
|
||||
}
|
||||
|
||||
if ( grep(/^state:.disconnected$/, @{$events}) ) {
|
||||
Log3 $name, 3, "Reconnecting...";
|
||||
HusqvarnaAutomower_APIAuth($hash);
|
||||
}
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_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", "disable", 1 );
|
||||
Log3 $name, 5, "$name - disabled";
|
||||
}
|
||||
|
||||
elsif( $cmd eq "del" ) {
|
||||
readingsSingleUpdate ( $hash, "state", "active", 1 );
|
||||
Log3 $name, 5, "$name - enabled";
|
||||
}
|
||||
}
|
||||
|
||||
elsif( $attrName eq "username" ) {
|
||||
if( $cmd eq "set" ) {
|
||||
$hash->{HusqvarnaAutomower}->{username} = $attrVal;
|
||||
Log3 $name, 5, "$name - username set to " . $hash->{HusqvarnaAutomower}->{username};
|
||||
}
|
||||
}
|
||||
|
||||
elsif( $attrName eq "password" ) {
|
||||
if( $cmd eq "set" ) {
|
||||
$hash->{HusqvarnaAutomower}->{password} = $attrVal;
|
||||
Log3 $name, 5, "$name - password set to " . $hash->{HusqvarnaAutomower}->{password};
|
||||
}
|
||||
}
|
||||
|
||||
elsif( $attrName eq "mower" ) {
|
||||
if( $cmd eq "set" ) {
|
||||
$hash->{HusqvarnaAutomower}->{mower} = $attrVal;
|
||||
Log3 $name, 5, "$name - mower set to " . $hash->{HusqvarnaAutomower}->{mower};
|
||||
}
|
||||
elsif( $cmd eq "del" ) {
|
||||
$hash->{HusqvarnaAutomower}->{mower} = 0;
|
||||
Log3 $name, 5, "$name - deleted mower and set to default: 0";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
elsif( $attrName eq "interval" ) {
|
||||
if( $cmd eq "set" ) {
|
||||
RemoveInternalTimer($hash);
|
||||
return "Interval must be greater than 0"
|
||||
unless($attrVal > 0);
|
||||
$hash->{HusqvarnaAutomower}->{interval} = $attrVal;
|
||||
Log3 $name, 5, "$name - set interval: $attrVal";
|
||||
}
|
||||
|
||||
elsif( $cmd eq "del" ) {
|
||||
RemoveInternalTimer($hash);
|
||||
$hash->{HusqvarnaAutomower}->{interval} = 300;
|
||||
Log3 $name, 5, "$name - deleted interval and set to default: 300";
|
||||
}
|
||||
}
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_Undef($$){
|
||||
my ( $hash, $arg ) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
my $deviceId = $hash->{DEVICEID};
|
||||
delete $modules{HusqvarnaAutomower}{defptr}{$deviceId};
|
||||
RemoveInternalTimer($hash);
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_Set($@){
|
||||
my ($hash,@a) = @_;
|
||||
return "\"set $hash->{NAME}\" needs at least an argument" if ( @a < 2 );
|
||||
my ($name,$setName,$setVal,$setVal2,$setVal3) = @a;
|
||||
|
||||
Log3 $name, 3, "$name: set called with $setName " . ($setVal ? $setVal : "") if ($setName ne "?");
|
||||
|
||||
if (HusqvarnaAutomower_CONNECTED($hash) eq 'disabled' && $setName !~ /clear/) {
|
||||
return "Unknown argument $setName, choose one of clear:all,readings";
|
||||
Log3 $name, 3, "$name: set called with $setName but device is disabled!" if ($setName ne "?");
|
||||
return undef;
|
||||
}
|
||||
|
||||
if ($setName !~ /start|stop|park|update/) {
|
||||
return "Unknown argument $setName, choose one of start stop park update";
|
||||
}
|
||||
|
||||
if ($setName eq 'update') {
|
||||
RemoveInternalTimer($hash);
|
||||
HusqvarnaAutomower_DoUpdate($hash);
|
||||
}
|
||||
|
||||
if (HusqvarnaAutomower_CONNECTED($hash)) {
|
||||
|
||||
if ($setName eq 'start') {
|
||||
HusqvarnaAutomower_CMD($hash,'START');
|
||||
|
||||
} elsif ($setName eq 'stop') {
|
||||
HusqvarnaAutomower_CMD($hash,'STOP');
|
||||
|
||||
} elsif ($setName eq 'park') {
|
||||
HusqvarnaAutomower_CMD($hash,'PARK');
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return undef;
|
||||
|
||||
}
|
||||
|
||||
|
||||
##############################################################
|
||||
#
|
||||
# API AUTHENTICATION
|
||||
#
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_APIAuth($) {
|
||||
my ($hash, $def) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
my $username = $hash->{HusqvarnaAutomower}->{username};
|
||||
my $password = $hash->{HusqvarnaAutomower}->{password};
|
||||
|
||||
my $header = "Content-Type: application/json\r\nAccept: application/json";
|
||||
my $json = ' {
|
||||
"data" : {
|
||||
"type" : "token",
|
||||
"attributes" : {
|
||||
"username" : "' . $username. '",
|
||||
"password" : "' . $password. '"
|
||||
}
|
||||
}
|
||||
}';
|
||||
|
||||
HttpUtils_NonblockingGet({
|
||||
url => AUTHURL . "token",
|
||||
timeout => 5,
|
||||
hash => $hash,
|
||||
method => "POST",
|
||||
header => $header,
|
||||
data => $json,
|
||||
callback => \&HusqvarnaAutomower_APIAuthResponse,
|
||||
});
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_APIAuthResponse($) {
|
||||
my ($param, $err, $data) = @_;
|
||||
my $hash = $param->{hash};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
if($err ne "") {
|
||||
HusqvarnaAutomower_CONNECTED($hash,'error');
|
||||
Log3 $name, 5, "error while requesting ".$param->{url}." - $err";
|
||||
|
||||
} elsif($data ne "") {
|
||||
|
||||
my $result = decode_json($data);
|
||||
if ($result->{errors}) {
|
||||
HusqvarnaAutomower_CONNECTED($hash,'error');
|
||||
Log3 $name, 5, "Error: " . $result->{errors}[0]->{detail};
|
||||
|
||||
} else {
|
||||
Log3 $name, 5, "$data";
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{token} = $result->{data}{id};
|
||||
$hash->{HusqvarnaAutomower}->{provider} = $result->{data}{attributes}{provider};
|
||||
$hash->{HusqvarnaAutomower}->{user_id} = $result->{data}{attributes}{user_id};
|
||||
$hash->{HusqvarnaAutomower}->{expires} = time() + $result->{data}{attributes}{expires_in};
|
||||
|
||||
# set Readings
|
||||
readingsBeginUpdate($hash);
|
||||
readingsBulkUpdate($hash,'token',$hash->{HusqvarnaAutomower}->{token} );
|
||||
readingsBulkUpdate($hash,'provider',$hash->{HusqvarnaAutomower}->{provider} );
|
||||
readingsBulkUpdate($hash,'user_id',$hash->{HusqvarnaAutomower}->{user_id} );
|
||||
|
||||
my $expire_date = strftime("%Y-%m-%d %H:%M:%S", localtime($hash->{HusqvarnaAutomower}->{expires}));
|
||||
readingsBulkUpdate($hash,'expires',$expire_date );
|
||||
readingsEndUpdate($hash, 1);
|
||||
|
||||
HusqvarnaAutomower_CONNECTED($hash,'authenticated');
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_CONNECTED($@) {
|
||||
my ($hash,$set) = @_;
|
||||
if ($set) {
|
||||
$hash->{HusqvarnaAutomower}->{CONNECTED} = $set;
|
||||
RemoveInternalTimer($hash);
|
||||
%{$hash->{updateDispatch}} = ();
|
||||
if (!defined($hash->{READINGS}->{state}->{VAL}) || $hash->{READINGS}->{state}->{VAL} ne $set) {
|
||||
readingsSingleUpdate($hash,"state",$set,1);
|
||||
}
|
||||
return undef;
|
||||
} else {
|
||||
if ($hash->{HusqvarnaAutomower}->{CONNECTED} eq 'disabled') {
|
||||
return 'disabled';
|
||||
}
|
||||
elsif ($hash->{HusqvarnaAutomower}->{CONNECTED} eq 'connected') {
|
||||
return 1;
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
##############################################################
|
||||
#
|
||||
# UPDATE FUNCTIONS
|
||||
#
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_DoUpdate($) {
|
||||
my ($hash) = @_;
|
||||
my ($name,$self) = ($hash->{NAME},HusqvarnaAutomower_Whoami());
|
||||
|
||||
Log3 $name, 3, "doUpdate() called.";
|
||||
|
||||
if (HusqvarnaAutomower_CONNECTED($hash) eq "disabled") {
|
||||
Log3 $name, 3, "$name - Device is disabled.";
|
||||
return undef;
|
||||
}
|
||||
|
||||
if (time() >= $hash->{HusqvarnaAutomower}->{expires} ) {
|
||||
Log3 $name, 3, "LOGIN TOKEN MISSING OR EXPIRED";
|
||||
HusqvarnaAutomower_CONNECTED($hash,'disconnected');
|
||||
|
||||
} elsif ($hash->{HusqvarnaAutomower}->{CONNECTED} eq 'connected') {
|
||||
Log3 $name, 3, "Update with device: " . $hash->{HusqvarnaAutomower}->{mower_id};
|
||||
HusqvarnaAutomower_getMowerStatus($hash);
|
||||
InternalTimer( time() + $hash->{HusqvarnaAutomower}->{interval}, $self, $hash, 0 );
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
##############################################################
|
||||
#
|
||||
# GET MOWERS
|
||||
#
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_getMower($) {
|
||||
my ($hash) = @_;
|
||||
my ($name) = $hash->{NAME};
|
||||
|
||||
my $token = $hash->{HusqvarnaAutomower}->{token};
|
||||
my $provider = $hash->{HusqvarnaAutomower}->{provider};
|
||||
my $header = "Content-Type: application/json\r\nAccept: application/json\r\nAuthorization: Bearer " . $token . "\r\nAuthorization-Provider: " . $provider;
|
||||
|
||||
HttpUtils_NonblockingGet({
|
||||
url => APIURL . "mowers",
|
||||
timeout => 5,
|
||||
hash => $hash,
|
||||
method => "GET",
|
||||
header => $header,
|
||||
callback => \&HusqvarnaAutomower_getMowerResponse,
|
||||
});
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_getMowerResponse($) {
|
||||
|
||||
my ($param, $err, $data) = @_;
|
||||
my $hash = $param->{hash};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
if($err ne "") {
|
||||
Log3 $name, 5, "error while requesting ".$param->{url}." - $err";
|
||||
|
||||
} elsif($data ne "") {
|
||||
|
||||
if ($data eq "[]") {
|
||||
Log3 $name, 3, "Please register an automower first";
|
||||
$hash->{HusqvarnaAutomower}->{mower_id} = "none";
|
||||
|
||||
# STATUS LOGGEDIN MUST BE REMOVED
|
||||
HusqvarnaAutomower_CONNECTED($hash,'connected');
|
||||
|
||||
} else {
|
||||
|
||||
Log3 $name, 5, "Automower(s) found";
|
||||
Log3 $name, 5, $data;
|
||||
|
||||
my $result = decode_json($data);
|
||||
my $mower = $hash->{HusqvarnaAutomower}->{mower};
|
||||
Log3 $name, 5, $result->[$mower]->{'name'};
|
||||
|
||||
# MOWER DATA
|
||||
my $mymower = $result->[$mower];
|
||||
$hash->{HusqvarnaAutomower}->{mower_id} = $mymower->{'id'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_name} = $mymower->{'name'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_model} = $mymower->{'model'};
|
||||
|
||||
# MOWER STATUS
|
||||
my $mymowerStatus = $mymower->{'status'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_battery} = $mymowerStatus->{'batteryPercent'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_status} = $mymowerStatus->{'mowerStatus'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_mode} = $mymowerStatus->{'operatingMode'};
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{mower_nextStart} = HusqvarnaAutomower_Correct_Localtime( $mymowerStatus->{'nextStartTimestamp'} );
|
||||
|
||||
HusqvarnaAutomower_CONNECTED($hash,'connected');
|
||||
|
||||
}
|
||||
|
||||
readingsBeginUpdate($hash);
|
||||
#readingsBulkUpdate($hash,$reading,$value);
|
||||
readingsBulkUpdate($hash, "mower_id", $hash->{HusqvarnaAutomower}->{mower_id} );
|
||||
readingsBulkUpdate($hash, "mower_name", $hash->{HusqvarnaAutomower}->{mower_name} );
|
||||
readingsBulkUpdate($hash, "mower_battery", $hash->{HusqvarnaAutomower}->{mower_battery} );
|
||||
readingsBulkUpdate($hash, "mower_status", $hash->{HusqvarnaAutomower}->{mower_status} );
|
||||
readingsBulkUpdate($hash, "mower_mode", $hash->{HusqvarnaAutomower}->{mower_mode} );
|
||||
|
||||
my $nextStartTimestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($hash->{HusqvarnaAutomower}->{mower_nextStart}) );
|
||||
readingsBulkUpdate($hash, "mower_nextStart", $nextStartTimestamp );
|
||||
|
||||
readingsEndUpdate($hash, 1);
|
||||
|
||||
}
|
||||
|
||||
return undef;
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_getMowerStatus($) {
|
||||
my ($hash) = @_;
|
||||
my ($name) = $hash->{NAME};
|
||||
|
||||
my $token = $hash->{HusqvarnaAutomower}->{token};
|
||||
my $provider = $hash->{HusqvarnaAutomower}->{provider};
|
||||
my $header = "Content-Type: application/json\r\nAccept: application/json\r\nAuthorization: Bearer " . $token . "\r\nAuthorization-Provider: " . $provider;
|
||||
|
||||
my $mymower_id = $hash->{HusqvarnaAutomower}->{mower_id};
|
||||
|
||||
HttpUtils_NonblockingGet({
|
||||
url => APIURL . "mowers/" . $mymower_id . "/status",
|
||||
timeout => 5,
|
||||
hash => $hash,
|
||||
method => "GET",
|
||||
header => $header,
|
||||
callback => \&HusqvarnaAutomower_getMowerStatusResponse,
|
||||
});
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub HusqvarnaAutomower_getMowerStatusResponse($) {
|
||||
|
||||
my ($param, $err, $data) = @_;
|
||||
my $hash = $param->{hash};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
if($err ne "") {
|
||||
Log3 $name, 5, "error while requesting ".$param->{url}." - $err";
|
||||
|
||||
} elsif($data ne "") {
|
||||
|
||||
Log3 $name, 5, $data;
|
||||
my $result = decode_json($data);
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{mower_battery} = $result->{'batteryPercent'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_status} = $result->{'mowerStatus'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_mode} = $result->{'operatingMode'};
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{mower_nextStart} = HusqvarnaAutomower_Correct_Localtime( $result->{'nextStartTimestamp'} );
|
||||
|
||||
$hash->{HusqvarnaAutomower}->{mower_lastLatitude} = $result->{'lastLocations'}->[0]->{'latitude'};
|
||||
$hash->{HusqvarnaAutomower}->{mower_lastLongitude} = $result->{'lastLocations'}->[0]->{'longitude'};
|
||||
|
||||
readingsBeginUpdate($hash);
|
||||
#readingsBulkUpdate($hash,$reading,$value);
|
||||
readingsBulkUpdate($hash, "mower_battery", $hash->{HusqvarnaAutomower}->{mower_battery} );
|
||||
readingsBulkUpdate($hash, "mower_status", $hash->{HusqvarnaAutomower}->{mower_status} );
|
||||
readingsBulkUpdate($hash, "mower_mode", $hash->{HusqvarnaAutomower}->{mower_mode} );
|
||||
|
||||
my $nextStartTimestamp = strftime("%Y-%m-%d %H:%M:%S", localtime($hash->{HusqvarnaAutomower}->{mower_nextStart}));
|
||||
|
||||
readingsBulkUpdate($hash, "mower_nextStart", $nextStartTimestamp );
|
||||
|
||||
readingsBulkUpdate($hash, "mower_lastLatitude", $hash->{HusqvarnaAutomower}->{mower_lastLatitude} );
|
||||
readingsBulkUpdate($hash, "mower_lastLongitude", $hash->{HusqvarnaAutomower}->{mower_lastLongitude} );
|
||||
readingsEndUpdate($hash, 1);
|
||||
|
||||
}
|
||||
|
||||
return undef;
|
||||
|
||||
}
|
||||
|
||||
|
||||
##############################################################
|
||||
#
|
||||
# SEND COMMAND
|
||||
#
|
||||
##############################################################
|
||||
|
||||
sub HusqvarnaAutomower_CMD($$) {
|
||||
#my ($hash, $def) = @_;
|
||||
my ($hash,$cmd) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
# valid commands ['PARK', 'STOP', 'START']
|
||||
my $token = $hash->{HusqvarnaAutomower}->{token};
|
||||
my $provider = $hash->{HusqvarnaAutomower}->{provider};
|
||||
my $mower_id = $hash->{HusqvarnaAutomower}->{mower_id};
|
||||
|
||||
my $header = "Content-Type: application/json\r\nAccept: application/json\r\nAuthorization: Bearer " . $token . "\r\nAuthorization-Provider: " . $provider;
|
||||
|
||||
Log3 $name, 5, "cmd: " . $cmd;
|
||||
my $json = '{"action": "' . $cmd . '"}';
|
||||
|
||||
HttpUtils_NonblockingGet({
|
||||
url => APIURL . "mowers/". $mower_id . "/control",
|
||||
timeout => 5,
|
||||
hash => $hash,
|
||||
method => "POST",
|
||||
header => $header,
|
||||
data => $json,
|
||||
callback => \&HusqvarnaAutomower_CMDResponse,
|
||||
});
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_CMDResponse($) {
|
||||
my ($param, $err, $data) = @_;
|
||||
my $hash = $param->{hash};
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
if($err ne "") {
|
||||
HusqvarnaAutomower_CONNECTED($hash,'error');
|
||||
Log3 $name, 5, "error while requesting ".$param->{url}." - $err";
|
||||
|
||||
} elsif($data ne "") {
|
||||
|
||||
my $result = decode_json($data);
|
||||
if ($result->{errors}) {
|
||||
HusqvarnaAutomower_CONNECTED($hash,'error');
|
||||
Log3 $name, 5, "Error: " . $result->{errors}[0]->{detail};
|
||||
|
||||
} else {
|
||||
Log3 $name, 5, $data;
|
||||
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
###############################################################################
|
||||
|
||||
sub HusqvarnaAutomower_Correct_Localtime($) {
|
||||
|
||||
my ($time) = @_;
|
||||
my ($dst) = (localtime)[8]; # fetch daylight savings time flag
|
||||
|
||||
if ($dst) {
|
||||
return $time - ( 2 * 3600 );
|
||||
} else {
|
||||
return $time - ( 1 * 3600 );
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub HusqvarnaAutomower_Whoami() { return (split('::',(caller(1))[3]))[1] || ''; }
|
||||
sub HusqvarnaAutomower_Whowasi() { return (split('::',(caller(2))[3]))[1] || ''; }
|
||||
|
||||
##############################################################
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=item device
|
||||
=item summary Modul to control Husqvarna Automower with Connect Module (SIM)
|
||||
=item summary_DE Modul zur Steuerung von Husqvarna Automower mit Connect Modul (SIM)
|
||||
|
||||
=begin html
|
||||
|
||||
<a name="HusqvarnaAutomower"></a>
|
||||
<h3>Husqvarna Automower with Connect Module (SIM)</h3>
|
||||
<ul>
|
||||
<u><b>Requirements</b></u>
|
||||
<br><br>
|
||||
<ul>
|
||||
<li>This module allows the communication between the Husqvarna Cloud and FHEM.</li>
|
||||
<li>You can control any Automower that is equipped with the original Husqvarna Connect Module (SIM).</li>
|
||||
<li>The Automower must be registered in the Husqvarna App beforehand.</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerdefine"></a>
|
||||
<b>Define</b>
|
||||
<ul>
|
||||
<code>define <name> HusqvarnaAutomower</code>
|
||||
<br><br>
|
||||
Beispiel:
|
||||
<ul><br>
|
||||
<code>define myMower HusqvarnaAutomower<br>
|
||||
attr myMower username YOUR_USERNAME<br>
|
||||
attr myMower password YOUR_PASSWORD
|
||||
</code><br>
|
||||
</ul>
|
||||
<br><br>
|
||||
You must set both attributes <b>username</b> and <b>password</b>. These are the same that you use to login via the Husqvarna App.
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerattributes"></a>
|
||||
<b>Attributes</b>
|
||||
<ul>
|
||||
<li>username - Email that is used in Husqvarna App</li>
|
||||
<li>password - Password that is used in Husqvarna App</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<b>Optional attributes</b>
|
||||
<ul>
|
||||
<li>mower - ID of Automower, if more that one is registered. Default: 0</li>
|
||||
<li>interval - Time in seconds that is used to get new data from Husqvarna Cloud. Default: 300</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerreadings"></a>
|
||||
<b>Readings</b>
|
||||
<ul>
|
||||
<li>expires - date when session of Husqvarna Cloud expires</li>
|
||||
<li>mower_id - ID of the mower</li>
|
||||
<li>mower_lastLatitude - last known position (latitude)</li>
|
||||
<li>mower_lastLongitude - last known position (longitude)</li>
|
||||
<li>mower_mode - current working mode (e. g. AUTO)</li>
|
||||
<li>mower_name - name of the mower</li>
|
||||
<li>mower_nextStart - next start time</li>
|
||||
<li>mower_status - current status (e. g. OFF_HATCH_CLOSED_DISABLED)</li>
|
||||
<li>provider - should be Husqvarna</li>
|
||||
<li>state - status of connection to Husqvarna Cloud (e. g. connected)</li>
|
||||
<li>token - current session token of Husqvarna Cloud</li>
|
||||
<li>user_id - your user ID in Husqvarna Cloud</li>
|
||||
</ul>
|
||||
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
|
||||
|
||||
|
||||
=begin html_DE
|
||||
|
||||
<a name="HusqvarnaAutomower"></a>
|
||||
<h3>Husqvarna Automower mit Connect Modul</h3>
|
||||
<ul>
|
||||
<u><b>Voraussetzungen</b></u>
|
||||
<br><br>
|
||||
<ul>
|
||||
<li>Dieses Modul ermöglicht die Kommunikation zwischen der Husqvarna Cloud und FHEM.</li>
|
||||
<li>Es kann damit jeder Automower, der über ein original Husqvarna Connect Modul (SIM) verfügt, überwacht und gesteuert werden.</li>
|
||||
<li>Der Automower muss vorab in der Husqvarna App eingerichtet sein.</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerdefine"></a>
|
||||
<b>Define</b>
|
||||
<ul>
|
||||
<br>
|
||||
<code>define <name> HusqvarnaAutomower</code>
|
||||
<br><br>
|
||||
Beispiel:
|
||||
<ul><br>
|
||||
<code>define myMower HusqvarnaAutomower<br>
|
||||
attr myMower username YOUR_USERNAME<br>
|
||||
attr myMower password YOUR_PASSWORD
|
||||
</code><br>
|
||||
</ul>
|
||||
<br><br>
|
||||
Es müssen die beiden Attribute <b>username</b> und <b>password</b> gesetzt werden. Diese sind identisch mit den Logindaten der Husqvarna App.
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerattributes"></a>
|
||||
<b>Attributes</b>
|
||||
<ul>
|
||||
<li>username - Email, die in der Husqvarna App verwendet wird</li>
|
||||
<li>password - Passwort, das in der Husqvarna App verwendet wird</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<b>Optionale Attribute</b>
|
||||
<ul>
|
||||
<li>mower - ID des Automowers, sofern mehrere registriert sind. Standard: 0</li>
|
||||
<li>interval - Zeit in Sekunden nach denen neue Daten aus der Husqvarna Cloud abgerufen werden. Standard: 300</li>
|
||||
</ul>
|
||||
<br>
|
||||
|
||||
<a name="HusqvarnaAutomowerreadings"></a>
|
||||
<b>Readings</b>
|
||||
<ul>
|
||||
<li>expires - Datum wann die Session der Husqvarna Cloud abläuft</li>
|
||||
<li>mower_id - ID des Automowers</li>
|
||||
<li>mower_lastLatitude - letzte bekannte Position (Breitengrad)</li>
|
||||
<li>mower_lastLongitude - letzte bekannte Position (Längengrad)</li>
|
||||
<li>mower_mode - aktueller Arbeitsmodus (e. g. AUTO)</li>
|
||||
<li>mower_name - Name des Automowers</li>
|
||||
<li>mower_nextStart - nächste Startzeit</li>
|
||||
<li>mower_status - aktueller Status (e. g. OFF_HATCH_CLOSED_DISABLED)</li>
|
||||
<li>provider - Sollte immer Husqvarna sein</li>
|
||||
<li>state - Status der Verbindung zur Husqvarna Cloud (e. g. connected)</li>
|
||||
<li>token - aktueller Sitzungstoken für die Husqvarna Cloud</li>
|
||||
<li>user_id - Nutzer-ID in der Husqvarna Cloud</li>
|
||||
</ul>
|
||||
|
||||
</ul>
|
||||
|
||||
|
||||
=end html_DE
|
||||
Loading…
x
Reference in New Issue
Block a user