From 90650a8a5a6cd41678b4735e6fda79fdfe269f22 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Mon, 24 Oct 2022 00:24:57 +0100
Subject: [PATCH] implement /danger/delete-snapshot defroute (back-end in
 web.lisp).

---
 src/web.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/web.lisp b/src/web.lisp
index a81c7f3..3b120ec 100644
--- a/src/web.lisp
+++ b/src/web.lisp
@@ -1707,8 +1707,12 @@
                      (utils:set-alert "No Snapshot Name provided." "missing-data")
                      (redirect "/danger/manage-snapshots"))
                     ;; Check snapshot exists here...
+                    ((not (storage:raw-directory-exists?
+                            (format nil "snapshots/~a/" snapshot-name)))
+                     (utils:set-alert "Cannot find selected Snapshot." "invalid-data")
+                     (redirect "/danger/manage-snapshots"))
                     (t
-                     ;; (snapshot:delete-snapshot)
+                     (snapshot:delete-snapshot snapshot-name)
                      (utils:set-alert "Snapshot deleted." "success")
                      (redirect "/danger/manage-snapshots")))
 	      ;; Not Authorised