fixup! add script to backup and then unprovision server

this introduces a new env variable 'DOMAIN', and a matching function,
'domain', the function's first argument is the type of record of which
A records are the only supported type (for now), and the second is the
action (create, delete, show). a current limitation of this is that
the subdomain will always be 'auto-mc', as the domain variable has to
be second level.

deploy.sh

@@ -18,6 +18,12 @@ else
 	echo "Firewall rule already exists"
 fi
 
+# TODO: also add this to config create
+if [ $DOMAIN ]; then
+	echo "Creating a domain record..."
+	domain A create
+fi
+
 versionprompt
 echo -n "Waiting for machine to respond"
 # tests if ssh is up, waiting one second between attempts
@@ -37,7 +43,13 @@ fi
 echo "Now installing!"
 ssh root@$ipv4_address < <(cat <(echo VERSION=$version) ./automate.sh)
 
+if [ $DOMAIN ]; then
+	echo "Minecraft server started on domain: auto-mc.$DOMAIN"
+	echo "(IP: $ipv4_address)"
+else
 	echo "Minecraft server started at IP: $ipv4_address"
+fi
+
 echo "Would you like to enter the server console?"
 
 if yes; then

functions.sh

@@ -203,6 +203,43 @@ keys(){
 	esac
 }
 
+domain(){
+	local type="$1"; shift
+	local command="$1"; shift
+
+	case $type in
+		A)
+			case $command in
+				create)
+					# requires $ipv4_address and $DOMAIN to be set
+					# we use a very short ttl on the record to avoid
+					# caching a deleted server
+					curl -s -X POST \
+						-H "Content-Type: application/json" \
+						-H "Authorization: Bearer $TOKEN" \
+						-d '{"type":"A","name":"auto-mc","data":"'$ipv4_address'","ttl":180}' \
+						"https://api.digitalocean.com/v2/domains/$DOMAIN/records" > /dev/null
+				;;
+				delete)
+					# requires $DOMAIN to be set
+					domain_id="$(domain A show | jq .id)"
+					curl -s -X DELETE \
+						-H "Content-Type: application/json" \
+						-H "Authorization: Bearer $TOKEN" \
+						"https://api.digitalocean.com/v2/domains/$DOMAIN/records/$domain_id" > /dev/null
+				;;
+				show)
+					curl -s -X GET \
+						-H "Content-Type: application/json" \
+						-H "Authorization: Bearer $TOKEN" \
+						"https://api.digitalocean.com/v2/domains/$DOMAIN/records" |\
+						jq '.domain_records[] | select(.type == "A") | select(.name == "auto-mc")'
+				;;
+			esac
+		;;
+	esac
+}
+
 machine(){
 	local command="$1"; shift
 	local arg="$1"; shift

undeploy.sh

@@ -3,6 +3,10 @@ install_dir="$(dirname "$(readlink -f "$0")")" # find the install directory
 source "$install_dir/functions.sh"
 
 data_dir get
+config get
 machine show ipv4 | jq -r .ip_address | read ipv4_address
 ssh root@$ipv4_address <<<mc-backup > "$data_dir/server.tar.zstd"
+if [ $DOMAIN ]; then
+	domain A destroy
+fi
 machine destroy