From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:46033) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hiN1c-00089t-26 for guix-patches@gnu.org; Tue, 02 Jul 2019 13:57:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hiN1a-0008EB-3O for guix-patches@gnu.org; Tue, 02 Jul 2019 13:57:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:39064) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hiN1Z-0008Dt-QA for guix-patches@gnu.org; Tue, 02 Jul 2019 13:57:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hiN1Z-0008Vb-ML for guix-patches@gnu.org; Tue, 02 Jul 2019 13:57:01 -0400 Subject: [bug#36404] [PATCH v4 1/4] ssh: Add 'identity' keyword to 'open-ssh-session'. Resent-Message-ID: From: zerodaysfordays@sdf.lonestar.org (Jakob L. Kreuze) References: <87o92ianbj.fsf@sdf.lonestar.org> <87o92glap5.fsf@dustycloud.org> <878sthoqzi.fsf@gnu.org> <87imsl9tsx.fsf_-_@sdf.lonestar.org> <87ef399tpu.fsf_-_@sdf.lonestar.org> <87a7dx9tog.fsf_-_@sdf.lonestar.org> <875zol9tn2.fsf_-_@sdf.lonestar.org> <871rz99tl9.fsf_-_@sdf.lonestar.org> <875zoldqah.fsf@kyleam.com> <87muhwtmfp.fsf@sdf.lonestar.org> <871rz874l2.fsf@kyleam.com> <877e90tj7l.fsf_-_@sdf.lonestar.org> Date: Tue, 02 Jul 2019 13:56:12 -0400 In-Reply-To: <877e90tj7l.fsf_-_@sdf.lonestar.org> (Jakob L. Kreuze's message of "Tue, 02 Jul 2019 13:55:10 -0400") Message-ID: <8736jotj5v.fsf_-_@sdf.lonestar.org> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Cc: 36404@debbugs.gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable * guix/ssh.scm (open-ssh-session): Add 'identity' keyword argument. =2D-- guix/ssh.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/guix/ssh.scm b/guix/ssh.scm index 9b9baf54e..9bf10b9a0 100644 =2D-- a/guix/ssh.scm +++ b/guix/ssh.scm @@ -57,12 +57,14 @@ (define %compression "zlib@openssh.com,zlib") =20 =2D(define* (open-ssh-session host #:key user port +(define* (open-ssh-session host #:key user port identity (compression %compression)) =2D "Open an SSH session for HOST and return it. When USER and PORT are #= f, use =2Ddefault values or whatever '~/.ssh/config' specifies; otherwise use them. =2DThrow an error on failure." + "Open an SSH session for HOST and return it. IDENTITY specifies the pat= h 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' specifies; +otherwise use them. Throw an error on failure." (let ((session (make-session #:user user + #:identity identity #:host host #:port port #:timeout 10 ;seconds =2D-=20 2.22.0 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEa1VJLOiXAjQ2BGSm9Qb9Fp2P2VoFAl0bmrwACgkQ9Qb9Fp2P 2VrXzA/9EfDzArREAhXNMtKsjhKrckNiyb51u6n5cxjIcH6Qk+g8lKMMGP2AgA0i B9tVrw/bQ7xzN2a2WJhwSI5A54J6DbEAO8AQ9VWzRUAzKmsecJ6DwPt5r7nIXGdV PnF5/n5bOKWc9FE+bTi5LoWIV6AKYSWzULzjxOdkJIXszH5XlHkR0QOJkhySqHMS cAXGOgsTy8sE80oC+b9dnJuQyvL15H8zTr94kWXfcvWjwAcOZlkH8bIxDh9GiLun LA5qQs/AyA8aEjYbg3Y7FgaNoq1wAjd1++UrKl8PXZl75DPjCNWOmsQ1CK9aDZWk FF9KYPfR0cBXeH66tHasAnJ0UOA+pJgfmRYgE3lDwueC9B7U7vqSyG5RlVq7l7Wv eJN2Di4WP2IHMKKEEOSSlQExmOIdRo5ID2VYYXw2bGF0Q79Pwi3Xa/lNqjCjvlwT yLidZH79af9k+Ot2kvBgbcRvkwdG5jbKX1/5wRYNL9GDQHOodPRdoMGABlNVesub aLjlVNNnVekag3uWln+UrTdBqgPxUVwnrGsX3KdmdwlU99HXWVOCSDbjKWqV91qr gmRqkSOXASMoPZckYQyOyYbW3p496CIxXyHM42Xt0CKGUiJKe3gf7uvqBhvhZ3e9 yuxYWs16uzVnzV0CMZUTZRR2EJayAQoCovYfJI/riR/vDuy+W4E= =wCyF -----END PGP SIGNATURE----- --=-=-=--