[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.5

version 1.1, 2006/01/26 20:54:19 version 1.5, 2006/11/10 01:46:40
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->Decrypt('12345');
 $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} = {  # my $new_record = $pdb->append_Record();
 #       name        => 'Test3',  #
 #       account     => 'anothertestaccount',  # $new_record->{plaintext} = {
 #       password    => 'adifferentmypass',  #       name        => 'Test3',
 #       description => 'now that really roxorZ!',  #       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;  #--------------------------------------------------
   
   print Dump $pdb;
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>