diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-04 17:09:47 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-08 16:00:27 -0700 |
commit | 1e99ee6ff7f47db2052e226d7b071e31ff33b56c (patch) | |
tree | c27a22b6cb4e7d2c8b0b1aad4dc747c31102958d /src/connection/chroot.lisp | |
parent | 42489752b4c78f6bbc80bb56a4347b692a067c29 (diff) | |
download | consfigurator-1e99ee6ff7f47db2052e226d7b071e31ff33b56c.tar.gz |
add LXC properties, :LXC{,-UNPRIV-ATTACH} connections, WITH-HOMEDIR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/chroot.lisp')
-rw-r--r-- | src/connection/chroot.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/connection/chroot.lisp b/src/connection/chroot.lisp index 8f829d3..4c1db70 100644 --- a/src/connection/chroot.lisp +++ b/src/connection/chroot.lisp @@ -100,7 +100,9 @@ should be the mount point, without the chroot's root prefixed.") (unless (and (lisp-connection-p) (zerop (nix:geteuid))) (error "~&Forking into a chroot requires a Lisp image running as root")) (informat 1 "~&Forking into chroot at ~A" into) - (let* ((into (ensure-pathname into :want-absolute t :ensure-directory t)) + (let* ((into (ensure-pathname into + :defaults (uiop:getcwd) + :ensure-absolute t :ensure-directory t)) (connection (make-instance 'shell-chroot-connection :into into))) ;; Populate the CONSFIGURATOR::ID and :REMOTE-HOME connattrs correctly to ;; ensure they don't get bogus values when this connection object is used |