Return to example2.pl CVS log

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

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

1.1       andrew      1: #!/usr/bin/perl
1.2     ! andrew      2: # $RedRiver$
1.1       andrew      3: use strict;
                      4: use warnings;
                      5:
1.2     ! andrew      6: use Palm::PDB;
1.1       andrew      7: use Palm::Keyring;
                      8:
1.2     ! andrew      9: my $pdb = new Palm::PDB;
1.1       andrew     10:
1.2     ! andrew     11: $pdb->Load("Keys-Gtkr-example.PDB");
        !            12: $pdb->Password('12345');
1.1       andrew     13:
1.2     ! andrew     14: foreach (0..$#{ $pdb->{'records'} }) {
        !            15:     next if $_ == 0;
        !            16:     my $rec = $pdb->{'records'}->[$_];
        !            17:     my $acct = $pdb->Decrypt($rec);
        !            18:
        !            19:     print join ":", $rec->{'data'} , $acct->{'account'},
        !            20:         $acct->{'password'}, $acct->{'notes'};
        !            21:     print "\n";
        !            22: }