From 2c297801c90f71c54e85873977352dbdc09a3cc0 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Sun, 29 Apr 2018 01:39:32 -0400 Subject: [PATCH] fix environment variables --- bolt.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bolt.rkt b/bolt.rkt index 39e64ec..39fff3b 100755 --- a/bolt.rkt +++ b/bolt.rkt @@ -56,11 +56,10 @@ (define (as-user cmd) (if (user) - (format "sudo -u ~a ~a sh -c \"~a\"" + (format "sudo -u ~a sh -c \"~a\"" (user) - (format-vars) cmd) - (format "~a ~a" (format-vars) cmd))) + cmd)) (define (exec cmd) (displayln @@ -69,8 +68,9 @@ (ssh (host) (as-user (string-append - (format "cd ~a && " - (cwd)) + (format "cd ~a && ~a; " + (cwd) + (format-vars)) cmd)) #:failure-log "/tmp/test.log" #:mode 'output)