Merge pull request #27 from ralt/patch-1

Use UID instead of username for external authentication
death · Jun 3, 2020 · f4d1a99 · f4d1a99
2 parents 24b452d + 0c211f8
commit f4d1a99
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/auth-dbus-external.lisp b/auth-dbus-external.lisp
@@ -4,6 +4,7 @@
 
 (defpackage #:dbus/auth-dbus-external
   (:use #:cl #:dbus/utils #:dbus/protocols #:dbus/authentication-mechanisms)
+  (:import-from #:iolib.syscalls #:getuid)
   (:export
    #:dbus-external-authentication-mechanism))
 
@@ -22,5 +23,5 @@
 
 (defmethod feed-authentication-mechanism ((mechanism dbus-external-authentication-mechanism) challenge)
   (if (eq challenge :initial-response)
-      (values :continue (encode-hex-string (current-username)))
+      (values :continue (encode-hex-string (write-to-string (getuid))))
       (error "More than one response requested for EXTERNAL authentication.")))