nassella/app
1
0
Fork 0
Code Issues 15 Pull Requests Packages Projects 1 Releases Wiki Activity

Don't allow deploying an app that is being deployed.

Browse Source
This commit is contained in:
Thomas Hintz
2026-04-20 15:44:39 -07:00
parent 7ed7846536
commit 24b9477f24
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/nassella.scm
View File

@@ -1266,10 +1266,14 @@ chmod -R 777 /opt/keys"))
;; TODO run restic-init if needed (like the first run or if the backblaze ;; TODO run restic-init if needed (like the first run or if the backblaze
;; config changes ;; config changes
;; TODO this can only handle a user deploying one instance at a time!
;; the folder used should be the user-id PLUS the instance id
;; TODO should this perform a backup and then run the systemctl stop app command first? ;; TODO should this perform a backup and then run the systemctl stop app command first?
(post "/config/wizard/review-submit/:id" (post "/config/wizard/review-submit/:id"
(let* ((instance-id (alist-ref "id" (current-params) equal?))
(status (string->symbol
(with-db/transaction
(lambda (db)
(get-most-recent-deployment-status db (session-user-id) instance-id))))))
(when (not (or (eq? status 'queued) (eq? status 'in-progress)))
(let* ((instance-id (alist-ref "id" (current-params) equal?)) (let* ((instance-id (alist-ref "id" (current-params) equal?))
(results (results
(with-db/transaction (with-db/transaction
@@ -1403,7 +1407,7 @@ chmod -R 777 /opt/keys"))
(with-input-from-file (string-append dir "/make-out") read-string)) (with-input-from-file (string-append dir "/make-out") read-string))
(update-user-terraform-state db user-id instance-id (update-user-terraform-state db user-id instance-id
(if (eof-object? tf-state) "" tf-state) (if (eof-object? tf-state) "" tf-state)
(if (eof-object? tf-state-backup) "" tf-state-backup)))))))))))) (if (eof-object? tf-state-backup) "" tf-state-backup))))))))))))))
(redirect (conc "/config/wizard/success/" (alist-ref "id" (current-params) equal?)))) (redirect (conc "/config/wizard/success/" (alist-ref "id" (current-params) equal?))))
(get/widgets (get/widgets