summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lbu-basicstatus-html.lsp28
-rw-r--r--lbu-html.lsp16
2 files changed, 44 insertions, 0 deletions
diff --git a/lbu-basicstatus-html.lsp b/lbu-basicstatus-html.lsp
new file mode 100644
index 0000000..6b8a77d
--- /dev/null
+++ b/lbu-basicstatus-html.lsp
@@ -0,0 +1,28 @@
+<? local view, viewlibrary, pageinfo, session = ...
+require("viewfunctions")
+?>
+<?
+--[[ DEBUG INFORMATION
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(view))
+io.write("</span>")
+--]]
+?>
+
+<H1>System Info</H1>
+<DL>
+<?
+if view.value.committed.value then
+ view.value.committed.value = "There are no uncommitted files"
+else
+ view.value.committed.value = "WARNING!\nUntil you commit, you will lose your changes at next reboot/shutdown!"
+end
+view.value.committed.type = "string"
+displayitem(view.value.committed)
+
+for name,value in pairs(view.value) do
+ if name ~= "committed" then
+ displayitem(value)
+ end
+end ?>
+</DL>
diff --git a/lbu-html.lsp b/lbu-html.lsp
new file mode 100644
index 0000000..71269f5
--- /dev/null
+++ b/lbu-html.lsp
@@ -0,0 +1,16 @@
+<? local form, viewlibrary, pageinfo = ...
+require("viewfunctions")
+?>
+<?
+--[[ DEBUG INFORMATION
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(form))
+io.write("</span>")
+--]]
+?>
+
+<H1><?= form.label ?></H1>
+<?
+ form.action = pageinfo.action
+ displayform(form)
+?>