branch master updated: gnu: ktsuss: Use setuid "su" and "sudo" commands.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

janneke pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new c53886a  gnu: ktsuss: Use setuid "su" and "sudo" commands.
c53886a is described below

commit c53886a55a40e106740209cf587fef4e52226aae
Author: Raghav Gururajan <address@hidden>
AuthorDate: Mon Apr 27 09:32:43 2020 -0400

    gnu: ktsuss: Use setuid "su" and "sudo" commands.
    
    This has ktsudo actually gain root access.
    
    * gnu/packages/admin.scm (ktsuss)[arguments]: Instead of 
<sudo>/bin/{su,sudo}
    file names, use the setuid' verrsions.
---
 gnu/packages/admin.scm | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 236eebe..cb3de79 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -150,24 +150,22 @@
        (list "--enable-sudo=yes")
        #:phases
        (modify-phases %standard-phases
-         (add-after 'unpack 'patch-sudo-path
-           (lambda* (#:key inputs #:allow-other-keys)
+         (add-after 'unpack 'patch-file-names
+           (lambda _
              (substitute* "configure.ac"
+               (("supath=`which su 2>/dev/null`")
+                "supath=/run/setuid-programs/su")
                (("sudopath=`which sudo 2>/dev/null`")
-                (string-append "sudopath="
-                               (string-append (assoc-ref inputs "sudo")
-                                              "/bin/sudo"))))
+                "sudopath=/run/setuid-programs/sudo"))
              #t)))))
     (native-inputs
      `(("autoconf" ,autoconf)
-       ("autogen" ,autogen)
        ("automake" ,automake)
        ("libtool" ,libtool)
        ("pkg-config" ,pkg-config)))
     (inputs
      `(("glib" ,glib)
-       ("gtk+" ,gtk+-2)
-       ("sudo" ,sudo)))
+       ("gtk+" ,gtk+-2)))
     (synopsis "Graphical front end for @command{su}")
     (description
      "Ktsuss stands for ``Keep the @command{su} simple, stupid''.