From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:57958) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hi6sh-0006wV-1p for guix-patches@gnu.org; Mon, 01 Jul 2019 20:42:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hi6sH-000540-3z for guix-patches@gnu.org; Mon, 01 Jul 2019 20:42:46 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:37510) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hi6Tl-0007qV-To for guix-patches@gnu.org; Mon, 01 Jul 2019 20:17:33 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hi6Tl-0004uN-O5 for guix-patches@gnu.org; Mon, 01 Jul 2019 20:17:01 -0400 Subject: [bug#36404] [PATCH 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> Date: Mon, 01 Jul 2019 20:16:13 -0400 In-Reply-To: <87imsl9tsx.fsf_-_@sdf.lonestar.org> (Jakob L. Kreuze's message of "Mon, 01 Jul 2019 20:14:22 -0400") Message-ID: <87ef399tpu.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----- iQIzBAEBCAAdFiEEa1VJLOiXAjQ2BGSm9Qb9Fp2P2VoFAl0aok0ACgkQ9Qb9Fp2P 2VrLag//W5i6JFyqJbMWgFFMBBhFS2APNje5iw8QAfJnhhh+ybKBIleLXT0O1Mhj nK8EuFdb6BOg+RsFkgxgQxnuQ1h3J7FIv4baTZlkoy/FmUtXuMFgJQsGpF7JqmQY HdgZyJqZc+kqQxqxn1dE0f8KZCWMyBJJq1SV8G5t5qdexMTNxtwN36HTakWmM8UU lKPuUxmii4b51FlBj2zlbM/mbiUkEgdbxHi0+ePPSbhMHBr37TmEIrkbhlTIn/NO f7NTB1MmxITI55dLXiHikE/xrBQaxaYc8/HOU7ff7Ky1lNMFmmEy0/hrS+W9VAVp upuLgz8s6qVDg0dRGhaVI/3fmpKGfxL3npD4xtFg7WtD/ttR7Jtw2qzhsdAHHOYh vIXR0xTn4sDxuSytW5caXfiHFkusBlqf6YI81Kj5zBAQZoMUwvnRc6q6oQbsWzWX 0x6TbWi72/5L3aW5rVonsH2Q0Aw7M8HXdrcEX5o0dYM15GSUhsqKwB0LKwP86bxN WF+Qu3nPBSbfaA4+GGymlRbCKolnHGYEp+UtqDDxpreJ8hcrlRT+HluW/YmbhaZg 0o6/TNzrFi1CFkRJemQJLI4K3bUaOcfQXXIwZVA+bmwaIMt95+MPh+udWpslGsLc IefOh8sF3tMrJJ6mCvZ2Bm4yn2DxoIZ1r52+aYtGuks6AcPbRww= =Eta+ -----END PGP SIGNATURE----- --=-=-=--