diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-13 17:30:01 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-13 17:35:41 -0700 |
| commit | 4b00c1a9ead9851275e5930fe65e3d9bfd563a24 (patch) | |
| tree | f7f5a64b58238599b35bd9e22fe977912f0adffc /src/connection/setuid.lisp | |
| parent | 2726ced1199b3b6d4452cbcefd6539bd854b4509 (diff) | |
| download | consfigurator-4b00c1a9ead9851275e5930fe65e3d9bfd563a24.tar.gz | |
REHOME-CONNECTION: rename slot DATADIR -> REHOME-DATADIR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/setuid.lisp')
| -rw-r--r-- | src/connection/setuid.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index f99e4b8..fda100f 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -45,7 +45,7 @@ (continue-connection (make-instance 'setuid-connection - :datadir datadir + :rehome-datadir datadir :connattrs `(:remote-uid ,(cdr (assoc :user-id ent)) :remote-gid ,(cdr (assoc :group-id ent)) :remote-user ,(cdr (assoc :name ent)) @@ -59,9 +59,10 @@ (let ((uid (connection-connattr connection :remote-uid)) (gid (connection-connattr connection :remote-gid)) (user (connection-connattr connection :remote-user))) - (run-program (list "chown" "-R" - (format nil "~A:~A" uid gid) - (unix-namestring (slot-value connection 'datadir)))) + (run-program + (list "chown" "-R" + (format nil "~A:~A" uid gid) + (unix-namestring (slot-value connection 'rehome-datadir)))) (posix-login-environment uid user (connection-connattr connection :remote-home)) ;; We are privileged, so this sets the real, effective and saved IDs. |