===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/30 04:59:55	1.16
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/30 05:16:16	1.17
@@ -1,6 +1,6 @@
 package Palm::Keyring;
 
-# $RedRiver: Keyring.pm,v 1.15 2007/01/29 02:49:41 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.16 2007/01/30 04:59:55 andrew Exp $
 #
 # Perl class for dealing with Keyring for Palm OS databases.
 #
@@ -391,13 +391,17 @@
 
     use Palm::PDB;
     use Palm::Keyring;
+    
+    my $pass = 'password';
     my $pdb = new Palm::PDB;
     $pdb->Load($file);
-    foreach my $rec (@{ $pdb->{'records'} }) {
-        print "$rec->{'plaintext'}->{'name'}\n";
+    
+    foreach (0..$#{ $pdb->{'records'} }) {
+        next if $_ = 0; # skip the password record
+        my $rec  = $pdb->{'records'}->[$_];
+        my $acct = $pdb->Decrypt($rec, $pass);
+        print $rec->{'data'}, ' - ', $acct->{'account'}, "\n";
     }
-    $pdb->Decrypt($password);
-    # do something with the decrypted parts
 
 =head1 SUBROUTINES/METHODS