summaryrefslogtreecommitdiffstats
path: root/weblog-status-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'weblog-status-html.lsp')
-rw-r--r--weblog-status-html.lsp19
1 files changed, 13 insertions, 6 deletions
diff --git a/weblog-status-html.lsp b/weblog-status-html.lsp
index d0784ba..fae98c0 100644
--- a/weblog-status-html.lsp
+++ b/weblog-status-html.lsp
@@ -5,23 +5,30 @@ require("viewfunctions")
<% displaycommandresults({"createdatabase"}, session, true) %>
<H1>Weblog Database Status</H1>
+<DL>
<% local status
if viewlibrary and viewlibrary.dispatch_component then
if session.permissions.postgresql and session.permissions.postgresql.status then
status = viewlibrary.dispatch_component("postgresql/postgresql/status", nil, true)
end
-end
-if status then %>
-<p>Database is <%= status.value.status.value %>
+end %>
+
+<DT>Database status</DT><DD>
+<% if status then %>
+<%= status.value.status.value %>
<% else %>
-<p>Database status unknown
+unknown
<% end %>
+</DD>
+<DT>Weblog Database</DT><DD>
<% if data.value then %>
-<p>Weblog Database present
+present
<% else %>
-<p>Weblog Database missing
+missing
<% if viewlibrary and viewlibrary.dispatch_component then
viewlibrary.dispatch_component("createdatabase")
end %>
<% end %>
+</DD>
+</DL>