===================================================================
RCS file: /cvs/palm/Palm-Keyring/test2.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- palm/Palm-Keyring/test2.pl	2006/12/06 20:59:23	1.2
+++ palm/Palm-Keyring/test2.pl	2007/01/30 04:59:55	1.3
@@ -4,18 +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"; 
 
+#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;
+}