version 1.1, 2007/01/28 16:17:54 |
version 1.3, 2007/01/31 04:17:15 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
|
# $RedRiver: example2.pl,v 1.2 2007/01/30 04:59:55 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
|
|
|
use lib 'lib'; |
use Palm::PDB; |
use Palm::Keyring; |
use Palm::Keyring; |
|
|
my $pdb = new Palm::Keyring; |
my $pdb = new Palm::PDB; |
|
|
use YAML; |
$pdb->Load("Keys-Gtkr-example.PDB"); |
|
$pdb->Password('12345'); |
|
|
$pdb->Load("Keys-GtkrNEW.PDB"); |
foreach (0..$#{ $pdb->{'records'} }) { |
$pdb->Decrypt('12345'); |
next if $_ == 0; |
|
my $rec = $pdb->{'records'}->[$_]; |
|
my $acct = $pdb->Decrypt($rec); |
|
|
print Dump $pdb; |
print join ":", $rec->{'name'} , $acct->{'account'}, |
|
$acct->{'password'}, $acct->{'notes'}; |
|
print "\n"; |
|
} |