MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-08-27 20:36:34 -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
(if (< (length args) 2)
(progn
(format (error-output) "Usage: ~A ~A HOSTNAME PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil)
)
)
(defglobal host (car args))
(format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil)))
(defglobal account (car 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*
("[fingerprint])?"
(sendln "yes")
(expect "password: ")
(sendln password)
)
(sendln password))
("password: "
(sendln password)
)
("Connection refused"
(return-from main nil)
)
(sendln password))
(("Connection refused"
"Could not resolve hostname")
(return-from main nil))
(30
(format (error-output) "TIME OUT~%")
(return-from main nil)))
(expect*
("Permission denied"
(return-from main nil)
)
)
(expect "$ ")
("$ "))
(sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ")
(sendln "exit")
)
(sendln "exit"))
```
Install
example.lsp
+20 -17
View File
@@ -1,33 +1,36 @@
(block main
(if (< (length args) 2)
(progn
(format (error-output) "Usage: ~A ~A HOSTNAME PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil)
)
)
(defglobal host (car args))
(format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil)))
(defglobal account (car 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*
("[fingerprint])?"
(sendln "yes")
(expect "password: ")
(sendln password)
)
(sendln password))
("password: "
(sendln password)
)
("Connection refused"
(return-from main nil)
)
(sendln password))
(("Connection refused"
"Could not resolve hostname")
(return-from main nil))
(30
(format (error-output) "TIME OUT~%")
(return-from main nil)))
(expect*
("Permission denied"
(return-from main nil)
)
)
(expect "$ ")
("$ "))
(sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ")
(sendln "exit")
)
(sendln "exit"))