diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 09:17:30 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 10:11:30 -0700 |
| commit | baa18e953545579f9af5dc8b34dd23e091d3bf45 (patch) | |
| tree | 5c4d5956a266d070305430548634994a886e1b3b /src/connection/setuid.lisp | |
| parent | f38ba11b56e2e61e477c7c0e9a05cbf36a804246 (diff) | |
| download | consfigurator-baa18e953545579f9af5dc8b34dd23e091d3bf45.tar.gz | |
:SETUID connection type: set HOME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/setuid.lisp')
| -rw-r--r-- | src/connection/setuid.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index 4ca12fc..ad4de7b 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -37,4 +37,6 @@ (error "setgid(2) failed; are you root?")) (unless (zerop (setuid uid)) (error "setuid(2) failed; are you root?")) - (uiop:chdir (user:passwd-entry 5 uid))))) + (let ((home (user:passwd-entry 5 uid))) + (setf (getenv "HOME") home) + (uiop:chdir home))))) |