MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-08-28 04:46:59 -04:00
Code Issues Packages Projects Releases Wiki Activity

example.lsp: enable to specify options for ssh

Browse Source
This commit is contained in:
HAYAMA Kaoru
2025-08-16 19:06:40 +09:00
parent aab753da48
commit 0c6b29011c
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+5 -5
View File
@@ -1,18 +1,18 @@
(block main
(if (< (length *argv*) 2)
(progn
(format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
(format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
(return-from main nil)))
(let ((account (car *argv*))
(password (cadr *argv*))
(sshpid nil))
(let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
(password (elt *argv* (- (length *argv*) 1)))
(sshpid nil))
(with-handler
(lambda (c)
(format (error-output) "ssh is not found~%")
(setq sshpid (spawn "ssh" account)))
(return-from main nil))
(setq sshpid (apply #'spawn "ssh" ssh-param)))
(expect*
("[fingerprint])?"