512 lines
13 KiB
Perl
512 lines
13 KiB
Perl
###############################################################################
|
|
#
|
|
# Developed with Kate
|
|
#
|
|
# (c) 2017 Copyright: Marko Oldenburg (leongaultier at gmail dot com)
|
|
# All rights reserved
|
|
#
|
|
# 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;
|
|
# }
|
|
#
|
|
#######
|
|
#######
|
|
# URLs zum Abrufen diverser Daten
|
|
# http://<ip-Powerwall>/api/system_status/soe
|
|
# http://<ip-Powerwall>/api/meters/aggregates
|
|
# http://<ip-Powerwall>/api/site_info
|
|
# http://<ip-Powerwall>/api/sitemaster
|
|
# http://<ip-Powerwall>/api/powerwalls
|
|
# http://<ip-Powerwall>/api/networks
|
|
# http://<ip-Powerwall>/api/system/networks
|
|
# http://<ip-Powerwall>/api/operation
|
|
#
|
|
##
|
|
##
|
|
|
|
|
|
|
|
package main;
|
|
|
|
|
|
my $missingModul = "";
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use HttpUtils;
|
|
eval "use JSON;1" or $missingModul .= "JSON ";
|
|
|
|
|
|
my $version = "0.0.25";
|
|
|
|
|
|
|
|
|
|
# Declare functions
|
|
sub TeslaPowerwall2AC_Attr(@);
|
|
sub TeslaPowerwall2AC_Define($$);
|
|
sub TeslaPowerwall2AC_Initialize($);
|
|
sub TeslaPowerwall2AC_Get($@);
|
|
sub TeslaPowerwall2AC_GetData($);
|
|
sub TeslaPowerwall2AC_Undef($$);
|
|
sub TeslaPowerwall2AC_ResponseProcessing($$$);
|
|
sub TeslaPowerwall2AC_ReadingsProcessing_Aggregates($$);
|
|
sub TeslaPowerwall2AC_ReadingsProcessing_Powerwalls($$);
|
|
sub TeslaPowerwall2AC_ErrorHandling($$$);
|
|
sub TeslaPowerwall2AC_WriteReadings($$$);
|
|
sub TeslaPowerwall2AC_Timer_GetData($);
|
|
|
|
|
|
|
|
|
|
my %paths = ( 'statussoe' => 'system_status/soe',
|
|
'aggregates' => 'meters/aggregates',
|
|
'siteinfo' => 'site_info',
|
|
'sitemaster' => 'sitemaster',
|
|
'powerwalls' => 'powerwalls',
|
|
'registration' => 'customer/registration',
|
|
'status' => 'status'
|
|
);
|
|
|
|
|
|
sub TeslaPowerwall2AC_Initialize($) {
|
|
|
|
my ($hash) = @_;
|
|
|
|
# Consumer
|
|
$hash->{GetFn} = "TeslaPowerwall2AC_Get";
|
|
$hash->{DefFn} = "TeslaPowerwall2AC_Define";
|
|
$hash->{UndefFn} = "TeslaPowerwall2AC_Undef";
|
|
|
|
$hash->{AttrFn} = "TeslaPowerwall2AC_Attr";
|
|
$hash->{AttrList} = "interval ".
|
|
"disable:1 ".
|
|
$readingFnAttributes;
|
|
|
|
foreach my $d(sort keys %{$modules{TeslaPowerwall2AC}{defptr}}) {
|
|
|
|
my $hash = $modules{TeslaPowerwall2AC}{defptr}{$d};
|
|
$hash->{VERSION} = $version;
|
|
}
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_Define($$) {
|
|
|
|
my ( $hash, $def ) = @_;
|
|
|
|
my @a = split( "[ \t][ \t]*", $def );
|
|
|
|
|
|
return "too few parameters: define <name> SmartPi <HOST>" if( @a != 3);
|
|
return "Cannot define a HEOS device. Perl modul $missingModul is missing." if ( $missingModul );
|
|
|
|
my $name = $a[0];
|
|
|
|
my $host = $a[2];
|
|
$hash->{HOST} = $host;
|
|
$hash->{INTERVAL} = 300;
|
|
$hash->{PORT} = 80;
|
|
$hash->{VERSION} = $version;
|
|
|
|
|
|
$attr{$name}{room} = "Tesla" if( !defined( $attr{$name}{room} ) );
|
|
|
|
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;
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_Undef($$) {
|
|
|
|
my ( $hash, $arg ) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - Device $name deleted";
|
|
delete $modules{TeslaPowerwall2AC}{defptr}{HOST} if( defined($modules{TeslaPowerwall2AC}{defptr}{HOST}) and $hash->{HOST} );
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_Attr(@) {
|
|
|
|
my ( $cmd, $name, $attrName, $attrVal ) = @_;
|
|
my $hash = $defs{$name};
|
|
|
|
my $orig = $attrVal;
|
|
|
|
if( $attrName eq "disable" ) {
|
|
if( $cmd eq "set" ) {
|
|
if( $attrVal eq "0" ) {
|
|
|
|
readingsSingleUpdate ( $hash, "state", "enabled", 1 );
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - enabled";
|
|
} else {
|
|
|
|
readingsSingleUpdate ( $hash, "state", "disabled", 1 );
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - disabled";
|
|
}
|
|
|
|
} else {
|
|
|
|
readingsSingleUpdate ( $hash, "state", "enabled", 1 );
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - enabled";
|
|
}
|
|
|
|
} elsif( $attrName eq "interval" ) {
|
|
if( $cmd eq "set" ) {
|
|
|
|
$hash->{INTERVAL} = $attrVal;
|
|
|
|
} else {
|
|
|
|
$hash->{INTERVAL} = 300;
|
|
}
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_Get($@) {
|
|
|
|
my ($hash, $name, $cmd) = @_;
|
|
my $arg;
|
|
|
|
|
|
# ensure actionQueue exists
|
|
$hash->{actionQueue} = [] if( not defined($hash->{actionQueue}) );
|
|
|
|
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 {
|
|
|
|
my $list = 'statusSOE:noArg aggregates:noArg siteinfo:noArg sitemaster:noArg powerwalls:noArg registration:noArg status:noArg';
|
|
|
|
return "Unknown argument $cmd, choose one of $list";
|
|
}
|
|
|
|
unshift( @{$hash->{actionQueue}}, $arg );
|
|
TeslaPowerwall2AC_GetData($hash);
|
|
|
|
return undef;
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_Timer_GetData($) {
|
|
|
|
my $hash = shift;
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
# ensure actionQueue exists
|
|
$hash->{actionQueue} = [] if( not defined($hash->{actionQueue}) );
|
|
|
|
if( not IsDisabled($name) ) {
|
|
while( my $obj = each %paths ) {
|
|
unshift( @{$hash->{actionQueue}}, $obj );
|
|
}
|
|
|
|
TeslaPowerwall2AC_GetData($hash);
|
|
|
|
} else {
|
|
readingsSingleUpdate($hash,'state','disabled',1);
|
|
}
|
|
|
|
InternalTimer( gettimeofday()+$hash->{INTERVAL}, 'TeslaPowerwall2AC_Timer_GetData', $hash );
|
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Call InternalTimer TeslaPowerwall2AC_Timer_GetData";
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_GetData($) {
|
|
|
|
my ($hash) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $host = $hash->{HOST};
|
|
my $port = $hash->{PORT};
|
|
my $path = pop( @{$hash->{actionQueue}} );
|
|
my $uri = $host . ':' . $port . '/api/' . $paths{$path};
|
|
|
|
|
|
readingsSingleUpdate($hash,'state','fetch data',1);
|
|
|
|
HttpUtils_NonblockingGet(
|
|
{
|
|
url => "http://" . $uri,
|
|
timeout => 5,
|
|
method => 'GET',
|
|
hash => $hash,
|
|
setCmd => $path,
|
|
doTrigger => 1,
|
|
callback => \&TeslaPowerwall2AC_ErrorHandling,
|
|
}
|
|
);
|
|
|
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Send with URI: http://$uri";
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_ErrorHandling($$$) {
|
|
|
|
my ($param,$err,$data) = @_;
|
|
|
|
my $hash = $param->{hash};
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
### Begin Error Handling
|
|
|
|
if( defined( $err ) ) {
|
|
if( $err ne "" ) {
|
|
|
|
readingsBeginUpdate( $hash );
|
|
readingsBulkUpdateIfChanged ( $hash, 'state', $err, 1);
|
|
readingsBulkUpdateIfChanged( $hash, 'lastRequestError', $err, 1 );
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: $err";
|
|
|
|
delete $hash->{actionQueue};
|
|
return;
|
|
}
|
|
}
|
|
|
|
if( $data eq "" and exists( $param->{code} ) && $param->{code} ne 200 ) {
|
|
|
|
readingsBeginUpdate( $hash );
|
|
readingsBulkUpdateIfChanged ( $hash, 'state', $param->{code}, 1 );
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'lastRequestError', $param->{code}, 1 );
|
|
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: ".$param->{code};
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
Log3 $name, 5, "TeslaPowerwall2AC ($name) - RequestERROR: received http code ".$param->{code}." without any data after requesting";
|
|
|
|
delete $hash->{actionQueue};
|
|
return;
|
|
}
|
|
|
|
if( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
|
|
|
|
readingsBeginUpdate( $hash );
|
|
|
|
readingsBulkUpdateIfChanged( $hash, 'state', $param->{code}, 1 );
|
|
readingsBulkUpdateIfChanged( $hash, "lastRequestError", $param->{code}, 1 );
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
|
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - statusRequestERROR: http error ".$param->{code};
|
|
|
|
delete $hash->{actionQueue};
|
|
return;
|
|
|
|
### End Error Handling
|
|
}
|
|
|
|
TeslaPowerwall2AC_GetData($hash)
|
|
unless( defined($hash->{actionQueue}) and scalar(@{$hash->{actionQueue}}) > 0 );
|
|
|
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data";
|
|
|
|
TeslaPowerwall2AC_ResponseProcessing($hash,$param->{setCmd},$data);
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_ResponseProcessing($$$) {
|
|
|
|
my ($hash,$path,$json) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my $decode_json;
|
|
my $readings;
|
|
|
|
|
|
$decode_json = eval{decode_json($json)};
|
|
if($@){
|
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - error while request: $@";
|
|
readingsBeginUpdate($hash);
|
|
readingsBulkUpdate($hash, 'JSON Error', $@);
|
|
readingsBulkUpdate($hash, 'state', 'JSON error');
|
|
readingsEndUpdate($hash,1);
|
|
return;
|
|
}
|
|
|
|
#### Verarbeitung der Readings zum passenden Path
|
|
|
|
if( $path eq 'aggregates') {
|
|
$readings = TeslaPowerwall2AC_ReadingsProcessing_Aggregates($hash,$decode_json);
|
|
|
|
} elsif( $path eq 'powerwalls') {
|
|
$readings = TeslaPowerwall2AC_ReadingsProcessing_Powerwalls($hash,$decode_json);
|
|
|
|
} else {
|
|
$readings = $decode_json;
|
|
}
|
|
|
|
TeslaPowerwall2AC_WriteReadings($hash,$path,$readings);
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_WriteReadings($$$) {
|
|
|
|
my ($hash,$path,$readings) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
|
|
|
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Write Readings";
|
|
|
|
|
|
readingsBeginUpdate($hash);
|
|
while( my ($r,$v) = each %{$readings} ) {
|
|
readingsBulkUpdate($hash,$path.'-'.$r,$v);
|
|
readingsBulkUpdate($hash,$path.'-'.$r,sprintf("%.1f",$v)) if($r eq 'percentage');
|
|
}
|
|
|
|
readingsBulkUpdateIfChanged($hash,'state','ready');
|
|
readingsEndUpdate($hash,1);
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_ReadingsProcessing_Aggregates($$) {
|
|
|
|
my ($hash,$decode_json) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my %readings;
|
|
|
|
|
|
while( my $obj = each %{$decode_json} ) {
|
|
while( my ($r,$v) = each %{$decode_json->{$obj}} ) {
|
|
$readings{$obj.'-'.$r} = $v;
|
|
}
|
|
}
|
|
|
|
return \%readings;
|
|
}
|
|
|
|
sub TeslaPowerwall2AC_ReadingsProcessing_Powerwalls($$) {
|
|
|
|
my ($hash,$decode_json) = @_;
|
|
|
|
my $name = $hash->{NAME};
|
|
my %readings;
|
|
|
|
|
|
if( ref($decode_json->{powerwalls}) eq "ARRAY" and scalar(@{$decode_json->{powerwalls}}) > 0 ) {
|
|
|
|
foreach my $powerwall (@{$decode_json->{powerwalls}}) {
|
|
if( ref($powerwall) eq "HASH" ) {
|
|
|
|
while( my ($r,$v) = each %{$powerwall} ) {
|
|
$readings{$r} = $v;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return \%readings;
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|
|
|
|
|
|
=pod
|
|
|
|
=item device
|
|
=item summary
|
|
=item summary_DE
|
|
|
|
=begin html
|
|
|
|
<a name="TeslaPowerwall2AC"></a>
|
|
<h3>Tesla Powerwall 2 AC</h3>
|
|
<ul>
|
|
<a name="TeslaPowerwall2ACreadings"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<li> </li>
|
|
</ul>
|
|
<a name="TeslaPowerwall2ACget"></a>
|
|
<b>get</b>
|
|
<ul>
|
|
<li> </li>
|
|
</ul>
|
|
</ul>
|
|
|
|
=end html
|
|
=begin html_DE
|
|
|
|
<a name="TeslaPowerwall2AC"></a>
|
|
<h3>Tesla Powerwall 2 AC</h3>
|
|
|
|
=end html_DE
|
|
=cut
|