74 lines
2.6 KiB
Scheme
74 lines
2.6 KiB
Scheme
(use-modules
|
|
(gnu packages autotools)
|
|
(gnu packages gettext)
|
|
(gnu packages guile)
|
|
(gnu packages guile-xyz)
|
|
(gnu packages linux)
|
|
(gnu packages mes)
|
|
(gnu packages pkg-config)
|
|
(gnu packages)
|
|
(guix build-system gnu)
|
|
(guix download)
|
|
(guix gexp)
|
|
(guix git-download)
|
|
((guix licenses) #:prefix license:)
|
|
(guix packages)
|
|
(guix utils))
|
|
|
|
(define-public my-linux-pam
|
|
(package
|
|
(inherit linux-pam)
|
|
(version "1.5.2")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://github.com/linux-pam/linux-pam/releases/download/v"
|
|
version "/Linux-PAM-" version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0kgrsj2scv5mx6w925h9hxf11jnqqs9z8s22aw94b90xm4qp3v74"))
|
|
(patches (search-patches "linux-pam-no-setfsuid.patch"))))
|
|
(arguments (substitute-keyword-arguments
|
|
(package-arguments linux-pam)
|
|
((#:configure-flags flags)
|
|
;; explicit libdir; drop when
|
|
;; https://github.com/linux-pam/linux-pam/issues/466
|
|
;; was resolved
|
|
'(list (string-append "--includedir="
|
|
(assoc-ref %outputs "out")
|
|
"/include/security")
|
|
(string-append "--libdir="
|
|
(assoc-ref %outputs "out")
|
|
"/lib")))))))
|
|
|
|
(define-public guile-pam
|
|
(let ((commit "3c26ac1f0c61bce2bd9a58bcd7ffeb7349420e0c")
|
|
(revision "0"))
|
|
(package
|
|
(name "guile-pam")
|
|
(version (git-version "0.0" revision commit))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://codeberg.org/lechner/guile-pam")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1708x3gjsdzagwkdjfr5pbjhymzlabak9y83q7pl62zakbrnms4j"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs (list autoconf automake libtool pkg-config guile-3.0 my-linux-pam nyacc gnu-gettext))
|
|
(inputs (list guile-3.0 guile-lib my-linux-pam))
|
|
(home-page "https://codeberg.org/lechner/guile-pam")
|
|
(synopsis "Write your Linux-PAM authentication logic in Guile Scheme")
|
|
(description
|
|
"Guile-PAM provides a way to rewrite your authentication logic in the
|
|
Linux PAM (pluggable authentication modules) in Guile Scheme. It should make
|
|
those modules more transparent to the administrator and more intuitive to
|
|
use.")
|
|
(license license:gpl3+))))
|
|
|
|
guile-pam
|
|
|