summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRaghav Gururajan <raghavgururajan@disroot.org>2020-04-27 09:32:43 -0400
committerJan Nieuwenhuizen <janneke@gnu.org>2020-04-27 18:17:24 +0200
commitc53886a55a40e106740209cf587fef4e52226aae (patch)
tree111eab8e9c171a087be28c4fa13b5846806fd79d
parent138896e1ea4d0ba420d04bff067692fecf93a613 (diff)
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.scm14
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''.