version 1.59, 2008/09/19 06:39:07 |
version 1.60, 2008/09/19 06:53:08 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.58 2008/09/19 02:50:05 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.59 2008/09/19 05:39:07 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
} |
} |
|
|
} else { |
} else { |
croak "Unsupported Version $self->{version}"; |
croak "Unsupported version $self->{version}"; |
} |
} |
|
|
$rec->{plaintext}->{0} = $data->{0}; |
$rec->{plaintext}->{0} = $data->{0}; |
|
|
} |
} |
} |
} |
|
|
return 1, 0 if $changed == 0; |
return (1, $ivec) if $changed == 0; |
|
|
if ($need_newdate) { |
if ($need_newdate) { |
my ($day, $month, $year) = (localtime)[3,4,5]; |
my ($day, $month, $year) = (localtime)[3,4,5]; |