palm/Palm-Keyring/examples/example2.pl - diff

Return to example2.pl CVS log

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

version 1.3, 2007/01/31 04:17:15

version 1.4, 2007/08/10 05:13:31

Line 1

#!/usr/bin/perl

# $RedRiver: example2.pl,v 1.2 2007/01/30 04:59:55 andrew Exp $

# $RedRiver: example2.pl,v 1.3 2007/01/31 04:17:15 andrew Exp $

use strict;

use warnings;

Line 11

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

$pdb->Password('12345');

foreach (0..$#{ $pdb->{'records'} }) {

foreach my $rec (@{ $pdb->{records} }) {

next if $_ == 0;

my $rec = $pdb->{'records'}->[$_];

my $acct = $pdb->Decrypt($rec);

print join ":", $rec->{'name'} , $acct->{'account'},

my $d = $acct->{3}->{data};

$acct->{'password'}, $acct->{'notes'};

my $date = ($d->{year} + 1900) . '/' . ($d->{month} + 1) . '/' . $d->{day};

print join ":", $acct->{0}->{data} , $acct->{1}->{data},

$acct->{2}->{data}, $date, $acct->{255}->{data};

print "\n";

}