From 4df961db1f55dff686bef3d998b88fe524feba9d Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 19 Jun 2021 15:26:12 +0200 Subject: [PATCH] ssh-msg-userauth-banner --- syndicate-ssh/ssh-message-types.rkt | 5 +++++ syndicate-ssh/ssh-session.rkt | 12 +++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/syndicate-ssh/ssh-message-types.rkt b/syndicate-ssh/ssh-message-types.rkt index 40241ed..4657d27 100644 --- a/syndicate-ssh/ssh-message-types.rkt +++ b/syndicate-ssh/ssh-message-types.rkt @@ -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?) diff --git a/syndicate-ssh/ssh-session.rkt b/syndicate-ssh/ssh-session.rkt index c0bc3a0..3570cca 100644 --- a/syndicate-ssh/ssh-session.rkt +++ b/syndicate-ssh/ssh-session.rkt @@ -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"))