Add modification field in database - pee - Pee a password manager;Pee - because you have to...
 (HTM) git clone git://vernunftzentrum.de/pee.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) LICENSE
       ---
 (DIR) commit d8d114a7059a8e42ebc2fcb1b03cc5c87aad5b64
 (DIR) parent 9eebb7ec201f158d40f10e5a5f38903577998ef7
 (HTM) Author: Christian Kellermann <ckeen@pestilenz.org>
       Date:   Sun, 10 Jan 2016 21:32:29 +0100
       
       Add modification field in database
       
       The field is the last in the entry list and represents seconds since the
       epoch. The time written on listing entries is converted to local time.
       
       Diffstat:
         pee.scm                             |       9 +++++----
         todo.org                            |       2 +-
       
       2 files changed, 6 insertions(+), 5 deletions(-)
       ---
 (DIR) diff --git a/pee.scm b/pee.scm
       @@ -239,10 +239,11 @@
          (printf "~a Version ~a -- ~a~%" program-name program-version program-description))
        
        (define (print-without-password e)
       -  (printf "Account: ~a\tUser: ~a\tComment: ~a~%"
       +  (printf "Account: ~a\tUser: ~a\tComment: ~a\tLast changed: ~a~%"
                  (first e)
                  (second e)
       -          (fourth e)))
       +          (fourth e)
       +          (time->string (seconds->local-time (fifth e)) "%Y-%M-%d %H:%M:%S")))
        
        (define (do-add db-name db p e)
          (when (alist-ref e db equal?)
       @@ -252,7 +253,7 @@
                (password (new-password))
                (comment (prompt-for "Comment")))
            (encrypt-file db-name
       -                  (cons (list e user password comment) db)
       +                  (cons (list e user password comment (current-seconds)) db)
                          p)
            (print "Entry for " e " added.")))
        
       @@ -265,7 +266,7 @@
                                       (new-password)
                                       (second e))))
                     (encrypt-file db-name
       -                           (alist-update account (list user password comment) db equal?)
       +                           (alist-update account (list user password comment (current-seconds)) db equal?)
                                   p)
                      (print "Entry '" account "' has been updated."))))
                (else (print "Error: Entry for '" account "' not found.")
 (DIR) diff --git a/todo.org b/todo.org
       @@ -2,4 +2,4 @@
        ** Do we need to feed arc4random into tweetnacl for better randomness?
        ** initialise-db should not overwrite the file so easily
        ** Add a version counter to the file, so we can make assumptions about the file format (maybe with a '@ entry?)
       -** Add a last modified date to entries, this should make it easier when merging two databases
       +