| Name : perl-File-KeePass
| |
| Version : 2.02
| Vendor : openSUSE Build Service
|
| Release : 1.2
| Date : 2021-12-28 18:26:55
|
| Group : Applications/CPAN
| Source RPM : perl-File-KeePass-2.02-1.2.src.rpm
|
| Size : 0.12 MB
| |
| Packager : (none)
| |
| Summary : File-KeePass - Interface to KeePass V1 + V2 database files
|
Description :
use File::KeePass;
use Data::Dumper qw(Dumper);
my $k = File::KeePass->new;
if (! eval { $k->load_db($file, $master_pass) }) {
die \"Couldn\'t load the file $file: $AATT\";
}
print Dumper $k->groups; # passwords are locked
$k->unlock;
print Dumper $k->groups; # passwords are now visible
$k->clear; # delete current db from memory
my $group = $k->add_group({
title => \'Foo\',
}); # root level group
my $gid = $group->{\'id\'};
my $group = $k->find_group({id => $gid});
my $group = $k->find_group({title => \'Foo\'});
my $group2 = $k->add_group({
title => \'Bar\',
group => $gid,
}); # nested group
my $e = $k->add_entry({
title => \'Something\',
username => \'someuser\',
password => \'somepass\',
group => $gid,
});
my $eid = $e->{\'id\'};
my $e = $k->find_entry({id => $eid});
my $e = $k->find_entry({title => \'Something\'});
$k->lock;
print $e->{\'password\'}; # eq undef
print $k->locked_entry_password($e); # eq \'somepass\'
$k->unlock;
print $e->{\'password\'}; # eq \'somepass\'
$k->save_db(\"/some/file/location.kdb\", $master_pass);
|
RPM found in directory: /packages/linux-pbone/ftp5.gwdg.de/pub/opensuse/repositories/home:/csbuild:/Perl/SLE_11/noarch |
