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

Return to Keyring.pm CVS log

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

version 1.12, 2007/01/28 00:18:46

version 1.13, 2007/01/28 18:13:28

Line 8

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

# $RedRiver: Keyring.pm,v 1.11 2007/01/27 23:59:29 andrew Exp $

# $RedRiver: Keyring.pm,v 1.12 2007/01/28 00:18:46 andrew Exp $

use strict;

package Palm::Keyring;

Line 260

$self->{digest} ||= _calc_keys($self->{password});

my $recordcount = 0;

foreach my $record (@{ $self->{records} }) {

next unless defined $record->{data};

$recordcount++;

# always skip the first record that has the password in it.

next if $recordcount <= 1;

unless (defined $record->{data}) {

warn "Invalid record " . ($recordcount - 1) . "\n";

next;

}

my ($name, $encrypted) = split /\000/, $record->{data}, 2;

next unless $encrypted;