gnu: cups-minimal: Never cupsAdminGetServerSettings.

* gnu/packages/cups.scm (cups-minimal)[arguments]: Add a new
'never-cupsAdminGetServerSettings phase.
This commit is contained in:
Tobias Geerinckx-Rice 2021-06-22 19:22:15 +02:00
parent 8d9a2dee1f
commit 3b5297d975
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -275,6 +275,18 @@ (define-public cups-minimal
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'never-cupsAdminGetServerSettings
;; Instead of querying the daemon directly, this part of CUPS assumes
;; that (1) it has access to a cupsd.conf under CUPS_SERVERROOT, and
;; (2) the file's contents apply to the running daemon. (1) is false
;; at least on Guix Systems resulting in extremely long delays when
;; loading the Web interface's /admin page. (2) isn't valid anywhere
;; because it ignores, e.g., -c FILE.
;; Upstream considers this code on life support so just neuter it.
(lambda _
(substitute* "cgi-bin/admin.c"
(("!cupsAdminGetServerSettings" match)
(string-append "0 && " match)))))
(add-before 'configure 'patch-makedefs
(lambda _
(substitute* "Makedefs.in"