palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

Up to [local] / palm / Palm-Keyring / lib / Palm

version 1.2, 2006/01/31 23:03:39

version 1.3, 2006/02/02 00:59:08

Line 9

# This started as Memo.pm, I just made it work for Keyring.

# $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;

package Palm::Keyring;

Line 111

&Palm::PDB::RegisterPDBHandlers(__PACKAGE__,

[ "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;

}

sub Encrypt