===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/17 15:47:47	1.55
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2008/09/18 07:04:55	1.56
@@ -1,5 +1,5 @@
 package Palm::Keyring;
-# $RedRiver: Keyring.pm,v 1.54 2007/12/05 05:42:29 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.55 2008/09/17 14:47:47 andrew Exp $
 ########################################################################
 # Keyring.pm *** Perl class for Keyring for Palm OS databases.
 #
@@ -110,6 +110,7 @@
         else {
             $options->{password} = shift;
             $options->{version}  = shift;
+            $options->{cipher}   = shift;
         }
     }
 
@@ -141,6 +142,10 @@
         $self->{appinfo}->{iter}   ||= $self->{options}->{iterations};
     };
 
+    if ( defined $options->{file} ) {
+        $self->Load($options->{file});
+    }
+
     if ( defined $options->{password} ) {
         $self->Password($options->{password});
     }
@@ -219,13 +224,13 @@
         }
     }
 
-    my $rc = $self->SUPER::Write(@_);
+    my @rc = $self->SUPER::Write(@_);
 
     if ($self->{version} == 4) {
         shift @{ $self->{records} };
     }
 
-    return $rc;
+    return @rc;
 }
 
 # ParseRecord
@@ -235,7 +240,7 @@
     my $self     = shift;
 
     my $rec = $self->SUPER::ParseRecord(@_);
-    return $rec if ! exists $rec->{data};
+    return $rec if !(defined $rec->{data} && length $rec->{data} );
 
     if ($self->{version} == 4) {
         # skip the first record because it contains the password.
@@ -243,7 +248,7 @@
             $self->{encpassword} = $rec->{data};
             return '__DELETE_ME__';
         }
-
+ 
         if ($self->{records}->[0] eq '__DELETE_ME__') {
             shift @{ $self->{records} };
         }
@@ -272,8 +277,9 @@
         $rec->{encrypted} = substr $extra, $blocksize;
 
     } else {
+        # XXX Can never get here to test, ParseAppInfoBlock is always run
+        # XXX first by Load().
         croak "Unsupported Version $self->{version}";
-        return;
     }
 
     return $rec;
@@ -286,15 +292,19 @@
     my $self = shift;
     my $rec  = shift;
 
+    # XXX This probably shouldn't croak, just make something up
+    croak "No encrypted content to pack" if !defined $rec->{encrypted};
+
     if ($self->{version} == 4) {
         if ($rec->{encrypted}) {
             my $name = $rec->{plaintext}->{0}->{data} || $EMPTY;
             $rec->{data} = join $NULL, $name, $rec->{encrypted};
-            delete $rec->{plaintext};
-            delete $rec->{encrypted};
         }
 
     } elsif ($self->{version} == 5) {
+        # XXX This probably shouldn't croak, just make something up
+        croak "No ivec" if !$rec->{ivec};
+
         my $field;
         if ($rec->{plaintext}->{0}) {
             $field = $rec->{plaintext}->{0};
@@ -313,6 +323,9 @@
     } else {
         croak "Unsupported Version $self->{version}";
     }
+    # XXX Should I?
+    delete $rec->{plaintext};
+    delete $rec->{encrypted};
 
     return $self->SUPER::PackRecord($rec, @_);
 }
@@ -1428,7 +1441,7 @@
 
 =head2 new
 
-    $pdb = new Palm::Keyring([$password[, $version]]);
+    $pdb = new Palm::Keyring([$password[, $version[, $cipher]]]);
 
 Create a new PDB, initialized with the various Palm::Keyring fields
 and an empty record list.
@@ -1470,6 +1483,10 @@
 =item iterations
 
 The number of iterations to encrypt with.  Only used by somy crypts in v5 databases.
+
+=item file
+
+The name of a file to Load().  This will override many of the other options.
 
 =back