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

rewrite password setter

Browse Source
This commit is contained in:
Marko Oldenburg 2021-03-27 15:27:06 +01:00
parent 1b7c2f8832
commit 7b7c53a76f
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/46_TeslaPowerwall2AC.pm
View File

@ -404,20 +404,22 @@ sub Get {
sub Set { sub Set {
my $hash = shift; my $hash = shift;
my $aArg = shift; my $aArg = shift;
my $hArg = shift;
my $name = shift @$aArg; my $name = shift @$aArg;
my $cmd = shift @$aArg // return qq(set ${name} needs at least one argument); my $cmd = shift @$aArg // return qq(set ${name} needs at least one argument);
my $arg; my $arg;
if ( $cmd eq 'powerwalls' ) { if ( $cmd eq 'powerwalls' ) {
$arg = lc( $cmd . $aArg->[0] ); $arg = lc( $cmd . $aArg->[0] );
} }
elsif ( lc $cmd eq 'setpassword' ) { elsif ( lc $cmd eq 'setpassword' ) {
return "please set Attribut emailaddr first" return q{please set Attribut emailaddr first}
if ( AttrVal( $name, 'emailaddr', 'none' ) eq 'none' ); if ( AttrVal( $name, 'emailaddr', 'none' ) eq 'none' );
return "usage: $cmd <password>" if ( scalar( @{$aArg} ) != 1 ); return qq(usage: ${cmd} pass=<password>) if ( scalar( @{$aArg} ) != 2 );
StorePassword( $hash, $name, $aArg->[0] ); StorePassword( $hash, $name, $hArg->{'pass'} );
return Timer_GetData($hash); return Timer_GetData($hash);
} }
elsif ( lc $cmd eq 'removepassword' ) { elsif ( lc $cmd eq 'removepassword' ) {
@ -1115,6 +1117,14 @@ sub IsPathTimeAgeToOld {
<li>status - fetch data from url path /api/status</li> <li>status - fetch data from url path /api/status</li>
<li>statussoe - fetch data from url path /api/system_status/soe</li> <li>statussoe - fetch data from url path /api/system_status/soe</li>
</ul> </ul>
<br><br>
<a name="TeslaPowerwall2ACset"></a>
<b>set</b>
<ul>
<li>removePassword - remove password from password file</li>
<li>setPassword - save password in passswordfile ATTANTION!!! text must begin with pass= (Example: pass=meinpassword)</li>
</ul>
<br><br>
<a name="TeslaPowerwall2ACattribute"></a> <a name="TeslaPowerwall2ACattribute"></a>
<b>Attribute</b> <b>Attribute</b>
<ul> <ul>

2
controls_TeslaPowerwall2AC.txt
View File

@ -1 +1 @@
UPD 2021-03-13_19:32:22 33100 FHEM/46_TeslaPowerwall2AC.pm UPD 2021-03-27_15:25:40 33443 FHEM/46_TeslaPowerwall2AC.pm