mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 07:19:24 +00:00
815 lines
35 KiB
Perl
815 lines
35 KiB
Perl
###############################################################################
|
|
#
|
|
# Developed with Kate
|
|
#
|
|
# (c) 2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
|
# All rights reserved
|
|
#
|
|
# Special thanks goes to comitters:
|
|
# - Michael (mbrak) Thanks for Commandref
|
|
# - Matthias (Kenneth) Thanks for Wiki entry
|
|
#
|
|
#
|
|
# This script is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# any later version.
|
|
#
|
|
# The GNU General Public License can be found at
|
|
# http://www.gnu.org/copyleft/gpl.html.
|
|
# A copy is found in the textfile GPL.txt and important notices to the license
|
|
# from the author is found in LICENSE.txt distributed with these scripts.
|
|
#
|
|
# This script is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
#
|
|
# $Id$
|
|
#
|
|
###############################################################################
|
|
##
|
|
##
|
|
## Das JSON Modul immer in einem eval aufrufen
|
|
# $data = eval{decode_json($data)};
|
|
#
|
|
# if($@){
|
|
# Log3($SELF, 2, "$TYPE ($SELF) - error while request: $@");
|
|
#
|
|
# readingsSingleUpdate($hash, "state", "error", 1);
|
|
#
|
|
# return;
|
|
# }
|
|
#
|
|
#
|
|
###### Wichtige Notizen
|
|
#
|
|
# apt-get install libio-socket-ssl-perl
|
|
# http://www.dxsdata.com/de/2016/07/php-class-for-gardena-smart-system-api/
|
|
#
|
|
##
|
|
##
|
|
|
|
|
|
|
|
package main;
|
|
|
|
|
|
my $missingModul = "";
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Time::Local;
|
|
|
|
use Data::Dumper; #debugging
|
|
|
|
# eval "use Encode qw(encode encode_utf8 decode_utf8);1" or $missingModul .= "Encode "; wird nicht benötigt
|
|
eval "use JSON;1" or $missingModul .= "JSON ";
|
|
|
|
|
|
my $version = "0.2.3";
|
|
|
|
|
|
|
|
|
|
# Declare functions
|
|
sub GardenaSmartDevice_Attr(@);
|
|
sub GardenaSmartDevice_Define($$);
|
|
sub GardenaSmartDevice_Initialize($);
|
|
sub GardenaSmartDevice_Set($@);
|
|
sub GardenaSmartDevice_Undef($$);
|
|
sub GardenaSmartDevice_WriteReadings($$);
|
|
sub GardenaSmartDevice_Parse($$);
|
|
sub GardenaSmartDevice_ReadingLangGerman($$);
|
|
sub GardenaSmartDevice_RigRadingsValue($$);
|
|
sub GardenaSmartDevice_Zulu2LocalString($);
|
|
|
|
|
|
|
|
|
|
sub GardenaSmartDevice_Initialize($) {
|
|
|
|
my ($hash) = @_;
|
|
|
|
$hash->{Match} = '^{"id":".*';
|
|
|
|
$hash->{SetFn} = "GardenaSmartDevice_Set";
|
|
$hash->{DefFn} = "GardenaSmartDevice_Define";
|
|
$hash->{UndefFn} = "GardenaSmartDevice_Undef";
|
|
$hash->{ParseFn} = "GardenaSmartDevice_Parse";
|
|
|
|
$hash->{AttrFn} = "GardenaSmartDevice_Attr";
|
|
$hash->{AttrList} = "readingValueLanguage:de,en ".
|
|
"model ".
|
|
$readingFnAttributes;
|
|
|
|
foreach my $d(sort keys %{$modules{GardenaSmartDevice}{defptr}}) {
|
|
|
|
my $hash = $modules{GardenaSmartDevice}{defptr}{$d};
|
|
$hash->{VERSION} = $version;
|
|
}
|
|
}
|
|
|
|
sub GardenaSmartDevice_Define($$) {
|
|
|
|
my ( $hash, $def ) = @_;
|
|
my @a = split( "[ \t]+", $def );
|
|
splice( @a, 1, 1 );
|
|
my $iodev;
|
|
my $i = 0;
|
|
|
|
|
|
foreach my $param ( @a ) {
|
|
if( $param =~ m/IODev=([^\s]*)/ ) {
|
|
|
|
$iodev = $1;
|
|
splice( @a, $i, 3 );
|
|
last;
|
|
}
|
|
|
|
$i++;
|
|
}
|
|
|
|
|
|
return "too few parameters: define <NAME> GardenaSmartDevice <device_Id> <model>" if( @a != 3 ) ;
|
|
return "Cannot define Gardena Bridge device. Perl modul $missingModul is missing." if ( $missingModul );
|
|
|
|
my ($name,$deviceId,$category) = @a;
|
|
|
|
$hash->{DEVICEID} = $deviceId;
|
|
$hash->{VERSION} = $version;
|
|
|
|
AssignIoPort($hash,$iodev) if( !$hash->{IODev} );
|
|
|
|
if(defined($hash->{IODev}->{NAME})) {
|
|
|
|
Log3 $name, 3, "GardenaSmartDevice ($name) - I/O device is " . $hash->{IODev}->{NAME};
|
|
|
|
} else {
|
|
|
|
Log3 $name, 1, "GardenaSmartDevice ($name) - no I/O device";
|
|
}
|
|
|
|
$iodev = $hash->{IODev}->{NAME};
|
|
|
|
my $d = $modules{GardenaSmartDevice}{defptr}{$deviceId};
|
|
|
|
return "GardenaSmartDevice device $name on GardenaSmartBridge $iodev already defined."
|
|
if( defined($d) && $d->{IODev} == $hash->{IODev} && $d->{NAME} ne $name );
|
|
|
|
$attr{$name}{room} = "GardenaSmart" if( not defined( $attr{$name}{room} ) );
|
|
$attr{$name}{model} = $category if( not defined( $attr{$name}{model} ) );
|
|
|
|
Log3 $name, 3, "GardenaSmartDevice ($name) - defined GardenaSmartDevice with DEVICEID: $deviceId";
|
|
readingsSingleUpdate($hash,'state','initialized',1);
|
|
|
|
$modules{GardenaSmartDevice}{defptr}{$deviceId} = $hash;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub GardenaSmartDevice_Undef($$) {
|
|
|
|
my ( $hash, $arg ) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $deviceId = $hash->{DEVICEID};
|
|
|
|
|
|
delete $modules{GardenaSmartDevice}{defptr}{$deviceId};
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub GardenaSmartDevice_Attr(@) {
|
|
|
|
my ( $cmd, $name, $attrName, $attrVal ) = @_;
|
|
my $hash = $defs{$name};
|
|
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub GardenaSmartDevice_Set($@) {
|
|
|
|
my ($hash, $name, $cmd, @args) = @_;
|
|
my ($arg, @params) = @args;
|
|
|
|
my $payload;
|
|
my $abilities;
|
|
|
|
|
|
### mower
|
|
if( lc $cmd eq 'parkuntilfurthernotice' ) {
|
|
|
|
$payload = '"name":"park_until_further_notice"';
|
|
|
|
} elsif( lc $cmd eq 'parkuntilnexttimer' ) {
|
|
|
|
$payload = '"name":"park_until_next_timer"';
|
|
|
|
} elsif( lc $cmd eq 'startresumeschedule' ) {
|
|
|
|
$payload = '"name":"start_resume_schedule"';
|
|
|
|
} elsif( lc $cmd eq 'startoverridetimer' ) {
|
|
|
|
my $duration = join( " ", @args );
|
|
$payload = '"name":"start_override_timer","parameters":{"duration":' . $duration . '}';
|
|
|
|
### watering_computer
|
|
} elsif( lc $cmd eq 'manualoverride' ) {
|
|
|
|
my $duration = join( " ", @args );
|
|
$payload = '"name":"manual_override","parameters":{"duration":' . $duration . '}';
|
|
|
|
} elsif( lc $cmd eq 'canceloverride' ) {
|
|
|
|
$payload = '"name":"cancel_override"';
|
|
|
|
### Sensors
|
|
} elsif( lc $cmd eq 'refresh' ) {
|
|
|
|
my $sensname = join( " ", @args );
|
|
if( lc $sensname eq 'temperature' ) {
|
|
$payload = '"name":"measure_ambient_temperature"';
|
|
$abilities = 'ambient_temperature';
|
|
|
|
} elsif( lc $sensname eq 'light' ) {
|
|
$payload = '"name":"measure_light"';
|
|
$abilities = 'light';
|
|
|
|
} elsif( lc $sensname eq 'humidity' ) {
|
|
$payload = '"name":"measure_humidity"';
|
|
$abilities = 'humidity';
|
|
}
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
|
|
} elsif( lc $cmd eq '' ) {
|
|
|
|
|
|
} else {
|
|
|
|
my $list = '';
|
|
$list .= 'parkUntilFurtherNotice:noArg parkUntilNextTimer:noArg startResumeSchedule:noArg startOverrideTimer:slider,0,60,1440' if( AttrVal($name,'model','unknown') eq 'mower' );
|
|
$list .= 'manualOverride:slider,0,1,59 cancelOverride:noArg' if( AttrVal($name,'model','unknown') eq 'watering_computer' );
|
|
$list .= 'refresh:temperature,light' if( AttrVal($name,'model','unknown') eq 'sensor' );
|
|
|
|
return "Unknown argument $cmd, choose one of $list";
|
|
}
|
|
|
|
$abilities = 'mower' if( AttrVal($name,'model','unknown') eq 'mower' );
|
|
$abilities = 'outlet' if( AttrVal($name,'model','unknown') eq 'watering_computer' );
|
|
|
|
|
|
$hash->{helper}{deviceAction} = $payload;
|
|
readingsSingleUpdate( $hash, "state", "send command to gardena cloud", 1);
|
|
|
|
IOWrite($hash,$payload,$hash->{DEVICEID},$abilities);
|
|
Log3 $name, 4, "GardenaSmartBridge ($name) - IOWrite: $payload $hash->{DEVICEID} $abilities IODevHash=$hash->{IODev}";
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub GardenaSmartDevice_Parse($$) {
|
|
|
|
my ($io_hash,$json) = @_;
|
|
|
|
my $name = $io_hash->{NAME};
|
|
|
|
|
|
|
|
my $decode_json = eval{decode_json($json)};
|
|
if($@){
|
|
Log3 $name, 3, "GardenaSmartBridge ($name) - JSON error while request: $@";
|
|
}
|
|
|
|
Log3 $name, 4, "GardenaSmartDevice ($name) - ParseFn was called";
|
|
Log3 $name, 5, "GardenaSmartDevice ($name) - JSON: $json";
|
|
|
|
|
|
if( defined($decode_json->{id}) ) {
|
|
|
|
my $deviceId = $decode_json->{id};
|
|
|
|
if( my $hash = $modules{GardenaSmartDevice}{defptr}{$deviceId} ) {
|
|
my $name = $hash->{NAME};
|
|
|
|
GardenaSmartDevice_WriteReadings($hash,$decode_json);
|
|
Log3 $name, 4, "GardenaSmartDevice ($name) - find logical device: $hash->{NAME}";
|
|
|
|
return $hash->{NAME};
|
|
|
|
} else {
|
|
|
|
Log3 $name, 3, "GardenaSmartDevice ($name) - autocreate new device " . makeDeviceName($decode_json->{name}) . " with deviceId $decode_json->{id}, model $decode_json->{category} and IODev IODev=$name";
|
|
#return "UNDEFINED " . join('',split("[ \t]+",$decode_json->{name})) . " GardenaSmartDevice $decode_json->{id} $decode_json->{category} IODev=$name";
|
|
return "UNDEFINED " . makeDeviceName($decode_json->{name}) . " GardenaSmartDevice $decode_json->{id} $decode_json->{category} IODev=$name";
|
|
}
|
|
}
|
|
}
|
|
|
|
sub GardenaSmartDevice_WriteReadings($$) {
|
|
|
|
my ($hash,$decode_json) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $abilities = scalar (@{$decode_json->{abilities}});
|
|
|
|
|
|
readingsBeginUpdate($hash);
|
|
|
|
do {
|
|
|
|
if( ref($decode_json->{abilities}[$abilities]{properties}) eq "ARRAY" and scalar(@{$decode_json->{abilities}[$abilities]{properties}}) > 0 ) {;
|
|
foreach my $propertie (@{$decode_json->{abilities}[$abilities]{properties}}) {
|
|
readingsBulkUpdateIfChanged($hash,$decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name},GardenaSmartDevice_RigRadingsValue($hash,$propertie->{value})) if( defined($propertie->{value})
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'radio-quality'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'battery-level'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'internal_temperature-temperature'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'ambient_temperature-temperature'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'soil_temperature-temperature'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'humidity-humidity'
|
|
and $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} ne 'light-light' );
|
|
|
|
readingsBulkUpdate($hash,$decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name},GardenaSmartDevice_RigRadingsValue($hash,$propertie->{value})) if( defined($propertie->{value})
|
|
and ($decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'radio-quality'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'battery-level'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'internal_temperature-temperature'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'ambient_temperature-temperature'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'soil_temperature-temperature'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'humidity-humidity'
|
|
or $decode_json->{abilities}[$abilities]{name}.'-'.$propertie->{name} eq 'light-light') );
|
|
}
|
|
}
|
|
|
|
$abilities--;
|
|
} while ($abilities >= 0);
|
|
|
|
|
|
readingsBulkUpdate($hash,'state',ReadingsVal($name,'mower-status','readingsValError')) if( AttrVal($name,'model','unknown') eq 'mower' );
|
|
readingsBulkUpdate($hash,'state',(ReadingsVal($name,'outlet-valve_open','readingsValError') == 1 ? GardenaSmartDevice_RigRadingsValue($hash,'open') : GardenaSmartDevice_RigRadingsValue($hash,'closed'))) if( AttrVal($name,'model','unknown') eq 'watering_computer' );
|
|
|
|
readingsBulkUpdate($hash,'state','T: ' . ReadingsVal($name,'ambient_temperature-temperature','readingsValError') . '°C, H: ' . ReadingsVal($name,'humidity-humidity','readingsValError') . '%, L: ' . ReadingsVal($name,'light-light','readingsValError') . 'lux') if( AttrVal($name,'model','unknown') eq 'sensor' );
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
Log3 $name, 4, "GardenaSmartDevice ($name) - readings was written}";
|
|
}
|
|
|
|
##################################
|
|
##################################
|
|
#### my little helpers ###########
|
|
|
|
sub GardenaSmartDevice_ReadingLangGerman($$) {
|
|
|
|
my ($hash,$readingValue) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
my %langGermanMapp = (
|
|
'ok_cutting' => 'mähen',
|
|
'paused' => 'pausiert',
|
|
'ok_searching' => 'suche Ladestation',
|
|
'ok_charging' => 'lädt',
|
|
'ok_leaving' => 'mähen',
|
|
'wait_updating' => 'wird aktualisiert ...',
|
|
'wait_power_up' => 'wird eingeschaltet ...',
|
|
'parked_timer' => 'geparkt nach Zeitplan',
|
|
'parked_park_selected' => 'geparkt',
|
|
'off_disabled' => 'der Mäher ist ausgeschaltet',
|
|
'off_hatch_open' => 'deaktiviert. Abdeckung ist offen oder PIN-Code erforderlich',
|
|
'unknown' => 'unbekannter Status',
|
|
'error' => 'Fehler',
|
|
'error_at_power_up' => 'Neustart ...',
|
|
'off_hatch_closed' => 'Deaktiviert. Manueller Start erforderlich',
|
|
'ok_cutting_timer_overridden' => 'manuelles mähen',
|
|
'parked_autotimer' => 'geparkt durch SensorControl',
|
|
'parked_daily_limit_reached' => 'abgeschlossen',
|
|
'no_message' => 'kein Fehler',
|
|
'outside_working_area' => 'außerhalb des Arbeitsbereichs',
|
|
'no_loop_signal' => 'kein Schleifensignal',
|
|
'wrong_loop_signal' => 'falsches Schleifensignal',
|
|
'loop_sensor_problem_front' => 'Problem Schleifensensor, vorne',
|
|
'loop_sensor_problem_rear' => 'Problem Schleifensensor, hinten',
|
|
'trapped' => 'eingeschlossen',
|
|
'upside_down' => 'steht auf dem Kopf',
|
|
'low_battery' => 'niedriger Batteriestand',
|
|
'empty_battery' => 'Batterie leer',
|
|
'no_drive' => 'fährt nicht',
|
|
'lifted' => 'angehoben',
|
|
'stuck_in_charging_station' => 'eingeklemmt in Ladestation',
|
|
'charging_station_blocked' => 'Ladestation blockiert',
|
|
'collision_sensor_problem_rear' => 'Problem Stoßsensor hinten',
|
|
'collision_sensor_problem_front' => 'Problem Stoßsensor vorne',
|
|
'wheel_motor_blocked_right' => 'Radmotor rechts blockiert',
|
|
'wheel_motor_blocked_left' => 'Radmotor links blockiert',
|
|
'wheel_drive_problem_right' => 'Problem Antrieb, rechts',
|
|
'wheel_drive_problem_left' => 'Problem Antrieb, links',
|
|
'cutting_system_blocked' => 'Schneidsystem blockiert',
|
|
'invalid_sub_device_combination' => 'fehlerhafte Verbindung',
|
|
'settings_restored' => 'Standardeinstellungen',
|
|
'electronic_problem' => 'elektronisches Problem',
|
|
'charging_system_problem' => 'Problem Ladesystem',
|
|
'tilt_sensor_problem' => 'Kippsensor Problem',
|
|
'wheel_motor_overloaded_right' => 'rechter Radmotor überlastet',
|
|
'wheel_motor_overloaded_left' => 'linker Radmotor überlastet',
|
|
'charging_current_too_high' => 'Ladestrom zu hoch',
|
|
'temporary_problem' => 'vorübergehendes Problem',
|
|
'guide_1_not_found' => 'SK 1 nicht gefunden',
|
|
'guide_2_not_found' => 'SK 2 nicht gefunden',
|
|
'guide_3_not_found' => 'SK 3 nicht gefunden',
|
|
'difficult_finding_home' => 'Problem die Ladestation zu finden',
|
|
'guide_calibration_accomplished' => 'Kalibrierung des Suchkabels beendet',
|
|
'guide_calibration_failed' => 'Kalibrierung des Suchkabels fehlgeschlagen',
|
|
'temporary_battery_problem' => 'kurzzeitiges Batterieproblem',
|
|
'battery_problem' => 'Batterieproblem',
|
|
'alarm_mower_switched_off' => 'Alarm! Mäher ausgeschalten',
|
|
'alarm_mower_stopped' => 'Alarm! Mäher gestoppt',
|
|
'alarm_mower_lifted' => 'Alarm! Mäher angehoben',
|
|
'alarm_mower_tilted' => 'Alarm! Mäher gekippt',
|
|
'connection_changed' => 'Verbindung geändert',
|
|
'connection_not_changed' => 'Verbindung nicht geändert',
|
|
'com_board_not_available' => 'COM Board nicht verfügbar',
|
|
'slipped' => 'rutscht',
|
|
'out_of_operation' => 'ausser Betrieb',
|
|
'replace_now' => 'kritischer Batteriestand, wechseln Sie jetzt',
|
|
'low' => 'niedrig',
|
|
'ok' => 'oK',
|
|
'no_source' => 'oK',
|
|
'mower_charging' => 'Mäher wurde geladen',
|
|
'completed_cutting_autotimer' => 'Sensor Control erreicht',
|
|
'week_timer' => 'Wochentimer erreicht',
|
|
'countdown_timer' => 'Stoppuhr Timer',
|
|
'undefined' => 'unklar',
|
|
'unknown' => 'unklar',
|
|
'status_device_unreachable' => 'Gerät ist nicht in Reichweite',
|
|
'status_device_alive' => 'Gerät ist in Reichweite',
|
|
'bad' => 'schlecht',
|
|
'poor' => 'schwach',
|
|
'good' => 'gut',
|
|
'undefined' => 'unklar',
|
|
'idle' => 'nichts zu tun',
|
|
'firmware_cancel' => 'Firmwareupload unterbrochen',
|
|
'firmware_upload' => 'Firmwareupload',
|
|
'unsupported' => 'nicht unterstützt',
|
|
'up_to_date' => 'auf dem neusten Stand',
|
|
'mower' => 'Mäher',
|
|
'watering_computer' => 'Bewässerungscomputer',
|
|
'no_frost' => 'kein Frost',
|
|
'open' => 'offen',
|
|
'closed' => 'geschlossen',
|
|
'included' => 'inbegriffen',
|
|
'active' => 'aktiv',
|
|
'inactive' => 'nicht aktiv'
|
|
);
|
|
|
|
if( defined($langGermanMapp{$readingValue}) and (AttrVal('global','language','none') eq 'DE' or AttrVal($name,'readingValueLanguage','none') eq 'de') and AttrVal($name,'readingValueLanguage','none') ne 'en') {
|
|
return $langGermanMapp{$readingValue};
|
|
} else {
|
|
return $readingValue;
|
|
}
|
|
}
|
|
|
|
sub GardenaSmartDevice_RigRadingsValue($$) {
|
|
|
|
my ($hash,$readingValue) = @_;
|
|
|
|
my $rigReadingValue;
|
|
|
|
|
|
if( $readingValue =~ /^(\d+)-(\d\d)-(\d\d)T(\d\d)/ ) {
|
|
$rigReadingValue = GardenaSmartDevice_Zulu2LocalString($readingValue);
|
|
} else {
|
|
$rigReadingValue = GardenaSmartDevice_ReadingLangGerman($hash,$readingValue);
|
|
}
|
|
|
|
return $rigReadingValue;
|
|
}
|
|
|
|
sub GardenaSmartDevice_Zulu2LocalString($) {
|
|
|
|
my $t = shift;
|
|
my ($datehour,$datemin,$rest) = split(/:/,$t,3);
|
|
|
|
|
|
my ($year, $month, $day, $hour,$min) = $datehour =~ /(\d+)-(\d\d)-(\d\d)T(\d\d)/;
|
|
my $epoch = timegm (0,0,$hour,$day,$month-1,$year);
|
|
|
|
my ($lyear,$lmonth,$lday,$lhour,$isdst) = (localtime($epoch))[5,4,3,2,-1];
|
|
|
|
$lyear += 1900; # year is 1900 based
|
|
$lmonth++; # month number is zero based
|
|
|
|
if( defined($rest) ) {
|
|
return ( sprintf("%04d-%02d-%02d %02d:%02d:%s",$lyear,$lmonth,$lday,$lhour,$datemin,substr($rest,0,2)));
|
|
} elsif( $lyear < 2000 ) {
|
|
return "illegal year";
|
|
} else {
|
|
return ( sprintf("%04d-%02d-%02d %02d:%02d",$lyear,$lmonth,$lday,$lhour,substr($datemin,0,2)));
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1;
|
|
|
|
=pod
|
|
|
|
=item device
|
|
=item summary Modul to control GardenaSmart Devices
|
|
=item summary_DE Modul zur Steuerung von GardenaSmartgeräten
|
|
|
|
=begin html
|
|
|
|
<a name="GardenaSmartDevice"></a>
|
|
<h3>GardenaSmartDevice</h3>
|
|
<ul>
|
|
In combination with GardenaSmartBridge this FHEM Module controls the GardenaSmart Device using the GardenaCloud
|
|
<br><br>
|
|
Once the Bridge device is created, the connected devices are automatically recognized and created in FHEM. <br>
|
|
From now on the devices can be controlled and changes in the GardenaAPP are synchronized with the state and readings of the devices.
|
|
<a name="GardenaSmartDevicereadings"></a>
|
|
<br><br><br>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>battery-charging - Indicator if the Battery is charged (0/1) or with newer Firmware (false/true)</li>
|
|
<li>battery-level - load percentage of the Battery</li>
|
|
<li>battery-rechargeable_battery_status - healthyness of the battery (out_of_operation/replace_now/low/ok)</li>
|
|
<li>device_info-category - category of device (mower/watering_computer)</li>
|
|
<li>device_info-last_time_online - timestamp of last radio contact</li>
|
|
<li>device_info-manufacturer - manufacturer</li>
|
|
<li>device_info-product - product type</li>
|
|
<li>device_info-serial_number - serial number</li>
|
|
<li>device_info-sgtin - </li>
|
|
<li>device_info-version - firmware version</li>
|
|
<li>firmware-firmware_command - firmware command (idle/firmware_cancel/firmware_upload/unsupported)</li>
|
|
<li>firmware-firmware_status - firmware status </li>
|
|
<li>firmware-firmware_update_start - indicator when a firmwareupload is started</li>
|
|
<li>firmware-firmware_upload_progress - progress indicator of firmware update</li>
|
|
<li>firmware-inclusion_status - inclusion status</li>
|
|
<li>internal_temperature-temperature - internal device temperature</li>
|
|
<li>mower-error - actual error message
|
|
<ul>
|
|
<li>no_message</li>
|
|
<li>outside_working_area</li>
|
|
<li>no_loop_signal</li>
|
|
<li>wrong_loop_signal</li>
|
|
<li>loop_sensor_problem_front</li>
|
|
<li>loop_sensor_problem_rear</li>
|
|
<li>trapped</li>
|
|
<li>upside_down</li>
|
|
<li>low_battery</li>
|
|
<li>empty_battery</li>
|
|
<li>no_drive</li>
|
|
<li>lifted</li>
|
|
<li>stuck_in_charging_station</li>
|
|
<li>charging_station_blocked</li>
|
|
<li>collision_sensor_problem_rear</li>
|
|
<li>collision_sensor_problem_front</li>
|
|
<li>wheel_motor_blocked_right</li>
|
|
<li>wheel_motor_blocked_left</li>
|
|
<li>wheel_drive_problem_right</li>
|
|
<li>wheel_drive_problem_left</li>
|
|
<li>cutting_system_blocked</li>
|
|
<li>invalid_sub_device_combination</li>
|
|
<li>settings_restored</li>
|
|
<li>electronic_problem</li>
|
|
<li>charging_system_problem</li>
|
|
<li>tilt_sensor_problem</li>
|
|
<li>wheel_motor_overloaded_right</li>
|
|
<li>wheel_motor_overloaded_left</li>
|
|
<li>charging_current_too_high</li>
|
|
<li>temporary_problem</li>
|
|
<li>guide_1_not_found</li>
|
|
<li>guide_2_not_found</li>
|
|
<li>guide_3_not_found</li>
|
|
<li>difficult_finding_home</li>
|
|
<li>guide_calibration_accomplished</li>
|
|
<li>guide_calibration_failed</li>
|
|
<li>temporary_battery_problem</li>
|
|
<li>battery_problem</li>
|
|
<li>alarm_mower_switched_off</li>
|
|
<li>alarm_mower_stopped</li>
|
|
<li>alarm_mower_lifted</li>
|
|
<li>alarm_mower_tilted</li>
|
|
<li>connection_changed</li>
|
|
<li>connection_not_changed</li>
|
|
<li>com_board_not_available</li>
|
|
<li>slipped</li>
|
|
</ul>
|
|
</li>
|
|
<li>mower-manual_operation - (0/1) or with newer Firmware (false/true)</li>
|
|
<li>mower-override_end_time - manual override end time</li>
|
|
<li>mower-source_for_next_start - source for the next start
|
|
<ul>
|
|
<li>no_source</li>
|
|
<li>mower_charging</li>
|
|
<li>completed_cutting_autotimer</li>
|
|
<li>week_timer</li>
|
|
<li>countdown_timer</li>
|
|
<li>undefined</li>
|
|
</ul>
|
|
</li>
|
|
<li>mower-status - mower state (see state)</li>
|
|
<li>mower-timestamp_next_start - timestamp of next scheduled start</li>
|
|
<li>radio-connection_status - state of connection</li>
|
|
<li>radio-quality - percentage of the radio quality</li>
|
|
<li>radio-state - radio state (bad/poor/good/undefined)</li>
|
|
<li>state - state of the mower
|
|
<ul>
|
|
<li>paused</li>
|
|
<li>ok_cutting</li>
|
|
<li>ok_searching</li>
|
|
<li>ok_charging</li>
|
|
<li>ok_leaving</li>
|
|
<li>wait_updating</li>
|
|
<li>wait_power_up</li>
|
|
<li>parked_timer</li>
|
|
<li>parked_park_selected</li>
|
|
<li>off_disabled</li>
|
|
<li>off_hatch_open</li>
|
|
<li>unknown</li>
|
|
<li>error</li>
|
|
<li>error_at_power_up</li>
|
|
<li>off_hatch_closed</li>
|
|
<li>ok_cutting_timer_overridden</li>
|
|
<li>parked_autotimer</li>
|
|
<li>parked_daily_limit_reached</li>
|
|
</ul>
|
|
</li>
|
|
</ul>
|
|
<br><br>
|
|
<a name="GardenaSmartDeviceattributes"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li>readingValueLanguage - Change the Language of Readings (de,en/if not set the default is english and the global language is not set at german) </li>
|
|
<li>model - </li>
|
|
</ul>
|
|
<br><br>
|
|
<a name="GardenaSmartDeviceset"></a>
|
|
<b>set</b>
|
|
<ul>
|
|
<li>parkUntilFurtherNotice</li>
|
|
<li>parkUntilNextTimer</li>
|
|
<li>startOverrideTimer - 0 to 59 Minutes</li>
|
|
<li>startResumeSchedule</li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
=begin html_DE
|
|
|
|
<a name="GardenaSmartDevice"></a>
|
|
<h3>GardenaSmartDevice</h3>
|
|
<ul>
|
|
Zusammen mit dem Device GardenaSmartDevice stellt dieses FHEM Modul die Kommunikation zwischen der GardenaCloud und Fhem her.
|
|
<br><br>
|
|
Wenn das GardenaSmartBridge Device erzeugt wurde, werden verbundene Geräte automatisch erkannt und in Fhem angelegt.<br>
|
|
Von nun an können die eingebundenen Geräte gesteuert werden. Änderungen in der APP werden mit den Readings und dem Status syncronisiert.
|
|
<a name="GardenaSmartDevicereadings"></a>
|
|
</ul>
|
|
<br>
|
|
<ul>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li>battery-charging - Ladeindikator (0/1) oder mit neuerer Firmware (false/true)</li>
|
|
<li>battery-level - Ladezustand der Batterie in Prozent</li>
|
|
<li>battery-rechargeable_battery_status - Zustand der Batterie (Ausser Betrieb/Kritischer Batteriestand, wechseln Sie jetzt/Niedrig/oK)</li>
|
|
<li>device_info-category - Eigenschaft des Gerätes (Mäher/Bewässerungscomputer/Bodensensor)</li>
|
|
<li>device_info-last_time_online - Zeitpunkt der letzten Funkübertragung</li>
|
|
<li>device_info-manufacturer - Hersteller</li>
|
|
<li>device_info-product - Produkttyp</li>
|
|
<li>device_info-serial_number - Seriennummer</li>
|
|
<li>device_info-sgtin - </li>
|
|
<li>device_info-version - Firmware Version</li>
|
|
<li>firmware-firmware_command - Firmware Kommando (Nichts zu tun/Firmwareupload unterbrochen/Firmwareupload/nicht unterstützt)</li>
|
|
<li>firmware-firmware_status - Firmware Status </li>
|
|
<li>firmware-firmware_update_start - Firmwareupdate (0/1) oder mit neuerer Firmware (false/true)</li>
|
|
<li>firmware-firmware_upload_progress - Firmwareupdatestatus in Prozent</li>
|
|
<li>firmware-inclusion_status - Einbindungsstatus</li>
|
|
<li>internal_temperature-temperature - Interne Geräte Temperatur</li>
|
|
<li>mower-error - Aktuelle Fehler Meldung
|
|
<ul>
|
|
<li>Kein Fehler</li>
|
|
<li>Außerhalb des Arbeitsbereichs</li>
|
|
<li>Kein Schleifensignal</li>
|
|
<li>Falsches Schleifensignal</li>
|
|
<li>Problem Schleifensensor, vorne</li>
|
|
<li>Problem Schleifensensor, hinten</li>
|
|
<li>Eingeschlossen</li>
|
|
<li>Steht auf dem Kopf</li>
|
|
<li>Niedriger Batteriestand</li>
|
|
<li>Batterie ist leer</li>
|
|
<li>Kein Antrieb</li>
|
|
<li>Angehoben</li>
|
|
<li>Eingeklemmt in Ladestation</li>
|
|
<li>Ladestation blockiert</li>
|
|
<li>Problem Stoßsensor hinten</li>
|
|
<li>Problem Stoßsensor vorne</li>
|
|
<li>Radmotor rechts blockiert</li>
|
|
<li>Radmotor links blockiert</li>
|
|
<li>Problem Antrieb, rechts</li>
|
|
<li>Problem Antrieb, links</li>
|
|
<li>Schneidsystem blockiert</li>
|
|
<li>Fehlerhafte Verbindung</li>
|
|
<li>Standardeinstellungen</li>
|
|
<li>Elektronisches Problem</li>
|
|
<li>Problem Ladesystem</li>
|
|
<li>Kippsensorproblem</li>
|
|
<li>Rechter Radmotor überlastet</li>
|
|
<li>Linker Radmotor überlastet</li>
|
|
<li>Ladestrom zu hoch</li>
|
|
<li>Vorübergehendes Problem</li>
|
|
<li>SK 1 nicht gefunden</li>
|
|
<li>SK 2 nicht gefunden</li>
|
|
<li>SK 3 nicht gefunden</li>
|
|
<li>Problem die Ladestation zu finden</li>
|
|
<li>Kalibration des Suchkabels beendet</li>
|
|
<li>Kalibration des Suchkabels fehlgeschlagen</li>
|
|
<li>Kurzzeitiges Batterieproblem</li>
|
|
<li>Batterieproblem</li>
|
|
<li>Alarm! Mäher ausgeschalten</li>
|
|
<li>Alarm! Mäher gestoppt</li>
|
|
<li>Alarm! Mäher angehoben</li>
|
|
<li>Alarm! Mäher gekippt</li>
|
|
<li>Verbindung geändert</li>
|
|
<li>Verbindung nicht geändert</li>
|
|
<li>COM board nicht verfügbar</li>
|
|
<li>Rutscht</li>
|
|
</ul>
|
|
</li>
|
|
<li>mower-manual_operation - Manueller Betrieb (0/1) oder mit neuerer Firmware (false/true)</li>
|
|
<li>mower-override_end_time - Zeitpunkt wann der manuelle Betrieb beendet ist</li>
|
|
<li>mower-source_for_next_start - Grund für den nächsten Start
|
|
<ul>
|
|
<li>Kein Grund</li>
|
|
<li>Mäher wurde geladen</li>
|
|
<li>SensorControl erreicht</li>
|
|
<li>Wochentimer erreicht</li>
|
|
<li>Stoppuhr Timer</li>
|
|
<li>Undefiniert</li>
|
|
</ul>
|
|
</li>
|
|
<li>mower-status - Mäher Status (siehe state)</li>
|
|
<li>mower-timestamp_next_start - Zeitpunkt des nächsten geplanten Starts</li>
|
|
<li>radio-connection_status - Status der Funkverbindung</li>
|
|
<li>radio-quality - Indikator für die Funkverbindung in Prozent</li>
|
|
<li>radio-state - radio state (schlecht/schwach/gut/Undefiniert)</li>
|
|
<li>state - Staus des Mähers
|
|
<ul>
|
|
<li>Pausiert</li>
|
|
<li>Mähen</li>
|
|
<li>Suche Ladestation</li>
|
|
<li>Lädt</li>
|
|
<li>Mähen</li>
|
|
<li>Wird aktualisiert ...</li>
|
|
<li>Wird eingeschaltet ...</li>
|
|
<li>Geparkt nach Zeitplan</li>
|
|
<li>Geparkt</li>
|
|
<li>Der Mäher ist ausgeschaltet</li>
|
|
<li>Deaktiviert. Abdeckung ist offen oder PIN-Code erforderlich</li>
|
|
<li>Unbekannter Status</li>
|
|
<li>Fehler</li>
|
|
<li>Neustart ...</li>
|
|
<li>Deaktiviert. Manueller Start erforderlich</li>
|
|
<li>Manuelles Mähen</li>
|
|
<li>Geparkt durch SensorControl</li>
|
|
<li>Abgeschlossen</li>
|
|
</ul>
|
|
</li>
|
|
</ul>
|
|
<br><br>
|
|
<a name="GardenaSmartDeviceattributes"></a>
|
|
<b>Attribute</b>
|
|
<ul>
|
|
<li>readingValueLanguage - Änderung der Sprache der Readings (de,en/wenn nichts gesetzt ist, dann Englisch es sei denn deutsch ist als globale Sprache gesetzt) </li>
|
|
<li>model - </li>
|
|
</ul>
|
|
<a name="GardenaSmartDeviceset"></a>
|
|
<b>set</b>
|
|
<ul>
|
|
<li>parkUntilFurtherNotice - Parken des Mähers unter Umgehung des Zeitplans</li>
|
|
<li>parkUntilNextTimer - Parken bis zum nächsten Zeitplan</li>
|
|
<li>startOverrideTimer - Manuelles mähen (0 bis 59 Minuten)</li>
|
|
<li>startResumeSchedule - Weiterführung des Zeitplans</li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html_DE
|
|
=cut
|