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

Return to Keyring.pm CVS log

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

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

version 1.21, 2007/01/31 05:32:20

Line 1

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.

Line 126

$data->{'password'} ||= $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 $packeddate = pack 'n', $p;

Line 460

Line 464

lastchange => {

year => 107, # years since 1900

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

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

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

};