version 1.20, 2007/01/31 04:29:08 |
version 1.21, 2007/01/31 05:32:20 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
|
|
# $RedRiver: Keyring.pm,v 1.19 2007/01/31 04:17:15 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.20 2007/01/31 04:29:08 andrew Exp $ |
# |
# |
# Perl class for dealing with Keyring for Palm OS databases. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
$data->{'password'} ||= $EMPTY; |
$data->{'password'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
$data->{'notes'} ||= $EMPTY; |
|
|
my %Modified; |
my ($day, $month, $year); |
my ($day, $month, $year) = (localtime)[3,4,5]; |
|
$year -= 4; |
|
$month++; |
|
|
|
|
# XXX the 0 here is a placeholder for $record_has_changed. |
|
if ( 0 || ! $data->{'lastchange'}) { |
|
($day, $month, $year) = (localtime)[3,4,5]; |
|
$year -= 4; |
|
$month++; |
|
} |
|
|
my $p = $day | ($month << 5) | ($year << 9); |
my $p = $day | ($month << 5) | ($year << 9); |
my $packeddate = pack 'n', $p; |
my $packeddate = pack 'n', $p; |
|
|
|
|
lastchange => { |
lastchange => { |
year => 107, # years since 1900 |
year => 107, # years since 1900 |
month => 0, # 0-11, 0 = January, 11 = December |
month => 0, # 0-11, 0 = January, 11 = December |
day => 30, # 1-31, same as l<localtime/> |
day => 30, # 1-31, same as localtime |
}, |
}, |
}; |
}; |
|
|