diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 15:27:00 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:40:08 -0700 |
| commit | 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 (patch) | |
| tree | b8e51af43f895a98ebd943580c51c1da38151bdf /src/connection/shell-wrap.lisp | |
| parent | f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 (diff) | |
| download | consfigurator-4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14.tar.gz | |
replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/shell-wrap.lisp')
| -rw-r--r-- | src/connection/shell-wrap.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index 49cfd83..2867e20 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -28,7 +28,7 @@ (defun %readfile (c path &optional delete) (multiple-value-bind (out exit) - (let* ((path (escape-sh-token path)) + (let* ((path (sh-escape path)) (base #?"test -r ${path} && cat ${path}") (cmd (if delete (strcat base #?" && rm ${path}") base))) (connection-run c cmd nil)) @@ -57,7 +57,7 @@ mv \"$tmpf\" ~A" (mkstemp-cmd (merge-pathnames "tmp.XXXXXX" (pathname-directory-pathname path))) mode - (escape-sh-token (unix-namestring path))))) + (sh-escape path)))) (multiple-value-bind (out exit) (connection-run conn cmd content) (unless (zerop exit) (error "Failed to write ~A: ~A" path out))))) |