mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-11 13:12:00 +00:00
1525 lines
76 KiB
Perl
1525 lines
76 KiB
Perl
###############################################################################
|
|
#
|
|
# $Id$
|
|
#
|
|
# 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.
|
|
#
|
|
#
|
|
#
|
|
# Husqvarnas Open API is used
|
|
# based on some ideas from HusqvarnaAutomower and BOTVAC module
|
|
#
|
|
################################################################################
|
|
|
|
package FHEM::AutomowerConnect;
|
|
my $cvsid = '$Id$';
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
|
|
# wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
|
|
use GPUtils qw(:all);
|
|
use FHEM::Core::Authentication::Passwords qw(:ALL);
|
|
|
|
use Time::HiRes qw(gettimeofday);
|
|
use Blocking;
|
|
use Storable qw(dclone retrieve store);
|
|
|
|
# Import der FHEM Funktionen
|
|
BEGIN {
|
|
GP_Import(
|
|
qw(
|
|
AttrVal
|
|
CommandAttr
|
|
FmtDateTime
|
|
getKeyValue
|
|
InternalTimer
|
|
InternalVal
|
|
IsDisabled
|
|
Log3
|
|
Log
|
|
minNum
|
|
maxNum
|
|
readingFnAttributes
|
|
readingsBeginUpdate
|
|
readingsBulkUpdate
|
|
readingsBulkUpdateIfChanged
|
|
readingsDelete
|
|
readingsEndUpdate
|
|
ReadingsNum
|
|
readingsSingleUpdate
|
|
ReadingsVal
|
|
RemoveInternalTimer
|
|
setKeyValue
|
|
defs
|
|
attr
|
|
modules
|
|
devspec2array
|
|
)
|
|
);
|
|
}
|
|
|
|
GP_Export(
|
|
qw(
|
|
Initialize
|
|
)
|
|
);
|
|
|
|
my $missingModul = "";
|
|
|
|
eval "use JSON;1" or $missingModul .= "JSON ";
|
|
require HttpUtils;
|
|
|
|
require FHEM::Devices::AMConnect::Common;
|
|
|
|
use constant AUTHURL => 'https://api.authentication.husqvarnagroup.dev/v1';
|
|
use constant APIURL => 'https://api.amc.husqvarna.dev/v1';
|
|
|
|
##############################################################
|
|
sub Initialize() {
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = \&FHEM::Devices::AMConnect::Common::Define;
|
|
$hash->{GetFn} = \&FHEM::Devices::AMConnect::Common::Get;
|
|
$hash->{UndefFn} = \&FHEM::Devices::AMConnect::Common::Undefine;
|
|
$hash->{DeleteFn} = \&FHEM::Devices::AMConnect::Common::Delete;
|
|
$hash->{RenameFn} = \&FHEM::Devices::AMConnect::Common::Rename;
|
|
$hash->{FW_detailFn}= \&FHEM::Devices::AMConnect::Common::FW_detailFn;
|
|
$hash->{SetFn} = \&Set;
|
|
$hash->{AttrFn} = \&Attr;
|
|
$hash->{AttrList} = "interval " .
|
|
"disable:1,0 " .
|
|
"debug:1,0 " .
|
|
"disabledForIntervals " .
|
|
"mapImagePath " .
|
|
"mapImageWidthHeight " .
|
|
"mapImageCoordinatesToRegister:textField-long " .
|
|
"mapImageCoordinatesUTM:textField-long " .
|
|
"mapImageZoom " .
|
|
"mapBackgroundColor " .
|
|
"mapDesignAttributes:textField-long " .
|
|
"mapZones:textField-long " .
|
|
"mowerActivityToHighLight:textField-long " .
|
|
"showMap:1,0 " .
|
|
"chargingStationCoordinates " .
|
|
"chargingStationImagePosition:left,top,right,bottom,center " .
|
|
"scaleToMeterXY " .
|
|
"mowerCuttingWidth " .
|
|
"mowerSchedule:textField-long " .
|
|
"mowingAreaLimits:textField-long " .
|
|
"propertyLimits:textField-long " .
|
|
"weekdaysToResetWayPoints " .
|
|
"numberOfWayPointsToDisplay " .
|
|
$readingFnAttributes;
|
|
|
|
$::data{FWEXT}{AutomowerConnect}{SCRIPT} = "automowerconnect.js";
|
|
|
|
return undef;
|
|
}
|
|
|
|
|
|
##############################################################
|
|
#
|
|
# API AUTHENTICATION
|
|
#
|
|
##############################################################
|
|
|
|
sub APIAuth {
|
|
my ($hash, $update) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $type = $hash->{TYPE};
|
|
my $iam = "$type $name APIAuth:";
|
|
my $interval = $hash->{helper}{interval};
|
|
( $hash->{VERSION} ) = $cvsid =~ /\.pm (.*)Z/ if ( !$hash->{VERSION} );
|
|
|
|
if ( IsDisabled($name) ) {
|
|
|
|
readingsSingleUpdate($hash,'state','disabled',1) if( ReadingsVal($name,'state','') ne 'disabled' );
|
|
RemoveInternalTimer( $hash, \&APIAuth );
|
|
InternalTimer( gettimeofday() + $interval, \&APIAuth, $hash, 0 );
|
|
|
|
return undef;
|
|
|
|
}
|
|
|
|
if ( !$update && $::init_done ) {
|
|
|
|
if ( ReadingsVal( $name,'.access_token','' ) and gettimeofday() < (ReadingsVal($name, '.expires', 0) - $hash->{helper}{interval} - 60)) {
|
|
|
|
readingsSingleUpdate( $hash, 'state', 'update', 1 );
|
|
getMower( $hash );
|
|
|
|
} else {
|
|
|
|
readingsSingleUpdate( $hash, 'state', 'authentification', 1 );
|
|
my $client_id = $hash->{helper}->{client_id};
|
|
my $client_secret = $hash->{helper}->{passObj}->getReadPassword($name);
|
|
my $grant_type = $hash->{helper}->{grant_type};
|
|
|
|
my $header = "Content-Type: application/x-www-form-urlencoded\r\nAccept: application/json";
|
|
my $data = 'grant_type=' . $grant_type.'&client_id=' . $client_id . '&client_secret=' . $client_secret;
|
|
::HttpUtils_NonblockingGet({
|
|
url => AUTHURL . '/oauth2/token',
|
|
timeout => 5,
|
|
hash => $hash,
|
|
method => 'POST',
|
|
header => $header,
|
|
data => $data,
|
|
callback => \&APIAuthResponse,
|
|
});
|
|
}
|
|
} else {
|
|
|
|
RemoveInternalTimer( $hash, \&APIAuth);
|
|
InternalTimer(gettimeofday() + 20, \&APIAuth, $hash, 0);
|
|
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
#########################
|
|
sub APIAuthResponse {
|
|
my ($param, $err, $data) = @_;
|
|
my $hash = $param->{hash};
|
|
my $name = $hash->{NAME};
|
|
my $type = $hash->{TYPE};
|
|
my $statuscode = $param->{code} // '';
|
|
my $interval = $hash->{helper}{interval};
|
|
my $iam = "$type $name APIAuthResponse:";
|
|
|
|
Log3 $name, 1, "\ndebug $iam \n\$statuscode [$statuscode]\n\$err [$err],\n \$data [$data] \n\$param->url $param->{url}" if ( AttrVal($name, 'debug', '') );
|
|
|
|
if( !$err && $statuscode == 200 && $data) {
|
|
|
|
my $result = eval { decode_json($data) };
|
|
if ($@) {
|
|
|
|
Log3 $name, 2, "$iam JSON error [ $@ ]";
|
|
readingsSingleUpdate( $hash, 'state', 'error JSON', 1 );
|
|
|
|
} else {
|
|
|
|
$hash->{helper}->{auth} = $result;
|
|
|
|
# Update readings
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdateIfChanged($hash,'.access_token',$hash->{helper}{auth}{access_token},0 );
|
|
readingsBulkUpdateIfChanged($hash,'.provider',$hash->{helper}{auth}{provider},0 );
|
|
readingsBulkUpdateIfChanged($hash,'.user_id',$hash->{helper}{auth}{user_id},0 );
|
|
|
|
$hash->{helper}{auth}{expires} = $result->{expires_in} + gettimeofday();
|
|
readingsBulkUpdateIfChanged($hash,'.expires',$hash->{helper}{auth}{expires},0 );
|
|
readingsBulkUpdateIfChanged($hash,'.scope',$hash->{helper}{auth}{scope},0 );
|
|
readingsBulkUpdateIfChanged($hash,'.token_type',$hash->{helper}{auth}{token_type},0 );
|
|
|
|
my $expire_date = FmtDateTime($hash->{helper}{auth}{expires});
|
|
readingsBulkUpdateIfChanged($hash,'api_token_expires',$expire_date );
|
|
readingsBulkUpdateIfChanged($hash,'state', 'authenticated');
|
|
readingsBulkUpdateIfChanged($hash,'mower_commandStatus', 'cleared');
|
|
readingsEndUpdate($hash, 1);
|
|
|
|
getMower( $hash );
|
|
return undef;
|
|
}
|
|
|
|
} else {
|
|
|
|
|
|
readingsSingleUpdate( $hash, 'state', "error statuscode $statuscode", 1 );
|
|
Log3 $name, 1, "\n$iam\n\$statuscode [$statuscode]\n\$err [$err],\n\$data [$data]\n\$param->url $param->{url}";
|
|
|
|
}
|
|
|
|
RemoveInternalTimer( $hash, \&APIAuth );
|
|
InternalTimer( gettimeofday() + $interval, \&APIAuth, $hash, 0 );
|
|
return undef;
|
|
|
|
}
|
|
|
|
|
|
##############################################################
|
|
#
|
|
# GET MOWERS
|
|
#
|
|
##############################################################
|
|
|
|
sub getMower {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $type = $hash->{TYPE};
|
|
my $iam = "$type $name getMower:";
|
|
my $access_token = ReadingsVal($name,".access_token","");
|
|
my $provider = ReadingsVal($name,".provider","");
|
|
my $client_id = $hash->{helper}->{client_id};
|
|
|
|
my $header = "Accept: application/vnd.api+json\r\nX-Api-Key: " . $client_id . "\r\nAuthorization: Bearer " . $access_token . "\r\nAuthorization-Provider: " . $provider;
|
|
Log3 $name, 5, "$iam header [ $header ]";
|
|
|
|
::HttpUtils_NonblockingGet({
|
|
url => APIURL . "/mowers",
|
|
timeout => 5,
|
|
hash => $hash,
|
|
method => "GET",
|
|
header => $header,
|
|
callback => \&getMowerResponse,
|
|
});
|
|
|
|
|
|
return undef;
|
|
}
|
|
|
|
#########################
|
|
sub getMowerResponse {
|
|
|
|
my ($param, $err, $data) = @_;
|
|
my $hash = $param->{hash};
|
|
my $name = $hash->{NAME};
|
|
my $type = $hash->{TYPE};
|
|
my $statuscode = $param->{code};
|
|
my $interval = $hash->{helper}{interval};
|
|
my $iam = "$type $name getMowerResponse:";
|
|
my $mowerNumber = $hash->{helper}{mowerNumber};
|
|
|
|
Log3 $name, 1, "\ndebug $iam \n\$statuscode [$statuscode]\n\$err [$err],\n \$data [$data] \n\$param->url $param->{url}" if ( AttrVal($name, 'debug', '') );
|
|
|
|
if( !$err && $statuscode == 200 && $data) {
|
|
|
|
if ( $data eq "[]" ) {
|
|
|
|
Log3 $name, 2, "$iam no mower data present";
|
|
|
|
} else {
|
|
|
|
my $result = eval { decode_json($data) };
|
|
if ($@) {
|
|
|
|
Log3( $name, 2, "$iam - JSON error while request: $@");
|
|
|
|
} else {
|
|
|
|
$hash->{helper}{mowers} = $result->{data};
|
|
my $maxMower = 0;
|
|
$maxMower = @{$hash->{helper}{mowers}} if ( ref ( $hash->{helper}{mowers} ) eq 'ARRAY' );
|
|
if ($maxMower <= $mowerNumber || $mowerNumber < 0 ) {
|
|
|
|
Log3 $name, 2, "$iam wrong mower number $mowerNumber ($maxMower mower available). Change definition of $name.";
|
|
return undef;
|
|
|
|
}
|
|
my $foundMower .= '0 => '.$hash->{helper}{mowers}[0]{attributes}{system}{name};
|
|
for (my $i = 1; $i < $maxMower; $i++) {
|
|
$foundMower .= ' | '.$i.' => '.$hash->{helper}{mowers}[$i]{attributes}{system}{name};
|
|
}
|
|
Log3 $name, 5, "$iam found $foundMower ";
|
|
|
|
if ( defined ($hash->{helper}{mower}{id}) ){ # update dataset
|
|
|
|
$hash->{helper}{mowerold} = dclone( $hash->{helper}{mower} );
|
|
|
|
} else { # first data set
|
|
|
|
$hash->{helper}{mowerold} = dclone( $hash->{helper}{mowers}[$mowerNumber] );
|
|
$hash->{helper}{searchpos} = [ dclone( $hash->{helper}{mowerold}{attributes}{positions}[0] ), dclone( $hash->{helper}{mowerold}{attributes}{positions}[1] ) ];
|
|
$hash->{helper}{timestamps}[ 0 ] = $hash->{helper}{mowerold}{attributes}{metadata}{statusTimestamp};
|
|
|
|
if ( AttrVal( $name, 'mapImageCoordinatesToRegister', '' ) eq '' ) {
|
|
::FHEM::Devices::AMConnect::Common::posMinMax( $hash, $hash->{helper}{mowerold}{attributes}{positions} );
|
|
}
|
|
|
|
}
|
|
|
|
$hash->{helper}{mower} = dclone( $hash->{helper}{mowers}[$mowerNumber] );
|
|
# add alignment data set (last matched search positions) to the end
|
|
push( @{ $hash->{helper}{mower}{attributes}{positions} }, @{ dclone( $hash->{helper}{searchpos} ) } );
|
|
$hash->{helper}{newdatasets} = 0;
|
|
|
|
my $storediff = $hash->{helper}{mower}{attributes}{metadata}{statusTimestamp} - $hash->{helper}{mowerold}{attributes}{metadata}{statusTimestamp};
|
|
if ($storediff) {
|
|
|
|
::FHEM::Devices::AMConnect::Common::AlignArray( $hash );
|
|
::FHEM::Devices::AMConnect::Common::FW_detailFn_Update ($hash) if (AttrVal($name,'showMap',1));
|
|
|
|
}
|
|
|
|
# Update readings
|
|
readingsBeginUpdate($hash);
|
|
|
|
readingsBulkUpdateIfChanged($hash, "batteryPercent", $hash->{helper}{mower}{attributes}{battery}{batteryPercent} );
|
|
readingsBulkUpdateIfChanged($hash, 'api_MowerFound', $foundMower );
|
|
my $pref = 'mower';
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_mode', $hash->{helper}{mower}{attributes}{$pref}{mode} );
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_activity', $hash->{helper}{mower}{attributes}{$pref}{activity} );
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_state', $hash->{helper}{mower}{attributes}{$pref}{state} );
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_commandStatus', 'cleared' );
|
|
|
|
if ( AttrVal($name, 'mapZones', 0) && $hash->{helper}{currentZone} && $hash->{helper}{mapZones}{$hash->{helper}{currentZone}}{curZoneCnt} ) {
|
|
my $curZon = $hash->{helper}{currentZone};
|
|
my $curZonCnt = $hash->{helper}{mapZones}{$curZon}{curZoneCnt};
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_currentZone', $curZon . '(' . $curZonCnt . '/' . $hash->{helper}{newzonedatasets} . ')' );
|
|
}
|
|
|
|
my $tstamp = $hash->{helper}{mower}{attributes}{$pref}{errorCodeTimestamp};
|
|
my $timestamp = ::FHEM::Devices::AMConnect::Common::FmtDateTimeGMT($tstamp/1000);
|
|
readingsBulkUpdateIfChanged($hash, $pref."_errorCodeTimestamp", $tstamp ? $timestamp : '-' );
|
|
|
|
my $errc = $hash->{helper}{mower}{attributes}{$pref}{errorCode};
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_errorCode', $tstamp ? $errc : '-');
|
|
|
|
my $errd = $::FHEM::Devices::AMConnect::Common::errortable->{$errc};
|
|
readingsBulkUpdateIfChanged($hash, $pref.'_errorDescription', $tstamp ? $errd : '-');
|
|
|
|
$pref = 'system';
|
|
readingsBulkUpdateIfChanged($hash, $pref."_name", $hash->{helper}{mower}{attributes}{$pref}{name} );
|
|
my $model = $hash->{helper}{mower}{attributes}{$pref}{model};
|
|
$model =~ s/AUTOMOWER./AM/;
|
|
# $hash->{MODEL} = '' if (!defined $hash->{MODEL});
|
|
$hash->{MODEL} = $model if ( $model && $hash->{MODEL} ne $model );
|
|
$pref = 'planner';
|
|
readingsBulkUpdateIfChanged($hash, "planner_restrictedReason", $hash->{helper}{mower}{attributes}{$pref}{restrictedReason} );
|
|
readingsBulkUpdateIfChanged($hash, "planner_overrideAction", $hash->{helper}{mower}{attributes}{$pref}{override}{action} );
|
|
|
|
$tstamp = $hash->{helper}{mower}{attributes}{$pref}{nextStartTimestamp};
|
|
$timestamp = ::FHEM::Devices::AMConnect::Common::FmtDateTimeGMT($tstamp/1000);
|
|
readingsBulkUpdateIfChanged($hash, "planner_nextStart", $tstamp ? $timestamp : '-' );
|
|
|
|
$pref = 'statistics';
|
|
readingsBulkUpdateIfChanged($hash, $pref."_numberOfCollisions", $hash->{helper}->{mower}{attributes}{$pref}{numberOfCollisions} );
|
|
readingsBulkUpdateIfChanged($hash, $pref."_newGeoDataSets", $hash->{helper}{newdatasets} );
|
|
$pref = 'settings';
|
|
readingsBulkUpdateIfChanged($hash, $pref."_headlight", $hash->{helper}->{mower}{attributes}{$pref}{headlight}{mode} );
|
|
readingsBulkUpdateIfChanged($hash, $pref."_cuttingHeight", $hash->{helper}->{mower}{attributes}{$pref}{cuttingHeight} );
|
|
$pref = 'status';
|
|
my $connected = $hash->{helper}{mower}{attributes}{metadata}{connected};
|
|
readingsBulkUpdateIfChanged($hash, $pref."_connected", ( $connected ? "CONNECTED($connected)" : "OFFLINE($connected)") );
|
|
readingsBulkUpdateIfChanged($hash, $pref."_Timestamp", FmtDateTime( $hash->{helper}{mower}{attributes}{metadata}{statusTimestamp}/1000 ));
|
|
readingsBulkUpdateIfChanged($hash, $pref."_TimestampDiff", $storediff/1000 );
|
|
readingsBulkUpdateIfChanged($hash, $pref."_TimestampOld", FmtDateTime( $hash->{helper}{mowerold}{attributes}{metadata}{statusTimestamp}/1000 ));
|
|
readingsEndUpdate($hash, 1);
|
|
|
|
my @time = localtime();
|
|
my $secs = ( $time[2] * 3600 ) + ( $time[1] * 60 ) + $time[0];
|
|
my $interval = $hash->{helper}->{interval};
|
|
# do at midnight
|
|
if ( $secs <= $interval ) {
|
|
|
|
$hash->{helper}{statistics}{lastDayTrack} = $hash->{helper}{statistics}{currentDayTrack};
|
|
$hash->{helper}{statistics}{lastDayArea} = $hash->{helper}{statistics}{currentDayArea};
|
|
$hash->{helper}{statistics}{currentWeekTrack} += $hash->{helper}{statistics}{currentDayTrack};
|
|
$hash->{helper}{statistics}{currentWeekArea} += $hash->{helper}{statistics}{currentDayArea};
|
|
$hash->{helper}{statistics}{currentDayTrack} = 0;
|
|
$hash->{helper}{statistics}{currentDayArea} = 0;
|
|
|
|
if ( AttrVal($name, 'mapZones', 0) && defined( $hash->{helper}{mapZones} ) ) {
|
|
|
|
my @zonekeys = sort (keys %{$hash->{helper}{mapZones}});
|
|
my $sumLastDayCnt=0;
|
|
my $sumCurrentWeekCnt=0;
|
|
map {
|
|
$hash->{helper}{mapZones}{$_}{lastDayCnt} = $hash->{helper}{mapZones}{$_}{zoneCnt};
|
|
$sumLastDayCnt += $hash->{helper}{mapZones}{$_}{lastDayCnt};
|
|
$hash->{helper}{mapZones}{$_}{currentWeekCnt} += $hash->{helper}{mapZones}{$_}{lastDayCnt};
|
|
$sumCurrentWeekCnt += $hash->{helper}{mapZones}{$_}{currentWeekCnt};
|
|
$hash->{helper}{mapZones}{$_}{zoneCnt} = 0;
|
|
} @zonekeys;
|
|
|
|
map {
|
|
$hash->{helper}{mapZones}{$_}{lastDayCntPct} = sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{lastDayCnt} / $sumLastDayCnt * 100 );
|
|
} @zonekeys if( $sumLastDayCnt );
|
|
|
|
map {
|
|
$hash->{helper}{mapZones}{$_}{currentWeekCntPct} = sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{currentWeekCnt} / $sumCurrentWeekCnt * 100 );
|
|
} @zonekeys if( $sumCurrentWeekCnt );
|
|
|
|
}
|
|
# do on days
|
|
if ( $time[6] == 1 ) {
|
|
|
|
$hash->{helper}{statistics}{lastWeekTrack} = $hash->{helper}{statistics}{currentWeekTrack};
|
|
$hash->{helper}{statistics}{lastWeekArea} = $hash->{helper}{statistics}{currentWeekArea};
|
|
$hash->{helper}{statistics}{currentWeekTrack} = 0;
|
|
$hash->{helper}{statistics}{currentWeekArea} = 0;
|
|
|
|
if ( AttrVal($name, 'mapZones', 0) && defined( $hash->{helper}{mapZones} ) ) {
|
|
|
|
my @zonekeys = sort (keys %{$hash->{helper}{mapZones}});
|
|
my $sumLastWeekCnt=0;
|
|
map {
|
|
$hash->{helper}{mapZones}{$_}{lastWeekCnt} = $hash->{helper}{mapZones}{$_}{currentWeekCnt};
|
|
$sumLastWeekCnt += $hash->{helper}{mapZones}{$_}{lastWeekCnt};
|
|
$hash->{helper}{mapZones}{$_}{currentWeekCnt} = 0;
|
|
} @zonekeys;
|
|
|
|
map {
|
|
$hash->{helper}{mapZones}{$_}{lastWeekCntPct} = sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{lastWeekCnt} / $sumLastWeekCnt * 100 );
|
|
} @zonekeys if( $sumLastWeekCnt );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#clear position arrays
|
|
if ( AttrVal( $name, 'weekdaysToResetWayPoints', 1 ) =~ $time[6] ) {
|
|
|
|
$hash->{helper}{areapos} = [];
|
|
$hash->{helper}{otherpos} = [];
|
|
|
|
}
|
|
|
|
}
|
|
readingsSingleUpdate($hash, 'state', 'connected', 1 );
|
|
|
|
RemoveInternalTimer( $hash, \&APIAuth );
|
|
InternalTimer( gettimeofday() + $interval, \&APIAuth, $hash, 0 );
|
|
return undef;
|
|
|
|
}
|
|
}
|
|
|
|
} else {
|
|
|
|
readingsSingleUpdate( $hash, 'state', "error statuscode $statuscode", 1 );
|
|
Log3 $name, 1, "\ndebug $iam \n\$statuscode [$statuscode]\n\$err [$err],\n \$data [$data] \n\$param->url $param->{url}";
|
|
|
|
}
|
|
RemoveInternalTimer( $hash, \&APIAuth );
|
|
InternalTimer( gettimeofday() + $interval, \&APIAuth, $hash, 0 );
|
|
return undef;
|
|
|
|
}
|
|
|
|
|
|
#########################
|
|
sub Set {
|
|
my ($hash,@val) = @_;
|
|
my $type = $hash->{TYPE};
|
|
|
|
return "$type $hash->{NAME} Set: needs at least one argument" if ( @val < 2 );
|
|
|
|
my ($name,$setName,$setVal,$setVal2,$setVal3) = @val;
|
|
my $iam = "$type $name Set:";
|
|
|
|
Log3 $name, 4, "$iam called with $setName " . ($setVal ? $setVal : "") if ($setName !~ /^(\?|client_secret)$/);
|
|
|
|
if ( !IsDisabled($name) && $setName eq 'getUpdate' ) {
|
|
|
|
RemoveInternalTimer($hash, \&APIAuth);
|
|
APIAuth($hash);
|
|
return undef;
|
|
|
|
} elsif ( $setName eq 'chargingStationPositionToAttribute' ) {
|
|
|
|
my $xm = $hash->{helper}{chargingStation}{longitude} // 10.1165;
|
|
my $ym = $hash->{helper}{chargingStation}{latitude} // 51.28;
|
|
CommandAttr( $hash, "$name chargingStationCoordinates $xm $ym" );
|
|
return undef;
|
|
|
|
} elsif ( $setName eq 'defaultDesignAttributesToAttribute' ) {
|
|
|
|
my $design = $hash->{helper}{mapdesign};
|
|
CommandAttr( $hash, "$name mapDesignAttributes $design" );
|
|
return undef;
|
|
|
|
} elsif ( $setName eq 'mapZonesTemplateToAttribute' ) {
|
|
|
|
my $tpl = $hash->{helper}{mapZonesTpl};
|
|
CommandAttr( $hash, "$name mapZones $tpl" );
|
|
return undef;
|
|
|
|
} elsif ( ReadingsVal( $name, 'state', 'defined' ) !~ /defined|initialized|authentification|authenticated|update/ && $setName eq 'mowerScheduleToAttribute' ) {
|
|
|
|
my $calendarjson = eval { JSON::XS->new->pretty(1)->encode ($hash->{helper}{mower}{attributes}{calendar}{tasks}) };
|
|
if ( $@ ) {
|
|
return "$iam $@";
|
|
}
|
|
CommandAttr($hash,"$name mowerSchedule $calendarjson");
|
|
return undef;
|
|
|
|
} elsif ( $setName eq 'client_secret' ) {
|
|
if ( $setVal ) {
|
|
|
|
my ($passResp, $passErr) = $hash->{helper}->{passObj}->setStorePassword($name, $setVal);
|
|
Log3 $name, 1, "$iam error: $passErr" if ($passErr);
|
|
return "$iam $passErr" if( $passErr );
|
|
RemoveInternalTimer($hash, \&APIAuth);
|
|
APIAuth($hash);
|
|
return undef;
|
|
}
|
|
|
|
} elsif ( ReadingsVal( $name, 'state', 'defined' ) !~ /defined|initialized|authentification|authenticated|update/ && $setName =~ /^(Start|Park|cuttingHeight)$/ ) {
|
|
if ( $setVal =~ /^(\d+)$/) {
|
|
|
|
::FHEM::Devices::AMConnect::Common::CMD($hash ,$setName, $setVal);
|
|
return undef;
|
|
|
|
}
|
|
|
|
} elsif ( ReadingsVal( $name, 'state', 'defined' ) !~ /defined|initialized|authentification|authenticated|update/ && $setName eq 'headlight' ) {
|
|
if ( $setVal =~ /^(ALWAYS_OFF|ALWAYS_ON|EVENING_ONLY|EVENING_AND_NIGHT)$/) {
|
|
|
|
::FHEM::Devices::AMConnect::Common::CMD($hash ,$setName, $setVal);
|
|
|
|
return undef;
|
|
}
|
|
|
|
} elsif ( !IsDisabled($name) && $setName eq 'getNewAccessToken' ) {
|
|
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdateIfChanged( $hash, '.access_token', '', 0 );
|
|
readingsBulkUpdateIfChanged( $hash, 'state', 'initialized');
|
|
readingsBulkUpdateIfChanged( $hash, 'mower_commandStatus', 'cleared');
|
|
readingsEndUpdate($hash, 1);
|
|
|
|
RemoveInternalTimer($hash, \&APIAuth);
|
|
APIAuth($hash);
|
|
return undef;
|
|
|
|
} elsif (ReadingsVal( $name, 'state', 'defined' ) !~ /defined|initialized|authentification|authenticated|update/ && $setName =~ /ParkUntilFurtherNotice|ParkUntilNextSchedule|Pause|ResumeSchedule|sendScheduleFromAttributeToMower/) {
|
|
|
|
::FHEM::Devices::AMConnect::Common::CMD($hash,$setName);
|
|
return undef;
|
|
|
|
}
|
|
my $ret = " getNewAccessToken:noArg ParkUntilFurtherNotice:noArg ParkUntilNextSchedule:noArg Pause:noArg Start:selectnumbers,60,60,600,0,lin Park:selectnumbers,60,60,600,0,lin ResumeSchedule:noArg getUpdate:noArg client_secret ";
|
|
$ret .= "chargingStationPositionToAttribute:noArg headlight:ALWAYS_OFF,ALWAYS_ON,EVENING_ONLY,EVENING_AND_NIGHT cuttingHeight:1,2,3,4,5,6,7,8,9 mowerScheduleToAttribute:noArg ";
|
|
$ret .= "sendScheduleFromAttributeToMower:noArg defaultDesignAttributesToAttribute:noArg mapZonesTemplateToAttribute:noArg ";
|
|
return "Unknown argument $setName, choose one of".$ret;
|
|
|
|
}
|
|
|
|
#########################
|
|
sub Attr {
|
|
|
|
my ( $cmd, $name, $attrName, $attrVal ) = @_;
|
|
my $hash = $defs{$name};
|
|
my $type = $hash->{TYPE};
|
|
my $iam = "$type $name Attr:";
|
|
##########
|
|
if( $attrName eq "disable" ) {
|
|
if( $cmd eq "set" and $attrVal eq "1" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName disabled";
|
|
|
|
} elsif( $cmd eq "del" or $cmd eq 'set' and !$attrVal ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName enabled";
|
|
|
|
}
|
|
|
|
##########
|
|
} elsif ( $attrName eq 'mapImagePath' ) {
|
|
|
|
if( $cmd eq "set") {
|
|
if ($attrVal =~ '(webp|png|jpg|jpeg)$' ) {
|
|
$hash->{helper}{MAP_PATH} = $attrVal;
|
|
$hash->{helper}{MAP_MIME} = "image/".$1;
|
|
|
|
if ($attrVal =~ /(\d+)x(\d+)/) {
|
|
CommandAttr($hash,"$name mapImageWidthHeight $1 $2");
|
|
}
|
|
|
|
::FHEM::Devices::AMConnect::Common::readMap( $hash );
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
} else {
|
|
return "$iam $cmd $attrName wrong image type, use webp, png, jpeg or jpg";
|
|
Log3 $name, 3, "$iam $cmd $attrName wrong image type, use webp, png, jpeg or jpg";
|
|
}
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
$hash->{helper}{MAP_PATH} = '';
|
|
$hash->{helper}{MAP_CACHE} = '';
|
|
$hash->{helper}{MAP_MIME} = '';
|
|
Log3 $name, 3, "$iam $cmd $attrName";
|
|
|
|
}
|
|
|
|
##########
|
|
} elsif( $attrName eq "weekdaysToResetWayPoints" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $attrName is invalid, enter a combination of weekday numbers, space or - [0123456 -]" unless( $attrVal =~ /0|1|2|3|4|5|6| |-/ );
|
|
Log3 $name, 4, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default to 1";
|
|
|
|
}
|
|
##########
|
|
} elsif ( $attrName eq 'numberOfWayPointsToDisplay' ) {
|
|
|
|
my $icurr = @{$hash->{helper}{areapos}};
|
|
if( $cmd eq "set" && $attrVal =~ /\d+/ && $attrVal > $hash->{helper}{MOWING}{maxLengthDefault}) {
|
|
|
|
# reduce array
|
|
$hash->{helper}{MOWING}{maxLength} = $attrVal;
|
|
for ( my $i = $icurr; $i > $attrVal; $i-- ) {
|
|
pop @{$hash->{helper}{areapos}};
|
|
}
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
# reduce array
|
|
my $imax = $hash->{helper}{MOWING}{maxLengthDefault};
|
|
$hash->{helper}{MOWING}{maxLength} = $imax;
|
|
for ( my $i = $icurr; $i > $imax; $i-- ) {
|
|
pop @{$hash->{helper}{areapos}};
|
|
}
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrName and set default $imax";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "interval" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $cmd $attrName $attrVal Interval must be greater than 0, recommended 600" unless($attrVal > 0);
|
|
$hash->{helper}->{interval} = $attrVal;
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
$hash->{helper}->{interval} = 600;
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default 600";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mapImageCoordinatesUTM" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
if ( AttrVal( $name,'mapImageCoordinatesToRegister', '' ) && $attrVal =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)(\R|\s)(-?\d*\.?\d+)\s(-?\d*\.?\d+)/ ) {
|
|
|
|
my ( $x1, $y1, $x2, $y2 ) = ( $1, $2, $4, $5 );
|
|
AttrVal( $name,'mapImageCoordinatesToRegister', '' ) =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)(\R|\s)(-?\d*\.?\d+)\s(-?\d*\.?\d+)/;
|
|
my ( $lo1, $la1, $lo2, $la2 ) = ( $1, $2, $4, $5 );
|
|
my $scx = int( ( $x1 - $x2) / ( $lo1 - $lo2 ) );
|
|
my $scy = int( ( $y1 - $y2 ) / ( $la1 - $la2 ) );
|
|
CommandAttr($hash,"$name scaleToMeterXY $scx $scy");
|
|
|
|
} else {
|
|
return "$iam $attrName has a wrong format use linewise pairs <floating point longitude><one space character><floating point latitude> or the attribute mapImageCoordinatesToRegister was not set before.";
|
|
}
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default 0 90<Line feed>90 0";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mapImageCoordinatesToRegister" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $attrName has a wrong format use linewise pairs <floating point longitude><one space character><floating point latitude>" unless( $attrVal =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)(\R|\s)(-?\d*\.?\d+)\s(-?\d*\.?\d+)/ );
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default 0 90<Line feed>90 0";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "chargingStationCoordinates" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $attrName has a wrong format use <floating point longitude><one space character><floating point latitude>" unless( $attrVal =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)/ );
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default 10.1165 51.28";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mapImageWidthHeight" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $attrName has a wrong format use <integer longitude><one space character><integer latitude>" unless( $attrVal =~ /(\d+)\s(\d+)/ );
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default 100 200";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "scaleToMeterXY" ) {
|
|
|
|
if( $cmd eq "set" ) {
|
|
|
|
return "$iam $attrName has a wrong format use <integer longitude><one space character><integer latitude>" unless( $attrVal =~ /(-?\d+)\s(-?\d+)/ );
|
|
Log3 $name, 3, "$iam $cmd $attrName $attrVal";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName and set default $hash->{helper}{scaleToMeterLongitude} $hash->{helper}{scaleToMeterLatitude}";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mowerSchedule" ) {
|
|
if( $cmd eq "set" ) {
|
|
|
|
my $perl = eval { decode_json ($attrVal) };
|
|
|
|
if ($@) {
|
|
return "$iam $cmd $attrName decode error: $@ \n $perl";
|
|
}
|
|
my $json = eval { encode_json ($perl) };
|
|
if ($@) {
|
|
return "$iam $cmd $attrName encode error: $@ \n $json";
|
|
}
|
|
Log3 $name, 4, "$iam $cmd $attrName mower schedule array";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mapZones" ) {
|
|
if( $cmd eq "set" ) {
|
|
|
|
my $longitude = 10;
|
|
my $latitude = 52;
|
|
my $perl = eval { decode_json ($attrVal) };
|
|
|
|
if ($@) {
|
|
return "$iam $cmd $attrName decode error: $@ \n $attrVal";
|
|
}
|
|
|
|
for ( keys %{$perl} ) {
|
|
|
|
my $cond = eval "($perl->{$_}{condition})";
|
|
|
|
if ($@) {
|
|
return "$iam $cmd $attrName syntax error in condition: $@ \n $perl->{$_}{condition}";
|
|
}
|
|
|
|
}
|
|
|
|
Log3 $name, 4, "$iam $cmd $attrName";
|
|
$hash->{helper}{mapZones} = $perl;
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
delete $hash->{helper}{mapZones};
|
|
delete $hash->{helper}{currentZone};
|
|
CommandDeleteReading( $hash, "$name mower_currentZone" );
|
|
Log3 $name, 3, "$iam $cmd $attrName";
|
|
|
|
}
|
|
##########
|
|
} elsif( $attrName eq "mowerActivityToHighLight" ) {
|
|
if( $cmd eq "set" ) {
|
|
|
|
my $act = 'LEAVING';
|
|
my $actold = 'LEAVING';
|
|
my $perl = eval "($attrVal)";
|
|
|
|
if ($@) {
|
|
return "$iam $cmd $attrName syntax error in condition: $@ \n $attrVal";
|
|
}
|
|
Log3 $name, 4, "$iam $cmd $attrName";
|
|
|
|
} elsif( $cmd eq "del" ) {
|
|
|
|
Log3 $name, 3, "$iam $cmd $attrName";
|
|
|
|
}
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
##############################################################
|
|
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=item device
|
|
=item summary Module to control Husqvarnas robotic lawn mowers with Connect Module (SIM)
|
|
=item summary_DE Modul zur Steuerung von Husqvarnas Mähroboter mit Connect Modul (SIM)
|
|
|
|
=begin html
|
|
|
|
<a id="AutomowerConnect" ></a>
|
|
<h3>AutomowerConnect</h3>
|
|
<ul>
|
|
<u><b>FHEM-FORUM:</b></u> <a target="_blank" href="https://forum.fhem.de/index.php/topic,131661.0.html"> AutomowerConnect und AutomowerConnectDevice</a><br>
|
|
<u><b>FHEM-Wiki:</b></u> <a target="_blank" href="https://wiki.fhem.de/wiki/AutomowerConnect"> AutomowerConnect und AutomowerConnectDevice: Wie erstellt man eine Karte des Mähbereiches?</a>
|
|
<br><br>
|
|
<u><b>Introduction</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>This module allows the communication between the Husqvarna Cloud and FHEM to control Husqvarna Automower equipped with a Connect Module (SIM).</li>
|
|
<li>It acts as Device for one mower and it acts as host for aditional mower registered in the API.</li>
|
|
<li>Additional mower have to be defined with the modul AutomowerConnectDevice.</li>
|
|
<li>The mower path is shown in the detail view.</li>
|
|
<li>An arbitrary map can be used as background for the mower path.</li>
|
|
<li>The map has to be a raster image in webp, png or jpg format.</li>
|
|
<li>It's possible to control everything the API offers, e.g. schedule, headlight, cutting height and actions like start, pause, park etc. </li>
|
|
<li>All API data is stored in the device hash, the last and the second last one. Use <code>{Dumper $defs{<name>}}</code> in the commandline to find the data and build userReadings out of it.</li><br>
|
|
</ul>
|
|
<u><b>Limits for the Automower Connect API</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>Max 1 request per second and application key.</li>
|
|
<li>Max 10 000 request per month and application key.</li>
|
|
<li>'There is a timeout of 10 minutes in the mower to preserve data traffic and save battery...'</li>
|
|
<li>This results in a recommended interval of 600 seconds.</li><br>
|
|
</ul>
|
|
<u><b>Requirements</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>To get access to the API an application has to be created in the <a target="_blank" href="https://developer.husqvarnagroup.cloud/docs/get-started">Husqvarna Developer Portal</a>.</li>
|
|
<li>During registration an application key (client_id) and an application secret (client secret) is provided. Use these for for the module. The module uses client credentials as grant type for authorization.</li>
|
|
<li>The module uses client credentials as grant type for authorization.</li>
|
|
</ul>
|
|
<br>
|
|
<a id="AutomowerConnectDefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <device name> AutomowerConnect <application key> [<mower number>]</code><br>
|
|
Example:<br>
|
|
<code>define myMower AutomowerConnect 123456789012345678901234567890123456</code> First device: the default mower number is 0.<br>
|
|
It has to be set a <b>client_secret</b>. It's the application secret from the <a target="_blank" href="https://developer.husqvarnagroup.cloud/docs/get-started">Husqvarna Developer Portal</a>.<br>
|
|
<code>set myMower <client secret></code>
|
|
<br><br>
|
|
Additional mower devices<br>
|
|
<code>define <device name> AutomowerConnectDevice <host name> <mower number></code><br>
|
|
Example:<br>
|
|
<code>define myAdditionalMower AutomowerConnectDevice MyMower 1</code> Second device with host name <i>myMower</i> and mower number <i>1</i>
|
|
<br><br>
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectSet"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-set-Park'>Park</a><br>
|
|
<code>set <name> Park <number of minutes></code><br>
|
|
Parks mower in charging station for <number of minutes></li>
|
|
|
|
<li><a id='AutomowerConnect-set-ParkUntilFurtherNotice'>ParkUntilFurtherNotice</a><br>
|
|
<code>set <name> ParkUntilFurtherNotice</code><br>
|
|
Parks mower in charging station until further notice</li>
|
|
|
|
<li><a id='AutomowerConnect-set-ParkUntilNextSchedule'>ParkUntilNextSchedule</a><br>
|
|
<code>set <name> ParkUntilNextSchedule</code><br>
|
|
Parks mower in charging station and starts with next planned start</li>
|
|
|
|
<li><a id='AutomowerConnect-set-Pause'>Pause</a><br>
|
|
<code>set <name> Pause</code><br>
|
|
Pauses mower immediately at current position</li>
|
|
|
|
<li><a id='AutomowerConnect-set-ResumeSchedule'>ResumeSchedule</a><br>
|
|
<code>set <name> ResumeSchedule</code><br>
|
|
Starts immediately if in planned intervall, otherwise with next scheduled start></li>
|
|
|
|
<li><a id='AutomowerConnect-set-Start'>Start</a><br>
|
|
<code>set <name> Start <number of minutes></code><br>
|
|
Starts immediately for <number of minutes></li>
|
|
|
|
<li><a id='AutomowerConnect-set-chargingStationPositionToAttribute'>chargingStationPositionToAttribute</a><br>
|
|
<code>set <name> chargingStationPositionToAttribute</code><br>
|
|
Sets the calculated charging station coordinates to the corresponding attributes.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-client_secret'>client_secret</a><br>
|
|
<code>set <name> client_secret <application secret></code><br>
|
|
Sets the mandatory application secret (client secret)</li>
|
|
|
|
<li><a id='AutomowerConnect-set-cuttingHeight'>cuttingHeight</a><br>
|
|
<code>set <name> cuttingHeight <1..9></code><br>
|
|
Sets the cutting height. NOTE: Do not use for 550 EPOS and Ceora.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-getNewAccessToken'>getNewAccessToken</a><br>
|
|
<code>set <name> getNewAccessToken</code><br>
|
|
Gets a new access token</li>
|
|
|
|
<li><a id='AutomowerConnect-set-getUpdate'>getUpdate</a><br>
|
|
<code>set <name> getUpdate</code><br>
|
|
Gets data from the API. This is done each intervall automatically.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-headlight'>headlight</a><br>
|
|
<code>set <name> headlight <ALWAYS_OFF|ALWAYS_ON|EVENIG_ONLY|EVENING_AND_NIGHT></code><br>
|
|
|
|
</li>
|
|
<li><a id='AutomowerConnect-set-mowerScheduleToAttribute'>mowerScheduleToAttribute</a><br>
|
|
<code>set <name> mowerScheduleToAttribute</code><br>
|
|
Writes the schedule in to the attribute <code>moverSchedule</code>.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-sendScheduleFromAttributeToMower'>sendScheduleFromAttributeToMower</a><br>
|
|
<code>set <name> sendScheduleFromAttributeToMower</code><br>
|
|
Sends the schedule to the mower. NOTE: Do not use for 550 EPOS and Ceora.</li>
|
|
|
|
|
|
<li><a id='AutomowerConnect-set-'></a><br>
|
|
<code>set <name> </code><br>
|
|
</li>
|
|
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectGet"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-get-html'>html</a><br>
|
|
<code>get <name> html</code><br>
|
|
Returns the mower area image as html code. For use in uiTable, TabletUI, Floorplan, readingsGroup, weblink etc.</li>
|
|
|
|
<li><a id='AutomowerConnect-get-InternalData'>InternalData</a><br>
|
|
<code>get <name> InternalData</code><br>
|
|
Lists some device internal data</li>
|
|
|
|
<li><a id='AutomowerConnect-get-MowerData'>MowerData</a><br>
|
|
<code>get <name> MowerData</code><br>
|
|
Lists all mower data with its hash path exept positon array. The hash path can be used for generating userReadings. The trigger is <i>connected</i>.<br>
|
|
Example: created reading <code>serialnumber</code> with hash path <code>$hash->{helper}{mower}{attributes}{system}{serialNumber}</code><br><br>
|
|
<code>attr <name> userReadings serialnumber:connected {$defs{$name}->{helper}{mower}{attributes}{system}{serialNumber}}</code></li>
|
|
|
|
<li><a id='AutomowerConnect-get-StatisticsData'>StatisticsData</a><br>
|
|
<code>get <name> StatisticsData</code><br>
|
|
Lists statistics data with its hash path. The hash path can be used for generating userReadings. The trigger is <i>connected</i>.</li>
|
|
|
|
<li><a id='AutomowerConnect-get-errorCodes'>errorCodes</a><br>
|
|
<code>get <name> errorCodes</code><br>
|
|
Lists API response status codes and mower error codes</li>
|
|
<br><br>
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectAttributes"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-attr-interval'>interval</a><br>
|
|
<code>attr <name> interval <time in seconds></code><br>
|
|
Time in seconds that is used to get new data from Husqvarna Cloud. Default: 600</li>
|
|
<li><a id='AutomowerConnect-attr-mapImagePath'>mapImagePath</a><br>
|
|
<code>attr <name> mapImagePath <path to image></code><br>
|
|
Path of a raster image file for an area the mower path has to be drawn to.<br>
|
|
If the image name implies the image size by containing a part which matches <code>/(\d+)x(\d+)/</code><br>
|
|
the corresponding attribute will be set to <code>mapImageWidthHeight = '$1 $2'</code><br>
|
|
Image name example: <code>map740x1300.webp</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageWidthHeight'>mapImageWidthHeight</a><br>
|
|
<code>attr <name> mapImageWidthHeight <width in pixel><separator><height in pixel></code><br>
|
|
Width and Height in pixel of a raster image file for an area image the mower path has to be drawn to. <separator> is one space character.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageZoom'>mapImageZoom</a><br>
|
|
<code>attr <name> mapImageZoom <zoom factor></code><br>
|
|
Zoom of a raster image for an area the mower path has to be drawn to.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapBackgroundColor'>mapBackgroundColor</a><br>
|
|
<code>attr <name> mapBackgroundColor <background-color></code><br>
|
|
The value is used as background-color.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapDesignAttributes'>mapDesignAttributes</a><br>
|
|
<code>attr <name> mapDesignAttributes <complete list of design-attributes></code><br>
|
|
Load the list of attributes by <code>set <name> defaultDesignAttributesToAttribute</code> to change its values. Some default values are
|
|
<ul>
|
|
<li>mower path (activity MOWING): red</li>
|
|
<li>path in CS (activity CHARGING,PARKED_IN_CS): grey</li>
|
|
<li>path for interval with error (all activities with error): kind of magenta</li>
|
|
<li>all other activities: green</li>
|
|
</ul>
|
|
</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageCoordinatesToRegister'>mapImageCoordinatesToRegister</a><br>
|
|
<code>attr <name> mapImageCoordinatesToRegister <upper left longitude><space><upper left latitude><line feed><lower right longitude><space><lower right latitude></code><br>
|
|
Upper left and lower right coordinates to register (or to fit to earth) the image. Format: linewise longitude and latitude values separated by 1 space.<br>
|
|
The lines are splitted by (<code>/\s|\R$/</code>). Use WGS84 (GPS) coordinates in decimal degree notation.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageCoordinatesUTM'>mapImageCoordinatesUTM</a><br>
|
|
<code>attr <name> mapImageCoordinatesUTM <upper left longitude><space><upper left latitude><line feed><lower right longitude><space><lower right latitude></code><br>
|
|
Upper left and lower right coordinates to register (or to fit to earth) the image. Format: linewise longitude and latitude values separated by 1 space.<br>
|
|
The lines are splitted by (<code>/\s|\R$/</code>). Use UTM coordinates in meter notation.<br>
|
|
This attribute has to be set after the attribute mapImageCoordinatesToRegister. The values are used to calculate the scale factors and the attribute scaleToMeterXY is set accordingly.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-showMap'>showMap</a><br>
|
|
<code>attr <name> showMap <><b>1</b>,0</code><br>
|
|
Shows Map on (1 default) or not (0).</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-chargingStationCoordinates'>chargingStationCoordinates</a><br>
|
|
<code>attr <name> chargingStationCoordinates <longitude><separator><latitude></code><br>
|
|
Longitude and latitude of the charging station. Use WGS84 (GPS) coordinates in decimal degree notation. <separator> is one space character</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-chargingStationImagePosition'>chargingStationImagePosition</a><br>
|
|
<code>attr <name> chargingStationImagePosition <<b>right</b>, bottom, left, top, center></code><br>
|
|
Position of the charging station image relative to its coordinates.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerCuttingWidth'>mowerCuttingWidth</a><br>
|
|
<code>attr <name> mowerCuttingWidth <cutting width></code><br>
|
|
mower cutting width in meter to calculate the mowed area. default: 0.24</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerSchedule'>mowerSchedule</a><br>
|
|
<code>attr <name> mowerSchedule <schedule array></code><br>
|
|
This attribute provides the possebility to edit the mower schedule in form of an JSON array.<br>The actual schedule can be loaded with the command <code>set <name> mowerScheduleToAttribute</code>. <br>The command <code>set <name> sendScheduleFromAttributeToMower</code> sends the schedule to the mower. The maximum of array elements is 14 and 2 each day, so every day of a week can have 2 time spans. Each array element consists of 7 unsorted day values (<code>monday</code> to <code>sunday</code>) which can be <code>true</code> or <code>false</code>, a <code>start</code> and <code>duration</code> value in minutes. Start time counts from midnight. NOTE: Do not use for 550 EPOS and Ceora. Delete the attribute after the schedule is successfully uploaded.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowingAreaLimits'>mowingAreaLimits</a><br>
|
|
<code>attr <name> mowingAreaLimits <positions list></code><br>
|
|
List of position describing the area to mow. Format: linewise longitude and latitude values separated by 1 space. The lines are splitted by (<code>/\s|\R$/</code>).<br>The position values could be taken from Google Earth KML file, but whithout the altitude values.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-propertyLimits'>propertyLimits</a><br>
|
|
<code>attr <name> propertyLimits <positions list></code><br>
|
|
List of position describing the property limits. Format: linewise of longitude and latitude values separated by 1 space. The lines are splitted by (<code>/\s|\R$/</code>).The position values could be taken from <a href"https://www.geoportal.de/Anwendungen/Geoportale%20der%20L%C3%A4nder.html"></a>. For converting UTM32 meter to ETRS89 / WGS84 decimal degree you can use the BKG-Geodatenzentrum <a href"https://gdz.bkg.bund.de/koordinatentransformation">BKG-Geodatenzentrum</a>.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-numberOfWayPointsToDisplay'>numberOfWayPointsToDisplay</a><br>
|
|
<code>attr <name> numberOfWayPointsToDisplay <number of way points></code><br>
|
|
Set the number of way points stored and displayed, default 5000.
|
|
While in activity MOWING every 30 s a geo data set is generated.
|
|
While in activity PARKED_IN_CS/CHARGING every 42 min a geo data set is generated.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-weekdaysToResetWayPoints'>weekdaysToResetWayPoints</a><br>
|
|
<code>attr <name> weekdaysToResetWayPoints <any combination of weekday numbers, space or minus [0123456 -]></code><br>
|
|
A combination of weekday numbers when the way point stack will be reset. No reset for space or minus. The way points are shifted through the dedicated stack. Default 1.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-scaleToMeterXY'>scaleToMeterXY</a><br>
|
|
<code>attr <name> scaleToMeterXY <scale factor longitude><seperator><scale factor latitude></code><br>
|
|
The scale factor depends from the Location on earth, so it has to be calculated for short ranges only. <seperator> is one space character.<br>
|
|
Longitude: <code>(LongitudeMeter_1 - LongitudeMeter_2) / (LongitudeDegree_1 - LongitudeDegree _2)</code><br>
|
|
Latitude: <code>(LatitudeMeter_1 - LatitudeMeter_2) / (LatitudeDegree_1 - LatitudeDegree _2)</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapZones'>mapZones</a><br>
|
|
<code>attr <name> mapZones <valid perl condition to separate Zones></code><br>
|
|
Provide the zones with conditions as JSON-String:<br>
|
|
The waypoints are accessable by the variables $longitude und $latitude.<br>
|
|
Zones have have to be separated by conditions in alphabetical order of their names.<br>
|
|
The last zone is determined by the remaining waypoints.<br>
|
|
Syntactical example:<br>
|
|
<code>
|
|
'{<br>
|
|
    "<name_1>" : {<br>
|
|
      "condition" : "<condition to separate name_1 from other zones>"<br>
|
|
  },<br>
|
|
    "<name_2>" : {<br>
|
|
      "condition" : "<condition to separate name_2 from other zones, except name_1>"<br>
|
|
  },<br>
|
|
    "<name_3>" : {<br>
|
|
      "condition" : "<condition to separate name_3 from other zones, except name_1 and name_2>"<br>
|
|
  },<br>
|
|
    "<name_n-1>" : {<br>
|
|
      "condition" : "<condition to separate name_n-1 from other zones ,except the zones already seperated>"<br>
|
|
  },<br>
|
|
    "<name n>" : {<br>
|
|
      "condition" : "Use 'undef' because the last zone remains."<br>
|
|
  }<br>
|
|
}'<br>
|
|
</code><br>
|
|
Example with two Zones and virtual lines defined by latitude 52.6484600648553, 52.64839739580418 (horizontal) and longitude 9.54799477359984 (vertikal). all way points above 52.6484600648553 or all way points above 52.64839739580418 and all way points to the right of 9.54799477359984 belong to zone 01_oben. All other way points belong to zone 02_unten.<br>
|
|
<code>
|
|
'{<br>
|
|
    "01_oben" : {<br>
|
|
      "condition" : "$latitude > 52.6484600648553 || $longitude > 9.54799477359984 && $latitude > 52.64839739580418"<br>
|
|
  },<br>
|
|
    "02_unten" : {<br>
|
|
      "condition" : "undef"<br>
|
|
  }<br>
|
|
}'<br>
|
|
</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerActivityToHighLight'>mowerActivityToHighLight</a><br>
|
|
<code>attr <name> mowerActivityToHighLight <perl condition to determine a path section></code><br>
|
|
A perl condition to highlight a path section by mower activities.<br>
|
|
The current interval activity is accessible by $act. The last intervall activity is accessible by $actold.<br>
|
|
LineColor, LineDash and LineWidth are adjustable by the attribut <i>mapDesignAttributes</i> under otherActivityPath...<br>
|
|
Example: Highlight path when leaving charging station.<br>
|
|
<code>attr <name> mowerActivityToHighLight $act =~ /MOWING|LEAVING/ && $actold =~ /LEAVING|PARKED_IN_CS|CHARGING/</code><br>
|
|
Example: Highlight path when returning to charging station.<br>
|
|
<code>attr <name> mowerActivityToHighLight $act =~ /PARKED_IN_CS|CHARGING|GOING_HOME/ && $actold =~ /MOWING|GOING_HOME/</code><br></li>
|
|
|
|
<li><a href="disable">disable</a></li>
|
|
<li><a href="disabledForIntervals">disabledForIntervals</a></li>
|
|
|
|
|
|
<li><a id='AutomowerConnect-attr-'></a><br>
|
|
<code>attr <name> <></code><br>
|
|
</li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectReadings"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>api_MowerFound - all mower registered under the application key (client_id) </li>
|
|
<li>api_token_expires - date when session of Husqvarna Cloud expires</li>
|
|
<li>batteryPercent - battery state of charge in percent</li>
|
|
<li>mower_activity - current activity "UNKNOWN" | "NOT_APPLICABLE" | "MOWING" | "GOING_HOME" | "CHARGING" | "LEAVING" | "PARKED_IN_CS" | "STOPPED_IN_GARDEN"</li>
|
|
<li>mower_commandStatus - Status of the last sent command cleared each status update</li>
|
|
<li>mower_currentZone - Zone name with activity MOWING in the last status time stamp interval and number of way points in parenthesis.</li>
|
|
<li>mower_errorCode - last error code</li>
|
|
<li>mower_errorCodeTimestamp - last error code time stamp</li>
|
|
<li>mower_errorDescription - error description</li>
|
|
<li>mower_mode - current working mode "MAIN_AREA" | "SECONDARY_AREA" | "HOME" | "DEMO" | "UNKNOWN"</li>
|
|
<li>mower_state - current status "UNKNOWN" | "NOT_APPLICABLE" | "PAUSED" | "IN_OPERATION" | "WAIT_UPDATING" | "WAIT_POWER_UP" | "RESTRICTED" | "OFF" | "STOPPED" | "ERROR" | "FATAL_ERROR" |"ERROR_AT_POWER_UP"</li>
|
|
<li>planner_nextStart - next start time</li>
|
|
<li>planner_restrictedReason - reason for parking NOT_APPLICABLE, NONE, WEEK_SCHEDULE, PARK_OVERRIDE, SENSOR, DAILY_LIMIT, FOTA, FROST</li>
|
|
<li>planner_overrideAction - reason for override a planned action NOT_ACTIVE, FORCE_PARK, FORCE_MOW</li>
|
|
<li>state - status of connection FHEM to Husqvarna Cloud API and device state(e.g. defined, authorization, authorized, connected, error, update)</li>
|
|
<li>settings_cuttingHeight - actual cutting height from API</li>
|
|
<li>settings_headlight - actual headlight mode from API</li>
|
|
<li>statistics_newGeoDataSets - number of new data sets between the last two different time stamps</li>
|
|
<li>statistics_numberOfCollisions - Number of Collisions</li>
|
|
<li>status_connected - state of connetion between mower and Husqvarna Cloud, (1 => CONNECTED, 0 => OFFLINE)</li>
|
|
<li>status_statusTimestamp - local time of last change of the API content</li>
|
|
<li>status_statusTimestampDiff - time difference in seconds between the last and second last change of the API content</li>
|
|
<li>status_statusTimestampOld - local time of second last change of the API content</li>
|
|
<li>system_name - name of the mower</li>
|
|
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
|
|
|
|
=begin html_DE
|
|
|
|
<a id="AutomowerConnect"></a>
|
|
<h3>AutomowerConnect</h3>
|
|
<ul>
|
|
<u><b>FHEM-FORUM:</b></u> <a target="_blank" href="https://forum.fhem.de/index.php/topic,131661.0.html"> AutomowerConnect und AutomowerConnectDevice</a><br>
|
|
<u><b>FHEM-Wiki:</b></u> <a target="_blank" href="https://wiki.fhem.de/wiki/AutomowerConnect"> AutomowerConnect und AutomowerConnectDevice: Wie erstellt man eine Karte des Mähbereiches?</a>
|
|
<br><br>
|
|
<u><b>Einleitung</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>Dieses Modul etabliert eine Kommunikation zwischen der Husqvarna Cloud and FHEM, um einen Husqvarna Automower zu steuern, der mit einem Connect Modul (SIM) ausgerüstet ist.</li>
|
|
<li>Es arbeitet als Device für einen Mähroboter und übernimmt die Rolle als Host für zusätzliche in der API registrierte Mähroboter.</li>
|
|
<li>Zusätzliche Mähroboter sollten mit dem Modul AutomowerConnectDevice definiert werden..</li>
|
|
<li>Der Pfad des Mähroboters wird in der Detailansicht des FHEMWEB Frontends angezeigt.</li>
|
|
<li>Der Pfad kann mit einer beliebigen Karte hinterlegt werden.</li>
|
|
<li>Die Karte muss als Rasterbild im webp, png oder jpg Format vorliegen.</li>
|
|
<li>Es ist möglich alles was die API anbietet zu steuern, z.B. Mähplan,Scheinwerfer, Schnitthöhe und Aktionen wie, Start, Pause, Parken usw. </li>
|
|
<li>Die letzten und vorletzten Daten aus der API sind im Gerätehash gespeichert, Mit <code>{Dumper $defs{<device name>}}</code> in der Befehlezeile können die Daten angezeigt werden und daraus userReadings erstellt werden.</li><br>
|
|
</ul>
|
|
<u><b>Limit Automower Connect API</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>Maximal 1 Request pro Sekunde und Application Key.</li>
|
|
<li>Maximal 10 000 Requests pro Monat und Application Key.</li>
|
|
<li>'Der Mäher sendet seine Daten nur alle 10 Minuten, um den Datenverkehr zu begrenzen und Batterie zu sparen...' </li>
|
|
<li>Daraus ergibt sich ein empfohlenes Abfrageinterval von 600 Sekunden</li><br>
|
|
</ul>
|
|
<u><b>Anforderungen</b></u>
|
|
<br><br>
|
|
<ul>
|
|
<li>Für den Zugriff auf die API muss eine Application angelegt werden, im <a target="_blank" href="https://developer.husqvarnagroup.cloud/docs/get-started">Husqvarna Developer Portal</a>.</li>
|
|
<li>Währenddessen wird ein Application Key (client_id) und ein Application Secret (client secret) bereitgestellt. Diese sind für dieses Modul zu nutzen.</li>
|
|
<li>Das Modul nutzt Client Credentials als Granttype zur Authorisierung.</li>
|
|
</ul>
|
|
<br>
|
|
<a id="AutomowerConnectDefine"></a>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <device name> AutomowerConnect <application key> [<mower number>]</code><br>
|
|
Beispiel:<br>
|
|
<code>define myMower AutomowerConnect 123456789012345678901234567890123456</code> Erstes Gerät: die Defaultmähernummer ist 0.<br>
|
|
Es muss ein <b>client_secret</b> gesetzt werden. Es ist das Application Secret vom <a target="_blank" href="https://developer.husqvarnagroup.cloud/docs/get-started">Husqvarna Developer Portal</a>.<br>
|
|
<code>set myMower <client secret></code><br>
|
|
<br>
|
|
Zusätzlicher Mähroboter<br>
|
|
<code>define <device name> AutomowerConnectDevice <host name> <mower number></code><br>
|
|
Beispiel:<br>
|
|
<code>define myAdditionalMower AutomowerConnectDevice MyMower 1</code> Zweites Gerät mit Hostname <i>myMower</i> und Mähernummer <i>1</i>
|
|
<br><br>
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectSet"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-set-Park'>Park</a><br>
|
|
<code>set <name> Park <number of minutes></code><br>
|
|
Parkt den Mäher in der Ladestation (LS) für <number of minutes></li>
|
|
|
|
<li><a id='AutomowerConnect-set-ParkUntilFurtherNotice'>ParkUntilFurtherNotice</a><br>
|
|
<code>set <name> ParkUntilFurtherNotice</code><br>
|
|
Parkt den Mäher bis auf Weiteres in der LS</li>
|
|
|
|
<li><a id='AutomowerConnect-set-ParkUntilNextSchedule'>ParkUntilNextSchedule</a><br>
|
|
<code>set <name> ParkUntilNextSchedule</code><br>
|
|
Parkt den Mäher bis auf Weiteres in der LS und startet zum nächsten geplanten Zeitpunkt</li>
|
|
|
|
<li><a id='AutomowerConnect-set-Pause'>Pause</a><br>
|
|
<code>set <name> Pause</code><br>
|
|
Pausiert den Mäher sofort am aktuellen Standort</li>
|
|
|
|
<li><a id='AutomowerConnect-set-ResumeSchedule'>ResumeSchedule</a><br>
|
|
<code>set <name> ResumeSchedule</code><br>
|
|
Startet im geplanten Interval den Mäher sofort, sonst zum nächsten geplanten Zeitpunkt</li>
|
|
|
|
<li><a id='AutomowerConnect-set-Start'>Start</a><br>
|
|
<code>set <name> Start <number of minutes></code><br>
|
|
Startet sofort für <number of minutes></li>
|
|
|
|
<li><a id='AutomowerConnect-set-chargingStationPositionToAttribute'>chargingStationPositionToAttribute</a><br>
|
|
<code>set <name> chargingStationPositionToAttribute</code><br>
|
|
Setzt die berechneten Koordinaten der LS in das entsprechende Attribut.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-client_secret'>client_secret</a><br>
|
|
<code>set <name> client_secret <application secret></code><br>
|
|
Setzt das erforderliche Application Secret (client secret)</li>
|
|
|
|
<li><a id='AutomowerConnect-set-cuttingHeight'>cuttingHeight</a><br>
|
|
<code>set <name> cuttingHeight <1..9></code><br>
|
|
Setzt die Schnitthöhe. HINWEIS: Nicht für 550 EPOS und Ceora geeignet.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-getNewAccessToken'>getNewAccessToken</a><br>
|
|
<code>set <name> getNewAccessToken</code><br>
|
|
Holt ein neues Access Token.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-getUpdate'>getUpdate</a><br>
|
|
<code>set <name> getUpdate</code><br>
|
|
Liest die Daten von der API. Das passiert jedes Interval automatisch.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-headlight'>headlight</a><br>
|
|
<code>set <name> headlight <ALWAYS_OFF|ALWAYS_ON|EVENIG_ONLY|EVENING_AND_NIGHT></code><br>
|
|
Setzt den Scheinwerfermode</li>
|
|
|
|
<li><a id='AutomowerConnect-set-mowerScheduleToAttribute'>mowerScheduleToAttribute</a><br>
|
|
<code>set <name> mowerScheduleToAttribute</code><br>
|
|
Schreibt den Mähplan ins Attribut <code>moverSchedule</code>.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-sendScheduleFromAttributeToMower'>sendScheduleFromAttributeToMower</a><br>
|
|
<code>set <name> sendScheduleFromAttributeToMower</code><br>
|
|
Sendet den Mähplan zum Mäher. HINWEIS: Nicht für 550 EPOS und Ceora geeignet.</li>
|
|
|
|
<li><a id='AutomowerConnect-set-'></a><br>
|
|
<code>set <name> </code><br>
|
|
</li>
|
|
|
|
<a id="AutomowerConnectGet"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-get-html'>html</a><br>
|
|
<code>get <name> html </code><br>
|
|
Gibt das Bild des Mäherbereiches html kodiert zurück, zur Verwendung in uiTable, TabletUI, Floorplan, readingsGroup, weblink usw.</li>
|
|
|
|
<li><a id='AutomowerConnect-get-errorCodes'>errorCodes</a><br>
|
|
<code>get <name> errorCodes</code><br>
|
|
Listet die Statuscode der API-Anfrage und die Fehlercodes des Mähroboters auf.</li>
|
|
|
|
<li><a id='AutomowerConnect-get-InternalData'>InternalData</a><br>
|
|
<code>get <name> InternalData</code><br>
|
|
Listet einige Daten des FHEM-Gerätes auf.</li>
|
|
|
|
<li><a id='AutomowerConnect-get-MowerData'>MowerData</a><br>
|
|
<code>get <name> MowerData</code><br>
|
|
Listet alle Daten des Mähers einschließlich Hashpfad auf ausgenommen das Positonsarray. Der Hashpfad kann zur Erzeugung von userReadings genutzt werden, getriggert wird durch <i>connected</i>.<br>
|
|
Beispiel: erzeugen des Reading <code>serialnumber</code> mit dem Hashpfad <code>$hash->{helper}{mower}{attributes}{system}{serialNumber}</code><br><br>
|
|
<code>attr <name> userReadings serialnumber:connected {$defs{$name}->{helper}{mower}{attributes}{system}{serialNumber}}</code></li>
|
|
|
|
<li><a id='AutomowerConnect-get-StatisticsData'>StatisticsData</a><br>
|
|
<code>get <name> StatisticsData</code><br>
|
|
Listet statistische Daten mit ihrem Hashpfad auf. Der Hashpfad kann zur Erzeugung von userReadings genutzt werden, getriggert wird durch <i>connected</i></li>
|
|
<br><br>
|
|
</ul>
|
|
<br>
|
|
|
|
</ul>
|
|
<br>
|
|
<a id="AutomowerConnectAttributes"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a id='AutomowerConnect-attr-interval'>interval</a><br>
|
|
<code>attr <name> interval <time in seconds></code><br>
|
|
Zeit in Sekunden nach denen neue Daten aus der Husqvarna Cloud abgerufen werden. Standard: 600</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImagePath'>mapImagePath</a><br>
|
|
<code>attr <name> mapImagePath <path to image></code><br>
|
|
Pfad zur Bilddatei. Auf das Bild werden Pfad, Anfangs- u. Endpunkte gezeichnet.<br>
|
|
Wenn der Bildname die Bildgröße impliziert indem er zu dem regulären Ausdruck <code>/(\d+)x(\d+)/</code> passt,<br>
|
|
wird das zugehörige Attribut gesetzt <code>mapImageWidthHeight = '$1 $2'</code><br>
|
|
Beispiel Bildname: <code>map740x1300.webp</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageWidthHeight'>mapImageWidthHeight</a><br>
|
|
<code>attr <name> mapImageWidthHeight <width in pixel><separator><height in pixel></code><br>
|
|
Bildbreite in Pixel des Bildes auf das Pfad, Anfangs- u. Endpunkte gezeichnet werden. <separator> ist 1 Leerzeichen.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageZoom'>mapImageZoom</a><br>
|
|
<code>attr <name> mapImageZoom <zoom factor></code><br>
|
|
Zoomfaktor zur Salierung des Bildes auf das Pfad, Anfangs- u. Endpunkte gezeichnet werden. Standard: 0.5</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapBackgroundColor'>mapBackgroundColor</a><br>
|
|
<code>attr <name> mapBackgroundColor <color value></code><br>
|
|
Der Wert wird als Hintergrungfarbe benutzt.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapDesignAttributes'>mapDesignAttributes</a><br>
|
|
<code>attr <name> mapDesignAttributes <complete list of design-attributes></code><br>
|
|
Lade die Attributliste mit <code>set <name> defaultDesignAttributesToAttribute</code> um die Werte zu ändern. Einige Vorgabewerte:
|
|
<ul>
|
|
<li>Pfad beim mähen (Aktivität MOWING): rot</li>
|
|
<li>In der Ladestation (Aktivität CHARGING,PARKED_IN_CS): grau</li>
|
|
<li>Pfad eines Intervalls mit Fehler (alle Aktivitäten with error): Eine Art Magenta</li>
|
|
<li>Pfad aller anderen Aktivitäten: grün</li>
|
|
</ul>
|
|
</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageCoordinatesToRegister'>mapImageCoordinatesToRegister</a><br>
|
|
<code>attr <name> mapImageCoordinatesToRegister <upper left longitude><space><upper left latitude><line feed><lower right longitude><space><lower right latitude></code><br>
|
|
Obere linke und untere rechte Ecke der Fläche auf der Erde, die durch das Bild dargestellt wird um das Bild auf der Fläche zu registrieren (oder einzupassen).<br>
|
|
Format: Zeilenweise Paare von Longitude- u. Latitudewerten getrennt durch 1 Leerzeichen. Die Zeilen werden aufgeteilt durch (<code>/\s|\R$/</code>).<br>
|
|
Angabe der WGS84 (GPS) Koordinaten muss als Dezimalgrad erfolgen.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapImageCoordinatesUTM'>mapImageCoordinatesUTM</a><br>
|
|
<code>attr <name> mapImageCoordinatesUTM <upper left longitude><space><upper left latitude><line feed><lower right longitude><space><lower right latitude></code><br>
|
|
Obere linke und untere rechte Ecke der Fläche auf der Erde, die durch das Bild dargestellt wird um das Bild auf der Fläche zu registrieren (oder einzupassen).<br>
|
|
Format: Zeilenweise Paare von Longitude- u. Latitudewerten getrennt durch 1 Leerzeichen. Die Zeilen werden aufgeteilt durch (<code>/\s|\R$/</code>).<br>
|
|
Die Angabe der UTM Koordinaten muss als Dezimalzahl in Meter erfolgen.<br>
|
|
Das Attribut muss nach dem Attribut mapImageCoordinatesToRegister gesetzt werden.<br>
|
|
Dieses Attribut berechnet die Skalierungsfaktoren. Das Attribut scaleToMeterXY wird entsprechend gesetzt.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-showMap'>showMap</a><br>
|
|
<code>attr <name> showMap <><b>1</b>,0</code><br>
|
|
Zeigt die Karte an (1 default) oder nicht (0).</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-chargingStationCoordinates'>chargingStationCoordinates</a><br>
|
|
<code>attr <name> chargingStationCoordinates <longitude><separator><latitude></code><br>
|
|
Longitude und Latitude der Ladestation als WGS84 (GPS) Koordinaten als Deimalzahl. <separator> ist 1 Leerzeichen.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-chargingStationImagePosition'>chargingStationImagePosition</a><br>
|
|
<code>attr <name> chargingStationImagePosition <<b>right</b>, bottom, left, top, center></code><br>
|
|
Position der Ladestation relativ zu ihren Koordinaten.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerCuttingWidth'>mowerCuttingWidth</a><br>
|
|
<code>attr <name> mowerCuttingWidth <cutting width></code><br>
|
|
Schnittbreite in Meter zur Berechnung der gemähten Fläche. default: 0.24</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerSchedule'>mowerSchedule</a><br>
|
|
<code>attr <name> mowerSchedule <schedule array></code><br>
|
|
Dieses Attribut bietet die Möglichkeit den Mähplan zu ändern, er liegt als JSON Array vor.<br>Der aktuelleMähplan kann mit dem Befehl <code>set <name> mowerScheduleToAttrbute</code> ins Attribut geschrieben werden. <br>Der Befehl <code>set <name> sendScheduleFromAttributeToMower</code> sendet den Mähplan an den Mäher. Das Maximum der Arrayelemente beträgt 14, 2 für jeden Tag, so daß jeden Tag zwei Intervalle geplant werden können. Jedes Arrayelement besteht aus 7 unsortierten Tageswerten (<code>monday</code> bis <code>sunday</code>) die auf <code>true</code> oder <code>false</code> gesetzt werden können, einen <code>start</code> Wert und einen <code>duration</code> Wert in Minuten. Die Startzeit <code>start</code> wird von Mitternacht an gezählt. HINWEIS: Nicht für 550 EPOS und Ceora geeignet.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowingAreaLimits'>mowingAreaLimits</a><br>
|
|
<code>attr <name> mowingAreaLimits <positions list></code><br>
|
|
Liste von Positionen, die den Mähbereich beschreiben. Format: Zeilenweise Paare von Longitude- u. Latitudewerten getrennt durch 1 Leerzeichen. Die Zeilen werden aufgeteilt durch (<code>/\s|\R$/</code>).<br>Die Liste der Positionen kann aus einer mit Google Earth erzeugten KML-Datei entnommen werden, aber ohne Höhenangaben.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-propertyLimits'>propertyLimits</a><br>
|
|
<code>attr <name> propertyLimits <positions list></code><br>
|
|
Liste von Positionen, um die Grundstücksgrenze zu beschreiben. Format: Zeilenweise Paare von Longitude- u. Latitudewerten getrennt durch 1 Leerzeichen. Eine Zeile wird aufgeteilt durch (<code>/\s|\R$/</code>).<br>Die genaue Position der Grenzpunkte kann man über die <a target="_blank" href="https://geoportal.de/Anwendungen/Geoportale%20der%20L%C3%A4nder.html">Geoportale der Länder</a> finden. Eine Umrechnung der UTM32 Daten in Meter nach ETRS89 in Dezimalgrad kann über das <a target="_blank" href="https://gdz.bkg.bund.de/koordinatentransformation">BKG-Geodatenzentrum</a> erfolgen.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-numberOfWayPointsToDisplay'>numberOfWayPointsToDisplay</a><br>
|
|
<code>attr <name> numberOfWayPointsToDisplay <number of way points></code><br>
|
|
Legt die Anzahl der gespeicherten und und anzuzeigenden Wegpunkte fest, default 5000.
|
|
Während der Aktivität MOWING wird ca. alle 30 s und während PARKED_IN_CS/CHARGING wird alle 42 min ein Geodatensatz erzeugt.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-weekdaysToResetWayPoints'>weekdaysToResetWayPoints</a><br>
|
|
<code>attr <name> weekdaysToResetWayPoints <any combination of weekday numbers, space or minus [0123456 -]></code><br>
|
|
Eine Kombination von Wochentagnummern an denen der Wegpunktspeicher gelöscht wird. Keine Löschung bei Leer- oder Minuszeichen, die Wegpunkte werden durch den zugeteilten Wegpunktspeicher geschoben. Standard 1.</li>
|
|
|
|
<li><a id='AutomowerConnect-attr-scaleToMeterXY'>scaleToMeterXY</a><br>
|
|
<code>attr <name> scaleToMeterXY <scale factor longitude><seperator><scale factor latitude></code><br>
|
|
Der Skalierfaktor hängt vom Standort ab und muss daher für kurze Strecken berechnet werden. <seperator> ist 1 Leerzeichen.<br>
|
|
Longitude: <code>(LongitudeMeter_1 - LongitudeMeter_2) / (LongitudeDegree_1 - LongitudeDegree _2)</code><br>
|
|
Latitude: <code>(LatitudeMeter_1 - LatitudeMeter_2) / (LatitudeDegree_1 - LatitudeDegree _2)</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mapZones'>mapZones</a><br>
|
|
<code>attr <name> mapZones <JSON string with zone names in alpabetical order and valid perl condition to seperate the zones></code><br>
|
|
Die Wegpunkte stehen über die Perlvariablen $longitude und $latitude zur Verfügung.<br>
|
|
Die Zonennamen und Bedingungen müssen als JSON-String angegeben werden.<br>
|
|
Die Zonennamen müssen in alphabetischer Reihenfolge durch Bedingungen abgegrenzt werden.<br>
|
|
Die letzte Zone ergibt sich aus den übrig gebliebenen Wegpunkten.<br>
|
|
Syntaxbeispiel:<br>
|
|
<code>
|
|
'{<br>
|
|
    "<name_1>" : {<br>
|
|
      "condition" : "<condition to separate name_1 from other zones>"<br>
|
|
  },<br>
|
|
    "<name_2>" : {<br>
|
|
      "condition" : "<condition to separate name_2 from other zones, except name_1>"<br>
|
|
  },<br>
|
|
    "<name_3>" : {<br>
|
|
      "condition" : "<condition to separate name_3 from other zones, except name_1 and name_2>"<br>
|
|
  },<br>
|
|
    "<name_n-1>" : {<br>
|
|
      "condition" : "<condition to separate name_n-1 from other zones ,except the zones already seperated>"<br>
|
|
  },<br>
|
|
    "<name n>" : {<br>
|
|
      "condition" : "Use 'undef' because the last zone remains."<br>
|
|
  }<br>
|
|
}'<br>
|
|
</code><br>
|
|
Beispiel mit zwei Zonen und gedachten Linien bestimmt durch die Punkte Latitude 52.6484600648553, 52.64839739580418 (horizontal) und 9.54799477359984 (vertikal). Alle Wegpunkte deren Latitude über einer horizontalen Linie mit der Latitude 52.6484600648553 liegen oder alle Wegpunkte deren Latitude über einer horizontalen Linie mit der Latitude 52.64839739580418 liegen und deren Longitude rechts von einer vertikale Linie mit der Longitude 9.54799477359984 liegen, gehören zur Zone 01_oben. Alle anderen Wegpunkte gehören zur Zone 02_unten.
|
|
<code>
|
|
'{<br>
|
|
    "01_oben" : {<br>
|
|
      "condition" : "$latitude > 52.6484600648553 || $longitude > 9.54799477359984 && $latitude > 52.64839739580418"<br>
|
|
  },<br>
|
|
    "02_unten" : {<br>
|
|
      "condition" : "undef"<br>
|
|
  }<br>
|
|
}'<br>
|
|
</code></li>
|
|
|
|
<li><a id='AutomowerConnect-attr-mowerActivityToHighLight'>mowerActivityToHighLight</a><br>
|
|
<code>attr <name> mowerActivityToHighLight <perl condition to determine a path section></code><br>
|
|
Eine Perl Bedingung, die Aktivitäten verknüpft, um einen Pfadabschnitt festzulegen, der hervorgehoben wird.<br>
|
|
Die Aktivität im aktuellen Intervall steht über die Perlvariable $act und die Aktivität im letzten Intervall über $actold zur Verfügung.<br>
|
|
Die Farbe, Strichstärke und Muster können über das Attribut <i>mapDesignAttributes</i> unter otherActivityPath... eingestellt werden.<br>
|
|
Beispiel: Pfad beim Verlassen der Ladestation hervorheben.<br>
|
|
<code>attr <name> mowerActivityToHighLight $act =~ /MOWING|LEAVING/ && $actold =~ /LEAVING|PARKED_IN_CS|CHARGING/</code><br>
|
|
Beispiel: Pfad beim Zurückkehren zur Ladestation hervorheben.<br>
|
|
<code>attr <name> mowerActivityToHighLight $act =~ /PARKED_IN_CS|CHARGING|GOING_HOME/ && $actold =~ /MOWING|GOING_HOME/</code><br>
|
|
</li>
|
|
|
|
<li><a href="disable">disable</a></li>
|
|
<li><a href="disabledForIntervals">disabledForIntervals</a></li>
|
|
|
|
|
|
<li><a id='AutomowerConnect-attr-'></a><br>
|
|
<code>attr <name> <></code><br>
|
|
</li>
|
|
|
|
</ul>
|
|
<br>
|
|
|
|
<a id="AutomowerConnectReadings"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>api_MowerFound - Alle Mähroboter, die unter dem genutzten Application Key (client_id) registriert sind.</li>
|
|
<li>api_token_expires - Datum wann die Session der Husqvarna Cloud abläuft</li>
|
|
<li>batteryPercent - Batterieladung in Prozent</li>
|
|
<li>mower_activity - aktuelle Aktivität "UNKNOWN" | "NOT_APPLICABLE" | "MOWING" | "GOING_HOME" | "CHARGING" | "LEAVING" | "PARKED_IN_CS" | "STOPPED_IN_GARDEN"</li>
|
|
<li>mower_commandStatus - Status des letzten uebermittelten Kommandos wird duch Statusupdate zurückgesetzt.</li>
|
|
<li>mower_currentZone - Name der Zone im aktuell abgefragten Intervall der Statuszeitstempel , in der der Mäher gemäht hat und Anzahl der Wegpunkte in der Zone in Klammern.</li>
|
|
<li>mower_errorCode - last error code</li>
|
|
<li>mower_errorCodeTimestamp - last error code time stamp</li>
|
|
<li>mower_errorDescription - error description</li>
|
|
<li>mower_mode - aktueller Arbeitsmodus "MAIN_AREA" | "SECONDARY_AREA" | "HOME" | "DEMO" | "UNKNOWN"</li>
|
|
<li>mower_state - aktueller Status "UNKNOWN" | "NOT_APPLICABLE" | "PAUSED" | "IN_OPERATION" | "WAIT_UPDATING" | "WAIT_POWER_UP" | "RESTRICTED" | "OFF" | "STOPPED" | "ERROR" | "FATAL_ERROR" |"ERROR_AT_POWER_UP"</li>
|
|
<li>planner_nextStart - nächste Startzeit</li>
|
|
<li>planner_restrictedReason - Grund für Parken NOT_APPLICABLE, NONE, WEEK_SCHEDULE, PARK_OVERRIDE, SENSOR, DAILY_LIMIT, FOTA, FROST</li>
|
|
<li>planner_overrideAction - Grund für vorrangige Aktion NOT_ACTIVE, FORCE_PARK, FORCE_MOW</li>
|
|
<li>state - Status der Verbindung des FHEM-Gerätes zur Husqvarna Cloud API (defined, authentification, authentified, connected, error, update).</li>
|
|
<li>settings_cuttingHeight - aktuelle Schnitthöhe aus der API</li>
|
|
<li>settings_headlight - aktueller Scheinwerfermode aus der API</li>
|
|
<li>statistics_newGeoDataSets - Anzahl der neuen Datensätze zwischen den letzten zwei unterschiedlichen Zeitstempeln</li>
|
|
<li>statistics_numberOfCollisions - Anzahl der Kollisionen</li>
|
|
<li>status_connected - Status der Verbindung zwischen dem Automower und der Husqvarna Cloud, (1 => CONNECTED, 0 => OFFLINE)</li>
|
|
<li>status_statusTimestamp - Lokalzeit der letzten Änderung der Daten in der API</li>
|
|
<li>status_statusTimestampDiff - Zeitdifferenz zwischen den beiden letzten Änderungen im Inhalt der Daten aus der API</li>
|
|
<li>status_statusTimestampOld - Lokalzeit der vorletzten Änderung der Daten in der API</li>
|
|
<li>system_name - Name des Automowers</li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html_DE
|