From 290d71b1b8bba45be46087a78bdcbdd516199985 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 29 May 2009 11:47:59 +0200
Subject: initial commit

based on weblog.tar.gz ncopa got by email.
---
 weblog-status-html.lsp | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 weblog-status-html.lsp

(limited to 'weblog-status-html.lsp')

diff --git a/weblog-status-html.lsp b/weblog-status-html.lsp
new file mode 100644
index 0000000..7ad89a2
--- /dev/null
+++ b/weblog-status-html.lsp
@@ -0,0 +1,27 @@
+<% local data, viewlibrary, page_info, session = ... 
+require("viewfunctions")
+%>
+
+<% displaycommandresults({"createdatabase"}, session, true) %>
+
+<H1>Weblog Database Status</H1>
+<% local status
+if viewlibrary and viewlibrary.dispatch_component then
+	if 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 %>
+<% else %>
+<p>Database status unknown
+<% end %>
+
+<% if data.value then %>
+<p>Weblog Database present
+<% else %>
+<p>Weblog Database missing
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("createdatabase")
+end %>
+<% end %>
-- 
cgit v1.2.3