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 |