[BACK]Return to example1.pl CVS log [TXT][DIR] Up to [local] / palm / Palm-Keyring / examples

Diff for /palm/Palm-Keyring/examples/example1.pl between version 1.1 and 1.6

version 1.1, 2006/01/26 20:54:19 version 1.6, 2006/11/10 04:21:17
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
   
 use Palm::PDB;  use lib 'lib';
 use lib 'lib';  use Palm::Keyring;
 use Palm::Keyring;  
   my $pdb = new Palm::Keyring;
 my $pdb = new Palm::PDB;  
   use YAML;
 use YAML;  
   #print Dumper $pdb
 #print Dumper $pdb  
   $pdb->Load("Keys-GtkrNEW.PDB");
 $pdb->Load("Keys-GtkrNEW.PDB");  #$pdb->Load("Keys-Gtkr.PDB");
 $pdb->Decrypt('12345');  #$pdb->Load("k:/working/Keys-Gtkr.PDB");
   $pdb->Decrypt('Password');
 #--------------------------------------------------  
 # my $new_record = $pdb->append_Record();  #--------------------------------------------------
 #  # my $new_record = $pdb->append_Record();
 # $new_record->{plaintext} = {  #
 #       name        => 'Test3',  # $new_record->{plaintext} = {
 #       account     => 'anothertestaccount',  #       name        => 'Test3',
 #       password    => 'adifferentmypass',  #       account     => 'anothertestaccount',
 #       description => 'now that really roxorZ!',  #       password    => 'adifferentmypass',
 # };  #       description => 'now that really roxorZ!',
 #  # };
 #$pdb->Encrypt('12345');  #
 #  #$pdb->Encrypt('12345');
 #$pdb->Write("Keys-GtkrNEW.PDB");  #
 #--------------------------------------------------  #$pdb->Write("Keys-GtkrNEW.PDB");
   #--------------------------------------------------
 print Dump $pdb;  
   print Dump $pdb;
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>