version 1.22, 2007/02/01 01:56:11 |
version 1.23, 2007/02/02 01:51:46 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
|
|
# $RedRiver: Keyring.pm,v 1.21 2007/01/31 05:32:20 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.22 2007/02/01 01:56:11 andrew Exp $ |
# |
# |
# Perl class for dealing with Keyring for Palm OS databases. |
# Perl class for dealing with Keyring for Palm OS databases. |
# |
# |
|
|
my $self = shift; |
my $self = shift; |
my $rec = shift; |
my $rec = shift; |
|
|
my $rec0_id = $self->{'records'}->[0]->{'id'}; |
if ($rec->{'encrypted'}) { |
|
|
if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) { |
|
if (! defined $rec->{'name'}) { |
if (! defined $rec->{'name'}) { |
$rec->{'name'} = $EMPTY; |
$rec->{'name'} = $EMPTY; |
} |
} |