diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-06-01 13:46:01 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-06-01 13:46:01 +0400 |
| commit | 90380bc351171baa6c375c0976dc2e19b9594969 (patch) | |
| tree | 2f5a551eb3d4985208145d9581ac330b1381dba9 /examples | |
| parent | examples/echo/client.scm.in (main): Fix a bug (diff) | |
| download | guile-ssh-90380bc351171baa6c375c0976dc2e19b9594969.tar.gz | |
ssh/auth.c: Rename some procedures
* ssh/auth.c (guile_ssh_userauth_pubkey): Rename to
`guile_ssh_userauth_public_key_x'. All callers updated.
(guile_ssh_userauth_pubkey_auto_x): Rename to
`guile_ssh_userauth_public_key_auto_x'. All callers updated.
(guile_ssh_userauth_password): Rename to
`guile_ssh_userauth_password_x'. All callers updated.
(guile_ssh_userauth_public_key_try): New procedure.
* ssh/auth.h, ssh/auth.scm: Update.
* examples/echo/client.scm.in (main): Update.
* examples/sssh.scm.in (main): Update.
* tests/client-server.scm ("userauth-pubkey!, success"): Rename to
"userauth-public-key!, success". Update.
* doc/api-auth.texi (Auth): Update. Add description of
`userauth-public-key/try' and `userauth-agent!' procedures.
* NEWS: Update.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/echo/client.scm.in | 2 | ||||
| -rw-r--r-- | examples/sssh.scm.in | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/examples/echo/client.scm.in b/examples/echo/client.scm.in index 05899c7..1d360b0 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -141,7 +141,7 @@ Options: (let ((private-key (get-prvkey session identity-file))) - (if (eqv? (userauth-pubkey! session private-key) 'error) + (if (eqv? (userauth-public-key! session private-key) 'error) (handle-error session)) (let ((channel (make-channel session))) diff --git a/examples/sssh.scm.in b/examples/sssh.scm.in index cd3a0f5..3184f1d 100644 --- a/examples/sssh.scm.in +++ b/examples/sssh.scm.in @@ -180,7 +180,7 @@ Options: (format-debug " MD5 hash: ~a~%" (bytevector->hex-string hash))) (print-debug "5. userauth-autopubkey!\n") - (let ((res (userauth-pubkey-auto! session))) + (let ((res (userauth-public-key/auto! session))) (if (eqv? res 'error) (handle-error session))) |