FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

add power plug

Browse Source
This commit is contained in:
Marko Oldenburg
2019-03-25 12:48:09 +01:00
parent aef7235861
commit 9eb836134a
2 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
73_GardenaSmartBridge.pm
View File

@@ -58,7 +58,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = "1.4.0"; my $version = "1.4.1";
sub GardenaSmartBridge_Initialize($) { sub GardenaSmartBridge_Initialize($) {
@@ -95,7 +95,7 @@ sub GardenaSmartBridge_Initialize($) {
} }
package GardenaSmartBridge; package GardenaSmartBridge;
use GPUtils qw(:all) use GPUtils qw(GP_Import)
; # 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
my $missingModul = ""; my $missingModul = "";

22
74_GardenaSmartDevice.pm
View File

@@ -58,7 +58,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = "1.4.0"; my $version = "1.4.1";
sub GardenaSmartDevice_Initialize($) { sub GardenaSmartDevice_Initialize($) {
@@ -74,7 +74,7 @@ sub GardenaSmartDevice_Initialize($) {
$hash->{AttrFn} = "GardenaSmartDevice::Attr"; $hash->{AttrFn} = "GardenaSmartDevice::Attr";
$hash->{AttrList} = $hash->{AttrList} =
"readingValueLanguage:de,en " "readingValueLanguage:de,en "
. "model:watering_computer,sensor,mower,ic24 " . "model:watering_computer,sensor,mower,ic24,power "
. "IODev " . "IODev "
. $readingFnAttributes; . $readingFnAttributes;
@@ -88,7 +88,7 @@ sub GardenaSmartDevice_Initialize($) {
## unserer packagename ## unserer packagename
package GardenaSmartDevice; package GardenaSmartDevice;
use GPUtils qw(:all) use GPUtils qw(GP_Import)
; # 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
my $missingModul = ""; my $missingModul = "";
@@ -253,6 +253,18 @@ sub Set($@) {
### Watering ic24 ### Watering ic24
} }
elsif ( lc $cmd eq 'on' or lc $cmd eq 'off' or lc $cmd eq 'on-for-timer' ) {
my $duration = join( " ", @args );
if ( lc $cmd eq 'on-for-timer' ) {
$payload = '"name":"power_timer","parameters":{"duration":'
. $duration . '}';
}
else { $payload = '"name":"power_timer","parameters":{"duration":'
. lc $cmd . '}';
}
}
elsif ( $cmd =~ /manualDurationValve/ ) { elsif ( $cmd =~ /manualDurationValve/ ) {
my $valve_id; my $valve_id;
@@ -304,6 +316,8 @@ sub Set($@) {
if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' );
$list .= 'refresh:temperature,light,humidity' $list .= 'refresh:temperature,light,humidity'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'sensor' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'sensor' );
$list .= 'on:noArg off:noArg on-for-timer:slider,0,1,180'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'power' );
return "Unknown argument $cmd, choose one of $list"; return "Unknown argument $cmd, choose one of $list";
} }
@@ -315,6 +329,8 @@ sub Set($@) {
if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'watering_computer' );
$abilities = 'watering' $abilities = 'watering'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' );
$abilities = 'power'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'power' );
$hash->{helper}{deviceAction} = $payload; $hash->{helper}{deviceAction} = $payload;
readingsSingleUpdate( $hash, "state", "send command to gardena cloud", 1 ); readingsSingleUpdate( $hash, "state", "send command to gardena cloud", 1 );