| 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]; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Keyring.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / lib / Palm