diff options
| author | Lars-Dominik Braun <ldb@leibniz-psychology.org> | 2020-02-19 11:13:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-02-20 11:14:44 +0100 |
| commit | 35f35111678e6622301b414f3d464acb71e106bb (patch) | |
| tree | d7816a890986bdd99a58038713a39cb48b69a85c /guix | |
| parent | ef30ddb2c28cd3304b7f78d8782369b5807676f2 (diff) | |
| download | patches-35f35111678e6622301b414f3d464acb71e106bb.tar patches-35f35111678e6622301b414f3d464acb71e106bb.tar.gz | |
ssh: Add Kerberos-support to ssh:// daemon URLsbase-for-series-2946
* guix/ssh.scm (open-ssh-session): Fall back to GSSAPI if public key
authentication does not work
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/ssh.scm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/guix/ssh.scm b/guix/ssh.scm index 291ce20b61..56b49b177f 100644 --- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -157,11 +157,16 @@ server at '~a': ~a") (session-set! session 'timeout timeout) session) (x - (disconnect! session) - (raise (condition - (&message - (message (format #f (G_ "SSH authentication failed for '~a': ~a~%") - host (get-error session))))))))) + (match (userauth-gssapi! session) + ('success + (session-set! session 'timeout timeout) + session) + (x + (disconnect! session) + (raise (condition + (&message + (message (format #f (G_ "SSH authentication failed for '~a': ~a~%") + host (get-error session))))))))))) (x ;; Connection failed or timeout expired. (raise (condition |