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

internal records now associated with parent

Browse Source
This commit is contained in:
git@daemon.de
2015-05-21 11:10:42 +02:00
parent 60a94cb5a7
commit 4e5879de16
5 changed files with 101 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/Crypt/PWSafe3.pm
View File

@@ -31,7 +31,7 @@ use Data::Dumper;
use Exporter ();
use vars qw(@ISA @EXPORT);
$Crypt::PWSafe3::VERSION = '1.21';
$Crypt::PWSafe3::VERSION = '1.22';
use Crypt::PWSafe3::Field;
use Crypt::PWSafe3::HeaderField;
@@ -281,7 +281,7 @@ sub read {
}
# read db records
my $record = Crypt::PWSafe3::Record->new();
my $record = Crypt::PWSafe3::Record->new(super => $this);
$this->{record} = {};
while (1) {
my $field = $this->readfield();
@@ -290,7 +290,7 @@ sub read {
}
if ($field->type == 0xff) {
$this->addrecord($record);
$record = Crypt::PWSafe3::Record->new();
$record = Crypt::PWSafe3::Record->new(super => $this);
}
else {
$record->addfield($field);
@@ -589,6 +589,7 @@ sub newrecord {
}
$this->markmodified();
$this->addrecord($record);
$this->{records}->{$record->uuid}->{super} = $this;
return $record->uuid;
}
@@ -859,16 +860,21 @@ which is a unique identifier. You can access the uuid by:
Accessing other record properties works the same. For
more details, refer to L<Crypt::PWSafe3::Record>.
Please note that record objects accessed this way are
copies. If you change such a record object and save the
database, nothing will in fact change. In this case you
need to put the changed record back into the record
list of the Crypt::PWSafe3 object by:
B<Note>: record objects returned by getrecords() are
still associated with the L<Crypt::PWSafe3> object. So,
if you modify a field of such a record, the change will
be populated back into the vault. Of course you'd still
need to save it.
$vault->addrecord($record):
Sample:
See section L<addrecord()> for more details on this.
foreach my $rec ($vault->getrecords) {
$rec->note('blah fasel');
}
$vault->save();
However, it's also possible to use the B<modifyrecord()>
method, see below.
=head2 B<looprecord()>
@@ -998,7 +1004,7 @@ License 2.0, see: L<http://www.perlfoundation.org/artistic_license_2_0>
=head1 VERSION
Crypt::PWSafe3 Version 1.21.
Crypt::PWSafe3 Version 1.22.
=cut