palm/Palm-Keyring/examples/example1.pl - diff

Return to example1.pl CVS log

Up to [local] / palm / Palm-Keyring / examples

-version 1.7, 2006/11/10 04:52:27
+version 1.8, 2006/12/06 18:45:42
 Line 10
 Line 10
 Line 10
  use YAML;
- #print Dumper $pdb
+ my $new_record = $pdb->append_Record();
- $pdb->Load("Keys-GtkrNEW.PDB");
+ $new_record->{plaintext} = {
- #$pdb->Load("Keys-Gtkr.PDB");
+         name        => 'Test3',
- #$pdb->Load("k:/working/Keys-Gtkr.PDB");
+         account     => 'anothertestaccount',
- $pdb->Decrypt('12345');
+         password    => 'adifferentmypass',
+         description => 'now that really roxorZ!',
+ };
- #--------------------------------------------------
+ $pdb->Encrypt('12345');
- # my $new_record = $pdb->append_Record();
- #
+ $pdb->Write("Keys-GtkrNEW.PDB");
- # $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;