03/03: install: Use a low-memory nscd caching policy.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 61ff0a3a181f093fdcd5d5c7e374db17c5fcd8b9
Author: Ludovic Courtès <address@hidden>
Date:   Sun Dec 14 17:26:03 2014 +0100

    install: Use a low-memory nscd caching policy.
    
    * gnu/system/install.scm (%nscd-minimal-caches): New variable.
      (installation-services): Use as 'nscd-service' argument.
---
 gnu/system/install.scm |   13 ++++++++++++-
 1 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 01e7948..ab3fe42 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -145,6 +145,14 @@ configuration template file in the installation system."
               #~(unless (file-exists? #$local-template)
                   (copy-file #$template #$local-template)))))))
 
+(define %nscd-minimal-caches
+  ;; Minimal in-memory caching policy for nscd.
+  (list (nscd-cache (database 'hosts)
+                    (positive-time-to-live (* 3600 12))
+                    (negative-time-to-live 20)
+                    (persistent? #f)
+                    (max-database-size (* 5 (expt 2 20)))))) ;5 MiB
+
 (define (installation-services)
   "Return the list services for the installation image."
   (let ((motd (text-file "motd" "
@@ -206,7 +214,10 @@ You have been warned.  Thanks for being so brave.
           (console-font-service "tty5")
           (console-font-service "tty6")
 
-          (nscd-service))))
+          ;; 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
+                         (caches %nscd-minimal-caches))))))
 
 (define %issue
   ;; Greeting.