gnu: vm: Add a 'guest' account.
* gnu/system/vm.scm (system-qemu-image): Add a "guest" user and a "users" user group. Make /home/guest. Add /etc/group. Update /etc/issue to mention it.
This commit is contained in:
parent
16a0e9dc34
commit
8bc755c08c
|
@ -481,13 +481,24 @@ Happy birthday, GNU! http://www.gnu.org/gnu30
|
||||||
(uid 0) (gid 0)
|
(uid 0) (gid 0)
|
||||||
(comment "System administrator")
|
(comment "System administrator")
|
||||||
(home-directory "/")
|
(home-directory "/")
|
||||||
|
(shell bash-file))
|
||||||
|
(user-account
|
||||||
|
(name "guest")
|
||||||
|
(password "")
|
||||||
|
(uid 1000) (gid 100)
|
||||||
|
(comment "Guest of GNU")
|
||||||
|
(home-directory "/home/guest")
|
||||||
(shell bash-file))))
|
(shell bash-file))))
|
||||||
(passwd (passwd-file store accounts))
|
(passwd (passwd-file store accounts))
|
||||||
(shadow (passwd-file store accounts #:shadow? #t))
|
(shadow (passwd-file store accounts #:shadow? #t))
|
||||||
(group (group-file store
|
(group (group-file store
|
||||||
(list (user-group
|
(list (user-group
|
||||||
(name "root")
|
(name "root")
|
||||||
(id 0)))))
|
(id 0))
|
||||||
|
(user-group
|
||||||
|
(name "users")
|
||||||
|
(id 100)
|
||||||
|
(members '("guest"))))))
|
||||||
(pam.d-drv (pam-services->directory store %pam-services))
|
(pam.d-drv (pam-services->directory store %pam-services))
|
||||||
(pam.d (derivation->output-path pam.d-drv))
|
(pam.d (derivation->output-path pam.d-drv))
|
||||||
|
|
||||||
|
@ -522,7 +533,7 @@ This image features the GNU Guix package manager, which was used to
|
||||||
build it (http://www.gnu.org/software/guix/). The init system is
|
build it (http://www.gnu.org/software/guix/). The init system is
|
||||||
GNU dmd (http://www.gnu.org/software/dmd/).
|
GNU dmd (http://www.gnu.org/software/dmd/).
|
||||||
|
|
||||||
You can log in as 'root' with no password.
|
You can log in as 'guest' or 'root' with no password.
|
||||||
"))
|
"))
|
||||||
|
|
||||||
(populate `((directory "/etc")
|
(populate `((directory "/etc")
|
||||||
|
@ -530,13 +541,15 @@ You can log in as 'root' with no password.
|
||||||
(directory "/var/run/nscd")
|
(directory "/var/run/nscd")
|
||||||
("/etc/shadow" -> ,shadow)
|
("/etc/shadow" -> ,shadow)
|
||||||
("/etc/passwd" -> ,passwd)
|
("/etc/passwd" -> ,passwd)
|
||||||
|
("/etc/group" -> ,group)
|
||||||
("/etc/login.defs" -> "/dev/null")
|
("/etc/login.defs" -> "/dev/null")
|
||||||
("/etc/pam.d" -> ,pam.d)
|
("/etc/pam.d" -> ,pam.d)
|
||||||
("/etc/resolv.conf" -> ,resolv.conf)
|
("/etc/resolv.conf" -> ,resolv.conf)
|
||||||
("/etc/profile" -> ,bashrc)
|
("/etc/profile" -> ,bashrc)
|
||||||
("/etc/issue" -> ,issue)
|
("/etc/issue" -> ,issue)
|
||||||
(directory "/var/nix/gcroots")
|
(directory "/var/nix/gcroots")
|
||||||
("/var/nix/gcroots/default-profile" -> ,profile)))
|
("/var/nix/gcroots/default-profile" -> ,profile)
|
||||||
|
(directory "/home/guest")))
|
||||||
(out (derivation->output-path
|
(out (derivation->output-path
|
||||||
(package-derivation store mingetty)))
|
(package-derivation store mingetty)))
|
||||||
(boot (add-text-to-store store "boot"
|
(boot (add-text-to-store store "boot"
|
||||||
|
|
Loading…
Reference in New Issue