diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-01 23:08:58 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-06 21:19:39 -0700 |
commit | 60d2ca122ee7dc29fc66b4364bcf79f5a7041b64 (patch) | |
tree | 60c6a0b68d5d08cec4dd12c3b9064a657a97823b /src | |
parent | b98a381028b03e1b71b9ade24a9999d858134b2f (diff) | |
download | consfigurator-60d2ca122ee7dc29fc66b4364bcf79f5a7041b64.tar.gz |
add POSIX-LOGIN-ENVIRONMENT and use in :SETUID connection
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/connection/setuid.lisp | 11 | ||||
-rw-r--r-- | src/package.lisp | 3 | ||||
-rw-r--r-- | src/util.lisp | 23 |
3 files changed, 30 insertions, 7 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index 2137f52..9b7257f 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -53,15 +53,13 @@ :datadir datadir :connattrs `(:remote-uid ,uid :remote-gid ,gid + :remote-user ,to :remote-home ,home)) remaining)))) (defmethod post-fork ((connection setuid-connection)) - ;; TODO Set up the new environment more systematically. Perhaps look at how - ;; runuser(1) uses PAM to do this. (let ((uid (connection-connattr connection :remote-uid)) - (gid (connection-connattr connection :remote-gid)) - (home (connection-connattr connection :remote-home))) + (gid (connection-connattr connection :remote-gid))) (run-program (list "chown" "-R" (format nil "~A:~A" uid gid) (unix-namestring (slot-value connection 'datadir)))) @@ -69,5 +67,6 @@ (error "setgid(2) failed!")) (unless (zerop (setuid uid)) (error "setuid(2) failed!")) - (setf (getenv "HOME") (unix-namestring home)) - (uiop:chdir home))) + (posix-login-environment + (connection-connattr connection :remote-user) + (connection-connattr connection :remote-home)))) diff --git a/src/package.lisp b/src/package.lisp index e751d9b..dbf6eb5 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1,7 +1,7 @@ (in-package :cl-user) (defpackage :consfigurator - (:use #:cl #:alexandria) + (:use #:cl #:alexandria #:cffi) (:local-nicknames (#:re #:cl-ppcre)) (:shadowing-import-from #:uiop #:strcat @@ -104,6 +104,7 @@ #:unwind-protect-in-parent #:cancel-unwind-protect-in-parent-cleanup #:with-backtrace-and-exit-code-two + #:posix-login-environment ;; connection.lisp #:establish-connection diff --git a/src/util.lisp b/src/util.lisp index 73810ae..2b20d13 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -440,6 +440,29 @@ Should be called soon after fork(2) in child processes." (uiop:quit 2)))) ,@forms)) +(defun posix-login-environment (logname home) + "Reset the environment after switching UID, or similar, in a :LISP connection. +Does not currently establish a PAM session." + (let ((euid (foreign-funcall "geteuid" :int)) + (maybe-preserve '("TERM"))) + (when (zerop euid) + (push "SSH_AUTH_SOCK" maybe-preserve)) + (let ((preserved (loop for var in maybe-preserve + for val = (getenv var) + when val collect var and collect val))) + (unless (zerop (foreign-funcall "clearenv" :int)) + (failed-change "clearenv(3) failed!")) + (loop for (var val) on preserved by #'cddr do (setf (getenv var) val))) + (setf (getenv "HOME") (drop-trailing-slash (unix-namestring home)) + (getenv "USER") logname + (getenv "LOGNAME") logname + (getenv "SHELL") "/bin/sh" + (getenv "PATH") + (if (zerop euid) + "/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin" + "/usr/local/bin:/bin:/usr/bin")) + (uiop:chdir home))) + ;;;; Lisp data files |