diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-27 22:19:58 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-27 22:19:58 +0400 |
| commit | 5c708716e9daf0397a25047a833a232633f7570c (patch) | |
| tree | bed6be19eeef10d2a82d34a06890bedefd49aab1 /examples/echo | |
| parent | src/channel-type.c: Set default write buffer size to 1 byte. (diff) | |
| download | guile-ssh-5c708716e9daf0397a25047a833a232633f7570c.tar.gz | |
examples/echo/client.scm (main): Print MD5 sum.
* examples/echo/client.scm (main): Print MD5 sum if the server is
not known.
Diffstat (limited to 'examples/echo')
| -rwxr-xr-x | examples/echo/client.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/echo/client.scm b/examples/echo/client.scm index 5bd4468..05fb0e4 100755 --- a/examples/echo/client.scm +++ b/examples/echo/client.scm @@ -140,7 +140,9 @@ errors." (connect! session) (case (authenticate-server session) - ((not-known) (display " The server is unknown. Please check MD5.\n"))) + ((not-known) + (display "The server is unknown. Please check MD5 sum:\n") + (format #t " ~a~%" (get-public-key-hash session)))) (let* ((private-key (get-prvkey session identity-file)) (public-key (get-pubkey session private-key))) |