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

version 1.4, 2006/04/18 20:39:45 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 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->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.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>