Return to example1.pl CVS log

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

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

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