summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTed Trask <ttrask01@yahoo.com>2008-07-02 15:10:33 +0000
committerTed Trask <ttrask01@yahoo.com>2008-07-02 15:10:33 +0000
commit980dc13e790094b67c900fab60adddf275d343b8 (patch)
tree4188ec75fdc2ef77af1b366587e5c1a521196b57
parentf2137fec9261e79f89ea2877e40bed72c3c70808 (diff)
downloadacf-opennhrp-980dc13e790094b67c900fab60adddf275d343b8.tar.bz2
acf-opennhrp-980dc13e790094b67c900fab60adddf275d343b8.tar.xz
Modifying opennhrp to use common libraries and html.lsp files in core.
git-svn-id: svn://svn.alpinelinux.org/acf/opennhrp/trunk@1266 ab2d0c66-481e-0410-8bed-d214d4d58bed
-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