Return to example2.pl CVS log

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

change the record to be $rec->{'name'} for the name not $rec->{'data'}.
support the "Last Modified" date on Decrypt and Encrypt.  Have to document that before release.

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