Return to example2.pl CVS log

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

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

1.1       andrew      1: #!/usr/bin/perl
1.3     ! andrew      2: # $RedRiver: example2.pl,v 1.2 2007/01/30 04:59:55 andrew Exp $
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:
1.3     ! andrew     19:     print join ":", $rec->{'name'} , $acct->{'account'},
1.2       andrew     20:         $acct->{'password'}, $acct->{'notes'};
                     21:     print "\n";
                     22: }