palm/Palm-Keyring/test2.pl - diff

Return to test2.pl CVS log

Up to [local] / palm / Palm-Keyring

version 1.2, 2006/12/06 20:59:23

version 1.3, 2007/01/30 04:59:55

Line 4

use diagnostics;

use lib 'lib';

use Palm::PDB;

use Palm::Keyring;

use YAML;

my $pdb = new Palm::Keyring;

my $pdb = new Palm::PDB;

use YAML;

$pdb->Load("Keys-Gtkr.pdb") || die "Unable to load PDB";

#print Dump $pdb->{'records'};

print "Enter: ";

my $Pass = <>;

chomp $Pass;

print "\n";

$pdb->Load("Keys-Gtkr.PDB");

$pdb->Decrypt($Pass) || die "Couldn't decrypt!";

print Dump $pdb;

foreach my $rec (@{ $pdb->{'records'} }) {

next unless $rec->{'encrypted'};

my $acct = $pdb->Decrypt($rec, $Pass) || die "Couldn't decrypt!";

print Dump $rec, $acct;

}