gnu: Add mingetty.
* gnu/packages/system.scm (mingetty): New variable.
This commit is contained in:
parent
bf8e7fc502
commit
1e151896d4
|
@ -141,3 +141,53 @@ login, passwd, su, groupadd, and useradd.")
|
||||||
;; The `vipw' program is GPLv2+.
|
;; The `vipw' program is GPLv2+.
|
||||||
;; libmisc/salt.c is public domain.
|
;; libmisc/salt.c is public domain.
|
||||||
(license bsd-3)))
|
(license bsd-3)))
|
||||||
|
|
||||||
|
(define-public mingetty
|
||||||
|
(package
|
||||||
|
(name "mingetty")
|
||||||
|
(version "1.08")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://sourceforge/mingetty/mingetty-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:phases (alist-replace 'configure
|
||||||
|
(lambda* (#:key inputs outputs
|
||||||
|
#:allow-other-keys)
|
||||||
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
|
(man8 (string-append
|
||||||
|
out "/share/man/man8"))
|
||||||
|
(sbin (string-append out "/sbin"))
|
||||||
|
(shadow (assoc-ref inputs "shadow"))
|
||||||
|
(login (string-append shadow
|
||||||
|
"/bin/login")))
|
||||||
|
(substitute* "Makefile"
|
||||||
|
(("^SBINDIR.*")
|
||||||
|
(string-append "SBINDIR = " out
|
||||||
|
"/sbin\n"))
|
||||||
|
(("^MANDIR.*")
|
||||||
|
(string-append "MANDIR = " out
|
||||||
|
"/share/man/man8\n")))
|
||||||
|
|
||||||
|
;; Pick the right 'login' by default.
|
||||||
|
(substitute* "mingetty.c"
|
||||||
|
(("\"/bin/login\"")
|
||||||
|
(string-append "\"" login "\"")))
|
||||||
|
|
||||||
|
(mkdir-p sbin)
|
||||||
|
(mkdir-p man8)))
|
||||||
|
%standard-phases)
|
||||||
|
#:tests? #f)) ; no tests
|
||||||
|
(inputs `(("shadow" ,shadow)))
|
||||||
|
|
||||||
|
(home-page "http://sourceforge.net/projects/mingetty")
|
||||||
|
(synopsis "Getty for the text console")
|
||||||
|
(description
|
||||||
|
"Small console getty that is started on the Linux text console,
|
||||||
|
asks for a login name and then transfers over to 'login'. It is extended to
|
||||||
|
allow automatic login and starting any app.")
|
||||||
|
(license gpl2+)))
|
||||||
|
|
Loading…
Reference in New Issue