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

testing #10

Merged
marko merged 18 commits from testing into master 2021-07-10 05:47:53 +00:00
Conversation 0 Commits 18 Files Changed 4 +14 -14
3 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 72cf203925 - Show all commits

20
FHEM/46_TeslaPowerwall2AC.pm
View File

@@ -59,7 +59,7 @@ use warnings;
use FHEM::Meta;
use GPUtils qw(GP_Export);
require FHEM::Tesla::Powerwall;
require FHEM::Devices::Tesla::Powerwall;
#-- Run before package compilation
BEGIN {
@@ -67,8 +67,8 @@ BEGIN {
#-- Export to main context with different name
GP_Export(
qw(
Initialize
)
Initialize
)
);
}
@@ -76,14 +76,14 @@ sub Initialize {
my $hash = shift;
$hash->{GetFn} = \&FHEM::Tesla::Powerwall::Get;
$hash->{SetFn} = \&FHEM::Tesla::Powerwall::Set;
$hash->{DefFn} = \&FHEM::Tesla::Powerwall::Define;
$hash->{UndefFn} = \&FHEM::Tesla::Powerwall::Undef;
$hash->{NotifyFn} = \&FHEM::Tesla::Powerwall::Notify;
$hash->{RenameFn} = \&FHEM::Tesla::Powerwall::Rename;
$hash->{GetFn} = \&FHEM::Devices::Tesla::Powerwall::Get;
$hash->{SetFn} = \&FHEM::Devices::Tesla::Powerwall::Set;
$hash->{DefFn} = \&FHEM::Devices::Tesla::Powerwall::Define;
$hash->{UndefFn} = \&FHEM::Devices::Tesla::Powerwall::Undef;
$hash->{NotifyFn} = \&FHEM::Devices::Tesla::Powerwall::Notify;
$hash->{RenameFn} = \&FHEM::Devices::Tesla::Powerwall::Rename;
$hash->{AttrFn} = \&FHEM::Tesla::Powerwall::Attr;
$hash->{AttrFn} = \&FHEM::Devices::Tesla::Powerwall::Attr;
$hash->{AttrList} =
'interval '
. 'disable:1 '

2
controls_TeslaPowerwall2AC.txt
View File

@@ -1 +1 @@
UPD 2021-04-23_08:18:27 6866 FHEM/46_TeslaPowerwall2AC.pm
UPD 2021-04-23_08:24:15 6944 FHEM/46_TeslaPowerwall2AC.pm

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

@@ -52,7 +52,7 @@
##
##
package FHEM::Tesla::Powerwall;
package FHEM::Devices::Tesla::Powerwall;
use strict;
use warnings;
@@ -464,7 +464,7 @@ sub Timer_GetData {
}
::InternalTimer( ::gettimeofday() + $hash->{INTERVAL},
\&FHEM::Tesla::Powerwall::Timer_GetData, $hash );
\&FHEM::Devices::Tesla::Powerwall::Timer_GetData, $hash );
::Log3($name, 4,
qq(TeslaPowerwall2AC ($name) - Call ::InternalTimer Timer_GetData));
}
@@ -573,7 +573,7 @@ sub ErrorHandling {
}
#### End Error Handling
::InternalTimer( ::gettimeofday() + 3, \&FHEM::Tesla::Powerwall::Write, $hash )
::InternalTimer( ::gettimeofday() + 3, \&FHEM::Devices::Tesla::Powerwall::Write, $hash )
if ( defined( $hash->{actionQueue} )
&& scalar( @{ $hash->{actionQueue} } ) > 0 );