diff options
| author | Raghav Gururajan <raghavgururajan@disroot.org> | 2020-04-27 09:32:43 -0400 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2020-04-27 18:17:24 +0200 |
| commit | c53886a55a40e106740209cf587fef4e52226aae (patch) | |
| tree | 111eab8e9c171a087be28c4fa13b5846806fd79d | |
| parent | 138896e1ea4d0ba420d04bff067692fecf93a613 (diff) | |
| download | guix-c53886a55a40e106740209cf587fef4e52226aae.tar guix-c53886a55a40e106740209cf587fef4e52226aae.tar.gz | |
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.
| -rw-r--r-- | gnu/packages/admin.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 236eebe53c..cb3de79713 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''. |