FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 01:46:08 +00:00
Code Issues Releases Wiki Activity

74_AutomowerConnect: Perl module Readonly is mandatory, respect some perlcritic

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29747 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Ellert 2025-03-13 18:23:16 +00:00
parent 36f76b30f1
commit 80a91a0d88
3 changed files with 439 additions and 384 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -1,5 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it # Do not insert empty lines here, update check depends on it
- change: 74_AutomowerConnect: Perl module Readonly is mandatory, respect
some perlcritic
- feature: 76_SolarForecast: version 1.47.3, bat key 'show' use top / bottom - feature: 76_SolarForecast: version 1.47.3, bat key 'show' use top / bottom
- change: 76_SolarForecast: version 1.47.2, add weatherid property - change: 76_SolarForecast: version 1.47.2, add weatherid property
- bugfix: 98_vitoconnect: Fix return value when using SVN or Roger - bugfix: 98_vitoconnect: Fix return value when using SVN or Roger

74
fhem/FHEM/74_AutomowerConnect.pm
View File

@ -25,10 +25,10 @@
################################################################################ ################################################################################
package FHEM::AutomowerConnect; package FHEM::AutomowerConnect;
our $cvsid = '$Id$';
use strict; use strict;
use warnings; use warnings;
use POSIX; use POSIX;
our $cvsid = '$Id$';
# wird für den Import der FHEM Funktionen aus der fhem.pl benötigt # wird für den Import der FHEM Funktionen aus der fhem.pl benötigt
use GPUtils qw(:all); use GPUtils qw(:all);
@ -57,37 +57,37 @@ sub Initialize() {
$hash->{ReadyFn} = \&FHEM::Devices::AMConnect::Common::wsReady; $hash->{ReadyFn} = \&FHEM::Devices::AMConnect::Common::wsReady;
$hash->{SetFn} = \&FHEM::Devices::AMConnect::Common::Set; $hash->{SetFn} = \&FHEM::Devices::AMConnect::Common::Set;
$hash->{AttrFn} = \&FHEM::Devices::AMConnect::Common::Attr; $hash->{AttrFn} = \&FHEM::Devices::AMConnect::Common::Attr;
$hash->{AttrList} = "disable:1,0 " . $hash->{AttrList} = 'disable:1,0 ' .
"disabledForIntervals " . 'disabledForIntervals ' .
"mapImagePath " . 'mapImagePath ' .
"mapImageWidthHeight " . 'mapImageWidthHeight ' .
"mapImageCoordinatesToRegister:textField-long " . 'mapImageCoordinatesToRegister:textField-long ' .
"mapImageCoordinatesUTM:textField-long " . 'mapImageCoordinatesUTM:textField-long ' .
"mapImageZoom " . 'mapImageZoom ' .
"mapBackgroundColor " . 'mapBackgroundColor ' .
"mapDesignAttributes:textField-long " . 'mapDesignAttributes:textField-long ' .
"mapZones:textField-long " . 'mapZones:textField-long ' .
"chargingStationCoordinates " . 'chargingStationCoordinates ' .
"chargingStationImagePosition:left,top,right,bottom,center " . 'chargingStationImagePosition:left,top,right,bottom,center ' .
"mowerCuttingWidth " . 'mowerCuttingWidth ' .
"mowerPanel:textField-long,85 " . 'mowerPanel:textField-long,85 ' .
"mowerSchedule:textField-long " . 'mowerSchedule:textField-long ' .
"mowingAreaLimits:textField-long " . 'mowingAreaLimits:textField-long ' .
"mowingAreaHull:textField-long " . 'mowingAreaHull:textField-long ' .
"mowerAutoSyncTime:1,0 " . 'mowerAutoSyncTime:1,0 ' .
"mowerTimeZone " . 'mowerTimeZone ' .
"propertyLimits:textField-long " . 'propertyLimits:textField-long ' .
"scaleToMeterXY " . 'scaleToMeterXY ' .
"showMap:1,0 " . 'showMap:1,0 ' .
"weekdaysToResetWayPoints " . 'weekdaysToResetWayPoints ' .
"numberOfWayPointsToDisplay " . 'numberOfWayPointsToDisplay ' .
"addPollingMinInterval " . 'addPollingMinInterval ' .
"addPositionPolling:1,0 " . 'addPositionPolling:1,0 ' .
$::readingFnAttributes; $::readingFnAttributes;
$::data{FWEXT}{AutomowerConnect}{SCRIPT} = 'automowerconnect.js'; $::data{FWEXT}{AutomowerConnect}{SCRIPT} = 'automowerconnect.js';
return undef; return;
} }
############################################################## ##############################################################
@ -136,6 +136,10 @@ __END__
<br> <br>
<li>The module downloads third party software from external server necessary to calculate the hull of mowing area.</li> <li>The module downloads third party software from external server necessary to calculate the hull of mowing area.</li>
<br> <br>
<li>The perl module Readonly must be installed.<br>
Install the debian package libreadonly-perl or via CPAN the module Readonly if not already present.
</li>
<br>
</ul> </ul>
<br> <br>
<a id="AutomowerConnectDefine"></a> <a id="AutomowerConnectDefine"></a>
@ -484,7 +488,7 @@ __END__
<li><a id='AutomowerConnect-attr-addPollingMinInterval'>addPollingMinInterval</a><br> <li><a id='AutomowerConnect-attr-addPollingMinInterval'>addPollingMinInterval</a><br>
<code>attr &lt;name&gt; addPollingMinInterval &lt;interval in seconds&gt;</code><br> <code>attr &lt;name&gt; addPollingMinInterval &lt;interval in seconds&gt;</code><br>
Set minimum intervall for additional polling triggered by status-event, default 0 (no polling). Gets periodically statistics data from mower. Make sure to be within API limits (10000 calls per month).</li> Set minimum intervall for additional polling triggered by any websocket event, default 0 (no polling). Gets periodically mower data. Make sure to be within API limits (10000 calls per month).</li>
<li><a id='AutomowerConnect-attr-addPositionPolling'>addPositionPolling</a><br> <li><a id='AutomowerConnect-attr-addPositionPolling'>addPositionPolling</a><br>
<code>attr &lt;name&gt; addPositionPolling &lt;[1|<b>0</b>]&gt;</code><br> <code>attr &lt;name&gt; addPositionPolling &lt;[1|<b>0</b>]&gt;</code><br>
@ -656,6 +660,10 @@ __END__
<br> <br>
<li>Das Modul läd Drittsoftware, die zur Berechnung der Hüllkurve des Mähbereiches erforderlich ist, von einem externem Server.</li> <li>Das Modul läd Drittsoftware, die zur Berechnung der Hüllkurve des Mähbereiches erforderlich ist, von einem externem Server.</li>
<br> <br>
<li>Das Perlmodul Readonly muss installiert sein.<br>
Wenn nicht bereits vorhanden, das Debianaket libreadonly-perl installieren oder per CPAN das Perlmodul Readonly.
</li>
<br>
</ul> </ul>
<br> <br>
<a id="AutomowerConnectDefine"></a> <a id="AutomowerConnectDefine"></a>
@ -1008,11 +1016,11 @@ __END__
<li><a id='AutomowerConnect-attr-addPollingMinInterval'>addPollingMinInterval</a><br> <li><a id='AutomowerConnect-attr-addPollingMinInterval'>addPollingMinInterval</a><br>
<code>attr &lt;name&gt; addPollingMinInterval &lt;interval in seconds&gt;</code><br> <code>attr &lt;name&gt; addPollingMinInterval &lt;interval in seconds&gt;</code><br>
Setzt das Mindestintervall für zusätzliches Polling der API nach einem status-event, default 0 (kein Polling). Liest periodisch zusätzlich statistische Daten vom Mäher. Es muss sichergestellt werden, das die API Begrenzung (10000 Anfragen pro Monat) eingehalten wird.</li> Setzt das Mindestintervall für zusätzliches Polling der API nach einem websocket event, default 0 (kein Polling). Liest periodisch zusätzlich Mäherdaten von der API. Es muss sichergestellt werden, das die API Begrenzung (10000 Anfragen pro Monat) eingehalten wird.</li>
<li><a id='AutomowerConnect-attr-addPositionPolling'>addPositionPolling</a><br> <li><a id='AutomowerConnect-attr-addPositionPolling'>addPositionPolling</a><br>
<code>attr &lt;name&gt; addPositionPolling &lt;[1|<b>0</b>]&gt;</code><br> <code>attr &lt;name&gt; addPositionPolling &lt;[1|<b>0</b>]&gt;</code><br>
Setzt das Positionspolling, default 0 (kein Positionpolling). Liest periodisch Positiondaten des Mähers, an Stelle der über Websocket gelieferten Daten. Das Attribut ist nur wirksam, wenn durch das Attribut addPollingMinInterval das Polling eingeschaltet ist.</li> Setzt das Positionspolling, default 0 (kein Positionpolling). Wertet periodisch die API Positiondaten des Mähers aus, statt der über Websocket gelieferten Daten. Das Attribut ist nur wirksam, wenn durch das Attribut addPollingMinInterval das Polling eingeschaltet ist.</li>
<li><a id='AutomowerConnect-attr-mowingAreaHull'>mowingAreaHull</a><br> <li><a id='AutomowerConnect-attr-mowingAreaHull'>mowingAreaHull</a><br>
<code>attr &lt;name&gt; mowingAreaHull &lt;use button 'mowingAreaHullToAttribute' to fill the attribute&gt;</code><br><br> <code>attr &lt;name&gt; mowingAreaHull &lt;use button 'mowingAreaHullToAttribute' to fill the attribute&gt;</code><br><br>
@ -1132,8 +1140,8 @@ __END__
<li>statistics_newGeoDataSets - Anzahl der neuen Datensätze zwischen den letzten zwei unterschiedlichen Zeitstempeln</li> <li>statistics_newGeoDataSets - Anzahl der neuen Datensätze zwischen den letzten zwei unterschiedlichen Zeitstempeln</li>
<li>statistics_numberOfCollisions - Anzahl der Kollisionen (laufender Tag/letzter Tag/alle Tage)</li> <li>statistics_numberOfCollisions - Anzahl der Kollisionen (laufender Tag/letzter Tag/alle Tage)</li>
<li>status_connected - Status der Verbindung zwischen dem Automower und der Husqvarna Cloud.</li> <li>status_connected - Status der Verbindung zwischen dem Automower und der Husqvarna Cloud.</li>
<li>status_statusTimestamp - Lokalzeit des letzten Statusupdates in der API</li> <li>status_statusTimestamp - Lokalzeit des letzten Updates der API</li>
<li>status_statusTimestampDiff - Zeitdifferenz zwischen dem letzten und vorletzten Statusupdate.</li> <li>status_statusTimestampDiff - Zeitdifferenz zwischen dem letzten und vorletzten Update.</li>
<li>system_name - Name des Automowers</li> <li>system_name - Name des Automowers</li>
<li>third_party_library - Info, dass die JS-Bibliothek geladen wurde. Das Reading kann bedenkenlos gelöscht werden.</li> <li>third_party_library - Info, dass die JS-Bibliothek geladen wurde. Das Reading kann bedenkenlos gelöscht werden.</li>
</ul> </ul>

717
fhem/lib/FHEM/Devices/AMConnect/Common.pm
View File

File diff suppressed because it is too large Load Diff