summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-08-17 15:46:46 +0200
committerLudovic Courtès <ludo@gnu.org>2013-08-17 15:46:46 +0200
commit9a9e72d5adfc2d1f4d4492793dde74f6714d6182 (patch)
tree1b4c6aea47878c71da672660bb7a03c6d76f1d9e /gnu
parentc134056a9b830f3e3bf0b1ba84b0d67a21be096f (diff)
gnu: Add Shadow.
* gnu/packages/system.scm (shadow): New variable.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/system.scm58
1 files changed, 56 insertions, 2 deletions
diff --git a/gnu/packages/system.scm b/gnu/packages/system.scm
index 5bd8cbe881..e326e498c5 100644
--- a/gnu/packages/system.scm
+++ b/gnu/packages/system.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -22,7 +22,8 @@
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
- #:use-module (gnu packages ncurses))
+ #:use-module (gnu packages ncurses)
+ #:use-module (gnu packages linux))
(define-public pies
(package
@@ -87,3 +88,56 @@ ftp(d), hostname, ifconfig, inetd, logger, ping, rcp, rexec(d),
rlogin(d), rsh(d), syslogd, talk(d), telnet(d), tftp(d), traceroute,
uucpd, and whois.")
(license gpl3+)))
+
+(define-public shadow
+ (package
+ (name "shadow")
+ (version "4.1.5.1")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "http://pkg-shadow.alioth.debian.org/releases/shadow-"
+ version ".tar.bz2"))
+ (sha256
+ (base32
+ "1yvqx57vzih0jdy3grir8vfbkxp0cl0myql37bnmi2yn90vk6cma"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(;; Assume System V `setpgrp (void)', which is the default on GNU
+ ;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.)
+ #:configure-flags '("--with-libpam" "ac_cv_func_setpgrp_void=yes")
+
+ #:phases (alist-cons-before
+ 'build 'set-nscd-file-name
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; Use the right file name for nscd.
+ (let ((libc (assoc-ref inputs "libc")))
+ (substitute* "lib/nscd.c"
+ (("/usr/sbin/nscd")
+ (string-append libc "/sbin/nscd")))))
+ (alist-cons-after
+ 'install 'remove-groups
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Remove `groups', which is already provided by Coreutils.
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin"))
+ (man (string-append out "/share/man/man1")))
+ (delete-file (string-append bin "/groups"))
+ (for-each delete-file (find-files man "^groups\\."))
+ #t))
+ %standard-phases))))
+
+ (inputs (if (string-suffix? "-linux"
+ (or (%current-target-system)
+ (%current-system)))
+ `(("linux-pam" ,linux-pam))
+ '()))
+ (home-page "http://pkg-shadow.alioth.debian.org/")
+ (synopsis "Authentication-related tools such as passwd, su, and login")
+ (description
+ "Shadow provides a number of authentication-related tools, including:
+login, passwd, su, groupadd, and useradd.")
+
+ ;; The `vipw' program is GPLv2+.
+ ;; libmisc/salt.c is public domain.
+ (license bsd-3)))