forked from syndicate-lang/marketplace-ssh-2014
ssh-msg-userauth-banner
This commit is contained in:
parent
10e5e2cf91
commit
4df961db1f
|
@ -27,6 +27,7 @@
|
||||||
(struct-out ssh-msg-userauth-request)
|
(struct-out ssh-msg-userauth-request)
|
||||||
(struct-out ssh-msg-userauth-failure)
|
(struct-out ssh-msg-userauth-failure)
|
||||||
(struct-out ssh-msg-userauth-success)
|
(struct-out ssh-msg-userauth-success)
|
||||||
|
(struct-out ssh-msg-userauth-banner)
|
||||||
(struct-out ssh-msg-global-request)
|
(struct-out ssh-msg-global-request)
|
||||||
(struct-out ssh-msg-request-success)
|
(struct-out ssh-msg-request-success)
|
||||||
(struct-out ssh-msg-request-failure)
|
(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-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
|
(define-ssh-message-type ssh-msg-global-request SSH_MSG_GLOBAL_REQUEST
|
||||||
(string request-name)
|
(string request-name)
|
||||||
(boolean want-reply?)
|
(boolean want-reply?)
|
||||||
|
|
|
@ -333,7 +333,17 @@
|
||||||
(at conn-ds
|
(at conn-ds
|
||||||
(send! (outbound-packet (ssh-msg-service-accept service)))
|
(send! (outbound-packet (ssh-msg-service-accept service)))
|
||||||
(with-incoming-task/react
|
(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
|
(cond
|
||||||
[(and (positive? (bytes-length user-name))
|
[(and (positive? (bytes-length user-name))
|
||||||
(equal? service-name #"ssh-connection"))
|
(equal? service-name #"ssh-connection"))
|
||||||
|
|
Loading…
Reference in New Issue