23/24: system: bare-hurd.tmpl: Add openssh client and service.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 4046362af8be000976ef1bea7624cf536df34ce4
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Thu May 7 19:14:07 2020 +0200

    system: bare-hurd.tmpl: Add openssh client and service.
    
    This:
    
        ./pre-inst-env guix system disk-image --no-grafts --target=i586-pc-gnu \
            gnu/system/examples/bare-hurd.tmpl
    
    now produces a VM image with functional ssh daemon that you may run like
    
        guix environment --ad-hoc qemu -- qemu-system-i386 -enable-kvm -m 512 \
         -device rtl8139,netdev=net0 -netdev 
user,id=net0,hostfwd=tcp:127.0.0.1:10022-:2222 \
         -snapshot -hda <the-image>
    
    * gnu/system/examples/bare-hurd.tmpl (%hurd-os)[packages]: Add openssh.
    [services]: Add openssh-service.
---
 gnu/system/examples/bare-hurd.tmpl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/system/examples/bare-hurd.tmpl 
b/gnu/system/examples/bare-hurd.tmpl
index 16f2041..6b42155 100644
--- a/gnu/system/examples/bare-hurd.tmpl
+++ b/gnu/system/examples/bare-hurd.tmpl
@@ -11,6 +11,8 @@
 ;; it boots, but needs activation, more setup and services to be useful.
 
 (use-modules (gnu) (gnu system hurd) (guix utils))
+(use-service-modules ssh)
+(use-package-modules ssh)
 
 (define %hurd-os
   (operating-system
@@ -25,7 +27,14 @@
                         %base-file-systems))
     (host-name "guixygnu")
     (timezone "Europe/Amsterdam")
-    (packages %base-packages/hurd)
-    (services %base-services/hurd)))
+    (packages (cons openssh %base-packages/hurd))
+    (services (cons (service openssh-service-type
+                             (openssh-configuration
+                              (use-pam? #f)
+                              (port-number 2222)
+                              (permit-root-login #t)
+                              (allow-empty-passwords? #t)
+                              (password-authentication? #t)))
+               %base-services/hurd))))
 
 %hurd-os