tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-27 03:21:49 +02:00
Code Activity

services: screen-locker: Migrate to (gnu system privilege).

Browse Source 
* gnu/services/xorg.scm (screen-locker-setuid-programs): Rename from this…
(screen-locker-privileged-programs): …to this.  Use <privileged-program>.
(screen-locker-service-type): Extend the PRIVILEGED-PROGRAM-SERVICE-TYPE.

Change-Id: Icbd891def4fc90ed5365702731f009dec358c19e
This commit is contained in:
Tobias Geerinckx-Rice
2024-09-01 02:00:00 +02:00
parent 876c343bbf
commit 76cb23c117
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/services/xorg.scm
+8 -6
View File
@@ -38,9 +38,9 @@
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu system pam)
#:use-module (gnu system setuid)
#:use-module (gnu system keyboard) #:use-module (gnu system keyboard)
#:use-module (gnu system pam)
#:use-module (gnu system privilege)
#:use-module (gnu services base) #:use-module (gnu services base)
#:use-module (gnu services dbus) #:use-module (gnu services dbus)
#:use-module (gnu packages base) #:use-module (gnu packages base)
@@ -847,11 +847,13 @@ reboot_cmd " shepherd "/sbin/reboot\n"
allow-empty-password?)) allow-empty-password?))
'()))) '())))
(define (screen-locker-setuid-programs config) (define (screen-locker-privileged-programs config)
(match-record config <screen-locker-configuration> (match-record config <screen-locker-configuration>
(name program using-setuid?) (name program using-setuid?)
(if using-setuid? (if using-setuid?
(list (file-like->setuid-program program)) (list (privileged-program
(program program)
(setuid? #t)))
'()))) '())))
(define screen-locker-service-type (define screen-locker-service-type
@@ -859,8 +861,8 @@ reboot_cmd " shepherd "/sbin/reboot\n"
(extensions (extensions
(list (service-extension pam-root-service-type (list (service-extension pam-root-service-type
screen-locker-pam-services) screen-locker-pam-services)
(service-extension setuid-program-service-type (service-extension privileged-program-service-type
screen-locker-setuid-programs))) screen-locker-privileged-programs)))
(description (description
"Allow the given program to be used as a screen locker for "Allow the given program to be used as a screen locker for
the graphical server by making it setuid-root, so it can authenticate users, the graphical server by making it setuid-root, so it can authenticate users,