summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--opennhrp-config-html.lsp24
l---------opennhrp-expert-html.lsp1
-rw-r--r--opennhrp-show-html.lsp12
l---------opennhrp-startstop-html.lsp1
l---------opennhrp-status-html.lsp1
5 files changed, 39 insertions, 0 deletions
diff --git a/opennhrp-config-html.lsp b/opennhrp-config-html.lsp
new file mode 100644
index 0000000..d079d72
--- /dev/null
+++ b/opennhrp-config-html.lsp
@@ -0,0 +1,24 @@
+<? local form, viewlibrary, page_info = ...
+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>")
+--]]
+?>
+
+<? if viewlibrary and viewlibrary.dispatch_component then
+ viewlibrary.dispatch_component("status")
+end ?>
+
+<H1>Config</H1>
+<?
+ form.action = page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action
+ displayform(form)
+?>
+
+<? if viewlibrary and viewlibrary.dispatch_component then
+ viewlibrary.dispatch_component("startstop")
+end ?>
diff --git a/opennhrp-expert-html.lsp b/opennhrp-expert-html.lsp
new file mode 120000
index 0000000..207f324
--- /dev/null
+++ b/opennhrp-expert-html.lsp
@@ -0,0 +1 @@
+../expert-html.lsp \ No newline at end of file
diff --git a/opennhrp-show-html.lsp b/opennhrp-show-html.lsp
new file mode 100644
index 0000000..4490d56
--- /dev/null
+++ b/opennhrp-show-html.lsp
@@ -0,0 +1,12 @@
+<? local data, viewlibrary, page_info = ...
+require("viewfunctions")
+?>
+
+<? if viewlibrary and viewlibrary.dispatch_component then
+ viewlibrary.dispatch_component("status")
+end ?>
+
+<H1><?= data.label ?></H1>
+<DL>
+<? displayitem(data) ?>
+</DL>
diff --git a/opennhrp-startstop-html.lsp b/opennhrp-startstop-html.lsp
new file mode 120000
index 0000000..0ea2627
--- /dev/null
+++ b/opennhrp-startstop-html.lsp
@@ -0,0 +1 @@
+../startstop-html.lsp \ No newline at end of file
diff --git a/opennhrp-status-html.lsp b/opennhrp-status-html.lsp
new file mode 120000
index 0000000..b2f8480
--- /dev/null
+++ b/opennhrp-status-html.lsp
@@ -0,0 +1 @@
+../status-html.lsp \ No newline at end of file