===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/30 05:18:06	1.18
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2007/01/31 04:17:15	1.19
@@ -1,6 +1,6 @@
 package Palm::Keyring;
 
-# $RedRiver: Keyring.pm,v 1.17 2007/01/30 05:16:16 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.18 2007/01/30 05:18:06 andrew Exp $
 #
 # Perl class for dealing with Keyring for Palm OS databases.
 #
@@ -25,7 +25,7 @@
 Readonly my $NULL       => chr 0;
 
 # One liner, to allow MakeMaker to work.
-our $VERSION = 0.91;
+our $VERSION = 0.92;
 
 sub new {
     my $classname = shift;
@@ -71,14 +71,13 @@
 
     # skip the 0 record that holds the password
     return $rec if ! exists $self->{'records'}; 
-
-    # skip records with no data (There shouldn't be any)
     return $rec if ! exists $rec->{'data'};
 
     my ( $name, $encrypted ) = split /$NULL/xm, $rec->{'data'}, 2;
 
     return $rec if ! $encrypted;
-    $rec->{'data'} = $name;
+    delete $rec->{'data'};
+    $rec->{'name'} = $name;
     $rec->{'encrypted'} = $encrypted;
 
     return $rec;
@@ -91,7 +90,8 @@
     my $rec0_id = $self->{'records'}->[0]->{'id'};
 
     if ($rec->{'encrypted'} && ! $rec->{'id'} == $rec0_id) {
-        $rec->{'data'} = join $NULL, $rec->{'data'}, $rec->{'encrypted'};
+        $rec->{'data'} = join $NULL, $rec->{'name'}, $rec->{'encrypted'};
+        delete $rec->{'name'};
         delete $rec->{'encrypted'};
     }
 
@@ -126,15 +126,26 @@
     $data->{'password'} ||= $EMPTY;
     $data->{'notes'}    ||= $EMPTY;
 
+    my %Modified;
+    my ($day, $month, $year) = (localtime)[3,4,5];
+    $year -= 4;
+    $month++;
+
+    my $p = $day | ($month << 5) | ($year << 9);
+    my $packeddate = pack 'n', $p;
+
     my $plaintext = join $NULL, 
-        $data->{'account'}, $data->{'password'}, $data->{'notes'};
+        $data->{'account'}, $data->{'password'}, $data->{'notes'}, $packeddate;
 
     my $encrypted = _crypt3des( $plaintext, $self->{'digest'}, $ENCRYPT );
 
     return if ! $encrypted;
 
-    $rec->{'data'} ||= $data->{'name'};
+    $rec->{'attributes'}{'Dirty'} = 1;
+    $rec->{'attributes'}{'dirty'} = 1;
+    $rec->{'name'}    ||= $data->{'name'};
     $rec->{'encrypted'} = $encrypted;
+
     return 1;
 }
 
@@ -148,8 +159,7 @@
     }
 
     if ( ! $rec) {
-        carp("Needed parameter 'record' not passed!\n");
-        return;
+        croak("Needed parameter 'record' not passed!\n");
     }
 
     if ( ! $self->Password($pass)) {
@@ -164,13 +174,29 @@
 
     my $decrypted = 
         _crypt3des( $rec->{'encrypted'}, $self->{'digest'}, $DECRYPT );
-    my ( $account, $password, $notes, $extra ) = split /$NULL/xm,
+    my ( $account, $password, $notes, $packeddate ) = split /$NULL/xm,
           $decrypted, 4;
 
+    my %Modified;
+    if ($packeddate) {
+        my $u = unpack 'n', $packeddate;
+        my $year  = (($u & 0xFE00) >> 9) + 4; # since 1900
+        my $month = (($u & 0x01E0) >> 5) - 1; # 0-11
+        my $day   = (($u & 0x001F) >> 0);     # 1-31
+
+        %Modified = (
+            year   => $year,
+            month  => $month || 0,
+            day    => $day   || 1,
+        );
+    }
+
     return {
+        name     => $rec->{'name'},
         account  => $account,
         password => $password,
         notes    => $notes,
+        date     => \%Modified,
     };
 }
 
@@ -195,7 +221,7 @@
             }
             my $acct = $self->Decrypt($self->{'records'}->[$i], $pass);
             if ( ! $acct ) {
-                croak("Couldn't decrypt $self->{'records'}->[$i]->{'data'}");
+                croak("Couldn't decrypt $self->{'records'}->[$i]->{'name'}");
             }
             push @accts, $acct;
         }
@@ -401,7 +427,7 @@
         next if $_ = 0; # skip the password record
         my $rec  = $pdb->{'records'}->[$_];
         my $acct = $pdb->Decrypt($rec, $pass);
-        print $rec->{'data'}, ' - ', $acct->{'account'}, "\n";
+        print $rec->{'name'}, ' - ', $acct->{'account'}, "\n";
     }
 
 =head1 SUBROUTINES/METHODS