===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.5
retrieving revision 1.8
diff -u -r1.5 -r1.8
--- palm/Palm-Keyring/examples/example1.pl	2006/11/10 01:46:40	1.5
+++ palm/Palm-Keyring/examples/example1.pl	2006/12/06 18:45:42	1.8
@@ -10,28 +10,18 @@
 
 use YAML;
 
-#print Dumper $pdb
+my $new_record = $pdb->append_Record();
 
-#$pdb->Load("Keys-GtkrNEW.PDB"); 
-#$pdb->Decrypt('12345');
-$pdb->Load("Keys-Gtkr.PDB"); 
-#$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
-$pdb->Decrypt('12345');
+$new_record->{plaintext} = {
+	name        => 'Test3',
+	account     => 'anothertestaccount',
+	password    => 'adifferentmypass',
+	description => 'now that really roxorZ!',
+};
 
-#--------------------------------------------------
-# my $new_record = $pdb->append_Record();
-# 
-# $new_record->{plaintext} = {
-# 	name        => 'Test3',
-# 	account     => 'anothertestaccount',
-# 	password    => 'adifferentmypass',
-# 	description => 'now that really roxorZ!',
-# };
-# 
-#$pdb->Encrypt('12345');
-# 
-#$pdb->Write("Keys-GtkrNEW.PDB");
-#-------------------------------------------------- 
+$pdb->Encrypt('12345');
+ 
+$pdb->Write("Keys-GtkrNEW.PDB");
 
 print Dump $pdb;