diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-30 13:48:08 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-30 13:48:08 +0400 |
| commit | e4a0e47804f8634a509945ea9ad8dcd6079c7b99 (patch) | |
| tree | 0bc1bfd7f489dcaadd18b50f79025c9f5950e8c3 /examples/echo | |
| parent | tests/client-server.scm ("userauth-pubkey!, success"): Remove pubkey. (diff) | |
| download | guile-ssh-e4a0e47804f8634a509945ea9ad8dcd6079c7b99.tar.gz | |
examples/echo/client.scm.in (main): Remove public key.
* examples/echo/client.scm.in (main): Public key is not needed
anymore, remove it.
(get-pubkey): Remove.
Diffstat (limited to 'examples/echo')
| -rw-r--r-- | examples/echo/client.scm.in | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/examples/echo/client.scm.in b/examples/echo/client.scm.in index ac3ecce..861f794 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -89,14 +89,6 @@ Options: (handle-error session)) prvkey)) -(define (get-pubkey session prvkey) - "Get a public SSH key from private key PRVKEY. Handle possible -errors." - (let ((pubkey (private-key->public-key prvkey))) - (if (not pubkey) - (handle-error session)) - pubkey)) - (define (read-all port) "Read all lines from the PORT." (let r ((res (read-line port 'concat)) @@ -145,10 +137,9 @@ errors." (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))) + (let ((private-key (get-prvkey session identity-file))) - (if (eqv? (userauth-pubkey! session public-key private-key) 'error) + (if (eqv? (userauth-pubkey! session private-key) 'error) (handle-error session)) (let ((channel (make-channel session))) |