===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- palm/Palm-Keyring/examples/example3.pl	2007/02/10 16:24:16	1.4
+++ palm/Palm-Keyring/examples/example3.pl	2007/08/10 05:13:31	1.5
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver$
+# $RedRiver: example3.pl,v 1.4 2007/02/10 16:24:16 andrew Exp $
 ########################################################################
 # palmkeyring.pl *** a command line client for Keyring databases.
 #
@@ -57,11 +57,9 @@
 sub show_list
 {
 	print "Showing List\n";
-	foreach (0..$#{ $pdb->{'records'} }) {
-        next if $_ == 0;
-        my $r = $pdb->{'records'}->[$_];
+	foreach my $r (@{ $pdb->{records} }) {
 		my $category = 
-			$pdb->{'appinfo'}->{'categories'}->[ $r->{'category'} ]->{'name'};
+			$pdb->{appinfo}->{categories}->[ $r->{category} ]->{name};
 
 		my $matched = 0;
 		foreach my $cat (@{ $Categories }) {
@@ -73,9 +71,9 @@
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
 
 		# XXX Fix up formatting
-		print $r->{'name'} .
+		print $r->{decrypted}->{0}->{data} .
 			":" .
-			$r->{'category'} . 
+			$r->{category} . 
 			":" .
 			$category .
 			"\n";
@@ -108,18 +106,18 @@
 			$matched++ if uc($category) eq uc($cat);
 		}
 		foreach my $name (@{ $Names}) {
-			$matched++ if uc($r->{'name'}) eq uc($name);
+			$matched++ if uc($r->{decrypted}->{0}->{data}) eq uc($name);
 		}
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
 
         my $a = $pdb->Decrypt($r);
 
 		# XXX Fix up formatting
-		print $r->{'name'} .  "\n\t" .
+		print $a->{0}->{data} .  "\n\t" .
 			"Category: " . $category .  "\n\t" .
-			"Account:  " . $a->{'account'} .  "\n\t" .
-			"Password: " . $a->{'password'} .  "\n";
-			print "\tNotes: " . $a->{'notes'} . "\n" if $a->{'notes'};
+			"Account:  " . $a->{1}->{data} .  "\n\t" .
+			"Password: " . $a->{2}->{data} .  "\n";
+			print "\tNotes: " . $a->{255}->{data} . "\n" if $a->{255}->{data};
 	}
 
 }