diff options
author | Ted Trask <ttrask01@yahoo.com> | 2008-07-02 15:10:33 +0000 |
---|---|---|
committer | Ted Trask <ttrask01@yahoo.com> | 2008-07-02 15:10:33 +0000 |
commit | 980dc13e790094b67c900fab60adddf275d343b8 (patch) | |
tree | 4188ec75fdc2ef77af1b366587e5c1a521196b57 | |
parent | f2137fec9261e79f89ea2877e40bed72c3c70808 (diff) | |
download | acf-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.lsp | 24 | ||||
l--------- | opennhrp-expert-html.lsp | 1 | ||||
-rw-r--r-- | opennhrp-show-html.lsp | 12 | ||||
l--------- | opennhrp-startstop-html.lsp | 1 | ||||
l--------- | opennhrp-status-html.lsp | 1 |
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 |