scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-17 12:41:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

added the password policy feature to the core (::Record) for easier access.

Browse Source
This commit is contained in:
git@daemon.de
2013-07-05 15:26:34 +02:00
parent ed5afed40f
commit f66b9e9aeb
4 changed files with 41 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/Crypt/PWSafe3/Record.pm
View File

@@ -9,7 +9,7 @@ my %map2type = %Crypt::PWSafe3::Field::map2type;
my %map2name = %Crypt::PWSafe3::Field::map2name;
$Crypt::PWSafe3::Record::VERSION = '1.06';
$Crypt::PWSafe3::Record::VERSION = '1.07';
foreach my $field (keys %map2type ) {
eval qq(
@@ -144,6 +144,22 @@ sub addfield {
$this->{field}->{ $name } = $field;
}
sub policy {
#
# return or set a password policy
my ($this, $policy) = @_;
if($policy) {
$this->{policy} = $policy;
$this->pwpol($policy->encode());
}
else {
$this->{policy} = Crypt::PWSafe3::PasswordPolicy->new(raw => $this->pwpol);
}
return $this->{policy};
}
=head1 NAME
Crypt::PWSafe3::Record - Represents a Passwordsafe v3 data record
@@ -265,9 +281,18 @@ for more details.
Returns the password policy without argument. Sets the password policy
if an argument is given.
B<Crypt::PWSafe3> doesn't update the pwpol field currently. So if
you mind, do it yourself. Refer to L<Crypt::PWSafe3::Databaseformat>
for more details.
This is the raw encoded policy string. If you want to access it, use the
B<policy()> method, see below.
=head2 B<policy([Crypt::PWSafe3::PasswordPolicy object])>
If called without arguments, returns a Crypt::PWSafe3::PasswordPolicy
object. See L<Crypt::PWSafe3::PasswordPolicy> for details, how to access
it.
To modify the password policy, create new Crypt::PWSafe3::PasswordPolicy
object or modify the existing one and pass it as argument to the
B<policy> method.
=head2 B<pwexp([string])>