diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-31 01:10:25 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-31 01:10:25 +0400 |
| commit | 611ad60b44534d12b13e383960c5de4bfaaaaab7 (patch) | |
| tree | 85a6ba474a13119e0847dbf655824398a9437f07 /examples/echo/client.scm.in | |
| parent | session-func.c (guile_ssh_get_public_key_hash): Return a bytevector. (diff) | |
| download | guile-ssh-611ad60b44534d12b13e383960c5de4bfaaaaab7.tar.gz | |
ssh/session.scm (bytevector->hex-string): New procedure.
* ssh/session.scm (bytevector->hex-string): New procedure.
* examples/echo/client.scm.in (main): Use it.
* examples/sssh.scm.in (main): Use it.
Diffstat (limited to 'examples/echo/client.scm.in')
| -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 ac3ecce..6a9fc41 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -142,8 +142,9 @@ errors." (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)) (public-key (get-pubkey session private-key))) |