change set passwort fn code
This commit is contained in:
		@@ -1,2 +1,2 @@
 | 
				
			|||||||
UPD 2021-03-27_15:47:11 6982 FHEM/46_TeslaPowerwall2AC.pm
 | 
					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
 | 
				
			||||||
 
 | 
				
			|||||||
@@ -392,7 +392,8 @@ sub Set {
 | 
				
			|||||||
    elsif ( lc $cmd eq 'setpassword' ) {
 | 
					    elsif ( lc $cmd eq 'setpassword' ) {
 | 
				
			||||||
        return q{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 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'} );
 | 
					        StorePassword( $hash, $name, $hArg->{'pass'} );
 | 
				
			||||||
        return Timer_GetData($hash);
 | 
					        return Timer_GetData($hash);
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user