===================================================================
RCS file: /cvs/palm/Palm-Keyring/test2.pl,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -r1.1 -r1.3
--- palm/Palm-Keyring/test2.pl	2006/12/06 18:45:42	1.1
+++ palm/Palm-Keyring/test2.pl	2007/01/30 04:59:55	1.3
@@ -4,14 +4,25 @@
 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"; 
 
-$pdb->Load("Keys-Gtkr.PDB"); 
-#$pdb->Decrypt('12345');
+#print Dump $pdb->{'records'};
 
-print Dump $pdb;
+print "Enter: ";
+my $Pass = <>;
+chomp $Pass;
+print "\n";
 
+
+foreach my $rec (@{ $pdb->{'records'} }) {
+    next unless $rec->{'encrypted'};
+
+	my $acct = $pdb->Decrypt($rec, $Pass) || die "Couldn't decrypt!";
+	print Dump $rec, $acct;
+}