############################################################################### # # $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::Devices::AMConnect::Common; 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 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 ) ); } my $missingModul = ""; eval "use JSON;1" or $missingModul .= "JSON "; my $errorjson = '{"23":"Wheel drive problem, left","24":"Cutting system blocked","123":"Destination not reachable","710":"SIM card locked","50":"Guide 1 not found","717":"SMS could not be sent","108":"Folding cutting deck sensor defect","4":"Loop sensor problem - front","15":"Lifted","29":"Slope too steep","1":"Outside working area","45":"Cutting height problem - dir","52":"Guide 3 not found","28":"Memory circuit problem","95":"Folding sensor activated","9":"Trapped","114":"Too high discharge current","103":"Cutting drive motor 2 defect","65":"Temporary battery problem","119":"Zone generator problem","6":"Loop sensor problem - left","82":"Wheel motor blocked - rear right","714":"Geofence problem","703":"Connectivity problem","708":"SIM card locked","75":"Connection changed","7":"Loop sensor problem - right","35":"Wheel motor overloaded - right","3":"Wrong loop signal","117":"High internal power loss","0":"Unexpected error","80":"Cutting system imbalance - Warning","110":"Collision sensor error","100":"Ultrasonic Sensor 3 defect","79":"Invalid battery combination - Invalid combination of different battery types.","724":"Communication circuit board SW must be updated","86":"Wheel motor overloaded - rear right","81":"Safety function faulty","78":"Slipped - Mower has Slipped. Situation not solved with moving pattern","107":"Docking sensor defect","33":"Mower tilted","69":"Alarm! Mower switched off","68":"Temporary battery problem","34":"Cutting stopped - slope too steep","127":"Battery problem","73":"Alarm! Mower in motion","74":"Alarm! Outside geofence","713":"Geofence problem","87":"Wheel motor overloaded - rear left","120":"Internal voltage error","39":"Cutting motor problem","704":"Connectivity problem","63":"Temporary battery problem","109":"Loop sensor defect","38":"Electronic problem","64":"Temporary battery problem","113":"Complex working area","93":"No accurate position from satellites","104":"Cutting drive motor 3 defect","709":"SIM card not found","94":"Reference station communication problem","43":"Cutting height problem - drive","13":"No drive","44":"Cutting height problem - curr","118":"Charging system problem","14":"Mower lifted","57":"Guide calibration failed","707":"SIM card requires PIN","99":"Ultrasonic Sensor 2 defect","98":"Ultrasonic Sensor 1 defect","51":"Guide 2 not found","56":"Guide calibration accomplished","49":"Ultrasonic problem","2":"No loop signal","124":"Destination blocked","25":"Cutting system blocked","19":"Collision sensor problem, front","18":"Collision sensor problem - rear","48":"No response from charger","105":"Lift Sensor defect","111":"No confirmed position","10":"Upside down","40":"Limited cutting height range","716":"Connectivity problem","27":"Settings restored","90":"No power in charging station","21":"Wheel motor blocked - left","26":"Invalid sub-device combination","92":"Work area not valid","702":"Connectivity settings restored","125":"Battery needs replacement","5":"Loop sensor problem - rear","12":"Empty battery","55":"Difficult finding home","42":"Limited cutting height range","30":"Charging system problem","72":"Alarm! Mower tilted","85":"Wheel drive problem - rear left","8":"Wrong PIN code","62":"Temporary battery problem","102":"Cutting drive motor 1 defect","116":"High charging power loss","122":"CAN error","60":"Temporary battery problem","705":"Connectivity problem","711":"SIM card locked","70":"Alarm! Mower stopped","32":"Tilt sensor problem","37":"Charging current too high","89":"Invalid system configuration","76":"Connection NOT changed","71":"Alarm! Mower lifted","88":"Angular sensor problem","701":"Connectivity problem","715":"Connectivity problem","61":"Temporary battery problem","66":"Battery problem","106":"Collision sensor defect","67":"Battery problem","112":"Cutting system major imbalance","83":"Wheel motor blocked - rear left","84":"Wheel drive problem - rear right","126":"Battery near end of life","77":"Com board not available","36":"Wheel motor overloaded - left","31":"STOP button problem","17":"Charging station blocked","54":"Weak GPS signal","47":"Cutting height problem","53":"GPS navigation problem","121":"High internal temerature","97":"Left brush motor overloaded","712":"SIM card locked","20":"Wheel motor blocked - right","91":"Switch cord problem","96":"Right brush motor overloaded","58":"Temporary battery problem","59":"Temporary battery problem","22":"Wheel drive problem - right","706":"Poor signal quality","41":"Unexpected cutting height adj","46":"Cutting height blocked","11":"Low battery","16":"Stuck in charging station","101":"Ultrasonic Sensor 4 defect","115":"Too high internal current"}'; our $errortable = eval { decode_json ( $errorjson ) }; if ($@) { return "FHEM::Devices::AMConnect::Common \$errortable: $@"; } $errorjson = undef; use constant AUTHURL => 'https://api.authentication.husqvarnagroup.dev/v1'; use constant APIURL => 'https://api.amc.husqvarna.dev/v1'; ############################################################## # # DEFINE # ############################################################## sub Define{ my ( $hash, $def ) = @_; my @val = split( "[ \t]+", $def ); my $name = $val[0]; my $type = $val[1]; my $iam = "$type $name Define:"; my $client_id = ''; my $mowerNumber = 0; my $hostname =''; return "$iam Cannot define $type device. Perl modul $missingModul is missing." if ( $missingModul ); if ( $type eq 'AutomowerConnect' ) { return "$iam too few parameters: define $type []" if( @val < 3 ); $client_id =$val[2]; $mowerNumber = $val[3] ? $val[3] : 0; } elsif ( $type eq 'AutomowerConnectDevice' ) { return "$iam too few parameters: define $type " if( @val < 4 ); $hostname = $val[2]; $mowerNumber = $val[3]; ::notifyRegexpChanged($hash, $hostname.':state:.connected'); } my $mapAttr = 'areaLimitsColor="#ff8000" areaLimitsLineWidth="1" areaLimitsConnector="" propertyLimitsColor="#33cc33" propertyLimitsLineWidth="1" propertyLimitsConnector="1" errorBackgroundColor="#3d3d3d" errorFont="14px Courier New" errorFontColor="#ff8000" errorPathLineColor="#ff00bf" errorPathLineDash="" errorPathLineWidth="2" chargingStationPathLineColor="#999999" chargingStationPathLineDash="6,2" chargingStationPathLineWidth="1" otherActivityPathLineColor="#999999" otherActivityPathLineDash="6,2" otherActivityPathLineWidth="1" leavingPathLineColor="#33cc33" leavingPathLineDash="6,2" leavingPathLineWidth="2" goingHomePathLineColor="#0099ff" goingHomePathLineDash="6,2" goingHomePathLineWidth="2" mowingPathDisplayStart="" mowingPathLineColor="#ff0000" mowingPathLineDash="6,2" mowingPathLineWidth="1"'; my $mapZonesTpl = '{ "A_Zone_1" : { "condition" : "", "cuttingHeight" : "" }, "B_Zone_2" : { "condition" : "", "cuttingHeight" : "" }, "C_Zone_3" : { "condition" : "", "cuttingHeight" : "" }, "D_Zone_x" : { "condition" : "", "cuttingHeight" : "" }, "E_LastZone" : { "condition" : "Use undef because the last zone remains.", "cuttingHeight" : "" } }'; %$hash = (%$hash, helper => { passObj => FHEM::Core::Authentication::Passwords->new($type), interval => 420, client_id => $client_id, grant_type => 'client_credentials', mowerNumber => $mowerNumber, hostname => $hostname, scaleToMeterLongitude => 67425, scaleToMeterLatitude => 108886, minLon => 180, maxLon => -180, minLat => 90, maxLat => -90, imageHeight => 650, imageWidthHeight => '350 650', mapdesign => $mapAttr, mapZonesTpl => $mapZonesTpl, posMinMax => "-180 90\n180 -90", newdatasets => 0, newzonedatasets => 0, MAP_PATH => '', MAP_MIME => '', MAP_CACHE => '', cspos => [], areapos => [], searchpos => [], timestamps => [], lasterror => { positions => [], timestamp => 0, errordesc => '-', errordate => '', sizex => 0, sizey => 0, olLon => 0, olLat => 0 }, UNKNOWN => { short => 'U', arrayName => '', maxLength => 100, cnt => 0, callFn => '' }, NOT_APPLICABLE => { short => 'N', arrayName => '', maxLength => 50, cnt => 0, callFn => '' }, MOWING => { short => 'M', arrayName => 'areapos', maxLength => 5000, maxLengthDefault => 5000, cnt => 0, callFn => \&FHEM::Devices::AMConnect::Common::AreaStatistics }, GOING_HOME => { short => 'G', arrayName => '', maxLength => 50, cnt => 0, callFn => '' }, CHARGING => { short => 'C', arrayName => 'cspos', maxLength => 100, cnt => 0, callFn => \&FHEM::Devices::AMConnect::Common::ChargingStationPosition }, LEAVING => { short => 'L', arrayName => '', maxLength => 50, cnt => 0, callFn => '' }, PARKED_IN_CS => { short => 'P', arrayName => 'cspos', maxLength => 100, cnt => 0, callFn => \&FHEM::Devices::AMConnect::Common::ChargingStationPosition }, STOPPED_IN_GARDEN => { short => 'S', arrayName => 'otherpos', maxLength => 50, cnt => 0, callFn => '' }, statistics => { currentSpeed => 0, currentDayTrack => 0, currentDayArea => 0, lastDayTrack => 0, lastDayArea => 0, currentWeekTrack => 0, currentWeekArea => 0, lastWeekTrack => 0, lastWeekArea => 0 } } ); $hash->{MODEL} = ''; $hash->{VERSION} = ''; $attr{$name}{room} = 'AutomowerConnect' if( !defined( $attr{$name}{room} ) ); $attr{$name}{icon} = 'automower' if( !defined( $attr{$name}{icon} ) ); ( $hash->{LIBRARY_VERSION} ) = $cvsid =~ /\.pm (.*)Z/; AddExtension( $name, \&GetMap, "$type/$name/map" ); if ( $type eq 'AutomowerConnect' ) { if( $hash->{helper}->{passObj}->getReadPassword($name) ) { RemoveInternalTimer($hash); InternalTimer( gettimeofday() + 2, \&::FHEM::AutomowerConnect::APIAuth, $hash, 1); InternalTimer( gettimeofday() + 30, \&readMap, $hash, 0); readingsSingleUpdate( $hash, 'state', 'defined', 1 ); } else { readingsSingleUpdate( $hash, 'state', 'defined - client_secret missing', 1 ); } } elsif ( $type eq 'AutomowerConnectDevice' ) { $hash->{HINWEIS1} = 'Dieses Modul nicht mehr verwenden, die Entwicklung ist eingestellt.'; $hash->{HINWEIS2} = 'Bestehende Instanzen muessen umgehend auf AutomowerConnect umgestellt werden.'; $hash->{HINWEIS3} = 'Für jedes Geraet ist ein extra Application Key zu verwenden.'; RemoveInternalTimer($hash); InternalTimer( gettimeofday() + 25, \&readMap, $hash, 0); readingsSingleUpdate( $hash, 'state', 'defined', 1 ); } return undef; } ######################### sub Undefine { my ( $hash, $arg ) = @_; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; RemoveInternalTimer($hash); ::FHEM::Devices::AMConnect::Common::RemoveExtension("$type/$name/map"); return undef; } ########################## sub Delete { my ( $hash, $arg ) = @_; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $iam ="$type $name Delete: "; Log3( $name, 5, "$iam called" ); my ($passResp,$passErr) = $hash->{helper}->{passObj}->setDeletePassword($name); Log3( $name, 1, "$iam error: $passErr" ) if ($passErr); return; } ########################## sub Rename { my ( $newname, $oldname ) = @_; my $hash = $defs{$newname}; my $type = $hash->{TYPE}; RemoveExtension("$type/$oldname/map"); AddExtension( $newname, \&GetMap, "$type/$newname/map" ); if ( $type eq 'AutomowerConnect' ) { my ( $passResp, $passErr ) = $hash->{helper}->{passObj}->setRename( $newname, $oldname ); Log3 $newname, 2, "$newname password rename error: $passErr" if ($passErr); } return undef; } ######################### sub Get { my ($hash,@val) = @_; my $type = $hash->{TYPE}; return "$type $hash->{NAME} Get: needs at least one argument" if ( @val < 2 ); my ($name,$setName,$setVal,$setVal2,$setVal3) = @val; my $iam = "$type $name Get:"; Log3 $name, 4, "$iam called with $setName " . ($setVal ? $setVal : ""); if ( $setName eq 'html' ) { my $ret = '' . ::FHEM::Devices::AMConnect::Common::FW_detailFn( undef, $name, undef, undef) . ''; return $ret; } elsif ( $setName eq 'errorCodes' ) { my $ret = ::FHEM::Devices::AMConnect::Common::listErrorCodes(); return $ret; } elsif ( $setName eq 'InternalData' ) { my $ret = ::FHEM::Devices::AMConnect::Common::listInternalData($hash); return $ret; } elsif ( $setName eq 'MowerData' ) { my $ret = ::FHEM::Devices::AMConnect::Common::listMowerData($hash); return $ret; } elsif ( $setName eq 'StatisticsData' ) { my $ret = ::FHEM::Devices::AMConnect::Common::listStatisticsData($hash); return $ret; } else { return "Unknown argument $setName, choose one of StatisticsData:noArg MowerData:noArg InternalData:noArg errorCodes:noArg "; } } ######################### sub FW_detailFn { my ($FW_wname, $name, $room, $pageHash) = @_; # pageHash is set for summaryFn. my $hash = $defs{$name}; my $type = $hash->{TYPE}; return '' if( AttrVal($name, 'disable', 0) || !AttrVal($name, 'showMap', 1) ); if ( $hash->{helper} && $hash->{helper}{mower} && $hash->{helper}{mower}{attributes} && $hash->{helper}{mower}{attributes}{positions} && @{$hash->{helper}{mower}{attributes}{positions}} > 0 ) { my $img = "./fhem/$type/$name/map"; my $zoom=AttrVal( $name,"mapImageZoom", 0.7 ); my $backgroundcolor = AttrVal($name, 'mapBackgroundColor',''); my $bgstyle = $backgroundcolor ? " background-color:$backgroundcolor;" : ''; my $design = AttrVal( $name, 'mapDesignAttributes', $hash->{helper}{mapdesign} ); my @adesign = split(/\R/,$design); my $mapDesign = 'data-'.join("data-",@adesign); my ($picx,$picy) = AttrVal( $name,"mapImageWidthHeight", $hash->{helper}{imageWidthHeight} ) =~ /(\d+)\s(\d+)/; $picx=int($picx*$zoom); $picy=int($picy*$zoom); my $ret = ""; $ret .= ""; $ret .= "
"; $ret .= ""; $ret .= "
"; InternalTimer( gettimeofday() + 2.0, \&FW_detailFn_Update, $hash, 0 ); return $ret; } return ''; } ######################### sub FW_detailFn_Update { my ($hash) = @_; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; if ( $hash->{helper} && $hash->{helper}{mower} && $hash->{helper}{mower}{attributes} && $hash->{helper}{mower}{attributes}{positions} && @{$hash->{helper}{mower}{attributes}{positions}} > 0 ) { my @pos = @{ $hash->{helper}{areapos} }; my @posc = @{ $hash->{helper}{cspos} }; my @poserr = @{ $hash->{helper}{lasterror}{positions} }; my $img = "./fhem/$type/$name/map"; my ( $lonlo, $latlo, $dummy, $lonru, $latru ) = AttrVal( $name,"mapImageCoordinatesToRegister",$hash->{helper}{posMinMax} ) =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)(\R|\s)(-?\d*\.?\d+)\s(-?\d*\.?\d+)/; my $zoom = AttrVal( $name,"mapImageZoom", 0.7 ); my ($picx,$picy) = AttrVal( $name,"mapImageWidthHeight", $hash->{helper}{imageWidthHeight} ) =~ /(\d+)\s(\d+)/; AttrVal($name,'scaleToMeterXY', $hash->{helper}{scaleToMeterLongitude} . ' ' .$hash->{helper}{scaleToMeterLatitude}) =~ /(-?\d+)\s+(-?\d+)/; my $scalx = ( $lonru - $lonlo ) * $1; my $scaly = ( $latlo - $latru ) * $2; $picx = int($picx*$zoom); $picy = int($picy*$zoom); my $mapx = $lonlo-$lonru; my $mapy = $latlo-$latru; if ( ($hash->{helper}{PARKED_IN_CS}{callFn} || $hash->{helper}{CHARGING}{callFn}) && (!$hash->{helper}{chargingStation}{longitude} || !$hash->{helper}{chargingStation}{latitude}) ) { no strict "refs"; &{$hash->{helper}{PARKED_IN_CS}{callFn}}($hash); use strict "refs"; } # CHARGING STATION POSITION my $csimgpos = AttrVal( $name,"chargingStationImagePosition","right" ); my $xm = $hash->{helper}{chargingStation}{longitude} // 10.1165; my $ym = $hash->{helper}{chargingStation}{latitude} // 51.28; my ($cslo,$csla) = AttrVal( $name,"chargingStationCoordinates","$xm $ym" ) =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)/; my $cslon = int(($lonlo-$cslo) * $picx / $mapx); my $cslat = int(($latlo-$csla) * $picy / $mapy); # MOWING PATH my $posxy = int( $lonlo * $picx / $mapx ).",".int( $latlo * $picy / $mapy ); if ( @pos > 1 ) { $posxy = int( ( $lonlo-$pos[ 0 ]{longitude} ) * $picx / $mapx ).",".int( ( $latlo-$pos[ 0 ]{latitude} ) * $picy / $mapy ).",'".$pos[ 0 ]{act}."'"; for (my $i=1;$i<@pos;$i++){ $posxy .= ",".int( ( $lonlo - $pos[ $i ]{longitude} ) * $picx / $mapx ).",".int( ( $latlo - $pos[ $i ]{latitude} ) * $picy / $mapy ).",'".$pos[ $i ]{act}."'"; } } # CHARGING STATION PATH my $poscxy = int( ( $lonru-$lonlo ) * $picx / $mapx ).",".int( ( $latlo - $latru ) * $picy / $mapy ); if ( @posc > 1 ) { $poscxy = int( ( $lonlo-$posc[0]{longitude} ) * $picx / $mapx ).",".int( ( $latlo-$posc[0]{latitude} ) * $picy / $mapy ); for (my $i=1;$i<@posc;$i++){ $poscxy .= ",".int(($lonlo-$posc[$i]{longitude}) * $picx / $mapx).",".int(($latlo-$posc[$i]{latitude}) * $picy / $mapy); } } # AREA LIMITS my $arealimits = AttrVal($name,'mowingAreaLimits',''); my $limi = ''; if ($arealimits) { my @lixy = (split(/\s|,|\R$/,$arealimits)); $limi = int( ( $lonlo - $lixy[ 0 ] ) * $picx / $mapx ) . "," . int( ( $latlo - $lixy[ 1 ] ) * $picy / $mapy ); for (my $i=2;$i<@lixy;$i+=2){ $limi .= ",".int( ( $lonlo - $lixy[ $i ] ) * $picx / $mapx).",".int( ( $latlo-$lixy[$i+1] ) * $picy / $mapy); } } # PROPERTY LIMITS my $propertylimits = AttrVal($name,'propertyLimits',''); my $propli = ''; if ($propertylimits) { my @propxy = (split(/\s|,|\R$/,$propertylimits)); $propli = int(($lonlo-$propxy[0]) * $picx / $mapx).",".int(($latlo-$propxy[1]) * $picy / $mapy); for (my $i=2;$i<@propxy;$i+=2){ $propli .= ",".int(($lonlo-$propxy[$i]) * $picx / $mapx).",".int(($latlo-$propxy[$i+1]) * $picy / $mapy); } } # ERROR MESSAGE my $errlon = int( ( $lonlo - $hash->{helper}{lasterror}{olLon} ) * $picx / $mapx ); my $errlat = int( ( $latlo - $hash->{helper}{lasterror}{olLat} ) * $picy / $mapy ); my $errx = int( $hash->{helper}{lasterror}{sizex} * $picx / -$mapx ); my $erry = int( $hash->{helper}{lasterror}{sizey} * $picy / $mapy ); my $errdesc = $hash->{helper}{lasterror}{errordesc}; my $errdate = $hash->{helper}{lasterror}{errordate}; # ERROR PATH my $poserrxy = int( ( $lonru-$lonlo ) / 2 * $picx / $mapx ).",".int( ( $latlo - $latru ) / 2 * $picy / $mapy );; if ( @poserr > 0 ) { $poserrxy = int( ( $lonlo - $poserr[ 0 ]{longitude} ) * $picx / $mapx ) . "," . int( ( $latlo - $poserr[ 0 ]{latitude} ) * $picy / $mapy ); for ( my $i = 1; $i < @poserr; $i++ ){ $poserrxy .= ",".int( ( $lonlo - $poserr[ $i ]{longitude} ) * $picx / $mapx) . "," . int( ( $latlo - $poserr[ $i ]{latitude} ) * $picy / $mapy ); } } my $erray = "$errlon,$errlat,$errx,$erry,$poserrxy"; # Log3 $name, 1, "AutomowerConnectUpdateDetail ( '$name', '$type', '$img', $picx, $picy, $cslon, $cslat, '$csimgpos', $scalx, '$errdesc', [ $posxy ], [ $limi ], [ $propli ], [ $erray ] )"; map { ::FW_directNotify("#FHEMWEB:$_", "AutomowerConnectUpdateDetail ( '$name', '$type', '$img', $picx, $picy, $cslon, $cslat, '$csimgpos', $scalx, [ '$errdesc', '$errdate' ], [ $posxy ], [ $limi ], [ $propli ], [ $erray ] )",""); } devspec2array("TYPE=FHEMWEB"); } return undef; } ############################################################## # # SEND COMMAND # ############################################################## sub CMD { my ($hash,@cmd) = @_; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $iam = "$type $name CMD:"; my $hostname = $hash->{helper}{hostname} ? $hash->{helper}{hostname} : $name; my $hosthash = $defs{$hostname}; if ( IsDisabled($hostname) ) { Log3 $name, 3, "$iam Host $hostname disabled"; return undef } if ( IsDisabled($name) ) { Log3 $name, 3, "$iam disabled"; return undef } my $client_id = $hosthash->{helper}->{client_id}; my $token = ReadingsVal($hostname,".access_token",""); my $provider = ReadingsVal($hostname,".provider",""); my $mower_id = $hash->{helper}{mower}{id}; my $json = ''; my $post = ''; my $header = "Accept: application/vnd.api+json\r\nX-Api-Key: ".$client_id."\r\nAuthorization: Bearer " . $token . "\r\nAuthorization-Provider: " . $provider . "\r\nContent-Type: application/vnd.api+json"; if ($cmd[0] eq "ParkUntilFurtherNotice") { $json = '{"data":{"type":"'.$cmd[0].'"}}'; $post = 'actions' } elsif ($cmd[0] eq "ParkUntilNextSchedule") { $json = '{"data": {"type":"'.$cmd[0].'"}}'; $post = 'actions' } elsif ($cmd[0] eq "ResumeSchedule") { $json = '{"data": {"type":"'.$cmd[0].'"}}'; $post = 'actions' } elsif ($cmd[0] eq "Pause") { $json = '{"data": {"type":"'.$cmd[0].'"}}'; $post = 'actions' } elsif ($cmd[0] eq "Park") { $json = '{"data": {"type":"'.$cmd[0].'","attributes":{"duration":'.$cmd[1].'}}}'; $post = 'actions' } elsif ($cmd[0] eq "Start") { $json = '{"data": {"type":"'.$cmd[0].'","attributes":{"duration":'.$cmd[1].'}}}'; $post = 'actions' } elsif ($cmd[0] eq "headlight") { $json = '{"data": {"type":"settings","attributes":{"'.$cmd[0].'": {"mode": "'.$cmd[1].'"}}}}'; $post = 'settings' } elsif ($cmd[0] eq "cuttingHeight") { $json = '{"data": {"type":"settings","attributes":{"'.$cmd[0].'": '.$cmd[1].'}}}'; $post = 'settings' } elsif ($cmd[0] eq "sendScheduleFromAttributeToMower" && AttrVal( $name, 'mowerSchedule', '')) { my $perl = eval { decode_json (AttrVal( $name, 'mowerSchedule', '')) }; if ($@) { return "$iam decode error: $@ \n $perl"; } my $jsonSchedule = eval { encode_json ($perl) }; if ($@) { return "$iam encode error: $@ \n $json"; } $json = '{"data":{"type": "calendar","attributes":{"tasks":'.$jsonSchedule.'}}}'; $post = 'calendar'; } Log3 $name, 5, "$iam $header \n $cmd[0] \n $json"; ::HttpUtils_NonblockingGet({ url => APIURL . "/mowers/". $mower_id . "/".$post, timeout => 10, hash => $hash, method => "POST", header => $header, data => $json, callback => \&CMDResponse, }); } ############################################################## sub CMDResponse { my ($param, $err, $data) = @_; my $hash = $param->{hash}; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $statuscode = $param->{code}; my $iam = "$type $name CMDResponse:"; 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 == 202 && $data ) { my $result = eval { decode_json($data) }; if ($@) { Log3( $name, 2, "$iam - JSON error while request: $@"); } else { $hash->{helper}{CMDResponse} = $result; if ($result->{data}) { Log3 $name, 5, $data; if ( ref ($result->{data}) eq 'ARRAY') { $hash->{helper}->{mower_commandStatus} = 'OK - '. $result->{data}[0]{type}; } else { $hash->{helper}->{mower_commandStatus} = 'OK - '. $result->{data}{type}; } readingsSingleUpdate($hash, 'mower_commandStatus', $hash->{helper}->{mower_commandStatus} ,1); return undef; } } } readingsSingleUpdate($hash, 'mower_commandStatus', "ERROR statuscode $statuscode" ,1); Log3 $name, 2, "\n$iam \n\$statuscode [$statuscode]\n\$err [$err],\n\$data [$data]\n\$param->url $param->{url}"; return undef; } ######################### sub AlignArray { my ($hash) = @_; my $name = $hash->{NAME}; my $act = $hash->{helper}{mower}{attributes}{mower}{activity}; my $actold = $hash->{helper}{mowerold}{attributes}{mower}{activity}; my $searchlen = 2; my $cnt = 0; my $tmp = []; my $poslen = @{ $hash->{helper}{mower}{attributes}{positions} }; my @searchposlon = ( $hash->{helper}{searchpos}[0]{longitude}, $hash->{helper}{searchpos}[1]{longitude} ); my @searchposlat = ( $hash->{helper}{searchpos}[0]{latitude}, $hash->{helper}{searchpos}[1]{latitude} ); for ( $cnt = 0; $cnt < $poslen-1; $cnt++ ) { # <-1 due to 2 alignment data sets at the end if ( $searchposlon[ 0 ] == $hash->{helper}{mower}{attributes}{positions}[ $cnt ]{longitude} && $searchposlat[ 0 ] == $hash->{helper}{mower}{attributes}{positions}[ $cnt ]{latitude} && $searchposlon[ 1 ] == $hash->{helper}{mower}{attributes}{positions}[ $cnt+1 ]{longitude} && $searchposlat[ 1 ] == $hash->{helper}{mower}{attributes}{positions}[ $cnt+1 ]{latitude} ) { if ( $cnt > 0 ) { my @ar = @{ $hash->{helper}{mower}{attributes}{positions} }[ 0 .. $cnt-1 ]; map { $_->{act} = $hash->{helper}{$act}{short} } @ar; $tmp = dclone( \@ar ); if ( @{ $hash->{helper}{areapos} } ) { unshift ( @{ $hash->{helper}{areapos} }, @$tmp ); } else { $hash->{helper}{areapos} = $tmp; } while ( @{ $hash->{helper}{areapos} } > $hash->{helper}{MOWING}{maxLength} ) { pop ( @{ $hash->{helper}{areapos}} ); # reduce to max allowed length } posMinMax( $hash, $tmp ); if ( $act =~ /^(MOWING)$/ && $actold =~ /^(MOWING|LEAVING|PARKED_IN_CS|CHARGING)$/ ) { AreaStatistics ( $hash, $cnt ); } if ( AttrVal($name, 'mapZones', 0) && $act =~ /^(MOWING)$/ && $actold =~ /^(MOWING|LEAVING|PARKED_IN_CS|CHARGING)$/ || $act =~ /^(GOING_HOME|PARKED_IN_CS|CHARGING)$/ && $actold =~ /^(MOWING)$/ ) { $tmp = dclone( \@ar ); ZoneHandling ( $hash, $tmp, $cnt ); } # set cutting height per zone if ( AttrVal($name, 'mapZones', 0) && $act =~ /^MOWING$/ && $actold =~ /^MOWING$/ && defined( $hash->{helper}{currentZone} ) && defined( $hash->{helper}{mapZones}{$hash->{helper}{currentZone}}{cuttingHeight} )) { CMD( $hash ,'cuttingHeight', $hash->{helper}{mapZones}{$hash->{helper}{currentZone}}{cuttingHeight} ) if ( $hash->{helper}{mapZones}{$hash->{helper}{currentZone}}{cuttingHeight} != $hash->{helper}{mower}{attributes}{settings}{cuttingHeight} ); } if ( $act =~ /^(CHARGING|PARKED_IN_CS)$/ && $actold =~ /^(PARKED_IN_CS|CHARGING)$/ ) { $tmp = dclone( \@ar ); ChargingStationPosition ( $hash, $tmp, $cnt ); } } else { $cnt = 0; } last; } } isErrorThanPrepare( $hash, $tmp ); resetLastErrorIfCorrected($hash); $hash->{helper}{newdatasets} = $cnt; $hash->{helper}{searchpos} = [ dclone( $hash->{helper}{mower}{attributes}{positions}[0] ), dclone( $hash->{helper}{mower}{attributes}{positions}[1] ) ]; return undef; } ######################### sub isErrorThanPrepare { my ( $hash, $poshash ) = @_; if ( $hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp} ) { if ( ( $hash->{helper}{lasterror}{timestamp} != $hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp} ) && @$poshash) { my $minLon = minNum( 180, $poshash->[ 0 ]{longitude} ); my $maxLon = maxNum( -180, $poshash->[ 0 ]{longitude} ); my $minLat = minNum( 90, $poshash->[ 0 ]{latitude} ); my $maxLat = maxNum( -90, $poshash->[ 0 ]{latitude} ); for ( @{ $poshash } ) { $minLon = minNum( $minLon, $_->{longitude} ); $maxLon = maxNum( $maxLon, $_->{longitude} ); $minLat = minNum( $minLat, $_->{latitude} ); $maxLat = maxNum( $maxLat, $_->{latitude} ); } my $ect = $hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp}; $hash->{helper}{lasterror}{positions} = dclone $poshash; $hash->{helper}{lasterror}{timestamp} = $ect; $hash->{helper}{lasterror}{olLon} = $minLon; $hash->{helper}{lasterror}{olLat} = $maxLat; $hash->{helper}{lasterror}{sizex} = sprintf('%.7f',$maxLon - $minLon); $hash->{helper}{lasterror}{sizey} = sprintf('%.7f',$maxLat - $minLat); my $errc = $hash->{helper}{mower}{attributes}{mower}{errorCode}; $hash->{helper}{lasterror}{errordesc} = $::FHEM::Devices::AMConnect::Common::errortable->{$errc}; $hash->{helper}{lasterror}{errordate} = FmtDateTimeGMT( $ect / 1000 ); } } } ######################### sub resetLastErrorIfCorrected { my ( $hash ) = @_; if (!$hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp} && $hash->{helper}{lasterror}{timestamp} ) { $hash->{helper}{lasterror}{positions} = []; $hash->{helper}{lasterror}{timestamp} = 0; $hash->{helper}{lasterror}{olLon} = 0; $hash->{helper}{lasterror}{olLat} = 0; $hash->{helper}{lasterror}{sizex} = 0; $hash->{helper}{lasterror}{sizey} = 0; $hash->{helper}{lasterror}{errordesc} = '-'; $hash->{helper}{lasterror}{errordate} = ''; } } ######################### sub ZoneHandling { my ( $hash, $poshash, $cnt ) = @_; my $name = $hash->{NAME}; my $zone = ''; my $nextzone = ''; my @pos = @$poshash; my $longitude = 0; my $latitude = 0; my @zonekeys = sort (keys %{$hash->{helper}{mapZones}}); my $i = 0; my $k = 0; map{ $hash->{helper}{mapZones}{$_}{curZoneCnt} = 0 } @zonekeys; for ( $i = 0; $i < $cnt; $i++){ $longitude = $pos[$i]{longitude}; $latitude = $pos[$i]{latitude}; for ( $k = 0; $k < @zonekeys-1; $k++){ if ( eval ("$hash->{helper}{mapZones}{$zonekeys[$k]}{condition}") ) { if ( $hash->{helper}{mapZones}{$zonekeys[$k]}{curZoneCnt} == $i) { # find current zone and count consecutive way points $hash->{helper}{mapZones}{$zonekeys[$k]}{curZoneCnt}++; $hash->{helper}{currentZone} = $zonekeys[$k]; } $hash->{helper}{mapZones}{$zonekeys[$k]}{zoneCnt}++; $hash->{helper}{mapZones}{$zonekeys[$k]}{zoneLength} += calcPathLength( $hash, $i, $i + 1 ); last; } elsif ( $k == @zonekeys-2 ) { # last zone if ( $hash->{helper}{mapZones}{$zonekeys[$k+1]}{curZoneCnt} == $i) { # find current zone and count consecutive way points $hash->{helper}{mapZones}{$zonekeys[$k+1]}{curZoneCnt}++; $hash->{helper}{currentZone} = $zonekeys[$k+1]; } $hash->{helper}{mapZones}{$zonekeys[$k+1]}{zoneCnt}++; $hash->{helper}{mapZones}{$zonekeys[$k+1]}{zoneLength} += calcPathLength( $hash, $i, $i + 1 ); } } } my $sumDayCnt=0; my $sumDayArea=0; map { $sumDayCnt += $hash->{helper}{mapZones}{$_}{zoneCnt}; $sumDayArea += $hash->{helper}{mapZones}{$_}{zoneLength}; } @zonekeys; map { $hash->{helper}{mapZones}{$_}{currentDayCntPct} = ( $sumDayCnt ? sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{zoneCnt} / $sumDayCnt * 100 ) : 0 ); $hash->{helper}{mapZones}{$_}{currentDayAreaPct} = ( $sumDayArea ? sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{zoneLength} / $sumDayArea * 100 ) : 0 ); } @zonekeys; $hash->{helper}{newzonedatasets} = $cnt; } ######################### sub ChargingStationPosition { my ( $hash, $poshash, $cnt ) = @_; if ( $cnt && @{ $hash->{helper}{cspos} } ) { unshift ( @{ $hash->{helper}{cspos} }, @$poshash ); } elsif ( $cnt ) { $hash->{helper}{cspos} = $poshash; } while ( @{ $hash->{helper}{cspos} } > $hash->{helper}{PARKED_IN_CS}{maxLength} ) { pop ( @{ $hash->{helper}{cspos}} ); # reduce to max allowed length } my $n = @{$hash->{helper}{cspos}}; if ( $n > 0 ) { my $xm = 0; map { $xm += $_->{longitude} } @{$hash->{helper}{cspos}}; $xm = $xm/$n; my $ym = 0; map { $ym += $_->{latitude} } @{$hash->{helper}{cspos}}; $ym = $ym/$n; $hash->{helper}{chargingStation}{longitude} = sprintf("%.8f",$xm); $hash->{helper}{chargingStation}{latitude} = sprintf("%.8f",$ym); } return undef; } ######################### sub calcPathLength { my ( $hash, $istart, $i ) = @_; my $name = $hash->{NAME}; my $k = 0; my @xyarr = @{$hash->{helper}{areapos}};# areapos my $n = scalar @xyarr; my ($sclon, $sclat) = AttrVal($name,'scaleToMeterXY', $hash->{helper}{scaleToMeterLongitude} . ' ' .$hash->{helper}{scaleToMeterLatitude}) =~ /(-?\d+)\s+(-?\d+)/; my $lsum = 0; for ( $k = $istart; $k < $i; $k++) { $lsum += ( ( ( $xyarr[ $k ]{longitude} - $xyarr[ $k+1 ]{longitude} ) * $sclon ) ** 2 + ( ( $xyarr[ $k ]{latitude} - $xyarr[ $k+1 ]{latitude} ) * $sclat ) ** 2 ) ** 0.5 if ( $xyarr[ $k+1 ]{longitude} && $xyarr[ $k+1 ]{latitude} ); } return $lsum; } ######################### sub AreaStatistics { my ( $hash, $i ) = @_; my $name = $hash->{NAME}; my $activity = 'MOWING'; my $lsum = calcPathLength( $hash, 0, $i ); my $asum = 0; $asum = $lsum * AttrVal($name,'mowerCuttingWidth',0.24); $hash->{helper}{$activity}{track} = $lsum; $hash->{helper}{$activity}{area} = $asum; $hash->{helper}{statistics}{currentDayTrack} += $lsum; $hash->{helper}{statistics}{currentDayArea} += $asum; return undef; } ######################### sub AddExtension { my ( $name, $func, $link ) = @_; my $hash = $defs{$name}; my $type = $hash->{TYPE}; my $url = "/$link"; Log3( $name, 2, "Registering $type $name for URL $url..." ); $::data{FWEXT}{$url}{deviceName} = $name; $::data{FWEXT}{$url}{FUNC} = $func; $::data{FWEXT}{$url}{LINK} = $link; return; } ######################### sub RemoveExtension { my ($link) = @_; my $url = "/$link"; my $name = $::data{FWEXT}{$url}{deviceName}; Log3( $name, 2, "Unregistering URL $url..." ); delete $::data{FWEXT}{$url}; return; } ######################### sub GetMap() { my ($request) = @_; if ( $request =~ /^\/(AutomowerConnectDevice|AutomowerConnect)\/(\w+)\/map/ ) { my $type = $1; my $name = $2; my $hash = $::defs{$name}; return ( "text/plain; charset=utf-8","${type} ${name}: No MAP_MIME for webhook $request" ) if ( !defined $hash->{helper}{MAP_MIME} || !$hash->{helper}{MAP_MIME} ); return ( "text/plain; charset=utf-8","${type} ${name}: No MAP_CACHE for webhook $request" ) if ( !defined $hash->{helper}{MAP_CACHE} || !$hash->{helper}{MAP_CACHE} ); my $mapMime = $hash->{helper}{MAP_MIME}; my $mapData = $hash->{helper}{MAP_CACHE}; return ( $mapMime, $mapData ); } return ( "text/plain; charset=utf-8", "No AutomowerConnect(Device) device for webhook $request" ); } ######################### sub readMap { my ($hash) = @_; my $name = $hash->{NAME}; my $type = $hash->{TYPE}; my $iam = "$type $name readMap:"; RemoveInternalTimer( $hash, \&::FHEM::Devices::AMConnect::Common::readMap ); my $filename = $hash->{helper}{MAP_PATH}; if ( $filename and -e $filename ) { open my $fh, '<:raw', $filename or die $!; my $content = ''; while (1) { my $success = read $fh, $content, 1024, length($content); die $! if not defined $success; last if not $success; } close $fh; $hash->{helper}{MAP_CACHE} = $content; Log3 $name, 5, "$iam file \"$filename\" content length: ".length($content); } else { Log3 $name, 2, "$iam file \"$filename\" does not exist."; } } ######################### sub posMinMax { my ($hash, $poshash) = @_; my $minLon = $hash->{helper}{minLon}; my $maxLon = $hash->{helper}{maxLon}; my $minLat = $hash->{helper}{minLat}; my $maxLat = $hash->{helper}{maxLat}; for ( @{$poshash} ) { $minLon = minNum( $minLon,$_->{longitude} ); $maxLon = maxNum( $maxLon,$_->{longitude} ); $minLat = minNum( $minLat,$_->{latitude} ); $maxLat = maxNum( $maxLat,$_->{latitude} ); } $hash->{helper}{minLon} = $minLon; $hash->{helper}{maxLon} = $maxLon; $hash->{helper}{minLat} = $minLat; $hash->{helper}{maxLat} = $maxLat; $hash->{helper}{posMinMax} = "$minLon $maxLat\n$maxLon $minLat"; $hash->{helper}{imageWidthHeight} = int($hash->{helper}{imageHeight} * ($maxLon-$minLon) / ($maxLat-$minLat)) . ' ' . $hash->{helper}{imageHeight} if ($maxLon-$minLon); return undef; } ######################### sub fillReadings { my ( $hash ) = @_; my $name = $hash->{NAME}; readingsBulkUpdateIfChanged($hash, "batteryPercent", $hash->{helper}{mower}{attributes}{battery}{batteryPercent} ); 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 = 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 = $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} = $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 = 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", $hash->{helper}{storediff}/1000 ); return undef; } ######################### sub calculateStatistics { my ( $hash ) = @_; my $name = $hash->{NAME}; 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 $sumCurrentWeekCnt=0; my $sumCurrentWeekArea=0; map { $hash->{helper}{mapZones}{$_}{currentWeekCnt} += $hash->{helper}{mapZones}{$_}{zoneCnt}; $sumCurrentWeekCnt += $hash->{helper}{mapZones}{$_}{currentWeekCnt}; $hash->{helper}{mapZones}{$_}{currentWeekArea} += $hash->{helper}{mapZones}{$_}{zoneLength}; $sumCurrentWeekArea += $hash->{helper}{mapZones}{$_}{currentWeekArea}; $hash->{helper}{mapZones}{$_}{zoneCnt} = 0; $hash->{helper}{mapZones}{$_}{zoneLength} = 0; } @zonekeys; map { $hash->{helper}{mapZones}{$_}{lastDayCntPct} = $hash->{helper}{mapZones}{$_}{currentDayCntPct}; $hash->{helper}{mapZones}{$_}{currentWeekCntPct} = ( $sumCurrentWeekCnt ? sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{currentWeekCnt} / $sumCurrentWeekCnt * 100 ) : '' ); $hash->{helper}{mapZones}{$_}{lastDayAreaPct} = $hash->{helper}{mapZones}{$_}{currentDayAreaPct}; $hash->{helper}{mapZones}{$_}{currentWeekAreaPct} = ( $sumCurrentWeekArea ? sprintf( "%.0f", $hash->{helper}{mapZones}{$_}{currentWeekArea} / $sumCurrentWeekArea * 100 ) : '' ); $hash->{helper}{mapZones}{$_}{currentDayCntPct} = ''; $hash->{helper}{mapZones}{$_}{currentDayAreaPct} = ''; } @zonekeys; } # 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}}); map { $hash->{helper}{mapZones}{$_}{lastWeekCntPct} = $hash->{helper}{mapZones}{$_}{currentWeekCntPct}; $hash->{helper}{mapZones}{$_}{lastWeekAreaPct} = $hash->{helper}{mapZones}{$_}{currentWeekAreaPct}; $hash->{helper}{mapZones}{$_}{currentWeekCntPct} = ''; $hash->{helper}{mapZones}{$_}{currentWeekAreaPct} = ''; } @zonekeys; } } #clear position arrays if ( AttrVal( $name, 'weekdaysToResetWayPoints', 1 ) =~ $time[6] ) { $hash->{helper}{areapos} = []; $hash->{helper}{otherpos} = []; } } return undef; } ######################### sub listStatisticsData { my ( $hash ) = @_; if ( $::init_done && $hash->{helper}{statistics} ) { my $name = $hash->{NAME}; my $cnt = 0; my $ret = ''; $ret .= ''; $ret .= ''; $ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; # $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; if ( AttrVal($name, 'mapZones', 0) && defined( $hash->{helper}{mapZones} ) ) { my @zonekeys = sort (keys %{$hash->{helper}{mapZones}}); for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } for ( @zonekeys ) { $cnt++; $ret .= ''; } } $ret .= '
Statistics Data
Hash Path Value Unit
$hash->{helper}{mower}{attributes}{statistics}{numberOfChargingCycles}   ' . $hash->{helper}{mower}{attributes}{statistics}{numberOfChargingCycles} . '
$hash->{helper}{mower}{attributes}{statistics}{numberOfCollisions}   ' . $hash->{helper}{mower}{attributes}{statistics}{numberOfCollisions} . '
$hash->{helper}{mower}{attributes}{statistics}{totalChargingTime}   ' . sprintf( "%.0f", $hash->{helper}{mower}{attributes}{statistics}{totalChargingTime} / 3600 ) . ' h
$hash->{helper}{mower}{attributes}{statistics}{totalCuttingTime}   ' . sprintf( "%.0f", $hash->{helper}{mower}{attributes}{statistics}{totalCuttingTime} / 3600 ) . ' h
$hash->{helper}{mower}{attributes}{statistics}{totalRunningTime}   ' . sprintf( "%.0f", $hash->{helper}{mower}{attributes}{statistics}{totalRunningTime} / 3600 ) . '1 h
$hash->{helper}{mower}{attributes}{statistics}{totalSearchingTime}   ' . sprintf( "%.0f", $hash->{helper}{mower}{attributes}{statistics}{totalSearchingTime} / 3600 ) . ' h
$hash->{helper}{statistics}{currentSpeed}   ' . $hash->{helper}{statistics}{currentSpeed} . ' m/s
$hash->{helper}{statistics}{currentDayTrack}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{currentDayTrack} ) . ' m
$hash->{helper}{statistics}{currentDayArea}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{currentDayArea} ) . ' qm
$hash->{helper}{statistics}{lastDayTrack}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{lastDayTrack} ) . ' m
$hash->{helper}{statistics}{lastDayArea}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{lastDayArea} ) . ' qm
$hash->{helper}{statistics}{currentWeekTrack}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{currentWeekTrack} ) . ' m
$hash->{helper}{statistics}{currentWeekArea}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{currentWeekArea} ) . ' qm
$hash->{helper}{statistics}{lastWeekTrack}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{lastWeekTrack} ) . ' m
$hash->{helper}{statistics}{lastWeekArea}   ' . sprintf( "%.0f", $hash->{helper}{statistics}{lastWeekArea} ) . ' qm
$hash->{helper}{mapZones}{' . $_ . '}{currentDayCntPct}   ' . ( $hash->{helper}{mapZones}{$_}{currentDayCntPct} ? $hash->{helper}{mapZones}{$_}{currentDayCntPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{lastDayCntPct}   ' . ( $hash->{helper}{mapZones}{$_}{lastDayCntPct} ? $hash->{helper}{mapZones}{$_}{lastDayCntPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{currentWeekCntPct}   ' . ( $hash->{helper}{mapZones}{$_}{currentWeekCntPct} ? $hash->{helper}{mapZones}{$_}{currentWeekCntPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{lastWeekCntPct}   ' . ( $hash->{helper}{mapZones}{$_}{lastWeekCntPct} ? $hash->{helper}{mapZones}{$_}{lastWeekCntPct} : '' ). ' %
$hash->{helper}{mapZones}{' . $_ . '}{currentDayAreaPct}   ' . ( $hash->{helper}{mapZones}{$_}{currentDayAreaPct} ? $hash->{helper}{mapZones}{$_}{currentDayAreaPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{lastDayAreaPct}   ' . ( $hash->{helper}{mapZones}{$_}{lastDayAreaPct} ? $hash->{helper}{mapZones}{$_}{lastDayAreaPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{currentWeekAreaPct}   ' . ( $hash->{helper}{mapZones}{$_}{currentWeekAreaPct} ? $hash->{helper}{mapZones}{$_}{currentWeekAreaPct} : '' ) . ' %
$hash->{helper}{mapZones}{' . $_ . '}{lastWeekAreaPct}   ' . ( $hash->{helper}{mapZones}{$_}{lastWeekAreaPct} ? $hash->{helper}{mapZones}{$_}{lastWeekAreaPct} : '' ). ' %
'; $ret .= '

1 totalRunningTime = totalCuttingTime + totalSearchingTime'; $ret .= ''; return $ret; } else { return '
error codes are not yet available
'; } } ######################### sub listMowerData { my ( $hash ) = @_; my $name = $hash->{NAME}; my $cnt = 0; my $ret = ''; if ( $::init_done && defined( $hash->{helper}{mower}{type} ) ) { $ret .= ''; $ret .= ''; $ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; my $calendarjson = eval { JSON::XS->new->pretty(1)->encode ($hash->{helper}{mower}{attributes}{calendar}{tasks}) }; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; # $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $ret .= '
Mower Data
Hash Path Value Unit
$hash->{helper}{mower}{type}   ' . $hash->{helper}{mower}{type} . '
$hash->{helper}{mower}{id}   ' . $hash->{helper}{mower}{id} . '
$hash->{helper}{mower}{attributes}{system}{name}   ' . $hash->{helper}{mower}{attributes}{system}{name} . '
$hash->{helper}{mower}{attributes}{system}{model}   ' . $hash->{helper}{mower}{attributes}{system}{model} . '
$hash->{helper}{mower}{attributes}{system}{serialNumber}   ' . $hash->{helper}{mower}{attributes}{system}{serialNumber} . '
$hash->{helper}{mower}{attributes}{battery}{batteryPercent}   ' . $hash->{helper}{mower}{attributes}{battery}{batteryPercent} . ' %
$hash->{helper}{mower}{attributes}{mower}{mode}   ' . $hash->{helper}{mower}{attributes}{mower}{mode} . '
$hash->{helper}{mower}{attributes}{mower}{activity}   ' . $hash->{helper}{mower}{attributes}{mower}{activity} . '
$hash->{helper}{mower}{attributes}{mower}{state}   ' . $hash->{helper}{mower}{attributes}{mower}{state} . '
$hash->{helper}{mower}{attributes}{mower}{errorCode}   ' . $hash->{helper}{mower}{attributes}{mower}{errorCode} . '
$hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp}   ' . $hash->{helper}{mower}{attributes}{mower}{errorCodeTimestamp} . ' ms
$hash->{helper}{mower}{attributes}{calendar}{tasks}   ' . ($@ ? $@ : $calendarjson) . '
$hash->{helper}{mower}{attributes}{planner}{nextStartTimestamp}   ' . $hash->{helper}{mower}{attributes}{planner}{nextStartTimestamp} . '
$hash->{helper}{mower}{attributes}{planner}{override}{action}   ' . $hash->{helper}{mower}{attributes}{planner}{override}{action} . '
$hash->{helper}{mower}{attributes}{planner}{restrictedReason}   ' . $hash->{helper}{mower}{attributes}{planner}{restrictedReason} . '
$hash->{helper}{mower}{attributes}{metadata}{connected}   ' . $hash->{helper}{mower}{attributes}{metadata}{connected} . '
$hash->{helper}{mower}{attributes}{metadata}{statusTimestamp}   ' . $hash->{helper}{mower}{attributes}{metadata}{statusTimestamp} . ' ms
$hash->{helper}{mower}{attributes}{positions}[0]{longitude}   ' . $hash->{helper}{mower}{attributes}{positions}[0]{longitude} . ' decimal degree
$hash->{helper}{mower}{attributes}{positions}[0]{latitude}   ' . $hash->{helper}{mower}{attributes}{positions}[0]{latitude} . ' decimal degree
$hash->{helper}{mower}{attributes}{settings}{cuttingHeight}   ' . $hash->{helper}{mower}{attributes}{settings}{cuttingHeight} . '
$hash->{helper}{mower}{attributes}{settings}{headlight}{mode}   ' . $hash->{helper}{mower}{attributes}{settings}{headlight}{mode} . '
$hash->{helper}{mower}{attributes}{statistics}{cuttingBladeUsageTime}   ' . $hash->{helper}{mower}{attributes}{statistics}{cuttingBladeUsageTime} . '
$hash->{helper}{mower}{attributes}{statistics}{numberOfChargingCycles}   ' . $hash->{helper}{mower}{attributes}{statistics}{numberOfChargingCycles} . '
$hash->{helper}{mower}{attributes}{statistics}{numberOfCollisions}   ' . $hash->{helper}{mower}{attributes}{statistics}{numberOfCollisions} . '
$hash->{helper}{mower}{attributes}{statistics}{totalChargingTime}   ' . $hash->{helper}{mower}{attributes}{statistics}{totalChargingTime} . ' s
$hash->{helper}{mower}{attributes}{statistics}{totalCuttingTime}   ' . $hash->{helper}{mower}{attributes}{statistics}{totalCuttingTime} . ' s
$hash->{helper}{mower}{attributes}{statistics}{totalRunningTime}   ' . $hash->{helper}{mower}{attributes}{statistics}{totalRunningTime} . '1 s
$hash->{helper}{mower}{attributes}{statistics}{totalSearchingTime}   ' . $hash->{helper}{mower}{attributes}{statistics}{totalSearchingTime} . ' s
'; $ret .= '

1 totalRunningTime = totalCuttingTime + totalSearchingTime'; $ret .= ''; return $ret; } else { return '
mower data is not yet available
'; } } ######################### sub listInternalData { my ( $hash ) = @_; my $name = $hash->{NAME}; my $cnt = 0; my $ret = ''; $ret .= ''; my $xm = $hash->{helper}{chargingStation}{longitude} // 0; my $ym = $hash->{helper}{chargingStation}{latitude} // 0; my $csnr = scalar @{ $hash->{helper}{cspos} }; my $csnrmax = $hash->{helper}{PARKED_IN_CS}{maxLength}; my $arnr = 0; $arnr = scalar @{ $hash->{helper}{areapos} } if( scalar @{ $hash->{helper}{areapos} } > 2 ); my $arnrmax = $hash->{helper}{MOWING}{maxLength}; my $ernr = scalar @{ $hash->{helper}{lasterror}{positions} }; $hash->{helper}{posMinMax} =~ /(-?\d*\.?\d+)\s(-?\d*\.?\d+)(\R|\s)(-?\d*\.?\d+)\s(-?\d*\.?\d+)/; if ( $::init_done && $1 && $2 && $4 && $5 ) { $ret .= ''; $ret .= ''; $ret .= ''; $ret .= '
Calculated Coordinates For Automatic Registration
Data Sets ( max )  Corner Longitude Latitude
' . $arnr . ' ( ' . $arnrmax . ' )  Upper Left ' . $1 . ' ' . $2 . '
Lower Right ' . $4 . ' ' . $5 . '

'; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= '
Calculated Charging Station Coordinates
Data Sets (max)  Longitude  Latitude 
' . $csnr . ' ( ' . $csnrmax . ' )  ' . $xm . ' ' . $ym . ' 

'; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= '
Way Point Stacks
Used For Activities  Stack Name  Current Size  Max Size 
PARKED_IN_CS, CHARGING  cspos  ' . $csnr . ' ' . $csnrmax . ' 
ALL  areapos  ' . $arnr . ' ' . $arnrmax . ' 
NOT_APPLICABLE with error time stamp  lasterror/positions  ' . $ernr . ' - 
'; if ( $hash->{TYPE} eq 'AutomowerConnect' ) { $ret .= '

'; $ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $cnt++;$ret .= ''; $ret .= '
Rest API Data
Link to APIsHusqvarna Developer
Authentification API URL' . ::FHEM::AutomowerConnect::AUTHURL . '
Automower Connect API URL' . ::FHEM::AutomowerConnect::APIURL . '
Client-Id' . $hash->{helper}{client_id} . '
Grant-Type' . $hash->{helper}{grant_type} . '
User-Id' . ReadingsVal($name, '.user_id', '-') . '
Provider' . ReadingsVal($name, '.provider', '-') . '
Scope' . ReadingsVal($name, '.scope', '-') . '
Token Type' . ReadingsVal($name, '.token_type', '-') . '
Token Expires ' . FmtDateTime( ReadingsVal($name, '.expires', '0') ) . '
Access Token' . ReadingsVal($name, '.access_token', '0') . '
'; } $ret .= ''; return $ret; } else { return '
Internal data is not yet available
'; } } ######################### sub listErrorCodes { if ($::init_done) { my $rowCount = 1; my %ec = (); my $ec = \%ec; for ( keys %{$errortable} ) { $ec->{sprintf("%03d",$_)} = $errortable->{$_} ; } my $ret = ''; $ret .= ''; $ret .= ''; $ret .= ''; $ret .= '
API-Response Status Codes
200, 201, 202
204		response o.k.
400, 401, 402
403, 404, 415
500, 503		error, detailed information see logfile

'; $ret .= ''; for (sort keys %{$ec}) { $ret .= '{$_}; $ret .= ''; $rowCount++; } $ret .= '
Mower Error Table
'; return $ret; } else { return '
error codes are not yet available
'; } } ######################### # Format mower timestamp assuming mower time is always set to daylight saving time, because it is the mowing period. sub FmtDateTimeGMT { my $ti = shift // 0; my $ret = POSIX::strftime( "%F %H:%M:%S", gmtime( $ti ) ); } ############################################################## 1;