 |
Fix a missing print-without-password in do-delete - pee - Pee a password manage… |
 |
git clone git://vernunftzentrum.de/pee.git |
 |
Log |
|
Files |
|
Refs |
|
LICENSE |
|
--- |
|
commit 9e7f0ab506153a53572d09812a0330702449f309 |
|
parent 54dea32f4471a500d288579e9ac4596f51d92255 |
|
Author: Christian Kellermann <[email protected]> |
|
Date: Thu, 14 Jan 2016 11:40:02 +0100 |
|
|
|
Fix a missing print-without-password in do-delete |
|
|
|
Diffstat: |
|
pee.scm | 5 ++++- |
|
|
|
1 file changed, 4 insertions(+), 1 deletion(-) |
|
--- |
|
diff --git a/pee.scm b/pee.scm |
|
@@ -280,7 +280,10 @@ |
|
(define (do-delete db-name db p account) |
|
(cond ((alist-ref account db equal?) => |
|
(lambda (e) |
|
- (print-without-password (cons account e)) |
|
+ (match-let (((user _ comment last-modified) e)) |
|
+ (printf "Account: ~a\tUser: ~a\tComment: ~a\tLast changed: ~… |
|
+ account user comment |
|
+ (time->string (seconds->local-time last-modified) "%… |
|
(cond ((ask-yes-or-no "Really delete account?") |
|
(encrypt-file db-name (alist-delete account db equal?) p) |
|
(print "Entry '" account "' deleted.")) |
