From 7b7c53a76f77a5476194f99bb03f73dc0e91ea79 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <marko.oldenburg@cooltux.net>
Date: Sat, 27 Mar 2021 15:27:06 +0100
Subject: [PATCH] rewrite password setter

---
 FHEM/46_TeslaPowerwall2AC.pm   | 16 +++++++++++++---
 controls_TeslaPowerwall2AC.txt |  2 +-
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/FHEM/46_TeslaPowerwall2AC.pm b/FHEM/46_TeslaPowerwall2AC.pm
index 3763626..5636f33 100644
--- a/FHEM/46_TeslaPowerwall2AC.pm
+++ b/FHEM/46_TeslaPowerwall2AC.pm
@@ -404,20 +404,22 @@ sub Get {
 sub Set {
     my $hash = shift;
     my $aArg = shift;
+    my $hArg = shift;
 
     my $name = shift @$aArg;
     my $cmd  = shift @$aArg // return qq(set ${name} needs at least one argument);
     my $arg;
 
+
     if ( $cmd eq 'powerwalls' ) {
         $arg = lc( $cmd . $aArg->[0] );
     }
     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' );
-        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);
     }
     elsif ( lc $cmd eq 'removepassword' ) {
@@ -1115,6 +1117,14 @@ sub IsPathTimeAgeToOld {
         <li>status          - fetch data from url path /api/status</li>
         <li>statussoe       - fetch data from url path /api/system_status/soe</li>
     </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>
     <b>Attribute</b>
     <ul>
diff --git a/controls_TeslaPowerwall2AC.txt b/controls_TeslaPowerwall2AC.txt
index cdb32c4..7adbc28 100644
--- a/controls_TeslaPowerwall2AC.txt
+++ b/controls_TeslaPowerwall2AC.txt
@@ -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