mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ssh: Add #:connection-timeout parameter to 'open-ssh-session'.

Browse source 
* guix/ssh.scm (open-ssh-session): Add #:connection-timeout parameter
and honor it.
This commit is contained in:
Ludovic Courtès 2022-06-14 09:02:43 +02:00
parent 7046e77721
commit 3d0749b4e3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/ssh.scm
View file

@ -102,7 +102,8 @@ (define (authenticate-server* session key)
(define* (open-ssh-session host #:key user port identity
host-key
(compression %compression)
(timeout 3600))
(timeout 3600)
(connection-timeout 10))
"Open an SSH session for HOST and return it. IDENTITY specifies the file
name of a private key to use for authenticating with the host. When USER,
PORT, or IDENTITY are #f, use default values or whatever '~/.ssh/config'
@ -112,15 +113,16 @@ (define* (open-ssh-session host #:key user port identity
root@example.org\"; the server is authenticated and an error is raised if its
host key is different from HOST-KEY.
Install TIMEOUT as the maximum time in seconds after which a read or write
operation on a channel of the returned session is considered as failing.
Error out if connection establishment takes more than CONNECTION-TIMEOUT
seconds. Install TIMEOUT as the maximum time in seconds after which a read or
write operation on a channel of the returned session is considered as failing.
Throw an error on failure."
(let ((session (make-session #:user user
#:identity identity
#:host host
#:port port
#:timeout 10 ;seconds
#:timeout connection-timeout
;; #:log-verbosity 'protocol
;; Prevent libssh from reading