summaryrefslogtreecommitdiffstats
path: root/weblog-status-html.lsp
blob: 1c0d2a88b070cbd6854841cfeac34fcc891263ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
<% local data, viewlibrary, page_info, session = ... 
require("viewfunctions")
%>

<% displaycommandresults({"createdatabase"}, session, true) %>

<H1>Weblog Database Status</H1>
<DL>
<% local status
if viewlibrary and viewlibrary.dispatch_component then
	if viewlibrary.check_permission("postgresql/postgresql/status") then
		status = viewlibrary.dispatch_component("postgresql/postgresql/status", nil, true)
	end
end %>

<DT>Database status</DT><DD>
<% if status then %>
<% if status.value.status.errtxt then
	print(status.value.status.errtxt)
else
	print(status.value.status.value)
end %>
<% else %>
Unknown
<% end %>
</DD>

<DT>Weblog Database</DT><DD>
<% if data.value then %>
Present
<% else %>
Missing
<% end %>
</DD>
</DL>

<% if not data.value and viewlibrary and viewlibrary.dispatch_component then
	viewlibrary.dispatch_component("createdatabase")
end %>