implemented 'Disk Info.' feature on the back-end for /dashboard.

2 years ago · f57d6ef33c
1 changed files with 2 additions and 0 deletions
--- a/src/web.lisp
+++ b/src/web.lisp
@ -198,6 +198,8 @@
 				     :pages ,(nera:latest-editted-pages 5 t)
 				     :archive-entries
 				     ,(nera::latest-archive-editted-entries 5 t)
+                                     :disk-info
+                                     ,(first (diskspace:list-all-disk-info t))
 				     :system-data ,(nera:system-data)))))
 		 ;; Not Authorised
 		 (progn (utils:set-alert "You are not logged in." "error")