===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -r1.5 -r1.7
--- palm/Palm-Keyring/examples/example3.pl	2007/08/10 05:13:31	1.5
+++ palm/Palm-Keyring/examples/example3.pl	2007/12/04 03:37:48	1.7
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver: example3.pl,v 1.4 2007/02/10 16:24:16 andrew Exp $
+# $RedRiver: example3.pl,v 1.6 2007/09/12 03:59:37 andrew Exp $
 ########################################################################
 # palmkeyring.pl *** a command line client for Keyring databases.
 #
@@ -71,7 +71,7 @@
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;
 
 		# XXX Fix up formatting
-		print $r->{decrypted}->{0}->{data} .
+		print $r->{plaintext}->{0}->{data} .
 			":" .
 			$r->{category} . 
 			":" .
@@ -95,7 +95,6 @@
 	get_password() || die "Couldn't decrypt file!";
 
 	foreach (0..$#{ $pdb->{'records'} }) {
-        next if $_ == 0;
         my $r = $pdb->{'records'}->[$_];
 
 		my $category = 
@@ -106,7 +105,7 @@
 			$matched++ if uc($category) eq uc($cat);
 		}
 		foreach my $name (@{ $Names}) {
-			$matched++ if uc($r->{decrypted}->{0}->{data}) eq uc($name);
+			$matched++ if uc($r->{plaintext}->{0}->{data}) eq uc($name);
 		}
 		next if ( @{ $Categories } || @{ $Names } ) && not $matched;