version 1.2, 2006/01/31 23:03:39 |
version 1.3, 2006/02/02 00:59:08 |
|
|
# 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.1 2006/01/26 20:54:19 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.2 2006/01/31 23:03:39 andrew Exp $ |
|
|
use strict; |
use strict; |
package Palm::Keyring; |
package Palm::Keyring; |
|
|
&Palm::PDB::RegisterPDBHandlers(__PACKAGE__, |
&Palm::PDB::RegisterPDBHandlers(__PACKAGE__, |
[ "Gtkr", "Gkyr" ], |
[ "Gtkr", "Gkyr" ], |
); |
); |
|
} |
|
|
|
sub Load |
|
{ |
|
my $self = shift; |
|
$self->SUPER::Load(@_); |
|
|
|
# Skip the first 2 records because they are special |
|
# and don't have any plaintext |
|
my $skip = 0; |
|
foreach my $record (@{ $self->{records} }) { |
|
if ($skip < 2) { |
|
$skip++; |
|
next; |
|
} |
|
my ($name, $encrypted) = split /\000/, $record->{data}, 2; |
|
$record->{plaintext}->{name} = $name; |
|
$record->{encrypted} = $encrypted; |
|
} |
|
1; |
} |
} |
|
|
sub Encrypt |
sub Encrypt |