[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.4 and 1.7

version 1.4, 2006/04/18 20:39:45 version 1.7, 2006/11/10 04:52:27
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
   
 use lib 'lib';  use lib 'lib';
 use Palm::Keyring;  use Palm::Keyring;
   
 my $pdb = new Palm::Keyring;  my $pdb = new Palm::Keyring;
   
 use YAML;  use YAML;
   
 #print Dumper $pdb  #print Dumper $pdb
   
 #$pdb->Load("Keys-GtkrNEW.PDB");  $pdb->Load("Keys-GtkrNEW.PDB");
 #$pdb->Decrypt('12345');  #$pdb->Load("Keys-Gtkr.PDB");
 $pdb->Load("Keys-Gtkr.PDB");  #$pdb->Load("k:/working/Keys-Gtkr.PDB");
 #$pdb->Load("k:/working/Keys-Gtkr.PDB");  $pdb->Decrypt('12345');
 $pdb->Decrypt('12345');  
   #--------------------------------------------------
 #--------------------------------------------------  # my $new_record = $pdb->append_Record();
 # my $new_record = $pdb->append_Record();  #
 #  # $new_record->{plaintext} = {
 # $new_record->{plaintext} = {  #       name        => 'Test3',
 #       name        => 'Test3',  #       account     => 'anothertestaccount',
 #       account     => 'anothertestaccount',  #       password    => 'adifferentmypass',
 #       password    => 'adifferentmypass',  #       description => 'now that really roxorZ!',
 #       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.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>