===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example3.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- palm/Palm-Keyring/examples/example3.pl	2007/08/10 05:13:31	1.5
+++ palm/Palm-Keyring/examples/example3.pl	2007/09/12 04:59:37	1.6
@@ -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.5 2007/08/10 04:13:31 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} . 
 			":" .
@@ -106,7 +106,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;