Return to example1.pl CVS log

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

Annotation of palm/Palm-Keyring/examples/example1.pl, Revision 1.3

1.1       andrew      1: #!/usr/bin/perl
                      2: use strict;
                      3: use warnings;
                      4: use diagnostics;
                      5: 
                      6: use lib 'lib';
                      7: use Palm::Keyring;
                      8: 
1.3     ! andrew      9: my $pdb = new Palm::Keyring;
1.1       andrew     10: 
                     11: use YAML;
                     12: 
                     13: #print Dumper $pdb
                     14: 
1.2       andrew     15: #$pdb->Load("Keys-GtkrNEW.PDB"); 
                     16: #$pdb->Decrypt('12345');
                     17: $pdb->Load("Keys-Gtkr.PDB"); 
                     18: $pdb->Decrypt('Password');
1.1       andrew     19: 
                     20: #--------------------------------------------------
                     21: # my $new_record = $pdb->append_Record();
                     22: # 
                     23: # $new_record->{plaintext} = {
                     24: #      name        => 'Test3',
                     25: #      account     => 'anothertestaccount',
                     26: #      password    => 'adifferentmypass',
                     27: #      description => 'now that really roxorZ!',
                     28: # };
                     29: # 
                     30: #$pdb->Encrypt('12345');
                     31: # 
                     32: #$pdb->Write("Keys-GtkrNEW.PDB");
                     33: #-------------------------------------------------- 
                     34: 
                     35: print Dump $pdb;
                     36: