![]() ![]() | ![]() |
File: [local] / palm / Palm-Keyring / examples / example2.pl (download)
Revision 1.3, Wed Jan 31 04:17:15 2007 UTC (17 years, 6 months ago) by andrew
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"; }