From 980dc13e790094b67c900fab60adddf275d343b8 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Wed, 2 Jul 2008 15:10:33 +0000
Subject: 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
---
 opennhrp-config-html.lsp    | 24 ++++++++++++++++++++++++
 opennhrp-expert-html.lsp    |  1 +
 opennhrp-show-html.lsp      | 12 ++++++++++++
 opennhrp-startstop-html.lsp |  1 +
 opennhrp-status-html.lsp    |  1 +
 5 files changed, 39 insertions(+)
 create mode 100644 opennhrp-config-html.lsp
 create mode 120000 opennhrp-expert-html.lsp
 create mode 100644 opennhrp-show-html.lsp
 create mode 120000 opennhrp-startstop-html.lsp
 create mode 120000 opennhrp-status-html.lsp

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
-- 
cgit v1.2.3