diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 00:20:11 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-26 00:20:11 +0200 |
commit | 7facbf2b58f80afffedbb9230ec7ab9b61232dfe (patch) | |
tree | 7ab3870f77f596e548ccd0e50f5ea16d1c32f434 /gnu/system/linux.scm | |
parent | 1fa49a2c4636c0f35972c16f6bd2d28a4424b821 (diff) | |
parent | 834b5c80763eba42018606a674bcc53bfeca10eb (diff) | |
download | guix-7facbf2b58f80afffedbb9230ec7ab9b61232dfe.tar.gz guix-7facbf2b58f80afffedbb9230ec7ab9b61232dfe.zip |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/system/linux.scm')
-rw-r--r-- | gnu/system/linux.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/gnu/system/linux.scm b/gnu/system/linux.scm index b2daa13e06..6aebe159ba 100644 --- a/gnu/system/linux.scm +++ b/gnu/system/linux.scm @@ -125,9 +125,10 @@ (let ((unix (pam-entry (control "required") (module "pam_unix.so")))) - (lambda* (name #:key allow-empty-passwords?) + (lambda* (name #:key allow-empty-passwords? motd) "Return a standard Unix-style PAM service for NAME. When -ALLOW-EMPTY-PASSWORDS? is true, allow empty passwords." +ALLOW-EMPTY-PASSWORDS? is true, allow empty passwords. When MOTD is true, it +should be the name of a file used as the message-of-the-day." ;; See <http://www.linux-pam.org/Linux-PAM-html/sag-configuration-example.html>. (let ((name* name)) (pam-service @@ -140,6 +141,12 @@ ALLOW-EMPTY-PASSWORDS? is true, allow empty passwords." (arguments '("nullok"))) unix))) (password (list unix)) - (session (list unix))))))) + (session (if motd + (list unix + (pam-entry + (control "optional") + (module "pam_motd.so") + (arguments (list (string-append "motd=" motd))))) + (list unix)))))))) ;;; linux.scm ends here |