summaryrefslogtreecommitdiffstats
path: root/health-storage-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'health-storage-html.lsp')
-rw-r--r--health-storage-html.lsp8
1 files changed, 8 insertions, 0 deletions
diff --git a/health-storage-html.lsp b/health-storage-html.lsp
index bd2a20a..7e1e78a 100644
--- a/health-storage-html.lsp
+++ b/health-storage-html.lsp
@@ -32,6 +32,7 @@ end %>
<h1>Storage</h1>
<h2>Floppy capacity</h2>
+<DL>
<% if (view.value.floppy) then
for name,floppy in pairs(view.value.floppy.value) do
displaydisk(floppy, name)
@@ -39,8 +40,10 @@ end
else %>
No Floppy mounted
<% end %>
+</DL>
<h2>Harddrive capacity</h2>
+<DL>
<% if (view.value.hd) then
for name,hd in pairs(view.value.hd.value) do
displaydisk(hd, name)
@@ -48,8 +51,10 @@ end
else %>
No Harddrive mounted
<% end %>
+</DL>
<h2>RAM Disk capacity</h2>
+<DL>
<% if (view.value.ramdisk) then
for name,ramdisk in pairs(view.value.ramdisk.value) do
displaydisk(ramdisk, name)
@@ -57,9 +62,12 @@ end
else %>
No RAM Disk mounted
<% end %>
+</DL>
<% if view.value.partitions then %>
<h2>Disk partitions</h2>
+<DL>
<pre><%= html.html_escape(view.value.partitions.value) %></pre>
+</DL>
<% end %>