change set passwort fn code

This commit is contained in:
Marko Oldenburg 2021-03-27 16:37:57 +01:00
parent 240465cca1
commit eda1060eaa
2 changed files with 3 additions and 2 deletions

View File

@ -1,2 +1,2 @@
UPD 2021-03-27_15:47:11 6982 FHEM/46_TeslaPowerwall2AC.pm
UPD 2021-03-27_15:51:48 28787 lib/FHEM/Tesla/Powerwall.pm
UPD 2021-03-27_16:37:44 28867 lib/FHEM/Tesla/Powerwall.pm

View File

@ -392,7 +392,8 @@ sub Set {
elsif ( lc $cmd eq 'setpassword' ) {
return q{please set Attribut emailaddr first}
if ( AttrVal( $name, 'emailaddr', 'none' ) eq 'none' );
return qq(usage: ${cmd} pass=<password>) if ( scalar( @{$aArg} ) != 2 );
return qq(usage: ${cmd} pass=<password>) if ( scalar( @{$aArg} ) != 2
|| scalar(keys %{$hArg} != 1 );
StorePassword( $hash, $name, $hArg->{'pass'} );
return Timer_GetData($hash);