version 1.19, 2007/01/31 04:17:15 |
version 1.20, 2007/01/31 04:29:08 |
|
|
package Palm::Keyring; |
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. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
} |
} |
|
|
return { |
return { |
name => $rec->{'name'}, |
name => $rec->{'name'}, |
account => $account, |
account => $account, |
password => $password, |
password => $password, |
notes => $notes, |
notes => $notes, |
date => \%Modified, |
lastchange => \%Modified, |
}; |
}; |
} |
} |
|
|
|
|
$acct is a hashref in the format below. |
$acct is a hashref in the format below. |
|
|
my $acct = { |
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 |
=head2 Decrypt |
|
|
my $acct = $pdb->Decrypt($rec[, $password]); |
my $acct = $pdb->Decrypt($rec[, $password]); |
|
|
Decrypts the record and returns a hashref for the account as described |
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'}) { |
foreach (0..$#{ $pdb->{'records'}) { |
next if $_ == 0; |
next if $_ == 0; |