From 0a1b5cad3d302d937a29dec95e805488a26b34e8 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 12 Oct 2015 07:11:51 +0200 Subject: [PATCH 2/2] services: Add entry for pam_limits to mingetty-pam-service. * gnu/services/base.scm (mingetty-pam-service): Add pam-entry for PAM module "pam_limits.so" to session field. --- gnu/services/base.scm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index adafe1b..4243327 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -438,11 +438,17 @@ stopped before 'kill' is called." ;; Let 'login' be known to PAM. All the mingetty services will have that ;; PAM service, but that's fine because they're all identical and duplicates ;; are removed. - (list (unix-pam-service "login" - #:allow-empty-passwords? - (mingetty-configuration-allow-empty-passwords? conf) - #:motd - (mingetty-configuration-motd conf)))) + (let ((login (unix-pam-service "login" + #:allow-empty-passwords? + (mingetty-configuration-allow-empty-passwords? conf) + #:motd + (mingetty-configuration-motd conf)))) + (list (pam-service + (inherit login) + (session (cons (pam-entry + (control "required") + (module "pam_limits.so")) + (pam-service-session login))))))) (define mingetty-dmd-service (match-lambda -- 2.5.0