diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 16:45:33 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-27 17:04:28 -0700 |
commit | 563ecad0707ff24709e87e7c2fee4d86e5d33444 (patch) | |
tree | edcbd0521311c3cd97966d24be65e276dd1a72b4 | |
parent | bbf1e525bcefddf079f78da23639d40a71b5db00 (diff) | |
download | consfigurator-563ecad0707ff24709e87e7c2fee4d86e5d33444.tar.gz |
convert "upload to root Lisp" error into a warning
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/connection/sbcl.lisp | 6 | ||||
-rw-r--r-- | src/data.lisp | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index 6848f5e..640854d 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -25,6 +25,12 @@ (debianlike (apt:installed "sbcl")))) (defmethod establish-connection ((type (eql :sbcl)) remaining &key) + (when (lisp-connection-p) + (warn + "Looks like you might be starting a fresh Lisp image directly from the root +Lisp. This can mean that prerequisite data gets extracted from encrypted +stores and stored unencrypted under ~~/.cache, and as such is not +recommended.")) (ignoring-hostattrs (sbcl-available)) (request-lisp-systems) (upload-all-prerequisite-data) diff --git a/src/data.lisp b/src/data.lisp index 52bc652..b6feb34 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -254,11 +254,6 @@ calling CONTINUE-DEPLOY* or CONTINUE-DEPLOY*-PROGRAM will need their own implementation.")) (defmethod connection-upload ((connection connection) (data data)) - (when (subtypep (class-of connection) - 'consfigurator.connection.local:local-connection) - (error - "Attempt to upload data to the root Lisp or reupload to remote Lisp. -This is not allowed for security reasons.")) (flet ((upload (from to) (with-open-file (stream from :element-type '(unsigned-byte 8)) (writefile to stream)))) |