Allow force destroying an instance.

Makefile

@@ -111,11 +111,11 @@ preapply: app/.dirstamp
 
 apply: announce-start restic-init ignition.json $(config_dir)$(TERRAFORM_ENV).tfvars generated.tfvars
 	echo "NASSELLA_CONFIG: end"
-	terraform init
+	terraform init --upgrade
 	bash -c "terraform apply -auto-approve -input=false -var-file=<(cat $(config_dir)$(TERRAFORM_ENV).tfvars generated.tfvars)"
 
 destroy: ignition.json $(config_dir)$(TERRAFORM_ENV).tfvars generated.tfvars
-	terraform init
+	terraform init --upgrade
 	bash -c "terraform destroy -auto-approve -input=false -var-file=<(cat $(config_dir)$(TERRAFORM_ENV).tfvars generated.tfvars)"
 
 .PHONY: restic-init

all-apps/authelia/4/Caddyfile

@@ -14,8 +14,17 @@
 # You should have received a copy of the GNU Affero General Public License
 # along with Nassella. If not, see <https://www.gnu.org/licenses/>.
 
-{$authelia_SUBDOMAIN}.{$ROOT_DOMAIN} {
+#{$authelia_SUBDOMAIN}.{$ROOT_DOMAIN} {
-  import maintenance_intercept
+#  route {
+#    @authelia path /authelia /authelia/*
+#    handle @authelia {
+#      reverse_proxy authelia:9091
+#    }
+#    forward_auth authelia:9091 {
+#      uri /api/authz/forward-auth
+#      copy_headers Remote-User Remote-Groups Remote-Email Remote-Name
+#    }
+#    reverse_proxy authelia:9091
+#  }
+#}
 
-  reverse_proxy authelia:9091
-}

all-apps/authelia/4/Makefile

@@ -18,7 +18,8 @@ IMAGE_DEPS := $(IMAGE_DEPS) \
 app/authelia/postgres_db \
 app/authelia/postgres_user \
 app/authelia/postgres_password \
-app/authelia/authelia-config/configuration.yml
+app/authelia/authelia-config/configuration.yml \
+app/authelia/authelia-config/users.yml
 
 app/authelia/postgres_db: $(apps_config)
 	bash -c 'source ./$(apps_config); printf "%s\n" "$$AUTHELIA_POSTGRES_DB" > $@'
@@ -29,3 +30,6 @@ app/authelia/postgres_password: $(apps_config)
 app/authelia/authelia-config/configuration.yml: $(apps_config) app/authelia/authelia-config/configuration.yml.tmpl \
 app/authelia/make-authelia-config.sh
 	./app/authelia/make-authelia-config.sh $(apps_config)
+app/authelia/authelia-config/users.yml: $(apps_config) app/authelia/authelia-config/users.yml.tmpl \
+app/authelia/make-authelia-users-config.sh
+	./app/authelia/make-authelia-users-config.sh $(apps_config)

all-apps/authelia/4/authelia-config/configuration.yml.tmpl

@@ -35,58 +35,45 @@ identity_validation:
   reset_password:
     jwt_secret: '$AUTHELIA_JWT_SECRET'
 
-# lldap service account user should instead
-# use an account with lldap_password_manager group
-# since that can't be used to change an admin password
 authentication_backend:
-  ldap:
+  disable_reset_password: true
-    address: 'ldap://lldap:3890'
+  file:
-    implementation: 'lldap'
+    path: '/config/users.yml'
-    timeout: '5s'
+    watch: false
-    pooling:
+    search:
-      enable: false
+      email: false
-      count: 5
+      case_insensitive: false
-      retries: 2
+    extra_attributes:
-      timeout: '10 seconds'
+      extra_example:
-    base_dn: 'DC=nassella,DC=org'
+        multi_valued: false
-#    additional_users_dn: 'OU=users'
+        value_type: 'string'
-#    additional_groups_dn: 'OU=groups'
+    password:
-#    group_search_mode: 'filter'
+      algorithm: 'argon2'
-#    permit_referrals: false
+      argon2:
-    permit_unauthenticated_bind: false
+        variant: 'argon2id'
-    permit_feature_detection_failure: false
+        iterations: 3
-    user: 'uid=admin,ou=people,dc=nassella,dc=org'
+        memory: 65536
-    password: '$LLDAP_ADMIN_PASSWORD'
+        parallelism: 4
-    # attributes:
+        key_length: 32
-    #   distinguished_name: 'distinguishedName'
+        salt_length: 16
-    #   username: 'uid'
+      scrypt:
-    #   display_name: 'displayName'
+        variant: 'scrypt'
-    #   family_name: 'sn'
+        iterations: 16
-    #   given_name: 'givenName'
+        block_size: 8
-    #   middle_name: 'middleName'
+        parallelism: 1
-    #   nickname: ''
+        key_length: 32
-    #   gender: ''
+        salt_length: 16
-    #   birthdate: ''
+      pbkdf2:
-    #   website: 'wWWHomePage'
+        variant: 'sha512'
-    #   profile: ''
+        iterations: 310000
-    #   picture: ''
+        salt_length: 16
-    #   zoneinfo: ''
+      sha2crypt:
-    #   locale: ''
+        variant: 'sha512'
-    #   phone_number: 'telephoneNumber'
+        iterations: 50000
-    #   phone_extension: ''
+        salt_length: 16
-    #   street_address: 'streetAddress'
+      bcrypt:
-    #   locality: 'l'
+        variant: 'standard'
-    #   region: 'st'
+        cost: 12
-    #   postal_code: 'postalCode'
-    #   country: 'c'
-    #   mail: 'mail'
-    #   member_of: 'memberOf'
-    #   group_name: 'cn'
-    #   extra:
-    #     extra_example:
-    #       name: ''
-    #       multi_valued: false
-    #       value_type: 'string'
 
 access_control:
   default_policy: 'deny'
@@ -102,11 +89,12 @@ session:
   secret: '$AUTHELIA_SESSION_SECRET'
 
   cookies:
-    - name: 'authelia_session'
+    - name: 'dozzle_session'
-      domain: '$ROOT_DOMAIN'  # Should match whatever your root protected domain is
+      domain: '$DOZZLE_FULL_DOMAIN'  # Should match whatever your root protected domain is
-      authelia_url: 'https://$AUTHELIA_FULL_DOMAIN'
+      authelia_url: 'https://$DOZZLE_FULL_DOMAIN/authelia'
       expiration: '1 hour'  # 1 hour
       inactivity: '5 minutes'  # 5 minutes
+      default_redirection_url: 'https://$DOZZLE_FULL_DOMAIN/'
 
 regulation:
   max_retries: 3

all-apps/authelia/4/authelia-config/users.yml.tmpl

@@ -0,0 +1,7 @@
+# yaml-language-server: $schema=https://www.authelia.com/schemas/latest/json-schema/user-database.json
+users:
+  admin:
+    disabled: false
+    displayname: 'Admin'
+    password: '$HOST_ADMIN_PASSWORD'
+    email: '$HOST_ADMIN_USER'

all-apps/authelia/4/docker-compose.yaml

@@ -50,13 +50,11 @@ services:
     image: 'authelia/authelia'
     volumes:
       - ./authelia/authelia-config/configuration.yml:/config/configuration.yml:ro
+      - ./authelia/authelia-config/users.yml:/config/users.yml:ro
     networks:
       - lb
       - authelia_internal_db
-      - lldap_internal
     depends_on:
-      lldap:
-        condition: service_healthy
       authelia_db:
         condition: service_healthy
     restart: 'unless-stopped'
@@ -66,9 +64,6 @@ services:
 
 networks:
   lb:
-  lldap_internal:
-    driver: bridge
-    internal: true
   authelia_internal_db:
     driver: bridge
     internal: true

all-apps/authelia/4/make-authelia-users-config.sh

@@ -0,0 +1,24 @@
+#!/bin/bash
+
+# Copyright 2025-2026 Thomas Hintz
+
+# This file is part of Nassella.
+
+# Nassella is free software: you can redistribute it and/or modify it under the
+# terms of the GNU Affero General Public License as published by the Free
+# Software Foundation, either version 3 of the License, or (at your option) any
+# later version.
+
+# Nassella is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+
+# You should have received a copy of the GNU Affero General Public License
+# along with Nassella. If not, see <https://www.gnu.org/licenses/>.
+
+set -e
+set -a # export everything in the config for later use by envsubst
+
+. $1 # source the apps.config file with then env vars
+
+envsubst < app/authelia/authelia-config/users.yml.tmpl > app/authelia/authelia-config/users.yml

all-apps/dozzle/20/Caddyfile

@@ -15,9 +15,15 @@
 # along with Nassella. If not, see <https://www.gnu.org/licenses/>.
 
 {$dozzle_SUBDOMAIN}.{$ROOT_DOMAIN} {
-  forward_auth authelia:9091 {
+  route {
-    uri /api/authz/forward-auth
+    @authelia path /authelia /authelia/*
-    copy_headers Remote-User Remote-Groups Remote-Email Remote-Name
+    handle @authelia {
+      reverse_proxy authelia:9091
+    }
+    forward_auth authelia:9091 {
+      uri /api/authz/forward-auth
+      copy_headers Remote-User Remote-Groups Remote-Email Remote-Name
+    }
+    reverse_proxy http://dozzle:8080
   }
-  reverse_proxy http://dozzle:8080
 }

all-apps/nassella/b0.0.1/authelia-config/configuration.yml.tmpl

@@ -84,7 +84,7 @@ access_control:
       policy: 'two_factor'
 
 session:
-  secret: 'insecure_session_secret'
+  secret: 'insecure_session_secret' # TODO fix
 
   cookies:
     - name: 'authelia_session'

main.tf

@@ -2,23 +2,19 @@ terraform {
   required_providers {
     digitalocean = {
       source  = "digitalocean/digitalocean"
-      version = "2.62.0"
+      version = "2.96.0"
     }
     ct = {
       source  = "poseidon/ct"
-      version = "0.13.0"
+      version = "0.14.0"
     }
     null = {
       source  = "hashicorp/null"
-      version = "3.2.4"
+      version = "3.3.0"
-    }
-    time = {
-      source  = "hashicorp/time"
-      version = "0.13.1"
     }
     cloudflare = {
       source = "cloudflare/cloudflare"
-      version = "5.8.2"
+      version = "5.22.0"
     }
   }
 }
@@ -86,6 +82,10 @@ variable "digitalocean_volume_size" {
 
 provider "digitalocean" {
   token = var.do_token
+
+  http_retry_max      = 10
+  http_retry_wait_min = 2
+  http_retry_wait_max = 60
 }
 
 provider "cloudflare" {
@@ -142,21 +142,11 @@ resource "digitalocean_droplet" "machine" {
   size      = var.server_type
   ssh_keys  = [digitalocean_ssh_key.first.fingerprint]
   user_data = file("ignition.json")
-  lifecycle {
-    create_before_destroy = true
-  }
 }
-
-resource "time_sleep" "wait_10_seconds" {
-  create_duration = "10s"
-}
-
 resource "digitalocean_reserved_ip_assignment" "machine" {
+  depends_on = [digitalocean_volume_attachment.machine]
   ip_address = digitalocean_reserved_ip.machine.ip_address
   droplet_id = digitalocean_droplet.machine.id
-  # sometimes digital ocean throws an error for this resource
-  # saying the droplet has a pending event so we delay a few seconds
-  depends_on = [time_sleep.wait_10_seconds]
 }
 
 resource "digitalocean_volume_attachment" "machine" {

src/Dockerfile

@@ -30,7 +30,7 @@ RUN chicken-install srfi-1 srfi-13 srfi-18 srfi-19 srfi-158 srfi-194 \
         sxml-transforms schematra \
         uri-common http-client medea intarweb \
         sql-null openssl postgresql crypto-tools \
-        hmac sha2 string-utils
+        hmac sha2 string-utils base64
 
 WORKDIR /var
 RUN mkdir nassella
@@ -45,6 +45,7 @@ RUN chmod +x nassella-run
 
 FROM quay.io/coreos/butane:release AS butane
 FROM hashicorp/terraform:1.15 AS terraform
+FROM authelia/authelia:latest AS authelia
 
 FROM debian:trixie-slim
 RUN apt-get update && apt-get -y --no-install-recommends install \
@@ -53,6 +54,7 @@ RUN apt-get update && apt-get -y --no-install-recommends install \
 
 COPY --from=butane /usr/local/bin/butane /usr/local/bin/butane
 COPY --from=terraform /bin/terraform /usr/local/bin/terraform
+COPY --from=authelia /app/authelia /usr/local/bin/authelia
 
 COPY --from=buildeggs /usr/local/ /usr/local/
 

src/db-init.sql

@@ -45,7 +45,9 @@ create table user_service_configs(
        digitalocean_volume_size integer,
        backblaze_application_key_enc varchar(255),
        backblaze_key_id_enc varchar(255),
-       backblaze_bucket_url_enc varchar(255)
+       backblaze_bucket_url_enc varchar(255), -- deprecated 072526, replaced by bucket_name and bucket_id
+       backblaze_bucket_name_enc varchar(255),
+       backblaze_bucket_id_enc varchar(255)
        );
 create unique index user_service_configs_user_id_instance_id_idx on user_service_configs (user_id, instance_id);
 
@@ -91,7 +93,7 @@ create table user_app_configs(
 create unique index user_app_configs_user_id_instance_id_idx on user_app_configs (user_id, instance_id);
 
 
-create type deployment_status as enum ('queued', 'in-progress', 'complete', 'failed');
+create type deployment_status as enum ('ignored', 'queued', 'in-progress', 'complete', 'failed');
 
 create table deployments(
        id bigserial primary key,

src/db.scm

@@ -248,7 +248,9 @@ returning users.user_id;"
       (digitalocean-volume-size . ("digitalocean_volume_size" #f))
       (backblaze-application-key . ("backblaze_application_key_enc" #t))
       (backblaze-key-id . ("backblaze_key_id_enc" #t))
-      (backblaze-bucket-url . ("backblaze_bucket_url_enc" #t))))
+      (backblaze-bucket-url . ("backblaze_bucket_url_enc" #t))
+      (backblaze-bucket-name . ("backblaze_bucket_name_enc" #t))
+      (backblaze-bucket-id . ("backblaze_bucket_id_enc" #t))))
 
   (define *user-service-configs-reverse-column-map*
     (map (lambda (config)
@@ -376,7 +378,8 @@ where usa.user_id=$1 and usa.instance_id=$2;"
     '((queued . "queued")
       (in-progress . "in-progress")
       (complete . "complete")
-      (failed . "failed")))
+      (failed . "failed")
+      (ignored . "ignored")))
   (define (create-deployment conn user-id instance-id)
     (value-at
      (query conn
@@ -414,6 +417,7 @@ where usa.user_id=$1 and usa.instance_id=$2;"
       (volume-create . "terraform_volume_create")
       (volume-destroy . "terraform_volume_destroy")
       (instance-backup . "instance_backup")
+      (instance-up . "instance_up")
       (status . "status")
       (id . "id")
       (instance-id . "instance_id")))
@@ -657,7 +661,10 @@ where user_id=$1;"
       (4 . "fixing-app-normalization")
       (5 . "adding-wordpress-app")
       (6 . "adding-lldap-app")
-      (7 . "adding-authelia-app")))
+      (7 . "adding-authelia-app")
+      (8 . "adding-backblaze-bucket-name-and-id")
+      (9 . "extend-deployment-status-add-ignored")
+      (10 . "adding-deployments-instance-up")))
 
   (define (run-pending-migrations conn)
     (let* ((migration-ids (sort (map car *migrations*) <))

src/migrations/10-adding-deployments-instance-up-up.sql

@@ -0,0 +1 @@
+alter table deployments add instance_up deployment_status not null default 'queued';

src/migrations/8-adding-backblaze-bucket-name-and-id-up.sql

@@ -0,0 +1,2 @@
+alter table user_service_configs add backblaze_bucket_name_enc varchar(255);
+alter table user_service_configs add backblaze_bucket_id_enc varchar(255);

src/migrations/9-extend-deployment-status-add-ignored-up.sql

@@ -0,0 +1 @@
+alter type deployment_status add value 'ignored';

src/nassella.scm

@@ -54,7 +54,8 @@
         spiffy
         hmac
         sha256-primitive
-        string-hexadecimal)
+        string-hexadecimal
+        base64)
 
 (define app (schematra/make-app))
 
@@ -656,6 +657,107 @@ h1, h2, h3, h4, h5, h6 {
                                   (email . ,email))))))))
       read-json)))
 
+;; returns something like:
+;; ((accountId . "xxx") (apiInfo (storageApi (absoluteMinimumPartSize . 5000000) (allowed (buckets . #(((id . "yyy") (name . "aaa")))) (capabilities . #("readBucketEncryption" "listFiles" "shareFiles" "listBuckets" "readBucketLifecycleRules" "readBuckets" "readFiles" "writeBucketReplications" "writeBucketNotifications" "listAllBucketNames" "writeFiles" "writeBuckets" "writeBucketEncryption" "deleteFiles" "writeBucketLogging" "readBucketLogging" "readBucketReplications" "writeBucketLifecycleRules" "readBucketNotifications")) (namePrefix . null)) (apiUrl . "https://api004.backblazeb2.com") (downloadUrl . "https://f004.backblazeb2.com") (recommendedPartSize . 100000000) (s3ApiUrl . "https://s3.us-west-004.backblazeb2.com"))) (applicationKeyExpirationTimestamp . null) (authorizationToken . "abc"))
+;; #<URI-common: scheme=https port=443 host="api.backblazeb2.com" path=(/ "b2api" "v4" "b2_authorize_account") query=() fragment=#f>
+;; #<intarweb#response>
+;; ; 3 values
+(define (b2-authorize-account key-id key)
+  (with-input-from-request
+      (make-request method: 'GET
+                    uri: (uri-reference "https://api.backblazeb2.com/b2api/v4/b2_authorize_account")
+                    headers: (headers `((authorization #(,(string-append "Basic " (base64-encode (string-append key-id ":" key))) raw)))))
+    #f
+    read-json))
+
+;; request response looks like
+;; (((accountId . "xxx") (bucketId . "xxx") (bucketInfo) (bucketName . "xxx") (bucketType . "allPrivate") (corsRules) (defaultServerSideEncryption (isClientAuthorizedToRead . #t) (value (algorithm . null) (mode . null))) (fileLockConfiguration (isClientAuthorizedToRead . #t) (value (defaultRetention (mode . null) (period . null)) (isFileLockEnabled . #f))) (lifecycleRules ((daysFromHidingToDeleting . 1) (daysFromStartingToCancelingUnfinishedLargeFiles . null) (daysFromUploadingToHiding . null) (fileNamePrefix . ""))) (options "s3") (replicationConfiguration (isClientAuthorizedToRead . #t) (value . null)) (revision . 3)) ((accountId . "yyy") (bucketId . "yyy") (bucketInfo) (bucketName . "yyy") (bucketType . "allPrivate") (corsRules) (defaultServerSideEncryption (isClientAuthorizedToRead . #t) (value (algorithm . null) (mode . null))) (fileLockConfiguration (isClientAuthorizedToRead . #t) (value (defaultRetention (mode . null) (period . null)) (isFileLockEnabled . #f))) (lifecycleRules ((daysFromHidingToDeleting . 1) (daysFromStartingToCancelingUnfinishedLargeFiles . null) (daysFromUploadingToHiding . null) (fileNamePrefix . ""))) (options "s3") (replicationConfiguration (isClientAuthorizedToRead . #t) (value . null)) (revision . 3)))
+(define (b2-list-buckets api-url account-token account-id)
+  (with-input-from-request
+      (make-request method: 'POST
+                    uri: (uri-reference (string-append api-url "/b2api/v4/b2_list_buckets"))
+                    headers: (headers `((authorization #(,account-token raw))
+                                        (content-type application/json))))
+    (lambda ()
+      (write-json
+       `((accountId . ,account-id))))
+    read-json))
+
+;; a convenience method used to retrieve the buckets either
+;; from the key details or via b2-list-buckets.
+;; depending on the key config and permissions the way you
+;; access the list of buckets you can access will vary
+(define (b2-account-buckets key-id key)
+  (let* ((auth (b2-authorize-account key-id key))
+         (authorization-token (alist-ref 'authorizationToken auth))
+         (account-id (alist-ref 'accountId auth))
+         (api-url (alist-ref 'apiUrl (alist-ref 'storageApi (alist-ref 'apiInfo auth))))
+         (buckets (alist-ref 'buckets (alist-ref 'allowed (alist-ref 'storageApi (alist-ref 'apiInfo auth)))))
+         (listed-buckets (and (eq? buckets 'null) ;; if the key does not contain a bucket restriction it should be able to use the api to list buckets
+                                (alist-ref 'buckets (b2-list-buckets api-url authorization-token account-id)))))
+    (if listed-buckets
+        (map (lambda (bucket-info)
+               `((name . ,(alist-ref 'bucketName bucket-info))
+                 (id . ,(alist-ref 'bucketId bucket-info))))
+             listed-buckets)
+        (map (lambda (bucket-info)
+               `((name . ,(alist-ref 'name bucket-info))
+                 (id . ,(alist-ref 'id bucket-info))))
+             buckets))))
+
+(define (b2-authorization-details key-id key bucket-name)
+  (let* ((auth (b2-authorize-account key-id key))
+         (authorization-token (alist-ref 'authorizationToken auth))
+         (account-id (alist-ref 'accountId auth))
+         (api-url (alist-ref 'apiUrl (alist-ref 'storageApi (alist-ref 'apiInfo auth))))
+         (buckets (alist-ref 'buckets (alist-ref 'allowed (alist-ref 'storageApi (alist-ref 'apiInfo auth)))))
+         (listed-bucket-id (and (eq? buckets 'null) ;; if the key does not contain a bucket restriction it should be able to use the api to list buckets
+                                (alist-ref 'bucketId ;; TODO handle the bucket not being found
+                                           (find (lambda (x) (string=? (alist-ref 'bucketName x) bucket-name))
+                                                 (alist-ref 'buckets (b2-list-buckets api-url authorization-token account-id)))))))
+    (values authorization-token
+            account-id
+            api-url
+            (or listed-bucket-id (alist-ref 'id (car buckets))) ;; assume at least one bucket and the one we want for now, TODO handle better
+            buckets)))
+
+(define (b2-list-file-versions api-url account-token bucket-id)
+  (with-input-from-request
+      (make-request method: 'GET
+                    uri: (uri-reference (string-append api-url "/b2api/v4/b2_list_file_versions?bucketId=" bucket-id))
+                    headers: (headers `((authorization #(,account-token raw))
+                                        (content-type application/json))))
+    #f
+    read-json))
+
+(define (b2-list-file-versions-only-name-id api-url account-token bucket-id)
+  (map (lambda (x)
+         (cons (alist-ref 'fileName x)
+               (alist-ref 'fileId x)))
+       (alist-ref 'files (b2-list-file-versions api-url account-token bucket-id))))
+
+(define (b2-delete-file-version api-url account-token file-name file-id)
+  (with-input-from-request
+      (make-request method: 'POST
+                    uri: (uri-reference (string-append api-url "/b2api/v4/b2_delete_file_version"))
+                    headers: (headers `((authorization #(,account-token raw))
+                                        (content-type application/json))))
+    (lambda ()
+      (write-json
+       `((fileName . ,file-name)
+         (fileId . ,file-id))))
+    read-json))
+
+(define (b2-delete-bucket-files key-id app-key bucket-name)
+  (receive (token account-id api-url bucket-id _)
+      (b2-authorization-details key-id app-key bucket-name)
+    (let loop ((files (b2-list-file-versions-only-name-id api-url token bucket-id)))
+      (when (not (null? files))
+        (for-each (lambda (file)
+                    (b2-delete-file-version api-url token (car file) (cdr file)))
+                  files)
+        (loop (b2-list-file-versions-only-name-id api-url token bucket-id))))))
+
 (define (get-digital-ocean-regions api-token)
   (filter
    (lambda (r)
@@ -755,67 +857,49 @@ h1, h2, h3, h4, h5, h6 {
           `((success . #f)
             (errors ((message . ,(alist-ref 'message res)))))))))
 
-(define (test-backblaze-connection user-id instance-id key-id application-key bucket-url)
+(define (test-backblaze-connection key-id application-key)
-  (let* ((password-path (conc "restic-password-" user-id "-" instance-id))
+  (handle-exceptions
-         (restic-password
+   exn
-          (with-db/transaction
+   `((success . #f)
-           (lambda (db)
+     (errors ((message . ,(alist-ref 'code (read-json (get-condition-property exn 'client-error 'body)))))))
-             (get-instance-restic-password db user-id instance-id)))))
+   (receive (data request-uri response) (b2-authorize-account key-id application-key)
-    (dynamic-wind
+     (if (alist-ref 'authorizationToken data)
-      (lambda ()
+         `((success . #t)
-        (with-output-to-file password-path (lambda () (display restic-password))))
+           (result ,data))
-      (lambda ()
+         `((success . #f)
-        ;; restic retries (indefinitely?) if the connection can't be made so
+           (result ,data))))))
-        ;; we pass it through timeout to ensure it does not hang
+
-        (receive (in-port out-port pid err-port)
+(define *instance-up-timeout* 1) ;; seconds
-            (cond-expand
+(define *instance-up-retry-time* 120) ;; 120s, 2 minutes
-              (dev
+(define *instance-up-retries* (/ *instance-up-retry-time* *instance-up-timeout*))
-               (process* "timeout" `("--preserve-status" "8s" "docker" "run" "--rm" "--volume"
+(define (instance-up? path)
-                                     ,(conc (current-directory) "/" password-path ":/restic-password")
+  (let loop ((i 0))
-                                     "-e" ,(conc "AWS_ACCESS_KEY_ID=" key-id)
+    (let ((thread
-                                     "-e" ,(conc "AWS_SECRET_ACCESS_KEY=" application-key)
+           (thread-start!
-                                     "-i" "restic/restic:0.18.0" "cat" "config"
+            (lambda ()
-                                     "--repo" ,(conc "s3:" bucket-url)
+              (condition-case
-                                     "--password-file" "/restic-password"
+                  (receive (data uri response) (with-input-from-request path #f read-string)
-                                     "--json")))
+                    (if (eq? (response-code response) 401)
-              (else
+                        #t
-               (process* "/bin/timeout"
+                        (begin (thread-sleep! *instance-up-timeout*) ;; we depend on this taking at least as long as the timeout if the instance is still booting
-                         `("--preserve-status" "8s" "/bin/restic" "cat" "config"
+                               #f)))
-                           "--repo" ,(conc "s3:" bucket-url)
+                (e (exn client-error)
-                           "--password-file" ,(conc (current-directory) "/" password-path)
+                   (if (eq? (response-code (get-condition-property e 'client-error 'response)) 401)
-                           "--json")
+                       #t
-                         `(("AWS_ACCESS_KEY_ID" . ,key-id)
+                       (begin (thread-sleep! *instance-up-timeout*) ;; we depend on this taking at least as long as the timeout if the instance is still booting
-                           ("AWS_SECRET_ACCESS_KEY" . ,application-key)))))
+                              #f)))
-          (let ((thread
+                (e (exn net)
-                 (thread-start!
+                   (thread-sleep! *instance-up-timeout*)
-                  (lambda ()
+                   #f)
-                    (let loop ((i 0))
+                (e ()
-                      (thread-sleep! 1)
+                   (thread-sleep! *instance-up-timeout*)
-                      ;; We do a non-blocking wait here so that we don't
+                   #f))))))
-                      ;; block the entire web process.
+      (if (thread-join! thread *instance-up-timeout* #f)
-                      (receive (wait-pid exit-normal status) (process-wait pid #t)
+          #t
-                        (if (= wait-pid 0) ;; wait-pid is 0 until the process has finished
+          (if (< i *instance-up-retries*)
-                            (if (< i 12)   ;; 12s timeout
+              (loop (+ i 1))
-                                (loop (+ i 1))
+              #f)))))
-                                `((success . #f)
+
-                                  (errors ((message . "timeout trying to connect to backblaze")))))
-                            (if exit-normal
-                                (let ((res (with-input-from-port in-port read-json))
-                                      (err (with-input-from-port err-port read-json)))
-                                  ;; status 10 is what is returned if we can connect but the repo
-                                  ;; is not initialized yet
-                                  (if (or res (and err (= status 10)))
-                                      `((success . #t)
-                                        (result . ,res))
-                                      `((success . #f)
-                                        (errors ((message . "abnormal exit - check Key ID, Application ID, and Bucket URL"))))))
-                                `((success . #f)
-                                  (errors ((message . "abnormal exit - check Key ID, Application ID, and Bucket URL"))))
-                                ))))))))
-            (thread-join! thread))))
-      (lambda ()
-        (handle-exceptions exn 'ignore
-                           (delete-file password-path))))))
 
 (define (deployment-directory user-id instance-id)
   (string-append "deploy-" (number->string user-id) "-" (->string instance-id)))
@@ -963,6 +1047,34 @@ chmod -R 777 /opt/keys")))
                              "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
                             64)))
 
+(define (create-authelia-password-hash password)
+  ;; docker run --rm -it authelia/authelia:latest authelia crypto hash generate argon2
+  (receive (in-port out-port pid err-port)
+      (cond-expand
+        (dev
+         (process* "docker" `("run" "--rm" "authelia/authelia:latest" "authelia" "crypto" "hash" "generate" "argon2" "--password" ,password)))
+        (else
+         (process* "/usr/local/bin/authelia" `("crypto" "hash" "generate" "argon2" "--password" ,password))))
+    (let ((thread
+           (thread-start!
+            (lambda ()
+              (let loop ()
+                (thread-sleep! 1)
+                ;; We do a non-blocking wait here so that we don't
+                ;; block the entire web process.
+                (receive (wait-pid exit-normal status) (process-wait pid #t)
+                  (if (= wait-pid 0) ;; wait-pid is 0 until the process has finished
+                      (loop)
+                      (if exit-normal
+                          (begin
+                            (with-input-from-port err-port read-string) ;; left here for debugging and to clear ports
+                            ;; the output is prefixed with "Digest: " and suffixed with a newline
+                            ;; so we clean it up
+                            (string-drop (string-trim-right (with-input-from-port in-port read-string)) 8))
+                          (begin (log-to (debug-log) "authelia: docker command error")
+                                 (error "Authelia for generating password hash had abnormal exit"))))))))))
+      (thread-join! thread))))
+
 (define (generate-postgres-password)
   (generator->string (gtake (make-random-char-generator
                              "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
@@ -1139,9 +1251,7 @@ chmod -R 777 /opt/keys")))
                    (type "password")
                    (value ,(alist-ref 'backblaze-application-key config))))
          (Field (@ (name "backblaze-key-id") (label ("Key ID")) (type "password")
-                   (value ,(alist-ref 'backblaze-key-id config))))
+                   (value ,(alist-ref 'backblaze-key-id config)))))
-         (Field (@ (name "backblaze-bucket-url") (label ("Bucket URL")) (type "password")
-                   (value ,(alist-ref 'backblaze-bucket-url config)))))
         (Form-Nav)))))))
 
 (post "/config/wizard/services-submit/:id"
@@ -1157,8 +1267,7 @@ chmod -R 777 /opt/keys")))
          (cloudflare-zone-id . ,(alist-ref 'cloudflare-zone-id (current-params)))
          (digitalocean-api-token . ,(alist-ref 'digitalocean-api-token (current-params)))
          (backblaze-application-key . ,(alist-ref 'backblaze-application-key (current-params)))
-         (backblaze-key-id . ,(alist-ref 'backblaze-key-id (current-params)))
+         (backblaze-key-id . ,(alist-ref 'backblaze-key-id (current-params)))))))
-         (backblaze-bucket-url . ,(alist-ref 'backblaze-bucket-url (current-params)))))))
    (redirect (conc "/config/wizard/services-success/" instance-id))))
 
 (get/widgets
@@ -1172,10 +1281,8 @@ chmod -R 777 /opt/keys")))
                                                        (alist-ref 'cloudflare-zone-id service-config)
                                                        (alist-ref 'cloudflare-account-id service-config)))
         (digitalocean-result (test-digitalocean-connection (alist-ref 'digitalocean-api-token service-config)))
-        (backblaze-result (test-backblaze-connection (session-user-id) instance-id
+        (backblaze-result (test-backblaze-connection (alist-ref 'backblaze-key-id service-config)
-                                                     (alist-ref 'backblaze-key-id service-config)
+                                                     (alist-ref 'backblaze-application-key service-config))))
-                                                     (alist-ref 'backblaze-application-key service-config)
-                                                     (alist-ref 'backblaze-bucket-url service-config))))
    `(App
      (Configuration-Wizard
       (@ (step "Services"))
@@ -1237,7 +1344,17 @@ chmod -R 777 /opt/keys")))
                                  (filter cdr
                                          (get-user-selected-apps db (session-user-id) instance-id))))
               (app-config . ,(get-user-app-config db (session-user-id) instance-id))
-              (service-config . ,(get-user-service-config db (session-user-id) instance-id)))))))
+              (service-config . ,(get-user-service-config db (session-user-id) instance-id))))))
+        (backblaze-buckets (b2-account-buckets (alist-ref 'backblaze-key-id (alist-ref 'service-config results))
+                                               (alist-ref 'backblaze-application-key (alist-ref 'service-config results))))
+        (backblaze-s3-api-url (alist-ref
+                               's3ApiUrl
+                               (alist-ref
+                                'storageApi
+                                (alist-ref
+                                 'apiInfo
+                                 (b2-authorize-account (alist-ref 'backblaze-key-id (alist-ref 'service-config results))
+                                                       (alist-ref 'backblaze-application-key (alist-ref 'service-config results))))))))
    `(App
      (Configuration-Wizard
       (@ (step "Apps"))
@@ -1249,34 +1366,51 @@ chmod -R 777 /opt/keys")))
          (Field (@ (element select) (name "root-domain"))
                 ,@(map (lambda (domain)
                          `(option (@ (value ,domain)
+                                     (required #t)
                                      ,@(if (equal? domain
                                                    (alist-ref 'root-domain (alist-ref 'app-config results)))
                                            '(selected)
                                            '()))
                                   ,domain))
                        (get-cloudflare-domains (alist-ref 'cloudflare-api-token
-                                                          (alist-ref 'service-config results))))
+                                                          (alist-ref 'service-config results))))))
-                ))
+        (Fieldset
+         (@ (title "Backblaze Bucket"))
+         (Field (@ (element select) (name "backblaze-bucket-id"))
+                ,@(map (lambda (bucket)
+                         `(option (@ (value ,(string-append (alist-ref 'id bucket) "|" (alist-ref 'name bucket)))
+                                     (required #t)
+                                     ,@(if (equal? (alist-ref 'id bucket)
+                                                   (alist-ref 'backblaze-bucket-id (alist-ref 'service-config results)))
+                                           '(selected)
+                                           '()))
+                                  ,(alist-ref 'name bucket)))
+                       backblaze-buckets)))
+        (input (@ (type "hidden") (name "backblaze-s3-url") (value ,backblaze-s3-api-url)))
         (Fieldset
          (@ (title "Selected Apps"))
          (Field (@ (name "wg-easy") (type "checkbox") (label ("WG Easy")) (checked ,(member 'wg-easy (alist-ref 'selected-apps results)))))
          (Field (@ (name "nextcloud") (type "checkbox") (label ("NextCloud")) (checked ,(member 'nextcloud (alist-ref 'selected-apps results)))))
          (Field (@ (name "ghost") (type "checkbox") (label ("Ghost")) (checked ,(member 'ghost (alist-ref 'selected-apps results)))))
          ,@(cond-expand
-            (dev
+             (dev
-             `((Field (@ (name "nassella") (type "checkbox") (label ("Nassella")) (checked ,(member 'nassella (alist-ref 'selected-apps results)))))))
+              `((Field (@ (name "nassella") (type "checkbox") (label ("Nassella")) (checked ,(member 'nassella (alist-ref 'selected-apps results)))))))
-            (else
+             (else
-             '()))
+              '()))
          (Field (@ (name "wordpress") (type "checkbox") (label ("Wordpress")) (checked ,(member 'wordpress (alist-ref 'selected-apps results)))))
          (Field (@ (name "log-viewer") (type "checkbox") (label ("Log Viewer")) (checked #t) (disabled "disabled")))
-         (Field (@ (name "lldap") (type "checkbox") (label ("Admin LLDAP")) (checked #t) (disabled "disabled")))
+         ;; (Field (@ (name "lldap") (type "checkbox") (label ("Admin LLDAP")) (checked #t) (disabled "disabled")))
-         (Field (@ (name "authelia") (type "checkbox") (label ("Admin Authelia")) (checked #t) (disabled "disabled"))))
+         ;; (Field (@ (name "authelia") (type "checkbox") (label ("Admin Authelia")) (checked #t) (disabled "disabled")))
+         )
         ;; TODO add config for when automatic upgrades are scheduled for?
         ;; TODO add config for server timezone?
         (Form-Nav (@ (back-to ,(conc "/config/wizard/services-success/" instance-id))))))))))
 
 (post "/config/wizard/apps-submit/:id"
-  (let ((instance-id (alist-ref "id" (current-params) equal?)))
+  (let* ((instance-id (alist-ref "id" (current-params) equal?))
+         (bucket-values (string-split (alist-ref 'backblaze-bucket-id (current-params)) "|"))
+         (bucket-name (cadr bucket-values))
+         (bucket-id (car bucket-values)))
     (with-db/transaction
      (lambda (db)
        (update-user-selected-apps
@@ -1289,10 +1423,17 @@ chmod -R 777 /opt/keys")))
                   (ghost . ,(or (and (alist-ref 'ghost (current-params)) "6") #f))
                   (nassella . ,(or (and (alist-ref 'nassella (current-params)) "b0.0.1") #f))
                   (wordpress . ,(or (and (alist-ref 'wordpress (current-params)) "8.4") #f))
-                  (lldap . "0.6.3")
+                  (lldap . #f) ;; "0.6.3"
                   (authelia . "4")
                   (instance-control . "b0.0.1")
                   (log-viewer . "20"))))
+       (update-user-service-config
+        db
+        (session-user-id)
+        instance-id
+        `((backblaze-bucket-name . ,bucket-name)
+          (backblaze-bucket-id . ,bucket-id)
+          (backblaze-bucket-url . ,(string-append (alist-ref 'backblaze-s3-url (current-params)) "/" bucket-name))))
        (update-root-domain db
                            (session-user-id)
                            instance-id
@@ -1358,31 +1499,30 @@ chmod -R 777 /opt/keys")))
                  (Field (@ (name "wordpress-subdomain") (label ("Subdomain")) (required #t)
                            (value ,(alist-ref 'subdomain (alist-ref 'wordpress app-config eq? '()) eq? "wordpress"))))))
               '())
-        ,@(if (member 'lldap selected-apps)
+        ;; ,@(if (member 'lldap selected-apps)
-              `((Fieldset
+        ;;       `((Fieldset
-                 (@ (title "Admin LLDAP"))
+        ;;          (@ (title "Admin LLDAP"))
-                 (Field (@ (name "lldap-subdomain") (label ("Subdomain")) (required #t)
+        ;;          (Field (@ (name "lldap-subdomain") (label ("Subdomain")) (required #t)
-                           (value ,(alist-ref 'subdomain (alist-ref 'lldap app-config eq? '()) eq? "lldap"))))
+        ;;                    (value ,(alist-ref 'subdomain (alist-ref 'lldap app-config eq? '()) eq? "lldap"))))
-                 (Field (@ (name "lldap-user-email") (label ("Admin Email Address")) (type "email") (required #t)
+        ;;          (Field (@ (name "lldap-user-email") (label ("Admin Email Address")) (type "email") (required #t)
-                           (value ,(alist-ref 'user-email (alist-ref 'lldap app-config eq? '()) eq? ""))))
+        ;;                    (value ,(alist-ref 'user-email (alist-ref 'lldap app-config eq? '()) eq? ""))))
-                 (Field (@ (name "lldap-admin-password") (label ("Admin Password")) (type "password") (required #t)
+        ;;          (Field (@ (name "lldap-admin-password") (label ("Admin Password")) (type "password") (required #t)
-                           (value ,(alist-ref 'admin-password (alist-ref 'lldap app-config eq? '()) eq? ""))))))
+        ;;                    (value ,(alist-ref 'admin-password (alist-ref 'lldap app-config eq? '()) eq? ""))))))
-              '())
+        ;;       '())
-        ,@(if (member 'authelia selected-apps)
+        ;; ,@(if (member 'authelia selected-apps)
-              `((Fieldset
+        ;;       `((Fieldset
-                 (@ (title "Admin Authelia"))
+        ;;          (@ (title "Admin Authelia"))
-                 (Field (@ (name "authelia-subdomain") (label ("Subdomain")) (required #t)
+        ;;          (Field (@ (name "authelia-subdomain") (label ("Subdomain")) (required #t)
-                           (value ,(alist-ref 'subdomain (alist-ref 'authelia app-config eq? '()) eq? "authelia"))))))
+        ;;                    (value ,(alist-ref 'subdomain (alist-ref 'authelia app-config eq? '()) eq? "authelia"))))))
-              '())
+        ;;       '())
         (Fieldset
          (@ (title "Log Viewer"))
          (Field (@ (name "log-viewer-subdomain") (label ("Subdomain")) (required #t)
                    (value ,(alist-ref 'subdomain (alist-ref 'log-viewer app-config eq? '()) eq? "logs"))))
-         ;; (Field (@ (name "log-viewer-user") (label ("Username")) (required #t)
+         (Field (@ (name "log-viewer-user") (label ("Admin Email")) (required #t)
-         ;;           (value ,(alist-ref 'user (alist-ref 'log-viewer app-config eq? '()) eq? ""))))
+                   (value ,(alist-ref 'user (alist-ref 'log-viewer app-config eq? '()) eq? ""))))
-         ;; (Field (@ (name "log-viewer-password") (label ("Password")) (type "password") (required #t)
+         (Field (@ (name "log-viewer-password") (label ("Admin Password")) (type "password") (required #t)
-         ;;           (value ,(alist-ref 'password (alist-ref 'log-viewer app-config eq? '()) eq? ""))))
+                   (value ,(alist-ref 'password (alist-ref 'log-viewer app-config eq? '()) eq? "")))))
-         )
         ,@(if (or (member 'nextcloud selected-apps) (member 'ghost selected-apps) (member 'nassella selected-apps) (member 'authelia selected-apps))
               `((Fieldset
                  (@ (title "All Apps - Email - SMTP"))
@@ -1520,8 +1660,8 @@ chmod -R 777 /opt/keys")))
                                                                            (alist-ref 'authelia config eq? '()))
                                                                 (generate-authelia-key-seed)))))
                             (log-viewer . ((subdomain . ,(alist-ref 'log-viewer-subdomain (current-params)))
-                                           (user . "unused") ;; TODO can we remove?
+                                           (user . ,(alist-ref 'log-viewer-user (current-params)))
-                                           (password . "unused"))) ;; TODO can we remove?
+                                           (password . ,(alist-ref 'log-viewer-password (current-params)))))
                             (all-apps . ((smtp-host . ,(alist-ref 'smtp-host (current-params)))
                                          (smtp-port . ,(alist-ref 'smtp-port (current-params)))
                                          (smtp-auth-user . ,(alist-ref 'smtp-auth-user (current-params)))
@@ -1685,7 +1825,6 @@ chmod -R 777 /opt/keys")))
              (restic-password (alist-ref 'restic-password results))
              (dir (deployment-directory (session-user-id) instance-id)))
         (setup-deploy-files dir (alist-ref 'state terraform-state) (alist-ref 'backup terraform-state))
-        (log-to (debug-log) "writing configs")
         (with-output-to-file (string-append dir "/config/apps.config")
           (lambda ()
             (map (lambda (e)
@@ -1695,13 +1834,14 @@ chmod -R 777 /opt/keys")))
                                       (map (lambda (app-version)
                                              (conc (if (eq? (car app-version) 'log-viewer) 'dozzle (car app-version))
                                                    ","
-                                                   (alist-ref 'subdomain (alist-ref (car app-version) config))
+                                                   (or (alist-ref 'subdomain (alist-ref (car app-version) config))
+                                                       "nassella-ignore") ;; a hack to get authelia to work for now
                                                    ","
                                                    (cdr app-version)))
                                            selected-apps)
                                       " "))
                    ("HOST_ADMIN_USER" . ,(alist-ref 'user (alist-ref 'log-viewer config)))
-                   ("HOST_ADMIN_PASSWORD" . ,(alist-ref 'password (alist-ref 'log-viewer config)))
+                   ("HOST_ADMIN_PASSWORD" . ,(create-authelia-password-hash (alist-ref 'password (alist-ref 'log-viewer config))))
                    ("NEXTCLOUD_ADMIN_USER" . ,(alist-ref 'admin-user (alist-ref 'nextcloud config)))
                    ("NEXTCLOUD_ADMIN_PASSWORD" . ,(alist-ref 'admin-password (alist-ref 'nextcloud config)))
                    ("NEXTCLOUD_POSTGRES_DB" . "nextcloud")
@@ -1774,50 +1914,59 @@ chmod -R 777 /opt/keys")))
               (with-db/transaction
                (lambda (db)
                  (get-user-app-config db (session-user-id) instance-id))))
+             (first-deployment? (not (with-db/transaction (lambda (db) (get-most-recent-deployment-status db user-id instance-id)))))
              (deployment-id (with-db/transaction (lambda (db) (create-deployment db user-id instance-id))))
              (dir (deployment-directory user-id instance-id))
              (backup-request-id (conc (truncate (time->seconds (current-time))) "-" (pseudo-random-integer 10000))))
-        (with-db/transaction
+        (if first-deployment?
-         (lambda (db)
+            (with-db/transaction
-           (update-deployment-progress db deployment-id '((instance-backup . in-progress)))))
+               (lambda (db)
-        ;; ;; TODO does this handle new deployments? We should not do a back up if this is new!
+                 (update-deployment-progress db deployment-id '((instance-backup . ignored)
-        (handle-exceptions
+                                                                (machine-destroy . ignored)
-            exn
+                                                                (ip-destroy . ignored)
-          (with-db/transaction
+                                                                (volume-destroy . ignored)))))
-           (lambda (db)
+            (begin
-             (update-deployment-progress db deployment-id '((instance-backup . failed)))))
+              (with-db/transaction
-          (send-instance-control-command
+               (lambda (db)
-           (alist-ref 'root-domain app-config)
+                 (update-deployment-progress db deployment-id '((instance-backup . in-progress)))))
-           (alist-ref 'subdomain (alist-ref 'instance-control (alist-ref 'config app-config)))
+              (handle-exceptions
-           "queue-restic-snapshot-no-restart"
+                  exn
-           (alist-ref 'webhooks-secret (alist-ref 'instance-control (alist-ref 'config app-config)))
+                (with-db/transaction
-           `((path . "/")
+                 (lambda (db)
-             (tag . "automated_pre_instance_update")
+                   (update-deployment-progress db deployment-id '((instance-backup . failed)))))
-             ;; effectively a guid, we just want something unique
+                (send-instance-control-command
-             (request_id . ,backup-request-id)
+                 (alist-ref 'root-domain app-config)
-             (version . 0))))
+                 (alist-ref 'subdomain (alist-ref 'instance-control (alist-ref 'config app-config)))
+                 "queue-restic-snapshot-no-restart"
+                 (alist-ref 'webhooks-secret (alist-ref 'instance-control (alist-ref 'config app-config)))
+                 `((path . "/")
+                   (tag . "automated_pre_instance_update")
+                   ;; effectively a guid, we just want something unique
+                   (request_id . ,backup-request-id)
+                   (version . 0))))))
         (thread-start!
          (lambda ()
-           (let ((start-time (time->seconds (current-time))))
+           (when (not first-deployment?)
-             (let loop ()
+             (let ((start-time (time->seconds (current-time))))
-               (thread-sleep! 1)
+               (let loop ()
-               (let* ((status-result
+                 (thread-sleep! 1)
-                       (handle-exceptions
+                 (let* ((status-result
-                           exn
+                         (handle-exceptions
-                         '((status . "error"))
+                             exn
-                         (send-instance-control-command
+                           '((status . "error"))
-                          (alist-ref 'root-domain app-config)
+                           (send-instance-control-command
-                          (alist-ref 'subdomain (alist-ref 'instance-control (alist-ref 'config app-config)))
+                            (alist-ref 'root-domain app-config)
-                          "restic-snapshot-status"
+                            (alist-ref 'subdomain (alist-ref 'instance-control (alist-ref 'config app-config)))
-                          (alist-ref 'webhooks-secret (alist-ref 'instance-control (alist-ref 'config app-config)))
+                            "restic-snapshot-status"
-                          `((request_id . ,backup-request-id)
+                            (alist-ref 'webhooks-secret (alist-ref 'instance-control (alist-ref 'config app-config)))
-                            (version . 0)))))
+                            `((request_id . ,backup-request-id)
-                      (complete (string=? (alist-ref 'status status-result) "complete")))
+                              (version . 0)))))
-                 (if (or complete (> (- (time->seconds (current-time)) start-time) 120))
+                        (complete (string=? (alist-ref 'status status-result) "complete")))
-                     (with-db/transaction
+                   (if (or complete (> (- (time->seconds (current-time)) start-time) 120))
-                      (lambda (db)
+                       (with-db/transaction
-                        (update-deployment-progress db deployment-id `((instance-backup . ,(or (and complete 'complete) 'failed))))))
+                        (lambda (db)
-                     (loop)))))
+                          (update-deployment-progress db deployment-id `((instance-backup . ,(or (and complete 'complete) 'failed))))))
+                       (loop))))))
            (change-directory dir)
            (let ((pid (process-run "make preapply && make apply > make-out 2>&1")))
              (with-db/transaction (lambda (db) (update-deployment-in-progress db deployment-id pid)))
@@ -1849,13 +1998,29 @@ chmod -R 777 /opt/keys")))
                        (with-db/transaction
                         (lambda (db)
                           (update-deployment-progress db deployment-id progress)
-                          (update-deployment-status
-                           db user-id deployment-id
-                           (if (= status 0) 'complete 'failed)
-                           (with-input-from-file (string-append dir "/make-out") read-string))
                           (update-user-terraform-state db user-id instance-id
                                                        (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))
+                          (if (= status 0)
+                              (update-deployment-progress db deployment-id `((instance-up . in-progress)))
+                              (update-deployment-status
+                               db user-id deployment-id
+                               'failed
+                               (with-input-from-file (string-append dir "/make-out") read-string)))))
+                       (when (= status 0)
+                         (let ((instance-up (instance-up? (string-append "https://"
+                                                                         (alist-ref 'subdomain (alist-ref 'log-viewer (alist-ref 'config app-config)))
+                                                                         "."
+                                                                         (alist-ref 'root-domain app-config)))))
+                           (with-db/transaction
+                            (lambda (db)
+                              (update-deployment-progress db deployment-id `((instance-up . ,(if instance-up 'complete 'failed))))
+                              (update-deployment-status
+                               db user-id deployment-id
+                               (if instance-up
+                                   'complete
+                                   'failed)
+                               (with-input-from-file (string-append dir "/make-out") read-string))))))))))))))))
       (redirect (conc "/config/wizard/success/" (alist-ref "id" (current-params) equal?))))
 
 (get/widgets
@@ -1893,10 +2058,12 @@ chmod -R 777 /opt/keys")))
                                ((complete) "Complete!")
                                ((failed) "Failed"))))
        (ul ,@(map (lambda (x)
-                    `(li (HStack (@ (style ((align-items "center")
+                    (if (eq? (alist-ref (car x) progress) 'ignored)
-                                            (margin-bottom ,($ 'gap.gutter)))))
+                        '()
-                                 (Deployment-Status-Pill (@ (status ,(alist-ref (car x) progress))))
+                        `((li (HStack (@ (style ((align-items "center")
-                                 ,(cdr x))))
+                                                 (margin-bottom ,($ 'gap.gutter)))))
+                                      (Deployment-Status-Pill (@ (status ,(alist-ref (car x) progress))))
+                                      ,(cdr x))))))
                   '((instance-backup . "Backup Instance")
                     (generate-configs . "Generate Custom Image")
                     (custom-image . "Upload Flatcar Image")
@@ -1905,7 +2072,8 @@ chmod -R 777 /opt/keys")))
                     (ip-destroy . "Instance Mapped IP Disconnect")
                     (ip-create . "Instance Mapped IP Connect")
                     (volume-create . "App Volume Connect")
-                    (machine-destroy . "Cleanup Previous Instance"))))
+                    (machine-destroy . "Cleanup Previous Instance")
+                    (instance-up . "Instance Starting Up"))))
        (form
         (@ (action "/dashboard") (method GET))
         ,@(if (or (eq? (string->symbol status) 'complete) (eq? (string->symbol status) 'failed))
@@ -1929,7 +2097,7 @@ chmod -R 777 /opt/keys")))
 (define (instance-status->pill-type status)
   (case (string->symbol status)
     ((queued) 'info)
-    ((in-progress 'warning))
+    ((in-progress) 'warning)
     ((complete) 'safe)
     ((failed) 'alert)
     (else 'alert)))
@@ -1989,8 +2157,8 @@ chmod -R 777 /opt/keys")))
                          (h3 "Apps")
                          (ul ,@(map (lambda (app-info)
                                       (let ((app (alist-ref 'app-name app-info)))
-                                        `((li (a (@ (href "#") (style ((color ,($ 'color.primary.background-contrast))))) ,app) ;; TODO documentation URL
+                                        `((li ;; (a (@ (href "#") (style ((color ,($ 'color.primary.background-contrast))))) ,app)
-                                              " (v" ,(alist-ref 'installed-version app-info) ") "
+                                              (h4 ,app " (v" ,(alist-ref 'installed-version app-info) ") ")
                                               (a (@ (href "https://"
                                                           ,(alist-ref 'subdomain (alist-ref app config))
                                                           "." ,root-domain)
@@ -2058,170 +2226,192 @@ chmod -R 777 /opt/keys")))
       (@ (action ,(conc "/destroy-submit/" instance-id)) (method POST))
       (VStack
        (Fieldset
-        (@ (title "Type the domain name of the instance to confirm."))
+        (@ (title "Delete Instance"))
-        (Field (@ (name "instance-domain") (label ("Domain")) (value ""))))
+        (Field (@ (name "instance-domain") (label ("Type the domain name of the instance to confirm.")) (value "")))
+        (Field (@ (name "delete-backups") (label ("Delete backups for this instance")) (type "checkbox"))))
+       (input (@ (type "hidden") (value ,(alist-ref 'force (current-params))) (name "force")))
        (Form-Nav (@ (back-to "/dashboard") (submit-button "Destroy"))))))))
 
-;; TODO This is mostly a copy of the deployment POST action
 (post "/destroy-submit/:id"
-      (let* ((instance-id (alist-ref "id" (current-params) equal?))
+  (let* ((instance-id (alist-ref "id" (current-params) equal?))
-             (results
+         (status (string->symbol
-              (with-db/transaction
+                  (->string
-               (lambda (db)
+                   (with-db/transaction
-                 `((selected-apps . ,(map
+                    (lambda (db)
-                                      car
+                      (get-most-recent-deployment-status db (session-user-id) instance-id)))))))
-                                      (filter cdr
+    (if (or (not (or (eq? status 'queued) (eq? status 'in-progress)))
-                                              (get-user-selected-apps db (session-user-id) instance-id))))
+            (equal? (alist-ref 'force (current-params)) "true"))
-                   (app-config . ,(get-user-app-config db (session-user-id) instance-id))
+        (let* ((instance-id (alist-ref "id" (current-params) equal?))
-                   (service-config . ,(get-user-service-config db (session-user-id) instance-id))
+               (restic-snapshot-id (alist-ref 'restic-snapshot-id (current-params)))
-                   (terraform-state . ,(get-user-terraform-state db (session-user-id) instance-id))
+               (results
-                   (ssh-pub-key . ,(get-instance-ssh-pub-key db (session-user-id) instance-id))
+                (with-db/transaction
-                   (restic-password . ,(get-instance-restic-password db (session-user-id) instance-id))))))
+                 (lambda (db)
-             (selected-apps (alist-ref 'selected-apps results))
+                   `((selected-apps . ,(get-user-selected-apps db (session-user-id) instance-id))
-             (app-config (alist-ref 'app-config results))
+                     (app-config . ,(get-user-app-config db (session-user-id) instance-id))
-             (config (alist-ref 'config app-config))
+                     (service-config . ,(get-user-service-config db (session-user-id) instance-id))
-             (root-domain (alist-ref 'root-domain app-config))
+                     (terraform-state . ,(get-user-terraform-state db (session-user-id) instance-id))
-             (service-config (alist-ref 'service-config results))
+                     (ssh-pub-key . ,(get-instance-ssh-pub-key db (session-user-id) instance-id))
-             (terraform-state (alist-ref 'terraform-state results))
+                     (restic-password . ,(get-instance-restic-password db (session-user-id) instance-id))))))
-             (ssh-pub-key (alist-ref 'ssh-pub-key results))
+               (selected-apps (alist-ref 'selected-apps results))
-             (restic-password (alist-ref 'restic-password results))
+               (app-config (alist-ref 'app-config results))
-             (dir (deployment-directory (session-user-id) instance-id)))
+               (config (alist-ref 'config app-config))
-        (if (not (string=? (alist-ref 'instance-domain (current-params)) root-domain))
+               (root-domain (alist-ref 'root-domain app-config))
-            (redirect (conc "/destroy/" instance-id))
+               (service-config (alist-ref 'service-config results))
-            (begin
+               (terraform-state (alist-ref 'terraform-state results))
-              (setup-deploy-files dir (alist-ref 'state terraform-state) (alist-ref 'backup terraform-state))
+               (ssh-pub-key (alist-ref 'ssh-pub-key results))
-              (with-output-to-file (string-append dir "/config/apps.config")
+               (restic-password (alist-ref 'restic-password results))
-                (lambda ()
+               (dir (deployment-directory (session-user-id) instance-id)))
-                  (map (lambda (e)
+          (if (not (string=? (alist-ref 'instance-domain (current-params)) root-domain))
-                         (write-config-entry (car e) (cdr e)))
+              (redirect (conc "/destroy/" instance-id))
-                       `(("ROOT_DOMAIN" . ,root-domain)
+              (begin
-                         ("APP_CONFIGS" . ,(string-intersperse
+                (setup-deploy-files dir (alist-ref 'state terraform-state) (alist-ref 'backup terraform-state))
-                                            (map (lambda (app-version)
+                (with-output-to-file (string-append dir "/config/apps.config")
-                                                   (conc (if (eq? (car app-version) 'log-viewer) 'dozzle (car app-version))
+                  (lambda ()
-                                                         ","
+                    (map (lambda (e)
-                                                         (alist-ref 'subdomain (alist-ref (car app-version) config))
+                           (write-config-entry (car e) (cdr e)))
-                                                         ","
+                         `(("ROOT_DOMAIN" . ,root-domain)
-                                                         (cdr app-version)))
+                           ("APP_CONFIGS" . ,(string-intersperse
-                                                 selected-apps)
+                                              (map (lambda (app-version)
-                                            " "))
+                                                     (conc (if (eq? (car app-version) 'log-viewer) 'dozzle (car app-version))
-                         ("HOST_ADMIN_USER" . ,(alist-ref 'user (alist-ref 'log-viewer config)))
+                                                           ","
-                         ("HOST_ADMIN_PASSWORD" . ,(alist-ref 'password (alist-ref 'log-viewer config)))
+                                                           (alist-ref 'subdomain (alist-ref (car app-version) config))
-                         ("NEXTCLOUD_ADMIN_USER" . ,(alist-ref 'admin-user (alist-ref 'nextcloud config)))
+                                                           ","
-                         ("NEXTCLOUD_ADMIN_PASSWORD" . ,(alist-ref 'admin-password (alist-ref 'nextcloud config)))
+                                                           (cdr app-version)))
-                         ("NEXTCLOUD_POSTGRES_DB" . "nextcloud")
+                                                   selected-apps)
-                         ("NEXTCLOUD_POSTGRES_USER" . "nextcloud")
+                                              " "))
-                         ("NEXTCLOUD_POSTGRES_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'nextcloud config)))
+                           ("HOST_ADMIN_USER" . ,(alist-ref 'user (alist-ref 'log-viewer config)))
-                         ("NEXTCLOUD_REDIS_PASSWORD" . ,(alist-ref 'redis-password (alist-ref 'nextcloud config)))
+                           ("HOST_ADMIN_PASSWORD" . ,(alist-ref 'password (alist-ref 'log-viewer config)))
-                         ("GHOST_DATABASE_ROOT_PASSWORD" . ,(alist-ref 'postgres-root-password (alist-ref 'ghost config)))
+                           ("NEXTCLOUD_ADMIN_USER" . ,(alist-ref 'admin-user (alist-ref 'nextcloud config)))
-                         ("GHOST_DATABASE_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'ghost config)))
+                           ("NEXTCLOUD_ADMIN_PASSWORD" . ,(alist-ref 'admin-password (alist-ref 'nextcloud config)))
-                         ("NASSELLA_LLDAP_SUBDOMAIN" . ,(alist-ref 'lldap-subdomain (alist-ref 'nassella config)))
+                           ("NEXTCLOUD_POSTGRES_DB" . "nextcloud")
-                         ("NASSELLA_POSTGRES_DB" . "nassella")
+                           ("NEXTCLOUD_POSTGRES_USER" . "nextcloud")
-                         ("NASSELLA_POSTGRES_USER" . "nassella")
+                           ("NEXTCLOUD_POSTGRES_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'nextcloud config)))
-                         ("NASSELLA_POSTGRES_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'nassella config)))
+                           ("NEXTCLOUD_REDIS_PASSWORD" . ,(alist-ref 'redis-password (alist-ref 'nextcloud config)))
-                         ("NASSELLA_AUTHELIA_POSTGRES_DB" . "authelia")
+                           ("GHOST_DATABASE_ROOT_PASSWORD" . ,(alist-ref 'postgres-root-password (alist-ref 'ghost config)))
-                         ("NASSELLA_AUTHELIA_POSTGRES_USER" . "authelia")
+                           ("GHOST_DATABASE_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'ghost config)))
-                         ("NASSELLA_AUTHELIA_POSTGRES_PASSWORD" . ,(alist-ref 'authelia-postgres-password (alist-ref 'nassella config)))
+                           ("NASSELLA_LLDAP_SUBDOMAIN" . ,(alist-ref 'lldap-subdomain (alist-ref 'nassella config)))
-                         ("NASSELLA_LLDAP_POSTGRES_DB" . "lldap")
+                           ("NASSELLA_POSTGRES_DB" . "nassella")
-                         ("NASSELLA_LLDAP_POSTGRES_USER" . "lldap")
+                           ("NASSELLA_POSTGRES_USER" . "nassella")
-                         ("NASSELLA_LLDAP_POSTGRES_PASSWORD" . ,(alist-ref 'lldap-postgres-password (alist-ref 'nassella config)))
+                           ("NASSELLA_POSTGRES_PASSWORD" . ,(alist-ref 'postgres-password (alist-ref 'nassella config)))
-                         ("NASSELLA_LLDAP_JWT_SECRET" . ,(alist-ref 'lldap-jwt-secret (alist-ref 'nassella config)))
+                           ("NASSELLA_AUTHELIA_POSTGRES_DB" . "authelia")
-                         ("NASSELLA_LLDAP_KEY_SEED" . ,(alist-ref 'lldap-key-seed (alist-ref 'nassella config)))
+                           ("NASSELLA_AUTHELIA_POSTGRES_USER" . "authelia")
-                         ("NASSELLA_LLDAP_ADMIN_PASSWORD" . ,(alist-ref 'lldap-admin-password (alist-ref 'nassella config)))
+                           ("NASSELLA_AUTHELIA_POSTGRES_PASSWORD" . ,(alist-ref 'authelia-postgres-password (alist-ref 'nassella config)))
-                         ("NASSELLA_STRIPE_API_KEY" . ,(alist-ref 'stripe-api-key (alist-ref 'nassella config)))
+                           ("NASSELLA_LLDAP_POSTGRES_DB" . "lldap")
-                         ("NASSELLA_AUTHELIA_JWT_SECRET" . ,(alist-ref 'authelia-jwt-secret (alist-ref 'nassella config)))
+                           ("NASSELLA_LLDAP_POSTGRES_USER" . "lldap")
-                         ("NASSELLA_AUTHELIA_KEY_SEED" . ,(alist-ref 'authelia-key-seed (alist-ref 'nassella config)))
+                           ("NASSELLA_LLDAP_POSTGRES_PASSWORD" . ,(alist-ref 'lldap-postgres-password (alist-ref 'nassella config)))
-                         ("WORDPRESS_DB_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'wordpress config)))
+                           ("NASSELLA_LLDAP_JWT_SECRET" . ,(alist-ref 'lldap-jwt-secret (alist-ref 'nassella config)))
-                         ("WORDPRESS_DB_ROOT_PASSWORD" . ,(alist-ref 'db-root-password (alist-ref 'wordpress config)))
+                           ("NASSELLA_LLDAP_KEY_SEED" . ,(alist-ref 'lldap-key-seed (alist-ref 'nassella config)))
-                         ("LLDAP_POSTGRES_DB" . "lldap")
+                           ("NASSELLA_LLDAP_ADMIN_PASSWORD" . ,(alist-ref 'lldap-admin-password (alist-ref 'nassella config)))
-                         ("LLDAP_POSTGRES_USER" . "lldap")
+                           ("NASSELLA_STRIPE_API_KEY" . ,(alist-ref 'stripe-api-key (alist-ref 'nassella config)))
-                         ("LLDAP_POSTGRES_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'lldap config)))
+                           ("NASSELLA_AUTHELIA_JWT_SECRET" . ,(alist-ref 'authelia-jwt-secret (alist-ref 'nassella config)))
-                         ("LLDAP_JWT_SECRET" . ,(alist-ref 'jwt-secret (alist-ref 'lldap config)))
+                           ("NASSELLA_AUTHELIA_KEY_SEED" . ,(alist-ref 'authelia-key-seed (alist-ref 'nassella config)))
-                         ("LLDAP_KEY_SEED" . ,(alist-ref 'key-seed (alist-ref 'lldap config)))
+                           ("WORDPRESS_DB_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'wordpress config)))
-                         ("LLDAP_ADMIN_PASSWORD" . ,(alist-ref 'admin-password (alist-ref 'lldap config)))
+                           ("WORDPRESS_DB_ROOT_PASSWORD" . ,(alist-ref 'db-root-password (alist-ref 'wordpress config)))
-                         ("LLDAP_USER_EMAIL" . ,(alist-ref 'user-email (alist-ref 'lldap config)))
+                           ("LLDAP_POSTGRES_DB" . "lldap")
-                         ("AUTHELIA_POSTGRES_DB" . "authelia")
+                           ("LLDAP_POSTGRES_USER" . "lldap")
-                         ("AUTHELIA_POSTGRES_USER" . "authelia")
+                           ("LLDAP_POSTGRES_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'lldap config)))
-                         ("AUTHELIA_POSTGRES_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'authelia config)))
+                           ("LLDAP_JWT_SECRET" . ,(alist-ref 'jwt-secret (alist-ref 'lldap config)))
-                         ("AUTHELIA_JWT_SECRET" . ,(alist-ref 'jwt-secret (alist-ref 'authelia config)))
+                           ("LLDAP_KEY_SEED" . ,(alist-ref 'key-seed (alist-ref 'lldap config)))
-                         ("AUTHELIA_SESSION_SECRET" . ,(alist-ref 'session-secret (alist-ref 'authelia config)))
+                           ("LLDAP_ADMIN_PASSWORD" . ,(alist-ref 'admin-password (alist-ref 'lldap config)))
-                         ("AUTHELIA_ENCRYPTION_KEY" . ,(alist-ref 'encryption-key (alist-ref 'authelia config)))
+                           ("LLDAP_USER_EMAIL" . ,(alist-ref 'user-email (alist-ref 'lldap config)))
-                         ("SMTP_HOST" . ,(alist-ref 'smtp-host (alist-ref 'all-apps config)))
+                           ("AUTHELIA_POSTGRES_DB" . "authelia")
-                         ("SMTP_PORT" . ,(alist-ref 'smtp-port (alist-ref 'all-apps config)))
+                           ("AUTHELIA_POSTGRES_USER" . "authelia")
-                         ("SMTP_AUTH_USER" . ,(alist-ref 'smtp-auth-user (alist-ref 'all-apps config)))
+                           ("AUTHELIA_POSTGRES_PASSWORD" . ,(alist-ref 'db-password (alist-ref 'authelia config)))
-                         ("SMTP_AUTH_PASSWORD" . ,(alist-ref 'smtp-auth-password (alist-ref 'all-apps config)))
+                           ("AUTHELIA_JWT_SECRET" . ,(alist-ref 'jwt-secret (alist-ref 'authelia config)))
-                         ("SMTP_FROM" . ,(alist-ref 'smtp-from (alist-ref 'all-apps config)))
+                           ("AUTHELIA_SESSION_SECRET" . ,(alist-ref 'session-secret (alist-ref 'authelia config)))
-                         ("BACKBLAZE_KEY_ID" . ,(alist-ref 'backblaze-key-id service-config))
+                           ("AUTHELIA_ENCRYPTION_KEY" . ,(alist-ref 'encryption-key (alist-ref 'authelia config)))
-                         ("BACKBLAZE_APPLICATION_KEY" . ,(alist-ref 'backblaze-application-key service-config))
+                           ("SMTP_HOST" . ,(alist-ref 'smtp-host (alist-ref 'all-apps config)))
-                         ("BACKBLAZE_BUCKET_URL" . ,(alist-ref 'backblaze-bucket-url service-config))
+                           ("SMTP_PORT" . ,(alist-ref 'smtp-port (alist-ref 'all-apps config)))
-                         ("RESTIC_PASSWORD" . ,restic-password)
+                           ("SMTP_AUTH_USER" . ,(alist-ref 'smtp-auth-user (alist-ref 'all-apps config)))
-                         ("INSTANCE_CONTROL_WEBHOOKS_SECRET" . ,(alist-ref 'webhooks-secret (alist-ref 'instance-control config)))
+                           ("SMTP_AUTH_PASSWORD" . ,(alist-ref 'smtp-auth-password (alist-ref 'all-apps config)))
-                         ,@(if (and restic-snapshot-id (not (string=? restic-snapshot-id ""))) `(("RESTIC_SNAPSHOT_ID" . ,restic-snapshot-id)) '())))))
+                           ("SMTP_FROM" . ,(alist-ref 'smtp-from (alist-ref 'all-apps config)))
-              (with-output-to-file (string-append dir "/config/production.tfvars")
+                           ("BACKBLAZE_KEY_ID" . ,(alist-ref 'backblaze-key-id service-config))
-                (lambda ()
+                           ("BACKBLAZE_APPLICATION_KEY" . ,(alist-ref 'backblaze-application-key service-config))
-                  (map (lambda (e)
+                           ("BACKBLAZE_BUCKET_URL" . ,(alist-ref 'backblaze-bucket-url service-config))
-                         (write-terraform-config-entry (car e) (cdr e)))
+                           ("RESTIC_PASSWORD" . ,restic-password)
-                       `(("server_type" . ,(alist-ref 'digitalocean-size service-config))
+                           ("INSTANCE_CONTROL_WEBHOOKS_SECRET" . ,(alist-ref 'webhooks-secret (alist-ref 'instance-control config)))
-                         ("do_token" . ,(alist-ref 'digitalocean-api-token service-config))
+                           ,@(if (and restic-snapshot-id (not (string=? restic-snapshot-id ""))) `(("RESTIC_SNAPSHOT_ID" . ,restic-snapshot-id)) '())))))
-                         ("digitalocean_volume_size" . ,(alist-ref 'digitalocean-volume-size service-config))
+                (with-output-to-file (string-append dir "/config/production.tfvars")
-                         ("cloudflare_api_token" . ,(alist-ref 'cloudflare-api-token service-config))
+                  (lambda ()
-                         ("cloudflare_zone_id" . ,(alist-ref 'cloudflare-zone-id service-config))
+                    (map (lambda (e)
-                         ("cloudflare_account_id" . ,(alist-ref 'cloudflare-account-id service-config))
+                           (write-terraform-config-entry (car e) (cdr e)))
-                         ("cluster_name" . ,(string-append "nassella" (string-delete #\. root-domain))) ;; TODO update to: (import srfi-14) (string-filter char-set:letter+digit root-domain)
+                         `(("server_type" . ,(alist-ref 'digitalocean-size service-config))
-                         ("datacenter" . ,(alist-ref 'digitalocean-region service-config))
+                           ("do_token" . ,(alist-ref 'digitalocean-api-token service-config))
-                         ;; (source <(curl -sSfL https://stable.release.flatcar-linux.net/amd64-usr/current/version.txt); echo "${FLATCAR_VERSION_ID}")
+                           ("digitalocean_volume_size" . ,(alist-ref 'digitalocean-volume-size service-config))
-                         ("flatcar_stable_version" . "4593.2.4")))
+                           ("cloudflare_api_token" . ,(alist-ref 'cloudflare-api-token service-config))
-                  ;; remove the newline that generating the ssh key adds
+                           ("cloudflare_zone_id" . ,(alist-ref 'cloudflare-zone-id service-config))
-                  (display "ssh_keys=[\"") (display (string-drop-right ssh-pub-key 1)) (print "\"]")))
+                           ("cloudflare_account_id" . ,(alist-ref 'cloudflare-account-id service-config))
-              ;; TODO need a new table to track destroying?
+                           ("cluster_name" . ,(string-append "nassella" (string-delete #\. root-domain))) ;; TODO update to: (import srfi-14) (string-filter char-set:letter+digit root-domain)
-              ;; as this is creating a new "deployment"
+                           ("datacenter" . ,(alist-ref 'digitalocean-region service-config))
-              ;; to attach state to
+                           ;; (source <(curl -sSfL https://stable.release.flatcar-linux.net/amd64-usr/current/version.txt); echo "${FLATCAR_VERSION_ID}")
-              (let* ((instance-id (alist-ref "id" (current-params) equal?))
+                           ("flatcar_stable_version" . "4593.2.4")))
-                     (user-id (session-user-id))
+                    ;; remove the newline that generating the ssh key adds
-                     (deployment-id (with-db/transaction (lambda (db) (create-deployment db user-id instance-id))))
+                    (display "ssh_keys=[\"") (display (string-drop-right ssh-pub-key 1)) (print "\"]")))
-                     (dir (deployment-directory user-id instance-id)))
+                (let* ((instance-id (alist-ref "id" (current-params) equal?))
-                (thread-start!
+                       (delete-backups (alist-ref 'delete-backups (current-params) equal?))
-                 (lambda ()
+                       (user-id (session-user-id))
-                   (change-directory dir)
+                       (app-config
-                   (let ((pid (process-run "make preapply && make destroy > make-out 2>&1")))
+                        (with-db/transaction
-                     (with-db/transaction (lambda (db) (update-deployment-in-progress db deployment-id pid)))
+                         (lambda (db)
-                     (change-directory "../")
+                           (get-user-app-config db (session-user-id) instance-id))))
-                     (let loop ()
+                       (deployment-id (with-db/transaction (lambda (db) (create-deployment db user-id instance-id))))
-                       (thread-sleep! 5)
+                       (dir (deployment-directory user-id instance-id)))
-                       (receive (pid exit-normal status) (process-wait pid #t)
+                  (thread-start!
-                         (if (= pid 0) ;; process is still running
+                   (lambda ()
-                             (begin (let ((progress (parse-deployment-log
+                     (change-directory dir)
-                                                     (with-input-from-file
+                     (let ((pid (process-run "make preapply && make destroy > make-out 2>&1")))
-                                                         (string-append (deployment-directory user-id instance-id) "/make-out")
+                       (with-db/transaction (lambda (db) (update-deployment-in-progress db deployment-id pid)))
-                                                       read-string)))
+                       (change-directory "../")
-                                          (tf-state (with-input-from-file (string-append dir "/terraform.tfstate") read-string))
+                       (let loop ()
-                                          (tf-state-backup (with-input-from-file (string-append dir "/terraform.tfstate.backup") read-string)))
+                         (thread-sleep! 5)
-                                      (with-db/transaction
+                         (receive (pid exit-normal status) (process-wait pid #t)
-                                       (lambda (db)
+                           (if (= pid 0) ;; process is still running
-                                         (update-deployment-progress db deployment-id progress)
+                               (begin (let ((progress (parse-deployment-log
-                                         (when (file-exists? (string-append dir "/terraform.tfstate"))
+                                                       (with-input-from-file
-                                           (update-user-terraform-state db user-id instance-id
+                                                           (string-append (deployment-directory user-id instance-id) "/make-out")
-                                                                        (if (eof-object? tf-state) "" tf-state)
+                                                         read-string)))
-                                                                        (if (eof-object? tf-state-backup) "" tf-state-backup))))))
+                                            (tf-state (with-input-from-file (string-append dir "/terraform.tfstate") read-string))
-                                    (loop))
+                                            (tf-state-backup (with-input-from-file (string-append dir "/terraform.tfstate.backup") read-string)))
-                             (let ((progress (parse-deployment-log
+                                        (with-db/transaction
-                                              (with-input-from-file
+                                         (lambda (db)
-                                                  (string-append (deployment-directory user-id instance-id) "/make-out")
+                                           (update-deployment-progress db deployment-id progress)
-                                                read-string)))
+                                           (when (file-exists? (string-append dir "/terraform.tfstate"))
-                                   (tf-state (with-input-from-file (string-append dir "/terraform.tfstate") read-string))
+                                             (update-user-terraform-state db user-id instance-id
-                                   (tf-state-backup (with-input-from-file (string-append dir "/terraform.tfstate.backup") read-string)))
+                                                                          (if (eof-object? tf-state) "" tf-state)
-                               (with-db/transaction
+                                                                          (if (eof-object? tf-state-backup) "" tf-state-backup))))))
-                                (lambda (db)
+                                      (loop))
-                                  (update-deployment-progress db deployment-id progress)
+                               (let ((progress (parse-deployment-log
-                                  (update-deployment-status
+                                                (with-input-from-file
-                                   db user-id deployment-id
+                                                    (string-append (deployment-directory user-id instance-id) "/make-out")
-                                   (if exit-normal 'complete 'failed)
+                                                  read-string)))
-                                   (with-input-from-file (string-append dir "/make-out") read-string))
+                                     (tf-state (with-input-from-file (string-append dir "/terraform.tfstate") read-string))
-                                  (update-user-terraform-state db user-id instance-id
+                                     (tf-state-backup (with-input-from-file (string-append dir "/terraform.tfstate.backup") read-string)))
-                                                               (if (eof-object? tf-state) "" tf-state)
+                                 (with-db/transaction
-                                                               (if (eof-object? tf-state-backup) "" tf-state-backup))
+                                  (lambda (db)
-                                  (when exit-normal
+                                    (update-deployment-progress db deployment-id progress)
-                                    (destroy-instance db instance-id))))))))))))
+                                    (when (= status 0)
-              (redirect (conc "/destroy-success/" (alist-ref "id" (current-params) equal?)))))))
+                                      (update-deployment-status
+                                       db user-id deployment-id
+                                       'failed
+                                       (with-input-from-file (string-append dir "/make-out") read-string)))
+                                    (update-user-terraform-state db user-id instance-id
+                                                                 (if (eof-object? tf-state) "" tf-state)
+                                                                 (if (eof-object? tf-state-backup) "" tf-state-backup))))
+                                 ;; todo handle errors here
+                                 (when delete-backups
+                                   (b2-delete-bucket-files (alist-ref 'backblaze-key-id service-config) (alist-ref 'backblaze-application-key service-config)
+                                                           (last (uri-path (uri-reference (alist-ref 'backblaze-bucket-url service-config))))))
+                                 (with-db/transaction
+                                  (lambda (db)
+                                    (update-deployment-status
+                                     db user-id deployment-id
+                                     'complete
+                                     (with-input-from-file (string-append dir "/make-out") read-string))))
+                                 (with-db/transaction
+                                  (lambda (db)
+                                    (destroy-instance db instance-id)))))))))))
+                (redirect (conc "/config/wizard/success/" (alist-ref "id" (current-params) equal?))))))
+        (redirect (conc "/config/wizard/success/" (alist-ref "id" (current-params) equal?))))))
 
 (get/widgets
  ("/destroy-success/:id"