===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.9
retrieving revision 1.11
diff -u -r1.9 -r1.11
--- palm/Palm-Keyring/examples/example1.pl	2007/01/30 04:59:55	1.9
+++ palm/Palm-Keyring/examples/example1.pl	2007/09/12 04:59:37	1.11
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $RedRiver$
+# $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $
 use strict;
 use warnings;
 
@@ -9,13 +9,13 @@
 
 my $rec = $pdb->append_Record();
 
-my $acct = {
-	name      => 'Test3',
-	account   => 'anothertestaccount',
-	password  => 'adifferentmypass',
-	notes     => 'now that really roxorZ!',
+$rec->{plaintext} = {
+	0 => { data => 'Test3' },
+	1 => { data => 'anothertestaccount' },
+	2 => { data => 'adifferentmypass' },
+	255 => { data => 'now that really roxorZ!' },
 };
 
-$pdb->Encrypt($rec, $acct);
+$pdb->Encrypt($rec);
  
 $pdb->Write("Keys-Gtkr-example.PDB");