===================================================================
RCS file: /cvs/palm/Palm-Keyring/examples/example1.pl,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -r1.3 -r1.5
--- palm/Palm-Keyring/examples/example1.pl	2006/02/02 00:59:08	1.3
+++ palm/Palm-Keyring/examples/example1.pl	2006/11/10 01:46:40	1.5
@@ -1,36 +1,37 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use diagnostics;
-
-use lib 'lib';
-use Palm::Keyring;
-
-my $pdb = new Palm::Keyring;
-
-use YAML;
-
-#print Dumper $pdb
-
-#$pdb->Load("Keys-GtkrNEW.PDB"); 
-#$pdb->Decrypt('12345');
-$pdb->Load("Keys-Gtkr.PDB"); 
-$pdb->Decrypt('Password');
-
-#--------------------------------------------------
-# 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");
-#-------------------------------------------------- 
-
-print Dump $pdb;
-
+#!/usr/bin/perl
+use strict;
+use warnings;
+use diagnostics;
+
+use lib 'lib';
+use Palm::Keyring;
+
+my $pdb = new Palm::Keyring;
+
+use YAML;
+
+#print Dumper $pdb
+
+#$pdb->Load("Keys-GtkrNEW.PDB"); 
+#$pdb->Decrypt('12345');
+$pdb->Load("Keys-Gtkr.PDB"); 
+#$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
+$pdb->Decrypt('12345');
+
+#--------------------------------------------------
+# 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");
+#-------------------------------------------------- 
+
+print Dump $pdb;
+