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 and README: add error cases

Browse Source 
- "Could not resolve hostname"
- error catch when ssh is not found
- rename variables
- password error
This commit is contained in:
HAYAMA_Kaoru
2024-12-04 22:41:32 +09:00
parent 1d78fec6c3
commit 29608ecbaa
2 changed files with 40 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+20 -17
View File
@@ -15,36 +15,39 @@ Lispect
(block main (block main
(if (< (length args) 2) (if (< (length args) 2)
(progn (progn
(format (error-output) "Usage: ~A ~A HOSTNAME PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME) (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil) (return-from main nil)))
) (defglobal account (car args))
)
(defglobal host (car args))
(defglobal password (cadr args)) (defglobal password (cadr args))
(spawn "ssh" host) (with-handler
(lambda (c)
(format (error-output) "ssh is not found~%")
(return-from main nil))
(spawn "ssh" account))
(expect* (expect*
("[fingerprint])?" ("[fingerprint])?"
(sendln "yes") (sendln "yes")
(expect "password: ") (expect "password: ")
(sendln password) (sendln password))
)
("password: " ("password: "
(sendln password) (sendln password))
) (("Connection refused"
("Connection refused" "Could not resolve hostname")
(return-from main nil) (return-from main nil))
)
(30 (30
(format (error-output) "TIME OUT~%") (format (error-output) "TIME OUT~%")
(return-from main nil)))
(expect*
("Permission denied"
(return-from main nil) (return-from main nil)
) )
) ("$ "))
(expect "$ ")
(sendln "echo YOU CAN CALL SOME COMMAND HERE") (sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ") (expect "$ ")
(sendln "exit") (sendln "exit"))
)
``` ```
Install Install
example.lsp
+20 -17
View File
@@ -1,33 +1,36 @@
(block main (block main
(if (< (length args) 2) (if (< (length args) 2)
(progn (progn
(format (error-output) "Usage: ~A ~A HOSTNAME PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME) (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil) (return-from main nil)))
) (defglobal account (car args))
)
(defglobal host (car args))
(defglobal password (cadr args)) (defglobal password (cadr args))
(spawn "ssh" host) (with-handler
(lambda (c)
(format (error-output) "ssh is not found~%")
(return-from main nil))
(spawn "ssh" account))
(expect* (expect*
("[fingerprint])?" ("[fingerprint])?"
(sendln "yes") (sendln "yes")
(expect "password: ") (expect "password: ")
(sendln password) (sendln password))
)
("password: " ("password: "
(sendln password) (sendln password))
) (("Connection refused"
("Connection refused" "Could not resolve hostname")
(return-from main nil) (return-from main nil))
)
(30 (30
(format (error-output) "TIME OUT~%") (format (error-output) "TIME OUT~%")
(return-from main nil)))
(expect*
("Permission denied"
(return-from main nil) (return-from main nil)
) )
) ("$ "))
(expect "$ ")
(sendln "echo YOU CAN CALL SOME COMMAND HERE") (sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ") (expect "$ ")
(sendln "exit") (sendln "exit"))
)