Return to example1.pl CVS log

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

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

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"); 
1.4     ! andrew     18: #$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
        !            19: $pdb->Decrypt('12345');
1.1       andrew     20: 
                     21: #--------------------------------------------------
                     22: # my $new_record = $pdb->append_Record();
                     23: # 
                     24: # $new_record->{plaintext} = {
                     25: #      name        => 'Test3',
                     26: #      account     => 'anothertestaccount',
                     27: #      password    => 'adifferentmypass',
                     28: #      description => 'now that really roxorZ!',
                     29: # };
                     30: # 
                     31: #$pdb->Encrypt('12345');
                     32: # 
                     33: #$pdb->Write("Keys-GtkrNEW.PDB");
                     34: #-------------------------------------------------- 
                     35: 
                     36: print Dump $pdb;
                     37: