| version 1.5, 2006/11/10 04:52:27 |
version 1.6, 2006/11/10 16:18:59 |
|
|
| # This started as Memo.pm, I just made it work for Keyring. |
# This started as Memo.pm, I just made it work for Keyring. |
| # |
# |
| # $Id$ |
# $Id$ |
| # $RedRiver: Keyring.pm,v 1.4 2006/11/10 04:21:17 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.5 2006/11/10 04:52:27 andrew Exp $ |
| |
|
| use strict; |
use strict; |
| package Palm::Keyring; |
package Palm::Keyring; |
|
|
| $record->{encrypted} = $encrypted; |
$record->{encrypted} = $encrypted; |
| } |
} |
| 1; |
1; |
| |
} |
| |
|
| |
sub Write |
| |
{ |
| |
my $self = shift; |
| |
$self->Encrypt() || return undef; |
| |
return $self->SUPER::Load(@_); |
| } |
} |
| |
|
| sub Encrypt |
sub Encrypt |
![[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