diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-27 01:35:04 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-05-27 01:35:04 +0400 |
| commit | 970fb3e316b25b9918224bae0c90315dc24af48f (patch) | |
| tree | 8e3a820de3669e07dfea3ce2b0c59ad0bee767cb /examples | |
| parent | ssh/Makefile.am: Require the library to produce .go files (diff) | |
| download | guile-ssh-970fb3e316b25b9918224bae0c90315dc24af48f.tar.gz | |
Perform basic work on porting of Guile-SSH on libssh 0.6.3
Perform basic work on porting of Guile-SSH on libssh 0.6.3.
Currently it compiles with 0.6.3 and 4 of 5 tests pass. There is
some work that should be done.
* ssh/auth.c (guile_ssh_userauth_pubkey): Update. Change argument
list. All callers updated.
(guile_ssh_userauth_autopubkey_x): Update. Rename to
`guile_ssh_userauth_pubkey_auto_x'. Change argument list. All
callers updated.
(guile_ssh_userauth_agent_x): New procedure.
* ssh/auth.scm: Update.
* ssh/key-func.c (public_key_to_ssh_string): Remove.
(guile_ssh_public_key_to_string): Update.
(guile_ssh_private_key_from_file): Update.
(guile_ssh_public_key_from_private_key): Update.
(guile_ssh_public_key_from_file): Update. Change argument list.
* ssh/key-type.c (free_key_smob): Update.
(scm_from_ssh_key_type): Add ECDSA.
(guile_ssh_key_get_type): Update.
(_private_key_p, _public_key_p): Update.
* ssh/key-type.h: Update.
* ssh/message-func.c (get_auth_req): Update.
* ssh/Makefile.am (libguile_ssh_la_LDFLAGS): Add `-lssh'.
* tests/client-server.scm ("userauth-pubkey!, success"): Update.
* examples/sssh.scm.in (main): Update.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/sssh.scm.in | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/sssh.scm.in b/examples/sssh.scm.in index e58819b..5856ce4 100644 --- a/examples/sssh.scm.in +++ b/examples/sssh.scm.in @@ -178,7 +178,7 @@ Options: (format-debug " MD5 hash: ~a~%" (get-public-key-hash session)) (print-debug "5. userauth-autopubkey!\n") - (let ((res (userauth-autopubkey! session))) + (let ((res (userauth-pubkey-auto! session))) (if (eqv? res 'error) (handle-error session))) |