10/17: install: Enable SSH in installation image.

[Ludovic Courtès]

civodul pushed a commit to branch version-0.13.0
in repository guix.

commit f3f8938fe0c07d221ebccdf5a9a0029fda01f036
Author: Marius Bakke <address@hidden>
Date:   Mon Apr 17 22:49:23 2017 +0200

    install: Enable SSH in installation image.
    
    * gnu/system/install.scm (%installation-services): Add OPENSSH-SERVICE-TYPE.
    * doc/guix.texi (Preparing for Installation)[Networking]: Document it.
---
 doc/guix.texi          | 14 +++++++++++++-
 gnu/system/install.scm | 12 ++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 3523937..12fc806 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -36,7 +36,8 @@ Copyright @copyright{} 2017 Federico address@hidden
 Copyright @copyright{} 2017 Carlo address@hidden
 Copyright @copyright{} 2017 Thomas address@hidden
 Copyright @copyright{} 2017 address@hidden
-Copyright @copyright{} 2017 Christopher Allan Webber
+Copyright @copyright{} 2017 Christopher Allan address@hidden
+Copyright @copyright{} 2017 Marius Bakke
 
 Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -7452,6 +7453,17 @@ ping -c 3 gnu.org
 Setting up network access is almost always a requirement because the
 image does not contain all the software and tools that may be needed.
 
address@hidden installing over SSH
+If you want to, you can continue the installation remotely by starting
+an SSH server:
+
address@hidden
+herd start ssh-daemon
address@hidden example
+
+Make sure to either set a password with @command{passwd}, or configure
+OpenSSH public key authentication before logging in.
+
 @subsubsection Disk Partitioning
 
 Unless this has already been done, the next step is to partition, and
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 191ccf1..9a6febf 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2015 Mark H Weaver <address@hidden>
 ;;; Copyright © 2016 Andreas Enge <address@hidden>
+;;; Copyright © 2017 Marius Bakke <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -25,6 +26,7 @@
   #:use-module (guix monads)
   #:use-module ((guix store) #:select (%store-prefix))
   #:use-module (gnu services shepherd)
+  #:use-module (gnu services ssh)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages bootloaders)
@@ -262,6 +264,16 @@ You have been warned.  Thanks for being so brave.
           ;; To facilitate copy/paste.
           (gpm-service)
 
+          ;; Add an SSH server to facilitate remote installs.
+          (service openssh-service-type
+                   (openssh-configuration
+                    (port-number 22)
+                    (permit-root-login #t)
+                    ;; The root account is passwordless, so make sure
+                    ;; a password is set before allowing logins.
+                    (allow-empty-passwords? #f)
+                    (password-authentication? #t)))
+
           ;; Since this is running on a USB stick with a unionfs as the root
           ;; file system, use an appropriate cache configuration.
           (nscd-service (nscd-configuration