syndicate-lang
/
syndicate-ssh
forked from syndicate-lang/marketplace-ssh-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ssh-msg-userauth-banner

This commit is contained in:
Tony Garnock-Jones 2021-06-19 15:26:12 +02:00
parent 10e5e2cf91
commit 4df961db1f
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate-ssh/ssh-message-types.rkt
View File

@ -27,6 +27,7 @@
(struct-out ssh-msg-userauth-request)
(struct-out ssh-msg-userauth-failure)
(struct-out ssh-msg-userauth-success)
(struct-out ssh-msg-userauth-banner)
(struct-out ssh-msg-global-request)
(struct-out ssh-msg-request-success)
(struct-out ssh-msg-request-failure)
@ -318,6 +319,10 @@
(define-ssh-message-type ssh-msg-userauth-success SSH_MSG_USERAUTH_SUCCESS)
(define-ssh-message-type ssh-msg-userauth-banner SSH_MSG_USERAUTH_BANNER
(string message)
(string language))
(define-ssh-message-type ssh-msg-global-request SSH_MSG_GLOBAL_REQUEST
(string request-name)
(boolean want-reply?)

12
syndicate-ssh/ssh-session.rkt
View File

@ -333,7 +333,17 @@
(at conn-ds
(send! (outbound-packet (ssh-msg-service-accept service)))
(with-incoming-task/react
(SSH_MSG_USERAUTH_REQUEST _ (ssh-msg-userauth-request $user-name $service-name _ _))
(SSH_MSG_USERAUTH_REQUEST _ (ssh-msg-userauth-request $user-name
$service-name
$method-name
$extension))
(log-info "SSH-MSG-USERAUTH-REQUEST ~s ~s ~s ~s"
user-name
service-name
method-name
extension)
(send! (outbound-packet
(ssh-msg-userauth-banner #"Welcome to Racket SSH!\r\n" #"")))
(cond
[(and (positive? (bytes-length user-name))
(equal? service-name #"ssh-connection"))