Added option --debug <logfile> (#4)

Will log unknown commands to <logfile>.PID

1 files changed, 14 insertions, 3 deletions

diff --git a/pinentry-rofi.scm b/pinentry-rofi.scm
index b2d194b..32be279 100755
--- a/pinentry-rofi.scm
+++ b/pinentry-rofi.scm
@@ -38,14 +38,15 @@
   (exit #f))
 
 (define-record-type <pinentry>
-  (make-pinentry ok prompt desc visibility display)
+  (make-pinentry ok prompt desc visibility display logfile)
   pinentry?
   (ok pinentry-ok set-pinentry-ok!)
   (prompt pinentry-prompt set-pinentry-prompt!)
   (desc pinentry-desc set-pinentry-desc!)
   (visibility pinentry-visibility set-pinentry-visibility!)
   (display pinentry-display set-pinentry-display!)
-  (error pinentry-error set-pinentry-error!))
+  (error pinentry-error set-pinentry-error!)
+  (logfile pinentry-logfile set-pinentry-logfile!))
 
 (define-syntax-rule (set-and-return! val expr)
   "Set val to expr and return val"
@@ -195,6 +196,10 @@ touch-file=/run/user/1000/gnupg/S.gpg-agent"
        ((pinentry-bye pinentry line))
        (#t (begin
              (format #t "BYE\n")
+             (let ((log (pinentry-logfile pinentry)))
+               (when (file-port? log)
+                 (format log "Unknown command: ~s\n" line)
+                 (force-output log)))
              (force-output)
              (exit #f))))
       (when (pinentry-ok pinentry)
@@ -207,16 +212,22 @@ touch-file=/run/user/1000/gnupg/S.gpg-agent"
           '((display (single-char #\d) (value #t))
             (xauthority (single-char #\a) (value #t))
             (version (single-char #\v) (value #f))
+            (debug (value #t))
             (help (single-char #\h) (value #f))))
          (default-display ":0")
          (options (getopt-long (command-line) option-spec))
          (pinentry (make-pinentry #t "Passphrase:" "" #f
-                                  (option-ref options 'display default-display))))
+                                  (option-ref options 'display default-display)
+                                  (let ((logfile (option-ref options 'debug #f)))
+                                    (when logfile
+                                      (open-output-file
+                                       (format #f "~a.~a" logfile (getpid))))))))
     (when (option-ref options 'help #f)
       (format #t "\
 Usage: ~a [OPTIONS]
 Options:
   -d, --display DISPLAY Set display, default is ~s.
+      --debug LOGFILE   Run in debug mode and output log to LOGFILE
   -v, --version         Display version.
   -h, --help            Display this help.
 Author: