Return to example1.pl CVS log

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

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

1.1       andrew      1: #!/usr/bin/perl
                      2: use strict;
                      3: use warnings;
                      4: use diagnostics;
                      5: 
                      6: use Palm::PDB;
                      7: use lib 'lib';
                      8: use Palm::Keyring;
                      9: 
                     10: my $pdb = new Palm::PDB;
                     11: 
                     12: use YAML;
                     13: 
                     14: #print Dumper $pdb
                     15: 
1.2     ! andrew     16: #$pdb->Load("Keys-GtkrNEW.PDB"); 
        !            17: #$pdb->Decrypt('12345');
        !            18: $pdb->Load("Keys-Gtkr.PDB"); 
        !            19: $pdb->Decrypt('Password');
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: