===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.20
retrieving revision 1.23
diff -u -r1.20 -r1.23
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/31 04:29:08	1.20
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/02/02 01:51:46	1.23
@@ -1,6 +1,6 @@
 package Palm::Keyring;
 
-# $RedRiver: Keyring.pm,v 1.19 2007/01/31 04:17:15 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.
 #
@@ -87,9 +87,10 @@
     my $self = shift;
     my $rec  = shift;
 
-    my $rec0_id = $self->{'records'}->[0]->{'id'};
-
-    if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) {
+    if ($rec->{'encrypted'}) {
+        if (! defined $rec->{'name'}) {
+            $rec->{'name'} = $EMPTY;
+        }
         $rec->{'data'} = join $NULL, $rec->{'name'}, $rec->{'encrypted'};
         delete $rec->{'name'};
         delete $rec->{'encrypted'};
@@ -120,17 +121,64 @@
         croak("Incorrect Password!\n");
     }
 
-    $self->{'digest'} ||= _calc_keys( $pass );
+    $self->{'digest'}   ||= _calc_keys( $pass );
 
     $data->{'account'}  ||= $EMPTY;
     $data->{'password'} ||= $EMPTY;
     $data->{'notes'}    ||= $EMPTY;
 
-    my %Modified;
-    my ($day, $month, $year) = (localtime)[3,4,5];
+    my $changed      = 0;
+    my $need_newdate = 0;
+    my $acct = {};
+    if ($rec->{'encrypted'}) {
+        $acct = $self->Decrypt($rec, $pass);
+        foreach my $key (keys %{ $data }) {
+            next if $key eq 'lastchange';
+            if ($data->{$key} ne $acct->{$key}) {
+                $changed = 1;
+                last;
+            }
+        }
+        if ( exists $data->{'lastchange'} && exists $acct->{'lastchange'} && (
+            $data->{'lastchange'}->{day}   != $acct->{'lastchange'}->{day}   ||
+            $data->{'lastchange'}->{month} != $acct->{'lastchange'}->{month} ||
+            $data->{'lastchange'}->{year}  != $acct->{'lastchange'}->{year}
+        )) {
+            $changed = 1;
+            $need_newdate = 0;
+        } else {
+            $need_newdate = 1;
+        }
+
+    } else {
+        $changed = 1;
+    }
+
+    # no need to re-encrypt if it has not changed.
+    return 1 if ! $changed;
+
+    my ($day, $month, $year);
+
+    if ($data->{'lastchange'} && ! $need_newdate ) {
+        $day   = $data->{'lastchange'}->{'day'}   || 1;
+        $month = $data->{'lastchange'}->{'month'} || 0;
+        $year  = $data->{'lastchange'}->{'year'}  || 0;
+
+        # XXX Need to actually validate the above information somehow
+        if ($year >= 1900) {
+            $year -= 1900;
+        }
+    } else {
+        $need_newdate = 1;
+    }
+
+    if ($need_newdate) {
+        ($day, $month, $year) = (localtime)[3,4,5];
+    }
     $year -= 4;
     $month++;
 
+
     my $p = $day | ($month << 5) | ($year << 9);
     my $packeddate = pack 'n', $p;
 
@@ -233,6 +281,7 @@
 
         foreach my $i (0..$#accts) {
             next if $i == 0;
+            delete $self->{'records'}->[$i]->{'encrypted'};
             $self->Encrypt($self->{'records'}->[$i], $accts[$i], $pass);
         }
     }
@@ -460,18 +509,24 @@
         lastchange => {
             year  => 107, # years since 1900
             month =>   0, # 0-11, 0 = January, 11 = December
-            day   =>  30, # 1-31, same as l<localtime/>
+            day   =>  30, # 1-31, same as localtime
         },
     };
 
+If you have changed anything other than the lastchange, or don't pass in a 
+lastchange record, Encrypt() will generate a new lastchange for you.
+
+If you pass in a lastchange field that is different than the one in the
+record, it will honor what you passed in.
+
+It also only uses the $acct->{'name'} if there is not already a $rec->{'name'}.
+
 =head2 Decrypt
 
     my $acct = $pdb->Decrypt($rec[, $password]);
 
 Decrypts the record and returns a hashref for the account as described 
 under Encrypt().  
-However, it ignores the "lastchange" field and generates its own.  
-It also only uses the "name" field if there is not already a $rec->{'name'}.
 
     foreach (0..$#{ $pdb->{'records'}) {
         next if $_ == 0;