cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prevented 'ssl-key-has-empty-password-p' to print on console the prompt asking for key password.

This commit is contained in:
cage 2024-02-17 11:05:58 +01:00
parent b9b59f9de6
commit e0589e56f1
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/os-utils.lisp
View File

@ -185,14 +185,15 @@
output-string)))))))))
(defun ssl-key-has-empty-password-p (key-path)
(let* ((cmd-args (format nil "rsa -noout -text -in ~a" key-path))
(process (run-external-program +openssl-bin+
(text-utils:split-words cmd-args)
:input nil
:output nil
:error :output
:wait t)))
(process-exit-success-p process)))
(with-input-from-string (passphrase-stream (format nil "~%"))
(let* ((cmd-args (format nil "rsa -passin stdin -noout -text -in ~a" key-path))
(process (run-external-program +openssl-bin+
(text-utils:split-words cmd-args)
:input passphrase-stream
:output nil
:error t
:wait t)))
(process-exit-success-p process))))
(defun send-to-pipe (data program-and-args)