ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cups-minimal: Never cupsAdminGetServerSettings.

Browse source 
* 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
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/cups.scm
View file

@ -275,6 +275,18 @@ (define-public cups-minimal
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-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 (add-before 'configure 'patch-makedefs
(lambda _ (lambda _
(substitute* "Makedefs.in" (substitute* "Makedefs.in"