add snapshot data passed to template from /danger/manage-snapshots.

This data is just a list of the directory names for each snapshot stored in the /snapshots directory -- only deals with HTTP GET here.
2 years ago · fdf43c2b01
1 changed files with 8 additions and 6 deletions
--- a/src/web.lisp
+++ b/src/web.lisp
@ -1667,8 +1667,10 @@
 	     (append (auth:auth-user-data)
 		     `(:alert ,alert
 		       :system-data ,(nera:system-data)
-		       ;; Snapshot data goes here...
-                       ))))
+                       :snapshots
+                       ,(reverse
+                         (storage::get-directory-names
+                          (storage::get-raw-directories "snapshots/")))))))
   ;; Not Authorised
   (progn
     (utils:set-alert "You are not authorised to view this page." "error")