palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

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

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

version 1.20, 2007/01/31 04:29:08

Line 1

package Palm::Keyring;

# $RedRiver: Keyring.pm,v 1.18 2007/01/30 05:18:06 andrew Exp $

# $RedRiver: Keyring.pm,v 1.19 2007/01/31 04:17:15 andrew Exp $

# Perl class for dealing with Keyring for Palm OS databases.

Line 192

}

return {

name => $rec->{'name'},

account => $account,

password => $password,

notes => $notes,

date => \%Modified,

lastchange => \%Modified,

};

}

Line 453

$acct is a hashref in the format below.

my $acct = {

account => $account,

name => $rec->{'name'},

password => $password,

account => $account,

notes => $notes,

password => $password,

notes => $notes,

lastchange => {

year => 107, # years since 1900

month => 0, # 0-11, 0 = January, 11 = December

day => 30, # 1-31, same as l<localtime/>

};

=head2 Decrypt

Line 463

Line 469

my $acct = $pdb->Decrypt($rec[, $password]);

Decrypts the record and returns a hashref for the account as described

under Encrypt();

under Encrypt().

However, it ignores the "lastchange" field and generates its own.

It also only uses the "name" field if there is not already a $rec->{'name'}.

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

next if $_ == 0;