FHEM/mod-Password
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

rewrite Object functions

Browse Source
This commit is contained in:
Marko Oldenburg 2021-03-26 13:11:17 +01:00
parent 59b3cea2cc
commit 8e51dcd731
1 changed files with 30 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
lib/FHEM/Core/Password/Utils.pm
View File

@ -18,6 +18,7 @@ BEGIN {
setKeyValue setKeyValue
getKeyValue getKeyValue
getUniqueId getUniqueId
defs
) )
); );
} }
@ -48,7 +49,6 @@ our %EXPORT_TAGS = (
sub new { sub new {
my $class = shift; my $class = shift;
my $self = { my $self = {
hash => undef,
name => undef, name => undef,
}; };
@ -57,9 +57,11 @@ sub new {
} }
sub setStorePassword { sub setStorePassword {
my ($self,$hash,$name,$password) = @_; my $self = shift;
my $name = shift;
my $password = shift;
my $index = $hash->{TYPE} . '_' . $name . '_passwd'; my $index = $defs{$name}->{TYPE} . '_' . $name . '_passwd';
my $key = getUniqueId() . $index; my $key = getUniqueId() . $index;
my $enc_pwd = ''; my $enc_pwd = '';
@ -84,19 +86,19 @@ sub setStorePassword {
} }
sub setDeletePassword { sub setDeletePassword {
my $hash = shift; my $self = shift;
my $name = shift;
setKeyValue( $hash->{TYPE} . '_' . $hash->{NAME} . '_passwd', undef ); setKeyValue( $defs{$name}->{TYPE} . '_' . $name . '_passwd', undef );
return; return;
} }
sub getReadPassword { sub getReadPassword {
my $self = shift; my $self = shift;
my $hash = shift;
my $name = shift; my $name = shift;
my $index = $hash->{TYPE} . '_' . $name . '_passwd'; my $index = $defs{$name}->{TYPE} . '_' . $name . '_passwd';
my $key = getUniqueId() . $index; my $key = getUniqueId() . $index;
my ( $password, $err ); my ( $password, $err );
@ -135,19 +137,17 @@ qq{GardenaSmartBridge ($name) - unable to read password from file: $err});
Log3($name, 3, qq{GardenaSmartBridge ($name) - No password in file}); Log3($name, 3, qq{GardenaSmartBridge ($name) - No password in file});
return undef; return undef;
} }
return;
} }
sub setRename { sub setRename {
my $self = shift; my $self = shift;
my $new = shift; my $newname = shift;
my $old = shift; my $oldname = shift;
my $hash = $defs{$new}; my $hash = $defs{$newname};
setStorePassword( $hash, $new, getReadPassword( $hash, $old ) ); setStorePassword( $hash, $newname, getReadPassword( $hash, $oldname ) );
setKeyValue( $hash->{TYPE} . '_' . $old . '_passwd', undef ); setKeyValue( $hash->{TYPE} . '_' . $oldname . '_passwd', undef ); # remove old password value
return; return;
} }
@ -165,15 +165,27 @@ FHEM::Core::Password::Utils - FHEM extension for password handling
This document describes FHEM::Core::Password::Utils version 0.3 This document describes FHEM::Core::Password::Utils version 0.3
=head1 CONSTRUCTOR
FHEM::Core::Password::Utils->new();
=head1 SYNOPSIS =head1 SYNOPSIS
use FHEM::Core::Password::Utils qw(:ALL); use FHEM::Core::Password::Utils qw(:ALL);
our $passwd = FHEM::Core::Password::Utils->new();
our $passutil = FHEM::Core::Password::Utils->new();
you can also save the password object in the instance hash
our $hash->{helper}->{passwdobj} = FHEM::Core::Password::Utils->new();
=head1 DESCRIPTION =head1 DESCRIPTION
Store new Password
$hash->{helper}->{passwdobj}->setStorePassword('PASSWORD');
Read Password
$hash->{helper}->{passwdobj}->getReadPassword();
=head1 EXPORT =head1 EXPORT
@ -181,13 +193,6 @@ This document describes FHEM::Core::Password::Utils version 0.3
The following functions are exported by this module: The following functions are exported by this module:
C<setStorePassword>,C<setDeletePassword>, C<getReadPassword>, C<setRename> C<setStorePassword>,C<setDeletePassword>, C<getReadPassword>, C<setRename>
=head1 FUNCTIONS
Store new Password
$passutils->setStorePassword('PASSWORD');
Read Password
$passutils->getReadPassword();
=over 4 =over 4
=back =back