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

add Notify Function for global Events

Browse Source
This commit is contained in:
Marko Oldenburg
2017-10-17 13:22:11 +02:00
parent 3d8686234b
commit 319ee09e98
1 changed files with 20 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
46_TeslaPowerwall2AC.pm
View File

@@ -66,7 +66,7 @@ use HttpUtils;
eval "use JSON;1" or $missingModul .= "JSON "; eval "use JSON;1" or $missingModul .= "JSON ";
my $version = "0.1.14"; my $version = "0.1.15";
@@ -76,6 +76,7 @@ sub TeslaPowerwall2AC_Attr(@);
sub TeslaPowerwall2AC_Define($$); sub TeslaPowerwall2AC_Define($$);
sub TeslaPowerwall2AC_Initialize($); sub TeslaPowerwall2AC_Initialize($);
sub TeslaPowerwall2AC_Get($@); sub TeslaPowerwall2AC_Get($@);
sub TeslaPowerwall2AC_Notify($$);
sub TeslaPowerwall2AC_GetData($); sub TeslaPowerwall2AC_GetData($);
sub TeslaPowerwall2AC_Undef($$); sub TeslaPowerwall2AC_Undef($$);
sub TeslaPowerwall2AC_ResponseProcessing($$$); sub TeslaPowerwall2AC_ResponseProcessing($$$);
@@ -106,6 +107,7 @@ sub TeslaPowerwall2AC_Initialize($) {
$hash->{GetFn} = "TeslaPowerwall2AC_Get"; $hash->{GetFn} = "TeslaPowerwall2AC_Get";
$hash->{DefFn} = "TeslaPowerwall2AC_Define"; $hash->{DefFn} = "TeslaPowerwall2AC_Define";
$hash->{UndefFn} = "TeslaPowerwall2AC_Undef"; $hash->{UndefFn} = "TeslaPowerwall2AC_Undef";
$hash->{NotifyFn} = "TeslaPowerwall2AC_Notify";
$hash->{AttrFn} = "TeslaPowerwall2AC_Attr"; $hash->{AttrFn} = "TeslaPowerwall2AC_Attr";
$hash->{AttrList} = "interval ". $hash->{AttrList} = "interval ".
@@ -136,6 +138,7 @@ sub TeslaPowerwall2AC_Define($$) {
$hash->{INTERVAL} = 300; $hash->{INTERVAL} = 300;
$hash->{PORT} = 80; $hash->{PORT} = 80;
$hash->{VERSION} = $version; $hash->{VERSION} = $version;
$hash->{NOTIFYDEV} = "global";
$hash->{actionQueue} = []; $hash->{actionQueue} = [];
@@ -143,16 +146,6 @@ sub TeslaPowerwall2AC_Define($$) {
Log3 $name, 3, "TeslaPowerwall2AC ($name) - defined SmartPi Device with Host $host, Port $hash->{PORT} and Interval $hash->{INTERVAL}"; Log3 $name, 3, "TeslaPowerwall2AC ($name) - defined SmartPi Device with Host $host, Port $hash->{PORT} and Interval $hash->{INTERVAL}";
if( $init_done ) {
TeslaPowerwall2AC_Timer_GetData($hash);
} else {
InternalTimer( gettimeofday()+15, "TeslaPowerwall2AC_Timer_GetData", $hash );
}
$modules{TeslaPowerwall2AC}{defptr}{HOST} = $hash; $modules{TeslaPowerwall2AC}{defptr}{HOST} = $hash;
return undef; return undef;
@@ -224,6 +217,22 @@ sub TeslaPowerwall2AC_Attr(@) {
return undef; return undef;
} }
sub TeslaPowerwall2AC_Notify($$) {
my ($hash,$dev) = @_;
my $name = $hash->{NAME};
return if (IsDisabled($name));
my $devname = $dev->{NAME};
my $devtype = $dev->{TYPE};
my $events = deviceEvents($dev,1);
return if (!$events);
TeslaPowerwall2AC_Timer_GetData($hash) if( grep /^INITIALIZED$/,@{$events} );
return;
}
sub TeslaPowerwall2AC_Get($@) { sub TeslaPowerwall2AC_Get($@) {
my ($hash, $name, $cmd) = @_; my ($hash, $name, $cmd) = @_;