From a437bd9180d1af0f84229d4ae3e9cd0ab93d9fa0 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Tue, 22 Jun 2021 19:23:29 +0200 Subject: gnu: cups-minimal: Remove the server settings from the /admin Web UI. * gnu/packages/cups.scm (cups-minimal)[arguments]: Add a new 'remove-Web-UI-server-settings phase. --- gnu/packages/cups.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm index 959caa70f6..8301802e72 100644 --- a/gnu/packages/cups.scm +++ b/gnu/packages/cups.scm @@ -287,6 +287,19 @@ (define-public cups-minimal (substitute* "cgi-bin/admin.c" (("!cupsAdminGetServerSettings" match) (string-append "0 && " match))))) + (add-after 'unpack 'remove-Web-UI-server-settings + ;; The /admin page's server configuration form is questionable for + ;; the same reason as cupsAdminGetServerSettings, and won't work at + ;; all on Guix Systems. Remove it entirely. + (lambda _ + ;; SUBSTITUTE* and a patch both have (dis)advantages. This is + ;; shorter & should ensure that no translation is forgotten. + (substitute* (find-files "templates" "^admin\\.tmpl$") + ((" class=\"halves\"") "") + (("" match) + (string-append match "

{BROKEN? ")) + (("}" match) + (string-append match "}"))))) (add-before 'configure 'patch-makedefs (lambda _ (substitute* "Makedefs.in" -- cgit v1.2.3