diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-31 14:55:28 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-31 14:55:28 +0400 |
| commit | 644c7802614b6f52331e9c6893579e4a1e7a3253 (patch) | |
| tree | 8c4a0dfafb3f217118f5236df6d4a8fbce6a97ab /examples/echo | |
| parent | README: Update requirements. (diff) | |
| parent | tests/client-server.scm: Improve message handling (diff) | |
| download | guile-ssh-644c7802614b6f52331e9c6893579e4a1e7a3253.tar.gz | |
Merge branch 'master' into libssh06
Conflicts:
ChangeLog
Diffstat (limited to 'examples/echo')
| -rw-r--r-- | examples/echo/client.scm.in | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/echo/client.scm.in b/examples/echo/client.scm.in index 861f794..28d58d8 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -134,8 +134,9 @@ Options: (case (authenticate-server session) ((not-known) - (display "The server is unknown. Please check MD5 sum:\n") - (format #t " ~a~%" (get-public-key-hash session)))) + (let ((hash (get-public-key-hash session))) + (display "The server is unknown. Please check MD5 sum:\n") + (format #t " ~a~%" (bytevector->hex-string hash))))) (let ((private-key (get-prvkey session identity-file))) |