Return to example2.pl CVS log

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

Switch to decrypting one record at a time when requested.  That leads to more tests so that's kewl :-)

#!/usr/bin/perl
# $RedRiver$
use strict;
use warnings;

use Palm::PDB;
use Palm::Keyring;

my $pdb = new Palm::PDB;

$pdb->Load("Keys-Gtkr-example.PDB"); 
$pdb->Password('12345');

foreach (0..$#{ $pdb->{'records'} }) {
    next if $_ == 0;
    my $rec = $pdb->{'records'}->[$_];
    my $acct = $pdb->Decrypt($rec);

    print join ":", $rec->{'data'} , $acct->{'account'},
        $acct->{'password'}, $acct->{'notes'};
    print "\n";
}