Add Licensing and Contributing

[candle] / src / main / aws / aws.lisp

diff --git a/src/main/aws/aws.lisp b/src/main/aws/aws.lisp
index c7fb21dae85fde7d9df6b19fa58c8539619b5464..22de4186c444ac4b22178f8ababe0432172c2a01 100644 (file)
--- a/src/main/aws/aws.lisp
+++ b/src/main/aws/aws.lisp
@@ -1,3 +1,4 @@
+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3.  See distributed LICENSE.txt.
 (in-package #:candle-aws)
 
 (defvar *aws-mutex* (sb-thread:make-mutex))
@@ -100,7 +101,10 @@
    "--exclude"
    ".git"
    (candle:project-dir (candle:job-project job))
-   (format nil "~A@~A:~A" *aws-username* (describe-property "PublicIpAddress") *remote-work-dir*)))
+   (format nil "~A@~A:~A/~A" *aws-username*
+    (describe-property "PublicIpAddress")
+    *remote-work-dir*
+    (candle:project-name (candle:job-project job)))))
  (let*
   ((out nil)
    (code nil))
@@ -118,7 +122,10 @@
         "-i"
         *aws-keyfile*
         (describe-property "PublicIpAddress")
-        (format nil "cd ~A ; ~A run --env aws" *remote-work-dir* *remote-candle-location*))
+        (format nil "cd ~A/~A ; ~A run --env aws"
+         *remote-work-dir*
+         (candle:project-name (candle:job-project job))
+         *remote-candle-location*))
        :output out-str
        :error out-str
        :wait t)))))