mirror of https://codeberg.org/anemofilia/zero
58 lines
1.8 KiB
Scheme
58 lines
1.8 KiB
Scheme
|
(define-module (buer privilege)
|
||
|
|
#:use-module (gnu packages admin)
|
||
|
|
#:use-module (gnu packages linux)
|
||
|
|
#:use-module (gnu system privilege)
|
||
|
|
#:use-module (guix gexp)
|
||
|
|
|
||
|
|
#:export (authentication
|
||
|
|
file-systems
|
||
|
|
network))
|
||
|
|
|
||
|
|
(define authentication
|
||
|
|
(list (privileged-program
|
||
|
|
(program (file-append opendoas "/bin/doas"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/passwd"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/chfn"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/sg"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/su"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/newgrp"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/newuidmap"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append shadow "/bin/newgidmap"))
|
||
|
|
(setuid? #t))))
|
||
|
|
|
||
|
|
(define file-systems
|
||
|
|
(list (privileged-program
|
||
|
|
(program (file-append fuse "/bin/fusermount3"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append fuse-2 "/bin/fusermount"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append util-linux "/bin/mount"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append util-linux "/bin/umount"))
|
||
|
|
(setuid? #t))))
|
||
|
|
|
||
|
|
(define network
|
||
|
|
(list (privileged-program
|
||
|
|
(program (file-append inetutils "/bin/ping"))
|
||
|
|
(setuid? #t))
|
||
|
|
(privileged-program
|
||
|
|
(program (file-append inetutils "/bin/ping6"))
|
||
|
|
(setuid? #t))))
|