cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-12 11:20:05 +01:00
Code Issues

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

Browse Source
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

9
src/os-utils.lisp
View File

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