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

change if elsif else in Get Fn to given when

Browse Source
This commit is contained in:
Marko Oldenburg 2022-01-09 16:00:56 +01:00
parent 40305d563d
commit 55ce39b8d3
2 changed files with 21 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
controls_TeslaPowerwall2AC.txt
View File

@ -1,2 +1,2 @@
UPD 2022-01-07_07:25:06 6874 FHEM/46_TeslaPowerwall2AC.pm
UPD 2022-01-07_08:33:19 27498 lib/FHEM/Devices/Tesla/Powerwall.pm
UPD 2022-01-09_15:44:54 6874 FHEM/46_TeslaPowerwall2AC.pm
UPD 2022-01-09_15:59:59 27461 lib/FHEM/Devices/Tesla/Powerwall.pm

48
lib/FHEM/Devices/Tesla/Powerwall.pm
View File

@ -56,6 +56,7 @@ package FHEM::Devices::Tesla::Powerwall;
use strict;
use warnings;
use experimental qw( switch );
use HttpUtils;
use GPUtils qw(GP_Import);
@ -285,43 +286,17 @@ sub Get {
my $cmd = shift @$aArg // return qq(get $name needs at least one argument);
my $arg;
if ( $cmd eq 'statusSOE' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'aggregates' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'siteinfo' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'powerwalls' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'sitemaster' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'registration' ) {
$arg = lc($cmd);
}
elsif ( $cmd eq 'status' ) {
$arg = lc($cmd);
}
else {
$cmd = lc($cmd);
given ($cmd) {
when ('statussoe') { $arg = $cmd; }
when ('aggregates') { $arg = $cmd; }
when ('siteinfo') { $arg = $cmd; }
when ('powerwalls') { $arg = $cmd; }
when ('sitemaster') { $arg = $cmd; }
when ('registration') { $arg = $cmd; }
when ('status') { $arg = $cmd; }
default {
my $list = '';
$list .=
'statusSOE:noArg aggregates:noArg siteinfo:noArg sitemaster:noArg powerwalls:noArg registration:noArg status:noArg'
@ -332,6 +307,7 @@ sub Get {
return 'Unknown argument ' . $cmd . ', choose one of ' . $list;
}
}
return 'There are still path commands in the action queue'
if ( defined( $hash->{actionQueue} )